82
Equals Flag
To next process
Number of words to be transferred
First word to transfer (DM 000)
Destination word address
PC Program
ASCII Unit Program
WRIT(87/191)
#0001
DM000
00
10 OPEN #2,“LPRT:(47)”
20 A$ = “00:00”
30 B$ = MID$ (TIME$, 4, 5)
40 IF B$ <:> A$ GOTO 30
50 PC PUT 1
60 PC READ, “I4” ; X
70 PC PUT 0
80 PRINT #2, “DM=” ; X
90 GOTO 30
#0001:
DM000:
00:
DIFU 3200
0108
3200
Example 6
Purpose: To accept input from the keyboard and write it to the PC us-
ing the PC WRITE statement and READ(88/190)
Equals Flag
To next process
PC Program
ASCII Unit Program
READ(88/190)
#0001
DM 000
10 INPUT I
20 PC WRITE “I4”; I
30 GOTO 10
01
Number of words to be transferred
First word to transfer
Destination word address
#0001:
01:
DM000:
Example 7
Purpose: To display the state of PC bit 1000 on a display device con-
nected to port 2
Equals Flag
To next process
Number of words to be transferred
First word to transfer (DM 000)
Destination word address
PC Program
ASCII Unit Program
WRIT(87/191)
#0001
DM000
00
10 OPEN #2, “SCRN:(40)”
20 PC READ “B0”; R
30 RS$ = “ON”
40 IF R = 0 THEN RS$ = “OFF”
50 PRINT #2, “RELAY = ”; RS$
60 GOTO 20
#0001:
DM000:
00:
Programs in Two-word Mode
Summary of Contents for C500-ASC04
Page 1: ...C500 ASC04 ASCII Unit Operation Manual Revised February 2001 ...
Page 5: ...iv ...
Page 7: ...vi ...
