IF NOT LASM
.printx * CPXNOR.ASM *
ENDIF ;NOT lasm
; KERMIT - (Celtic for "FREE")
;
; This is the CP/M-80 implementation of the Columbia University
; KERMIT file transfer protocol.
;
; Version 4.0
;
; Copyright June 1981,1982,1983,1984,1985
; Columbia University
;
; Originally written by Bill Catchings of the Columbia University Center for
; Computing Activities, 612 W. 115th St., New York, NY 10025.
;
; Contributions by Frank da Cruz, Daphne Tzoar, Bernie Eiben,
; Bruce Tanner, Nick Bush, Greg Small, Kimmo Laaksonen, Jeff Damens, and many
; others.
;
; This file contains the system-dependent code and data for various
; NorthStar KERMITs. This has the Family name of CPXNOR.ASM.
;
; revision history (last edit first)
;
;edit 4, 16-Jan-1991 by MF. Fixed a bug in OUTCON wherein the final RET
; was missing (bug reported by David P. Arnot of Scottish
; Agricultural College).
;edit 3, 12-Oct-1990 by MF. Added a semicolon before the comment
; beginning "Family is the string so we don't get errors
; edit 2, 23 July, 1987 by OBSchou to massage file to suit CPXCOM.ASM.
;
; edit 1: 1 June, 1986 by OBSchou, Loughborogh University, UK.
; Hived off northstar and Comart system dependent modules from
; CPXSYS.ASM. This assembles ok, but I cannot test it. Any comments?
IF norths
.printx * Assembling for NorthStar Horizon with HSIO-4 board *
ENDIF;norths
IF horizon ;[25]
.printx * Assembling KERMIT-80 for the NorthStar Horizon *
ENDIF;horizon
IF advant ;[22]
.printx * Assembling kermit-80 for North Star Advantage *
ENDIF ;[22]
IF basicns ;[29]
.printx * Assembling KERMIT-80 for the Northstar Horizon using printer port *
ENDIF ;basicns [29]
IF comart
.printx * Assembling KERMIT-80 for Comart Communicator *
ENDIF ; comart
; the basics...
IF norths ;The basic Northstar Horizon BIOS does not access ports 2-5
port0d equ 02h ;Port 0 data (console)
port0s equ 03h ;Port 0 status
port1d equ 04h ;Port 1 data (printer)
port1s equ 05h ;Port 1 status
port2b equ 10h ;Port 2 baud
port2i equ 11h ;Port 2 interrupt mask
port2d equ 12h ;Port 2 data
port2s equ 13h ;Port 2 status
port3b equ 14h ;Port 3 baud
port3i equ 15h ;Port 3 interrupt mask
port3d equ 16h ;Port 3 data
port3s equ 17h ;Port 3 status
port4b equ 18h ;Port 4 baud
port4i equ 19h ;Port 4 interrupt mask
port4d equ 1Ah ;Port 4 data
port4s equ 1Bh ;Port 4 status
port5b equ 1Ch ;Port 5 baud
port5i equ 1Dh ;Port 5 interrupt mask
port5d equ 1Eh ;Port 5 data
port5s equ 1Fh ;Port 5 status
NS19K2 EQU 00H ;19.2 kilobaud
NS9600 EQU 01H ;9600 baud
NS4800 EQU 02H ;4800 baud
NS2400 EQU 03H ;2400 baud
NS1200 EQU 04H ;1200 baud
NS0600 EQU 05H ; 600 baud
NS0300 EQU 06H ; 300 baud
NS0110 EQU 07H ; 110 baud
;; Set to use port 5 at 1200 baud
mnport equ port5d ;Data port
mnprts equ port5s ;Status port
baudrt equ port5b ;Baud rate port
baudini equ ns1200 ;Initial baud rate
output EQU 1 ;Bit of UART status for transmitter ready
input EQU 2 ;Bit of UART status for receiver ready
z80 EQU TRUE ;This one's a Z80.
ENDIF;norths
IF basicns ;[29]
mnport equ 04h ;printer port data
mnprts equ 05h ; printer port status
output equ 1 ;transmitter ready
input equ 2 ;receiver ready
z80 equ FALSE ; not important
ENDIF ;basicns [29]
IF horizon ;[25]
mnport EQU 004H ;Modem data port
mnprts EQU 005H ;Modem status port
output EQU 01H ;Transmitter empty
input EQU 02H ;Input data available
TxEmpty EQU 04h ;Transmitter empty
;Note: Needs terminal definition (vt100, vt52, tvi925, adm3a or crt above)
z80 EQU TRUE ;This one's a Z80.
ENDIF;horizon
IF advant ;[22]
vtval EQU 1 ; we do emulation of VT52s
slot EQU 1 ;SIO card slot
mnport EQU (6-slot)*16 ;Modem data port
mnprts EQU mnport+1 ;Modem status port
baudrt EQU mnport+8 ;Baud rate register
output EQU 01H ;Transmitter buffer empty
input EQU 02H ;Input data available
TxEmpty EQU 04h ;Transmitter empty flag
z80 EQU TRUE
ENDIF;[22] advant
IF comart ;[25]
mnport EQU 002H ;Modem data port
mnprts EQU 003H ;Modem status port
output EQU 01H ;Transmitter empty
input EQU 02H ;Input data available
TxEmpty EQU 04h ;Transmitter empty
;Note: Needs terminal definition (vt100, vt52, tvi925, adm3a or crt above)
z80 EQU TRUE ;This one's a Z80.
ENDIF;comart
IF advant
defesc EQU '\'-100O
ENDIF;advant
;
; Family is the string used in VERSION to say which of several
; smaller overlay files are used. These are (will be) derived from
; the juge CP4SYS.ASM file, in which case we will never get here.
; Just a Dollar, but put a sting in for a family of machines.
;
family: db 'CPXNOR.ASM (4) 16-Jan-1991$' ; Used for family versions....
sysxin: ; continuation of system dependent initialisation code
IF advant ;[22]
mvi a,40h
out mnprts ; Reset USART
lxi h,7070h ; Default to 1200 baud
shld speed ; store current speed
xchg
call sysspd ; set default baud rate
mvi a,4Eh ; Set UART mode to async 16x clock, 8 data
out mnprts ; bits, no parity, and 1 stop bit
mvi a,37h ; Set command to Tx enable, DTR on, Rx enable,
out mnprts ; break off, error reset, and RTS on
ENDIF;[22] advant
IF norths
mvi a,baudini ;Get initial speed
out baudrt
sta speed ;save for status display
sta speed+1
ENDIF;norths
IF comart OR horizon ;[25]
; The PD8251/PD8251A is reset by three successive 00 Hex or two
; successive 80 Hex command instructions followed by a software
; reset command instruction (40 Hex).
mvi a,80h ; Send UART reset
out mnprts
mvi a,80h
out mnprts
mvi a,40h
out mnprts
mvi a,4Eh ; Set UART mode to async 16x clock, 8 data
out mnprts ; bits, no parity, and 1 stop bit
mvi a,37h ; Set command to Tx enable, DTR on, Rx enable,
out mnprts ; break off, error reset, and RTS on
ENDIF;comart OR horizon
ret ; return from system-dependent routine
;
;
; system-dependent termination processing
; If we've changed anything, this is our last chance to put it back.
sysexit:
ret
;
; system-dependent processing for start of CONNECT command
;
syscon:
ret
conmsg: ; Messages printed when entering transparent (CONNECT) mode:
;
;
; syscls - system-dependent close routine
; called when exiting transparent session.
;
syscls:
ret
;
;
; sysinh - help for system-dependent special functions.
; called in response to <escape>?, after listing all the
; system-independent escape sequences.
;
sysinh:
IF advant OR comart OR horizon ; some more
lxi d,inhlps ; we got options...
call prtstr ; print them.
ENDIF;[22] advant OR comart OR horizon [29]
ret
;additional, system-dependent help for transparent mode
; (two-character escape sequences)
inhlps:
; [16] [18] have added super brain and Torch to the list of Breaking machines.
IF advant OR comart OR horizon ; ... some more
db cr,lf,'B Transmit a BREAK'
ENDIF;[22] advant OR comart OR horizon
db '$' ;[hh] table terminator
;
; sysint - system dependent special functions
; called when transparent escape character has been typed;
; the second character of the sequence is in A (and in B).
; returns:
; non-skip: sequence has been processed
; skip: sequence was not recognized
sysint: ani 137O ; convert lower case to upper, for testing...
IF advant OR comart OR horizon ; [22] [25] ... some more
cpi 'B' ; send break?
jz sendbr ; yes, go do it. return nonskip when through.
ENDIF;advant OR comart OR horizon [32]
jmp rskp ; take skip return - command not recognized.
;
IF advant OR comart OR horizon ;[lmj]
sendbr:
;
; Ensure that the transmitter has finished sending buffered chars
sndbr1: in mnprts ; get UART status
ani TxEmpty ; everything sent?
jz sndbr1 ; no, wait a bit more
;
; Begin sending a break by setting bit in UART command register
mvi a,3Fh ; Set TxEna, DTR, RxEna, SBreak, ErrRst, RTS
out mnprts
;
; Wait for 250 milliseconds (using hundredths second delay routine)
mvi a,25
call delay
;
; Resume normal operation by clearing the SendBreak command bit
mvi a,37h ;Set TxEna, DTR, RxEna, ErrRst, RTS
out mnprts
;
ret ;done
ENDIF;advant OR comart OR horizon
;
;
; sysflt - system-dependent filter
; called with character in E.
; if this character should not be printed, return with A = zero.
; preserves bc, de, hl.
; note: <xon>,<xoff>,<del>, and <nul> are always discarded.
sysflt:
mov a,e ; get character for testing
IF advant ;[22]
cpi 'D'-100O ;Control-D's reset video
rnz ; if not control-D, it's ok.
xra a ; don't allow control-D out.
ENDIF;[22] advant
ret
; mdmflt - modem filter [30]
; called with character to be sent to printer in E
; with parity set as appropriate.
; return with accumulator = 0 do do nothing,
; <> 0 to send char in E.
mdmflt:
mov a,e ;[30] get character to test
ret
; prtflt - printer filter [30]
; called with character to be sent to printer in E
; returns with a = 0 to do nothing
; a <> 0 to print it.
;
; this routine for those printer that automatically insert
; a lf on cr, or cr for lf. Should this be shifted to
; the system indep. stuff, in say 4.06?
prtflt:
mov a,e ; [30] get character to test
ret
;
;
; system-dependent processing for BYE command.
; for apmmdm, heath, and lobo, hang up the phone.
sysbye:
ret
;
; This is the system-dependent command to change the baud rate.
; DE contains the two-byte value from the baud rate table; this
; value is also stored in 'speed'.
sysspd:
IF norths OR advant ;
mov a,e ; get the parsed value
out baudrt ; Tell the baud rate generator.
ret
ENDIF;norths OR advant
IF advant ;[22]
spdtbl: db 6 ; 6 entries
db 04,'1200$', 70h,70h
db 04,'2400$', 78h,78h
db 03,'300$', 40h,40h
db 04,'4800$', 7Ch,7Ch
db 03,'600$', 60h,60h
db 04,'9600$', 7Eh,7Eh
sphtbl: db cr,lf,' 300 600 1200 2400 4800 9600$'
ENDIF;[22] advant
IF norths
spdtbl: db 8 ; 8 entries
db 3,'110$', 07H,07H
db 4,'1200$', 04H,04H
db 5,'19200$', 00H,00H
db 4,'2400$', 03H,03H
db 3,'300$', 06H,06H
db 4,'4800$', 02H,02H
db 3,'600$', 05H,05H
db 4,'9600$', 01H,01H
sphtbl: db cr,lf
db ' 110 300 600 12000 2400 4800 9600 19200$'
ENDIF;norths
; The following conditionals were once a huge if not statement. There
; wasn't enough room to add the lobo to the list, so it had to be broken
; into 2, which you can't do with an if not. I redid it as two ifs and
; applied them to those that wouldn't set baud. [Hal Hostetler]
IF NOT (advant OR norths)
spdtbl EQU 0 ;[hh] SET BAUD not supported.
sphtbl EQU 0 ;[hh] ran out of room above...
ENDIF ;NOT (advant OR norths)
;
;
; This is the system-dependent SET PORT command.
; HL contains the argument from the command table.
sysprt:
ret
prttbl equ 0 ; SET PORT not supported
prhtbl equ 0
;
;
; selmdm - select modem port
; selcon - select console port
; selmdm is called before using inpmdm or outmdm;
; selcon is called before using inpcon or outcon.
; For iobyt systems, diddle the I/O byte to select console or comm port;
; For Decision I, switches Multi I/O board to console or modem serial
; port. [Toad Hall]
; For the rest, does nothing.
; preserves bc, de, hl.
selmdm:
selcon:
ret
;
; Get character from console, or return zero.
; result is returned in A. destroys bc, de, hl.
;
inpcon:
mvi c,dconio ;Direct console I/O BDOS call.
mvi e,0FFH ;Input.
call BDOS
ret
;
;
; Output character in E to the console.
; destroys bc, de, hl
;
outcon:
mvi c,dconio ;Console output bdos call.
call bdos ;Output the char to the console.
ret ;[MF]per David P. Arnot
;
;
; outmdm - output a char from E to the modem.
; the parity bit has been set as necessary.
; returns nonskip; bc, de, hl preserved.
outmdm:
in mnprts ;Get the output done flag.
ani output ;Is it set?
jz outmdm ;If not, loop until it is.
mov a,e
out mnport ;Output it.
ret
;
;
; get character from modem; return zero if none available.
; for IOBYT systems, the modem port has already been selected.
; destroys bc, de, hl.
inpmdm:
;Note: modem port should already be selected for mdI. [Toad Hall]
in mnprts ;Get the port status into A.
ani input ;See if the input ready bit is on.
rz ;If not then return.
in mnport ;If so, get the char.
ret ; return with character in A
;
; flsmdm - flush comm line.
; Modem is selected.
; Currently, just gets characters until none are available.
flsmdm: call inpmdm ; Try to get a character
ora a ; Got one?
jnz flsmdm ; If so, try for another
ret ; Receiver is drained. Return.
;
;
; lptstat - get the printer status. Return a=0ffh if ok, or 0 if not.
lptstat:
xra a ; assume it is ok.. this may not be necessary
ret
;
; outlpt - output character in E to printer
; console is selected.
; preserves de.
outlpt:
push d ; save DE in either case
call prtflt ; go through printer filter [30]
ana a ; if A = 0 do nothing,
jz outlp1 ; [30] if a=0 do nothing
mvi c,lstout
call bdos ;Char to printer
outlp1: pop d ; restore saved register pair
ret
IF advant ; all others require terminals
;
;
; Screen manipulation routines
; csrpos - move to row B, column C
;
; csrpos for terminals that use a leadin sequence followed
; by (row + 31.) and (column + 31.)
;
csrpos: push b ; save coordinates
lxi d,curldn ; get cursor leadin sequence
call prtstr ; print it
pop h ; restore coordinates
mov a,h ; get row
adi (' '-1) ; space is row one
mov e,a
push h
call outcon ; output row
pop h
mov a,l ; get column
adi (' '-1) ; space is column one
mov e,a
jmp outcon ; output it and return
ENDIF ;advant
;
; delchr - make delete look like a backspace. Unless delete is a printing
; character, we just need to print a backspace. (we'll output clrspc
; afterwards)
; For Kaypro and Vector General, delete puts a blotch on the screen.
; For Apple and Osborne 1, delete moves but doesn't print.
delchr:
IF advant ;[22]
ret
ENDIF;advant
IF NOT (advant );[22]
mvi e,bs ;get a backspace
jmp outcon
ENDIF;NOT (advant) [22]
; erase the character at the current cursor position
clrspc: mvi e,' '
call outcon
mvi e,bs ;get a backspace
jmp outcon
; erase the current line
clrlin: lxi d,eralin
jmp prtstr
; erase the whole screen, and go home. preserves b (but not c)
clrtop: lxi d,erascr
jmp prtstr
IF norths
sysver: db 'Northstar Horizon$'
ENDIF;norths
IF basicns ;[29]
sysver: db 'Northstar using printer port$'
ENDIF ;basicns [29]
IF comart ;[25]
sysver: db 'Comart Communicator$'
ENDIF;comart
IF horizon ;[25]
sysver: db 'Northstar Horizon$'
ENDIF;horizon
IF advant ;[22]
sysver: db 'North Star Advantage$'
outlin: db 04H,cr,lf,tab,'$'
erascr: db 04H,'$' ;Clear screen and go home.
eralin: db cr,0EH,'$' ;Clear line.
curldn: db esc,'=$' ;cursor leadin
ttab: ;Table start location.
ta: db 0BH,'$',0,0 ;Cursor up.
tb: db 0AH,'$',0,0 ;Cursor down.
tc: db 0CH,'$',0,0 ;Cursor right.
td: db bs,'$',0,0 ;Cursor left
te: db 04H,'$',0,0 ;Clear display
tf: db 12H,'$',0,0 ;Enter Graphics Mode
tg: db 13H,'$',0,0 ;Exit Graphics mode
th: db 1EH,'$',0,0 ;Cursor home.
ti: db 0BH,'$',0,0 ;Reverse linefeed.
tj: db 0FH,'$',0,0 ;Clear to end of screen.
tk: db 0EH,'$',0,0 ;Clear to end of line.
ENDIF;[22] advant
IF lasm AND (NOT advant)
LINK CPXVDU.ASM
ENDIF ;lasm - m80 will INCLUDE CPXVDU.ASM
IF lasm ; here if not a terminal selected and in LASM
ovlend equ $
END
ENDIF ;lasm