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