(George Source)
2MW2 ...[??? APROPNAM SECT COMM FGN 12 DOC 2N4= ...#SKI 2N=G ...( 2NDQ [ 2NYB [CONTENTS LIST:- 2PD2 [ 2PXL [ APROPNAME 2QC= [ ISPROPN 2QWW [ MPROPCON 2RBG [ P 2RW6 [ PROPAE 2S*Q [ PROPASSOCS 2STB [ PROPCAE 2T*2 [ PROPNAME 2TDX ...[ SPLCLPROPS 2TJS ...[ SPLPROPS 2TSL [ V 2W#= [ 2WRW [END OF LIST. 2X?G [ 2XR6 # 2Y=Q # 2YGJ ...) 2YQB #MAC APROPNAME 2^=2 [ THIS MACRO GIVES THE PROPERTY NAME OF THE PROPERTY NUMBER FOUND IN %A 2^PL [ IN ACOMMUNE1,2,AND 3 329= [ :SYSTEM.PROPERTY IS FOUND OPEN AND LEFT OPEN 32NW ... ACCSTO %A,ACOMMUNE1,FX2 [PROPERTY NUMBER 347Q LDN 1 %B 34CJ ... SMO FX2 34MB STO 1 ACOMMUNE2 [FILE DEPTH 3572 DOWN WHATPROP,2 358C ...#UNS HWATIDY 359S ...( 35?9 ...#STR %C 35#L ...( 35B3 ... LDX 0 ACOMMUNE1(2) 35CD ... BPZ 0 %C 35DT ...) 35G= ...) 35HM ...#UNS HWATIDY 35K4 ...#SKI 35LL BRN %C [J IF PROP NOT IN SYSPROP 366= #NOR 36=7 ...[??? ISPROPN SECT COMM FGN 12 DOC 36B4 ...#SKI 36F^ ...( 36KW # 375G # MACRO TO GIVE THE NUMBER OF A GIVEN PROPERTY 37K6 # 37SY ...) 384Q #MAC ISPROPN 38JB [THIS MACRO TESTS THE PROPERTY NAME IN THE CPB/CUNI BLOCK,AGAINST THOSE 3942 [IN :SYSTEM.PROPERTY AND,IF A MATCH IS FOUND,THE PROPERTY NUMBER IS SET 39HL [IN %A(IF NOT %A = 0 & COMERR).B0 OF %A SET IF CONSOLE PROPERTY,B1 SET I 3=3= [PERMANENT PROPERTY 3=GW DOWN WHATPROP,4 3?2G #SKI JSKI18<1$1 3?G6 ( 3?^Q LDX 0 ACOMMUNE1(2) 3#FB STO 0 %A 3#^2 ) 3*DL #SKI JSKI18 3*Y= ( 3BCW BRN %A 3BXG #ACC %B 3CC6 #SKI 3CWQ LDX %B ACOMMUNE1(2) 3DBB #ACC %B 3DW2 ( 3F*L LDX 0 ACOMMUNE1(2) 3FT= STO 0 %B 3G#W ) 3GSG ) 3H#6 #NOR 3HD3 ...[??? MPROPCON SECT COMM FGN 12 DOC 3HHY ...#SKI 3HMT ...( 3HRQ # 3J?B # 3JH8 ...) 3JR2 #MAC MPROPCON 3K=L [ 3KQ= [ THIS MACRO CONVERTS EACH PROPERTY NUMBER LIST IN A GMON/ASET 3L9W [ INTO A STRING OF NAMES SEPARATED BY AMPERSANDS IN AN 3LPG [ ADATA/GMONACC. 3M96 [ 3MNQ DOWN WHATPROP,3 3N8B #NOR 3N#? ...[??? P SECT COMM FGN 12 DOC 3ND8 ...#SKI 3NJ5 ...( 3NN2 # 3NXS ...) 3P7L #MAC P 3PM= [THIS MACRO SETS THE SEMAPHORE GIVEN BY %A. IF THE SEMAPHORE IS 3Q6W [ALREADY SET,THE ACTIVITY IS SET WAITING BY LONGSTOP UNTIL THE 3QLG [SEMAPHORE IS FREE. 3R66 [%A GIVES THE BIT POSITION IN APANDV AND IS ALSO USED AS THE 3RKQ [ AUXILIARY WAITING STYLE. 3S5B [%B GIVES THE BREAK-IN LABEL. 3S6M ...#UNS HWATIDY 3S7Y ...( 3S99 ...#STR %B 3S=G ...#SKI 3S?R ... POP ,,IDFANDPROP,(GEOERR) 3S*4 ...#STR %B 3SB* ... POP ,,IDFANDPROP,%B 3SCL ...) 3SDX ...#UNS HWATIDY 3SG8 ...#SKI 3SHF ...( 3SK2 LDX 0 APANDV 3T4L SLC 0 %A 3TJ= BPZ 0 MP1 [J IF FLAG NOT SET 3W3W LDN 0 %A 3WHG SMO FX2 3X36 STO 0 ACOMMUNE1 3XGQ DOWN WHATPROP,5 3Y2B BRN MP2 3YG2 #STR %B 3Y^L BRN %B [J TO BREAK-IN LABEL 3^F= #STR %B 3^YW #SKI 42DG GEOERR 1,PBREAKIN 42Y6 MP1 ORX 0 GSIGN 43CQ SRC 0 %A 43XB STO 0 APANDV [SET FLAG 44C2 MP2 44LS ...) 44WL #NOR 452H ...[??? PROPAE SECT COMM FGN 12 DOC 456D ...#SKI 45=* ...( 45B= # 45TW # 46*G # THIS MACRO PUTS INFOMATION OF AN ASSOCIATION IN :SYSTEM.PROPERTY 46T6 # %A=SAME AS FIRST WORD IN APERI/APIA FOR ASSOCIATION 47#Q # %B=PROP.NO.(B0SET=CONS.PROP. B1SET=PERM.PROP.) 47SB # %C=UNIT GEOG. NO. 48#2 # %D=BRANCH FOR ERRORS 48RL # 493D ...) 49?= #MAC PROPAE 49QW LDX 2 FX2 4==G LDX 1 %B 4=Q6 SLL 1 1 4?9Q BPZ 1 PROPAE1 4?PB LDX 1 %A 4#92 STO 1 ACOMMUNE1(2) 4#NL LDX 1 %B 4*8= STO 1 ACOMMUNE2(2) 4*MW LDX 1 %C 4B7G STO 1 ACOMMUNE3(2) 4BM6 DOWN SYSPROP,3 4C6Q BRN %D 4CLB PROPAE1 4D62 #NOR 4D9X ...[??? PROPASSO SECT COMM FGN 12 DOC 4G4G #MAC PROPASSOCS 4GJ6 [ 4H3Q [ THIS MACRO HUNTS THE CURRENT ACTIVITY FOR AN APERI/ASSOCS BLOCK 4HHB [ AND THEN USES THE PROPERTY NUMBER IN THE BLOCK TO EXTRACT FROM 4J32 [ :SYSTEM.PROPERTY THE PROPERTY NAMES AND PUT THEM IN THE APPROPRIATE 4JGL [ WORDS IN THE BLOCK.MACRO ASSUMES A1>ASSOCSLEN. 4K2= [ 4K3^ ...#UNS HWATIDY 4K5N ...( 4K7C ... DOWN WHATPROP,1 4K96 ... BRN %A 4K=T ...) 4K#J ...#UNS HWATIDY 4KB? ...#SKI 4KD2 ...( 4KFW #SKI JSKI18<1$1 4K^G ( 4LF6 SETNCORE 10,3,FILE,FABSNB 4LYQ LDN 4 A1(3) 4MDB LDN 3 MPR(1) 4MY2 MOVE 3 10 4NCL SETMODE 4,GENERAL,QUERY,CAREFUL 4NX= OPEND M2,4 4PBW TESTREP OK,M3 4PWG M2 GEOERR 1,PROPFILE 4QB6 M3 MHUNT 1,FILE,FABSNB 4QTQ FREECORE 1 4R*B ) 4RT2 #SKI JSKI18 4S#L ( 4SS= OPENSYS %A,PROPERTY,GENERAL,CAREFUL 4T?W [OPEN SYSPROP 4TRG ) 4W?6 MHUNTW 2,APERI,ASSOCS 4WQQ LDN 3 ASSOCSLEN 4X=B MPY 3 A1(2) [GET PRE-MODIFIER IN X4 4XQ2 M8 SMO 4 4Y9L LDX 6 A1+2-ASSOCSLEN(2) [ASSUMES A1+2>ASSOCSLEN 4YP= M4 STEP 4^8W BZE 3 M7 [J.END SYSPROP & ZEROIZE ASSOCS.WORD 4^NG LDX 5 APROPNO(3) [OTHERWISE COMPAPE PROPERTY NOS 5286 ERX 5 6 52MQ ANDX 5 BITS22LS 537B BNZ 5 M4 53M2 MHUNTW 2,APERI,ASSOCS 546L LDN 5 APROPNAME(3) 54L= SMO 4 555W LDN 6 A1+3-ASSOCSLEN(2) 55KG MOVE 5 3 5656 M5 SBN 4 ASSOCSLEN 56JQ BZE 4 M6 574B REWIND 57J2 MHUNTW 2,APERI,ASSOCS 583L BRN M8 58H= #SKI JSKI18<1$1 592W ( 59GG MPR +10 5=26 12HSYSTEM 5=FQ 12HPROPERTY 5=^B +1 5?F2 +1 5?YL 4HB1 5#D= ) 5#XW M7 MHUNTW 2,APERI,ASSOCS 5*CG SMO 4 5*X6 STOZ A1+1-ASSOCSLEN(2) 5BBQ BRN M5 5BWB M6 CLOSE 5C68 ...) 5CB2 #NOR 5CFX ...[??? PROPCAE SECT COMM FGN 12 DOC 5CKS ...#SKI 5CPP ...( 5CTL # 5D*= # THIS MACRO CANCELS ASSOCIATIONS IN ESYSTEM.PROPERTY 5DSW # PARAMETERS THE SAME AS PROPAE 5F#G # 5FJ# ...) 5FS6 #MAC PROPCAE 5G?Q LDX 2 FX2 5GRB LDX 1 %B 5H?2 SLL 1 1 5HQL BPZ 1 PROPCAE1 5J== LDX 1 %A 5JPW STO 1 ACOMMUNE1(2) 5K9G LDX 1 %B 5KP6 STO 1 ACOMMUNE2(2) 5L8Q LDX 1 %C 5LNB STO 1 ACOMMUNE3(2) 5M82 DOWN SYSPROP,4 5MML BRN %D 5N7= PROPCAE1 5NLW #NOR 5NQR ...[??? PROPNAME SECT COMM FGN 12 DOC 5NWN ...#UNS HWATIDY 5P2K ...( 5P6G [ 5PL6 [ 5Q5Q #MAC PROPNAME 5QKB # 5R52 [ THIS MACRO GIVES THE PROPERTY NAME OF A PROPERTY NUMBER: 5RJL [ THE PROPERTY NUMBER IS FOUND IN %A. 5S4= [ THE PROPERTY NAME IS LEFT IN ACOMMUNE1-ACOMMUNE3. 5SHW [ B0/B1 SET IN ACOMMUNE4 IF PROPERTY IS EXCL/PERM 5T3G [ :SYSTEM.PROPERTY IS FOUND OPEN AND LEFT OPEN 5TH6 # 5W2Q BRN M1 5WGB MEXCL #40000000 5X22 MPERM #20000000 5XFL M1 LDX 4 %A 5X^= SLL 4 2 5YDW REWIND 5YYG MSTEP STEP 5^D6 LDX 5 APROPNO(3) 5^XQ SLL 5 2 62CB TXU 5 4 62X2 BCS MSTEP 63BL LDN 4 APROPNAME(3) 63W= STOZ ACOMMUNE4(2) 64*W LDN 5 ACOMMUNE1(2) 64TG MOVE 4 3 65*6 LDX 4 APROPNO(3) 65SQ BPZ 4 MNOT 66#B LDX 5 MEXCL(1) 66S2 ORS 5 ACOMMUNE4(2) 67?L MNOT SLL 4 1 67R= BPZ 4 MOUT 68=W LDX 4 MPERM(1) 68QG ORS 4 ACOMMUNE4(2) 69=6 MOUT 69PQ #NOR 69Q9 ...) 69Q= ...[??? SPLCLPROPS SECT COMM FGN 12 DOC 69Q* ...[ 69QB ...[CONVERTS LIST OF PROPERTY NOS. IN APERI/APROPNOS TO LIST OF PROPERTY 69QC ...[NAMES AND PUTS THEM IN AN AMXOR/IOUT BLOCK AFTER 69QD ...[THE HEADING "PROPERTIES REQUIRED" . THIS MACRO IS INTENDED FOR 69QF ...[USE WITH CLEAN COPY SPOOLING TERMINALS. 69QG ...#MAC SPLCLPROPS 69QH ...[ 69QJ ...[ 69QK ... DOWN WHATPROP,8 69QL ...#NOR 69QP ...[??? SPLPROPS SECT COMM FGN 12 DOC 69RN ...#SKI JSKI17 69TL ...( 69XJ ...[ 69^G ...[CONVERTS LIST OF PROPERTY NOS. IN GOUT'GPROPNOS TO LIST OF PROPERTY 6=3D ...[NAMES AND OUTPUTS THESE TO CLUSTER CONSOLE AFTER THE HEADING 6=5B ...['PROPERTIES REQUIRED' . THIS MACRO IS INTENDED FOR USE WITH SPOOLING 6=7# ...[ TERMINALS. 6=9= ...#MAC SPLPROPS 6=?8 ...[ 6=*6 ...[ 6=*D ...#UNS HWATIDY 6=*Q ... DOWN WHATPROP,7 6=B4 ...#UNS HWATIDY 6=BB ...#SKI 6=BN ...( 6=C4 ... DOWN WHATPROP,6 6=F2 ... BRN %A [BRK-IN 6=F^ ...) 6=GY ...#NOR 6=HJ ...) 6=J8 ...[??? V SECT COMM FGN 12 DOC 6=K4 ...[ 6=KY ...[ 6=LS ...#MAC V 6=P2 [THIS MACRO FREES THE SEMAPHORE GIVEN BY %A AND WAKES UP ALL 6?8L [ACTIVITIES WAITING WITH STYLE #144 AND AUXILIARY STYLE %A. 6??9 ...#UNS HWATIDY 6?*S ... VOP ,IDFANDPROP 6?DC ...#UNS HWATIDY 6?H2 ...#SKI 6?KK ...( 6?N= LDX 0 APANDV 6#7W SLC 0 %A 6#MG BNG 0 MV1 6*76 GEOERR 1,NOTSET 6*LQ MV1 ERX 0 GSIGN 6B6B SRC 0 %A 6BL2 STO 0 APANDV 6C5L LDN 1 %A 6CK= LONGON ASEMWAIT,1 6CT4 ...) 6D4W #NOR 6DJG # ^^^^ ...152336410018