-- flash led on pin A0 -- the include of 16f628_10 file is modified so that internal oscilator is IntRc/IO -- and all fuses off except power on delay. is done by setting configword to 3f10 -- with line pragma target fuses 0x3f10 include 16f628_10 include jlib -- ************* initialize pin settings *************** pin_a0_direction = output pin_a1_direction = output pin_a2_direction = output -- ************* helper routines and functions ********* procedure delay_ms( byte in millisec ) is for millisec loop delay_1ms end loop end procedure procedure delay_sec( byte in sec ) is for sec loop for 3 loop delay_100ms end loop end loop end procedure -- **************** main loop ************************* forever loop for 3 loop pin_a0 = on pin_a1 = on pin_a2 = on delay_ms( 200 ) pin_a0 = off pin_a1 = off pin_a2 = off delay_ms( 200 ) end loop delay_ms( 200 ) for 3 loop pin_a0 = on delay_ms( 50 ) pin_a0 = off delay_ms( 50 ) end loop delay_sec( 1 ) end loop