home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / C-ASM_VI.ARJ / PROGASM.ZIP / PROG015.ASM < prev    next >
Encoding:
Assembly Source File  |  1988-04-10  |  972 b   |  24 lines
  1.  
  2. ;************************************************************************
  3. ; Use BIOS call to clear memory                                         *
  4. ;************************************************************************
  5.  
  6.         PUBLIC  _BIOS_Clear
  7.  
  8. _BIOS_Clear     PROC NEAR
  9.         PUSH    ES                      ;Save ES
  10.         XOR     AX,AX                   ;Load 0 into ES
  11.         MOV     ES,AX
  12.         MOV     CX,0                    ;Set upper left to 0,0
  13.         MOV     DH,ES:[BIOS_Rows]       ;Get lower right corner
  14.         MOV     DL,ES:[BIOS_Columns]
  15.         DEC     DH
  16.         DEC     DL
  17.         MOV     BH,7                    ;Normal attribute
  18.         MOV     AH,6                    ;Function = SCROLL UP
  19.         MOV     AL,0                    ;Subfunction = whole screen
  20.         INT     10H                     ;Ask BIOS to scroll screen
  21.         POP     ES                      ;Restore ES
  22.         RET
  23. _BIOS_Clear     ENDP
  24.