Programmer 7500/MAX_PROGRAMMERS.iso/PASCAL/MADTRB21.ZIP/MONOTEST.SRC

Text File | 1985-06-09 | 293 b | 14 lines

FUNCTION MONOCHROME : BOOLEAN;

TYPE REG_PACK = RECORD
                  AX,BX,CX,DX,BP,SI,DI,DS,ES,FLAGS : INTEGER
                END;

VAR REGS        : REG_PACK;

BEGIN
  INTR(17,REGS);
  IF (REGS.AX AND $0030) = $30 THEN MONOCHROME := TRUE
    ELSE MONOCHROME := FALSE
END;