{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: DETACH867)}}
====== DETACH867 ======
(George Source)
**Macros used:** [[george:macro:ABANDCOM|ABANDCOM]], [[george:macro:ACROSS|ACROSS]], [[george:macro:CHAIN|CHAIN]], [[george:macro:CHNUMCOD|CHNUMCOD]], [[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:FINDLCA|FINDLCA]], [[george:macro:FINDOLP1|FINDOLP1]], [[george:macro:FMOPACT|FMOPACT]], [[george:macro:FPCACA|FPCACA]], [[george:macro:FPUT|FPUT]], [[george:macro:GEOERR|GEOERR]], [[george:macro:GETACT|GETACT]], [[george:macro:GLPERI|GLPERI]], [[george:macro:HUNT2|HUNT2]], [[george:macro:HUNT2B|HUNT2B]], [[george:macro:HUNT2J|HUNT2J]], [[george:macro:HUNT2OPT|HUNT2OPT]], [[george:macro:HUNTACT|HUNTACT]], [[george:macro:ICT|ICT]], [[george:macro:INHIBITBRK|INHIBITBRK]], [[george:macro:IPBCLATTACH|IPBCLATTACH]], [[george:macro:IPBDETACH|IPBDETACH]], [[george:macro:IPBNULL|IPBNULL]], [[george:macro:JLBUSY|JLBUSY]], [[george:macro:JLUNBUSY|JLUNBUSY]], [[george:macro:LGEOG|LGEOG]], [[george:macro:LINK|LINK]], [[george:macro:LINKSET|LINKSET]], [[george:macro:LONGCLEAR|LONGCLEAR]], [[george:macro:LONGSET|LONGSET]], [[george:macro:LONGSTOP|LONGSTOP]], [[george:macro:MFREE|MFREE]], [[george:macro:MHUNT|MHUNT]], [[george:macro:OUTNUM|OUTNUM]], [[george:macro:OUTPARN|OUTPARN]], [[george:macro:PARABEG|PARABEG]], [[george:macro:PARANEXT|PARANEXT]], [[george:macro:PARANOT|PARANOT]], [[george:macro:PARANUMB|PARANUMB]], [[george:macro:PERCONA|PERCONA]], [[george:macro:PERMITBRK|PERMITBRK]], [[george:macro:PERTYPNO|PERTYPNO]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SETIDENT|SETIDENT]], [[george:macro:SETNCORE|SETNCORE]], [[george:macro:SPARABEG|SPARABEG]], [[george:macro:SPARANOT|SPARANOT]], [[george:macro:TESTREP|TESTREP]], [[george:macro:TESTREP2|TESTREP2]], [[george:macro:TESTREPNOT|TESTREPNOT]], [[george:macro:ZERRORX|ZERRORX]], [[george:macro:ZERRORY|ZERRORY]]
22FL #SEG DETACH [PHILIP TURNER
22PD ... [ (C) INTERNATIONAL COMPUTERS LIMITED 1982
22^= #LIST K0DETACH>K0COMMAND>K0ALLGEO>K0GREATGEO
23DW 8HDETACH
23YG SEGENTRY K1DETACH,X1DETACH
24D6 SEGENTRY K3DETACH,X3DETACH
24XQ SEGENTRY K4DETACH,X4DETACH
25X2 #
26BL #
26W= # THIS PART OF THE SEGMENT DETACH 60 SERVICES DETACH COMMAND
27*W # ISSUED EITHER BY THE PROGRAM USING PERI 60,USING MODE 1 OR
27TG # THE COMMAND LEVEL
28*6 #
28SQ #
29#B #
29P* ...[
29S2 PAIR1 LINK IPBSCAN,5
2=3S ...NADE #56777777
2=?L RIDICON +CONDCBLEN
2=R= ZMASK #53777777
2?=W #
2?QG #
2#=6 XCLSR LDX 2 A1+BPTR(2)
2#PQ BZE 2 XCLSX
2*9B SBN 2 A1+FPTR
2*P2 HUNTACT CPAT,2
2*YS ... LONGCLEAR 2,#107,XCLNS
2B8L ...XCLNS
2BDD LDN 0 0
2BN= EXIT 7 0
2BY4 XCLSX EXIT 7 1
2BY# ...[
2BYJ ...[ **********************************************************************
2BYS ...[
2B^4 ...[ SUBROUTINE TO FIND AMXOR/ALINES BLOCK
2B^# ...[
2B^J ...[ **********************************************************************
2B^S ...[
2C24 ...SFNDALINES
2C2# ... HUNT2J 1,AMXOR,ALINES,,RESEL
2C2J ... EXIT 7 0
2C2S ...[
2C34 ...[ **********************************************************************
2C3# ...[
2C3J ...[ SUBROUTINE TO FIND AMXOR/ADEVS BLOCK
2C3S ...[
2C44 ...[ **********************************************************************
2C4# ...[
2C4J ...SFNDADEVS
2C4S ... HUNT2J 1,AMXOR,ADEVS,,RESEL
2C54 ... EXIT 7 0
2C5# ...[
2C5* ...
2C5B ...[ SUBROUTINE TO FIND SCANNING ACTIVITY
2C5C ...[
2C5D ...[***********************************************************************
2C5F ...[
2C5G ...SGETSCAN
2C5H ... SBX 7 FX1
2C5J ... GETACT AMSCAN,IPBTYPE
2C5K ... ADX 7 FX1
2C5L ... EXIT 7 0
2C5M ...[
2C5N ...[***********************************************************************
2C5P ...[
2C5Q ...[ SUBROUTINE TO HUNT FOR AMXOR-ALINESS
2C5R ...[
2C5S ...[***********************************************************************
2C5T ...[
2C5W ...SHUNTALINES
2C5X ... HUNT2 3,AMXOR,ALINES
2C5Y ... LDX 0 AWORK1(2)
2C5^ ... ANDX 0 HALFTOP
2C62 ... SRL 0 10
2C63 ... ADX 3 0
2C64 ... EXIT 7 0
2C65 ...[
2C66 ...[***********************************************************************
2C67 ...[
2C68 ...[ SUBROUTINE TO OUTNUM X6
2C69 ...[
2C6= ...[***********************************************************************
2C6? ...[
2C6# ...SOUTX6
2C6* ... SBX 7 FX1
2C6B ... OUTNUM 6,0
2C6C ... ADX 7 FX1
2C6D ... EXIT 7 0
2C6F ...[
2C6G ...[***********************************************************************
2C6H ...[
2C6J ...
2C6K ...[
2C6L ...[***********************************************************************
2C6M ...[
2C6N ...[ SUBROUTINE TO DETACH
2C6P ...[
2C6Q ...[***********************************************************************
2C6R ...[
2C6S ...SDETACH
2C6T ... SBX 7 FX1
2C6W ... SMO FX2
2C6X ... LDX 4 AWORK4
2C6Y ... DETACH XABA,XIT,,4,RJEOP
2C6^ ... ADX 7 FX1
2C72 ... EXIT 7 0
2C73 ...[
2C74 ...[***********************************************************************
2C75 ...[
2C76 ...[ SUBROUTINE TO UNSET BITS ONE AND FIVE
2C77 ...[
2C78 ...[***********************************************************************
2C79 ...[
2C7= ...SUNSET15
2C7? ... SMO FX1
2C7# ... LDX 0 NADE
2C7* ... ANDS 0 A1+FOURTHWD(1)
2C7B ... EXIT 7 0
2C7C ...[
2C7D ...[***********************************************************************
2C7F ...[
2C7G ...[ **********************************************************************
2C7H ...[
2C7J ...[ K1 ENTRY POINT
2C7K ...[
2C7L ...[ **********************************************************************
2C7M ...[
2C7W X1DETACH
2CMG #
2D76 RVUL PARANUMB 6 [MAX.SHOULD BE ONE PARAMETER
2DBY ... BZE 6 XMISS
2DLQ SBN 6 2
2F6B BPZ 6 TOMP [TOO MANY PARAMETERS
2FL2 #
2G5L PARANEXT #36 [SPLIT THE PARAMETER AT SPECIFIED
2G6M ...#UNS ANSTOOMANY
2G7N ... TESTREP2 TOOMANY,TOMP
2G8Q ... TESTREPNOT UNPAIR,PAROK [J IF PARAM OK
2G?W ... SPARANOT 1 [GET PARAM INTO CUNI READY FOR ERROR
2GC2 ... ZERRORX ERUNPAIR
2GDJ ...XNCON ZERRORX JDHNCON
2GG6 ...PAROK
2GK= PERCONA [SEPARATOR
2H4W TESTREP PARERR,XIT [DECODE DEVICE NAME
2J46 LDX 0 ACOMMUNE1(2) [B0-B8 PERIPHERAL TYPE,B9-B23 UNIT NO
2JHQ STO 0 AWORK1(2)
2K3B SLC 0 9
2KH2 ANDN 0 #777
2L2L SBN 0 24 [IS IT IPB
2LG= BNZ 0 UX1
2L^W LDX 0 GSIGN
2MFG STO 0 AWORK3(2) [MARK SOURCE AND ADDRESS IPB
2M^6 LDN 4 1
2NDQ LDCT 5 #510 [FIND CONCEPTUAL IDENTIFIER NO
2NYB BRN SPAR
2PD2 UX1 STOZ AWORK3(2)
2PXL ADN 0 13 [IS IT MPX?
2QC= BZE 0 MPX
2QWW ADN 0 1
2RBG BNZ 0 WRPE [IF NOT UPX ERROR
2RW6 STOZ ACOMMUNE1(2)
2S*Q BRN UPX
2STB MPX
2T*2 #
2TSL LDN 4 1 [FIND CONCEPTUAL LINE NO
2W#= LDCT 5 #540
2WRW SPAR PARABEG 1,4
2X?G MHUNT 3,CPB,CUNI
2XR6 NGX 0 ANUM(3)
2Y=Q BPZ 0 MISS [PARAMETER NULL OR MISSING
2YQB CHNUMCOD ,3 [CONVERT DECIMAL TO BINARY
2^=2 TESTREP CHNUMERR,XIT [ENDCOM IF INVALID FORMAT -CONVERTED
2^PL [NUMBER IS IN ACOMMUNE1
2^SQ ...[
2^XW ... STO 1 7
3232 ... MFREE CPB,CUNI
3266 ... LDX 1 7
329= # ACC 1 CONTAINS BIN.CON.LINE FOR MPX,ZERO FOR UPX,IDENT NO FOR IPB
32NW # AWORK 1 CONTAINS B0-B8 PER TYPE
338G #
33N6 UPX LDX 4 AWORK1(2) [PER.TYPE
3572 FPCACA 2 [FIND PCA
35LL ... FINDOLP1 4,1,2,RENF
366= ... BNG 2 XNCON [J IF NOT CONCEPTUAL
38JB SMO FX2
3942 LDX 0 AWORK3
39HL BNG 0 RSIPB
3=3= SMO FX2
3=GW LDX 0 ACOMMUNE1 [CHECK WHETHER THE LINE NO
3?2G SBX 0 CMAXLINE(2) [IS CORRECT
3?G6 BNG 0 RGOOD
3?^Q BZE 0 RGOOD
3#FB BRN XIT
3#^2 RGOOD LDX 1 2
3*DL LDX 2 FX2
3*Y= HUNT2OPT 1,AMXOR,CONLCB
3BCW BPZ 1 RBLK
3BXG GEOERR 1,COBLNOFO
3CC6 RBLK
3CWQ #
3DBB LDX 0 ACOMMUNE1(2) [FIND THE ENTRANT IN CONLCB -ACCORDIN
3DW2 SMO FX1 [THE CONCEP.LINE NO -POINTER IN X1
3F*L MPA 0 RECCON
3FT= ADN 1 A1
3G#W #
3GSG LDX 3 ADDMOP(1) [IF ADDMOP ADDRESS ZERO LINE HAS
3H#6 BZE 3 XIT [NOT YET BEEN ATTACHED - ENDCOM
3HRQ STO 3 AWORK2(2) [AMOP ADDRESS
3J?B LDX 3 CPPTR(3)
3JR2 LGEOG 3,0
3K=L STO 0 AWORK1(2)
3KQ= LDX 4 ACTUAL(1) [ACTUAL LINE NO
3L9W ANDX 4 BSP16
3LPG LDX 5 1
3M96 FINDLCA 3,4
3MNQ SLL 4 12
3N8B ORS 4 AWORK1(2)
3NN2 JLBUSY 1,RLIBU [REJECT WHEN LINE BUSY
3P7L LDX 3 5
3PM= #
3Q6W INHIBITBRK XABA [INHIBIT BREAK IN
3QLG #
3R66 STOZ ADDMOP(3) [CLEAR AMXOR/CONLCB
3RKQ LDN 0 0
3S5B DLA 0 ACTUAL(3)
3SK2 LDCT 4 #210
3T4L LDX 0 BPTR(3) [IS THE CONLCB ENTRY RINGED TO
3TJ= BZE 0 RSA [ALINES ?
3W3W SMO FPTR(3)
3WHG ERS 4 FOURTHWD [UNSET BITS ONLINE AND ATTACH
3X36 SMO FPTR(3) [UNRING ALINES ENTRY
3XGQ STOZ BPTR [UNRING CONLCB ENTRY
3Y2B STOZ BPTR(3)
3YG2 BRN RSS
3Y^L RSA LDX 3 AWORK2(2) [AMOP ADDRESS
3^F= ...
3^YW ... CALL 7 SHUNTALINES
43XB ERS 4 A1+FOURTHWD(3)
44C2 #
44WL #
45B= RSS LDX 4 AWORK1(2)
45TW DETACH XABA,XVEN,,4,RJEOP
46*G [IDF FILE
46T6 [LINE IN IDF FILE
47#Q #
47SB XVEN LDX 3 AWORK2(2) [AMOP ADDR
48#2 ...
48RL ...XVENA CALL 7 SHUNTALINES
4=Q6 LDX 1 ADMULTACT
4?9Q LDX 2 IMOPADDR(1)
4?PB LDCT 4 #424 [SET UP "BUSY","SETTING UP" AND
4#92 ORS 4 A1+FOURTHWD(3) ["NEEDS ACTIVITY" BITS
4#NL LDN 6 1 [WAKE UP CORE REQUEST ACTIVITY IF
4*8= ADS 6 IWAKE(2) [ASLEEP
4*MW LONGCLEAR 2,#125,XIT1
4B7G XIT1 PERMITBRK
4BM6 XIT ENDCOM
4C6Q #
4CLB RJEOP GEOERR 1,RJEOP
4D62 #
4DKL RSIPB HUNT2OPT 2,AMXOR,CSTATE
4F5= LDX 1 A1+FPTR(2) [POINTER TO THE 1ST ENTRY IN CONDCB
4FJW LDX 2 FX2
4G4G LDX 0 ACOMMUNE1(2)
4GJ6 SBX 0 IDNUM(1)
4GKT ... BNG 0 XIDOUT
4GMJ ... BZE 0 XIDOUT
4GP# ... LDX 2 1
4GWG ... SBN 2 A1
4H3Q SMO FX1
4HHB MPA 0 RIDICON
4HKK ... LDX 0 1
4HMS ... SBX 0 2 [DISP IN CONDCB
4HQ3 ... SBX 0 ALOGLEN(2)
4HS= ... SBN 0 A1
4HWF ... LDX 2 FX2
4HYP ... BPZ 0 XIDOUT
4J32 LDX 0 BPTR(1)
4JGL BZE 0 XIT
4JJJ ... SMO 0
4JLG ... LDX 0 FOURTHWD
4JND ... ANDX 0 BIT10
4JQB ... BNZ 0 XIT [J IF BEING CANCELLED
4JS# ... LDX 0 IDSTATUS(1)
4JW= ... ANDN 0 #400
4JY8 ... BNZ 0 XIT [J IF BEING CANCELLED
4K2= IPBDETACH 1,RLIBU
4KFW LDX 0 IDNUM(1) [ACTUAL IDE.NO
4K^G SLL 0 12
4LF6 STO 0 AWORK4(2)
4LYQ LDX 2 FPTR(1)
4MDB ADX 2 BSTART(2) [TO THE TOP OF ADEVS
4MY2 HUNT2B 2,AMOP,IPBIN
4NCL SMO FX2
4NX= STO 2 AWORK1 [IPBINADDR
4PBW LDX 2 CPPTR(2)
4PWG SMO FX2
4QB6 STO 2 AWORK2 [DCA ADDR
4QTQ LGEOG 2,0
4R*B [FIND GEO.NO
4RT2 ANDN 0 #7777
4S#L LDX 2 FX2
4SS= ORS 0 AWORK4(2)
4T?W [MARK DETACH
4TRG LDN 6 1
4W?6 BRN RDCH
4WQQ #
4X=B YS LDX 1 FPTR(1)
4XQ2 SBN 1 A1
4Y9L SMO FX2
4YP= ... LDX 5 AWORK4
4^8W ... ANDX 5 HALFTOP
4^NG ... SRL 5 10
5286 ZIPNU LDX 2 A1+FPTR(1)
52MQ SBN 2 A1
537B IPBNULL 2
53M2 BRN XF1
546L #
54L= RNOTCL
555W MHUNT 2,AMXOR,ICONIN
55KG LDX 0 GSIGN
5656 STO 0 IBSW(2)
56JQ LDCT 0 #140
574B SRL 0 3
57J2 SMO FX2
583L LDX 4 AWORK4
58H= SRL 4 12
592W ORX 4 0
59GG STO 4 IPBIDE(2)
5=26 IPBCLATTACH 1,YS
5=5= ... LDCT 0 1
5=8B ... ORX 0 BIT10
5=?G ... SMO FPTR(1)
5=BL ... ORS 0 FOURTHWD [STOP IT GETTING REINITIALISED
5=FQ LDX 3 1
5=^B ADX 3 BSTART(1) [POINTER TO THE TOP OF CONDCB
5?F2 LDX 3 BPTR(3)
5?YL CHAIN 2,3
5#D= HUNTACT AMOP,3
5#XW LDN 0 3
5*CG ADS 0 INLOAD(3)
5*X6 XF2 LONGSET #133,XIT
5BBQ LONGSTOP XIT
5BWB RDCH LDX 2 FX2
5CB2 LDX 1 AWORK1(2) [IPBIN ADDR
5CTL ... CALL 7 SFNDADEVS
5D*= LDX 4 AWORK4(2)
5DSW ANDX 4 HALFTOP
5F#G SRL 4 10
5FS6 ... LDX 5 4
5G?Q LDX 0 A1+FOURTHWD(1)
5GRB SLL 0 2
5H?2 SBX 4 0
5HQL ADX 1 4 [POINTER TO THE ADEVS ENTRY
5J== BNZ 6 ZIPNU [IF DETACH J
5JPW LDX 0 A1+BPTR(1) [IS THE NULL RING EMPTY FOR CC AH?
5JS= ... BZE 0 YADNU
5JWL ... SMO 0
5J^2 ... LDX 0 IDSTATUS+1
5K3B ... ANDN 0 #400
5K5Q ... BZE 0 XF2 [J IF CCA HASNT NOTICED
5K86 ...YADNU NGN 0 1
5K=G ... ERX 0 BIT10
5K#W ... ANDS 0 A1+FOURTHWD(1) [UNSET B10
5KD3 ...
5KH8 ... CALL 7 SDETACH
5KLB ... BRN XIT
5K^N ...
5L*2 ...XF1 CALL 7 SUNSET15
5LNB LDX 2 FX2
5M45 ...
5MCS ... CALL 7 SDETACH
5MRH ... LDX 6 GSIGN [X6 -VE SO WE ENDCOM
5MXD ...X4DETACH
5N7= ...
5NC4 ... CALL 7 SGETSCAN
5NLW LDX 0 AWORK2(2) [DCA ADDR
5P6G LDX 4 AWORK1(2) [IPBIN ADDR
5PL6 LDX 1 FX1
5Q5Q LDX 2 BPTR(2)
5Q9M ... STO 0 CPPTR(2) [STORE ADDRESS OF IPB DCA
5QKB LINKSET 2,PAIR1(1)
5RJL STO 4 ACC5(2) [STORE IPBIN ADDR
5S4= ... SRL 5 2
5SHW ... STO 5 ACC6(2) [ACT.IDE.NO
5T3G FPUT
5T9Q ... BNG 6 XIT
5TD2 ...[ [J IF DETACH OR OPS. ATTACH
5TL= ... ACROSS LOGOUT,7 [ELSE JUST CLEAR UP IN LOGOUT...
5TSG ...[ AS NEW ACT. WILL TAKE OVER MOP
5W2Q #
5WGB #
5X22 # THIS ENTRY SERVICES THE CANCEL ATTACH COMMAND HAVING IN
5XFL # AWORK1 #4341
5X^= # AWORK2 POINTER TO THE DCP
5YDW # AWORK3 BO=1 IPB CENTRAL CONSOLE OR REMOTE CONSOLE CC AH
5YYG # B1=1 IPB REMOTE CONSOLE CC AH ME
5^D6 # =0 IF CHARACTER BUFF.SYSTEM - LOC.CONSOLE CC AH ONLY
5^XQ # AWORK4 B0-B11 ACT.LINE/IDENTIFIER NO,B18-B23 GEOGRAPHIC NO
62CB #
62X2 #
63BL X3DETACH
63W= LDX 0 AWORK3(2)
64*W SLL 0 1
64TG STO 0 AWORK3(2)
65*6 BNG 0 Z1 [J IF IPB ADRESSED
65SQ FMOPACT 1,AWORK2(2) [AMOP ADDRESS
66#B STO 1 AWORK1(2) [AMOP ADDRESS
66S2 RFA LDX 6 AWORK4(2)
67?L SRL 6 10 [CONVERT ACTUAL LINE NO INTO POINTER
67R= ... CALL 7 SFNDALINES
68=W ... BRN SBLK
69=6 Z1 SETNCORE 3,2,AMXOR,ICONIN
69PQ LDX 2 FX2
6=9B FMOPACT 1,AWORK2(2),IPB
6=P2 STO 1 AWORK1(2)
6?8L LDX 6 AWORK4(2)
6?N= SRL 6 10 [CONVERT ACT.IDENTIFIER NO INTO
6#7W [POINTER
6#MG ... CALL 7 SFNDADEVS
6*LQ LDX 0 A1+FOURTHWD(1) [SUBTRACT THE LOWEST IDENTIFIER NO
6B6B [MULTIPLIED BY 4
6BL2 SLL 0 2
6C5L [NOW IS IN 6 REL POINTER WHITHIN
6CK= SBX 6 0
6D4W BRN SBLK
6DJG RESEL LDN 6 #7777
6F46 LDX 2 FX2
6FHQ ANDX 6 AWORK4(2)
6FW7 ...
6G8J ... CALL 7 SOUTX6
6GH2 ZERRORX JMOPPEDOFF [UNIT X IS MOPPED OFF
6H2L SBLK ADX 1 6 [ABSOLUTE POINTER IN ALINES/ADEVS
6HG= LDCH 4 A1+FOURTHWD(1)
6H^W LDX 0 4
6JFG ANDN 0 #10 [BEING MOPPED OFF - BIT 2 SET
6J^6 BNZ 0 RESEL
6KDQ LDX 0 4
6KYB ANDN 0 #20 [J IF ATTACHED
6LD2 BNZ 0 XX1
6LGK ...[ IF NOT ATTACHED IN CORE DO A QUICK DETACH TO CHECK THE IDF
6LK8 ... LDX 4 AWORK4(2)
6LMR ... DETACH XABA,ZNTA,ZERR,4,RJEOP
6LQB ...[ DETACHED IN BOTH CORE AND IDF SO EXIT
6LS^ ... BRN XIT
6LXL ...ZNTA LDX 2 FX2 [OTHERWISE ERROR MESSAGE
6MC= LDX 6 AWORK4(2)
6MWW SRL 6 12
6NBG LDXC 0 AWORK3(2)
6NW6 BCC XX2 [IF NOT IPB J
6P8H ...
6PGY ... CALL 7 SOUTX6
6PTB ZERRORX JIDNOATT [IDENTIFIER NOT ATTACHED
6Q*2 XX2 BZE 6 XX3
6QMC ...
6Q^S ... CALL 7 SOUTX6
6R#= ZERRORX JLINOATT
6RJ4 ...
6RRW ...XX3 LDX 6 AWORK4(2)
6S3N ... CALL 7 SOUTX6
6S?G ZERRORX JUNNOATT
6SR6 XX1 LDX 0 4
6T=Q ANDN 0 1 [IF ONLINE-ERROR
6TQB BNZ 0 RONLX [J IF CONCEPTUAL ALREADY ONLINE
6W=2 #
6WPL LDX 0 A1+BPTR(1) [CHECK WHETHER LINE BUSY
6X9= BZE 0 XRJN
6XNW ... LDX 4 AWORK4(2)
6Y8G ... SRL 4 12
6YN6 LDXC 0 AWORK3(2)
6^7Q BCC XX4
6^MB RNONIPB
7272 ... BRN XRJA
75JB ...XX4 BZE 4 RNOUT
7642 ... OUTNUM 4,0 [LINE BUSY
76HL ZERRORX JLINEBUSY
773= RNOUT
77?4 ...
77GW ... LDX 6 AWORK4(2)
77QN ... CALL 7 SOUTX6
782G ZERRORX JUNITBUSY
786Y ...XRJN LDCT 0 1
78?B ... ORS 0 A1+FOURTHWD(1) [SET B8
78F? ...
78M8 ...XRJA CALL 7 SUNSET15
78T6 ... LDX 4 AWORK4(2)
78^Q DETACH XABA,XIT,ZERR,4 [MACRO WHICH CLEARES IDF
79^2 #
7=DL #
7=Y= # ENTERED FROM ATACHB SERVICING
7?CW # AH ON A LINE WHICH HAS JUST
7?XG # BEEN RELEASED
7#C6 #
7#WQ #
7*BB LDX 1 AWORK1(2)
7*W2 LDX 0 AWORK3(2)
7B*L BNG 0 XX5 [BRN IF IPB ADRESSED
7BT= ...[
7C#W ... CALL 7 SFNDALINES
7CSG ... BRN XBLK
7D#6 ...XX5 CALL 7 SFNDADEVS
7F?B XBLK ADX 1 6
7FR2 LDCH 4 A1+FOURTHWD(1)
7G=L LDX 0 4
7GQ= ANDN 0 #10
7H9W BNZ 0 RESEL
7HPG ...
7J96 ... CALL 7 SUNSET15
7JNQ LDX 0 AWORK3(2)
7K8B ... BNG 0 XG11
7KN2 STACC LDX 4 AWORK4(2)
7L7L LDX 3 AWORK1(2)
7LM= STO 4 AWORK1(2)
7M6W BRN XVENA
7M7X ...XG11 LDCT 0 2
7M8Y ... ANDX 0 EXT+11(2)
7M9^ ... BNZ 0 XIT [FINISHED IF ONLINE
7M?2 ... LDCT 0 1
7M#3 ... ORS 0 A1+FOURTHWD(1)
7M*4 ... ERS 0 A1+FOURTHWD(1) [UNSET BIT 8
7MB5 ... LDX 0 A1+BPTR(1)
7MC6 ... BZE 0 XGO [REINITIALISE IF ADEVS NOT RINGED
7MD7 ... LDX 0 BIT10
7MF8 ... ORS 0 A1+FOURTHWD(1) [ELSE TELL ACTY TO
7MG9 ... LDX 2 1
7MH= ... CALL 7 XCLSR [WAKE ACT IF MOP ATTACHING
7MJ? ...[ CANNOT EX +1 HERE
7MK# ... BRN XIT
7MNM ...
7MS2 ...XGO LDX 7 AWORK4(2)
7MX* ... SRL 7 12
7N2N ... LDX 0 A1+FOURTHWD(1)
7N66 ANDN 0 #77 [IF NOT A 7071 GO TO ENDCOM
7N8P #SKI JSKI09 [SKIP IF NO MOP ON VDU
7N?# (
7N*X BZE 0 ZMPNL
7NDG SBN 0 10
7NH5 )
7NN# ... BNZ 0 SETIV [OTHERWISE GO DOWN TO IPBIN
7NTJ #SKI JSKI09
7P5B ZMPNL
7PM9 ... LDX 0 BITS910 [BITS 9 AND 10
7PPD ... ANDX 0 A1+FOURTHWD(1)
7PRM ... BZE 0 STL [J IF OPEN OK
7PR^ ... LDCT 0 1
7PS? ... ORS 0 A1+FOURTHWD(1) [SET BIT 8 TO PREVENT...
7PSK ...[ ...OTHER REINITIALISATION
7PSX ...SETIV
7PTW ... SETIDENT AWORK1(2),7 [COMPLETE REINITIALISATION
7PY5 ... BRN XIT
7Q2# ...STL
7Q4L DOWN IPBINB,10
7QJ= BRN XIT
7R3W #
7RHG #
7S36 RONLX LDX 0 AWORK3(2)
7SGQ BNG 0 UIPB [BRANCH IF IPB IDENTIFIER ADDRESSED
7T2B LDX 5 AWORK4(2)
7TG2 SRL 5 12 [LINE NO
7T^L LDX 7 1
7WF= FINDLCA AWORK2(2),5
7WYW JLUNBUSY 1,RFI
7XDG SRC 5 9
7XY6 ORN 5 4
7YCQ LDX 6 5
7YXB DCA AWORK2(2),STO,6,MODE
7^C2 GLPERI AWORK2(2)
7^WL DLCA 1,LDEX,0,FLAG
82B= BZE 0 RFI
82FB ...#UNS ICT
82JG ... COOR3 #41
82ML ...#UNS ICT
82QQ ...#SKI
82TW COOR2
83*G LDX 1 AWORK1(2)
83T6 BRN RFA
84#Q RFI INHIBITBRK XABA
84SB LDX 1 7
85#2 LDCT 4 #210
85RL LDX 0 A1+BPTR(1) [IS THE CONLCB ENTRY RINGED TO ALINES
86?= BZE 0 RLIBU [J LINE BUSY IF NOT
86QW SMO A1+FPTR(1)
87=G STOZ ADDMOP [CLEAR AMXOR/CONLCB
87Q6 LDN 0 0
889Q SMO A1+FPTR(1)
88PB DLA 0 ACTUAL
8992 ERS 4 A1+FOURTHWD(1)
89NL SMO A1+FPTR(1)
8=8= STOZ BPTR [UNRING CONLCB ENTRY
8=MW STOZ A1+BPTR(1) [UNRING ALINES ENTRY
8?7G LDX 4 AWORK1(2) [AMOP ADDR
8?M6 STO 4 AWORK2(2)
8#6Q LDX 4 AWORK4(2)
8#LB STO 4 AWORK1(2) [LINE NO.,GEO.NO.
8*62 BRN RSS
8*KL #
8B5= #
8BJW UIPB LDX 0 A1+BPTR(1)
8BNR ... LDX 4 AWORK4(2)
8BSN ... SRL 4 12
8BYK ...[ SET UP IDENT NO. IN CASE J TO XUR1
8C4G ... BZE 0 XJY
8CJ6 ... LDX 1 A1+FPTR(1)
8CN3 ... LDX 0 IDSTATUS+1(1)
8CRY ... ANDN 0 #400
8CXT ... BNZ 0 ZNTA [J IF CCAH SET
8D3Q STOZ 6 [MARK CC AH
8DHB BRN RNOTCL
8F32 #
8F4P ...XJY LDCT 0 1
8F6D ... ORS 0 A1+FOURTHWD(1)
8F8* ...
8F== ... CALL 7 SUNSET15
8F#7 ...ZJUSTDH
8F*N ...
8FC9 ... CALL 7 SDETACH
8FDQ ... BRN XIT
8FGL #
8G2= #
8GFW RECCON +CONRECLEN
8G^G RENF SMO FX2 [B0-B8 PER.TYPE B9-B23 UNIT NO
8HF6 LDX 4 AWORK1
8HYQ PERTYPNO 4
8JDB OUTPARN 4,ACOMMUNE9
8JY2 ZERRORX APENNOFO
8KCL RLIBU LDN 4 0
8KX= PARANOT 1,4
8LBW ZERRORX FBUSY [LINE BUSY
8LD7 ...XIDOUT
8LFD ... SMO FX2
8LGP ... LDX 7 ACOMMUNE1
8LJ2 ... OUTNUM 7,0
8LK? ... ZERRORX JIDOUTR
8LLN ...XMISS ZERRORX JPARMIS [PARAMETER MISSING
8LWG TOMP ZERRORX JTOOMANY [TOO MANY PARAMETERS
8MB6 WRPE ZERRORX JPNAL [PERIPHERAL NOT ALLOWED
8MTQ MISS LDN 6 0
8N*B LDN 4 1
8NT2 LDCT 5 #320
8P#L SPARABEG 1,4,5,6
8PS= ZERRORX APFERR
8Q?W ZERRORY
8QRG XABA ABANDCOM
8R?6 RGER1 GEOERR 1,DETERR [ONLINE SHOULD NOT MIND IN THIS CASE
8RQQ ZERR
8S=B ZERRORX CONALON [CONCEPTUAL ALREADY ONLINE
=XLL #END
^^^^ ...570700510006