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