Device 16F877
Xtal 4
Config WDT_OFF,_
PWRTE_ON,_
LVP_OFF,_
HS_OSC
All_Digital true
Declare Hserial_Baud 9600
Declare Hserial_RCSTA $90
Declare Hserial_TXSTA $24
Declare Hserial_Clear = On
Symbol AAN = 1
Symbol UIT = 0
Symbol Contactdender = 20
Symbol DQ = PORTA.1
Symbol LED = PORTA.0
Symbol SkipRom = $CC
Symbol ReadMemory = $F0
Symbol ReadRom = $33
Symbol Temp_const = $80
Symbol EEPROM_Ver = $81
Symbol Ext_Res = $82
Symbol Day = $84
Symbol Month = $85
Symbol Year = $86
Symbol Date = $84, $85, $86
Symbol Max_Load = $8F
Symbol Min_Load = $91
Symbol Metric_Size = $8B
Dim Result As Word
Dim Commando As Byte
Dim Data1 As Byte
Dim Data2 As Byte
Dim Data3 As Byte
Dim Data4 As Byte
Dim Data5 As Byte
Dim Data6 As Byte
Dim Data7 As Byte
Dim Data8 As Byte
Dim BData1 As Bit
Dim BData2 As Bit
Dim BData3 As Bit
Dim BData4 As Bit
Dim BData5 As Bit
Dim BData6 As Bit
Dim BData7 As Bit
Dim BData8 As Bit
Dim BData9 As Bit
Dim BData10 As Bit
Dim BData11 As Bit
Dim BData12 As Bit
Dim BData13 As Bit
Dim BData14 As Bit
Dim BData15 As Bit
Dim BData16 As Bit
Dim BData17 As Bit
Dim BData18 As Bit
Dim BData19 As Bit
Dim BData20 As Bit
Dim BData21 As Bit
Dim BData22 As Bit
Dim BData23 As Bit
Dim BData24 As Bit
Dim BData25 As Bit
Dim BData26 As Bit
Dim BData27 As Bit
Dim BData28 As Bit
Dim BData29 As Bit
Dim BData30 As Bit
Dim BData31 As Bit
Dim BData32 As Bit
Dim BData33 As Bit
Dim BData34 As Bit
Dim BData35 As Bit
Dim BData36 As Bit
Dim BData37 As Bit
Dim BData38 As Bit
Dim BData39 As Bit
Dim BData40 As Bit
Dim BData41 As Bit
Dim BData42 As Bit
Dim BData43 As Bit
Clear
Cls
DelayMS 1000
Start:
HRSOut "Stuur commando!",10,13
GoTo Doorgaan
Doorgaan:
Repeat
HRSIn Dec1 Commando
Until Commando >= 1 And Commando <= 10
Select Commando
Case 1:
High LED
OWrite DQ, 1, [SkipRom, ReadMemory, Day]
ORead DQ, 0, [Data1]
HRSOut "Dag van kalibratie: ", Dec Data1,10,13
Low LED
Case 2:
High LED
OWrite DQ, 1, [SkipRom, ReadMemory, Month]
ORead DQ, 0, [Data1]
HRSOut "Maand van kalibratie: ", Dec Data1,10,13
Low LED
Case 3:
High LED
OWrite DQ, 1, [SkipRom, ReadMemory, Year]
ORead DQ, 0, [Data1, Data2]
Result = Data2 * 256 + Data1
HRSOut "Jaar van kalibratie: ", Dec Result,10,13
Low LED
Case 4:
High LED
OWrite DQ, 1, [SkipRom, ReadMemory, Date]
ORead DQ, 0, [Data1, Data2, Data3, Data4]
Clear Result
Result = Data4 * 256 + Data3
HRSOut "Datum van kalibratie: ", Dec Data1,"-", Dec Data2,"-", Dec Result,10,13
Low LED
Case 5:
High LED
OWrite DQ, 1, [SkipRom, ReadMemory, Max_Load]
ORead DQ, 0, [Data1, Data2]
Clear Result
Result = Data2 * 256 + Data1
HRSOut "Max Load: ", Dec Result, " KN",10,13
Low LED
Case 6:
High LED
OWrite DQ, 1, [SkipRom, ReadMemory, Min_Load]
ORead DQ, 0, [Data1, Data2]
Clear Result
Result = Data2 * 256 + Data1
HRSOut "Min Load: ", Dec Result, " KN",10,13
Low LED
Case 7:
High LED
OWrite DQ, 1, [SkipRom, ReadMemory, Metric_Size]
ORead DQ, 0, [Data1, Data2]
HRSOut "Afmeting: ", Dec Data2," mm",10,13
Low LED
Case 8:
High LED
OWrite DQ, 1, [SkipRom, $66]
ORead DQ, 0, [Data1]
HRSOut Bin Data1,10,13
Low LED
Case 9:
High LED
OWrite DQ, 5, [SkipRom, $66, $B8]
DelayMS 25
ORead DQ, 4, [BData1, BData2, BData3, BData4, BData5, BData6, BData7, BData8, BData9, BData10, BData11, BData12, BData13, BData14, BData15, BData16, BData17, BData18, BData19, BData20, BData21, BData22, BData23, BData24, BData25, BData26]
ORead DQ, 4, [BData27, BData28, BData29, BData30, BData31, BData32, BData33, BData34, BData35, BData36, BData37, BData38, BData39, BData40, BData41, BData42, BData43]
HRSOut Bin BData1,",", Bin BData2,",", Bin BData3,",", Bin BData4,",", Bin BData5,",", Bin BData6,",", Bin BData7,",", Bin BData8," | ",10,13
HRSOut Bin BData9,",", Bin BData10,",", Bin BData11,",", Bin BData12,",", Bin BData13,",", Bin BData14,",", Bin BData15,",", Bin BData16," | ",10,13
HRSOut Bin BData17,",", Bin BData18,",", Bin BData19,",", Bin BData20,",", Bin BData21,",", Bin BData22,",", Bin BData23,",", Bin BData24," | ",10,13
HRSOut Bin BData25,",", Bin BData26,",*", Bin BData27,",", Bin BData28,",", Bin BData29,",", Bin BData30,",", Bin BData31,",", Bin BData32," | ",10,13
HRSOut Bin BData33,",", Bin BData34,",", Bin BData35,",", Bin BData36,",", Bin BData37,",", Bin BData38,",", Bin BData39,",", Bin BData40," | ",10,13
HRSOut Bin BData41,",", Bin BData42,",", Bin BData43," | ",10,13
Low LED
EndSelect
GoTo Doorgaan
End