mirror of
https://github.com/A2osX/A2osX.git
synced 2024-08-31 02:29:38 +00:00
287 lines
4.7 KiB
Plaintext
287 lines
4.7 KiB
Plaintext
PR#3
|
||
PREFIX /A2OSX.SRC
|
||
NEW
|
||
INC 1
|
||
AUTO 6
|
||
.LIST OFF
|
||
*--------------------------------------
|
||
.MA DEBUG
|
||
:1 bit $C000
|
||
bpl :1
|
||
sta $C010
|
||
.EM
|
||
*--------------------------------------
|
||
.MA DEBUGOA
|
||
bit $C061
|
||
bpl :2
|
||
:1 bit $C000
|
||
bpl :1
|
||
sta $C010
|
||
:2 .EQ *
|
||
.EM
|
||
*--------------------------------------
|
||
* SYSCALLs Macros
|
||
*--------------------------------------
|
||
.MA SYSCALL
|
||
ldx #]1
|
||
jsr A2osX.SYSCALL
|
||
.EM
|
||
*--------------------------------------
|
||
.MA MLICALL
|
||
ldx #]1
|
||
.DO ]1=MLIALLOCIRQ
|
||
lda #2
|
||
.FIN
|
||
.DO ]1=MLIDEALLOCIRQ
|
||
lda #1
|
||
.FIN
|
||
.DO ]1=MLIREADBLOCK
|
||
lda #3
|
||
.FIN
|
||
.DO ]1=MLIWRITEBLOCK
|
||
lda #3
|
||
.FIN
|
||
.DO ]1=MLICREATE
|
||
lda #7
|
||
.FIN
|
||
.DO ]1=MLIDESTROY
|
||
lda #1
|
||
.FIN
|
||
.DO ]1=MLIRENAME
|
||
lda #2
|
||
.FIN
|
||
.DO ]1=MLISETFILEINFO
|
||
lda #7
|
||
.FIN
|
||
.DO ]1=MLIGETFILEINFO
|
||
lda #10
|
||
.FIN
|
||
.DO ]1=MLIONLINE
|
||
lda #2
|
||
.FIN
|
||
.DO ]1=MLISETPREFIX
|
||
lda #1
|
||
.FIN
|
||
.DO ]1=MLIGETPREFIX
|
||
lda #1
|
||
.FIN
|
||
.DO ]1=MLIOPEN
|
||
lda #3
|
||
.FIN
|
||
.DO ]1=MLINEWLINE
|
||
lda #3
|
||
.FIN
|
||
.DO ]1=MLIREAD
|
||
lda #4
|
||
.FIN
|
||
.DO ]1=MLIWRITE
|
||
lda #4
|
||
.FIN
|
||
.DO ]1=MLICLOSE
|
||
lda #1
|
||
.FIN
|
||
.DO ]1=MLIFLUSH
|
||
lda #1
|
||
.FIN
|
||
.DO ]1=MLISETMARK
|
||
lda #2
|
||
.FIN
|
||
.DO ]1=MLIGETMARK
|
||
lda #2
|
||
.FIN
|
||
.DO ]1=MLISETEOF
|
||
lda #2
|
||
.FIN
|
||
.DO ]1=MLIGETEOF
|
||
lda #2
|
||
.FIN
|
||
.DO ]1=MLISETBUF
|
||
lda #2
|
||
.FIN
|
||
.DO ]1=MLIGETBUF
|
||
lda #2
|
||
.FIN
|
||
|
||
jsr A2osX.MLICALL
|
||
.EM
|
||
*--------------------------------------
|
||
.MA LIBCALL
|
||
ldy ]1
|
||
ldx #]2
|
||
jsr A2osX.LIBCALL
|
||
.EM
|
||
*--------------------------------------
|
||
* D.STACK PUSH/PULL Macros
|
||
*--------------------------------------
|
||
.MA PUSHA
|
||
dec pStack
|
||
sta (pStack)
|
||
.EM
|
||
*--------------------------------------
|
||
.MA PULLA
|
||
lda (pStack)
|
||
inc pStack
|
||
.EM
|
||
*--------------------------------------
|
||
.MA PUSHYA
|
||
dec pStack
|
||
sta (pStack)
|
||
tya
|
||
dec pStack
|
||
sta (pStack)
|
||
.EM
|
||
*--------------------------------------
|
||
.MA PULLYA
|
||
lda (pStack)
|
||
inc pStack
|
||
tay
|
||
lda (pStack)
|
||
inc pStack
|
||
.EM
|
||
*--------------------------------------
|
||
.MA PUSHAX
|
||
pha
|
||
txa
|
||
dec pStack
|
||
sta (pStack)
|
||
pla
|
||
dec pStack
|
||
sta (pStack)
|
||
.EM
|
||
*--------------------------------------
|
||
.MA PULLAX
|
||
lda (pStack)
|
||
inc pStack
|
||
pha
|
||
lda (pStack)
|
||
inc pStack
|
||
tax
|
||
pla
|
||
.EM
|
||
*--------------------------------------
|
||
.MA PUSHBI
|
||
dec pStack
|
||
lda #]1
|
||
sta (pStack)
|
||
.EM
|
||
*--------------------------------------
|
||
.MA PUSHB
|
||
.DO ]#=2
|
||
dec pStack
|
||
lda ]1,]2
|
||
sta (pStack)
|
||
.ELSE
|
||
dec pStack
|
||
lda ]1
|
||
sta (pStack)
|
||
.FIN
|
||
.EM
|
||
*--------------------------------------
|
||
.MA PULLB
|
||
.DO ]#=2
|
||
lda (pStack)
|
||
sta ]1,]2
|
||
inc pStack
|
||
.ELSE
|
||
lda (pStack)
|
||
sta ]1
|
||
inc pStack
|
||
.FIN
|
||
.EM
|
||
*--------------------------------------
|
||
.MA PUSHWI
|
||
dec pStack
|
||
lda /]1
|
||
sta (pStack)
|
||
dec pStack
|
||
lda #]1
|
||
sta (pStack)
|
||
.EM
|
||
*--------------------------------------
|
||
.MA PUSHW
|
||
dec pStack
|
||
lda ]1+1
|
||
sta (pStack)
|
||
dec pStack
|
||
lda ]1
|
||
sta (pStack)
|
||
.EM
|
||
*--------------------------------------
|
||
.MA PULLW
|
||
lda (pStack)
|
||
sta ]1
|
||
inc pStack
|
||
lda (pStack)
|
||
sta ]1+1
|
||
inc pStack
|
||
.EM
|
||
*--------------------------------------
|
||
* General WORD Manipulation Macros
|
||
*--------------------------------------
|
||
.MA LDYAI
|
||
ldy #]1
|
||
lda /]1
|
||
.EM
|
||
*--------------------------------------
|
||
.MA LDAXI
|
||
lda #]1
|
||
ldx /]1
|
||
.EM
|
||
*--------------------------------------
|
||
.MA LDYA
|
||
.DO ]#=2
|
||
lda ]1+1,]2
|
||
ldy ]1,]2
|
||
.ELSE
|
||
lda ]1+1
|
||
ldy ]1
|
||
.FIN
|
||
.EM
|
||
*--------------------------------------
|
||
.MA LDAX
|
||
.DO ]#=2
|
||
ldx ]1+1,]2
|
||
lda ]1,]2
|
||
.ELSE
|
||
ldx ]1+1
|
||
lda ]1
|
||
.FIN
|
||
.EM
|
||
*--------------------------------------
|
||
.MA STYA
|
||
.DO ]#=2
|
||
sta ]1+1,]2
|
||
tya
|
||
sta ]1,]2
|
||
.ELSE
|
||
sta ]1+1
|
||
sty ]1
|
||
.FIN
|
||
.EM
|
||
*--------------------------------------
|
||
.MA STAX
|
||
.DO ]#=2
|
||
sta ]1+1,]2
|
||
txa
|
||
sta ]1,]2
|
||
.ELSE
|
||
stx ]1+1
|
||
sta ]1
|
||
.FIN
|
||
.EM
|
||
*--------------------------------------
|
||
* General Strings Macros
|
||
*--------------------------------------
|
||
.MA CSTRING
|
||
.AS "]1"
|
||
.HS 00
|
||
.EM
|
||
*--------------------------------------
|
||
.MA PSTRING
|
||
.DA #:1-*-1
|
||
.AS "]1"
|
||
:1 .EQ *
|
||
.EM
|
||
MAN
|
||
SAVE INC/MACROS.I
|