PIC16F684 + LCD to use the 256bytes of EEPROM - HELP

[skimask]

DEFINE OSC 8
DEFINE LCD_DREG	PORTC
DEFINE LCD_DBIT	0
DEFINE LCD_RSREG	PORTA
DEFINE LCD_RSBIT	4
DEFINE LCD_EREG	PORTA
DEFINE LCD_EBIT	5
DEFINE LCD_BITS	4
DEFINE LCD_LINES	2
DEFINE LCD_COMMANDUS	2000
DEFINE LCD_DATAUS	50
max_mags var byte:max_medics var byte:rem_mags var byte:rem_medics var byte
i var byte:mem_max_mags con 1:mem_max_medics con 2:mem_rem_mags con 3
mem_rem_medics con 4:ammo var porta.0:medic var porta.1:backlight var portc.4
signal var portc.5:blinkcount var byte:delaytemp var word:clear:osccon=$71
cmcon0=7:ansel=0:option_reg=$7f:wpua=$13:intcon=$88:ioca=3:trisa=3:trisc=0
porta=0:portc=0:max_mags=1:max_medics=2:rem_mags=3:rem_medics=4
ON INTERRUPT GOTO mainroutine
START:   flags=0:for blinkcount=1 to 5:signal=1:pause 500:signal=0:pause 500
next blinkcount:backlight=1:lcdout $fe,1,"SUPPLIER",$fe,$c0,"MODULE"
pause 3000:backlight=0:for blinkcount=1 to 5:signal=1:pause 500:signal=0
pause 500:next blinkcount:gosub displayval:max_mags=0:max_medics=0:rem_mags=0
rem_medics=0:gosub displayval
DISABLE         'DISABLE ANY SOFTWARE INTERRUPTS
intcon.7 = 0    'DISABLE INTERRUPTs IN HARDWARE
write mem_max_mags,5:pause 25:write mem_max_medics,6:pause 25
write mem_rem_mags,7:pause 25:write mem_rem_medics,8:pause 25
intcon.7 = 1    'RE-ENABLE INTERRUPTs IN HARDWARE
ENABLE           'RE-ENABLE PBP SOFTWARE INTERRUPTS
read mem_max_mags,max_mags:read mem_max_medics,max_medics
read mem_rem_mags,rem_mags:READ mem_rem_medics,rem_medics:GOSUB displayval
loop1:  gosub blinksignalx5:goto loop1
DISABLE
mainroutine:
donothing:
RESUME
ENABLE	
displayval:     backlight=1:lcdout $fe,1,"maxmag",$fe,$c0,dec3 max_mags
pause 2000:lcdout $fe,1:for i=0 to max_mags:signal=1:pause 300:signal=0
pause 300:next i:lcdout $fe,1,"maxmed",$fe,$c0,dec3 max_medics:pause 2000
for i=0 to max_medics:signal=1:pause 300:signal=0:pause 300:next i
lcdout $fe,1,"remmag",$fe,$c0,dec3 rem_mags:pause 2000:for i=0 to rem_mags
signal=1:pause 300:signal=0:pause 300:next i
lcdout $fe,1,"remmed",$FE, $c0,DEC3 rem_medics:pause 2000
for i=0 to rem_medics:signal=1:pause 300:signal=0:pause 300:next i:backlight=0
return
END

Give that a shot and see if it works...