mirror of
https://github.com/A2osX/A2osX.git
synced 2024-07-14 04:29:02 +00:00
239 lines
4.2 KiB
Plaintext
239 lines
4.2 KiB
Plaintext
PR#3
|
||
PREFIX /A2OSX.SRC
|
||
NEW
|
||
INC 1
|
||
AUTO 6
|
||
.LIST OFF
|
||
*---------------------------------------
|
||
DIR.AC clc
|
||
rts
|
||
*---------------------------------------
|
||
DIR.AS clc
|
||
rts
|
||
*---------------------------------------
|
||
DIR.AT clc
|
||
rts
|
||
*---------------------------------------
|
||
DIR.AZ clc
|
||
rts
|
||
*---------------------------------------
|
||
DIR.BS clc
|
||
rts
|
||
*---------------------------------------
|
||
DIR.DA clc
|
||
rts
|
||
*---------------------------------------
|
||
DIR.DO clc
|
||
rts
|
||
*---------------------------------------
|
||
DIR.DU clc
|
||
rts
|
||
*---------------------------------------
|
||
DIR.ED clc
|
||
rts
|
||
*---------------------------------------
|
||
DIR.EL clc
|
||
rts
|
||
*---------------------------------------
|
||
DIR.EM lda #ERR.INVALID.MACRO.DEF
|
||
sec
|
||
rts
|
||
*---------------------------------------
|
||
DIR.EN clc
|
||
rts
|
||
*---------------------------------------
|
||
DIR.EP clc
|
||
rts
|
||
*---------------------------------------
|
||
DIR.EQ jsr EXP.Eval
|
||
bcs .9
|
||
|
||
ldx #3
|
||
.1 lda SRC.ACC,x
|
||
sta SRC.GLabel.Value,x
|
||
dex
|
||
bpl .1
|
||
|
||
clc
|
||
.9 rts
|
||
*---------------------------------------
|
||
DIR.FI clc
|
||
rts
|
||
*---------------------------------------
|
||
DIR.HS clc
|
||
rts
|
||
*---------------------------------------
|
||
DIR.IN jsr SRC.GetArg
|
||
bcs .9
|
||
|
||
>LDYA L.SRC.BUFFER
|
||
>SYSCALL SYS.NewPStrYA
|
||
|
||
pha
|
||
|
||
jsr FIO.OpenFileA
|
||
plx
|
||
php
|
||
pha
|
||
|
||
txa
|
||
>SYSCALL SYS.FreeMemA
|
||
|
||
pla
|
||
plp
|
||
rts
|
||
|
||
|
||
.9 lda #ERR.SYNTAX.ERROR
|
||
sec
|
||
rts
|
||
*---------------------------------------
|
||
DIR.LI >LDYA L.T.LI
|
||
jsr SRC.GetKeyword
|
||
bcc .1
|
||
|
||
lda #ERR.SYNTAX.ERROR
|
||
sec
|
||
rts
|
||
|
||
.1 jmp (J.LI,x)
|
||
|
||
DIR.LI.CON ldy #ASM.LI.CON
|
||
sec
|
||
bra DIR.LI.APPLY
|
||
DIR.LI.COFF ldy #ASM.LI.CON
|
||
clc
|
||
bra DIR.LI.APPLY
|
||
DIR.LI.XON ldy #ASM.LI.XON
|
||
sec
|
||
bra DIR.LI.APPLY
|
||
DIR.LI.XOFF ldy #ASM.LI.XON
|
||
clc
|
||
bra DIR.LI.APPLY
|
||
DIR.LI.ON ldy #ASM.LI.ON
|
||
sec
|
||
bra DIR.LI.APPLY
|
||
DIR.LI.OFF ldy #ASM.LI.ON
|
||
clc
|
||
DIR.LI.APPLY lsr
|
||
|
||
|
||
|
||
lda #$80
|
||
sta (pData),y
|
||
rts
|
||
*---------------------------------------
|
||
DIR.MA jsr SRC.GetArg
|
||
bcs .9
|
||
|
||
.1 jsr FIO.ReadLine
|
||
bcs .99
|
||
|
||
lda TmpBuffer256
|
||
beq .1
|
||
|
||
cmp #'*' Comment?
|
||
beq .8
|
||
cmp #';' Comment?
|
||
beq .8
|
||
|
||
cmp #' ' no label...go scan dir/opcode
|
||
beq .3
|
||
|
||
.2 jsr SRC.GetChar skip label
|
||
beq .8
|
||
cmp #' '
|
||
bne .2
|
||
|
||
.3 jsr SRC.GetCharNB Scan for an Opcode...
|
||
beq .8
|
||
cmp #'.'
|
||
bne .8
|
||
|
||
jsr SRC.GetChar
|
||
beq .8
|
||
cmp #'E'
|
||
bne .8
|
||
jsr SRC.GetChar
|
||
beq .8
|
||
cmp #'M'
|
||
bne .8
|
||
clc
|
||
rts
|
||
|
||
.8 ldy #ASM.PASS If Pass#2, ignore
|
||
lda (pData),y
|
||
bne .1
|
||
|
||
|
||
|
||
bra .1
|
||
clc
|
||
rts
|
||
|
||
.9 lda #ERR.INVALID.MACRO.DEF
|
||
sec
|
||
.99 rts
|
||
*---------------------------------------
|
||
DIR.OP jsr SRC.GetArg
|
||
bcs .9
|
||
|
||
ldx SRC.Buffer
|
||
lda ASM.T.FILENAMELEN
|
||
adc SRC.Buffer
|
||
sta ASM.T.FILENAME
|
||
tay
|
||
|
||
.1 lda SRC.Buffer,x
|
||
sta ASM.T.FILENAME,y
|
||
dey
|
||
dex
|
||
bne .1
|
||
|
||
jmp LOAD.ASM.T
|
||
|
||
.9 lda #ERR.SYNTAX.ERROR
|
||
sec
|
||
rts
|
||
*---------------------------------------
|
||
DIR.OR jsr EXP.Eval
|
||
bcs .9
|
||
|
||
ldy #ASM.PC
|
||
ldx #0
|
||
|
||
.1 lda SRC.ACC,x
|
||
sta (pData),y
|
||
inx
|
||
iny
|
||
cpx #4
|
||
bne .1
|
||
clc
|
||
.9 rts
|
||
*---------------------------------------
|
||
DIR.PG clc
|
||
rts
|
||
*---------------------------------------
|
||
DIR.PH clc
|
||
rts
|
||
*---------------------------------------
|
||
DIR.SE clc
|
||
rts
|
||
*---------------------------------------
|
||
DIR.TA clc
|
||
rts
|
||
*---------------------------------------
|
||
DIR.TF clc
|
||
rts
|
||
*---------------------------------------
|
||
DIR.TI clc
|
||
rts
|
||
*---------------------------------------
|
||
DIR.US clc
|
||
rts
|
||
*---------------------------------------
|
||
MAN
|
||
SAVE BIN/ASM.S.DIR
|
||
LOAD BIN/ASM.S
|
||
ASM
|