A2osX/BIN/ASM.S.SRC.txt

NEW
  AUTO 3,1
*---------------------------------------
SRC.ParseLine	jsr OUT.Reset
				jsr SRC.GetChar
				bcs .8
				cmp #'*'				Comment?
				beq .8
				cmp #';'				Comment?
				beq .8
				>LDA.G ASM.DO.StackPtr
				beq .1
				clc
				adc #ASM.DO.Stack-1
				tay
				lda (pData),y
				beq .8
.1				>LDA.G ASM.MA.ON
				bmi SRC.ParseLine.MACRO

				jmp SRC.ParseLine.LABEL
.8				clc
.9				rts
*---------------------------------------			
SRC.ParseLine.Macro 
				>STZ.G MAC.BufPtr
				sta (ZPMacroBuf)
				lda (ZPLinePtr)
				cmp #' '				No label, scan to DIR/OP if any
				bne .1
				jsr SRC.GetNextCharNB
				bcs .8
				lda #' '				Store ONE blank
				jsr MAC.AddChar
				bcs .90
				lda (ZPLinePtr)			get back non blank char
				bra .2
.1				jsr MAC.AddChar
				bcs .99
				jsr SRC.GetNextChar
				bcs .80
				cmp #' '
				bne .1
				jsr MAC.AddChar
.90				bcs .99
				jsr SRC.GetNextCharNB
				bcs .80
.2				cmp #'.'				Directive ?
				bne .4

				ldy #1
				lda (ZPLinePtr),y
				beq .3
				cmp #'E'
				beq .21
				cmp #'e'
				bne .3
.21				iny
				lda (ZPLinePtr),y
				beq .3
				cmp #'M'
				beq .22
				cmp #'m'
				bne .3
.22				>STZ.G ASM.MA.ON
.8				clc
				rts

.80				lda #C.CR
				jmp MAC.AddChar
.3				lda (ZPLinePtr)
.4				jsr MAC.AddChar
				bcs .99
				jsr SRC.GetNextChar
				bcs .80
				cmp #' '
				bne .4
				jsr SRC.GetNextChar
				bcs .8
				cmp #' '
				beq .80					Comments...
				pha
				lda #' '
				jsr MAC.AddChar
				pla
				bcs .99
.5				jsr MAC.AddChar			Store ARG....
				bcs .99
				jsr SRC.GetNextChar
				bcs .80
				cmp #' '
				bne .5
				bra .80					End of Line
.99				SRC.ParseLine.RTS
				rts
*---------------------------------------
SRC.ParseLine.LABEL	
				jsr SRC.GetChar
				cmp #' '				no label...go scan dir/opcode
				beq SRC.ParseLine.DirOp
				tax						save char...
				cmp #'.'				local symbol?
				beq	.1
				cmp #':'				private symbol?
				bne .8
				>LDA.G MAC.StkPtr
				beq SRC.ParseLine.InvLbl

.1				>LDA.G SYM.bInGlobal	Not relative to Global label...
				bpl SRC.ParseLine.InvLbl
				jsr SRC.GetNextChar
				bcs SRC.ParseLine.InvLbl
				jsr SRC.GetDecimal
				bcs SRC.ParseLine.InvLbl
				lda SRC.ACC+1
				ora SRC.ACC+2
				ora SRC.ACC+3
				bne SRC.ParseLine.InvLbl	Max .255
				lda SRC.ACC
				beq SRC.ParseLine.InvLbl	.0 is not allowed

				cpx #':'
				beq .2
				jsr SYM.NewLocalA
				bra .3
.2				jsr SYM.NewPrivateA

.3				bcs SRC.ParseLine.RTS
				bra SRC.ParseLine.DirOp

.8				jsr SYM.NewOrGetGlobal
				bcs SRC.ParseLine.RTS
*---------------------------------------
SRC.ParseLine.DirOp	
				jsr SRC.GetNextCharNB	Scan for an Opcode...
				bcs SRC.ParseLine.Ok
				cmp #'.'
				bne .5
				jsr SRC.GetNextChar
				bcs SRC.ParseLine.InvDir
				jsr SRC.ParseLine.Dir
				bcs SRC.ParseLine.Err
				bra SRC.ParseLine.Ok

.5				cmp #'>'
				bne SRC.ParseLine.OpCode
				jsr MAC.Exec
				bcs SRC.ParseLine.Err
				bra SRC.ParseLine.Ok
SRC.ParseLine.Ok
				clc
SRC.ParseLine.Err
				rts

SRC.ParseLine.InvLbl
				lda #E.INV.LABEL
				sec
				rts
SRC.ParseLine.InvDir
				lda #E.INV.DIR
				sec
				rts
