A2osX/BIN/ACOS.S.CODE.txt

137 lines
2.9 KiB
Plaintext
Raw Normal View History

2021-04-08 20:30:18 +00:00
NEW
AUTO 3,1
.LIST OFF
*--------------------------------------
2021-08-05 11:35:37 +00:00
CODE.PUSHYA ldx #0
.1 lda CCODE.PUSHYA,x
jsr CODE.EmitByte
inx
cpx #CCODE.PUSHYA.LEN
bne .1
rts
*--------------------------------------
CODE.TESTTRUE ldx #0
.1 lda CCODE.TESTTRUE,x
jsr CODE.EmitByte
inx
cpx #CCODE.TESTTRUE.LEN
bne .1
rts
*--------------------------------------
2021-07-09 13:54:42 +00:00
CODE.PUSHYXI lda #$A9 LDA #imm
2021-04-08 20:30:18 +00:00
jsr CODE.EmitByte
2021-07-09 13:54:42 +00:00
txa
2021-04-29 11:56:34 +00:00
jsr CODE.EmitByte
2021-07-09 13:54:42 +00:00
jsr CODE.PUSHA
2021-07-09 13:54:42 +00:00
lda #$A9 LDA #imm
jsr CODE.EmitByte
tya
jsr CODE.EmitByte
2021-04-29 11:56:34 +00:00
*--------------------------------------
2021-08-05 11:35:37 +00:00
CODE.PUSHA lda #$C6 DEC zp
2021-04-29 11:56:34 +00:00
jsr CODE.EmitByte
2021-08-05 11:35:37 +00:00
lda #pStack
jsr CODE.EmitByte
lda #$92 STA (zp)
jsr CODE.EmitByte
lda #pStack
jmp CODE.EmitByte
2021-04-29 11:56:34 +00:00
*--------------------------------------
CODE.PUSHINT16 ldy #1
.1 lda #$A9 LDA #imm
jsr CODE.EmitByte
2021-04-29 11:56:34 +00:00
lda (pStack),y
jsr CODE.EmitByte
2021-04-29 11:56:34 +00:00
jsr CODE.PUSHA
dey
bpl .1
2021-04-29 11:56:34 +00:00
rts
*--------------------------------------
2021-08-05 11:35:37 +00:00
CODE.PULLYX jsr CODE.PULLA
lda #$A8 TAY
jsr CODE.EmitByte
jsr CODE.PULLA
lda #$AA TAX
bra CODE.EmitByte
*--------------------------------------
CODE.PULLA lda #$B2 LDA (zp)
jsr CODE.EmitByte
lda #pStack
jsr CODE.EmitByte
lda #$E6 INC zp
jsr CODE.EmitByte
lda #pStack
bra CODE.EmitByte
*--------------------------------------
CODE.LDVARDDRI ldy VAR.ADDR
ldx VAR.ADDR+1
*--------------------------------------
CODE.LDYXI lda #$A0 LDY #imm
jsr CODE.EmitByte
tya
jsr CODE.EmitByte
*--------------------------------------
CODE.LDXI lda #$A2 LDX #imm
jsr CODE.EmitByte
txa
bra CODE.EmitByte
*--------------------------------------
CODE.JSRRT lda #$20 JSR
jsr CODE.EmitByte
lda J.RT,x
jsr CODE.EmitByte
lda J.RT+1,x
bra CODE.EmitByte
*--------------------------------------
2021-04-08 20:30:18 +00:00
CODE.FPUCALL lda #$A2 LDX #imm
jsr CODE.EmitByte
txa
jsr CODE.EmitByte
lda #$20 JSR
jsr CODE.EmitByte
lda #A2osX.FPUCALL
jsr CODE.EmitByte
lda /A2osX.FPUCALL
bra CODE.EmitByte
*--------------------------------------
2021-04-10 17:17:40 +00:00
CODE.PutChar lda #$A9 LDA #imm
jsr CODE.EmitByte
txa
jsr CODE.EmitByte
ldx #SYS.PutChar
*--------------------------------------
2021-04-08 20:30:18 +00:00
CODE.SYSCALL lda #$A2 LDX #imm
jsr CODE.EmitByte
txa
jsr CODE.EmitByte
lda #$20 JSR
jsr CODE.EmitByte
lda #A2osX.SYSCALL
jsr CODE.EmitByte
lda /A2osX.SYSCALL
*--------------------------------------
CODE.EmitByte sta (ZPCodeBufPtr)
inc ZPCodeBufPtr
bne .8
inc ZPCodeBufPtr+1
.8 rts
*--------------------------------------
MAN
SAVE usr/src/bin/acos.s.code
LOAD usr/src/bin/acos.s
ASM