home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol084 / xstamp.asm < prev    next >
Assembly Source File  |  1984-04-29  |  28KB  |  2,004 lines
  1.     TITLE    'XSTAM transmit module vers 1.304'
  2. ;
  3. ;********************************
  4. ;*                *
  5. ;*       BSTAM v4.3        *
  6. ;*        TRANSMIT        *
  7. ;*      LOCAL REV 04        *
  8. ;*                *
  9. ;********************************
  10. ;
  11. ; MODIFICATION HISTORY
  12. ;=====================
  13. ; 
  14. ; 10/Jun/82 Added error count to abort after a number
  15. ;      of error messages.
  16. ; 06/Aug/81 INCORPORATED K'S FIX TO BUG IN LOCPRT,
  17. ;      MADE CONSOLE ABORT ASSEMBLE SIMPLE
  18. ;      RETURN IF QUIET MODE IS TRUE, BROUGHT
  19. ;      LOCAL REV NUMBER UP TO 3 (R)
  20. ; 04/Aug/81 FIXED BUFFER EQUATES    (R)
  21. ; 31/Jul/81 ADDED QUIET MODE,CONDITIONALS FOR NOT SENDING
  22. ;      COM FILES, SYS FILES, TAGGED FILES, AND FILES
  23. ;      WITH NAMES ENDING IN "#"    (R)
  24. ;
  25.     ORG    0100H
  26. ;
  27. FALSE    EQU    0
  28. TRUE    EQU    NOT FALSE
  29. ;
  30. QUIET    EQU    TRUE     ;TRUE ASSEMBLES TQ.COM
  31. NOCOMS    EQU    TRUE    ;TRUE SUPPRESSES COM FILES
  32. NOTAGS    EQU    TRUE    ;TRUE SUPPRESSES TAG2 FILES
  33. NOSYS    EQU    TRUE    ;TRUE SUPPRESSES SYS FILES
  34. NOPNDS    EQU    TRUE    ;TRUE SUPPRESSES FILES
  35.             ;ENDING IN "#"
  36. ;
  37. BDOS    EQU    5
  38. DBUF    EQU    80H
  39. DFCB    EQU    5CH
  40. EXT    EQU    0CH
  41. SPEED    EQU    6    ;CPU Speed in MHz
  42. MAXDROP    EQU    10    ;Maximum number of line dropouts
  43. CARSEC    EQU    5    ;Carrier timeout in seconds
  44. MAXERR    EQU    20    ;Number of error messages before
  45.             ; quiting, reset after each good block
  46. ;
  47. CR    EQU    13
  48. LF    EQU    10
  49. ;
  50. VDP80    EQU    TRUE    ;True for RCPM system
  51. VDATA    EQU    81H
  52. VSTAT    EQU    80H
  53. VMASK    EQU    04H
  54. ;
  55.     PAGE
  56. ;
  57. ; PRINT MACRO FOR MESSAGES
  58. ; TO BE SUPPRESSED IN QUIET MODE
  59. ;
  60. $-MACRO         ;TURN ON SUPPRESSION
  61. ;
  62. PRINT    MACRO    STRING
  63.     LOCAL    OVRSTR,MARK
  64.     JMP    OVRSTR
  65. MARK:    DB    CR,LF,STRING
  66. OVRSTR: LXI    D,MARK
  67. ;
  68.     IF    QUIET
  69.     CALL    LOCPRT    ;MAYBE PRINT LOCAL ONLY
  70.     ELSE
  71.     MVI    C,9    ;NON-QUIET, USE BDOS
  72.     CALL    BDOS
  73.     ENDIF
  74. ;
  75.     ENDM
  76. ;
  77. ; PRINT MACRO FOR MESSAGES ALWAYS PRINTED
  78. ;
  79. APRINT    MACRO    STRING
  80.     LOCAL    OVRSTR,MARK
  81.     JMP    OVRSTR
  82. MARK:    DB    CR,LF,STRING
  83. OVRSTR: LXI    D,MARK
  84.     MVI    C,9
  85.     CALL    BDOS
  86.     ENDM
  87. ;
  88. ;
  89.     PAGE
  90. ;
  91. ; USER AREA
  92. ; NOTE: THE USER AREA SHOULD BE SILENT
  93. ; WHEN ASSEMBLED FOR TQ.COM
  94. ;
  95. ;
  96. USER    EQU    $    ;DEFINE USER AREA
  97. ;
  98.     JMP    ENTRY
  99. ;****************************************************************
  100. ;*                                *
  101. ;*       XSTAM Interface routines for 2651 UART.        *
  102. ;*        on Godbout System Support 1 Board        *
  103. ;*                                *
  104. ;****************************************************************
  105. ; 
  106. ;************************************************
  107. ;*                        *
  108. ;*         2651 Baud Rate Table        *
  109. ;*                        *
  110. ;************************************************
  111. ;
  112. B50    EQU    0000B            ;50 bps
  113. B75    EQU    0001B            ;75 bps
  114. B110    EQU    0010B            ;110 bps
  115. B134    EQU    0011B            ;134.5 bps
  116. B150    EQU    0100B            ;150 bps
  117. B300    EQU    0101B            ;300 bps
  118. B600    EQU    0110B            ;600 bps
  119. B1200    EQU    0111B            ;1200 bps
  120. B1800    EQU    1000B            ;1800 bps
  121. B2000    EQU    1001B            ;2000 bps
  122. B2400    EQU    1010B            ;2400 bps
  123. B3600    EQU    1011B            ;3600 bps
  124. B4800    EQU    1100B            ;4800 bps
  125. B7200    EQU    1101B            ;7200 bps
  126. B9600    EQU    1110B            ;9600 bps
  127. B19200    EQU    1111B            ;19200 bps
  128. ;
  129. ;************************************************
  130. ;*                        *
  131. ;*        2651 Equates            *
  132. ;*                        *
  133. ;************************************************
  134. ;
  135. BASE    EQU    5CH            ;UART base register
  136. DATA    EQU    BASE+0            ;Data port
  137. MSTATUS    EQU    BASE+1            ;Status port
  138. MODE    EQU    BASE+2            ;Mode register
  139. CMMD    EQU    BASE+3            ;Command register
  140. USERP    EQU    BASE+7            ;User select port
  141. UNUM    EQU    6            ;Modem user number
  142. MODE1    EQU    01101110B        ;Asynch,16x,8 data bits,
  143.                     ; no parity, even, 1 stop bit
  144. MODE2    EQU    01110000B + B300    ;Baud rate
  145. CMMDB    EQU    00100111B        ;Tx enabled, RX enabled, no break
  146.                     ; DTR high, RTS high
  147. ERESET    EQU    CMMDB+10H        ;Error reset
  148. GBDTR    EQU    10000000B        ;CCITT 108
  149. GBCD    EQU    01000000B        ;Carrier detect
  150. ;
  151. SYSSPT    EQU    TRUE            ;True for Godbout system support
  152. INTER3    EQU    NOT SYSSPT        ;True for Godbout Interfacer 3
  153. ;
  154. UINITV:
  155.     JMP    INITIU        ;UART/USART INITIALATION ENTRY POINT
  156. MSTSV:
  157.     JMP    INSPRU        ;STATUS PORT READ ENTRY POINT
  158. ERRSET:
  159.     JMP    ERRSTU        ;UART/USART ERROR RESET ENTRY POINT
  160. INPORT:
  161.     JMP    INPRTU        ;READ DATA PORT ENTRY POINT
  162. OUTPORT:
  163.     JMP    OUTPRU        ;WRITE DATA PORT ENTRY POINT
  164. ;
  165. ; NEW VECTOR FOR LOCAL CONSOLE
  166. ; OUTPUT: PRINT CHAR IN C, CAN
  167. ; MODIFY ANY REGISTERS
  168. ;
  169. LCOV:    JMP    LCO
  170. ;
  171. INITIU:
  172.     CALL    SIGNON        ;Announce version
  173.  
  174.     if    inter3
  175.     MVI    A,UNUM
  176.     OUT    USERP        ;Select UART
  177.     endif    ;inter3
  178.  
  179.     MVI    A,MODE1        ;Get first mode word
  180.     OUT    MODE
  181.     MVI    A,MODE2        ;Get second mode word
  182.     OUT    MODE
  183.     MVI    A,CMMDB        ;Get command byte
  184.     OUT    CMMD
  185.     RET            ;Retuen to XSTAM
  186. ;
  187. INSPRU:
  188. RDMSTS:
  189.  
  190.     if    inter3
  191.     MVI    A,UNUM
  192.     OUT    USERP        ;Select UART
  193.     endif    ;inter3
  194.  
  195.     IN    MSTATUS        ;GET MODEM STATUS
  196.     ANI    GBCD        ;GOT A CARRIER?
  197.     JNZ    CARROK        ;YES, GO ON WITH TESTS
  198.     LDA    DROPOUT        ;Get dropout count
  199.     ADI    1        ;Increment it
  200.     CPI    MAXDROP        ;Bad line?
  201.     JZ    NOCAR        ;Yes, reset system
  202.     STA    DROPOUT        ;Save for later
  203.     PUSH    B        ;PRESERVE BC SO WE CAN USE IT
  204.     MVI    B,CARSEC*10    ;SETUP TIMEOUT
  205. CARLP:
  206.     CALL    DELAY        ;WAIT .1 SECONDS
  207.     IN    MSTATUS        ;GET MODEM STATUS
  208.     ANI    GBCD        ;HAS CARRIER RETURNED?
  209.     MOV    A,B        ;PRESERVE COUNTDOWN VALUE
  210.     POP    B        ;FIX STACK IN CASE ALL IS OK
  211.     JNZ    CARROK        ;GOT CARRIER, CONTINUE ON
  212.     DCR    A        ;COUNT TIME DOWN
  213.     STC            ;IN CASE THIS IS THE END OF TIME
  214.     PUSH    B        ;PRESERVE B
  215.     MOV    B,A        ;GET COUNTER VALUE IN B
  216.     JNZ    CARLP        ;KEEP CHECKING
  217.     POP    B
  218. NOCAR:
  219.     LXI    D,LOST        ;Sending anything to conosle
  220.     MVI    C,9        ; will let BYE grab control if
  221.     CALL    5        ; carrier lost totally else
  222.     JMP    0        ; back to CP/M if dropout max
  223.                 ; was reached.
  224. ;
  225. LOST:
  226.     DB    CR,LF,'    ++CARRIER LOST++'
  227.     DB    CR,LF,'The modem is now '
  228.     DB    'DISCONNECTED',CR,LF,'$'
  229. ;
  230. CARROK:
  231.     if    inter3
  232.     MVI    A,UNUM
  233.     OUT    USERP        ;Select UART
  234.     endif    ;inter3
  235.  
  236.     IN    MSTATUS        ;Get status
  237.     ORI    4        ;Force Tx empty high
  238.     RET
  239. ;
  240. DELAY:
  241.     PUSH    B        ;Delay 0.1 second
  242.     LXI    B,SPEED*4167     ;TIMING CONSTANT
  243. DELAY1:
  244.     DCX    B
  245.     MOV    A,B
  246.     ORA    C
  247.     JNZ    DELAY1
  248.     POP    B
  249.     RET
  250. ;
  251. ERRSTU:
  252.     if    inter3
  253.     MVI    A,UNUM
  254.     OUT    USERP        ;Select UART
  255.     endif    ;inter3
  256.  
  257.     MVI    A,ERESET    ;Reset error flags in 2651
  258.     OUT    CMMD
  259.     MVI    A,CMMDB        ;Restore normal operation
  260.     OUT    CMMD
  261.     RET
  262. ;
  263. INPRTU:
  264.     if    inter3
  265.     MVI    A,UNUM
  266.     OUT    USERP        ;Select UART
  267.     endif    ;inter3
  268.  
  269.     IN    DATA        ;Get data
  270.     RET
  271. ;
  272. OUTPRU:
  273.     if    inter3
  274.     PUSH    PSW
  275.     MVI    A,UNUM
  276.     OUT    USERP        ;Select UART
  277.     POP    PSW
  278.     endif    ;inter3
  279.  
  280.     OUT    DATA        ;Send data
  281.     RET
  282. ;
  283. ;
  284. SIGNON:
  285.     PUSH    B        ;Save  the environment
  286.     PUSH    D
  287.     PUSH    H
  288.     LXI    D,MESSGE
  289.     MVI    C,9        ;BDOS display string command
  290.     CALL    BDOS        ;Announce version to user
  291.     POP    H        ;Restore the enviroment
  292.     POP    D
  293.     POP    B
  294.     RET
  295. ;
  296. hexnum    macro    num
  297.     if    (num/16) > 9     
  298.     db    (num/16 and 0fh) + 'A' - 10
  299.     else
  300.     db    (num/16 and 0fh) + '0'
  301.     endif
  302.     if    (num and 0fh) > 9
  303.     db    (num and 0fh) + 'A' - 10
  304.     else
  305.     db    (num and 0fh) + '0'
  306.     endif
  307.     endm
  308.  
  309. MESSGE:
  310.     if    not quiet
  311.     DB    CR,LF,LF
  312.     DB    'Version 1.304, March 29, 1982 by Software Tools',CR,LF
  313.     DB    '2651 UART on '
  314.  
  315.     if    sysspt
  316.     DB    'Godbout System Support 1 Board'
  317.     endif    ;sysspt
  318.  
  319.     if    inter3
  320.     DB    'Godbout Interfacer 3 Board'
  321.     endif    ;sysspt
  322.  
  323.     DB    CR,LF
  324.     DB    'UART Addressed at ' 
  325.     hexnum    %BASE
  326.     DB    'H, 300 bps, no parity.',CR,LF
  327.  
  328.     if    inter3
  329.     DB    'UART Relative User '
  330.     hexnum    %UNUM
  331.     DB    ',',CR,LF
  332.     endif    ;inter3
  333.     endif    ;not quite
  334.  
  335.     DB    '$'
  336. ;
  337. ; NEW HANDLER FOR LOCAL-CONSOLE
  338. ; ONLY.  PRINT REG C, CAN USE
  339. ; ANY REGISTER
  340. ;
  341. LCO:
  342.     if    vdp80
  343.     IN    VSTAT
  344.     ANI    VMASK
  345.     JZ    LCO
  346.     MOV    A,C
  347.     OUT    VDATA
  348.     else
  349.     LHLD    1
  350.     LXI    D,9    ;Offset to COUT
  351.     DAD    D
  352.     PCHL
  353.     endif    ;vdp80
  354.  
  355.     RET        ;NULL FOR NOW
  356. ;
  357. ; END OF USER AREA
  358. ;
  359.     PAGE
  360.     ORG    USER+300    ;ALLOW 300 BYTES USER AREA
  361. ;
  362. ; BSTAM INITIAL ENTRY POINT
  363. ;
  364. ENTRY:
  365.     LXI    H,0
  366.     DAD    SP
  367.     SHLD    STACK
  368.     LXI    SP,STACK
  369.     JMP    BYSTAK
  370. ;
  371.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  372.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  373.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  374.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  375.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  376.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  377.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  378.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  379.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  380.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  381.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  382.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  383.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  384.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  385.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  386.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  387.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  388.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  389.     DB    0,0,0,0,0,0,0,0,0
  390.     LXI    H,0
  391.     DAD    SP
  392.     SHLD    STACK
  393.     LXI    SP,STACK
  394.     JMP    BYSTAK
  395. ;
  396. STACK:    DW    0
  397. ;
  398. BYSTAK:
  399.     APRINT    'XSTAM rev 1.304$'
  400.     APRINT    'Transmit Ready$'
  401.     APRINT    '$'
  402. ;
  403. PASTMS:
  404.     LDA    DBUF
  405.     CPI    0
  406.     JNZ    GOTFIL
  407.     APRINT    '**** NO FILE NAME - PROGRAM ABORTING ****$'
  408.     JMP    EXIT
  409. ;
  410. GOTFIL:
  411.     JMP    START
  412. ;
  413. BLDMAP:
  414.     SHLD    NAMSTO
  415.     LXI    H,DBUF
  416.     MVI    C,11H
  417.     LXI    D,DFCB
  418.     LDAX    D
  419.     STA    SDRIVE
  420.     JMP    SRCH2
  421. ;
  422. SRCHLP:
  423.     LXI    H,DBUF
  424.     MVI    C,12H
  425.     LXI    D,DFCB
  426. SRCH2:
  427.     CALL    5
  428.     LXI    H,DBUF
  429.     CPI    0FFH
  430.     RZ
  431.     ANI    3
  432.     RLC
  433.     RLC
  434.     RLC
  435.     RLC
  436.     RLC
  437.     ADD    L
  438.     MOV    L,A
  439. ;
  440.     IF    NOTAGS    ;CODE TO SKIP TAGGED FILES
  441.     INX    H
  442.     INX    H    ;POINT TO F2 BYTE
  443.     MOV    A,M    ;LOAD IT
  444.     DCX    H    ;POINT BACK
  445.     DCX    H
  446.     ORA    A    ;SET FLAGS ON A
  447.     JM    SRCHLP    ;AND SKIP IF ATR SET
  448.     ENDIF        ;NOTAGS
  449. ;
  450.     IF    NOSYS    ;CODE TO SKIP SYS FILES
  451.     XCHG        ;PUT NAME PTR IN DE
  452.     LXI    H,10    ;OFFSET TO T2 BYTE
  453.     DAD    D
  454.     MOV    A,M    ;PICK UP T2
  455.     XCHG        ;RESTORE POINTER
  456.     ORA    A    ;SET FLAGS ON A
  457.     JM    SRCHLP    ;SKIP IF SYS ATR SET
  458.     ENDIF        ;NOSYS
  459. ;
  460.     IF    NOPNDS    ;CODE TO SKIP "#" FILES
  461.     XCHG        ;MOVE PTR TO DE
  462.     LXI    H,11    ;OFFSET TO LAST FT CHAR
  463.     DAD    D
  464.     MOV    A,M    ;LOAD IT
  465.     ANI    7FH    ;KILL ANY ATR BIT
  466.     XCHG        ;RESTORE POINTER
  467.     CPI    '#'    ;GOT A # FILE?
  468.     JZ    SRCHLP    ;SKIP IT IF SO
  469.     ENDIF        ;NOPNDS
  470. ;
  471.     IF    NOCOMS    ;CODE TO SKIP COM FILES
  472.     XCHG        ;MOVE POINTER TO DE
  473.     LXI    H,9    ;OFFSET TO FIRST FT CHAR
  474.     DAD    D
  475.     MOV    A,M    ;PICK UP FIRST
  476.     ANI    7FH    ;KILL ATR BIT
  477.     CPI    'C'    ;CHAR 1 OF 'COM'
  478.     JNZ    FILOK    ;JMP, NOT COM
  479.     INX    H    ;GOT C, CHECK FOR 'O'
  480.     MOV    A,M    ;PICK UP 2ND FILETYPE CHAR
  481.     ANI    7FH    ;KILL ATTRIBUTE
  482.     CPI    'O'
  483.     JNZ    FILOK    ;NO COM, FILE OK TO SEND
  484.     INX    H    ;GOT 'CO', CHECK FOR 'M'
  485.     MOV    A,M
  486.     ANI    7FH    ;STRIP ATR
  487.     CPI    'M'    ;NOW...HAVE WE GOT 'COM'?
  488.     JZ    SRCHLP    ;SKIP IF SO
  489. FILOK:
  490.     XCHG        ;NOPE, RESTORE NAME PTR
  491.     ENDIF        ;NOCOMS
  492. ;
  493.     LDA    SDRIVE
  494.     MOV    M,A
  495.     CALL    MOVNAM
  496.     JMP    SRCHLP
  497. MOVNAM:
  498.     MVI    B,12
  499.     XCHG
  500.     LHLD    NAMSTO
  501.     XCHG
  502. MOVLP:
  503.     MOV    A,M
  504.     ANI    7FH    ;KILL ANY ATTRIBUTES
  505.     STAX    D
  506.     INX    H
  507.     INX    D
  508.     DCR    B
  509.     JNZ    MOVLP
  510.     XCHG
  511.     SHLD    NAMSTO
  512.     RET
  513. ;
  514. SDRIVE: DB    0
  515. NAMSTO: DW    0
  516. ;
  517. START:
  518.     LXI    H,BUFFER
  519.     CALL    BLDMAP
  520.     LXI    H,BUFFER
  521.     SHLD    NAMPTR
  522. MORCHK:
  523.     MVI    A,0
  524.     STA    FILFLG
  525.     CALL    INI
  526.     LDA    FILFLG
  527.     CPI    1
  528.     JZ    NOMORE
  529. MAIN:
  530.     LDA    FILFLG
  531.     SUI    0
  532.     JNZ    NOMORE
  533.     CALL    SNDFIL
  534.     JMP    MAIN
  535. ;
  536. NOMORE:
  537.     CALL    CLNUP
  538. EXIT:
  539.     LDA    FILFLG
  540.     SUI    2
  541.     JZ    MORCHK
  542.     LHLD    STACK
  543.     SPHL
  544.     RET
  545. ;
  546. ; LOCAL PRINT SUBROUTINE...EMULATES BDOS
  547. ; FUNCTION 9 ON LOCAL CONSOLE WHEN 'QUIET'
  548. ; CONDITIONAL TRUE...USES LOCAL CO VECTOR
  549. ; IN USER AREA (WHICH CAN SIMPLY DO RET
  550. ; TO BE TRULY QUIET).
  551. ;
  552.     IF    QUIET
  553. LOCPRT:
  554.     LDAX    D    ;PICK UP CHAR
  555.     INX    D    ;POINT PAST IT
  556.     CPI    '$'    ;GOT TERMINATOR?
  557.     RZ        ;WE'RE DONE IF SO
  558.     MOV    C,A    ;NOT TERM, OUTPUT IT
  559.     PUSH    D    ;SAVE STRING PTR
  560.     CALL    LCOV    ;SEND IT
  561.     POP    D    ;GET STR PTR BACK
  562.     JMP    LOCPRT    ;PRINT REST OF STRING
  563.     ENDIF        ;QUIET
  564. ;
  565. INI:
  566.     MVI    A,0
  567.     STA    L12A9
  568.     STA    L1522
  569.     STA    FILFLG
  570.     STA    ERRCNT    ;Reset error count
  571.     STA    L12B7
  572.     STA    ERRHIT    ;Reset error count
  573.     MVI    A,1
  574.     STA    L1510
  575.     CALL    UINITV
  576.     PRINT    '**** CONNECTING TO REMOTE CPU ****$'
  577.     JMP    L079A
  578. ;
  579. L050E:
  580.     SHLD    L0781
  581.     SHLD    L0785
  582.     XCHG
  583.     SHLD    L0789
  584.     MOV    H,B
  585.     MOV    L,C
  586.     SHLD    L0787
  587.     STA    L078B
  588.     MVI    A,0
  589.     LHLD    L0789
  590.     MOV    M,A
  591.     INX    H
  592.     INX    H
  593.     INX    H
  594.     MOV    M,A
  595.     DCX    H
  596.     MVI    A,0FFH
  597.     MOV    M,A
  598.     DCX    H
  599.     MVI    A,0
  600.     MOV    M,A
  601.     INX    H
  602.     INX    H
  603.     INX    H
  604.     MOV    M,A
  605.     INX    H
  606.     MVI    A,0FFH
  607.     MOV    M,A
  608.     MVI    A,1
  609.     STA    L0784
  610.     STA    L0783
  611.     CALL    ERRSET        ;Reset UART errors
  612. L0545:
  613.     LDA    L0784
  614.     SUI    1
  615.     JNZ    L0780
  616.     LHLD    L0787
  617.     MOV    A,M
  618.     LHLD    L0789
  619.     INX    H
  620.     INX    H
  621.     INX    H
  622.     CMP    M
  623.     JNZ    L0697
  624.     MVI    A,0
  625.     STA    L0784
  626.     JMP    L05DB
  627. MODOUT:
  628.     STA    L05DA
  629.     SHLD    L05D5
  630.     XCHG
  631.     SHLD    L05D7
  632. MODLP:
  633.     CALL    MSTSV
  634.     STA    STATUS
  635.     ANI    1
  636.     JZ    MODLP
  637.     LDA    STATUS
  638.     ANI    4
  639.     JZ    MODLP
  640.     LHLD    L05D7
  641.     MOV    A,M
  642.     CALL    OUTPORT
  643. L0587:
  644.     CALL    MSTSV
  645.     ANI    4
  646.     JZ    L0587
  647.     LDA    L05DA
  648.     CPI    1
  649.     RNZ
  650.     LHLD    L05D5
  651.     INX    H
  652.     INX    H
  653.     MOV    D,M
  654.     INX    H
  655.     INX    H
  656.     INX    H
  657.     MOV    E,M
  658.     LHLD    L05D7
  659.     MOV    A,M
  660.     XCHG
  661.     JMP    L05C6
  662. ;
  663. CRCADD:
  664.     XRA    H
  665.     MOV    B,A
  666.     RLC
  667.     RLC
  668.     RLC
  669.     RLC
  670.     XRA    B
  671.     MOV    C,A
  672.     ANI    0F0H
  673.     MOV    D,A
  674.     ADD    C
  675.     MOV    E,A
  676.     MOV    A,D
  677.     ACI    0
  678.     XRA    L
  679.     MOV    H,A
  680.     MOV    A,B
  681.     ANI    0F0H
  682.     MOV    B,A
  683.     XRA    E
  684.     MOV    L,A
  685.     MOV    A,B
  686.     RRC
  687.     RRC
  688.     RRC
  689.     XRA    H
  690.     MOV    H,A
  691.     RET
  692. ;
  693. L05C6:
  694.     CALL    CRCADD
  695.     XCHG
  696.     LHLD    L05D5
  697.     INX    H
  698.     INX    H
  699.     MOV    M,D
  700.     INX    H
  701.     INX    H
  702.     INX    H
  703.     MOV    M,E
  704.     RET
  705. ;
  706. L05D5:    DW    0
  707. L05D7:    DW    0
  708. STATUS: DB    0
  709. L05DA:    DB    0
  710. ;
  711. L05DB:
  712.     LHLD    L0789
  713.     XCHG
  714.     LHLD    L078F
  715.     XCHG
  716.     MVI    A,1
  717.     CALL    MODOUT
  718.     CALL    MSTSV
  719.     ANI    2
  720.     JZ    L05FA
  721.     LHLD    L0789
  722.     MVI    A,2
  723.     ORA    M
  724.     MOV    M,A
  725.     JMP    L077D
  726. ;
  727. L05FA:
  728.     LDA    L078B
  729.     CPI    1
  730.     JZ    L0612
  731.     LHLD    L0789
  732.     XCHG
  733.     LHLD    L0792
  734.     XCHG
  735.     MVI    A,1
  736.     CALL    MODOUT
  737.     JMP    L063E
  738. ;
  739. L0612:
  740.     LHLD    NAMPTR
  741.     INX    H
  742.     MOV    A,M
  743.     CPI    0
  744.     JZ    NONAMS
  745.     MVI    A,2
  746.     STA    FILFLG
  747.     LHLD    L0789
  748.     XCHG
  749.     LHLD    L078C
  750.     XCHG
  751.     MVI    A,1
  752.     CALL    MODOUT
  753.     JMP    L063E
  754. ;
  755. NONAMS:
  756.     LHLD    L0789
  757.     XCHG
  758.     LHLD    L0795
  759.     XCHG
  760.     MVI    A,1
  761.     CALL    MODOUT
  762. L063E:
  763.     CALL    MSTSV
  764.     ANI    2
  765.     JZ    L0650
  766.     LHLD    L0789
  767.     MVI    A,2
  768.     ORA    M
  769.     MOV    M,A
  770.     JMP    L077D
  771. ;
  772. L0650:
  773.     LHLD    L0789
  774.     INX    H
  775.     INX    H
  776.     SHLD    L0798
  777.     LHLD    L0789
  778.     XCHG
  779.     LHLD    L0798
  780.     XCHG
  781.     MVI    A,0
  782.     CALL    MODOUT
  783.     CALL    MSTSV
  784.     ANI    2
  785.     JNZ    L068D
  786.     LHLD    L0789
  787.     INX    H
  788.     INX    H
  789.     INX    H
  790.     INX    H
  791.     INX    H
  792.     SHLD    L0798
  793.     LHLD    L0789
  794.     XCHG
  795.     LHLD    L0798
  796.     XCHG
  797.     MVI    A,0
  798.     CALL    MODOUT
  799.     CALL    MSTSV
  800.     ANI    2
  801.     JZ    L077D
  802. L068D:
  803.     LHLD    L0789
  804.     MVI    A,2
  805.     ORA    M
  806.     MOV    M,A
  807.     JMP    L077D
  808. ;
  809. L0697:
  810.     CALL    MSTSV
  811.     ANI    2
  812.     JZ    L06AE
  813.     LHLD    L0789
  814.     MVI    A,2
  815.     ORA    M
  816.     MOV    M,A
  817.     MVI    A,0
  818.     STA    L0784
  819.     JMP    L077D
  820. ;
  821. L06AE:
  822.     LDA    L0783
  823.     SUI    1
  824.     JNZ    L071E
  825.     LHLD    L0789
  826.     INX    H
  827.     INX    H
  828.     INX    H
  829.     MOV    A,M
  830.     INR    A
  831.     MOV    M,A
  832.     LHLD    L0789
  833.     XCHG
  834.     LHLD    L0785
  835.     XCHG
  836.     MVI    A,1
  837.     CALL    MODOUT
  838.     LHLD    L0785
  839.     INX    H
  840.     SHLD    L0785
  841.     CALL    MSTSV
  842.     ANI    2
  843.     JZ    L06EA
  844.     LHLD    L0789
  845.     MVI    A,2
  846.     ORA    M
  847.     MOV    M,A
  848.     MVI    A,0
  849.     STA    L0784
  850.     JMP    L077D
  851. ;
  852. L06EA:
  853.     LHLD    L0789
  854.     INX    H
  855.     INX    H
  856.     INX    H
  857.     MOV    A,M
  858.     INR    A
  859.     MOV    M,A
  860.     LHLD    L0789
  861.     XCHG
  862.     LHLD    L0785
  863.     XCHG
  864.     MVI    A,1
  865.     CALL    MODOUT
  866.     LHLD    L0785
  867.     INX    H
  868.     SHLD    L0785
  869.     DCX    H
  870.     MVI    A,2
  871.     CMP    M
  872.     JNZ    L0716
  873.     MVI    A,0
  874.     STA    L0783
  875.     JMP    L077D
  876. ;
  877. L0716:
  878.     MVI    A,0
  879.     STA    L0784
  880.     JMP    L077D
  881. ;
  882. L071E:
  883.     LHLD    L0789
  884.     INX    H
  885.     INX    H
  886.     INX    H
  887.     MOV    A,M
  888.     INR    A
  889.     MOV    M,A
  890.     LHLD    L0789
  891.     XCHG
  892.     LHLD    L0785
  893.     XCHG
  894.     MVI    A,1
  895.     CALL    MODOUT
  896.     LHLD    L0785
  897.     INX    H
  898.     SHLD    L0785
  899.     CALL    MSTSV
  900.     ANI    2
  901.     JZ    L0752
  902.     LHLD    L0789
  903.     MVI    A,2
  904.     ORA    M
  905.     MOV    M,A
  906.     MVI    A,0
  907.     STA    L0784
  908.     JMP    L077D
  909. ;
  910. L0752:
  911.     LHLD    L0785
  912.     DCX    H
  913.     MVI    A,10H
  914.     CMP    M
  915.     JNZ    L077D
  916.     LHLD    L0789
  917.     XCHG
  918.     LHLD    L078F
  919.     XCHG
  920.     MVI    A,1
  921.     CALL    MODOUT
  922.     CALL    MSTSV
  923.     ANI    2
  924.     JZ    L077D
  925.     LHLD    L0789
  926.     MVI    A,2
  927.     ORA    M
  928.     MOV    M,A
  929.     MVI    A,0
  930.     STA    L0784
  931. L077D:
  932.     JMP    L0545
  933. ;
  934. L0780:
  935.     RET
  936. ;
  937. L0781:    DW    0
  938. L0783:    DB    0
  939. L0784:    DB    0
  940. L0785:    DW    0
  941. L0787:    DW    0
  942. L0789:    DW    0
  943. L078B:    DB    0
  944. L078C:    DW    L078E
  945. L078E:    DB    1BH
  946. L078F:    DW    L0791
  947. L0791:    DB    10H
  948. L0792:    DW    L0794
  949. L0794:    DB    3
  950. L0795:    DW    L0797
  951. L0797:    DB    17H
  952. L0798:    DW    0
  953. ;
  954. L079A:
  955.     LXI    H,L1511
  956.     LXI    D,STSTOR
  957.     LXI    B,L12B4
  958.     MVI    A,0
  959.     CALL    L050E
  960. L07A8:
  961.     LDA    L1510
  962.     SUI    1
  963.     JNZ    L0CC8
  964.     LDA    STSTOR
  965.     CPI    0
  966.     JZ    L0989
  967.     JMP    ERRORS
  968. ;
  969. ERRCHK:
  970.     SHLD    STSPTR
  971.     MVI    A,80H
  972.     ANA    M
  973.     JZ    PARCHK
  974.     PRINT    '**** FRAMING ERROR ****$'
  975. PARCHK:
  976.     LHLD    STSPTR
  977.     MVI    A,40H
  978.     ANA    M
  979.     JZ    OVRCHK
  980.     PRINT    '**** PARITY ERROR ****$'
  981. OVRCHK:
  982.     LHLD    STSPTR
  983.     MVI    A,20H
  984.     ANA    M
  985.     JZ    BCCHCK
  986.     PRINT    '**** OVERRUN ERROR ****$'
  987. BCCHCK:
  988.     LHLD    STSPTR
  989.     MVI    A,10H
  990.     ANA    M
  991.     JZ    LOSCHK
  992.     PRINT    '**** BCC ERROR ****$'
  993. LOSCHK:
  994.     LHLD    STSPTR
  995.     MVI    A,8
  996.     ANA    M
  997.     JZ    TIMCHK
  998.     PRINT    '**** LOST DATA ERROR ****$'
  999. TIMCHK:
  1000.     LHLD    STSPTR
  1001.     MVI    A,4
  1002.     ANA    M
  1003.     JZ    EXCHEK
  1004.     PRINT    '**** TIME OUT ERROR ****$'
  1005. EXCHEK:
  1006.     LHLD    STSPTR
  1007.     MVI    A,2
  1008.     ANA    M
  1009.     JZ    LENCHK
  1010.     PRINT    '**** EXCEPTION ERROR ****$'
  1011. LENCHK:
  1012.     LHLD    STSPTR
  1013.     MVI    A,1
  1014.     ANA    M
  1015.     JZ    HITS
  1016.     PRINT    '**** LENGTH ERROR ****$'
  1017. ;
  1018. HITS:
  1019.     LDA    ERRHIT
  1020.     INR    A
  1021.     STA    ERRHIT
  1022.     CPI    MAXERR
  1023.     RNZ
  1024.     PRINT    '**** ABORTED, TOO MANY ERRORS ****$'
  1025.     XRA    A
  1026.     STA    L12A8
  1027.     JMP    EXIT
  1028. ;
  1029. STSPTR: DW    0
  1030. ;
  1031. ERRORS:
  1032.     LXI    H,STSTOR
  1033.     CALL    ERRCHK
  1034.     JMP    L0986
  1035. ;
  1036. STOPCK: 
  1037.     MVI    C,11
  1038.     CALL    5
  1039.     ORA    A    ;Character at console?
  1040.     RZ        ;No
  1041.     MVI    C,1    ;Yes
  1042.     CALL    5
  1043.     CPI    3    ;Abort (control-c)?
  1044.     RNZ        ;No
  1045.     PRINT    '**** ABORTED BY USER ****$'
  1046.     XRA    A
  1047.     STA    L12A8
  1048.     JMP    EXIT
  1049. ;
  1050. L0986:
  1051.     CALL    STOPCK
  1052. L0989:
  1053.     JMP    L0C38
  1054. ;
  1055. L098C:
  1056.     SHLD    L0C33
  1057.     XCHG
  1058.     SHLD    L0C36
  1059.     STA    L0C35
  1060.     LHLD    L0C33
  1061.     SHLD    L0C31
  1062.     MVI    A,1
  1063.     STA    L0C2C
  1064.     STA    L0C2D
  1065.     STA    L0C2F
  1066.     MVI    A,0
  1067.     STA    L0C2E
  1068.     LHLD    L0C36
  1069.     MOV    M,A
  1070.     INX    H
  1071.     MOV    M,A
  1072.     INX    H
  1073.     MVI    A,0FFH
  1074.     MOV    M,A
  1075.     INX    H
  1076.     MVI    A,0
  1077.     MOV    M,A
  1078.     INX    H
  1079.     MOV    M,A
  1080.     INX    H
  1081.     MVI    A,0FFH
  1082.     MOV    M,A
  1083. L09C0:
  1084.     LDA    L0C2F
  1085.     SUI    1
  1086.     JNZ    L0C2B
  1087.     LHLD    L0C36
  1088.     INX    H
  1089.     INX    H
  1090.     INX    H
  1091.     LDA    L0C35
  1092.     CMP    M
  1093.     JNZ    L0A0A
  1094.     MVI    A,0
  1095.     STA    L0C2F
  1096.     LHLD    L0C31
  1097.     DCX    H
  1098.     DCX    H
  1099.     MOV    A,M
  1100.     CPI    10H
  1101.     JNZ    L0A00
  1102.     INX    H
  1103.     MOV    A,M
  1104.     CPI    6
  1105.     JZ    L0C28
  1106.     CPI    15H
  1107.     JZ    L0C28
  1108.     CPI    5
  1109.     JZ    L0C28
  1110.     CPI    3
  1111.     JZ    L0C28
  1112.     CPI    17H
  1113.     JZ    L0C28
  1114. L0A00:
  1115.     LHLD    L0C36
  1116.     MVI    A,1
  1117.     ORA    M
  1118.     MOV    M,A
  1119.     JMP    L0C28
  1120. ;
  1121. L0A0A:
  1122.     LHLD    L0C36
  1123.     MVI    A,0
  1124.     MOV    M,A
  1125.     JMP    L0AAF
  1126. ;
  1127. GFMODM:
  1128.     SHLD    HLSAVE
  1129.     STA    ASAVE
  1130.     LHLD    L0AAB
  1131.     SHLD    L0AA9
  1132. L0A1F:
  1133.     CALL    MSTSV
  1134.     STA    L0AAE
  1135.     LDA    L0AAE
  1136.     ANI    10H
  1137.     JZ    L0A38
  1138.     CALL    ERRSET
  1139.     LHLD    HLSAVE
  1140.     MVI    A,20H
  1141.     ORA    M
  1142.     MOV    M,A
  1143.     RET
  1144. ;
  1145. L0A38:
  1146.     LDA    L0AAE
  1147.     ANI    8
  1148.     JZ    L0A4B
  1149.     CALL    ERRSET
  1150.     LHLD    HLSAVE
  1151.     MVI    A,40H
  1152.     ORA    M
  1153.     MOV    M,A
  1154.     RET
  1155. ;
  1156. L0A4B:
  1157.     LDA    L0AAE
  1158.     ANI    2
  1159.     JZ    L0A85
  1160.     CALL    INPORT
  1161.     STA    L0AAE
  1162.     LDA    ASAVE
  1163.     CPI    1
  1164.     JZ    L0A65
  1165.     LDA    L0AAE
  1166.     RET
  1167. ;
  1168. L0A65:
  1169.     LHLD    HLSAVE
  1170.     INX    H
  1171.     INX    H
  1172.     MOV    D,M
  1173.     INX    H
  1174.     INX    H
  1175.     INX    H
  1176.     MOV    E,M
  1177.     LDA    L0AAE
  1178.     XCHG
  1179.     CALL    CRCADD
  1180.     XCHG
  1181.     LHLD    HLSAVE
  1182.     INX    H
  1183.     INX    H
  1184.     MOV    M,D
  1185.     INX    H
  1186.     INX    H
  1187.     INX    H
  1188.     MOV    M,E
  1189.     LDA    L0AAE
  1190.     RET
  1191. ;
  1192. L0A85:
  1193.     LHLD    L0AA9
  1194.     DCX    H
  1195.     MVI    A,0
  1196.     CMP    H
  1197.     JZ    L0A95
  1198.     SHLD    L0AA9
  1199.     JMP    L0A1F
  1200. ;
  1201. L0A95:
  1202.     CMP    L
  1203.     JZ    L0A9F
  1204.     SHLD    L0AA9
  1205.     JMP    L0A1F
  1206. ;
  1207. L0A9F:
  1208.     LHLD    HLSAVE
  1209.     MVI    A,4
  1210.     ORA    M
  1211.     MOV    M,A
  1212.     RET
  1213. ;
  1214. HLSAVE: DW    0
  1215. L0AA9:    DW    0
  1216. L0AAB:    DW    0
  1217. ASAVE:    DB    0
  1218. L0AAE:    DB    0
  1219. ;
  1220. L0AAF:
  1221.     LHLD    L0C36
  1222.     MVI    A,1
  1223.     CALL    GFMODM
  1224.     STA    L0C30
  1225.     LHLD    L0C36
  1226.     MVI    A,0
  1227.     CMP    M
  1228.     JZ    L0ACB
  1229.     MVI    A,0
  1230.     STA    L0C2F
  1231.     JMP    L0C28
  1232. ;
  1233. L0ACB:
  1234.     LDA    L0C2C
  1235.     SUI    1
  1236.     JNZ    L0B43
  1237.     LDA    L0C2D
  1238.     SUI    1
  1239.     JNZ    L0AFB
  1240.     LDA    L0C30
  1241.     CPI    10H
  1242.     JNZ    L0AEB
  1243.     MVI    A,0
  1244.     STA    L0C2D
  1245.     JMP    L0B2A
  1246. L0AEB:
  1247.     LHLD    L0C36
  1248.     MVI    A,8
  1249.     ORA    M
  1250.     XCHG
  1251.     STAX    D
  1252.     MVI    A,0
  1253.     STA    L0C2F
  1254.     JMP    L0B2A
  1255. ;
  1256. L0AFB:
  1257.     LDA    L0C30
  1258.     CPI    2
  1259.     JNZ    L0B0B
  1260.     MVI    A,0
  1261.     STA    L0C2C
  1262.     JMP    L0B2A
  1263. ;
  1264. L0B0B:
  1265.     LDA    L0C30
  1266.     CPI    6
  1267.     JZ    L0B25
  1268.     CPI    15H
  1269.     JZ    L0B25
  1270.     CPI    5
  1271.     JZ    L0B25
  1272.     MVI    A,8
  1273.     LHLD    L0C36
  1274.     ORA    M
  1275.     XCHG
  1276.     STAX    D
  1277. L0B25:
  1278.     MVI    A,0
  1279.     STA    L0C2F
  1280. L0B2A:
  1281.     LDA    L0C30
  1282.     LHLD    L0C31
  1283.     XCHG
  1284.     STAX    D
  1285.     INX    D
  1286.     XCHG
  1287.     SHLD    L0C31
  1288.     LHLD    L0C36
  1289.     INX    H
  1290.     INX    H
  1291.     INX    H
  1292.     MOV    A,M
  1293.     INR    A
  1294.     MOV    M,A
  1295.     JMP    L0C28
  1296. ;
  1297. L0B43:
  1298.     LDA    L0C2E
  1299.     SUI    1
  1300.     JNZ    L0C07
  1301.     LDA    L0C30
  1302.     CPI    10H
  1303.     JNZ    L0B6F
  1304.     MVI    A,0
  1305.     STA    L0C2E
  1306.     LDA    L0C30
  1307.     LHLD    L0C31
  1308.     MOV    M,A
  1309.     INX    H
  1310.     SHLD    L0C31
  1311.     LHLD    L0C36
  1312.     INX    H
  1313.     INX    H
  1314.     INX    H
  1315.     MOV    A,M
  1316.     INR    A
  1317.     MOV    M,A
  1318.     JMP    L0C28
  1319. ;
  1320. L0B6F:
  1321.     LDA    L0C30
  1322.     CPI    17H
  1323.     JZ    L0B9F
  1324.     CPI    3
  1325.     JZ    L0B9F
  1326.     CPI    1BH
  1327.     JZ    L0B9F
  1328.     LHLD    L0C36
  1329.     MVI    A,8
  1330.     ORA    M
  1331.     MOV    M,A
  1332.     LDA    L0C30
  1333.     LHLD    L0C31
  1334.     MOV    M,A
  1335.     INX    H
  1336.     SHLD    L0C31
  1337.     LHLD    L0C36
  1338.     INX    H
  1339.     INX    H
  1340.     INX    H
  1341.     MOV    A,M
  1342.     INR    A
  1343.     MOV    M,A
  1344.     JMP    L0BFF
  1345. ;
  1346. L0B9F:
  1347.     MVI    A,10H
  1348.     LHLD    L0C31
  1349.     MOV    M,A
  1350.     INX    H
  1351.     LDA    L0C30
  1352.     MOV    M,A
  1353.     LHLD    L0C36
  1354.     INX    H
  1355.     INX    H
  1356.     INX    H
  1357.     MOV    A,M
  1358.     INR    A
  1359.     INR    A
  1360.     MOV    M,A
  1361.     LHLD    L0C36
  1362.     MVI    A,0
  1363.     CALL    GFMODM
  1364.     STA    L0C30
  1365.     LHLD    L0C36
  1366.     MVI    A,0
  1367.     CMP    M
  1368.     JNZ    L0BFF
  1369.     INX    H
  1370.     LDA    L0C30
  1371.     MOV    M,A
  1372.     LHLD    L0C36
  1373.     MVI    A,0
  1374.     CALL    GFMODM
  1375.     STA    L0C30
  1376.     LHLD    L0C36
  1377.     MVI    A,0
  1378.     CMP    M
  1379.     JNZ    L0BFF
  1380.     INX    H
  1381.     INX    H
  1382.     INX    H
  1383.     INX    H
  1384.     LDA    L0C30
  1385.     MOV    M,A
  1386.     INX    H
  1387.     CMP    M
  1388.     JNZ    L0BF8
  1389.     LHLD    L0C36
  1390.     INX    H
  1391.     MOV    A,M
  1392.     INX    H
  1393.     CMP    M
  1394.     JZ    L0BFF
  1395. L0BF8:
  1396.     MVI    A,10H
  1397.     LHLD    L0C36
  1398.     ORA    M
  1399.     MOV    M,A
  1400. L0BFF:
  1401.     MVI    A,0
  1402.     STA    L0C2F
  1403.     JMP    L0C28
  1404. ;
  1405. L0C07:
  1406.     LDA    L0C30
  1407.     CPI    10H
  1408.     JNZ    L0C17
  1409.     MVI    A,1
  1410.     STA    L0C2E
  1411.     JMP    L0C28
  1412. ;
  1413. L0C17:
  1414.     LHLD    L0C31
  1415.     MOV    M,A
  1416.     INX    H
  1417.     SHLD    L0C31
  1418.     LHLD    L0C36
  1419.     INX    H
  1420.     INX    H
  1421.     INX    H
  1422.     MOV    A,M
  1423.     INR    A
  1424.     MOV    M,A
  1425. L0C28:
  1426.     JMP    L09C0
  1427. L0C2B:
  1428.     RET
  1429. ;
  1430. L0C2C:    DB    0
  1431. L0C2D:    DB    0
  1432. L0C2E:    DB    0
  1433. L0C2F:    DB    0
  1434. L0C30:    DB    0
  1435. L0C31:    DW    0
  1436. L0C33:    DW    0
  1437. L0C35:    DB    0
  1438. L0C36:    DW    0
  1439. ;
  1440. L0C38:
  1441.     LXI    H,L1380
  1442.     LXI    D,L1519
  1443.     MVI    A,2
  1444.     CALL    L098C
  1445.     LDA    L1519
  1446.     CPI    0
  1447.     JZ    L0C65
  1448.     LXI    H,L1519
  1449.     CALL    ERRCHK
  1450.     CALL    STOPCK
  1451.     LXI    H,L1511
  1452.     LXI    D,STSTOR
  1453.     LXI    B,L12B4
  1454.     MVI    A,0
  1455.     CALL    L050E
  1456.     JMP    L0CC5
  1457. ;
  1458. L0C65:
  1459.     LDA    L1380
  1460.     CPI    10H
  1461.     JNZ    L0C7D
  1462.     LDA    SYNCB
  1463.     CPI    6
  1464.     JNZ    L0C7D
  1465.     MVI    A,0
  1466.     STA    L1510
  1467.     JMP    L0CC5
  1468. L0C7D:
  1469.     PRINT    '**** CONNECTION IS STILL IN PROGRESS ****$'
  1470.     CALL    STOPCK
  1471.     LXI    H,L1511
  1472.     LXI    D,STSTOR
  1473.     LXI    B,L12B4
  1474.     MVI    A,0
  1475.     CALL    L050E
  1476. L0CC5:
  1477.     JMP    L07A8
  1478. ;
  1479. L0CC8:
  1480.     XRA    A
  1481.     STA    ERRHIT    ;Reset error count
  1482.     PRINT    '**** REMOTE CPU IS NOW CONNECTED ****$'
  1483.     RET
  1484. ;
  1485. SNDFIL:
  1486.     MVI    A,1
  1487.     STA    L151F
  1488.     STA    L1520
  1489.     MVI    A,0
  1490.     STA    ERRCNT
  1491.     STA    ERRSFL
  1492.     LDA    L1522
  1493.     SUI    1
  1494.     JZ    OPENOK
  1495.     LHLD    NAMPTR
  1496.     LXI    D,DFCB
  1497.     MVI    C,0CH
  1498. MV1:
  1499.     MOV    A,M
  1500.     STAX    D
  1501.     INX    H
  1502.     INX    D
  1503.     DCR    C
  1504.     JNZ    MV1
  1505.     LXI    D,L12B8
  1506.     LHLD    NAMPTR
  1507.     INX    H
  1508.     MVI    C,0BH
  1509. MV2:
  1510.     MOV    A,M
  1511.     STAX    D
  1512.     INX    H
  1513.     INX    D
  1514.     DCR    C
  1515.     JNZ    MV2
  1516.     SHLD    NAMPTR
  1517.     MVI    A,1
  1518.     STA    L1522
  1519.     MVI    B,8
  1520.     LXI    H,DFCB+1
  1521.     LXI    D,FILNAM
  1522. MV3:
  1523.     MOV    A,M
  1524.     STAX    D
  1525.     INX    H
  1526.     INX    D
  1527.     DCR    B
  1528.     JNZ    MV3
  1529.     INX    D
  1530.     MVI    B,3
  1531. MV4:
  1532.     MOV    A,M
  1533.     STAX    D
  1534.     INX    H
  1535.     INX    D
  1536.     DCR    B
  1537.     JNZ    MV4
  1538. FILNAM    EQU    $+24+3
  1539.     PRINT    '---- TRANSMITING FILE --------.--- ----$'
  1540.     JMP    BLDFCB
  1541. ;
  1542. MOVE:
  1543.     MOV    A,M
  1544.     STAX    D
  1545.     INX    H
  1546.     INX    D
  1547.     DCR    C
  1548.     JNZ    MOVE
  1549.     RET
  1550. ;
  1551. BLDFCB:
  1552.     LXI    H,DFCB
  1553.     LXI    D,MYFCB
  1554.     MVI    C,0CH
  1555.     CALL    MOVE
  1556.     JMP    PSTFCB
  1557. ;
  1558. MYFCB:    DB    '****$',0EH,9,11H,80H,0CH
  1559.     DB    0CDH,5
  1560.     DB    0,0CDH,'4',9,'!',11H,15H,11H
  1561.     DB    13H,15H,1,0B4H,12H,'>',0,0CDH
  1562.     DB    0EH,5,0C3H,0A8H
  1563. FILREC: DB    7
  1564. FILBAS: DW    L1B25
  1565. BUFLEN: DW    L1380
  1566. BUFPTR: DW    L2A0A
  1567. ;
  1568. PSTFCB:
  1569.     JMP    OPNFCB
  1570. ;
  1571. RDFILE:
  1572.     LHLD    BUFLEN
  1573.     XCHG
  1574.     LHLD    BUFPTR
  1575.     MOV    A,L
  1576.     SUB    E
  1577.     MOV    A,H
  1578.     SBB    D
  1579.     JC    NOREAD
  1580.     LXI    H,0
  1581.     SHLD    BUFPTR
  1582. RDLOOP:
  1583.     XCHG
  1584.     LHLD    BUFLEN
  1585.     MOV    A,E
  1586.     SUB    L
  1587.     MOV    A,D
  1588.     SBB    H
  1589.     JNC    L0E19
  1590.     LHLD    FILBAS
  1591.     DAD    D
  1592.     XCHG
  1593.     MVI    C,1AH
  1594.     CALL    5
  1595.     LXI    D,MYFCB
  1596.     MVI    C,14H
  1597.     CALL    5
  1598.     ORA    A
  1599.     JNZ    BADRD
  1600.     LXI    D,DBUF
  1601.     LHLD    BUFPTR
  1602.     DAD    D
  1603.     SHLD    BUFPTR
  1604.     JMP    RDLOOP
  1605. ;
  1606. BADRD:
  1607.     LHLD    BUFPTR
  1608.     SHLD    BUFLEN
  1609. L0E19:
  1610.     LXI    D,DBUF
  1611.     MVI    C,1AH
  1612.     CALL    5
  1613.     LXI    H,0
  1614.     SHLD    BUFPTR
  1615. NOREAD:
  1616.     XCHG
  1617.     LHLD    FILBAS
  1618.     DAD    D
  1619.     XCHG
  1620.     LHLD    BUFLEN
  1621.     MOV    A,L
  1622.     ORA    H
  1623.     MVI    A,1AH
  1624.     RZ
  1625.     LDAX    D
  1626.     LHLD    BUFPTR
  1627.     INX    H
  1628.     SHLD    BUFPTR
  1629.     RET
  1630. ;
  1631. OPNFCB:
  1632.     XRA    A
  1633.     STA    MYFCB+EXT
  1634.     STA    FILREC
  1635.     LXI    H,1380H ;LENGTH OF BUFFER
  1636.     SHLD    BUFLEN
  1637.     SHLD    BUFPTR
  1638.     MVI    C,0FH
  1639.     LXI    D,MYFCB
  1640.     CALL    5
  1641.     INR    A
  1642.     JNZ    OPENOK
  1643.     MVI    C,9
  1644.     LXI    D,NOFEMS
  1645.     CALL    5
  1646.     JMP    0
  1647. ;
  1648. NOFEMS: DB    CR,LF,'NO SOURCE FILE$'
  1649. ;
  1650. OPENOK:
  1651.     CALL    RDFILE
  1652.     JNZ    L0E84
  1653.     MVI    A,1
  1654.     STA    FILFLG
  1655.     JMP    L0EF4
  1656. ;
  1657. L0E84:
  1658.     MVI    C,80H
  1659.     LXI    H,L1448
  1660. L0E89:
  1661.     MOV    M,A
  1662.     INX    H
  1663.     SHLD    L12AE
  1664.     DCR    C
  1665.     JZ    L0EF4
  1666.     MOV    A,C
  1667.     STA    L12B2
  1668.     CALL    RDFILE
  1669.     JNZ    OKRD
  1670.     PRINT    '**** BUG 2 IN PROGRAM CONTACT SOFTWARE TOOLS ****$'
  1671.     MVI    A,1
  1672.     STA    FILFLG
  1673.     STA    ERRSFL
  1674.     RET
  1675. ;
  1676. OKRD:
  1677.     STA    L12B3
  1678.     LDA    L12B2
  1679.     MOV    C,A
  1680.     LHLD    L12AE
  1681.     LDA    L12B3
  1682.     JMP    L0E89
  1683. ;
  1684. L0EF4:
  1685.     LDA    L151F
  1686.     SUI    1
  1687.     JNZ    BLOKCK
  1688.     LDA    FILFLG
  1689.     CPI    0
  1690.     JZ    L0F2E
  1691.     LDA    L12A9
  1692.     SUI    0
  1693.     JNZ    L0F1D
  1694.     LXI    H,L12B5
  1695.     LXI    D,STSTOR
  1696.     LXI    B,L12AC
  1697.     MVI    A,1
  1698.     CALL    L050E
  1699.     JMP    L0F55
  1700. ;
  1701. L0F1D:
  1702.     LXI    H,L12B5
  1703.     LXI    D,STSTOR
  1704.     LXI    B,L12AD
  1705.     MVI    A,1
  1706.     CALL    L050E
  1707.     JMP    L0F55
  1708. ;
  1709. L0F2E:
  1710.     LDA    L12A9
  1711.     SUI    0
  1712.     JNZ    L0F47
  1713.     LXI    H,L12B5
  1714.     LXI    D,STSTOR
  1715.     LXI    B,L12AC
  1716.     MVI    A,0
  1717.     CALL    L050E
  1718.     JMP    L0F55
  1719. ;
  1720. L0F47:
  1721.     LXI    H,L12B5
  1722.     LXI    D,STSTOR
  1723.     LXI    B,L12AD
  1724.     MVI    A,0
  1725.     CALL    L050E
  1726. L0F55:
  1727.     LDA    STSTOR
  1728.     CPI    0
  1729.     JZ    L1009
  1730. L0F5D:
  1731.     LDA    L1520
  1732.     SUI    1
  1733.     JNZ    L1006
  1734.     LXI    H,STSTOR
  1735.     CALL    ERRCHK
  1736.     LDA    ERRCNT
  1737.     INR    A
  1738.     STA    ERRCNT
  1739.     LDA    ERRCNT
  1740.     SUI    0C8H
  1741.     JC    RETRY
  1742.     JZ    RETRY
  1743.     APRINT    '**** PERMANENT TRANSMISSION ERROR - PROGRAM ABORTING ****$'
  1744.     MVI    A,1
  1745.     STA    FILFLG
  1746.     STA    ERRSFL
  1747.     MVI    A,0
  1748.     STA    L151F
  1749.     STA    L1520
  1750. RETRY:
  1751.     LXI    H,L1380
  1752.     LXI    D,L1519
  1753.     MVI    A,2
  1754.     CALL    L098C
  1755.     LDA    L1519
  1756.     SUI    0
  1757.     JZ    L0FFE
  1758.     LXI    H,L1519
  1759.     CALL    ERRCHK
  1760.     LXI    H,L1523
  1761.     LXI    D,STSTOR
  1762.     LXI    B,L12B4
  1763.     MVI    A,0
  1764.     CALL    L050E
  1765.     JMP    L1003
  1766. ;
  1767. L0FFE:
  1768.     MVI    A,0
  1769.     STA    L1520
  1770. L1003:
  1771.     JMP    L0F5D
  1772. ;
  1773. L1006:
  1774.     JMP    L11E5
  1775. ;
  1776. L1009:
  1777.     LDA    L1520
  1778.     SUI    1
  1779.     JNZ    L11E5
  1780.     LXI    H,L1380
  1781.     LXI    D,L1519
  1782.     MVI    A,2
  1783.     CALL    L098C
  1784.     LDA    L1519
  1785.     SUI    0
  1786.     JZ    L10B7
  1787.     LDA    FILFLG
  1788.     SUI    0
  1789.     JZ    L1034
  1790.     LDA    L1519
  1791.     SUI    4
  1792.     JZ    L10C7
  1793. L1034:
  1794.     LXI    H,L1519
  1795.     CALL    ERRCHK
  1796.     LDA    ERRCNT
  1797.     INR    A
  1798.     STA    ERRCNT
  1799.     LDA    ERRCNT
  1800.     SUI    0C8H
  1801.     JC    RETRY2
  1802.     JZ    RETRY2
  1803.     APRINT    '**** PERMANENT TRANSMISSION ERROR - PROGRAM ABORTING ****$'
  1804.     MVI    A,1
  1805.     STA    FILFLG
  1806.     STA    ERRSFL
  1807.     MVI    A,0
  1808.     STA    L151F
  1809.     STA    L1520
  1810.     JMP    L10B4
  1811. ;
  1812. RETRY2:
  1813.     LXI    H,L1523
  1814.     LXI    D,STSTOR
  1815.     LXI    B,L12B4
  1816.     MVI    A,0
  1817.     CALL    L050E
  1818. L10B4:
  1819.     JMP    RETRY3
  1820. ;
  1821. L10B7:
  1822.     LDA    L1380
  1823.     CPI    10H
  1824.     JNZ    L10E9
  1825.     LDA    SYNCB
  1826.     CPI    6
  1827.     JNZ    L10E9
  1828. L10C7:
  1829.     LDA    L12B7
  1830.     INR    A
  1831.     STA    L12B7
  1832.     LXI    H,L1448
  1833.     LXI    D,L12B8
  1834.     MVI    C,80H
  1835. L10D6:
  1836.     MOV    A,M
  1837.     STAX    D
  1838.     INX    H
  1839.     INX    D
  1840.     DCR    C
  1841.     JNZ    L10D6
  1842.     MVI    A,0
  1843.     STA    L151F
  1844.     STA    L1520
  1845.     JMP    RETRY3
  1846. ;
  1847. L10E9:
  1848.     LDA    SYNCB
  1849.     CPI    5
  1850.     JNZ    SYNCOK
  1851.     PRINT    '**** SYNCHRONIZATION ERROR ****$'
  1852.     PRINT    '**** WILL ATTEMPT TO RE-TRANSMIT FILE ****$'
  1853.     XRA    A
  1854.     STA    ERRHIT
  1855.     INR    A
  1856.     STA    ERRSFL
  1857.     INR    A
  1858.     STA    FILFLG
  1859.     LHLD    NAMPTR
  1860.     DCX    H
  1861.     DCX    H
  1862.     DCX    H
  1863.     DCX    H
  1864.     DCX    H
  1865.     DCX    H
  1866.     DCX    H
  1867.     DCX    H
  1868.     DCX    H
  1869.     DCX    H
  1870.     DCX    H
  1871.     DCX    H
  1872.     SHLD    NAMPTR
  1873.     JMP    L11DA
  1874. SYNCOK:
  1875.     MVI    A,0
  1876.     STA    L1520
  1877.     LDA    ERRCNT
  1878.     INR    A
  1879.     STA    ERRCNT
  1880.     LDA    ERRCNT
  1881.     SUI    0C8H
  1882.     JC    RETRY3
  1883.     JZ    RETRY3
  1884.     PRINT    '**** PERMANENT TRANSMISSION ERROR - PROGRAM ABORTING ****$'
  1885.     MVI    A,1
  1886.     STA    FILFLG
  1887.     STA    ERRSFL
  1888. L11DA:
  1889.     MVI    A,0
  1890.     STA    L151F
  1891.     STA    L1520
  1892. RETRY3:
  1893.     JMP    L1009
  1894. ;
  1895. L11E5:
  1896.     MVI    A,1
  1897.     STA    L1520
  1898.     JMP    L0EF4
  1899. BLOKCK:
  1900.     LDA    ERRSFL
  1901.     SUI    1
  1902.     JZ    BKBACK
  1903.     PRINT    '**** BLOCK TRANSMITTED CORRECTLY ****$'
  1904.     XRA    A
  1905.     STA    ERRHIT    ;Reset error count
  1906.     INR    A
  1907.     STA    L12A9
  1908. BKBACK:
  1909.     RET
  1910. ;
  1911. CLNUP:
  1912.     LDA    ERRSFL
  1913.     CPI    0
  1914.     JNZ    CLBACK
  1915.     PRINT    '---- FILE HAS BEEN COMPLETELY TRANSMITTED ----$'
  1916.     PRINT    '**** DISCONNECTING FROM REMOTE CPU ****$'
  1917. CLBACK:
  1918.     RET
  1919. ;
  1920. L12A8:    DB    0
  1921. L12A9:    DB    0
  1922. FILFLG: DB    0
  1923. ERRCNT: DB    0
  1924. L12AC:    DB    0EH
  1925. L12AD:    DB    83H
  1926. L12AE:    DB    0,0
  1927. NAMPTR: DB    0,0
  1928. L12B2:    DB    0
  1929. L12B3:    DB    0
  1930. L12B4:    DB    2
  1931. L12B5:    DB    10H,2
  1932. L12B7:    DB    0
  1933. L12B8:    DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  1934.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  1935.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  1936.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  1937.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  1938.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  1939.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  1940.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  1941.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  1942.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  1943.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  1944.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  1945.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  1946.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  1947.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  1948.     DB    0,0,0,0,0
  1949. L1380:    DB    0
  1950. SYNCB:    DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  1951.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  1952.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  1953.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  1954.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  1955.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  1956.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  1957.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  1958.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  1959.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  1960.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  1961.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  1962.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  1963.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  1964.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  1965.     DB    0,0,0,0
  1966. L1448:    DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  1967.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  1968.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  1969.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  1970.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  1971.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  1972.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  1973.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  1974.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  1975.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  1976.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  1977.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  1978.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  1979.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  1980.     DB    0,0,0,0,0,0,0,0,0,0,0,0,0
  1981.     DB    0,0,0,0,0
  1982. L1510:    DB    0
  1983. L1511:    DB    10H,5
  1984. STSTOR: DB    0,0,0,0,0,0
  1985. L1519:    DB    0,0,0,0,0,0
  1986. L151F:    DB    0
  1987. L1520:    DB    0
  1988. ERRSFL: DB    0
  1989. L1522:    DB    0
  1990. L1523:    DB    10H,15H
  1991. DROPOUT:
  1992.     DB    0    ;Carrier dropout count
  1993. ERRHIT:    DB    0    ;Error count    
  1994. BUFFER: DB    0
  1995. ;
  1996.     REPT    256    ;GET 2K OF ZEROES
  1997.     DW    0,0,0,0,0,0,0,0
  1998.     ENDM
  1999. ;
  2000. L1B25    EQU    BUFFER+600H
  2001. L2A0A    EQU    BUFFER + (2A0AH-1525H)
  2002. ;
  2003.     END
  2004.