{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: PRESINC)}}
====== PRESINC ======
(GIN Macro)
**Defined in:** [[george:source:DUMP-MACROS|DUMP-MACROS]]
**Used in:** [[george:source:SCHEDMTX867|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