2 ; KERMIT - (Celtic for "FREE")
4 ; This is the CP/M-80 implementation of the Columbia University
5 ; KERMIT file transfer protocol.
9 ; Copyright June 1981,1982,1983,1984,1985
12 ; Originally written by Bill Catchings of the Columbia University Center for
13 ; Computing Activities, 612 W. 115th St., New York, NY 10025.
15 ; Contributions by Frank da Cruz, Daphne Tzoar, Bernie Eiben,
16 ; Bruce Tanner, Nick Bush, Greg Small, Kimmo Laaksonen, Jeff Damens, and many
19 ; This file contains the code for the TRANSMIT and CONNECT commands,
20 ; which communicate with a host which is not running KERMIT.
24 ;edit 12, 31-Jan-1991 by MF. Delete call to "inbuf" after "xmit1" in
25 ; the TRANSMIT command. "getfil" initializes various counters so that
26 ; when "in1chr" is first called, "inbuf" will be called immediately
27 ; and will read sectors of the file to be transmitted from disk.
28 ; This, along with a fix to "in1chr" in CPSUTL.ASM, fixes a bug
29 ; discovered by Lance Tagliapietra of the University of Wisconsin at
30 ; Platteville wherein the TRANSMIT command was failing to transmit some
31 ; characters in files over one sector in length. See CPSUTL.ASM,
33 ; edit 11, 10 September, a987, by OBSchou. Modified TRANSMIT command
34 ; to TRANSMIT <file> <string>
36 ; edit 10, 27 August, 1987 by OBSchou. Fixed bugs in Transmit, but I may
37 ; be introducing problems for IBM/CMS or half duplex systems. What
38 ; does this combination do??
40 ; edit 9 30 March, 1987 by OBSchou to replace the TRANSMIT routine.
41 ; Syntax is now TRANSMIT file after a previous
42 ; INPUT <wait time> <string to wait for>
44 ; edit 8 19 June, 1986 by OBSchou. Modified the interupt testing routine
45 ; to see if the command was a 'D' (Drop the line), in which case also
46 ; do a 'C', ie disconnect. This is really a little too much of a
47 ; system dependent thing.
48 ; For now, Ill leave it here, and possibly move it later.
50 ; edit 7 30 May 1986 OBSchou. Moved xon/xoff control (ie XON/OFF sent to host)
51 ; out to CPSUTL so that ther printer routine can use it too.
53 ; edit 6 30 April, 1986 by OBSchou.
54 ; Fixed transmit bug, so as soon as the protocol character is
55 ; received from the host is received then another line is sent.
56 ; added in a comchr (ds 1) to save the character read from the comm
57 ; line in prtchr, and is restored in a on return.
59 ; edit 5 7 March, 1986 by OBSchou Loughborough University.
60 ; Need to save the E register before calling outmdm (in CPSSYS.ASM)
61 ; if doing Half duplex. Push/pop DE should sort this problem
63 ; edit 4: 13-Jan-85 by Vanya J.Cooper Pima Commun. College Tel: 602-884-6809
65 ;pcc002 28-Dec-84 modules:cp4tt,cp4utl
66 ; Add connect mode <esc>P command to toggle printer on
67 ; and off. Conflicts with "official" recommended commands
68 ; in protocol manual, but I don't think CP/M will ever get
71 ;pcc003-pcc005 2-Jan-85 vjc modules:cp4mit,cp4tt,cp4utl
72 ; These edits must all be installed together and change the way
73 ; logging is handled. The log file spec is moved to a separate
74 ; fcb, and not opened until an actual CONNECT command is given.
75 ; This takes care of a NASTY bug that if you used any other file
76 ; command between the LOG and CONNECT, the log file would get
77 ; written over the last file used. This also allows logging to
78 ; be "permanently" enabled until an CLOSE (new command) for all
79 ; CONNECT sessions, like most other kermits do. If a log file
80 ; already exists, it will be appended to. Also add two new
81 ; CONNECT mode commands <esc>Q to suspend logging and <esc>R to
82 ; resume. <esc>R means something else during TRANSMIT, but
83 ; logging is never on then, so there shouldn't be any conflict.
84 ; I also changed the write code, so that it can handle one more
85 ; character after the XOFF is send to stop the host. This allows
86 ; a little "slop" for systems that don't stop immediately (such
87 ; as TOPS10), but it didn't help much.
89 ;pcc008 2-Jan-85 vjc modules:cp4def,cp4tt,cp4utl
90 ; Keyboard input during CONNECT mode can get locked out if
91 ; there is enough input from the modem port to keep prtchr
92 ; busy. This can happen for example, if the printer is running
93 ; at the same speed as the modem line, leaving you helpless to
94 ; turn it off or abort the host. Add a fairness count, so that
95 ; at least every prfair characters we look at console input.
97 ;pcc012 4-Jan-85 vjc modules:cp4mit,cp4tt,cp4utl
98 ; Use the big buffer for the log file. Move the log file back
99 ; into the common fcb and only save the drive, name, and
100 ; extension between connects. Add new routines to cp4utl to
101 ; create or append to an existing file, and to conditionally
102 ; advance buffers only if in memory. Remove edit pcc003 that
103 ; allows one more character after the xoff, since it didn't
104 ; really work very well and does not fit in well with the way
105 ; the buffer advancing routines are set up. If someone still
106 ; thinks this would be useful, it could be put back in with a
109 ; While testing this edit, I also noticed another bug that
110 ; the command parsing routines do not limit or check the
111 ; length of command lines or file specs, trashing what ever
112 ; comes after them. Currently because of where the fcb and
113 ; command buffer are located, this does not usually cause a
114 ; problem, but could if an extremely long line was typed in,
115 ; or in the future multiple fcbs defined elsewhere in memory
116 ; were used. Maybe this should be put on the bug list
119 ; edit 3: July 27, 1984
120 ; Allow assembly with LASM: to CP4TT is linked by CP4PKT, and links
121 ; to CP4CPM; remove exclamation points so as not to confuse LASM.
122 ; Add Toad Hall TACtrap to TRANSMIT command (TAC intercept character
123 ; is only doubled if it's data; when typed by the user, they're not
124 ; automatically doubled)
126 ; edit 2: June 7, 1984
127 ; formatting and documentation; add module version number; make sure
128 ; console is selected when leaving intchr.
131 ; extracted from CPMBASE.M80 version 3.9; modifications are described
132 ; in the accompanying .UPD file.
134 ttver: db 'CPSTT.ASM (12) 31-Jan-1991$'
136 ; This is the TRANSMIT command. It attempts to send a file, even
137 ; though there is no KERMIT on the other side.
140 ; [OBS] I have replaced the routine, so that TRANSMIT <filename> <wait string>
141 ; will send a line at a time to the host in a manner similar to MSKERMIT
144 xmit: mvi a,cmofi ;Parse an input file spec (non-wild).
145 lxi d,fcb ;Give the address for the FCB.
147 jmp kermit ;Give up on bad parse.
149 lxi d,stbuff ; where to put the string
150 mvi a,cmtxt ; get text
152 jmp kermit ; not quite correct...
153 sta strcnt ; string count returned in a
154 ana a ; if its zero, make it 1 character (CR)
162 call getfil ;Open file.
166 call prtstr ;Display error msg.
170 ; New TRANSMIT routine - transmit a file, line by line, to a remote host
171 ; waiting each time for one or more characters to be returned
172 ; as a remote host prompt. It could be as simple as a CR or LF
173 ; character. Repeat until the complete file has been sent, then
174 ; close the transmitted file, and drop into the connect state so the
175 ; user can tidy up at the host end.
176 ;get the file to send, open it up, and read first sector from disk
178 xmit1: lxi d,inms19 ; say we are send a file to the host
182 sta repcnt ; clear the host prompt chars. counter
183 sta starc ; clear star count
184 ;[MF][12]Delete the following call to "inbuf" as the call to "getfil"
185 ;[MF][12]above will have initialized counters and flags so that when
186 ;[MF][12]"in1chr" is called, "inbuf" will be called immediately and will
187 ;[MF][12]immediately read from disk. Counters and flags will then be
188 ;[MF][12]properly set up to read all characters of the file to be
189 ;[MF][12]transmitted.
190 ; call inbuf ; read one sector from disk
191 ; jmp xmtex ; exit if error
194 xmt10: xra a ; clear retransmit flag and count etc
195 sta rexbfl ; retransmit flag (1=> retransmit)
196 sta rexcnt ; character counter
198 xmt1: call xmt1ch ; send a character
199 ani 7fh ; strip any parity
200 cpi cr ; have we reached the end of the line
201 jnz xmt1 ; nope, loop around again
203 ; Now wait for a string back from the host. Compare with STRING buffer
205 xra a ; clear the character count
208 call selcon ; sent a line, send a star to console
211 lda starc ; update star count
214 cpi 60 ; sent 60 stars?
221 xmt3: lda eoflag ; have we hit end of file?
223 jnz xmtex ; yup, so quit.
225 sta repcnt ; clear the host prompt chars.counter
226 xmt2: call rd1chl ; read a character from the line
228 jnz xmt4 ; Not zero => we have a character from host
229 call ckchr ; see if *WE* have a character from console
230 push psw ; restore to modem
233 ani 7fh ; stip parity (should not be there)
234 jnz xmt2a ; if a null, try again
235 lda strcnt ; if the string length is zero, dont wait.
237 jz xmt1 ; so loop back again
238 jmp xmt4 ; else test for xon/off and incomming string
240 xmt2a: cpi cntlc ; do we want to abort?
241 jz xmtex ; in which case drop through to connect mode
242 cpi cntlz ; if control z exit back to command loop
243 jnz xmt2b ; else try for other characters
244 lxi d,fcb ; close file before exiting to command loop
249 xmt2b: cpi cr ; a cr => resend last line
250 jnz xmt2 ; nope, then ignore it
252 sta rexbfl ; else we want to resend the line.
255 xmt4: jmp xmt6 ; skit xoff test for now...*****************
257 cpi xoff ; xoff from host?
259 xmt5: call rd1chl ; else see if XOFF comming
261 jnz xmt6 ; assume an xoff
262 call ckchr ; anything at console?
267 cpi cntlc ; control-c == abort & play terminal
269 ana a ; anything else?
272 xmt6: mov e,a ; save it for a while
273 lda repcnt ; see if this character matches with one in buffer
274 lxi h,stbuff ; point to string buffer
275 add l ; make hl = hl + a
279 mov h,a ; not using xra, as that clears the Carry flag
280 mov a,e ; get the character back again
281 cmp m ; is it = to what we expect?
282 jnz xmt3 ; no, clear counter and try again
283 lda repcnt ; yes, then update the pointer, and ...
284 inr a ; ... see if we have received all ...
285 sta repcnt ; ... we should have received
286 mov e,a ; save length into E again
287 lda strcnt ; get the length to compare
288 sub e ; if (e) > string length, we have it
289 jz xmt10 ; so send next line (clear counters etc)
290 jmp xmt2 ; else wait for a little longer
294 ; Routine below sends a character to the line. It sends up to a CR, and then
295 ; it waits for a reply. This routine is called from xmt1, so if at
296 ; end of file, return. Then XMT1 will drop through
298 xmt1ch: ; send a character from the xmtbuf to the line
299 call selmdm ; just in case it uses it
300 lda eoflag ; have we hit end of file
302 jnz xmt1c1 ; no, so dont...
303 mvi a,cr ; load up a carriage return
304 xmt1c1: call get1xc ; get the character to send
305 cpi lf ; dont send line feeds
307 cpi cntlz ; if control z, then we are at end of the file
308 jz xmtex ; so close the file and drop into telcon
309 cpi 20h ; control character?
311 cpi cr ; cr, and tabs ok to send
315 jmp xmt1c1 ; else try for another character
317 xmt11: call setpar ; else set parity etc
318 push psw ; we want to keep this for a while
319 mov e,a ; we need character in e
321 pop psw ; restore the character we sent
322 mov e,a ; now, if a TAC is set on..
325 mov a,e ; (return must have sent character in a)
326 jz xmt1c2 ; test for xon/off
327 lda tacchr ;... get the tac character
328 cmp e ; do we send it again?
329 jnz xmt1c2 ; test for xon/off
330 push psw ; save character for return. Already set E...
336 get1xc: ; get a character from the sector or re-transmit buffer read
337 ; into a. Read a new sector if we run out.
339 ; First, see if we do a retransmit
341 ana a ; if zero, a genuine line
343 ; have to retransmit a line
345 lda rexcnt ; add counter to buffer base
349 inr a ; update pointer
351 mov a,m ; get next character to send
354 get1x1: call in1chr ; get a character from the file.
355 mov c,a ; save it to the retransmit buffer
360 dad d ; point to next position
362 sta rexcnt ; update the character pointer
363 mov a,c ; restore character to a
364 mov m,c ; get character to c
369 ; read a character from the line.
371 call selmdm ; select the modem
372 call inpmdm ; get input from the modem
373 ani 7fh ; strip parity
374 ; may UPPERCASE-ify if case sensitivity off
375 ret ; return to caller
377 ; End of transmit routine. Close input file name, and say we are dropping
378 ; throught to telnet. Note that if eof not found, it is assumed that
379 ; this is the ABORT exit.
382 lxi d,fcb ; close the transmitted file
385 call selcon ; make sure we are talking to the console
387 lda eoflag ; end of file or abort exit?
388 lxi d,inms22 ; assume eof...
391 lxi d,inms29 ; we were wrong, its an abort.
392 xmtex1: jmp telnt1 ; and drop through to connect mode
393 ; telnet does the printing
398 ; telnet - the CONNECT command.
400 ; telnt1 - entry to connect mode from TRANSMIT command
404 lxi d,infms7 ;Output start of message
405 ; enter here from TRANSMIT command.
407 call escpr ;Print the escape char.
408 lxi d,infms8 ;Output some more of the message
410 call escpr ;Print the escape char again.
411 lxi d,inms8a ;Print the remainder of the message
413 call syscon ;do system-dependent stuff
414 lda logflg ;[pcc005] Want a log?
416 cnz logopn ;[pcc005] Open if so
418 chrlup: call prtchr ;See if char at port (send to console).
419 call conchr ;See if char at console (send to port).
420 jmp kermit ;requested to end session - go to command loop.
421 jmp chrlup ;Go do it again.
424 ; prtchr - copy characters from comm line to console
425 ; returns: nonskip, console selected.
426 ; called by: xnext, rexmit, telnet
429 prtchr: call selmdm ; select modem port
430 call inpmdm ; try to get a character from it
431 push psw ; restore to console
432 call selcon ; select console
433 pop psw ; restore the (possible character) read
434 ora a ; test character
435 jnz prtch0 ; if non-zero, process it.
436 sta prtcnt ;[pcc008] zero out prt fairness count
439 prtch0: ani 7FH ; drop parity bit.
440 sta comchr ;[6] save it in case we need it again
441 lda vtflg ;[9] get the vt52 emulation flag
442 cpi vtdefe ;[9] are we doing external emulation?
443 lda comchr ;[9] collect character again
444 jz extern ;[9] jup, go do it.
446 ana a ; set flags. it may be a null
447 jz prtchr ; ignore null (filler)
448 cpi del ; ignore delete, too
450 cpi xon ;Is it an XON?
452 cpi xoff ;Is it an XOFF?
454 mov e,a ;Set the char aside.
455 lda vtflg ;Get the VT52 emulation flag.
456 cpi vtdefv ;Is the flag set for VT52 (ie 1)
460 ;3 = dumb (traps non printing chars)
461 ;0ffh not possible by local code (Will change)
462 jnz prtch1 ;If not, don't do this stuff.
463 lda escflg ;Get the escape flag.
464 ora a ;Are we working on an escape sequence?
465 jz prtch2 ;If not, continue.
466 call vt52 ;If so, work on it some more
467 jmp prtchr ;try for more characters.
469 prtch2: mov a,e ;normal text.
470 cpi esc ;Is the char an escape?
471 jnz prtch1 ;If not skip on.
473 sta escflg ;Set the escape flag: escape seen.
474 jmp prtchr ;Get another char...
476 prtch1: cpi vtdefe ; are we doing external emulation?
477 jnz prtch3 ; assume we continue on
478 lxi h,extern+1 ; get address of external emulator
479 mov a,h ; se if address = 0 (not implemented)
481 jz prtch3 ; not external, assume we just carry on
482 pchl ; go do external emulation. RET back to caller
484 prtch3: cpi vtdefd ; are we trapping all non printing characters?
485 jnz prtch4 ; nope, something else
486 lda comchr ; Dumb terminal. Lets test the character
492 jz prtch4 ; assume tabs are expanded
493 cpi space ; if less than 20H ignore it
494 rm ; return if a control character
496 prtch4: call sysflt ; ok to print this character (in E)?
498 jz prtchr ; no, skip it.
499 lda logflg ;Get the log flag.
500 cpi 81H ;[pcc003] Are we logging
501 cz logit ;[pcc003] Do so if needed
502 call selcon ; select console
503 lda prnflg ;Get Print parallel flag
505 cnz outlpt ; output to printer if flag set
506 call outcon ; output to console.
507 lxi h,prtcnt ;[pcc008] point to prt fairness count
509 mov a,m ;[pcc008] get it in a
510 cpi prfair+1 ;[pcc008] time to be fair?
511 jm prtchr ;[pcc008] no, go around again.
512 mvi m,0 ;[pcc008] reset count
513 lda comchr ;[6] restore that character read from comm line
514 ret ;[pcc008] and return
516 ; I don't think we want to print xon/xoff - this should be
517 ; flow control only across the link between us and the host.
518 ; (besides, IBM host xon's don't make sense to most micros)
519 ; remember xon/xoff state in xofflg (zero = xon, non-zero = xoff)
520 prtxon: xra a ;Yes, reset XOFF flag
522 jmp prtchr ; look for another character
523 ;
\f;[pcc005] Log file routines
526 ; logopn - open the log file
527 ; Open the log file and append to it if it already exists
528 ; or create one if not.
531 mvi a,ctrlz ;[9] ignore control-z in log files
532 cmp e ;[9] well, was it?
533 rz ;[9] yes, to ignore it.
534 lxi h,lognam ;[pcc012] copy name
535 lxi d,fcb ;[pcc012] to fcb
536 lxi b,12 ;[pcc012] 12 bytes
537 call mover ;[pcc012] copy it
538 call appfil ;[pcc012] open file for appending
539 jmp logerr ;[pcc012] error
540 lxi h,logflg ;[pcc005] point to log flag
541 mvi a,80H ;[pcc005] file open flag
542 ora m ;[pcc005] or in contents of logflg
543 mov m,a ;[pcc005] and store back
544 lxi d,inms28 ;[pcc005] assume logging is on
545 cpi 81H ;[pcc005] check
546 jz prtstr ;[pcc005] print msg if true
547 lxi d,inms27 ;[pcc005] no, must be suspended
548 jmp prtstr ;[pcc005] print and return
551 ; logit - output character in E to log file.
552 ; we assume the host recognizes xon/xoff. (we probably shouldn't)
553 ; modem port is selected.
557 logit: lxi h,chrcnt ;[pcc012] point to buffer count
558 dcr m ;[pcc012] and decrement
559 jp logit1 ;[pcc012] continue if ok
560 push d ;[pcc012] save de
561 call outadv ;[pcc012] advance buffer if in memory
562 call logwrt ;[pcc012] sigh, time to write to disk
563 pop d ;[pcc012] restore de
564 lda logflg ;[pcc012] get logging flag
565 ora a ;[pcc012] Did we quit because of an error
566 rz ;[pcc012] return now if so
567 logit1: lhld bufpnt ;[pcc012] get buffer pointer
568 mov m,e ;Store the char.
571 ret ;[pcc012] and return
574 ; logwrt - write to log file with XON/XOFF since it may take a while.
576 logwrt: call sndxoff ;[7] send and xoff to host
577 call outbuf ;[pcc012] output the buffer and advance
578 call logerr ;[pcc005] quit if error
579 call sndxon ;[send an xon to host
583 ; logcls - Close the log file and reset the flag
585 logcls: lxi d,infms6 ;[pcc005] Tell user we are closing file.
586 call prtstr ;[pcc005]
587 call clofil ;[pcc012] and do it
588 jmp logerr ;[pcc005] jump if error
589 lxi h,logflg ;[pcc005] point to flag
590 mov a,m ;[pcc005] get it
591 ani 7FH ;[pcc005] clear the open bit
592 mov m,a ;[pcc005] and store back
596 ; logerr - here on a variety of logging errors
597 ; just close the file and disable logging
598 ; called from logopn,logptr,logcls
600 logerr: lxi d,erms22 ;[pcc005] Error message
601 call prtstr ;[pcc005] print it
602 mvi c,closf ;[pcc005] Close the file.
605 xra a ;[pcc005] clear logflg
606 sta logflg ;[pcc005] so don't try again
612 ; A/ contents of escflg (guaranteed non-zero)
613 ; E/ current character
616 vt52: cpi 1 ; first character after escape?
617 jnz vt52y ; no, must be doing cursor positioning.
619 ; E contains the character that followed the escape.
620 ; valid characters are:
625 ; F - enter graphics mode (hard to do on a non-vt52)
626 ; G - exit graphics mode
628 ; I - reverse linefeed
629 ; J - erase to end of screen
630 ; K - erase to end of line
631 ; Y - cursor positioning leadin
632 ; Z - identify terminal as VT52
633 ; [ - enter hold-screen mode (not supported)
634 ; \ - exit hold-screen mode (not supported)
635 ; > - enter alternate-keypad mode? (not supported)
636 ; = - exit alternate-keypad mode? (not supported)
638 ; Invalid sequences are handled as the VT52 does - the escape and
639 ; the following character are swallowed, never to be seen again.
640 ; For <esc>E, the translation table may contain just '$' (no action),
641 ; or may be used as clear-and-home, as in the Heath/Zenith H19.
643 mov a,e ; get the second character of the sequence.
644 cpi 'Y' ; if cursor lead-in handle it.
645 jnz vt52a ; if not, go on.
646 mvi a,2 ; state = 2: row follows.
647 sta escflg ; update the flag.
648 ret ; back for another character
650 vt52a: cpi 'Z' ; VT52 ID query?
651 jz vt52id ; yes. claim to be one.
652 cpi 'A' ;Less than an 'A'?
653 jm vtig ;Yes - ignore.
654 cpi 'K'+1 ;Greater than 'K'?
655 jp vtig ;Yes - ignore.
656 sui 'A' ;Else make into index.
657 rlc ;Multiply by four.
658 rlc ;(Shift left twice.)
659 lhld pttab ;Load base addr of table.
660 mov e,a ;Move a into de pair.
661 mvi d,00H ;Zero out high byte.
662 dad d ;Double add index+offset.
663 xchg ;Exchange de with hl.
664 call selcon ; select console
665 call prtstr ;and syscall.
666 vtig: ;Ignore escape sequence.
667 xra a ;Reset the ol' escape flag.
671 ; here for <esc>Z. Tell the host we're a VT52. (Sure we are...)
672 vt52id: mvi a,esc ; response is escape...
673 call setpar ; (need correct parity)
675 call outmdm ; (console already selected)
676 mvi a,'/' ; ... slash ...
677 call setpar ; (with parity)
684 jmp vtig ; clear escape-sequence flag and return.
686 ; here when escflg isn't 0 or 1 - processing cursor positioning sequence.
687 vt52y: cpi 2 ; looking for row? (y-coordinate)
688 jnz vt52x ; no, must be column.
689 mov a,e ; yes. get coordinate
690 sui (' '-1) ; convert from ascii (1 = top line)
691 sta vtyval ; store for later
692 mvi a,3 ; advance to next state (x coord)
693 sta escflg ; store it
694 ret ; try for another character
696 ; here when escflag isn't 0, 1, or 2 - it must be 3. (right?)
697 ; E holds the last character of the cursor positioning sequence.
698 vt52x: xra a ; end of escape sequence, reset state.
700 mov a,e ; get column (' ' is left margin)
701 sui (' '-1) ; make left margin be one
702 mov c,a ; stash column in c
703 lda vtyval ; get row number
705 call selcon ; select console
706 call csrpos ; call system-dependent cursor positioner
710 ; conchr - copy character from console to comm line, processing
711 ; (kermit's) escape sequences.
712 ; Enter and exit with console selected.
713 ; nonskip return: transparent mode terminated.
714 ; skip return: still in transparent mode.
715 ; called by: rexmit, telnet
717 conchr: call inpcon ;Try to get a character from the console
718 ani 07FH ;Keep only 7 bits
719 jz rskp ;Null means nothing there.
720 mov e,a ;Move the char for comparison.
722 lda escchr ;Get the escape char.
723 cmp e ;Is it an escape char?
724 jz intchr ;If so go process it.
725 call selmdm ; select the modem
726 mov a,e ;Get the char.
727 call setpar ;Set parity (if any).
729 push d ; need to save e in case we are half dplx [5]
730 call outmdm ;Output the char to the port.
731 pop d ; Just in case we are half dplx [5]
732 call selcon ; reselect console
733 lda ecoflg ;Get the echo flag.
734 ora a ;Is it turned on?
735 jz rskp ;If not we're done here.
736 mov a,e ;Get the char.
737 ani 7FH ;Turn off the parity bit.
739 call outcon ; echo the character.
740 jmp rskp ; use skip return
742 ; transparent escape character has been typed. dispatch on second
743 ; character. (console is still selected)
746 intchr: call inpcon ; get another character from the console
747 ora a ; zero means no character available yet.
748 jz intchr ; If so, loop until we get a char.
749 mov b,a ;Save the actual char.
750 cpi ctrlc ;is it Control-C?
752 ani 137O ;Convert to upper case.
753 cpi 'C' ;Is it close?
754 jnz intch0 ;If not proceed.
755 contc: lxi d,infms9 ;Say we are back.
757 call syscls ; call system-dependent close routine
758 lda logflg ;Get the log flag.
759 ora a ;[pcc005] Check if open
760 cm logcls ;[pcc005] Close if needed
763 ;Here if not a 'C' or '^C'
765 intch0: cpi 'S' ;Is it status?
766 jnz inch01 ;If not, proceed.
767 call stat01 ;Print out the status stuff.
768 call prcrlf ;[pcc011] add a crlf
769 jmp rskp ;return from conchr
772 inch03: mov a,b ;Get the char.
773 cpi '?' ;Is it a help request?
774 jnz intch1 ;If not, go to the next check.
775 inch3a: lda logflg ;[pcc003] Logging flag
776 ora a ;[pcc003] see if active
777 jp inch04 ;[pcc005] jump if no file open
778 lxi d,loghlp ;[pcc003] yes, tell about R AND Q
779 call prtstr ;[pcc003]
780 inch04: lxi d,inthlp ;If so, get the address of the help message.
782 call sysinh ; print system-dependent help message
783 lxi d,inhlp1 ; Tell about doubling the escape character
785 call escpr ;Print escape character
786 lxi d,inhlp2 ;Print the rest
788 jmp intchr ;Get another char.
790 intch1: mov a,b ;Get the character.
791 cpi '0' ;Is it '0', to send a null?
793 xra a ;Yes, send an ASCII zero.
794 call setpar ; with the correct parity
796 call selmdm ; (to the modem...)
798 call selcon ; return with console selected
801 intch3: lda escchr ;Get the escape char.
802 cmp b ;Is it the escape char?
803 jnz intch4 ;[pcc002] jump if not
804 mov a,b ;Get the char.
808 call outmdm ;Output it.
809 call selcon ;We promised console would be selected...
810 jmp rskp ;Return, we are done here.
811 intch4: mov a,b ;[pcc002] get it again
812 ani 137o ;[pcc002] in upper case
813 cpi 'P' ;[pcc002] toggle printer?
814 jnz intch5 ;[pcc003] nope
815 lda prnflg ;[pcc002] get printer flag
816 xri 01h ;[pcc002] complement it
817 sta prnflg ;[pcc002] and put back
819 intch5: lda logflg ;[pcc003] get log flag
820 ora a ;[pcc003] See if open
821 jp intch7 ;[pcc003] no, skip R and Q
822 mov a,b ;[pcc003] get back chr
823 ani 137o ;[pcc003] make upper case
824 cpi 'R' ;[pcc003] Is it R
825 jnz intch6 ;[pcc003] Jump if not
826 mvi a,81H ;[pcc003] set flag for logging
827 sta logflg ;[pcc003] put it back
828 lxi d,inms28 ;[pcc003] message
829 call prtstr ;[pcc003]
830 jmp rskp ;[pcc003] done
831 intch6: cpi 'Q' ;[pcc003] Quit logging?
832 jnz intch7 ;[pcc003] no
833 mvi a,82H ;[pcc003] flag for open, but suspended
834 sta logflg ;[pcc003] store away
835 lxi d,inms27 ;[pcc003] keep them informed
836 call prtstr ;[pcc003]
840 intchz: mov a,b ; not recognized. get saved copy back.
841 push psw ;[8] save as we will want to test for 'D'
842 call sysint ; interpret system-dependent sequences
843 jmp intchy ; done. [10] Now see if D. If so, do a C.
844 pop psw ;[10] tidy stack
845 mvi e,'G'-100O ;Otherwise send a beep.
846 call outcon ; to the console.
849 intchy: pop psw ;[10] adjust stack
850 ani 5fh ;[10] strip parity, make it upper case
851 cpi 'D' ;[10] was it a D?
852 jz contc ;[10] yup, so to the equivalent of an escape-C
855 ; Little code to allow some expansion of code without changing
856 ; every futher address, only up to the end of this file.
857 ; TO BE REMOVED FOR RELEASE!
859 ; org ($+100h) AND 0FF00H
projects / kermit-80.git / blob