10 22FL ... SEG IDFOFF,,ANDREW PUTMAN 13 22PD ...# COPYRIGHT INTERNATIONAL COMPUTERS 1982 7 22_= #OPT K0IDFOFF=0 16 23DW #LIS K0IDFOFF>K0ALLGEO>K0GREATGEO>K0COMMAND>K0IDF 11 23YG SEGENTRY K1IDFOFF,XIDF1 11 24D6 SEGENTRY K21IDFOFF,XIDF21 11 24XQ SEGENTRY K2IDFOFF,XIDF2 11 25CB SEGENTRY K22IDFOFF,XIDF22 11 25X2 SEGENTRY K20IDFOFF,XIDF20 11 26BL SEGENTRY K40IDFOFF,XIDF40 11 26W= SEGENTRY K81IDFOFF,XIDF81 11 27*W SEGENTRY K80IDFOFF,XIDF80 11 27TG SEGENTRY K91IDFOFF,XIDF91 11 28*6 SEGENTRY K90IDFOFF,XIDF90 7 28CP ...#UNS ISUMBI 4 28G# ...( 14 28JX ... SEGENTRY K70IDFOFF,XIDF70 [IRIGHT 14 28MG ... SEGENTRY K75IDFOFF,XIDF75 [IWRONG 4 28Q5 ...) 11 28RC ... SEGENTRY K23IDFOFF,XIDF23 20 28SQ [THIS SEGMENT NEUTRALISES ONLINE/MOP MARKERS IN CONCEPTUAL BLOCKS 11 29#B [AND THEIR ASSOCIATED LINE CELLS 4 29S2 [ 4 2=?L [ 9 2=R= TALL #7777777 5 2?=W RECFIND 10 2?QG HUNT2 2,FILE,FRRB 10 2#=6 TXU 6 BRECNO+A1(2) 9 2#PQ BCS RECFIND 8 2*9B ADN 2 A1 7 2*P2 EXIT 7 0 4 2B8L [ 18 2BN= XNAME SBX 7 FX1 [FREES ALL BUT UNIT CELL 8 2C7W SBN 2 A1 10 2CMG NAME 2,FILE,FRWB 10 2D76 OT HUNT 2,FILE,FRRB 8 2DLQ BNG 2 OUT 7 2F6B FREECORE 2 8 2FL2 BRN OT 4 2G5L OUT 10 2GK= MHUNTW 2,FILE,FRWB 10 2H4W NAME 2,FILE,FRRB 8 2HJG ADN 2 A1 8 2J46 ADX 7 FX1 7 2JHQ EXIT 7 0 4 2K3B [ 4 2KH2 [ 21 2L2L [THIS SUBROUTINE LOCATES THE FILESTORE RECORD WHOSE POINTER IS IN IDF 21 2LG= [FORMAT IN X3.THE RESULT IS A POINTER IN X2 TO A1+START OF APPROPRIATE 15 2L_W [FILE/FRRB,X3 POINTS TO CELL WITHIN THE RECORD 4 2MFG YREC 19 2M_6 BPZ 3 YSAME [J IF POINTER IN SAME RECORD 15 2NDQ YREC1 SBX 7 FX1 [ADJUST LINK 7 2NYB LDX 0 3 7 2PD2 SRL 0 9 8 2PXL ANDN 0 #777 8 2QC= LDX 2 FX2 10 2QWW STO 0 ACOMMUNE3(2) 18 2RBG MXB 2 [LOCATE CORRECT RECORD 16 2RW6 ADX 7 FX1 [READJUST LINK 5 2S*Q YSAME 15 2STB ANDN 3 #777 [CELL POINTER 7 2T*2 EXIT 7 0 4 2TSL ZIDF 8 2W#= SBX 7 FX1 8 2WRW IDFOPEN XBRK 8 2X?G ADX 7 FX1 7 2XR6 EXIT 7 0 14 2Y2Y XBRK UP [BRK-IN 4 2Y=Q [ 16 2YQB SEARCH [LOCATE UNIT/LINE 8 2_=2 SBX 7 FX1 8 2_PL MSEARCH 2,3,4 8 329= SMO FX2 9 32NW LDX 0 ACOMMUNE1 8 338G BNZ 0 S1 9 33N6 GEOERR 1,UNIT 4 347Q S1 8 34MB ADX 7 FX1 7 3572 EXIT 7 0 4 35LL [ 4 366= [ 17 367S ...TEIDF SMO FX2 [TEST IF IDF TO BE LEFT OPEN 13 369B ... LDX 0 AWORK4 [AW4 = 0 IF SO 8 36=Y ... BZE 0 (7) 7 36#G ... EXIT 6 0 5 36B4 ...ZCLOSE1 8 36CL ... CALL 6 TEIDF 9 36F8 ... BRN ZCLOSE 5 36GQ ...WRITE1 19 36J# ... CALL 6 TEIDF [DO NOT WRITE IDF IF OPEN ON ENTRY 4 36KW [ 5 375G WRITE 8 37K6 SBX 7 FX1 7 384Q IDFWRITE 8 38JB BRN ZCL 5 3942 ZCLOSE 8 39HL SBX 7 FX1 9 3=3= MFREEALL FILE,FRRB 6 3=GW ZCL CLOSE 8 3?2G ADX 7 FX1 7 3?G6 EXIT 7 0 4 3?_Q [ 4 3#FB [ 11 3#_2 [ENTRY POINT FORM IDFOFF MACRO 5 3*DL XIDF1 20 3*Y= LDX 6 ACOMMUNE1(2) [EITHER ZERO OR BLOCK TYPE WORD 17 3BCW LDX 5 ACOMMUNE2(2) [POSITION DOWN BLOCK 10 3BXG LDX 4 ACOMMUNE4(2) 8 3CC6 ... CALL 7 ZIDF 8 3CWQ SMO FX2 9 3DBB STO 6 ACOMMUNE1 16 3DW2 LDX 2 5 [IN CASE NEEDED 18 3F*L LDN 3 0 [SEARCH CONCEPTUAL CHAIN 18 3FT= MNAME 2,3 [SEARCH FOR CONCEPTUAL 8 3G#W SMO FX2 9 3GSG LDX 0 ACOMMUNE1 16 3H#6 BNZ 0 T40 [OK CONCEPTUAL 9 3HRQ GEOERR 1,NAME 4 3J?B [ 4 3JR2 [ 4 3K=L [ 4 3KQ= T40 7 3L9W SMO 2 8 3LPG LDX 0 4(3) 8 3M96 BNG 0 T45 9 3MNQ CALL 7 ZCLOSE 7 3MYJ ... UPPLUS 1 4 3NN2 T45 9 3P7L LDX 5 TALL(1) 7 3PM= SMO 2 8 3Q6W ANDS 5 4(3) 8 3QLG BZE 4 XWRT 7 3R66 SMO 2 8 3RKQ STOZ 5(3) 7 3S5B SMO 2 8 3SK2 LDX 0 6(3) 8 3T4L ANDN 0 #7777 8 3TJ= BCT 0 XIPB 7 3W3W LDN 0 1 7 3WHG SMO 2 8 3X36 STO 0 6(3) 7 3XGQ XIPB SMO 2 18 3Y2B LDX 3 7(3) [LD. PTR. TO USER NAME. 8 3YG2 CALL 7 YREC 7 3Y_L XST SMO 2 8 3_F= LDX 3 7(3) 17 3_YW BZE 3 XWRT [J.END OF CONCEPTUAL. 7 42DG LDN 6 0 9 42Y6 ANDX 3 BITS22LS 8 43CQ SMO FX2 20 43XB STO 3 AWORK1 [ST. AWORK1 = CURRENT CELL PTR. 8 44C2 CALL 7 YREC1 7 44WL XCONT SMO 2 8 45B= LDX 0 0(3) 8 45TW BZE 0 XPOS 7 46*G SMO 2 8 46T6 STOZ 0(3) 7 47#Q LDX 3 0 8 47SB CALL 7 YREC 7 48#2 SMO 2 18 48RL STOZ CONTCEP(3) [ZEROISE PTR. CONCEPTUAL. 8 49?= SMO FX2 9 49QW LDX 3 AWORK1 19 4==G CALL 7 YREC1 [HUNT FOR CURRENT CONCEPTUAL 7 4=Q6 ADX 3 6 7 4?9Q XPOS SBN 6 6 8 4?PB BZE 6 XRET 7 4#92 ADN 6 7 19 4#NL ADN 3 1 [INCREASE POSITION DOWN CELL 8 4*8= BRN XCONT 7 4*MW XRET SBN 3 6 8 4B7G BRN XST 8 4BM6 XWRT CALL 7 WRITE 7 4BWY ... UPPLUS 2 4 4CLB [ 4 4D62 [ 18 4DKL ...[RELEASE A UNIT AFTER ONLINE.DEVICE LIST PTR IN ACOMMUNE1 4 4F5= [ 5 4FJW XIDF21 17 4G4G LDN 3 BIPB [BASE OF IPB CHAIN 8 4GJ6 BRN Q1 5 4H3Q XIDF2 17 4HHB LDN 3 BUNIT [BASE OF UNIT CHAIN 15 4J32 Q1 LGEOG ACOMMUNE1(2),4 [GET GEOG NO. 14 4JGL ... CALL 7 ZIDF [OPEN IDF 15 4K2= CALL 7 SEARCH [LOCATE UNIT 9 4KFW LDX 0 TALL(1) 7 4K_G SMO 2 19 4LF6 ANDS 0 BNUMB(3) [REMOVE OL BIT-NO MOPPED ON 19 4LYQ [OR WRONGED BITS THERE 8 4MDB CALL 7 XNAME 16 4MY2 CALL 7 WRITE [WRITE IT BACK 7 4N7S ... UPPLUS 1 4 4NX= [ 11 4PBW [ENTRY POINT FROM MOPOFF MACRO 14 4PD7 ...XIDF23 [ ZMOPOFF MACRO 15 4PFD ... LDX 3 ACOMMUNE1(2) [GET IDF POINTER 17 4PGP ... STOZ AWORK4(2) [SHOW IDF NOT TO BE CLOSED 14 4PJ2 ... CALL 7 YREC1 [FIND UNIT CELL 9 4PK? ... LDX 0 BRECNO(2) 8 4PLJ ... SMO FX2 18 4PMT ... STO 0 AWORK1 [SAVE PTRS TO UNIT CELL 8 4PP6 ... SMO FX2 9 4PQC ... STO 3 AWORK2 8 4PRN ... BRN R01 4 4PS_ ...[ 5 4PWG XIDF22 17 4QB6 LDN 3 BIPB [BASE OF IPB CHAIN 8 4QTQ BRN Q2 5 4R*B XIDF20 17 4RT2 LDN 3 BUNIT [BASE OF UNIT CHAIN 4 4RXM ...Q2 19 4RY_ ... STO 1 AWORK4(2) [SHOW IDF TO BE CLOSED AT END 11 4SCN ... LGEOG ACOMMUNE1(2),4 14 4T56 ...Q2NCI CALL 7 ZIDF [OPEN IDF 16 4T?W CALL 7 SEARCH [LOCATE UNIT CELL 8 4TRG SMO FX2 9 4W?6 STO 3 AWORK2 9 4WQQ LDX 0 BRECNO(2) 8 4X=B SMO FX2 9 4XQ2 STO 0 AWORK1 14 4XWD ... FMOPG 1,4,IPB [HUNT IPB 17 4Y2W ... BNG 1 R01 [NOT IPB GEOG. NO. 8 4Y7# ... LDCT 0 #20 20 4Y?Q ... ANDX 0 IPBSW(1) [TEST BIT 4 - BEING MOPPED OFF 16 4YD8 ... BNZ 0 R02 [J. IF SET ERROR 7 4YJL ...R01 SMO 2 9 4YP= LDX 0 BNUMB(3) 15 4_8W ... BNG 0 R10 [MOPPED ON 9 4_GL ...R02 CALL 7 ZCLOSE1 15 5286 UPPLUS 1 [NOT MOPPED 4 52MQ R10 7 537B SMO 2 9 53M2 LDX 3 BLINE(3) 6 53S8 ...#UNS CRAMP 16 53_B ... BZE 3 R42 [J IF NO IDENTS 4 546L R25 16 54L= CALL 7 YREC [LOCATE LINE CELL 18 555W STO 3 4 [KEEP LINE CELL POINTER 7 55KG SMO 2 10 5656 LDX 3 CONTCEP(3) 17 56JQ BZE 3 R40 [J.IF NOT ATTACHED 17 574B LDX 6 BRECNO(2) [KEEP LINE RECORD NO 8 57J2 CALL 7 YREC 17 57MX ... BSON EMSBIT,R30 [NO CL ONLINE AT EMS... 19 57RS ... [BUT ONLINE BIT MAY BE SET... 19 57XP ... [IF IDFCLEAN NOT YET ENTERED 7 583L SMO 2 8 58H= LDX 0 4(3) 17 592W BPZ 0 R30 [J.IF CONCEP NOT O 16 59?_ ... CALL 7 ZCLOSE1 [OTHERWISE ERROR 6 59K5 ...#UNS CRAMP 20 59MN ... SETREP2 CONCONL [SET REPLY FOR MOPCOM TO CHECK 7 5=26 UPPLUS 1 7 5=FQ R40 LDX 3 4 8 5=_B BRN R41 7 5?F2 R30 LDX 5 6 7 5?YL SLL 5 9 7 5#D= ADX 5 4 7 5#XW LDN 0 1 7 5*CG SMO 2 8 5*X6 SBS 0 5(3) 7 5BBQ SMO 2 8 5BWB LDX 0 5(3) 18 5CB2 BNZ 0 R301 [J. LNS. STILL ATTACHED. 7 5CFX ... SMO 2 8 5CKS ... LDX 0 6(3) 17 5CPP ... BPZ 0 R300 [J. IF MPX CONCEPTUAL 8 5CTL ... ANDN 0 #7777 7 5C_H ... SBN 0 1 20 5D5D ... BNZ 0 R301 [J. IF LOWEST IDENTIFIER NOT = 1 8 5D9* ...R300 LDN 0 #7777 7 5D*= SMO 2 18 5DSW ANDS 0 6(3) [SET CONCEPTUAL NEUTRAL 7 5F#G R301 SMO 2 8 5FS6 LDX 3 7(3) 8 5G?Q CALL 7 YREC 7 5GRB R31 SMO 3 8 5H?2 LDX 3 7(2) 8 5HQL BZE 3 R33 8 5J== CALL 7 YREC 7 5JPW LDN 7 7 7 5K9G R32 SMO 2 8 5KP6 LDX 0 0(3) 9 5L8Q ANDX 0 BITS22LS 8 5LNB BXE 0 5,R34 7 5M82 ADN 3 1 7 5MML SBN 7 1 8 5N7= BNZ 7 R32 7 5NLW SBN 3 7 8 5P6G BRN R31 9 5PL6 R33 GEOERR 1,LINEERR 7 5Q5Q R34 SMO 2 8 5QKB STOZ 0(3) 8 5R52 LDX 2 FX2 9 5RJL CALL 7 RECFIND 7 5S4= LDX 3 4 7 5SHW SMO 2 10 5T3G STOZ CONTCEP(3) 4 5TH6 R41 7 5W2Q SMO 2 16 5WGB LDX 3 0(3) [FORWARD POINTER 16 5X22 BNZ 3 R25 [J.FOR NEXT LINE 6 5X78 ...#UNS CRAMP 4 5X#B ...R42 20 5XFL LDX 2 FX2 [OTHERWISE NO LINES OL AS CONCEP 9 5X_= LDX 6 AWORK1(2) 9 5YDW LDX 3 AWORK2(2) 16 5YYG CALL 7 RECFIND [FIND UNIT RECORD 7 5_D6 ADX 3 2 7 5_XQ NGNC 6 1 16 62CB ANDS 6 BNUMB(3) [CLEAR MOP BIT 15 62X2 LDCH 4 BTYPE(3) [PICK UP TYPE 20 63BL SBN 4 #30 [USE X4 AS SWITCH:ZERO FOR 7900 9 63W= LDX 3 BLINE(3) 6 643D ...#UNS CRAMP 16 648L ... BZE 3 R80 [J IF NO IDENTS 4 64*W R70 16 64TG CALL 7 YREC [FIND LINE CELL 7 65*6 R72 ADX 3 2 16 65SQ ANDS 6 BNUMB(3) [CLEAR MOP BIT 8 66#B BZE 4 R75 16 66S2 LDX 5 0(3) [PTR TO NEXT LINE 14 67?L LDX 3 BLINE(3) [7020 PTR 16 67R= BZE 3 R74 [J.IF NO 7020'S 20 68=W R76 CALL 7 YREC [OTHERWISE MARK 7020'S MOPPED OFF 7 68QG ADX 3 2 10 69=6 ANDS 6 BTYPE+1(3) 8 69PQ LDX 3 0(3) 17 6=9B BNZ 3 R76 [J.FOR NEXT 7020 CELL 17 6=P2 BZE 5 R80 [J.IF NO MORE LINES 18 6?8L LDX 3 5 [GET BACK TO LINE CELLS 8 6?N= CALL 7 YREC1 8 6#7W BRN R72 19 6#MG R74 BZE 5 R80 [J.TO END IF NO MORE LINES 7 6*76 LDX 3 5 16 6*LQ BRN R70 [J FOR NEXT LINE 8 6B6B R75 LDX 3 0(3) 18 6BL2 BNZ 3 R70 [J FOR NEXT IDENTIFINR 4 6C5L R80 15 6CK= [END OF LIST 9 6CY8 ... CALL 7 WRITE1 14 6DTW ... UPPLUS 2 [ALL OK 4 6F46 [ 5 6FHQ XIDF40 11 6G3B LGEOG ACOMMUNE1(2),4 14 6GH2 LDX 5 ACOMMUNE2(2) [LINE NO 19 6H2L LTYPE ACOMMUNE1(2),6 [LD. TYPE OF THE UNIT INTO X6 8 6HG= SBN 6 #30 16 6H_W BZE 6 W1 [J. THIS IS IPB 18 6JFG LDN 3 BUNIT [LD. BASE OF MULT. CHAIN. 8 6J_6 ... BRN W2 18 6KDQ W1 LDN 3 BIPB [LD. BASE OF IPB CHAIN 8 6KYB ...W2 CALL 7 ZIDF 15 6LD2 CALL 7 SEARCH [LOCATE UNIT 9 6LXL LDN 3 BLINE(3) 7 6MC= LDX 4 5 15 6MWW CALL 7 SEARCH [LOCATE LINE 9 6NBG LDX 0 BRECNO(2) 7 6NW6 SLL 0 9 7 6P*Q ADX 0 3 8 6PTB SMO FX2 15 6Q*2 STO 0 AWORK2 [ST. REC.NO. 7 6QSL SMO 2 17 6R#= LDX 3 CONTCEP(3) [CONCEPTUAL POINTER 8 6RRW BNZ 3 W5 9 6S?G CALL 7 ZCLOSE 7 6SH# ... UPPLUS 1 4 6T=Q W5 17 6TQB LDX 6 BRECNO(2) [PICK UP RECORD NO 11 6W=2 SETNCORE 4,1,IDF,CONNAME 9 6WPL CALL 7 RECFIND 18 6X9= CALL 7 YREC [LOCATE CONCEPTUAL BLOCK 7 6XNW SMO 2 8 6Y8G LDX 0 4(3) 15 6YN6 BPZ 0 W10 [NOT ONLINED 14 6_7Q LDX 0 GSIGN [ONLINED 8 6_MB BRN XZ656 4 7272 W10 15 72LL STOZ 0 [NOT ONLINED 5 736= XZ656 8 73KW SMO FX2 9 745G STO 0 ACOMMUNE1 7 74K6 ADX 2 3 7 754Q ADN 2 1 10 75JB MHUNTW 3,IDF,CONNAME 8 7642 ADN 3 A1+1 21 76HL MOVE 2 3 [MOVE CONCEPTUAL NAME INTO DATA BLOK 8 773= LDX 4 3(2) 14 77GW ANDN 4 #7777 [NO. LINE 8 782G SMO FX2 9 78G6 LDX 6 AWORK2 17 78_Q ... LDX 0 5(2) [LOWEST IDENT. NO. 8 79FB ANDN 0 #7777 7 79_2 SBN 0 1 8 7=DL SMO FX2 9 7=Y= STO 0 AWORK1 8 7?CW ... LDX 3 6(2) 18 7?XG CALL 7 YREC1 [HUNT NEXT CELL USER NAME 7 7#C6 SMO 2 8 7#WQ LDX 3 7(3) 16 7*BB XA CALL 7 YREC [HUNT LINE CELL 7 7*W2 XB LDN 0 1 8 7B*L SMO FX2 9 7BT= ADS 0 AWORK1 7 7C#W SMO 2 8 7CSG LDX 0 0(3) 9 7D#6 ANDX 0 BITS22LS 15 7DRQ BXE 0 6,XE [J. IF EQUAL 7 7F?B LDX 0 4 8 7FR2 LDCT 7 #700 7 7G=L ANDX 7 0 8 7GQ= ANDN 4 #7777 7 7H9W SBN 4 1 15 7HPG BZE 4 XD [DECREASE CT. 7 7J96 SLC 7 3 7 7JNQ ADN 7 1 7 7K8B LDN 0 7 7 7KN2 SBX 0 7 8 7L7L BZE 0 XC 7 7LM= SRC 7 3 7 7M6W ADX 4 7 7 7MLG ADN 3 1 8 7N66 BRN XB 7 7NKQ XC SMO 2 8 7P5B LDX 3 1(3) 8 7PK2 BRN XA 10 7Q4L XD GEOERR 1,LOSTLINE 10 7QJ= XE MHUNTW 1,IDF,CONNAME 8 7R3W SMO FX2 9 7RHG LDX 0 AWORK1 8 7S36 STO 0 A1(1) 9 7SGQ CALL 7 ZCLOSE 7 7SQJ ... UPPLUS 2 4 7TG2 [ 4 7T_L [ 4 7WF= [ 5 7WYW XIDF81 17 7XDG LDN 3 BIPB [BASE OF IPB CHAIN 8 7XY6 BRN Q4 5 7YCQ XIDF80 17 7YXB LDN 3 BUNIT [BASE OF UNIT CHAIN 4 7_23 ...Q4 11 7_HD ... LGEOG ACOMMUNE1(2),4 17 7_LR ... LDCT 5 #500 [CHECK B0,2 (NOT CI) 14 827G Q4NCI CALL 7 ZIDF [OPEN IDF 15 82B= CALL 7 SEARCH [LOCATE UNIT 7 83*G SMO 2 9 83T6 ... ANDX 5 BNUMB(3) 8 84#Q ... BZE 5 XW20 6 84FY ...#UNS CRAMP 4 84M6 ...XW19 9 84SB CALL 7 ZCLOSE 21 85#2 UPPLUS 1 [MOPPED ON OR ONLINE AS A WHOLE UNIT 4 85RL XW20 6 85SD ...#UNS CRAMP 4 85T= ...( 4 85W4 ...# 16 85WW ...# THIS CODE IS NECESSARY AS DURING MOP ON,,NS 16 85XN ...# THE MOPPED ON MARKER IS UNSET FOR A TIME WHILE 15 85YG ...# THE 'BEING MOPPED ON' MARKER IS LEFT SET 4 85_# ...# 7 8626 ... SMO 2 9 862Y ... LDCH 1 BTYPE(3) 15 863Q ... SBN 1 #30 [CHECK IF IPB 20 864J ... BNZ 1 XW21 [J IF NOT TO MARK UNIT WRONGED 16 865B ... FMOPG 1,4,IPB [FIND AMOP/IPBIN 21 8668 ... LDCT 6 #10 [CHECK IF 'BEING MOPPED ON' MARKER 17 8672 ... ANDX 6 IPBSW(1) [SET. IF IT IS,CANNOT 15 867S ... BNZ 6 XW19 [WRONG UNIT 4 868L ...XW21 4 869D ...# 4 86== ...) 8 86?= LDCT 1 #200 7 86QW SMO 2 17 87=G ORS 1 BNUMB(3) [MARK UNIT WRONGED 8 87Q6 CALL 7 XNAME 8 889Q CALL 7 WRITE 7 88PB UPPLUS 2 4 8992 [ 4 89NL [ 4 8=8= [ 4 8=MW [ 9 8?7G [ENTRY FROM RIGHT MACRO 9 8?M6 WRONGB #57777777 5 8#6Q XIDF91 17 8#LB LDN 3 BIPB [BASE OF IPB CHAIN 8 8*62 BRN Q5 5 8*KL XIDF90 17 8B5= LDN 3 BUNIT [BASE OF UNIT CHAIN 11 8BJW Q5 LGEOG ACOMMUNE1(2),4 15 8C4G ... CALL 7 ZIDF [OPEN IDF. 15 8CJ6 CALL 7 SEARCH [LOCATE UNIT 8 8D3Q SMO FX1 9 8DHB LDX 0 WRONGB 7 8F32 SMO 2 17 8FGL ANDS 0 BNUMB(3) [CANCEL WRONGED BIT 8 8G2= CALL 7 XNAME 8 8GFW CALL 7 WRITE 7 8GPN ... UPPLUS 1 4 8HF6 # 9 8HYQ MENDAREA 40,K99IDFOFF 4 8JDB # 4 8JY2 [ 4 8KCL [ 7 8KCS ...#UNS ISUMBI 4 8KD2 ...( 4 8KD8 ...[ 4 8KDB ...[ 5 8KDJ ...ZMSEARCH 8 8KDQ ... SBX 7 FX1 9 8KDY ... TRACE 4,SEARCH 8 8KF6 ... MSEARCH 2,3,4 8 8KF# ... ADX 7 FX1 7 8KFG ... EXIT 7 0 4 8KFN ...[ 4 8KFW ...[ 7 8KG4 ...[ IRIGHT MACRO 5 8KG= ...XIDF70 7 8KGD ... LDN 0 0 8 8KGL ... BRN X7A 4 8KGS ...[ 4 8KH2 ...[ 7 8KH8 ...[ IWRONG MACRO 5 8KHB ...XIDF75 8 8KHJ ... LDCT 0 #400 4 8KHQ ...X7A 17 8KHY ... STO 0 AWORK4(2) [SAVE RI OR WR MARKER 10 8KJ6 ... LDX 0 ACOMMUNE1(2) 17 8KJ# ... STO 0 AWORK3(2) [IDENTIFIER NUMBER 12 8KJG ... TRACE ACOMMUNE2(2),DEVLIST 12 8KJN ... TRACE ACOMMUNE1(2),IDENTIFR 8 8KJW ... LDN 3 BIPB 15 8KL2 ... LGEOG ACOMMUNE2(2),4 [GET GEOG NO 4 8KL8 ...X7B 8 8KLB ... CALL 7 ZIDF 17 8KLJ ... CALL 7 ZMSEARCH [AND LOOK FOR 'UNIT' 8 8KLQ ... SMO FX2 9 8KLY ... LDX 6 ACOMMUNE1 15 8KM6 ... BNZ 6 X7C [J IF FOUND 9 8KM# ... GEOERR 1,UNITILL 4 8KMG ...X7C 8 8KMN ... SMO FX2 14 8KMW ... LDX 4 AWORK3 [ID NO 8 8KN4 ... ADN 3 BLINE 17 8KN= ... CALL 7 ZMSEARCH [SEARCH FOR ID CELL 8 8KND ... SMO FX2 9 8KNL ... LDX 0 ACOMMUNE1 15 8KNS ... BNZ 0 X7D [J IF FOUND 10 8KP2 ... GEOERR 1,IDENTILL 4 8KP8 ...X7D 7 8KPB ... ADX 3 2 9 8KPJ ... LDX 6 BTYPE(3) 8 8KPQ ... SRL 6 18 8 8KPY ... ANDN 6 #17 16 8KQ6 ... BZE 6 X7E [J IF MOP - OK 8 8KQ# ... SBN 6 10 15 8KQG ... BNZ 6 X7F [J IF NOT VDU 4 8KQN ...X7E 8 8KQW ... LDCT 5 #400 9 8KR4 ... ORS 5 BTYPE(3) 16 8KR= ... ERS 5 BTYPE(3) [CLEAR RI-WR BIT 8 8KRD ... SMO FX2 9 8KRL ... LDX 5 AWORK4 17 8KRS ... ORS 5 BTYPE(3) [AND SET AS REQUESTED 8 8KS2 ... CALL 7 WRITE 7 8KS8 ... UPPLUS 2 4 8KSB ...X7F 9 8KSJ ... CALL 7 ZCLOSE 7 8KSQ ... UPPLUS 1 4 8KSY ...[ 4 8KT6 ...[ 4 8KT# ...) 4 8KX= #END 8 ____ ...02554662000100000000