15 226N ... SEG ATTRIBUT,867,SECTION COMM,,G402 4 22?B ...[ 16 22D4 ...[ (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982 4 22JQ ...[ 8 22PD ...#OPT K0ATTRIBUT=0 15 23DW ...#LIS K0PROPERTY>K0PROPSYS>K0ALLGEO>K0ATTRIBUT 4 23YG # 4 2429 ...# 10 243Y ...# EXERCISE TO THE READER 10 245M ...# -------- -- --- ------ 4 247B ...# 21 2495 ...# REDUCE THE SEGMENT SIZE BY INCORPORATING THE 'CANCEL' OPTION AS 19 24=S ...# PART OF THE MAIN PATH (AND THUS AVOID MUCH DUPLICATION). 4 24#H ...# 4 24B= ...# 4 24D6 # 20 24XQ ...# THIS SEGMENT IMPLEMENTS THE ATTRIBUTE & CC ATTRIBUTE COMMANDS 21 25CB ...# IT HAS TWO MAIN ENTRY POINTS (+ 5 OTHERS FOR SHARED FILESTORE) : 9 25X2 # K1 ATTRIBUTE 10 26BL # K2 CC ATTRIBUTE 4 26W= # 13 27*W SEGENTRY K1ATTRIBUT,PATTRIBUTK1 13 27TG SEGENTRY K2ATTRIBUT,PATTRIBUTK2 21 27WR ... FSHENTRY K3ATTRIBUT,PFSHENT3,,PFSHENT3 [INITIAL TRANSFER TO 'A' 20 27Y4 ... [ FOR ATTRIBUTE COMMANDS ON 'B' 20 27_* ... FSHENTRY K4ATTRIBUT,,PFSHENT4,PFSHENT4 [RE-ENTRY TO 'B' FOR AU 21 282L ... [ COMMAND TO LOOK FOR APIA ENTRY ON B 21 283X ... FSHENTRY K5ATTRIBUT,PFSHENT5,,PFSHENT5 [INITIAL TRANSFER TO 'A' 20 2858 ... [ FOR CC ATTRIBUTE COMMAND ON 'B' 21 286F ... FSHENTRY K7ATTRIBUT,,PFSHENT7,PFSHENT7 [RE-ENTRY TO 'B' FOR CC AU 21 287Q ... [ COMMAND TO LOOK FOR APIA ENTRY ON B 21 2887 ... FSHENTRY K8ATTRIBUT,QLINKDOWN,,QLINKDOWN [ ENTRY POINT FOR UNANT. 20 288J ... [-ICIPATED CLOSEDOWN OF MC 'B' 4 2893 ...# 4 28=# ...# 4 28?K ...# 4 28*6 # 8 2=R= PUNCHTAPE +1 8 2?=W PRINTER +2 8 2?QG PUNCHCARD +4 17 2#=6 PIDF1 +10 [REDUNDANT - DELETE 17 2#PQ PIDF2 +11 [REDUNDANT - DELETE 17 2*9B PIDF3 +24 [REDUNDANT - DELETE 8 2*P2 PDRUM1 +9 8 2B8L PDRUM2 +25 8 2BN= PIPC +28 18 2C7W TEMEX #40000000 [DEFAULT :TEMP & EXCL/S 10 2CMG PROPERTY 8HPROPERTY 17 2D76 UNITCH 1HU [REDUNDANT - DELETE 17 2DLQ ONE #20000000 [REDUNDANT - DELETE 17 2F6B TWO #37777777 [REDUNDANT - DELETE 17 2FL2 TWOBITS #17777777 [REDUNDANT - DELETE 9 2G5L PCENTRAL 8HCENTRAL 8 2GK= NINE #777 4 2H4W # 4 2NYB # 16 2PD2 # ASSORTED MESSAGES TO THE OPERATOR: 4 2PXL # 17 2QC= ZPARMIS +JPARMIS [%C PARAMETER MISSING 16 2QWW ZPROPNA +JPROPNA [PROPERTY NAME 21 2RBG ZPROPSLO +JPROPSLO [UNIT %C MAY NOT BE GIVEN A PROPERTY 21 2RW6 ZATTLIM +JATTLIM [UNIT %C ALREADY HAS 5 ATTRIBUTIONS 18 2S*Q ZPROPUNK +JPROPUNK [PROPERTY NAME %C UNKNOWN 21 2STB ZPROPNOT +JPROPNOT [PROPERTY %C NOT ATTRIBUTED TO THIS U 21 2T*2 ZNLFNF +JNLFNF [%C IS NOT A CORRECTLY FORMED NAME 21 2TSL ZPROPNIDF +JPROPNIDF [UNIT %C MAY NOT BE GIVEN A'CONSOLE'P 21 2W#= ZTWOCONS +JTWOCONS [%C ALREADY HAS A'CONSOLE'PROPERTY AT 21 2WRW ZATTRIBUTE +JATTRIBUTE [THIS UNIT ALREADY HAS PROPERTY %C AT 21 2X?G ZCENTRALX +JCENTRALX [PROPERTY'CENTRAL'MAY NOT BE ATTRIBUT 19 2XR6 ZCLUS +JCLUS [%C IS NOT IN CORRECT CLUSTER 16 2Y2X ...ZTOOM +JTOOMANY [TOO MANY PARAMS 18 2Y5G ...ZJNCONSUS +JNCONSUS [ONLY CONSOLE PR IN USER 16 2Y6R ...XJOPUCON +JOPUCON [ONLY USER AND OP 4 2Y=Q # 15 2YQB # WAY OUT INCASE OF COMMAND ERROR 8 2_=2 QER1 COMERRX 6,7 4 2_PL # 4 2_SQ ...QER2 5 329W ...QUER6 19 32=S ... CALL 7 V [FREE IDFANDPROP SEMAPHORE 6 32NW CLOSE 7 338G QER3 COMERRX 6 4 33N6 # 13 347Q # LOADING OF REQUIRED ERROR MESSAGE 4 34MB # 10 34X7 ...XER LDX 6 ZJNCONSUS(1) 8 34_Q ... BRN QER2 18 352K ...YER LDX 6 XJOPUCON(1) [ONLY USER AND OP CONTEXT 8 353D ... BRN QER3 5 3572 PANON 8 35LL LDX 1 FX1 10 366= LDX 6 ZPARMIS(1) 10 36KW LDX 7 ZPROPNA(1) 8 375G BRN QER1 5 37K6 WRONG 7 384Q LDN 6 0 8 38JB SPARANOT 1,6 10 3942 LDX 6 ZPROPSLO(1) 8 39HL BRN QER2 5 3=3= UPFUL 7 3=GW LDN 4 0 7 3?2G SPARAPAS 4 10 3?G6 LDX 6 ZATTLIM(1) 8 3?_Q BRN QER2 5 3#FB PRUNK 8 3#_2 LDX 1 FX1 10 3*DL LDX 6 ZPROPUNK(1) 8 3*Y= BRN QER2 5 3BCW NOTAT 8 3BXG LDX 1 FX1 10 3CC6 LDX 6 ZPROPNOT(1) 8 3CWQ BRN QER2 5 3DBB PFORMAT 8 3DW2 LDX 1 FX1 9 3F*L LDX 6 ZNLFNF(1) 8 3FT= BRN QER3 4 3G#W XIDF 7 3GSG LDN 6 0 8 3H#6 SPARANOT 1,6 10 3HRQ LDX 6 ZPROPNIDF(1) 8 3J?B BRN QER2 5 3JR2 TWOCONS 7 3K=L LDN 5 0 7 3KQ= SPARAPAS 5 10 3L9W LDX 6 ZTWOCONS(1) 8 3LPG BRN QER2 5 3M96 XGOTT 8 3MNQ LDX 1 FX1 10 3N8B LDX 6 ZATTRIBUTE(1) 8 3NN2 BRN QER2 5 3P7L XCENTRAL 8 3PM= LDX 1 FX1 10 3Q6W LDX 6 ZCENTRALX(1) 8 3QLG BRN QER3 5 3R66 XCLUS 7 3RKQ LDN 5 0 7 3S5B SPARAPAS 5 9 3SK2 LDX 6 ZCLUS(1) 8 3T4L BRN QER2 4 3TJ= # 21 3W3W # THIS SUBROUTINE PICKS UP THE NEXT PARAM,CHECKS THAT IT IS NOT'CENT 20 3WHG # SETS UP FILE NAME BLOCK&OPENS:SYS.PROP.,FREE FILE NAME BLOCK,FIND 11 3X36 # PROP.NAME IN :SYS.PROP.,EXIT. 4 3XGQ # 5 3XNC ...NAMEX 8 3_?# ... SBX 7 FX1 10 3_F= CHEKLFN2 PANON,PFORMAT 18 3_YW LDX 4 ACES [SPACEFILL BED FOR NAME 9 42DG STO 4 AWORK1(2) 9 42Y6 STO 4 AWORK2(2) 9 43CQ STO 4 AWORK3(2) 9 43XB LDN 0 APARA(3) 9 44C2 LDN 1 AWORK1(2) 9 44WL LDEX 2 ANUM(3) 20 45B= MVCH 0 0(2) [MOVE PROP NAME INTO AWORK WORDS 8 45TW LDX 1 FX1 8 46*G LDX 2 FX2 15 46T6 TESTNAMX 2,AWORK1(2),PCENTRAL(1),NOTCENT,4 6 46X4 ...#UNS G402 12 46_2 ... JBS XCENTRAL,2,EXOPCOM 15 472Y ... LDN 0 1 [PR CENTRAL 8 474W ... CALL 4 SUSER 15 476S ... BZE 0 XCENTRAL [J IF NO-USER 5 47SB NOTCENT 16 4?PB ... P IDFANDPROP,PBRKIN [SET SEMAPHORE 15 4*8= OPENSYS SBRKIN,PROPERTY,GENERAL,CAREFUL 18 4*MW [OPEN :SYSTEM.PROPERTY 18 4HHB STEP STEP [STEP AND COMPARE NAMES 20 4J32 BZE 3 OUT [END OF FILE: PROPERTY UNKNOWN 15 4JGL TESTNAMX 3,APROPNAME(3),AWORK1(2),STEP,4 17 4K2= OUT ADX 7 FX1 [EXIT FROM SUBROUTINE 7 4KFW EXIT 7 0 6 4LRG ...XBRK CLOSE 5 4LYQ SBRKIN 7 4L_7 ... CALL 7 V 5 4L_J ...PBRKIN 7 4M23 ... LDN 0 1 8 4M3# ... CALL 4 SUSER 17 4M4K ... BNZ 0 SUSERBI [J IF USER CONTEXT 21 4M5W ... GEOERR 1,BREAKIN? [CAN'T BREAKIN FROM OPERATOR'S CONSOL 5 4M77 ...SUSERBI 18 4MDB COMBRKIN [COMMAND ENDS IF BREAK-IN 4 4NCL # 4 4NX= # 4 4PBW # 21 4PWG # THIS SUBROUTINE FINDS THE UNIT RECORD IN DEVICE LIST,CHECKS IS LOC 9 4QB6 # OUTPUT DEVICE,EXIT. 4 4QTQ # 4 4R*B # 8 4RT2 UNIT1 SBX 7 FX1 17 4S#L TXU 0 PRINTER(1) [IS PERIPHERAL A LP? 8 4SS= BCC PERND 14 4T?W TXU 0 PUNCHCARD(1) [OR CP? 8 4TRG BCC PERND 14 4W?6 TXU 0 PUNCHTAPE(1) [OR TP? 8 4WQQ BCC PERND 15 4X=B TXU 0 PDRUM1(1) [SLOW DRUM 8 4XQ2 BCC PERND 15 4Y9L TXU 0 PDRUM2(1) [FAST DRUM 8 4YP= BCC PERND 13 4_8W TXU 0 PIPC(1) [IPB 8 4_NG BCC PERND 8 5286 ADX 7 FX1 7 52MQ EXIT 7 0 8 537B PERND ADX 7 FX1 7 53M2 EXIT 7 1 4 546L # 21 5#XW # THIS SUBROUTINE PASSES ACROSS CH'S AFTER'PROPERTY'OR'PR'(IF NONE-ER 5 5*CG # EXIT. 5 5*X6 PRPARAM 8 5BBQ SBX 7 FX1 7 5BWB LDN 6 8 5 5CB2 XAGAIN 7 5CTL LDN 4 0 20 5D*= SPARABEG 1,6,PROPERTY(1),4 [PUT THE CH'S AFTER PR IN BLOCK 9 5DSW MHUNT 1,CPB,CUNI 9 5F#G LDX 4 ANUM(1) 16 5FS6 BNG 4 PR [BRANCH IF ABSENT 16 5G?Q BZE 4 PANON [BRANCH IF NULL 8 5GRB ADX 7 FX1 7 5H?2 EXIT 7 0 4 5HQL PR 7 5J== SRL 6 2 18 5JPW BZE 6 PANON [NOT LONG OR SHORT FORM 7 5K9G FREECORE 1 16 5KP6 BRN XAGAIN [TRY SHORT FORM 14 5KW? ...SUSER ANDX 0 CONTEXT(2) [USER,MOP 7 5KY2 ... EXIT 4 0 6 5KY8 ...#UNS G402 4 5KYB ...( 11 5KYJ ...XUSE JBS OPCOM1,2,EXOPCOM 8 5KYQ ... BNG 6 XUSER 4 5KYY ...) 6 5K_6 ...#UNS G402 4 5K_# ...#SKI 18 5K_P ...XUSE BNG 6 XUSER [1 PARAM IN USER CONTEXT 9 5L3D ... LDX 6 ZTOOM(1) 8 5L57 ... BRN QER3 4 5L5K ...[ 7 5L63 ...[ FREE SEMAPHORE 4 5L6F ...[ 4 5L6X ...V 4 5L7* ...[ 10 5L7R ... V IDFANDPROP 7 5L89 ... EXIT 7 0 4 5L8Q # 4 5LNB # 21 5LNR ...# THIS SUBROUTINE RELEASES ANY ACTS. WAITING FOR PROPERTIES TO BE 21 5LP8 ...# CHANGED ON PERIPH. INDICATED IN CPAR/JSCE BLOCK. NO COORDINATION. 5 5LPK ...RELEASE 10 5LQ2 ... MHUNTW 2,CPAR,JSCE 10 5LQC ... GEOPACK 6,JSCEA(2) 16 5LQS ... LONGON1 ATTRIBUTE,6 [RELEASE WAITERS 7 5LR9 ... EXIT 7 0 4 5LRL ...# 4 5LS3 ...# 4 5M82 # 4 5MML # 21 5N7= # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # 4 5NLW # 6 5P6G PATTRIBUTK1 4 5PL6 # 4 5Q5Q # 13 5QKB # ENTRY POINT FOR ATTRIBUTE COMMAND. 12 5R52 ...# CALLS PARSORTX TO ANALYSE UNIT NO, 19 5RJL ...# CALL PRPARAM,CALL NAMEX,IF PROP.NAME. UNKNOWN -ERROR,CALL UN 20 5S4= # CHECK COMMAND ISSUED LOCALLY&IF PROPERTY ALREADY AU'D&IF ALREADY 21 5SHW # 5 PROP'S AU'D TO PERIPH,(IF ANY FO THESE CONDITIONS FOUND TRUE-ERROR) 9 5SYB ...# IF PROPERTY PERMANENT, 21 5T#W ...# SET UP WRITE BLOCK,MOVE CURRENT RECORD IN :SYSPROP TO WRITE BLOCK,PU 21 5TPB ...# FRH&UNIT NO. IN WRITE BLOCK,ADD 1 TO COUNT OF AU'S,REPLACE OLD RECORD 21 5W5W ...# IN :SYS.PROP,WITH NEW RECORD,CLOSE :SYS.PROP,WAKE UP ACTIVITIES WAIT 9 5WGB # IN STYLE 'ATTRIBUTE' 17 5X22 ...# IF REMOTE DEVICE, DONT BOTHER :SYSPROP,JUST DO ^IDFAT^ 4 5YYG # 4 5_D6 # 7 624D ... LDN 1 0 8 6262 ... PARANUMB 6,1 7 627J ... SBN 6 2 7 6296 ... LDN 0 1 8 62=N ... CALL 4 SUSER 17 62=W ... BNZ 0 XUSE [J IF USER CONTEXT 8 62?4 ... LDN 0 #10 8 62?D ... CALL 4 SUSER 17 62?S ... BNZ 0 YER [J IF MOP AND NO USER 6 62*2 ...#UNS G402 5 62B8 ...OPCOM1 7 62CB LDN 7 1 13 62X2 ... PARSORTX PREND1,7,,,INCOUT,GROPE 9 63BL HUNTW 3,CPAR,JSCE 9 63W= BNG 3 PREND1 5 648L ...XUSER 18 64*W CALL 7 PRPARAM [PASS ACROSS PROP.NAME 5 64YL ...PFSHENT3 20 653Q ... CALL 7 NAMEX [CHECK PROPERTY NAME EXISTS (ALSO 21 656W ... [ GRASPS IDFANDPROP SEMAPHORE & OPENS 17 65=2 ... [ :SYSTEM.PROPERTY) 9 65?J ... STOZ AWORK4(2) 8 65*6 BZE 3 PRUNK 7 65HR ... LDN 0 1 8 65L2 ... CALL 4 SUSER 6 65L9 ...#UNS G402 4 65LD ...( 9 65LM ... BZE 0 OPCOM2 11 65LW ... JBC XUSR,2,EXOPCOM 5 65M5 ...OPCOM2 4 65M# ...) 6 65MH ...#UNS G402 4 65MQ ...#SKI 17 65N9 ... BNZ 0 XUSR [J IF USER CONTEXT 9 65SQ MHUNTW 2,CPAR,JSCE 9 66#B LDX 4 JSCEP(2) 9 66S2 LDCH 0 JSCEA(2) 9 67?L LDX 7 JSCEB(2) 9 67R= BPZ 7 XLOCAL 9 68=W BRN PIDFUNIT 5 68QG XLOCAL 9 69=6 LDX 6 JSCEA(2) 9 69PQ ANDX 6 NINE(1) 10 6=9B LDX 7 APROPGROUP(3) 8 6=P2 BNG 7 XIDF 8 6?8L CALL 7 UNIT1 8 6?N= BRN WRONG 5 6#8B ...YFLCHECK 10 6#96 ... SEGENTRY K50ATTRIBUT 10 6#9W ... LDX 0 APROPNO(3) 7 6#=D ... SLL 0 1 9 6#=P ... BNG 0 YFLEND 10 6#?J ... MHUNTW 2,CPAR,JSCE 9 6##6 ... LDX 2 JSCEP(2) 11 6##N ... JBC YFLEND,2,FLP4B 8 6#*= ... SMO FX2 9 6#*S ... LDX 5 AWORK4 10 6#BB ... DOWN FORMLOOP,3 10 6#BY ... TESTREP WRONG,WRID 7 6#C9 ... STEPAGAIN 8 6#CG ... SMO FX2 9 6#D4 ... STO 5 AWORK4 4 6#D? ...SKB1 5 6#DP ...YFLEND 10 6#DY ... SEGENTRY K55ATTRIBUT 7 6#L= ... LDN 5 4 20 6#MG ... LADDP 4,2 [X2-> APIA ENTRY FOR PERIPHERAL 10 6*LQ LDX 7 APROPNO(3) 5 6B6B XATT1 10 6BL2 TXU 7 APERPROP+1(2) 14 6C5L BCC XGOTT [PROPERTY 15 6CK= ADN 2 1 [HAS ALREADY 8 6D4W BCT 5 XATT1 16 6DJG ... SBN 2 4 [X2-> APIA ENTRY 4 6F46 # 7 6FHQ LDN 5 4 5 6G3B XNFREE 10 6GH2 LDX 4 APERPROP+1(2) 8 6H2L BZE 4 XFREE 7 6HG= ADN 2 1 9 6H_W BCT 5 XNFREE 8 6JFG BRN UPFUL 5 6J_6 XFREE 10 6KDQ STO 7 APERPROP+1(2) 5 6KH8 ...UPDPROP 10 6LBL ... LDX 0 APROPNO(3) 7 6LC4 ... SLL 0 1 8 6LCG ... BPZ 0 REL1 10 6LD2 LDX 4 ATTCOUNT(3) 7 6LQC ... ADN 4 8 16 6MPL ... SETUPCORE 4,2,FILE,FWB [FOR NEW RECORD 7 6MWW STEPAGAIN 10 6NNW ... MHUNTW 2,FILE,FWB 10 6NW6 LDX 1 ATTCOUNT(3) 7 6P*Q ADN 1 7 9 6PTB LDN 4 FRH(3) 9 6Q*2 LDN 5 FRH+A1(2) 8 6QSL MOVE 4 0(1) 11 6R#= ADX 2 ATTCOUNT+A1(2) 11 6RRW STO 6 APROPATT+A1(2) 10 6S?G SBX 2 ATTCOUNT(3) 7 6SR6 LDN 4 1 11 6T=Q ADS 4 ATTCOUNT+A1(2) 9 6TQB ADS 4 FRH+A1(2) 7 6TRY ... REPLACE 4 6TTG ...REL1 21 6TX4 ... CALL 7 RELEASE [REL. WAITERS FOR PROP ON THIS PERIPH 8 6W28 ... BRN PEND 4 6W3Q ...YA5 4 6WPL # 5 6X9= PIDFUNIT 17 6XNW LDX 7 APROPGROUP(3) [ONLY ALLOW ATTRIB OF 16 6Y8G BZE 7 PNCONS [CONSOLE PROP IF 6 6Y*N ...#UNS G402 11 6YGW ... JBS PNCONS,2,EXOPCOM 19 6YN6 SAWCEN CENTRAL,XCLUS [COMMAND CAME FROM CENTRAL 5 6_7Q PNCONS 10 72LL LDX 4 APROPNO(3) 10 736= LDX 5 APROPGROUP(3) 17 73R4 ... IDFAT XBRK,5,4,RMTERR,UPFUL,TWOCONS,XGOTT,XCLUS 18 745G [STORE ATTRIB'N IN I;F 21 74*# ... CALL 7 RELEASE [REL. WAITERS FOR PROP CHANGE ON THIS 8 74K6 BRN PEND 5 74K* ...XNPEND 14 74MJ ...XUSR LDX 6 APROPNO(3) [PROP NO 9 74NB ... ANDX 6 BITS22LS 7 74P8 ... SBN 6 1 16 74Q2 ... BZE 6 XUC [ J IF CENTRAL 10 74QS ... LDX 7 APROPGROUP(3) 19 74RL ... BPZ 7 XER [J IF NOT A CONSOLE PROPERTY 7 74SD ... ADN 6 1 17 74T= ...XUC BXE 6 JSOURCE3(2),PEND [SAME PR-DONT SAVEIT 8 74W4 ... LDN 0 #10 8 74WW ... CALL 4 SUSER 15 74XN ... BZE 0 XNMOP [J IF NOT MOP 20 74YG ... MOPASAT 4 [SAVE JSOURCE3 INTO APERI/ASSOCS0 8 74_# ... LDX 2 FX2 10 7526 ...XNMOP STO 6 JSOURCE3(2) 8 752Y ... BRN PEND 4 754Q # 4 75JB # 6 7642 PATTRIBUTK2 4 76HL # 4 773= # 13 77GW # ENTRY POINT FOR CANCEL ATTRIBUTE. 15 782G ...# CALL PARSORTX TO ANALYSE UNIT NO. - IF LOCAL 21 78_Q # CALL PRPARAM,CALL NAMEX, IF PROP. UNKNOWN-ERROR,CALL UNIT1,TEST IF PRO 21 79FB ...# AU'D(IF NOT ERROR),ZEROIZE PROP.WORD,RESET X2,SET UP WRITE BLOCK,MOVE 21 79_2 ...# OLD RECORD IN :SYS.PROP TO WRITE BLOCK,STORE FRH &COUNT(-1)IN WRITE 20 7=DL # BLOCK,MOVE ALL UNIT NO. WORDS(EXCEPT THAT TO BE CANCELLED)FROM OLD 17 7=Y= ...# RECORD TO WRITE BLOCK RECORD,REPLACE,CLOSE :SYS.PRO 12 7?CW # WAKE UP ACTIVITIES WAITING,END. 18 7?XG ...# IF REMOTE, DO ^IDFCCAT^ INSTEAD OF BOTHERING :SYS.PROP. 4 7*W2 # 7 7B*L LDN 7 1 13 7BT= ... PARSORTX PREND1,7,,,INCOUT,GROPE 9 7C#W HUNTW 3,CPAR,JSCE 9 7CSG BNG 3 PREND1 9 7D#6 CALL 7 PRPARAM 5 7DPD ...PFSHENT5 8 7DRQ CALL 7 NAMEX 9 7F3J ... STOZ AWORK4(2) 8 7F?B BZE 3 PRUNK 9 7FR2 MHUNTW 2,CPAR,JSCE 9 7G=L LDX 4 JSCEP(2) 9 7GQ= LDX 0 JSCEA(2) 8 7H9W SRL 0 18 9 7HPG LDX 7 JSCEB(2) 9 7J96 BPZ 7 XLOCALC 9 7JNQ BRN PIDFCC 5 7K8B XLOCALC 9 7KN2 LDX 6 JSCEA(2) 9 7L7L ANDX 6 NINE(1) 8 7LM= CALL 7 UNIT1 8 7M6W BRN WRONG 7 7MLG LDN 5 4 8 7NKQ LADDP 4,2 10 7P5B LDX 7 APROPNO(3) 5 7PK2 XATTC1 10 7Q4L TXU 7 APERPROP+1(2) 9 7QJ= BCC XGOTTC 7 7R3W ADN 2 1 9 7RHG BCT 5 XATTC1 8 7S36 BRN NOTAT 5 7SGQ XGOTTC 7 7T2B SBN 5 1 8 7TG2 BZE 5 XLAST 4 7T_L XCAN 10 7WF= LDX 7 APERPROP+2(2) 8 7WYW BZE 7 XLAST 10 7XDG STO 7 APERPROP+1(2) 7 7XY6 ADN 2 1 8 7YCQ BCT 5 XCAN 5 7YXB XLAST 7 7_C2 LDN 5 0 10 7_WL STO 5 APERPROP+1(2) 5 7_YJ ...UPDPROP2 9 82B= MHUNT 1,CPB,CUNI 7 82TW FREECORE 1 19 82_R ... LDX 0 APROPNO(3) [TEMPORARY PROP ATTRIBS... 19 835N ... SLL 0 1 [NOT RECORDED IN :SYS.PROP.. 15 839K ... BPZ 0 REL2 [SO J IF TEMP 10 83*G LDX 7 ATTCOUNT(3) 7 83T6 ADN 7 6 10 84M6 ... SETUPCORE 7,2,FILE,FWB 7 84SB STEPAGAIN 10 85LB ... MHUNTW 2,FILE,FWB 10 85RL LDN 4 APROPNO(3) 10 86?= LDN 5 APROPNO+A1(2) 7 86QW MOVE 4 6 9 87=G STO 7 FRH+A1(2) 7 87Q6 SBN 7 7 11 889Q STO 7 ATTCOUNT+A1(2) 10 88PB LDX 5 ATTCOUNT(3) 20 8992 XPRATT [DE-ATTRIBUTE PROPERTY IN SYSPROP 10 89NL TXU 6 APROPATT(3) 9 8=8= BCC XUNITATT 10 8=MW LDX 4 APROPATT(3) 11 8?7G STO 4 APROPATT+A1(2) 7 8?M6 ADN 3 1 7 8#6Q ADN 2 1 9 8#LB BCT 5 XPRATT 8 8*62 BRN PDELE 5 8*KL XUNITATT 7 8B5= ADN 3 1 7 8BJW LDX 1 5 7 8C4G SBN 1 1 8 8CJ6 BZE 1 PDELE 10 8D3Q LDN 4 APROPATT(3) 11 8DHB LDN 5 APROPATT+A1(2) 8 8F32 MOVE 4 0(1) 5 8F4C ...PDELE 7 8F5S ... REPLACE 4 8F79 ...REL2 21 8F8L ... CALL 7 RELEASE [REL WAITER FOR PROP CHANGE ON DEVICE 8 8F?D ... BRN PEND 4 8F#T ...YA7 4 8FTP ...YA8 4 8FYH ...# 5 8G2= PIDFCC 10 8GFW LDX 7 APROPGROUP(3) 9 8G_G BZE 7 PNCONSC 10 8HF6 SAWCEN CENTRAL,XCLUS 18 8HYQ ...PNCONSC [DE-ATTRIBUT FROM THE IDF 10 8KX= LDX 4 APROPNO(3) 10 8LBW LDX 5 APROPGROUP(3) 9 8LWG BPZ 5 XCONSNOT 9 8MB6 ORX 4 TEMEX(1) 9 8MTQ BRN XCONSIS 5 8N*B XCONSNOT 9 8NT2 ANDX 4 BITS22LS 5 8P#L XCONSIS 12 8PPN ... IDFCCAT XBRK,4,RMTERR,NOTAT 21 8PSP ... CALL 7 RELEASE [REL WAITER FOR PROP CHANGE ON DEVICE 4 8PT8 ...WRID 4 8PTP ...PEND 5 8QMC ...PREND2 19 8QN7 ... CALL 7 V [RELEASE IDFANDPROP SEMAPHORE 20 8QPL ... [ (MUST ALWAYS BE DONE ON 'A') 6 8QRG CLOSE 5 8SQ2 PREND1 6 8T9L ENDCOM 5 8TLJ ...RMTERR 9 8WTB ... BRN PREND2 4 8X=* ...# 4 8XKD ...# 4 8XMQ # 4 8Y7B #END 8 ____ ...04777046000200000000