GHOST
BCF PORTA,0
BSF PORTA,1
NOP
BCF PORTA,1
;************************
MOVF 2ch,0
CALL DelA
MOVF 2dh,0
CALL DelA
MOVF 2eh,0
CALL DelA
MOVF 2fh,0
CALL DelA
MOVF 30h,0
CALL DelA
MOVF 31h,0
CALL DelA
MOVF 32h,0
CALL DelA
MOVF 33h,0
CALL DelA
MOVF 34h,0
CALL DelA
MOVF 35h,0
CALL DelA
MOVF 36h,0
CALL DelA
MOVF 37h,0
CALL DelA
MOVF 38h,0
CALL DelA
MOVF 39h,0
CALL DelA
MOVF 3ah,0
CALL DelA
MOVF 3bh,0
CALL DelA
MOVF 3ch,0
CALL DelA
MOVF 3dh,0
CALL DelA
MOVF 3eh,0
CALL DelA
MOVF 3fh,0
CALL DelA
MOVF 40h,0
CALL DelA
MOVF 41h,0
CALL DelA
MOVF 42h,0
CALL DelA
MOVF 43h,0
CALL DelA
MOVF 44h,0
CALL DelA
MOVF 45h,0
CALL DelA
MOVF 46h,0
CALL DelA
MOVF 47h,0
CALL DelA
MOVF 48h,0
CALL DelA
MOVF 49h,0
CALL DelA
MOVF 4ah,0
CALL DelA
MOVF 4bh,0
CALL DelA
MOVF 4ch,0
CALL DelA
MOVF 4dh,0
CALL DelA
MOVF 4eh,0
CALL DelA
MOVF 4fh,0
CALL DelA
RETURN
MOVF 50h,0
CALL DelA
MOVF 51h,0
CALL DelA
MOVF 52h,0
CALL Dela
MOVF 53h,0
CALL Dela
MOVF 54h,0
CALL Dela
MOVF 55h,0
CALL Dela
MOVF 56h,0
CALL Dela
MOVF 57h,0
CALL Dela
MOVF 58h,0
CALL Dela
MOVF 59h,0
CALL Dela
MOVF 5ah,0
CALL Dela
MOVF 5bh,0
CALL Dela
MOVF 5ch,0
CALL DelA
MOVF 5dh,0
CALL DelA
MOVF 5eh,0
CALL DelA
MOVF 5fh,0
CALL DelA
MOVF 60h,0
CALL DelA
MOVF 61h,0
CALL DelA
MOVF 62h,0
CALL DelA
MOVF 63h,0
CALL DelA
MOVF 64h,0
CALL DelA
MOVF 65h,0
CALL DelA
MOVF 66h,0
CALL DelA
MOVF 67h,0
RETURN
;************************
DelA
MOVWF PORTB
MOVLW 0X30
MOVWF DCounter1
LOOP
DECFSZ DCounter1, 1
GOTO LOOP
BSF PORTA,0
BSF PORTA,1
BCF PORTA,1
RETURN
;***************************
INICIO
BANK1
MOVLW b'11111100'
MOVWF TRISA ; SETA PORTA COMO ENTRADA
MOVLW b'00000000'
MOVWF TRISB ; SETA PORTB COMO SAIDA
MOVLW b'00001111'
MOVWF TRISC ; SETA PORTC COMO ENTRADA
MOVLW b'11111111'
MOVWF TRISD ; SETA PORTD COMO SAIDA/ENTRADA
MOVLW b'00000000'
MOVWF TRISE ; SETA PORTE COMO SAIDA
MOVLW b'10000001' ; ps0=1;prescale 1:4;psa= timer0;tose=subida;tocs=clockinternorbpu=0pullupativados
MOVWF OPTION_REG ; PULL UP DESABILITADOS E TMR0 1:256
MOVLW b'10000000' ;
MOVWF INTCON ;INTERRUPÇÃO TIMER0 HABILITADA
MOVLW b'00000110' ;00000110
MOVWF ADCON1
BANK0
MOVLW H'7'
MOVWF CMCON
;*************************************************
clrf load2
clrf load
clrf cycles
clrf countnum
clrf countsp
clrf countai
clrf countjq
clrf countrz
clrf rall1
clrf porta
clrf portb
clrf portc
clrf portd
clrf porte
clrf 73h ; ENTRA
clrf 74h ; GOL
clrf 75h ; PENALTY
goto main
END