2018-01-10 16:34:57 +00:00
|
|
|
|
NEW
|
2017-03-29 15:48:15 +00:00
|
|
|
|
PREFIX /A2OSX.BUILD
|
2018-01-10 16:34:57 +00:00
|
|
|
|
AUTO 4,1
|
2015-03-14 21:47:37 +00:00
|
|
|
|
.LIST OFF
|
|
|
|
|
.OP 65C02
|
|
|
|
|
.OR $2000
|
2017-06-16 13:01:08 +00:00
|
|
|
|
.TF /A2OSX.BUILD/BIN/DEV/ASM
|
2015-03-14 21:47:37 +00:00
|
|
|
|
*---------------------------------------
|
2017-03-29 15:48:15 +00:00
|
|
|
|
.INB /A2OSX.BUILD/INC/MACROS.I
|
|
|
|
|
.INB /A2OSX.BUILD/INC/A2OSX.I
|
2015-03-14 21:47:37 +00:00
|
|
|
|
*---------------------------------------
|
2015-10-06 16:14:48 +00:00
|
|
|
|
ZPPtr1 .EQ ZPBIN
|
|
|
|
|
ZPPtr2 .EQ ZPBIN+2
|
2015-10-30 16:34:59 +00:00
|
|
|
|
ZPPtr3 .EQ ZPBIN+4
|
2018-01-11 16:34:09 +00:00
|
|
|
|
ZPLineBuf .EQ ZPBIN+6
|
|
|
|
|
ZPLinePtr .EQ ZPBIN+8
|
|
|
|
|
ZPBlockPtr .EQ ZPBIN+10
|
|
|
|
|
ZPSymbolPtr .EQ ZPBIN+12
|
|
|
|
|
ZPTmpBuf .EQ ZPBIN+14
|
2018-01-15 06:50:44 +00:00
|
|
|
|
ZPAMPtr .EQ ZPBIN+16
|
|
|
|
|
ZPRPtr .EQ ZPBIN+18
|
|
|
|
|
ZPOPtr .EQ ZPBIN+20
|
2015-10-06 16:14:48 +00:00
|
|
|
|
*---------------------------------------
|
2015-10-28 16:55:12 +00:00
|
|
|
|
ASM.T.AM .EQ 0
|
|
|
|
|
ASM.T.R .EQ 2
|
|
|
|
|
ASM.T.O .EQ 4
|
|
|
|
|
*---------------------------------------
|
2015-12-04 16:33:33 +00:00
|
|
|
|
SRC.DO.MAXDEPTH .EQ 8
|
2015-10-30 16:34:59 +00:00
|
|
|
|
SRC.IN.MAXDEPTH .EQ 7
|
2015-11-13 16:25:31 +00:00
|
|
|
|
SRC.GLABEL.MAXLEN .EQ 32
|
|
|
|
|
*---------------------------------------
|
2015-11-20 16:31:14 +00:00
|
|
|
|
SYM.GBLOCK.MAX .EQ 96 96*256=24k
|
2015-11-13 16:25:31 +00:00
|
|
|
|
SYM.SBLOCK.MAX .EQ 16 16*256=4k
|
|
|
|
|
SYM.PBLOCK.MAX .EQ 32 32*256=8k
|
|
|
|
|
SYM.MBLOCK.MAX .EQ 32 32*256=8k
|
2015-03-14 21:47:37 +00:00
|
|
|
|
*---------------------------------------
|
2015-10-06 16:14:48 +00:00
|
|
|
|
ERR.INV.ARGS .EQ $80
|
|
|
|
|
ERR.SRC.INV.TYPE .EQ $90
|
|
|
|
|
ERR.SRC.TOO.MANY.IN .EQ $91
|
2015-10-09 15:53:30 +00:00
|
|
|
|
ERR.SRC.UNEXP.EOF .EQ $92
|
2015-10-30 16:34:59 +00:00
|
|
|
|
ERR.OOM .EQ $93
|
2015-10-06 16:14:48 +00:00
|
|
|
|
ERR.SYNTAX.ERROR .EQ $A0
|
|
|
|
|
ERR.SYM.TOO.LONG .EQ $A1
|
|
|
|
|
ERR.VAL.TOO.BIG .EQ $A2
|
|
|
|
|
ERR.LINE.TOO.LONG .EQ $A3
|
2018-01-11 16:34:09 +00:00
|
|
|
|
ERR.INV.LABEL .EQ $A4
|
|
|
|
|
ERR.INV.DIRECTIVE .EQ $A5
|
|
|
|
|
ERR.INV.OPCODE .EQ $A6
|
|
|
|
|
ERR.INV.AM.SYN .EQ $A7
|
|
|
|
|
ERR.INV.AM.4.OC .EQ $A8
|
2015-11-20 16:31:14 +00:00
|
|
|
|
ERR.RANGE .EQ $A9
|
|
|
|
|
ERR.UNDEF.SYMBOL .EQ $AA
|
|
|
|
|
ERR.SYMBOL.REDEFINE .EQ $AB
|
2015-12-04 16:33:33 +00:00
|
|
|
|
ERR.TOO.MANY.DO .EQ $AC
|
2015-10-09 15:53:30 +00:00
|
|
|
|
ERR.MISSING.EXP .EQ $B0
|
|
|
|
|
ERR.EXP.SYN.ERROR .EQ $B1
|
2018-01-11 16:34:09 +00:00
|
|
|
|
ERR.INV.MACRO.DEF .EQ $E0
|
2015-08-05 20:38:05 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
* File Header (16 Bytes)
|
|
|
|
|
*--------------------------------------
|
2015-03-14 21:47:37 +00:00
|
|
|
|
CS.START cld
|
|
|
|
|
jmp (.1,x)
|
2015-08-05 20:38:05 +00:00
|
|
|
|
.DA #$61 6502,Level 1 (65c02)
|
|
|
|
|
.DA #1 BIN Layout Version 1
|
|
|
|
|
.DA 0
|
2017-10-03 15:33:30 +00:00
|
|
|
|
.DA CS.END-CS.START CS
|
|
|
|
|
.DA DS.END-DS.START DS
|
2018-01-11 16:34:09 +00:00
|
|
|
|
.DA #0 SS
|
2018-01-15 06:50:44 +00:00
|
|
|
|
.DA #24 ZP
|
2015-08-05 20:38:05 +00:00
|
|
|
|
.DA 0
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
* Relocation Table
|
|
|
|
|
*--------------------------------------
|
2015-03-14 21:47:37 +00:00
|
|
|
|
.1 .DA CS.INIT
|
|
|
|
|
.DA CS.RUN
|
|
|
|
|
.DA CS.DOEVENT
|
|
|
|
|
.DA CS.QUIT
|
2016-09-22 15:46:01 +00:00
|
|
|
|
L.MSG.HELP .DA MSG.HELP
|
2015-03-14 21:47:37 +00:00
|
|
|
|
L.MSG.SRCLINE .DA MSG.SRCLINE
|
2018-01-12 16:05:04 +00:00
|
|
|
|
L.MSG.LINECR .DA MSG.LINECR
|
2015-10-02 16:04:30 +00:00
|
|
|
|
L.MSG.ERROR .DA MSG.ERROR
|
2015-11-20 16:31:14 +00:00
|
|
|
|
L.MSG.SYMBOLS .DA MSG.SYMBOLS
|
|
|
|
|
L.MSG.GSYMBOL .DA MSG.GSYMBOL
|
|
|
|
|
L.MSG.LSYMBOL .DA MSG.LSYMBOL
|
|
|
|
|
L.MSG.SUMMARY .DA MSG.SUMMARY
|
2015-10-06 16:14:48 +00:00
|
|
|
|
L.MSG.PASS .DA MSG.PASS
|
|
|
|
|
L.MSG.SRC.FILE .DA MSG.SRC.FILE
|
|
|
|
|
L.MSG.OBJ.FILE .DA MSG.OBJ.FILE
|
2015-10-21 16:24:11 +00:00
|
|
|
|
L.MSG.T.FILE .DA MSG.T.FILE
|
2015-11-20 16:31:14 +00:00
|
|
|
|
L.SRC.AM.StrBuf .DA SRC.AM.StrBuf
|
2015-11-27 16:26:11 +00:00
|
|
|
|
L.SRC.GLabel.Flags .DA SRC.GLabel.Flags
|
2015-11-20 16:31:14 +00:00
|
|
|
|
L.SRC.GLabel.Len .DA SRC.GLabel.Len
|
2015-11-27 16:26:11 +00:00
|
|
|
|
L.SRC.ELabel.Flags .DA SRC.ELabel.Flags
|
2015-11-20 16:31:14 +00:00
|
|
|
|
L.SRC.ELabel.Len .DA SRC.ELabel.Len
|
2018-01-11 16:34:09 +00:00
|
|
|
|
L.ASM.6502 .DA ASM.6502
|
2015-10-21 16:24:11 +00:00
|
|
|
|
L.ASM.T.FILENAME .DA ASM.T.FILENAME
|
2018-01-10 16:34:57 +00:00
|
|
|
|
L.FIO.Stat .DA FIO.Stat
|
2015-10-04 20:55:51 +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
|
2015-10-06 16:14:48 +00:00
|
|
|
|
.DA DIR.DU
|
2015-10-04 20:55:51 +00:00
|
|
|
|
.DA DIR.ED
|
|
|
|
|
.DA DIR.EL
|
2015-10-06 16:14:48 +00:00
|
|
|
|
.DA DIR.EM
|
2015-10-04 20:55:51 +00:00
|
|
|
|
.DA DIR.EN
|
|
|
|
|
.DA DIR.EP
|
|
|
|
|
.DA DIR.EQ
|
|
|
|
|
.DA DIR.FI
|
|
|
|
|
.DA DIR.HS
|
|
|
|
|
.DA DIR.IN
|
2015-10-06 16:14:48 +00:00
|
|
|
|
.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
|
2015-10-04 20:55:51 +00:00
|
|
|
|
.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
|
2015-10-06 16:14:48 +00:00
|
|
|
|
L.T.LI .DA T.LI
|
|
|
|
|
J.LI .DA DIR.LI.CON
|
|
|
|
|
.DA DIR.LI.COFF
|
|
|
|
|
.DA DIR.LI.XON
|
|
|
|
|
.DA DIR.LI.XOFF
|
|
|
|
|
.DA DIR.LI.ON
|
|
|
|
|
.DA DIR.LI.OFF
|
2016-09-22 15:46:01 +00:00
|
|
|
|
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
|
2015-03-14 21:47:37 +00:00
|
|
|
|
.DA 0
|
|
|
|
|
*---------------------------------------
|
2017-10-03 15:33:30 +00:00
|
|
|
|
CS.INIT ldy #S.PS.ARGC
|
|
|
|
|
lda (pPs),y
|
|
|
|
|
beq .99
|
2015-03-14 21:47:37 +00:00
|
|
|
|
|
2016-09-22 15:46:01 +00:00
|
|
|
|
lda #1
|
2017-08-24 12:46:48 +00:00
|
|
|
|
>SYSCALL GetArg.A
|
2017-10-03 15:33:30 +00:00
|
|
|
|
>SYSCALL RealPath.YA
|
2016-08-17 06:25:58 +00:00
|
|
|
|
|
|
|
|
|
txa
|
2015-10-06 16:14:48 +00:00
|
|
|
|
ldy #SRC.hFILENAME
|
2015-12-04 16:33:33 +00:00
|
|
|
|
sta (pData),y
|
2015-10-21 16:24:11 +00:00
|
|
|
|
|
2015-12-04 16:33:33 +00:00
|
|
|
|
jsr FIO.Init
|
|
|
|
|
bcs .9
|
2017-07-07 15:13:55 +00:00
|
|
|
|
|
2015-11-20 16:31:14 +00:00
|
|
|
|
jsr SYM.Init
|
2015-12-04 16:33:33 +00:00
|
|
|
|
bcs .9
|
2017-07-07 15:13:55 +00:00
|
|
|
|
|
2015-12-04 16:33:33 +00:00
|
|
|
|
jsr DIR.Init
|
2015-10-06 16:14:48 +00:00
|
|
|
|
|
2018-01-11 16:34:09 +00:00
|
|
|
|
>LDYAI 256
|
|
|
|
|
>SYSCALL GetMem.YA
|
|
|
|
|
bcs .9
|
|
|
|
|
>STYA ZPLineBuf
|
|
|
|
|
txa
|
|
|
|
|
>STA.G SRC.hLineBuf
|
|
|
|
|
|
|
|
|
|
>LDYAI 256
|
|
|
|
|
>SYSCALL GetMem.YA
|
|
|
|
|
bcs .9
|
|
|
|
|
>STYA ZPTmpBuf
|
|
|
|
|
txa
|
|
|
|
|
>STA.G SRC.hTmpBuf
|
|
|
|
|
|
2017-07-07 15:13:55 +00:00
|
|
|
|
* lda (pPs)
|
|
|
|
|
* ora #S.PS.F.EVENT
|
|
|
|
|
* sta (pPs)
|
2015-03-14 21:47:37 +00:00
|
|
|
|
clc
|
|
|
|
|
rts
|
|
|
|
|
|
2016-10-29 19:58:21 +00:00
|
|
|
|
.99 >LDYA L.MSG.HELP
|
2017-08-25 15:02:16 +00:00
|
|
|
|
>SYSCALL PrintF.YA
|
2015-12-04 16:33:33 +00:00
|
|
|
|
lda #ERR.INV.ARGS
|
2015-03-14 21:47:37 +00:00
|
|
|
|
sec
|
2015-12-04 16:33:33 +00:00
|
|
|
|
.9 rts
|
2015-03-14 21:47:37 +00:00
|
|
|
|
*--------------------------------------
|
2017-10-03 15:33:30 +00:00
|
|
|
|
CS.RUN >SYSCALL GetChar
|
2017-07-07 15:13:55 +00:00
|
|
|
|
bcs .11 no char
|
|
|
|
|
|
|
|
|
|
cmp #$03 Ctrl-C
|
|
|
|
|
beq .99 Abort....
|
|
|
|
|
|
|
|
|
|
cmp #$13 Ctrl-S
|
|
|
|
|
bne .11
|
2015-03-14 21:47:37 +00:00
|
|
|
|
|
2017-07-07 15:13:55 +00:00
|
|
|
|
ldy #bPause
|
2015-09-16 20:48:59 +00:00
|
|
|
|
lda (pData),y
|
2017-07-07 15:13:55 +00:00
|
|
|
|
eor #$ff
|
|
|
|
|
sta (pData),y
|
2015-10-02 16:04:30 +00:00
|
|
|
|
bne .8
|
2017-07-07 15:13:55 +00:00
|
|
|
|
|
|
|
|
|
.11 ldy #SRC.COUNT root file is already opened?
|
2015-10-02 16:04:30 +00:00
|
|
|
|
lda (pData),y
|
|
|
|
|
bne .10
|
|
|
|
|
|
2015-10-06 16:14:48 +00:00
|
|
|
|
ldy #ASM.PASS
|
2015-10-09 15:53:30 +00:00
|
|
|
|
lda (pData),y
|
|
|
|
|
inc
|
2015-10-06 16:14:48 +00:00
|
|
|
|
>PUSHA
|
2016-10-29 19:58:21 +00:00
|
|
|
|
>LDYA L.MSG.PASS
|
2017-08-25 15:02:16 +00:00
|
|
|
|
>SYSCALL PrintF.YA
|
2015-10-06 16:14:48 +00:00
|
|
|
|
|
2015-10-02 16:04:30 +00:00
|
|
|
|
ldy #SRC.hFILENAME
|
|
|
|
|
lda (pData),y
|
|
|
|
|
|
2018-01-11 16:34:09 +00:00
|
|
|
|
>SYSCALL GetMemPtr.A
|
|
|
|
|
|
|
|
|
|
jsr FIO.OpenFile
|
2015-10-06 16:14:48 +00:00
|
|
|
|
bcs .99
|
2015-10-02 16:04:30 +00:00
|
|
|
|
|
2018-01-11 16:34:09 +00:00
|
|
|
|
.10 jsr FIO.ReadLine
|
2015-10-02 16:04:30 +00:00
|
|
|
|
bcc .2
|
|
|
|
|
cmp #$4C End Of File?
|
|
|
|
|
bne .9
|
|
|
|
|
|
2015-10-28 16:55:12 +00:00
|
|
|
|
jsr FIO.FileClose
|
2015-10-09 15:53:30 +00:00
|
|
|
|
|
2015-10-28 16:55:12 +00:00
|
|
|
|
ldy #SRC.COUNT end of root file ?
|
2015-10-02 16:04:30 +00:00
|
|
|
|
lda (pData),y
|
|
|
|
|
bne .8 no continue back to previous file
|
|
|
|
|
|
|
|
|
|
ldy #ASM.PASS
|
|
|
|
|
lda (pData),y End of pass #2 ??
|
|
|
|
|
bne .1
|
|
|
|
|
inc
|
|
|
|
|
sta (pData),y
|
2015-03-14 21:47:37 +00:00
|
|
|
|
clc
|
|
|
|
|
rts
|
|
|
|
|
|
2015-11-20 16:31:14 +00:00
|
|
|
|
.1 jsr SYM.Dump
|
|
|
|
|
|
2016-10-29 19:58:21 +00:00
|
|
|
|
>LDYA L.MSG.SUMMARY
|
2017-08-25 15:02:16 +00:00
|
|
|
|
>SYSCALL PrintF.YA
|
2015-11-20 16:31:14 +00:00
|
|
|
|
|
|
|
|
|
lda #0 End of assembly, exit with no error
|
2015-10-02 16:04:30 +00:00
|
|
|
|
.99 sec
|
|
|
|
|
rts
|
|
|
|
|
|
2015-12-17 16:57:35 +00:00
|
|
|
|
.2 jsr SRC.PrintLine
|
2018-01-12 16:05:04 +00:00
|
|
|
|
|
2015-11-27 16:26:11 +00:00
|
|
|
|
jsr SRC.ParseLine
|
|
|
|
|
bcs .9
|
2015-10-02 16:04:30 +00:00
|
|
|
|
|
|
|
|
|
.8 clc
|
|
|
|
|
rts
|
|
|
|
|
|
2015-10-06 16:14:48 +00:00
|
|
|
|
.9 pha
|
2015-12-17 16:57:35 +00:00
|
|
|
|
jsr SRC.PrintLineErr
|
2017-07-07 15:13:55 +00:00
|
|
|
|
|
2015-10-06 16:14:48 +00:00
|
|
|
|
pla
|
|
|
|
|
pha
|
|
|
|
|
>PUSHA
|
2015-10-02 16:04:30 +00:00
|
|
|
|
>PUSHW SRC.LINENUM
|
2016-10-29 19:58:21 +00:00
|
|
|
|
>LDYA L.MSG.ERROR
|
2017-08-25 15:02:16 +00:00
|
|
|
|
>SYSCALL PrintF.YA
|
2015-10-06 16:14:48 +00:00
|
|
|
|
pla
|
2015-10-02 16:04:30 +00:00
|
|
|
|
sec
|
|
|
|
|
rts
|
2015-08-05 20:38:05 +00:00
|
|
|
|
*--------------------------------------
|
2017-07-07 15:13:55 +00:00
|
|
|
|
CS.DOEVENT sec
|
2015-08-05 20:38:05 +00:00
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2015-10-28 16:55:12 +00:00
|
|
|
|
CS.QUIT jsr FIO.FileClose
|
2015-10-02 16:04:30 +00:00
|
|
|
|
bne CS.QUIT
|
|
|
|
|
|
2015-11-20 16:31:14 +00:00
|
|
|
|
jsr SYM.Quit
|
|
|
|
|
|
2018-01-11 16:34:09 +00:00
|
|
|
|
>LDA.G ASM.T.hMem
|
2015-10-21 16:24:11 +00:00
|
|
|
|
beq .1
|
2018-01-11 16:34:09 +00:00
|
|
|
|
|
2017-08-25 06:37:21 +00:00
|
|
|
|
>SYSCALL FreeMem.A
|
2015-10-21 16:24:11 +00:00
|
|
|
|
|
2018-01-11 16:34:09 +00:00
|
|
|
|
.1 >LDA.G SRC.hFILENAME
|
|
|
|
|
beq .2
|
|
|
|
|
|
|
|
|
|
>SYSCALL FreeMem.A
|
|
|
|
|
|
|
|
|
|
.2 >LDA.G SRC.hLineBuf
|
|
|
|
|
beq .3
|
|
|
|
|
|
|
|
|
|
>SYSCALL FreeMem.A
|
|
|
|
|
|
|
|
|
|
.3 >LDA.G SRC.hTmpBuf
|
2015-09-16 15:58:06 +00:00
|
|
|
|
beq .8
|
2015-08-05 20:38:05 +00:00
|
|
|
|
|
2017-08-25 06:37:21 +00:00
|
|
|
|
>SYSCALL FreeMem.A
|
2015-08-05 20:38:05 +00:00
|
|
|
|
|
2016-10-29 19:58:21 +00:00
|
|
|
|
.8 clc
|
2015-08-05 20:38:05 +00:00
|
|
|
|
rts
|
|
|
|
|
*---------------------------------------
|
2018-01-10 16:34:57 +00:00
|
|
|
|
.INB /A2OSX.BUILD/BIN/DEV/ASM.S.DIR
|
|
|
|
|
.INB /A2OSX.BUILD/BIN/DEV/ASM.S.EXP
|
|
|
|
|
.INB /A2OSX.BUILD/BIN/DEV/ASM.S.FIO
|
|
|
|
|
.INB /A2OSX.BUILD/BIN/DEV/ASM.S.SRC
|
|
|
|
|
.INB /A2OSX.BUILD/BIN/DEV/ASM.S.SYM
|
2015-10-02 16:04:30 +00:00
|
|
|
|
*---------------------------------------
|
2015-03-14 21:47:37 +00:00
|
|
|
|
CS.END
|
2018-01-11 16:34:09 +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"
|
2015-10-04 20:55:51 +00:00
|
|
|
|
.HS 00
|
2015-03-14 21:47:37 +00:00
|
|
|
|
*---------------------------------------
|
2018-01-11 16:34:09 +00:00
|
|
|
|
T.LI >PSTR "CON"
|
|
|
|
|
>PSTR "COFF"
|
|
|
|
|
>PSTR "XON"
|
|
|
|
|
>PSTR "XOFF"
|
|
|
|
|
>PSTR "ON"
|
|
|
|
|
>PSTR "OFF"
|
2015-10-06 16:14:48 +00:00
|
|
|
|
.HS 00
|
|
|
|
|
*---------------------------------------
|
2017-06-16 13:01:08 +00:00
|
|
|
|
MSG.HELP >CSTR "A2osX-Macro Assembler (S-C MASM 3.0 Based)\r\nUsage : ASM <src file> [type TXT ($04) or S-C/BAS ($FA)]\r\n"
|
|
|
|
|
MSG.PASS >CSTR "Pass:#%d\r\n"
|
2018-01-10 16:34:57 +00:00
|
|
|
|
MSG.SRC.FILE >CSTR "Reading SRC File:%s\r\n"
|
|
|
|
|
MSG.OBJ.FILE >CSTR "Writing OBJ File:%s, Type=%02x\r\n"
|
|
|
|
|
MSG.T.FILE >CSTR "Loading CPU File:%s\r\n"
|
2017-06-16 13:01:08 +00:00
|
|
|
|
MSG.SRCLINE >CSTR "%H: %05D-%s\r\n"
|
2018-01-12 16:05:04 +00:00
|
|
|
|
MSG.LINECR >CSTR "%s\r\n"
|
2017-06-16 13:01:08 +00:00
|
|
|
|
MSG.ERROR >CSTR "%05D-Error:$%h\r\n"
|
|
|
|
|
MSG.SYMBOLS >CSTR "Symbol Table:\r\n"
|
2016-10-24 15:54:43 +00:00
|
|
|
|
MSG.GSYMBOL >CSTR "$%H%H:%S"
|
|
|
|
|
MSG.LSYMBOL >CSTR " .%d:+$%h"
|
2017-06-16 13:01:08 +00:00
|
|
|
|
MSG.SUMMARY >CSTR "\r\nEnd Of Assembly.\r\n"
|
2016-10-24 15:54:43 +00:00
|
|
|
|
SRC.AM.RESERVED >PSTR "[](),"
|
|
|
|
|
SRC.MOD.RESERVED >PSTR "#/<>"
|
|
|
|
|
SRC.EXP.RESERVED >PSTR "^!|&<=>+-*/"
|
2018-01-11 16:34:09 +00:00
|
|
|
|
ASM.6502 >CSTR "6502"
|
|
|
|
|
*---------------------------------------
|
2015-10-21 16:24:11 +00:00
|
|
|
|
ASM.T.FILENAME .BS 65
|
2015-11-20 16:31:14 +00:00
|
|
|
|
|
2018-01-10 16:34:57 +00:00
|
|
|
|
FIO.Stat .BS S.STAT
|
2015-11-20 16:31:14 +00:00
|
|
|
|
|
|
|
|
|
EXP.Operator .BS 1
|
2015-12-17 16:57:35 +00:00
|
|
|
|
EXP.Modifier .BS 1
|
|
|
|
|
|
|
|
|
|
SYM.iCurGBlock.Save .BS 1
|
|
|
|
|
SYM.pCurGBlock.Save .BS 1
|
2015-11-20 16:31:14 +00:00
|
|
|
|
|
2015-09-16 20:48:59 +00:00
|
|
|
|
SRC.LINENUM .BS 2
|
2018-01-11 16:34:09 +00:00
|
|
|
|
SRC.LinePtrSave .BS 2
|
2015-10-06 16:14:48 +00:00
|
|
|
|
SRC.Directive.ID .BS 1
|
|
|
|
|
SRC.Keyword.ID .BS 1
|
2015-10-02 16:04:30 +00:00
|
|
|
|
SRC.ACC .BS 4
|
|
|
|
|
SRC.ACCTMP .BS 4
|
2015-11-27 16:26:11 +00:00
|
|
|
|
SRC.ARG .BS 4
|
2015-10-30 16:34:59 +00:00
|
|
|
|
SRC.AM.ID .BS 1
|
|
|
|
|
SRC.AM.StrBuf .BS 32
|
|
|
|
|
SRC.AM.tmpBuf .BS 32
|
2015-11-20 16:31:14 +00:00
|
|
|
|
SRC.GLabel.New .BS 1
|
2015-11-13 16:25:31 +00:00
|
|
|
|
SRC.GLabel.Flags .BS 1
|
2015-11-20 16:31:14 +00:00
|
|
|
|
SRC.GLabel.Value .BS 4
|
2015-11-13 16:25:31 +00:00
|
|
|
|
SRC.GLabel.Len .BS 1
|
|
|
|
|
SRC.GLabel.Name .BS SRC.GLABEL.MAXLEN
|
2015-11-20 16:31:14 +00:00
|
|
|
|
SRC.LLabel.ID .BS 1
|
|
|
|
|
SRC.LLabel.Offset .BS 1
|
|
|
|
|
SRC.ELabel.Flags .BS 1
|
|
|
|
|
SRC.ELabel.Value .BS 4
|
|
|
|
|
SRC.ELabel.Len .BS 1
|
|
|
|
|
SRC.ELabel.Name .BS SRC.GLABEL.MAXLEN
|
|
|
|
|
SRC.FLabel.Flags .BS 1
|
|
|
|
|
SRC.FLabel.Value .BS 4
|
|
|
|
|
SRC.FLabel.Len .BS 1
|
|
|
|
|
SRC.FLabel.Name .BS SRC.GLABEL.MAXLEN
|
2015-08-05 20:38:05 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
.DUMMY
|
|
|
|
|
.OR 0
|
|
|
|
|
DS.START
|
2017-07-07 15:13:55 +00:00
|
|
|
|
bPause .BS 1
|
2015-09-16 20:48:59 +00:00
|
|
|
|
|
2015-10-02 16:04:30 +00:00
|
|
|
|
SRC.hFILENAME .BS 1
|
2018-01-11 16:34:09 +00:00
|
|
|
|
SRC.hLineBuf .BS 1
|
|
|
|
|
SRC.hTmpBuf .BS 1
|
2015-10-02 16:04:30 +00:00
|
|
|
|
|
2015-09-16 15:58:06 +00:00
|
|
|
|
SRC.COUNT .BS 1
|
2016-10-29 19:58:21 +00:00
|
|
|
|
SRC.hFILES .BS SRC.IN.MAXDEPTH
|
2015-12-04 16:33:33 +00:00
|
|
|
|
SRC.hFILETYPES .BS SRC.IN.MAXDEPTH
|
2015-08-05 20:38:05 +00:00
|
|
|
|
|
2015-03-14 21:47:37 +00:00
|
|
|
|
DST.hFILENAME .BS 1
|
2015-08-05 20:38:05 +00:00
|
|
|
|
DST.hREFNUM .BS 1
|
2015-03-14 21:47:37 +00:00
|
|
|
|
DST.hBUFFER .BS 1
|
2015-10-02 16:04:30 +00:00
|
|
|
|
DST.hFILETYPE .BS 1
|
2015-09-16 20:48:59 +00:00
|
|
|
|
|
2015-12-04 16:33:33 +00:00
|
|
|
|
ASM.T.hMem .BS 1
|
2015-10-06 16:14:48 +00:00
|
|
|
|
|
2015-11-20 16:31:14 +00:00
|
|
|
|
SYM.hCurSBlock .BS 1
|
|
|
|
|
SYM.iCurSBlock .BS 1
|
2015-11-13 16:25:31 +00:00
|
|
|
|
SYM.LastSBlock .BS 1
|
|
|
|
|
SYM.hSBlocks .BS SYM.SBLOCK.MAX
|
|
|
|
|
|
2015-12-04 16:33:33 +00:00
|
|
|
|
SYM.pCurGBlock .BS 1
|
2015-11-20 16:31:14 +00:00
|
|
|
|
SYM.iCurGBlock .BS 1
|
2015-12-04 16:33:33 +00:00
|
|
|
|
SYM.pLastGBlock .BS 1
|
|
|
|
|
SYM.iLastGBlock .BS 1
|
2015-11-20 16:31:14 +00:00
|
|
|
|
SYM.hGBlocks .BS SYM.GBLOCK.MAX
|
|
|
|
|
|
|
|
|
|
SYM.hCurPBlock .BS 1
|
|
|
|
|
SYM.iCurPBlock .BS 1
|
|
|
|
|
SYM.LastPBlock .BS 1
|
2015-11-13 16:25:31 +00:00
|
|
|
|
SYM.hPBlocks .BS SYM.PBLOCK.MAX
|
|
|
|
|
|
2015-11-20 16:31:14 +00:00
|
|
|
|
SYM.hCurMBlock .BS 1
|
|
|
|
|
SYM.iCurMBlock .BS 1
|
|
|
|
|
SYM.LastMBlock .BS 1
|
2015-11-13 16:25:31 +00:00
|
|
|
|
SYM.hMBlocks .BS SYM.MBLOCK.MAX
|
2015-11-20 16:31:14 +00:00
|
|
|
|
|
|
|
|
|
SYM.DumpCount .BS 1
|
2015-10-30 16:34:59 +00:00
|
|
|
|
|
2015-12-04 16:33:33 +00:00
|
|
|
|
DIR.Counter .BS 2
|
|
|
|
|
DIR.Byte .BS 1
|
|
|
|
|
|
2015-08-05 20:38:05 +00:00
|
|
|
|
ASM.PASS .BS 1
|
2015-10-28 16:55:12 +00:00
|
|
|
|
ASM.MACRO.ON .BS 1
|
2015-12-04 16:33:33 +00:00
|
|
|
|
ASM.DO.Count .BS 1
|
|
|
|
|
ASM.DOELSE.Flag .BS SRC.DO.MAXDEPTH
|
|
|
|
|
ASM.DO.ON .BS 1
|
2015-10-02 16:04:30 +00:00
|
|
|
|
ASM.PH.ON .BS 1
|
2015-10-06 16:14:48 +00:00
|
|
|
|
ASM.LI.ON .BS 1
|
|
|
|
|
ASM.LI.CON .BS 1
|
|
|
|
|
ASM.LI.XON .BS 1
|
2015-12-04 16:33:33 +00:00
|
|
|
|
ASM.PC .BS 4
|
|
|
|
|
ASM.PC.PH .BS 4
|
|
|
|
|
ASM.PC.GLABEL .BS 4
|
2015-12-17 16:57:35 +00:00
|
|
|
|
ASM.LOCAL.OFFSET .BS 1
|
|
|
|
|
ASM.LOCAL.INVALID .BS 1
|
|
|
|
|
ASM.SYM.ID .BS 2
|
2015-08-05 20:38:05 +00:00
|
|
|
|
DS.END .ED
|
2015-11-20 16:31:14 +00:00
|
|
|
|
*---------------------------------------
|
|
|
|
|
.DO DS.END-DS.START>$FF
|
|
|
|
|
ERROR:DS too big
|
|
|
|
|
.FIN
|
2015-03-14 21:47:37 +00:00
|
|
|
|
*---------------------------------------
|
|
|
|
|
MAN
|
2018-01-10 16:34:57 +00:00
|
|
|
|
SAVE /A2OSX.BUILD/BIN/DEV/ASM.S
|
2015-03-14 21:47:37 +00:00
|
|
|
|
ASM
|