home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / ASMUTL / ASMCOLOR.ZIP / BW.ASM next >
Encoding:
Assembly Source File  |  1987-01-11  |  640 b   |  26 lines
  1.         TITLE Convert to Monochrome Display
  2.         PAGE    ,132
  3.     DATA    SEGMENT AT 40H
  4.         ORG    10H
  5.     EQUIPFLAG    DW    ?
  6.     DATA    ENDS
  7.     STACK    SEGMENT STACK
  8.         DW    64 DUP(?)
  9.     STACK    ENDS
  10.     CODE    SEGMENT
  11.         ASSUME    CS:CODE,DS:DATA
  12.      MONOCHRM    PROC    FAR
  13.         PUSH    DS        ; Establish return vector
  14.          SUB    AX,AX
  15.         PUSH    AX
  16.         MOV    AX,DATA
  17.         MOV    DS,AX         ; Setup segment register
  18.         OR    EQUIPFLAG,00110000B    ; Turn ON Monochrome
  19.  
  20.         MOV    AX,3        ; Do a 80x25 mode set
  21.         INT    10H        ;  to the video interrupt
  22.         RET            ; Return to DOS
  23.     MONOCHRM    ENDP
  24.     CODE    ENDS
  25.         END
  26.