Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2025-02-20 15:29:07 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.94

Browse Source
This commit is contained in:
Rémy GIBERT 2020-03-03 07:50:47 +01:00
parent 95fb344b30
commit 390a12c1dc
2 changed files with 24 additions and 13 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.

37
BIN/ASM.S.DIR.txt
View File

@ -135,31 +135,34 @@ DIR.DA jsr SRC.GetNextCharNB
.1 jsr EXP.Eval
bcs .9
ldy #0
ldx SRC.ACC.SIZE
bne .10
>DEBUG
ldx #2
.10 ldy #0
beq *
.2 lda SRC.ACC,y
jsr OUT.EmitByte
bcs .9
iny
dex
bne .2
.3 jsr SRC.GetNextChar
bcs .8
.3 jsr SRC.GetChar
bcs .8
cmp #C.SPACE
beq .8
cmp #','
bne .98
jsr SRC.GetNextChar
bcc .1
.98 lda #E.SYNTAX.ERROR
clc
sec
.9 rts
.8 clc
rts
*---------------------------------------
@ -325,12 +328,6 @@ DIR.EQ clc
dex
bpl .21
lda #'e'
* jsr OUT.DEBUG
>DEBUG
clc
rts
@ -356,15 +353,19 @@ DIR.FI >LDA.G ASM.DO.StackPtr
*---------------------------------------
DIR.HS jsr SRC.GetNextCharNB
bcs .99
jsr SRC.IsDigit16
bcs .99
.1 sta DIR.Byte
jsr SRC.GetNextChar
bcc .2
jmp OUT.EmitByte
.2 jsr SRC.IsDigit16
bcc .3
cmp #','
beq .22
@ -375,6 +376,7 @@ DIR.HS jsr SRC.GetNextCharNB
jsr OUT.EmitByte
bcc .5
rts
.3 pha
sta DIR.Byte
asl
@ -384,26 +386,35 @@ DIR.HS jsr SRC.GetNextCharNB
sta DIR.Byte
pla
ora DIR.Byte
.4 jsr OUT.EmitByte
bcs .9
jsr SRC.GetNextChar
bcs .8
cmp #C.SPACE
beq .8
jsr SRC.IsDigit16
bcc .1
cmp #','
beq .5
cmp #'.'
bne .99
.5 jsr SRC.GetNextChar
bcs .99
jsr SRC.IsDigit16
bcc .1
.99 lda #E.SYNTAX.ERROR
sec
.9 rts
.8 clc
rts
*---------------------------------------