Kernel 0.94

This commit is contained in:
Rémy GIBERT 2020-09-18 08:03:33 +02:00
parent e552a07365
commit 960e7769ea
4 changed files with 5 additions and 6 deletions

Binary file not shown.

View File

@ -872,8 +872,7 @@ LDR.ScrInit80 sta CLRC3ROM
lda /LOGO.PAKED
sta ZPInBufPtr+1
lda #$00
sta ZPOutBufPtr
stz ZPOutBufPtr
lda #$A0
sta ZPOutBufPtr+1
@ -890,8 +889,7 @@ LDR.ScrInit80 sta CLRC3ROM
.10 sta CLRTEXT
lda #$00
sta ZPPtr1
stz ZPPtr1
lda #$A0
sta ZPPtr1+1

View File

@ -891,7 +891,7 @@ L4101 sta bloknml+1 of file and current usage count.
sta bloknml and this is the low one.
ldy fcbptr
lda cntent this was set up by 'tstopen'.
sta FCBs,y claim fcb for this file.
sta FCBs,y claim fcb for this file.
jsr alcbuffr go allocate buffer in memory tables.
bcs L4147 if errors.
@ -901,6 +901,7 @@ L4101 sta bloknml+1 of file and current usage count.
lda FCBs+FCB.STYPE,y file must be positioned at beginning.
cmp #$04 is it a tree file ?
bcs L415E no, assume a directory.
lda #$FF fool the position routine into giving
sta FCBs+FCB.MARK+2,y a valid position with preloaded data,

View File

@ -44,7 +44,7 @@ close2 ldy fcbptr
jsr relbuffr
bcs L46B6
lda #$00
* lda #$00
ldx fcbptr
stz FCBs,x free fcb too