A2osX/BIN/ASM.S.MAC.txt

80 lines
1.3 KiB
Plaintext
Raw Normal View History

2018-01-29 07:41:05 +00:00
NEW
PREFIX /A2OSX.BUILD
AUTO 4,1
*---------------------------------------
MAC.Init >SYSCALL SListNew
bcs .9
>STA.G MAC.hMacros
>LDYAI 256
>SYSCALL GetMem.YA
bcs .9
>STYA ZPMacroBuf
txa
>STA.G MAC.hBuf
.9 rts
*---------------------------------------
MAC.Quit >LDA.G MAC.hBuf
beq .1
2018-01-29 16:48:07 +00:00
2018-01-29 07:41:05 +00:00
>SYSCALL FreeMem.A
.1 >LDA.G MAC.hMacros
beq .8
>SYSCALL SListFree.A
.8 clc
rts
*---------------------------------------
2018-01-29 16:48:07 +00:00
MAC.Clear lda #0
tay
.1 sta (ZPMacroBuf),y
iny
bne .1
rts
*---------------------------------------
MAC.AddChar tax
lda (ZPMacroBuf)
* cmp #254
* beq .9 CS if EQ
2018-01-29 16:48:07 +00:00
inc
sta (ZPMacroBuf)
tay
txa
sta (ZPMacroBuf),y
tax
beq .1
* >SYSCALL PutChar.A
clc
rts
.1
* lda #13
* >SYSCALL PutChar.A
* lda #10
* >SYSCALL PutChar.A
2018-01-29 16:48:07 +00:00
clc
.9 rts
*---------------------------------------
MAC.Store clc
rts
*---------------------------------------
2018-01-29 07:41:05 +00:00
MAN
SAVE /A2OSX.BUILD/BIN/DEV/ASM.S.MAC
LOAD /A2OSX.BUILD/BIN/DEV/ASM.S
ASM