home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / listings / v_02_06 / 2n06046a < prev    next >
Text File  |  1991-04-17  |  2KB  |  47 lines
  1. Figure 5: Macro Disassembled Version of Figure 4.
  2.  
  3.    00000:0E20496E732D L0000H   DB    0EH,' Ins-InsLine  '
  4.    0000F:0D44656C2D44 L000FH   DB    CR,'Del-DelLine  '
  5.    0001D:0D1B18191A   L001DH   DB    CR,1BH,18H,19H,EOF
  6.    00022:2D437572736F          DB    '-Cursor  '
  7.    0002B:0E416C742D57 L002BH   DB    0EH,'Alt-W-Window  '
  8.    0003A:0E416C742D52 L003AH   DB    0EH,'Alt-R-Random  '
  9.    00049:084573632D45 L0049H   DB    8,'Esc-Exit'
  10.                       ;
  11.                       P_0001   PROC  NEAR
  12.                       ;
  13.    00052:5589E5       L0052H   _ENTER
  14.    00055:31C0                  XOR   AX,AX
  15.    00057:9A44029900            CALL  FAR PTR L0BD4H
  16.    0005C:C606460000            MOV   [L1126H],OFFSET 0
  17.    00061:A14A00A33E00          AsgnInt L112AH,L111EH;int assign, ARG2:=ARG1
  18.    00067:A04A0030E4            CvrtB2I L112AH       ;cvrt byte var 2 int (AX)
  19.    0006C:050001                ADD   AX,0100H
  20.    0006F:50                    PUSH  AX
  21.    00070:9A6D013700            CALL  FAR PTR TxtMode
  22.    00075:A0500030E4            CvrtB2I L1130H       ;cvrt byte var 2 int (AX)
  23.    0007A:40                    INC   AX
  24.    0007B:A34000                MOV   WORD PTR [L1120H],AX
  25.    0007E:A0510030E4            CvrtB2I L1131H       ;cvrt byte var 2 int (AX)
  26.    00083:40                    INC   AX
  27.    00084:A34200                MOV   WORD PTR [L1122H],AX
  28.    00087:B00150A04200          GotoXY 1,L1122H      ;gotoxy(ARG1,ARG2)
  29.    00093:B000509A7302          TextBackground 0     ;set background color
  30.    0009B:B00F509A5902          TextColor 0FH        ;set foreground color
  31.    000A3:BF5A011E57BF          WrtStrCnstF L123AH,L0000H;Write fst str cnst
  32.    000B5:BF0F000E5731          WrtStrCnst L000FH    ;Write next str const.
  33.    000C2:BF1D000E5731          WrtStrCnst L001DH    ;Write next str const.
  34.    000CF:BF2B000E5731          WrtStrCnst L002BH    ;Write next str const.
  35.    000DC:BF3A000E5731          WrtStrCnst L003AH    ;Write next str const.
  36.    000E9:BF49000E5731          WrtStrCnst L0049H    ;Write next str const.
  37.    000F6:9A5C0699009A          CheckIO_Result
  38.    00100:B85000                MOV   AX,OFFSET 80
  39.    00103:31D2                  XOR   DX,DX
  40.    00105:F7364000              DIV   WORD PTR [L1120H]
  41.    00109:29064200              SUB   WORD PTR [L1122H],AX
  42.    0010D:9AE4029900            CALL  FAR PTR L0C74H
  43.    00112:89EC5DC3              _LEAVE
  44.                       P_0001   ENDP
  45.  
  46.  
  47.