home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / cmplangm / 1989_6 / awk / 120cols.asm next >
Assembly Source File  |  1988-03-07  |  3KB  |  119 lines
  1. TITLE    120COLS    2-6-87    [3-7-88]
  2.  
  3. .RADIX    16
  4. LF    EQU    0AH
  5. CR    EQU    0DH
  6. ;
  7. ;INITIAL VALUES :    CS:IP    0000:0100
  8. ;            SS:SP    0000:FFFF
  9.                         ;L0000S      L014F DI  L0152 DI  L015D DI    L0164 DI
  10. S0000    SEGMENT
  11.     ASSUME DS:S0000, SS:S0000 ,CS:S0000 ,ES:S0000
  12.     ORG    $+0100H
  13. L0000    EQU    $-100
  14.                         ;L0001      L014F DI
  15. L0001    EQU    $-0FF
  16.                         ;L0003      L0151 DI  L0152 DI
  17. L0003    EQU    $-0FDH
  18.                         ;L0006      L015E DI
  19. L0006    EQU    $-0FA
  20.                         ;L0007      L0160 DI
  21. L0007    EQU    $-0F9
  22.                         ;L000A      L016A DI
  23. L000A    EQU    $-0F6
  24.                         ;L000D      L015E DI
  25. L000D    EQU    $-0F3
  26.                         ;L000E      L014C DI
  27. L000E    EQU    $-0F2
  28.                         ;L000F      L0169 DI
  29. L000F    EQU    $-0F1
  30.                         ;L0018      L014C DI  L014E DI
  31. L0018    EQU    $-0E8
  32.                         ;L001C      L011B DI
  33. L001C    EQU    $-0E4
  34.                         ;L001F      L015B DI
  35. L001F    EQU    $-0E1
  36.                         ;L0022      L0158 DI
  37. L0022    EQU    $-0DE
  38.                         ;L0023      L013F DI
  39. L0023    EQU    $-0DDH
  40.                         ;L0027      L0147 CC  L015A DI
  41. L0027    EQU    $-0D9
  42.                         ;L002B      L0166 DI
  43. L002B    EQU    $-0D5
  44.                         ;L003C      L0167 DI
  45. L003C    EQU    $-0C4
  46.                         ;L005D      L0167 DI
  47. L005D    EQU    $-0A3
  48.                         ;L005E      L0164 DI  L016A DI
  49. L005E    EQU    $-0A2
  50.                         ;L006C      L015B DI
  51. L006C    EQU    $-94
  52.                         ;L0077      L0155 DI
  53. L0077    EQU    $-89
  54.                         ;L0078      L0158 DI
  55. L0078    EQU    $-88
  56.                         ;L007D      L0157 DI
  57. L007D    EQU    $-83
  58.                         ;L0087      L014B DI  L0155 DI
  59. L0087    EQU    $-79
  60.                         ;L00A3      L016C DI
  61. L00A3    EQU    $-5DH
  62.                         ;L00AB      L0154 DI
  63. L00AB    EQU    $-55
  64.                         ;L00FF      L016C DI
  65. L00FF    EQU    $-1
  66.                         ;L0100      L016A CI
  67. L0100:    CLD                    ;0100 FC
  68.     SUB    AX,AX                ;0101 29 C0
  69.     MOV    ES,AX                ;0103 8E C0
  70.     LDS    SI,DWORD PTR ES:L04A8        ;0105 26 C5 36 A8 04
  71.     MOV    WORD PTR ES:L04A8,OFFSET L016C    ;010A 26 C7 06 A8 04 6C 01
  72.     MOV    ES:L04AA,CS            ;0111 26 8C 0E AA 04
  73.     PUSH    CS                ;0116 0E
  74.     POP    ES                ;0117 07
  75.     MOV    DI,OFFSET L016C            ;0118 BF 6C 01
  76.     MOV    CX,1C                ;011B B9 1C 00
  77.     REPZ    MOVSB                ;011E F3 A4
  78.     LDS    SI,DWORD PTR ES:L016C        ;0120 26 C5 36 6C 01
  79.     MOV    DI,OFFSET L0188            ;0125 BF 88 01
  80.     MOV    CX,OFFSET L05C0            ;0128 B9 C0 05
  81.     REPZ    MOVSB                ;012B F3 A4
  82.     PUSH    CS                ;012D 0E
  83.     POP    DS                ;012E 1F
  84.     MOV    WORD PTR L016C,OFFSET L0188    ;012F C7 06 6C 01 88 01
  85.     MOV    L016E,CS            ;0135 8C 0E 6E 01
  86.     MOV    SI,OFFSET L0149            ;0139 BE 49 01
  87.     MOV    DI,OFFSET L0648            ;013C BF 48 06
  88.     MOV    CX,23    ;'#'            ;013F B9 23 00
  89.     REPZ    MOVSB                ;0142 F3 A4
  90.     MOV    DX,OFFSET L0748            ;0144 BA 48 07
  91.     INT    27                ;0147 CD 27
  92.                         ;L0149      L0139 DI
  93. L0149    DB    87,18,0E,18,0            ;0149 87 18 0E 18 00
  94.     DB    1,3,0,3,0ABH            ;014E 01 03 00 03 AB
  95.     DB    87,77,7DH,22,78            ;0153 87 77 7D 22 78
  96.     DB    27,6C,1F,0,0DH            ;0158 27 6C 1F 00 0D
  97.     DB    6,7,4 DUP(0),5E            ;015D 06 07 00 00 00 00 5E
  98.     DB    2BH,5DH,3C,0F,5E        ;0164 2B 5D 3C 0F 5E
  99.     DB    0A,0A3,0FF            ;0169 0A A3 FF
  100.                         ;L016C      L010A EI  L0118 DI  L0120 ER    L012F DW
  101. L016C    EQU    $-0
  102.                         ;L016E      L0135 DW
  103. L016E    EQU    $+2
  104.                         ;L0188      L0125 DI  L012F DI
  105. L0188    EQU    $+1C
  106.                         ;L04A8      L0105 ER  L010A EW
  107. L04A8    EQU    $+33C
  108.                         ;L04AA      L0111 EW
  109. L04AA    EQU    $+33E
  110.                         ;L05C0      L0128 DI
  111. L05C0    EQU    $+454
  112.                         ;L0648      L013C DI
  113. L0648    EQU    $+4DC
  114.                         ;L0748      L0144 DI
  115. L0748    EQU    $+5DC
  116.     S0000    ENDS
  117. ;
  118. END    L0100
  119.