A2osX/INC/MACROS.I.txt

618 lines
10 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

NEW
AUTO 3,1
*--------------------------------------
.MA DEBUG
:1 bit $C000
bpl :1
sta $C010
.EM
*--------------------------------------
.MA DEBUGOA
bit $C061
bpl :1
>DEBUG
:1 .EQ *
.EM
*--------------------------------------
* SYSCALLs Macros
*--------------------------------------
.MA SYSCALL
ldx #_]1
jsr A2osX.SYSCALL
.EM
*--------------------------------------
.MA LIBCALL
ldy ]1
ldx #]2
jsr A2osX.LIBCALL
.EM
*--------------------------------------
.MA SLEEP
jsr A2osX.SLEEP
.EM
*--------------------------------------
.MA SYSCALL2
ldx #_]1
jsr A2osX.SYSCALL2
.EM
*--------------------------------------
.MA MLICALL
ldx #]1
.DO ]1=MLI.ALLOCIRQ
lda #2
.FIN
.DO ]1=MLI.DEALLOCIRQ
lda #1
.FIN
.DO ]1=MLI.ATALK
lda #1
.FIN
.DO ]1=MLI.READBLOCK
lda #3
.FIN
.DO ]1=MLI.WRITEBLOCK
lda #3
.FIN
.DO ]1=MLI.CREATE
lda #7
.FIN
.DO ]1=MLI.DESTROY
lda #1
.FIN
.DO ]1=MLI.RENAME
lda #2
.FIN
.DO ]1=MLI.SFINFO
lda #7
.FIN
.DO ]1=MLI.GFINFO
lda #10
.FIN
.DO ]1=MLI.ONLINE
lda #2
.FIN
.DO ]1=MLI.SETPREFIX
lda #1
.FIN
.DO ]1=MLI.GETPREFIX
lda #1
.FIN
.DO ]1=MLI.OPEN
lda #3
.FIN
.DO ]1=MLI.NEWLINE
lda #3
.FIN
.DO ]1=MLI.READ
lda #4
.FIN
.DO ]1=MLI.WRITE
lda #4
.FIN
.DO ]1=MLI.CLOSE
lda #1
.FIN
.DO ]1=MLI.FLUSH
lda #1
.FIN
.DO ]1=MLI.SETMARK
lda #2
.FIN
.DO ]1=MLI.GETMARK
lda #2
.FIN
.DO ]1=MLI.SETEOF
lda #2
.FIN
.DO ]1=MLI.GETEOF
lda #2
.FIN
.DO ]1=MLI.SETBUF
lda #2
.FIN
.DO ]1=MLI.GETBUF
lda #2
.FIN
.DO ]1=MLI.SFINFOEX
lda #2
.FIN
.DO ]1=MLI.GFINFOEX
lda #2
.FIN
.DO ]1=MLI.ACL
lda #2
.FIN
jsr GP.MLICall
.EM
*--------------------------------------
* FPU Entry Point
*-------------------------------------- uint16
FPU.wMUL .EQ 0
FPU.wDIV .EQ 2
FPU.wMOD .EQ 4
FPU.wADD .EQ 6
FPU.wSUB .EQ 8
FPU.wSHL .EQ 10
FPU.wSHR .EQ 12
FPU.wL .EQ 14
FPU.wLE .EQ 16
FPU.wG .EQ 18
FPU.wGE .EQ 20
FPU.wE .EQ 22
FPU.wNE .EQ 24
FPU.wAND .EQ 26
FPU.wOR .EQ 28
FPU.wxOR .EQ 30
FPU.wLAND .EQ 32
FPU.wLOR .EQ 34
*-------------------------------------- int16
FPU.iMUL .EQ 36
FPU.iDIV .EQ 38
FPU.iMOD .EQ 40
FPU.iADD .EQ 42
FPU.iSUB .EQ 44
FPU.iSHL .EQ 46
FPU.iSHR .EQ 48
FPU.iL .EQ 50
FPU.iLE .EQ 52
FPU.iG .EQ 54
FPU.iGE .EQ 56
FPU.iE .EQ 58
FPU.iNE .EQ 60
FPU.iAND .EQ 62
FPU.iOR .EQ 64
FPU.iXOR .EQ 66
FPU.iLAND .EQ 68
FPU.iLOR .EQ 70
*-------------------------------------- uint32
FPU.uMUL .EQ 72
FPU.uDIV .EQ 74
FPU.uMOD .EQ 76
FPU.uADD .EQ 78
FPU.uSUB .EQ 80
FPU.uSHL .EQ 82
FPU.uSHR .EQ 84
FPU.uL .EQ 86
FPU.uLE .EQ 88
FPU.uG .EQ 90
FPU.uGE .EQ 92
FPU.uE .EQ 94
FPU.uNE .EQ 96
FPU.uAND .EQ 98
FPU.uOR .EQ 100
FPU.uXOR .EQ 102
FPU.uLAND .EQ 104
FPU.uLOR .EQ 106
*-------------------------------------- int32
FPU.lMUL .EQ 108
FPU.lDIV .EQ 110
FPU.lMOD .EQ 112
FPU.lADD .EQ 114
FPU.lSUB .EQ 116
FPU.lSHL .EQ 118
FPU.lSHR .EQ 120
FPU.lL .EQ 122
FPU.lLE .EQ 124
FPU.lG .EQ 126
FPU.lGE .EQ 128
FPU.lE .EQ 130
FPU.lNE .EQ 132
FPU.lAND .EQ 134
FPU.lOR .EQ 136
FPU.lXOR .EQ 138
FPU.lLAND .EQ 140
FPU.lLOR .EQ 142
*-------------------------------------- float
FPU.fMUL .EQ 144
FPU.fDIV .EQ 146
FPU.fMOD .EQ 148
FPU.fADD .EQ 150
FPU.fSUB .EQ 152
FPU.fSHL .EQ 154
FPU.fSHR .EQ 156
FPU.fL .EQ 158
FPU.fLE .EQ 160
FPU.fG .EQ 162
FPU.fGE .EQ 164
FPU.fE .EQ 166
FPU.fNE .EQ 168
FPU.fAND .EQ 170
FPU.fOR .EQ 172
FPU.fXOR .EQ 174
FPU.fLAND .EQ 176
FPU.fLOR .EQ 178
*--------------------------------------
* math.h
*--------------------------------------
FPU.PWR .EQ 180
*--------------------------------------
FPU.LOG .EQ 182
FPU.SQR .EQ 184
FPU.EXP .EQ 186
FPU.COS .EQ 188
FPU.SIN .EQ 190
FPU.TAN .EQ 192
FPU.ATAN .EQ 194
FPU.SETARG .EQ 196 fadd.....
FPU.SETFAC .EQ 198 log...., PrintF
FPU.GETFAC .EQ 200 Copy FAC to (FORPNT)
FPU.FCOMP .EQ 202
FPU.LTOF .EQ 204 Float
FPU.QINT .EQ 206 lrintf
FPU.FIN .EQ 208 sscanf
FPU.FOUT .EQ 210 PrintF
*--------------------------------------
.MA FPU
ldx #FPU.]1
jsr A2osX.FPUCALL
.EM
*--------------------------------------
* Global DATA Segment Access
*--------------------------------------
.MA LEA.G
clc
lda pData
adc #]1
tay
lda pData+1
adc /]1
.EM
*--------------------------------------
.MA PUSHEA.G
>LEA.G ]1
>PUSHYA
.EM
*--------------------------------------
.MA PUSHB.G
ldy #]1
lda (pData),y
>PUSHA
.EM
*--------------------------------------
.MA PUSHW.G
ldy #]1+1
lda (pData),y
>PUSHA
dey
lda (pData),y
>PUSHA
.EM
*--------------------------------------
.MA PUSHL.G
ldy #]1+4
:1 dey
lda (pData),y
>PUSHA
cpy #]1
bne :1
.EM
*--------------------------------------
.MA PULLL.G
ldy #]1
:1 >PULLA
sta (pData),y
iny
cpy #]1+4
bne :1
.EM
*--------------------------------------
.MA LDA.G
ldy #]1
lda (pData),y
.EM
*--------------------------------------
.MA STZ.G
ldy #]1
lda #0
sta (pData),y
.EM
*--------------------------------------
.MA STA.G
ldy #]1
sta (pData),y
.EM
*--------------------------------------
.MA AND.G
ldy #]1
and (pData),y
.EM
*--------------------------------------
.MA ORA.G
ldy #]1
ora (pData),y
.EM
*--------------------------------------
.MA EOR.G
ldy #]1
eor (pData),y
.EM
*--------------------------------------
.MA CMP.G
ldy #]1
cmp (pData),y
.EM
*--------------------------------------
.MA ADC.G
ldy #]1
adc (pData),y
.EM
*--------------------------------------
.MA SBC.G
ldy #]1
sbc (pData),y
.EM
*--------------------------------------
.MA STZW.G
>STZ.G ]1
iny
sta (pData),y
.EM
*--------------------------------------
.MA INC.G
>LDA.G ]1
inc
sta (pData),y
.EM
*--------------------------------------
.MA INCW.G
>INC.G ]1
bne :1
iny
lda (pData),y
inc
sta (pData),y
:1 .EQ *
.EM
*--------------------------------------
.MA DEC.G
>LDA.G ]1
dec
sta (pData),y
.EM
*--------------------------------------
.MA DECW.G
>LDA.G ]1
bne :1
dec
sta (pData),y
iny
lda (pData),y
:1 dec
sta (pData),y
.EM
*--------------------------------------
.MA LDYA.G
>LDA.G ]1
pha
iny
lda (pData),y
ply
.EM
*--------------------------------------
.MA STYA.G
phy
ldy #]1+1
sta (pData),y
dey
pla
sta (pData),y
.EM
*--------------------------------------
* STACK PUSH/PULL
*--------------------------------------
.MA PUSHA
dec pStack
sta (pStack)
.EM
*--------------------------------------
.MA PULLA
lda (pStack)
inc pStack
.EM
*--------------------------------------
.MA PUSHYA
>PUSHA
tya
>PUSHA
.EM
*--------------------------------------
.MA PULLYA
>PULLA
tay
>PULLA
.EM
*--------------------------------------
.MA PUSHBI
lda #]1
>PUSHA
.EM
*--------------------------------------
.MA PUSHB
.DO ]#=2
lda ]1,]2
>PUSHA
.ELSE
lda ]1
>PUSHA
.FIN
.EM
*--------------------------------------
.MA PULLB
.DO ]#=2
>PULLA
sta ]1,]2
.ELSE
>PULLA
sta ]1
.FIN
.EM
*--------------------------------------
.MA PUSHWZ
lda #0
>PUSHA
>PUSHA
.EM
*--------------------------------------
.MA PUSHWI
lda /]1
>PUSHA
lda #]1
>PUSHA
.EM
*--------------------------------------
.MA PUSHW
.DO ]#=2
lda ]1+1,]2
>PUSHA
lda ]1,]2
>PUSHA
.ELSE
lda ]1+1
>PUSHA
lda ]1
>PUSHA
.FIN
.EM
*--------------------------------------
.MA PULLW
>PULLA
sta ]1
>PULLA
sta ]1+1
.EM
*--------------------------------------
.MA PUSHLZ
lda #0
ldy #3
:1 >PUSHA
dey
bpl :1
.EM
*--------------------------------------
.MA PUSHL
ldy #3
:1 lda ]1,y
>PUSHA
dey
bpl :1
.EM
*--------------------------------------
.MA PULLL
ldy #0
:1 >PULLA
sta ]1,y
iny
cpy #4
bne :1
.EM
*--------------------------------------
.MA ENTER
>PUSHB pBase
lda pStack
inc
sta pBase
clc
sbc #]1
sta pStack
.EM
*--------------------------------------
.MA LEAVE
pha
lda pBase
dec
sta pStack
>PULLB pBase
pla
.EM
*--------------------------------------
.MA POP
.DO ]1=1
inc pStack
.FIN
.DO ]1=2
inc pStack
inc pStack
.FIN
.DO ]1=3
inc pStack
inc pStack
inc pStack
.FIN
.DO ]1>3
pha
lda #]1
:1 inc pStack
dec
bne :1
pla
.FIN
.EM
*--------------------------------------
.MA RET
>POP ]1
rts
.EM
*--------------------------------------
* General WORD Manipulation Macros
*--------------------------------------
.MA LDYAI
ldy #]1
lda /]1
.EM
*--------------------------------------
.MA LDYA
.DO ]#=2
ldy ]1,]2
lda ]1+1,]2
.ELSE
ldy ]1
lda ]1+1
.FIN
.EM
*--------------------------------------
.MA STYA
.DO ]#=2
sta ]1+1,]2
tya
sta ]1,]2
.ELSE
sty ]1
sta ]1+1
.FIN
.EM
*--------------------------------------
MAN
SAVE inc/macros.i