A2osX/BIN/ASM.S.SRC.txt

1059 lines
17 KiB
Plaintext
Raw Normal View History

NEW
2019-09-02 06:09:28 +00:00
AUTO 3,1
2015-10-06 16:14:48 +00:00
*---------------------------------------
2020-03-09 06:58:48 +00:00
SRC.ParseLine jsr OUT.PrintBufReset
>STZ.G OUT.bEquate
jsr SRC.GetChar
bcs .8
2020-02-24 13:33:28 +00:00
cmp #'*' Comment?
beq .8
2020-02-24 13:33:28 +00:00
cmp #';' Comment?
beq .8
2020-02-24 13:33:28 +00:00
jsr SRC.DoCheck
2020-02-25 16:42:22 +00:00
bcs .7 TRUE
lda (ZPLinePtr)
2020-02-25 07:28:30 +00:00
.1 cmp #C.SPACE false....skip label processing
2020-02-25 16:42:22 +00:00
beq SRC.ParseLine.DirOp no label....
2020-02-25 07:28:30 +00:00
2020-02-25 16:42:22 +00:00
.2 jsr SRC.GetNextChar
2020-02-25 07:28:30 +00:00
bcs .8
cmp #C.SPACE
2020-02-25 16:42:22 +00:00
bne .2
2020-02-25 07:28:30 +00:00
bra SRC.ParseLine.DirOp
2020-02-23 20:01:48 +00:00
2020-02-25 07:28:30 +00:00
.7 >LDA.G ASM.MA.ON
2020-02-23 20:01:48 +00:00
bpl SRC.ParseLine.LABEL
2020-02-23 20:01:48 +00:00
jmp MAC.Learn
.8 clc
2020-02-23 20:01:48 +00:00
SRC.ParseLine.RTS
rts
2018-01-29 16:48:07 +00:00
*---------------------------------------
SRC.ParseLine.LABEL
jsr SRC.GetChar
2020-02-23 20:01:48 +00:00
cmp #C.SPACE no label...go scan dir/opcode
beq SRC.ParseLine.DirOp
2020-02-23 20:01:48 +00:00
2019-04-01 06:07:56 +00:00
tax save char...
2020-02-25 16:42:22 +00:00
cpx #'.' local symbol?
bne .1
2020-02-23 20:01:48 +00:00
2020-02-25 16:42:22 +00:00
>LDA.G MAC.StkPtr
bne SRC.ParseLine.InvLbl illegal in MACRO
bra .2
.1 cpx #':' private symbol?
2019-04-01 06:07:56 +00:00
bne .8
2020-02-23 20:01:48 +00:00
2019-04-01 06:07:56 +00:00
>LDA.G MAC.StkPtr
2020-02-25 16:42:22 +00:00
beq SRC.ParseLine.InvLbl illegal OUTSIDE macro
2020-03-02 16:49:47 +00:00
.2 >LDA.G SYM.BufPtr Not relative to Global label...
beq SRC.ParseLine.InvLbl
2020-02-25 16:42:22 +00:00
2020-02-28 07:21:46 +00:00
jsr SRC.GetNextChar
bcs SRC.ParseLine.InvLbl
2020-02-25 16:42:22 +00:00
2020-02-28 16:30:16 +00:00
jsr SRC.GetDecimal8
bcs SRC.ParseLine.InvLbl
2020-02-25 16:42:22 +00:00
2019-04-01 06:07:56 +00:00
jsr SYM.NewLocalA
2020-02-23 20:01:48 +00:00
bcs SRC.ParseLine.RTS
bra SRC.ParseLine.DirOp
2020-03-02 06:53:19 +00:00
.8 jsr SYM.NewGlobal
bcs SRC.ParseLine.RTS
2019-10-03 06:25:27 +00:00
*---------------------------------------
2020-02-28 07:21:46 +00:00
SRC.ParseLine.DirOp
jsr SRC.GetNextCharNB Scan for an Opcode...
bcs SRC.ParseLine.Ok
cmp #'.'
bne .5
2020-02-23 20:01:48 +00:00
jsr SRC.GetNextChar
bcs SRC.ParseLine.InvDir
2020-02-23 20:01:48 +00:00
2020-02-24 13:33:28 +00:00
>LDYA L.T.DIRECTIVES
jsr SRC.GetKeyword
bcs SRC.ParseLine.InvDir
jsr SRC.DoCheck
bcs .1 TRUE, always execute
cpx #20 .ELSE?
beq .1
2020-02-25 16:42:22 +00:00
cpx #30 .FIN?
2020-02-24 13:33:28 +00:00
bne SRC.ParseLine.Ok
2020-02-28 07:21:46 +00:00
2020-02-24 13:33:28 +00:00
.1 jmp (J.DIRECTIVES,x)
2020-02-23 20:01:48 +00:00
2020-02-24 13:33:28 +00:00
.5 pha
jsr SRC.DoCheck
pla
bcc SRC.ParseLine.Err FALSE, skip all
2020-02-24 13:33:28 +00:00
cmp #'>'
bne SRC.ParseLine.OpCode
2020-02-24 13:33:28 +00:00
jmp MAC.Exec
SRC.ParseLine.Ok
clc
SRC.ParseLine.Err
rts
2015-12-17 16:57:35 +00:00
SRC.ParseLine.InvLbl
2019-03-25 07:04:40 +00:00
lda #E.INV.LABEL
sec
rts
SRC.ParseLine.InvDir
2019-03-25 07:04:40 +00:00
lda #E.INV.DIR
sec
rts
2015-10-09 15:53:30 +00:00
*---------------------------------------
2015-10-28 16:55:12 +00:00
SRC.ParseLine.OpCode
>LDYA ZPOpsPtr
>STYA ZPOpDefPtr
2019-03-22 16:47:33 +00:00
.1 lda (ZPOpDefPtr) End Of OpCode List
2020-03-03 16:44:52 +00:00
ldy #1
2020-03-03 16:44:52 +00:00
ora (ZPOpDefPtr),y
beq .9
2020-03-03 16:44:52 +00:00
lda ZPOpDefPtr
clc
adc #2
sta ZPPtr2
lda ZPOpDefPtr+1
adc #0
sta ZPPtr2+1
lda (ZPPtr2)
tax
2020-03-03 16:44:52 +00:00
ldy #0
2020-03-03 16:44:52 +00:00
.2 lda (ZPLinePtr),y
beq .7
2020-03-03 16:44:52 +00:00
cmp #'a'
bcc .3
2020-03-03 16:44:52 +00:00
cmp #'z'+1
bcs .3
2020-03-03 16:44:52 +00:00
eor #$20
2020-03-03 16:44:52 +00:00
.3 iny
cmp (ZPPtr2),y
bne .7
2020-03-03 16:44:52 +00:00
dex
bne .2
2019-03-25 07:04:40 +00:00
lda (ZPLinePtr),y
beq .8 End of Line, no AM
2020-03-03 16:44:52 +00:00
2019-03-25 07:04:40 +00:00
cmp #C.SPACE A space after opcode ?
bne .7
2020-03-03 16:44:52 +00:00
tya
sec skip OP + ' '
adc ZPLinePtr
sta ZPLinePtr
bcc .5
inc ZPLinePtr+1
2020-03-03 16:44:52 +00:00
2019-03-28 16:48:22 +00:00
.5 jsr SRC.GetChar
bcs .8 Nothing after OP ' '
2020-03-03 16:44:52 +00:00
2019-03-28 16:48:22 +00:00
cmp #C.SPACE OP ' ' ?
beq .8
2020-03-03 16:44:52 +00:00
2019-03-28 16:48:22 +00:00
bra SRC.ParseLine.AM
2020-03-03 16:44:52 +00:00
.7 lda ZPOpDefPtr
clc
adc (ZPOpDefPtr)
tax
lda ZPOpDefPtr+1
ldy #1
adc (ZPOpDefPtr),y
stx ZPOpDefPtr
sta ZPOpDefPtr+1
bra .1
2020-03-03 16:44:52 +00:00
2019-03-25 07:04:40 +00:00
.8 lda #$ff
>STA.G SRC.AMID
jsr SRC.ParseLine.AMCheck4OP
bcs .99
2020-03-03 16:44:52 +00:00
2019-03-25 07:04:40 +00:00
jmp SRC.ParseLine.Emit
.9 lda #E.INV.OPCODE
sec
.99 rts
2015-10-30 16:34:59 +00:00
*---------------------------------------
2019-03-25 07:04:40 +00:00
SRC.ParseLine.AM
stz SRC.AM.StrBuf
2019-03-28 16:48:22 +00:00
.1 jsr SRC.IsAMReserved
bcs .2
2020-03-02 16:49:47 +00:00
jsr SRC.AddToBuf
bra .7
2020-03-02 16:49:47 +00:00
.2 jsr SRC.IsLetter Any register?
bcs .6 no, try something else
2020-03-02 16:49:47 +00:00
>LDYA ZPRPtr Check in register table
jsr SRC.GetKeyword
bcs .6
2020-03-02 16:49:47 +00:00
lda (ZPPtr1) get register len
tax
.4 inc ZPPtr1
bne .5
2020-03-02 16:49:47 +00:00
inc ZPPtr1+1
2020-03-02 16:49:47 +00:00
.5 lda (ZPPtr1)
jsr SRC.AddToBuf
dex
bne .4
2020-03-02 16:49:47 +00:00
2019-03-29 16:21:30 +00:00
bra .74
2020-03-02 16:49:47 +00:00
2020-03-06 16:20:29 +00:00
.6 jsr EXP.ResetAcc
jsr EXP.Eval
bcs .99
2020-03-02 16:49:47 +00:00
2020-03-06 06:56:36 +00:00
>LDA.G EXP.Prefix
beq .75
2020-03-02 16:49:47 +00:00
jsr SRC.AddToBuf
2020-03-10 07:24:08 +00:00
.75 ldx SRC.ACC.SIZE
2020-03-06 16:20:29 +00:00
beq * SHOULD NEVER APPEND
jsr SRC.GetACCSize
2020-03-03 16:44:52 +00:00
.72 lda #'a'
2020-03-02 16:49:47 +00:00
.71 jsr SRC.AddToBuf
dex
bne .71
2019-03-29 16:21:30 +00:00
.74 jsr SRC.GetChar
2019-03-28 16:48:22 +00:00
bcs .8
2020-03-02 16:49:47 +00:00
2019-03-28 16:48:22 +00:00
cmp #C.SPACE
bne .1
2020-03-02 16:49:47 +00:00
2019-03-28 16:48:22 +00:00
bra .8
2020-03-02 16:49:47 +00:00
.7 jsr SRC.GetNextChar
2019-03-28 16:48:22 +00:00
bcs .8
2020-03-02 16:49:47 +00:00
2019-03-28 16:48:22 +00:00
cmp #C.SPACE
bne .1
2020-03-02 16:49:47 +00:00
2019-03-25 07:04:40 +00:00
.8 jsr SRC.ParseLine.AMCheck
bcs .9
2020-03-02 16:49:47 +00:00
2019-03-25 07:04:40 +00:00
jsr SRC.ParseLine.AMCheck4OP
bcc .88
.80 jsr SRC.ExpandAddress
cpx #5
bne .8
.9 lda #E.INV.AM
sec
.99 rts
2019-03-25 07:04:40 +00:00
.88 jmp SRC.ParseLine.Emit
2015-10-28 16:55:12 +00:00
*---------------------------------------
SRC.ParseLine.AMCheck
2019-03-25 07:04:40 +00:00
>LDYA ZPAMPtr Check if AM is valid for CPU
>STYA ZPPtr1
ldx #0
2020-02-28 07:21:46 +00:00
.1 inx
lda (ZPPtr1)
beq .9
2020-02-28 07:21:46 +00:00
cmp SRC.AM.StrBuf
bne .7
2020-02-28 07:21:46 +00:00
tay
2020-02-28 07:21:46 +00:00
2019-10-03 06:25:27 +00:00
.2 lda (ZPPtr1),y
cmp SRC.AM.StrBuf,y
bne .6
2020-02-28 07:21:46 +00:00
dey
bne .2
2020-02-28 07:21:46 +00:00
txa
>STA.G SRC.AMID
2019-03-25 07:04:40 +00:00
clc
rts
2020-03-06 06:56:36 +00:00
.6 lda (ZPPtr1)
.7 sec
adc ZPPtr1
sta ZPPtr1
bcc .1
inc ZPPtr1+1
bra .1
2019-03-25 07:04:40 +00:00
.9 sec
rts
*---------------------------------------
2019-03-25 07:04:40 +00:00
SRC.ParseLine.AMCheck4OP
lda ZPOpDefPtr Skip nextLoHi,L,"ADC"
ldx ZPOpDefPtr+1
2020-03-03 16:44:52 +00:00
2019-03-25 07:04:40 +00:00
clc
adc #2 Skip nextLoHi
bcc .11
inx
2020-03-03 16:44:52 +00:00
2019-03-25 07:04:40 +00:00
.11 sec skip LEN Byte
ldy #2 LEN Byte
adc (ZPOpDefPtr),y
bcc .10
2019-03-25 07:04:40 +00:00
inx
2020-03-03 16:44:52 +00:00
2019-03-25 07:04:40 +00:00
.10 sta ZPPtr1
2020-03-03 16:44:52 +00:00
2019-03-25 07:04:40 +00:00
stx ZPPtr1+1
lda (ZPPtr1) AMID...
.1 >CMP.G SRC.AMID
2019-03-25 07:04:40 +00:00
beq .8
2020-03-03 16:44:52 +00:00
2019-03-25 07:04:40 +00:00
lda ZPPtr1 Skip AMID,L,"39aa"
ldx ZPPtr1+1
inc AMID....
bne .12
inx
2020-03-03 16:44:52 +00:00
2019-03-25 07:04:40 +00:00
.12 sec LEN byte...
ldy #1 String...
adc (ZPPtr1),y
bcc .2
2019-03-25 07:04:40 +00:00
inx
2020-03-03 16:44:52 +00:00
2019-03-25 07:04:40 +00:00
.2 sta ZPPtr1
stx ZPPtr1+1
lda (ZPPtr1)
bne .1
lda #E.INV.AM.4.OC
sec
rts
2020-03-03 16:44:52 +00:00
2019-03-25 07:04:40 +00:00
.8 >LDYA ZPPtr1
>STYA ZPOpDefPtr
clc
rts
*---------------------------------------
SRC.ParseLine.Emit
stz SRC.ACCTMP index in ACC
ldy #1
lda (ZPOpDefPtr),y
sta SRC.ACCTMP+1 Char Count in AM
2020-03-03 16:44:52 +00:00
iny
2020-03-03 16:44:52 +00:00
.4 lda (ZPOpDefPtr),y
cmp #'a
bcs .5 lowercase, go compute address
2020-03-02 06:53:19 +00:00
jsr SRC.IsDigit16
asl
asl
asl
asl
sta SRC.ACCTMP+2
iny
dec SRC.ACCTMP+1
lda (ZPOpDefPtr),y
jsr SRC.IsDigit16
ora SRC.ACCTMP+2
.50 jsr OUT.EmitByte
bcs .9
iny
dec SRC.ACCTMP+1
bne .4
clc
rts
2020-03-02 06:53:19 +00:00
.5 bne .6 cmp #'a'....
2020-03-02 06:53:19 +00:00
ldx SRC.ACCTMP
inc SRC.ACCTMP
lda SRC.ACC,x
bra .50
.6 cmp #'r
bne .7
2020-03-02 06:53:19 +00:00
jsr SRC.ComputeRel8
2020-03-02 16:49:47 +00:00
bcs .61
lda SRC.ACC
bra .50
2020-03-02 16:49:47 +00:00
.61 >LDA.G ASM.PASS
beq .50 Emit 00 if pending symbol (pass #1)
bra .91
2020-03-02 06:53:19 +00:00
.7 cmp #'l
bne .90
2020-03-02 16:49:47 +00:00
jsr SRC.ComputeRel16
bcs .71
lda SRC.ACC
jsr OUT.EmitByte
bcs .9
lda SRC.ACC+1
bra .50
2020-03-02 16:49:47 +00:00
.71 >LDA.G ASM.PASS
bne .91
lda #0
jsr OUT.EmitByte
bcs .9
lda #0
bra .50 Emit 00 00 if pending symbol (pass #1)
.8 clc
.9 rts
2020-03-06 16:20:29 +00:00
.90 lda #E.INV.CPU.FILE
sec
rts
2020-03-02 16:49:47 +00:00
2019-03-25 07:04:40 +00:00
.91 lda #E.RANGE
sec
rts
*---------------------------------------
SRC.AddToBuf inc SRC.AM.StrBuf
ldy SRC.AM.StrBuf
sta SRC.AM.StrBuf,y
rts
2015-10-28 16:55:12 +00:00
*---------------------------------------
2019-03-25 07:04:40 +00:00
SRC.ExpandAddress
ldy SRC.AM.StrBuf
.1 lda SRC.AM.StrBuf,y
sta SRC.AM.StrBuf+1,y
dey
cmp #'a'
bne .1
ldx #2 "aa"
tya
beq .8
.2 lda SRC.AM.StrBuf,y
cmp #'a'
bne .8
inx "aaa"
.3 dey
bne .2
.8 inc SRC.AM.StrBuf
rts
*---------------------------------------
SRC.ComputeRel8 jsr SRC.ComputeRel
bcc .1
* positive : check 0<r<0000007F
lda SRC.ACC+3
ora SRC.ACC+2
ora SRC.ACC+1
bne .9
lda SRC.ACC
bmi .9
clc
rts
* negative : check FFFFFF80<r<FFFFFFFF
.1 lda SRC.ACC+3
and SRC.ACC+2
and SRC.ACC+1
inc
bne .9
lda SRC.ACC
bpl .9
clc
rts
.9 sec
rts
*---------------------------------------
SRC.ComputeRel16
jsr SRC.ComputeRel
bcc .1
* positive : check 0<r<00007FFF
lda SRC.ACC+3
ora SRC.ACC+2
bne .9
lda SRC.ACC+1
bmi .9
clc
rts
* negative : check FFFF8000<r<FFFFFFFF
.1 lda SRC.ACC+3
and SRC.ACC+2
inc
bne .9
lda SRC.ACC+1
bpl .9
clc
rts
.9 sec
rts
*---------------------------------------
SRC.ComputeRel phy
ldy #ASM.PC
clc
lda SRC.ACC
sbc (pData),y
sta SRC.ACC
iny
lda SRC.ACC+1
sbc (pData),y
sta SRC.ACC+1
iny
lda SRC.ACC+2
sbc (pData),y
sta SRC.ACC+2
iny
lda SRC.ACC+3
sbc (pData),y
sta SRC.ACC+3
2020-03-02 06:53:19 +00:00
ply
rts
*---------------------------------------
2020-02-28 16:30:16 +00:00
SRC.GetDecimal8 jsr SRC.GetDecimal
bcs .9
lda SRC.ACC+1
ora SRC.ACC+2
ora SRC.ACC+3
bne .99 Max .255
lda SRC.ACC
beq .99 .0 is not allowed
* clc
rts
.99 sec
.9 rts
*---------------------------------------
SRC.GetDecimal jsr SRC.GetChar
beq .99
2020-02-28 16:30:16 +00:00
stz SRC.ACC+1
stz SRC.ACC+2
stz SRC.ACC+3
jsr SRC.IsDigit10
bcs .99
2020-02-28 16:30:16 +00:00
and #$0F
sta SRC.ACC
2020-02-28 16:30:16 +00:00
.1 jsr SRC.GetNextChar
bcs .8
2020-02-28 16:30:16 +00:00
cmp #C.SPACE
beq .8
2020-02-28 16:30:16 +00:00
jsr SRC.IsEXPReserved
bcc .8
2020-02-28 16:30:16 +00:00
jsr SRC.IsAMReserved
bcc .8
2020-02-28 16:30:16 +00:00
jsr SRC.IsDigit10
bcs .9
2020-02-28 16:30:16 +00:00
and #$0F
pha
jsr SRC.ACC10
pla
bcs .9
adc SRC.ACC
sta SRC.ACC
bcc .1
2020-02-28 16:30:16 +00:00
inc SRC.ACC+1
bne .1
2020-02-28 16:30:16 +00:00
inc SRC.ACC+2
bne .1
2020-02-28 16:30:16 +00:00
inc SRC.ACC+3
bne .1
2020-02-28 16:30:16 +00:00
2019-03-25 07:04:40 +00:00
.9 lda #E.VAL.TOO.BIG
sec
rts
.8 clc
rts
2020-02-28 16:30:16 +00:00
2019-03-25 07:04:40 +00:00
.99 lda #E.SYNTAX.ERROR
sec
rts
2015-10-30 16:34:59 +00:00
*---------------------------------------
SRC.GetHex jsr SRC.GetNextChar skip '$'
bcs .99
stz SRC.ACC+1
stz SRC.ACC+2
stz SRC.ACC+3
jsr SRC.IsDigit16
bcs .99
sta SRC.ACC
.1 jsr SRC.GetNextChar
bcs .8
2020-02-28 16:30:16 +00:00
cmp #C.SPACE
beq .8
2020-02-28 16:30:16 +00:00
jsr SRC.IsEXPReserved
bcc .8
2020-02-28 16:30:16 +00:00
jsr SRC.IsAMReserved
bcc .8
2020-02-28 16:30:16 +00:00
jsr SRC.IsDigit16
bcs .99
2020-02-28 16:30:16 +00:00
ldx #4
2020-02-28 16:30:16 +00:00
.2 asl SRC.ACC
rol SRC.ACC+1
rol SRC.ACC+2
rol SRC.ACC+3
bcs .9
2020-02-28 16:30:16 +00:00
dex
bne .2
2020-02-28 16:30:16 +00:00
ora SRC.ACC
sta SRC.ACC
bra .1
2020-02-28 16:30:16 +00:00
.8 clc
rts
2020-02-28 16:30:16 +00:00
2019-03-25 07:04:40 +00:00
.9 lda #E.VAL.TOO.BIG
sec
rts
2020-02-28 16:30:16 +00:00
2019-03-25 07:04:40 +00:00
.99 lda #E.SYNTAX.ERROR
sec
rts
2015-10-28 16:55:12 +00:00
*---------------------------------------
SRC.GetOctal jsr SRC.GetNextChar skip '&'
bcs .99
2020-02-28 16:30:16 +00:00
stz SRC.ACC+1
stz SRC.ACC+2
stz SRC.ACC+3
jsr SRC.IsDigit8
bcs .99
2020-02-28 16:30:16 +00:00
and #$0F
sta SRC.ACC
2020-02-28 16:30:16 +00:00
.1 jsr SRC.GetNextChar
bcs .8
2020-02-28 16:30:16 +00:00
cmp #C.SPACE
beq .8
2020-02-28 16:30:16 +00:00
jsr SRC.IsEXPReserved
bcc .8
2020-02-28 16:30:16 +00:00
jsr SRC.IsAMReserved
bcc .8
2020-02-28 16:30:16 +00:00
jsr SRC.IsDigit8
bcs .9
2020-02-28 16:30:16 +00:00
asl
asl
asl
asl
asl
2020-02-28 16:30:16 +00:00
ldx #3
2020-02-28 16:30:16 +00:00
.2 asl
rol SRC.ACC
rol SRC.ACC+1
rol SRC.ACC+2
rol SRC.ACC+3
bcs .9
2020-02-28 16:30:16 +00:00
dex
bne .2
bra .1
2020-02-28 16:30:16 +00:00
.8 clc
rts
2020-02-28 16:30:16 +00:00
2019-03-25 07:04:40 +00:00
.9 lda #E.VAL.TOO.BIG
sec
rts
2020-02-28 16:30:16 +00:00
2019-03-25 07:04:40 +00:00
.99 lda #E.SYNTAX.ERROR
sec
rts
2015-10-06 16:14:48 +00:00
*---------------------------------------
SRC.GetBinary jsr SRC.GetNextChar skip '%'
bcs .99
2020-02-24 16:37:55 +00:00
stz SRC.ACC+1
stz SRC.ACC+2
stz SRC.ACC+3
cmp #'1'
beq .10
2020-02-24 16:37:55 +00:00
cmp #'0'
bne .99
2020-02-24 16:37:55 +00:00
.10 and #$01
sta SRC.ACC
2020-02-24 16:37:55 +00:00
.1 jsr SRC.GetNextChar
bcs .8
2020-02-24 16:37:55 +00:00
cmp #'.' allow %111.00.1
beq .1
cmp #C.SPACE
beq .8
2020-02-24 16:37:55 +00:00
jsr SRC.IsEXPReserved
bcc .8
2020-02-24 16:37:55 +00:00
jsr SRC.IsAMReserved
bcc .8
2020-02-24 16:37:55 +00:00
cmp #'1'
beq .11
2020-02-24 16:37:55 +00:00
cmp #'0'
bne .8
2020-02-24 16:37:55 +00:00
.11 lsr
rol SRC.ACC
rol SRC.ACC+1
rol SRC.ACC+2
rol SRC.ACC+3
2020-02-24 16:37:55 +00:00
bcc .1
2019-03-25 07:04:40 +00:00
.9 lda #E.VAL.TOO.BIG
sec
rts
2020-02-24 16:37:55 +00:00
2019-03-25 07:04:40 +00:00
.99 lda #E.SYNTAX.ERROR
sec
rts
2020-02-24 16:37:55 +00:00
.8 clc
rts
2015-10-06 16:14:48 +00:00
*---------------------------------------
SRC.GetKeyword >STYA ZPPtr1 KeyWord table
ldx #0 Keyword.ID
.1 phx
lda (ZPPtr1)
beq .9 End Of table
tax KW len
ldy #0
.3 lda (ZPLinePtr),y
beq .6
jsr SRC.IsKeywordLetterUC
bcs .6
iny
cmp (ZPPtr1),y
2019-03-25 07:04:40 +00:00
bne .7
dex
bne .3
lda (ZPLinePtr),y All chars match...
beq .4 End of Line ?
jsr SRC.IsKeywordLetterUC
2019-03-25 07:04:40 +00:00
bcc .7 Additional letters...
.4 lda ZPLinePtr found!
clc
2019-03-25 07:04:40 +00:00
adc (ZPPtr1) skip KW in source line
sta ZPLinePtr
bcc .5
inc ZPLinePtr+1
.5 plx Keyword.ID
clc
rts
2019-10-03 06:25:27 +00:00
.6
2019-03-25 07:04:40 +00:00
.7 lda (ZPPtr1)
sec Add keyword Len+1
adc ZPPtr1
sta ZPPtr1
2019-03-25 07:04:40 +00:00
bcc .8
inc ZPPtr1+1
2019-03-25 07:04:40 +00:00
.8 plx Keyword.ID
inx
inx
bra .1
.9 plx
sec
rts
2015-10-30 16:34:59 +00:00
*---------------------------------------
SRC.IsAMReserved
ldx SRC.AM.RESERVED
.1 cmp SRC.AM.RESERVED,x
beq .8
dex
bne .1
sec
rts
.8 clc
2019-10-03 06:25:27 +00:00
rts
2015-12-17 16:57:35 +00:00
*---------------------------------------
SRC.IsMODReserved
ldx SRC.MOD.RESERVED
.1 cmp SRC.MOD.RESERVED,x
beq .8
dex
bne .1
sec
rts
.8 clc
2019-10-03 06:25:27 +00:00
rts
*---------------------------------------
SRC.IsEXPReserved
ldx SRC.EXP.RESERVED
.1 cmp SRC.EXP.RESERVED,x
beq SRC.IsEXPReserved.8
dex
bne .1
sec
rts
SRC.IsEXPReserved.8
clc
2019-10-03 06:25:27 +00:00
rts
2015-10-30 16:34:59 +00:00
*---------------------------------------
SRC.IsKeywordLetterUC
cmp #'.'
beq SRC.IsEXPReserved.8
cmp #'_'
beq SRC.IsEXPReserved.8
cmp #'A'
bcc .9
cmp #'Z'+1
bcc .99
cmp #'a'
bcc .9
cmp #'z'+1
eor #$20
rts CC if lowercase
2019-10-03 06:25:27 +00:00
.9 sec
.99 rts
*---------------------------------------
SRC.IsLetterOrDigit
jsr SRC.IsDigit10
bcc SRC.IsLetterRTS
2015-10-06 16:14:48 +00:00
*---------------------------------------
SRC.IsLetter cmp #'A'
bcc .9
cmp #'Z'+1
bcc SRC.IsLetterRTS
cmp #'a'
bcc .9
cmp #'z'+1
rts CC if lowercase
2019-10-03 06:25:27 +00:00
.9 sec
SRC.IsLetterRTS rts
2015-10-06 16:14:48 +00:00
*---------------------------------------
SRC.IsDigit16 jsr SRC.IsDigit10
bcc .8
cmp #'A'
bcc .9
cmp #'F'+1
bcc .1
cmp #'a'
bcc .9
cmp #'f'+1
bcs .9
eor #$20
2019-10-03 06:25:27 +00:00
.1
* clc
sbc #'A'-11 cc so A->10 (11-CC)
clc
2019-10-03 06:25:27 +00:00
.8 and #$0F
rts
.9 sec
rts
2015-10-28 16:55:12 +00:00
*---------------------------------------
SRC.IsDigit10 cmp #'0'
bcc .9
cmp #'9'+1
rts cc if ok, cs if not
.9 sec
rts
2015-10-30 16:34:59 +00:00
*---------------------------------------
SRC.IsDigit8 cmp #'0'
bcc .9
cmp #'7'+1
rts cc if ok, cs if not
.9 sec
rts
2018-01-11 16:34:09 +00:00
*---------------------------------------
SRC.GetNextCharNB
jsr SRC.GetNextChar
bcs .9
2020-02-28 07:21:46 +00:00
cmp #C.SPACE
beq SRC.GetNextCharNB
clc
.9 rts
2015-10-06 16:14:48 +00:00
*---------------------------------------
SRC.GetNextCharUC
jsr SRC.GetNextChar
bcs .9
cmp #'a'
bcc .8
cmp #'z'+1
bcs .8
eor #$20 to Uppercase
.8 clc
.9 rts
2018-01-11 16:34:09 +00:00
*---------------------------------------
SRC.GetNextChar lda (ZPLinePtr)
beq SRC.GetChar.ERR
cmp #$0D
beq SRC.GetChar.ERR
inc ZPLinePtr
bne SRC.GetChar
inc ZPLinePtr+1
SRC.GetChar lda (ZPLinePtr)
beq SRC.GetChar.ERR
cmp #$0D
beq SRC.GetChar.ERR
clc
rts
SRC.GetChar.ERR sec
rts
2015-10-06 16:14:48 +00:00
*---------------------------------------
SRC.ACC10 lda SRC.ACC ACC*2-> ACC & ACCTMP
asl
sta SRC.ACC
sta SRC.ACCTMP
lda SRC.ACC+1
rol
sta SRC.ACC+1
sta SRC.ACCTMP+1
lda SRC.ACC+2
rol
sta SRC.ACC+2
sta SRC.ACCTMP+2
lda SRC.ACC+3
rol
sta SRC.ACC+3
sta SRC.ACCTMP+3
bcs .9
ldx #2
.1 asl SRC.ACC ACC=ACC*4
rol SRC.ACC+1
rol SRC.ACC+2
rol SRC.ACC+3
bcs .9
dex
bne .1
lda SRC.ACC CC from ROL SRC.ACC+3
adc SRC.ACCTMP
sta SRC.ACC
lda SRC.ACC+1
adc SRC.ACCTMP+1
sta SRC.ACC+1
lda SRC.ACC+2
adc SRC.ACCTMP+2
sta SRC.ACC+2
lda SRC.ACC+3
adc SRC.ACCTMP+3
sta SRC.ACC+3 CS if overflow
2019-10-03 06:25:27 +00:00
.9 rts
2015-10-06 16:14:48 +00:00
*---------------------------------------
2020-03-06 16:20:29 +00:00
SRC.GetACCSize lda SRC.ACC.F
and #SYMG.F.FWREF
beq .1
ldx #2
rts
.1 ldx SRC.ACC.SIZE
.2 lda SRC.ACC-1,x
bne .8
dex
bne .2
inx
.8 rts
*---------------------------------------
2020-02-24 13:33:28 +00:00
SRC.DoCheck sec
>LDA.G ASM.DO.StackPtr
beq .8
2020-02-25 16:42:22 +00:00
2020-02-24 13:33:28 +00:00
clc
adc #ASM.DO.Stack-1
tay
lda (pData),y
asl
.8 rts CS if TRUE
*---------------------------------------
2015-10-06 16:14:48 +00:00
MAN
2019-01-28 07:44:37 +00:00
SAVE USR/SRC/BIN/ASM.S.SRC
LOAD USR/SRC/BIN/ASM.S
2015-10-06 16:14:48 +00:00
ASM