14 225X ... SEG ATTACHC,867,CONCEPTUAL COMMANDS,,G3UGSI 4 229S ...[ 16 22*P ...[ (C) COPYRIGHT INTERNATIONAL COMPUTERS LIMITED 1982 14 22FL ...[ THIS EXCLUDES CODE UNDER #SKI G3UGSI 4 22KH ...[ 8 22PD ...#OPT K0ATTACHC=0 19 22_= ...#LIS K0ATTACHC>K0ATTACH>K0COMMAND>K0ALLGEO>K0GREATGEO 7 2394 ...#OPT G3UGSI = 0 6 23#8 ...#SKI G3UGSI 4 23C# ...( 16 23GD ...# MACRO TO PREVENT M551 AND SECURITY INTERFACE CLASH 7 23KJ ... SINM551 16 23NN ...# WITH G3UG EDIT M600 (REVISED SECURITY INTERFACE) 4 23SK ...) 12 23YG SEGENTRY K1ATTACHC,X1ATTACHC 12 24D6 SEGENTRY K5ATTACHC,X5ATTACHC 4 24XQ # 21 25CB # ATTACH UNIPLEXOR OR LINE OF MULTIPLEXOR TO LINE OF EXISTING CONCEPTUAL 4 25X2 # 9 26BL RMODE #40000 10 26W= RECCON +CONRECLEN 9 27*W NAMUS #12000000 9 27KN ...NADE1 #56657777 8 27N? ... FSHCODE AORB 9 27QW ...SLANG 4HBBBB 4 27TG # 9 28*6 SUB6 SMO AWORK2(2) 9 28SQ LDX 2 APETADDR 8 29#B FADDRESS 2,5 7 29S2 EXIT 4 0 4 2=?L # 19 2=R= # SEARCH FOR AMXOR/ALINES BLOCK STARTING WITH (FX2) IN X2 4 2?=W # 8 2?QG SEEK LDX 2 FX2 9 2#=6 LDX 6 AWORK4(2) 9 2#PQ ANDX 6 HALFTOP 16 2*9B SRL 6 10 [CREATE POINTER 15 2*P2 LDX 0 AWORK3(2) [J IF NOT IPB 7 2B8L SLL 0 1 8 2BN= BPZ 0 UZX1 16 2C7W FMOPACT 1,AWORK2(2),IPB [IPBIN ADDRESS 9 2CMG ORS 1 AWORK3(2) 12 2D76 HUNT2J 1,AMXOR,ADEVS,,(7) 21 2DLQ LDX 0 A1+FOURTHWD(1) [SUBTRACT THE LOWEST IDENTIFIER NO 20 2F6B SLL 0 2 [MULTIPLIED BY 4 FROM THE POINTER 7 2FL2 SBX 6 0 8 2G5L BRN MUXK 15 2GK= UZX1 FMOPACT 1,AWORK2(2) [AMOP ADDRESS 9 2H4W ORS 1 AWORK3(2) 12 2HJG HUNT2J 1,AMXOR,ALINES,,(7) 7 2J46 MUXK ADX 1 6 7 2JHQ EXIT 7 1 4 2K3B # 5 2KH2 SUBOUT2 10 2L2L MHUNTW 3,IDF,COINF 9 2LG= LDX 4 ANUM(3) 8 2L_W SBXC 7 FX1 8 2MFG BRN S1FR2 5 2M_6 SUBOUT1 8 2NDQ SBX 7 FX1 8 2NYB OUTBLOCN 10 10 2PD2 MHUNTW 3,IDF,COINF 9 2PXL LDX 4 ANUM(3) 10 2QC= LDX 5 JPARNUM(3) 16 2QWW SRL 5 12 [CONC LINE/IDE NO 8 2RBG ORX 7 GSIGN 8 2RW6 OUTNUM 5,0 11 2S*Q S1FR2 OUTPARAM 4,APARA,IDF,COINF 8 2STB BPZ 7 SUBY 9 2T*2 LDXC 0 AWORK3(2) 7 2TSL ADXC 0 0 10 2W#= LDN 1 SUBOUTX(1) 8 2WRW SUBX MONOUTX 0(1) 8 2X?G ADXC 7 FX1 7 2XR6 EXIT 7 0 7 2Y=Q SUBY ADX 1 7 8 2YQB BUX 7 SUBX 11 2_=2 SUBOUTX +CONATT,+COATIDE 4 338G # 15 33N6 # IDF/COINF CONTAINS CONCEP NAME AND IN A1 11 347Q # ACTUAL LINE NO IN B9-B23 18 34MB # IDF CONCEPT-ACT.LINE/IDENTIFIER NO AND GEOGR.NO IN A1 16 3572 # AWORK 4 B0-B11 L/I NUMBER,B12-B23 GEOGR NO. 10 35LL # AWORK 2 DCA POINTER 11 366= # AWORK 3 B0=1 -IPB SYSTEM 14 36KW # B0=0CHARTER BUFFERING SYSTEM 19 375G # B2-B23 POSITION OF A CONC.PARAMETER IN CPB/CALAS 4 37K6 # 4 384Q # 6 38JB X1ATTACHC 9 3942 #SKI K6ATTACH>199-199 12 39HL GSCAN AWORK1(2),AWORKWDS,4 10 3=3= LDX 0 CONTEXT(2) 9 3=GW #SKI K6ATTACH>199-199 9 3?2G TRACE 0,CONTEXT 21 3?G6 ANDN 0 1 [IF USER CONTEXT BRANCH ELSE GO ON 20 3?_Q BNZ 0 USCON [ANALYSING MOP ATTACH IN NO USER 14 3#FB LDN 3 0 [CONTEXT 7 3#_2 LDN 4 1 8 3*DL LDCT 5 #120 19 3*Y= SPARABEG 1,4,,3 [FIND :USERNAME AND PUT IT IN 14 3BCW [CPB/CUNI 18 3BXG CHEKLFN2 NUSEN,NLF [CHECK THE PARAMETER HAS 18 3CC6 [LOCAL FILE NAME FORMAT 17 3CWQ SETNCORE 4,3,FILE,FABSNB [GET A BLOCK OF CORE 10 3DBB MHUNT 1,CPB,CUNI 16 3DW2 LDX 0 ACES [CONTAINS SPACES 20 3F*L STO 0 A1+1(3) [SPACEFILE THE LOCATIONS OF FILE 20 3FT= STO 0 A1+2(3) [FABSNB AND MOVE USERNAME FROM 16 3G#W STO 0 A1+3(3) [CPB/CUNI INTO IT 9 3GSG LDN 5 APARA(1) 9 3H#6 LDN 6 A1+1(3) 9 3HRQ LDX 2 ANUM(1) 7 3J?B ADN 2 3 7 3JR2 SRL 2 2 8 3K=L MOVE 5 0(2) 7 3KQ= LDX 5 6 8 3L9W LDX 2 FX2 10 3LPG LDN 6 CPREFIX(2) 7 3M96 MOVE 5 3 7 3MNQ LDN 0 4 8 3N8B STO 0 A1(3) 16 3NN2 FREECORE 1 [FREE CPB/CUNI 20 3P7L OPENBUDO NOUSER [OPEN DICTIONARY IN GENERAL MODE- 20 3PM= [PREPARATION FOR BUDGET MACROS 6 3Q6W CLOSE 7 3Q#4 ...#SKI G3UGSI&1$1 4 3QF= ...( 21 3QLG HUNT 1,FILE,ADICTENT [CONTAINS RELEVANT DICTIONARY ENTRY 20 3R66 SECHECK 1,RETRY,XCHECK [CHECK THE SECURITY STATUS OF THE 21 3RKQ [USER WHOSE DICTIONARY ENTRY IS IN 17 3S5B XCHECK [THE FILE ADICTENT 21 3SK2 CHEKPASWRD XBROKE,MESSU [GET AND CHECK THE PASSWORD OF A USER 4 3SNX ...) 7 3SSS ...#SKI G3UGSI&1 10 3SYP ... SINMAC2 XDEAD,XBROKE,6 5 3T4L RETRY 8 3TJ= BRN RCHTR 4 3W3W # 7 3WHG USCON PARAFREE 9 3X36 LDX 4 AWORK3(2) 8 3XGQ ANDN 4 #7777 20 3Y2B BANAMONST XDEAD,4 [ANALYSE MONITORING STYLE PARAMS 4 3YG2 # 7 3Y_L CJOBLOCK 3 4 42Y6 # 4 43CQ # 21 43XB RCHTR CONOWNAME XBROKE,NOEX [MACRO WHICH FILLS THE FILE FABSNB 21 44C2 [BLOCK THE NAME OF CONCEPTUAL OWNER 18 44WL [AND THE CONCEPTUAL NAME 10 45B= MHUNTW 1,FILE,FABSNB 9 45TW LDX 3 A1+1(1) 8 46*G BZE 3 RWIUS 9 46BK ... FSHCODE B,XFSHB1 4 46CN ...( 8 46DR ... SMO FX1 8 46FW ... LDX 0 SLANG 20 46G_ ... STO 0 A1+9(1) [ SET LANG CODE 'BBBB' FOR M/C B 5 46J4 ...XFSHB1 4 46K7 ...) 9 46L= ... FSHCODE A,XFSHA1 4 46M* ...( 8 46ND ... LDX 0 ACES 20 46PH ... STO 0 A1+9(1) [ SET LANG CODE SPACES FOR M/C A 5 46QL ...XFSHA1 4 46RP ...) 4 46T6 # 11 47#Q OPENDIR XBROKE,READ,QUERY 16 47SB ... TESTREP OK,R1 [J. REPLY = OK 15 48#2 OUTBLOCN 8 [DIRECTORY ? 12 48RL OUTPARN 12,A1+4,FILE,FABSNB 12 49?= OUTPARN 12,A1+1,FILE,FABSNB 10 49QW INFORM 0,CLNFERAS 8 4==G BRN RSNB 21 4=Q6 ...R1 CHECKTRAPS [CHECK WHETHER THE PROPER USER HAS 21 4?PB [THE TRAP TO ATTACH TO THE CONCEPTUAL 8 4#92 TESTTRAP READ 10 4#NL TESTREP NOTRAP,RATVE 6 4*8= CLOSE 8 4*MW RWIUS LDX 2 FX2 9 4B7G STOZ AWORK1(2) 8 4BM6 LDX 0 CACT 17 4C6Q ANDS 0 AWORK3(2) [ONLY B0 OR B1 SET 4 4CLB # 18 4D62 CALL 7 SEEK [FIND AMXOR/ALINES BLOCK 8 4DKL BRN RGER4 11 4F5= LDCH 4 A1+FOURTHWD(1) 8 4FJW ANDN 4 #10 17 4G4G BNZ 4 RAMIS [ERROR IF MOPPED OFF 15 4GJ6 LDX 4 AWORK3(2) [J FOR MPX 7 4H3Q SLL 4 1 8 4HHB BPZ 4 SMP1 7 4J32 LDCT 0 1 16 4JGL ORS 0 A1+FOURTHWD(1) [SET B8 FOR IPB 4 4K2= SMP1 4 4KFW # 19 4K_G ... ATTACH XBROKE,NOEX,ONAL,NOLAV,TACH,TOOL,NOTOLA,ZOLREL 4 4LF6 # 4 4LYQ # 8 4L_T ... BRN RETES 5 4M25 ...ZOLREL 7 4M2* ... LDN 6 6 8 4M2K ... BRN RJOU 4 4M2Y ...[ 4 4M43 ...[ 4 4M56 ...[ 4 4M69 ...[ 4 4M7# ...[ 5 4M7T ...NOTOLA 8 4M8C ... CALL 7 NAMPA 8 4M8P ...NOTOL CALL 7 SEEK 8 4M93 ... BRN RGER4 8 4M9* ... SMO FX1 8 4M9M ... LDX 0 NADE1 17 4M9_ ... ANDS 0 A1+FOURTHWD(1) [LEAVE BIT 8 UNSET 9 4M=? ... ZERRORX JNOTONLI 4 4M=K ...[ 4 4M?N ...[ 4 4M#R ...[ 4 4M*W ...[ 4 4MB_ ...[ 4 4MDB # 9 4MY2 RETES LDX 0 AWORK3(2) 7 4NCL SLL 0 1 8 4NX= BPZ 0 SMP2 8 4PBW CALL 7 SEEK 8 4PWG BRN RGER4 8 4QB6 LDX 0 GSIGN 7 4QTQ SRL 0 1 18 4R*B ORS 0 A1+FOURTHWD(1) [SET B1 ATTACHED FOR IPB 20 4RT2 SMP2 LDX 0 CONTEXT(2) [CHECK WHETHER USER OR NO USER 7 4S#L ANDN 0 1 8 4SS= BZE 0 NUSCO 8 4T?W LDCT 0 #40 10 4TRG ANDX 0 JOBEVENTS(2) 8 4W?6 BNZ 0 RKVET 4 4WQQ # 7 4X=B # USER LEVEL 4 4XQ2 # 9 4Y9L INHIBITBRK RDET 10 4YP= RKVET MHUNTW 1,IDF,COINF 10 4_8W LDX 2 ACTRING(2) 9 4_NG SBN 2 ACTRING 9 5286 CHAIN 1,BPTR(2) 9 52MQ DOWN LOGOUT,5 8 537B NUSCO CALL 7 SEEK 8 53M2 BRN RGER4 8 546L LDCT 6 #200 9 547X ... LDX 0 AWORK3(2) 7 5498 ... SLL 0 1 15 54=F ... BPZ 0 ZMXA [J IF NOT IPB 8 54?Q ... LDX 0 BIT10 11 54*3 ... ANDX 0 A1+FOURTHWD(1) 16 54B# ... ERS 0 A1+FOURTHWD(1) [LEAVE B10 UNSET 8 54CK ... SLL 0 10 21 54DW ... ORS 0 AWORK1(2) [AND MARK ONLINE IF SET AS ONLINE ACT 11 54G7 ... ANDX 6 A1+FOURTHWD(1) 18 54HD ... BZE 6 NLAH [J IF NO LONGER ATTACHED 4 54JP ...ZMXA 9 54L= LDXC 0 AWORK1(2) 8 555W BCS RONLI 11 55KG ORS 6 A1+FOURTHWD(1) 9 5656 LONGSET #107,RG4 9 56JQ CALL 7 SUBOUT1 8 574B LONGSTOP RDET 8 57J2 BRN REVEN 5 583L ...RONLI 11 59GG RONMX ORS 6 A1+FOURTHWD(1) 9 5=26 CALL 7 SUBOUT1 8 5=FQ REVEN CALL 7 SEEK 8 5=_B BRN RGER4 8 5?F2 LDCT 0 #200 11 5?YL ANDX 0 A1+FOURTHWD(1) 8 5#D= BNZ 0 RATON 8 5#QM ...NLAH SMO FX1 8 5*54 ... LDX 0 NADE1 17 5*CF ... ANDS 0 A1+FOURTHWD(1) [UNSET ATTACHING BITS 9 5*JM ... VFREEW IDF,COINF 9 5*PW ... ZERRORX JAHCCL 17 5B4? ...[ ATTACHMENT CANCELLED 9 5BBQ RATON CALL 7 SUBOUT2 9 5BWB +JONLCON 7 5CB2 MOPCLOSE 8 5CTL CALL 7 SEEK 8 5D*= BRN RPYJ 9 5D*X ... LDX 0 AWORK3(2) 7 5DBJ ... SLL 0 1 15 5DC9 ... BPZ 0 ZMXZ [J IF NOT IPB 8 5DCW ... LDX 0 BIT10 11 5DDH ... ANDX 0 A1+FOURTHWD(1) 16 5DF8 ... ERS 0 A1+FOURTHWD(1) [LEAVE B10 UNSET 8 5DFT ... SLL 0 10 19 5DGG ... ORS 0 AWORK1(2) [SET ONLINE IF B10 WAS SET 8 5DH7 ... LDCT 0 #200 11 5DHS ... ANDX 0 A1+FOURTHWD(1) 17 5DJF ... BNZ 0 XH1 [J IF STILL ATTACHED 9 5DK6 ... LDXC 0 AWORK1(2) 21 5DKR ... BCC RPYJ [DONT REINITIALISE IF NOT ONLINE ETC 9 5DLD ... LDX 7 AWORK4(2) 16 5DM5 ... SRL 7 12 [IDENT NUMBER 9 5DMQ ... LDX 6 AWORK3(2) 9 5DNC ... ANDX 6 BITS22LS 15 5DP4 ...[ AMOP ADDR 8 5DPP ... SETIDENT 6,7 15 5DQB ...[ REINITIALISE 8 5DR3 ... BRN RPYJ 4 5DRN ...ZMXZ 8 5DSW LDCT 0 #200 11 5F#G ANDX 0 A1+FOURTHWD(1) 8 5FS6 BZE 0 RPYJ 18 5HQL LDCT 0 #400 [SET INHIBIT FLAGS BIT 11 5J== ORS 0 A1+FOURTHWD(1) 17 5JPW XH1 LDX 0 AWORK1(2) [CHECK WHETHER ONLINE 8 5K9G BNG 0 RONL1 9 5KP6 LDX 0 AWORK3(2) 7 5L8Q SLL 0 1 15 5LNB BPZ 0 RPYJ [J FOR MPX 8 5M82 LDN 0 #126 10 5MML STO 0 ACOMMUNE1(2) 9 5N7= LDX 4 AWORK4(2) 8 5NLW SRL 4 12 14 5P6G LDX 5 AWORK3(2) [IPBIN 8 5PL6 CCOUT 4,5 8 5Q5Q BRN RPYJ 4 5QKB # 4 5R52 # 4 5RJL # 6 5RMQ ...#UNS ICT 9 5RQW ...RCOOR COOR3 ADEVLIN 6 5RW2 ...#UNS ICT 4 5R_6 ...#SKI 6 5S4= RCOOR COOR2 6 5SHW X5ATTACHC 8 5T3G RONL CALL 7 SEEK 8 5TH6 BRN RCOOR 7 5W2Q RONL1 LDX 7 1 9 5WGB LDX 1 AWORK3(2) 7 5X22 SLL 1 1 8 5XFL BPZ 1 UMX 16 5X_= ACROSS ATTACHB,3 [IF IPB GO ACROSS 7 5YDW UMX LDX 2 7 19 5YYG LDX 3 A1+BPTR(2) [BPTR=0 IN ALINES ENTRY? 16 5_D6 BZE 3 RG [IF YES OK AND J 21 5_XQ LDCT 0 #10 [OTHERWISE SET FOURTHWD B5 ONLINED 11 62CB ORS 0 A1+FOURTHWD(2) 20 62X2 SBN 3 A1 [POINTER TO THE BEGINNING OF ALCB 9 63BL LDXC 0 GWAIT(3) 8 63W= BCC RCOOR 9 64*W STO 0 GWAIT(3) 8 64TG LDX 0 CACT 9 65*6 RQY LDX 3 BPTR(3) 10 65SQ BXGE 0 ATYPE(3),RQY 7 66#B LDX 2 3 6 66S2 FPUT 8 67?L COOR3 #62 8 67R= BRN RONL 16 68=W RG LDN 0 #13 [TRY WHETHER MPX 8 68QG RH SMO FX2 9 69=6 STO 0 ACOMMUNE1 8 69PQ LDX 3 BJOBQ 21 6=9B ROMLE LDN 5 EXTJOBPROG [LENGTH OF THE JOBLOCK IN THE USER, 17 6=P2 TXU 5 ALOGLEN(3) [CORE IMAGE CONTEXT 8 6?8L BCC RLEOK 21 6?N= RTEYJ LDX 3 0(3) [ADDRESS OF THE NEXT BLOCK IN JOBQUE 20 6#7W LDN 4 BJOBQ [IS IT THE END OF THE JOBQUE ? 21 6#MG TXU 3 4 [IF YES AND BLOCK NOT FOUND,PUT THE 21 6*76 BCS ROMLE [ACTIVITY TO WAITING STYLE UNTIL THE 20 6*LQ SMO FX2 [OLPA IS CREATED - THE PROCEDURE 19 6B6B LDX 0 ACOMMUNE1 [MIGHT NOT YET BEEN FINISHED 19 6BL2 SBN 0 #13 [BEFORE SENDING OLPA TO SLEEP 21 6C5L BNZ 0 RI [ONE MUST CHECK WHETHER THE PER.TYPE 15 6CK= LDN 0 #12 [IS NOT UPX 8 6D4W BRN RH 8 6DJG RI COOR3 #106 8 6F46 BRN RONL 4 6FHQ # 21 6G3B RLEOK LDN 4 #600 [IS THE PROGRAM A REAL TIME PROGRAM 9 6GH2 ANDX 4 JMISC(3) 8 6H2L BZE 4 RTEYJ 4 6HG= # 8 6H_W LDX 2 FX2 10 6JFG LDX 4 ACOMMUNE1(2) 8 6J_6 FPCAJO 2,3 18 6KDQ FINDOLPA 4,1,2,NOTSA,5,RTEYJ [FIND OLPA ADDR INTO X2 8 6KYB SMO FX2 21 6LD2 STO 1 AWORK1 [STORE POINTER TO THE CORRESPONDING 18 6LXL [ENTRY IN APERIRES BLOCK 21 6MC= MHUNTW 1,IDF,COINF [CHECK WHETHER THE CONCEPTUAL NAME 21 6MWW LDX 6 ANUM(1) [IN OLPA CORRESPONDS TO THE CON:NAME 16 6NBG ADN 6 3 [IN COINF BLOCK 7 6NW6 SRL 6 2 7 6P*Q LDN 0 3 8 6PTB LDX 5 ACES 7 6Q=7 RTEST SMO 0 10 6QLY TXU 5 CNAME-1(2) 8 6R3P BCC STEST 7 6RDG SBX 6 0 8 6RT? BNZ 6 ZCU 7 6S=4 ADN 0 1 8 6SLT BRN OTEST 4 6T3L ZCU 8 6TDC BZE 6 OTEST 20 6TT8 SMO FX2 [IF NOT TRY ANOTHER PRB ENTRY AND 15 6W9_ LDX 1 AWORK1 [ANOTHER OLPA 8 6WLQ BRN NOTSA 8 6X3H STEST BNZ 6 TTEST 7 6XD# OTEST SMO 0 10 6XT5 LDX 5 APARA-2(1) 8 6Y9W TTEST BCT 0 RTEST 21 6YLM LDX 5 JPARNUM(1) [CON.LINE NO B0/B8,ACT.LINE NO B9/B23 7 6_3D LDX 3 2 15 6_D9 LDX 0 CMAXLINE(2) [MPX OR UPX 8 6_T2 BNZ 0 RF 8 729R ANDN 5 #7777 8 72LL RF LDX 2 FX2 9 736= STO 5 AWORK1(2) 11 73KW HUNT2 1,AMXOR,CONLCB,3 8 745G BRN RBLK 7 747W ...RJOU LDX 4 6 9 74== ... LDX 0 AWORK3(2) 7 74#L ... SLL 0 1 8 74C2 ... BPZ 0 ZNCCC 8 74FB ... CALL 7 SEEK 8 74HQ ... BRN RGER4 8 74L6 ... SMO FX1 8 74NG ... LDX 0 NADE1 11 74QW ... ANDS 0 A1+FOURTHWD(1) 5 74T= ...ZNCCC 9 74XL ... LDX 0 AWORK3(2) 7 7522 ... LDX 6 4 9 754Q STO 0 AWORK1(2) 8 75JB BRN RJOUR 15 7642 RBLK LDX 0 CMAXLINE(3) [MPX OR UPX 8 76HL BZE 0 RW 16 773= SRL 5 12 [CONCEPT LINE NO 7 77GW LDX 0 5 21 782G SMO FX1 [IN X1 POINTER TO THE CORRESPONDING 17 78G6 MPA 0 RECCON [ENTRANT IN CONLCB 8 78_Q RW ADN 1 A1 9 79FB LDX 0 AWORK3(2) 16 79_2 STO 0 ADDMOP(1) [ADDRESS OF AMOP 18 7=DL LDX 0 AWORK1(2) [CON.LINE NO,ACT.LINE.NO 9 7=Y= DSA 0 ACTUAL(1) 9 7?CW LDX 0 CFLAG(3) 7 7?MN ... LDX 2 7 8 7?XG BNG 0 RFRAN 20 7#C6 LDX 4 BPTR(1) [WHEN IT WAS NON-ATTACHED LINE 21 7#WQ BNZ 4 RLEV [HAS BEEN ISSUED A PERI TO THE LINE? 18 7*BB [IN X4 AMXOR/CONAR ADDR. 20 7B*L RINGTWO A1(2),0(1) [ENRING ALINES AND CONLCB ENTRIES 18 7BT= RFRAN LDN 0 #61 [SET B0,B1,B5,UNSET B3 11 7C#W DCH 0 A1+FOURTHWD(2) 8 7CSG SMO FX2 9 7D#6 LDX 0 CONTEXT 8 7DRQ ANDN 0 #10 8 7F?B BNZ 0 RPYJ 4 7FR2 # 7 7G=L STOZ 6 10 7GQ= RJOUR ACROSS ATTJOUNL,1 6 7H9W URET ENDCOM 4 7HPG # 4 7J96 # 4 7JNQ # 9 7K8B RLEV HUNTACT APET,3 9 7KN2 LDN 4 ASTOP(3) 9 7L7L LDX 3 BPTR(1) 9 7LM= STOZ BPTR(1) 9 7M6W STOZ BPTR(3) 7 7MLG LDX 2 7 20 7N66 RINGTWO A1(2),0(1) [ENRING ALINES AND CONLCB ENTIIES 8 7NKQ LDX 2 FX2 9 7P5B LDEX 6 ACTUAL(1) 9 7PK2 LDX 1 AWORK2(2) 8 7Q4L FINDLCA 1,6 9 7QJ= JLBUSY 1,RJEOP 8 7R3W LDX 0 2(3) 7 7RHG LDX 5 0 8 7S36 ANDN 0 #42 8 7SGQ ORX 0 BIT9 10 7T2B DLCA 1,DLA,0,MODE 8 7TG2 LDX 0 4(3) 10 7T_L DLCA 1,DLA,0,COUNT 8 7WF= LDX 0 5(3) 10 7WYW DLCA 1,STO,0,CTSA 5 7XDG #SKI G4 4 7XY6 ( 15 7YCQ SMO 4 [OLPA ADDR 10 7YXB LDX 0 ASEGTAB-ASTOP 11 7_C2 DLCA 1,STO,0,SEGTAB 4 7_WL ) 8 82B= ANDN 5 #20 8 82TW BZE 5 SINGL 5 83*G #SKI G4 11 83T6 DLCA 1,STO,0,SEGTAB2 8 84#Q LDN 0 #22 8 84SB ORX 0 BIT9 10 85#2 DLCA 1,DLA,0,MODE2 8 85RL LDX 0 8(3) 10 86?= DLCA 1,STO,0,CTSA2 8 86QW LDX 0 7(3) 11 87=G DLCA 1,DLA,0,COUNT2 8 87Q6 LDX 0 6(3) 10 889Q DLCA 1,STO,0,CREP2 8 88PB SINGL LDX 0 3(3) 10 8992 DLCA 1,STO,0,CREP 9 89NL SMO AWORK3(2) 8 8=8= LDX 1 CPPTR 7 8=MW SRC 6 9 10 8?7G DCA 1,STO,4,DTSA 10 8?M6 DCA 1,STO,6,MODE 7 8#6Q GLPERI 1 8 8#LB SBN 3 A1 7 8*62 FREECORE 3 7 8*KL LDX 2 7 8 8B5= BRN RFRAN 4 8BJW RKON 5 8C4G #SKI G4 4 8CJ6 ( 15 8D3Q SMO 4 [OLPA ADDR 9 8DHB LDX 5 ASEGTAB 11 8F32 DLCA 1,STO,5,SEGTAB2 4 8FGL ) 15 8G2= LDX 3 4 [OLPA ADDRESS 10 8GFW LDX 4 APETADDR(3) 9 8G_G SMO AWORK3(2) 8 8HF6 LDX 1 CPPTR 10 8HYQ DCA 1,STO,4,DTSA 7 8JDB GLPERI 1 17 8JY2 LDX 2 AWORK1(2) [ALINES ENTRY ADDR 8 8KCL BRN RFRAN 4 8KX= # 4 8LBW # 9 8LWG RPYJ ACROSS LOGOUT,7 4 8MB6 # 4 8MTQ # 4 8N*B # 21 8NT2 # VARIOUS COMMAND ERRORS ; RELEASE PROFLAG IF ATTACH UNSUCCESSFUL 4 8P#L # 17 8PS= UNCAL CALL 7 SEEK [FIND ALINES BLOCK 14 8Q?W BRN RGER4 [ABSENT 8 8QRG LDCT 0 #400 11 8R?6 ANDX 0 A1+FOURTHWD(1) 17 8RQQ ERS 0 A1+FOURTHWD(1) [UNSET BIT 0 IF SET 8 8S2J ... TERROR URET 8 8S=B COMERRX 0(3) 4 8SQ2 # 9 8T9L RGEXX GEOERR 1,CLNFDEF 9 8TP= RJEOP GEOERR 1,RJEOP 9 8W8W XBREJ GEOERR 1,INHBRIN 19 8WNG RG4 GEOERR 1,LOWASET [WARTING STYLE ALREADY SET 16 8X86 RGER4 GEOERR 1,ALIMISS [ALINES MISSING 18 8XMQ RAMIS ZERRORX JMOPOFF [YOU ARE BEING MOPPED OFF 4 8Y7B # 8 8YM2 NOEX SMO FX2 9 8_6L LDX 0 AWORK3 7 8_L= SLL 0 1 8 925W BNG 0 QUX1 8 92KG ... CALL 3 UNCAL 19 9356 +CONNOTEX [CONCEPTUAL DOES NOT EXIST 8 938T ...QUX1 CALL 7 SEEK 8 93#J ... BRN RGER4 8 93D? ... SMO FX1 8 93J2 ... LDX 0 NADE1 11 93MP ... ANDS 0 A1+FOURTHWD(1) 8 93PJ ... TERROR URET 9 93RD ... ZERRORX CONNOTEX 7 93X7 ...NOLAV LDN 7 0 10 949J ...NAMPA MHUNT 3,IDF,COINF 9 94J2 LDX 4 ANUM(3) 8 953L ANDN 4 #7777 11 95H= OUTPARAM 4,APARA,IDF,COINF 8 95R4 ... BNZ 7 NOTOL 9 962W LDX 0 AWORK3(2) 7 96GG SLL 0 1 8 9726 BNG 0 UI2 8 97FQ CALL 3 UNCAL 20 97_B +CONFULL [NO CONCEPTUAL LINES AVAILABLE 8 985S ...UI2 CALL 7 SEEK 8 98== ... BRN RGER4 8 98BN ... SMO FX1 8 98H6 ... LDX 0 NADE1 11 98MJ ... ANDS 0 A1+FOURTHWD(1) 9 98S2 ... ZERRORX CIPBFULL 20 98YL ONAL LDX 0 GSIGN [SET MARKER CONCEPTUAL IS ONLINE 9 99D= STO 0 AWORK1(2) 8 99XW BRN RETES 8 9=CG RDET CALL 7 SEEK 8 9=X6 BRN RGER4 8 9?BQ ... SMO FX1 8 9?WB ... LDX 0 NADE1 17 9#B2 ... ANDS 0 A1+FOURTHWD(1) [UNSET ATTACHING BITS 9 9#TL INHIBITBRK XBREJ 9 9**= LDX 0 AWORK3(2) 7 9*SW SLL 0 1 9 9B#G STO 0 AWORK3(2) 9 9BS6 LDX 4 AWORK4(2) 19 9C?Q DETACH XBREJ,XBROKE,,4,RJEOP [RJEOP-DETACH PERMITTED 7 9CRB PERMITBRK 9 9D?2 BRN XBROKE 4 9DQL TACH 7 9F== LDN 6 3 8 9FPW BRN RJOU 4 9G9G TOOL 7 9GP6 LDN 6 4 8 9H8Q BRN RJOU 4 9HNB # 16 9J82 NLF ZERRORX JNLFNF [NOT A LOCAL NAME 5 9JML NOUSER 17 9K7= ZERRORX ERNOUSER [USER NAME MISSING 17 9KLW MESSU ZERRORX IMPASSE [USER NAME UNKNOWN 5 9L6G XBROKE 8 9L7X ... SMO FX2 9 9L9# ... LDX 0 AWORK3 7 9L=P ... SLL 0 1 8 9L#6 ... BPZ 0 ZABCX 8 9L*H ... CALL 7 SEEK 8 9LBY ... BRN RGER4 8 9LD* ... SMO FX1 8 9LFQ ... LDX 0 NADE1 11 9LH7 ... ANDS 0 A1+FOURTHWD(1) 5 9LJJ ...ZABCX 20 9LK4 ... VFREEW IDF,COINF [OTHERWISE WOULDNT GET FREED... 18 9LKJ ...[ ...AS CHAINED AFTER CLB 20 9LL6 ABANDCOM [ABANDON COMMAND AFTER BREAK IN 6 9M5Q RATVE CLOSE 20 9MKB RSNB ZERRORX JNOTALL [NOT PERMITTED TO USE THIS CONCEP 4 9N52 # 9 9NJL PJPARMIS +JPARMIS 9 9P4= PJUSNA +JUSNA 4 9PHW # 4 9Q3G # 17 9QH6 NUSEN LDX 7 PJPARMIS(1) [USER NAME MISSING 9 9R2Q LDX 6 PJUSNA(1) 8 9RGB XERR ERRORX 7,6 6 9S22 XDEAD ENDCOM 7 9SFL ZERRORY 4 9S_= # 4 9TDW # 11 9TYG MENDAREA 50,K100ATTACHC 4 9WD6 #END 8 ____ ...24145367000200000000