LIST P=16F84 #INCLUDE "P16F84.INC" __CONFIG _XT_OSC&_CP_OFF&_WDT_OFF CBLOCK 0X0C BTC DAT ENDC ORG 0 GOTO START ORG 4 BCF INTCON,T0IF CLRC RLF DAT,F BTFSS STATUS,C BCF PORTB,0 BTFSC STATUS,C BSF PORTB,0 DECFSZ BTC RETFIE CALL TABLE MOVWF DAT MOVLW D'8 MOVWF BTC RETFIE START BSF STATUS,RP0 ;BANK1 MOVLW B'00000000' MOVWF TRISA MOVLW B'00000000' MOVWF TRISB MOVLW B'00001000' MOVWF OPTION_REG BCF STATUS,RP0 ;BANK0 BSF INTCON,GIE BSF INTCON,T0IE MOVLW D'1 MOVWF BTC CLRW MOVWF PORTB MOVWF PORTA MOVWF DAT VISSZA GOTO VISSZA TABLE retlw b'10101010' ; aa retlw b'10101010' ; aa retlw b'10101010' ; aa retlw b'10101010' ; aa retlw b'10101010' ; aa retlw b'10101010' ; aa retlw b'10101010' ; aa retlw b'10101010' ; aa retlw b'10101010' ; aa retlw b'10101010' ; aa retlw b'10101010' ; aa retlw b'10101010' ; aa retlw b'10101010' ; aa retlw b'10101010' ; aa retlw b'10101010' ; aa retlw b'10101010' ; aa retlw b'10101010' ; aa retlw b'10101010' ; aa retlw b'10101010' ; aa retlw b'10101010' ; aa retlw b'10101010' ; aa retlw b'11000011' ; c3 retlw b'01101100' ; 6c retlw b'10110010' ; b2 retlw b'01100101' ; 65 retlw b'10010011' ; 93 retlw b'11000111' ; c7 retlw b'10001010' ; 8a retlw b'00101100' ; 2c retlw b'11011010' ; da retlw b'11100001' ; e1 retlw b'10100010' ; a2 ;------------------------- 32 retlw b'11001111' ; cf retlw b'10010111' ; 97 retlw b'00001100' ; 0c retlw b'00010010' ; 12 retlw b'01111111' ; 7f retlw b'11110000' ; f0 retlw b'10000000' ; 80 retlw b'10010111' ; 97 retlw b'11111111' ; ff retlw b'00010000' ; 10 retlw b'00000010' ; 02 retlw b'11111111' ; ff retlw b'11110001' ; f1 retlw b'00000000' ; 00 retlw b'00101111' ; 2f retlw b'11111111' ; ff retlw b'00101000' ; 28 retlw b'00000000' ; 00 retlw b'11111111' ; ff retlw b'11110100' ; f4 retlw b'10000000' ; 80 retlw b'00001111' ; 0f retlw b'11111111' ; ff retlw b'01001000' ; 48 retlw b'00000000' ; 00 retlw b'11111111' ; ff retlw b'11110110' ; f6 retlw b'00000000' ; 00 retlw b'00001111' ; 0f retlw b'11111111' ; ff retlw b'10100000' ; a0 retlw b'00000000' ; 00 ;------------------------- 64 retlw b'11110111' ; f7 retlw b'11111110' ; fe retlw b'00000000' ; 00 retlw b'00001110' ; 0e retlw b'11111111' ; ff retlw b'11010000' ; d0 retlw b'00000000' ; 00 retlw b'11101111' ; ef retlw b'11111101' ; fd retlw b'00000000' ; 00 retlw b'00001110' ; 0e retlw b'11111111' ; ff retlw b'11010000' ; d0 retlw b'00000001' ; 01 retlw b'01110111' ; 77 retlw b'11111101' ; fd retlw b'00000000' ; 00 retlw b'00001111' ; 0f retlw b'01111111' ; 7f retlw b'11010000' ; d0 retlw b'00000000' ; 00 retlw b'11101111' ; ef retlw b'11111101' ; fd retlw b'00000000' ; 00 retlw b'00010110' ; 16 retlw b'11111111' ; ff retlw b'11000000' ; c0 retlw b'00000010' ; 02 retlw b'11011111' ; df retlw b'11111100' ; fc retlw b'00000000' ; 00 retlw b'00101101' ; 2d ;------------------------- 96 retlw b'11111111' ; ff retlw b'11000000' ; c0 retlw b'00000010' ; 02 retlw b'11011111' ; df retlw b'11111010' ; fa retlw b'00000000' ; 00 retlw b'00101101' ; 2d retlw b'11111111' ; ff retlw b'10100000' ; a0 retlw b'00000001' ; 01 retlw b'10111111' ; bf retlw b'11111010' ; fa retlw b'00000000' ; 00 retlw b'00101011' ; 2b retlw b'11111111' ; ff retlw b'10100000' ; a0 retlw b'00000010' ; 02 retlw b'10111111' ; bf retlw b'11111010' ; fa retlw b'00000000' ; 00 retlw b'00101011' ; 2b retlw b'11111111' ; ff retlw b'10100000' ; a0 retlw b'00000010' ; 02 retlw b'10111111' ; bf retlw b'11111001' ; f9 retlw b'00000000' ; 00 retlw b'00101011' ; 2b retlw b'11111111' ; ff retlw b'10001000' ; 88 retlw b'00000010' ; 02 retlw b'01111111' ; 7f ;------------------------- 128 retlw b'11111000' ; f8 retlw b'01000000' ; 40 retlw b'00100111' ; 27 retlw b'11111111' ; ff retlw b'10000100' ; 84 retlw b'00000010' ; 02 retlw b'01111111' ; 7f retlw b'11111000' ; f8 retlw b'01000000' ; 40 retlw b'00010111' ; 17 retlw b'11111111' ; ff retlw b'10000100' ; 84 retlw b'00000001' ; 01 retlw b'01111111' ; 7f retlw b'11111000' ; f8 retlw b'10000000' ; 80 retlw b'00100111' ; 27 retlw b'11111111' ; ff retlw b'01001000' ; 48 retlw b'00000010' ; 02 retlw b'01111111' ; 7f retlw b'11110100' ; f4 retlw b'01000000' ; 40 retlw b'00010111' ; 17 retlw b'11111111' ; ff retlw b'01001000' ; 48 retlw b'00000001' ; 01 retlw b'01111111' ; 7f retlw b'11110100' ; f4 retlw b'10000000' ; 80 retlw b'00010111' ; 17 retlw b'11111111' ; ff ;------------------------- 160 retlw b'01001000' ; 48 retlw b'00000001' ; 01 retlw b'01111111' ; 7f retlw b'11110010' ; f2 retlw b'10000000' ; 80 retlw b'00010111' ; 17 retlw b'11111111' ; ff retlw b'00101000' ; 28 retlw b'00000001' ; 01 retlw b'01111111' ; 7f retlw b'11110010' ; f2 retlw b'10000000' ; 80 retlw b'00011110' ; 1e retlw b'11111110' ; fe retlw b'10101000' ; a8 retlw b'00000001' ; 01 retlw b'11101111' ; ef retlw b'11101010' ; ea retlw b'10000000' ; 80 retlw b'00011101' ; 1d retlw b'11111110' ; fe retlw b'10101000' ; a8 retlw b'00000001' ; 01 retlw b'11011111' ; df retlw b'11101010' ; ea retlw b'01000000' ; 40 retlw b'00011110' ; 1e retlw b'11111110' ; fe retlw b'10100100' ; a4 retlw b'00000001' ; 01 retlw b'11101111' ; ef retlw b'11101010' ; ea ;------------------------- 192 retlw b'00000100' ; 04 retlw b'00011101' ; 1d retlw b'11111110' ; fe retlw b'10100000' ; a0 retlw b'01000001' ; 41 retlw b'11011111' ; df retlw b'11011010' ; da retlw b'00000100' ; 04 retlw b'00011101' ; 1d retlw b'11111101' ; fd retlw b'10100000' ; a0 retlw b'01000001' ; 41 retlw b'11011111' ; df retlw b'11011010' ; da retlw b'00000100' ; 04 retlw b'00011101' ; 1d retlw b'11111101' ; fd retlw b'10100000' ; a0 retlw b'00100001' ; 21 retlw b'10111111' ; bf retlw b'11011010' ; da retlw b'00000000' ; 00 retlw b'10101011' ; ab retlw b'11111101' ; fd retlw b'10100000' ; a0 retlw b'00001001' ; 09 retlw b'10111111' ; bf retlw b'11011010' ; da retlw b'00000000' ; 00 retlw b'10011011' ; 9b retlw b'11111011' ; fb retlw b'10010000' ; 90 ;------------------------- 224 retlw b'00000110' ; 06 retlw b'10111111' ; bf retlw b'10111001' ; b9 retlw b'00000000' ; 00 retlw b'10101011' ; ab retlw b'11111011' ; fb retlw b'10001000' ; 88 retlw b'00001010' ; 0a retlw b'10111111' ; bf retlw b'10110100' ; b4 retlw b'01000000' ; 40 retlw b'10101011' ; ab retlw b'11110111' ; f7 retlw b'01000100' ; 44 retlw b'00001010' ; 0a retlw b'10111111' ; bf retlw b'01110100' ; 74 retlw b'01000000' ; 40 retlw b'10101011' ; ab retlw b'11110111' ; f7 retlw b'01000100' ; 44 retlw b'00001010' ; 0a retlw b'10111111' ; bf retlw b'01110100' ; 74 retlw b'01000000' ; 40 retlw b'10101011' ; ab retlw b'11110111' ; f7 retlw b'01000100' ; 44 retlw b'00001010' ; 0a retlw b'10111111' ; bf retlw b'01110100' ; 74 retlw b'01000000' ; 40 ;------------------------- 256 retlw b'10101011' ; ab retlw b'11110111' ; f7 retlw b'01000100' ; 44 retlw b'00001010' ; 0a retlw b'10111110' ; be retlw b'11110010' ; f2 retlw b'01000000' ; 40 retlw b'10101011' ; ab retlw b'11101111' ; ef retlw b'00100100' ; 24 retlw b'00001010' ; 0a retlw b'01111101' ; 7d retlw b'11110010' ; f2 retlw b'01000000' ; 40 retlw b'10100111' ; a7 retlw b'11011110' ; de retlw b'10100100' ; a4 retlw b'00001010' ; 0a retlw b'01111101' ; 7d retlw b'11101010' ; ea retlw b'01000001' ; 41 retlw b'00010111' ; 17 retlw b'11011110' ; de retlw b'10010100' ; 94 retlw b'00010001' ; 11 retlw b'10111101' ; bd retlw b'11101001' ; e9 retlw b'01000001' ; 41 retlw b'00101011' ; 2b retlw b'11011110' ; de retlw b'10010100' ; 94 retlw b'00010010' ; 12 ;------------------------- 288 retlw b'10111101' ; bd retlw b'11101001' ; e9 retlw b'01000001' ; 41 retlw b'00101101' ; 2d retlw b'10111110' ; be retlw b'01010100' ; 54 retlw b'00010010' ; 12 retlw b'11011011' ; db retlw b'11100101' ; e5 retlw b'00100001' ; 21 retlw b'00101101' ; 2d retlw b'10111101' ; bd retlw b'01010000' ; 50 retlw b'10010010' ; 92 retlw b'11011011' ; db retlw b'11010101' ; d5 retlw b'00001001' ; 09 retlw b'00011101' ; 1d retlw b'01111101' ; 7d retlw b'01010000' ; 50 retlw b'10001001' ; 89 retlw b'10110111' ; b7 retlw b'11010101' ; d5 retlw b'00001000' ; 08 retlw b'10011011' ; 9b retlw b'01111101' ; 7d retlw b'01010000' ; 50 retlw b'10001001' ; 89 retlw b'10110111' ; b7 retlw b'10110101' ; b5 retlw b'00001000' ; 08 retlw b'01011010' ; 5a ;------------------------- 320 retlw b'11111011' ; fb retlw b'01010000' ; 50 retlw b'10000101' ; 85 retlw b'10101111' ; af retlw b'10110101' ; b5 retlw b'00001000' ; 08 retlw b'01011010' ; 5a retlw b'11111011' ; fb retlw b'01010000' ; 50 retlw b'10000101' ; 85 retlw b'10101111' ; af retlw b'10110100' ; b4 retlw b'10001000' ; 88 retlw b'01011010' ; 5a retlw b'11111011' ; fb retlw b'01001001' ; 49 retlw b'00000101' ; 05 retlw b'10101111' ; af retlw b'10110100' ; b4 retlw b'10000000' ; 80 END