mirror of https://github.com/A2osX/A2osX.git
Kernel 0.94
This commit is contained in:
parent
e552a07365
commit
960e7769ea
Binary file not shown.
|
@ -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
|
||||
|
||||
|
|
|
@ -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,
|
||||
|
||||
|
|
|
@ -44,7 +44,7 @@ close2 ldy fcbptr
|
|||
jsr relbuffr
|
||||
bcs L46B6
|
||||
|
||||
lda #$00
|
||||
* lda #$00
|
||||
ldx fcbptr
|
||||
stz FCBs,x free fcb too
|
||||
|
||||
|
|
Loading…
Reference in New Issue