AR-B1375/AR-B1376 User
’
s Guide
11-2
(5) Basic Language Example
a.) Initial 86C450 UART
10
OPEN “COM1:9600,m,8,1”AS #1 LEN=1
20
REM Reset DTR
30
OUT &H3FC, (INP(%H3FC) AND &HFA)
40 RETURN
b.) Send out one character to COM1
10
REM Enable transmitter by setting DTR ON
20
OUT &H3FC, (INP(&H3FC) OR &H01)
30
REM Send out one character
40
PRINT #1, OUTCHR$
50
REM Check transmitter holding register and shift register
60
IF ((INP(&H3FD) AND &H60) >0) THEN 60
70
REM Disable transmitter by resetting DTR
80
OUT &H3FC, (INP(&H3FC) AND &HEF)
90 RETURN
c.) Receive one character from COM1
10
REM Check COM1: receiver buffer
20
IF LOF(1)<256 THEN 70
30
REM Receiver buffer is empty
40 INPSTR$”
50 RETURN
60
REM Read one character from COM1: buffer
70 INPSTR$=INPUT$(1,#1)
80 RETURN