Quote Originally Posted by mister_e View Post
Will people stopping using 16F84A one day? LOL!

Anyways, do you mind if i try to do the code for the 16F877A right now as you'll end up using this one anyway?

I'm only using it because it's the test pic! I've flashed it at least 500 times!

This is a little bit smaller code:

Code:
DEFINE OSC 12
define LCD_LINES 4

Clr     CON 1
Comm    Con $FE
LINE1   con 2
LINE2   con $c0
LINE3   con $94
LINE4   con $d4
Dx      con $14

Begin:
        Pause 500       
  LCDOUT  $FE,$40,$1F,$1F,$1F,$1F,$1F,$1F,$1F,$1F  ' Cust Char #0  
  LCDOUT  $FE,$48,$1F,$1F,$1F,$1F,$00,$00,$00,$00  ' Cust Char #1  
  LCDOUT  $FE,$50,$00,$00,$00,$00,$1F,$1F,$1F,$1F  ' Cust Char #2  
  LCDOUT  $FE,$58,$00,$00,$00,$0E,$1F,$1F,$1F,$0E  ' Cust Char #3  
  LCDOUT  $FE,$60,$00,$00,$00,$00,$00,$1F,$1F,$1F  ' Cust Char #4  
  LCDOUT  $FE,$68,$1F,$1F,$1F,$00,$00,$00,$00,$00  ' Cust Char #5  
  LCDOUT  $FE,$70,$00,$01,$03,$07,$0F,$1F,$1F,$1F  ' Cust Char #6  
  LCDOUT  $FE,$78,$00,$00,$00,$00,$00,$00,$01,$03  ' Cust Char #7    
Main:
        LCDOUT comm, clr
        lcdout comm, line1, "T", COMM, LINE2, "E", COMM, LINE3, "S", COMM, LINE4, "T"
        PAUSE 1000
        GOSUB NUMERO11
        PAUSE 1000
        GOSUB NUMERO22
        PAUSE 1000
        GOSUB NUMERO33
        pause 1000
        gosub punto3
        pause 1000
        gosub numero44
        PAUSE 3000
        GOTO MAIN

Numero11:
        lcdout comm, $82, $07, $06, $00
        lcdout comm, $C4, $00
        lcdout comm, $98, $00
        lcdout comm, $D8, $00        
        RETURN
        
Numero22:
        LCDOUT comm, $86, $01, $01, $01, $00
        LCDOUT comm, $C6, $02, $02, $02, $00
        LCDOUT comm, $9A, $00, $01, $01, $01
        LCDOUT comm, $DA, $00, $02, $02, $02
        RETURN
Numero33:
        LCDOUT comm, $8B, $01, $01, $01, $00
        LCDOUT comm, $CC, $04, $04, $00
        LCDOUT comm, $A0, $05, $05, $00
        LCDOUT comm, $DF, $02, $02, $02, $00
        RETURN 
Punto3:
        LCDOUT Comm, $E3, $03
        return
Numero44:
        lcdout comm, $90, $00
        lcdout COMM, $D0, $00, COMM, $D3, $00
        lcdout COmm, $A4, $01, $01, $01, $00
        lcdout comm, $E7, $00
        return      
end
But of course it's not what I want!