Big characters on HD44780 4x20

[erpalma]

Yup there's few different way to improve it, tell us the PIC you're using.

Actually i'm using a 16f84a only for testing. The final pic will be a 16f877a.

Really thank you!

[mister_e]

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?

[erpalma]

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:

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!

[mister_e]

OK then i'll try with my favourite 16F84A

OK everybody, the code shrinking competition start RIGHT NOW!

[mister_e]

Doh! i miss this line...

But of course it's not what I want!

So what do you want? smaller only ?

[erpalma]

Doh! i miss this line...



So what do you want? smaller only ?

Simply better! I'm working on it, in about 1 hour I will post the result!

[mister_e]

Maybe not FAR BETTER but interesting...

Clr     CON 1
Comm    Con $FE
LINE1   con $80  ;2
LINE2   con $c0
LINE3   con $94
LINE4   con $d4
Dx      con $14
offset  var byte
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,$00,$00,$0E,$0E,$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:
        offset=0
        LCDOUT comm, clr
        lcdout comm, line1, "T", _
               COMM, LINE2, "E", _
               COMM, LINE3, "S", _
               COMM, LINE4, "T"
        offset=2
        PAUSE 1000
        GOSUB NUMERO2
        PAUSE 1000
        GOSUB NUMERO1
        PAUSE 1000
        GOSUB NUMERO3
        PAUSE 2000
        GOTO MAIN

Numero1:
        LCDOUT COMM,LINE1+offset,7,6,0,_
               COMM,LINE2+offset+2,0,_
               COMM,LINE3+offset+2,0,_
               COMM,LINE4+offset+2,0 

        offset=offset+4
        RETURN

Numero2:
        LCDOUT COMM,(LINE1+offset),1,1,1,0,_
               COMM,(LINE2+offset),2,2,2,0,_
               COMM,(LINE3+offset),0,1,1,1,_
               COMM,(LINE4+offset),0,2,2,2                
        offset=offset+5
        RETURN

Numero3:
        LCDOUT COMM,LINE1+offset,1,1,1,0,_
               COMM,LINE2+offset+1, 4, 4, 0,_
               COMM,LINE3+offset+1, 5, 5, 0,_
               COMM,LINE4+offset,$02, $02, $02, $00
        offset=offset+5
        RETURN

I'm still working on something...