A2osX/BIN/ACOS.S.CODE.txt

96 lines
2.0 KiB
Plaintext
Raw Normal View History

2021-04-08 20:30:18 +00:00
NEW
AUTO 3,1
.LIST OFF
*--------------------------------------
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-07-09 13:54:42 +00:00
CODE.PUSHA ldx #0
2021-04-29 11:56:34 +00:00
2021-07-09 13:54:42 +00:00
.1 lda CCODE.PUSHA,x
2021-04-29 11:56:34 +00:00
jsr CODE.EmitByte
inx
2021-07-09 13:54:42 +00:00
cpx #CCODE.PUSHA.LEN
2021-04-29 11:56:34 +00:00
bne .1
2021-04-29 11:56:34 +00:00
rts
*--------------------------------------
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
*--------------------------------------
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