Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-11-29 17:50:18 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.94

Browse Source
This commit is contained in:
Rémy GIBERT 2020-02-24 07:40:06 +01:00
parent 7a919c958a
commit 13ad12582b
3 changed files with 21 additions and 2 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.

19
BIN/ASM.S.MAC.txt
View File

@ -274,6 +274,9 @@ MAC.ReadLine >LDA.G MAC.hBuf
.21 cmp #'#' .21 cmp #'#'
bne .20 bne .20
>LDYA ZPMacroBuf
>SYSCALL puts
>DEBUG
jsr MAC.GetArgCnt jsr MAC.GetArgCnt
ora #$30 ora #$30
bra .7 bra .7
@ -327,6 +330,7 @@ MAC.Put >LDA.G MAC.StkPtr
dey dey
lda ZPPtr2+1 lda ZPPtr2+1
sta (ZPMacroStk),y get offset sta (ZPMacroStk),y get offset
clc
rts rts
*--------------------------------------- *---------------------------------------
MAC.Push >LDA.G MAC.StkPtr MAC.Push >LDA.G MAC.StkPtr
@ -426,7 +430,22 @@ MAC.GetArgCnt phy
.1 iny .1 iny
lda (ZPMacroArgBuf),y lda (ZPMacroArgBuf),y
beq .8
cmp #','
bne .1
iny
inx
bra .1
.7 tya
beq .8
inx
.8 txa
ply ply
clc clc
rts rts

4
BIN/ASM.S.OUT.txt
View File

@ -25,8 +25,8 @@ OUT.Reset ldx #4
rts rts
*--------------------------------------- *---------------------------------------
OUT.PrintLineOn OUT.PrintLineOn
* clc clc
* rts rts
>LDA.G ASM.LI.ON >LDA.G ASM.LI.ON
bpl .9 bpl .9
>LDA.G ASM.MA.ON MACRO Mode ? >LDA.G ASM.MA.ON MACRO Mode ?