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