{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: LISTPROP867)}}
====== LISTPROP867 ======
(George Source)
**Macros used:** [[george:macro:ACROSS|ACROSS]], [[george:macro:APPEND|APPEND]], [[george:macro:APROPNAME|APROPNAME]], [[george:macro:GEOERR|GEOERR]], [[george:macro:MENDAREA|MENDAREA]], [[george:macro:MHUNTW|MHUNTW]], [[george:macro:MXB|MXB]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SETNCORE|SETNCORE]], [[george:macro:TERROR|TERROR]], [[george:macro:TESTREP|TESTREP]], [[george:macro:VFREE|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