*---------------------------------------
SRC.ParseLine.Dir
				>LDYA L.T.DIRECTIVES
				jsr SRC.GetKeyword

				bcs SRC.ParseLine.InvDir
				jmp (J.DIRECTIVES,x)
*---------------------------------------
SRC.ParseLine.OpCode
				>LDYA ZPOpsPtr
				>STYA ZPOpDefPtr

.1				lda (ZPOpDefPtr)		End Of OpCode List
				ldy #1
				ora (ZPOpDefPtr),y
				beq .9
				lda ZPOpDefPtr
				clc
				adc #2
				sta ZPPtr2
				lda ZPOpDefPtr+1
				adc #0
				sta ZPPtr2+1
				lda (ZPPtr2)
				tax
				ldy #0
.2				lda (ZPLinePtr),y
				beq .7
				cmp #'a'
				bcc .3
				cmp #'z'+1
				bcs .3
				eor #$20
.3				iny
				cmp (ZPPtr2),y
				bne .7
				dex
				bne .2

				lda (ZPLinePtr),y
				beq .8					End of Line, no AM
				cmp #C.SPACE			A space after opcode ?
				bne .7
				tya
				sec						skip OP + ' '
				adc ZPLinePtr
				sta ZPLinePtr
				bcc .5
				inc ZPLinePtr+1
.5				jsr SRC.GetChar
				bcs .8					Nothing after OP ' '
				cmp #C.SPACE			OP '  ' ?
				beq .8
				bra SRC.ParseLine.AM
.7				lda ZPOpDefPtr
				clc
				adc (ZPOpDefPtr)
				tax
				lda ZPOpDefPtr+1
				ldy #1
				adc (ZPOpDefPtr),y
				stx ZPOpDefPtr
				sta ZPOpDefPtr+1
				bra .1
.8				lda #$ff
				>STA.G SRC.AMID
				jsr SRC.ParseLine.AMCheck4OP
				bcs .99
				jmp SRC.ParseLine.Emit
.9				lda #E.INV.OPCODE
				sec
.99				rts
*---------------------------------------
SRC.ParseLine.AM
				stz SRC.AM.StrBuf

.1				jsr SRC.IsAMReserved
				bcs .2
				jsr SRC.AddToBuf
				bra .7
.2				jsr SRC.IsLetter		Any register?
				bcs .6					no, try something else
				>LDYA ZPRPtr			Check in register table
				jsr SRC.GetKeyword
				bcs .6
				lda (ZPPtr1)			get register len
				tax
.4				inc ZPPtr1
				bne .5
				inc ZPPtr1+1
.5				lda (ZPPtr1)
				jsr SRC.AddToBuf
				dex
				bne .4
				bra .74
.6				jsr EXP.Eval
				bcs .99
				>LDA.G EXP.Prefix		
				beq .75
				jsr SRC.AddToBuf

.75				ldx SRC.ACC.SIZE
				bne .73
				ldx #2				FWREF ...assume 2 bytes...
.73				lda SRC.ACC-1,x
				bne .72

				dex
				bne .73
				inx
.72				lda #'a'
.71				jsr SRC.AddToBuf
				dex
				bne .71

.74				jsr SRC.GetChar
				bcs .8
				cmp #C.SPACE
				bne .1
				bra .8
.7				jsr SRC.GetNextChar
				bcs .8
				cmp #C.SPACE
				bne .1
.8				jsr SRC.ParseLine.AMCheck
				bcs .9
				jsr SRC.ParseLine.AMCheck4OP
				bcc .88

.80				jsr SRC.ExpandAddress
				cpx #5
				bne .8
	
.9				lda #E.INV.AM
				sec
.99				rts

.88				jmp SRC.ParseLine.Emit
*---------------------------------------
SRC.ParseLine.AMCheck
*				ldx #5

*.10			lda SRC.ACC.F,x
*				>PUSHA
*				dex
*				bpl .10

*				>PUSHBI 6
*				>LDYA L.MSG.ACC
*				>SYSCALL printf
*				>LDYA L.SRC.AM.StrBuf
*				jsr DEBUG.PSTR
				>LDYA ZPAMPtr			Check if AM is valid for CPU
				>STYA ZPPtr1
				ldx #0
.1				inx
*				phx
*				lda #'?'
*				>SYSCALL putchar
*				>LDYA ZPPtr1
*				jsr DEBUG.PSTR
*				plx
				lda (ZPPtr1)
				beq .9
				cmp SRC.AM.StrBuf 
				bne .7
				tay
.2				lda (ZPPtr1),y
				cmp SRC.AM.StrBuf,y
				bne .6
				dey
				bne .2
				txa
				>STA.G SRC.AMID

				clc
				rts
