home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_08_1985_Transactor_Publishing.d64 / arcfunctions (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  95 lines
  1. 0 rem arcfunctions (c. kluepfel 3/85) :
  2. 1 :
  3. 2 rem 0 statements, 2 functions
  4. 3 :
  5. 4 rem keyword chars: 8
  6. 5 :
  7. 6 rem keyword   routine line   ser#
  8. 7 rem f/asn(    asin    6548   082
  9. 8 rem f/acs(    acos    6670   083
  10. 9 :
  11. 10 rem ================================
  12. 11 :
  13. 615 .asc "asn": .byte $a8
  14. 616 .asc "acs":.byte $a8
  15. 1615 .word asin-1
  16. 1616 .word acos-1
  17. 6548 asin lda #2    
  18. 6550 jsr $a3fb
  19. 6552 jsr $79        
  20. 6554 jsr $aef4      
  21. 6556 jsr $ad8d      
  22. 6558 lda $66        
  23. 6560 pha
  24. 6562 lda #0         
  25. 6564 sta $66
  26. 6566 lda #<$b9bc    
  27. 6568 ldy #>$b9bc
  28. 6570 jsr $bc5b      
  29. 6572 beq asi1       
  30. 6574 bmi asi3       
  31. 6576 lda #0         
  32. 6578 sta $65        
  33. 6580 sta $70        
  34. 6582 lda #<$b9bc    
  35. 6584 ldy #>$b9bc
  36. 6586 jsr $bc5b
  37. 6588 beq asi1
  38. 6590 bmi asi3
  39. 6592 jmp $b248      
  40. 6594 asi1 lda #<$e2e0 
  41. 6596 ldy #>$e2e0
  42. 6598 jsr $bba2      
  43. 6600 pla            
  44. 6602 sta $66        
  45. 6604 asi2 rts
  46. 6606 asi3 pla       
  47. 6608 sta $66
  48. 6610 lda $61        
  49. 6612 beq asi2       
  50. 6614 jsr $bc1b      
  51. 6616 lda #3         
  52. 6618 jsr $a3fb
  53. 6620 ldx #5         
  54. 6622 asi4 lda $61,x
  55. 6624 pha
  56. 6626 dex
  57. 6628 bpl asi4
  58. 6630 jsr $bc0c      
  59. 6632 jsr flmult     
  60. 6634 lda #<$b9bc    
  61. 6636 ldy #>$b9bc
  62. 6638 jsr $b850      
  63. 6640 jsr $bf71      
  64. 6642 ldx #0
  65. 6644 asi5 pla       
  66. 6646 sta $69,x
  67. 6648 inx
  68. 6650 cpx #6
  69. 6652 bne asi5
  70. 6654 pha            
  71. 6656 lda $61        
  72. 6658 beq asi1       
  73. 6660 pla
  74. 6662 lda $61        
  75. 6664 jsr fldiv
  76. 6666 jmp $e30e      
  77. 6668 ;
  78. 6670 acos jsr asin  
  79. 6672 lda #<$e2e0    
  80. 6674 ldy #>$e2e0
  81. 6676 jmp $b850      
  82. 6678 ;
  83. 6680 flmult jsr condsg 
  84. 6682 jmp $ba2b         
  85. 6684 ;
  86. 6686 fldiv jsr condsg  
  87. 6688 jmp $bb12         
  88. 6690 ;
  89. 6692 condsg lda $66 
  90. 6694 eor $6e
  91. 6696 sta $6f
  92. 6698 lda $61
  93. 6700 rts
  94. 6702 ;
  95.