{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: XATTACH861)}}
====== XATTACH861 ======
(George Source)

**Macros used:** [[george:macro:BXE|BXE]], [[george:macro:BXGE|BXGE]], [[george:macro:BXL|BXL]], [[george:macro:CLOSE|CLOSE]], [[george:macro:ERROR|ERROR]], [[george:macro:GEOERR|GEOERR]], [[george:macro:HUNT2|HUNT2]], [[george:macro:HUNT2J|HUNT2J]], [[george:macro:HUNTW|HUNTW]], [[george:macro:IDFOPEN|IDFOPEN]], [[george:macro:IDFWRITE|IDFWRITE]], [[george:macro:IPBATTACH|IPBATTACH]], [[george:macro:MENDAREA|MENDAREA]], [[george:macro:MFREEALL|MFREEALL]], [[george:macro:MHUNTW|MHUNTW]], [[george:macro:MNAME|MNAME]], [[george:macro:MSEARCH|MSEARCH]], [[george:macro:MXB|MXB]], [[george:macro:NAME|NAME]], [[george:macro:NEW|NEW]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SETNCORE|SETNCORE]], [[george:macro:SIX|SIX]], [[george:macro:TRACE|TRACE]], [[george:macro:UP|UP]], [[george:macro:UPPLUS|UPPLUS]]

