home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
progm
/
assemutl.zip
/
PAGE.ASM
< prev
next >
Wrap
Assembly Source File
|
1985-05-15
|
767b
|
47 lines
PAGE ,132
;---------------------------------------------------------------------
;
; This program demonstates using multiple screen pages and includes
; 2 macros.
;
; Malcolm McCorquodale III. Summer 1983 713 - 626 - 4979
;
;---------------------------------------------------------------------
MYPROG SEGMENT 'CODE'
ASSUME CS:MYPROG
ACT_DISP_PAGE MACRO PAGE_NO
MOV AH,5
MOV AL,PAGE_NO
INT 10H
ENDM
WRITE_CHAR MACRO PAGE,CNT,CHAR
MOV BH,PAGE
MOV CX,CNT
MOV AH,10
MOV AL,CHAR
INT 10H
ENDM
TEST PROC FAR
PUSH DS ; DOS LINKAGE
XOR AX,AX
PUSH AX
WRITE_CHAR 1,2000,30H
WRITE_CHAR 0,2000,31H
MOV CX,1001
LP:
PUSH CX
ACT_DISP_PAGE 1
ACT_DISP_PAGE 0
POP CX
LOOP LP
RET
TEST ENDP
MYPROG ENDS
END