home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpmug / cpmug018.ark / MILMON80.ASM < prev    next >
Assembly Source File  |  1984-04-29  |  24KB  |  1,177 lines
  1. ; 
  2. ;    8 0 8 0    M I L    M O N I T O R
  3. ; 
  4.     ORG    0
  5. ; 
  6. L0:    MVI    A,1    ;IDLE TTY
  7.     OUT    24Q
  8.     JMP    LA0    ;CONTINUE ELSEWHERE
  9.     NOP
  10.     PUSH    H    ;SAVE H,L    RST 010-BRK PT EXEC
  11.     LXI    H,LA023    ;SET TO PRINT BUFFER(PB)
  12.     MOV    M,A    ;ACC TO PB
  13.     JMP    L3160    ;CONT ELSEWHERE
  14.     CALL    L357    ;SAVE    RST 020
  15.     LHLD    LA100    ;INDIRECT JUMP TO LOC POINTER
  16.     PCHL    ;BY CONTENT OF LA100,LA101
  17.     NOP
  18.     CALL    L357    ;    RST 030
  19.     LHLD    LA102    ;IND. JMP POINTED BY
  20.     PCHL    ;LA102,LA103
  21.     NOP
  22.     CALL    L357    ;    RST 040
  23.     LHLD    LA104
  24.     PCHL
  25.     NOP
  26.     CALL    L357    ;    RST 050
  27.     LHLD    LA106
  28.     PCHL
  29.     NOP
  30.     CALL    L357    ;    RST 060
  31.     LHLD    LA110
  32.     PCHL    
  33.     NOP
  34.     CALL    L357    ;    RST 070
  35.     LHLD    LA112
  36.     PCHL
  37.     NOP
  38. LA0:    OUT    26Q    ;DISABLE R.C., STOP PROGRAMMER
  39.     LXI    H,LA100    ;SET SP
  40.     SPHL
  41.     MVI    A,0    ;CLEAR TTY I/O PRG.
  42.     STA    LA010    ;EXCEPTION FLAGS
  43.     STA    LA011
  44.     STA    LA016
  45.     MVI    A,'-'    ;O/P ------
  46.     MVI    B,6
  47.     CALL    L3260
  48.     CALL    L1355    ;CR/LF
  49. L133:    CALL    L3277    ;I/P NONBLANK, FIRST LETTER
  50.     JZ    L133
  51.     ANI    77Q    ;MASK
  52.     MOV    C,A    ;STORE IN C
  53.     CALL    L3277    ;I/P ALPHABETIC, SECOND LETTER
  54.     JNC    L6070
  55.     ANI    77Q    ;MASK
  56.     MOV    D,A    ;STORE IN D
  57.     CALL    L3277    ;I/P ALHPABETIC, THIRD LETTER
  58.     JNC    L250
  59.     ANI    77Q
  60.     MOV    E,A    ;STORE IN E
  61.     CALL    L3277    ;I/P ALPHABETIC, FOURTH LETTER
  62.     JNC    L221
  63.     CALL    L3277    ;I/P NON-ALPHABETIC
  64.     JC    L6070
  65.     LXI    H,L3321    ;SET H,L TO 4 LET. TABLE    4 LETTER
  66.     MVI    B,13Q    ;INSTR COUNT    DEC
  67. L207:    CALL    L5166    ;SWEEP 4 LETTER TABLE    CONTROLLER
  68.     INX    H    ;NO MATCH, GO TO NEXT
  69.     JNZ    L207    ;SET OF BYTES
  70.     JMP    L6070    ;END OF 4 LET TABLE, ERROR
  71. L221:    LXI    H,L4111    ;SET H,L TO BEG OF COMMAND TABLE
  72.     MVI    B,16Q    ;SET UP COUNT
  73. L226:    CALL    L270    ;CALL 3 LET MATCH
  74.     INX    H    ;IF NO MATCH GO TO NEXT BYTE
  75.     JNZ    L226    ;NOT END OF TABLE, TRY AGAIN
  76.     MVI    B,65Q    ;NOT COMMAND, SET COUNT TO 3 LET INST
  77. L237:    CALL    L300    ;CALL 3 LET INST MATCH
  78.     JNZ    L237    ;NOT END, TRY AGAIN
  79.     JMP    L6070    ;END OF TABLE, ERROR
  80. L250:    LXI    H,L4010    ;SET H,L TO 2 LET TABLE
  81.     MVI    B,17Q    ;SET UP COUNT
  82.     MOV    E,D    ;SHIFT
  83.     MOV    D,C
  84. L257:    CALL    L306    ;CALL 2 LET MATCH
  85.     JNZ    L257    ;NO MATCH, TRY AGAIN
  86.     JMP    L6070    ;END OF TABLE, ERROR
  87. L270:    CALL    L314    ;CALL 3 LET MATCH    EXECUTE
  88.     MOV    E,M    ;MATCH FOUND, LOAD    GIVEN
  89.     INX    H    ;JUMP ADDR TO D,E    COMMAND
  90.     MOV    D,M
  91.     XCHG    ;INDIRECT JUMP
  92.     PCHL
  93. L300:    CALL    L314    ;CALL 3 LET MATCH
  94.     JMP    L5143    ;MATCH FOUND, CONT ELSEWHERE
  95. L306:    CALL    L323    ;2 LET MATCH
  96.     JMP    L5175    ;MATCH FOUND, CONT ELSEWHERE
  97. L314:    CALL    L352    ;MASK, INCREMENT H,L
  98.     CMP    C    ;THIRD LETTER EQUAL TO TAB?
  99.     JNZ    L343    ;NO, JUMP
  100. L323:    CALL    L352    ;YES, GO TO SECOND LETTER
  101.     CMP    D    ;SECOND LETTER EQUAL?
  102.     JNZ    L344    ;NO
  103.     CALL    L352    ;YES, GO TO FIRST LETTER
  104.     CMP    E    ;LAST LETTER EQUAL?
  105.     JNZ    L345    ;NO
  106.     MOV    E,M    ;YES, MOVE CODE TO E
  107.     RET
  108. L343:    INX    H
  109. L344:    INX    H
  110. L345:    INX    H
  111.     INX    SP    ;SET SP
  112.     INX    SP
  113.     DCR    B    ;COUNT INSTR
  114.     RET
  115. L352:    MVI    A,77Q    ;    MASK
  116.     ANA    M    ;    SUBROUTINE
  117.     INX    H
  118.     RET
  119. L357:    SHLD    LA014    ;SAVE H,L TEMPORARILY
  120.     XTHL    ;EXCH H,L AND TOP OF STACK
  121.     PUSH    PSW    ;SAVE REGISTERS
  122.     PUSH    B
  123.     PUSH    D
  124.     PUSH    H
  125.     LHLD    LA014    ;RESTORE H,L
  126.     RET
  127. L373:    POP    H    ;    RESTORE 
  128.     POP    D    ;    SUBROUTINE
  129.     POP    B
  130.     POP    PSW
  131.     XTHL
  132.     RET
  133. LA01:    CALL    L357    ;SAVE REG    I/P TTY
  134.     LDA    LA010    ;TTY I/P?    SUBR
  135.     CPI    0
  136.     JNZ    L0
  137.     MVI    C,-9    ;BIT COUNT
  138.     INR    A    ;ENABLE R.C.
  139.     OUT    26Q
  140. LA21:    IN    0    ;WAIT FOR START PULSE
  141.     RRC
  142.     JNC    LA21
  143.     MVI    A,0    ;DISABLE R.C.
  144.     OUT    26Q
  145.     LXI    H,1040Q    ;SET TIME CONSTANT (T.C.)
  146.     CALL    L1117    ;TIMEOUT 4.05 MSEC
  147.     DAD    H    ;DOUBLE T.C.
  148. LA42:    IN    0    ;I/P BIT
  149.     CMA    
  150.     OUT    24Q    ;ECHO
  151.     RAR    ;ROTATE INTO POSITION
  152.     MOV    A,B
  153.     RAR
  154.     MOV    B,A
  155.     CALL    L1117    ;TIMEOUT 9.1 MSEC
  156.     INR    C    ;COUNT BIT
  157.     JNZ    LA42    ;NOT LAST, LOOP
  158.     MVI    A,1    ;IDLE TTY
  159.     OUT    24Q
  160.     DAD    H    ;DOUBLE TC
  161.     CALL    L1117    ;TIMEOUT 18.2 MSEC
  162.     MOV    A,B    ;MASK PARITY
  163.     ANI    177Q
  164.     STA    LA013    ;PUT INTO TEMP STORE
  165.     CALL    L373    ;RESTORE REG
  166.     LDA    LA013    ;TEST FOR TAPE LEADER
  167.     CPI    0
  168.     JZ    LA01
  169.     CPI    1    ;TEST FOR CTRL A
  170.     RNZ
  171.     RST    0    ;IF CTRL A, GO TO BEG OF MONITOR
  172. L1117:    PUSH    H    ;    TIMING
  173.     INR    H    ;    LOOP
  174. L1121:    DCR    L
  175.     JNZ    L1121
  176.     DCR    H
  177.     JNZ    L1121
  178.     POP    H
  179.     RET
  180. L1133:    CALL    L357    ;SAVE REG    TTY O/P
  181.     MVI    C,-8    ;COUNTER
  182.     STA    LA013    ;MOVE TO I/O BUFFER
  183.     LDA    LA010    ;TTY I/P TEST
  184.     CPI    0
  185.     JNZ    L0
  186.     OUT    24Q    ;START TTY
  187.     LXI    H,1040Q    ;SET TC
  188.     DAD    H    ;DOUBLE TC
  189.     LDA    LA013    ;RESTORE ACC
  190. L1164:    CALL    L1117    ;TIMEOUT 9.1 MSEC
  191.     OUT    24Q    ;O/P BIT
  192.     RAR    ;ROTATE
  193.     INR    C    ;COUNT
  194.     JNZ    L1164    ;CONTINUE OUTPUTTING
  195.     CALL    L1117    ;TIMEOUT 9.1 MSEC
  196.     MVI    A,1    ;IDLE TTY
  197.     OUT    24Q    
  198.     DAD    H    ;TIMEOUT 18.2 MSEC
  199.     CALL    L1117    
  200.     CALL    L373    ;RESTORE REG
  201.     RET
  202. L1215:    CALL    LA01    ;    I/P WITH
  203. L1220:    MOV    B,A    ;    OCTAL TEST
  204.     ANI    370Q    ;    INTO B
  205.     CPI    '0'
  206.     RET
  207. L1226:    CALL    LA01    ;    I/P WITH
  208.     CPI    177Q    ;    RUBOUT
  209.     RNZ    ;    TEST
  210.     MVI    A,'_'    ;PRINT _
  211.     JMP    L1133
  212. L1241:    CALL    L357    ;SAVE REG    I/P BYTE
  213. L1244:    CALL    L1215    ;I/P OCTAL    TO MEMORY
  214. L1247:    JNZ    L1244
  215. L1252:    MOV    A,B    ;ROTATE, SAVE IN B
  216.     RRC
  217.     RRC
  218.     ANI    300Q
  219.     MOV    B,A
  220. L1260:    CALL    L1226    ;I/P ASCII WITH RUBOUT TEST
  221.     JZ    L1244
  222.     ANI    7    ;MASK, ROTATE, SAVE IN C
  223.     RLC
  224.     RLC
  225.     RLC
  226.     MOV    C,A    
  227.     CALL    L1226    ;I/P ASCII WITH RUBOUT TEST
  228.     JZ    L1260
  229.     ANI    7    ;MASK, COMBINE
  230.     ORA    B
  231.     ORA    C
  232.     MOV    M,A    ;MOVE TO MEMORY
  233.     CALL    L373    ;RESTORE REG
  234.     RET
  235. L1313:    PUSH    PSW    ;    O/P BLANK
  236.     MVI    A,' '
  237.     CALL    L1133
  238.     POP    PSW
  239.     RET
  240. L1323:    CALL    L1313    ;O/P BLANK    O/P MEMORY
  241. L1326:    MOV    A,M    ;O/P FIRST DIGIT    BYTE
  242.     RLC
  243.     RLC
  244.     ANI    3
  245.     CALL    L1350
  246.     MOV    A,M    ;O/P SECOND DIGIT
  247.     RRC
  248.     RRC
  249.     RRC
  250.     CALL    L1346
  251.     MOV    A,M    ;O/P LAST DIGIT
  252. L1346:    ANI    7
  253. L1350:    ORI    '0'
  254.     JMP    L1133
  255. L1355:    PUSH    PSW    ;    O/P CRLF
  256.     MVI    A,15Q    ;CR
  257.     CALL    L1133
  258.     MVI    A,12Q    ;LF
  259.     CALL    L1133
  260.     POP    PSW
  261.     RET
  262. L1372:    PUSH    PSW    ;    O/P /(SLASH)
  263.     MVI    A,'/'
  264.     CALL    L1133
  265.     POP    PSW
  266.     RET
  267. LB02:    LHLD    LA000    ;SET TO CLP    SET H,L TO CLP
  268.     LDA    LA016    ;TEST FOR PRG.
  269.     CPI    1
  270.     RNZ
  271.     MOV    A,L    ;YES, PRG SET TO PRG BUFFER
  272.     LXI    H,LA007
  273.     OUT    20Q    ;O/P ADDRESS
  274.     IN    2    ;I/P BYTE
  275.     MOV    M,A    ;MOVE TO BUFFER
  276.     RET
  277. LB25:    CALL    LB02    ;SET H,L TO CLP    O/P CLP
  278.     LXI    H,LA001    ;SET TO MS BYTE OF CLP
  279.     JNZ    LB46    ;NOT PRG, JUMP
  280.     MVI    A,120Q    ;O/P P (PROGRAMMER)
  281.     CALL    L1133
  282.     JMP    LB51
  283. LB46:    CALL    L1323    ;PRINT MS BYTE OF ADDRESS
  284. LB51:    DCX    H
  285.     JMP    L1326    ;PRINT LS BYTE OF ADDRESS
  286. LB55:    CALL    L1355    ;    O/P CLP/
  287.     CALL    LB25
  288.     JMP    L1372
  289. LB66:    CALL    LB02    ;    O/P MEMORY AT CLP
  290.     JMP    L1323
  291. LB74:    LHLD    LA000    ;    INCREMENT CLP
  292.     INX    H
  293.     SHLD    LA000
  294.     JMP    LB02
  295. LC06:    LHLD    LA000    ;    DECREMENT CLP
  296.     DCX    H
  297.     SHLD    LA000
  298.     JMP    LB02
  299. LC20:    LHLD    LA000    ;    COMPARE CLP
  300.     XCHG    ;    AND UPPER LIMIT
  301.     LHLD    LA002
  302.     MOV    A,D
  303.     CMP    H
  304.     RNZ
  305.     MOV    A,E
  306.     CMP    L
  307.     RET
  308. LC35:    CALL    LC20    ;COMPARE CLP AND UL    RANGE CONTROL
  309.     JNZ    LB74    ;NOT ZERO, INCR CLP
  310.     RST    0    ;END OF PROGRAM, GO TO BEG
  311. LC44:    CALL    L1355    ;    O/P CLP*
  312.     MVI    A,'*'
  313.     CALL    L1133
  314. LC54:    CALL    L1313    ;O/P BLANK    I/P ADDR
  315.     CALL    LA01    ;I/P ASCII    TO MEMORY
  316.     CPI    'P'    ;=P?
  317.     JZ    L2210    ;YES, SET PRG FLAG
  318.     LXI    B,L2204    ;NO, SET UP NEXT ADDR-I/P MS BYTE
  319.     PUSH    B
  320.     CALL    L357    ;SAVE REG
  321.     CALL    L1220    ;I/P OCTAL
  322.     JMP    L1247
  323. L2204:    DCX    H    ;I/P BYTE TO MEM-I/P LS BYTE
  324.     JMP    L1241
  325. L2210:    MVI    A,1    ;SET PROGRAMMER FLAG
  326.     STA    LA016
  327.     MOV    M,A    ;STORE P
  328.     JMP    L2204    ;I/P WORD
  329. L2221:    LXI    H,LA007    ;I/P LOC WHERE PROG    I/P LIMITS
  330.     CALL    LC44    ;IS NOW
  331. L2227:    LXI    H,LA005    ;I/P NEW LOC
  332.     CALL    LC44
  333. L2235:    CALL    L2251    ;O/P CRLF*, I/P NEW CLP
  334.     LXI    H,LA003    ;O/P BL, I/P UPPER L.
  335.     CALL    LC54
  336.     JMP    L1355    ;O/P CRLF, RET
  337. L2251:    LXI    H,LA001    ;SET H,L TO CLP
  338.     JMP    LC44    ;O/P CRLF*,I/P CLP
  339. DPO:    CALL    L2235    ;I/P UPPER L., O/P CRLF
  340. L2262:    MVI    C,8    ;SET UP COUNT
  341.     CALL    LB55    ;O/P CLP/
  342.     CALL    LB02    ;SET H,L TO CLP
  343. L2272:    CALL    L1323    ;O/P MEMORY BYTE
  344.     CALL    LC35    ;INCR CLP
  345.     DCR    C    ;COUNT
  346.     JNZ    L2272    ;LOOP
  347.     JMP    L2262    ;NEW LINE
  348. LDO:    CALL    L2235    ;I/P CLP, UPPER L., O/P CRLF
  349. L2312:    CALL    LA01    ;I/P ASCII, TEST
  350.     CPI    '/'    ;WAIT FOR /
  351.     JNZ    L2312    
  352.     CALL    LB02    ;SET H,L TO CLP
  353. L2325:    CALL    LA01    ;I/P ASCII, TEST
  354.     CPI    15Q    ;FOR CRLF
  355.     JZ    L2312
  356.     CALL    L1241    ;I/P BYTE TO MEM
  357.     CALL    LC35    ;RANGE CONTROL (END?)
  358.     JMP    L2325    ;LOOP
  359. EDT:    CALL    L2251    ;I/P CLP     OCTAL
  360. L2351:    CALL    LB55    ;O/P CLP    EDITOR
  361.     CALL    LB02    ;SET H,L TO CLP
  362.     CALL    L2365    ;PROCESS LINE
  363.     JMP    L2351    ;LOOP
  364. L2365:    CALL    LA01    ;I/P ASCII    EDITING
  365. L2370:    CPI    'R'    ;R?    ROUTINES
  366.     JZ    L0    ;YES, GO TO BEG
  367.     CPI    '*'
  368.     JZ    L2251    ;YES, GO TO I/P CLP ROUTINE
  369.     CPI    '@'
  370.     JZ    L3073    ;YES, GO TO XQT
  371.     CPI    '^'    
  372.     JZ    LC06    ;YES, GO TO DECR CLP
  373.     CPI    ' '
  374.     JZ    L3042    ;YES, PRINT OCTAL BYTE
  375.     CALL    L1220    ;TEST FOR OCTAL
  376.     RNZ    ;NOT OCTAL
  377.     LXI    D,L3037    ;I/P BYTE TO MEM
  378.     PUSH    D
  379.     CALL    L357
  380.     JMP    L1252
  381. L3037:    JMP    L3045
  382. L3042:    CALL    LB66    ;O/P MEM AT CLP
  383. L3045:    CALL    LA01    ;I/P ASCII
  384.     CPI    '_'    ;BACK ARROW?
  385.     JNZ    L3063    ;NO, JUMP
  386.     CALL    L1241    ;YES, I/P ANOTHER BYTE
  387.     JMP    L3045    ;LOOP
  388. L3063:    CPI    ' '
  389.     JZ    LB74    ;YES, INCR CLP AND RET
  390.     JMP    L2370    ;NO, LOOP
  391. XQT:
  392. L3073:    CALL    L1355    ;CRLF    XQT
  393.     CALL    L2251    ;I/P ADDRESS TO H,L
  394.     LHLD    LA000
  395.     PCHL    ;INDIRECT JUMP
  396. SBP:    CALL    L3135    ;CLEAR BKPT    SET BREAKPOINT
  397.     LXI    H,LA020    ;SET H,L TO BKPT ADDR BUFFER
  398.     CALL    LC44    ;I/P BKPT ADDR TO MEMORY
  399.     LHLD    LA017    ;SAVE PROG BYTE
  400.     MOV    A,M
  401.     STA    LA021
  402.     MVI    M,317Q    ;INSERT RST 010 INTO PROG
  403.     MVI    A,1    ;SET BKPT FLAG
  404.     STA    LA022
  405.     RST    0
  406. L3135:    LDA    LA022    ;TEST FOR BKPT    CLEAR BKPT
  407.     CPI    1
  408.     RNZ
  409.     LHLD    LA017    ;LOAD H,L WITH BKPT ADDR
  410.     LDA    LA021    ;MOV PROG BYTE TO ACC
  411.     MOV    M,A    ;MOV BACK INTO PROG
  412.     MVI    A,0    ;CLEAR BKPT FLAG
  413.     STA    LA022
  414.     RET
  415. L3160:    PUSH    PSW    ;SAVE ACC, FLAGS    EXECUTE BKPT
  416.     CALL    L1323    ;O/P ACC
  417.     MOV    M,B
  418.     CALL    L1323    ;O/P B
  419.     MOV    M,C    
  420.     CALL    L1323    ;O/P C
  421.     MOV    M,D    
  422.     CALL    L1323    ;O/P D
  423.     MOV    M,E
  424.     CALL    L1323    ;O/P E
  425.     POP    B    ;RESTORE FLAGS, ACC    TO B,C
  426.     POP    D    ;RESTORE H,L TO D,E
  427.     MOV    M,D
  428.     CALL    L1323    ;O/P H
  429.     MOV    M,E
  430.     CALL    L1323    ;O/P L
  431.     XCHG
  432.     CALL    L1323    ;O/P MEM
  433.     MOV    A,C    ;FLAGS TO ACC
  434.     CALL    L3250    ;O/P CARRY
  435.     CALL    L3244    ;O/P PARITY
  436.     CALL    L3244    ;O/P CY1 (CARRY BETWEEN D3,D4)
  437.     CALL    L3244    ;O/P ZERO
  438.     MOV    A,C
  439.     CALL    L3246    ;O/P SIGN
  440.     RST    0
  441. L3244:    MOV    A,C    ;    SHIFT AROUND
  442.     RRC    ;    FLAG BYTE
  443. L3246:    RRC
  444.     MOV    C,A
  445. L3250:    ANI    1
  446.     CALL    L1313
  447.     JMP    L1346
  448. L3260:    CALL    L1355    ;CRLF    O/P WITH
  449. L3263:    CALL    L1133    ;O/P ASCII    COUNT LOOP
  450.     DCR    B    ;COUNT
  451.     RZ
  452.     JMP    L3263    ;LOOP
  453. CBP:    CALL    L3135    ;CLEAR BKPT
  454.     RST    0
  455. L3277:    CALL    LA01    ;I/P ASCII    I/P NUMERIC
  456.     CPI    ' '    ;BLANK?    ALPHABETIC,BLANK
  457.     PUSH    B    ;SAVE B,C    TEST
  458.     MOV    B,A
  459.     RLC    ;ROTATE MS BIT INTO CARRY
  460.     RLC
  461.     MOV    A,B
  462.     POP    B    ;RESTORE B,C
  463.     RET
  464. L3313:    MVI    A,77Q    ;    ERROR,O/P ?
  465.     CALL    L1133    ;    AND RESTART
  466.     RST    0
  467. ; 
  468. L5143:    MOV    A,M    ;RST?     RST TEST FOR
  469.     CPI    377Q    ;    LOAD SYMBOLIC
  470.     JNZ    L5174    ;NO, GO TO ARG I/P
  471.     LXI    H,LA024    ;YES, SET H,L TO RST BUFFER
  472.     CALL    L1241    ;I/P
  473.     MOV    A,M    ;MASK INTO 377
  474.     ORI    307Q
  475.     MOV    E,A
  476.     JMP    L5354    ;CONTINUE IN ARG I/P
  477. L5166:    CALL    L314    ;CALL 3 LETTER MATCH    LOAD SYMB.
  478.     INX    H    ;LOAD MASKED INSTR    ROUTINES (CONT)
  479.     MOV    E,M    ;CODE INTO E
  480.     DCX    H    ;GO TO FIRST BYTE
  481. L5174:    DCX    H
  482. L5175:    DCX    H
  483.     DCX    H
  484.     MOV    A,M    ;MASK, ROTATE, TO GET ARG BITS
  485.     ANI    300Q
  486.     RLC
  487.     RLC
  488.     INX    H    ;GO TO SECOND BYTE
  489.     JZ    L5302    ;NO ARG, GO TO INP DATA
  490.     DCR    A    ;1 ARG DEST, GO TO I/P
  491.     JZ    L5271    
  492.     DCR    A    ;2 ARG, GO TO I/P
  493.     JZ    L5255
  494. L5220:    CALL    L5371    ;ASSUME 1 ARG SOURCE
  495.     ANA    E    ;MASK ARG INTO INSTR BYTE
  496.     MOV    E,A
  497.     JMP    L5274    ;GO TO DATA I/P
  498. L5230:    INX    H    ;    DEST. SUBSTITUTE
  499.     CALL    L5371    ;I/P ARG
  500.     MOV    B,A    ;EXCEPTION TEST
  501.     MOV    A,M
  502.     ANI    100Q
  503.     MOV    A,B
  504.     JZ    L5246
  505.     ORI    1
  506. L5246:    RLC    ;ROTATE MASK INTO BYTE
  507.     RLC
  508.     RLC
  509.     ANA    E
  510.     MOV    E,A
  511.     DCX    H    ;SET H,L TO BYTE WITH DATA CODE
  512.     RET
  513. L5255:    CALL    L5230    ;I/P DEST ARG    I/P DEST,
  514. L5260:    CALL    L3277    ;WAIT FOR NON-ALPHABETIC    SOURCE ARG
  515.     JC    L5260
  516.     JMP    L5220    ;I/P SOURCE
  517. L5271:    CALL    L5230    ;I/P DEST    I/P DEST ARG
  518. L5274:    CALL    L3277    ;WAIT FOR NON-ALPHABETIC
  519.     JC    L5274
  520. L5302:    MOV    A,M    ;I/P BYTE WITH DATA CODE    I/P DATA
  521.     LXI    H,LA023    ;SET H,L TO DATA I/P BUFFER
  522.     ANI    300Q    ;MASK
  523.     JZ    L5354    ;NO DATA JUMP
  524.     RLC    ;1 DATA JUMP
  525.     JNC    L5362
  526.     CALL    L5335    ;ASSUME 2 DATA BYTES
  527.     MOV    M,D    ;I/P MS BYTE
  528.     CALL    LB74
  529. L5326:    MOV    M,C    ;I/P LS BYTE
  530.     CALL    LB74
  531.     JMP    L6041    ;GO TO NEXT LINE
  532. L5335:    CALL    L1241    ;I/P BYTE TO BUFFER    2 DATA I/P
  533.     MOV    C,M    ;MOVE TO    C    SUBR
  534. L5341:    CALL    L1241    ;I/P BYTE TO D
  535.     MOV    D,M
  536. L5345:    CALL    LB02    ;SET H,L TO CLP
  537.     MOV    M,E    ;MOVE INSTR BYTE TO MEM
  538.     JMP    LB74    ;INCR CLP, RET
  539. L5354:    CALL    L5345    ;NO DATA, MOVE INSTR
  540.     JMP    L6041    ;BYTE TO MEM, GO TO NEXT LINE
  541. L5362:    CALL    L5341    ;1 DATA BYTE
  542.     MOV    C,D
  543.     JMP    L5326
  544. L5371:    CALL    L3277    ;WAIT FOR    MATCH ARG
  545.     JNC    L5371    ;ALPHABETIC    LETTER
  546.     PUSH    B    ;SAVE B,C
  547.     LXI    B,L4065    ;SET TO ARG TABLE
  548.     CALL    L6012    ;SWEEP TABLE TO FIND CODE
  549.     INX    B    ;GO TO ARG CODE BYTE
  550.     LDAX    B    ;MOVE TO ACC
  551.     POP    B    ;RESTORE B,C
  552.     RET
  553. L6012:    PUSH    D    ;SAVE D,E    SWEEP ARG
  554.     MVI    E,10    ;SET COUNT    TABLE SUBR
  555.     MOV    D,A    ;SAVE ACC IN D
  556. L6016:    LDAX    B    ;COMPARE BYTES
  557.     CMP    D
  558.     JNZ    L6025    ;NO GOOD, JUMP
  559.     POP    D    ;FOUND, RESTORE D,E
  560.     RET
  561. L6025:    DCR    E
  562.     JZ    L6067    ;END OF TABLE, ERROR
  563.     INX    B    ;GO TO NEXT ARG
  564.     INX    B
  565.     JMP    L6016    ;LOOP
  566. LOC:    CALL    L2251    ;LOC    PRINT CLP/
  567. L6041:    CALL    L1355    ;CRLF
  568.     LXI    H,LA000    ;O/P LS BYTE OF CLP AND /
  569.     CALL    L1323
  570.     CALL    L1372
  571.     POP    PSW    ;RESET STACK
  572.     JMP    L133    ;GO TO BEG OF LOAD SYMBOLIC
  573. DLP:    CALL    LB25    ;O/P CLP
  574.     JMP    L6041
  575. L6067:    POP    PSW    ;RESET STACK    ERROR ROUTINE
  576. L6070:    MVI    A,77Q    ;O/P
  577.     CALL    L1133
  578.     JMP    L133    ;GO TO BEG OF LOAD SYMBOLIC
  579. DPS:    CALL    L2235    ;I/P RANGE    DPS ROUTINE
  580. L6103:    SUB    A    ;CLEAR EXCEPTION FLAG    MAIN PROG
  581.     STA    LA011
  582.     CALL    LB55    ;O/P CLP/
  583.     CALL    LB66    ;O/P MEM AT CLP
  584.     CALL    L7062    ;MATCH TEST PLUS RST TEST
  585.     CALL    L7310    ;EXCEPTION TEST
  586.     CALL    L1313    ;O/P BLANK
  587.     MVI    B,6    ;SET MNEMONIC FIELD
  588.     CALL    L7010    ;O/P MNEMONIC
  589.     MVI    A,' '    ;FINISH MNEM. FIELD
  590.     CALL    L3263    ;WITH BLANK
  591.     MVI    B,3    ;SET ARG FIELD
  592.     CALL    L7107    ;O/P ARG
  593.     CALL    LC35    ;PRINTING FINISHED? IF NO, INCR CLP
  594.     LDA    LA026    ;DATA BYTE TEST
  595.     ANA    A
  596.     JZ    L6103
  597.     PUSH    PSW    ;SAVE ACC    DATA O/P
  598.     MVI    A,' '    ;FINISH ARG FIELD
  599.     CALL    L3263    ;WITH BLANK
  600.     POP    PSW    ;RESTORE ACC
  601.     DCR    A    ;1,2 DATA BYTE TEST
  602.     JZ    L6217
  603.     CALL    LB74    ;INCR CLP
  604.     CALL    L1323    ;O/P MEM AT CLP
  605.     CALL    LC06    ;DCR CLP
  606.     CALL    L1326    ;O/P MEM AT CLP
  607.     CALL    LB74    ;INCR CLP
  608. L6211:    CALL    LC35    ;FINISHED? INCR CLP
  609.     JMP    L6103    ;NEW LINE
  610. L6217:    CALL    L1313    ;O/P BLANK
  611.     CALL    L1326    ;O/P MEM AT CLP
  612.     JMP    L6211    ;NEW LINE
  613. L6230:    LXI    D,L4010    ;SET D,E TO BET FOR 2 BYTE TABLE    MATCH
  614.     MVI    A,2    ;SET TABLE FLAG (T.F.)    TEST
  615. L6235:    STA    LA030
  616.     MOV    B,A    ;SAVE ACC
  617.     CALL    L6333    ;ARG TEST
  618.     MOV    A,B    ;RESTORE ACC
  619.     ADD    E    ;INCR D,E
  620.     MOV    E,A
  621.     JNC    L6253
  622.     INR    D
  623. L6253:    LDAX    D    ;LOAD CODE INTO ACC
  624.     CMP    C    ;COMPARE WITH MEM
  625.     RZ
  626.     CALL    L6265    ;END OF TABLE?
  627.     MOV    A,B    ;LOAD ACC WITH T.F.
  628.     JMP    L6235    ;LOOP
  629. L6265:    CPI    363Q    ;2 LETTER END    END OF TABLE TEST
  630.     JZ    L6325
  631.     CPI    351Q    ;4 LETTER END
  632.     JZ    L6320
  633.     CPI    377Q    ;3 LETTER END
  634.     JZ    L6313
  635.     CPI    343Q    ;4 LETTER SECOND HALF
  636.     JZ    L3313    ;ERROR, CODE NOT FOUND
  637.     INX    D
  638.     RET
  639. L6313:    INR    B    ;SET T.F. TO 4
  640.     LXI    D,L3321    ;D,E TO BEGINNING OF 4 LET TABLE
  641.     RET
  642. L6320:    DCR    B    ;SET T.F. TO 3
  643.     LXI    D,L4217    ;SET D,E TO BEG OF 3 LET TABLE
  644.     RET
  645. L6325:    INR    B    ;SET T.F. TO 4
  646.     INR    B
  647.     LXI    D,L3376    ;SET D,E TO SEC HALF OF 4 LET TABLE
  648.     RET
  649. L6333:    LDAX    D    ;1 LET TO ACC    ARG TEST
  650.     RLC    ;ARG FLAG
  651.     RLC    ;INTO LA027
  652.     ANI    3
  653.     STA    LA027
  654.     JNZ    L6350
  655.     MOV    C,M    ;NO ARG, C HOLDS INSTR
  656.     RET
  657. L6350:    DCR    A    ;1 OR 2 ARG
  658.     JNZ    L6361
  659.     MOV    A,M    ;1 ARG DEST
  660.     ORI    70Q    ;MODIFY INSTR
  661.     MOV    C,A
  662.     RET
  663. L6361:    DCR    A    ;2 ARG OR 1 ARG SOURCE
  664.     JNZ    L6372
  665.     MOV    A,M    ;2 ARG; MODIFY INSTR
  666.     ORI    77Q
  667.     MOV    C,A
  668.     RET
  669. L6372:    MOV    A,M    ;1 ARG SOURCE
  670.     ORI    7
  671.     MOV    C,A
  672.     RET
  673. L6377:    LDA    LA030    ;T.F. TO ACC    GO TO 1 LET SUBR
  674. L7002:    DCX    D    ;LOOP UNTIL D,E
  675.     DCR    A    ;POINT TO 1 LETTER
  676.     JNZ    L7002
  677.     RET
  678. L7010:    CALL    L6377    ;GO TO FIRST LETTER    PRINT
  679.     LDA    LA030    ;T.F. TO C    MNEM. FIELD
  680.     MOV    C,A
  681.     CALL    L7050    ;PRINT FIRST LETTER
  682.     INX    D    ;SET CONDITION FOR SECOND LETTER
  683.     DCR    C
  684.     LDAX    D    ;GENERATE DATA FLAG
  685.     ANI    300Q    ;AND STORE AT LA026
  686.     RLC
  687.     RLC
  688.     STA    LA026
  689.     CALL    L7050    ;PRINT SECOND LETTER
  690. L7037:    DCR    C    ;END?
  691.     RZ
  692.     INX    D    ;NO, PRINT THE REST
  693.     CALL    L7050
  694.     JMP    L7037
  695. L7050:    LDAX    D    ;LOAD LET TO ACC    PRINT ROUT
  696.     ANI    77Q    ;CONVERT TO ASCII
  697.     ORI    100Q
  698. L7055:    CALL    L1133    ;O/P
  699.     DCR    B    ;FIELD COUNT
  700.     RET
  701. L7062:    MOV    A,M    ;CHECK    RST TEST
  702.     ANI    307Q    ;FOR RST
  703.     CPI    307Q
  704.     JNZ    L6230    ;NO
  705.     LXI    D,L5142    ;YES, SET D,E AND TF
  706.     MVI    A,3
  707.     STA    LA030
  708.     RAR    ;SET ARG FLAG
  709.     STA    LA027
  710.     RET
  711. L7107:    LDA    LA027    ;TEST FOR ARG    PRINT ARG
  712.     ANA    A
  713.     RZ    ;NO
  714.     DCR    A    ;1 ARG DEST
  715.     JZ    L7144
  716.     DCR    A    ;2 ARG
  717.     JZ    L7243
  718. L7124:    MOV    A,M    ;ASSUME 1 ARG SOURCE
  719.     ORI    370Q
  720. L7127:    PUSH    B    ;SAVE B,C
  721.     LXI    B,L4066    ;B,C POINT TO BEG OF ARG TABLE
  722.     CALL    L6012    ;SWEEP ARG TABLE
  723.     DCX    B    ;LOAD ACC WITH LETTER IN ARG TABLE
  724.     LDAX    B
  725.     POP    B    ;RESTORE B,C
  726.     JMP    L7055    ;PRINT CONTENTS OF ACC
  727. L7144:    MOV    A,M    ;1 ARG DEST
  728.     ANI    307Q    ;RST?
  729.     CPI    307Q
  730.     JNZ    L7176    ;NO
  731.     MVI    A,' '    ;YES, FINISH ARG FIELD
  732.     MVI    B,4    ;WITH BLANK
  733.     CALL    L3263
  734.     MOV    A,M    ;INSTR INTO ACC
  735.     ANI    70Q    ;CONVERT TO OCTAL AND
  736.     LXI    H,LA027    ;SEND TO MEM
  737.     MOV    M,A
  738.     CALL    L1326    ;PRINT OCTAL BYTE
  739.     RET
  740. L7176:    MOV    A,M    ;SP TEST
  741.     ANI    365Q
  742.     CPI    61Q
  743.     JZ    L7255    ;PRINT SP
  744.     ANI    361Q    ;PSW TEST
  745.     CPI    361Q    
  746.     JZ    L7270    ;PRINT PSW
  747.     MOV    C,M    ;EXCEPTION TEST
  748.     LDA    LA011
  749.     CPI    367Q
  750.     JNZ    L7230    ;NO EXCEPTION
  751.     ANA    C    ;YES, EXCEPT DECR ARG CODE BY 1
  752.     MOV    C,A
  753. L7230:    MVI    A,70Q    ;GENERATE ARG CODE
  754.     ANA    C
  755.     RRC
  756.     RRC
  757.     RRC
  758.     ORI    370Q
  759.     JMP    L7127    ;GO TO PRINT
  760. L7243:    CALL    L7176    ;DEST    2 ARG PRINT
  761.     CALL    L1313    ;PRINT BLANK
  762.     DCR    B    ;FIELD COUNT
  763.     JMP    L7124    ;SOURCE
  764. L7255:    MVI    A,'S'    ;    PRINT "SP"
  765.     CALL    L1133
  766.     MVI    A,'P'
  767.     CALL    L1133
  768.     RET
  769. L7270:    MVI    A,'P'    ;    PRINT "PSW"
  770.     CALL    L1133
  771.     MVI    A,'S'
  772.     CALL    L1133
  773.     MVI    A,'W'
  774.     CALL    L1133
  775.     RET
  776. L7310:    ADI    305Q    ;EXCEPT    EXCEPTION TEST
  777.     JZ    L7325    ;SUSPECT
  778.     INR    A
  779.     JZ    L7325
  780.     INR    A
  781.     JNZ    L7350    ;NO EXCEPT. HALT TEST
  782. L7325:    MOV    A,M    ;NO EXCEPT
  783.     CPI    72Q
  784.     RZ
  785.     ANI    10Q    ;NO EXCEPT
  786.     RZ
  787.     MVI    A,367Q    ;YES,EXCEPT.
  788.     STA    LA011    ;SET EXECPT. FLAG
  789. L7341:    LDA    LA030    ;INCR D,E TO
  790.     ADD    E    ;NEXT INSTR IN TABLE
  791.     MOV    E,A
  792.     INX    D
  793.     RET
  794. L7350:    MOV    A,M    ;HLT TEST
  795.     CPI    166Q
  796.     RNZ
  797.     SUB    A    ;HLT, SET ARG FLAG
  798.     STA    LA027    ;AND INCR D,E TO NEXT INSTR
  799.     JMP    L7341
  800. ; 
  801. LB000:    CALL    L2227    ;FORMAT    CPY ROUT
  802.     LDA    LA016    ;PROGRAMMER?
  803.     CPI    1
  804.     JNZ    LB051    ;NO
  805.     LDA    LA000    ;YES, LOWER LIMIT TO ACC
  806.     MOV    D,A    ;L.L TO D
  807.     LDA    LA002    ;UPPER LIMIT TO ACC
  808.     SUB    D    ;UL-LL TO ACC
  809.     MOV    C,A    ;(UL-LL) TO C
  810.     LHLD    LA004    ;NEW RANGE TO H,L
  811. LB027:    MOV    A,D    ;LL TO ACC
  812.     OUT    20Q    ;DATA TO ACC
  813.     IN    2
  814.     MOV    M,A    ;DATA TO MEM
  815.     INX    H    ;INCR H,L
  816.     INR    D    ;LL=LL+1
  817.     DCR    C    ;COUNT
  818.     MVI    A,377Q    ;TEST
  819.     CMP    C
  820.     JZ    L0    ;FINISHED
  821.     JMP    LB027    ;REPEAT
  822. LB051:    LHLD    LA004    ;NO PRG, NEW RANGE TO H,L
  823.     LDA    LA000    ;(LL-NR) TO B,C
  824.     SUB    L
  825.     MOV    C,A
  826.     LDA    LA001
  827.     SBB    H
  828.     MOV    B,A
  829.     RET
  830. LB067:    JNC    LB104    ;(LL-NR) > 0?
  831.     MOV    A,C    ;MOVES UP; TWO'S COMPL OF (LL-NR)
  832.     CMA
  833.     MOV    C,A
  834.     MOV    A,B
  835.     CMA
  836.     MOV    B,A
  837.     INX    B
  838.     JMP    LB146
  839. LB104:    LXI    H,LA000    ;MOVES DOWN
  840.     MOV    A,M    ;SUBTRACT (LL-NR) FROM LL
  841.     SUB    C
  842.     MOV    E,A
  843.     INR    L
  844.     MOV    A,M
  845.     SBB    B
  846.     MOV    D,A
  847.     LHLD    LA000    ;COPY DATA
  848. LB121:    MOV    A,M    ;TO NEW LOCATION
  849.     STAX    D
  850.     INX    H
  851.     INX    D
  852.     LDA    LA002
  853.     CMP    L
  854.     JNZ    LB121
  855.     MOV    A,M
  856.     STAX    D
  857.     LDA    LA003
  858.     CMP    H
  859.     JNZ    LB121
  860.     RET
  861. LB146:    LXI    H,LA002    ;MOVES UP; (LL-NR) PLUS
  862.     MOV    A,M    ;UL INTO D,E
  863.     ADD    C
  864.     MOV    E,A
  865.     INR    L
  866.     MOV    A,M
  867.     ADC    B
  868.     MOV    D,A
  869.     LHLD    LA002    ;COPY DATA TO NEW LOC
  870. LB163:    MOV    A,M
  871.     STAX    D
  872.     DCX    H
  873.     DCX    D
  874.     LDA    LA000
  875.     CMP    L
  876.     JNZ    LB163
  877.     MOV    A,M
  878.     STAX    D
  879.     LDA    LA001
  880.     CMP    H
  881.     JNZ    LB163
  882.     RET
  883. CPY:    CALL    LB000    ;CPY ROUTINE STARTS HERE
  884.     CALL    LB067
  885.     RST    0
  886. ; 
  887. ;    TABLE CONTAINING CODES FOR
  888. ;    SHLD LHLD STA LDA LXI
  889. ; 
  890. LB217:    DB    042Q,052Q,062Q,072Q,071Q
  891. ; 
  892. LB224:    LHLD    LA000    ;LL INTO H,L
  893.     CALL    LB246    ;CALCULATION
  894.     RM
  895.     LHLD    LA002    ;UL INTO H,L
  896.     CALL    LB246    ;CALCULATION
  897.     RP
  898.     POP    H    ;MOVE UP STACK
  899.     JMP    LC024    ;CHANGE THE ADDRESS
  900. LB246:    XCHG    ;CALCULATE; SUBTRACT LL, UL
  901.     LHLD    LA023    ;FROM JMP ADDRESS
  902.     INX    H
  903.     MOV    A,M
  904.     SUB    E
  905.     INX    H
  906.     MOV    A,M
  907.     SBB    D
  908.     RET
  909. LB261:    LHLD    LA012    ;MMM PLUS (UL-LL)    END
  910.     XCHG    ;INTO D,E    OF PROG?
  911.     LHLD    LA023    ;POINTER INTO H,L
  912.     MOV    A,L    ;POINTER-[MMM-(UL-LL)]>0?
  913.     SUB    E
  914.     MOV    A,H
  915.     SBB    D
  916.     RET
  917. TRN:    CALL    L2221    ;TRN ROUTINE STARTS HERE    TRN ROUT
  918.     CALL    LB051    ;UP OR DOWN?
  919.     JNC    LB324    ;MOVES UP
  920.     MOV    A,C    ;TWO'S COMPL OF LL-NR
  921.     CMA
  922.     MOV    C,A
  923.     MOV    A,B
  924.     CMA
  925.     MOV    B,A
  926.     INX    B
  927.     SUB    A    ;MOVES UP FLAG
  928.     STA    LA014
  929.     JMP    LB331
  930. LB324:    MVI    A,1    ;MOVES DOWN
  931.     STA    LA014
  932. LB331:    CALL    LC103    ;CALCULATE MMM + (UL-LL)
  933. LB334:    SHLD    LA023    ;POINTER INTO H,L
  934.     PUSH    B    ;SAVE B
  935.     CALL    L6230    ;MATCH ROUT
  936.     CALL    L7310    ;EXCEPTION ROUT
  937.     POP    B
  938.     LDAX    D    ;CODE TO LA016
  939.     STA    LA016
  940.     CALL    L6377    ;FIRST LETTER SUBR
  941.     INR    E    ;SECOND LETTER
  942.     LDAX    D    ;DATA BYTE TEST
  943.     MVI    E,300Q
  944.     ANA    E
  945.     CPI    0    ;NO DATA BYTE
  946.     JZ    LC100
  947.     CPI    100Q    ;1 DATA BYTE
  948.     JZ    LC077
  949.     LDA    LA016    ;ASSUME 2 DATA BYTES
  950.     LXI    H,LB217    ;IS IT SHLD,LHLD,STA,LDA,LXI?
  951.     MVI    E,5
  952. LC005:    CMP    M
  953.     JZ    LC073    ;YES, NO CHANGE
  954.     INR    L
  955.     DCR    E
  956.     JNZ    LC005
  957.     CALL    LB224    ;OUT OF RANGE?
  958.     JMP    LC073    ;YES, NO CHANGE
  959. LC024:    LHLD    LA023    ;CHANGE
  960.     INX    H
  961.     LDA    LA014    ;MOVES DOWN?
  962.     ANA    A
  963.     JNZ    LC061
  964.     MOV    A,M    ;MOVES UP; ADD(LL-NR)
  965.     ADD    C    ;TO ADDR OF JUMP
  966.     MOV    M,A
  967.     INX    H
  968.     MOV    A,M
  969.     ADC    B
  970.     MOV    M,A
  971. LC046:    INX    H
  972.     SHLD    LA023    ;INCREMENTED POINTER TO LA023
  973.     CALL    LB261    ;END OF PROG?
  974.     JM    LB334    ;NO, NEW LINE
  975.     RST    0
  976. LC061:    MOV    A,M    ;MOVES DOWN; SUBTRACT
  977.     SUB    C    ;(LL-NR) FROM ADDR
  978.     MOV    M,A
  979.     INX    H
  980.     MOV    A,M
  981.     SBB    B
  982.     MOV    M,A
  983.     JMP    LC046    ;NEW LINE
  984. LC073:    LHLD    LA023    ;NO CHANGE
  985.     INX    H
  986. LC077:    INX    H
  987. LC100:    JMP    LC046
  988. LC103:    PUSH    B    ;SAVE B,C
  989.     LHLD    LA002    ;UL-LL
  990.     XCHG
  991.     LHLD    LA000
  992.     MOV    A,E
  993.     SUB    L
  994.     MOV    E,A
  995.     MOV    A,D
  996.     SBB    H
  997.     MOV    D,A
  998.     LHLD    LA006    ;MMM PLUS (UL-LL)
  999.     MOV    A,E
  1000.     ADD    L
  1001.     MOV    L,A
  1002.     MOV    A,D
  1003.     ADC    H
  1004.     MOV    H,A
  1005.     SHLD    LA012
  1006.     LHLD    LA006
  1007.     POP    B    ;RESTORE B,C
  1008.     RET
  1009. PRG:    CALL    L2235    ;I/P LL, UL    PRG ROUTINE
  1010.     CALL    L1355    ;CRLF
  1011.     MVI    A,'%'    ;O/P %
  1012.     CALL    L1133
  1013.     CALL    LA01    ;I/P LETTER
  1014.     RLC
  1015.     RLC
  1016.     MOV    E,A
  1017.     LHLD    LA000    ;LL INTO H,L
  1018. LC166:    MOV    A,L    ;COMPARE ROM WITH MEM
  1019.     OUT    20Q
  1020.     IN    2
  1021.     CMP    M
  1022.     CNZ    LC225    ;PROGR IF NOT EQUAL
  1023.     LDA    LA002    ;END OF PROGRAM?
  1024.     CMP    L
  1025.     JNZ    LC221
  1026.     LDA    LA003
  1027.     CMP    H
  1028.     JNZ    LC221
  1029.     CALL    LC225    ;YES, PROGR LAST
  1030.     RST    0
  1031. LC221:    INX    H    ;NEW BYTE
  1032.     JMP    LC166
  1033. LC225:    MVI    B,1    ;PROGR 4 TIMES LONGER
  1034.     CALL    LC252
  1035.     MOV    A,B
  1036.     RLC
  1037.     RLC
  1038.     MOV    B,A
  1039. LC236:    CALL    LC252
  1040.     DCR    B
  1041.     JNZ    LC236
  1042.     MOV    A,B    ;OUTPUT NULL CHAR
  1043.     CALL    L1133
  1044.     RET
  1045. LC252:    MOV    A,M    ;PROGRAM UNTIL ROM
  1046.     CMA    ;BYTE HOLDS DESIRED
  1047.     OUT    22Q    ;DATA; MAX 255 PULSES
  1048.     MVI    A,4
  1049.     OUT    26Q
  1050.     XRA    A
  1051.     OUT    26Q
  1052.     MOV    C,E
  1053. LC266:    MVI    D,350Q
  1054. LC270:    DCR    D
  1055.     JNZ    LC270
  1056.     DCR    C
  1057.     JNZ    LC266
  1058.     IN    2
  1059.     CMP    M
  1060.     RZ
  1061.     INR    B
  1062.     JNZ    LC252
  1063.     CALL    LB25
  1064.     MVI    A,77Q
  1065.     CALL    L1133
  1066.     RST    0
  1067. ; 
  1068. L3321:    DB    003Q,201Q,214Q,014Q,315Q,120Q,025Q,223Q
  1069.     DB    010Q,375Q,030Q,003Q,210Q,007Q,353Q,023Q
  1070.     DB    210Q,214Q,004Q,042Q,014Q,210Q,214Q,004Q
  1071.     DB    052Q,123Q,024Q,201Q,030Q,072Q,114Q,004Q
  1072.     DB    301Q,030Q,072Q,030Q,003Q,210Q,007Q,353Q
  1073.     DB    030Q,024Q,210Q,014Q,343Q
  1074. L3376:    DB    023Q,020Q,210Q
  1075.     DB    014Q,371Q,020Q,003Q,210Q,014Q,351Q
  1076. L4010:    DB    012Q
  1077.     DB    203Q,332Q,012Q,232Q,312Q,012Q,220Q,362Q
  1078.     DB    012Q,215Q,372Q,003Q,203Q,334Q,003Q,232Q
  1079.     DB    314Q,003Q,220Q,364Q,003Q,215Q,374Q,022Q
  1080.     DB    003Q,330Q,022Q,032Q,310Q,022Q,020Q,360Q
  1081.     DB    022Q,015Q,370Q,011Q,116Q,333Q,005Q,011Q
  1082.     DB    373Q,004Q,011Q,363Q
  1083. L4065:    DB    102Q
  1084. L4066:    DB    370Q,103Q,371Q
  1085.     DB    104Q,372Q,105Q,373Q,110Q,374Q,114Q,375Q
  1086.     DB    115Q,376Q,123Q,376Q,120Q,376Q,101Q,377Q
  1087. L4111:
  1088.     DB    'XQT'
  1089.     DW    XQT
  1090.     DB    'LOC'
  1091.     DW    LOC
  1092.     DB    'DPO'
  1093.     DW    DPO
  1094.     DB    'LDO'
  1095.     DW    LDO
  1096.     DB    'DLP'
  1097.     DW    DLP
  1098.     DB    'EDT'
  1099.     DW    EDT
  1100.     DB    'SBP'
  1101.     DW    SBP
  1102.     DB    'CBP'
  1103.     DW    CBP
  1104.     DB    'DPS'
  1105.     DW    DPS
  1106.     DB    'CPY'
  1107.     DW    CPY
  1108.     DB    'TRN'
  1109.     DW    TRN
  1110.     DB    'PRG'
  1111.     DW    PRG
  1112.     DB    0,0,0
  1113.     DW    0
  1114.     DB    0,0,0
  1115.     DW    0
  1116. L4217:    DB    003Q,015Q
  1117.     DB    003Q,077Q,215Q,017Q,026Q,177Q,010Q,014Q
  1118.     DB    024Q,166Q,115Q,126Q,011Q,076Q,111Q,016Q
  1119.     DB    022Q,074Q,104Q,003Q,022Q,075Q,301Q,004Q
  1120.     DB    004Q,207Q,301Q,004Q,003Q,217Q,323Q,025Q
  1121.     DB    002Q,227Q,323Q,002Q,002Q,237Q,301Q,016Q
  1122.     DB    001Q,247Q,330Q,022Q,001Q,257Q,317Q,022Q
  1123.     DB    001Q,267Q,303Q,015Q,020Q,277Q,001Q,104Q
  1124.     DB    011Q,306Q,001Q,103Q,011Q,316Q,023Q,125Q
  1125.     DB    011Q,326Q,023Q,102Q,011Q,336Q,001Q,116Q
  1126.     DB    011Q,346Q,030Q,122Q,011Q,356Q,017Q,122Q
  1127.     DB    011Q,366Q,003Q,120Q,011Q,376Q,022Q,014Q
  1128.     DB    003Q,007Q,022Q,022Q,003Q,017Q,022Q,001Q
  1129.     DB    014Q,027Q,022Q,001Q,022Q,037Q,012Q,215Q
  1130.     DB    020Q,303Q,012Q,216Q,003Q,322Q,012Q,216Q
  1131.     DB    032Q,302Q,012Q,220Q,005Q,352Q,012Q,220Q
  1132.     DB    017Q,342Q,003Q,216Q,003Q,324Q,003Q,216Q
  1133.     DB    032Q,304Q,003Q,220Q,005Q,354Q,003Q,220Q
  1134.     DB    017Q,344Q,022Q,005Q,024Q,311Q,022Q,016Q
  1135.     DB    003Q,320Q,022Q,016Q,032Q,300Q,022Q,020Q
  1136.     DB    005Q,350Q,022Q,020Q,017Q,340Q,017Q,125Q
  1137.     DB    024Q,323Q,014Q,204Q,001Q,072Q,120Q,017Q
  1138.     DB    020Q,371Q,023Q,224Q,001Q,062Q,114Q,230Q
  1139.     DB    011Q,071Q,104Q,001Q,104Q,071Q,111Q,016Q
  1140.     DB    030Q,073Q,104Q,003Q,130Q,073Q,003Q,015Q
  1141.     DB    001Q,057Q,023Q,024Q,003Q,067Q,004Q,001Q
  1142.     DB    001Q,047Q,016Q,017Q,020Q,000Q,122Q,023Q
  1143.     DB    024Q
  1144. L5142:    DB    377Q
  1145. ; 
  1146. ; 
  1147. LA000:    DS    1
  1148. LA001:    DS    1
  1149. LA002:    DS    1
  1150. LA003:    DS    1
  1151. LA004:    DS    1
  1152. LA005:    DS    1
  1153. LA006:    DS    1
  1154. LA007:    DS    1
  1155. LA010:    DS    1
  1156. LA011:    DS    1
  1157. LA012:    DS    1
  1158. LA013:    DS    1
  1159. LA014:    DS    2
  1160. LA016:    DS    1
  1161. LA017:    DS    1
  1162. LA020:    DS    1
  1163. LA021:    DS    1
  1164. LA022:    DS    1
  1165. LA023:    DS    1
  1166. LA024:    DS    2
  1167. LA026:    DS    1
  1168. LA027:    DS    1
  1169. LA030:    DS    50Q
  1170. LA100:    DS    2
  1171. LA102:    DS    2
  1172. LA104:    DS    2
  1173. LA106:    DS    2
  1174. LA110:    DS    2
  1175. LA112:    DS    2
  1176.     END
  1177.