; ; Beacon ; Copyright (c) 2000 by (JM7OLW)Kousuke Matsumoto include 16f84.h .osc RC .pwrt on .wdt off .protect off org 0ch ;file register----------------------------------- poi EQU 21 wk EQU 22 tm1 EQU 23 tm2 EQU 24 ;define------------------------------------------ ; ;------------------------------------------------ org 0 goto start org 4 goto start ;------------------------------------------------ start CLRF porta CLRF portb BSF status,5 MOVLW 00000000b ;set all porta to OUTPUT MOVWF 85h ;85h=trisA MOVLW 00000000b ;set all portb to OUTPUT MOVWF 86h ;86h=trisB BCF status,5 CALL yasumi CALL yasumi CALL yasumi CALL yasumi ;------------------------------------------------ main000 CALL subV CALL subV CALL subV CALL yasumi CALL subD CALL subE CALL yasumi CALL subJ CALL subE CALL sub7 CALL subY CALL subN CALL subQ CALL yasumi CALL subJ CALL subE CALL sub7 CALL subY CALL subN CALL subQ CALL yasumi CALL subJ CALL subE CALL sub7 CALL subY CALL subN CALL subQ CALL yasumi CALL subF CALL subU CALL subK CALL subU CALL subS CALL subH CALL subI CALL subM CALL subA CALL yasumi CALL subC CALL subI CALL subT CALL subY CALL yasumi CALL subQ CALL subM CALL sub0 CALL sub7 CALL yasumi CALL yasumi CALL yasumi CALL yasumi CALL keydown CALL keydown CALL keydown CALL keydown CALL keydown CALL keydown CALL keydown CALL keydown CALL keydown CALL keydown CALL keydown CALL keydown CALL keydown CALL keydown CALL keydown CALL keydown CALL keydown CALL keydown CALL keydown CALL keydown CALL keydown CALL yasumi GOTO main000 ;------------------------------------------------ ; sub routines ;------------------------------------------------ subA CALL ton CALL tuu CALL yasumi RETURN ;------------------------------------------------ subB CALL tuu CALL ton CALL ton CALL ton CALL yasumi RETURN ;------------------------------------------------ subC CALL tuu CALL ton CALL tuu CALL ton CALL yasumi RETURN ;------------------------------------------------ subD CALL tuu CALL ton CALL ton CALL yasumi RETURN ;------------------------------------------------ subE CALL ton CALL yasumi RETURN ;------------------------------------------------ subF CALL ton CALL ton CALL tuu CALL ton CALL yasumi RETURN ;------------------------------------------------ subG CALL tuu CALL tuu CALL ton CALL yasumi RETURN ;------------------------------------------------ subH CALL ton CALL ton CALL ton CALL ton CALL yasumi RETURN ;------------------------------------------------ subI CALL ton CALL ton CALL yasumi RETURN ;------------------------------------------------ subJ CALL ton CALL tuu CALL tuu CALL tuu CALL yasumi RETURN ;------------------------------------------------ subK CALL tuu CALL ton CALL tuu CALL yasumi RETURN ;------------------------------------------------ subL CALL ton CALL tuu CALL ton CALL ton CALL yasumi RETURN ;------------------------------------------------ subM CALL tuu CALL tuu CALL yasumi RETURN ;------------------------------------------------ subN CALL tuu CALL ton CALL yasumi RETURN ;------------------------------------------------ subO CALL tuu CALL tuu CALL tuu CALL yasumi RETURN ;------------------------------------------------ subP CALL ton CALL tuu CALL tuu CALL ton CALL yasumi RETURN ;------------------------------------------------ subQ CALL tuu CALL tuu CALL ton CALL tuu CALL yasumi RETURN ;------------------------------------------------ subR CALL ton CALL tuu CALL ton CALL yasumi RETURN ;------------------------------------------------ subS CALL ton CALL ton CALL ton CALL yasumi RETURN ;------------------------------------------------ subT CALL tuu CALL yasumi RETURN ;------------------------------------------------ subU CALL ton CALL ton CALL tuu CALL yasumi RETURN ;------------------------------------------------ subV CALL ton CALL ton CALL ton CALL tuu CALL yasumi RETURN ;------------------------------------------------ subW CALL ton CALL tuu CALL tuu CALL yasumi RETURN ;------------------------------------------------ subX CALL tuu CALL ton CALL ton CALL tuu CALL yasumi RETURN ;------------------------------------------------ subY CALL tuu CALL ton CALL tuu CALL tuu CALL yasumi RETURN ;------------------------------------------------ subZ CALL tuu CALL tuu CALL ton CALL ton CALL yasumi RETURN ;------------------------------------------------ sub0 CALL tuu CALL tuu CALL tuu CALL tuu CALL tuu CALL yasumi RETURN ;------------------------------------------------ sub1 CALL ton CALL tuu CALL tuu CALL tuu CALL tuu CALL yasumi RETURN ;------------------------------------------------ sub2 CALL ton CALL ton CALL tuu CALL tuu CALL tuu CALL yasumi RETURN ;------------------------------------------------ sub3 CALL ton CALL ton CALL ton CALL tuu CALL tuu CALL yasumi RETURN ;------------------------------------------------ sub4 CALL ton CALL ton CALL ton CALL ton CALL tuu CALL yasumi RETURN ;------------------------------------------------ sub5 CALL ton CALL ton CALL ton CALL ton CALL ton CALL yasumi RETURN ;------------------------------------------------ sub6 CALL tuu CALL ton CALL ton CALL ton CALL ton CALL yasumi RETURN ;------------------------------------------------ sub7 CALL tuu CALL tuu CALL ton CALL ton CALL ton CALL yasumi RETURN ;------------------------------------------------ sub8 CALL tuu CALL tuu CALL tuu CALL ton CALL ton CALL yasumi RETURN ;------------------------------------------------ sub9 CALL tuu CALL tuu CALL tuu CALL tuu CALL ton CALL yasumi RETURN ;------------------------------------------------ ton MOVLW 00010000b ;set RB4=on MOVWF portb CALL wait0r1sec ;wait 0.1sec MOVLW 00000000b ;set RB4=off MOVWF portb CALL wait0r1sec ;wait 0.1sec RETURN ;------------------------------------------------ tuu MOVLW 00010000b ;set RB4=on MOVWF portb CALL wait0r1sec ;wait 0.1sec CALL wait0r1sec ;wait 0.1sec CALL wait0r1sec ;wait 0.1sec MOVLW 00000000b ;set RB4=off MOVWF portb CALL wait0r1sec ;wait 0.1sec RETURN ;------------------------------------------------ yasumi MOVLW 00000000b ;set RB4=off MOVWF portb CALL wait0r1sec ;wait 0.1sec CALL wait0r1sec ;wait 0.1sec RETURN ;------------------------------------------------ keydown MOVLW 00010000b ;set RB4=on MOVWF portb CALL wait0r1sec ;wait 0.1sec CALL wait0r1sec ;wait 0.1sec CALL wait0r1sec ;wait 0.1sec CALL wait0r1sec ;wait 0.1sec CALL wait0r1sec ;wait 0.1sec RETURN ;------------------------------------------------ wait0r1sec MOVLW 30 MOVWF tm1 wait0r1sec0 MOVLW 0 MOVWF tm2 wait0r1sec1 DECFSZ tm2,1 GOTO wait0r1sec1 DECFSZ tm1,1 GOTO wait0r1sec0 RETURN ;end program-------------------------------------