11 22FL #OPT K0WHATPROP = 0 10 22_= #LIS K0WHATPROP 9 23DW #SEG WHATPROP 7 23YG 8HWHATPROP 16 24D6 SEGENTRY K1WHATPROP,Z1WHATPROP [ PROPASSOCS MACRO 16 24XQ SEGENTRY K2WHATPROP,Z2WHATPROP [ APROPNAME MACRO 16 25CB SEGENTRY K3WHATPROP,Z3WHATPROP [ MPROPCON MACRO 16 25X2 SEGENTRY K4WHATPROP,Z4WHATPROP [ ISPROPN MACRO 15 26BL SEGENTRY K5WHATPROP,Z5WHATPROP [ PROPNO MACRO 16 26W= SEGENTRY K7WHATPROP,Z7WHATPROP [ SPLPROPS MACRO 16 2764 ... SEGENTRY K8WHATPROP,Z8WHATPROP [ SPLCLPROPS MACRO 4 27*W [ 19 27TG [************************************************************ 4 28*6 [ 7 28SQ [ PRESET DATA 4 29#B [ 19 29S2 [************************************************************ 4 2=?L [ 4 2=R= [ 11 2?=W PMISSING 12H!MISSING!!!! 17 2?*F ...PSEQDCS #76007631,#74607635,#76137460,#74610000 15 2?D4 ...PMESSA 28HPROPERTIES REQUIRED ON UNIT 8 2?GM ...PMESSB 2H: 9 2?K= ...PMESSC 4HNONE 9 2?MT ...PTERM #76137664 4 2?QG [ 19 2#=6 [************************************************************ 4 2#PQ [ 5 2*9B SNUMBER 4 2*P2 [ 19 2B8L [************************************************************ 4 2BN= [ 4 2C7W [ 15 2CMG [ CONVERT PROPERTY NAME IN CPB/CUNI TO NUMBER 4 2D76 [ 6 2DLQ [ ON ENTRY 13 2F6B [ AWORK4 = DEPTH OF :SYSTEM.PROPERTY 4 2FL2 [ 6 2G5L [ ON EXIT 10 2GK= [ X4 - ZERO - NAME NOT FOUND 11 2H4W [ - B0 SET - CONSOLE PROPERTY 12 2HJG [ - B1 SET - PERMANENT PROPERTY 4 2J46 [ 6 2JHQ [ LINK X7 4 2K3B [ 7 2KH2 STOZ 4 7 2KQS ... STOZ 5 7 2L2L LDX 0 ACES 9 2LG= STO 0 AWORK1(2) 9 2L_W STO 0 AWORK2(2) 9 2MFG STO 0 AWORK3(2) 9 2M_6 MHUNT 3,CPB,CUNI 8 2NDQ LDN 1 APARA(3) 9 2NYB LDN 2 AWORK1(2) 8 2PD2 LDX 3 ANUM(3) 8 2PXL ANDN 3 #7777 7 2QC= SBN 3 13 17 2QWW BPZ 3 (7) [ EXIT IF NAME TOO LONG 18 2RBG ADN 3 13 [ PROPERTY NAME IN AWORK1 -> 18 2RW6 MVCH 1 0(3) [ SPACEFILLED TO 12 CHARS 7 2S*Q SBX 7 FX1 7 2STB LDX 2 FX2 4 2T*2 [ 15 2TSL WHILE 4,ZE [ NOT FOUND NAME 9 2W#= SMO AWORK4(2) 7 2WRW STEP 0 19 2X?G AND 3,NZ [ NOT END OF :SYSTEM.PROPERTY 5 2XR6 DO 17 2Y=Q IF +AWORK1(2),E,APROPNAME(3) [ NAMES MATCH 14 2YQB AND +AWORK2(2),E,APROPNAME+1(3) 14 2_=2 AND +AWORK3(2),E,APROPNAME+2(3) 6 2_PL THEN 8 329= NGNC 4 1 20 32NW ANDX 4 APROPNO(3) [ PROPERTY NO. WITHOUT BIT 0 11 338G LDX 0 APROPGROUP(3) 9 33N6 ANDX 0 GSIGN 20 347Q ORS 0 4 [ SET BIT 0 IF CONSOLE PROP 10 34#Y ... LDX 5 CACT 11 34G6 ... ANDX 5 APROPNO(3) 5 34MB FI 6 3572 REPEAT 7 35LL ADX 7 FX1 7 366= EXIT 7 0 4 36KW [ 19 375G [************************************************************ 4 37K6 [ 5 384Q SPRSPLIT 4 38JB [ 19 3942 [************************************************************ 4 39HL [ 4 3=3= [ 21 3=GW [ SPLIT PROERTY NAMES IN & FORMAT INTO APERI/APROPS FORMAT 4 3?2G [ 4 3?G6 [ 6 3?_Q [ X7 - LINK 4 3#FB [ 7 3#_2 SBX 7 FX1 7 3*68 ... SLL 7 12 7 3*?B ... ADX 7 4 13 3*DL SETNCORE ATTMAX*4+2,1,APERI,APROPS 7 3*Y= LDX 2 1 8 3BCW LDN 5 ATTMAX 15 3BXG DO [ PRESET BLOCK 9 3CC6 STOZ A1+2(2) 7 3CWQ ADN 2 4 7 3DBB REPEAT CT 5 10 3DW2 MHUNT 3,APERI,APROPNOS 9 3F*L LDX 2 CHPERM(3) 9 3FT= ADX 3 ADPERM(3) 7 3G#W ADN 1 A1+2 20 3GSG STO 1 4 [ X4 - POSITION FOR LENGTH OF NAME 21 3H#6 ADN 1 1 [ X1 - FOR NEXT CHAR OF PROPERTY NAME 17 3HRQ LDN 5 0 [ X5 - LENGTH OF NAME 18 3J?B WHILE 2,NZ [ CHARACTER LEFT IN NAMES 14 3JR2 DO [ SPLIT AT & 8 3K=L LDCH 0 0(3) 8 3KQ= SBN 0 #26 13 3L9W IF 0,ZE [ & 6 3LPG THEN 8 3M96 LDX 1 4 17 3MNQ STO 5 0(1) [ LENGTH OF NAME 19 3N8B ADN 1 5 [ POSITION FOR NEXT NAME 8 3NN2 ADN 4 4 8 3P7L LDN 5 0 6 3PM= ELSE 9 3Q6W ADN 0 #26 16 3QLG DCH 0 0(1) [ COPY CHAR 8 3R66 BCHX 1 / 8 3RKQ ADN 5 1 5 3S5B FI 7 3SK2 SBN 2 1 7 3T4L BCHX 3 / 6 3TJ= REPEAT 7 3W3W SMO 4 17 3WHG STO 5 0 [ LENGTH OF LAST NAME 7 3WMC ... LDX 4 7 8 3WR# ... ANDN 4 #7777 7 3WX9 ... SRL 7 12 7 3X36 ADX 7 FX1 7 3XGQ EXIT 7 0 4 3XGW ...[ 19 3XH2 ...[************************************************************* 4 3XH6 ...[ 5 3XH= ...SPPROPS 4 3XHB ...[ 19 3XHG ...[************************************************************* 4 3XHL ...[ 4 3XHQ ...[ 16 3XHW ...[PUT PERMANENT PROPERTIES INTO APERI,APROPS BLOCK 4 3XJ2 ...[ 4 3XJ6 ...[ 8 3XJ= ... SBX 7 FX1 7 3XJB ... LDX 4 7 10 3XJG ... LDX 7 BPROPCNT(3) 7 3XJL ... LDN 6 0 7 3XJQ ... LDX 1 3 13 3XJW ... WHILE +CPROPNO(3),U,BPROPS(1) 5 3XK2 ... DO 10 3XK6 ... LDX 0 BPROPS(1) 8 3XK= ... SLC 0 4 8 3XKB ... ANDN 0 4 19 3XKG ... ADX 6 0 [ADD 4 IF PERM PROP 0 IF NOT 8 3XKL ... ADN 1 1 8 3XKQ ... REPEAT CT 7 18 3XKW ... CALL 7 SPRSPLIT [SPLIT PERM PROP NAMES UP 11 3XL2 ... MHUNT 3,APERI,APROPS 7 3XL6 ... SMO 6 20 3XL= ... STOZ A1+2(3) [CLEAR LENGTH OF CONSOLE PROPERTY 7 3XLB ... LDX 7 4 8 3XLG ... ADX 7 FX1 7 3XLL ... EXIT 7 0 4 3XLQ ...[ 19 3XLW ...[************************************************************ 4 3XM2 ...[ 5 3XM6 ...SMVPROPS 4 3XM= ...[ 19 3XMB ...[************************************************************ 4 3XMG ...[ 4 3XML ...[ 18 3XMQ ...[MOVE PROPERTY NAMES TO BLOCK IN X2 - FROM Z7 ADATA,CSTORE 17 3XMW ...[ FROM Z8 AMXOR,IOUT 4 3XN2 ...[ 9 3XN6 ... LDN 6 ATTMAX 5 3XN= ... DO 15 3XNB ... IF +A1+2(3),NZ [USEFUL NAME 7 3XNG ... THEN 10 3XNL ... LDN 1 A1+3(3) 10 3XNQ ... SMO A1+2(3) 9 3XNW ... MVCH 1 0 10 3XP2 ... ADX 5 A1+2(3) 9 3XP6 ... LDN 0 #26 10 3XP= ... DCH 0 0(2) 9 3XPB ... BCHX 2 / 9 3XPG ... ADN 5 1 6 3XPL ... FI 8 3XPQ ... ADN 3 4 8 3XPW ... REPEAT CT 6 7 3XQ2 ... LDX 7 2 10 3XQ6 ... MFREE APERI,APROPS 7 3XQ= ... LDX 2 7 11 3XQB ... MHUNT 3,APERI,APROPNOS 10 3XQG ... IF +CHTEMP(3),NZ 6 3XQL ... THEN 10 3XQQ ... LDX 1 ADTEMP(3) 8 3XQW ... ADX 1 3 10 3XR2 ... SMO CHTEMP(3) 8 3XR6 ... MVCH 1 0 10 3XR= ... ADX 5 CHTEMP(3) 6 3XRB ... ELSE 8 3XRG ... SBN 5 1 5 3XRL ... FI 7 3XRQ ... EXIT 4 0 4 3XRW ...[ 19 3XS2 ...[************************************************************* 4 3XS6 ...[ 5 3XS= ...SMESSAGE 4 3XSB ...[ 19 3XSG ...[************************************************************* 4 3XSL ...[ 4 3XSQ ...[ 19 3XSW ...[MOVE PAGE SEQUENCE, DEVICE CONTROL STRING & START OF CONSOLE 11 3XT2 ...[MESSAGE INTO AMXOR,IOUT BLOCK 4 3XT6 ...[ 4 3XT= ...[ 8 3XTB ... SBX 6 FX1 7 3XTG ... OUTPERA 10 3XTL ... MHUNTW 2,AMXOR,IOUT 9 3XTQ ... LDN 5 IDATA(2) 8 3XTW ... LDX 2 FX2 10 3XW2 ... LDN 4 PSEQDCS(1) 8 3XW6 ... MVCH 4 14 9 3XW= ... LDN 4 PMESSA(1) 8 3XWB ... MVCH 4 28 10 3XWG ... LDN 4 ACOMMUNE2(2) 10 3XWL ... SMO ACOMMUNE1(2) 7 3XWQ ... MVCH 4 0 9 3XWW ... LDN 4 PMESSB(1) 7 3XX2 ... MVCH 4 2 10 3XX6 ... LDX 4 ACOMMUNE1(2) 7 3XX= ... SBN 4 2 7 3XXB ... LDX 2 5 7 3XXG ... LDX 5 4 8 3XXL ... ADX 6 FX1 7 3XXQ ... EXIT 6 0 4 3Y2B [ 4 3YG2 [ 8 3Y_L [ WW WW W 8 3_F= [ WW WW WW 8 3_YW [ WW WW WWW 8 42DG [ WWWW WW 8 42Y6 [ WWWWW WW 8 43CQ [ WW WW WW 8 43XB [ WW WW WW 8 44C2 [ WW WW WW 4 44WL [ 6 45B= Z1WHATPROP 4 45TW [ 14 46*G [ PUT PROPERTY NAMES IN APERI/ASSOCS BLOCK 4 46T6 [ 14 47#Q [ IF NUMBER NOT FOUND - COMMMAND TYPE = 0 14 47SB [ NAME INDETERMINATE 4 48#2 [ 11 48RL OPENSYS ZBRKIN,PROPERTY,READ 10 49?= MHUNT 2,APERI,ASSOCS 8 49QW LDX 6 A1(2) 7 4==G LDX 1 2 15 4=Q6 DO [ PRESET BLOCK 9 4?9Q STOZ A1+3(1) 9 4?PB ADN 1 ASSOCSLEN 7 4#92 REPEAT CT 6 8 4#NL LDX 6 A1(2) 16 4*8= WHILE 6,NZ [ MORE PROPERTIES 6 4*MW STEP 19 4B7G AND 3,NZ [ NOT END OF :SYSTEM.PROPERTY 5 4BM6 DO 11 4C6Q MHUNT 2,APERI,ASSOCS 8 4CLB LDX 5 A1(2) 5 4D62 DO 10 4DKL LDX 0 A1+2(2) 10 4F5= ERX 0 APROPNO(3) 9 4FJW ANDX 0 BSP16 17 4G4G IF 0,ZE [ NUMBERS MATCH 7 4GJ6 THEN 12 4H3Q LDN 0 APROPNAME(3) 10 4HHB LDN 1 A1+3(2) 9 4J32 MOVE 0 3 9 4JGL SBN 6 1 6 4K2= FI 10 4KFW ADN 2 ASSOCSLEN 8 4K_G REPEAT CT 5 6 4LF6 REPEAT 17 4LYQ IF 3,ZE [ NOT FOUND ALL NUMBERS 5 4MDB THEN 11 4MY2 MHUNT 2,APERI,ASSOCS 8 4NCL LDX 6 A1(2) 5 4NX= DO 17 4PBW IF +A1+3(2),ZE [ NUMBER NOT FOUND 7 4PWG THEN 19 4QB6 STOZ A1+1(2) [ CLEAR COMMAND TYPE 6 4QTQ FI 10 4R*B ADN 2 ASSOCSLEN 8 4RT2 REPEAT CT 6 5 4S#L FI 5 4SS= CLOSE 7 4T?W UPPLUS 1 4 4TRG [ 4 4W?6 [ 8 4WQQ [ WW WW WWWWW 8 4X=B [ WW WW WW WW 8 4XQ2 [ WW WW WW 8 4Y9L [ WWWW WW 8 4YP= [ WWWWW WWWWW 7 4_8W [ WW WW WW 7 4_NG [ WW WW WW 8 5286 [ WW WW WWWWWWWW 4 52MQ [ 6 537B Z2WHATPROP 4 53M2 [ 18 546L [ CONVERT PROPERTY NO. IN ACOMMUNE1 TO NAME IN ACOMMUNE1-3 11 54L= [ EXCL / PERM BITS IN ACOMMUNE4 12 555W [ IF NOT FOUND - NAME = !MISSING!!!! 11 55KG [ - ACOMMUNE4 = 0 4 5656 [ 9 56JQ LDX 0 ACOMMUNE1(2) 15 574B STO 0 AWORK1(2) [ PROPERTY NO. 9 57J2 LDX 0 ACOMMUNE2(2) 17 583L STO 0 AWORK4(2) [ FILE DEPTH OF PROPERTY 9 58H= SMO AWORK4(2) 7 592W REWIND 0 7 59GG WHILE TRUE 9 5=26 SMO AWORK4(2) 7 5=FQ STEP 0 19 5=_B AND 3,NZ [ NOT END OF :SYSTEM.PROPERTY 10 5?F2 LDX 0 APROPNO(3) 9 5?YL ERX 0 AWORK1(2) 8 5#D= ANDX 0 BSP16 16 5#XW AND 0,NZ [ NUMBERS NOT MATCH 5 5*CG DO 6 5*X6 REPEAT 13 5BBQ IF 3,NZ [ FOUND 5 5BWB THEN 8 5CB2 LDCT 0 #777 10 5CTL ANDX 0 APROPNO(3) 10 5D*= STO 0 ACOMMUNE4(2) 10 5DSW LDN 1 APROPNAME(3) 5 5F#G ELSE 10 5FS6 STOZ ACOMMUNE4(2) 9 5G?Q ADN 1 PMISSING 5 5GRB FI 9 5H?2 ADN 2 ACOMMUNE1 7 5HQL MOVE 1 3 5 5J== UP 4 5JPW [ 4 5K9G [ 9 5KP6 [ WW WW WWWWWWWW 8 5L8Q [ WW WW WW 8 5LNB [ WW WW WW 8 5M82 [ WWWW WWW 8 5MML [ WWWWW WW 9 5N7= [ WW WW WW WW 9 5NLW [ WW WW WW WW 8 5P6G [ WW WW WWWWWW 4 5PL6 [ 6 5Q5Q Z3WHATPROP 4 5QKB [ 13 5R52 [ CONVERT PROPERTY NUMBERS IN GMON/ASET 10 5RJL [ TO NAMES IN ADATA/GMONACC 4 5S4= [ 12 5SHW OPENSYS (GEOERR),PROPERTY,READ 10 5T3G MHUNT 2,ADATA,GMONACC 18 5TH6 STOZ JPROPCON(2) [ POINTER TO NEXT FREE CELL 7 5W2Q WHILE TRUE 10 5WGB MHUNTW 1,GMON,ASET 9 5X22 STEPASET 1,PROPS,6 19 5XFL AND 3,PZ [ MORE PARAMETERS WITH PDC PROPS 5 5X_= DO 8 5YDW SBN 3 1(1) 19 5YYG SMO JPROPCON(2) [ SAVE POINTER TO PARAMETER 19 5_D6 STO 3 JPROPCON+1(2) [ RELATIVE TO START OF /ASET 10 5_XQ SMO JPROPCON(2) 16 62CB STOZ JPROPCON+2(2) [ LENGTH OF NAMES 8 62X2 SMO FX2 20 63BL STO 6 AWORK1 [ NO OF PROPERTIES IN PARAMETER 8 63W= SMO FX2 9 64*W STO 6 AWORK2 5 64TG [ 13 65*6 [ INCREASE LENGTH OF ADATA/GMONACC 14 65SQ SLL 6 2 [ NAMES 21 66#B ADN 6 2+JPROPCON-A1+1 [ RESET OF CELL + FIXED PART OF BLOCK 15 66S2 ADX 6 JPROPCON(2) [ OTHER CELLS 11 67?L ALTLEN 2,6,ADATA,GMONACC 5 67R= [ 11 68=W [ CONVERT NUMBERS TO NAMES 8 68QG FASTREWIND 1 17 69=6 LDX 5 3 [ /ASET DISPLACEMENT 19 69PQ WHILE +AWORK2(2),NZ [ MORE PROPERTIES TO BE FOUND 7 6=9B STEP 19 6=P2 AND 3,NZ [ NOT END OF :SYSTEM.PROPERTY 5 6?8L DO 11 6?N= MHUNT 1,GMON,ASET 18 6#7W ADX 1 5 [ X1 -> PARAMETER CELL 19 6#MG LDX 6 AWORK1(2) [ NO OF PROPERTIES IN CELL 6 6*76 DO 17 6*LQ LDX 0 1(1) [ PARA PROP NO. 11 6B6B ERX 0 APROPNO(3) 10 6BL2 ANDX 0 BSP16 17 6C5L IF 0,ZE [ NUMBERS MATCH 7 6CK= THEN 13 6D4W MHUNT 2,ADATA,GMONACC 18 6DJG ADX 2 JPROPCON(2) [ -> NAME CELL 10 6F46 STO 2 7 20 6FHQ LDX 4 JPROPCON+2(2) [ LENGTH ALREADY FOUND 10 6G3B SRC 4 2 21 6GH2 ADN 4 JPROPCON+3(2) [ -> DESTINATION FOR NAMES 12 6H2L ADN 3 APROPNAME 10 6HG= MVCH 3 12 12 6H_W SBN 3 APROPNAME+3 7 6JFG [ 13 6J_6 [ REMOVE TRAILING SPACES 19 6KDQ LDX 2 4 [ END OF THIS NAME 10 6KYB LDN 4 12 10 6LD2 WHILE TRUE 10 6LXL SLC 2 2 10 6MC= SBN 2 1 20 6MWW SRC 2 2 [ BACK ONE CHAR. POS. 11 6NBG LDCH 0 0(2) 11 6NW6 SBN 0 #20 16 6P*Q AND 0,ZE [ SPACE 8 6PTB DO 10 6Q*2 REPEAT CT 4 7 6QSL [ 9 6R#= [ ADD ^&^ 10 6RRW ADN 4 1 10 6S?G BCHX 2 / 10 6SR6 LDN 0 #26 10 6T=Q DCH 0 0(2) 10 6TQB SMO 7 19 6W=2 ADS 4 JPROPCON+2 [ UPDATE CHAR. COUNT 10 6WPL LDN 0 1 10 6X9= SMO FX2 19 6XNW SBS 0 AWORK2 [ FOUND A PROPERTY 7 6Y8G FI 9 6YN6 ADN 1 1 9 6_7Q REPEAT CT 6 9 6_MB LDX 2 FX2 6 7272 REPEAT 11 72LL MHUNT 2,ADATA,GMONACC 19 736= IF 3,ZE [ NOT FOUND ALL PROPERTIES 6 73KW THEN 8 745G LDX 3 2 16 74K6 ADX 3 JPROPCON(2) [ -> NAME CELL 16 754Q LDX 7 JPROPCON+2(3) [ CHAR. COUNT 8 75JB SRC 7 2 17 7642 ADN 7 JPROPCON+3(3) [ -> DESTINATION 9 76HL SMO FX1 17 773= LDN 6 PMISSING [ ^!MISSING!!!!^ 8 77GW MVCH 6 12 8 782G LDN 0 12 18 78G6 ADS 0 JPROPCON+2(3) [ UPDATE CHAR. COUNT 6 78_Q ELSE 8 79FB LDN 0 1 11 79_2 SMO JPROPCON(2) 18 7=DL SBS 0 JPROPCON+2(2) [ REMOVE TRAILING ^&^ 5 7=Y= FI 5 7=YW ... [ 12 7=_G ... [ B8919 CORRECTION 30.06.82 15 7?26 ... [ IF PROPERTY NAMES STRING DOES NOT OCCUPY 16 7?2Q ... [ AN EXACT NO. OF WORDS, SPACEFILL LAST WORD 10 7?3B ... SMO JPROPCON(2) 10 7?42 ... LDX 4 JPROPCON+2(2) 7 7?4L ... LDX 1 4 7 7?5= ... ANDN 4 3 8 7?5W ... IF 4,NZ 6 7?6G ... THEN 8 7?76 ... LDN 0 4 8 7?7Q ... SBX 0 4 8 7?8B ... SRC 1 2 11 7?92 ... ADX 1 JPROPCON(2) 11 7?9L ... ADN 1 JPROPCON+3(2) 9 7?== ... LDN 4 #20 9 7?=W ... WHILE TRUE 10 7??G ... DCH 4 0(1) 9 7?#6 ... SBN 0 1 9 7?#Q ... AND 0,NZ 6 7?*B ... DO 9 7?B2 ... BCHX 1 / 7 7?BL ... REPEAT 5 7?C= ... FI 5 7?CW [ 13 7?XG [ UPDATE FREE NAME CELL POINTER 10 7#C6 SMO JPROPCON(2) 10 7#WQ ... LDX 4 JPROPCON+2(2) 8 7*BB ADN 4 11 7 7*W2 SRL 4 2 10 7B*L ADS 4 JPROPCON(2) 6 7BT= REPEAT 5 7C#W CLOSE 5 7CSG UP 4 7D#6 [ 4 7DRQ [ 8 7F?B [ WW WW WW 8 7FR2 [ WW WW WW 7 7G=L [ WW WW WW 8 7GQ= [ WWWW WW WW 9 7H9W [ WWWWW WWWWWWWW 8 7HPG [ WW WW WW 8 7J96 [ WW WW WW 8 7JNQ [ WW WW WW 4 7K8B [ 4 7KN2 [ 6 7L7L Z4WHATPROP 4 7LM= [ 16 7M6W [ CONVERT PROPERTY NAME TO NUMBER - OPENING PROPERTY 4 7MLG [ 11 7N66 OPENSYS ZBRKIN,PROPERTY,READ 9 7NKQ STOZ AWORK4(2) 8 7P5B CALL 7 SNUMBER 5 7PK2 CLOSE 16 7Q4L IF 4,ZE [ NUMBER NOT FOUND 5 7QJ= THEN 9 7R3W ERROR JPROPUNK 10 7RHG STOZ ACOMMUNE1(2) 5 7S36 ELSE 10 7SGQ STO 4 ACOMMUNE1(2) 5 7T2B FI 7 7TG2 UPPLUS 1 4 7T_L [ 4 7WF= [ 9 7WYW [ WW WW WWWWWWWW 7 7XDG [ WW WW WW 8 7XY6 [ WW WW WWWWWW 8 7YCQ [ WWWW WW 9 7YXB [ WWWWW WW 9 7_C2 [ WW WW WW WW 8 7_WL [ WW WW WW WW 8 82B= [ WW WW WWWWW 4 82TW [ 4 83*G [ 6 83T6 Z5WHATPROP 4 84#Q [ 18 84SB [ CONVERT PROPERTY NAME TO NUMBER - PROPERTY ALREADY OPEN 4 85#2 [ 16 85RL LDX 1 ACOMMUNE1(2) [ DEPTH OF PROPERTY 9 86?= STO 1 AWORK4(2) 7 86QW REWIND 0(1) 8 87=G CALL 7 SNUMBER 9 87Q6 STO 4 ACOMMUNE1(2) 10 87_Y ... STO 5 ACOMMUNE2(2) 5 889Q UP 4 88PB [ 4 8992 [ 9 89NL [ WW WW WWWWWWWW 9 8=8= [ WW WW WW WW 8 8=MW [ WW WW WW 8 8?7G [ WWWW WW 8 8?M6 [ WWWWW WW 8 8#6Q [ WW WW WW 7 8#LB [ WW WW WW 7 8*62 [ WW WW WW 4 8*KL [ 4 8B5= [ 6 8BJW Z7WHATPROP 4 8C4G [ 19 8CJ6 [ OUTPUT PROPERTIES REQUIRED MESSAGE FOR SPOOLED LINE PRINTERS 4 8D3Q [ 10 8DHB HUNTW 3,APERI,APROPNOS 14 8F32 IF 3,PZ [ SPOOLING 5 8FGL THEN 6 8G2= OUTPER 13 8GFW SETNCORE ATTMAX*3+3,1,ADATA,CSTORE 11 8G_G MHUNTW 3,APERI,APROPNOS 10 8HF6 LDX 0 BPROPCNT(3) 7 8HYQ SBN 0 1 18 8JDB IF 0,NZ [ NON-CONSOLE PROPERTIES 6 8JY2 THEN 10 8KCL ... CALL 7 SPPROPS 11 8SQ2 MHUNT 2,ADATA,CSTORE 9 8T9L ADN 2 A1+1 17 8TP= LDN 5 0 [ CHARACTER COUNT 10 8W8W ... CALL 4 SMVPROPS 13 9?BQ OUTPARAM 5,A1+1,ADATA,CSTORE 6 9?WB ELSE 9 9#B2 OUTMESS JNONE 5 9#TL FI 10 9**= INFORM 0,JSPROPS,1 10 9*SW MFREEW ADATA,CSTORE 5 9B#G FI 5 9BS6 UP 4 9BS* ...[ 4 9BSJ ...[ 6 9BSR ...Z8WHATPROP 4 9BT2 ...[ 18 9BT9 ...[ SET UP PROPERTIES REQUIRED MESSAGE FOR CLEAN COPY SPOOLING 7 9BTD ...[ LINE PRINTERS 4 9BTM ...[ 4 9BTW ...[ 10 9BTX ... HUNTW 3,APERI,APROPNOS 7 9BTY ... IF 3,PZ 5 9BT_ ... THEN 8 9BW5 ... SMO FX2 17 9BW# ... LDX 4 AWORK3 [NPU SIZE IN CHARS 7 9BWH ... LDX 5 4 14 9BWQ ... ADN 5 IDATA-A1*4+3 [ROUND UP 18 9BW_ ... SRL 5 2 [NO. OF WORDS IN OUTPUT 11 9BX8 ... SETUPCORE 5,2,AMXOR,IOUT,1 19 9BXC ... STOZ IMOPTY(2) [DONT WAKE UNLESS LAST BLOCK 7 9BXL ... LDN 0 1 10 9BXT ... MHUNTW 1,AMXOR,ADCB 10 9BY4 ... LDX 5 IDENTNO(1) 9 9BY? ... STO 5 IPBIDE(2) 8 9BYG ... ORX 4 GSIGN 17 9BYP ... STO 4 IPBIDE+1(2) [OUTPUT CHAR COUNT 17 9BYY ... STOZ IBSW(2) [BLOCK STATUS WORD 11 9B_7 ... MHUNTW 3,APERI,APROPNOS 10 9B_B ... LDX 0 BPROPCNT(3) 7 9B_K ... SBN 0 1 18 9B_S ... IF 0,NZ [NON-CONSOLE PROPERTIES 6 9C23 ... THEN 20 9C2= ... CALL 7 SPPROPS [GET PERM PROPS IN APERI-APROPS 20 9C2F ... CALL 6 SMESSAGE [START OF MESSAGE IN IOUT BLOCK 11 9C2N ... MHUNT 3,APERI,APROPS 20 9C2X ... CALL 4 SMVPROPS [MOVE PROPERTIES TO IOUT BLOCK 6 9C36 ... ELSE 10 9C3* ... CALL 6 SMESSAGE 9 9C3J ... SMO FX1 9 9C3R ... LDN 1 PMESSC 8 9C42 ... MVCH 1 4 8 9C49 ... LDN 5 4 5 9C4D ... FI 10 9C4M ... MHUNTW 3,AMXOR,IOUT 8 9C4W ... SBN 5 49 8 9C55 ... IF 5,PZ 6 9C5# ... THEN 10 9C5H ... LDN 1 IDATA+7(3) 9 9C5Q ... LDN 4 #27 9 9C5_ ... DCH 4 0(1) 8 9C68 ... LDX 2 1 8 9C6C ... BCHX 2 / 8 9C6L ... ADN 1 1 8 9C6T ... ADN 5 63 8 9C74 ... SMO 5 8 9C7? ... MVCH 1 0 5 9C7G ... FI 8 9C7P ... SMO FX1 8 9C7Y ... LDN 1 PTERM 7 9C87 ... MVCH 1 4 9 9C8B ... SBN 2 IDATA(3) 7 9C8K ... SLC 2 2 10 9C8S ... DSA 2 IPBIDE+1(3) 10 9C93 ... ADN 2 IDATA-A1*4+3 7 9C9= ... SRL 2 2 8 9C9F ... ALTLEN 3,2 5 9C9K ... FI 5 9C9P ... UP 4 9C9X ...[ 4 9C?Q [ 19 9CRB [************************************************************ 4 9D?2 [ 7 9DQL [ BREAKIN LABEL 4 9F== [ 19 9FPW [************************************************************ 4 9G9G [ 5 9GP6 ZBRKIN 5 9H8Q UP 4 9HNB [ 4 9J82 [ 4 9JML #END 6 ____ ...051400520004