{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: MACS CONC)}}
====== MACS CONC ======
(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