Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-11-22 16:31:07 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.93+

Browse Source
This commit is contained in:
Rémy GIBERT 2020-01-08 08:13:42 +01:00
parent 0e2d1348f3
commit 7cadb5b0bb
3 changed files with 11 additions and 9 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.

14
BIN/SH.S.EXP.txt
View File

@ -26,6 +26,7 @@ EXP.GET jsr CORE.ArgV.Next
jsr EXP.FPU.EXEC
jsr CORE.ArgV.Next another op ?
bne .2
.8 >PUSHBI 4 ACC on stack
>PUSHW L.FMT.Long
>LEA.G M32.BUF
@ -34,7 +35,7 @@ EXP.GET jsr CORE.ArgV.Next
>LEA.G M32.BUF
rts
.94 >POP 4
.94 jsr IncPStack4
.9 jmp EXP.E.ESYN
EXP.FPU.EXEC ldy CORE.Operator
@ -184,10 +185,7 @@ EXP.OP.UNARY.DEF.RTS
EXP.OP.UNARY.I jsr EXP.GetInt32Arg
bcs EXP.OP.UNARY.DEF.9
inc pStack Discard Long
inc pStack
inc pStack
inc pStack
jsr IncPStack4 Discard Long
bra EXP.OP.UNARY.DEF.8
*--------------------------------------
@ -244,7 +242,7 @@ EXP.TEST.BINARY lda CORE.Operator
bra EXP.TEST.BINARY.END
EXP.TEST.BINARY.ESYN4
>POP 4
jsr IncPStack4
EXP.TEST.BINARY.ESYN
jmp EXP.E.ESYN
*--------------------------------------
@ -291,9 +289,7 @@ EXP.GetInt8YA jsr EXP.GetInt32YA
>PULLA
inc pStack
inc pStack
inc pStack
jsr IncPStack3
* clc
.9 rts

6
BIN/SH.S.txt
View File

@ -545,6 +545,12 @@ ToUpperCase cmp #'a'
eor #$20
.8 clc exit CC to allow Jmp to
rts
*--------------------------------------
IncPStack4 inc pStack
IncPStack3 inc pStack
inc pStack
inc pStack
rts
*--------------------------------------
.INB USR/SRC/BIN/SH.S.CL
.INB USR/SRC/BIN/SH.S.HIS