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

Kernel 0.9.2

Browse Source
This commit is contained in:
Rémy GIBERT 2018-07-05 07:42:16 +02:00
parent 939745ccbf
commit c5c866a92e
4 changed files with 7 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.

BIN
.Floppies/A2OSX.SRC.po
View File

Binary file not shown.

1
INC/PRODOS.I.txt
View File

@ -48,6 +48,7 @@ S.FI.A.D .EQ $80
S.FI.A.FULL .EQ $C3
S.FI.T .EQ $04
S.FI.T.TXT .EQ $04
S.FI.T.BIN .EQ $06
S.FI.T.DIR .EQ $0F
S.FI.T.SYS .EQ $FF
S.FI.AUXTYPE .EQ $05

12
SYS/KERNEL.S.PS.txt
View File

@ -31,7 +31,7 @@ K.CreatePS ldx #0
jsr PS.CmdLine2Args Y,A = Args[0]
bcs .9
jsr PS.Init
jsr PS.Load
bcc .8
pha save error code
@ -253,7 +253,7 @@ PS.CmdLine2Args >STYA ZPPtr1
PS.bInQuote .BS 1
*--------------------------------------
PS.Init jsr BIN.Load Y,A=filename full path
PS.Load jsr BIN.Load Y,A=filename full path
bcs .9
>STYA ZPPtr4 save PTR to Code Segment
@ -269,9 +269,9 @@ PS.Init jsr BIN.Load Y,A=filename full path
sta (ZPPtr3),y save CS hMem in S.PS
jsr K.GetMemByID
jsr PS.SetMemOwner Set Ownership
jsr PS.SetMemOwner Set Ownership
ldy #H.BIN.EXE.DS.SIZE+1
ldy #H.BIN.DS.SIZE+1
lda (ZPPtr4),y Load DS.SIZE HI
tax
dey
@ -298,7 +298,7 @@ PS.Init jsr BIN.Load Y,A=filename full path
jsr PS.SetMemOwner Set Ownership
.2 ldy #H.BIN.EXE.SS.SIZE
.2 ldy #H.BIN.SS.SIZE
lda (ZPPtr4),y Load SS.SIZE
ldy #S.PS.ZP.STACK
@ -324,7 +324,7 @@ PS.Init jsr BIN.Load Y,A=filename full path
jsr PS.SetMemOwner Set Ownership
ldy #H.BIN.EXE.ZP.SIZE
ldy #H.BIN.ZP.SIZE
lda (ZPPtr4),y
clc
adc #8 Add room for 4 saved PTR