chr.bas

来自「82 sample programs written in BASCOM-805」· BAS 代码 · 共 21 行

'--------------------------------------------------------------
'                  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