home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l005 / 2.ddi / SAMPLE / MAIN1.ASM < prev    next >
Encoding:
Assembly Source File  |  1990-10-12  |  1.4 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,1601
  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.