; QTERM Version 4.x Patch Area
; Code as adapted from QTERM.COM from QTERM33A.LBR posted by David Goodenough
; to BOSKUG RCP/M circa 12/27/88, and QTERM Vers. 4.x patch listing 8-Feb-89.
; D. Presberg dissasembled this with Z8E, 21-Jan-89. Code labels taken from
; D. Goodenough "qterm.z" example circa 8-Feb-89.
; This edit is for Kaypro-II and -4 ('83 version without graphics). Kaypro
; (and Xerox BB-I) use an SIO chip, port A, with a separate baud rate
; generator: status port at 04, data port at 06, baud rate port at 0.
; 15-Feb-89, D. Presberg, BCS/BOSKUG.
; D. Goodenough added break, dtr and mode stuff 2-23-89
; Modified for Xerox 820-II, 16/8. Clears screen at start, at end, and re-
; sets alternate video at end; all terminal capabilities supported.
; By Tim Carney 17-Apr-89.
sioc equ 6 ; sio control port
siod equ 4 ; sio data port
yes equ 0ffh ; true value
no equ 0 ; false value
org 110h
modist: in a,(sioc) ;get modem input status (Kaypro status port)
and 01h ; (result to Z: no inp. character available
ret ; is 0 at bit-0 (low order) ===> Z==1 )
org 120h
modin: in a,(siod) ;read modem input character (Kaypro data port)
ret
org 130h
modost: in a,(sioc) ;get modem output status (Kaypro status port)
and 04h ; (result to Z: bit-2 ... see above)
ret
org 140h
modout: out (siod),a ;write modem output char. (Kaypro data port)
ret
org 150h
sbreak: ld a,(setf) ;start "break"
or a ;do we have valid data in r3,r4,r5
ret z ;no - don't do it
jp exmlp ; start break takes a bit extra, see below
org 160h
ebreak: ld a,(setf) ;end "break"
or a
ret z ; don't do it unless r3, r4, r5 are valid
ld hl,r5
res 4,(hl)
jp sioout
org 170h
dtroff: ld a,(setf) ;drop DTR
or a
ret z ; don't do it unless r3, r4, r5 are valid
ld hl,r5
res 7,(hl)
jp sioout
org 180h
dtron: ld a,(setf) ;raise DTR
or a
ret z ; don't do it unless r3, r4, r5 are valid
ld hl,r5
set 7,(hl)
jp sioout
org 190h
setbd: out (00h),a ;set baud rate (value in A) (Kaypro baud
ret ;rate port)
; The Baud Rate Table has entries from 38400 baud down to 300 baud.
; There are 2 bytes per entry. The second byte determines if the entry is
; enabled or disabled (ffh=enabled; 00=disabled). The first byte is passed
; as the A value to the setbd subroutine.
; Kaypro-II/4 has advertised values for rates up to 19200. Not all available
; low speeds are used by QTERM, however.
org 1b0h
setmod: ld (setf),a ; flag we've done a set
ld c,a ; save byte in c
ld hl,r3 ; look at byte for wr3
res 7,(hl) ; turn off ms bit (Rx # bits / char)
add a,a ; move bit from 6 to 7 in a
and 80h ; mask off the rest
or (hl) ; or in the remainder
jp finmod ; have to finish this elsewhere
; Communication Mode Table. Single byte values for 12 combinations of
; number-of-bits(7/8), parity(none/even/odd), number-of-stop-bits(1/2).
org 1cch
smlbuf: defb no ; set this 'yes' if you run out of ram - this feature
; is not yet implemented, but in time (i.e. V4.1)
; it will be. QTERM is a real memory hog - it needs
; well in excess of 48K TPA. If you have a full blown
; Z-system with oodles of RSX additions, you may
; run out of space. By setting this true, you can get
; QTERM to shrink some buffers and fit itself into
; about 42K, the price paid is somewhat more
; frequent disk access when reading and writing files.
org 1cdh
xfersz: defb 8 ;number of K to read/write during file xfers
;Must be 1 / 2 / 4 / 8. Best left as 8 unless
; disk is verrrrry slow. Drop to smaller value
; if too many timeouts occur during "protocol"
; file transfers (xmodem or kermit).
org 1ceh
speed: defb 4 ;cpu speed (Mhz; use 3 for 2.5, 4 for Xerox).
; (5Mhz Assumes Advent speedup kit in Kaypro.)
scrout equ 109h ;(a routine to print to CON: the
; character in C)
decout equ 10ch ;(a routine to print to CON: a decimal value
; in HL. Is available for VT100 and the like.)
org 200h
moveto: push hl ;move cursor to position in HL (Row,Col)
ld c,1bh ; lead-in with Esc (the ASCII one; not QTERM's)
call scrout
ld c,'=' ; 2nd lead-in is '='
call scrout
pop hl
push hl
ld a,h ; row value (top row is 0.)
call poff ; add offset and send it to screen
pop hl
ld a,l ; col value (leftmost col is 0.)
poff: add a,' ' ; (adds 20h)
ld c,a
jp scrout ; (scrout returns from 'moveto's call)
; Terminal Capability Bits. The eight bits stand for each of the following
; strings. They count from 01h=bright to 80h=clear-to-end-of-screen.
b_brit equ 00000001b ; 0: bright (1.) -- NOT mandatory
b_dim equ 00000010b ; 1: dim (2.) -- NOT mandatory
b_dlln equ 00000100b ; 2: delete line (4.) -- important
b_inln equ 00001000b ; 3: insert line (8.) -- important
b_dlch equ 00010000b ; 4: delete character (16.)-- unused by QTERM
b_inch equ 00100000b ; 5: insert character (32.)-- NOT mandatory
b_clel equ 01000000b ; 6: clear to end-of-line(64.) -- important
b_cles equ 10000000b ; 7: clear to end-of-screen(128.)-- important
org 22fh
tcbits: defb 0ffh ; capability bits- all functions supported
; by Xerox.
; (Kaypro-II/4, non-graphics version, cannot do in-place insertion or deletion
; of single characters: it can only overwrite characters at the current
; cursor position and move the cursor non-destructively, etc.. It can
; do in-place insertion and deletion of lines, and its clear-to-end-of-
; -screen and -line leaves the cursor as-is. It also has clear-screen-and-
; -home-the-cursor: see clrs, above. It, of course, has no graphical screen
; attributes, such as bright and dim.)
; Entry and Exit hooks. These are provided to perform custom initialisation
; on startup and on exit from QTERM. They are invoked before any use is made
; of the screen or the port hardware.
do_ent: ld c,26 ;Send clear screen and home cursor
call scrout ;to console...
jp start
start: ld a,(b1200) ; entry hook (from 270h)
call setbd ; Kaypro-II/4 setup for 1200 baud
ld a,(n18) ; and 8n1 communications mode.
call setmod
ret
exmlp: ld a,1 ; wait till transmitter is really finished
out (siod),a
in a,(siod)
rra
jr nc,exmlp ; loop till buffer empty
ld hl,r5
set 4,(hl) ; now go set the break bit.
finmod: ld (hl),a ; and save it back
inc hl
inc hl ; point hl at r4
ld a,(hl)
and 0f4h ; mask out bits we don't want
ld b,a ; save in b
ld a,c ; get set byte back
and 0bh ; get bits out of set byte that we want
or b ; or in the other bits
ld (hl),a ; and save it back
inc hl
inc hl ; point hl at r5
ld a,c
and 40h ; get the bit we want from c
res 6,(hl) ; clear the bit in r5
or (hl)
ld (hl),a ; put new composite value back
jp sioout ; go send the values
siodat: defb 3
r3: defb 11000001b ; value for wr3 (0c1h)
defb 4
r4: defb 01000100b ; value for wr4 (044h)
defb 5
r5: defb 11101010b ; value for wr5 (0e5h)
setf: defb 0 ; flag if we've done a set mode command
org 02c5h
do_exit:
ld c,26 ; Xerox specific.Clear screen, home cursor
call scrout
ld c,27 ; Change alternate video mode to inverse.
call scrout ; (52 or 54=blink, 53=graphics, 55=inverse
ld c,55 ; 56=dim).
call scrout
ret
