[Back to INTERRUP SWAG index] [Back to Main SWAG index] [Original]

      Registers Demo

    PB>        Procedure GetScreenType (Var SType: Char);
    PB>        Var
    PB>          Regs: Registers;
    PB>        begin
    PB>          Regs.AH := $0F;
    PB>          Intr($10, Regs);
    PB>          if Regs.AL = 7 then
    PB>              sType := 'M';        <<<<<
    PB>          else
    PB>              sType := 'C';
    PB>        end;

       This Procedure would be ideal For a Function...
               Function GetScreenType:Char;
               ...
               if Regs.AL=7 then
                  GetScreenType := 'M'
               else
                  GetScreenType := 'C';
               ...

[Back to INTERRUP SWAG index] [Back to Main SWAG index] [Original]