Show pageBacklinksBack to top This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong. {{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> Last modified: 17/01/2024 11:55by 127.0.0.1 Log In