<code - XATTACH861.txt>22FL    #SEG  XATTACH                      [PHILIP TURNER.  
22^=    #OPT  K0XATTACH=0   
23DW    #LIS  K0XATTACH>K0ALLGEO>K0GREATGEO>K0COMMAND   
23YG          8HXATTACH 
24D6    #   
24XQ    #   
25CB    #   
25X2          SEGENTRY K1XATTACH,X1XATTACH     [ATTACH MACRO.   
26BL    #   
26W=          SEGENTRY K20XATTACH,X20XATTACH   [DETACH MACRO.   
27*W    #   
27TG          SEGENTRY K21XATTACH,X21XATTACH   [CONOWNNAME MACRO.   
28*6    #   
28SQ    #   
29#B    #   
29S2    SIX            +6   
2=?L    RIDICON        +CONDCBLEN   
2=R=    [   
2?=W    [   
2?QG    [   
2#=6    ZOPEN SBX   7  FX1  
2#*= ...#UNS  IDFMARK8  
2#DB ...      IDFOPEN  ZZBRKIN  
2#HG ...#UNS  IDFMARK8  
2#LL ...#SKI
2#PQ          IDFOPEN  BREAKIN  
2*9B          ADX   7  FX1  
2*P2          EXIT  7  0
2B8L    [   
2BN=    [SEARCH FOR UNIT/LINE   
2C7W    SEARCH  
2CMG          SBX   7  FX1  
2D76          MSEARCH  2,3,4               [SEARCH FOR UNIT/LINE
2DLQ          SMO      FX2  
2F6B          LDX   0  ACOMMUNE1
2FL2          BNZ   0  S2   
2G5L          GEOERR   1,NOUNIT            [ILLEGAL UNIT/LINE   
2GK=    S2  
2H4W          ADX   7  FX1  
2HJG          EXIT  7  0
2J46    [   
2JHQ    YREC  LDX   3  7(2)                [POINTER TO THE NEXT CELL
2K3B          BZE   3  R300                [NO MORE LINES   
2KH2          SMO      FX2                 [REL.POINTER TO OLD CELL 
2L2L          LDX   0  AWORK3   
2LG=          ANDN  0  #7777
2L^W          SBX   2  0                   [POINTER TO THE BEGINNING OF THE RECO
2MFG    YREC1 BPZ   3  Y20                 [SAME RECORD 
2M^6          LDX   0  3
2NDQ          SRL   0  9
2NYB          ANDN  0  #777 
2PD2          LDX   2  FX2  
2PXL          STO   0  ACOMMUNE3(2)         [RECORD NO  
2QC=          SBX   7  FX1  
2QWW          MXB      2
2RBG          ADX   7  FX1  
2RW6    Y20 
2S*Q          ANDN  3  #777 
2STB          ADX   2  3                   [ABS.POINTER TO THE NEXT CELL
2T*2          SMO      FX2  
2TSL          DSA   3  AWORK3              [STORE REL POINTER TO THE NEXT CELL  
2W#=          EXIT  7  0
2WRW    [   
2X?G    XCLOSE  
2XR6          SBX   7  FX1  
2Y=Q          MFREEALL FILE,FRRB
2YQB          CLOSE 
2^=2          ADX   7  FX1  
2^PL          EXIT  7  0
2^RJ ...[   
2^TG ...[   
2^XD ...ZONLR LDX   2  FX2  
2^^B ...      LDCT  0  2
323# ...      ORS   0  EXT+11(2)
325= ...      ERS   0  EXT+11(2)
3278 ...      EXIT  7  0
329=    [   
32NW    [   
338G    X1XATTACH   
33N6          SETNCORE 7,2,GOUT,COMP
347Q          CALL  7  ZOPEN
34MB          SMO      FX2  
3572          STOZ     ACOMMUNE1           [SEARCH FOR AND EVALUATE FIRST CPB   
35LL                                       [CUNI BLOCK OR IDF COINF BLOCK   
35X6 ...      LDN   3  0
367L ...      MNAME    2,3                 [FIND CONCEP - NO ERROR IF WRONG TYPE
36D6 ...      SMO      FX2  
36NL ...      LDX   0  ACOMMUNE1
36^6 ...      BZE   0  NOTEX               [J IF CONCEP NOT FOUND   
379L ...[                                   NOW CHECK TYPE - WE DONT LET MNAME..
37G6 ...[                                   ...DO IT AS IT WOULD NOT COME BACK  
37QL ...[                                   ...IF TYPE WAS WRONG
3836 ...      LDCT  0  #200 
38?L ...      SMO      FX2  
38J6 ...      ANDX  0  AWORK3   
38SL ...      BNZ  0  PIPB                [J IF IPB 
3956 ...      LDCT  0  #400 
39*L ...PIPB  LDX   6  0
39L6 ...      SMO      2
39WL ...      ANDX  0  6(3) 
3=76 ...      BZE   0  RTYPE              [J IF SUITABLE TYPE   
3=CL ...      MHUNTW   2,IDF,COINF  
3=N6 ...      NAME  2,CPB,CUNI  
3=YL ...      ERROR    JPARPER  
3?96 ...NOTEX   
3?G6          CALL  7  XCLOSE   
3?^Q    #   
3#FB    #   
3#^2          UPPLUS   1                   [CONCEPT NAME DOES NOT EXIST 
3*DL    [   
3*LW ...RTYPE ERX   6  CACT 
3*T6 ...      SMO      2
3B3B ...      ORS   6  6(3)               [SET CONCEP TYPE  
3B9L ...      SMO      2
3BCW          LDXC  6  4(3) 
3BF7 ...      BCS      XZOL 
3BGD ...      SEGENTRY K61XATTACH   
3BHP ...      BRN      X10  
3BK2 ...[   
3BL? ...[   
3BMJ ...[   
3BNT ...[   
3BQ6 ...[   
3BRC ...      SMO      FX2  
3BSN ...      LDX   0  AWORK3   
3BT^ ...      SLL   0  1
3BX= ...      BPZ   0  X10  
3BXW ...      LDN   0  #10  
3BYH ...      SMO      FX2  
3B^S ...      ANDX  0  CONTEXT  
3C35 ...      BZE   0  X10  
3C4B ...      CALL  7  XCLOSE   
3C5M ...      UPPLUS   7
3C6Y ...[   
3C89 ...[   
3C9G ...[   
3C=R ...[   
3C#4 ...[   
3C** ...XZOL
3CC6          LDCT  0  2                   [SET B 7 IN X+11 IN CPAT WHICH   
3CWQ          SMO      FX2                 [MEANS CONCEPTUAL ONLINE 
3DBB          ORS   0  EXT+11   
3DW2    X10   LDX   0  BRECNO(2)
3F*L          SMO      FX2  
3FT=          STO   0  AWORK1              [CONCEPTUAL RECNO
3G#W          SMO      FX2  
3GSG          STO   3  AWORK2              [CONCEPTUAL POINTER  
3H#6    [CHECK INITIALLY THAT SPECIFIED LINES ARE AVAILABLE IN CONCEPTUAL   
3HRQ    [   
3J?B          SMO      2
3JR2          SBX   6  5(3)                [LINES USED  
3K=L          BZE   6  R300                [NONE AVAILABLE  
3KQ=          SMO      2
3L9W          ADX   6  5(3)                [SIZE OF THE CONCEPTUAL  
3LPG          SMO      2
3M96          LDX   5  6(3)                [LOWEST LINE IDENTIFIER NO   
3MNQ          ANDN  5  #7777
3N8B          ADX   2  3                   [CREATE ABS POINTER  
3NN2          SMO      FX2  
3P7L          DSA   3  AWORK3              [STORE REL.POINTER TO A CELL 
3PM=          ORX   5  GSIGN
3Q6W          BRN      R50  
3QLG    RY50  ERX   5  GSIGN               [UNSET MARKER
3R66    R50   CALL  7  YREC                [POINTER TO NEXT CELL
3RKQ          BNG   5  RY50 
3S5B    #   
3SK2    #     AWORK3 CONTAINS REL.POINTER TO THE 1ST SUBSIDIARY CONCEPTUAL CELL 
3T4L    #     X2 CONTAINS ABS.POINTER TO CONC.CELL WHITHIN REC(OLD OR NEW)  
3TJ=    #     X3 CONTAINS THE SAME AS AWORK3
3W3W    #     AWORK1 - REC.NO OF REC WHERE IS THE 1ST CONCEP CELL   
3WHG    #     AWORK2 - REL POINTER TO 1ST CONC.CELL WHITHIN THAT RECORD 
3X36    #     X6 SIZE OF THE CONCEPTUAL 
3XGQ    #     X5-LOWEST LINE/IDENTIFIER NO  
3Y2B    #   
3YG2          MHUNTW   1,IDF,CONCEP        [DATA BLOCK  
3Y^L          LDX   0  A1+2(1)             [THIS APPLIES FOR SEE BELOW(IF NEG)  
3^F=          BPZ   0  VW1                 [ONE HAS TO ADD 1 TO THE LOWEST IDE  
3^YW          LDN   0  1                   [NO FOR EACH PASS
42DG          ADS   0  A1+1(1)  
42Y6    VW1   LDX   4  A1+1(1)  
43CQ          BNZ   4  SPLSP               [J IF PARTICULAR LINE SPECIFIED  
43XB          LDN   0  1                   [THIS CODE ONLY APPLIES TO FIRST PASS
44C2          NGS   0  A1+2(1)             [ WHEN NO SPECIAL LINES SPECIFIED.   
44WL          LDX   4  5                   [STORE THE LOWEST IDE NO IN A1+1 
45B=          STO   4  A1+1(1)             [OF THE CONCEPT BLOCK AND NEGATE A1+2
45TW    SPLSP SMO      FX2  
46*G          STOZ     AWORK4              [INITIALISE AWRK4
46T6          LDX   0  6
47#Q          SLL   0  12   
47SB          ORX   5  0                   [X5:B0-B11 CON.SIZE,B12-B23 LOW.L/I N
48#2          LDX   6  4                   [ANALYSED IDE.NO 
48RL    RPLYS LDX   0  5                   [LOWEST L/I NO.  
49?=          ANDN  0  #7777
49QW          SBX   4  0                   [IS THE ANALYSED L/I NO.<LOWEST L/I N
4==G          BNG   4  QUOFS
4=Q6          LDX   0  5                   [IS THE ANALYSED L/I NO.WITHIN THE   
4?9Q          SRL   0  12                  [RANGE OF THE CONCEPTUAL 
4?PB          TXL   4  0
4#92          BCC      QUOFS
4#NL    XX2   LDX   0  4
4*8=          SBN   0  7
4*MW          BNG   0  XX1  
4B7G          SBN   4  7
4BM6          CALL  7  YREC 
4C6Q          BRN      XX2  
4CLB    XX1   SMO      4                   [J. IF THIS LINE ALREADY IN USE. 
4D62          LDX   0  0(2) 
4DKL          BNZ   0  WF2  
4F5=          SMO      FX2  
4FJW          LDX   0  AWORK3              [J IF NOT IPB TO DO ATTACH   
4G4G          SLL   0  1
4GJ6          BPZ   0  R500 
4H3Q          SMO      FX2  
4HHB          LDX   0  EXT+11   
4J32          SLL   0  7
4JGL          BPZ   0  R500                [J IF IPB AND NOT ONLINE 
4K2=          MHUNTW   1,GOUT,COMP         [BLOCK WHERE ARE STORED ALL REGISTERS
4KFW          LDN   0  1                   [CHECK WHETHER THE CONCEPTUAL
4K^G          LDN   1  A1(1)               [IDENTIFIER IS NOT STILL USED BY 
4LF6          MOVE  0  7                   [AN OBJECT PROGRAM   
4LYQ          LDX   1  IPBADDR  
4M49 ...
4M7N ...XX8   LDCT  0  1
4M?7 ...      SRL   0  1
4MBL ...      ANDX  0  IPBSW(1) 
4MG5 ...      BZE   0  XX7  
4MN2 ...      LDX   1  IPBL(1)  
4MTX ...      BRN      XX8  
4N3S ...XX7   HUNTW    3,IDF,COINF  
4N9P ...      LDX   0  ANUM(3)             [CHECK WHETHER THE CONCEPTUAL NAME   
4NCL          ADN   0  3                   [IN CROUTE CORRESPONDS TO THE ONE
4NX=          SRL   0  2                   [IN COINF
4PBW          SBN   0  2
4PWG          LDX   6  ACES 
4QB6          LDX   7  ACES 
4QTQ          LDX   5  APARA(3)            [PICK UP NAME WE'RE LOOKING FOR  
4R*B          BNG   0  SATE1               [(SPACEFILLED TO 12 CHARACTERS). 
4RT2          LDX   6  APARA+1(3)   
4S#L          BZE   0  SATE1
4SS=          LDX   7  APARA+2(3)   
4T?W    SATE1 LDX   2  1
4TRG          HUNT2J   1,AMXOR,CROUTE,,XX6  
4W?6          LDEX  4  ARINGNO(1)          [NO. OF ENTRIES IN CROUTE BLOCK. 
4WQQ    SATE2 TXU   5  A1+CONNM(1)         [TEST NAME AGAINST THIS ENTRY.   
4X=B          TXU   6  A1+CONNM+1(1)
4XQ2          TXU   7  A1+CONNM+2(1)
4Y9L          BCC      SOK                 [J. IF FOUND.
4YP=          ADN   1  CROUTELEN           [OTHERWISE STEP ON TO NEXT.  
4^8W          BCT   4  SATE2
4^NG ...XX6   CALL  7  ZONLR               [UNSET ONLINE MARKER 
5286 ...      CALL  7  XCLOSE   
52MQ ...      UPPLUS   8
537B ...[                                   BEING ONLINED OR RELEASED - ERROR PA
53^C    SOK   LDX   7  2
54?S          LDX   1  A1+FPTR(1)          [POINTER TO CSTATE BLOCK ENTRY   
54L=          ADX   1  BSTART(1)           [POINTER TO THE TOP OF CSTATE
555W          LDX   1  A1+FPTR(1)          [POINTER TO A1 OF CONDCB 
55KG          MHUNTW   3,GOUT,COMP  
5656          MHUNTW   2,IDF,CONCEP 
56JQ          SMO      FX2  
574B          LDX   0  AWORK4   
57J2          SMO      0
583L          LDX   0  A1+1(2)  
58H=          ANDN  0  #7777
592W          SBX   0  IDNUM(1)            [MINUS LOWEST IDE NO ON THE CONCEPTUA
59GG          SMO      FX1  
5=26          MPA   0  RIDICON             [POINTER TO THE CONCEPTUAL ENTRY 
5=FQ ...      IPBATTACH 1,RSOS,7,,QUOFS 
5=^B    NONLI LDN   0  A1(3)
5?F2          LDN   1  1
5?YL          MOVE  0  7
5#D=          BRN      R500 
5#XW    [   
5*CG    RSOS  LDN   0  A1(3)
5*X6          LDN   1  1
5BBQ          MOVE  0  7
5BWB    WF2   MHUNTW   1,IDF,CONCEP 
5CB2          SMO      FX2  
5CTL          LDX   0  AWORK4   
5D*=          ADN   0  1                   [POINTER TO THE CONCEP BLOCK ENTRY   
5DSW          ADX   1  0
5F#G          SMO      FX2  
5FS6          STO   0  AWORK4   
5G?Q          LDX   0  A1+1(1)             [NEXT L/I NO 
5GRB          BPZ   0  WF1  
5H?2          ADN   4  1
5H*9          LDX   0  5
5HCD          SRL   0  12   
5HFM          ADX   0  5
5HHW          ANDN  0  #7777
5HK* ...      SBN   0  2
5HLS ...      SBX   0  A1(1)
5HN#          BNG   0  R300 
5HQL          LDN   0  1
5J==          ADS   0  A1(1)
5JPW          SMO      FX2  
5K9G          STOZ     AWORK4   
5KP6          BRN      XX2  
5L8Q    [   
5LNB    WF1   BZE   0  R300 
5LQ5 ...      LDX   6  5
5LRS ...      ANDN  6  #7777
5LTH ...      BXL   0  6,QUOFS             [J. LESS THAN LOWEST L-I.
5LX= ...      LDX   7  5
5LY^ ...      SRL   7  12                  [X7 = NO. OF SLOTS   
5M2N ...      ADX   7  6                   [ADD. ON LOWEST L-I  
5M4C ...                                   [X7- GREATEST L-I
5M66 ...      BXGE  0  7,QUOFS             [J. OUT OF RANGE 
5M82          SBX   0  A1(1)               [MINUS LAST L/I NO   
5MML          ADX   4  0
5N7=          BRN      XX2  
5NLW    [   
5P6G    QUOFS CALL  7  XCLOSE   
5PL6          MHUNTW   1,IDF,CONCEP 
5Q5Q          LDX   4  A1+1(1)  
5QKB          SMO      FX2  
5R52          STO   4  ACOMMUNE1
5R#S ...      CALL  7  ZONLR
5RJL          UPPLUS   5
5S4=    [   
5SHW    R300  CALL  7  XCLOSE              [NO LINES AVAILABLE  
5SRN ...      CALL  7  ZONLR                [UNSET ONLINE MARKER
5T3G          UPPLUS   3
5TH6    [   
5W2Q    R500  STO   4  5                   [POINTER WITHIN THE CONCEP CELL  
5WGB          MHUNTW   1,IDF,CONCEP 
5X22          SMO      FX2  
5XFL          ADX   1  AWORK4   
5X^=          LDX   4  A1+1(1)             [LINE/IDE NO 
5YDW    R501  SMO      FX2  
5YYG          STO   4  ACOMMUNE6
5^D6          TRACE    4,LINENO 
5^XQ    [STORE  LINE MARKER IN CONCEPTUAL LIST  
62CB                                       [LOCAL POINTER   
62X2          SMO      FX2  
63BL          LDX   3  AWORK3   
63W=          ANDN  3  #7777
64*W          SBX   2  3                   [POINTER TO THE BEG.OF REC.WHERE THE 
64TG                                       [CONC.L/I REQ FOUND  
65*6          SMO      FX2  
65SQ          STO   3  AWORK4              [REL.POINTER TO THE CELL WITHIN THE  
66#B                                       [RECORD,WHERE THE CONC L/I FOUND 
66S2          LDX   0  BRECNO(2)
67?L          SMO      FX2  
67R=          DSA   0  AWORK3              [RECORD NO-OF THE RECORD WHERE THE   
68=W                                       [REQ L/I NO FOUND
68QG          MHUNTW   1,IDF,CONCEP 
69=6          LDX   6  A1(1)               [LINE/IDENT NO AND GEOGR NO  
69PQ          LDX   4  6
6=9B          ANDN  4  #7777
6=P2          LDX   2  FX2  
6?8L          STOZ     1
6?N=    X20   HUNT2    2,FILE,FRRB  
6#7W          ADN   2  A1   
6#MG          BXE   1  BRECNO(2),X30       [LOCATE ZERO RECORD  
6*76          SBN   2  A1   
6*LQ          BRN      X20  
6B6B    X30   SMO      FX2  
6BL2          LDX   0  AWORK3   
6C5L          SLL   0  1
6CK=          BPZ   0  SPGL                [J IF IPB ELSE MPX   
6D4W          LDN   3  BIPB 
6DJG          BRN      ZHRZ 
6F46    SPGL  LDN   3  BUNIT
6FHQ    ZHRZ  CALL  7  SEARCH   
6G3B    X40   LDX   4  6
6GH2          SRL   4  12                  [LINE NO 
6H2L    X42   LDN   3  BLINE(3)            [LOCATE IDE CELL OR  
6HG=          CALL  7  SEARCH              [LOCATE LINE CELL
6H^W          SMO      2
6JFG          LDX   0  CONTCEP(3)   
6J^6          BZE   0  X45                 [
6KDQ          CALL  7  XCLOSE   
6KNJ ...      CALL  7  ZONLR                [UNSET ONLINE MARKER
6KYB          UPPLUS   4
6LD2    [   
6LXL    X45   SMO      FX2  
6MC=          STO   2  ACOMMUNE2
6MWW    [INSERT LINE POINTER IN CONCEPTUAL CELL AND VICE VERSA  
6NBG    [   
6NW6    [AWORK1,AWOR2,ARE CONCEPTUAL CELL MARKERS   
6P*Q    [AWORK3,AWORK4,ARE LINE POSITION IN CONCEPTUAL MARKERS  
6PTB    [X2,X3  LINE CELL MARKERS,X5 POSION IN LINE CONCEPTUAL  
6Q*2          SMO      FX2  
6QSL          LDX   0  AWORK1              [     CONCEPTUAL 
6R#=                                       [J IF NOT IN SAME RECORD 
6RRW          LDX   1  0
6S?G          SLL   1  9
6SR6          SMO      FX2  
6T=Q          ADX   1  AWORK2   
6TQB          TXU   0  BRECNO(2)
6W=2          BCS      X900                [J IF IN OTHER RECORD
6WPL          SMO      2
6X9=          STO   1  CONTCEP(3)          [CONCEPTUAL POINTER IN LINE CELL 
6XNW    [   
6Y8G    [INCREASE NO OF LINES USED  
6YN6          SMO      FX2  
6^7Q          LDX   1  AWORK2   
6^MB          LDN   7  1
7272          SMO      2
72LL          ADS   7  5(1) 
736=    [SET LINE POINTER IN CORRECT LOCATION IN CONCEPTUAL LIST
73KW    X85   SMO      FX2  
745G          LDX   0  AWORK3   
74K6          ANDN  0  #7777
754Q          TXU   0  BRECNO(2)
75JB          BCS      X5000               [NOT IN SAME RECORD  
7642          ADX   5  2                   [CORRECT POSITION IN CELL
76HL    [   
773=    X88   SLL   0  9
77GW    X89   ADX   0  3
782G          SMO      FX2  
78G6          LDX   1  AWORK4   
78^Q          SMO      5
79FB          STO   0  0(1) 
79^2    [END
7=DL    X90   IDFWRITE  
7=Y=          CALL  7  XCLOSE   
7?CW          MHUNTW   3,IDF,COINF  
7?XG          LDX   0  ACOMMUNE6(2)        [LINE NO USED
7#C6          STO   0  ACOMMUNE1(2)        [LINE/IDENT NO   
7#WQ          SLL   0  12   
7*BB          ORS   0  JPARNUM(3)   
7*W2          LDX   0  EXT+11(2)
7B*L          SLL   0  7
7BT=          BNG   0  XROB                [BRANCH IF CONCEPTUAL ONLINE 
7C#W          UPPLUS   6
7CSG    [   
7D#6    [   
7DRQ    XROB  LDCT  0  2
7F?B          ERS   0  EXT+11(2)           [CLEAR ONLINE BIT
7FR2    [   
7G=L          UPPLUS   2                   [ATTACH FROM OPERATOR'S CONSOLE  
7GQ=    NLTL  CALL  7  XCLOSE   
7H9W          SMO      FX2  
7HPG          STO   4  ACOMMUNE1           [CONCEPTUAL L/I NO   
7H^# ...      CALL  7  ZONLR                [UNSET ONLINE MARKER
7J96          UPPLUS   5
7JNQ    [   
7K8B    [   
7KN2    X900  LDX   0  GSIGN
7L7L          ORX   0  1
7LM=          SMO      2
7M6W          STO   0  CONTCEP(3)   
7MLG    [LOCATE CONCEPTUAL  
7N66          LDX   1  FX2  
7NKQ          LDX   6  AWORK1(1)
7P5B          LDX   7  AWORK2(1)
7PK2    X925  HUNT2    1,FILE,FRRB  
7Q4L          ADN   1  A1   
7QJ=          TXU   6  BRECNO(1)
7R3W          BCC      X950 
7RHG          SBN   1  A1   
7S36          BRN      X925 
7SGQ    [   
7T2B    X950  LDN   0  1
7TG2          SMO      7
7T^L          ADS   0  5(1) 
7WF=    [SET  LINE/CONCEPTUAL POINTER   
7WYW          BRN      X85  
7XDG    [   
7XY6    X5000 LDX   1  FX2  
7YCQ          LDX   6  AWORK3(1)
7YXB          ANDN  6  #7777
7^C2    X5100 HUNT2    1,FILE,FRRB  
7^WL          ADN   1  A1   
82B=          TXU   6  BRECNO(1)
82TW          BCC      X5200
83*G          SBN   1  A1   
83T6          BRN      X5100
84#Q    X5200   
84SB          ADX   5  1
85#2          LDX   0  BRECNO(2)
85RL          SLL   0  9
86?=          ORX   0  GSIGN
86QW          BRN      X89  
87=G    [   
87Q6    [THIS SECTION DEALS WITH THE PROCESSING OF THE DETACH COMMAND   
889Q    [   
88PB    [   
8992    X20XATTACH  
89NL          LDX   4  ACOMMUNE1(2)        [GEO.UNIT NO.
8=8=          LDX   5  ACOMMUNE5(2) 
8=MW          LDX   6  4
8?7G          ANDN  4  #777 
8?M6          CALL  7  ZOPEN               [OPEN IDF
8#6Q          SMO      FX2  
8#LB          LDX   0  AWORK3   
8*62          BNG   0  XRIT 
8*KL          LDN   3  BUNIT
8B5=          BRN      XRIT+1   
8BJW    XRIT  LDN   3  BIPB 
8C4G          CALL  7  SEARCH              [LOCATE UNIT 
8CJ6          LDX   4  6                   [LINE NO 
8D3Q          SRL   4  12                  [LINE NO 
8DHB          LDN   3  BLINE(3)            [LOCATE IDE OR   
8F32          CALL  7  SEARCH              [LOCATE LINE 
8FGL          SMO      2
8G2=          LDX   0  5(3)                [CONCEPTUAL POINTER  
8GFW          BNZ   0  PQR  
8G^G          CALL  7  XCLOSE   
8HF6          UPPLUS   1
8HYQ    [   
8JDB    [   
8JY2    PQR   LDX   6  BRECNO(2)
8KCL          SLL   6  9
8KX=          ADX   6  3                   [LINE POINTER FOR RETURN 
8LBW          STO   0  3
8LWG          CALL  7  YREC1               [LOCATE CONCEPTUAL CELL  
8MB6          LDX   0  4(2)                [ONLINE B0 AND SIZE OF THE CONCEPTUAL
8MTQ          BPZ   0  P40  
8N*B          BNG   5  P40  
8NP5 ...      LDCT  0  2
8P4S ...      SMO      FX2  
8PDH ...      ORS   0  EXT+11              [SET MARKER TO SHOW ONLINE   
8PS=    [   
8Q?W    [   
8QRG    P40   LDX   0  5(2)                [NO OF LINES USED
8R?6          SBN   0  1                   [SUBTRACT ONE AND J IF NOT THE LAST  
8RQQ          BNZ   0  ZX2  
8S=B          LDX   4  6(2) 
8SQ2          ANDN  4  #7777               [WHEN NO LINES LEFT IN USE   
8T9L          BCT   4  ZX2                 [SET THE CONCEPTUAL NEUTRAL  
8TP=          LDN   4  1                   [IF THE LOWEST LINE/IDE NO =1.   
8W8W          STO   4  6(2) 
8WNG    ZX2   STO   0  5(2) 
8X86    [SEARCH FOR  LINE ENTRY IN CONCEPTUAL   
8XMQ          LDXC  5  GSIGN               [STEP PAST USER NAME CELL.   
8Y7B    P70   LDN   5  1
8YM2          CALL  7  YREC 
8^6L          LDN   3  0
8^L=          BCT   5  P70  
925W    [   
92KG    [   
9356    P50   SMO      2
93JQ          LDX   0  0(3) 
944B          SBXC  0  6
94J2          BZE   0  P90  
953L          SMO      FX1  
95H=          TXU   3  SIX                 [J. IF END OF CELL   
962W          BCC      P70  
96GG          BUX   3  P50  
9726    [   
97FQ    P90   SMO      2
97^B          LDX   6  0(3) 
98F2          SMO      2
98YL          STOZ     0(3) 
99D=          LDX   3  6
99XW          SMO      FX2  
9=CG          LDX   0  AWORK3   
9=X6          ANDN  0  #7777
9?BQ          SBX   2  0
9?WB          CALL  7  YREC1
9#B2          STOZ     CONTCEP(2)   
9#TL          IDFWRITE                     [ALL OK,END  
9**=          CALL  7  XCLOSE   
9*SW          UPPLUS   3
9B#G    [   
9BS6    [   
9C?Q    [   
9CRB    X21XATTACH  
9D?2          CALL  7  ZOPEN               [OPEN IDF
9DQL          SMO      FX2  
9F==          STOZ     ACOMMUNE1
9FPW          STOZ     3
9G9G          MNAME    2,3  
9GP6          SMO      FX2  
9H8Q          LDX   0  ACOMMUNE1           [DOES THE CONCEPT EXIST IN IDF   
9HNB          BNZ   0  RF3  
9J82          CALL  7  XCLOSE   
9JML          UPPLUS   1                   [IF NOT ERROR
9K7=    #   
9KLW    RF3   LDX   4  BRECNO(2)           [MOVE FROM THE 1ST CONCEPTUAL CELL   
9L6G          SETNCORE 10,1,FILE,FABSNB    [THE CONCEPT NAME WHICH IS THE   
9LL6          STO   4  ACOMMUNE3(2)        [LOCAL NAME OF A FILE TO FILE
9M5Q          NEW      2                   [FABSNB BLOCK
9MKB          LDX   5  2
9N52          STOZ     A1+7(1)  
9NJL          STOZ     A1+8(1)  
9P4=          STOZ     A1+9(1)  
9PHW          ADX   2  3                   [THE CONCEPT.NAME = LOCAL NAME OF
9Q3G          LDN   6  1(2)                [A FILE TO FILE FABSNB BLOCK 
9QH6          LDN   7  A1+4(1)  
9R2Q          MOVE  6  3
9RGB          LDX   3  7(2) 
9S22          BNZ   3  RF2  
9SFL          GEOERR   1,USNCELLM   
9S^=    RF2   LDX   2  5
9TDW          CALL  7  YREC1               [MOVE FROM THE 2ND CONCEPTUAL CELL   
9TYG          MHUNTW   1,FILE,FABSNB       [NAME INTO FILE FABSNB BLOCK 
9WD6          LDN   6  0(2) 
9WXQ          LDN   7  A1+1(1)  
9XCB          MOVE  6  3
9XX2          LDN   0  10   
9YBL          STO   0  A1(1)
9YW=          CALL  7  XCLOSE   
9^*W          UPPLUS   2
9^TG    UNOF  GEOERR   1,UNOF              [DCA NOT FOUND   
9^YL ...[   
=23Q ...[   
=26W ...ZZBRKIN 
=2=2 ...      UP                           [BREAKIN EXIT
=2*6    [   
=2SQ    [   
=3#B    [   
=3S2          MENDAREA 50,K100XATTACH   
=4?L    [   
=4R=    [   
=5=W    [   
=5QG    #END
^^^^ ...65376730000900000000
</code>