.6				lda (ZPPtr1)
.7				sec
				adc ZPPtr1
				sta ZPPtr1
				bcc .1
				inc ZPPtr1+1
				bra .1
.9				sec
				rts
*---------------------------------------
SRC.ParseLine.AMCheck4OP
				lda ZPOpDefPtr			Skip nextLoHi,L,"ADC"
				ldx ZPOpDefPtr+1
				clc
				adc #2					Skip nextLoHi
				bcc .11
				inx
.11				sec						skip LEN Byte
				ldy #2					LEN Byte
				adc (ZPOpDefPtr),y
				bcc .10
				inx		
.10				sta ZPPtr1
				stx ZPPtr1+1
				lda (ZPPtr1)			AMID...

.1				>CMP.G SRC.AMID
				beq .8
				lda ZPPtr1				Skip AMID,L,"39aa"
				ldx ZPPtr1+1
				inc						AMID....
				bne .12
				inx
.12				sec						LEN byte...
				ldy #1					String...
				adc (ZPPtr1),y		
				bcc .2
				inx
.2				sta ZPPtr1
				stx ZPPtr1+1
				lda (ZPPtr1)
				bne .1

				lda #E.INV.AM.4.OC
				sec
				rts
.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
				iny
.4				lda (ZPOpDefPtr),y
				cmp #'a
				bcs .5					lowercase, go compute address
				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
.5				bne .6					cmp #'a'....
				ldx SRC.ACCTMP
				inc SRC.ACCTMP
				lda SRC.ACC,x
				bra .50

