home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / sigmv010.ark / REZ.Z80 < prev    next >
Text File  |  1984-04-29  |  36KB  |  2,830 lines
  1.     TITLE    'Z-80 Disassembler for 8080A'
  2.     ORG    0100H
  3. BDOS:    EQU    05H
  4. CTLTBL:    EQU    1C00H
  5. FCB:    EQU    5CH
  6. STACK:    EQU    1BFDH
  7. SYMTBL:    EQU    2200H
  8. TBUF:    EQU    80H
  9. ;
  10. START:    CALL    ENTRY
  11.     DEFB    'RESOURCE by Ward Christensen'
  12.     DEFB    0DH,0AH,'(AS OF 07/31/80)'
  13.     DEFB    0DH,0AH,'Z-80 Version 2'
  14.     DEFB    0DH,0AH,'$Copyright 1980'
  15. ENTRY:    POP    DE
  16.     LD    C,9
  17.     CALL    BDOS
  18.     LD    HL,0
  19.     ADD    HL,SP
  20.     LD    (STACK),HL
  21.     LD    SP,STACK
  22.     CALL    PRTSTR
  23.     DEFB    0DH,0AH,'Memory open to '
  24.     DEFB    0
  25.     LD    HL,(6)
  26.     DEC    HL
  27.     CALL    PRWORD
  28.     CALL    CRLF
  29.     CALL    CRLF
  30. L0174:    CALL    INITBL
  31. NXCMD:    XOR    A
  32.     LD    (WFIFLG),A
  33.     LD    (QUIFLG),A
  34.     LD    SP,STACK
  35.     CALL    GTCMD
  36. L0184:    LD    HL,CMDBUF+2
  37.     LD    A,(HL)
  38.     CP    0DH
  39.     JP    Z,NXCMD
  40.     CP    ';'
  41.     JP    Z,CMCMNT
  42.     CP    'A'
  43.     JP    Z,CMATMT
  44.     CP    'B'
  45.     JP    Z,CMBLD
  46.     CP    'C'
  47.     JP    Z,CMCTL
  48.     CP    'D'
  49.     JP    Z,CMDUMP
  50.     CP    'E'
  51.     JP    Z,CMENTR
  52.     CP    'F'
  53.     JP    Z,CMFIND
  54.     CP    'K'
  55.     JP    Z,CMKILL
  56.     CP    'L'
  57.     JP    Z,CMLIST
  58.     CP    'O'
  59.     JP    Z,CMOFST
  60.     CP    'P'
  61.     JP    Z,CMPRLG
  62.     CP    'Q'
  63.     JP    Z,CMQIET
  64.     CP    'R'
  65.     JP    Z,CMREAD
  66.     CP    'S'
  67.     JP    Z,CMSAVE
  68.     CP    'T'
  69.     JP    Z,CMTRIM
  70.     CP    'U'
  71.     JP    Z,CMUSEC
  72.     CP    'X'
  73.     JP    Z,CMPURG
  74.     CP    'Z'
  75.     JP    Z,CMEOF
  76.     CP    '?'
  77.     JP    Z,CMSTTS
  78. CMERR:    XOR    A
  79.     LD    (WFIFLG),A
  80.     LD    (QUIFLG),A
  81.     CALL    PRTSTR
  82.     DEFB    '?',0DH,0AH,0
  83.     JP    NXCMD
  84. ;
  85. CMTRIM:    LD    A,(TRMFLG)
  86.     CPL    
  87.     LD    (TRMFLG),A
  88.     OR    A
  89.     JP    Z,TRMOF
  90.     CALL    PRTSTR
  91.     DEFB    'Trim On',0DH,0AH,0
  92.     JP    NXCMD
  93. ;
  94. TRMOF:    CALL    PRTSTR
  95.     DEFB    'Trim Off',0DH,0AH,0
  96.     JP    NXCMD
  97. ;
  98. CMPURG:    CALL    PRTSTR
  99.     DEFB    'Y/N purge all symbols & '
  100.     DEFB    'CTL?',0
  101.     CALL    GTCMD
  102.     LD    A,(CMDBUF+2)
  103.     CP    'Y'
  104.     JP    Z,L0174
  105.     CP    'N'
  106.     JP    Z,NXCMD
  107.     JP    CMPURG
  108. ;
  109. CMPRLG:    LD    HL,CMDBUF+3
  110.     LD    A,(HL)
  111.     CP    0DH
  112.     JP    Z,CMERR
  113.     CALL    GTVAL
  114.     CP    ' '
  115.     JP    Z,L0241
  116.     CP    ','
  117.     JP    NZ,CMERR
  118. L0241:    INC    HL
  119.     PUSH    DE
  120.     PUSH    HL
  121.     LD    A,1
  122.     LD    (WFIFLG),A
  123.     CALL    L1A7E
  124.     DEFB    9,'.LOC',9,0
  125.     POP    HL
  126.     POP    DE
  127.     LD    A,D
  128.     CALL    XO0
  129.     LD    A,E
  130.     CALL    XO
  131.     LD    A,'H'
  132.     CALL    TYPE
  133.     CALL    CRLF
  134.     PUSH    DE
  135.     CALL    GTVAL
  136.     CP    0DH
  137.     JP    NZ,CMERR
  138.     POP    BC
  139.     LD    HL,SYMTBL
  140. L0272:    INC    HL
  141.     INC    HL
  142.     LD    A,(HL)
  143.     OR    A
  144.     JP    Z,NXCMD
  145.     DEC    HL
  146.     DEC    HL
  147.     LD    A,(HL)
  148.     SUB    C
  149.     INC    HL
  150.     LD    A,(HL)
  151.     SBC    B
  152.     JP    C,L028C
  153.     DEC    HL
  154.     LD    A,(HL)
  155.     SUB    E
  156.     INC    HL
  157.     LD    A,(HL)
  158.     SBC    D
  159.     JP    C,L02D9
  160. L028C:    PUSH    HL
  161.     PUSH    BC
  162.     INC    HL
  163.     LD    B,(HL)
  164.     PUSH    HL
  165.     INC    HL
  166.     LD    A,(HL)
  167.     DEC    HL
  168.     CP    'A'
  169.     JP    C,L02E5
  170. L0299:    INC    HL
  171.     LD    A,(HL)
  172.     CP    '+'
  173.     JP    Z,L02E5
  174.     CP    '-'
  175.     JP    Z,L02E5
  176.     DEC    B
  177.     JP    NZ,L0299
  178.     POP    HL
  179.     LD    B,(HL)
  180.     LD    A,1
  181.     LD    (WFIFLG),A
  182. L02B0:    INC    HL
  183.     LD    A,(HL)
  184.     CALL    TYPE
  185.     DEC    B
  186.     JP    NZ,L02B0
  187.     CALL    L1A7E
  188.     DEFB    9,'=',9,0
  189.     POP    BC
  190.     POP    HL
  191.     LD    A,(HL)
  192.     OR    A
  193.     CALL    NZ,XO0
  194.     DEC    HL
  195.     LD    A,(HL)
  196.     CALL    XO
  197.     LD    A,'H'
  198.     CALL    TYPE
  199.     CALL    CRLF
  200.     XOR    A
  201.     LD    (WFIFLG),A
  202.     INC    HL
  203. L02D9:    INC    HL
  204.     LD    A,(HL)
  205.     CALL    ADDF
  206.     INC    HL
  207.     CALL    L1ABF
  208.     JP    L0272
  209. ;
  210. L02E5:    POP    HL
  211.     POP    BC
  212.     POP    HL
  213.     JP    L02D9
  214. ;
  215. CMQIET:    LD    A,1
  216.     LD    (QUIFLG),A
  217.     LD    DE,CMDBUF+2
  218.     LD    HL,CMDBUF+3
  219. L02F6:    LD    A,(HL)
  220.     LD    (DE),A
  221.     INC    HL
  222.     INC    DE
  223.     CP    0DH
  224.     JP    NZ,L02F6
  225.     JP    L0184
  226. ;
  227.     DEFB    'Congratulations, you found '
  228.     DEFB    'the patch area!'
  229. CMDUMP:    LD    HL,(L1B1B)
  230.     PUSH    HL
  231.     EX    DE,HL
  232.     LD    HL,(DMPCNT)
  233.     ADD    HL,DE
  234.     LD    (L1B1D),HL
  235.     POP    DE
  236.     LD    HL,CMDBUF+3
  237.     LD    A,(HL)
  238.     CP    0DH
  239.     JP    Z,L038B
  240.     CP    'S'
  241.     JP    Z,DUSYMT
  242.     CP    '='
  243.     JP    Z,SDUCNT
  244.     CP    ','
  245.     JP    Z,L035D
  246. L0351:    CALL    GTVAL
  247.     PUSH    HL
  248.     LD    HL,(DMPCNT)
  249.     ADD    HL,DE
  250.     LD    (L1B1D),HL
  251.     POP    HL
  252. L035D:    CP    0DH
  253.     JP    Z,L0376
  254.     CP    ' '
  255.     JP    Z,L036C
  256.     CP    ','
  257.     JP    NZ,CMERR
  258. L036C:    INC    HL
  259.     PUSH    DE
  260.     CALL    GTVAL
  261.     EX    DE,HL
  262.     LD    (L1B1D),HL
  263.     POP    DE
  264. L0376:    LD    HL,(OFFSET)
  265.     PUSH    HL
  266.     ADD    HL,DE
  267.     LD    (L1B1B),HL
  268.     LD    HL,(L1B1D)
  269.     POP    DE
  270.     ADD    HL,DE
  271.     LD    (L1B1D),HL
  272.     CP    0DH
  273.     JP    NZ,CMERR
  274. L038B:    LD    HL,(L1B1B)
  275. L038E:    CALL    L1ABF
  276.     PUSH    HL
  277.     CALL    L087C
  278.     CALL    PRWORD
  279.     POP    HL
  280.     PUSH    HL
  281.     CALL    PRSPC
  282. L039D:    LD    A,(HL)
  283.     CALL    XO
  284.     INC    HL
  285.     LD    A,L
  286.     AND    3
  287.     CALL    Z,PRSPC
  288.     LD    A,L
  289.     AND    7
  290.     CALL    Z,PRSPC
  291.     LD    A,L
  292.     AND    0FH
  293.     JP    NZ,L039D
  294.     CALL    PSTAR
  295.     POP    HL
  296. L03B8:    LD    A,(HL)
  297.     CP    ' '
  298.     JP    C,L03C3
  299.     CP    7FH
  300.     JP    C,L03C5
  301. L03C3:    LD    A,'.'
  302. L03C5:    CALL    TYPE
  303.     INC    HL
  304.     LD    A,L
  305.     AND    0FH
  306.     JP    Z,L03D7
  307.     AND    7
  308.     CALL    Z,PRSPC
  309.     JP    L03B8
  310. ;
  311. L03D7:    CALL    PSTAR
  312.     CALL    CRLF
  313.     LD    (L1B1B),HL
  314.     LD    A,(L1B1D)
  315.     SUB    L
  316.     LD    A,(L1B1D+1)
  317.     SBC    H
  318.     JP    NC,L038E
  319.     JP    NXCMD
  320. ;
  321. SDUCNT:    INC    HL
  322.     CALL    GTVAL
  323.     INC    HL
  324.     DEC    DE
  325.     EX    DE,HL
  326.     LD    (DMPCNT),HL
  327.     EX    DE,HL
  328.     CP    ','
  329.     JP    Z,L0351
  330.     CP    ' '
  331.     JP    Z,L0351
  332.     CP    0DH
  333.     JP    Z,NXCMD
  334.     JP    CMERR
  335. ;
  336. DUSYMT:    LD    HL,CMDBUF+4
  337.     LD    A,(HL)
  338.     CP    '.'
  339.     JP    NZ,L0423
  340.     CALL    L1872
  341.     CALL    L1798
  342.     JP    NC,L0426
  343.     LD    HL,(L1B4B)
  344.     JP    L0426
  345. ;
  346. L0423:    LD    HL,SYMTBL
  347. L0426:    LD    E,(HL)
  348.     INC    HL
  349.     LD    D,(HL)
  350.     INC    HL
  351.     LD    A,(HL)
  352.     OR    A
  353.     JP    Z,NXCMD
  354.     EX    DE,HL
  355.     CALL    PRWORD
  356.     EX    DE,HL
  357.     LD    B,(HL)
  358.     INC    HL
  359. L0436:    LD    A,(HL)
  360.     CALL    TYPE
  361.     INC    HL
  362.     DEC    B
  363.     JP    NZ,L0436
  364.     CALL    CRLF
  365.     CALL    L1ABF
  366.     JP    L0426
  367. ;
  368. L0448:    LD    HL,(OFFSET)
  369.     CALL    PRWORD
  370.     CALL    CRLF
  371.     JP    NXCMD
  372. ;
  373. CMOFST:    LD    HL,CMDBUF+3
  374.     LD    A,(HL)
  375.     CP    0DH
  376.     JP    Z,L0448
  377.     CALL    GTVAL
  378.     CP    0DH
  379.     JP    NZ,CMERR
  380.     EX    DE,HL
  381.     LD    (OFFSET),HL
  382.     JP    NXCMD
  383. ;
  384. GFNAM:    LD    A,(WRTFLG)
  385.     OR    A
  386.     JP    NZ,RRQERR
  387.     LD    (FCB),A
  388.     LD    (FCB+12),A
  389.     LD    HL,CMDBUF+3
  390.     LD    A,(CMDBUF+4)
  391.     CP    ' '
  392.     JP    Z,CMERR
  393.     CP    ':'
  394.     JP    NZ,L0493
  395.     LD    A,(CMDBUF+3)
  396.     SUB    '@'
  397.     LD    (FCB),A
  398.     INC    HL
  399.     INC    HL
  400. L0493:    LD    DE,FCB+1
  401.     LD    B,8
  402.     CALL    L04A1
  403.     LD    B,3
  404.     CALL    L04A1
  405.     RET    
  406. ;
  407. L04A1:    LD    A,(HL)
  408.     CP    0DH
  409.     JP    Z,L04BE
  410.     INC    HL
  411.     CP    '.'
  412.     JP    Z,L04BE
  413.     LD    (DE),A
  414.     INC    DE
  415.     DEC    B
  416.     JP    NZ,L04A1
  417. L04B3:    LD    A,(HL)
  418.     CP    0DH
  419.     RET    Z
  420.     CP    '.'
  421.     INC    HL
  422.     RET    Z
  423.     JP    L04B3
  424. ;
  425. L04BE:    LD    A,' '
  426.     LD    (DE),A
  427.     INC    DE
  428.     DEC    B
  429.     JP    NZ,L04BE
  430.     RET    
  431. ;
  432. CMATMT:    LD    A,1
  433.     LD    (L1B4F),A
  434.     XOR    A
  435.     LD    (SYBFLG),A
  436.     JP    L04E2
  437. ;
  438. CMBLD:    LD    A,1
  439.     LD    (SYBFLG),A
  440.     JP    L04E2
  441. ;
  442. CMLIST:    XOR    A
  443.     LD    (SYBFLG),A
  444.     LD    (L1B4F),A
  445. L04E2:    XOR    A
  446.     LD    (WFIFLG),A
  447.     LD    A,(LISCNT)
  448.     LD    (LISCNT+1),A
  449.     LD    (L1B35),A
  450.     LD    HL,CMDBUF+3
  451.     LD    A,(HL)
  452.     CP    0DH
  453.     JP    Z,L052A
  454.     CP    ','
  455.     JP    Z,L051E
  456.     CP    ' '
  457.     JP    Z,L051E
  458.     CP    '='
  459.     JP    Z,SLICNT
  460. L0507:    CALL    GTVAL
  461.     EX    DE,HL
  462.     LD    (PCNTR),HL
  463.     EX    DE,HL
  464.     CP    0DH
  465.     JP    Z,L052A
  466.     CP    ' '
  467.     JP    Z,L051E
  468.     CP    ','
  469.     JP    NZ,CMERR
  470. L051E:    INC    HL
  471.     CALL    GTVAL
  472.     EX    DE,HL
  473.     LD    (L1B25),HL
  474.     XOR    A
  475.     LD    (L1B35),A
  476. L052A:    CALL    L1ABF
  477.     LD    A,(L1B35)
  478.     OR    A
  479.     JP    Z,L053E
  480.     LD    A,(LISCNT+1)
  481.     DEC    A
  482.     JP    M,NXCMD
  483.     JP    L054C
  484. ;
  485. L053E:    LD    HL,(L1B25)
  486.     LD    A,(PCNTR)
  487.     SUB    L
  488.     LD    A,(PCNTR+1)
  489.     SBC    H
  490.     JP    NC,NXCMD
  491. L054C:    LD    A,(L1B4F)
  492.     OR    A
  493.     JP    Z,L0586
  494.     LD    HL,(PCNTR)
  495.     EX    DE,HL
  496.     LD    HL,(OFFSET)
  497.     ADD    HL,DE
  498.     LD    B,8
  499. L055D:    LD    A,(HL)
  500.     CALL    L1AFE
  501.     JP    C,L0586
  502.     INC    HL
  503.     DEC    B
  504.     JP    NZ,L055D
  505. L0569:    LD    A,(HL)
  506.     CALL    L1AFE
  507.     INC    HL
  508.     JP    NC,L0569
  509.     DEC    HL
  510.     CALL    L087C
  511.     EX    DE,HL
  512.     PUSH    DE
  513.     LD    HL,(PCNTR)
  514.     EX    DE,HL
  515.     LD    A,'B'
  516.     CALL    L0B9E
  517.     POP    DE
  518.     LD    A,'I'
  519.     CALL    L0B9E
  520. L0586:    LD    HL,(DOCTBL)
  521.     LD    A,H
  522.     OR    L
  523.     JP    Z,L05C0
  524.     LD    HL,(PCNTR)
  525.     EX    DE,HL
  526.     CALL    L0D87
  527.     JP    C,L05C0
  528.     INC    HL
  529.     INC    HL
  530.     LD    B,(HL)
  531. L059B:    LD    A,1
  532.     LD    (WFIFLG),A
  533.     CALL    SEMIC
  534.     XOR    A
  535.     OR    B
  536.     JP    Z,L05BD
  537. L05A8:    INC    HL
  538.     LD    A,(HL)
  539.     CP    5CH
  540.     JP    NZ,L05B6
  541.     CALL    CRLF
  542.     DEC    B
  543.     JP    L059B
  544. ;
  545. L05B6:    CALL    TYPE
  546.     DEC    B
  547.     JP    NZ,L05A8
  548. L05BD:    CALL    CRLF
  549. L05C0:    LD    HL,(PCNTR)
  550.     EX    DE,HL
  551.     CALL    L0C51
  552.     DEC    HL
  553.     JP    C,L05CE
  554.     INC    HL
  555.     INC    HL
  556.     INC    HL
  557. L05CE:    LD    A,(HL)
  558.     CP    'I'
  559.     JP    Z,L061E
  560.     CP    'E'
  561.     JP    Z,CMEOF
  562.     PUSH    AF
  563.     INC    HL
  564.     LD    E,(HL)
  565.     INC    HL
  566.     LD    D,(HL)
  567.     PUSH    DE
  568.     LD    HL,(PCNTR)
  569.     EX    DE,HL
  570.     CALL    L0EB4
  571.     POP    HL
  572.     LD    (L1B48),HL
  573.     EX    DE,HL
  574.     XOR    A
  575.     LD    (WFIFLG),A
  576.     POP    AF
  577.     CP    'S'
  578.     JP    Z,L0648
  579.     CP    'B'
  580.     JP    Z,L06A9
  581.     CP    'W'
  582.     JP    Z,L067B
  583.     CALL    TYPE
  584.     CALL    PRTSTR
  585.     DEFB    ': INVALID CTL ENTRY'
  586.     DEFB    0DH,0AH,0
  587.     JP    NXCMD
  588. ;
  589. L061E:    CALL    DLINE
  590.     XOR    A
  591.     LD    (WFIFLG),A
  592.     JP    L052A
  593. ;
  594. SLICNT:    INC    HL
  595.     CALL    GTVAL
  596.     LD    A,E
  597.     OR    A
  598.     JP    Z,CMERR
  599.     LD    (LISCNT),A
  600.     LD    A,(HL)
  601.     INC    HL
  602.     CP    ','
  603.     JP    Z,L0507
  604.     CP    ' '
  605.     JP    Z,L0507
  606.     CP    0DH
  607.     JP    Z,NXCMD
  608.     JP    CMERR
  609. ;
  610. L0648:    PUSH    DE
  611.     LD    A,(PCNTR)
  612.     CPL    
  613.     LD    L,A
  614.     LD    A,(PCNTR+1)
  615.     CPL    
  616.     LD    H,A
  617.     INC    HL
  618.     ADD    HL,DE
  619.     LD    A,1
  620.     LD    (WFIFLG),A
  621.     CALL    L1A7E
  622.     DEFB    '.BLKB',9,0
  623.     LD    A,H
  624.     CALL    XO0
  625.     LD    A,L
  626.     CALL    XO
  627.     LD    A,'H'
  628.     CALL    TYPE
  629.     CALL    CRLF
  630.     POP    HL
  631.     LD    (PCNTR),HL
  632.     JP    L052A
  633. ;
  634. L067B:    LD    A,1
  635.     LD    (WFIFLG),A
  636.     CALL    L1A7E
  637.     DEFB    '.WORD',9,0
  638.     LD    HL,(PCNTR)
  639.     EX    DE,HL
  640.     LD    HL,(OFFSET)
  641.     ADD    HL,DE
  642.     LD    E,(HL)
  643.     INC    HL
  644.     LD    D,(HL)
  645.     CALL    L106E
  646.     LD    HL,(PCNTR)
  647.     INC    HL
  648.     INC    HL
  649.     LD    (PCNTR),HL
  650.     JP    L052A
  651. ;
  652. L06A3:    CALL    CRLF
  653.     JP    L052A
  654. ;
  655. L06A9:    LD    A,1
  656.     LD    (WFIFLG),A
  657. L06BB:    LD    HL,(PCNTR)
  658.     EX    DE,HL
  659.     LD    HL,(OFFSET)
  660.     ADD    HL,DE
  661.     LD    A,(HL)
  662.     CP    ' '
  663.     JP    C,NPRTC         ;NOT PRINTABLE
  664.     CP    7FH
  665.     JP    C,L0722         ;VISIBLE ASCII
  666. NPRTC:    CALL    L1A7E
  667.     DEFB    '.BYTE',9,0
  668.     XOR    A
  669.     LD    (L1B4A),A
  670. MORINV:    LD    A,(HL)         ;RESTORE BYTE
  671.     CP    0AH
  672.     JP    C,L06E6
  673. L06D3:    CALL    XO0
  674.     LD    A,'H'
  675.     CALL    TYPE
  676.     LD    A,(L1B4A)
  677.     ADD    2
  678.     LD    (L1B4A),A
  679.     JP    L06EB
  680. ;
  681. L06E6:    OR    '0'
  682.     CALL    TYPE
  683. L06EB:    INC    HL
  684.     EX    DE,HL
  685.     LD    HL,(PCNTR)
  686.     INC    HL
  687.     LD    (PCNTR),HL
  688.     EX    DE,HL
  689. L06F5:    LD    A,(L1B48)
  690.     CP    E
  691.     JP    NZ,L0703
  692.     LD    A,(L1B49)
  693.     CP    D
  694.     JP    Z,L078D
  695. L0703:    LD    HL,(PCNTR)
  696.     EX    DE,HL
  697.     CALL    L17EA
  698.     JP    NC,L06A3
  699.     LD    A,(L1B4A)
  700.     ADD    2
  701.     LD    (L1B4A),A
  702.     CP    19H
  703.     JP    NC,L06A3
  704.     LD    HL,(PCNTR)
  705.     EX    DE,HL
  706.     LD    HL,(OFFSET)
  707.     ADD    HL,DE
  708.     LD    A,(HL)
  709.     CP    ' '
  710.     JP    C,NXINV
  711.     CP    7FH
  712.     JP    C,L06A3
  713. NXINV:    LD    A,','
  714.     CALL    TYPE
  715.     JP    MORINV
  716. ;
  717. L0722:    CALL    L1A7E
  718.     DEFB    '.ASCII',9,0
  719.     XOR    A
  720.     LD    (L1B4A),A
  721.     LD    A,27H
  722.     CALL    TYPE
  723.     LD    A,(L1B4A)
  724.     INC    A
  725.     LD    (L1B4A),A
  726.     LD    A,(HL)
  727. L072F:    CALL    TYPE
  728.     LD    A,(HL)
  729.     CP    27H
  730.     CALL    Z,TYPE
  731.     INC    HL
  732.     EX    DE,HL
  733.     LD    HL,(PCNTR)
  734.     INC    HL
  735.     LD    (PCNTR),HL
  736.     EX    DE,HL
  737.     LD    A,(L1B48)
  738.     CP    E
  739.     JP    NZ,L0750
  740.     LD    A,(L1B49)
  741.     CP    D
  742.     JP    Z,L0788
  743. L0750:    PUSH    HL
  744.     LD    HL,(PCNTR)
  745.     EX    DE,HL
  746.     CALL    L17EA
  747.     POP    HL
  748.     JP    NC,L0788
  749.     LD    A,(L1B4A)
  750.     INC    A
  751.     LD    (L1B4A),A
  752.     CP    '#'
  753.     JP    NC,L0780
  754.     CP    19H
  755.     JP    C,L0775
  756.     DEC    HL
  757.     LD    A,(HL)
  758.     INC    HL
  759.     CP    ' '
  760.     JP    Z,L0788
  761. L0775:    LD    A,(HL)
  762.     CP    ' '
  763.     JP    C,L0780
  764.     CP    7FH
  765.     JP    C,L072F
  766. L0780:    LD    A,27H
  767.     CALL    TYPE
  768.     JP    L06A3
  769. ;
  770. L0788:    LD    A,27H
  771.     CALL    TYPE
  772. L078D:    CALL    CRLF
  773.     JP    L052A
  774. ;
  775. CMSTTS:    CALL    PRTSTR
  776.     DEFB    'SYMTBL=',0
  777.     LD    HL,SYMTBL
  778.     CALL    PRWORD
  779.     LD    HL,(SYMTP)
  780.     CALL    PRWORD
  781.     CALL    CRLF
  782.     CALL    PRTSTR
  783.     DEFB    'PC    =',0
  784.     LD    HL,(PCNTR)
  785.     CALL    PRWORD
  786.     CALL    CRLF
  787.     CALL    PRTSTR
  788.     DEFB    'OFFSET=',0
  789.     LD    HL,(OFFSET)
  790.     CALL    PRWORD
  791.     CALL    CRLF
  792.     LD    HL,(DOCTBL)
  793.     LD    A,H
  794.     OR    L
  795.     JP    Z,NODOCT
  796.     CALL    PRTSTR
  797.     DEFB    'COMNTS=',0
  798.     LD    HL,(DOCTBL)
  799.     CALL    PRWORD
  800.     LD    HL,(DOCEND)
  801.     CALL    PRWORD
  802.     CALL    CRLF
  803. NODOCT:    CALL    PRTSTR
  804.     DEFB    'CTLTBL=',0
  805.     LD    HL,CTLTBL
  806.     CALL    PRWORD
  807. L0808:    LD    A,(HL)
  808.     INC    HL
  809.     AND    (HL)
  810.     INC    HL
  811.     INC    HL
  812.     INC    A
  813.     JP    NZ,L0808
  814.     DEC    HL
  815.     DEC    HL
  816.     DEC    HL
  817.     CALL    PRWORD
  818.     CALL    CRLF
  819.     JP    NXCMD
  820. ;
  821. CMFIND:    LD    HL,CMDBUF+3
  822.     LD    A,(HL)
  823.     CP    0DH
  824.     JP    Z,L0853
  825.     CALL    GTVAL
  826.     EX    DE,HL
  827.     LD    (L1B2F),HL
  828.     LD    HL,(OFFSET)
  829.     LD    (L1B2D),HL
  830.     EX    DE,HL
  831.     CP    0DH
  832.     JP    Z,L0853
  833.     CP    ' '
  834.     JP    Z,L0843
  835.     CP    ','
  836.     JP    NZ,CMERR
  837. L0843:    INC    HL
  838.     CALL    GTVAL
  839.     CP    0DH
  840.     JP    NZ,CMERR
  841.     LD    HL,(OFFSET)
  842.     ADD    HL,DE
  843.     LD    (L1B2D),HL
  844. L0853:    LD    HL,(L1B2F)
  845.     EX    DE,HL
  846. L0857:    CALL    L1ABF
  847.     LD    HL,(L1B2D)
  848.     LD    A,(HL)
  849.     INC    HL
  850.     LD    (L1B2D),HL
  851.     CP    E
  852.     JP    NZ,L0857
  853.     LD    A,(HL)
  854.     CP    D
  855.     JP    NZ,L0857
  856.     PUSH    HL
  857.     PUSH    DE
  858.     CALL    L087C
  859.     DEC    HL
  860.     CALL    PRWORD
  861.     POP    DE
  862.     POP    HL
  863.     CALL    PRSPC
  864.     JP    L0857
  865. ;
  866. L087C:    LD    A,(OFFSET)
  867.     CPL    
  868.     LD    E,A
  869.     LD    A,(OFFSET+1)
  870.     CPL    
  871.     LD    D,A
  872.     INC    DE
  873.     ADD    HL,DE
  874.     RET    
  875. ;
  876. CMEOF:    CALL    L0EB4
  877.     LD    A,1
  878.     LD    (WFIFLG),A
  879.     CALL    L1A7E
  880.     DEFB    '.END',0DH,0AH,0
  881.     XOR    A
  882.     LD    (WFIFLG),A
  883.     LD    A,(WRTFLG)
  884.     OR    A
  885.     JP    Z,NXCMD
  886.     LD    A,1AH
  887.     CALL    L19E6
  888.     CALL    L19A7
  889.     XOR    A
  890.     LD    (WRTFLG),A
  891.     CALL    PRTSTR
  892.     DEFB    '++ASM FILE CLOSED++',0DH
  893.     LD    A,(BC)
  894.     NOP    
  895.     JP    NXCMD
  896. ;
  897. CMREAD:    CALL    GFNAM
  898.     LD    A,(WRTFLG)
  899.     OR    A
  900.     JP    NZ,RRQERR
  901.     LD    HL,FCB+9
  902.     LD    DE,SYMLIT
  903.     LD    C,3
  904.     CALL    CMPSTR
  905.     JP    NZ,L08F6
  906.     LD    HL,SYMTBL
  907.     CALL    L09C9
  908.     LD    (SYMTP),HL
  909.     INC    HL
  910.     INC    HL
  911.     LD    (HL),0
  912.     JP    CMSTTS
  913. ;
  914. L08F6:    LD    HL,FCB+9
  915.     LD    DE,COMLIT
  916.     LD    C,3
  917.     CALL    CMPSTR
  918.     JP    NZ,L0947
  919.     CALL    FOPEN
  920.     LD    HL,(OFFSET)
  921.     LD    A,H
  922.     CP    1EH
  923.     JP    C,L097A
  924.     LD    DE,START
  925.     ADD    HL,DE
  926. L0914:    PUSH    HL
  927.     EX    DE,HL
  928.     LD    C,1AH
  929.     CALL    BDOS
  930.     LD    DE,FCB
  931.     LD    C,14H
  932.     CALL    BDOS
  933.     OR    A
  934.     JP    NZ,L092F
  935.     POP    HL
  936.     LD    DE,TBUF
  937.     ADD    HL,DE
  938.     JP    L0914
  939. ;
  940. L092F:    POP    HL
  941.     CALL    PRWORD
  942.     CALL    L087C
  943.     CALL    PRWORD
  944.     CALL    CRLF
  945.     LD    DE,TBUF
  946.     LD    C,1AH
  947.     CALL    BDOS
  948.     JP    NXCMD
  949. ;
  950. L0947:    LD    HL,FCB+9
  951.     LD    DE,CTLLIT
  952.     LD    C,3
  953.     CALL    CMPSTR
  954.     JP    NZ,L0958
  955.     JP    L0CF1
  956. ;
  957. L0958:    LD    HL,FCB+9
  958.     LD    DE,DOCLIT
  959.     LD    C,3
  960.     CALL    CMPSTR
  961.     JP    NZ,CMERR
  962.     CALL    L0DFB
  963.     LD    HL,(DOCTBL)
  964.     CALL    L09C9
  965.     LD    (DOCEND),HL
  966.     LD    (HL),0FFH
  967.     INC    HL
  968.     LD    (HL),0FFH
  969.     JP    CMSTTS
  970. ;
  971. L097A:    CALL    PRTSTR
  972.     DEFB    '++NO, THAT WOULD OVERLAY '
  973.     DEFB    'THE DISASSEMBLER',0DH,0AH
  974.     DEFB    'BECAUSE OFFSET IS TOO SMALL: '
  975.     DEFB    0
  976.     JP    L0448
  977. ;
  978. L09C9:    CALL    FOPEN
  979. L09CC:    CALL    RDFCHR
  980.     CP    1AH
  981.     RET    Z
  982.     CP    9
  983.     JP    Z,L09CC
  984.     CP    0DH
  985.     JP    Z,L09CC
  986.     CP    0AH
  987.     JP    Z,L09CC
  988.     CALL    L0A05
  989.     LD    (HL),E
  990.     INC    HL
  991.     LD    (HL),D
  992.     INC    HL
  993.     PUSH    HL
  994.     INC    HL
  995.     LD    B,0
  996. L09EC:    CALL    RDFCHR
  997.     CP    9
  998.     JP    Z,L09FF
  999.     CP    0DH
  1000.     JP    Z,L09FF
  1001.     LD    (HL),A
  1002.     INC    HL
  1003.     INC    B
  1004.     JP    L09EC
  1005. ;
  1006. L09FF:    EX    (SP),HL
  1007.     LD    (HL),B
  1008.     POP    HL
  1009.     JP    L09CC
  1010. ;
  1011. L0A05:    LD    DE,0
  1012. L0A08:    CP    ' '
  1013.     RET    Z
  1014.     CP    1AH
  1015. L0A0D:    JP    Z,L0B62
  1016.     CP    ':'
  1017.     JP    C,L0A17
  1018.     SUB    7
  1019. L0A17:    SUB    '0'
  1020.     EX    DE,HL
  1021.     ADD    HL,HL
  1022.     ADD    HL,HL
  1023.     ADD    HL,HL
  1024.     ADD    HL,HL
  1025.     ADD    L
  1026.     LD    L,A
  1027.     EX    DE,HL
  1028.     CALL    RDFCHR
  1029.     CP    1AH
  1030.     JP    Z,L0B62
  1031.     JP    L0A08
  1032. ;
  1033. CMSAVE:    CALL    GFNAM
  1034.     LD    A,(WRTFLG)
  1035.     OR    A
  1036.     JP    NZ,RRQERR
  1037.     LD    HL,FCB+9
  1038.     LD    DE,SYMLIT
  1039.     LD    C,3
  1040.     CALL    CMPSTR
  1041.     JP    NZ,L0A9A
  1042.     LD    HL,SYMTBL
  1043. L0A47:    CALL    L1986
  1044. L0A4A:    LD    E,(HL)
  1045.     INC    HL
  1046.     LD    D,(HL)
  1047.     INC    HL
  1048.     LD    A,(HL)
  1049.     INC    HL
  1050.     LD    B,A
  1051.     OR    A
  1052.     JP    Z,L0A73
  1053.     CALL    L0A7E
  1054.     LD    A,' '
  1055.     CALL    L19E6
  1056. L0A5D:    LD    A,(HL)
  1057.     CALL    L19E6
  1058.     INC    HL
  1059.     DEC    B
  1060.     JP    NZ,L0A5D
  1061.     LD    A,0DH
  1062.     CALL    L19E6
  1063.     LD    A,0AH
  1064.     CALL    L19E6
  1065.     JP    L0A4A
  1066. ;
  1067. L0A73:    LD    A,1AH
  1068.     CALL    L19E6
  1069.     CALL    L19A7
  1070.     JP    NXCMD
  1071. ;
  1072. L0A7E:    LD    A,D
  1073.     CALL    HEXL
  1074.     CALL    L19E6
  1075.     LD    A,D
  1076.     CALL    HEXR
  1077.     CALL    L19E6
  1078.     LD    A,E
  1079.     CALL    HEXL
  1080.     CALL    L19E6
  1081.     LD    A,E
  1082.     CALL    HEXR
  1083.     JP    L19E6
  1084. ;
  1085. L0A9A:    LD    HL,FCB+9
  1086.     LD    DE,CTLLIT
  1087.     LD    C,3
  1088.     CALL    CMPSTR
  1089.     JP    Z,SAVCTL
  1090.     LD    HL,FCB+9
  1091.     LD    DE,DOCLIT
  1092.     LD    C,3
  1093.     CALL    CMPSTR
  1094.     JP    Z,SAVDOC
  1095.     LD    HL,FCB+9
  1096.     LD    DE,ASMLIT
  1097.     LD    C,3
  1098.     CALL    CMPSTR
  1099.     JP    NZ,CMERR
  1100.     LD    A,1
  1101.     LD    (WRTFLG),A
  1102.     XOR    A
  1103.     LD    (WFIFLG),A
  1104.     CALL    L1986
  1105.     CALL    PRTSTR
  1106.     DEFB    '++WRITING .ASM ENABLED'
  1107.     DEFB    0DH,0AH,'USE Z COMMAND OR '
  1108.     DEFB    'E CONTROL TO CLOSE FILE++'
  1109.     DEFB    0DH,0AH,0
  1110.     JP    NXCMD
  1111. ;
  1112. SAVDOC:    CALL    L0DFB
  1113.     LD    HL,(DOCEND)
  1114.     INC    HL
  1115.     INC    HL
  1116.     LD    (HL),0
  1117.     LD    HL,(DOCTBL)
  1118.     JP    L0A47
  1119. ;
  1120. RRQERR:    CALL    PRTSTR
  1121.     DEFB    '++NO FILE ACCESSES PERMITTED '
  1122.     DEFB    'UNTIL .ASM CLOSED',0DH,0AH
  1123.     DEFB    0
  1124.     JP    NXCMD
  1125. ;
  1126. L0B62:    CALL    PRTSTR
  1127.     DEFB    '++UNEXPECTED EOF',0DH,0AH
  1128.     DEFB    0
  1129.     JP    NXCMD
  1130. ;
  1131. CMCTL:    LD    HL,CMDBUF+3
  1132.     LD    A,(HL)
  1133.     CP    0DH
  1134.     JP    Z,L0C73
  1135.     CALL    GTVAL
  1136.     CP    0DH
  1137.     JP    Z,L0C6D
  1138.     CP    ' '
  1139.     JP    Z,L0B96
  1140.     CP    ','
  1141.     JP    NZ,CMERR
  1142. L0B96:    INC    HL
  1143.     LD    A,(HL)
  1144.     CALL    L0BB0
  1145.     JP    NXCMD
  1146. ;
  1147. L0B9E:    PUSH    HL
  1148.     PUSH    DE
  1149.     PUSH    AF
  1150.     CALL    L0C51
  1151.     DEC    HL
  1152.     JP    C,L0BAB
  1153.     INC    HL
  1154.     INC    HL
  1155.     INC    HL
  1156. L0BAB:    POP    AF
  1157.     POP    DE
  1158.     CP    (HL)
  1159.     POP    HL
  1160.     RET    Z
  1161. L0BB0:    LD    (INTYP),A
  1162.     CALL    L0C51
  1163.     JP    C,L0BFB
  1164.     LD    A,(INTYP)
  1165.     CP    'I'
  1166.     JP    Z,L0C4D
  1167.     CP    'W'
  1168.     JP    Z,L0C4D
  1169.     CP    'B'
  1170.     JP    Z,L0C4D
  1171.     CP    'S'
  1172.     JP    Z,L0C4D
  1173.     CP    'E'
  1174.     JP    Z,L0C4D
  1175.     CP    'K'
  1176.     JP    NZ,CMERR
  1177.     EX    DE,HL
  1178.     LD    HL,3
  1179.     ADD    HL,DE
  1180.     EX    DE,HL
  1181. L0BE0:    LD    A,(HL)
  1182.     INC    HL
  1183.     AND    (HL)
  1184.     DEC    HL
  1185.     INC    A
  1186.     JP    Z,L0BF5
  1187.     LD    B,3
  1188. L0BEA:    LD    A,(DE)
  1189.     LD    (HL),A
  1190.     INC    DE
  1191.     INC    HL
  1192.     DEC    B
  1193.     JP    NZ,L0BEA
  1194.     JP    L0BE0
  1195. ;
  1196. L0BF5:    DEC    HL
  1197.     DEC    HL
  1198.     DEC    HL
  1199.     JP    NODOCT
  1200. ;
  1201. L0BFB:    LD    A,(INTYP)
  1202.     CP    'K'
  1203.     JP    Z,CMERR
  1204.     CP    'E'
  1205.     JP    Z,L0C1C
  1206.     CP    'B'
  1207.     JP    Z,L0C1C
  1208.     CP    'W'
  1209.     JP    Z,L0C1C
  1210.     CP    'I'
  1211.     JP    Z,L0C1C
  1212.     CP    'S'
  1213.     JP    NZ,CMERR
  1214. L0C1C:    PUSH    DE
  1215.     PUSH    HL
  1216.     LD    HL,CTLTBL
  1217. L0C21:    LD    A,(HL)
  1218.     INC    HL
  1219.     AND    (HL)
  1220.     INC    HL
  1221.     INC    HL
  1222.     INC    A
  1223.     JP    NZ,L0C21
  1224.     INC    HL
  1225.     INC    HL
  1226.     INC    HL
  1227.     EX    DE,HL
  1228.     LD    HL,-3
  1229.     ADD    HL,DE
  1230.     POP    BC
  1231. L0C33:    DEC    HL
  1232.     DEC    DE
  1233.     LD    A,(HL)
  1234.     LD    (DE),A
  1235.     LD    A,E
  1236.     CP    C
  1237.     JP    NZ,L0C33
  1238.     LD    A,D
  1239.     CP    B
  1240.     JP    NZ,L0C33
  1241.     LD    H,B
  1242.     LD    L,C
  1243.     POP    DE
  1244.     LD    (HL),E
  1245.     INC    HL
  1246.     LD    (HL),D
  1247.     INC    HL
  1248.     LD    A,(INTYP)
  1249.     LD    (HL),A
  1250.     RET    
  1251. ;
  1252. L0C4D:    INC    HL
  1253.     INC    HL
  1254.     LD    (HL),A
  1255.     RET    
  1256. ;
  1257. L0C51:    LD    HL,CTLTBL
  1258. L0C54:    LD    A,(HL)
  1259.     INC    HL
  1260.     AND    (HL)
  1261.     DEC    HL
  1262.     INC    A
  1263.     SCF    
  1264.     RET    Z
  1265.     INC    HL
  1266.     LD    A,D
  1267.     CP    (HL)
  1268.     DEC    HL
  1269.     RET    C
  1270.     JP    NZ,L0C67
  1271.     LD    A,E
  1272.     CP    (HL)
  1273.     RET    Z
  1274.     RET    C
  1275. L0C67:    INC    HL
  1276.     INC    HL
  1277.     INC    HL
  1278.     JP    L0C54
  1279. ;
  1280. L0C6D:    CALL    L0C51
  1281.     JP    L0C76
  1282. ;
  1283. L0C73:    LD    HL,CTLTBL
  1284. L0C76:    CALL    L1ABF
  1285.     LD    E,(HL)
  1286.     INC    HL
  1287.     LD    D,(HL)
  1288.     INC    HL
  1289.     LD    A,D
  1290.     AND    E
  1291.     INC    A
  1292.     JP    NZ,L0C86
  1293.     JP    NODOCT
  1294. ;
  1295. L0C86:    PUSH    DE
  1296.     PUSH    HL
  1297.     CALL    L17EA
  1298.     JP    C,L0C9F
  1299. L0C8E:    LD    A,(HL)
  1300.     CALL    TYPE
  1301.     INC    HL
  1302.     DEC    B
  1303.     JP    NZ,L0C8E
  1304.     LD    A,':'
  1305.     CALL    TYPE
  1306.     CALL    CRLF
  1307. L0C9F:    POP    HL
  1308.     POP    DE
  1309.     CALL    PRSPC
  1310.     CALL    PRSPC
  1311.     EX    DE,HL
  1312.     CALL    PRWORD
  1313.     LD    A,','
  1314.     CALL    TYPE
  1315.     EX    DE,HL
  1316.     LD    A,(HL)
  1317.     CALL    TYPE
  1318.     CALL    CRLF
  1319.     INC    HL
  1320.     JP    L0C76
  1321. ;
  1322. SAVCTL:    CALL    L1986
  1323.     LD    HL,CTLTBL
  1324. L0CC2:    LD    E,(HL)
  1325.     INC    HL
  1326.     LD    D,(HL)
  1327.     INC    HL
  1328.     LD    A,D
  1329.     AND    E
  1330.     INC    A
  1331.     JP    Z,L0CE6
  1332.     CALL    L0A7E
  1333.     LD    A,','
  1334.     CALL    L19E6
  1335.     LD    A,(HL)
  1336.     CALL    L19E6
  1337.     LD    A,0DH
  1338.     CALL    L19E6
  1339.     LD    A,0AH
  1340.     CALL    L19E6
  1341.     INC    HL
  1342.     JP    L0CC2
  1343. ;
  1344. L0CE6:    LD    A,1AH
  1345.     CALL    L19E6
  1346.     CALL    L19A7
  1347.     JP    NXCMD
  1348. ;
  1349. L0CF1:    CALL    FOPEN
  1350.     LD    HL,CTLTBL
  1351. L0CF7:    CALL    RDFCHR
  1352.     LD    DE,0
  1353. L0CFD:    CP    1AH
  1354.     JP    Z,L0D2A
  1355.     CP    ','
  1356.     JP    Z,L0D1E
  1357.     CP    ':'
  1358.     JP    C,L0D0E
  1359.     SUB    7
  1360. L0D0E:    SUB    '0'
  1361.     EX    DE,HL
  1362.     ADD    HL,HL
  1363.     ADD    HL,HL
  1364.     ADD    HL,HL
  1365.     ADD    HL,HL
  1366.     ADD    L
  1367.     LD    L,A
  1368.     EX    DE,HL
  1369.     CALL    RDFCHR
  1370.     JP    L0CFD
  1371. ;
  1372. L0D1E:    LD    (HL),E
  1373.     INC    HL
  1374.     LD    (HL),D
  1375.     INC    HL
  1376.     CALL    RDFCHR
  1377.     LD    (HL),A
  1378.     INC    HL
  1379.     JP    L0CF7
  1380. ;
  1381. L0D2A:    LD    (HL),0FFH
  1382.     INC    HL
  1383.     LD    (HL),0FFH
  1384.     JP    NODOCT
  1385. ;
  1386. CMCMNT:    CALL    L0DFB
  1387.     LD    HL,CMDBUF+3
  1388.     LD    A,(HL)
  1389.     CP    0DH
  1390.     JP    Z,L0DAB
  1391.     CALL    GTVAL
  1392.     INC    HL
  1393.     CP    0DH
  1394.     JP    Z,L0DA5
  1395.     CP    ' '
  1396.     JP    Z,L0D51
  1397.     CP    ','
  1398.     JP    NZ,CMERR
  1399. L0D51:    PUSH    HL
  1400.     CALL    L0D87
  1401.     JP    C,L0D63
  1402.     CALL    L0DD6
  1403.     POP    HL
  1404.     PUSH    HL
  1405.     LD    A,(HL)
  1406.     CP    0DH
  1407.     JP    Z,NXCMD
  1408. L0D63:    LD    HL,(DOCEND)
  1409.     LD    (HL),E
  1410.     INC    HL
  1411.     LD    (HL),D
  1412.     INC    HL
  1413.     POP    DE
  1414.     LD    B,0
  1415.     PUSH    HL
  1416. L0D6E:    INC    HL
  1417.     LD    A,(DE)
  1418.     LD    (HL),A
  1419.     INC    DE
  1420.     INC    B
  1421.     LD    A,(DE)
  1422.     CP    0DH
  1423.     JP    NZ,L0D6E
  1424.     INC    HL
  1425.     LD    (DOCEND),HL
  1426.     LD    (HL),0FFH
  1427.     INC    HL
  1428.     LD    (HL),0FFH
  1429.     POP    HL
  1430.     LD    (HL),B
  1431.     JP    NXCMD
  1432. ;
  1433. L0D87:    LD    HL,(DOCTBL)
  1434. L0D8A:    LD    A,(HL)
  1435.     INC    HL
  1436.     AND    (HL)
  1437.     DEC    HL
  1438.     INC    A
  1439.     SCF    
  1440.     RET    Z
  1441.     INC    HL
  1442.     LD    A,D
  1443.     CP    (HL)
  1444.     DEC    HL
  1445.     JP    NZ,L0D9B
  1446.     LD    A,E
  1447.     CP    (HL)
  1448.     RET    Z
  1449. L0D9B:    INC    HL
  1450.     INC    HL
  1451.     LD    A,(HL)
  1452.     CALL    ADDF
  1453.     INC    HL
  1454.     JP    L0D8A
  1455. ;
  1456. L0DA5:    CALL    L0D87
  1457.     JP    L0DAE
  1458. ;
  1459. L0DAB:    LD    HL,(DOCTBL)
  1460. L0DAE:    CALL    L1ABF
  1461.     LD    E,(HL)
  1462.     INC    HL
  1463.     LD    D,(HL)
  1464.     INC    HL
  1465.     LD    A,D
  1466.     AND    E
  1467.     INC    A
  1468.     JP    Z,NXCMD
  1469.     EX    DE,HL
  1470.     CALL    PRWORD
  1471.     EX    DE,HL
  1472.     LD    A,';'
  1473.     CALL    TYPE
  1474.     LD    B,(HL)
  1475. L0DC6:    INC    HL
  1476.     LD    A,(HL)
  1477.     CALL    TYPE
  1478.     DEC    B
  1479.     JP    NZ,L0DC6
  1480.     CALL    CRLF
  1481.     INC    HL
  1482.     JP    L0DAE
  1483. ;
  1484. L0DD6:    LD    A,(HL)
  1485.     INC    HL
  1486.     AND    (HL)
  1487.     INC    A
  1488.     RET    Z
  1489.     DEC    HL
  1490.     PUSH    DE
  1491.     LD    D,H
  1492.     LD    E,L
  1493.     INC    HL
  1494.     INC    HL
  1495.     LD    A,(HL)
  1496.     CALL    ADDF
  1497.     INC    HL
  1498.     LD    B,0
  1499. L0DE8:    LD    A,(HL)
  1500.     LD    (DE),A
  1501.     INC    HL
  1502.     INC    DE
  1503.     LD    C,A
  1504.     AND    B
  1505.     INC    A
  1506.     LD    B,C
  1507.     JP    NZ,L0DE8
  1508.     EX    DE,HL
  1509.     DEC    HL
  1510.     DEC    HL
  1511.     LD    (DOCEND),HL
  1512.     POP    DE
  1513.     RET    
  1514. ;
  1515. L0DFB:    LD    HL,(DOCTBL)
  1516.     LD    A,H
  1517.     OR    L
  1518.     RET    NZ
  1519.     CALL    PRTSTR
  1520.     DEFB    '++COMMAND IGNORED++',0DH
  1521.     DEFB    0AH,'++Issue ''UNNNN'' to tell '
  1522.     DEFB    'RESOURCE to use address '
  1523.     DEFB    'NNNN',0DH,0AH,'as the start '
  1524.     DEFB    'of the comments table',0DH
  1525.     DEFB    0AH,0
  1526.     JP    NXCMD
  1527. ;
  1528. CMUSEC:    LD    HL,CMDBUF+3
  1529.     LD    A,(HL)
  1530.     CP    0DH
  1531.     JP    Z,CMERR
  1532.     CP    '.'
  1533.     JP    Z,CMERR
  1534.     CALL    GTVAL
  1535.     EX    DE,HL
  1536.     LD    A,H
  1537.     CP    1FH
  1538.     JP    C,L0E9D
  1539.     LD    (DOCTBL),HL
  1540.     LD    (DOCEND),HL
  1541.     LD    (HL),0FFH
  1542.     INC    HL
  1543.     LD    (HL),0FFH
  1544.     JP    NXCMD
  1545. ;
  1546. L0E9D:    CALL    PRTSTR
  1547.     DEFB    '++NO!! <2300H!',0DH,0AH
  1548.     DEFB    0
  1549.     JP    NXCMD
  1550. ;
  1551. L0EB4:    PUSH    DE
  1552.     PUSH    HL
  1553.     LD    A,1
  1554.     LD    (WFIFLG),A
  1555.     LD    HL,(PCNTR)
  1556.     EX    DE,HL
  1557.     CALL    L17EA
  1558.     JP    C,L0EF6
  1559.     LD    C,B
  1560.     PUSH    HL
  1561. L0EC7:    LD    A,(HL)
  1562.     CP    '+'
  1563.     JP    Z,L0EF5
  1564.     CP    '-'
  1565.     JP    Z,L0EF5
  1566.     INC    HL
  1567.     DEC    C
  1568.     JP    NZ,L0EC7
  1569.     POP    HL
  1570.     CALL    PSTRG
  1571.     LD    A,':'
  1572.     CALL    TYPE
  1573.     LD    A,(TRMFLG)
  1574.     OR    A
  1575.     JP    NZ,L0EF6
  1576.     CALL    TABC
  1577.     CALL    TABC
  1578.     CALL    SEMIC
  1579.     LD    HL,(PCNTR)
  1580.     CALL    PRWORD
  1581.     CALL    CRLF
  1582.     JP    L0EF6
  1583. ;
  1584. L0EF5:    POP    HL
  1585. L0EF6:    XOR    A
  1586.     LD    (WFIFLG),A
  1587.     CALL    PRSPC
  1588.     CALL    PRSPC
  1589.     LD    HL,(PCNTR)
  1590.     CALL    PRWORD
  1591.     LD    A,1
  1592.     LD    (WFIFLG),A
  1593.     CALL    TABC
  1594.     POP    HL
  1595.     POP    DE
  1596.     RET    
  1597. ;
  1598. DLINE:    CALL    L0EB4
  1599.     XOR    A
  1600.     LD    (INDX),A
  1601.     LD    HL,(PCNTR)
  1602.     EX    DE,HL
  1603.     LD    HL,(OFFSET)
  1604.     ADD    HL,DE
  1605.     LD    (PGPTR),HL
  1606.     EX    DE,HL
  1607.     INC    HL         ;COUNT OVER SINGLE BYTE
  1608.     LD    (PCNTR),HL
  1609.     EX    DE,HL
  1610.     LD    B,(HL)
  1611.     LD    HL,OPCT-7
  1612. L0F2D:    LD    DE,7
  1613. ULP:    ADD    HL,DE
  1614.     LD    A,(HL)
  1615.     OR    A
  1616.     JP    Z,PRDB
  1617.     AND    B
  1618.     LD    C,A
  1619.     INC    HL
  1620.     LD    A,(HL)
  1621.     CP    C
  1622.     JP    NZ,ULP
  1623.     INC    HL
  1624.     LD    A,(HL)
  1625.     LD    (INTYP),A
  1626.     LD    B,5
  1627. PROLP:    INC    HL
  1628.     LD    A,(HL)
  1629.     CP    1         ;INDX VALUE FLAG
  1630.     JP    NZ,PRO2
  1631.     LD    A,(INDX)
  1632.     OR    A
  1633.     JP    PRO1
  1634. ;
  1635. PRO2:    CP    '.'
  1636. PRO1:    CALL    NZ,TYPE
  1637.     DEC    B
  1638.     JP    NZ,PROLP
  1639.     LD    HL,(PCNTR)
  1640.     LD    A,(INTYP)
  1641.     AND    3FH
  1642.     CP    4
  1643.     JP    C,FOUND
  1644.     CP    9
  1645.     JP    NC,FOUND
  1646.     INC    HL         ;2 BYTE AT LEAST
  1647.     CP    6
  1648.     JP    C,L0F75
  1649.     INC    HL         ;3 BYTE INSTR
  1650. L0F75:    LD    (PCNTR),HL
  1651. FOUND:    LD    E,A
  1652.     LD    D,0
  1653.     LD    HL,JMPTBL
  1654. ;
  1655.     ADD    HL,DE
  1656.     ADD    HL,DE
  1657.     ADD    HL,DE
  1658.     PUSH    HL
  1659.     LD    HL,(PGPTR)
  1660.     RET    
  1661. ;
  1662. INCPC:    PUSH    HL
  1663.     LD    HL,(PCNTR)
  1664.     INC    HL
  1665.     LD    (PCNTR),HL
  1666.     POP    HL
  1667.     RET    
  1668. ;            LGTH    OPRND    EXMPL
  1669. JMPTBL:    JP    TYPE0         ;1    NONE    DAA
  1670.     JP    TYPE1         ;1    REG    ADD
  1671.     JP    TYPE2         ;1    REG    INR
  1672.     JP    TYPE3         ;1    XR    STAX
  1673.     JP    TYPE4         ;2    R,DATA    MVI
  1674.     JP    TYPE5         ;2    DATA    OUT
  1675.     JP    TYPE6         ;3    XR,ADDR    LXI
  1676.     JP    TYPE7         ;3    ADDR    LHLD
  1677.     JP    TYPE8         ;3    ADDR    JZ
  1678.     JP    TYPE9         ;1    NONE    RZ
  1679.     JP    TYP10         ;1    NR.    RST
  1680.     JP    TYP11         ;1    R,R    MOV
  1681.     JP    TYP12         ;2    "CB"    BIT
  1682.     JP    TYP13         ;2/4    "ED"    LDI
  1683.     JP    TYP14         ;2/4    "DD"    SRL
  1684.     JP    TYP15         ;2/4    "FD"    RL
  1685.     JP    TYP16         ;2    NONE    JR
  1686.     JP    TYP17         ;2    FLAG    JR C
  1687.     JP    TYP18         ;2    N,R    BIT
  1688.     JP    TYP19         ;X/Y INDEX
  1689.     JP    TYP20         ;4    X/Y,ADD    LXI
  1690.     JP    TYP21         ;3    D(),R    MOV
  1691.     JP    TYP22         ;3    REG    ADD
  1692.     JP    TYP23         ;3
  1693.     JP    TYP24         ;4
  1694. ;    
  1695. TYPE0:    JP    CRLF
  1696. ;
  1697. TYP22:    CALL    INCPC         ;FOR DD/FD INSTRS
  1698. TYPE1:    CALL    TABC
  1699. T1B:    CALL    REG
  1700.     JP    CRLF
  1701. ;
  1702. TYP23:    CALL    INCPC
  1703. TYPE2:    CALL    TABC
  1704.     CALL    REGM
  1705.     JP    CRLF
  1706. ;
  1707. TYPE3:    CALL    TABC
  1708.     CALL    XR
  1709.     JP    CRLF
  1710. ;
  1711. TYP24:    CALL    INCPC
  1712.     CALL    INCPC
  1713. TYPE4:    CALL    TABC
  1714.     CALL    REGM
  1715.     CALL    COMMA
  1716.     JP    T52
  1717. ;
  1718. TYPE5:    CALL    TABC
  1719. T52:    LD    HL,(PGPTR)
  1720.     INC    HL
  1721.     LD    A,(INDX)
  1722.     OR    A
  1723.     JP    Z,T52A
  1724.     INC    HL
  1725. T52A:    LD    (PGPTR),HL
  1726. L1017:    LD    HL,(PGPTR)
  1727.     LD    A,(HL)
  1728.     CP    ' '
  1729.     JP    C,PHEXB
  1730.     CP    5BH
  1731.     JP    NC,PHEXB
  1732.     LD    A,(INTYP)
  1733.     CP    4
  1734.     JP    C,PHEXB
  1735.     CP    6
  1736.     JP    NC,PHEXB
  1737.     LD    A,(HL)
  1738.     CALL    QCHAR
  1739.     LD    A,27H
  1740.     CALL    TYPE
  1741.     CALL    TABC
  1742.     CALL    SEMIC
  1743. PHEXB:    LD    A,(HL)
  1744.     CP    0AH
  1745.     JP    C,NO2CH
  1746.     CALL    XO0
  1747.     LD    A,'H'
  1748.     CALL    TYPE
  1749.     JP    CRLF
  1750. ;
  1751. NO2CH:    ADD    '0'
  1752.     CALL    TYPE
  1753.     JP    CRLF
  1754. ;
  1755. TYPE6:    CALL    TABC
  1756.     LD    HL,(PGPTR)
  1757.     LD    A,(HL)
  1758.     CALL    XR
  1759.     CALL    COMMA
  1760. PRT2X:    LD    HL,(PGPTR)
  1761.     INC    HL
  1762.     LD    E,(HL)
  1763.     INC    HL
  1764.     LD    D,(HL)
  1765. L106E:    PUSH    DE
  1766.     CALL    L17EA
  1767.     JP    NC,L1084
  1768.     LD    A,(SYBFLG)
  1769.     OR    A
  1770.     JP    Z,L108D
  1771.     POP    DE
  1772.     PUSH    DE
  1773.     CALL    L173A
  1774.     JP    L108D
  1775. ;
  1776. L1084:    CALL    PSTRG
  1777.     LD    A,(TRMFLG)
  1778.     OR    A
  1779.     JP    Z,TRMLB2
  1780.     POP    DE
  1781.     JP    CRLF
  1782. TRMLB2:    CALL    TABC
  1783.     CALL    SEMIC
  1784. L108D:    POP    DE
  1785.     LD    A,D
  1786.     OR    E
  1787.     LD    A,'0'
  1788.     JP    Z,L10A3
  1789.     LD    A,D
  1790.     OR    A
  1791.     JP    Z,L10A9
  1792.     CALL    XO0
  1793.     LD    A,E
  1794.     CALL    XO
  1795. L10A1:    LD    A,'H'
  1796. L10A3:    CALL    TYPE
  1797.     JP    CRLF
  1798. ;
  1799. L10A9:    LD    A,E
  1800.     CP    0AH
  1801.     JP    C,L10B5
  1802.     CALL    XO0
  1803.     JP    L10A1
  1804. ;
  1805. L10B5:    ADD    '0'
  1806.     JP    L10A3
  1807. ;
  1808. TYPE7:    CALL    TABC
  1809.     JP    PRT2X
  1810. ;
  1811. TYPE8:    CALL    GETCC
  1812.     JP    TYPE7
  1813. ;
  1814. TYPE9:    CALL    GETCC
  1815.     JP    CRLF
  1816. ;
  1817. TYP10:    CALL    TABC
  1818.     LD    HL,(PGPTR)
  1819.     LD    A,(HL)
  1820.     RRA    
  1821.     RRA    
  1822.     RRA    
  1823.     AND    7
  1824.     OR    '0'
  1825.     CALL    TYPE
  1826.     JP    CRLF
  1827. ;
  1828. TYP21:    CALL    INCPC         ;THEN FALL THRU
  1829. ;
  1830. TYP11:    CALL    TABC
  1831.     CALL    REGM
  1832. CMREG:    CALL    COMMA
  1833.     JP    T1B
  1834. ;
  1835. PRTRL:    LD    C,L
  1836.     LD    A,H
  1837.     JP    PRT2X
  1838. ;
  1839. TYP13:    INC    HL
  1840.     LD    (PGPTR),HL
  1841.     LD    B,(HL)
  1842.     LD    HL,EDTBL-7
  1843.     CALL    INCPC
  1844.     JP    L0F2D
  1845. ;
  1846. TYP14:    LD    A,'X'
  1847.     JP    IXIYC
  1848. ;
  1849. TYP15:    LD    A,'Y'
  1850. ;
  1851. IXIYC:    LD    (INDX),A
  1852.     CALL    INCPC         ;ACCNT FOR PREFIX BYTE
  1853.     INC    HL         ;SKIP DD/FD
  1854.     LD    A,(HL)         ;BYTE 2 MAY BE OPCODE
  1855.     CP    0CBH
  1856.     JP    NZ,IXIYT
  1857.     INC    HL
  1858.     LD    A,(HL)
  1859.     LD    (DISPL),A    ;FROM THIRD BYTE
  1860. TYP12:    INC    HL
  1861.     LD    B,(HL)         ;ACTUAL OPCODE HERE
  1862.     LD    (PGPTR),HL
  1863.     CALL    INCPC
  1864.     LD    HL,CBTBL-7
  1865.     JP    L0F2D
  1866. ;
  1867. IXIYT:    PUSH    AF
  1868.     LD    (PGPTR),HL   ;SAVE OPCODE PNTR
  1869.     INC    HL
  1870.     LD    A,(HL)
  1871.     LD    (DISPL),A    ;FROM THIRD BYTE
  1872.     POP    AF         ;RECOV OPCODE
  1873.     LD    B,A
  1874.     LD    HL,DDTBL-7
  1875.     JP    L0F2D
  1876. ;
  1877. TYP16:    CALL    TABC
  1878.     INC    HL
  1879.     LD    A,(HL)
  1880.     CALL    INCPC
  1881.     LD    HL,(PCNTR)
  1882.     LD    E,A
  1883.     LD    D,0
  1884.     CP    D
  1885.     JP    P,NTNEG
  1886.     DEC    D
  1887. NTNEG:    ADD    HL,DE
  1888.     EX    DE,HL
  1889.     JP    L106E
  1890. ;
  1891. TYP17:    LD    A,(HL)
  1892.     RRA    
  1893.     RRA    
  1894.     AND    6
  1895.     PUSH    HL
  1896.     CALL    PCC
  1897.     POP    HL
  1898.     JP    TYP16
  1899. ;
  1900. TYP18:    CALL    TABC
  1901.     LD    A,(HL)
  1902.     RRA    
  1903.     RRA    
  1904.     RRA    
  1905.     AND    7
  1906.     OR    '0'
  1907.     CALL    TYPE
  1908.     JP    CMREG
  1909. ;
  1910. TYP19:    CALL    TABC
  1911.     LD    A,(INDX)
  1912.     CALL    TYPE
  1913.     JP    CRLF
  1914. ;
  1915. TYP20:    LD    (PGPTR),HL
  1916.     CALL    TABC
  1917.     LD    A,(INDX)
  1918.     CALL    TYPE
  1919.     CALL    COMMA
  1920.     CALL    INCPC
  1921.     CALL    INCPC
  1922.     JP    PRT2X
  1923. ;
  1924. XADSP:    LD    A,(INDX)
  1925.     OR    A
  1926.     LD    A,'M'
  1927.     JP    Z,TYPE
  1928.     INC    HL
  1929.     LD    A,(HL)
  1930.     PUSH    HL
  1931.     LD    A,(DISPL)
  1932.     LD    H,A
  1933.     OR    A
  1934.     JP    P,POSIT
  1935.     LD    A,'-'
  1936.     CALL    TYPE
  1937.     LD    A,H
  1938.     CPL    
  1939.     INC    A
  1940. POSIT:    CP    64H
  1941.     JP    C,LT100
  1942.     SBC    64H
  1943.     LD    H,A
  1944.     LD    A,'1'
  1945.     CALL    TYPE
  1946.     LD    A,H
  1947. LT100:    LD    L,0
  1948. TENLP:    SUB    0AH
  1949.     JP    M,TENOK
  1950.     INC    L
  1951.     JP    TENLP
  1952. ;
  1953. TENOK:    ADD    0AH
  1954.     LD    H,A
  1955.     LD    A,'0'
  1956.     ADD    L
  1957.     CALL    TYPE
  1958.     LD    A,H
  1959.     ADD    '0'
  1960.     POP    HL
  1961.     CALL    TYPE
  1962.     LD    HL,INDX-1
  1963.     LD    B,3
  1964.     JP    PSTRG
  1965. ;
  1966. COMMA:    LD    A,','
  1967.     JP    TYPE
  1968. ;
  1969. TABC:    LD    A,9
  1970.     JP    TYPE
  1971. ;
  1972. SEMIC:    LD    A,';'
  1973.     JP    TYPE
  1974. ;
  1975. PRDB:    CALL    L1A7E
  1976.     DEFB    '.BYTE',9,0
  1977.     LD    A,(INDX)
  1978.     OR    A
  1979.     JP    Z,DB1PR
  1980.     LD    HL,(PGPTR)
  1981.     DEC    HL
  1982.     LD    A,(HL)
  1983.     CALL    XO0
  1984.     LD    A,'H'
  1985.     CALL    TYPE
  1986.     CALL    COMMA
  1987. DB1PR:    LD    A,4
  1988.     LD    (INTYP),A
  1989.     JP    L1017
  1990. ;
  1991. GETCC:    LD    HL,(PGPTR)
  1992.     LD    A,(HL)
  1993.     RRA    
  1994.     RRA    
  1995.     AND    0EH
  1996. PCC:    LD    HL,CCTAB
  1997.     CALL    ADDF
  1998.     LD    A,(HL)
  1999.     CALL    TYPE
  2000.     INC    HL
  2001.     LD    A,(HL)
  2002.     CP    '.'
  2003.     CALL    NZ,TYPE
  2004.     RET    
  2005. ;
  2006. QCHAR:    PUSH    AF
  2007.     LD    A,27H
  2008.     CALL    TYPE
  2009.     POP    AF
  2010.     CP    27H
  2011.     JP    NZ,TYPE
  2012.     PUSH    AF
  2013.     CALL    TYPE
  2014.     POP    AF
  2015.     JP    TYPE
  2016. ;
  2017. XR:    LD    HL,(PGPTR)
  2018.     LD    A,(HL)
  2019.     RRA    
  2020.     RRA    
  2021.     RRA    
  2022.     AND    6
  2023.     CP    6
  2024.     JP    NZ,L127A
  2025.     LD    A,(HL)
  2026.     AND    0CFH
  2027.     CP    0C1H
  2028.     JP    Z,L1264
  2029.     CP    0C5H
  2030.     JP    Z,L1264
  2031.     LD    A,'S'
  2032.     CALL    TYPE
  2033.     LD    A,'P'
  2034.     JP    TYPE
  2035. ;
  2036. L1264:    CALL    L1A7E
  2037.     LD    D,B
  2038.     LD    D,E
  2039.     LD    D,A
  2040.     NOP    
  2041.     RET    
  2042. ;
  2043. REGM:    LD    HL,(PGPTR)
  2044.     LD    A,(HL)
  2045.     RRA    
  2046.     RRA    
  2047.     RRA    
  2048.     JP    L127A
  2049. ;
  2050. REG:    LD    HL,(PGPTR)
  2051.     LD    A,(HL)
  2052. L127A:    LD    HL,REGTBL
  2053.     AND    7
  2054.     CALL    ADDF
  2055.     LD    A,(HL)
  2056.     CP    'M'
  2057.     JP    Z,XADSP
  2058.     JP    TYPE
  2059. ;
  2060. ADDF:    ADD    L
  2061.     LD    L,A
  2062.     RET    NC
  2063.     INC    H
  2064.     RET    
  2065. ;
  2066. XO0:    CP    0A0H
  2067.     JP    C,XO
  2068.     PUSH    AF
  2069.     LD    A,'0'
  2070.     CALL    TYPE
  2071.     POP    AF
  2072.     JP    XO
  2073. ;
  2074. PSTRG:    LD    A,(HL)
  2075.     CALL    TYPE
  2076.     INC    HL
  2077.     DEC    B
  2078.     JP    NZ,PSTRG
  2079.     RET    
  2080. ;
  2081. CCTAB:    DEFB    'NZ'
  2082.     DEFB    'Z.'
  2083.     DEFB    'NC'
  2084.     DEFB    'C.'
  2085.     DEFB    'PO'
  2086.     DEFB    'PE'
  2087.     DEFB    'P.'
  2088.     DEFB    'M.'
  2089. ;
  2090. REGTBL:    DEFB    'BCDE'
  2091.     DEFB    'HLMA'
  2092. ;
  2093. OPCT:    DEFB    0FFH,0CBH,12,'.....'
  2094.     DEFB    0FFH,0EDH,13,'.....'
  2095.     DEFB    0FFH,0DDH,14,'.....'
  2096.     DEFB    0FFH,0FDH,15,'.....'
  2097.     DEFB    0FFH,0CEH,5,'ACI..'
  2098.     DEFB    0F8H,88H,1,'ADC..'
  2099.     DEFB    0F8H,80H,1,'ADD..'
  2100.     DEFB    0FFH,0C6H,5,'ADI..'
  2101.     DEFB    0F8H,0A0H,1,'ANA..'
  2102.     DEFB    0FFH,0E6H,5,'ANI..'
  2103.     DEFB    0C7H,0C4H,8,'C....'
  2104.     DEFB    0FFH,0CDH,7,'CALL.'
  2105.     DEFB    0FFH,2FH,0,'CMA..'
  2106.     DEFB    0FFH,3FH,0,'CMC..'
  2107.     DEFB    0F8H,0B8H,1,'CMP..'
  2108.     DEFB    0FFH,0FEH,5,'CPI..'
  2109.     DEFB    0FFH,27H,0,'DAA..'
  2110.     DEFB    0CFH,9,3,'DAD..'
  2111.     DEFB    0C7H,5,2,'DCR..'
  2112.     DEFB    0CFH,0BH,3,'DCX..'
  2113.     DEFB    0FFH,0F3H,0,'DI...'
  2114.     DEFB    0FFH,10H,16,'DJNZ.'
  2115.     DEFB    0FFH,0FBH,0,'EI...'
  2116.     DEFB    0FFH,8,40H,'EXAF.'
  2117.     DEFB    0FFH,0D9H,40H,'EXX..'
  2118.     DEFB    0FFH,76H,0,'HLT..'
  2119.     DEFB    0FFH,0DBH,5,'IN...'
  2120.     DEFB    0C7H,4,2,'INR..'
  2121.     DEFB    0CFH,3,3,'INX..'
  2122.     DEFB    0C7H,0C2H,8,'J....'
  2123.     DEFB    0FFH,0C3H,7,'JMP..'
  2124.     DEFB    0FFH,18H,16,'JMPR.'
  2125.     DEFB    0E7H,20H,17,'JR...'
  2126.     DEFB    0FFH,3AH,7,'LDA..'
  2127.     DEFB    0EFH,0AH,3,'LDAX.'
  2128.     DEFB    0FFH,2AH,7,'LHLD.'
  2129.     DEFB    0CFH,1,6,'LXI..'
  2130.     DEFB    0C0H,40H,11,'MOV..'
  2131.     DEFB    0C7H,6,4,'MVI..'
  2132.     DEFB    0FFH,0,0,'NOP..'
  2133.     DEFB    0F8H,0B0H,1,'ORA..'
  2134.     DEFB    0FFH,0F6H,5,'ORI..'
  2135.     DEFB    0FFH,0D3H,5,'OUT..'
  2136.     DEFB    0FFH,0E9H,0,'PCHL.'
  2137.     DEFB    0CFH,0C1H,3,'POP..'
  2138.     DEFB    0CFH,0C5H,3,'PUSH.'
  2139.     DEFB    0C7H,0C0H,9,'R....'
  2140.     DEFB    0FFH,17H,0,'RAL..'
  2141.     DEFB    0FFH,1FH,0,'RAR..'
  2142.     DEFB    0FFH,0C9H,0,'RET..'
  2143.     DEFB    0FFH,0FH,0,'RRC..'
  2144.     DEFB    0FFH,7,0,'RLC..'
  2145.     DEFB    0C7H,0C7H,10,'RST..'
  2146.     DEFB    0F8H,98H,1,'SBB..'
  2147.     DEFB    0FFH,0DEH,5,'SBI..'
  2148.     DEFB    0FFH,22H,7,'SHLD.'
  2149.     DEFB    0FFH,0F9H,0,'SPHL.'
  2150.     DEFB    0FFH,32H,7,'STA..'
  2151.     DEFB    0EFH,2,3,'STAX.'
  2152.     DEFB    0FFH,37H,0,'STC..'
  2153.     DEFB    0F8H,90H,1,'SUB..'
  2154.     DEFB    0FFH,0D6H,5,'SUI..'
  2155.     DEFB    0FFH,0EBH,0,'XCHG.'
  2156.     DEFB    0F8H,0A8H,1,'XRA..'
  2157.     DEFB    0FFH,0EEH,5,'XRI..'
  2158.     DEFB    0FFH,0E3H,0,'XTHL.'
  2159.     DEFB    0
  2160. ;
  2161. CBTBL:    DEFB    0C0H,40H,18,'BIT..'
  2162.     DEFB    0C0H,80H,18,'RES..'
  2163.     DEFB    0C0H,0C0H,18,'SET..'
  2164.     DEFB    0F8H,0,1,'RLCR.'
  2165.     DEFB    0F8H,8,1,'RRCR.'
  2166.     DEFB    0F8H,10H,1,'RALR.'
  2167.     DEFB    0F8H,18H,1,'RARR.'
  2168.     DEFB    0F8H,20H,1,'SLAR.'
  2169.     DEFB    0F8H,28H,1,'SRAR.'
  2170.     DEFB    0F8H,38H,1,'SRLR.'
  2171.     DEFB    0
  2172. ;
  2173. EDTBL:    DEFB    0FFH,43H,7,'SBCD.'
  2174.     DEFB    0FFH,53H,7,'SDED.'
  2175.     DEFB    0FFH,73H,7,'SSPD.'
  2176.     DEFB    0FFH,4BH,7,'LBCD.'
  2177.     DEFB    0FFH,5BH,7,'LDED.'
  2178.     DEFB    0FFH,4FH,0,'STAR.'
  2179.     DEFB    0FFH,5FH,0,'LDAR.'
  2180.     DEFB    0FFH,47H,0,'STAI.'
  2181.     DEFB    0FFH,57H,0,'LDAI.'
  2182.     DEFB    0FFH,7BH,7,'LSPD.'
  2183.     DEFB    0FFH,44H,0,'NEG..'
  2184.     DEFB    0FFH,45H,0,'RETN.'
  2185.     DEFB    0FFH,4DH,0,'RETI.'
  2186.     DEFB    0FFH,46H,0,'IM0..'
  2187.     DEFB    0FFH,56H,0,'IM1..'
  2188.     DEFB    0FFH,5EH,0,'IM2..'
  2189.     DEFB    0FFH,0A0H,0,'LDI..'
  2190.     DEFB    0FFH,0B0H,0,'LDIR.'
  2191.     DEFB    0FFH,0A8H,0,'LDD..'
  2192.     DEFB    0FFH,0B8H,0,'LDDR.'
  2193.     DEFB    0FFH,0A1H,0,'CCI..'
  2194.     DEFB    0FFH,0B1H,0,'CCIR.'
  2195.     DEFB    0FFH,0A9H,0,'CCD..'
  2196.     DEFB    0FFH,0B9H,0,'CCDR.'
  2197.     DEFB    0FFH,0A2H,0,'INI..'
  2198.     DEFB    0FFH,0B2H,0,'INIR.'
  2199.     DEFB    0FFH,0AAH,0,'IND..'
  2200.     DEFB    0FFH,0BAH,0,'INDR.'
  2201.     DEFB    0FFH,0A3H,0,'OUTI.'
  2202.     DEFB    0FFH,0B3H,0,'OUTIR'
  2203.     DEFB    0FFH,0ABH,0,'OUTD.'
  2204.     DEFB    0FFH,0BBH,0,'OUTDR'
  2205.     DEFB    0CFH,42H,3,'DSBC.'
  2206.     DEFB    0CFH,4AH,3,'DADC.'
  2207.     DEFB    0FFH,67H,0,'RRD..'
  2208.     DEFB    0FFH,6FH,0,'RLD..'
  2209.     DEFB    0C7H,40H,2,'INP..'
  2210.     DEFB    0C7H,41H,2,'OUTP.'
  2211.     DEFB    0CFH,42H,3,'DSBC.'
  2212.     DEFB    0CFH,4AH,3,'DADC.'
  2213.     DEFB    0
  2214. ;
  2215. DDTBL:    DEFB    0FFH,29H,19,'DAD',1,'.'
  2216.     DEFB    0CFH,9,3,'DAD',1,'.'
  2217.     DEFB    0FFH,0E1H,19,'POP..'
  2218.     DEFB    0FFH,0E5H,19,'PUSH.'
  2219.     DEFB    0FFH,22H,7,'SI',1,'D.'
  2220.     DEFB    0FFH,2AH,7,'LI',1,'D.'
  2221.     DEFB    0FFH,23H,19,'INX..'
  2222.     DEFB    0FFH,2BH,19,'DCX..'
  2223.     DEFB    0C7H,46H,21,'MOV..'
  2224.     DEFB    0F8H,70H,21,'MOV..'
  2225.     DEFB    0FFH,86H,22,'ADD..'
  2226.     DEFB    0FFH,8EH,22,'ADC..'
  2227.     DEFB    0FFH,96H,22,'SUB..'
  2228.     DEFB    0FFH,9EH,22,'SBB..'
  2229.     DEFB    0FFH,0A6H,22,'ANA..'
  2230.     DEFB    0FFH,0AEH,22,'XRA..'
  2231.     DEFB    0FFH,0B6H,22,'ORA..'
  2232.     DEFB    0FFH,0BEH,22,'CMP..'
  2233.     DEFB    0FFH,34H,23,'INR..'
  2234.     DEFB    0FFH,35H,23,'DCR..'
  2235.     DEFB    0FFH,36H,24,'MVI..'
  2236.     DEFB    0FFH,21H,20,'LXI..'
  2237.     DEFB    0FFH,0F9H,0,'SPI',1,'.'
  2238.     DEFB    0FFH,0E3H,0,'XTI',1,'.'
  2239.     DEFB    0FFH,0E9H,0,'PCI',1,'.'
  2240.     DEFB    0
  2241. ;
  2242. L173A:    LD    HL,CMDBUF
  2243.     LD    (HL),'L'
  2244.     INC    HL
  2245.     LD    A,D
  2246.     CALL    L189F
  2247.     LD    A,E
  2248.     CALL    L189F
  2249.     LD    HL,CMDBUF
  2250.     LD    B,5
  2251. L174D:    CALL    L1798
  2252.     JP    C,L1757
  2253.     LD    (HL),E
  2254.     INC    HL
  2255.     LD    (HL),D
  2256.     RET    
  2257. ;
  2258. L1757:    PUSH    HL
  2259.     PUSH    DE
  2260.     PUSH    BC
  2261.     LD    HL,(SYMTP)
  2262.     LD    D,H
  2263.     LD    E,L
  2264.     LD    A,B
  2265.     ADD    3
  2266.     ADD    L
  2267.     LD    L,A
  2268.     LD    A,H
  2269.     ADC    0
  2270.     LD    H,A
  2271.     LD    (SYMTP),HL
  2272.     INC    HL
  2273.     INC    HL
  2274.     LD    (HL),0
  2275.     DEC    HL
  2276.     DEC    HL
  2277.     LD    B,H
  2278.     LD    C,L
  2279.     LD    HL,(L1B4B)
  2280. L1776:    LD    A,E
  2281.     CP    L
  2282.     JP    NZ,L1780
  2283.     LD    A,D
  2284.     CP    H
  2285.     JP    Z,L1787
  2286. L1780:    DEC    DE
  2287.     DEC    BC
  2288.     LD    A,(DE)
  2289.     LD    (BC),A
  2290.     JP    L1776
  2291. ;
  2292. L1787:    POP    BC
  2293.     POP    DE
  2294.     LD    (HL),E
  2295.     INC    HL
  2296.     LD    (HL),D
  2297.     INC    HL
  2298.     LD    (HL),B
  2299.     POP    DE
  2300. L178F:    INC    HL
  2301.     LD    A,(DE)
  2302.     LD    (HL),A
  2303.     INC    DE
  2304.     DEC    B
  2305.     JP    NZ,L178F
  2306.     RET    
  2307. ;
  2308. L1798:    PUSH    DE
  2309.     PUSH    HL
  2310.     LD    HL,SYMTBL
  2311. L179D:    POP    DE
  2312.     PUSH    DE
  2313.     INC    HL
  2314.     INC    HL
  2315.     PUSH    HL
  2316.     LD    A,(HL)
  2317.     INC    HL
  2318.     OR    A
  2319.     JP    Z,L17E0
  2320.     CP    B
  2321.     JP    C,L17CC
  2322.     JP    NZ,L17D6
  2323.     LD    C,A
  2324.     CALL    CMPSTR
  2325.     JP    Z,L17C5
  2326.     JP    C,L17E0
  2327. L17B9:    POP    HL
  2328.     LD    A,(HL)
  2329.     INC    HL
  2330.     ADD    L
  2331.     LD    L,A
  2332.     JP    NC,L179D
  2333.     INC    H
  2334.     JP    L179D
  2335. ;
  2336. L17C5:    POP    HL
  2337.     DEC    HL
  2338.     DEC    HL
  2339.     POP    DE
  2340.     POP    DE
  2341.     OR    A
  2342.     RET    
  2343. ;
  2344. L17CC:    LD    C,A
  2345.     CALL    CMPSTR
  2346.     JP    NC,L17B9
  2347.     JP    L17E0
  2348. ;
  2349. L17D6:    LD    C,B
  2350.     CALL    CMPSTR
  2351.     JP    Z,L17E0
  2352.     JP    NC,L17B9
  2353. L17E0:    POP    HL
  2354.     DEC    HL
  2355.     DEC    HL
  2356.     LD    (L1B4B),HL
  2357.     POP    HL
  2358.     POP    DE
  2359.     SCF    
  2360.     RET    
  2361. ;
  2362. L17EA:    LD    HL,SYMTBL
  2363. L17ED:    LD    A,(HL)
  2364.     INC    HL
  2365.     CP    E
  2366.     JP    NZ,L17F8
  2367.     LD    A,(HL)
  2368.     CP    D
  2369.     JP    Z,L1807
  2370. L17F8:    INC    HL
  2371.     LD    A,(HL)
  2372.     OR    A
  2373.     SCF    
  2374.     RET    Z
  2375.     INC    HL
  2376.     ADD    L
  2377.     LD    L,A
  2378.     JP    NC,L17ED
  2379.     INC    H
  2380.     JP    L17ED
  2381. ;
  2382. L1807:    INC    HL
  2383.     LD    A,(HL)
  2384.     INC    HL
  2385.     LD    B,A
  2386.     OR    A
  2387.     RET    NZ
  2388.     SCF    
  2389.     RET    
  2390. ;
  2391. CMENTR:    LD    HL,CMDBUF+3
  2392.     CALL    GTVAL
  2393.     LD    A,(HL)
  2394.     CP    ' '
  2395.     JP    Z,L1820
  2396.     CP    ','
  2397.     JP    NZ,CMERR
  2398. L1820:    INC    HL
  2399.     LD    A,(HL)
  2400.     CP    '.'
  2401.     JP    NZ,CMERR
  2402.     PUSH    DE
  2403.     CALL    L1872
  2404.     POP    DE
  2405.     CALL    L174D
  2406.     JP    NXCMD
  2407. ;
  2408.     RET    
  2409. ;
  2410. CMKILL:    LD    HL,CMDBUF+3
  2411.     LD    A,(HL)
  2412.     CP    '.'
  2413.     JP    NZ,CMERR
  2414.     CALL    L1872
  2415.     CALL    L1798
  2416.     JP    C,CMERR
  2417.     LD    B,H
  2418.     LD    C,L
  2419.     INC    HL
  2420.     INC    HL
  2421.     LD    A,(HL)
  2422.     ADD    L
  2423.     LD    L,A
  2424.     LD    A,H
  2425.     ADC    0
  2426.     LD    H,A
  2427.     INC    HL
  2428.     EX    DE,HL
  2429.     LD    HL,(SYMTP)
  2430. L1855:    LD    A,E
  2431.     CP    L
  2432.     JP    NZ,L185F
  2433.     LD    A,D
  2434.     CP    H
  2435.     JP    Z,L1866
  2436. L185F:    LD    A,(DE)
  2437.     LD    (BC),A
  2438.     INC    BC
  2439.     INC    DE
  2440.     JP    L1855
  2441. ;
  2442. L1866:    LD    H,B
  2443.     LD    L,C
  2444.     LD    (SYMTP),HL
  2445.     INC    HL
  2446.     INC    HL
  2447.     LD    (HL),0
  2448.     JP    NXCMD
  2449. ;
  2450. L1872:    INC    HL
  2451.     LD    B,0
  2452.     PUSH    HL
  2453. L1876:    LD    A,(HL)
  2454.     INC    HL
  2455.     INC    B
  2456.     CP    '+'
  2457.     JP    Z,L1876
  2458.     CP    '-'
  2459.     JP    Z,L1876
  2460.     CP    '0'
  2461.     JP    C,L1897
  2462.     CP    ':'
  2463.     JP    C,L1876
  2464.     CP    'A'
  2465.     JP    C,L1897
  2466.     CP    5BH
  2467.     JP    C,L1876
  2468. L1897:    DEC    B
  2469.     JP    Z,CMERR
  2470.     DEC    HL
  2471.     EX    DE,HL
  2472.     POP    HL
  2473.     RET    
  2474. ;
  2475. L189F:    PUSH    AF
  2476.     CALL    HEXL
  2477.     LD    (HL),A
  2478.     INC    HL
  2479.     POP    AF
  2480.     CALL    HEXR
  2481.     LD    (HL),A
  2482.     INC    HL
  2483.     RET    
  2484. ;
  2485. HEXL:    RRA    
  2486.     RRA    
  2487.     RRA    
  2488.     RRA    
  2489. HEXR:    AND    0FH
  2490.     CP    0AH
  2491.     JP    C,HEXRN
  2492.     ADD    7
  2493. HEXRN:    ADD    '0'
  2494.     RET    
  2495. ;
  2496. XO:    PUSH    AF
  2497.     CALL    HEXL
  2498.     CALL    TYPE
  2499.     POP    AF
  2500.     CALL    HEXR
  2501.     JP    TYPE
  2502. ;
  2503. PRWORD:    LD    A,H
  2504.     CALL    XO
  2505.     LD    A,L
  2506.     CALL    XO
  2507. PRSPC:    LD    A,' '
  2508.     JP    TYPE
  2509. ;
  2510. GTVAL:    LD    A,(HL)
  2511.     CP    '.'
  2512.     JP    Z,GTSYMB
  2513.     LD    DE,0
  2514. HEXBI:    LD    A,(HL)
  2515.     CP    '0'
  2516.     RET    C
  2517.     CP    ':'
  2518.     JP    C,CVNUM
  2519.     CP    'A'
  2520.     RET    C
  2521.     CP    'G'
  2522.     RET    NC
  2523.     SUB    7
  2524. CVNUM:    SUB    '0'
  2525.     EX    DE,HL
  2526.     ADD    HL,HL
  2527.     ADD    HL,HL
  2528.     ADD    HL,HL
  2529.     ADD    HL,HL
  2530.     ADD    L
  2531.     LD    L,A
  2532.     EX    DE,HL
  2533.     INC    HL
  2534.     JP    HEXBI
  2535. ;
  2536. GTSYMB:    CALL    L1872
  2537.     PUSH    DE
  2538.     CALL    L1798
  2539.     JP    C,CMERR
  2540.     LD    E,(HL)
  2541.     INC    HL
  2542.     LD    D,(HL)
  2543.     POP    HL
  2544.     LD    A,(HL)
  2545.     RET    
  2546. ;
  2547. FOPEN:    PUSH    HL
  2548.     LD    HL,START
  2549.     LD    (OFIPTR),HL
  2550.     XOR    A
  2551.     LD    (FCB+32),A
  2552.     LD    DE,FCB
  2553.     LD    C,0FH
  2554.     CALL    BDOS
  2555.     POP    HL
  2556.     INC    A
  2557.     RET    NZ
  2558.     CALL    PRTSTR
  2559.     DEFB    '++FILE NOT FOUND',0DH,0AH
  2560.     DEFB    0
  2561.     JP    NXCMD
  2562. ;
  2563. RDFCHR:    PUSH    HL
  2564.     LD    HL,(OFIPTR)
  2565.     LD    A,H
  2566.     CP    1
  2567.     JP    NZ,L195B
  2568.     PUSH    BC
  2569.     PUSH    DE
  2570.     LD    DE,FCB
  2571.     LD    C,14H
  2572.     CALL    BDOS
  2573.     OR    A
  2574.     POP    DE
  2575.     POP    BC
  2576.     LD    HL,TBUF
  2577.     JP    NZ,L1962
  2578. L195B:    LD    A,(HL)
  2579.     INC    HL
  2580.     LD    (OFIPTR),HL
  2581.     POP    HL
  2582.     RET    
  2583. ;
  2584. L1962:    CP    3
  2585.     JP    C,L1980
  2586.     CALL    PRTSTR
  2587.     DEFB    '++UNEXPECTED EOF',0DH,0AH
  2588.     DEFB    0
  2589.     JP    NXCMD
  2590. ;
  2591. L1980:    LD    A,1AH
  2592.     LD    (HL),A
  2593.     JP    L195B
  2594. ;
  2595. L1986:    PUSH    HL
  2596.     LD    DE,FCB
  2597.     LD    C,13H
  2598.     CALL    BDOS
  2599.     LD    DE,FCB
  2600.     LD    C,16H
  2601.     CALL    BDOS
  2602.     INC    A
  2603.     JP    Z,CMERR
  2604.     XOR    A
  2605.     LD    (FCB+32),A
  2606.     LD    HL,TBUF
  2607.     LD    (OFIPTR),HL
  2608.     POP    HL
  2609.     RET    
  2610. ;
  2611. L19A7:    LD    DE,FCB
  2612.     LD    C,15H
  2613.     CALL    BDOS
  2614.     OR    A
  2615.     JP    NZ,L19D3
  2616.     LD    DE,FCB
  2617.     LD    C,10H
  2618.     CALL    BDOS
  2619.     INC    A
  2620.     RET    NZ
  2621.     CALL    PRTSTR
  2622.     DEFB    '++CLOSE ERROR',0DH,0AH
  2623.     NOP    
  2624.     JP    NXCMD
  2625. ;
  2626. L19D3:    CALL    PRTSTR
  2627.     DEFB    '++WRITE ERROR',0DH,0AH
  2628.     NOP    
  2629. L19E6:    PUSH    HL
  2630.     LD    HL,(OFIPTR)
  2631.     LD    (HL),A
  2632.     INC    L
  2633.     LD    (OFIPTR),HL
  2634.     POP    HL
  2635.     RET    NZ
  2636.     PUSH    BC
  2637.     PUSH    DE
  2638.     PUSH    HL
  2639.     LD    DE,FCB
  2640.     LD    C,15H
  2641.     CALL    BDOS
  2642.     OR    A
  2643.     JP    NZ,L19D3
  2644.     LD    HL,TBUF
  2645.     LD    (OFIPTR),HL
  2646.     POP    HL
  2647.     POP    DE
  2648.     POP    BC
  2649.     RET    
  2650. ;
  2651. CRLF:    LD    A,0DH
  2652.     CALL    TYPE
  2653.     LD    A,0AH
  2654.     JP    TYPE
  2655. ;
  2656. PSTAR:    LD    A,'*'
  2657. TYPE:    PUSH    BC
  2658.     PUSH    DE
  2659.     PUSH    HL
  2660.     LD    E,A
  2661.     PUSH    DE
  2662.     LD    C,2
  2663.     LD    A,(QUIFLG)
  2664.     OR    A
  2665.     CALL    Z,BDOS
  2666.     POP    DE
  2667.     LD    A,(WRTFLG)
  2668.     LD    HL,WFIFLG
  2669.     AND    (HL)
  2670.     LD    A,E
  2671.     CALL    NZ,L19E6
  2672.     LD    A,E
  2673.     CP    0AH
  2674.     JP    NZ,L1A41
  2675.     LD    A,(L1B35)
  2676.     OR    A
  2677.     JP    Z,L1A41
  2678.     LD    HL,LISCNT+1
  2679.     DEC    (HL)
  2680. L1A41:    POP    HL
  2681.     POP    DE
  2682.     POP    BC
  2683.     RET    
  2684. ;
  2685. GTCMD:    CALL    PSTAR
  2686.     LD    DE,CMDBUF
  2687.     LD    A,'N'
  2688.     LD    (DE),A
  2689.     LD    C,0AH
  2690.     CALL    BDOS
  2691.     LD    HL,CMDBUF+1
  2692.     LD    E,(HL)
  2693.     LD    D,0
  2694.     ADD    HL,DE
  2695.     INC    HL
  2696.     LD    (HL),0DH
  2697.     LD    HL,CMDBUF+1
  2698. LTUCNV:    INC    HL
  2699.     LD    A,(HL)
  2700.     CP    0DH
  2701.     JP    Z,CRLF
  2702.     CP    61H
  2703.     JP    C,LTUCNV
  2704.     CP    7BH
  2705.     JP    NC,LTUCNV
  2706.     AND    5FH
  2707.     LD    (HL),A
  2708.     JP    LTUCNV
  2709. ;
  2710. PRTSTR:    XOR    A
  2711.     LD    (WFIFLG),A
  2712.     LD    (QUIFLG),A
  2713. L1A7E:    EX    (SP),HL
  2714. L1A7F:    LD    A,(HL)
  2715.     CALL    TYPE
  2716.     INC    HL
  2717.     LD    A,(HL)
  2718.     OR    A
  2719.     JP    NZ,L1A7F
  2720.     INC    HL
  2721.     EX    (SP),HL
  2722.     RET    
  2723. ;
  2724. INITBL:    XOR    A
  2725.     LD    (SYMTBL+2),A
  2726.     LD    HL,SYMTBL
  2727.     LD    (SYMTP),HL
  2728.     LD    A,0DH
  2729.     LD    (CMDBUF+3),A
  2730.     LD    HL,0FFFFH
  2731.     LD    (CTLTBL),HL
  2732.     LD    A,'I'
  2733.     LD    (CTLTBL-1),A
  2734.     LD    HL,(DOCTBL)
  2735.     LD    A,H
  2736.     OR    L
  2737.     RET    Z
  2738.     LD    (DOCEND),HL
  2739.     LD    (HL),0FFH
  2740.     INC    HL
  2741.     LD    (HL),0FFH
  2742.     RET    
  2743. ;
  2744. CMPSTR:    LD    A,(DE)
  2745.     CP    (HL)
  2746.     RET    NZ
  2747.     INC    DE
  2748.     INC    HL
  2749.     DEC    C
  2750.     JP    NZ,CMPSTR
  2751.     RET    
  2752. ;
  2753. L1ABF:    PUSH    BC
  2754.     PUSH    DE
  2755.     PUSH    HL
  2756.     LD    C,0BH
  2757.     CALL    BDOS
  2758.     OR    A
  2759.     JP    Z,L1AFA
  2760.     LD    C,1
  2761.     CALL    BDOS
  2762.     CP    3
  2763.     JP    Z,ABORT
  2764.     CALL    CRLF
  2765.     JP    NXCMD
  2766. ;
  2767. ABORT:    CALL    PRTSTR
  2768.     DEFB    0DH,0AH,'ABORT Y/N '
  2769.     NOP    
  2770.     LD    C,1
  2771.     CALL    BDOS
  2772.     AND    5FH
  2773.     CP    'Y'
  2774.     JP    Z,0
  2775.     JP    NXCMD
  2776. ;
  2777. L1AFA:    POP    HL
  2778.     POP    DE
  2779.     POP    BC
  2780.     RET    
  2781. ;
  2782. L1AFE:    CP    0DH
  2783.     RET    Z
  2784.     CP    0AH
  2785.     RET    Z
  2786.     OR    A
  2787.     RET    Z
  2788.     CP    ' '
  2789.     RET    C
  2790.     CP    7FH
  2791.     CCF    
  2792.     RET    
  2793. ;
  2794.     DEFB    '('
  2795. INDX:    DEFB    0,')',0
  2796. DISPL:    DEFB    0
  2797. TRMFLG:    DEFB    0
  2798. L1B1B:    DEFW    START
  2799. L1B1D:    DEFW    0180H
  2800. OFFSET:    DEFW    0
  2801. SYMTP:    DEFW    SYMTBL
  2802. PCNTR:    DEFW    START
  2803. L1B25:    DEFW    START
  2804. PGPTR:    DEFW    START
  2805. DOCTBL:    DEFW    0
  2806. DOCEND:    DEFW    0
  2807. L1B2D:    DEFW    0
  2808. L1B2F:    DEFW    0
  2809. DMPCNT:    DEFW    0FFH
  2810. LISCNT:    DEFW    0A16H
  2811. L1B35:    DEFB    1
  2812. ASMLIT:    DEFB    'ASM'
  2813. COMLIT:    DEFB    'COM'
  2814. CTLLIT:    DEFB    'CTL'
  2815. SYMLIT:    DEFB    'SYM'
  2816. DOCLIT:    DEFB    'DOC'
  2817. WFIFLG:    DEFB    0
  2818. WRTFLG:    DEFB    0
  2819. QUIFLG:    DEFB    0
  2820. L1B48:    DEFB    0
  2821. L1B49:    DEFB    0
  2822. L1B4A:    DEFB    0
  2823. L1B4B:    DEFW    0
  2824. OFIPTR:    DEFW    0
  2825. L1B4F:    DEFB    0
  2826. SYBFLG:    DEFB    0
  2827. INTYP:    DEFB    0,0,0
  2828. CMDBUF:    DEFS    002CH
  2829.     END    
  2830.