Kernel 0.94

This commit is contained in:
Rémy GIBERT 2020-08-28 19:10:23 +02:00
parent 943d5a706a
commit 37f9a2c585
2 changed files with 7 additions and 5 deletions

Binary file not shown.

View File

@ -400,16 +400,15 @@ DRV.BUFF .EQ $44
DRV.BLKNUM .EQ $46
*--------------------------------------
RWDRV.B.START .PH $FF00
RWDRV.START cld ProDOS will check that byte!!!
RWDRV.START
* cld ProDOS will check that byte!!!
ldy DRV.COMMAND 0 = Status ?
beq RMDRV.CMDSTATUS
cpy #3
beq RWDRV.EXITOK 3 = Format : nothing to do, exit with no error
* bcs RWDRV.IOERR > 3 = Invalid OP, IO error
RWDRV.IOERR lda #MLI.E.IO Carry already set
rts
bcs RWDRV.IOERR > 3 = Invalid OP, IO error
ldx DRV.BLKNUM
cpx RWDRV.MAXLO+1
@ -488,6 +487,9 @@ RWDRV.MAXHI ldy #$FF
RWDRV.EXITOK lda #0 make A=0
clc
rts
RWDRV.IOERR lda #MLI.E.IO Carry already set
rts
*--------------------------------------
* X=Page(0/1 or LC),A=Bank
*--------------------------------------