Code:
INCLUDE "modedefs.bas"
DEFINE LCD_DREG PORTC
DEFINE LCD_DBIT 0
DEFINE LCD_RSREG PORTD
DEFINE LCD_RSBIT 2
DEFINE LCD_EREG PORTD
DEFINE LCD_EBIT 1
DEFINE LCD_RWREG PORTD
DEFINE LCD_RWBIT 0
DEFINE LCD_BITS 8
DEFINE LCD_LINES 4
Define LCD_CHARS 20
DEFINE LCD_COMMANDUS 2000
DEFINE LCD_DATAUS 50
VinTXD VAR PORTD.4 'AD0
VinRXD VAR PORTD.3 'AD1
FlowIn VAR PORTD.5 'AD2
Pause 500
FILE1 VAR BYTE[12]
FILE2 VAR BYTE[12]
FILE3 VAR BYTE[12]
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
X13 VAR BYTE
X14 VAR BYTE
X15 VAR BYTE
X16 VAR BYTE
X17 VAR BYTE
X18 VAR BYTE
X19 VAR BYTE
X20 VAR BYTE
X21 VAR BYTE
X22 VAR BYTE
X23 VAR BYTE
X24 VAR BYTE
X25 VAR BYTE
X26 VAR BYTE
X27 VAR BYTE
X28 VAR BYTE
X29 VAR BYTE
X30 VAR BYTE
X31 VAR BYTE
X32 VAR BYTE
X33 VAR BYTE
X34 VAR BYTE
X35 VAR BYTE
X36 VAR BYTE
CRET VAR BYTE
CRET = $0D
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,[WAIT(CRET),STR FILE1\12 \CRET,WAIT(CRET),STR FILE2\12 \CRET,WAIT(CRET),STR FILE3\12 \CRET]
LCDOUT $FE,1, "5"
X1 = FILE1[0]
X2 = FILE1[1]
X3 = FILE1[2]
X4 = FILE1[3]
X5 = FILE1[4]
X6 = FILE1[5]
X7 = FILE1[6]
X8 = FILE1[7]
X9 = FILE1[8]
X10 = FILE1[9]
X11 = FILE1[10]
X12 = FILE1[11]
X13 = FILE1[0]
X14 = FILE1[1]
X15 = FILE1[2]
X16 = FILE1[3]
X17 = FILE1[4]
X18 = FILE1[5]
X19 = FILE1[6]
X20 = FILE1[7]
X21 = FILE1[8]
X22 = FILE1[9]
X23 = FILE1[10]
X24 = FILE1[11]
X25 = FILE1[0]
X26 = FILE1[1]
X27 = FILE1[2]
X28 = FILE1[3]
X29 = FILE1[4]
X30 = FILE1[5]
X31 = FILE1[6]
X32 = FILE1[7]
X33 = FILE1[8]
X34 = FILE1[9]
X35 = FILE1[10]
X36 = FILE1[11]
PAUSE 100
LCDOUT $FE,1,X1,X2,X3,X4,X5,X6,X7,X8,x9,x10,x11,x12
LCDOUT $FE,$C0,X13,X14,X15,X16,X17,X18,X19,X20,X21,X22,X23,X24
LCDOUT $FE,$94,X25,X26,X27,X28,X29,X30,X31,X32,X33,X34,X35,X36
PAUSE 2000
goto StartDisk
Here is the code..i haven't been able to add other functions yet because im still addressing to the problem that i stated earlier..
Bookmarks