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