X-Git-Url: http://cloudbase.mooo.com/gitweb/z180-stamp-cpm3.git/blobdiff_plain/b27f7b99726643dca7d91847d45c692e26f5287d..7055170fb2f1f27893ab9e86a1d59a3bf894bb00:/cbios/bioskrnl.180 diff --git a/cbios/bioskrnl.180 b/cbios/bioskrnl.180 index 6ac3726..6ead6c3 100644 --- a/cbios/bioskrnl.180 +++ b/cbios/bioskrnl.180 @@ -20,9 +20,6 @@ ; can be combined to support a particular system ; configuration. -cr equ 13 -lf equ 10 -bell equ 7 ctlQ equ 'Q'-'@' ctlS equ 'S'-'@' @@ -57,27 +54,20 @@ ccp equ 0100h ; Console Command Processor gets loaded ; memory control - public @cbnk ; current bank - extrn ?xmove,?move ; select move bank, and block move - extrn ?bank ; select CPU bank + public @cbnk ; current bank + extrn ?xmove,?move ; select move bank, and block move + extrn ?bank ; select CPU bank ; clock support - extrn ?time ; signal time operation + extrn ?time ; signal time operation - ; general utility routines - - public ?pmsg,?pdec ; print message, print number from 0 to 65535 - public ?pderr ; print BIOS disk error message header - public pmsg.in ; print message inline - public phex4,phex2 ; print 4 digit hex (HL), or 2 digit hex (A) - - include modebaud.inc ; define mode bits + include modebaud.inc ; define mode bits ; External names for BIOS entry points - public ?boot,?wboot,?const,?conin,?cono,?list,?auxo,?auxi + public ?boot,?wboot,boot,?const,?conin,?cono,?list,?auxo,?auxi public ?home,?sldsk,?sttrk,?stsec,?stdma,?read,?write public ?lists,?sctrn public ?conos,?auxis,?auxos,?dvtbl,?devin,?drtbl @@ -139,17 +129,21 @@ ccp equ 0100h ; Console Command Processor gets loaded dseg ; this part can be banked boot: + ld a,SYS$CBR + out0 (cbr),a + ld a,USR$CBAR + out0 (cbar),a ld sp,bs$stack call hwinit ; first time hardware initialisation - ld c,15 ; initialize all 16 character devices + ld bc,16*256 + 0 ; initialize all 16 character devices c$init$loop: push bc call ?cinit pop bc - dec c - jp p,c$init$loop + inc c + djnz c$init$loop call ?init ; perform any additional system initialization ; and print signon message @@ -166,27 +160,13 @@ d$init$loop: or d jr z,d$init$next ; if null, no drive push hl ; save @drv pointer - if 0 - ex de,hl ; XDPH address in - dec hl - dec hl - ld b,(hl) ; get relative drive code - ld (@ADRV),bc ; save absolute and relative drive code - dec hl ; point to init pointer - ld d,(hl) - dec hl - ld e,(hl) ; get init pointer - ex de,hl - call ipchl ; call init routine - else push de - pop ix + pop ix ; XDPH address in ld b,(ix-2) ld (@ADRV),bc ; save absolute and relative drive code ld l,(ix-4) ld h,(ix-3) ; get init pointer call ipchl ; call init routine - endif pop hl ; recover @drv pointer d$init$next: pop bc ; recover counter and drive # @@ -229,7 +209,7 @@ set$jumps: ret - ds 64 + ds bs$stack$size bs$stack equ $ @@ -250,13 +230,12 @@ getdrv: - ; CONOUT - ; Console Output. Send character in - ; to all selected devices - -conout: + ; LIST + ; List Output. Send character in + ; to all selected devices. - ld hl,(@covec) ; fetch console output bit vector +list: + ld hl,(@lovec) ; fetch list output bit vector jr out$scan @@ -269,12 +248,13 @@ auxout: jr out$scan - ; LIST - ; List Output. Send character in - ; to all selected devices. + ; CONOUT + ; Console Output. Send character in + ; to all selected devices -list: - ld hl,(@lovec) ; fetch list output bit vector +conout: + + ld hl,(@covec) ; fetch console output bit vector out$scan: ld b,0 ; start with device 0 @@ -282,13 +262,7 @@ co$next: add hl,hl ; shift out next bit jr nc,not$out$device push hl ; save the vector - push bc ; save the count and character -not$out$ready: - call coster - or a - jp z,not$out$ready - pop bc - push bc ; restore and resave the character and device + push bc ; save device num and the character call ?co ; if device selected, print it pop bc ; recover count and character pop hl ; recover the rest of the vector @@ -300,13 +274,13 @@ not$out$device: ret - ; CONOST - ; Console Output Status. Return true if - ; all selected console output devices + ; LISTST + ; List Output Status. Return true if + ; all selected list output devices ; are ready. -conost: - ld hl,(@covec) ; get console output bit vector +listst: + ld hl,(@lovec) ; get list output bit vector jr ost$scan @@ -320,13 +294,13 @@ auxost: jr ost$scan - ; LISTST - ; List Output Status. Return true if - ; all selected list output devices + ; CONOST + ; Console Output Status. Return true if + ; all selected console output devices ; are ready. -listst: - ld hl,(@lovec) ; get list output bit vector +conost: + ld hl,(@covec) ; get console output bit vector ost$scan: ld b,0 ; start with device 0 @@ -335,7 +309,7 @@ cos$next: push hl ; save the vector push bc ; save the count ld a,0FFh ; assume device ready - call c,coster ; check status for this device + call c,?cost ; check status for this device pop bc ; recover count pop hl ; recover bit vector or a ; see if device ready @@ -347,38 +321,6 @@ cos$next: or 0FFh ; all selected were ready, return true ret - ; check for output device ready, including optional - ; xon/xoff support -coster: - ld l,b - ld h,0 ; make device code 16 bits - push hl ; save it in stack - add hl,hl - add hl,hl - add hl,hl ; create offset into device characteristics tbl - ld de,@ctbl+6 - add hl,de ; make address of mode byte - ld a,(hl) - and mb$xon$xoff - pop hl ; recover console number in - jp z,?cost ; not a xon device, go get output status direct - ld de,xofflist - add hl,de ; make pointer to proper xon/xoff flag - call cist1 ; see if this keyboard has character - ld a,(hl) - call nz,ci1 ; get flag or read key if any - cp ctlq - jr nz,not$q ; if its a ctl-Q, - ld a,0FFh ; set the flag ready -not$q: - cp ctls - jr nz,not$s ; if its a ctl-S, - ld a,00h ; clear the flag -not$s: - ld (hl),a ; save the flag - call cost1 ; get the actual output status, - and (hl) ; and mask with ctl-Q/ctl-S flag - ret ; return this as the status cist1: ; get input status with and saved push bc @@ -389,22 +331,15 @@ cist1: ; get input status with and saved or a ret -cost1: ; get output status, saving & - push bc - push hl - call ?cost - pop hl - pop bc - or a - ret -ci1: ; get input, saving & - push bc - push hl - call ?ci - pop hl - pop bc - ret + ; AUXIST + ; Auxiliary Input Status. Return true if + ; any selected auxiliary input device + ; has an available character. + +auxist: + ld hl,(@aivec) ; get aux input bit vector + jr ist$scan ; CONST @@ -414,40 +349,19 @@ ci1: ; get input, saving & const: ld hl,(@civec) ; get console input bit vector - jr ist$scan - - - ; AUXIST - ; Auxiliary Input Status. Return true if - ; any selected auxiliary input device - ; has an available character. - -auxist: - ld hl,(@aivec) ; get aux input bit vector ist$scan: ld b,0 ; start with device 0 cis$next: - add hl,hl ; check next bit - ld a,0 ; assume device not ready - call c,cist1 ; check status for this device - or a + xor a ; assume next device not ready + add hl,hl ; check next bit (lets z flag unaffected) + call c,cist1 ; check status for this device ret nz ; if any ready, return true inc b ; next device number ld a,h or l ; see if any more selected devices - jr nz,cis$next - xor a ; all selected were not ready, return false - ret - - - ; CONIN - ; Console Input. Return character from first - ; ready console input device. - -conin: - ld hl,(@civec) - jr in$scan + ret z ; all selected were not ready, return false + jr cis$next ; AUXIN @@ -456,15 +370,23 @@ conin: auxin: ld hl,(@aivec) + jr in$scan + + + ; CONIN + ; Console Input. Return character from first + ; ready console input device. + +conin: + ld hl,(@civec) in$scan: push hl ; save bit vector ld b,0 ci$next: + xor a ; assume next device not ready add hl,hl ; shift out next bit - ld a,0 ; insure zero a (nonexistant device not ready). call c,cist1 ; see if the device has a character - or a jr nz,ci$rdy ; this device has a character inc b ; else, next device ld a,h @@ -486,138 +408,6 @@ ipchl: ; vectored CALL point jp (hl) -;------------------------------------------------------------------------------- -; print message @ up to a null -; saves & - -?pmsg: - push bc - push de -pmsg$loop: - ld a,(hl) - or a - jr z,pmsg$exit - ld c,a - push hl - call ?cono - pop hl - inc hl - jr pmsg$loop -pmsg$exit: - pop de - pop bc - ret - -;------------------------------------------------------------------------------- -; print message inline up to a null -; saves all registers - -pmsg.in: - ex (sp),hl - push af - call ?pmsg - pop af - ex (sp),hl - ret - -;------------------------------------------------------------------------------- -; print hl as a 4 digit hexadecimal number -; saves all registers - -phex4: - ld a,h - call phex2 - ld a,l - ; fall thru - -;------------------------------------------------------------------------------- -; print a as a 2 digit hexadecimal number -; saves all registers - -phex2: - push af - rra - rra - rra - rra - call print.digit - pop af - -print.digit: - push hl - push de - push bc - push af - and 00fh - cp 10 - jr c,prd_1 - add a,007h -prd_1: - add a,'0' - - ld c,a - call ?cono - pop af - pop bc - pop de - pop hl - ret - -;------------------------------------------------------------------------------- - -?pdec: ; print binary number 0-65535 from - ld bc,table10 - ld de,-10000 -next: - ld a,'0'-1 -pdecl: - push hl - inc a - add hl,de - jp nc,stoploop - inc sp - inc sp - jp pdecl -stoploop: - push de - push bc - ld c,a - call ?cono - pop bc - pop de -nextdigit: - pop hl - ld a,(bc) - ld e,a - inc bc - ld a,(bc) - ld d,a - inc bc - ld a,e - or d - jp nz,next - ret - -table10: - dw -1000,-100,-10,-1,0 - -?pderr: - ld hl,drive$msg - call ?pmsg ; error header - ld a,(@adrv) - add a,'A' - ld c,a - call ?cono ; drive code - ld hl,track$msg - call ?pmsg ; track header - ld hl,(@trk) - call ?pdec ; track number - ld hl,sector$msg - call ?pmsg ; sector header - ld hl,(@sect) - call ?pdec ; sector number - ret - ; BNKSEL ; Bank Select. Select CPU bank for further execution. @@ -627,17 +417,8 @@ bnksel: jp ?bank ; and go exit through users ; physical bank select routine - -xofflist: - db -1,-1,-1,-1,-1,-1,-1,-1 ; ctl-s clears to zero - db -1,-1,-1,-1,-1,-1,-1,-1 - - - dseg ; following resides in banked memory - - ; Disk I/O interface routines @@ -788,13 +569,6 @@ flush: ret ; return with no error - - ; error message components -drive$msg: db cr,lf,bell,'BIOS Error on ',0 -track$msg: db ': T-',0 -sector$msg: db ', S-',0 - - ; disk communication data items ; do not change order. sd driver depends on this