(GIN Macro)
Defined in: MACROS PERI
Used in: BSQ867, BSTS867, CAFSINFO866, CAFSPERI867, CONSET864, CONSOLE867, DRUM852, EMSENG864, INLOOP84, INRESTAR84, IPBERROR867, IPBOUT867, IPBSTARB867, IPBSTART867, LABEL866, LIBLOAD867, LIBLOADB867, LISTDEV866, LISTINIT867, LISTINTC865, LISTLOOP867, LISTNEXT867, LISTTPCP867, LOAD60, LOADERDA867, LOADERDR867, LOADERFS867, LOADERGO867, LOADERI867, LOADERMT867, LOADERPM867, MODE866, MOVCART867, MTDUMP860, NETOFLNE867, OLMTB867, OLMTD65, OLMTE85, OPER864, OPERA864, OPERIN867, PATCH, PERFAIL866, PM, PMDR864, PMDUMP85, PMDUMPDA85, PMDUMPMT85, PROFLAG83, READLINE8, REDONMT867, RENAMEMT867, RESTLIMB864, RESTMERG864, RESTOREA866, RESTOREG864, SETUP867, SETUPA867, TAPEWAIT65, UNLOADMT867
5^XQ #MAC GPERI 62CB LDCT 0 #400 62X2 #STR NC,%C 63BL STO 0 CHAINADD(%B) 63W= ADN 0 CHAINADD(%B) 64*W MODD STO 0 JCCA5,%A,CPPTR(%B) 64TG LDN 0 CPRW1(%B) 65*6 MODD STO 0 JCCA1,%A,CPPTR(%B) 65SQ #STR %A 66#B PERI 0 %A 66S2 #STR %A 67?L #SKI 67R= PERI 0 CPPTR(%B) 68=W #NOR