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