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 ;