2021-04-16 19:17:18 +00:00
|
|
|
|
NEW
|
|
|
|
|
|
AUTO 3,1
|
|
|
|
|
|
.LIST OFF
|
|
|
|
|
|
*--------------------------------------
|
2021-05-22 21:05:12 +00:00
|
|
|
|
RT.StrSet
|
2021-04-16 19:17:18 +00:00
|
|
|
|
*--------------------------------------
|
2021-06-03 17:43:28 +00:00
|
|
|
|
RT.StrGet
|
2021-04-16 19:17:18 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
clc
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
2021-06-03 17:43:28 +00:00
|
|
|
|
RT.StrLeft
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
clc
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
RT.FileOpen
|
|
|
|
|
|
*--------------------------------------
|
2021-07-05 19:15:15 +00:00
|
|
|
|
RT.Input lda #0
|
|
|
|
|
|
sta (ZPStrBuf)
|
|
|
|
|
|
|
|
|
|
|
|
stz ZPPtr1
|
|
|
|
|
|
|
|
|
|
|
|
.1 >SYSCALL GetChar
|
|
|
|
|
|
bcs .9
|
|
|
|
|
|
|
|
|
|
|
|
ldy ZPPtr1
|
|
|
|
|
|
|
|
|
|
|
|
cmp #C.SPACE
|
|
|
|
|
|
bcs .7
|
|
|
|
|
|
|
|
|
|
|
|
cmp #C.CR
|
|
|
|
|
|
beq .8
|
|
|
|
|
|
|
|
|
|
|
|
cmp #C.BS
|
|
|
|
|
|
bne .1
|
|
|
|
|
|
|
|
|
|
|
|
cpy #0
|
|
|
|
|
|
beq .1
|
|
|
|
|
|
|
|
|
|
|
|
>SYSCALL PutChar
|
|
|
|
|
|
lda #C.SPACE
|
|
|
|
|
|
>SYSCALL PutChar
|
|
|
|
|
|
lda #C.BS
|
|
|
|
|
|
>SYSCALL PutChar
|
|
|
|
|
|
dec ZPPtr1
|
|
|
|
|
|
bra .1
|
|
|
|
|
|
|
|
|
|
|
|
.7 sta (ZPStrBuf),y
|
|
|
|
|
|
>SYSCALL PutChar
|
|
|
|
|
|
inc ZPPtr1
|
|
|
|
|
|
bne .1
|
|
|
|
|
|
|
|
|
|
|
|
.8 lda #0
|
|
|
|
|
|
sta (ZPStrBuf),y
|
|
|
|
|
|
|
|
|
|
|
|
>PUSHW ZPStrBuf
|
|
|
|
|
|
clc
|
|
|
|
|
|
|
|
|
|
|
|
.9 rts
|
|
|
|
|
|
*--------------------------------------
|
2021-04-16 19:17:18 +00:00
|
|
|
|
MAN
|
2021-05-22 21:05:12 +00:00
|
|
|
|
SAVE usr/src/bin/acos.s.rt
|
2021-04-16 19:17:18 +00:00
|
|
|
|
LOAD usr/src/bin/acos.s
|
|
|
|
|
|
ASM
|
