Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-06-07 17:29:34 +00:00
Code Issues Projects Releases Wiki Activity
cb628265b7
A2osX/BIN/ACOS.S.FN.txt

159 lines
2.2 KiB
Plaintext
Raw Normal View History

Kernel 0.94+
2021-04-08 20:30:18 +00:00
NEW
AUTO 3,1
.LIST OFF
*--------------------------------------
FN.BYTE
ACOS:Major update, CHTYP:added PAK support
2021-07-07 14:29:10 +00:00
FN.CHRd
Kernel 0.94+
2021-04-08 20:30:18 +00:00
FN.CLOCK
ACOS:Major update, CHTYP:added PAK support
2021-07-07 14:29:10 +00:00
lda #E.CSYN
sec
rts
*--------------------------------------
FN.DATEd ldx #RT.DATEd.ID
bra FN.TIMEd.1
FN.TIMEd ldx #RT.TIMEd.ID
FN.TIMEd.1 jsr CODE.JSRRT
lda #'$'
sta EXP.TYPE
clc
rts
lda #E.CSYN
sec
rts
*--------------------------------------
Kernel 0.94+
2021-04-08 20:30:18 +00:00
FN.FLAG
ACOS:Major update, CHTYP:added PAK support
2021-07-07 14:29:10 +00:00
FN.INFO
Kernel 0.94+
2021-04-08 20:30:18 +00:00
FN.INSTR
FN.KEY
Kernel 0.94++
2021-04-29 11:56:34 +00:00
lda #E.CSYN
sec
rts
*--------------------------------------
ACOS:Major update, CHTYP:added PAK support
2021-07-07 14:29:10 +00:00
FN.LEFTd jsr CORE.CheckOP
IRQ, NSC, ACOS, CIFS, SRW
2021-06-22 18:59:02 +00:00
bcs .99
Kernel 0.94++
2021-04-29 11:56:34 +00:00
jsr EXP.Eval
bcs .99
IRQ, NSC, ACOS, CIFS, SRW
2021-06-22 18:59:02 +00:00
Kernel 0.94++
2021-04-29 11:56:34 +00:00
lda EXP.TYPE
IRQ, NSC, ACOS, CIFS, SRW
2021-06-22 18:59:02 +00:00
beq .90
ACOS:Major update, CHTYP:added PAK support
2021-07-07 14:29:10 +00:00
jsr CORE.CheckComma
IRQ, NSC, ACOS, CIFS, SRW
2021-06-22 18:59:02 +00:00
bcs .99
Kernel 0.94++
2021-04-29 11:56:34 +00:00
ACOS:Major update, CHTYP:added PAK support
2021-07-07 14:29:10 +00:00
jsr EXP.Eval
bcs .99
Kernel 0.94++
2021-04-29 11:56:34 +00:00
ACOS:Major update, CHTYP:added PAK support
2021-07-07 14:29:10 +00:00
lda EXP.TYPE
bne .90
Kernel 0.94++
2021-04-29 11:56:34 +00:00
ACOS:Major update, CHTYP:added PAK support
2021-07-07 14:29:10 +00:00
jsr CORE.CheckCP
bcs .99
ldx #RT.LEFTd.ID
jsr CODE.JSRRT
lda #'$'
sta EXP.TYPE
Kernel 0.94++
2021-04-29 11:56:34 +00:00
clc
rts
IRQ, NSC, ACOS, CIFS, SRW
2021-06-22 18:59:02 +00:00
.90 lda #E.TMISMATCH
Kernel 0.94++
2021-04-29 11:56:34 +00:00
sec
IRQ, NSC, ACOS, CIFS, SRW
2021-06-22 18:59:02 +00:00
.99 rts
Kernel 0.94++
2021-04-29 11:56:34 +00:00
*--------------------------------------
ACOS:Major update, CHTYP:added PAK support
2021-07-07 14:29:10 +00:00
FN.LEN jsr CORE.CheckOP
IRQ, NSC, ACOS, CIFS, SRW
2021-06-22 18:59:02 +00:00
bcs .99
Kernel 0.94++
2021-04-29 11:56:34 +00:00
jsr EXP.Eval
bcs .99
IRQ, NSC, ACOS, CIFS, SRW
2021-06-22 18:59:02 +00:00
Kernel 0.94++
2021-04-29 11:56:34 +00:00
lda EXP.TYPE
IRQ, NSC, ACOS, CIFS, SRW
2021-06-22 18:59:02 +00:00
beq .90
Kernel 0.94++
2021-04-29 11:56:34 +00:00
IRQ, NSC, ACOS, CIFS, SRW
2021-06-22 18:59:02 +00:00
jsr CORE.CheckCP
bcs .99
Kernel 0.94++
2021-04-29 11:56:34 +00:00
ACOS:Major update, CHTYP:added PAK support
2021-07-07 14:29:10 +00:00
stz EXP.TYPE
Kernel 0.94++
2021-04-29 11:56:34 +00:00
ACOS!Strings Ops & BugFix
2021-07-09 20:40:57 +00:00
ldx #RT.LEN.ID
Kernel 0.94++
2021-04-29 11:56:34 +00:00
clc
ACOS!Strings Ops & BugFix
2021-07-09 20:40:57 +00:00
jmp CODE.JSRRT
Kernel 0.94++
2021-04-29 11:56:34 +00:00
IRQ, NSC, ACOS, CIFS, SRW
2021-06-22 18:59:02 +00:00
.90 lda #E.TMISMATCH
Kernel 0.94++
2021-04-29 11:56:34 +00:00
sec
IRQ, NSC, ACOS, CIFS, SRW
2021-06-22 18:59:02 +00:00
.99 rts
Kernel 0.94++
2021-04-29 11:56:34 +00:00
*--------------------------------------
Kernel 0.94+
2021-04-08 20:30:18 +00:00
FN.MIDd
FN.PDL
FN.PEEK
FN.RANDOM
FN.RIGHTd
FN.RNDd
IRQ, NSC, ACOS, CIFS, SRW
2021-06-22 18:59:02 +00:00
lda #E.CSYN
sec
rts
*--------------------------------------
FN.STRd jsr CORE.CheckOP
bcs .99
jsr EXP.Eval
bcs .99
lda EXP.TYPE
bne .90
jsr CORE.CheckCP
bcs .99
lda #'$'
sta EXP.TYPE
ACOS!Strings Ops & BugFix
2021-07-09 20:40:57 +00:00
ldx #RT.STRd.ID
IRQ, NSC, ACOS, CIFS, SRW
2021-06-22 18:59:02 +00:00
clc
ACOS!Strings Ops & BugFix
2021-07-09 20:40:57 +00:00
jmp CODE.JSRRT
IRQ, NSC, ACOS, CIFS, SRW
2021-06-22 18:59:02 +00:00
.90 lda #E.TMISMATCH
sec
.99 rts
*--------------------------------------
FN.VAL jsr CORE.CheckOP
bcs .99
jsr EXP.Eval
bcs .99
lda EXP.TYPE
beq .90
jsr CORE.CheckCP
bcs .99
stz EXP.TYPE
ACOS!Strings Ops & BugFix
2021-07-09 20:40:57 +00:00
ldx #RT.VAL.ID
* clc
jmp CODE.JSRRT
IRQ, NSC, ACOS, CIFS, SRW
2021-06-22 18:59:02 +00:00
.90 lda #E.TMISMATCH
sec
.99 rts
*--------------------------------------
Kernel 0.94+
2021-04-08 20:30:18 +00:00
FN.WHENd
IRQ, NSC, ACOS, CIFS, SRW
2021-06-22 18:59:02 +00:00
*--------------------------------------
Kernel 0.94+
2021-04-08 20:30:18 +00:00
FN.WIDTH
Kernel 0.94++
2021-04-29 11:56:34 +00:00
lda #E.CSYN
sec
Kernel 0.94+
2021-04-08 20:30:18 +00:00
rts
*--------------------------------------
MAN
SAVE usr/src/bin/acos.s.fn
LOAD usr/src/bin/acos.s
ASM
Reference in New Issue Copy Permalink