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