2015-03-14 21:47:37 +00:00
|
|
|
|
PR#3
|
2015-06-03 18:30:57 +00:00
|
|
|
|
PREFIX /A2OSX.SRC
|
2015-03-14 21:47:37 +00:00
|
|
|
|
NEW
|
|
|
|
|
INC 1
|
|
|
|
|
AUTO 6
|
|
|
|
|
.LIST OFF
|
|
|
|
|
.OP 65C02
|
|
|
|
|
.OR $2000
|
2015-08-05 20:38:05 +00:00
|
|
|
|
.TF /A2OSX.BOOT/BIN/ASM
|
2015-03-14 21:47:37 +00:00
|
|
|
|
*---------------------------------------
|
|
|
|
|
.INB INC/MACROS.I
|
|
|
|
|
.INB INC/A2OSX.I
|
2015-08-05 20:38:05 +00:00
|
|
|
|
.INB INC/A2OSX.API.I
|
2015-03-14 21:47:37 +00:00
|
|
|
|
.INB INC/LIBSTR.I
|
|
|
|
|
*---------------------------------------
|
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
|
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-10-30 16:34:59 +00:00
|
|
|
|
SYM.BLOCK.MAX .EQ 128 128*256 = 32k max of symbols
|
|
|
|
|
SYM.MAXCOUNT .EQ 1024
|
|
|
|
|
SRC.IN.MAXDEPTH .EQ 7
|
2015-10-06 16:14:48 +00:00
|
|
|
|
SRC.LABEL.MAXLEN .EQ 32
|
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
|
|
|
|
|
ERR.INVALID.LABEL .EQ $A4
|
|
|
|
|
ERR.INVALID.DIRECTIVE .EQ $A5
|
2015-10-28 16:55:12 +00:00
|
|
|
|
ERR.INVALID.OPCODE .EQ $A6
|
2015-10-30 16:34:59 +00:00
|
|
|
|
ERR.INVALID.AM.SYN .EQ $A7
|
|
|
|
|
ERR.INVALID.AM.4.OC .EQ $A8
|
2015-10-09 15:53:30 +00:00
|
|
|
|
ERR.MISSING.EXP .EQ $B0
|
|
|
|
|
ERR.EXP.SYN.ERROR .EQ $B1
|
2015-10-06 16:14:48 +00:00
|
|
|
|
ERR.INVALID.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
|
|
|
|
|
.DA CS.END-CS.START
|
|
|
|
|
.DA DS.END-DS.START Data Segment to Allocate
|
|
|
|
|
.DA 0
|
|
|
|
|
.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
|
|
|
|
|
L.LIBSTR .DA LIBSTR
|
|
|
|
|
L.MSG.HELP1 .DA MSG.HELP1
|
|
|
|
|
L.MSG.HELP2 .DA MSG.HELP2
|
|
|
|
|
L.MSG.SRCLINE .DA MSG.SRCLINE
|
2015-10-02 16:04:30 +00:00
|
|
|
|
L.MSG.ERROR .DA MSG.ERROR
|
2015-10-30 16:34:59 +00:00
|
|
|
|
L.MSG.DEBUG .DA MSG.DEBUG
|
|
|
|
|
L.SRC.AM.StrBuf .DA SRC.AM.StrBuf
|
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-10-06 16:14:48 +00:00
|
|
|
|
L.SRC.BUFFER .DA SRC.BUFFER
|
2015-10-21 16:24:11 +00:00
|
|
|
|
L.ASM.T.FILENAME .DA ASM.T.FILENAME
|
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
|
2015-03-14 21:47:37 +00:00
|
|
|
|
.DA 0
|
|
|
|
|
*---------------------------------------
|
2015-08-05 20:38:05 +00:00
|
|
|
|
CS.INIT >LDYA L.LIBSTR
|
|
|
|
|
>LOADLIBYA
|
2015-03-14 21:47:37 +00:00
|
|
|
|
sta hLIBSTR
|
|
|
|
|
|
|
|
|
|
ldy #S.PS.hARGS
|
2015-08-05 20:38:05 +00:00
|
|
|
|
lda (pPs),y
|
2015-10-06 16:14:48 +00:00
|
|
|
|
bne .1
|
2015-03-14 21:47:37 +00:00
|
|
|
|
|
|
|
|
|
>PUSHW L.MSG.HELP1
|
|
|
|
|
>LIBCALL hLIBSTR,LIBSTR.PRINTF
|
|
|
|
|
>PUSHW L.MSG.HELP2
|
|
|
|
|
>LIBCALL hLIBSTR,LIBSTR.PRINTF
|
|
|
|
|
lda #ERR.INV.ARGS
|
|
|
|
|
sec
|
|
|
|
|
rts
|
|
|
|
|
|
2015-10-06 16:14:48 +00:00
|
|
|
|
.1 >SYSCALL SYS.PStrCpyA
|
|
|
|
|
ldy #SRC.hFILENAME
|
2015-10-02 16:04:30 +00:00
|
|
|
|
sta (pData),y Store filename
|
2015-03-14 21:47:37 +00:00
|
|
|
|
|
2015-10-21 16:24:11 +00:00
|
|
|
|
ldy #S.PS.hCMD
|
|
|
|
|
lda (pPS),y
|
|
|
|
|
>SYSCALL SYS.GetMemPtrA
|
|
|
|
|
bcs .99
|
|
|
|
|
>STYA ZPPtr1
|
|
|
|
|
lda (ZPPtr1)
|
|
|
|
|
tay
|
|
|
|
|
adc #3 len of ".T."
|
|
|
|
|
sta ASM.T.FILENAMELEN
|
|
|
|
|
adc #4 len of "6502"
|
|
|
|
|
sta ASM.T.FILENAME
|
|
|
|
|
tax
|
|
|
|
|
|
|
|
|
|
.2 lda (ZPPtr1),y
|
|
|
|
|
sta ASM.T.FILENAME,y
|
|
|
|
|
dey
|
|
|
|
|
bne .2
|
|
|
|
|
|
|
|
|
|
ldy #6
|
|
|
|
|
|
|
|
|
|
.3 lda ASM.T.DEFAULT,y
|
|
|
|
|
sta ASM.T.FILENAME,x
|
|
|
|
|
dex
|
|
|
|
|
dey
|
|
|
|
|
bpl .3
|
|
|
|
|
|
|
|
|
|
jsr LOAD.ASM.T
|
|
|
|
|
bcs .99
|
|
|
|
|
|
2015-10-06 16:14:48 +00:00
|
|
|
|
lda #$80
|
|
|
|
|
ldy #ASM.LI.ON
|
|
|
|
|
sta (pData),y
|
2015-10-09 15:53:30 +00:00
|
|
|
|
|
2015-10-28 16:55:12 +00:00
|
|
|
|
* lda #$00
|
|
|
|
|
lda #$80
|
2015-10-06 16:14:48 +00:00
|
|
|
|
ldy #ASM.LI.CON
|
|
|
|
|
sta (pData),y
|
|
|
|
|
ldy #ASM.LI.XON
|
|
|
|
|
sta (pData),y
|
|
|
|
|
|
2015-10-04 20:55:51 +00:00
|
|
|
|
lda (pPs)
|
2015-03-14 21:47:37 +00:00
|
|
|
|
ora #S.PS.F.EVENT Now accept events
|
2015-08-05 20:38:05 +00:00
|
|
|
|
sta (pPs)
|
2015-03-14 21:47:37 +00:00
|
|
|
|
|
|
|
|
|
clc
|
|
|
|
|
rts
|
|
|
|
|
|
2015-08-05 20:38:05 +00:00
|
|
|
|
.98 lda #ERR.INV.ARGS
|
|
|
|
|
|
2015-03-14 21:47:37 +00:00
|
|
|
|
sec
|
|
|
|
|
.99 rts
|
|
|
|
|
*--------------------------------------
|
2015-09-16 20:48:59 +00:00
|
|
|
|
CS.RUN ldy #bCANCEL
|
|
|
|
|
lda (pData),y
|
2015-10-02 16:04:30 +00:00
|
|
|
|
bne .99
|
2015-03-14 21:47:37 +00:00
|
|
|
|
|
2015-10-02 16:04:30 +00:00
|
|
|
|
ldy #bSTOP
|
2015-09-16 20:48:59 +00:00
|
|
|
|
lda (pData),y
|
2015-10-02 16:04:30 +00:00
|
|
|
|
bne .8
|
|
|
|
|
|
|
|
|
|
ldy #SRC.COUNT root file is already opened?
|
|
|
|
|
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
|
|
|
|
|
>PUSHW L.MSG.PASS
|
|
|
|
|
>LIBCALL hLIBSTR,LIBSTR.PRINTF
|
|
|
|
|
|
2015-10-02 16:04:30 +00:00
|
|
|
|
ldy #SRC.hFILENAME
|
|
|
|
|
lda (pData),y
|
|
|
|
|
|
2015-10-28 16:55:12 +00:00
|
|
|
|
jsr FIO.OpenFileA
|
2015-10-06 16:14:48 +00:00
|
|
|
|
bcs .99
|
2015-10-02 16:04:30 +00:00
|
|
|
|
|
2015-10-28 16:55:12 +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-10-02 16:04:30 +00:00
|
|
|
|
.1 lda #0 End of assembly, exit with no error
|
|
|
|
|
.99 sec
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
.2 jsr SRC.ParseLine
|
2015-09-25 15:50:15 +00:00
|
|
|
|
bcs .9
|
|
|
|
|
|
2015-10-06 16:14:48 +00:00
|
|
|
|
jsr SRC.PrintLine with CC, conditional
|
2015-10-02 16:04:30 +00:00
|
|
|
|
|
|
|
|
|
.8 clc
|
|
|
|
|
rts
|
|
|
|
|
|
2015-10-06 16:14:48 +00:00
|
|
|
|
.9 pha
|
|
|
|
|
sec
|
|
|
|
|
jsr SRC.PrintLine with CS, print always
|
|
|
|
|
pla
|
|
|
|
|
pha
|
|
|
|
|
>PUSHA
|
2015-10-02 16:04:30 +00:00
|
|
|
|
>PUSHW SRC.LINENUM
|
|
|
|
|
>PUSHW L.MSG.ERROR
|
|
|
|
|
>LIBCALL hLIBSTR,LIBSTR.PRINTF
|
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
|
|
|
|
*--------------------------------------
|
|
|
|
|
CS.DOEVENT ldy #S.EVT.hDEV is Event from active IN device?
|
|
|
|
|
lda (pEvent),y
|
|
|
|
|
ldy #S.PS.hINDEV
|
|
|
|
|
cmp (pPs),y
|
|
|
|
|
bne .9
|
|
|
|
|
lda (pEvent)
|
|
|
|
|
and #S.EVT.F.KEY is it a KEY event?
|
|
|
|
|
beq .9
|
|
|
|
|
ldy #S.EVT.DATAHI is it an O or SAPPLE key ?
|
|
|
|
|
lda (pEvent),y
|
|
|
|
|
bne .9
|
|
|
|
|
ldy #S.EVT.DATALO
|
|
|
|
|
lda (pEvent),y
|
|
|
|
|
cmp #$03 Ctrl-C
|
|
|
|
|
bne .1
|
2015-09-16 20:48:59 +00:00
|
|
|
|
|
2015-08-05 20:38:05 +00:00
|
|
|
|
lda #$FF
|
2015-09-16 20:48:59 +00:00
|
|
|
|
ldy #bCANCEL
|
|
|
|
|
sta (pData),y
|
2015-08-05 20:38:05 +00:00
|
|
|
|
bra .8
|
2015-09-16 20:48:59 +00:00
|
|
|
|
|
2015-08-05 20:38:05 +00:00
|
|
|
|
.1 cmp #$13 Ctrl-S
|
|
|
|
|
bne .8
|
2015-09-16 20:48:59 +00:00
|
|
|
|
|
|
|
|
|
ldy #bSTOP
|
|
|
|
|
lda (pData),y
|
2015-08-05 20:38:05 +00:00
|
|
|
|
eor #$FF
|
2015-09-16 20:48:59 +00:00
|
|
|
|
sta (pData),y
|
2015-08-05 20:38:05 +00:00
|
|
|
|
|
|
|
|
|
.8 clc
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
.9 sec
|
|
|
|
|
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-10-21 16:24:11 +00:00
|
|
|
|
ldy #ASM.T.hMem
|
|
|
|
|
lda (pData),y
|
|
|
|
|
beq .1
|
|
|
|
|
>SYSCALL SYS.FreeMemA
|
|
|
|
|
|
|
|
|
|
.1 ldy #SRC.hFILENAME
|
2015-08-05 20:38:05 +00:00
|
|
|
|
lda (pData),y
|
2015-09-16 15:58:06 +00:00
|
|
|
|
beq .8
|
2015-08-05 20:38:05 +00:00
|
|
|
|
|
|
|
|
|
>SYSCALL SYS.FreeMemA
|
|
|
|
|
|
2015-10-28 16:55:12 +00:00
|
|
|
|
.8 lda hLIBSTR
|
2015-08-05 20:38:05 +00:00
|
|
|
|
>SYSCALL SYS.UnloadLibA
|
|
|
|
|
clc
|
|
|
|
|
rts
|
|
|
|
|
*---------------------------------------
|
2015-10-04 20:55:51 +00:00
|
|
|
|
.INB BIN/ASM.S.DIR
|
2015-10-28 16:55:12 +00:00
|
|
|
|
.INB BIN/ASM.S.EXP
|
|
|
|
|
.INB BIN/ASM.S.FIO
|
|
|
|
|
.INB BIN/ASM.S.SRC
|
2015-10-04 20:55:51 +00:00
|
|
|
|
.INB BIN/ASM.S.SYM
|
2015-10-02 16:04:30 +00:00
|
|
|
|
*---------------------------------------
|
2015-03-14 21:47:37 +00:00
|
|
|
|
CS.END
|
2015-10-04 20:55:51 +00:00
|
|
|
|
SRC.DIR.MAXLEN .EQ 5 (DUMMY)
|
|
|
|
|
T.DIRECTIVES .HS 02
|
|
|
|
|
.AS "AC"
|
|
|
|
|
.HS 02
|
|
|
|
|
.AS "AS"
|
|
|
|
|
.HS 02
|
2015-03-14 21:47:37 +00:00
|
|
|
|
.AS "AT"
|
2015-10-04 20:55:51 +00:00
|
|
|
|
.HS 02
|
2015-03-14 21:47:37 +00:00
|
|
|
|
.AS "AZ"
|
2015-10-04 20:55:51 +00:00
|
|
|
|
.HS 02
|
2015-03-14 21:47:37 +00:00
|
|
|
|
.AS "BS"
|
2015-10-04 20:55:51 +00:00
|
|
|
|
.HS 02
|
2015-03-14 21:47:37 +00:00
|
|
|
|
.AS "DA"
|
2015-10-04 20:55:51 +00:00
|
|
|
|
.HS 02
|
2015-03-14 21:47:37 +00:00
|
|
|
|
.AS "DO"
|
2015-10-04 20:55:51 +00:00
|
|
|
|
.HS 02
|
2015-03-14 21:47:37 +00:00
|
|
|
|
.AS "DU"
|
2015-10-04 20:55:51 +00:00
|
|
|
|
.HS 05
|
|
|
|
|
.AS "DUMMY"
|
|
|
|
|
.HS 02
|
2015-03-14 21:47:37 +00:00
|
|
|
|
.AS "ED"
|
2015-10-04 20:55:51 +00:00
|
|
|
|
.HS 04
|
|
|
|
|
.AS "ELSE"
|
|
|
|
|
.HS 02
|
2015-10-06 16:14:48 +00:00
|
|
|
|
.AS "EM"
|
|
|
|
|
.HS 02
|
2015-03-14 21:47:37 +00:00
|
|
|
|
.AS "EN"
|
2015-10-04 20:55:51 +00:00
|
|
|
|
.HS 02
|
2015-03-14 21:47:37 +00:00
|
|
|
|
.AS "EP"
|
2015-10-04 20:55:51 +00:00
|
|
|
|
.HS 02
|
2015-03-14 21:47:37 +00:00
|
|
|
|
.AS "EQ"
|
2015-10-04 20:55:51 +00:00
|
|
|
|
.HS 03
|
|
|
|
|
.AS "FIN"
|
|
|
|
|
.HS 02
|
2015-03-14 21:47:37 +00:00
|
|
|
|
.AS "HS"
|
2015-10-04 20:55:51 +00:00
|
|
|
|
.HS 02
|
2015-03-14 21:47:37 +00:00
|
|
|
|
.AS "IN"
|
2015-10-04 20:55:51 +00:00
|
|
|
|
.HS 03
|
|
|
|
|
.AS "INB"
|
|
|
|
|
.HS 04
|
|
|
|
|
.AS "INB1"
|
|
|
|
|
.HS 04
|
|
|
|
|
.AS "INB2"
|
|
|
|
|
.HS 04
|
|
|
|
|
.AS "INB3"
|
|
|
|
|
.HS 04
|
|
|
|
|
.AS "INB4"
|
|
|
|
|
.HS 04
|
|
|
|
|
.AS "INB5"
|
|
|
|
|
.HS 04
|
|
|
|
|
.AS "INB6"
|
|
|
|
|
.HS 04
|
|
|
|
|
.AS "INB7"
|
|
|
|
|
.HS 04
|
|
|
|
|
.AS "INB8"
|
|
|
|
|
.HS 04
|
|
|
|
|
.AS "INB9"
|
|
|
|
|
.HS 02
|
2015-03-14 21:47:37 +00:00
|
|
|
|
.AS "LI"
|
2015-10-04 20:55:51 +00:00
|
|
|
|
.HS 04
|
|
|
|
|
.AS "LIST"
|
|
|
|
|
.HS 02
|
2015-03-14 21:47:37 +00:00
|
|
|
|
.AS "MA"
|
2015-10-04 20:55:51 +00:00
|
|
|
|
.HS 02
|
2015-03-14 21:47:37 +00:00
|
|
|
|
.AS "OP"
|
2015-10-04 20:55:51 +00:00
|
|
|
|
.HS 02
|
2015-03-14 21:47:37 +00:00
|
|
|
|
.AS "OR"
|
2015-10-04 20:55:51 +00:00
|
|
|
|
.HS 02
|
2015-03-14 21:47:37 +00:00
|
|
|
|
.AS "PG"
|
2015-10-04 20:55:51 +00:00
|
|
|
|
.HS 02
|
2015-03-14 21:47:37 +00:00
|
|
|
|
.AS "PH"
|
2015-10-04 20:55:51 +00:00
|
|
|
|
.HS 02
|
|
|
|
|
.AS "SE"
|
|
|
|
|
.HS 02
|
2015-03-14 21:47:37 +00:00
|
|
|
|
.AS "TA"
|
2015-10-04 20:55:51 +00:00
|
|
|
|
.HS 02
|
2015-03-14 21:47:37 +00:00
|
|
|
|
.AS "TF"
|
2015-10-04 20:55:51 +00:00
|
|
|
|
.HS 02
|
2015-03-14 21:47:37 +00:00
|
|
|
|
.AS "TI"
|
2015-10-04 20:55:51 +00:00
|
|
|
|
.HS 02
|
2015-03-14 21:47:37 +00:00
|
|
|
|
.AS "US"
|
2015-10-04 20:55:51 +00:00
|
|
|
|
.HS 00
|
2015-03-14 21:47:37 +00:00
|
|
|
|
*---------------------------------------
|
2015-10-06 16:14:48 +00:00
|
|
|
|
T.LI .HS 03
|
|
|
|
|
.AS "CON"
|
|
|
|
|
.HS 04
|
|
|
|
|
.AS "COFF"
|
|
|
|
|
.HS 03
|
|
|
|
|
.AS "XON"
|
|
|
|
|
.HS 04
|
|
|
|
|
.AS "XOFF"
|
|
|
|
|
.HS 02
|
|
|
|
|
.AS "ON"
|
|
|
|
|
.HS 03
|
|
|
|
|
.AS "OFF"
|
|
|
|
|
.HS 00
|
|
|
|
|
*---------------------------------------
|
2015-03-14 21:47:37 +00:00
|
|
|
|
LIBSTR >PSTRING "libstr.o"
|
2015-10-06 16:14:48 +00:00
|
|
|
|
MSG.HELP1 >CSTRING "A2osX-Macro Assembler (S-C MASM 3.0 Based)\n"
|
2015-03-14 21:47:37 +00:00
|
|
|
|
MSG.HELP2 >CSTRING "Usage : ASM <src file> [type TXT ($04) or S-C/BAS ($FA)]\n"
|
2015-10-06 16:14:48 +00:00
|
|
|
|
MSG.PASS >CSTRING "Pass:#%d\n"
|
2015-10-09 15:53:30 +00:00
|
|
|
|
MSG.SRC.FILE >CSTRING "Source File:%S\n"
|
|
|
|
|
MSG.OBJ.FILE >CSTRING "Object File:%S, Type=%02x\n"
|
2015-10-28 16:55:12 +00:00
|
|
|
|
MSG.T.FILE >CSTRING "CPU Definition File:%S\n"
|
2015-03-14 21:47:37 +00:00
|
|
|
|
MSG.SRCLINE >CSTRING "%05D-%s\n"
|
2015-10-02 16:04:30 +00:00
|
|
|
|
MSG.ERROR >CSTRING "%05D-Error:$%h\n"
|
2015-10-30 16:34:59 +00:00
|
|
|
|
MSG.DEBUG >CSTRING "DEBUG:%S\n"
|
|
|
|
|
SRC.AM.RESERVED >PSTRING "[]#(),"
|
|
|
|
|
SRC.EXP.RESERVED >PSTRING "^!|&<=>+-*/"
|
2015-10-21 16:24:11 +00:00
|
|
|
|
ASM.T.DEFAULT .AS ".T.6502"
|
|
|
|
|
ASM.T.FILENAMELEN .BS 1
|
|
|
|
|
ASM.T.FILENAME .BS 65
|
2015-03-14 21:47:37 +00:00
|
|
|
|
hLIBSTR .BS 1
|
2015-08-05 20:38:05 +00:00
|
|
|
|
hFileName .BS 1
|
2015-09-16 20:48:59 +00:00
|
|
|
|
SRC.LINENUM .BS 2
|
2015-10-02 16:04:30 +00:00
|
|
|
|
SRC.Label.Flags .BS 1
|
|
|
|
|
SRC.Label .BS SRC.LABEL.MAXLEN
|
|
|
|
|
SRC.LabelValue .BS 4
|
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-10-30 16:34:59 +00:00
|
|
|
|
SRC.AM.ID .BS 1
|
|
|
|
|
SRC.AM.StrBuf .BS 32
|
|
|
|
|
SRC.AM.tmpBuf .BS 32
|
|
|
|
|
SRC.Exp .BS 128
|
|
|
|
|
SRC.BufPtr .BS 1
|
|
|
|
|
SRC.BufPtrSave .BS 1
|
2015-10-06 16:14:48 +00:00
|
|
|
|
SRC.Buffer .BS 256
|
2015-08-05 20:38:05 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
.DUMMY
|
|
|
|
|
.OR 0
|
|
|
|
|
DS.START
|
|
|
|
|
bSTOP .BS 1
|
|
|
|
|
bCANCEL .BS 1
|
2015-09-16 20:48:59 +00:00
|
|
|
|
|
2015-10-02 16:04:30 +00:00
|
|
|
|
SRC.hFILENAME .BS 1
|
|
|
|
|
|
2015-09-16 15:58:06 +00:00
|
|
|
|
SRC.COUNT .BS 1
|
2015-10-30 16:34:59 +00:00
|
|
|
|
SRC.hREFNUMS .BS SRC.IN.MAXDEPTH Store ref_num of opened files (Main, .INs & .INBs)
|
|
|
|
|
SRC.hBUFFERS .BS SRC.IN.MAXDEPTH Store hMem to allocated buffers
|
|
|
|
|
SRC.hFILETYPES .BS SRC.IN.MAXDEPTH Store file type of opened SRC files
|
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-10-21 16:24:11 +00:00
|
|
|
|
ASM.T.hMem .BS 1 handle to ASM.T.xxxxx
|
2015-10-06 16:14:48 +00:00
|
|
|
|
|
2015-10-30 16:34:59 +00:00
|
|
|
|
SYM.Count .BS 2
|
|
|
|
|
SYM.hMem .BS 1
|
|
|
|
|
SYM.hBlocks .BS SYM.BLOCK.MAX
|
|
|
|
|
|
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-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-10-02 16:04:30 +00:00
|
|
|
|
ASM.PC .BS 4 32Bits PC
|
|
|
|
|
ASM.PC.PH .BS 4 32Bits PC saved for PH directive
|
2015-09-16 20:48:59 +00:00
|
|
|
|
|
2015-08-05 20:38:05 +00:00
|
|
|
|
DS.END .ED
|
2015-03-14 21:47:37 +00:00
|
|
|
|
*---------------------------------------
|
|
|
|
|
MAN
|
|
|
|
|
SAVE BIN/ASM.S
|
|
|
|
|
ASM
|