home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Transactor
/
Transactor_08_1985_Transactor_Publishing.d64
/
arcfunctions
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
95 lines
0 rem arcfunctions (c. kluepfel 3/85) :
1 :
2 rem 0 statements, 2 functions
3 :
4 rem keyword chars: 8
5 :
6 rem keyword routine line ser#
7 rem f/asn( asin 6548 082
8 rem f/acs( acos 6670 083
9 :
10 rem ================================
11 :
615 .asc "asn": .byte $a8
616 .asc "acs":.byte $a8
1615 .word asin-1
1616 .word acos-1
6548 asin lda #2
6550 jsr $a3fb
6552 jsr $79
6554 jsr $aef4
6556 jsr $ad8d
6558 lda $66
6560 pha
6562 lda #0
6564 sta $66
6566 lda #<$b9bc
6568 ldy #>$b9bc
6570 jsr $bc5b
6572 beq asi1
6574 bmi asi3
6576 lda #0
6578 sta $65
6580 sta $70
6582 lda #<$b9bc
6584 ldy #>$b9bc
6586 jsr $bc5b
6588 beq asi1
6590 bmi asi3
6592 jmp $b248
6594 asi1 lda #<$e2e0
6596 ldy #>$e2e0
6598 jsr $bba2
6600 pla
6602 sta $66
6604 asi2 rts
6606 asi3 pla
6608 sta $66
6610 lda $61
6612 beq asi2
6614 jsr $bc1b
6616 lda #3
6618 jsr $a3fb
6620 ldx #5
6622 asi4 lda $61,x
6624 pha
6626 dex
6628 bpl asi4
6630 jsr $bc0c
6632 jsr flmult
6634 lda #<$b9bc
6636 ldy #>$b9bc
6638 jsr $b850
6640 jsr $bf71
6642 ldx #0
6644 asi5 pla
6646 sta $69,x
6648 inx
6650 cpx #6
6652 bne asi5
6654 pha
6656 lda $61
6658 beq asi1
6660 pla
6662 lda $61
6664 jsr fldiv
6666 jmp $e30e
6668 ;
6670 acos jsr asin
6672 lda #<$e2e0
6674 ldy #>$e2e0
6676 jmp $b850
6678 ;
6680 flmult jsr condsg
6682 jmp $ba2b
6684 ;
6686 fldiv jsr condsg
6688 jmp $bb12
6690 ;
6692 condsg lda $66
6694 eor $6e
6696 sta $6f
6698 lda $61
6700 rts
6702 ;