13 22FL ... SEG CONTXCOD,60,OWEN N JOHN 4 22_= # 11 23DW SEGENTRY K1CONTXCOD,XENT1 4 23YG # 21 24D6 # THE DATA TO THE NEXT # IS A TABLE OF TYPE/MODES AND COUNTS FOR ONLINE 21 24XQ # THE DATA TO NEXT # IS A TABLE OF MODES AND COUNTS FOR ONLINE CONT 8 25CB XTR #12 8 25X2 80 7 26BL XCR 0 8 26W= 80 7 27*W XMT 0 8 27TG 20 4 28*6 # 9 28SQ XNOTB1 #57777777 9 294J ...XNOTLN #00077777 8 29#B #DEF XLDEX=EXTPS+3 8 29S2 #DEF XLDEXA=EXTPS+4 4 2=?L # 10 2=R= # LABELS OF ERROR MESSAGES 9 2?=W YUNALLOC +JYUNALLOC 9 2?QG YILLINS +JYILLINS 9 2#2# ...YMODESEQ +JYMODESEQ 4 2#=6 # 4 2#PQ # 4 2*9B # 5 2*P2 XENT1 9 2B8L LDEX 0 ANM(2) 18 2BN= ... BNZ 0 XILLINS12 [ILLEGAL IF NOT MEMBER 0 16 2C7W # GET TYPE AND UNIT NO IN NEW INTERFACE FORMAT 15 2CMG LDX 4 EVENT3(2) [X4=UNIT NO 8 2D76 ANDN 4 #77 8 2DLQ SMO FX2 19 2F6B LDCH 6 EVENT2 [X6=EFFECTIVE OPERAND OF CONT 7 2FL2 SLC 4 9 7 2G5L DCH 6 4 7 2GK= SRC 4 9 12 2H4W # BRANCH OUT IF MONITORING ON CONT 9 2HJG LDN 7 BBCONT 10 2J46 TESTMON ,7,4,XCMON 6 2JHQ UNPLUG 13 2K3B # CONT ONLY LEGAL ON TYPES TR, CR, MT. 16 2KH2 LDX 7 6 [REMEMBER TYPE 19 2L2L BZE 6 ZCON1 [ILLEGAL UNLESS SUITABLE TYPE 7 2LG= SBN 6 3 8 2L_W BZE 6 ZCON1 7 2MFG SBN 6 2 9 2M_6 BNZ 6 XILLINS1 5 2NDQ ZCON1 11 2NYB MHUNTW 3,APERI,APERIRES 8 2PD2 ADN 3 A1 20 2PXL FPERENT 4,3,3,5 [FIND RECORD FOR CONT PERIPHERAL 18 2QC= BNG 3 XUNALLOC1 [ILLEGAL IF NOT ALLOCATED 7 2QWW FCAPCA 2 8 2RBG CHANGEACT 2 9 2RW6 INHIBITBRK YBRKIN 7 2S*Q FPCACA 2 8 2STB CHANGEACT 2 8 2T*2 LDXC 6 1(3) 16 2TSL BCC ONLINE [JUMP IF ONLINE 19 2W#= STO 5 AWORK1(2) [PRESERVE NO OF OLPA IN PCA 5 2WRW ZOLPA 19 2X?G HUNTACTF AOLPT,2 [FIND OLPA FOR CONT PERIPH 8 2XR6 BCT 5 ZOLPA 9 2Y=Q LDX 5 ATMARK(2) 7 2YQB SBN 5 2 19 2_=2 BNZ 5 OFFLINE [JUMP IF NOT PSEUDO-OFFLINE 17 2_PL MTPTR 2,6 [X6 -> DEVICE LIST 10 329= SETMTONL 2,3,5,YBRKIN 5 32NW ONLINE 3 32PM ... 20 32QD ...# SECTION TO NMT CORRECTS B8947/B9405,WHEREBY CONT FOLLOWING A 20 32R9 ...# GETONLINE (IMPLIED WRITE) CAUSED SYS ERR INSTEAD OF PROG FAIL 4 32S2 ...# 7 32SR ... LDN 0 5 17 32TJ ... TXU 0 7 [JUMP IF NOT MAG.TAPE 8 32W* ... BCS NMT 7 32X6 ... LDX 2 6 18 32XX ... ANDX 2 XNOTB1(1) [CLEAR B1, INDETERMINATE 18 32YN ... LDX 0 IMODE(2) [FIND MODE IN DEVICE LIST 8 32_F ... LDX 2 FX2 9 332= ... ANDX 0 XNOTLN(1) 7 3333 ... LDN 5 1 7 333S ... TXU 0 5 19 334K ... BCC XMSEQERR [ILLEGAL IF MODE WAS WRITE 7 335B ... LDN 5 5 7 3367 ... TXU 0 5 21 336Y ... BCC XMSEQERR [ILLEGAL IF MODE WAS WRITE TAPE MARK 4 337P ...NMT 8 338G FCAPCA 2,FX2 16 33N6 CHANGEACT 2 [CHANGE INTO CPA 18 347Q ANDX 6 XNOTB1(1) [CLEAR B1,INDETERMINATE 19 34MB STO 6 CPPTR(2) [SET UP PTTR TO DEVICE LIST 8 3572 LDCT 6 #600 14 35LL SRL 4 15 [X4=TYPE 14 366= BNZ 4 NTR [NOT TR 8 36KW ADN 1 XTR 8 375G BRN STORE 7 37K6 NTR SBN 4 3 14 384Q BNZ 4 NCR [NOT CR 8 38JB ADN 1 XCR 8 3942 BRN STORE 15 39HL NCR [MUST BE MT 16 3=3= LDCT 6 #620 [ONLINE,CONT,MT 8 3=GW ADN 1 XMT 5 3?2G STORE 16 3?G6 # X1 POINTS TO LABEL OF MODE FOLLOWED BY COUNT 13 3?_Q LDX 0 0(1) [MODE 10 3#FB DCA ,DLA,0,MODE 14 3#_2 LDX 0 1(1) [COUNT 10 3*DL DCA ,STO,0,COUNT 10 3*Y= SETNCORE 20,3,FILE,FRB 8 3BCW BRN YCOMM 7 3BXG XCMON LDX 6 4 7 3CC6 LDX 5 7 7 3CWQ REPMON 1 5 3DBB OFFLINE 16 3DDP ... LDX 5 ACNUM(2) [REMEMBER NO. OF OLPA 17 3DH4 ...# CORRECT B0179 - CONT PERIPH MAY NOT BE ASSIGNED TO 8 3DKC ...# MOP TERMINAL 4 3DMQ ...# 13 3DQ5 ...# ALSO REPORT ILLEGAL, FOR NOW, IF 12 3DSD ...# PERIPH ASSIGNED TO JDF - B1650 4 3DWR ...# 4 3D_6 ...# 15 3F3F ...# CHECK FOR CR OR TP ASSIGNED TO MOP OR JDF 7 3F5S ... LDN 0 5 7 3F87 ... TXU 0 7 13 3F=G ... BCC YMT [BRN IF MT 14 3F#T ... LDXC 0 IDENTINFO(2) [BRN IF PERIPH 17 3FC8 ... BCC YMT [NOT ASSIGNED TO MOP OR JDF 12 3FFH ...# REPORT ILLEGAL IF MOP OR JDF 14 3FHW ... CALL 5 ZPERMBRK [PERMIT BREAK-IN 15 3FL9 ... BRN XILLINS1 [BRN TO REPORT ERROR 11 3FNJ ...# MOVE FILE FROM OLPA TO CPA 4 3FQX ...YMT 8 3FT= CALL 1 ZCPA 14 3G#W LOCKC 2,ZCPA [LOCK CPA 8 3GSG LDX 2 FX2 9 3H#6 LDX 6 AWORK1(2) 9 3HRQ ZOLP HUNTACTF AOLPT,2 8 3J?B BCT 6 ZOLP 15 3JR2 STO 2 4 [X4-> OLPA 8 3K=L FCAPCA 3,FX2 14 3KQ= CHANGEACT 4 [TO OLPA 16 3L9W CHANGEFILE 3 [MOVE FILE TO CPA 13 3LPG UNLOCK 3 [CPA 14 3M96 ...YACTC CHANGEACT 3 [TO CPA 16 3MNQ STO 5 XLDEX(2) [REMEMBER OLPA 16 3N8B LDCT 6 #220 [MT,CONT SWITCHES 18 3NN2 SBN 7 5 [X7 HAD TYPE OF PERIPH 8 3P7L BZE 7 YCOMM 13 3PM= LDCT 6 #200 [CONT 5 3Q6W YCOMM 10 3QLG # INITIALIZE WORKING AREA 9 3R66 STOZ EXTPS(2) 10 3RKQ STOZ EXTPS+1(2) 15 3S5B STO 6 XLDEXA(2) [SET SWITCHES 9 3SK2 ACROSS LOAD,1 5 3T4L YBRKIN 7 3TJ= FJOCA 2 8 3W3W LDN 0 #11 18 3WHG ERS 0 JMISC(2) [CHANGE TO DORMANT STATE 8 3X36 FPCACA 2,FX2 8 3XGQ STEPBAC1 ,2 7 3Y2B PROGBRKIN 4 3YG2 # 4 3Y_L # 13 3_F= # THIS SUBROUTINE LOCATES CPA FROM PCA 8 3_YW ZCPA FCAPCA 2,FX2 7 42DG EXIT 1 0 4 42Y6 # 15 42Y# ...# SUBROUTINE TO CLEAR 'INHIBIT BREAK-IN BIT 7 42YG ...# (B0179) 5 42YN ...ZPERMBRK 13 42YW ... LDX 3 FX2 [REMEMBER _PCA 8 42_4 ... CALL 1 ZCPA 11 42_= ... CHANGEACT 2 [TO CPA 7 42_D ... PERMITBRK 12 42_L ... CHANGEACT 3 [BACK TO PCA 7 42_S ... EXIT 5 0 4 4322 ...# 4 432* ...# 4 434J ...[ 18 436R ...[ THE FOLOWING LINE WAS INSERTED DUE TO DO185(B 0846) 19 4392 ...[ THE IS AN ERROR BY WHICH IF IN A MULTI-MEMBERED PROGRAM 19 43?9 ...[ IF A MEMBER OTHER THAN MEMBER 0 ISSUED A 'CONT' EXTRACODE 19 43*D ...[ THE REASULTING 'CAPCA' GEOERR'ED AS THE PROGRAM WAS STILL 19 43CM ...[ PLUGGED IN !!!(THIS WAS REPORTED AS A MK7 BUG BUT IS 16 43FW ...[ ONLY CORRECTED IN MK8) 14 43J5 ...[ DONE 24.SP.74 :CENT 4 43L# ...[ 6 43NH ...XILLINS12 6 43QQ ... UNPLUG 4 43S_ ...[ 5 43XB XILLINS1 10 44C2 LDX 5 YILLINS(1) 8 44WL BRN XILL 5 452H ...XMSEQERR 10 453# ...[ B1649 CORRECTION 21.06.82 14 4545 ...[ CLEAR 'INHIBIT BREAK-IN BIT' TO PREVENT 8 454W ...[ GEOERR INBRKSET 9 455M ... CALL 5 ZPERMBRK 16 456D ... LDX 5 YMODESEQ(1) [FOR B8947/B9405 8 45=* ... BRN XILL 6 45B= XUNALLOC1 10 45TW OUTPACK 4,1,PERINAME 10 46*G LDX 5 YUNALLOC(1) 4 46T6 XILL 7 47#Q ILLEGALX 5 11 47SB MENDAREA 20,K99CONTXCOD 4 48#2 #END 8 ____ ...27540637001500000000