(George Source)
22FL #SKI 22^= ( 23DW 23YG [ MACS CONC COMM SECTION 24D6 24XQ 25CB [ 25X2 [CONTENTS LIST:- 26BL [ 26W= [ ATTONL 27*W [ FASTCONC 27TG [ FCONDCBE [D. WEBSTER 28*6 [ IPBATTACH 28SQ [ IPBBSW [JAN SLOGROVE 29#B [ IPBCLATTACH 29S2 [ IPBCONREQ 2=?L [ IPBDETACH 2=R= [ IPBINLOAD 2?=W [ IPBNULL 2?QG [ IPBOUTLOAD 2#=6 [ RETAINAH 2#FY ...[ VCONON 2#PQ [ 2*9B [END OF LIST. 2*P2 [ 2B8L 2BN= ) 2C7W [??? ATTONL SECT COMM FGN 40 DOC 2CMG #SKI 2D76 ( 2DLQ [ 2F6B [ RESTORE TIME MAC TO FORBID MOP AH TO OFFLINE CONCEP 2FL2 ) 2G5L #MAC ATTONL 2GK= #MEN XATTACH 2H4W #TRA K61XATTACH 2HJG NULL 2J46 #END 2JHQ #NOR 2K3B [??? FASTCONC SECT COMM FGN 40 DOC 2KH2 #SKI 2L2L ( 2LG= ) 2L^W #MAC FASTCONC 2MFG KEEPCHAP 10,CONMXC,PROFLAG 2M^6 KEEPCHAP 11,CONMXC,PROFLAG 2NDQ #NOR 2NYB [??? FCONDCBE SECT COMM FGN 40 DOC 2PD2 #SKI 2PXL ( 2QC= 2QWW ) 2RBG #MAC FCONDCBE [D. WEBSTER 2RW6 #STR %B,7 2S*Q LDX 7 %B 2STB #STR %A,%C 2T*2 HUNT2 %A,AMXOR,CSTATE,%C 2TSL #STR %A,%C 2W#= #SKI 2WRW HUNT2 %A,AMXOR,CSTATE 2X?G LDX %A A1+FPTR(%A) 2XR6 SBX 7 IDNUM(%A) 2Y=Q LDN 0 CONDCBLEN 2YQB STO 0 %D 2^=2 MPY 7 %D 2^PL ADX %A 0 329= #STR %E 32NW ( 338G LDX %E IDNUM(%A) 33N6 ANDN %E #7777 347Q ) 34MB #NOR 3572 [??? IPBATTAC SECT COMM FGN 40 DOC 35LL #SKI 366= ( 36KW 375G ) 37K6 #MAC IPBATTACH 384Q LDN 0 #400 38JB ANDX 0 IDSTATUS(%A) 3942 BNZ 0 %B 39HL SMO %C 3=3= LDX 0 IPBSW 3=GW ANDX 0 GSIGN 3?2G SRL 0 14 3?G6 ORS 0 IDSTATUS(%A) 3?^Q MODD LDX 0 A1,%D,2 3#FB SRL 0 12 3#^2 STO 0 IDNUM(%A) 3*DL #NOR 3*Y= #MAC IPBCLATTACH 3BCW LDX 0 IDSTATUS(%A) 3BXG SRC 0 1 3CC6 BPZ 0 MIPBCLATCH 3CWQ ANDN 0 3 3DBB BNZ 0 MIPBCLATCH 3DW2 LDCT 0 #77 3F*L ANDX 0 IDSTATUS+1(%A) 3FT= BZE 0 %B 3G#W MIPBCLATCH 3GSG #NOR 3H#6 [??? IPBBSW SECT COMM FGN1 DOC 3HRQ #SKI 3J?B ( 3JR2 [ RESTORE TIME MACRO TO ALLOW THE SECOND BLOCK STATUS WORS TO BE 3K=L [ RETAINED OR REMOVED WHEN GEORGE CONCEPTUALS ARE BLOCKING TRANSFERS 3KQ= [ 3L9W ) 3LPG #MAC IPBBSW 3M96 #STR %A,ON 3MNQ #SKI 3N8B ( 3NN2 #MEN CONIPB 3P7L #TRA K90CONIPB 3PM= SBN 4 1 3Q6W #TRA K91CONIPB 3QLG SBN 1 1 3R66 ADN 3 1 3RKQ #END 3S5B #EXI 3SK2 ) 3T4L #STR OFF,%A 3TJ= #SKI 3W3W ( 3WHG #MEN CONIPB 3X36 #TRA K90CONIPB 3XGQ NULL 3Y2B #TRA K91CONIPB 3YG2 NULL 3Y^L NULL 3^F= #END 3^YW #EXI 42DG ) 42Y6 #NOR 43CQ [??? IPBCONRE SECT COMM FGN 40 DOC 43XB #SKI 44C2 ( 44WL 45B= ) 45TW #MAC IPBCONREQ 46*G LDX %A IPBRING(%A) 46T6 LDN %A CNAME-IPBRING(%A) 47#Q #NOR 47SB [??? IPBDETAC SECT COMM FGN 40 DOC 48#2 #SKI 48RL ( 49?= 49QW ) 4==G #MAC IPBDETACH 4=Q6 LDX 0 IDSTATUS(%A) 4?9Q SRC 0 1 4?PB BPZ 0 %B 4#92 ANDN 0 3 4#NL BNZ 0 %B 4*8= LDCT 0 #77 4*MW ANDX 0 IDSTATUS+1(%A) 4B7G BNZ 0 %B 4BM6 #NOR 4C6Q [??? IPBINLOA SECT COMM FGN 40 DOC 4CLB #SKI 4D62 ( 4DKL 4F5= [ 4FJW [ RESTORE TIME MACRO TO ALTER CL 7900 INPUT OVERLOAD LEVEL 4G4G [ 4GJ6 ) 4H3Q #MAC IPBINLOAD 4HHB #MEN IPBCCA 4J32 #TRA K51IPBCCA 4JGL SBN 7 %A<4095 4K2= #END 4KFW #NOR 4K^G [??? IPBNULL SECT COMM FGN 40 DOC 4LF6 #SKI 4LYQ ( 4MDB ) 4MY2 #MAC IPBNULL 4NCL LDN 0 #601 4NX= ANDS 0 A1+IDSTATUS(%A) 4PBW SMO A1+BPTR(%A) 4PWG STOZ BPTR 4QB6 STOZ A1+BPTR(%A) 4QTQ #NOR 4R*B [??? IPBOUTLO SECT COMM FGN 40 DOC 4RT2 #SKI 4S#L ( 4SS= 4T?W [ 4TRG [ RESTORE TIME MACRO TO ALTER CL IPB OUTPUT OVERLOAD LEVEL 4W?6 [ 4WQQ ) 4X=B #MAC IPBOUTLOAD 4XQ2 #MEN IPBCCA 4Y9L #TRA K50IPBCCA 4YP= SBN 7 %A<4095 4^8W #END 4^NG #NOR 5286 [??? RETAINAH SECT COMM FGN 62 DOC 52MQ #UNS AHRET 537B ( 53M2 #SKI 546L ( 54L= [ RESTORE-TIME MACRO TO CAUSE RETENTION OF ATTACHMENTS WHEN... 555W [ ...CL RELEASED OR GEORGE RELOADED 55KG ) 5656 #MAC RETAINAH 56JQ #STR ON,%A 574B #SKI 57J2 ( 583L #ALT AHRETAIN=1 58H= #ALT AHRETREL=1 592W ) 59GG #STR OFF,%A 5=26 #SKI 5=FQ ( 5=^B #ALT AHRETAIN=0 5?F2 #ALT AHRETREL=0 5?YL ) 5#D= #MEN IDFCLEAN 5#XW #TRA K91IDFCLEAN 5*CG LDN 0 AHRETAIN 5*X6 #END 5BBQ #MEN SETIDF 5BWB #TRA K91SETIDF 5CB2 LDN 0 AHRETAIN 5CTL #END 5D*= #MEN ATTACHB 5DSW #TRA K91ATTACHB 5F#G LDN 0 AHRETREL 5FS6 #END 5G?Q #MEN IPBCCB 5GRB #TRA K91IPBCCB 5H?2 LDN 0 AHRETREL 5HQL #END 5J== #MEN CDCIPB 5JPW #TRA K91CDCIPB 5K9G LDN 0 AHRETREL 5KP6 #TRA K92CDCIPB 5L8Q LDN 0 AHRETREL 5LNB #END 5M82 #NOR 5MML ) 5N7= ...[??? VCONON 5NLW ...#SKI 5P6G ...( 5PL6 ...[ PARAMETER ON NEEDED TO ALLOW USE OF CONCEPTUAL 5Q5Q ...[ ON A VIRTUAL 7900 5QKB ...) 5R52 ...#MAC VCONON 5RJL ...#STR %A,ON 5S4= ...#SKI 5SHW ...( 5T3G ...#MEN ONLINCL 5TH6 ...#TRA K41ONLINCL 5W2Q ... BRN K42ONLINCL 5WGB ...#TRA K43ONLINCL 5X22 ... BRN K44ONLINCL 5XFL ...#END 5X^= ...#MEN ATTACHB 5YDW ...#TRA K41ATTACHB 5YYG ... BRN K42ATTACHB 5^D6 ...#END 5^XQ ...) 62CB ...#STR OFF,%A 62X2 ...#SKI 63BL ...( 63W= ...#MEN ONLINCL 64*W ...#TRA K41ONLINCL 64TG ... NULL 65*6 ...#TRA K43ONLINCL 65SQ ... NULL 66#B ...#END 66S2 ...#MEN ATTACHB 67?L ...#TRA K41ATTACHB 67R= ... NULL 68=W ...#END 68QG ...) 69=6 ...#NOR ^^^^ ...210716570004