PCD7.D250
User program examples
26/770 E1
(D25-08-E.DOC)
SAIA-Burgess Electronics Ltd.
Page 8-27
;--------------------------------
; Coldstart
;--------------------------------
XOB
16
SASI
CHAN_N
; Assignation RS232 interface
ASSIGN
; Text 100
ACC
H
RES
IN_BUSY
; Reset input busy flag
STXT
CHAN_N
DISP
EXOB
;=======================================================================
;--------------------------------
; Main program
;--------------------------------
COB
0
0
CSB
0
; Call communication SB 0
ECOB
;
.
SB 0
│
╔═╧═╗ ┌─────┐
║
0
╟─┤
empty
│
╚═╤═╝ └─────┘
0
┼
XBSY = 0
│
<
──────────────────────────────────────────────────────────────────┐
│
8
│
│
<
────────────────────────────────────────────────────────────────┐ │
┌─┴─┐ ┌───────────────┐
6
│ │
│
1
├─┤
Send main menue
│
│ │
└─┬─┘ └───────────────┘
│ │
1
┼
RBSY ANL XBSY
│ │
│
<
──────────────────────────────────────────────────────────────┐ │ │
┌─┴─┐ ┌───────────────┐
4
│ │ │
│
2
├─┤
Read character
│
│ │ │
└─┬─┘ └───────────────┘
│ │ │
├────────────────────────┬────────────────────────┐
│ │ │
2
┼
Char = F1
3
┼
Char = F2
4
┼
RBSY = 1
2
│ │ │
╓─┴─┐ ╓───────────────╖
╓─┴─┐ ╓───────────────╖
└─────────────┘ │ │
║
7
├─╢
Modify register
║
║
5
├─╢
Modifiy counter
║
│ │
╙─┬─┘ ╙───────────────╜
╙─┬─┘ ╙───────────────╜
│ │
8
┼
=1
6
┼
=1
│ │
│
│
1
│ │
│
└────────────────────────────────────────┘ │
│
1
│
└───────────────────────────────────────────────────────────────────┘
