A2osX/BIN/ASM.S.MAC.txt

111 lines
1.8 KiB
Plaintext
Raw Normal View History

2018-01-29 07:41:05 +00:00
NEW
2019-03-18 16:48:16 +00:00
PREFIX
2018-01-29 07:41:05 +00:00
AUTO 4,1
*---------------------------------------
MAC.Init >SYSCALL SListNew
bcs .9
2018-01-29 07:41:05 +00:00
>STA.G MAC.hMacroList
>LDYAI 256
2018-07-20 11:51:08 +00:00
>SYSCALL getmem
bcs .9
>STYA ZPMacroBuf
txa
>STA.G MAC.hMacroBuf
>SYSCALL SListNew
bcs .9
>STA.G MAC.hCtxList
>LDYAI 256
2018-07-20 11:51:08 +00:00
>SYSCALL getmem
bcs .9
>STYA ZPCtxBuf
txa
>STA.G MAC.hCtxBuf
.9 rts
2018-01-29 07:41:05 +00:00
*---------------------------------------
MAC.Reset >STZ.G MAC.CtxID
iny
sta (pData),y
rts
*---------------------------------------
MAC.Quit >LDA.G MAC.hCtxBuf
beq .1
2018-01-29 16:48:07 +00:00
2018-07-18 15:30:42 +00:00
>SYSCALL FreeMem
.1 >LDA.G MAC.hCtxList
beq .2
2018-07-24 16:00:24 +00:00
>SYSCALL SListFree
.2 >LDA.G MAC.hMacroBuf
beq .3
2018-07-18 15:30:42 +00:00
>SYSCALL FreeMem
.3 >LDA.G MAC.hMacroList
beq .8
2018-07-24 16:00:24 +00:00
>SYSCALL SListFree
2018-01-29 07:41:05 +00:00
.8 clc
rts
2018-01-29 07:41:05 +00:00
*---------------------------------------
2019-03-18 16:48:16 +00:00
MAC.AddChar tax
2019-03-22 16:47:33 +00:00
>LDA.G ASM.PASS If Pass#2, ignore
bne .8
2019-03-18 16:48:16 +00:00
>LDA.G MAC.BufPtr
tay
2019-03-18 16:48:16 +00:00
txa
sta (ZPMacroBuf),y
2019-03-18 16:48:16 +00:00
>INC.G MAC.BufPtr
2019-03-18 16:48:16 +00:00
txa
bne .8
2019-03-18 16:48:16 +00:00
>LDA.G MAC.BufPtr
tay
lda #0
>PUSHYA
>PUSHW ZPMacroBuf
2019-03-18 16:48:16 +00:00
>PUSHW.G MAC.MacroID
>LDA.G MAC.hMacroList
>SYSCALL SListAddData
rts
.8 clc
rts
2018-01-29 16:48:07 +00:00
*---------------------------------------
2019-03-18 16:48:16 +00:00
MAC.Lookup >PUSHW ZPMacroBuf
>PUSHW ZPLinePtr
2019-03-18 16:48:16 +00:00
>LDA.G MAC.hMacroList
>SYSCALL SListLookup
bcs .9
2019-03-18 16:48:16 +00:00
txa
adc ZPLinePtr
sta ZPLinePtr
bcc .8
inc ZPLinePtr+1
clc
.8
.9 rts
*---------------------------------------
2019-03-18 16:48:16 +00:00
MAC.NewOrGetCtx sec
rts
*---------------------------------------
*---------------------------------------
2018-01-29 07:41:05 +00:00
MAN
2019-01-28 07:44:37 +00:00
SAVE USR/SRC/BIN/ASM.S.MAC
LOAD USR/SRC/BIN/ASM.S
2018-01-29 07:41:05 +00:00
ASM