home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast2.iso / asmutil / xlt86.zip / XLT86.ASM next >
Assembly Source File  |  1985-08-15  |  49KB  |  3,181 lines
  1. ;*******************************************************
  2.     page 60,132
  3. ;
  4. ;            XLT86
  5. ;
  6. ; Translates Intel 8080 assembly language source code
  7. ;  to Intel 8086 assembly language source code.
  8. ;
  9. ; 11/11/84 Frank J. Zerilli
  10. ;
  11. ; 8086 version, 11/20/84
  12. ;
  13. ;
  14. ; MS-DOS version 12/20/84
  15. ;  by Craig Derouen
  16.  
  17. VERS    EQU    110
  18. ;
  19. ;*******************************************************
  20. ;
  21. ;      XLT86 processes lines with the exclamation point
  22. ; statement separator correctly.  It strips trailing
  23. ; blanks or tabs from lines.  It replaces initial
  24. ; asterisks in lines with semicolons.  It provides
  25. ; several options to format the output file for best
  26. ; appearance.
  27. ; 
  28. ;      This program gives the choice of converting the
  29. ; case of instructions to upper or lower case or of
  30. ; trying to preserve the case of instructions.
  31. ; 
  32. ;      An activity dot is printed on the console for
  33. ; every 100 lines of input processed.
  34. ; 
  35. ;
  36. ; 
  37. ; Command line:
  38. ;
  39. ;     XLT86 [d:]srcfile[.typ] [d:destfile.typ]
  40. ;
  41. ;      All parameters in brackets are optional, and, if
  42. ; omitted, the default values are:
  43. ;
  44. ;  Source file-type      -- ASM
  45. ;  Destination file-type -- A86
  46. ;  Destination file-name -- same as the source file-name
  47. ;  Drive                 -- current drive
  48. ;
  49. ; FLAG LOCATIONS:
  50. ;
  51. ; 103H -- Change to non-zero value to suppress
  52. ;      translation of several non-standard opcodes:
  53. ;      REQ, RNE, RLT, RGE, CEQ, CNE, CLT, CGE
  54. ;      JEQ, JNE, JLT, JGE,
  55. ;      ENT, NAM, RAM, ROG, IFC, ICL, LST, MAC
  56. ;
  57. ; 104H -- If non-zero (default) XLT86 converts lines
  58. ;      with multiple statements separated by DR's EP
  59. ;      separator into separate lines.
  60. ;      Change to zero for output on a single line
  61. ;      with the translated statements separated by
  62. ;      EP.
  63. ;
  64. ; 107H--  If zero (default) XLT86 translates
  65. ;
  66. ;        PUSH PSW    POP PSW
  67. ;
  68. ;      to
  69. ;
  70. ;        LAHF        POP AX
  71. ;        PUSH AX        SAHF
  72. ;
  73. ;      Otherwise, the translation is
  74. ;
  75. ;        LAHF        POP AX
  76. ;        XCHG AH,AL    XCHG AH,AL
  77. ;        PUSH AX        SAHF
  78. ;        XCHG AH,AL
  79. ;
  80. ; 108H-- If zero (default) XLT86 translates
  81. ;
  82. ;        INX rp        DCX rp
  83. ;
  84. ;     to
  85. ;
  86. ;        INC rp'        DEC rp'
  87. ;
  88. ;     Otherwise, the translation is
  89. ;
  90. ;        PUSHF        PUSHF
  91. ;        INC rp'        DEC rp'
  92. ;        POPF        POPF
  93. ;
  94. ; 109H-- If zero (default) XLT86 translates
  95. ;
  96. ;        DAD rp
  97. ;
  98. ;     to
  99. ;
  100. ;        ADD BX,rp'
  101. ;
  102. ;     Otherwise, the translation is
  103. ;
  104. ;        PUSHF
  105. ;        ADD BX,rp'
  106. ;        POPF
  107. ;
  108.  
  109. N00    EQU    0
  110. N01    EQU    1
  111. ;
  112. N07    EQU    7
  113. N09    EQU    9        ;tab every 8th col.
  114. NF8    EQU    0F8H        ;mod 8
  115. ;
  116. LBUFLN    EQU    80        ;line buffer length
  117. OPBFLN    EQU    5        ;opcode buffer length
  118. MEMSIZ    EQU    4        ;memory available in Kb
  119. IBNUM    EQU    4*MEMSIZ
  120. OBNUM    EQU    4*MEMSIZ
  121. RECLEN    EQU    128        ;
  122. STCKLN    EQU    128        ;stack size
  123. IBFLEN    EQU    IBNUM*RECLEN
  124. OBFLEN    EQU    OBNUM*RECLEN
  125. ;
  126. CTRLC    EQU    3
  127. EOT    EQU    4
  128. BEL    EQU    7
  129. HT    EQU    9
  130. LF    EQU    0AH
  131. CR    EQU    0DH
  132. ESC    EQU    1BH
  133. QUOTE    EQU    27H
  134. ;
  135.  
  136. code    segment byte
  137.  
  138.     assume cs:code,ds:code
  139.  
  140.     ORG    005CH
  141. DFCB1    DB    16 DUP(?)
  142. DFCB2    DB    16 DUP(?)
  143. ;
  144. FNLEN    EQU    8
  145. EOS    EQU    EOT        ; replacement for exclamation pt
  146. EOF    EQU    1AH
  147. NFF    EQU    0FFH        ;disk error return
  148. ;
  149. ;    BDOS FUNCTIONS
  150. ;
  151. nABT    EQU    0
  152. nCIN    EQU    1
  153. nCOUT    EQU    2
  154. nCDAV    EQU    0BH
  155. nOPEN    EQU    0FH
  156. nCLOSE    EQU    10H
  157. nDEL    EQU    13H
  158. nRDNR    EQU    14H
  159. nWRNR    EQU    15H
  160. nCREAT    EQU    16H
  161. nCDISK    EQU    19H
  162. nDMA    EQU    1AH
  163. ;
  164. ;
  165. ;
  166.     ORG    100H
  167. ;
  168. HERE_FIRST:
  169.  
  170.     JMP    START
  171. ;
  172. ; OPTION FLAGS
  173. ;
  174. PSEFLG    DB    0        ;(103H) 0 to translate non-
  175.                 ;  standard opcodes
  176. MLTLFL    DB    0FFH        ;(104H) 0 to put input line with
  177.                 ;  exc. pt. to output on one line
  178. TCASFL    DB    0        ;(105H) 0 to preserve case
  179.                 ;
  180. LCASFL    DB    0        ;(106H) 0 for upper case if
  181.                 ;  TCASFL not zero
  182. PSWFL    DB    0        ;(107H) non-zero to preserve 8080
  183.                 ;  order of PSW registers on stack
  184. INXFL    DB    0        ;(108H) non-zero to preserve flags
  185.                 ;  with INX and DCX translations
  186. DADFL    DB    0        ;(109H) non-zero to preserve flags
  187.                 ;  with DAD translation
  188.                 
  189. ;
  190. ; BDOS Functions
  191. ;
  192. BDOS:
  193.     INT    21H
  194.     RET
  195.  
  196. ;
  197. ; RETURN TO MSDOS
  198. ;
  199. ABORT:    MOV    AH,4ch
  200.     INT    21h
  201.  
  202. ;
  203. ;  HELP MESSAGE
  204. ;
  205. HMSG1:
  206.  
  207.  DB CR,LF
  208.  DB LF
  209.  DB 'XLT86 translates Intel 8080 assembly language source',CR,LF
  210.  DB 'code into Intel 8086 assembly language source code.',CR,LF
  211.  DB LF
  212.  DB 'It is invoked by a command of the form:',CR,LF
  213.  DB LF
  214.  DB '    XLT86 [d:]srcfile[.typ] [d:destfile.typ]',CR,LF
  215.  DB LF
  216.  DB 'The brackets denote optional parameters and the ',CR,LF
  217.  DB 'default values are:',CR,LF
  218.  DB LF
  219.  DB '    Source file-type      --  ASM',CR,LF
  220.  DB '    Destination file-type --  A86',CR,LF
  221.  DB '    Destination file-name --  same as source file-name',CR,LF
  222.  DB '    Drive                 --  current drive',CR,LF
  223.  DB CR,LF
  224.  DB 'Press any key to continue - ',0
  225.  
  226. HMSG2:
  227.  
  228.  DB CR,LF
  229.  DB LF
  230.  DB 'Examples:',CR,LF
  231.  DB LF
  232.  DB 'XLT86 PRGM1               --translates PRGM1.ASM to PRGM1.A86',CR,LF
  233.  DB 'XLT86 PRGM1 PRGM2         --translates PRGM1.ASM to PRGM2.A86',CR,LF
  234.  DB 'XLT86 PRGM1.TXT PRGM2.MAC --translates PRGM1.TXT to PRGM2.MAC',CR,LF
  235.  DB LF
  236.  DB 'XLT86 also has the following features:',CR,LF
  237.  DB LF
  238.  DB 'Case will be preserved as well as possible -- if an opcode has',CR,LF
  239.  DB 'a lower case character, the translated opcode will be in lower',CR,LF
  240.  DB 'case.',CR,LF
  241.  DB LF
  242.  DB 'All asterisks at the beginning of lines will be replaced with',CR,LF
  243.  DB 'semicolons.',CR,LF
  244.  DB LF
  245.  DB 'A dot is printed on the console for every 100 lines of input ',CR,LF
  246.  DB 'processed.',CR,LF
  247.  DB LF
  248.  DB 0
  249. ;
  250. ;=============================================================================
  251. ;
  252. ; Program begins here
  253. ;
  254. START:
  255.     MOV    AX,SS
  256.     MOV    SSBDOS,AX
  257.     MOV    SPBDOS,SP
  258.  
  259.     MOV    AX,CS
  260.     MOV    SS,AX
  261.     MOV    SP,OFFSET STACK
  262.  
  263.     MOV    AL,DFCB1+1    ; check for a file name
  264.     CMP    AL,' '        ; print help if no name
  265.     JNZ    BEGIN        ; no help requested
  266.     MOV    DX,OFFSET SIGNON
  267.     CALL    PRTLIN
  268.     MOV    DX,OFFSET HMSG1    ; print help message
  269.     CALL    PRTLIN
  270.     MOV    AH,nCIN        ; wait for any character
  271.     CALL    BDOS
  272.     MOV    DX,OFFSET HMSG2    ; print rest of help
  273.     CALL    PRTLIN
  274.  
  275.     MOV    AX,SSBDOS
  276.     MOV    SS,AX        ; retrieve system stack
  277.     MOV    SP,SPBDOS    ;  pointer and pop
  278.     MOV    al,2        ; put in an error code
  279.     MOV    AH,4CH
  280.     INT    21H        ; Return to DOS
  281.  
  282. BEGIN:    CALL    HELLO        ;signon, open in & out files
  283. NXTLIN:    CALL    GETLIN        ;get line from input file to buf
  284.     CALL    PROCLIN        ; process line
  285.     JMP    NXTLIN
  286. ;
  287. ;
  288. ;
  289.  
  290. ;*******************************************************
  291. ;
  292. ;    Print signon, open input
  293. ;    and output files.
  294. ;
  295. HELLO:    MOV    DX,OFFSET SIGNON
  296.     CALL    PRTLIN
  297. HELLO0:    MOV    AL,'D'        ; translate DB & EQU (for
  298.     MOV    OPTBDB,AL    ;  uniform formatting)
  299.     MOV    MLTSPC,HT    ; for opcodes xltd to mlt stmts
  300.     MOV    AL,HT        ; HT after opcode
  301.     MOV    BX,OFFSET PUTHT+1
  302.     MOV    [BX],AL
  303.     MOV    AL,41        ; tab comments to col 33
  304.     MOV    BX,OFFSET PUTND5+1
  305.     MOV    [BX],AL
  306.     MOV    AL,3CH        ; CMP instruction
  307.     MOV    BX,OFFSET EXCLAM
  308.     MOV    [BX],AL
  309.     XOR    AL,AL
  310.     MOV    TCASFL,AL    ; don't convert case
  311.     MOV    LCASFL,AL    ; lower case flag
  312.     MOV    SEPMSG,OFFSET NEWLSP
  313.  
  314.     MOV    AL,PSEFLG    ; translate non-standard
  315.     OR    AL,AL        ;  opcodes ?
  316.     JZ    LBL1
  317.      CALL NXPSD
  318. LBL1:
  319.  
  320.     MOV    DX,OFFSET DBMSG
  321.     CALL    PRTLIN        ;
  322.     CALL    CHKYES        ; xlat DB & EQU ?
  323.     CMP    AL,ESC
  324.     JNZ    LBL2
  325.      JMP HELLO0
  326. LBL2:
  327.     CMP    AL,CTRLC
  328.     JNZ    LBL3
  329.      JMP ABORT
  330. LBL3:
  331.     CMP    AL,'Y'
  332.     JZ    LBL4
  333.      CALL NXDBEQ
  334. LBL4:
  335.  
  336.     MOV    AL,MLTLFL    ; force space after opcode
  337.     OR    AL,AL        ;  if MLTLFL not set
  338.     JNZ    LBL5
  339.      JMP HELLO2
  340. LBL5:
  341.     MOV    DX,OFFSET SPCMSG
  342.     CALL    PRTLIN        ; use space after
  343.     CALL    CHKYES        ; opcode ?
  344.     CMP    AL,ESC
  345.     JNZ    LBL6
  346.      JMP HELLO0
  347. LBL6:
  348.     CMP    AL,CTRLC
  349.     JNZ    LBL7
  350.      JMP ABORT
  351. LBL7:
  352.     CMP    AL,'Y'
  353. HELLO2:    JNZ    LBL8
  354.      CALL SETSPC
  355. LBL8:
  356.  
  357.     MOV    DX,OFFSET COLMSG
  358.     CALL    PRTLIN        ;
  359.     CALL    CHKYES        ; start comment
  360.     CMP    AL,ESC
  361.     JNZ    LBL9
  362.      JMP HELLO0
  363. LBL9:
  364.     CMP    AL,CTRLC
  365.     JNZ    LBL10
  366.      JMP ABORT
  367. LBL10:
  368.     CMP    AL,'Y'
  369.     JNZ    LBL11
  370.      CALL SETCOL ; in column 25 ?
  371. LBL11:
  372.  
  373.     MOV    DX,OFFSET EXCMSG
  374.     CALL    PRTLIN        ; Ignore exclamation point
  375.     CALL    CHKYES        ;  separator ?
  376.     CMP    AL,ESC
  377.     JNZ    LBL12
  378.      JMP HELLO0
  379. LBL12:
  380.     CMP    AL,CTRLC
  381.     JNZ    LBL13
  382.      JMP ABORT
  383. LBL13:
  384.     CMP    AL,'Y'
  385.     JNZ    LBL14
  386.      CALL SETNEX
  387. LBL14:
  388.  
  389.     MOV    DX,OFFSET MLTMSG
  390.     CALL    PRTLIN        ; multiple statements
  391.     CALL    CHKYES        ; on one line ?
  392.     CMP    AL,ESC
  393.     JNZ    LBL15
  394.      JMP HELLO0
  395. LBL15:
  396.     CMP    AL,CTRLC
  397.     JNZ    LBL16
  398.      JMP ABORT
  399. LBL16:
  400.     CMP    AL,'Y'
  401.     JNZ    LBL17
  402.      CALL SETMLT
  403. LBL17:
  404.  
  405.     MOV    DX,OFFSET TRNMSG ; Convert case ?
  406.     CALL    PRTLIN
  407.     CALL    CHKYES
  408.     CMP    AL,ESC
  409.     JNZ    LBL18
  410.      JMP HELLO0
  411. LBL18:
  412.     CMP    AL,CTRLC
  413.     JNZ    LBL19
  414.      JMP ABORT
  415. LBL19:
  416.     CMP    AL,'L'
  417.     JNZ    LBL20
  418.      CALL SETLC
  419. LBL20:
  420.     CMP    AL,'U'
  421.     JNZ    LBL21
  422.      CALL SETUC
  423. LBL21:
  424.  
  425.     MOV    AL,N01
  426.     MOV    COLNUM,AL
  427.  
  428.     MOV    AH,nCDISK
  429.     CALL    BDOS
  430.     INC    AL
  431.     MOV    xCDISK,AL
  432.  
  433.     CALL    MAKFNS
  434.     CALL    OPENIN
  435.     CALL    CREATO
  436.     RET
  437. ;
  438. SIGNON    DB    '8080-to-8086 Translator version '
  439.     DB    VERS/100+'0','.',(VERS MOD 100)/10+'0'
  440.     DB    (VERS MOD 10)+'0'
  441.     DB    CR,LF,0
  442. ;
  443. ; Don't translate non-standard opcodes
  444. ;
  445. NXPSD:    XOR    AL,AL
  446.     MOV    OPTTDL,AL
  447.     MOV    OPTENT,AL
  448.     MOV    OPTIFC,AL
  449.     RET
  450.  
  451. DBMSG    DB    'Translate DB & EQU ? '
  452.     DB    '[Y/ret=N/esc/^C] ',0
  453. ;
  454. NXDBEQ:    XOR    AL,AL
  455.     MOV    OPTBDB,AL
  456.     RET
  457. ;
  458. SPCMSG    DB    'Use space (default TAB) after opcode ? '
  459.     DB    '[Y/ret=N/esc/^C] ',0
  460. ;
  461. SETSPC:    MOV    BX,OFFSET PUTHT+1
  462.     MOV    AL,' '
  463.     MOV    [BX],AL
  464.     MOV    MLTSPC,AL
  465.     RET
  466. ;
  467. COLMSG    DB    'Start comment in column 25 (default 33) ? '
  468.     DB    '[Y/ret=N/esc/^C] ',0
  469. ;
  470. SETCOL:    MOV    BX,OFFSET PUTND5+1
  471.     MOV    AL,33
  472.     MOV    [BX],AL
  473.     RET
  474. ;
  475. EXCMSG    DB    'Ignore statement separator ? '
  476.     DB    '[Y/ret=N/esc/^C] ',0
  477. ;
  478. SETNEX:    MOV    AL,0C3H        ; RET instruction
  479.     MOV    BX,OFFSET EXCLAM
  480.     MOV    [BX],AL
  481.     RET
  482. ;
  483. MLTMSG    DB    'Put opcodes converted to multiple'
  484.     DB    ' statements on one line ? '
  485.     DB    '[Y/ret=N/esc/^C] ',0
  486. ;
  487. SETMLT:    MOV    SEPMSG,OFFSET EXCLSP
  488.     MOV    MLTSPC,' '
  489.     RET
  490.  
  491. ;
  492. TRNMSG    DB    'Translate instructions to Upper/Lower'
  493.     DB    ' or preserve case ? [U/L/ret/esc/^C] ',0
  494. ;
  495. SETLC:    MOV    TCASFL,AL
  496.     MOV    LCASFL,AL
  497.     RET
  498. ;
  499. SETUC:    MOV    TCASFL,AL
  500.     RET
  501.  
  502. ;*******************************************************
  503. ;
  504. ;    Gets line from input file to line
  505. ;    buffer until CR.  Filters out ctrl
  506. ;    chars except for HT.  Truncates
  507. ;    lines after LBUFLN chars.
  508. ;    Terminates line with CR, LF, 0.
  509. ;
  510. GETLIN:    CALL    PDOT        ; print activity dot
  511.     CALL    CHKIN
  512.     CMP    AL,CTRLC
  513.     JNZ    LBL22
  514.      JMP JABORT
  515. LBL22:
  516.     XOR    AL,AL
  517.     MOV    QUOTFL,AL    ; not in quote
  518.     MOV    CMNTFL,AL    ; not in comment
  519.     MOV    BX,OFFSET LBUFF    ;line buffer
  520.     MOV    CH,LBUFLN    ;max # of char
  521. GETLN1:    XCHG    BX,DX
  522.     MOV    BX,xIBUFF
  523.     XCHG    BX,DX
  524.  
  525.     MOV    AL,DH
  526.     CMP    AL,(SIZE IBUFF)/256
  527.     JZ    LBL23
  528.      JMP GETLN4
  529. LBL23:
  530.     MOV    AL,DL
  531.     CMP    AL,(SIZE IBUFF) MOD 256
  532.  
  533.     JZ    LBL24
  534.      JMP GETLN4
  535. LBL24:
  536.     PUSH    CX
  537.     PUSH    BX
  538.     MOV    DX,OFFSET IBUFF
  539. GETLN2:    MOV    AH,nDMA
  540.     PUSH    DX
  541.     CALL    BDOS
  542.     POP    DX
  543.  
  544.     XCHG    BX,DX
  545.  
  546.     MOV    DX,OFFSET INFCB
  547.     MOV    AH,nRDNR
  548.     PUSH    BX
  549.     CALL    BDOS
  550.     POP    BX
  551.     DEC    AL
  552.     JZ    LBL25
  553.      JMP GETLN3
  554. LBL25:
  555.     MOV    AL,EOF
  556.     MOV    [BX],AL
  557. GETLN3:    MOV    DX,OFFSET RECLEN
  558.     ADD    BX,DX
  559.     XCHG    BX,DX
  560.     MOV    AL,DH
  561.     CMP    AL,(SIZE IBUFF)/256
  562.     JZ    LBL26
  563.      JMP GETLN2
  564. LBL26:
  565.     MOV    AL,DL
  566.     CMP    AL,(SIZE IBUFF) MOD 256
  567.     JZ    LBL27
  568.      JMP GETLN2
  569. LBL27:
  570.  
  571.     POP    BX
  572.     POP    CX
  573.     MOV    DX,OFFSET IBUFF
  574. GETLN4:    XCHG BX,DX 
  575.      MOV AL,[BX] 
  576.     XCHG BX,DX
  577.     INC    DX
  578.     XCHG    BX,DX
  579.     MOV    xIBUFF,BX
  580.     XCHG    BX,DX
  581.     MOV    [BX],AL
  582.  
  583.     CMP    AL,QUOTE    ; set or reset
  584.     JZ    LBL28
  585.      JMP GTLN41 ;  QUOTFL
  586. LBL28:
  587.     MOV    AL,QUOTFL
  588.     NOT    AL
  589.     MOV    QUOTFL,AL
  590.  
  591. GTLN41:    MOV    AL,[BX] ; Translate exclam.  pt.
  592.     CALL    EXCLAM        ;  which is not in quote
  593.     MOV    [BX],AL ;  to EOS
  594.  
  595.     MOV    AL,TCASFL    ; translate to upper
  596.     OR    AL,AL        ;  or lower case ?
  597.     JNZ    LBL29
  598.      JMP GTLN46 ; NO
  599. LBL29:
  600.  
  601.     MOV    AL,QUOTFL    ; if in quote, do
  602.     OR    AL,AL        ;  nothing
  603.     JZ    LBL30
  604.      JMP GTLN43
  605. LBL30:
  606.     MOV    AL,[BX] ; otherwise, ';' sets
  607.     CMP    AL,';'        ;  CMNTFL and EOS resets
  608.     JNZ    LBL31
  609.      JMP GTLN42 ;  it
  610. LBL31:
  611.     CMP    AL,EOS
  612.     JZ    LBL32
  613.      JMP GTLN43
  614. LBL32:
  615.     XOR    AL,AL
  616. GTLN42:    MOV    CMNTFL,AL
  617.  
  618. GTLN43:    MOV    AL,QUOTFL    ; If in quote,
  619.     OR    AL,AL        ;  do nothing
  620.     JZ    LBL33
  621.      JMP GTLN46
  622. LBL33:
  623.     MOV    AL,CMNTFL    ; If in comment,
  624.     OR    AL,AL        ;  do nothing
  625.     JZ    LBL34
  626.      JMP GTLN46
  627. LBL34:
  628.     MOV    AL,LCASFL    ; Otherwise,
  629.     OR    AL,AL        ;  if LCASFL set
  630.     MOV    AL,[BX]
  631.     JNZ    LBL35
  632.      JMP GTLN44
  633. LBL35:
  634.     CALL    LCASE        ;  trns to lwr case
  635.     JMP    GTLN45
  636. GTLN44:    CALL    UCASE        ;  else trns to upr case
  637. GTLN45:    MOV    [BX],AL
  638.  
  639. GTLN46:    MOV    AL,[BX]
  640.     CMP    AL,CR
  641.     JNZ    LBL36
  642.      JMP GETLN6
  643. LBL36:
  644.     CMP    AL,HT        ; filters out all ctrl
  645.     JNZ    LBL37
  646.      JMP GETLN5 ; chars except tab
  647. LBL37:
  648.  
  649.     CMP    AL,EOF
  650.     JNZ    LBL38
  651.      JMP GETLN7
  652. LBL38:
  653.     CMP    AL,EOS
  654.     JNZ    LBL39
  655.      JMP GETLN5
  656. LBL39:
  657.  
  658.     CMP    AL,' '
  659.     JNC    LBL40
  660.      JMP GETLN1
  661. LBL40:
  662. GETLN5:    INC    BX
  663.     DEC    CH
  664.     JZ    LBL41
  665.      JMP GETLN1
  666. LBL41:
  667.     DEC    BX
  668.     INC    CH
  669.     JMP    GETLN1
  670. ;
  671. GETLN6:    INC    BX
  672.     MOV    BYTE PTR [BX],LF
  673.     INC    BX
  674.     MOV    BYTE PTR [BX],N00
  675.     XCHG    BX,DX
  676.     MOV    xIBUFF,BX
  677.     XCHG    BX,DX
  678.     RET
  679.  
  680. ;
  681. ;    Change exclamation point to EOS in A
  682. ;
  683. EXCLAM:    CMP    AL,'!'
  684.     JZ    LBL42
  685.     RET
  686. LBL42:
  687.     MOV    AL,QUOTFL
  688.     OR    AL,AL
  689.     MOV    AL,'!'
  690.     JZ    LBL43
  691.     RET
  692. LBL43:
  693.     MOV    AL,EOS
  694.     RET
  695. ;
  696. QUOTFL    DB    0
  697. CMNTFL    DB    0
  698.  
  699. ;
  700. ;    Exit
  701. ;
  702. GETLN7:    CALL    CLOSEO
  703.     MOV    DX,OFFSET UPSMSG
  704.     CALL    PRTLIN
  705.     MOV    DX,OFFSET ENDIFL
  706.     CALL    PRTLIN
  707.     MOV    DX,OFFSET ICLFLG
  708.     CALL    PRTLIN
  709.     MOV    DX,OFFSET LSTFLG
  710.     CALL    PRTLIN
  711.     MOV    DX,OFFSET MACFLG
  712.     CALL    PRTLIN
  713.     MOV    DX,OFFSET EOJMSG
  714. ;
  715. ;    Print message at DE and abort
  716. ;
  717. EREXIT:    PUSH    DX
  718.     MOV    DX,OFFSET CRLFMG
  719.     CALL    PRTLIN
  720.     POP    DX
  721.     CALL    PRTLIN
  722.     JMP    ABORT
  723. ;
  724. JABORT:    MOV    DX,OFFSET JABTMG
  725.     CALL    PRTLIN
  726.     JMP    GETLN7
  727. ;
  728. JABTMG    DB    CR,LF,'*** Job Cancelled ***',CR,LF,0
  729. ;
  730. UPSMSG    DB    0,LF,'The following operands'
  731.     DB    ' have been used in your '
  732.     DB    'source and have not'
  733.     DB    CR,LF
  734.     DB    'been fully translated.  You must '
  735.     DB    'complete the translation using an editor.'
  736.     DB    CR,LF,HT
  737.     DB    'original:',HT,HT
  738.     DB    'must be translated to:'
  739.     DB    CR,LF,0
  740. ENDIFL    DB    0,'IF or IFC',HT,HT,'%IF(exp)THEN(txt1)',CR,LF
  741.     DB    HT,'ELSE',HT,HT,HT,'ELSE(txt2)',CR,LF
  742.     DB    HT,'ENDIF or #ENDIF',HT,HT,'FI'
  743.     DB    CR,LF,0
  744. ICLFLG    DB    0,'ICL'
  745.     DB    CR,LF,0
  746. LSTFLG    DB    0,'LST or LIST'
  747.     DB    CR,LF,0
  748. MACFLG    DB    0,'MACRO or MAC',HT,HT,'%DEFINE(mname[(plist)])'
  749.     DB    CR,LF
  750.     DB    HT,'#macro-call',HT,HT,'%macro-call'
  751.     DB    CR,LF,0
  752. ;
  753. EOJMSG    DB    '*** End of Job ***',CR,LF,0
  754.  
  755. ;*******************************************************
  756. ;
  757. ;    Process line
  758. ;
  759. PROCLIN:
  760.     MOV    BX,OFFSET LBUFF
  761. PROCLN0:
  762.     CALL    FNDOPC
  763.     JNZ    PRCLN00
  764.     CALL    PTCOLN        ; Put out colon if
  765.     JMP    PUTND6        ;  colon flag set
  766.  
  767. PRCLN00:
  768.     MOV    AL,COLNFL    ; Is there a colon
  769.     OR    AL,AL
  770.     JZ    PRCLN02
  771.  
  772.     MOV    BX,OFFSET OPTPSD ; Don't put colon
  773.     MOV    CX,OPBFLN     ;  if opcode is
  774.     CALL    SCANOP         ;  DB, DW, DS, or EQU
  775.     MOV    AL,' '
  776.     JZ    PRCLN01        ; Put space
  777.     MOV    AL,':'        ;  otherwise, put colon
  778.  
  779. PRCLN01:
  780.     CALL    PUTCHR
  781.  
  782. PRCLN02:
  783.     MOV    BX,xWHITE
  784.     CALL    PUTSPT
  785.  
  786. PROCLN1:
  787.     MOV    BX,OFFSET OPTIMM ;imm or one byte
  788.     MOV    CX,2*OPBFLN
  789.     CALL    SCANOP
  790.     JNZ    LBL44
  791.      JMP DOIMM
  792. LBL44:
  793.  
  794.     MOV    BX,OFFSET OPTONE ; one byte opcodes
  795.     MOV    CX,2*OPBFLN
  796.     CALL    SCANOP
  797.     JNZ    LBL45
  798.      JMP DO_ONE
  799. LBL45:
  800.  
  801.     MOV    BX,OFFSET OPTREG ;register
  802.     MOV    CX,2*OPBFLN
  803.     CALL    SCANOP
  804.     JNZ    LBL46
  805.      JMP DOREG
  806. LBL46:
  807.  
  808.     MOV    BX,OFFSET OPTBDB ; db and equ
  809.     MOV    CX,2*OPBFLN
  810.     CALL    SCANOP
  811.     JNZ    LBL47
  812.      JMP DOSIMP
  813. LBL47:
  814.  
  815.     MOV    BX,OFFSET OPTSMP ; simple
  816.     MOV    CX,2*OPBFLN
  817.     CALL    SCANOP
  818.     JNZ    LBL48
  819.      JMP DOSIMP
  820. LBL48:
  821.  
  822.     MOV    BX,OFFSET OPTROT ; rotates
  823.     MOV    CX,2*OPBFLN
  824.     CALL    SCANOP
  825.     JNZ    LBL49
  826.      JMP DOROT
  827. LBL49:
  828.  
  829.     MOV    BX,OFFSET OPTDCR ; dcr, inr
  830.     MOV    CX,2*OPBFLN
  831.     CALL    SCANOP
  832.     JNZ    LBL50
  833.      JMP DODCR
  834. LBL50:
  835.  
  836.     MOV    BX,OFFSET OPTWRD ;16 bit dcx, inx
  837.     MOV    CX,2*OPBFLN
  838.     CALL    SCANOP
  839.     JNZ    LBL51
  840.      JMP DODCX
  841. LBL51:
  842.  
  843.     MOV    BX,OFFSET OPTTDL ;tdl
  844.     MOV    CX,OPBFLN
  845.     CALL    SCANOP
  846.     JNZ    LBL52
  847.      CALL DOTDL
  848. LBL52:
  849.  
  850.     MOV    BX,OFFSET OPTRCC ;ret cond
  851.     MOV    CX,2*OPBFLN
  852.     CALL    SCANOP
  853.     JNZ    LBL53
  854. RET
  855. LBL53:
  856.  
  857.     MOV    BX,OFFSET OPTCCC ;call cond
  858.     MOV    CX,2*OPBFLN
  859.     CALL    SCANOP
  860.     JNZ    LBL54
  861.      JMP DOCALL
  862. LBL54:
  863.  
  864.     MOV    BX,OFFSET OPTJCC ;jump cond
  865.     MOV    CX,2*OPBFLN
  866.     CALL    SCANOP
  867.     JNZ    LBL55
  868.      JMP DOJMP
  869. LBL55:
  870.  
  871.     MOV    BX,OFFSET OPTMSC ;index & misc
  872.     MOV    CX,2*OPBFLN+2
  873.     CALL    SCANOP
  874.     JNZ    LBL56
  875.      JMP EXEC
  876. LBL56:
  877.  
  878. PUTCOD:    MOV    BX,xOPCOD    ;this fix prevents macro
  879.     JMP    PUTEND        ;names from being split
  880.  
  881. PUTOPR:    MOV    BX,xOPRND
  882.  
  883. PUTEND:    XOR    AL,AL
  884.     MOV    LCFLAG,AL
  885.     MOV    LCDFLG,AL
  886.  
  887.     MOV    CL,N00        ;  putout w/o
  888. PUTND1:    MOV    AL,[BX]        ;  change
  889.  
  890.     CMP    AL,' '
  891.     JNZ    LBL57
  892.      JMP PUTND3
  893. LBL57:
  894.     CMP    AL,HT
  895.     JNZ    LBL58
  896.      JMP PUTND3
  897. LBL58:
  898.  
  899.     CMP    AL,CR
  900.     JNZ    LBL59
  901.      JMP PUTLNC
  902. LBL59:
  903.  
  904.     CMP    AL,';'
  905.     JNZ    LBL60
  906.      JMP PUTND4
  907. LBL60:
  908.  
  909.     CMP    AL,EOS        ; process exclamation pt.
  910.     JNZ    LBL61
  911.      JMP PTND21 ;  statement separator
  912. LBL61:
  913.  
  914.     CMP    AL,QUOTE
  915.     JZ    LBL62
  916.      JMP PUTND2
  917. LBL62:
  918.     DEC    CL
  919.     JNZ    LBL63
  920.      JMP PUTND2
  921. LBL63:
  922.     MOV    CL,N01
  923. PUTND2:    CALL    PUTCHR
  924.     INC    BX
  925.     JMP    PUTND1
  926.  
  927. ;
  928. PTND21:    CALL    SKSPHT
  929.     INC    BX        ; Inc past excl. pt.
  930. PTND22:    MOV    AL,[BX]
  931.     CMP    AL,';'
  932.     JNZ    LBL64
  933.      JMP PUTND5
  934. LBL64:
  935.  
  936.     MOV    AL,MLTLFL    ; Put out as separate
  937.     OR    AL,AL        ;  lines
  938.     JNZ    LBL65
  939.      JMP PTND24 ; NO
  940. LBL65:
  941. ;
  942.     MOV    AL,[BX]
  943.     CMP    AL,' '        ; Change space to HT
  944.     JZ    LBL66
  945.      JMP PTND23
  946. LBL66:
  947.     MOV    BYTE PTR [BX],HT
  948. PTND23:    CALL    PCRLF
  949.     JMP    PROCLN0
  950. ;
  951. PTND24:    MOV    AL,TEMP        ; Was last character put
  952.     CMP    AL,' '        ;  out a space ?
  953.     JNZ    LBL67
  954.      JMP PTND25
  955. LBL67:
  956.     CMP    AL,HT        ;  or a TAB ?
  957.     JNZ    LBL68
  958.      JMP PTND25
  959. LBL68:
  960.     MOV    AL,' '        ; NO, put out a space
  961.     CALL    PUTCHR
  962. PTND25:    MOV    AL,'!'
  963.     CALL    PUTCHR
  964.     JMP    PROCLN0
  965. ;
  966. ;
  967. PUTND3:    PUSH    BX        ;Space or Tab come here
  968.     CALL    SKSPHT
  969.  
  970.     CMP    AL,CR        ;this fix filters out
  971.     JNZ    LBL69
  972.      JMP PUTLNB ;trailing spaces or tabs
  973. LBL69:
  974.     POP    BX
  975.  
  976.     CMP    AL,EOS        ; fix to process excl. pt.
  977.     JNZ    LBL70
  978.      JMP PTND21
  979. LBL70:
  980.  
  981.     CMP    AL,';'
  982.     MOV    AL,[BX] ;prevent blank being replaced
  983.                 ;by ';' in string data
  984.     JNZ    LBL71
  985.      JMP PUTND4
  986. LBL71:
  987.     CALL    PUTSPT
  988.     JMP    PUTND1
  989. ;
  990. PUTND4:    DEC    CL        ;';' come here
  991.     INC    CL
  992.     JZ    LBL72
  993.      JMP PUTND2
  994. LBL72:
  995.     CALL    SKSPHT
  996.  
  997. ; Tab comments to proper column
  998.  
  999. PUTND5:    MOV    CH,41
  1000. PTND51:    MOV    AL,COLNUM
  1001.     CMP    AL,CH        ;colnum>=41?
  1002.     JC    LBL73
  1003.      JMP PTND54
  1004. LBL73:
  1005.     DEC    AL        ;no, insert
  1006.     AND    AL,NF8        ;tabs to
  1007.     ADD    AL,N09        ;start output
  1008.     CMP    AL,CH        ;at col. 33
  1009.     JNZ    LBL74
  1010.      JMP PTND54
  1011. LBL74:
  1012.     JNC    LBL75
  1013.      JMP PTND52
  1014. LBL75:
  1015.     MOV    AL,' '
  1016.     JMP    PTND53
  1017. ;
  1018. PTND52:    MOV    AL,HT
  1019. PTND53:    CALL    PUTCHR
  1020.     JMP    PTND51
  1021.  
  1022. PTND54:    MOV    AL,TEMP        ; insure
  1023.     CMP    AL,' '        ; space
  1024.     JNZ    LBL76
  1025.      JMP PUTND6 ; before
  1026. LBL76:
  1027.     CMP    AL,HT        ; semi-colon
  1028.     JNZ    LBL77
  1029.      JMP PUTND6 ;
  1030. LBL77:
  1031.     MOV    AL,' '        ;
  1032.     CALL    PUTCHR        ;
  1033. PUTND6:    MOV    AL,[BX]
  1034.     INC    BX
  1035.     CMP    AL,EOS
  1036.     JNZ    LBL78
  1037.      JMP PTND22
  1038. LBL78:
  1039.     OR    AL,AL
  1040.     JNZ    LBL79
  1041. RET
  1042. LBL79:
  1043.     CALL    PUTCHR
  1044.     JMP    PUTND6
  1045.  
  1046. ;
  1047. ;    Put line at HL to output file until 0
  1048. ;    and reset colnum to 1.
  1049. ;
  1050. PUTLNB:    XCHG SP,BP 
  1051.     XCHG [BP],BX 
  1052.     XCHG SP,BP ;filter trailing
  1053.     POP    BX        ;blanks or tabs
  1054.  
  1055. PUTLNC:    JMP    PUTLIN
  1056.  
  1057. ;*******************************************************
  1058. ;
  1059. ;    Process labels, find potential opcode.
  1060. ;
  1061. FNDOPC:    MOV    COLNFL,0    ; reset colon flag
  1062.  
  1063.     MOV    AL,[BX]
  1064.     CMP    AL,' '
  1065.     JNZ    LBL80
  1066.      JMP FNDOP3
  1067. LBL80:
  1068.     CMP    AL,HT
  1069.     JNZ    LBL81
  1070.      JMP FNDOP3
  1071. LBL81:
  1072.  
  1073.     CMP    AL,CR        ;pass blank
  1074.     JNZ    LBL82
  1075.      RET    ;lines
  1076. LBL82:
  1077.     CMP    AL,EOS        ; excl. pt. separator
  1078.     JNZ    LBL83
  1079. RET
  1080. LBL83:
  1081.  
  1082.     CMP    AL,';'
  1083.     JNZ    LBL84
  1084. RET
  1085. LBL84:
  1086.  
  1087.     CMP    AL,'*'        ; asterisk in first column
  1088.     JZ    LBL85
  1089.      JMP FNDOP1 ; is a comment line
  1090. LBL85:
  1091.     MOV    BYTE PTR [BX],';'
  1092.     RET
  1093.  
  1094. FNDOP1:    MOV    CL,N00
  1095.     MOV    COLNFL,':'    ; Set colon flag to
  1096.                 ;  insure colon after label
  1097. FNDOP2:    MOV    AL,BYTE PTR [BX]
  1098.  
  1099.     CMP    AL,':'
  1100.     JNZ    LBL86
  1101.      JMP FNDOP4
  1102. LBL86:
  1103.  
  1104.     CMP    AL,HT
  1105.     JNZ    LBL87
  1106.      JMP FNDOP6
  1107. LBL87:
  1108.     CMP    AL,' '
  1109.     JNZ    LBL88
  1110.      JMP FNDOP6
  1111. LBL88:
  1112.  
  1113.     CMP    AL,CR
  1114.     JNZ    LBL89
  1115. RET
  1116. LBL89:
  1117.     CMP    AL,EOS
  1118.     JNZ    LBL90
  1119. RET
  1120. LBL90:
  1121.  
  1122.     CMP    AL,';'
  1123.     JNZ    LBL91
  1124.      JMP FNDP72
  1125. LBL91:
  1126.  
  1127.     CALL    PUTCHR
  1128.     INC    BX
  1129.     INC    CL
  1130.     JMP    FNDOP2
  1131.  
  1132. ; Comes here only if space or tab at beginning
  1133. ; of line.
  1134.  
  1135. FNDOP3:
  1136.     PUSH    BX
  1137.     CALL    SKSPHT        ;find first non-sp or tab
  1138.     CMP    AL,CR
  1139.     JNZ    LBL92
  1140.      JMP FNDOP9
  1141. LBL92:
  1142.     CMP    AL,EOS
  1143.     JNZ    LBL93
  1144.      JMP FNDOP9
  1145. LBL93:
  1146.     CMP    AL,';'
  1147.     JNZ    LBL94
  1148.      JMP FNDP71
  1149. LBL94:
  1150.     POP    BX
  1151.  
  1152.     CALL    PUTSPT        ;print until non-sp or ht
  1153.     PUSH    BX
  1154.     CALL    FINDLM        ;find ,:+-/*); CR HT or SP at HL
  1155.     CMP    AL,':'
  1156.     POP    BX
  1157.     JNZ    LBL95
  1158.      JMP FNDOP1
  1159. LBL95:
  1160.     JMP    FNDOP7
  1161. ;
  1162. ; Colon terminating label comes here
  1163. ;
  1164. FNDOP4:    INC    BX
  1165.     MOV    AL,[BX]
  1166.     CMP    AL,':'
  1167.     JZ    LBL96
  1168.      JMP FNDOP5
  1169. LBL96:
  1170.     CALL    PUTCHR
  1171.     INC    BX
  1172. FNDOP5:    MOV    COLNFL,':'    ; Set colon flag
  1173. ;
  1174. ; HT or SP comes here
  1175. ;
  1176. FNDOP6:
  1177. ;
  1178. ; See if there is an opcode field
  1179. ;
  1180. FNDOP7:    PUSH    BX
  1181.  
  1182.     CALL    SKSPHT
  1183.     MOV    AL,[BX]
  1184.  
  1185.     CMP    AL,CR
  1186.     JNZ    LBL97
  1187.      JMP FNDOP9 ; filter trailing SP or TAB
  1188. LBL97:
  1189.     CMP    AL,EOS
  1190.     JNZ    LBL98
  1191.      JMP FNDOP9 ; excl. pt. separator
  1192. LBL98:
  1193.  
  1194.     CMP    AL,';'
  1195.     JZ    LBL99
  1196.      JMP FNDOP8
  1197. LBL99:
  1198.  
  1199. FNDP71:    XCHG SP,BP 
  1200.      XCHG [BP],BX 
  1201.     XCHG SP,BP
  1202.     POP    BX
  1203. FNDP72:    POP    CX        ; clear return
  1204.     CALL    PTCOLN        ; put out colon if flag set
  1205.     JMP    PUTND5        ; tab to proper column
  1206. ;
  1207. ; Have located opcode field
  1208. ;
  1209. FNDOP8:    POP    BX
  1210.     MOV    xWHITE,BX
  1211.     CALL    SKSPHT
  1212.  
  1213. ;    Move potential opcode to OPCBUF
  1214.  
  1215. MOVOPC:    MOV    xOPCOD,BX
  1216.     MOV    CH,OPBFLN
  1217.     MOV    DX,OFFSET OPCBUF
  1218.     CALL    MOVBDH        ;move up to B char from HL to
  1219.     CALL    SKSPHT        ;DE until ,:+-/*); CR HT SP
  1220.     MOV    xOPRND,BX
  1221.     SUB    AL,AL
  1222.     INC    AL
  1223.     RET
  1224.  
  1225. ; come here on CR to filter trailing SP or TAB
  1226.  
  1227. FNDOP9:    CALL    PTCOLN        ; put out colon if flag set
  1228.     XCHG SP,BP 
  1229.      XCHG [BP],BX 
  1230.     XCHG SP,BP
  1231.     POP    BX
  1232.     XOR    AL,AL
  1233.     RET
  1234. ;
  1235. ;    Put out colon if COLNFL set.
  1236. ;
  1237. PTCOLN:    MOV    AL,COLNFL
  1238.     OR    AL,AL
  1239.     JZ    PTCLN1
  1240.     CALL    PUTCHR
  1241.     MOV    COLNFL,0
  1242. PTCLN1:    RET
  1243. ;
  1244. COLNFL    DB    0
  1245. xWHITE    DW    1 DUP(?)
  1246.  
  1247. ;*******************************************************
  1248. ;
  1249. ;    Opcode tables
  1250. ;
  1251. OPTIMM    DB    'ACI  ADC  '
  1252.     DB    'ADI  ADD  '
  1253.     DB    'ANI  AND  '
  1254.     DB    'CPI  CMP  '
  1255.     DB    'ORI  OR   '
  1256.     DB    'SBI  SBB  '
  1257.     DB    'SUI  SUB  '
  1258.     DB    'XRI  XOR  '
  1259.     DB    0
  1260.  
  1261. OPTONE    DB    'RET  RET  '
  1262.     DB    'CMC  CMC  '
  1263.     DB    'HLT  HLT  '
  1264.     DB    'STC  STC  '
  1265.     DB    'DAA  DAA  '
  1266.     DB    'DI   CLI  '
  1267.     DB    'EI   STI  '
  1268.     DB    'NOP  NOP  '
  1269.     DB    0
  1270.  
  1271. OPTREG    DB    'ADC  ADC  '
  1272.     DB    'ADD  ADD  '
  1273.     DB    'ANA  AND  '
  1274.     DB    'CMP  CMP  '
  1275.     DB    'ORA  OR   '
  1276.     DB    'SBB  SBB  '
  1277.     DB    'SUB  SUB  '
  1278.     DB    'XRA  XOR  '
  1279.     DB    0
  1280.  
  1281. OPTPSD    DB    'DB   '
  1282.     DB    'DW   '
  1283.     DB    'EQU  '
  1284.     DB    'DS   '
  1285.     DB    0
  1286.  
  1287. OPTBDB    DB    'DB   DB   '
  1288.     DB    'EQU  EQU  '
  1289.     DB    0
  1290.  
  1291. OPTSMP    DB    'JMP  JMP  '
  1292.     DB    'CALL CALL '
  1293.     DB    'DS   RS   '
  1294.     DB    'DW   DW   '
  1295.     DB    'SET  EQU  '
  1296. OPTENT    DB    'ENT  ENTRY'
  1297.     DB    'NAM  NAME '
  1298.     DB    'RAM  DATA '
  1299.     DB    'ROG  REL  '
  1300.     DB    0
  1301.  
  1302. OPTDCR    DB    'DCR  DEC  '
  1303.     DB    'INR  INC  '
  1304.     DB    0
  1305.  
  1306. OPTROT    DB    'RAL  RCL  '
  1307.     DB    'RAR  RCR  '
  1308.     DB    'RLC  ROL  '
  1309.     DB    'RRC  ROR  '
  1310.     DB    0
  1311.  
  1312. OPTWRD    DB    'DCX  DEC  '
  1313.     DB    'INX  INC  '
  1314.     DB    0
  1315.  
  1316. OPTTDL    DB    'REQ  '
  1317.     DB    'RNE  '
  1318.     DB    'RLT  '
  1319.     DB    'RGE  '
  1320.     DB    'CEQ  '
  1321.     DB    'CNE  '
  1322.     DB    'CLT  '
  1323.     DB    'CGE  '
  1324.     DB    'JEQ  '
  1325.     DB    'JNE  '
  1326.     DB    'JLT  '
  1327.     DB    'JGE  '
  1328.     DB    0
  1329.  
  1330. OPTRCC    DB    'RC   JNC  '
  1331.     DB    'RNC  JC   '
  1332.     DB    'RZ   JNZ  '
  1333.     DB    'RNZ  JZ   '
  1334.     DB    'RP   JS   '
  1335.     DB    'RM   JNS  '
  1336.     DB    'RPE  JPO  '
  1337.     DB    'RPO  JPE  '
  1338.     DB    0
  1339.  
  1340. OPTCCC    DB    'CC   JNC  '
  1341.     DB    'CNC  JC   '
  1342.     DB    'CZ   JNZ  '
  1343.     DB    'CNZ  JZ   '
  1344.     DB    'CP   JS   '
  1345.     DB    'CM   JNS  '
  1346.     DB    'CPE  JPO  '
  1347.     DB    'CPO  JPE  '
  1348.     DB    0
  1349.  
  1350. OPTJCC    DB    'JC   JNC  '
  1351.     DB    'JNC  JC   '
  1352.     DB    'JZ   JNZ  '
  1353.     DB    'JNZ  JZ   '
  1354.     DB    'JP   JS   '
  1355.     DB    'JM   JNS  '
  1356.     DB    'JPE  JPO  '
  1357.     DB    'JPO  JPE  '
  1358.     DB    0
  1359.  
  1360. OPTMSC    DB    'LXI  MOV  '
  1361.     DW    DOLXI
  1362.     DB    'POP  POP  '
  1363.     DW    DOPOP
  1364.     DB    'PUSH PUSH '
  1365.     DW    DOPSH
  1366.     DB    'DAD  ADD  '
  1367.     DW    DODAD
  1368.     DB    'LDA  MOV  '
  1369.     DW    DOLDA
  1370.     DB    'LDAX MOV  '
  1371.     DW    DOLDAX
  1372.     DB    'LHLD MOV  '
  1373.     DW    DOLHLD
  1374.     DB    'MOV  MOV  '
  1375.     DW    DOMOV
  1376.     DB    'MVI  MOV  '
  1377.     DW    DOMVI
  1378.     DB    'IN   IN   '
  1379.     DW    DOIN
  1380.     DB    'OUT  OUT  '
  1381.     DW    DOOUT
  1382.     DB    'PCHL JMP  '
  1383.     DW    DOPCHL
  1384.     DB    'RST  CALL '
  1385.     DW    DORST
  1386.     DB    'SHLD MOV  '
  1387.     DW    DOSHLD
  1388.     DB    'SPHL MOV  '
  1389.     DW    DOSPHL
  1390.     DB    'STA  MOV  '
  1391.     DW    DOSTA
  1392.     DB    'STAX MOV  '
  1393.     DW    DOSTAX
  1394.     DB    'XCHG XCHG '
  1395.     DW    DOXCHG
  1396.     DB    'XTHL XCHG '
  1397.     DW    DOXTHL
  1398.     DB    'CMA  NOT  '
  1399.     DW    DOCMA
  1400.     DB    'IF   IF   '
  1401.     DW    DOIFC
  1402.     DB    'LIST LIST '
  1403.     DW    DOLST
  1404.     DB    'MACROMACRO'
  1405.     DW    DOMAC
  1406. OPTIFC    DB    'IFC  IF   '
  1407.     DW    DOIFC
  1408.     DB    'ICL  *INCL'
  1409.     DW    DOICL
  1410.     DB    'LST  LIST '
  1411.     DW    DOLST
  1412.     DB    'MAC  MACRO'
  1413.     DW    DOMAC
  1414.     DB    0
  1415.  
  1416. ;*******************************************************
  1417. ;
  1418. ;    Scan table at HL for match to OPBFLN
  1419. ;    char string at OPCBUF.
  1420. ;    Ret Z and BX -> entry if match.
  1421. ;
  1422. SCANOP:    MOV    AL,[BX]
  1423.     AND    AL,AL
  1424.     JNZ    LBL100
  1425.      JMP SCNOP1
  1426. LBL100:
  1427.     PUSH    CX
  1428.     MOV    CH,OPBFLN
  1429.     MOV    DX,OFFSET OPCBUF
  1430.     CALL    CBDEHL        ;comp B bytes (DE)-(HL)
  1431.     POP    CX
  1432.     JNZ    LBL101
  1433. RET
  1434. LBL101:
  1435.     ADD    BX,CX
  1436.     JMP    SCANOP
  1437. ;
  1438. SCNOP1:    INC    AL
  1439.     RET
  1440.  
  1441. ;
  1442. ;    Gets routine address  from
  1443. ;    HL+2*OPBFLN and jumps to routine.
  1444. ;
  1445. EXEC:    PUSH    BX
  1446.     MOV    CX,2*OPBFLN
  1447.     ADD    BX,CX
  1448.     MOV    CL,[BX]
  1449.     INC    BX
  1450.     MOV    CH,[BX]
  1451.     POP    BX
  1452.     PUSH    CX        ;address on stack
  1453.     RET            ;go to it
  1454.  
  1455. ;
  1456. ;    Put up to OPBFLN char at HL+OPBFLN
  1457. ;    to output file.  Stop at space,
  1458. ;    and put tab to output file.
  1459. ;
  1460. PUTOPHT:
  1461.     CALL    PUTOPC
  1462. PUTHT:    MOV    AL,HT
  1463.     JMP    PUTCHR
  1464.  
  1465. ;
  1466. ;    Put space or tab (contents of MLTSPC)
  1467. ;    to output file to separate opcode from
  1468. ;    operand in statements that get translated
  1469. ;    to multiple statements.
  1470. ;
  1471. PUTHTS:    MOV    AL,MLTSPC
  1472.     JMP    PUTCHR
  1473. ;
  1474. MLTSPC    DB    HT
  1475.  
  1476. ;
  1477. ;
  1478. ;
  1479. PUTOPC:    MOV    CX,OFFSET OPBFLN
  1480.     ADD    BX,CX        ; HL -> new opcode
  1481.     MOV    CH,CL
  1482. PUTOP1:    MOV    AL,[BX]
  1483.  
  1484.     CMP    AL,' '
  1485.     JNZ    LBL102
  1486. RET
  1487. LBL102:
  1488.  
  1489.     CMP    AL,HT
  1490.     JNZ    LBL103
  1491. RET
  1492. LBL103:
  1493.  
  1494.     MOV    AL,LCFLAG
  1495.     OR    AL,AL
  1496.     MOV    AL,[BX]
  1497.     JNZ    LBL104
  1498.      JMP PUTOP2
  1499. LBL104:
  1500.     OR    AL,20H
  1501. PUTOP2:
  1502.     CALL    PUTCHR
  1503.     INC    BX
  1504.     DEC    CH
  1505.     JZ    LBL105
  1506.      JMP PUTOP1
  1507. LBL105:
  1508.  
  1509.     RET
  1510.  
  1511. ;
  1512. ;    Put string at HL to output file until 0.
  1513. ;    If (LCFLAG) set, convert to lower case.
  1514. ;
  1515. PUTOPS:    MOV    AL,[BX]
  1516.     OR    AL,AL
  1517.     JNZ    LBL106
  1518. RET
  1519. LBL106:
  1520.     MOV    AL,LCFLAG
  1521.     OR    AL,AL
  1522.     MOV    AL,[BX]
  1523.     JNZ    LBL107
  1524.      JMP PUTOS0
  1525. LBL107:
  1526.     CALL    LCASE
  1527. PUTOS0:    CALL    PUTCHR
  1528.     INC    BX
  1529.     JMP    PUTOPS
  1530.  
  1531. ;
  1532. ;    Put string at HL to output file until 0.
  1533. ;    If (LCDFLG) set, convert to lower case.
  1534. ;
  1535. PUTRND:    MOV    AL,[BX]
  1536.     OR    AL,AL
  1537.     JNZ    LBL108
  1538. RET
  1539. LBL108:
  1540.     MOV    AL,LCDFLG
  1541.     OR    AL,AL
  1542.     MOV    AL,[BX]
  1543.     JNZ    LBL109
  1544.      JMP PUTRN0
  1545. LBL109:
  1546.     CALL    LCASE
  1547. PUTRN0:    CALL    PUTCHR
  1548.     INC    BX
  1549.     JMP    PUTRND
  1550. ;
  1551. LCDFLG    DB    0
  1552.  
  1553. ;
  1554. ;    Find first ,:+-/*); CR HT or SP at HL,
  1555. ;    return A = (HL).
  1556. ;
  1557. FINDLM:    PUSH    CX
  1558.     CALL    CHKDLM
  1559.     POP    CX
  1560.     JNZ    LBL110
  1561. RET
  1562. LBL110:
  1563.     INC    BX
  1564.     JMP    FINDLM
  1565. ;
  1566. ;    Fill B locations at DE with spaces.
  1567. ;    Move up to B char from HL to DE until
  1568. ;    ,:+-/*); CR HT or SP encountered.
  1569. ;    Return Z and HL->special char if found.
  1570. ;    (search B+1 loc for special char.)
  1571. ;
  1572. MOVBDH:    MOV    CL,CH
  1573.     MOV    CH,N00
  1574.     PUSH    CX
  1575.     PUSH    DX
  1576.     PUSH    BX        ; fill BC locations
  1577.     CALL    FILLBD        ; at DE with spaces
  1578.     POP    BX        ;
  1579.     POP    DX
  1580.     POP    CX
  1581. MOVBD1:    PUSH    CX        ; ret Z, A=(HL)
  1582.     CALL    CHKDLM        ; if (HL) is
  1583.     POP    CX        ; ,:+-/*); CR HT or SP
  1584.     JNZ    LBL111
  1585. RET
  1586. LBL111:
  1587.  
  1588.     MOV    AL,[BX]
  1589.     XCHG BX,DX 
  1590.      MOV [BX],AL 
  1591.     XCHG BX,DX
  1592.     INC    DX
  1593.     INC    BX
  1594.     DEC    CX
  1595.     MOV    AL,CH
  1596.     OR    AL,CL
  1597.     JNZ    LBL112
  1598.      JMP CHKDLM
  1599. LBL112:
  1600.     JMP    MOVBD1
  1601.  
  1602. ;
  1603. ;    Skip spaces and tabs.
  1604. ;    Return HL -> non-space or non-tab
  1605. ;
  1606. SKSPHT:    MOV    AL,[BX]
  1607.     CMP    AL,' '
  1608.     JNZ    LBL113
  1609.      JMP SKSPT1
  1610. LBL113:
  1611.     CMP    AL,HT
  1612.     JZ    LBL114
  1613. RET
  1614. LBL114:
  1615. SKSPT1:    INC    BX
  1616.     JMP    SKSPHT
  1617.  
  1618. ;
  1619. ;    Ret Z, A=(HL) if
  1620. ;    HL is ,:+-/*); CR HT SP or EOS
  1621. ;
  1622. CHKDLM:    MOV    AL,[BX]
  1623.     CMP    AL,HT
  1624.     JZ    CHKDRZ
  1625.     CMP    AL,' '
  1626.     JZ    CHKDRZ
  1627.     CMP    AL,','
  1628.     JZ    CHKDRZ
  1629.     CMP    AL,';'
  1630.     JZ    CHKDRZ
  1631.     CMP    AL,CR
  1632.     JZ    CHKDRZ
  1633.     CMP    AL,':'
  1634.     JZ    CHKDRZ
  1635.     CMP    AL,'+'
  1636.     JZ    CHKDRZ
  1637.     CMP    AL,'-'
  1638.     JZ    CHKDRZ
  1639.     CMP    AL,'/'
  1640.     JZ    CHKDRZ
  1641.     CMP    AL,'*'
  1642.     JZ    CHKDRZ
  1643.     CMP    AL,')'
  1644.     JZ    CHKDRZ
  1645.     CMP    AL,EOS
  1646. CHKDRZ:    RET
  1647. ;
  1648. ;    Compares B chars at DE with chars
  1649. ;    at HL.
  1650. ;    Ret Z if match.
  1651. ;    Preserve HL, DE, BC
  1652. ;
  1653. CBDEHL:    PUSH    BX
  1654.     PUSH    DX
  1655.     PUSH    CX
  1656. CBDH1:    XCHG BX,DX 
  1657.      MOV AL,[BX] 
  1658.     XCHG BX,DX
  1659.  
  1660.     CMP    AL,'a'
  1661.     JNC    LBL115
  1662.      JMP CBDH2
  1663. LBL115:
  1664.     MOV    LCFLAG,AL
  1665.     AND    AL,05FH
  1666. CBDH2:
  1667.     CMP    AL,[BX]
  1668.     JZ    LBL116
  1669.      JMP CBDH3
  1670. LBL116:
  1671.     INC    BX
  1672.     INC    DX
  1673.     DEC    CH
  1674.     JZ    LBL117
  1675.      JMP CBDH1
  1676. LBL117:
  1677. CBDH3:    POP    CX
  1678.     POP    DX
  1679.     POP    BX
  1680.     RET
  1681.  
  1682. LCFLAG    DB    0
  1683.  
  1684. ;
  1685. ;    Fill BC locations starting at
  1686. ;    DE with spaces.
  1687. ;    Returns A = space, DE -> next free
  1688. ;    location, HL = DE - 1, BC = 0.
  1689. ;
  1690. FILLBD:    MOV    AL,' '
  1691.     XCHG BX,DX 
  1692.      MOV [BX],AL 
  1693.     XCHG BX,DX
  1694.     MOV    BH,DH
  1695.     MOV    BL,DL
  1696.     INC    DX
  1697.     DEC    CX
  1698.     CALL    MOVIR
  1699.     RET
  1700.  
  1701. ;
  1702. ;    (DE)=(HL), INC HL, INC DE, DEC BC
  1703. ;    Repeat until BC = 0.
  1704. ;
  1705. MOVIR:    MOV    AL,[BX]
  1706.     XCHG BX,DX 
  1707.      MOV [BX],AL 
  1708.     XCHG BX,DX
  1709.     INC    BX
  1710.     INC    DX
  1711.     DEC    CX
  1712.     MOV    AL,CH
  1713.     OR    AL,CL
  1714.     JZ    LBL118
  1715.      JMP MOVIR
  1716. LBL118:
  1717.     RET
  1718.  
  1719. ;*******************************************************
  1720. ;
  1721. ;    Translation Routines
  1722. ;
  1723. ;*******************************************************
  1724.  
  1725. ;
  1726. ;    Immediate
  1727. ;    e.g., XRI n -> XOR AL,n
  1728. ;
  1729. DOIMM:    CALL    PUTOPHT
  1730.     MOV    BX,OFFSET OPALC
  1731.     CALL    PUTOPS
  1732.     JMP    PUTOPR
  1733. ;
  1734. OPALC    DB    'AL,',0
  1735.  
  1736. ;
  1737. ;    One byte (implied)
  1738. ;    e.g., DI -> CLI
  1739. ;
  1740. DO_ONE:    CALL    PUTOPC
  1741.     JMP    PUTOPR
  1742.  
  1743. ;
  1744. ; Simple translation
  1745. ;    e.g., DS n -> RS n
  1746. ;
  1747. DOSIMP:    CALL    PUTOPHT
  1748.     JMP    PUTOPR
  1749.  
  1750. ;
  1751. ;    Register instructions
  1752. ;    e.g., XRA r -> XOR AL,r'
  1753. ;
  1754. DOREG:    CALL    PUTOPHT        ;put out opcode+tab
  1755.     MOV    BX,OFFSET OPALC
  1756.     CALL    PUTOPS
  1757.     MOV    BX,xOPRND
  1758.     CALL    TRNRG
  1759.     JNZ    DOREG1
  1760.     XCHG    DX,BX
  1761.     CALL    PUTRND
  1762.     XCHG    DX,BX
  1763. DOREG1:    JMP    PUTEND
  1764.  
  1765. ;
  1766. ;    MOV r,s -> MOV r',s'
  1767. ;
  1768. DOMOV:    CALL    PUTOPHT
  1769.     MOV    BX,xOPRND
  1770.     CALL    TRNRG
  1771.     JZ    LBL119
  1772.      JMP PUTOPR
  1773. LBL119:
  1774.  
  1775.     XCHG    DX,BX
  1776.     CALL    PUTRND
  1777.     XCHG    DX,BX
  1778.  
  1779.     MOV    AL,[BX]    ; Get comma
  1780.     INC    BX    ; Increment past comma
  1781.     CALL    PUTCHR
  1782.     CALL    TRNRG
  1783.     JNZ    DOMOV1
  1784.  
  1785.     XCHG    DX,BX
  1786.     CALL    PUTRND
  1787.     XCHG    DX,BX
  1788.  
  1789. DOMOV1:    JMP    PUTEND
  1790.  
  1791. ;
  1792. ; Dec and Inc byte register
  1793. ;    DCR r -> DEC r'
  1794. ;
  1795. DODCR:
  1796.  
  1797. ;
  1798. ;    MVI r,n -> MOV r',n
  1799. ;
  1800. DOMVI:    CALL    PUTOPHT
  1801.  
  1802.     MOV    BX,xOPRND
  1803.     CALL    TRNRG
  1804.     JNZ    DOMVI2
  1805.  
  1806.     XCHG    BX,DX
  1807.     MOV    AL,[BX]
  1808.     XCHG    BX,DX
  1809.     CMP    AL,'['
  1810.     JNZ    DOMVI1
  1811.  
  1812.     PUSH    BX
  1813.     MOV    BX,OFFSET OPBYTP
  1814.     CALL    PUTLIN
  1815.     POP    BX
  1816.  
  1817. DOMVI1:    XCHG    BX,DX
  1818.     CALL    PUTRND
  1819.     XCHG    BX,DX
  1820. DOMVI2:    JMP    PUTEND
  1821. ;
  1822. OPBYTP    DB    'BYTE PTR ',0
  1823.  
  1824. ;
  1825. ; Translate 8080 byte registers to
  1826. ; 8086 byte registers.
  1827. ; Enter with BX -> to 8080 register.
  1828. ; If match,
  1829. ;  return Z set, BX -> next, DX -> translation
  1830. ; Otherwise, return NZ, BX, DX unchanged.
  1831. ;
  1832. TRNRG:    MOV    AL,[BX]
  1833.     CMP    AL,'a'
  1834.     JNC    LBL120
  1835.      JMP TRNRG2
  1836. LBL120:
  1837.     MOV    LCDFLG,AL
  1838. TRNRG2:    AND    AL,5FH
  1839.     PUSH    BX
  1840.     MOV    BX,OFFSET RTBL
  1841.     MOV    CX,OFFSET RTBLE
  1842.     SUB    CX,BX
  1843.     MOV    CH,CL
  1844. TRNRG3:    CMP    AL,[BX]
  1845.     JNZ    LBL121
  1846.      JMP TRNRG4
  1847. LBL121:
  1848.     INC    BX
  1849.     DEC    CH
  1850.     JZ    LBL122
  1851.      JMP TRNRG3
  1852. LBL122:
  1853.     POP    BX        ; HL -> R
  1854.     MOV    AL,0FFH        ; return NZ
  1855.     OR    AL,AL        ; if no match
  1856.     RET
  1857. ;
  1858. TRNRG4:    MOV    DX,OFFSET RTBL
  1859.     SUB    BX,DX
  1860.     ADD    BX,BX
  1861.     MOV    DX,OFFSET RPTBL
  1862.     ADD    BX,DX
  1863.     MOV    DL,[BX]
  1864.     INC    BX
  1865.     MOV    DH,[BX]
  1866.     POP    BX
  1867.     INC    BX
  1868.     XOR    AL,AL
  1869.     RET
  1870. ;
  1871. RTBL    DB    'ABCDEHLM'
  1872. RTBLE:
  1873. RPTBL    DW    ALREG
  1874.     DW    CHREG
  1875.     DW    CLREG
  1876.     DW    DHREG
  1877.     DW    DLREG
  1878.     DW    BHREG
  1879.     DW    BLREG
  1880.     DW    PBX
  1881. ;
  1882. ALREG    DB    'AL',0
  1883. CHREG    DB    'CH',0
  1884. CLREG    DB    'CL',0
  1885. DHREG    DB    'DH',0
  1886. DLREG    DB    'DL',0
  1887. BHREG    DB    'BH',0
  1888. BLREG    DB    'BL',0
  1889. PBX    DB    '[BX]',0
  1890.  
  1891. ;
  1892. ; Rotates
  1893. ;
  1894. DOROT:    CALL    PUTOPHT
  1895.     MOV    BX,OFFSET OPALC
  1896.     CALL    PUTOPS
  1897.     MOV    AL,'1'
  1898.     CALL    PUTCHR
  1899.     JMP    PUTOPR
  1900.  
  1901. ;
  1902. ;    DAD rp -> ADD BX,rp'
  1903. ;
  1904. DODAD:    MOV    AL,DADFL
  1905.     OR    AL,AL
  1906.     JZ    DODAD2
  1907.  
  1908.     PUSH    BX
  1909.     MOV    BX,OFFSET OPPSHF ; 'PUSHF'
  1910.     CALL    PUTOPS
  1911.     CALL    SEP    ; Put out separator
  1912.     POP    BX
  1913.  
  1914.     CALL    PUTOPC
  1915.     CALL    PUTHTS
  1916.  
  1917. DODAD1:    MOV    BX,OFFSET OPBXC    ;'BX,'
  1918.     CALL    PUTOPS
  1919.  
  1920.     MOV    BX,xOPRND
  1921.     CALL    TRNRP    ; DX -> translated rp
  1922.     JZ    DODAD3
  1923.     JMP    PUTOPR
  1924.  
  1925. DODAD2:    CALL    PUTOPHT
  1926.     JMP    DODAD1
  1927.  
  1928. DODAD3:    XCHG    BX,DX
  1929.     MOV    AL,[BX]
  1930.     XCHG    BX,DX
  1931.     CMP    AL,'A'
  1932.     JNZ    LBL123
  1933.     JMP    PUTOPR
  1934. LBL123:
  1935.  
  1936.     XCHG    BX,DX    ; BX -> translated rp
  1937.     CALL    PUTRND
  1938.     XCHG    BX,DX    ; BX -> next
  1939.  
  1940.     MOV    AL,DADFL
  1941.     OR    AL,AL
  1942.     JZ    DODAD4
  1943.  
  1944.     PUSH    BX
  1945.     CALL    SEP    ; Put out separator
  1946.     MOV    BX,OFFSET OPPOPF ; 'POPF'
  1947.     CALL    PUTOPS
  1948.     POP    BX
  1949.  
  1950. DODAD4:    JMP    PUTEND
  1951. ;
  1952. OPBXC    DB    'BX,',0
  1953.  
  1954. ;
  1955. ;    DCX or INX rp -> DEC or INC rp'
  1956. ;
  1957. DODCX:    MOV    AL,INXFL
  1958.     OR    AL,AL
  1959.     JZ    DODCX2
  1960.  
  1961.     PUSH    BX
  1962.     MOV    BX,OFFSET OPPSHF ; 'PUSHF'
  1963.     CALL    PUTOPS
  1964.     CALL    SEP    ; Put out separator
  1965.     POP    BX
  1966.  
  1967.     CALL    PUTOPC
  1968.     CALL    PUTHTS
  1969.  
  1970. DODCX1:    MOV    BX,xOPRND
  1971.     CALL    TRNRP    ; DX -> translated rp
  1972.     JZ    DODCX3
  1973.     JMP    PUTOPR
  1974.  
  1975. DODCX2:    CALL    PUTOPHT
  1976.     JMP    DODCX1
  1977.  
  1978. DODCX3:    XCHG    BX,DX
  1979.     MOV    AL,[BX]
  1980.     XCHG    BX,DX
  1981.     CMP    AL,'A'
  1982.     JNZ    LBL124
  1983.     JMP    PUTOPR
  1984. LBL124:
  1985.  
  1986.     XCHG    BX,DX    ; BX -> translated rp
  1987.     CALL    PUTRND
  1988.     XCHG    BX,DX    ; BX -> next
  1989.  
  1990.     MOV    AL,INXFL
  1991.     OR    AL,AL
  1992.     JZ    DODCX4
  1993.  
  1994.     PUSH    BX
  1995.     CALL    SEP    ; Put out separator
  1996.     MOV    BX,OFFSET OPPOPF ; 'POPF'
  1997.     CALL    PUTOPS
  1998.     POP    BX
  1999.  
  2000. DODCX4:    JMP    PUTEND
  2001. ;
  2002. OPPSHF    DB    'PUSHF',0
  2003. OPPOPF    DB    'POPF',0
  2004.  
  2005. ;
  2006. ; PUSH rp -> PUSH rp'
  2007. ;
  2008. DOPSH:    XCHG    BX,DX
  2009.     MOV    BX,xOPRND
  2010.     MOV    AL,[BX]
  2011.     AND    AL,5FH
  2012.     CMP    AL,'P'
  2013.     XCHG    BX,DX
  2014.     JNZ    DOPSH1
  2015.     XCHG    BX,DX
  2016.     CALL    TRNRP        ; DE -> trans, HL -> next
  2017.     JZ    LBL125
  2018.      JMP PUTCOD
  2019. LBL125:
  2020.     PUSH    BX
  2021.     MOV    BX,OFFSET OPLAHF
  2022.     CALL    PUTRND
  2023.  
  2024.     MOV    AL,PSWFL    ; Preserve order of
  2025.     OR    AL,AL        ;  registers on stack ?
  2026.     JZ    LBL126
  2027.     CALL    XAHAL        ; Yes, XCHG AH,AL
  2028. LBL126:
  2029.  
  2030.     CALL    SEP        ; SP,EP,SP or CR, LF, HT
  2031.     MOV    BX,OFFSET OPPUSH
  2032.     CALL    PUTOPS
  2033.     CALL    PUTHTS
  2034.     POP    BX
  2035.     XCHG    BX,DX        ; BX -> translated rp
  2036.     CALL    PUTRND
  2037.     XCHG    BX,DX        ; BX -> next
  2038.  
  2039.     MOV    AL,PSWFL
  2040.     OR    AL,AL
  2041.     JZ    LBL127
  2042.     CALL    XAHAL
  2043. LBL127:
  2044.  
  2045.     JMP    PUTEND
  2046. ;
  2047. DOPSH1:    CALL    PUTOPHT
  2048. DOPSH2:    MOV    BX,xOPRND
  2049.     CALL    TRNRP        ; DX -> translated rp
  2050.     JZ    LBL128
  2051.     JMP    PUTOPR
  2052. LBL128:
  2053.  
  2054. DOPSH3:    XCHG    BX,DX        ; BX -> translated rp
  2055.     CALL    PUTRND
  2056.     XCHG    BX,DX        ; BX -> next
  2057.     JMP    PUTEND
  2058. ;
  2059. OPLAHF    DB    'LAHF',0
  2060. OPPUSH    DB    'PUSH',0
  2061.  
  2062. ;
  2063. XAHAL:    PUSH    BX
  2064.     CALL    SEP
  2065.     MOV    BX,OFFSET OPXCHG
  2066.     CALL    PUTRND
  2067.     CALL    PUTHTS
  2068.     MOV    BX,OFFSET OPAHAL
  2069.     CALL    PUTRND
  2070.     POP    BX
  2071.     RET
  2072. ;
  2073. OPXCHG    DB    'XCHG',0
  2074. OPAHAL    DB    'AH,AL',0
  2075.  
  2076. ;
  2077. ; POP rp -> POP rp'
  2078. ;
  2079. DOPOP:    XCHG    BX,DX        ; save BX in DX
  2080.     MOV    BX,xOPRND
  2081.     MOV    AL,[BX]
  2082.     AND    AL,5FH
  2083.     CMP    AL,'P'        ; Is it PSW ?
  2084.     XCHG    BX,DX        ; restore BX
  2085.     JNZ    DOPSH1
  2086.  
  2087.     CALL    PUTOPC
  2088.     MOV    AL,PSWFL
  2089.     OR    AL,AL
  2090.     JZ    DOPOP1
  2091.     CALL    PUTHTS        ; Put space or tab
  2092.     JMP    DOPOP2
  2093.  
  2094. DOPOP1:    CALL    PUTHT
  2095. DOPOP2:    MOV    BX,xOPRND
  2096.     CALL    TRNRP        ; DE -> trans, HL -> next
  2097.     JZ    LBL129
  2098.      JMP PUTOPR
  2099. LBL129:
  2100.  
  2101.     XCHG    BX,DX        ; BX -> tranlated rp
  2102.     CALL    PUTRND
  2103.  
  2104.     MOV    AL,PSWFL
  2105.     OR    AL,AL
  2106.     JZ    LBL130
  2107.     CALL    XAHAL
  2108. LBL130:
  2109.  
  2110.     CALL    SEP        ; SP,EP,SP or CR, LF, HT
  2111.     MOV    BX,OFFSET OPSAHF
  2112.     CALL    PUTRND
  2113.     XCHG    BX,DX
  2114.     JMP    PUTEND
  2115. ;
  2116. OPSAHF    DB    'SAHF',0
  2117.  
  2118. ;
  2119. ; LXI rp,n -> MOV rp',OFFSET n
  2120. ;
  2121. DOLXI:    CALL    PUTOPHT
  2122.     MOV    BX,xOPRND
  2123.     CALL    TRNRP
  2124.     JZ    LBL131
  2125.      JMP PUTOPR
  2126. LBL131:
  2127.     XCHG BX,DX 
  2128.      MOV AL,[BX] 
  2129.     XCHG BX,DX
  2130.     CMP    AL,'A'
  2131.     JNZ    LBL132
  2132.      JMP PUTOPR
  2133. LBL132:
  2134.     XCHG    BX,DX
  2135.     CALL    PUTRND
  2136.     MOV    BX,OFFSET OFFATR
  2137.     CALL    PUTLIN
  2138.     XCHG    BX,DX        ; HL -> next
  2139.     INC    BX        ; skip comma
  2140.     JMP    PUTEND
  2141. ;
  2142. OFFATR    DB    ',OFFSET ',0
  2143.  
  2144. ;
  2145. ; Translate 16 bit registers.
  2146. ; Enter with HL -> rp.
  2147. ; Returns HL -> next char, DE -> translation,
  2148. ; Z set if match,
  2149. ; otherwise, HL unchanged, NZ.
  2150. ;
  2151. TRNRP:    XOR    AL,AL
  2152.     MOV    LCDFLG,AL
  2153.     MOV    AL,[BX]
  2154.     CMP    AL,'a'
  2155.     JNC    LBL133
  2156.      JMP TRNRP1
  2157. LBL133:
  2158.     MOV    LCDFLG,AL
  2159. TRNRP1:    AND    AL,5FH
  2160.     CMP    AL,'B'
  2161.     JNZ    LBL134
  2162.      JMP TRNRPB
  2163. LBL134:
  2164.     CMP    AL,'D'
  2165.     JNZ    LBL135
  2166.      JMP TRNRPD
  2167. LBL135:
  2168.     CMP    AL,'H'
  2169.     JNZ    LBL136
  2170.      JMP TRNRPH
  2171. LBL136:
  2172.     CMP    AL,'P'
  2173.     JNZ    LBL137
  2174.      JMP TRNRPP
  2175. LBL137:
  2176.     CMP    AL,'S'
  2177.     JNZ    LBL138
  2178.      JMP TRNRPS
  2179. LBL138:
  2180. TRNRP2:    MOV    AL,0
  2181.     MOV    LCDFLG,AL
  2182.     RET
  2183.  
  2184. ;
  2185. TRNRPB:    MOV    DX,OFFSET OPRCX    ;'CX'
  2186.     INC    BX
  2187.     XOR    AL,AL
  2188.     RET
  2189. ;
  2190. TRNRPD:    MOV    DX,OFFSET OPRDX    ;'DX'
  2191.     INC    BX
  2192.     XOR    AL,AL
  2193.     RET
  2194. ;
  2195. TRNRPH:    MOV    DX,OFFSET OPRBX    ;'BX'
  2196.     INC    BX
  2197.     XOR    AL,AL
  2198.     RET
  2199. ;
  2200. TRNRPP:    INC    BX
  2201.     MOV    AL,[BX]
  2202.     AND    AL,5FH
  2203.     CMP    AL,'S'
  2204.     JZ    LBL139
  2205.      JMP TRNRP4
  2206. LBL139:
  2207.     INC    BX
  2208.     MOV    AL,[BX]
  2209.     AND    AL,5FH
  2210.     CMP    AL,'W'
  2211.     JZ    LBL140
  2212.      JMP TRNRP3
  2213. LBL140:
  2214.     MOV    DX,OFFSET OPRAX    ;'AX'
  2215.     INC    BX
  2216.     XOR    AL,AL
  2217.     RET
  2218. ;
  2219. TRNRP3:    DEC    BX
  2220. TRNRP4:    DEC    BX
  2221.     JMP    TRNRP2
  2222. ;
  2223. TRNRPS:    INC    BX
  2224.     MOV    AL,[BX]
  2225.     AND    AL,5FH
  2226.     CMP    AL,'P'
  2227.     JZ    LBL141
  2228.      JMP TRNRP4
  2229. LBL141:
  2230.     MOV    DX,OFFSET OPRSP
  2231.     INC    BX
  2232.     XOR    AL,AL
  2233.     RET
  2234. ;
  2235. OPRAX    DB    'AX',0
  2236. OPRCX    DB    'CX',0
  2237. OPRDX    DB    'DX',0
  2238. OPRBX    DB    'BX',0
  2239. OPRSP    DB    'SP',0
  2240.  
  2241. ;
  2242. ;    Strange opcodes
  2243. ;
  2244. DOTDL:    MOV    AL,OPCBUF+1
  2245.  
  2246.     MOV    BX,OFFSET CCZ    ;'Z '
  2247.     CMP    AL,'E'
  2248.     JNZ    LBL142
  2249.      JMP DOTDL1
  2250. LBL142:
  2251.     MOV    BX,OFFSET CCNZ    ;'NZ'
  2252.     CMP    AL,'N'
  2253.     JNZ    LBL143
  2254.      JMP DOTDL1
  2255. LBL143:
  2256.     MOV    BX,OFFSET CCC    ;'C '
  2257.     CMP    AL,'L'
  2258.     JNZ    LBL144
  2259.      JMP DOTDL1
  2260. LBL144:
  2261.     MOV    BX,OFFSET CCNC    ;'NC'
  2262.  
  2263.     CMP    AL,'G'
  2264.     JNZ    LBL145
  2265.      JMP DOTDL1
  2266. LBL145:
  2267.     MOV    BX,OFFSET CCZL
  2268.     CMP    AL,'e'
  2269.     JNZ    LBL146
  2270.      JMP DOTDL1
  2271. LBL146:
  2272.     MOV    BX,OFFSET CCNZL
  2273.     CMP    AL,'n'
  2274.     JNZ    LBL147
  2275.      JMP DOTDL1
  2276. LBL147:
  2277.     MOV    BX,OFFSET CCCL
  2278.     CMP    AL,'l'
  2279.     JNZ    LBL148
  2280.      JMP DOTDL1
  2281. LBL148:
  2282.     MOV    BX,OFFSET CCNCL
  2283.  
  2284. DOTDL1:    MOV    AL,[BX]
  2285.     MOV    OPCBUF+1,AL
  2286.     INC    BX
  2287.     MOV    AL,[BX]
  2288.     MOV    OPCBUF+2,AL
  2289.     RET
  2290. ;
  2291. CCZ    DB    'Z '
  2292. CCNZ    DB    'NZ'
  2293. CCC    DB    'C '
  2294. CCNC    DB    'NC'
  2295.  
  2296. CCZL    DB    'z '
  2297. CCNZL    DB    'nz'
  2298. CCCL    DB    'c '
  2299. CCNCL    DB    'nc'
  2300.  
  2301. ;
  2302. ;    Return conditional
  2303. ;
  2304. DORET:    CALL    PUTOPC
  2305.     CALL    PUTHT        ; Could change to PUTHTS
  2306.     MOV    BX,OFFSET REL3
  2307.     CALL    PUTLIN
  2308.     CALL    SEP
  2309.     MOV    BX,OFFSET OPRET
  2310.     CALL    PUTOPS
  2311.     JMP    PUTOPR
  2312. ;
  2313. REL3    DB    '$+3',0
  2314. OPRET    DB    'RET',0
  2315.  
  2316. ;
  2317. ;    Call conditional
  2318. ;
  2319. DOCALL:    CALL    PUTOPC
  2320.     CALL    PUTHT        ; Could change to PUTHTS
  2321.     MOV    BX,OFFSET REL5
  2322.     CALL    PUTLIN
  2323.     CALL    SEP        ; SP,EP,SP or CR, LF, HT
  2324.     MOV    BX,OFFSET OPCALL
  2325.     CALL    PUTOPS
  2326.     CALL    PUTHTS
  2327.     JMP    PUTOPR
  2328. ;
  2329. REL5    DB    '$+5',0
  2330. OPCALL    DB    'CALL',0
  2331.  
  2332. ;
  2333. ;    Jump conditional
  2334. ;
  2335. DOJMP:    CALL    PUTOPC
  2336.     CALL    PUTHT        ; Could change to PUTHTS
  2337.     MOV    BX,OFFSET REL5
  2338.     CALL    PUTLIN
  2339.     CALL    SEP        ; SP,EP,SP or CR, LF, HT
  2340.     MOV    BX,OFFSET OPJMP
  2341.     CALL    PUTOPS
  2342.     CALL    PUTHTS        ; Put space or tab
  2343.     JMP    PUTOPR
  2344. ;
  2345. OPJMP    DB    'JMP',0
  2346.  
  2347. ;
  2348. ;    IN n -> IN AL,n
  2349. ;
  2350. DOIN:    JMP    DOIMM
  2351.  
  2352. ;
  2353. ;    LDA addr -> MOV AL,addr
  2354. ;
  2355. DOLDA:    JMP    DOIMM
  2356.  
  2357. ;
  2358. ;           XCHG BX,rp'
  2359. ;    LDAX rp -> MOV AL,[BX]
  2360. ;           XCHG BX,rp'
  2361. ;
  2362. DOLDAX:    MOV    BX,xOPRND
  2363.     CALL    TRNRP        ; DE -> trans, HL -> next
  2364.     JZ    LBL151
  2365.      JMP PUTCOD
  2366. LBL151:
  2367.  
  2368.     PUSH    BX
  2369.     MOV    BX,OFFSET OPXCHG
  2370.     CALL    PUTOPS
  2371.     CALL    PUTHTS
  2372.     MOV    BX,OFFSET OPBXC
  2373.     CALL    PUTOPS
  2374.     XCHG    BX,DX
  2375.     PUSH    BX
  2376.     CALL    PUTRND
  2377.     CALL    SEP        ; SP,EP,SP or CR, LF, HT
  2378.  
  2379.     MOV    BX,OFFSET OPMOV
  2380.     CALL    PUTOPS
  2381.     CALL    PUTHTS
  2382.     MOV    BX,OFFSET OPLDAX
  2383.     CALL    PUTOPS
  2384.     CALL    SEP        ; SP,EP,SP or CR, LF, HT
  2385.  
  2386.     MOV    BX,OFFSET OPXCHG
  2387.     CALL    PUTOPS
  2388.     CALL    PUTHTS
  2389.     MOV    BX,OFFSET OPBXC
  2390.     CALL    PUTOPS
  2391.     POP    BX        ; HL -> rp'
  2392.     CALL    PUTRND
  2393.  
  2394.     POP    BX
  2395.     JMP    PUTEND
  2396. ;
  2397. OPMOV    DB    'MOV',0
  2398. OPLDAX    DB    'AL,[BX]',0
  2399.  
  2400. ;
  2401. ;    LHLD addr -> MOV BX,addr
  2402. ;
  2403. DOLHLD:    CALL    PUTOPHT
  2404.     MOV    BX,OFFSET OPBXC    ; 'BX,'
  2405.     CALL    PUTOPS
  2406.     JMP    PUTOPR
  2407.  
  2408. ;
  2409. ;    OUT n -> OUT n,AL
  2410. ;
  2411. DOOUT:    CALL    PUTOPHT
  2412.     CALL    PUTEXP
  2413.     PUSH    BX
  2414.     MOV    BX,OFFSET OPCAL    ; ',AL'
  2415.     JMP    DOSTA1
  2416.  
  2417. ;
  2418. ;    PCHL -> JMP BX
  2419. ;
  2420. DOPCHL:    CALL    PUTOPHT
  2421.     MOV    BX,OFFSET OPRBX    ; 'BX'
  2422.     CALL    PUTOPS
  2423.     JMP    PUTOPR
  2424.  
  2425. ;
  2426. ;    RST -> CALL 8*
  2427. ;
  2428. DORST:    CALL    PUTOPHT
  2429.     MOV    BX,OFFSET OPR8M    ;'8*'
  2430.     CALL    PUTOPS
  2431.     JMP    PUTOPR
  2432. ;
  2433. OPR8M    DB    '8*',0
  2434.  
  2435. ;
  2436. ;    SHLD addr -> MOV addr,BX
  2437. ;
  2438. DOSHLD:    CALL    PUTOPHT
  2439.     CALL    PUTEXP
  2440.     PUSH    BX
  2441.     MOV    BX,OFFSET OPCBX    ; ',BX'
  2442.     JMP    DOSTA1
  2443. ;
  2444. OPCBX    DB    ',BX',0
  2445.  
  2446. ;
  2447. ;    SPHL -> MOV SP,BX
  2448. ;
  2449. DOSPHL:    CALL    PUTOPHT
  2450.     MOV    BX,OFFSET OPSPBX ; 'SP,BX'
  2451.     CALL    PUTOPS
  2452.     JMP    PUTOPR
  2453. ;
  2454. OPSPBX    DB    'SP,BX',0
  2455.  
  2456. ;
  2457. ;    STA addr -> MOV addr,AL
  2458. ;
  2459. DOSTA:    CALL    PUTOPHT
  2460.     CALL    PUTEXP
  2461.     PUSH    BX
  2462.     MOV    BX,OFFSET OPCAL    ; ',AL'
  2463. DOSTA1:    CALL    PUTOPS
  2464.     POP    BX
  2465.     JMP    PUTEND
  2466. ;
  2467. OPCAL    DB    ',AL',0
  2468.  
  2469. ;
  2470. ;           XCHG BX,rp'
  2471. ;    STAX rp -> MOV [BX],AL
  2472. ;           XCHG BX,rp'
  2473. ;
  2474. DOSTAX:    MOV    BX,xOPRND
  2475.     CALL    TRNRP        ; DE -> trans, HL -> next
  2476.     JZ    LBL152
  2477.      JMP PUTCOD
  2478. LBL152:
  2479.  
  2480.     PUSH    BX
  2481.     MOV    BX,OFFSET OPXCHG
  2482.     CALL    PUTOPS
  2483.     CALL    PUTHTS
  2484.     MOV    BX,OFFSET OPBXC
  2485.     CALL    PUTOPS
  2486.     XCHG    BX,DX
  2487.     PUSH    BX
  2488.     CALL    PUTRND
  2489.     CALL    SEP        ; SP,EP,SP or CR, LF, HT
  2490.  
  2491.     MOV    BX,OFFSET OPMOV
  2492.     CALL    PUTOPS
  2493.     CALL    PUTHTS
  2494.     MOV    BX,OFFSET OPSTAX
  2495.     CALL    PUTOPS
  2496.     CALL    SEP        ; SP,EP,SP or CR, LF, HT
  2497.  
  2498.     MOV    BX,OFFSET OPXCHG
  2499.     CALL    PUTOPS
  2500.     CALL    PUTHTS
  2501.     MOV    BX,OFFSET OPBXC
  2502.     CALL    PUTOPS
  2503.     POP    BX        ; HL -> rp'
  2504.     CALL    PUTRND
  2505.  
  2506.     POP    BX
  2507.     JMP    PUTEND
  2508. ;
  2509. OPSTAX    DB    '[BX],AL',0
  2510.  
  2511. ;
  2512. ;    XCHG -> XCHG BX,DX
  2513. ;
  2514. DOXCHG:    CALL    PUTOPHT
  2515.     MOV    BX,OFFSET OPBXDX ; 'BX,DX'
  2516.     CALL    PUTOPS
  2517.     JMP    PUTOPR
  2518. ;
  2519. OPBXDX    DB    'BX,DX',0
  2520.  
  2521. ;
  2522. ;        XCHG SP,BP
  2523. ;    XTHL -> XCHG [BP],BX
  2524. ;        XCHG SP,BP
  2525. ;
  2526. DOXTHL:    MOV    BX,OFFSET OPXCHG
  2527.     CALL    PUTOPS
  2528.     CALL    PUTHTS
  2529.     MOV    BX,OFFSET OPSPBP ; 'SP,BP'
  2530.     CALL    PUTOPS
  2531.     CALL    SEP        ; SP,EP,SP or CR, LF, HT
  2532.  
  2533.     MOV    BX,OFFSET OPXCHG
  2534.     CALL    PUTOPS
  2535.     CALL    PUTHTS
  2536.     MOV    BX,OFFSET OPXTHL
  2537.     CALL    PUTOPS
  2538.     CALL    SEP        ; SP,EP,SP or CR, LF, HT
  2539.  
  2540.     MOV    BX,OFFSET OPXCHG
  2541.     CALL    PUTOPS
  2542.     CALL    PUTHTS
  2543.     MOV    BX,OFFSET OPSPBP
  2544.     CALL    PUTOPS
  2545.     JMP    PUTOPR
  2546. ;
  2547. OPSPBP    DB    'SP,BP',0
  2548. OPXTHL    DB    '[BP],BX',0
  2549.  
  2550. ;
  2551. ;    CMA -> NOT AL
  2552. ;
  2553. DOCMA:    CALL    PUTOPHT
  2554.     MOV    BX,OFFSET ALREG
  2555.     CALL    PUTOPS
  2556.     JMP    PUTOPR
  2557.  
  2558. ;
  2559. ;    Put 'expression' to output file.
  2560. ;    'expression' is everything between
  2561. ;    (xOPRND) up to the tab or spaces before
  2562. ;    a ';' or CR.
  2563. ;
  2564. PUTEXP:    MOV    BX,xOPRND
  2565. PUTEX1:    MOV    AL,[BX]
  2566.  
  2567.     CMP    AL,';'
  2568.     JNZ    LBL153
  2569.      JMP PUTEX4
  2570. LBL153:
  2571.     CMP    AL,CR
  2572.     JNZ    LBL154
  2573.      JMP PUTEX4
  2574. LBL154:
  2575.  
  2576.     CMP    AL,'!'
  2577.     JNZ    LBL155
  2578.      JMP PUTEX3
  2579. LBL155:
  2580.  
  2581. PUTEX2:    INC    BX
  2582.     JMP    PUTEX1
  2583.  
  2584. PUTEX3:    DEC    BX
  2585.     MOV    AL,[BX]
  2586.     INC    BX
  2587.     CMP    AL,' '
  2588.     JNZ    LBL156
  2589.      JMP PUTEX4
  2590. LBL156:
  2591.     CMP    AL,HT
  2592.     JNZ    LBL157
  2593.      JMP PUTEX4
  2594. LBL157:
  2595.     JMP    PUTEX2
  2596.  
  2597. ;
  2598. PUTEX4:    DEC    BX
  2599.     MOV    AL,[BX]
  2600.     CMP    AL,' '
  2601.     JNZ    LBL158
  2602.      JMP PUTEX4
  2603. LBL158:
  2604.     CMP    AL,HT
  2605.     JNZ    LBL159
  2606.      JMP PUTEX4
  2607. LBL159:
  2608.     INC    BX
  2609.     XCHG    BX,DX
  2610.     MOV    BX,xOPRND
  2611. PUTEX5:    MOV    AL,DH
  2612.     CMP    AL,BH
  2613.     JZ    LBL160
  2614.      JMP PUTEX6
  2615. LBL160:
  2616.     MOV    AL,DL
  2617.     CMP    AL,BL
  2618.     JNZ    LBL161
  2619. RET
  2620. LBL161:
  2621. PUTEX6:    MOV    AL,[BX]
  2622.     CALL    PUTCHR
  2623.     INC    BX
  2624.     JMP    PUTEX5
  2625.  
  2626. ;
  2627. ;    IFC -> IF
  2628. ;
  2629. DOIFC:    MOV    AL,HT
  2630.     MOV    ENDIFL,AL
  2631.     JMP    DOUPS
  2632.  
  2633. ;
  2634. ;    ICL -> *INCL
  2635. ;
  2636. DOICL:    MOV    AL,HT
  2637.     MOV    ICLFLG,AL
  2638.     JMP    DOUPS
  2639.  
  2640. ;
  2641. ;    LST -> LIST
  2642. ;
  2643. DOLST:    MOV    AL,HT
  2644.     MOV    LSTFLG,AL
  2645.     JMP    DOUPS
  2646.  
  2647. ;
  2648. ;    MAC -> MACRO
  2649. ;
  2650. DOMAC:    MOV    AL,HT
  2651.     MOV    MACFLG,AL
  2652. DOUPS:    CALL    PUTOPHT
  2653.     MOV    AL,CR
  2654.     MOV    UPSMSG,AL
  2655.     JMP    PUTOPR
  2656.  
  2657. ;*******************************************************
  2658. ;
  2659. ;    File operations
  2660. ;
  2661. ;*******************************************************
  2662. ;
  2663. ;    Set up input and output FCB's from DFCB
  2664. ;
  2665. MAKFNS:    MOV    BX,OFFSET DFCB1
  2666.     MOV    DX,OFFSET INFCB
  2667.     MOV    CX,FNLEN+1
  2668.     CALL    MOVIR
  2669.     MOV    AL,[BX] ; typ specified ?
  2670.     CMP    AL,' '
  2671.     JNZ    LBL162
  2672.      JMP MKFNS1
  2673. LBL162:
  2674.     CMP    AL,'?'
  2675.     JNZ    LBL163
  2676.      JMP MKFNS1
  2677. LBL163:
  2678.     MOV    CX,3
  2679.     CALL    MOVIR
  2680. MKFNS1:
  2681.     MOV    BX,OFFSET DFCB1
  2682.     MOV    DX,OFFSET OUTFCB
  2683.     MOV    CX,FNLEN+1
  2684.     CALL    MOVIR
  2685.  
  2686.     MOV    AL,DFCB2    ;
  2687.     OR    AL,AL        ; allows output to
  2688.     JNZ    LBL164
  2689.      JMP MKFNS2 ; different drive
  2690. LBL164:
  2691.     MOV    OUTFCB,AL    ; than input
  2692. MKFNS2:
  2693.     MOV    AL,DFCB2+1    ;
  2694.     CMP    AL,' '        ;
  2695.     JNZ    LBL165
  2696.      JMP MKFNS3 ; allows output
  2697. LBL165:
  2698.     MOV    CX,8        ; file to have
  2699.     MOV    DX,OFFSET OUTFCB+1 ; different name
  2700.     MOV    BX,OFFSET DFCB2+1  ; from input file
  2701.     CALL    MOVIR        ;
  2702. MKFNS3:
  2703.     MOV    AL,DFCB2+9
  2704.     CMP    AL,' '
  2705.     JNZ    LBL166
  2706.      JMP MKFNS4
  2707. LBL166:
  2708.     MOV    CX,3
  2709.     MOV    DX,OFFSET OUTFCB+9
  2710.     MOV    BX,OFFSET DFCB2+9
  2711.     CALL    MOVIR
  2712. MKFNS4:
  2713.     MOV    DX,OFFSET PRFNM1
  2714.     CALL    PRTLIN
  2715.     MOV    BX,OFFSET INFCB
  2716.     CALL    PRFNAM
  2717.     MOV    DX,OFFSET PRFNM2
  2718.     CALL    PRTLIN
  2719.     MOV    BX,OFFSET OUTFCB
  2720.     CALL    PRFNAM
  2721.     MOV    DX,OFFSET CRLFMG
  2722.     CALL    PRTLIN
  2723.     RET
  2724.  
  2725. ;
  2726. ;    Print Filenames
  2727. ;
  2728. PRFNAM:    MOV    AL,[BX] ; disk number
  2729.     OR    AL,AL
  2730.     JZ    LBL167
  2731.      JMP PRFN1
  2732. LBL167:
  2733.     MOV    AL,xCDISK
  2734. PRFN1:    ADD    AL,'@'
  2735.     CALL    CONOUT
  2736.     MOV    AL,':'
  2737.     CALL    CONOUT
  2738.     INC    BX
  2739.     MOV    CH,8
  2740.     CALL    PRFN
  2741.     MOV    AL,'.'
  2742.     CALL    CONOUT
  2743.     MOV    CH,3
  2744. PRFN:    MOV    AL,[BX]
  2745.     INC    BX
  2746.     CMP    AL,' '
  2747.     JZ    LBL168
  2748.      CALL CONOUT
  2749. LBL168:
  2750.     DEC    CH
  2751.     JZ    LBL169
  2752.      JMP PRFN
  2753. LBL169:
  2754.     RET
  2755. ;
  2756. PRFNM1    DB    'Source File: ',0
  2757. PRFNM2    DB    ',  Destination File: ',0
  2758.  
  2759. ;
  2760. ;    Open source file with ext ASM
  2761. ;
  2762. OPENIN:
  2763.     MOV    DX,OFFSET INFCB
  2764.     MOV    AH,nOPEN
  2765.     CALL    BDOS
  2766.     CMP    AL,NFF
  2767.     JNZ    LBL170
  2768.      JMP NSFERR
  2769. LBL170:
  2770.     MOV    AL,RECLEN
  2771.     MOV    BX,OFFSET IBUFF
  2772.     ADD    BX,IBFLEN
  2773.     MOV    xIBUFF,BX
  2774.     RET
  2775. ;
  2776. NSFERR:    MOV    DX,OFFSET NSFMSG ;'No Source File'
  2777.     JMP    EREXIT
  2778. ;
  2779. NSFMSG    DB    'No Source File Found'
  2780.     DB    CR,LF,BEL,0
  2781. ;
  2782. INFCB    DB    0,0,0,0,0,0,0,0
  2783.     DB    0,'ASM',0,0,0,0
  2784.     DB    0,0,0,0,0,0,0,0
  2785.     DB    0,0,0,0,0,0,0,0
  2786.     DB    0
  2787.  
  2788. ;
  2789. ;    Create output file with ext Z80
  2790. ;
  2791. CREATO:
  2792.     MOV    DX,OFFSET OUTFCB
  2793.     MOV    AH,nOPEN
  2794.     CALL    BDOS
  2795.     CMP    AL,NFF
  2796.     JZ    LBL171
  2797.      JMP OFEERR
  2798. LBL171:
  2799. CREAT4:    MOV    DX,OFFSET OUTFCB
  2800.     MOV    AH,nCREAT
  2801.     CALL    BDOS
  2802.     CMP    AL,NFF
  2803.     JNZ    LBL172
  2804.      JMP NDSERR
  2805. LBL172:
  2806.     MOV    DX,OFFSET OUTFCB
  2807.     MOV    AH,nOPEN
  2808.     CALL    BDOS
  2809.     MOV    AL,RECLEN
  2810.     MOV    OBUFCT,AL
  2811.     MOV    BX,OFFSET OBUFF
  2812.     MOV    xOBUFF,BX
  2813.     RET
  2814. ;
  2815. NDSERR:    MOV    DX,OFFSET NDSMSG ;'No directory space'
  2816.     JMP    EREXIT
  2817. ;
  2818. NDSMSG    DB    'No Directory Space'
  2819.     DB    CR,LF,BEL,0
  2820. ;
  2821. OUTFCB    DB    0,0,0,0,0,0,0,0
  2822.     DB    0,'A86',0,0,0,0
  2823.     DB    0,0,0,0,0,0,0,0
  2824.     DB    0,0,0,0,0,0,0,0
  2825.     DB    0
  2826. ;
  2827. ;
  2828. OFEERR:    MOV    DX,OFFSET OFEMSG ;'Output file exists'
  2829.     CALL    PRTLIN
  2830.     CALL    CHKYES
  2831.     JZ    LBL173
  2832.      JMP ABORT
  2833. LBL173:
  2834.     MOV    DX,OFFSET OUTFCB
  2835.     MOV    AH,nDEL
  2836.     CALL    BDOS
  2837.     JMP    CREAT4
  2838. ;
  2839. OFEMSG    DB    'Output File Already Exists'
  2840.     DB    ' -- Delete it and Continue ? (Y/N) '
  2841.     DB    BEL,0
  2842.  
  2843. ;*******************************************************
  2844. ;
  2845. ;    Put line at HL to output file until 0.
  2846. ;
  2847. PUTLIN:    MOV    AL,[BX]
  2848.     AND    AL,AL
  2849.     JNZ    LBL174
  2850. RET
  2851. LBL174:
  2852.     CALL    PUTCHR
  2853.     INC    BX
  2854.     JMP    PUTLIN
  2855.  
  2856. ;
  2857. ;    Put spaces or tabs at HL to output
  2858. ;    file until non-(space or tab)
  2859. ;
  2860. PUTSPT:    MOV    AL,[BX]
  2861.     CMP    AL,' '
  2862.     JNZ    LBL175
  2863.      JMP PUTSP1
  2864. LBL175:
  2865.     CMP    AL,HT
  2866.     JZ    LBL176
  2867. RET
  2868. LBL176:
  2869. PUTSP1:    CALL    PUTCHR
  2870.     INC    BX
  2871.     JMP    PUTSPT
  2872.  
  2873. ;
  2874. ;    Put statement separator to output file.
  2875. ;
  2876. SEP:    MOV    BX,SEPMSG
  2877.     JMP    PUTLIN
  2878. ;
  2879. SEPMSG    DW    NEWLSP
  2880. EXCLSP    DB    ' ! ',0
  2881. NEWLSP    DB    CR,LF,HT,0
  2882.  
  2883. ;
  2884. ;    Put CR, LF to output file.
  2885. ;
  2886. PCRLF:    MOV    AL,CR
  2887.     CALL    PUTCHR
  2888.     MOV    AL,LF
  2889.  
  2890. ;
  2891. ;    Put char in A to output file,
  2892. ;    update column number.
  2893. ;
  2894. PUTCHR:    PUSH    BX
  2895.     PUSH    DX
  2896.     PUSH    CX
  2897.     LAHF 
  2898.      PUSH    AX
  2899.  
  2900.     MOV    TEMP,AL
  2901.     MOV    BX,xOBUFF
  2902.     CMP    AL,EOT
  2903.     JNZ    PCHR0
  2904.     MOV    AL,'!'
  2905. PCHR0:    MOV    [BX],AL
  2906.     CMP    AL,CR
  2907.     JZ    PUTCH0
  2908.     CMP    AL,LF
  2909.     JZ    PUTCH0
  2910.     CMP    AL,HT
  2911.     JNZ    PUTCH1
  2912.     MOV    AL,COLNUM
  2913.     DEC    AL
  2914.     AND    AL,NF8
  2915.     ADD    AL,N09
  2916.     JMP    PUTCH2
  2917.  
  2918. PUTCH0:    MOV    AL,1
  2919.     JMP    PUTCH2
  2920. ;
  2921. PUTCH1:    MOV    AL,COLNUM
  2922.     INC    AL
  2923. PUTCH2:    MOV    COLNUM,AL
  2924.  
  2925.     INC    BX        ;inc obuff ptr
  2926.     MOV    AL,OBUFCT
  2927.     DEC    AL        ;dec obuff count
  2928.     JNZ    PTCH21
  2929.     MOV    AL,RECLEN
  2930. PTCH21:    MOV    OBUFCT,AL
  2931.     MOV    AL,BH
  2932.     CMP    AL,(SIZE OBUFF)/256
  2933.     JNZ    PUTCH4
  2934.     MOV    AL,BL
  2935.     CMP    AL,(SIZE OBUFF) MOD 256
  2936.  
  2937.     JNZ    PUTCH4
  2938.     MOV    DX,OFFSET OBUFF
  2939. PUTCH3:
  2940.     MOV    AH,nDMA
  2941.     PUSH    DX
  2942.     CALL    BDOS
  2943.     POP    DX
  2944.  
  2945.     XCHG    BX,DX
  2946.  
  2947.     MOV    DX,OFFSET OUTFCB
  2948.     CALL    WRTREC        ;write record
  2949.  
  2950.     MOV    DX,OFFSET RECLEN
  2951.     ADD    BX,DX
  2952.     XCHG    BX,DX
  2953.     MOV    AL,DH
  2954.     CMP    AL,(SIZE OBUFF)/256
  2955.     JNZ    PUTCH3
  2956.     MOV    AL,DL
  2957.     CMP    AL,(SIZE OBUFF) MOD 256
  2958.     JNZ    PUTCH3
  2959.  
  2960.     MOV    BX,OFFSET OBUFF
  2961.  
  2962. PUTCH4:    MOV    xOBUFF,BX
  2963.     POP    AX 
  2964.      SAHF
  2965.     POP    CX
  2966.     POP    DX
  2967.     POP    BX
  2968.     RET
  2969. ;
  2970. TEMP    DB    0
  2971.  
  2972. ;
  2973. ;    Write record.
  2974. ;
  2975. WRTREC:    MOV    AH,nWRNR
  2976.     PUSH    BX
  2977.     CALL    BDOS
  2978.     POP    BX
  2979.     AND    AL,AL
  2980.     JNZ    LBL177
  2981. RET
  2982. LBL177:
  2983.     MOV    DX,OFFSET OFWMSG ;'output file write error'
  2984.     JMP    EREXIT
  2985. ;
  2986. OFWMSG    DB    'Output File Write Error'
  2987.     DB    CR,LF,BEL,0
  2988.  
  2989. ;
  2990. ;    Fill rest of obuff with EOF,
  2991. ;    write record, and close file.
  2992. ;
  2993. CLOSEO:    MOV    AL,EOF
  2994.     CALL    PUTCHR
  2995.     MOV    AL,OBUFCT
  2996.     CMP    AL,RECLEN
  2997.     JNZ    CLOSEO
  2998. ;
  2999. CLOSE1:
  3000.     MOV    DX,OFFSET OBUFF
  3001.     MOV    BX,xOBUFF
  3002.     MOV    AL,BH
  3003.     CMP    AL,DH
  3004.     JNZ    CLOSE3
  3005.     MOV    AL,BL
  3006.     CMP    AL,DL
  3007.     JNZ    CLOSE3
  3008. CLOSE2:
  3009.     MOV    DX,OFFSET OUTFCB
  3010.     MOV    AH,nCLOSE
  3011.     JMP    BDOS
  3012. ;
  3013. CLOSE3:    MOV    AH,nDMA
  3014.     PUSH    DX
  3015.     CALL    BDOS
  3016.     POP    DX
  3017.     XCHG    BX,DX
  3018.     MOV    DX,OFFSET OUTFCB
  3019.     CALL    WRTREC
  3020.     MOV    DX,RECLEN
  3021.     ADD    BX,DX
  3022.     XCHG    BX,DX
  3023.     MOV    AL,BYTE PTR xOBUFF+1
  3024.     CMP    AL,DH
  3025.     JZ    LBL178
  3026.      JMP CLOSE3
  3027. LBL178:
  3028.     MOV    AL,BYTE PTR xOBUFF
  3029.     CMP    AL,DL
  3030.     JZ    LBL179
  3031.      JMP CLOSE3
  3032. LBL179:
  3033.     JMP    CLOSE2
  3034.  
  3035. ;
  3036. ;    Print line at DE until 0
  3037. ;    on console.
  3038. ;
  3039. PRTLIN:    XCHG BX,DX 
  3040.      MOV AL,[BX] 
  3041.     XCHG BX,DX
  3042.     AND    AL,AL
  3043.     JNZ    LBL180
  3044. RET
  3045. LBL180:
  3046.     CALL    CONOUT
  3047.     INC    DX
  3048.     JMP    PRTLIN
  3049.  
  3050. ;
  3051. ;    Console Output character in A.
  3052. ;
  3053. CONOUT:    LAHF 
  3054.      PUSH    AX
  3055.     PUSH    CX
  3056.     PUSH    DX
  3057.     PUSH    BX
  3058.     MOV    DL,AL
  3059.     MOV    DH,N00
  3060.     MOV    AH,nCOUT
  3061.     CALL    BDOS
  3062.     POP    BX
  3063.     POP    DX
  3064.     POP    CX
  3065.     POP    AX 
  3066.      SAHF
  3067.     RET
  3068.  
  3069. ;
  3070. ;    Get char from CONSOLE and return
  3071. ;    Z set if char.AND.5FH = 'Y'
  3072. ;
  3073. CHKYES:    MOV    AH,nCIN
  3074.     CALL    BDOS
  3075.     LAHF 
  3076.      PUSH    AX
  3077.     CALL    CRLF
  3078.     POP    AX 
  3079.      SAHF
  3080.     AND    AL,5FH
  3081.     CMP    AL,'Y'
  3082.     RET
  3083.  
  3084. ;
  3085. ;    Return Z if no char available,
  3086. ;    otherwise, get char in A.
  3087. ;
  3088. CHKIN:    MOV    AH,nCDAV
  3089.     CALL    BDOS
  3090.     OR    AL,AL
  3091.     JNZ    LBL181
  3092.     RET
  3093. LBL181:
  3094.     MOV    AH,nCIN
  3095.     CALL    BDOS
  3096.     RET
  3097.  
  3098. ;
  3099. ;
  3100. ;
  3101. CRLF:    MOV    DX,OFFSET CRLFMG
  3102.     JMP    PRTLIN
  3103. ;
  3104. CRLFMG    DB    CR,LF,0
  3105.  
  3106. ;
  3107. ;    Convert upper to lower case in A.
  3108. ;
  3109. LCASE:    CMP    AL,'A'
  3110.     JNC    LBL182
  3111. RET
  3112. LBL182:
  3113.     CMP    AL,'Z'+1
  3114.     JC    LBL183
  3115. RET
  3116. LBL183:
  3117.     OR    AL,20H
  3118.     RET
  3119.  
  3120. ;
  3121. ;    Convert lower case to upper case in A.
  3122. ;
  3123. UCASE:    CMP    AL,'a'
  3124.     JNC    LBL184
  3125.     RET
  3126. LBL184:
  3127.     CMP    AL,'z'+1
  3128.     JC    LBL185
  3129.     RET
  3130. LBL185:
  3131.     AND    AL,5FH
  3132.     RET
  3133.  
  3134. ;
  3135. ;    Print activity dot every 100 lines.
  3136. ;
  3137. PDOT:    DEC    LNCNT
  3138.     JNZ    PDOT2
  3139.     MOV    AL,'.'
  3140.     CALL    CONOUT
  3141.     MOV    LNCNT,100    ; dot every 100 lines
  3142.  
  3143.     DEC    DOTCNT
  3144.     JNZ    PDOT1
  3145.     MOV    AL,' '
  3146.     CALL    CONOUT
  3147.     MOV    DOTCNT,10    ; Space every 10 dots
  3148. PDOT1:
  3149.     DEC    NLCNT
  3150.     JNZ    PDOT2
  3151.     CALL    CRLF
  3152.     MOV    NLCNT,50    ; 50 dots per line
  3153. PDOT2:    RET
  3154. ;
  3155. LNCNT    DB    100        ; dot every 100 lines
  3156. DOTCNT    DB    10        ; Space every 10 dots
  3157. NLCNT    DB    50        ; 50 dots per line
  3158.  
  3159. ;
  3160. ;    Uninitialized storage.
  3161. ;
  3162. xCDISK    DB    1 DUP(?)
  3163. SSBDOS    DW    1 DUP(?)
  3164. SPBDOS    DW    1 DUP(?)
  3165.     DB    stckln DUP(?)
  3166. STACK    EQU    $
  3167. COLNUM    DB    1 DUP(?)
  3168. xOPCOD    DW    1 DUP(?)
  3169. OPCBUF    DB    opbfln DUP(?)
  3170. xOPRND    DW    1 DUP(?)
  3171. xOBUFF    DW    1 DUP(?)
  3172. OBUFCT    DB    1 DUP(?)
  3173. OBUFF    DB    obflen DUP(?)
  3174. LBUFF    DB    lbufln+3 DUP(?)
  3175. xIBUFF    DW    1 DUP(?)
  3176. IBUFF    DB    ibflen DUP(?)
  3177.  
  3178. code    ends
  3179.  
  3180.     END    HERE_FIRST
  3181.