.6				cmp #'r
				bne .7
				lda SRC.ACC.SIZE
				beq .50					Emit 00 if pending symbol (pass #1)
				jsr SRC.ComputeRel8
				bcs .91
				bra .50
.7				cmp #'l
				bne .90

				lda SRC.ACC.SIZE
				bne .71
				jsr OUT.EmitByte		Emit 00 00 if pending symbol (pass #1)
				bcs .9
				lda #0
				bra .50
.71				jsr SRC.ComputeRel16
				bcs .91
				lda SRC.ACC
				jsr OUT.EmitByte
				bcs .9
				lda SRC.ACC+1
				bra .50

.8				clc
.9				rts

.90				lda #E.INV.T.FILE
				sec
				rts
.91				lda #E.RANGE
				sec
				rts
*---------------------------------------
SRC.AddToBuf	inc SRC.AM.StrBuf
				ldy SRC.AM.StrBuf
				sta SRC.AM.StrBuf,y
				rts
*---------------------------------------
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
				ply
				rts			
*---------------------------------------
SRC.GetDecimal	jsr SRC.GetChar
				beq .99
				stz SRC.ACC+1
				stz SRC.ACC+2
				stz SRC.ACC+3
				jsr SRC.IsDigit10
				bcs .99
				and #$0F
				sta SRC.ACC
.1				jsr SRC.GetNextChar
				bcs .8
				cmp #' '
				beq .8
				jsr SRC.IsEXPReserved
				bcc .8
				jsr SRC.IsAMReserved
				bcc .8
				jsr SRC.IsDigit10
				bcs .9
				and #$0F
				pha
				jsr SRC.ACC10
				pla
				bcs .9

				adc SRC.ACC
				sta SRC.ACC
				bcc .1
				inc SRC.ACC+1
				bne .1
				inc SRC.ACC+2
				bne .1
				inc SRC.ACC+3
				bne .1
.9				lda #E.VAL.TOO.BIG
				sec
				rts

.8				clc
				rts
.99				lda #E.SYNTAX.ERROR
				sec
				rts
*---------------------------------------
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
				cmp #' '
				beq .8
				jsr SRC.IsEXPReserved
				bcc .8
				jsr SRC.IsAMReserved
				bcc .8
				jsr SRC.IsDigit16
				bcs .99
				ldx #4
.2				asl SRC.ACC
				rol SRC.ACC+1
				rol SRC.ACC+2
				rol SRC.ACC+3
				bcs .9
				dex
				bne .2
				ora SRC.ACC
				sta SRC.ACC
				bra .1
.8				clc
				rts
.9				lda #E.VAL.TOO.BIG
				sec
				rts
.99				lda #E.SYNTAX.ERROR
				sec
				rts
*---------------------------------------
SRC.GetOctal	jsr SRC.GetNextChar	skip '&'
				bcs .99
				stz SRC.ACC+1
				stz SRC.ACC+2
				stz SRC.ACC+3
				jsr SRC.IsDigit8
				bcs .99
				and #$0F
				sta SRC.ACC
.1				jsr SRC.GetNextChar
				bcs .8
				cmp #' '
				beq .8
				jsr SRC.IsEXPReserved
				bcc .8
				jsr SRC.IsAMReserved
				bcc .8
				jsr SRC.IsDigit8
				bcs .9
				asl
				asl
				asl
				asl
				asl
				ldx #3
.2				asl
				rol SRC.ACC
				rol SRC.ACC+1
				rol SRC.ACC+2
				rol SRC.ACC+3
				bcs .9
				dex
				bne .2
				bra .1
.8				clc
				rts
.9				lda #E.VAL.TOO.BIG
				sec
				rts
.99				lda #E.SYNTAX.ERROR
				sec
				rts
*---------------------------------------
SRC.GetBinary	jsr SRC.GetNextChar	skip '%'
				bcs .99
				stz SRC.ACC+1
				stz SRC.ACC+2
				stz SRC.ACC+3
				cmp #'1'
				beq .10
				cmp #'0'
				bne .99
.10				and #$01
				sta SRC.ACC
.1				jsr SRC.GetNextChar
				bcs .8
				cmp #' '
				beq .8
				jsr SRC.IsEXPReserved
				bcc .8
				jsr SRC.IsAMReserved
				bcc .8
				cmp #'1'
				beq .11
				cmp #'0'
				bne .8
.11				lsr
				rol SRC.ACC
				rol SRC.ACC+1
				rol SRC.ACC+2
				rol SRC.ACC+3
				bcs .9
				bra .1
.8				clc
				rts
.9				lda #E.VAL.TOO.BIG
				sec
				rts
.99				lda #E.SYNTAX.ERROR
				sec
				rts
*---------------------------------------
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
				bne .7
				dex
				bne .3
				lda (ZPLinePtr),y	All chars match...
				beq .4				End of Line ?
				jsr SRC.IsKeywordLetterUC
				bcc .7				Additional letters...
.4				lda ZPLinePtr		found!
				clc
				adc (ZPPtr1)		skip KW in source line
				sta ZPLinePtr
				bcc .5
				inc ZPLinePtr+1
.5				plx					Keyword.ID
				clc
				rts

.6
.7				lda (ZPPtr1)
				sec					Add keyword Len+1
				adc ZPPtr1
				sta ZPPtr1
				bcc .8
				inc ZPPtr1+1
.8				plx					Keyword.ID
				inx
				inx
				bra .1
.9				plx
				sec
				rts
*---------------------------------------
SRC.IsAMReserved
				ldx SRC.AM.RESERVED
.1				cmp SRC.AM.RESERVED,x
				beq .8
				dex
				bne .1
				sec
				rts
.8				clc
				rts
*---------------------------------------
SRC.IsMODReserved
				ldx SRC.MOD.RESERVED
.1				cmp SRC.MOD.RESERVED,x
				beq .8
				dex
				bne .1
				sec
				rts
.8				clc
				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
				rts
*---------------------------------------
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
.9				sec
.99				rts	
*---------------------------------------
SRC.IsLetterOrDigit 
				jsr SRC.IsDigit10
				bcc SRC.IsLetterRTS
*---------------------------------------
SRC.IsLetter	cmp #'A'
				bcc .9
				cmp #'Z'+1
				bcc SRC.IsLetterRTS

				cmp #'a'
				bcc .9
				cmp #'z'+1
				rts					CC if lowercase
.9				sec
SRC.IsLetterRTS	rts
*---------------------------------------
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
.1
*				clc
				sbc #'A'-11			cc so A->10 (11-CC)
				clc
.8				and #$0F
				rts
.9				sec
				rts
*---------------------------------------
SRC.IsDigit10	cmp #'0'
				bcc .9
				cmp #'9'+1
				rts					cc if ok, cs if not
.9				sec
				rts
*---------------------------------------
SRC.IsDigit8	cmp #'0'
				bcc .9
				cmp #'7'+1
				rts					cc if ok, cs if not
.9				sec
				rts
*---------------------------------------
SRC.GetNextCharNB
				jsr SRC.GetNextChar
				bcs .9
				cmp #' '
				beq SRC.GetNextCharNB
				clc
.9				rts
*---------------------------------------
SRC.GetNextCharUC
				jsr SRC.GetNextChar
				bcs .9
				cmp #'a'
				bcc .8
				cmp #'z'+1
				bcs .8
				eor #$20			to Uppercase
.8				clc
.9				rts
*---------------------------------------
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
*---------------------------------------
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
.9				rts
*---------------------------------------
DEBUG.PSTR		>PUSHYA
				>PUSHBI 2
				>LDYA L.MSG.PSTR
				>SYSCALL printf
				rts
*---------------------------------------
MAN
SAVE USR/SRC/BIN/ASM.S.SRC
LOAD USR/SRC/BIN/ASM.S
ASM