2018-01-10 16:34:57 +00:00
|
|
|
|
NEW
|
2019-03-18 16:48:16 +00:00
|
|
|
|
PREFIX
|
2018-01-10 16:34:57 +00:00
|
|
|
|
AUTO 4,1
|
2018-03-28 15:23:32 +00:00
|
|
|
|
.LIST OFF
|
|
|
|
|
.OP 65C02
|
|
|
|
|
.OR $2000
|
2019-03-25 07:04:40 +00:00
|
|
|
|
.TF BIN/ASM
|
|
|
|
|
*---------------------------------------
|
|
|
|
|
PAGE.LEN .EQ 23
|
2015-03-14 21:47:37 +00:00
|
|
|
|
*---------------------------------------
|
2018-07-23 15:28:42 +00:00
|
|
|
|
.INB INC/MACROS.I
|
|
|
|
|
.INB INC/A2OSX.I
|
2019-03-25 07:04:40 +00:00
|
|
|
|
.INB INC/MLI.E.I
|
2015-03-14 21:47:37 +00:00
|
|
|
|
*---------------------------------------
|
2019-03-19 16:52:08 +00:00
|
|
|
|
.DUMMY
|
|
|
|
|
.OR ZPBIN
|
|
|
|
|
ZS.START
|
2019-03-20 16:55:26 +00:00
|
|
|
|
ZPPtr1 .BS 2
|
|
|
|
|
ZPPtr2 .BS 2
|
2018-03-28 15:23:32 +00:00
|
|
|
|
|
2019-03-25 07:04:40 +00:00
|
|
|
|
ZPTmpBuf .BS 2
|
2019-03-20 16:55:26 +00:00
|
|
|
|
ZPLineBuf .BS 2
|
|
|
|
|
ZPLinePtr .BS 2
|
|
|
|
|
ZPGlobalBuf .BS 2
|
2018-03-28 15:23:32 +00:00
|
|
|
|
|
2019-03-20 16:55:26 +00:00
|
|
|
|
ZPMacroBuf .BS 2
|
|
|
|
|
ZPCtxBuf .BS 2
|
2018-04-06 15:10:02 +00:00
|
|
|
|
|
2019-03-20 16:55:26 +00:00
|
|
|
|
ZPAMPtr .BS 2
|
|
|
|
|
ZPRPtr .BS 2
|
|
|
|
|
ZPOpsPtr .BS 2
|
|
|
|
|
ZPOpDefPtr .BS 2
|
|
|
|
|
|
2019-03-19 16:52:08 +00:00
|
|
|
|
ZS.END .ED
|
2015-10-06 16:14:48 +00:00
|
|
|
|
*---------------------------------------
|
2019-01-29 16:42:06 +00:00
|
|
|
|
* Symbols
|
|
|
|
|
*---------------------------------------
|
2019-03-20 16:55:26 +00:00
|
|
|
|
SYMG.F .EQ 0
|
|
|
|
|
SYMG.F.FWREF .EQ %10000000
|
|
|
|
|
SYMG.F.RW .EQ %01000000
|
|
|
|
|
SYMG.F.LOCALS .EQ %00100000
|
|
|
|
|
SYMG.SIZE .EQ 1 1,2,3,4
|
2018-03-28 15:23:32 +00:00
|
|
|
|
SYMG.V .EQ 2
|
2018-03-23 15:57:35 +00:00
|
|
|
|
*
|
2019-03-20 16:55:26 +00:00
|
|
|
|
SYMG .EQ 6 DWORD
|
2018-03-22 16:45:23 +00:00
|
|
|
|
*---------------------------------------
|
2019-01-29 16:42:06 +00:00
|
|
|
|
SYML.ID .EQ 0 1..255
|
2019-03-20 16:55:26 +00:00
|
|
|
|
SYML.V .EQ 1 DWORD
|
2018-03-23 15:57:35 +00:00
|
|
|
|
*
|
2019-03-20 16:55:26 +00:00
|
|
|
|
SYML .EQ 5
|
2018-01-19 16:21:31 +00:00
|
|
|
|
*---------------------------------------
|
2018-04-06 15:10:02 +00:00
|
|
|
|
MCTX.LEN .EQ 0
|
|
|
|
|
MCTX.PTR .EQ 1
|
|
|
|
|
MCTX.ID .EQ 2
|
|
|
|
|
MCTX.ARGS .EQ 4
|
|
|
|
|
*---------------------------------------
|
2018-03-28 15:23:32 +00:00
|
|
|
|
ASM.T.AM .EQ 0
|
|
|
|
|
ASM.T.R .EQ 2
|
|
|
|
|
ASM.T.O .EQ 4
|
2015-10-28 16:55:12 +00:00
|
|
|
|
*---------------------------------------
|
2018-04-06 15:10:02 +00:00
|
|
|
|
DO.MAXDEPTH .EQ 8
|
|
|
|
|
IN.MAXDEPTH .EQ 7
|
|
|
|
|
MA.MAXDEPTH .EQ 8
|
2015-03-14 21:47:37 +00:00
|
|
|
|
*---------------------------------------
|
2019-03-25 07:04:40 +00:00
|
|
|
|
E.SYNTAX.ERROR .EQ $A0
|
|
|
|
|
E.SYM.TOO.LONG .EQ $A1
|
|
|
|
|
E.VAL.TOO.BIG .EQ $A2
|
|
|
|
|
E.LINE.TOO.LONG .EQ $A3
|
|
|
|
|
E.INV.LABEL .EQ $A4
|
|
|
|
|
E.INV.DIR .EQ $A5
|
|
|
|
|
E.INV.OPCODE .EQ $A6
|
|
|
|
|
E.INV.AM.SYN .EQ $A7
|
|
|
|
|
E.INV.AM .EQ $A8
|
|
|
|
|
E.INV.AM.4.OC .EQ $A9
|
|
|
|
|
E.RANGE .EQ $AA
|
|
|
|
|
E.UNDEF.SYMBOL .EQ $AB
|
|
|
|
|
E.SYMBOL.REDEF .EQ $AC
|
|
|
|
|
E.TOO.MANY.DO .EQ $AD
|
|
|
|
|
E.ELSE.WITHOUT.DO .EQ $AE
|
|
|
|
|
E.TOO.MANY.LOCAL .EQ $AF
|
|
|
|
|
E.MISSING.EXP .EQ $B0
|
|
|
|
|
E.EXP.SYN.ERROR .EQ $B1
|
|
|
|
|
E.MACRO.INV.DEF .EQ $B2
|
|
|
|
|
E.MACRO.TOO.BIG .EQ $B3
|
|
|
|
|
E.MACRO.INV .EQ $B4
|
|
|
|
|
E.MACRO.TOO.MANY .EQ $B5
|
|
|
|
|
*
|
|
|
|
|
E.INV.ARGS .EQ $BA
|
|
|
|
|
E.INV.T.FILE .EQ $BC
|
|
|
|
|
E.SRC.INV.TYPE .EQ $BD
|
|
|
|
|
E.SRC.TOO.MANY.IN .EQ $BE
|
|
|
|
|
E.SRC.UNEXP.EOF .EQ $BF
|
2015-08-05 20:38:05 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
* File Header (16 Bytes)
|
|
|
|
|
*--------------------------------------
|
2018-03-28 15:23:32 +00:00
|
|
|
|
CS.START cld
|
|
|
|
|
jmp (.1,x)
|
|
|
|
|
.DA #$61 6502,Level 1 (65c02)
|
|
|
|
|
.DA #1 BIN Layout Version 1
|
2018-11-26 21:52:49 +00:00
|
|
|
|
.DA #S.PS.F.EVENT S.PS.F
|
|
|
|
|
.DA #0
|
2018-03-28 15:23:32 +00:00
|
|
|
|
.DA CS.END-CS.START CS
|
|
|
|
|
.DA DS.END-DS.START DS
|
2019-03-19 16:52:08 +00:00
|
|
|
|
.DA #ZS.END-ZS.START Zero Page Size
|
|
|
|
|
.DA #64 ZP
|
2018-03-28 15:23:32 +00:00
|
|
|
|
.DA 0
|
2015-08-05 20:38:05 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
* Relocation Table
|
|
|
|
|
*--------------------------------------
|
2018-03-28 15:23:32 +00:00
|
|
|
|
.1 .DA CS.INIT
|
|
|
|
|
.DA CS.RUN
|
|
|
|
|
.DA CS.DOEVENT
|
|
|
|
|
.DA CS.QUIT
|
|
|
|
|
L.MSG.HELP .DA MSG.HELP
|
|
|
|
|
L.MSG.OUT0 .DA MSG.OUT0
|
|
|
|
|
.DA MSG.OUT1
|
|
|
|
|
.DA MSG.OUT2
|
|
|
|
|
.DA MSG.OUT3
|
|
|
|
|
L.MSG.EQU0 .DA MSG.EQU0
|
|
|
|
|
.DA MSG.EQU1
|
|
|
|
|
.DA MSG.EQU2
|
|
|
|
|
.DA MSG.EQU3
|
|
|
|
|
.DA MSG.EQU4
|
2019-03-25 07:04:40 +00:00
|
|
|
|
L.MSG.PASS .DA MSG.PASS
|
2018-03-28 15:23:32 +00:00
|
|
|
|
L.MSG.SRCLINE .DA MSG.SRCLINE
|
|
|
|
|
L.MSG.ERROR .DA MSG.ERROR
|
|
|
|
|
L.MSG.SYMBOLS .DA MSG.SYMBOLS
|
2019-03-25 07:04:40 +00:00
|
|
|
|
L.MSG.LSYMBOL .DA MSG.LSYMBOL
|
2018-03-28 15:23:32 +00:00
|
|
|
|
L.MSG.SUMMARY .DA MSG.SUMMARY
|
2019-03-25 07:04:40 +00:00
|
|
|
|
L.MSG.END .DA MSG.END
|
|
|
|
|
L.MSG.PSTR .DA MSG.PSTR
|
|
|
|
|
L.MSG.CRLF .DA MSG.CRLF
|
2019-03-26 15:22:48 +00:00
|
|
|
|
L.MSG.WORD .DA MSG.WORD
|
2019-03-25 07:04:40 +00:00
|
|
|
|
L.MSG.ACC .DA MSG.ACC
|
2018-03-28 15:23:32 +00:00
|
|
|
|
L.MSG.SRC.FILE .DA MSG.SRC.FILE
|
|
|
|
|
L.MSG.OBJ.FILE .DA MSG.OBJ.FILE
|
|
|
|
|
L.MSG.T.FILE .DA MSG.T.FILE
|
|
|
|
|
L.SRC.AM.StrBuf .DA SRC.AM.StrBuf
|
|
|
|
|
L.ASM.6502 .DA ASM.6502
|
2015-10-21 16:24:11 +00:00
|
|
|
|
L.ASM.T.FILENAME .DA ASM.T.FILENAME
|
2018-03-28 15:23:32 +00:00
|
|
|
|
L.FIO.Stat .DA FIO.Stat
|
2019-03-20 16:55:26 +00:00
|
|
|
|
L.SRC.ACC.F .DA SRC.ACC.F
|
2018-03-28 15:23:32 +00:00
|
|
|
|
L.T.DIRECTIVES .DA T.DIRECTIVES
|
|
|
|
|
J.DIRECTIVES .DA DIR.AC
|
|
|
|
|
.DA DIR.AS
|
|
|
|
|
.DA DIR.AT
|
|
|
|
|
.DA DIR.AZ
|
|
|
|
|
.DA DIR.BS
|
|
|
|
|
.DA DIR.DA
|
|
|
|
|
.DA DIR.DO
|
|
|
|
|
.DA DIR.DU
|
|
|
|
|
.DA DIR.DU
|
|
|
|
|
.DA DIR.ED
|
|
|
|
|
.DA DIR.EL
|
|
|
|
|
.DA DIR.EM
|
|
|
|
|
.DA DIR.EN
|
|
|
|
|
.DA DIR.EP
|
|
|
|
|
.DA DIR.EQ
|
|
|
|
|
.DA DIR.FI
|
|
|
|
|
.DA DIR.HS
|
|
|
|
|
.DA DIR.IN
|
|
|
|
|
.DA DIR.IN
|
|
|
|
|
.DA DIR.IN
|
|
|
|
|
.DA DIR.IN
|
|
|
|
|
.DA DIR.IN
|
|
|
|
|
.DA DIR.IN
|
|
|
|
|
.DA DIR.IN
|
|
|
|
|
.DA DIR.IN
|
|
|
|
|
.DA DIR.IN
|
|
|
|
|
.DA DIR.IN
|
|
|
|
|
.DA DIR.IN
|
|
|
|
|
.DA DIR.LI
|
|
|
|
|
.DA DIR.LI
|
|
|
|
|
.DA DIR.MA
|
|
|
|
|
.DA DIR.OP
|
|
|
|
|
.DA DIR.OR
|
|
|
|
|
.DA DIR.PG
|
|
|
|
|
.DA DIR.PH
|
|
|
|
|
.DA DIR.SE
|
|
|
|
|
.DA DIR.TA
|
|
|
|
|
.DA DIR.TF
|
|
|
|
|
.DA DIR.TI
|
|
|
|
|
.DA DIR.US
|
|
|
|
|
L.T.LI .DA T.LI
|
|
|
|
|
J.LI .DA DIR.LI.ON
|
|
|
|
|
.DA DIR.LI.OFF
|
|
|
|
|
.DA DIR.LI.CON
|
|
|
|
|
.DA DIR.LI.COFF
|
|
|
|
|
.DA DIR.LI.MON
|
|
|
|
|
.DA DIR.LI.MOFF
|
|
|
|
|
.DA DIR.LI.XON
|
|
|
|
|
.DA DIR.LI.XOFF
|
|
|
|
|
J.EXP.MOD .DA EXP.MOD.8.1 #/^<>
|
|
|
|
|
.DA EXP.MOD.8.2
|
|
|
|
|
.DA EXP.MOD.8.3
|
|
|
|
|
.DA EXP.MOD.24
|
|
|
|
|
.DA EXP.MOD.32
|
|
|
|
|
J.EXP.OP .DA EXP.OP.EOR ^!|&<=>+-*/
|
|
|
|
|
.DA EXP.OP.ORA
|
|
|
|
|
.DA EXP.OP.ORA
|
|
|
|
|
.DA EXP.OP.AND
|
|
|
|
|
.DA EXP.OP.LOW
|
|
|
|
|
.DA EXP.OP.EQU
|
|
|
|
|
.DA EXP.OP.GRT
|
|
|
|
|
.DA EXP.OP.ADD
|
|
|
|
|
.DA EXP.OP.SUB
|
|
|
|
|
.DA EXP.OP.MUL
|
|
|
|
|
.DA EXP.OP.DIV
|
|
|
|
|
.DA 0
|
2015-03-14 21:47:37 +00:00
|
|
|
|
*---------------------------------------
|
2018-03-28 15:23:32 +00:00
|
|
|
|
CS.INIT ldy #S.PS.ARGC
|
|
|
|
|
lda (pPs),y
|
|
|
|
|
beq .99
|
|
|
|
|
|
|
|
|
|
lda #1
|
2018-10-16 15:48:03 +00:00
|
|
|
|
>SYSCALL ArgV
|
2018-07-18 15:30:42 +00:00
|
|
|
|
>SYSCALL RealPath
|
2018-03-28 15:23:32 +00:00
|
|
|
|
|
|
|
|
|
txa
|
|
|
|
|
ldy #SRC.hFILENAME
|
|
|
|
|
sta (pData),y
|
|
|
|
|
|
|
|
|
|
jsr FIO.Init
|
|
|
|
|
bcs .9
|
2017-07-07 15:13:55 +00:00
|
|
|
|
|
2018-03-28 15:23:32 +00:00
|
|
|
|
jsr SYM.Init
|
|
|
|
|
bcs .9
|
2017-07-07 15:13:55 +00:00
|
|
|
|
|
2018-03-28 15:23:32 +00:00
|
|
|
|
jsr MAC.Init
|
|
|
|
|
bcs .9
|
|
|
|
|
|
|
|
|
|
jsr OUT.Init
|
2018-01-29 07:41:05 +00:00
|
|
|
|
|
2018-03-28 15:23:32 +00:00
|
|
|
|
>LDYAI 256
|
2018-07-20 11:51:08 +00:00
|
|
|
|
>SYSCALL getmem
|
2018-03-28 15:23:32 +00:00
|
|
|
|
bcs .9
|
|
|
|
|
>STYA ZPLineBuf
|
|
|
|
|
txa
|
|
|
|
|
>STA.G SRC.hLineBuf
|
2018-01-11 16:34:09 +00:00
|
|
|
|
|
2018-03-28 15:23:32 +00:00
|
|
|
|
>LDYAI 256
|
2018-07-20 11:51:08 +00:00
|
|
|
|
>SYSCALL getmem
|
2018-03-28 15:23:32 +00:00
|
|
|
|
bcs .9
|
|
|
|
|
>STYA ZPTmpBuf
|
|
|
|
|
txa
|
|
|
|
|
>STA.G SRC.hTmpBuf
|
|
|
|
|
|
|
|
|
|
clc
|
|
|
|
|
rts
|
|
|
|
|
|
2018-11-26 21:52:49 +00:00
|
|
|
|
.99 >PUSHBI 0
|
|
|
|
|
>LDYA L.MSG.HELP
|
2018-06-21 15:12:10 +00:00
|
|
|
|
>SYSCALL printf
|
2019-03-25 07:04:40 +00:00
|
|
|
|
lda #E.INV.ARGS
|
2018-03-28 15:23:32 +00:00
|
|
|
|
sec
|
2019-03-18 16:48:16 +00:00
|
|
|
|
.9 rts
|
2015-03-14 21:47:37 +00:00
|
|
|
|
*--------------------------------------
|
2019-03-18 16:48:16 +00:00
|
|
|
|
CS.RUN ldy #S.PS.hStdIn
|
|
|
|
|
lda (pPS),y
|
|
|
|
|
>SYSCALL feof
|
|
|
|
|
bcs .99
|
|
|
|
|
|
|
|
|
|
tay
|
|
|
|
|
beq .13
|
|
|
|
|
|
|
|
|
|
>SYSCALL GetChar
|
|
|
|
|
bcs .99
|
2018-03-28 15:23:32 +00:00
|
|
|
|
|
2018-04-06 15:10:02 +00:00
|
|
|
|
cmp #$03 Ctrl-C
|
|
|
|
|
beq .99 Abort....beq=CS
|
|
|
|
|
|
|
|
|
|
cmp #$13 Ctrl-S
|
2018-03-28 15:23:32 +00:00
|
|
|
|
bne .11
|
|
|
|
|
|
2018-04-06 15:10:02 +00:00
|
|
|
|
>LDA.G bPause
|
2018-03-28 15:23:32 +00:00
|
|
|
|
eor #$ff
|
|
|
|
|
sta (pData),y
|
|
|
|
|
|
2018-04-06 15:10:02 +00:00
|
|
|
|
bpl .12
|
|
|
|
|
clc
|
|
|
|
|
rts
|
2017-07-07 15:13:55 +00:00
|
|
|
|
|
2018-04-06 15:10:02 +00:00
|
|
|
|
.13 >LDA.G bPause
|
2018-11-26 21:52:49 +00:00
|
|
|
|
bpl .11
|
|
|
|
|
clc
|
2019-03-18 16:48:16 +00:00
|
|
|
|
.99 rts
|
2018-04-06 15:10:02 +00:00
|
|
|
|
|
|
|
|
|
.11 >STZ.G bPause
|
|
|
|
|
|
|
|
|
|
.12 >LDA.G SRC.COUNT root file is already opened?
|
2018-03-28 15:23:32 +00:00
|
|
|
|
bne .10
|
2017-07-07 15:13:55 +00:00
|
|
|
|
|
2018-03-28 15:23:32 +00:00
|
|
|
|
>LDA.G ASM.PASS
|
|
|
|
|
inc
|
|
|
|
|
>PUSHA
|
2018-11-26 21:52:49 +00:00
|
|
|
|
>PUSHBI 1
|
2018-03-28 15:23:32 +00:00
|
|
|
|
>LDYA L.MSG.PASS
|
|
|
|
|
jsr OUT.Print
|
2015-03-14 21:47:37 +00:00
|
|
|
|
|
2018-03-28 15:23:32 +00:00
|
|
|
|
ldy #SRC.hFILENAME
|
|
|
|
|
lda (pData),y
|
2017-07-07 15:13:55 +00:00
|
|
|
|
|
2018-07-18 15:30:42 +00:00
|
|
|
|
>SYSCALL GetMemPtr
|
2018-03-28 15:23:32 +00:00
|
|
|
|
|
|
|
|
|
jsr FIO.OpenFile
|
|
|
|
|
bcs .99
|
|
|
|
|
|
|
|
|
|
jsr DIR.Reset
|
|
|
|
|
jsr SYM.Reset
|
2018-04-06 15:10:02 +00:00
|
|
|
|
jsr MAC.Reset
|
2018-03-28 15:23:32 +00:00
|
|
|
|
|
|
|
|
|
.10 jsr FIO.ReadLine
|
|
|
|
|
bcc .2
|
2019-03-25 07:04:40 +00:00
|
|
|
|
cmp #MLI.E.EOF End Of File?
|
2018-03-28 15:23:32 +00:00
|
|
|
|
bne .9
|
|
|
|
|
|
|
|
|
|
jsr FIO.FileClose
|
|
|
|
|
|
2019-03-25 07:04:40 +00:00
|
|
|
|
>LDA.G SRC.COUNT end of root file ?
|
|
|
|
|
bne .8 no continue back to previous file
|
|
|
|
|
|
|
|
|
|
>DEBUG
|
|
|
|
|
jsr SYM.StoreGlobal Make sure last Global flushed
|
|
|
|
|
|
|
|
|
|
>LDA.G ASM.PASS End of pass #2 ??
|
2018-03-28 15:23:32 +00:00
|
|
|
|
bne .1
|
|
|
|
|
inc
|
|
|
|
|
sta (pData),y
|
|
|
|
|
clc
|
2019-03-18 16:48:16 +00:00
|
|
|
|
rts
|
2018-03-28 15:23:32 +00:00
|
|
|
|
|
|
|
|
|
.1 jsr SYM.Dump
|
2019-03-19 16:52:08 +00:00
|
|
|
|
|
2019-03-25 07:04:40 +00:00
|
|
|
|
>LDYA L.MSG.END
|
|
|
|
|
>SYSCALL puts
|
2018-03-28 15:23:32 +00:00
|
|
|
|
|
2019-03-25 07:04:40 +00:00
|
|
|
|
lda #0 End of assembly, exit with no error
|
2018-03-28 15:23:32 +00:00
|
|
|
|
sec
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
.2 jsr SRC.ParseLine
|
|
|
|
|
bcs .9
|
|
|
|
|
|
2019-03-26 12:17:47 +00:00
|
|
|
|
jsr OUT.PrintLine
|
2018-03-28 15:23:32 +00:00
|
|
|
|
|
|
|
|
|
.8 clc
|
|
|
|
|
rts
|
2015-10-02 16:04:30 +00:00
|
|
|
|
|
2018-03-28 15:23:32 +00:00
|
|
|
|
.9 pha
|
|
|
|
|
jsr OUT.PrintLineErr
|
2019-03-26 15:22:48 +00:00
|
|
|
|
|
2019-03-25 07:04:40 +00:00
|
|
|
|
jsr SYM.StoreGlobal Make sure last Global flushed
|
2018-03-28 15:23:32 +00:00
|
|
|
|
jsr SYM.Dump
|
|
|
|
|
pla
|
|
|
|
|
sec
|
|
|
|
|
rts
|
2015-08-05 20:38:05 +00:00
|
|
|
|
*--------------------------------------
|
2018-03-28 15:23:32 +00:00
|
|
|
|
CS.DOEVENT sec
|
|
|
|
|
rts
|
2015-08-05 20:38:05 +00:00
|
|
|
|
*--------------------------------------
|
2018-03-28 15:23:32 +00:00
|
|
|
|
CS.QUIT jsr FIO.FileClose
|
|
|
|
|
bne CS.QUIT
|
2015-10-02 16:04:30 +00:00
|
|
|
|
|
2018-03-28 15:23:32 +00:00
|
|
|
|
jsr MAC.Quit
|
|
|
|
|
jsr SYM.Quit
|
|
|
|
|
|
|
|
|
|
>LDA.G ASM.T.hMem
|
|
|
|
|
beq .1
|
|
|
|
|
|
2018-07-18 15:30:42 +00:00
|
|
|
|
>SYSCALL FreeMem
|
2018-03-28 15:23:32 +00:00
|
|
|
|
|
|
|
|
|
.1 >LDA.G SRC.hFILENAME
|
|
|
|
|
beq .2
|
|
|
|
|
|
2018-07-18 15:30:42 +00:00
|
|
|
|
>SYSCALL FreeMem
|
2018-03-28 15:23:32 +00:00
|
|
|
|
|
|
|
|
|
.2 >LDA.G SRC.hLineBuf
|
|
|
|
|
beq .3
|
|
|
|
|
|
2018-07-18 15:30:42 +00:00
|
|
|
|
>SYSCALL FreeMem
|
2018-03-28 15:23:32 +00:00
|
|
|
|
|
|
|
|
|
.3 >LDA.G SRC.hTmpBuf
|
|
|
|
|
beq .8
|
|
|
|
|
|
2018-07-18 15:30:42 +00:00
|
|
|
|
>SYSCALL FreeMem
|
2018-03-28 15:23:32 +00:00
|
|
|
|
|
|
|
|
|
.8 clc
|
|
|
|
|
rts
|
2015-08-05 20:38:05 +00:00
|
|
|
|
*---------------------------------------
|
2019-01-28 07:44:37 +00:00
|
|
|
|
.INB USR/SRC/BIN/ASM.S.DIR
|
|
|
|
|
.INB USR/SRC/BIN/ASM.S.EXP
|
|
|
|
|
.INB USR/SRC/BIN/ASM.S.FIO
|
|
|
|
|
.INB USR/SRC/BIN/ASM.S.MAC
|
|
|
|
|
.INB USR/SRC/BIN/ASM.S.OUT
|
|
|
|
|
.INB USR/SRC/BIN/ASM.S.SRC
|
|
|
|
|
.INB USR/SRC/BIN/ASM.S.SYM
|
2015-10-02 16:04:30 +00:00
|
|
|
|
*---------------------------------------
|
2015-03-14 21:47:37 +00:00
|
|
|
|
CS.END
|
2018-03-28 15:23:32 +00:00
|
|
|
|
T.DIRECTIVES >PSTR "AC"
|
|
|
|
|
>PSTR "AS"
|
|
|
|
|
>PSTR "AT"
|
|
|
|
|
>PSTR "AZ"
|
|
|
|
|
>PSTR "BS"
|
|
|
|
|
>PSTR "DA"
|
|
|
|
|
>PSTR "DO"
|
|
|
|
|
>PSTR "DU"
|
|
|
|
|
>PSTR "DUMMY"
|
|
|
|
|
>PSTR "ED"
|
|
|
|
|
>PSTR "ELSE"
|
|
|
|
|
>PSTR "EM"
|
|
|
|
|
>PSTR "EN"
|
|
|
|
|
>PSTR "EP"
|
|
|
|
|
>PSTR "EQ"
|
|
|
|
|
>PSTR "FIN"
|
|
|
|
|
>PSTR "HS"
|
|
|
|
|
>PSTR "IN"
|
|
|
|
|
>PSTR "INB"
|
|
|
|
|
>PSTR "INB1"
|
|
|
|
|
>PSTR "INB2"
|
|
|
|
|
>PSTR "INB3"
|
|
|
|
|
>PSTR "INB4"
|
|
|
|
|
>PSTR "INB5"
|
|
|
|
|
>PSTR "INB6"
|
|
|
|
|
>PSTR "INB7"
|
|
|
|
|
>PSTR "INB8"
|
|
|
|
|
>PSTR "INB9"
|
|
|
|
|
>PSTR "LI"
|
|
|
|
|
>PSTR "LIST"
|
|
|
|
|
>PSTR "MA"
|
|
|
|
|
>PSTR "OP"
|
|
|
|
|
>PSTR "OR"
|
|
|
|
|
>PSTR "PG"
|
|
|
|
|
>PSTR "PH"
|
|
|
|
|
>PSTR "SE"
|
|
|
|
|
>PSTR "TA"
|
|
|
|
|
>PSTR "TF"
|
|
|
|
|
>PSTR "TI"
|
|
|
|
|
>PSTR "US"
|
|
|
|
|
.HS 00
|
2015-03-14 21:47:37 +00:00
|
|
|
|
*---------------------------------------
|
2018-03-28 15:23:32 +00:00
|
|
|
|
T.LI >PSTR "ON"
|
|
|
|
|
>PSTR "OFF"
|
|
|
|
|
>PSTR "CON"
|
|
|
|
|
>PSTR "COFF"
|
|
|
|
|
>PSTR "MON"
|
|
|
|
|
>PSTR "MOFF"
|
|
|
|
|
>PSTR "XON"
|
|
|
|
|
>PSTR "XOFF"
|
|
|
|
|
.HS 00
|
2015-10-06 16:14:48 +00:00
|
|
|
|
*---------------------------------------
|
2018-03-28 15:23:32 +00:00
|
|
|
|
ASM..T. .AZ ".T."
|
|
|
|
|
ASM.6502 .AZ "6502"
|
|
|
|
|
MSG.HELP .AZ "A2osX-Macro Assembler (S-C MASM 3.0 Based)\r\nUsage : ASM <src file> [type TXT ($04) or S-C/BAS ($FA)]\r\n"
|
2019-03-26 15:22:48 +00:00
|
|
|
|
MSG.PASS .AZ "**** Pass:#%d ****"
|
|
|
|
|
MSG.SRC.FILE .AZ "**** Reading SRC File:%s"
|
|
|
|
|
MSG.OBJ.FILE .AZ "**** Writing OBJ File:%s, Type=%02x"
|
|
|
|
|
MSG.T.FILE .AZ "**** Loading CPU File:%s"
|
2018-03-28 15:23:32 +00:00
|
|
|
|
MSG.OUT0 .AZ "%H- "
|
|
|
|
|
MSG.OUT1 .AZ "%H-%h "
|
|
|
|
|
MSG.OUT2 .AZ "%H-%h %h "
|
|
|
|
|
MSG.OUT3 .AZ "%H-%h %h %h"
|
2019-03-22 16:47:33 +00:00
|
|
|
|
MSG.EQU0 .AZ " [ ?] "
|
|
|
|
|
MSG.EQU1 .AZ " [ %h] "
|
|
|
|
|
MSG.EQU2 .AZ " [ %h%h] "
|
|
|
|
|
MSG.EQU3 .AZ " [ %h%h%h] "
|
|
|
|
|
MSG.EQU4 .AZ " [%h%h%h%h] "
|
2019-03-26 15:22:48 +00:00
|
|
|
|
MSG.SRCLINE .AZ " %05D %s"
|
2019-03-22 16:47:33 +00:00
|
|
|
|
MSG.ERROR .AZ "**** Fatal Error $%h"
|
2018-11-26 21:52:49 +00:00
|
|
|
|
MSG.SYMBOLS .AZ "Symbol Table:"
|
2019-03-25 07:04:40 +00:00
|
|
|
|
MSG.LSYMBOL .AZ " .%d=%h%h%h%h"
|
|
|
|
|
MSG.SUMMARY .AZ "\r\nSymbol Table Size : %5D Bytes.\r\n"
|
|
|
|
|
MSG.END .AZ "End Of Assembly."
|
|
|
|
|
MSG.PSTR .AS "{%S}"
|
|
|
|
|
MSG.CRLF .AZ "\r\n"
|
2019-03-26 15:22:48 +00:00
|
|
|
|
MSG.WORD .AZ ">$%H"
|
2019-03-25 07:04:40 +00:00
|
|
|
|
MSG.ACC .AZ "%b,%d,%h%h%h%h\r\n"
|
2018-03-16 16:33:11 +00:00
|
|
|
|
SRC.MOD.RESERVED >PSTR "#/^<>"
|
2016-10-24 15:54:43 +00:00
|
|
|
|
SRC.EXP.RESERVED >PSTR "^!|&<=>+-*/"
|
2018-03-16 16:33:11 +00:00
|
|
|
|
SRC.AM.RESERVED >PSTR "[](),"
|
2018-01-11 16:34:09 +00:00
|
|
|
|
*---------------------------------------
|
2018-03-28 15:23:32 +00:00
|
|
|
|
ASM.T.FILENAME .BS 65
|
2015-11-20 16:31:14 +00:00
|
|
|
|
|
2018-03-28 15:23:32 +00:00
|
|
|
|
FIO.Stat .BS S.STAT
|
2015-11-20 16:31:14 +00:00
|
|
|
|
|
2019-03-20 16:55:26 +00:00
|
|
|
|
SRC.ACC.F .BS 1
|
2018-03-28 15:23:32 +00:00
|
|
|
|
SRC.ACC.SIZE .BS 1
|
|
|
|
|
SRC.ACC .BS 4
|
2015-09-16 20:48:59 +00:00
|
|
|
|
|
2018-03-28 15:23:32 +00:00
|
|
|
|
SRC.ARG.SIZE .BS 1
|
|
|
|
|
SRC.ARG .BS 4
|
|
|
|
|
|
|
|
|
|
SRC.ACCTMP .BS 4
|
|
|
|
|
SRC.AM.StrBuf .BS 32
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
.DUMMY
|
|
|
|
|
.OR 0
|
|
|
|
|
DS.START
|
|
|
|
|
bPause .BS 1
|
2015-10-02 16:04:30 +00:00
|
|
|
|
|
2018-03-28 15:23:32 +00:00
|
|
|
|
SRC.hFILENAME .BS 1
|
|
|
|
|
SRC.hLineBuf .BS 1
|
|
|
|
|
SRC.hTmpBuf .BS 1
|
2015-08-05 20:38:05 +00:00
|
|
|
|
|
2018-03-28 15:23:32 +00:00
|
|
|
|
SRC.COUNT .BS 1
|
2018-04-06 15:10:02 +00:00
|
|
|
|
SRC.hFILES .BS IN.MAXDEPTH
|
|
|
|
|
SRC.hFILETYPES .BS IN.MAXDEPTH
|
2018-03-23 15:57:35 +00:00
|
|
|
|
|
2018-03-28 15:23:32 +00:00
|
|
|
|
SRC.LINENUM .BS 2
|
|
|
|
|
SRC.AMID .BS 1
|
2015-10-06 16:14:48 +00:00
|
|
|
|
|
2018-03-28 15:23:32 +00:00
|
|
|
|
DST.hFILENAME .BS 1
|
|
|
|
|
DST.hREFNUM .BS 1
|
|
|
|
|
DST.hBUFFER .BS 1
|
|
|
|
|
DST.hFILETYPE .BS 1
|
2015-12-04 16:33:33 +00:00
|
|
|
|
|
2018-03-28 15:23:32 +00:00
|
|
|
|
DIR.Word .BS 2
|
|
|
|
|
DIR.Byte .BS 1
|
2018-03-16 16:33:11 +00:00
|
|
|
|
|
2018-03-28 15:23:32 +00:00
|
|
|
|
EXP.Modifier .BS 1
|
|
|
|
|
EXP.Prefix .BS 1
|
|
|
|
|
EXP.Operator .BS 1
|
2018-03-16 16:33:11 +00:00
|
|
|
|
|
2018-03-28 15:23:32 +00:00
|
|
|
|
ASM.T.hMem .BS 1
|
2018-01-19 16:21:31 +00:00
|
|
|
|
|
2018-03-28 15:23:32 +00:00
|
|
|
|
ASM.PASS .BS 1
|
2018-04-06 15:10:02 +00:00
|
|
|
|
|
2018-03-28 15:23:32 +00:00
|
|
|
|
ASM.DO.ON .BS 1
|
2018-04-06 15:10:02 +00:00
|
|
|
|
ASM.DO.StackPtr .BS 1
|
|
|
|
|
ASM.DO.Stack .BS DO.MAXDEPTH
|
|
|
|
|
|
|
|
|
|
ASM.DU.ON .BS 1
|
2018-03-28 15:23:32 +00:00
|
|
|
|
ASM.PH.ON .BS 1
|
2018-04-06 15:10:02 +00:00
|
|
|
|
|
2018-03-28 15:23:32 +00:00
|
|
|
|
ASM.LI.ON .BS 1
|
|
|
|
|
ASM.LI.CON .BS 1
|
|
|
|
|
ASM.LI.MON .BS 1
|
|
|
|
|
ASM.LI.XON .BS 1
|
2018-04-06 15:10:02 +00:00
|
|
|
|
|
|
|
|
|
ASM.MA.ON .BS 1
|
|
|
|
|
ASM.MA.StackPtr .BS 1
|
|
|
|
|
ASM.MA.Stack .BS MA.MAXDEPTH
|
|
|
|
|
|
2018-03-28 15:23:32 +00:00
|
|
|
|
ASM.PC .BS 4
|
|
|
|
|
ASM.PC.PH .BS 4
|
2018-04-06 15:10:02 +00:00
|
|
|
|
ASM.PC.DU .BS 4
|
2018-03-22 16:45:23 +00:00
|
|
|
|
|
2018-03-28 15:23:32 +00:00
|
|
|
|
SYM.hGlobalList .BS 1
|
2019-03-22 16:47:33 +00:00
|
|
|
|
SYM.bInGlobal .BS 1
|
2019-03-20 16:55:26 +00:00
|
|
|
|
SYM.GlobalID .BS 2
|
|
|
|
|
SYM.hGlobalBuf .BS 1
|
|
|
|
|
SYM.GlobalPtr .BS 1
|
2018-03-22 16:45:23 +00:00
|
|
|
|
|
2019-03-22 07:41:35 +00:00
|
|
|
|
SYM.LookupID .BS 2
|
2018-01-26 16:19:17 +00:00
|
|
|
|
|
2018-04-06 15:10:02 +00:00
|
|
|
|
MAC.hMacroList .BS 1
|
|
|
|
|
MAC.hMacroBuf .BS 1
|
|
|
|
|
MAC.hCtxList .BS 1
|
|
|
|
|
MAC.hCtxBuf .BS 1
|
2019-03-18 16:48:16 +00:00
|
|
|
|
MAC.MacroID .BS 2
|
|
|
|
|
MAC.BufPtr .BS 1
|
2018-04-06 15:10:02 +00:00
|
|
|
|
MAC.CtxID .BS 2
|
2018-01-26 16:19:17 +00:00
|
|
|
|
|
2018-03-28 15:23:32 +00:00
|
|
|
|
OUT.PC .BS 4
|
|
|
|
|
OUT.Buf .BS 4
|
|
|
|
|
OUT.bEquate .BS 1
|
|
|
|
|
OUT.LineCnt .BS 1
|
2018-01-31 16:20:20 +00:00
|
|
|
|
|
2018-03-28 15:23:32 +00:00
|
|
|
|
DS.END .ED
|
2015-11-20 16:31:14 +00:00
|
|
|
|
*---------------------------------------
|
2018-03-28 15:23:32 +00:00
|
|
|
|
.DO DS.END-DS.START>$FF
|
|
|
|
|
ERROR:DS too big
|
|
|
|
|
.FIN
|
2015-03-14 21:47:37 +00:00
|
|
|
|
*---------------------------------------
|
|
|
|
|
MAN
|
2019-01-28 07:44:37 +00:00
|
|
|
|
SAVE USR/SRC/BIN/ASM.S
|
2015-03-14 21:47:37 +00:00
|
|
|
|
ASM
|