Code:
INCLUDE "modedefs.bas"
DEFINE LCD_DREG PORTB
DEFINE LCD_DBIT 0
DEFINE LCD_RSREG PORTD
DEFINE LCD_RSBIT 1
DEFINE LCD_EREG PORTD
DEFINE LCD_EBIT 3
DEFINE LCD_RWREG PORTD
DEFINE LCD_RWBIT 2
DEFINE LCD_BITS 8
DEFINE LCD_LINES 4
Define LCD_CHARS 20
DEFINE LCD_COMMANDUS 2000
DEFINE LCD_DATAUS 50
VinTXD VAR PORTC.7 'AD0
VinRXD VAR PORTC.6 'AD1
FlowIn VAR PORTC.5 'AD2
Pause 500 ' Wait for LCD to startup
mainloop:
Lcdout $fe, 1, "********************"
Lcdout $fe,$C0, " PORTABLE FILE "
Lcdout $fe,$94, " TRANSFER DEVICE "
Lcdout $fe,$d4, "********************"
Pause 3000 ' Wait 2 secondS
NUMS VAR BYTE[16]
X1 VAR BYTE
X2 VAR BYTE
X3 VAR BYTE
X4 VAR BYTE
X5 VAR BYTE
X6 VAR BYTE
X7 VAR BYTE
X8 VAR BYTE
X9 VAR BYTE
X10 VAR BYTE
X11 VAR BYTE
X12 VAR BYTE
StartDisk:
HIGH VinRXD
PAUSEUS 1000
SEROUT2 VinRXD,8588,["ECS",13]
LCDOUT $FE,1, "1"
HIGH VinRXD
PAUSEUS 1000
SEROUT2 VinRXD,8588,["IPA",13]
LCDOUT $FE,1, "2"
HIGH VinRXD
PAUSEUS 1000
SEROUT2 VinRXD,8588,["A:",13]
LCDOUT $FE,1, "3"
HIGH VinRXD
PAUSEUS 100
SEROUT2 VinRXD,8588,["DIR",13]
LCDOUT $FE,1, "4"
PAUSEUS 1000
WAIT1
IF FLOWIN = 1 THEN WAIT1
SERIN2 VinTXD,8588,[STR NUMS\12]
LCDOUT $FE,1, "5"
X1 = NUMS[0]
X2 = NUMS[1]
X3 = NUMS[2]
X4 = NUMS[3]
X5 = NUMS[4]
X6 = NUMS[5]
X7 = NUMS[6]
X8 = NUMS[7]
X9 = NUMS[8]
X10 = NUMS[9]
X11 = NUMS[10]
X12 = NUMS[11]
PAUSE 100
LCDOUT $FE,1,X1,X2,X3,X4,X5,X6,X7,X8,x9,x10,x11,x12
PAUSE 2000
goto StartDisk
here is my code. its almost the same as the one that i posted earlier..
Bookmarks