FUNE1C.S; FILE NAME FUNE1C(¶²ÃÝ)
; H14.3.22 BY HIRATA
; H6.6.29 BY ONODERA
;
; A0=Ó°ÄÞ D1=1¼ÞÄÞŽ³,D0=1¹ÞÝÃŽÝ
; A1=½À°Ä D0=1 ½À°Ä,D0=0 ½Ä¯ÌŽß
; A2=¶²ÃÝγº³ D0=1 ËÀÞØ,D0=0 зŽÞ
; A3=¶¸ÄÞ(Žß) D2=100,D1=10,D0=1
; A4=¿¸ÄÞ(S) D1=10,D0=1(1~50)
; B0=´×Ž° D1=1¾¯Ã²,D0=1¹ÞÝÃŽÝ
; D2=1ØЯÄ
; B1=¾Ý»° D2=¹ÞÝÃŽÝ,D1=зŽÞ,D0=ËÀÞØ
; B2=¿¸ÄÞ´Ý»Þݹ¯¶
; B3~BF=´Ý»Þݴر
; JMI:-J,JEQ:0J,JPL:+J,JNE:N0J
; A1:SET PC,RESET MITY
; B0:SET MITY,RESET PC
; C4:¾Ý»°ÆÕ°Ø®¸D2=¹ÞÝÃŽÝ,D1=зŽÞ,D0=ËÀÞØ
;
; ²Æ¼¬×²½Þ
;
TIC1=200 ;0.5S
A00 JNE A00 TIC1 ;
CALL $457 ;232C
CALL $466 ;QMCL.P
CALL $469 ;Õ°»ÞŽ°.P
SCNO=1 ;232C CH1
POKE $FBB7 1 ;4ÊÞ²Ä
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 ;ÒÓØ°¸Ø±°
MAXHZ=3600 ;MAXHZ
MINHZ=50 ;MINHZ
BE=1000 ;
BE=BE*1000 ;
PLS=BE ;´Ýº°ÀÞ¶³ÝÄŽÁ
SEVCC=1 ;Ó°À°Â°ÃÞŽÝ
ONTIM1 T00 ;¾Ý»°Áª¯¸
;
; Ó°ÄÞ¾ÝÀ¸
;
A01 JEQ A01 A0 ;
JEQ B01 A0-1 ;Ó°ÄÞ¹ÞÝÃŽÝ
JEQ D01 A0-2 ;Ó°ÄÞ¼ÞÄÞŽ³
JEQ C01 A0-3 ;Original
JMP A01 ;
;
; ¹ÞÝÃÝÄÞ³Ž»
;
B01 MAXHZ=400 ;¿¸ÄÞ¾¯Ã²
JEQ B08 C4 AND 4 ;¹ÞÝÃݾݻŽ°
B02 BE=1000 ;
BE=BE*33 ;
PSG=30 ;²Á¹Þ²Ý
POS=PLS-BE ;зÞÆ100mm²ÄÞ³
B03 JNE B03 PSG ;ò¼ÏŽÁ
JSR TM2 ;0.5S
B04 HZP=400 ;ËÀÞض²ÃÝ
B05 JNE B07 C4 AND 4 ;¹ÞÝÃݾݻŽ°
JNE B06 C4 AND 3 ;ØЯÄ
BE=1000 ;
BE=BE*1600 ;
JPL B05 BE-PLS ;µ°ÊÞ°×ÝÁª¯Ž¸
B06 B0=B0 OR 1 ;¹ÞÝÃÝ´×°¾¯ŽÄ
B07 HZP=0 ;òŽ¼
Z01 JNE Z01 HZS ;ò¼ÏŽÁ
JSR TM2 ;0.5S
A1=0 ;½À°Äؾ¯Ä
BE=1000 ;
BE=BE*1000 ;1000000¾¯ŽÄ
PLS=BE ;´Ýº°ÀÞ°»²¾¯Ä
JMP A01 ;
B08 HZP=400 ;ËÀÞض²ÃÝ
B09 JNE B07 C4 AND 4 ;¹ÞÝÃŽÝ
JNE B10 C4 AND 1 ;ËÀÞØØЯÄ
JNE B13 C4 AND 2 ;зÞØЯŽÄ
BE=1000 ;
BE=BE*1600 ;
JPL B09 BE-PLS ;µ°ÊÞ°×ÝÁª¯Ž¸
JMP B06 ;´×°¼®ØŽÍ
B10 HZP=0 ;òŽ¼
Z02 JNE Z02 HZS ;ò¼ÏŽÁ
JSR TM2 ;0.5
HZP=-400 ;з޶²ÃŽÝ
JSR TM1 ;3S
B11 JNE B12 C4 AND 4 ;¹ÞÝÃݾݻŽ°
JNE B06 C4 AND 3 ;ØЯÄ
BE=1000 ;
BE=BE*400 ;
JPL B11 PLS-BE ;µ°ÊÞ°×ÝÁª¯Ž¸
JMP B06 ;´×°¼®ØŽÍ
B12 HZP=0 ;òŽ¼
Z03 JNE Z03 HZS ;ò¼ÏŽÁ
JSR TM2 ;0.5S
JMP B02 ;¹ÞÝÃÝ»²¾¯Ä
B13 HZP=400 ;ËÀÞض²ÃÝ
JSR TM1 ;3S
JMP B01 ;»²¹ÞÝÃÝ»°Á
;
; ¼ÞÄÞ³³ÝÃŽÝ
;
C01 JPL C05 A3-361 ;¶¸ÄÞÁª¯¸<120Žß
JPL C05 A4-101 ;¿¸ÄÞÁª¯¸<50S
B2=60*A3 ;¿¸Ä޴ݻގÝ
B2=B2*10 ;
B2=B2/A4 ;
JPL C05 B2-3600 ;¿¸ÄÞÁª¯¸
JEQ C03 A2 AND 1 ;¶²ÃÝγº³
MAXHZ=B2 ;¿¸ÄÞ¾¯Ã²
B3=B2+50 ;
B3=8000/B3 ;
PSG=B3 ;²Á¹Þ²Ý
POS=8333*A3+PLS ;ËÀÞØƲÄÞŽ³
C02 JNE C02 PSG ;ò¼ÏŽÁ
JSR TM1 ;0.5S
A1=0 ;½À°Äؾ¯Ä
JMP A01 ;
C03 MAXHZ=B2 ;¿¸ÄÞ¾¯Ã²
B3=B2+50 ;
B3=8000/B3 ;
PSG=B3 ;²Á¹Þ²Ý
BE=8333*A3 ;
POS=PLS-BE ;зÞƲÄÞ³
C04 JNE C04 PSG ;ò¼ÏŽÁ
JSR TM1 ;0.5S
A1=0 ;òŽ¼
JMP A01 ;
C05 B0=B0 OR 2 ;¾¯Ã²´×°¾¯Ä
JMP A01 ;Ó°ÄÞŽÍ
T00 B1=C4 AND 7 ;
JNE T01 A0 AND 2 ;¼ÞÄÞ³Áª¯Ž¸
RTS ;
T01 JEQ T02 B1 AND 3 ;ØЯÄÁª¯¸
PSG=0 ;òŽ¼
HZP=0 ;òŽ¼
B0=B0 OR 4 ;ØЯĴװ¾¯Ä
T02 RTS ;
;
; ¼ÞÄÞ³³ÝÃŽÝ
;
D01 JEQ D02 A2
JEQ D03 A2-1
JEQ D04 A2-2
JMP A01 ;Ù°Ìß
D02 PSG=0
HZP=0
JMP A01 ;Ù°Ìß
D03 PSG=0
HZP=A4
JMP A01 ;Ù°Ìß
D04 PSG=0
HZP=-1*A4
JMP A01 ;Ù°Ìß
;
; »ÌÞÙ°ÁŽÝ
;
TM0 JNE TM0 TIC1 ;
RTS ;
TM1 TIC1=1230 ;3S
JMP TM0 ;
TM2 TIC1=200 ;0.5S
JMP TM0 ;
TM3 TIC1=100 ;0.25S
JMP TM0 ;
END ;
|