Specifications

IP 240 Position Decoding
FB 38 LEN=39
NETWORK 1 0000 SAVE FLAGS
FB38 SAVES FLAG WORDS 200 TO 254 IN A SPECIFIED DATA BLOCK.
THE DATA BLOCK MUST HAVE A LENGTH OF AT LEAST 30 DATA WORDS
(DW0 - DW29).
NAME :FLAG.SAV
ID :DBNR I/Q/D/B/T/C: B
0008 :B =DBNR
0009 :***
NETWORK 2 000A
000A :L KF +200 PRESET THE POINTERS
000C :T DW 29 (DW28 AND DW29)
000D :L KF +0
000F :T DW 28
0010 M001 :DO DW 29
0011 :L MW 0
0012 :DO DW 28
0013 :T DW 0
0014 :L DW 29 INCREMENT THE POINTERS
0015 :ADD KF+2 FLAG WORD POINTER
0017 :T DW 29
0018 :L DW 28
0019 :ADD KF+1 DATA WORD POINTER
001B :T DW 28
001C :L KF +254 FLAG WORDS 200 TO 254 SAVED
001E :L DW 29 IN THE DATA BLOCK ?
001F :>=F
0020 :JC =M001
0021 :BE
EWA 4NEB 811 6120-02a 7-57