(GIN Macro)
Defined in: DUMP-MACROS
Used in: SCHEDMTX867
B#XJ ...[ B#XX ...[ B*CH ...[??? PRESINC SECT FILE FGN 66 DOC B*X7 ...[ BBBR ...#MAC PRESINC BBLK ...#UNS FTS2 BBWC ...( BC69 ... LDN %C 0 [%C USED AS FDINCS COUNTER BCB3 ... LDX 2 FX2 [SET X2 BCTM ... LDX 1 BOLC [X1 -> OFLC BD*? ... LDX 1 A1(1) [X1 => COUNT OF ENTRIES BDSX ... BZE 1 M2PRES [J IF NO ENTRIES BF#H ...M1PRES [ BFS7 ... LDX 1 ATYPE(2) [TYPE OF BLOCK BG?R ... SRL 1 12 [ BGRC ... ERN 1 +ACTDOC+ASCHEDE [IS IT DUMP TAPE SCHEDULER BH?3 ... BZE 1 M3PRES [J IF SCHEDULER BHQM ... LDX 1 ATYPE(2) [TYPE AGAIN BJ=? ... SRL 1 12 [ BJPX ... ERN 1 +ACTDOC+ADUMPT [IS IT A DUMP TAPE ACTIVITY BK9H ... BZE 1 M3PRES [J IF DTA BKP7 ... LDX 2 ACTRING(2) [FIND NEXT ACTIVITY BL8R ... SBN 2 ACTRING [X2 -> START OF NEXT ACTIVITY BLOCK BLNC ... BXU 2 FX2,M1PRES [J IF NOT END OF RING BM83 ...M2PRES [ BMMM ... LDX 1 FX1 [RESET X1,X2 = FX2 BN7? ... BRN M6PRES [EXIT FROM MACRO BNLX ...M3PRES [ BP6H ... LDX 2 FPTR(2) [LOOK AT NEXT BLOCK BPL7 ... BXE 2 FX2,M2PRES [J IF BACK TO CURRENT ACTIVITY BQ5R ... LDX 1 ATYPE(2) [BLOCK TYPE BQKC ... SRL 1 12 [ BR53 ... ERN 1 +FILE+FDINCS [ BRJM ... BZE 1 M4PRES [J IF FDINCS BLOCK BS4? ... LDX 1 ATYPE(2) [NEXT ACTIVITY? BSHX ... SRL 1 18 [ BT3H ... SBN 1 #60 [ BTH7 ... BPZ 1 M1PRES [J IF ACTIVITY BLOCK BW2R ... BRN M3PRES [LOOK AT NEXT BLOCK BWGC ...M4PRES [ BWQ9 ... LF 2,FDINCFSNO,1 [WE HAVE A FDINCS, X1 => FILESTORE NU BX23 ... BXU %B 1,M3PRES [J IF NOT CORRECT FILESTORE BX#D ... LDN 0 FDINCLEN [ BXLT ... MPY 0 FDINCNO(2) [X1 => ENTRIES*ENTRY LENGTH BX^? ...M5PRES [ BYDX ... BZE 1 M3PRES [J IF NOT CORRECT FDINCS BYNP ... SBN 1 FDINCLEN [DECREMENT MODIFIER BYYH ... SMO 1 [X1 USED AS MODIFIER B^D7 ... LDX 0 FDINCINC(2) [X0 => INCREMENT NO. POSITIONED AT B^XR ... BXL 0 %A,M3PRES [J IF NOT CORRECT FDINCS C2X3 ... BXU 0 %A,M5PRES [J IF NOT CORRECT INCREMENT NO. C3BM ... ADN %C 1 [INCREMENT COUNT OF FDINCS C3W? ... BRN M3PRES [ C4*X ...M6PRES C4B8 ...) C4BF ...#UNS FTS2 C4BQ ...#STR C4C3 ...( C4C# ... LDN %B 0 [%B USED AS FDINCS COUNTER C4CK ... LDX 2 FX2 [SET X2 C4CW ... LDX 1 BOLC [X1 -> OFLC C4D7 ... LDX 1 A1(1) [X1 => COUNT OF ENTRIES C4DD ... BZE 1 M2PRES [J IF NO ENTRIES C4DP ...M1PRES [ C4F2 ... LDX 1 ATYPE(2) [TYPE OF BLOCK C4F? ... SRL 1 12 [ C4FJ ... ERN 1 +ACTDOC+ASCHEDE [IS IT DUMP TAPE SCHEDULER C4FT ... BZE 1 M3PRES [J IF SCHEDULER C4G6 ... LDX 1 ATYPE(2) [TYPE AGAIN C4GC ... SRL 1 12 [ C4GN ... ERN 1 +ACTDOC+ADUMPT [IS IT A DUMP TAPE ACTIVITY C4G^ ... BZE 1 M3PRES [J IF DTA C4H= ... LDX 2 ACTRING(2) [FIND NEXT ACTIVITY C4HH ... SBN 2 ACTRING [X2 -> START OF NEXT ACTIVITY BLOCK C4HS ... BXU 2 FX2,M1PRES [J IF NOT END OF RING C4J5 ...M2PRES [ C4JB ... LDX 1 FX1 [RESET X1,X2 = FX2 C4JM ... BRN M6PRES [EXIT FROM MACRO C4JY ...M3PRES [ C4K9 ... LDX 2 FPTR(2) [LOOK AT NEXT BLOCK C4KG ... BXE 2 FX2,M2PRES [J IF BACK TO CURRENT ACTIVITY C4KR ... LDX 1 ATYPE(2) [BLOCK TYPE C4L4 ... SRL 1 12 [ C4L* ... ERN 1 +FILE+FDINCS [ C4LL ... BZE 1 M4PRES [J IF FDINCS BLOCK C4LX ... LDX 1 ATYPE(2) [NEXT ACTIVITY? C4M8 ... SRL 1 18 [ C4MF ... SBN 1 #60 [ C4MQ ... BPZ 1 M1PRES [J IF ACTIVITY BLOCK C4N3 ... BRN M3PRES [LOOK AT NEXT BLOCK C4N# ...M4PRES [ C4NK ... LDX 1 A1(2) [WE HAVE A FDINCS,X1 => NO. OF ENTRIE C4NW ... SLL 1 1 [TWO WORDS PER TSN C4P7 ...M5PRES [ C4PD ... BZE 1 M3PRES [J IF NOT CORRECT FDINCS C4PP ... SMO 1 [X1 USED AS MODIFIER C4Q2 ... LDX 0 A1-1(2) [X0 => INCREMENT NO. POSITIONED AT C4Q? ... BXL 0 %A,M3PRES [J IF NOT CORRECT FDINCS C4QJ ... SBN 1 2 [DECREMENT MODIFIER C4QT ... BXU 0 %A,M5PRES [J IF NOT CORRECT INCREMENT NO. C4R6 ... ADN %B 1 [INCREMENT COUNT OF FDINCS C4RC ... BRN M3PRES [ C4RN ...M6PRES C4R^ ...) C4TH ...#NOR