chr.bas

82 sample programs written in BASCOM-8051 for 8051 developement

'--------------------------------------------------------------
'                  CHR.BAS
'                 (c) 1997-2000 MCS Electronics
' This sample shows how to use the CHR() and BCD() function and
' It shows how to use the inline assembler
'--------------------------------------------------------------
Dim K As Byte
Again:
K = 65
Print K ; Chr(k) ; K ; Chr(66) ; Bcd(1)
Printhex K
Print "Now do some assembler"
'------------- Not supported but included : inline assembler --
 Mov A , #2     ;set register
 Mov B , #3     ;set-up second register
 Mul Ab         ;multiply
 Mov {k}, a     ;assign variable
 Print K
 ljmp .again     ;labels are converted to the labelname preceded by a  point
End