(GIN Macro)
Defined in: PMACS
Used in: PMCHAINS864
4FJW [??? PMCHAINP SECT DIAG FGN 104 DOC 4G4G #MAC PMCHAINP [M.C.D. MANN 4GJ6 [ 4H3Q [ 4HHB [ ************** 4J32 [ * PMCHAINP * 4JGL [ ************** 4K2= [ 4KFW [ 4K^G [ THIS MACRO CAUSES ENTRY TO CHAIN AND RING PRINTING ROUTINES 4LF6 [ 4LYQ [ %A=NO. OF CHARS. IN %B 4MDB [ %B=CHAIN(RING) HEADING 4MY2 [ %C=BASE ADDR. OF CHAIN(RING) 4NCL [ %D=DISTANCE FROM RING ELEMENT TO START OF BLOCK OR 4NX= [ =X IF DISTANCE HELD IN 3RD WORD OF RING ELEMENT 4PBW [ %E=ADDR. CONTAINING NO. OF WORDS TO BE PRINTED FROM EACH BLOCK OR 4PWG [ =N IF WORD SELECTION REQUIRED[SEE PMVAL MACRO] 4QB6 [ %F=OPTIONAL=1 IF TYPES ETC. TO BE PRINTED 4QTQ [ =2 IF CHAPTER CHAIN BEING PRINTED 4R*B [ %G OPTIONAL 4RT2 [ =4H MNEMONIC USED TO LABEL ROWS 4S#L [ USED FOR CHAINS ONLY 4SS= #SKI CRAB 4T?W ( 4TRG #STR %G 4W?6 ( 4WQQ CALL 2 MNEM 4X=B 4H%G 4XQ2 ) 4Y9L #STR %G 4YP= #SKI 4^8W ( 4^NG CALL 2 MNEM 5286 +0 52MQ ) 537B ) 53M2 [ 546B CALL 2 START 54KQ +%C 5556 #FID 0 7 %A 55JG #STR %F 563W #FID 8 11 %F 56H= %AH%B 572L #STR %D,X 57G2 +%D 57^B #STR %D,X 58DQ #SKI 58Y6 #7777 59CG #STR %E,N 59WW #FID 0 11 %E 5=B= #STR %E,N 5=TL #SKI 5?*2 ( 5?SB #FID 0 0 1 5#?Q #77777777 5#R6 ) 5*=G #DEF 20?=0 [USED BY PMVAL MACRO,IF FOLLOWING 5*PW #NOR