FUNE2C.S

;    FILE NAME    FUNE2C(朧ﾙX1)        
;            H14.3.22  BY HIRATA       
;            H6.6.17   BY ONODERA      
;                                      
; A0=唹爪      D1=1灼爪ｳ,D0=1閤歟ﾝ     
; A5=柔按      D0=1柔按,D0=0縦��ﾟ      
; A2=仄岾                              
; A3=仄岾                              
; A4=晋爪(S)   D1=10,D0=1(4~20)        
; B0=閑ｰ       D1=1少嘆,D0=1閤歟ﾝ      
; B1=象三      D0=閤歟ﾝ                
; B2=晋爪丸枝盜��                      
; JMI:-J,JEQ:0J,JPL:+JJNE:N0J          
; A1:SET PC,RESET PC                   
; B0:SET MITY,RESET PC                 
;                                      
; 夏蒔弉殉                             
;                                      
     JSR TM1            ;1S            
     CALL $457          ;232C          
     CALL $466          ;QMCL.P        
     CALL $469          ;娑枝.P        
     SCNO=2             ;232C CH2      
     A0=2               ;厶悵誇碓      
     A1=0               ;厶悵誇碓      
     A2=0               ;厶悵誇碓      
     A3=0               ;厶悵誇碓      
     A4=50              ;厶悵誇碓      
     A5=0               ;厶悵誇碓      
     A6=10              ;厶悵誇碓      
     A7=0               ;厶悵誇碓      
     A8=10              ;厶悵誇碓      
     A9=0               ;厶悵誇碓      
     B0=0               ;厶悵誇碓      
     B1=0               ;厶悵誇碓      
     B2=0               ;厶悵誇碓      
     B3=0               ;厶悵誇碓      
     B4=0               ;厶悵誇碓      
     B5=0               ;厶悵誇碓      
     B6=0               ;厶悵誇碓      
     B7=0               ;厶悵誇碓      
     POKE $FBB7 1       ;4舗可蔀ｲ      
     BE=1000            ;              
     BE=BE*1000         ;              
     PLS=BE             ;丸紺折恭歡ﾁ   
     SEVCC=1            ;唹整属筑ﾝ     
     ONTIM1 T00         ;晴楼榴歳      
;                                      
; 唹爪象生                             
;                                      
A01  JEQ A01 A5 AND 1   ;柔按選��      
     JNE B01 A0 AND 1   ;唹爪閤歟ﾝ     
     JNE C01 A0 AND 2   ;唹爪灼爪ｳ     
     JMP A01            ;              
;                                      
; 閤歟歡浤ｻ                            
;                                      
B01  JNE B05 C4 AND 1   ;閤歟歉飮袷��ｸ 
     HZP=1500           ;亰浙加ﾝ       
     TIC1=4000          ;9.6S          
B02  JNE B03 C4 AND 1   ;閤歟歉飮袷��ｸ 
     JNE B02 TIC1       ;晴儕�餅選�ｸ   
     B0=B0 OR 1         ;閑袷��ｸ       
B03  HZP=0              ;嘆ｼ           
B04  JNE B04 HZS        ;嘆質��ｸ       
     JSR TM2            ;0.5S          
     A5=0               ;柔按愍��      
     JMP A01            ;唹爪ﾍ         
B05  HZP=1500           ;亰浙加ﾝ       
     TIC1=1000          ;2.5S          
B06  JNE B06 TIC1       ;晴儕�餅選�ｸ   
     JMP B01            ;              
;                                      
; 灼爪崖歟ﾝ                            
;                                      
C01  JMI C04 A6-4       ;晋爪選��(T>4) 
     JPL C04 A6-21      ;晋爪選��(T<20)
     B2=1280/A6         ;              
     B2=B2*10           ;晋爪丸枝ﾝ     
     HZP=B2             ;晋爪少ﾄ       
C02  JNE C01 A5 AND 1   ;縦�餅選�ｸ     
     JEQ C01 C4 AND 1   ;閤歟ﾝ         
     HZP=0              ;嘆ｼ           
C03  JNE C03 HZS        ;嘆雫呼ﾝ       
     JSR TM2            ;0.5S          
     JMP A01            ;              
C04  B0=B0 OR 2         ;少嘆閑鮎��    
     JMP A01            ;              
;                                      
; 嗣湶袷ﾝ                              
;                                      
T00  B1=C4 AND 7        ;象三選��      
     RTS                ;              
TM0  JNE TM0 TIC1       ;晴儕��ﾟ       
     RTS                ;              
TM1  TIC1=410           ;1S            
     JMP TM0            ;              
TM2  TIC1=200           ;0.5S          
     JMP TM0            ;              
TM3  TIC1=100           ;0.25S         
     JMP TM0            ;              
     END                ;