FUNE5J.S; FILE NAME FUNE5J(朧ﾙY2)
; H14.3.22 BY HIRATA
; H6.6.17 BY ONODERA
;
; HZP:2迎�蛎�ｶ(A4琴慌旨)
; 2丸紺折案嶼爪扱掛竹(FUNE2:X2)
; C4:象三騰椅�� D0:1閤歟ﾝ
; 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=5 ;232C CH3
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舗可蔀ｲ
DPEEK AA $FBBE ;2丸紺折ｰ
BD=65533
BC=BD*65535
SEVCC=1 ;唹整属筑ﾝ
;
; 爪扱掛竹
;
AA=20000 ;
POS=AA ;
PLS=POS ;1nd丸紺折袷少ﾄ
DPOKE $FBBE AA ;2nd灼�芦少�
DPOKE $FBC0 AB ;2nd恐少ﾄ
;
; 唹爪象生
;
A01 JEQ A03 A0-5 ;価辞鮎ｲ
JEQ A04 A0-6 ;価辞鮎ｲ
A02 DPEEK AA $FBBE ;2nd丸紺折椅按ﾞ
DPEEK AB $FBC0 ;2nd丸紺折椅按ﾞ
JMI Z02 A8-4 ;晋爪選��(T>4)
JPL Z02 A8-21 ;晋爪選��(T<20)
JMI Z01 PLS-20000 ;価辞鮎価��ｸ
JPL Z01 AA-BC ;価辞鮎価��ｸ
PSG=0 ;NORMAL
B2=1280/A8
B2=B2*10
HZP=B2
JMP A01 ;抂餅
A03 PSG=0
HZP=A9
JMP A01 ;抂餅
A04 PSG=0
HZP=-1*A9
JMP A01 ;抂餅
;
; 嗣湶袷ﾝ
;
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 ;
Z01 POS=AA ;価辞鮎ｲ
PSG=20 ;価閤課
JMP A01
Z02 PSG=0 ;STOP
HZP=0
JMP A01
END
|