T
terys2
Guest
Ciao ho bisogno di aiuto con questo codice chiunque può fare l'ASM e esadecimale e it.Thnx upload ...
w1 VAR WORD
w2 VAR WORD
B1 VAR BYTE
B2 VAR BYTE
B3 VAR BYTE
'Main Routine
Inizio:
Conte PORTB.0, 1000, w1
LCDOut 254.128
LCDOut "Conti / Sec" # w1, ""
Se W1 <= 20 Then
W2 = W1 * 5
EndIf
Se W1> 20 Then
W1 = W1 * 63
w2 = DIV32 10
EndIf
w1 = w2
B1 = w1 DIG 2
b2 = w1 DIG 1
b3 = w1 DIG 0
LCDOut $ fe, $ c0
LCDOut "mR / h", # B1 "." # B2, B3 #, ""
w1 = 0
Goto start
w1 VAR WORD
w2 VAR WORD
B1 VAR BYTE
B2 VAR BYTE
B3 VAR BYTE
'Main Routine
Inizio:
Conte PORTB.0, 1000, w1
LCDOut 254.128
LCDOut "Conti / Sec" # w1, ""
Se W1 <= 20 Then
W2 = W1 * 5
EndIf
Se W1> 20 Then
W1 = W1 * 63
w2 = DIV32 10
EndIf
w1 = w2
B1 = w1 DIG 2
b2 = w1 DIG 1
b3 = w1 DIG 0
LCDOut $ fe, $ c0
LCDOut "mR / h", # B1 "." # B2, B3 #, ""
w1 = 0
Goto start