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