Table of Contents
Advertisement
FB 110 continued:
0025
:L
=REST
0026
:L
KB 0
0027
:><F
0028
:JC
=TRAN
0029
:
002A
:AN
=STAR
002B
:RB
=EDGF
002C
:ON
=STAR
002D
:O
=EDGF
002E
:JC
=GOOD
002F
:S
=EDGF
0030
:
0031
:L
=NUMB
0032
:T
=REST
0033
:L
=FIRB
0034
:T
=CUBN
0035
:
0036
:L
=REST
0038 LOOP :L
KF+0
0039
:!=F
003A
:JC
=GOOD
003B TRAN :L
=CUBN
003C
:T
FY 249
003D
:L
KB 246
:JU
OB 202
003E
003F
:L
FY 250
0040
:JM
=ERRO
0041
:JP
=GOOD
0042
:L
=CUBN
0043
:I
1
0044
:T
=CUBN
0045
:L
=REST
0046
:D
1
0047
:T
=REST
0048
:JU
=LOOP
0049
:
004A GOOD :A
F 0.0
004B
:AN
F 0.0
004C
:L
KB 0
004D
:T
=ERRO
004E
:BE
004F
:
0050 ERRO :T
=ERRO
0051
:L
KB 0
0052
:T
=REST
0053
:BE
CPU 948 Programming Guide
C79000-G8576-C848-04
First send any remaining
data fields
Positive edge at start
input ?
Initialize the global flags
after postive edge at
START input
As long as REST ><0,
continue to attempt to
send data fields
SF OB:
"Send a data field"
Abort if error
Abort if trans-cap. = 0
Increment
field number
Decrement number of
remaining data fields
Regular end of program:
RLO = 0, ERRO = 0
Program end if error:
RLO = 1, ERRO contains error number
Applications
10 - 63
Advertisement
Table of Contents
