home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / dpl.zip / VIDOFF.D < prev    next >
Text File  |  1988-07-11  |  2KB  |  66 lines
  1. ; Doug's Programming Language  -- DPL, Version 2.22
  2. ; Copyright (c) 1988 Douglas S. Cody, All rights reserved.
  3. ;---------------------------------------
  4. ;
  5. SUBPGM    VIDOFF
  6. ;
  7. ; V I D O F F  -  Turn off the video controller card.
  8. ;
  9. ; Entry Conditions:
  10. ;    BIOS segment holds the video controller card
  11. ;    base I/O address & current video state
  12. ; Exit Conditions:
  13. ;    No registers modified
  14. ;
  15. BEGIN    VIDOFF
  16.     PUSH    ES            ; SAVE ALL REGISTERS USED
  17.     PUSH    DX
  18.     PUSH    AX
  19. ;
  20.     MOV    AX,40H            ; SETUP THE BIOS SEGMENT
  21.     MOV    ES,AX
  22. ;
  23.     MOV    DX,ES:[063H]        ; GET THE VIDEO CONTROLLER BASE
  24.     MOV    AL,ES:[065H]        ; FETCH THE VIDEO MODE REGISTER 
  25.     AND    AL,0F7H            ; TURN OFF THE VIDEO BIT
  26. ;
  27. COMMON_CODE:
  28.     MOV    ES:[065H],AL        ; SAVE THE NEW VIDEO CONTROLLER BYTE
  29.     ADD    DX,04            ; MOVE TO THE SELECT PORT
  30.     OUT    DX,AL            ; TURN IT ON OR OFF
  31. ;    
  32.     POP    AX            ; RESTORE THE REGISTERS
  33.     POP    DX
  34.     POP    ES
  35.     RETURN
  36. ;
  37. ;
  38. ;----------------------------------------
  39. ; V I D O N  -  Turn on the video controller card.
  40. ;
  41. ; Entry Conditions:
  42. ;    BIOS segment holds the video controller card
  43. ;    base I/O address & current video state
  44. ; Exit Conditions:
  45. ;    No registers modified
  46. ;
  47.     PUBLIC    VIDON
  48. VIDON    PROC    NEAR
  49.     PUSH    ES            ; SAVE ALL REGISTERS USED
  50.     PUSH    DX
  51.     PUSH    AX
  52. ;
  53.     MOV    AX,40H            ; SETUP THE BIOS SEGMENT
  54.     MOV    ES,AX
  55. ;
  56.     MOV    DX,ES:[063H]        ; GET THE VIDEO CONTROLLER BASE
  57.     MOV    AL,ES:[065H]        ; FETCH THE VIDEO MODE REGISTER 
  58.     OR    AL,08H            ; TURN ON THE VIDEO BIT
  59.     JMP    SHORT COMMON_CODE    ; CONTINUE IN COMMON CODE
  60.  
  61. VIDON    ENDP
  62. ;
  63. ENDPGM    VIDOFF
  64. ;
  65.  
  66.