Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-06-12 20:29:41 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.94

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.Floppies/A2OSX.BUILD.po
View File

Binary file not shown.

6
ProDOS.FX/ProDOS.S.LDR.txt
View File

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

3
ProDOS.FX/ProDOS.S.XDOS.C.txt
View File

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

2
ProDOS.FX/ProDOS.S.XDOS.E.txt
View File

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