9 22FL #OPT K0WLE = 0 8 22_= #LIS K0WLE 8 23DW #SEG WLE 6 23YG 8HWLE 4 24D6 [ 17 24XQ SEGENTRY K1WLE,WLEK1 [ CHANGELIST PROPERTY ACTION 4 25CB [ 4 25X2 [ 19 26BL [************************************************************ 4 26W= [ 7 27*W [ PRESET DATA 4 27TG [ 19 28*6 [************************************************************ 4 28SQ [ 21 29#B BITDEFS CLONG1,2,WBMESSBLK [ USED BY MESSAGE SYSTEM TO INDICATE PR 17 29S2 [ OF GMON/ASET BLOCK 18 2=?L PERPERNA +JPERNA [ PERIPHERAL TYPE NOT AVAILABLE 16 2=R= PERNOPROP +JPROPSNA [ PROPERTY NOT AVAILABLE 20 2?=W PEREXCL +JNAVEXC [ DUE TO PERMANENT EXCLUSIVE PROPERTIES 15 2?QG PERTMANY +JPERR2 [ TOO MANY PROPERTIES 17 2#=6 PERTMCONS +JPERR3 [ TOO MANY CONSOLE PROPERTIES 4 2#PQ [ 19 2*9B [************************************************************ 4 2*P2 [ 5 2B8L SPRSPLIT 4 2BN= [ 19 2C7W [************************************************************ 4 2CMG [ 4 2D76 [ 21 2DLQ [ SPLIT PROERTY NAMES IN & FORMAT INTO APERI/APROPS FORMAT 4 2F6B [ 4 2FL2 [ 10 2G5L [ X1 - BLOCK TO COPY INTO 11 2GK= [ X2 - LENGTH OF PROPERTY NAMES 9 2H4W [ X3 - PROPERTY NAMES 6 2HJG [ X6 - LINK 4 2J46 [ 13 2JHQ [ ALL ACCUMULATORS EXCEPT X7 DESTROYED 4 2K3B [ 8 2KH2 LDN 0 ATTMAX 12 2L2L STO 0 0(1) [ NO. OF NAMES 19 2LG= ADN 1 1 [ X1 - POSITION FOR NEXT CHAR OF PROPERTY NAME 16 2L_W STO 1 4 [ X4 - POSITION FOR LENGTH OF NAME 7 2MFG ADN 1 1 13 2M_6 LDN 5 0 [ X5 - LENGTH OF NAME 14 2NDQ WHILE 2,NZ [ CHARACTER LEFT IN NAMES 10 2NYB DO [ SPLIT AT & 8 2PD2 LDCH 0 0(3) 8 2PXL SBN 0 #26 10 2QC= IF 0,ZE [ & 6 2QWW THEN 8 2RBG LDX 1 4 14 2RW6 STO 5 0(1) [ LENGTH OF NAME 15 2S*Q ADN 1 5 [ POSITION FOR NEXT NAME 8 2STB ADN 4 4 8 2T*2 LDN 5 0 6 2TSL ELSE 9 2W#= ADN 0 #26 12 2WRW DCH 0 0(1) [ COPY CHAR 8 2X?G BCHX 1 / 8 2XR6 ADN 5 1 5 2Y=Q FI 7 2YQB SBN 2 1 7 2_=2 BCHX 3 / 6 2_PL REPEAT 7 329= SMO 4 13 32NW STO 5 0 [ LENGTH OF LAST NAME 7 338G EXIT 6 0 4 33N6 [ 4 347Q [ 19 34MB [************************************************************ 4 3572 [ 6 35LL SPRREMOVE 4 366= [ 19 36KW [************************************************************ 4 375G [ 4 37K6 [ 19 384Q [ REMOVE COMMON NAMES BETWEEN NEW PROPERTY RECORD /APROPS AND 10 38JB [ SELECTION /APROPS FROM NEW 4 3942 [ 12 39HL [ X0 - DISPLACEMENT DOWN NEW /APROPS 11 3=3= [ LINK X6 - SAVED IN ACOMMUNE2 4 3=GW [ 13 3?2G [ X0 -> X5 , AWORK3 & AWORK4 DESTROYED 4 3?G6 [ 7 3?_Q LDX 2 FX2 9 3#FB STO 0 ACOMMUNE1(2) 9 3#_2 STO 6 ACOMMUNE2(2) 16 3*DL MHUNTW 2,APERI,APROPS [ NEW PROPERTY RECORD 13 3*Y= HUNT2 1,APERI,APROPS,2 [ ACTION 13 3BCW HUNT2 1,APERI,APROPS [ SELECTION 16 3BXG LDX 6 A1+1(1) [ NO. OF NAMES IN SELECTION 7 3CC6 ADN 1 A1+2 17 3CWQ DO [ REMOVE SELECTION NAMES FROM NEW RECORD 17 3DBB MHUNTW 2,APERI,APROPS [ NEW PROPERTY RECORD 8 3DW2 SMO FX2 18 3F*L ADX 2 ACOMMUNE1 [ DISPLACEMENT TO BLOCK OF NAMES 8 3FT= SMO FX2 9 3G#W STO 1 AWORK3 17 3GSG LDN 5 ATTMAX [ NAMES IN NEW ( MAX. POSSIBLE ) 5 3H#6 DO 15 3HRQ IF +0(1),NZ [ NAMES NOT NULL 10 3J?B AND +0(2),NZ 10 3JR2 LDX 0 0(1) 14 3K=L AND 0,E,0(2) [ LENGTHS SAME 7 3KQ= THEN 9 3L9W SMO FX2 10 3LPG STO 2 AWORK4 10 3M96 WHILE TRUE 10 3MNQ LDCH 3 1(1) 10 3N8B LDCH 4 1(2) 10 3NN2 AND 3,E,4 7 3P7L DO 10 3PM= BCHX 1 / 10 3Q6W BCHX 2 / 10 3QLG REPEAT CT 0 9 3R66 SMO FX2 10 3RKQ LDX 2 AWORK4 13 3S5B IF 0,ZE [ NAMES SAME 7 3SK2 THEN 21 3T4L STOZ 0(2) [ DELETE NAME FROM NEW PROPERTY RECORD 7 3TJ= FI 6 3W3W FI 13 3WHG ADN 2 4 [ NEXT NAME - NEW 8 3WNN ... SMO FX2 9 3WTW ... LDX 1 AWORK3 8 3X36 REPEAT CT 5 14 3YG2 ADN 1 4 [ NEXT NAME - SELECTION 7 3Y_L REPEAT CT 6 7 3_F= SMO FX2 9 3_YW LDX 6 ACOMMUNE2 7 42DG EXIT 6 0 4 42Y6 [ 19 43CQ [************************************************************ 4 43XB [ 5 44C2 SPRJOIN 4 44WL [ 19 45B= [************************************************************ 4 45TW [ 4 46*G [ 21 46T6 [ JOIN PROPERTY NAMES IN APERI/APROPS FORMAT INTO & FORMAT 4 47#Q [ 8 47SB [ X2 - OUTPUT AREA 16 48#2 [ X3 - -> COUNT OF PROPERTY NAMES IN APERI/APROPS 4 48RL [ 14 49?= [ RESULT X4 - LENGTH OF NAMES + TRAILING & 11 49QW [ - MUST HAVE BEEN EXTERNALLY 4 4==G [ 12 4=Q6 [ ALL ACCS USED EXCEPT X7 - LINK X6 4 4?9Q [ 11 4?PB LDX 5 0(3) [ NO OF NAMES 12 4#92 ADN 3 1 [ -> LENGTH OF NAME 12 4#NL WHILE 5,NZ [ MORE PROPERTIES 5 4*8= DO 8 4*MW LDX 0 0(3) 13 4B7G IF 0,NZ [ NON NULL NAME 6 4BM6 THEN 9 4C6Q LDN 1 1(3) 8 4CLB SMO 0 12 4D62 MVCH 1 0 [ COPY NAME 12 4DKL ADX 4 0 [ UPDATE COUNT 8 4F5= ADN 4 1 9 4FJW LDN 0 #26 12 4G4G DCH 0 0(2) [ INSERT & 8 4GJ6 BCHX 2 / 5 4H3Q FI 7 4HHB ADN 3 4 7 4J32 REPEAT CT 5 7 4JGL EXIT 6 0 4 4K2= [ 4 4KFW [ 19 4K_G [************************************************************ 4 4LF6 [ 5 4LYQ SPROPNOS 4 4MDB [ 19 4MY2 [************************************************************ 4 4NCL [ 11 4NX= #DEF WOLDPERM = A1+1 15 4PBW #DEF WOLDTEMP = ATTMAX*4+2 + WOLDPERM 15 4PWG #DEF WACTPERM = ATTMAX*4+2 + WOLDTEMP 15 4QB6 #DEF WACTTEMP = ATTMAX*4+2 + WACTPERM 4 4QTQ [ 19 4R*B [ SET UP APERI/APROPNOS BLOCK FOR NEW COMBINATION OF PROPERTIES 4 4RT2 [ 12 4S#L [ ALL ACCUMULATORS USED - LINK X7 4 4SS= [ 7 4T?W SBX 7 FX1 21 4TRG SETNCORE ATTMAX*4+2*4,1,APERI,APROPS [ FOR NAMES OF NEW COMBINATION 19 4W?6 STOZ WOLDPERM(1) [ INITIALISE BLOCK - NO. OF NAMES = 0 9 4WQQ STOZ WOLDTEMP(1) 9 4X=B STOZ WACTPERM(1) 9 4XQ2 STOZ WACTTEMP(1) 8 4Y9L LDN 6 ATTMAX 18 4YP= DO [ INITIALISE BLOCK - LENGTH OF ALL NAMES = 0 10 4_8W STOZ WOLDPERM+1(1) 10 4_NG STOZ WOLDTEMP+1(1) 10 5286 STOZ WACTPERM+1(1) 10 52MQ STOZ WACTTEMP+1(1) 7 537B ADN 1 4 7 53M2 REPEAT CT 6 20 546L SETNCORE ATTMAX*17+4/4+7,1,APERI,APROPNOS [ FOR NEW COMBINATION 17 54L= STOZ CPROPNO(1) [ INITIALISE - NO PROPERTIES 9 555W STOZ BPROPCNT(1) 8 55KG LDN 6 ATTMAX 16 5656 DO [ INITIALISE - ALL PROPERTY NO.S = 0 9 56JQ STOZ BPROPS(1) 7 574B ADN 1 1 7 57J2 REPEAT CT 6 11 583L MHUNTW 2,ADATA,AWHATLIST 19 58H= IF BS,2,AWLBPRPARAM [ SELECTION PROPERTY PARAMETER 7 592W STEPAGAIN 15 59GG AND BS,3,BLFRPROPREC [ PROPERTY RECORD 5 5=26 THEN 6 5=FQ STEP 11 5=_B MHUNTW 2,ADATA,AWHATLIST 11 5?F2 MHUNTW 1,APERI,APROPNOS 18 5?YL LDN 5 0 [ NO. OF PROPERTY NO.S RETAINED FOR NEW 7 5#D= LDN 6 0 20 5#XW WHILE 6,L,BPROPCNT-A1(3) [ MORE PROPERTIES IN ORIGINAL 19 5*CG DO [ COPY RELEVENT PROPERTY NO.S INTO /APROPNOS 8 5*X6 SMO 6 11 5BBQ LDX 4 BPROPS-A1(3) 11 5BWB LDX 0 AWLPRCNT(2) 9 5CB2 WHILE 0,NZ 9 5CTL SMO 0 12 5D*= AND 4,U,AWLPRNO-1(2) 6 5DSW DO 9 5F#G REPEAT CT 0 19 5FS6 IF 0,ZE [ NUMBER NOT ONE SELECTION PROPERTIES 9 5G?Q LDX 0 4 10 5GRB ANDX 0 BSP16 11 5H?2 AND 0,U,AWLCONS(2) 11 5HQL THEN [ COPY INTO NEW 9 5J== SMO 5 11 5JPW STO 4 BPROPS(1) 9 5K9G ADN 5 1 6 5KP6 FI 8 5L8Q ADN 6 1 6 5LNB REPEAT 10 5M82 STO 5 BPROPCNT(1) 20 5MML IF +AWLCONS(2),ZE [ NO CONSOLE PROPERTY IN SELECTION 6 5N7= THEN 18 5NLW LDX 0 CPROPNO-A1(3) [ COPY IN CONSOLE PROPERTY 10 5P6G STO 0 CPROPNO(1) 5 5PL6 FI 15 5Q5Q [ SPLIT NAMES AND COPY INTO APERI/APROPS 11 5QKB MHUNTW 1,APERI,APROPS 9 5R52 ADN 1 WOLDPERM 10 5RJL LDX 2 CHPERM-A1(3) 10 5S4= ADX 3 ADPERM-A1(3) 8 5SHW SBN 3 A1 9 5T3G CALL 6 SPRSPLIT 7 5TH6 STEPAGAIN 11 5W2Q MHUNTW 1,APERI,APROPS 9 5WGB ADN 1 WOLDTEMP 10 5X22 LDX 2 CHTEMP-A1(3) 10 5XFL ADX 3 ADTEMP-A1(3) 8 5X_= SBN 3 A1 9 5YDW CALL 6 SPRSPLIT 7 5YYG BACKSPACE 13 5_D6 [ REMOVE NAMES NOT REQUIRED IN NEW 11 5_XQ MHUNTW 2,ADATA,AWHATLIST 21 62CB IF BS,2,AWLBPROP [ SELECTION PROPERTIES OTHER THAN CENTRAL 6 62X2 THEN 10 63BL LDN 0 WOLDPERM+1 10 63W= CALL 6 SPRREMOVE 10 64*W LDN 0 WOLDTEMP+1 10 64TG CALL 6 SPRREMOVE 5 65*6 FI 5 65SQ FI 18 66#B [ ACTION CONSOLE PROPERTY NUMBER AND NAME INTO NEW RECORD 16 66S2 LDN 0 A1+2 [ DISPLACEMENT FOR NON-CONSOLE 12 67?L SMO FX2 [ PROPERTY NAMES 13 67R= STO 0 AWORK1 [ IN ACTION /APROPS 10 68=W MHUNTW 2,APERI,APRNUM 16 68QG IF +A1+1(2),NZ [ ACTION CONSOLE PROPERTY 5 69=6 THEN 7 69B3 ... LDN 0 4 8 69FY ... SMO FX2 17 69KT ... ADS 0 AWORK1 [INCREMENT DISPLACEMENT 11 69PQ MHUNTW 1,APERI,APROPNOS 19 6=9B IF +CPROPNO(1),ZE [ NO UNSELECTED CONSOLE PROPERTY 15 6=P2 THEN [ COPY ACTION CONSOLE PROP INTO NEW 10 6?8L LDXC 0 A1+1(2) 8 6?N= BCS / 10 6#7W STO 0 CPROPNO(1) 13 6#MG IF 0,NZ [ NOT CENTRAL 7 6*76 THEN 11 6*LQ SMO BPROPCNT(1) 11 6B6B STO 0 BPROPS(1) 9 6BL2 LDN 0 1 11 6C5L ADS 0 BPROPCNT(1) 14 6CK= MHUNTW 3,APERI,APROPS [ NEW 15 6D4W HUNT2 2,APERI,APROPS,3 [ ACTION 9 6DJG LDN 0 1 11 6F46 STO 0 WACTPERM(3) 10 6FHQ ADN 2 A1+2 11 6G3B ADN 3 WACTPERM+1 9 6GH2 MOVE 2 4 6 6H2L FI 14 6J_6 ELSF TRUE [ UNSELECTED CONSOLE PROP 10 6KDQ LDXC 0 A1+1(2) 8 6KYB BCS / 19 6LD2 AND 0,U,CPROPNO(1) [ UNEQUAL TO ACTION CONSOLE PROP 6 6LXL THEN 11 6MC= MFREE APERI,APROPNOS 11 6MWW MFREE APERI,APROPS 21 6NBG CALL 7 SOUTNULL [ NULL COMMAND IDENTIFICATION PARAMETERS 10 6NW6 CALL 7 SOUTNULL 11 6P*Q MHUNT 3,GMON,ASET 17 6PTB NAMETOP 3,ADATA,CSTORE [ SAVE MESSAGE BLOCK 12 6Q*2 BC 2,CLONG1*BITMULT+2 21 6QSL LDX 0 PERTMCONS(1) [ ERROR - TOO MANY CONSOLE PROPERTIES 11 6R#= STO 0 ACOMMUNE1(2) 9 6RRW SETREP2 WRONG 8 6S?G UPPLUS 1 9 6SR6 [------------ 5 6T=Q FI 5 6TQB FI 21 6W=2 [ ACTION NON-CONSOLE PROPERTIES INTO NEW RECORD IF NOT ALREADY THERE 10 6WPL MHUNTW 2,APERI,APROPNOS 10 6X9= MHUNTW 1,APERI,APRNUM 7 6XNW LDN 6 0 15 6Y8G WHILE 6,L,A1(1) [ MORE ACTION PROPERTIES 5 6YN6 DO 7 6_7Q SMO 6 13 6_MB LDX 4 A1+2(1) [ ACTION NUMBER 19 7272 LDX 5 BPROPCNT(2) [ NO OF PROPERTIES ALREADY IN NEW 14 72LL WHILE 5,NZ [ MORE NEW PROPERTIES 8 736= SMO 5 17 73KW AND 4,U,BPROPS-1(2) [ PROPERTY NO.S UNEQUAL 5 745G DO 8 74K6 REPEAT CT 5 16 754Q IF 5,ZE [ NOT ALREADY IN NEW RECORD 6 75JB THEN 11 7642 LDX 0 BPROPCNT(2) 9 76HL SBN 0 ATTMAX 18 773= IF 0,PZ [ ALREADY ATTMAX PROPERTIES IN NEW 7 77GW THEN 12 782G MFREE APERI,APROPNOS 12 78G6 MFREE APERI,APROPS 21 78_Q CALL 7 SOUTNULL [ NULL COMMAND IDENTIFICATION PARAMETERS 11 79FB CALL 7 SOUTNULL 11 79_2 MHUNT 3,GMON,ASET 18 7=DL NAMETOP 3,ADATA,CSTORE [ SAVE MESSAGE BLOCK 13 7=Y= BC 2,CLONG1*BITMULT+2 19 7?CW LDX 0 PERTMANY(1) [ ERROR - TOO MANY PROPERTIES 12 7?XG STO 0 ACOMMUNE1(2) 10 7#C6 SETREP2 WRONG 9 7#WQ UPPLUS 1 10 7*BB [------------ 7 7*W2 ELSE 11 7B*L SMO BPROPCNT(2) 11 7BT= STO 4 BPROPS(2) 9 7C#W LDN 0 1 11 7CSG ADS 0 BPROPCNT(2) 14 7D#6 STO 2 5 [ SAVE -> /APROPNOS 14 7DRQ MHUNTW 3,APERI,APROPS [ NEW 15 7F?B HUNT2 2,APERI,APROPS,3 [ ACTION 9 7FR2 SLL 4 1 15 7G=L IF 4,NG [ PERMANENT PROPERTY 7 7GQ= THEN 12 7H9W LDX 0 WACTPERM(3) 10 7HPG ADN 0 1 12 7J96 STO 0 WACTPERM(3) 10 7JNQ SLL 0 2 12 7K8B ADN 0 WACTPERM-3 7 7KN2 ELSE 12 7L7L LDX 0 WACTTEMP(3) 10 7LM= ADN 0 1 12 7M6W STO 0 WACTTEMP(3) 10 7MLG SLL 0 2 12 7N66 ADN 0 WACTTEMP-3 7 7NKQ FI 9 7P5B ADX 3 0 9 7PK2 LDX 0 6 9 7Q4L SLL 0 2 9 7QJ= ADX 2 0 9 7R3W SMO FX2 21 7RHG ADX 2 AWORK1 [ ADD DISPLACEMENT TO ALLOW FOR CONSOLE PR 17 7S36 MOVE 2 4 [ COPY PROPERTY NAME INTO NEW 15 7SGQ LDX 2 5 [ RESET -> /APROPNOS 6 7T2B FI 5 7TG2 FI 7 7T_L ADN 6 1 6 7WF= REPEAT 11 7WYW [ PUT NAMES INTO /APROPNOS 10 7XDG MHUNTW 2,APERI,APROPNOS 9 7XY6 LDX 0 BPROPCNT(2) 12 7YCQ IF 0,ZE [ /APROPNOS NULL 5 7YXB THEN 10 7_C2 FREECORE 2 [ FREE IT 5 7_WL ELSE 17 82B= MHUNTW 3,APERI,APROPS [ COPY PROPERTY NAMES IN 8 82TW SMO FX2 9 83*G STO 2 AWORK3 8 83T6 SMO FX2 9 84#Q STO 3 AWORK4 8 84SB [ PERMANENT 10 85#2 LDX 4 BPROPCNT(2) 9 85RL ADN 4 BPROPS 17 86?= STO 4 ADPERM(2) [ POINTERS TO PERMANENT NAMES 7 86QW ADX 2 4 9 87=G ADN 3 WOLDPERM 14 87Q6 STOZ 4 [ LENGTH OF JOINED NAMES 9 889Q CALL 6 SPRJOIN 8 88PB SMO FX2 9 8992 LDX 3 AWORK4 9 89NL ADN 3 WACTPERM 9 8=8= CALL 6 SPRJOIN 8 8=MW SMO FX2 9 8?7G LDX 2 AWORK3 7 8?M6 SBN 4 1 15 8#6Q IF 4,NG [ NO PERMANENT PROPERTIES 6 8#LB THEN 10 8*62 STOZ CHPERM(2) 10 8*KL STOZ ADPERM(2) 6 8B5= ELSE 15 8BJW STO 4 CHPERM(2) [ LENGTH OF NAMES 5 8C4G FI 8 8CJ6 [ TEMPORARY 10 8D3Q ADN 4 BPROPS*4+3 7 8DHB SRL 4 2 10 8F32 ADX 4 BPROPCNT(2) 17 8FGL STO 4 ADTEMP(2) [ POINTERS TO TEMPORARY NAMES 7 8G2= ADX 2 4 8 8GFW SMO FX2 9 8G_G LDX 3 AWORK4 9 8HF6 ADN 3 WOLDTEMP 14 8HYQ STOZ 4 [ LENGTH OF JOINED NAMES 9 8JDB CALL 6 SPRJOIN 8 8JY2 SMO FX2 9 8KCL LDX 3 AWORK4 9 8KX= ADN 3 WACTTEMP 9 8LBW CALL 6 SPRJOIN 8 8LWG SMO FX2 9 8MB6 LDX 2 AWORK3 7 8MTQ SBN 4 1 15 8N*B IF 4,NG [ NO TEMPORARY PROPERTIES 6 8NT2 THEN 10 8P#L STOZ CHTEMP(2) 10 8PS= STOZ ADTEMP(2) 6 8Q?W ELSE 15 8QRG STO 4 CHTEMP(2) [ LENGTH OF NAMES 5 8R?6 FI 10 8RQQ [ CONTRACT /APROPNOS 9 8S=B LDX 0 CHPERM(2) 7 8SQ2 ADN 0 3 7 8T9L SRL 0 2 7 8TP= LDX 6 0 9 8W8W LDX 0 CHTEMP(2) 7 8WNG ADN 0 3 7 8X86 SRL 0 2 7 8XMQ ADX 6 0 10 8Y7B ADX 6 BPROPCNT(2) 9 8YM2 ADN 6 BPROPS-A1 13 8_6L STO 6 A1(2) [ RECORD HEADER 8 8_L= ADN 6 A1 8 925W ALTLEN 2,6 5 92KG FI 13 9356 MFREE APERI,APROPS [ NEW /APROPS 7 93JQ ADX 7 FX1 7 944B EXIT 7 0 4 94J2 [ 19 953L [************************************************************ 4 95H= [ 6 962W STEPWRITE 4 96GG [ 19 9726 [************************************************************ 4 97FQ [ 4 97_B [ 18 98F2 [ ENSURE ALTERED RECORD IN :SYSTEM.OUTPUT IS WRITTEN AWAY 4 98YL [ 9 99D= [ X3 -> ALTERED RECORD 11 99XW [ ACCS X0,X1,X2 USED - LINK X5 4 9=CG [ 7 9=X6 SBX 5 FX1 6 9?BQ STEPWRITE 7 9?WB ADX 5 FX1 7 9#B2 EXIT 5 0 4 9#TL [ 19 9**= [************************************************************ 4 9*SW [ 5 9B#G SOUTNULL 4 9BS6 [ 19 9C?Q [************************************************************ 4 9CRB [ 4 9D?2 [ 14 9DQL [ OUTPUT NULL PARAMETER TO MEESSAGE BLOCK 4 9F== [ 6 9FPW [ LINK X7 4 9G9G [ 8 9GF# ... SBX 7 FX1 8 9GP6 OUTPACK 7,0,NULL 8 9GYY ... ADX 7 FX1 7 9H8Q EXIT 7 0 4 9HNB [ 19 9J82 [************************************************************ 4 9JML [ 5 9K7= SPERI 4 9KLW [ 19 9L6G [************************************************************ 4 9LL6 [ 4 9M5Q [ 18 9MKB [ CHECK IF PERIPHERAL WITH REQUISITE PROPERTIES IS AVAILABLE 15 9N52 [ IF YES THEN PUT GOUT/CHANGE BLOCK ON LFCHAIN 13 9NJL [ AND PUT NEW PROPERTY RECORD IN ENTRY 4 9P4= [ 10 9PHW [ ALL ACCS USED - LINK X7 4 9Q3G [ 7 9QH6 SBX 7 FX1 6 9R2Q STEPAGAIN 9 9RGB LDX 0 GOPTY-A1(3) 17 9S22 STO 0 ACOMMUNE7(2) [ PERIPHERAL TYPE REQUIRED 12 9SFL DOWN GETFREE,11 [ ^ISPER^ 8 9S_= UP [ BREAKIN 6 9TDW NULL 11 9TYG IF REP2,OK [ REPLY OK 5 9WD6 THEN 7 9WXQ STEPAGAIN 21 9XCB IF MBAC,3,BLFRNAV,BLFRSETNAV [ REQUEST IS IMPLEMENTABLE 6 9XX2 THEN 17 9YBL BS 3,BLFRPFREE [ REPLY TO ISPER WAS OK 12 9YW= SETNCORE 2,1,GOUT,CHLIST 8 9_*W STEPAGAIN 11 9_TG MHUNTW 1,GOUT,CHLIST 11 =2*6 LDX 0 GOUTKEY1-A1(3) 9 =2SQ STO 0 A1(1) 11 =3#B LDX 0 GOUTKEY2-A1(3) 10 =3S2 STO 0 A1+1(1) 11 =4?L LFCHAIN GOUT,CHLIST 9 =4R= STARTACT OUT 5 =5=W FI 17 =5QG CALL 6 SPROPREC [ PUT PROPERTY RECORD IN ENTRY 14 =6=6 ELSF RPN2,NOTAV [ REPLY NOT NOTAV 13 =6PQ AND RPN2,WRNG [ REPLY NOT WRNG 5 =79B THEN 5 =7P2 [ 12 =88L SEGENTRY K90WLE [ LFDBAID 5 =8N= [ 12 =97W LDN 0 1 [ 1 = OFF 0 = ON 12 =9MG IF 0,ZE [ LFDBAID ON 6 ==76 THEN 17 ==LQ IF EITHER,REP2,NOPROP [ REPLY NOPROP 16 =?6B OR REP2,PERMEXCL [ REPLY PERMEXCL 7 =?L2 THEN 13 =#5L HUNTW 3,APERI,APROPNOS 17 =#K= IF EITHER,3,NG [ NO CONSOLE PROPERTY 12 =*4W OR +CPROPNO(3),ZE 7 =*JG THEN 10 =B46 LDN 0 0 7 =BHQ ELSE 10 =C3B LDN 0 1 7 =CH2 FI 7 =D2L ELSE 9 =DG= LDN 0 1 6 =D_W FI 5 =FFG FI 21 =F_6 IF 0,ZE [ LFDBAID ON AND REPLY ( NOPROP OR PERMEXCL ) AND 6 =GDQ THEN 19 =GYB CALL 6 SPROPREC [ PUT NEW PROPERTY RECORD IN ENTRY 6 =HD2 ELSE 11 =HXL IF REP2,NOPROP 7 =JC= THEN 14 =JWW OUTPACK ACOMMUNE8(2),1,PROPS 12 =KBG LDX 6 PERNOPROP(1) 10 =KW6 ELSF REP2,NOPER 7 =L*Q THEN 11 =LTB CALL 7 SOUTNULL 11 =M*2 LDX 6 PERPERNA(1) 14 =MSL ELSE [ ASSUME REPLY = PERMEXCL 11 =N#= LDX 6 PEREXCL(1) 6 =NRW FI 21 =P?G CALL 7 SOUTNULL [ NULL COMMAND IDENTIFICATION PARAMETERS 10 =PR6 CALL 7 SOUTNULL 11 =Q=Q MHUNT 1,GMON,ASET 17 =QQB NAMETOP 1,ADATA,CSTORE [ SAVE MESSAGE BLOCK 12 =R=2 BC 2,CLONG1*BITMULT+2 21 =RPL VFREE APERI,APROPNOS [ FREE ERRONEOUS /APROPNOS ( IF EXIST 11 =S9= STO 6 ACOMMUNE1(2) 9 =SNW SETREP WRONG 8 =T8G UPPLUS 1 8 =TN6 [------- 5 =W7Q FI 5 =WMB ELSE 17 =X72 CALL 6 SPROPREC [ PUT PROPERTY RECORD IN ENTRY 5 =XLL FI 7 =Y6= ADX 7 FX1 7 =YKW EXIT 7 0 4 =_5G [ 19 =_K6 [************************************************************ 4 ?24Q [ 5 ?2JB SPROPREC 4 ?342 [ 19 ?3HL [************************************************************ 4 ?43= [ 4 ?4GW [ 12 ?52G [ PUT NEW PROPERTY RECORD IN ENTRY 4 ?5G6 [ 13 ?5_Q [ ALL ACCS USED EXCEPT X4,X7 - LINK X6 15 ?6FB [ :SYSTEM.OUTPUT LEFT AT FIRST RECORD OF ENTRY 4 ?6_2 [ 7 ?7DL SBX 6 FX1 6 ?7Y= STEPAGAIN 10 ?8CW HUNTW 2,APERI,APROPNOS 13 ?8XG IF 2,PZ [ NEW PROPERTY RECORD 5 ?9C6 THEN 10 ?9WQ NAME 2,FILE,FWB 17 ?=96 ... CALL 5 STEPWRITE [ ENSURE BLOCK WRITTEN AWAY 19 ?=?Q ... STOZ GCOUNT-A1(3) [ CLEAR WAIT AFTER CD ATTRIBUTE 16 ?=BB IF BS,3,BLFRPROPREC [PROPERTY RECORD 6 ?=W2 THEN 13 ??*L STEP [ TO PROPERTY RECORD 10 ??T= REPLACE [ IT 6 ?##W ELSE 19 ?#SG BS 3,BLFRPROPREC [ SET PROPERTY RECORD IN ENTRY 16 ?*RQ STEP [ BEYOND PLACE FOR PROPERTY RECORD 13 ?B?B INSERT [ PROPERTY RECORD 8 ?BR2 BACKSPACE 5 ?C=L FI 10 ?CQ= MHUNTW 2,FILE,FWB 21 ?D9W NAME 2,APERI,APROPNOS [ SAVE BLOCK IN CASE CAN BE USED FOR N 7 ?DPG BACKSPACE 18 ?F96 ELSF BS,3,BLFRPROPREC [ PROPERTY RECORD IN ENTRY 5 ?FNQ THEN 17 ?GN2 CALL 5 STEPWRITE [ ENSURE BLOCK WRITTEN AWAY 19 ?GT8 ... BC 3,BLFRPROPREC [ CLEAR PROPERTY RECORD IN ENTRY 19 ?H2B ... STOZ GCOUNT-A1(3) [ CLEAR WAIT AFTER CD ATTRIBUTE 12 ?H7L STEP [ TO PROPERTY RECORD 9 ?HM= DELETE [ IT 5 ?J6W FI 7 ?JLG ADX 6 FX1 7 ?K66 EXIT 6 0 4 ?KKQ [ 4 ?L5B [ 8 ?LK2 [ WW WW W 8 ?M4L [ WW WW WW 8 ?MJ= [ WW WW WWW 8 ?N3W [ WWWW WW 8 ?NHG [ WWWWW WW 8 ?P36 [ WW WW WW 8 ?PGQ [ WW WW WW 8 ?Q2B [ WW WW WW 4 ?QG2 [ 4 ?Q_L [ 5 ?RF= WLEK1 4 ?RYW [ 19 ?SDG [************************************************************ 4 ?SY6 [ 14 ?TCQ [ CHANGELIST PROPERTY ACTION - CALLED BY WLD 4 ?TXB [ 19 ?WC2 [************************************************************ 4 ?WWL [ 4 ?XB= [ 11 ?XTW MHUNTW 2,ADATA,AWHATLIST 19 ?Y*G IF BS,2,AWLBPRPARAM [ SELECTION PROPERTY PARAMETER 5 ?YT6 THEN 17 ?_#Q CALL 7 SPROPNOS [ SETUP APERI/APROPNOS BLOCK 17 ?_SB CALL 7 SPERI [ CHECK IF PERIPHERAL AVAILABLE 16 #2#2 [ AND UPDATE PROPERTY RECORD 11 #2RL VFREE APERI,APROPNOS 5 #3?= ELSE 11 #3QW HUNTW 1,APERI,APROPNOS 17 #4=G IF 1,PZ [ APERI/APROPNOS ALREADY SET UP 6 #4Q6 THEN 20 #59Q IF BC,2,AWLBPERI [ MAY BE FOR DIFFERENT PERI TYPE 7 #5PB THEN 18 #692 CALL 7 SPERI [ CHECK IF PERIPHERAL AVAILABLE 18 #6NL [ AND UPDATE PROPERTY RECORD 7 #78= ELSE 17 #7MW CALL 6 SPROPREC [ UPDATE PROPERTY RECORD 6 #87G FI 6 #8M6 ELSE 9 #96Q IF TRUE 12 #9LB MHUNTW 1,APERI,APRNUM 21 #=62 AND EITHER,+A1+1(1),U,GSIGN [ ACTION PROPERTIES OTHER TH 10 #=KL OR +A1(1),NZ 7 #?5= THEN 18 #?JW CALL 7 SPROPNOS [ SETUP APERI/APROPNOS BLOCK 6 ##4G FI 18 ##J6 CALL 7 SPERI [ CHECK IF PERIPHERAL AVAILABLE 17 #*3Q [ AND UPDATE PROPERTY RECORD 5 #*HB FI 5 #B32 FI 7 #B=S ... SETREP OK 7 #BGL UPPLUS 1 4 #C2= [ 4 #CFW #END 6 ____ ...014726700007