mirror of https://github.com/A2osX/A2osX.git
36 lines
641 B
Plaintext
36 lines
641 B
Plaintext
|
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
|
|||
|
|
|||
|
>SYSCALL FreeMem.A
|
|||
|
|
|||
|
.1 >LDA.G MAC.hMacros
|
|||
|
beq .8
|
|||
|
>SYSCALL SListFree.A
|
|||
|
|
|||
|
.8 clc
|
|||
|
rts
|
|||
|
*---------------------------------------
|
|||
|
MAN
|
|||
|
SAVE /A2OSX.BUILD/BIN/DEV/ASM.S.MAC
|
|||
|
LOAD /A2OSX.BUILD/BIN/DEV/ASM.S
|
|||
|
ASM
|