
IP 240 Counting
FB 38 LAE=39
NETWORK 1 0000 SAVE FLAGS
FB 38 SAVES FLAG WORDS 200 TO 254 TO A SPECIFIED DATA BLOCK.
THE DATA BLOCK MUST COMPRISE AT LEAST 30 DATA WORDS (DW0 TO DW29).
NAME :FLAG.SAV
BEZ :DBNR I/Q/D/B/T/C: B
0008 :B =DBNR
0009 :***
NETWORK 2 000A
000A :L KF +200 INITIALIZE THE POINTERS
000C :T DW 29 (DW28 AND DW29)
000D :L KF +0
000F :T DW 28
0010 M001 :B DW 29
0011 :L MW 0
0012 :B 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
001E :L DW 29 SAVED IN DATA BLOCK ?
001F :>=F
0020 :JC =M001
0021 :BE
EWA 4NEB 811 6120-02a
8-23
Comentarios a estos manuales