title KAYPRO CBIOS for CP/M 2.2 ;############################################################### ;## KAYPRO 10 CBIOS for CP/M 2.2 ## ;## Copyright (C) 1982 By Non-Linear Systems, Inc. ## ;## No warranty is made, expressed or implied. ## ;############################################################### ;## Last Update: 10/20/83 [01] ## ;############################################################### ; ;History: ; Add secondary xlate table and build in ability to have ; function keys. ; Steven R. Fabian ; Initialization of modem port on a cold boot. ; Steven R. Fabian ; Add Parallel port driver using a time delay. ; Steven R. Fabian public p1, p2, p3, ccp .Z80 ; Z80 CPU hdisk equ -1 ; -1 for hard disk, 0 for floppy msize equ 60 ; system memory size in k vers equ 22 ; CP/M version number bias equ (msize-20)*1024 ; bias for systems larger than 20k ccp equ 3400H+bias ; start of CCP bdos equ ccp+806H ; start of BDOS (The resident portion of CP/M) bios equ ccp+1600H ; start of Basic I/O Subsystem (BIOS) cpml equ bios-ccp ; length of CP/M system in bytes (less BIOS) nsects equ cpml/128 ; length of CP/M system in sectors (less BIOS) if hdisk trksec equ 68 ; sectors/track else trksec equ 40 endif bitport equ 14H ; status/control bit maped port baudA equ 0 ; baud rate port (modem) baudB equ 8 ; baud rate port (printer) baud30 equ 05H ; 300 baud rate iobyte equ 3 ; logical to physical map rom equ 00000H ; base of rom time equ 8000H ; time out rate fox equ 0 ; set to 0 siokb0 equ 07H ; keyboard channel command/status siosp0 equ 0EH ; serial printer command/status channel siom0 equ 06H ; modem channel command/status reset equ 18H ; channel reset wr1 equ 01H ; interrupt enable and wait/ready modes tid equ 00H ; transmitter interrupt disable rid equ 00H ; recieve interrupt disable wr3 equ 03H ; receiver logic control parameters re equ 01H ; receiver enable autoe equ 20H ; auto enable (use dcd and cts to enable recv ; and xmt rbits8 equ 0C0H ; 8 bits/character wr4 equ 04H ; control bits that affect both xmt and recv sbits1 equ 04H ; 1 stop bit cr16 equ 40H ; x16 wr5 equ 05H ; control bits that affect xmt te equ 08H ; transmit enable tbits8 equ 60H ; 8 bits/character dtr equ 80H ; DTR output pfdat equ 24 ; cent out data port (8 bit latch) pstrob equ 3 ; bit in bit port aseg org bios jp boot ; arrive here from cold start jp wboot ; arrive here for warm start jp const ; console status return in A FF=ready, 00=not jp conin ; console char in jp conout ; console char out jp list ; listing char out jp punch ; punch char out jp reader ; reader char in jp home ; move to track 0 on selected disk drive jp seldsk ; select disk drive jp settrk ; set track # jp setsec ; set sector # jp setdma ; set DMA address jp read ; read selected sector jp write ; write selected sector jp listst ; list status (Ready to print a char) jp sectran ; sector translate ioconfig: defb 10000001B ; initial value for i/o byte (may be patched) wrtsafe: defb 0 ; write safe flage 0=false vtab: defb 11, 10, 8, 12 ; vector pad xlate table ^k ^j ^h ^l defb '0', '1', '2', '3' defb '4', '5', '6', '7' defb '8', '9', '-', ',' defb 0DH, '.' baudrt: defb baud30 ; baud rate (modem) defb baud30 ; baud rate (printer) defb (sndtab-vtab) sioint: ;i/o device initialization table ;first byte is number of bytes to send ;second byte is port to send out to ;third byte is data ;init sio channel for serial printer defb 09H defb siosp0 defb reset ;reset sio channel defb wr4 defb sbits1 or cr16 ;one stop bit 16x clock defb wr3 defb re or rbits8 or autoe ;recv enable, 8bits/char defb wr5 defb te or tbits8 or dtr ;xmt enable, 8bits/char,assert dtr defb wr1 defb tid or rid ;xmt & recv interrupts disabled ;init sio channel for modem defb 09H defb siom0 defb reset ;reset sio channel defb wr4 defb sbits1 or cr16 ;one stop bit 16x clock defb wr3 defb re or rbits8 or autoe ;recv enable, 8bits/char defb wr5 defb te or tbits8 or dtr ;xmt enable, 8bits/char,assert dtr defb wr1 defb tid or rid ;xmt & recv interrupts disabled siotbnd:defb 0 ;end of table sndtab: defb 0,0,0,0 ; up arrow key defb 0,0,0,0 ; down arrow key defb 0,0,0,0 ; left arrow key defb 0,0,0,0 ; right arrow key defb 0,0,0,0 ; 0 key on numeric pad defb 0,0,0,0 ; 1 key on numeric pad defb 0,0,0,0 ; 2 key on numeric pad defb 0,0,0,0 ; 3 key on numeric pad defb 0,0,0,0 ; 4 key on numeric pad defb 0,0,0,0 ; 5 key on numeric pad defb 0,0,0,0 ; 6 key on numeric pad defb 0,0,0,0 ; 7 key on numeric pad defb 0,0,0,0 ; 8 key on numeric pad defb 0,0,0,0 ; 9 key on numeric pad defb 0,0,0,0 ; - key on numeric pad defb 0,0,0,0 ; , key on numeric pad defb 0,0,0,0 ; " " defb 0,0,0,0 ; . key on numeric pad subttl Cold and Warm boot entry points defb page ; Cold boot entry point, set up system pointers and pass control to the CCP boot: call diskint xor a ; clear system disk number ld (4),a ld a,(ioconfig) ; init value for i/o byte ld (iobyte),a ld hl,sioint ; initialize i/o devices iolp: ld b,(hl) ; number of bytes to send inc hl ld c,(hl) ; port to send inc hl ; address of byte being sent otir ld a,(hl) ; get this byte or a ; clean test jr nz,iolp ; if more tables then do nop nop nop nop nop nop ld a,(baudrt) ; set baud rates out (baudA),a ld a,(baudrt+1) out (baudB),a call print defb 1AH, 0DH, 0AH defb 'KAYPRO 10 CP/M Version ' defb vers/10+'0', '.', vers mod 10+'0','F' defb 0DH, 0AH, 00H goccp: ld hl,time ; reset disk time out ld (count),hl ld a,0C3H ; set up CP/M jumps to bdos and wboot ld hl,bios+3 ; wboot entry point ld (0),a ld (1),hl ld hl,bdos ; entry point to bdos ld (5),a ld (6),hl ld a,(4) ; last logical disk unit used ld c,a and 0FH ; valid disk? cp 3 jp c,ccp ld a,c ; no, so go to drive 0 and 0F0H ld c,a ; pass to ccp to select jp ccp ; pass control to ccp ; Warm boot entry point, re-load the CCP and BDOS wboot: ld c,0 ; select drive A: call seldsk call home call diskint call print defb 0DH, 0AH, 'Warm Boot', 0DH, 0AH, 00H wb0: ld sp,100H ; re-set stack ld bc,0 ; set track call settrk ld bc,ccp ; first memory location to load ld (dmaadr),bc call setdma ld bc,nsects*256+1 wb1: push bc ; save sector count and current sector call setsec ; select sector call read pop bc or a jr nz,wb0 ; oops, error on warm boot push bc ld hl,(dmaadr) ; update dma address for next sector ld de,128 ; new dma address add hl,de ld b,h ld c,l ld (dmaadr),hl call setdma pop bc xor a ld (ccp+7),a dec b jp z,goccp ; done loading inc c ; bump sector count if not hdisk ld a,trksec ; next track? cp c jr nz,wb1 ld c,16 ; next sector to read push bc ld c,1 call settrk ; set track number pop bc endif jr wb1 subttl logical to physical devices CON:, PUN:, RDR:, and LST: page ; logical devices are con: rdr: pun: and lst: ; physical devices are: ; crt: video and kbd ; tty: serial ; lpt: centronics ; ul1: serial with cts as busy ; pun: same as ul1 ; ;con: tty, crt ;rdr: tty ;pun: tty, pun ;lst: tty, crt, lpt, ul1 const: ld hl,(count) ; time out motors? dec hl ld (count),hl ld a,h or l call z,diskoff ld a,(cnt) ;load function counter or a ;clean test jr nz,loadup ;set to do function if not 0 ld a,(iobyte) ; get i/o byte and 03H ; strip to con bits ld l,rom+33H ; serial status jp z,callrom ld l,rom+2AH ; assume CRT jp callrom loadup: ld a,0ffh ;set for get character or a ;clean test ret conin: call const ; key press? or a jr z,conin ld a,(cnt) ;get counter value or a ;clean test jr nz,frjp ;do function if not 0 ld a,(iobyte) ; go get character and 03H ; check i/o byte ld l,rom+36H ; serial input jp z,callrom ld l,rom+2DH ; assume input from kbd call callrom ; go get char or a ret p ; msb not set and 01FH ; form table index to vtab ld hl,vtab ld c,a ld b,0 add hl,bc ld a,(hl) ; pick up xlated character or a ; clean test ret nz ; if valid character value return sectab: ld hl,sndtab ;set to new table value ld a,c ;get character position sla a ;shift left to sla a ;mult by 2, again ld c,a ;get new character position add hl,bc ;set hl to character position ld (pntr),hl ;store position in pointer ld a,4 ;set to this value ld (cnt),a ;initialize counter to 4 ;continue process of function frjp: ld hl,(pntr) ;get pointer value ld c,(hl) ;load character into c reg inc hl ;increment pointer ld (pntr),hl ;save this value off ld a,(cnt) ;retrieve current counter value dec a ;decrement this value ld (cnt),a ;save this value off ld a,c ;move character into a ret z ;return if zero ld a,(hl) ;get next byte value cp fox ;compare to 0 ld a,c ;move value in c to a ret nz ;return if not zero xor a ;clear accumulator ld (cnt),a ;clear counter value ld a,c ;move value in c to a ret diskoff:ld l,rom+27H jp callrom conout: ld a,(iobyte) ; check i/o byte and 03H ld l,rom+39H ; serial output jp z,callrom ld l,rom+45H ; assume video jp callrom reader: ld l, rom+36H ; serial input jp callrom ;punch: ld a,(iobyte) ; check i/o byte ; and 30H ; ld l,rom+39H ; serial punch ; jp z,callrom ; ld l, rom+42H ; serial with cts as busy ; jp callrom punch: ld l,rom+39h ;serial punch jp callrom ; list: ld a,(iobyte) and 0C0H ; check i/o byte ld l,rom+39H ; serial jp z,callrom cp 80H ; centronics jp z,lstdev ; time delay routine for output ld l,rom+45H ; video cp 40H jp z,callrom ; ld l, rom+42H ; assume serial with cts as busy ld l, rom+39h ;ul1: default to serial jp callrom listst: ld a,(iobyte) ; check i/o byte and 0C0H ld l,rom+42H ; serial jp z,callrom ld l,rom+3CH ; centronics cp 80H jp z,callrom xor a ; 0=ready ret lstdev: call listst ; is printer busy jr nz,lstdev ; if not return ld a,c ; move character into a out (pfdat),a ; output character to printer in a,(bitport) ; strb. printer res pstrob,a out (bitport),a set pstrob,a out (bitport),a ret subttl Disk I/O and ROM dispatch page diskint:ld l,rom+03H ; re-set disk software sub-system jr callrom home: ld l,rom+0CH ; home disk drive rom routine jr callrom seldsk: ld l,rom+0FH ; select disk drive jr callrom settrk: ld l,rom+12H ; seek track jr callrom setsec: ld l,rom+15H ; set sector number jr callrom setdma: ld l,rom+18H ; set dma address jr callrom read: ld hl,time ; reset time out ld (count),hl ld l,rom+1BH ; read a logical sector jr callrom write: ld hl,time ; reset time out ld (count),hl ld l,rom+1EH ; write a logical sector ld a,(wrtsafe) ; write safe flag or a ; true or false jr z,callrom ; normal operation ld c,1 ; directory write code (forces write op) jr callrom sectran:ld l,rom+21H ; xlate logical to physical sector jr callrom callrom:exx ; save cp/m arguments in a,(bitport) ; turn rom on set 7,a out (bitport),a ld (savsp),sp ; save current stack (may be under rom) ld sp,stack ; set a local stack ld de,biosret ; rom to "RET" here push de exx ; restore cp/m arguments and call loc ld h,0 jp (hl) ; to rom routine specified in hl biosret:ex af,af' ; save reg A ld sp,(savsp) ; restore stack in a,(bitport) ; off the rom res 7,a out (bitport),a ex af,af' ; restore reg A ret ; done with rom routine print: ex (sp),hl ; pop return address, points to text to print ld a,(hl) ; get a byte of text, stop on zero byte inc hl ex (sp),hl ; save new return address or a ; is it a zero byte? ret z ld c,a ; no, so print it call conout jr print ; Patch CCP to display user # and search user 0 for a COM file. openf equ 15 ; open disk function bdosent equ 5 ; entry point to bdos ccperr equ ccp+7EEH ccpfcb equ ccp+7CDH ccpco equ ccp+8CH ccpread equ ccp+0F9H ccpp1 equ ccp+0392H ccpp2 equ ccp+00D7H ccpp3 equ ccp+06E9H getusr macro x .xlist ld e,-1 ld c,32 call bdosent ld (x),a .list endm setusr macro x .xlist ld a,(x) ld e,a ld c,32 call bdosent .list endm p1: ld c,32 ; show user#, get current one ld e,-1 ; e=255 is get user code call bdosent cp 10 ; if a>10 then print first digit jr c,pmt0 sub 10 push af ; save second digit ld a,'1' call ccpco pop af pmt0: add a,'0' ; for ascii digit call ccpco ld a,'>' pmt2: jp ccpco p2: getusr curuser ld (fcbuser),a ld de,ccpfcb ld c,openf ; open a file (check user 0 if not found) call bdosent ld (ccperr),a inc a ret nz ; nz=file opened ld a,(curuser) ; get current user # or a jr z,nogd ; in user 0, file open no good xor a ld (fcbuser),a ; try user 0 setusr fcbuser ld de,ccpfcb ; try to open file ld c,openf call bdosent ld (ccperr),a ; ccp error return setusr curuser ; restore user # nogd: ld a,(ccperr) ; was open ok? inc a ret ; back to ccp p3: setusr fcbuser ; read a sector ld de,ccpfcb call ccpread push af setusr curuser pop af ret pntr: defw 0 ; pointer for function key routine cnt: defb 0 ; character counter for function routine curuser:defs 1 ; current user fcbuser:defs 1 ; user # of load file count: defs 2 ; disk time out counter savsp: defs 2 ; current spact pointer during rom call dmaadr: defs 2 ; dma address for warm boot stack equ $+64 ; a local stack end