{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: ATTACHC867)}}
====== ATTACHC867 ======
(George Source)
**Macros used:** [[george:macro:ABANDCOM|ABANDCOM]], [[george:macro:ACROSS|ACROSS]], [[george:macro:ATTACH|ATTACH]], [[george:macro:BANAMONST|BANAMONST]], [[george:macro:BXGE|BXGE]], [[george:macro:CCOUT|CCOUT]], [[george:macro:CHAIN|CHAIN]], [[george:macro:CHEKLFN2|CHEKLFN2]], [[george:macro:CHEKPASWRD|CHEKPASWRD]], [[george:macro:CJOBLOCK|CJOBLOCK]], [[george:macro:CLOSE|CLOSE]], [[george:macro:COMERRX|COMERRX]], [[george:macro:CONOWNAME|CONOWNAME]], [[george:macro:COOR2|COOR2]], [[george:macro:COOR3|COOR3]], [[george:macro:DCA|DCA]], [[george:macro:DETACH|DETACH]], [[george:macro:DLCA|DLCA]], [[george:macro:DOWN|DOWN]], [[george:macro:ENDCOM|ENDCOM]], [[george:macro:ERRORX|ERRORX]], [[george:macro:FADDRESS|FADDRESS]], [[george:macro:FINDLCA|FINDLCA]], [[george:macro:FINDOLPA|FINDOLPA]], [[george:macro:FMOPACT|FMOPACT]], [[george:macro:FPCAJO|FPCAJO]], [[george:macro:FPUT|FPUT]], [[george:macro:FREECORE|FREECORE]], [[george:macro:FSHCODE|FSHCODE]], [[george:macro:GEOERR|GEOERR]], [[george:macro:GLPERI|GLPERI]], [[george:macro:GSCAN|GSCAN]], [[george:macro:HUNT|HUNT]], [[george:macro:HUNT2|HUNT2]], [[george:macro:HUNT2J|HUNT2J]], [[george:macro:HUNTACT|HUNTACT]], [[george:macro:ICT|ICT]], [[george:macro:INFORM|INFORM]], [[george:macro:INHIBITBRK|INHIBITBRK]], [[george:macro:JLBUSY|JLBUSY]], [[george:macro:LONGSET|LONGSET]], [[george:macro:LONGSTOP|LONGSTOP]], [[george:macro:MENDAREA|MENDAREA]], [[george:macro:MHUNT|MHUNT]], [[george:macro:MHUNTW|MHUNTW]], [[george:macro:MONOUTX|MONOUTX]], [[george:macro:MOPCLOSE|MOPCLOSE]], [[george:macro:OPENBUDO|OPENBUDO]], [[george:macro:OPENDIR|OPENDIR]], [[george:macro:OUTBLOCN|OUTBLOCN]], [[george:macro:OUTNUM|OUTNUM]], [[george:macro:OUTPARAM|OUTPARAM]], [[george:macro:OUTPARN|OUTPARN]], [[george:macro:PARABEG|PARABEG]], [[george:macro:PARAFREE|PARAFREE]], [[george:macro:PCTFACT|PCTFACT]], [[george:macro:PERMITBRK|PERMITBRK]], [[george:macro:READ|READ]], [[george:macro:RG|RG]], [[george:macro:RINGTWO|RINGTWO]], [[george:macro:SECHECK|SECHECK]], [[george:macro:SEG|SEG]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SETIDENT|SETIDENT]], [[george:macro:SETNCORE|SETNCORE]], [[george:macro:SINM551|SINM551]], [[george:macro:SINMAC2|SINMAC2]], [[george:macro:SPARABEG|SPARABEG]], [[george:macro:TERROR|TERROR]], [[george:macro:TESTREP|TESTREP]], [[george:macro:TESTTRAP|TESTTRAP]], [[george:macro:TRACE|TRACE]], [[george:macro:VFREEW|VFREEW]], [[george:macro:ZERRORX|ZERRORX]], [[george:macro:ZERRORY|ZERRORY]]
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