DETACH867
(George Source)
Macros used: ABANDCOM, ACROSS, CHAIN, CHNUMCOD, COOR2, COOR3, DCA, DETACH, DLCA, DOWN, ENDCOM, FINDLCA, FINDOLP1, FMOPACT, FPCACA, FPUT, GEOERR, GETACT, GLPERI, HUNT2, HUNT2B, HUNT2J, HUNT2OPT, HUNTACT, ICT, INHIBITBRK, IPBCLATTACH, IPBDETACH, IPBNULL, JLBUSY, JLUNBUSY, LGEOG, LINK, LINKSET, LONGCLEAR, LONGSET, LONGSTOP, MFREE, MHUNT, OUTNUM, OUTPARN, PARABEG, PARANEXT, PARANOT, PARANUMB, PERCONA, PERMITBRK, PERTYPNO, SEGENTRY, SETIDENT, SETNCORE, SPARABEG, SPARANOT, TESTREP, TESTREP2, TESTREPNOT, ZERRORX, ZERRORY
- DETACH867.txt
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