long.bas

82 sample programs written in BASCOM-8051 for 8051 developement

'------------------------------------------------------------
'                 (C) 1998-2000 MCS Electronics
'                      LONG.BAS
'long ranges from -2147483648 to 2147483647
'LONG does only support conversion from Integer/Word to Long
'------------------------------------------------------------
Dim I As Integer , L1 As Long , L2 As Long , L3 As Long
Dim Xi As Xram Integer
Dim Xl1 As Xram Long , Xl2 As Xram Long , Xl3 As Xram Long

I = 1000 : Xi = -1000                   'assign integers
L1 = I : Print L1                       'convert to long
L1 = Xi : Print L1                      'convert to long


L1 = 1000                               'long assign
Xl1 = L1 : Xl2 = 2000                   'long assign
L2 = Xl2
Print L2 ; "  " ; Xl2

Xl1 = 1000 : L2 = 5000
Xl3 = Xl1 * L2 : Print Xl3

Input "number1 " , Xl1
Input "number2 " , L2


L3 = L1 + L2 : Print L3
L3 = L1 - L2 : Print L3
L3 = L1 * L2 : Print L3
L3 = L1 / L2 : Print L3
L3 = L1 Mod L2 : Print L3
L3 = L1 And L2 : Print L3
L3 = L1 Or L2 : Print L3
L3 = L1 Xor L2 : Print L3


Inputhex "Long HEX " , L1               'note that 8 bytes must be entered
Printhex L1
End