X-Git-Url: http://cloudbase.mooo.com/gitweb/z180-stamp-cpm3.git/blobdiff_plain/2a413c0df536bc1808a60598edc981152c4ec5f7..aeb747d4d09db894700b4c7e53323284f20dece2:/cbios/bioskrnl.180 diff --git a/cbios/bioskrnl.180 b/cbios/bioskrnl.180 index 79dac2c..6c8366f 100644 --- a/cbios/bioskrnl.180 +++ b/cbios/bioskrnl.180 @@ -51,6 +51,7 @@ ccp equ 0100h ; Console Command Processor gets loaded extrn @dtbl ; table of pointers to XDPHs public @adrv,@rdrv,@trk,@sect ; parameters for disk I/O public @dma,@dbnk,@cnt ; '' '' '' '' + public @xdph,@op ; memory control @@ -67,7 +68,7 @@ ccp equ 0100h ; Console Command Processor gets loaded ; 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 @@ -129,6 +130,10 @@ 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 @@ -258,13 +263,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 -; jr 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 @@ -311,7 +310,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 @@ -323,38 +322,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 @@ -365,23 +332,6 @@ 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 @@ -404,17 +354,15 @@ const: 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 + ret z ; all selected were not ready, return false + jr cis$next ; AUXIN @@ -437,10 +385,9 @@ 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 @@ -471,11 +418,6 @@ 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 @@ -491,7 +433,10 @@ xofflist: seldsk: ld a,c ; save drive select code ld (@adrv),a - ld b,0 ; create index from drive code + xor a + ld (@op),a + ld (@cnt),a + ld b,a ; create index from drive code ld hl,@dtbl add hl,bc ; get pointer to dispatch table add hl,bc @@ -503,19 +448,21 @@ seldsk: or h ret z ; if no entry in table, no disk - ld a,e ; examine login bit - and 1 - ret nz - - push ix - ld ix,(@xdph) - ld a,(ix-2) - ld (@RDRV),a ; get relative drive - ld l,(ix-6) ; get address of LOGIN routine - ld h,(ix-5) - ex (sp),ix - pop de + bit 0,e ; login bit to zero flag + ex de,hl + ld hl,-2 ; get relative drive + add hl,de + ld a,(hl) + ld (@RDRV),a + jr nz,notfirst ; examine login bit + ld hl,-6 + add hl,de + ld a,(hl) + inc hl + ld h,(hl) + ld l,a call ipchl ; call LOGIN +notfirst: ld hl,(@xdph) ; recover DPH pointer ret @@ -592,6 +539,8 @@ sectrn: ; extended disk parameter header (XDPH). read: + ld a,1 + ld (@op),a ld ix,(@xdph) ; get drive descriptor pointer ld l,(ix-8) ; get read routine entry ld h,(ix-7) @@ -604,6 +553,8 @@ read: ; extended disk parameter header (XDPH). write: + ld a,2 + ld (@op),a ld ix,(@xdph) ; get drive descriptor pointer ld l,(ix-10) ; get write routine entry ld h,(ix- 9) @@ -632,6 +583,7 @@ flush: ; do not change order. sd driver depends on this @xdph: ds 2 ; pointer to currently selected drives dph +@op ds 1 ; current disk operation 0:select, 1:read, 2 write @adrv: ds 1 ; currently selected disk drive @rdrv: ds 1 ; controller relative disk drive @trk: ds 2 ; current track number