8 22FL #OPT K0LISTPROP=0 15 22_= #LIS K0LISTPROP>K0ALLGEO>K0GREATGEO>K0COMMAND 15 23DW #SEG LISTPROP8 [LEN WAGSTAFF 13 23NN ...# COPYRIGHT INTERNATIONAL COMPUTERS 1982 8 23YG 8HLISTPROP 7 24D6 # ENTRY POINTS 12 24XQ SEGENTRY K1LISTPROP,Z1LISTPROP 13 25CB # PRINTS OUT INFORMATION HELD IN THE IDF 11 25X2 MENDAREA 50,K99LISTPROP 10 26BL XSUB 12HIDENTIFIER 12 26W= XCON 20HNOMINATED CONSOLES 9 27*W XCC 4H CC 9 27TG 4H CI 9 28*6 XLOC 8H LOCAL 9 28SQ XMX 4H MX 9 29#B XUX 4H UX 9 29S2 XLINE 8H LINE 10 2=?L XTERM 8HTERMINAL 9 2=R= XMASK #37777777 9 2?=W #20202020 9 2?QG XMAJ +10000 6 2#=6 Z1LISTPROP 8 2#PQ LDN 6 BEXOT 7 2*9B LDX 3 6 8 2*P2 CALL 0 SETUP 8 2B8L CALL 0 XHUNT 7 2BN= SMO 3 8 2C7W LDX 6 0(2) 8 2CMG BZE 6 TEND 7 2D76 LDN 5 7 9 2DLQ ADS 5 A1+1(1) 9 2F6B LDN 5 A1+3(1) 8 2FL2 SMO FX1 8 2G5L LDN 4 XCON 7 2GK= MOVE 4 5 15 2H4W CALL 0 WRITE [WRITE HEADER 8 2HJG START SMO FX2 9 2J46 STO 6 AWORK2 7 2JHQ LDX 3 6 8 2K3B CALL 0 SETUP 19 2KH2 CALL 0 XHUNT [HUNT FOR PROPERTY CONSOLE 13 2L2L SMO 3 [CELL 8 2LG= LDX 7 0(2) 8 2L_W SMO FX2 9 2MFG STO 7 AWORK3 7 2M_6 SMO 3 9 2NDQ LDX 7 BNO(2) 4 2NGF ...[ 21 2NJ8 ...[ FOR SHFS IF A PROPERTY WAS CANCELLED WHILE THE LINK WAS NOT RUNNING 21 2NKX ...[ THERE MAY BE REFERENCES IN IDFB TO PROP. NOS. THAT NO LONGER EXIST 4 2NML ...[ 5 2NSR ...SNMATTER 17 2NYB APROPNAME 7,1,TERROR [GET PROPERTY NAME 10 2PD2 LDX 0 ACOMMUNE3(2) 9 2PXL STO 0 AWORK1(2) 9 2QC= LDX 6 AWORK2(2) 7 2QWW LDX 3 6 8 2RBG CALL 0 XHUNT 8 2RW6 SMO FX2 9 2S*Q LDX 0 AWORK1 8 2STB SMO FX2 9 2T*2 STO 0 ACOMMUNE3 9 2TSL LDN 5 A1+4(1) 8 2W#= SMO FX2 9 2WRW LDN 4 ACOMMUNE1 7 2X?G MOVE 4 3 7 2XR6 ADN 3 2 7 2Y=Q SMO 3 8 2YQB LDX 6 0(2) 16 2_=2 BNZ 6 NOTLOC [NOTLOC=NOT LOCAL 8 2_PL SMO FX1 8 329= LDN 4 XLOC 9 32NW LDN 5 A1+8(1) 7 338G MOVE 4 2 14 33N6 CALL 0 WRITE [LOCAL 9 347Q BRN START2 5 34MB NOTLOC 18 3572 SMO FX2 [SAVE PTR TO APPROPIATE 15 35LL STO 6 AWORK1 [CONSOLE CELL 7 366= LDX 3 6 8 36KW CALL 0 XHUNT 7 375G SMO 3 8 37K6 LDX 5 3(2) 7 384Q STOZ 4 8 38JB SMO FX1 8 3942 ANDX 5 XMASK 7 39HL SLL 45 3 7 3=3= SBN 4 1 8 3=GW BNZ 4 WCC 7 3?2G SMO 3 8 3?G6 LDX 5 4(2) 7 3?_Q LDCH 0 5 8 3#FB SMO FX1 8 3#_2 LDN 4 XTERM 9 3*DL LDN 5 A1+13(1) 7 3*Y= MOVE 4 2 9 3BCW LDN 5 A1+8(1) 8 3BXG BZE 0 WUX1 8 3CC6 SMO FX1 8 3CWQ LDN 4 XMX 8 3DBB BRN WUX2 8 3DW2 WUX1 SMO FX1 8 3F*L LDN 4 XUX 7 3FT= WUX2 MOVE 4 1 8 3G#W BZE 0 WUX3 8 3GSG SMO FX1 8 3H#6 LDN 4 XLINE 9 3HRQ LDN 5 A1+10(1) 7 3J?B MOVE 4 2 4 3JR2 WUX3 7 3K=L SMO 3 8 3KQ= LDX 5 4(2) 7 3L9W STOZ 4 8 3LPG SLL 45 18 8 3M96 SRL 5 18 8 3MNQ ADN 1 A1+11 7 3N8B BCHX 1 / 7 3NN2 BCHX 1 / 8 3P7L BZE 0 WUX4 7 3PM= STO 4 0 8 3Q6W CALL 7 XCBD 7 3QLG LDEX 5 0 8 3R66 BRN WUX5 4 3RKQ WUX4 7 3S5B LDEX 5 4 7 3SK2 WUX5 SBN 1 2 8 3T4L SMO FX1 8 3TJ= ANDX 1 XMASK 8 3W3W CALL 7 XCBD 7 3WHG ADN 1 6 7 3X36 SMO 3 8 3XGQ LDX 5 1(2) 7 3Y2B STOZ 4 8 3YG2 SLL 45 12 8 3Y_L DSA 4 0(1) 15 3_F= CALL 0 WRITE [MULTIPLEXOR 9 3_YW BRN START2 7 42DG WCC SBN 4 1 9 42Y6 BNZ 4 TERROR 15 43CQ SMO 3 [GET GEOG.NO 9 43XB LDX 5 BTYPE(2) 8 44C2 ANDN 5 #777 14 44WL BZE 5 WCI [J. IF CI 15 45B= SMO FX1 [STO. ^CI^ 8 45TW LDN 6 XCC 9 46*G LDN 7 A1+8(1) 7 46T6 MOVE 6 1 9 47#Q LDN 7 A1+11(1) 8 47SB SMO FX1 16 48#2 LDN 6 XSUB [ST. [IDENTIFIER^ 7 48RL MOVE 6 3 16 49?= ADN 1 A1+9 [CONVERT GEOG. NO 14 49QW CALL 7 XCBD [AND STO. 7 4==G ADN 1 5 16 4=Q6 SMO 3 [CONVERT AND STO. 15 4?9Q LDX 5 BNO(2) [IDENT. NO 8 4?PB CALL 7 XCBD 17 4#92 BRN WCCCI [BACK TO COMMON PATH 15 4#NL WCI SMO FX1 [STO. ^CI^ 8 4*8= ... LDX 6 XCC+1 9 4*MW STO 6 A1+8(1) 15 4B7G SMO 3 [GET PROPNO. 10 4BM6 LDX 0 IPROPNO(2) 16 4C6Q ANDX 0 BITS22LS [AND THENCE NAME 21 4C9* ...[ AGAIN FOR SHFS - PROPERTY NO. MAY NO LONGER EXIST IN :SYSTEM.PROPERTY 6 4CF6 ...SNOMATTER 10 4CLB APROPNAME 0,1,TERROR 10 4D62 MHUNTW 1,FILE,FAPB 17 4DKL LDN 6 ACOMMUNE1(2) [PUT NAME INTO FAPB 8 4F5= LDCT 7 #400 9 4FJW ORN 7 A1+9(1) 8 4G4G ... MVCH 6 12 15 4GJ6 LDN 6 #2020 [CUPLA SPACES 9 4H3Q ORS 6 A1+12(1) 16 4HHB SMO FX1 [ST. [IDENTIFIER^ 8 4J32 LDN 6 XSUB 9 4JGL LDN 7 A1+13(1) 7 4K2= MOVE 6 3 16 4KFW LDX 6 AWORK1(2) [RESTORE CELL PTR 7 4K_G LDX 3 6 17 4LF6 CALL 0 XHUNT [RE-HUNT IDF CELL 16 4LYQ SMO 3 [CONVERT + ST. 16 4MDB LDX 5 BNO(2) [IDENTIFIER NO. 8 4MY2 ADN 1 A1+16 8 4NCL CALL 7 XCBD 5 4NX= WCCCI 13 4PBW CALL 0 WRITE [IPB 5 4PWG START2 8 4QB6 SMO FX2 9 4QTQ LDX 6 AWORK3 19 4R*B BNZ 6 START [GO TO START IF NOT LAST CELL 15 4RT2 [IN THE CHAIN 4 4S#L TEND 16 4SS= ACROSS LISTSTAR,2 [ALL FINISHED 5 4T?W TERROR 18 4TRG GEOERR 1,ERINIDF [ERROR IN THE IDF FORMAT. 9 4W?6 XFULL GEOERR 1,LIFFULL 5 4WQQ WRITE 19 4X=B SBX 0 FX1 [ROUTINE FOR APPENDING FRRB 8 4XQ2 LDX 2 FX2 9 4Y9L STO 0 AWORK4(2) 16 4YP= APPEND 2,XREFU [J IF BREAK-IN 10 4_8W TESTREP REFUSED,XREFU 11 4_NG TESTREP FILEFULL,XFULL 9 5286 VFREE FILE,FAPB 9 52MQ LDX 0 AWORK4(2) 8 537B ADX 0 FX1 7 53M2 EXIT 0 0 8 546L XMXB SBX 7 FX1 8 54L= LDX 2 FX2 7 555W MXB 2 8 55KG ADX 7 FX1 10 5656 MHUNTW 1,FILE,FAPB 7 56JQ EXIT 7 0 10 574B XREFU ACROSS LISTSTAR,30 5 57J2 XHUNT 17 583L SBX 0 FX1 [ROUTINE FOR HUNTING 17 58H= LDX 2 FX2 [FAPB AND GIVEN CELL 9 592W STO 0 AWORK4(2) 8 59GG SMO FX1 8 5=26 ANDX 6 XMASK 7 5=FQ SRL 6 9 10 5=_B STO 6 ACOMMUNE3(2) 8 5?F2 CALL 7 XMXB 8 5?YL ANDN 3 #777 8 5#D= SMO FX2 9 5#XW LDX 0 AWORK4 8 5*CG ADX 0 FX1 7 5*X6 EXIT 0 0 5 5BBQ SETUP 18 5BWB SBX 0 FX1 [SETS UP FAPB FILE AND 16 5CB2 LDX 2 FX2 [SPACEFILLS IT 9 5CTL STO 0 AWORK4(2) 11 5D*= SETNCORE 26,1,FILE,FAPB 8 5DSW SMO FX1 9 5F#G LDX 4 XMASK+1 9 5FS6 STO 4 A1+2(1) 9 5G?Q LDN 4 A1+2(1) 9 5GRB LDN 5 A1+3(1) 8 5H?2 MOVE 4 23 8 5HQL LDN 4 26 8 5J== STO 4 A1(1) 8 5JPW LDN 4 #42 9 5K9G STO 4 A1+1(1) 8 5KP6 SMO FX2 9 5L8Q LDX 0 AWORK4 8 5LNB ADX 0 FX1 7 5M82 EXIT 0 0 4 5MML XCBD 19 5N7= LDN 6 0 [CONVERTS BINARY TO DECIMAL 15 5NLW LDN 4 4 [CHARACTERS 8 5P6G SMO FX1 8 5PL6 DVD 5 XMAJ 7 5Q5Q LDX 5 6 7 5QKB ADN 5 1 7 5R52 LDN 6 0 7 5RJL MODE 1 4 5S4= XUSA 8 5SHW CBD 5 0(1) 7 5T3G BCHX 1 / 8 5TH6 BCT 4 XUSA 7 5W2Q SBN 1 1 7 5WGB EXIT 7 0 4 5X22 #END 8 ____ ...33152004000100000000