home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l005 / 2.ddi / SAMPLE / GETZM.ASM < prev    next >
Encoding:
Assembly Source File  |  1991-11-09  |  1.8 KB  |  69 lines
  1. code    segment para 'code'
  2.         assume  cs:code
  3. main    proc    far
  4.         push    cs
  5.         pop     ds
  6.         mov     ax, 3c00h
  7.         mov     cx, 0
  8.         mov     dx, offset filename
  9.         int     21h
  10.         mov     bx, 0d400h
  11.         mov     ds, bx
  12.         mov     cs:handle, ax
  13.         mov     cx, 96
  14.         mov     ax, 0
  15. main1:
  16.         push    cx
  17.         push    ax
  18.         call    selpage
  19.         mov     ah,40h
  20.         mov     bx, cs:handle
  21.         mov     cx, 4000h
  22.         mov     dx, 0
  23.         int     21h
  24.         pop     ax
  25.         inc     ax
  26.         pop     cx
  27.         loop    main1
  28.  
  29.         mov     bx, cs:handle
  30.         mov     ah,3eh
  31.         int     21H
  32.  
  33.         mov     ah, 4ch
  34.         int     21h
  35.  
  36. filename db     'xslib',0
  37. handle  dw      0
  38.  
  39. main    endp
  40. ;
  41. ;
  42. SPS     DB      04h, 05h, 06h, 07h, 24h, 25h, 26h, 27h, 44h, 45h, 46h, 47h
  43.         DB      64h, 65h, 66h, 67h, 84h, 85h, 86h, 87h, 0a4h,0a5h,0a6h,0a7h
  44.         DB      0c4h,0c5h,0c6h,0c7h,0e4h,0e5h,0e6h,0e7h
  45.         DB      08h, 09h, 0ah, 0bh, 28h, 29h, 2ah, 2bh, 48h, 49h, 4ah, 4bh
  46.         DB      68h, 69h, 6ah, 6bh, 88h, 89h, 8ah, 8bh, 0a8h,0a9h,0aah,0abh
  47.         DB      0c8h,0c9h,0cah,0cbh,0e8h,0e9h,0eah,0ebh
  48.         DB      0ch, 0dh, 0eh, 0fh, 2ch, 2dh, 2eh, 2fh, 4ch, 4dh, 4eh, 4fh
  49.         DB      6ch, 6dh, 6eh, 6fh, 8ch, 8dh, 8eh, 8fh, 0ach,0adh,0aeh,0afh
  50.         DB      0cch,0cdh,0ceh,0cfh,0ech,0edh,0eeh,0efh
  51. ;       db      14h, 15h, 16h, 17h, 34h, 35h, 36h, 37h
  52. ;       db      54h, 55h, 56h, 57h, 74h, 75h, 76h, 77h
  53.  
  54. SelPage PROC
  55.         push    bx
  56.         push    ds
  57.         mov     bx,0d400h
  58.         mov     ds,bx
  59.         mov     bx,ax
  60. ;       MOV     BL,CS:SPS[BX]
  61.         MOV     DS:[0],BL
  62.         pop     ds
  63.         pop     bx
  64.         RET
  65. SelPage ENDP
  66. ;
  67. code    ends
  68.         end     main
  69.