home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / ASMUTL / ASM002.ZIP / PAGE.ASM < prev    next >
Encoding:
Assembly Source File  |  1985-05-15  |  767 b   |  47 lines
  1.     PAGE    ,132
  2. ;---------------------------------------------------------------------
  3. ;
  4. ; This program demonstates using multiple screen pages and includes
  5. ; 2 macros.
  6. ;
  7. ; Malcolm McCorquodale III. Summer 1983   713 - 626 - 4979
  8. ;
  9. ;---------------------------------------------------------------------
  10.  
  11. MYPROG    SEGMENT 'CODE'
  12.     ASSUME    CS:MYPROG
  13.  
  14. ACT_DISP_PAGE    MACRO    PAGE_NO
  15.     MOV    AH,5
  16.     MOV    AL,PAGE_NO
  17.     INT    10H
  18.     ENDM
  19.  
  20. WRITE_CHAR    MACRO    PAGE,CNT,CHAR
  21.     MOV    BH,PAGE
  22.     MOV    CX,CNT
  23.     MOV    AH,10
  24.     MOV    AL,CHAR
  25.     INT    10H
  26.     ENDM
  27.  
  28. TEST    PROC    FAR
  29.     PUSH    DS    ; DOS LINKAGE
  30.     XOR    AX,AX
  31.     PUSH    AX
  32.  
  33.     WRITE_CHAR    1,2000,30H
  34.     WRITE_CHAR    0,2000,31H
  35.     MOV    CX,1001
  36.  
  37. LP:
  38.     PUSH    CX
  39.     ACT_DISP_PAGE 1
  40.     ACT_DISP_PAGE 0
  41.     POP    CX
  42.     LOOP    LP
  43.     RET
  44. TEST    ENDP
  45. MYPROG    ENDS
  46.     END
  47.