{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: CONTXCOD60)}}
====== CONTXCOD60 ======
(George Source)
**Macros used:** [[george:macro:ACROSS|ACROSS]], [[george:macro:CHANGEACT|CHANGEACT]], [[george:macro:CHANGEFILE|CHANGEFILE]], [[george:macro:DCA|DCA]], [[george:macro:FCAPCA|FCAPCA]], [[george:macro:FJOCA|FJOCA]], [[george:macro:FPCACA|FPCACA]], [[george:macro:FPERENT|FPERENT]], [[george:macro:HUNTACTF|HUNTACTF]], [[george:macro:ILLEGALX|ILLEGALX]], [[george:macro:INHIBITBRK|INHIBITBRK]], [[george:macro:LOCKC|LOCKC]], [[george:macro:MENDAREA|MENDAREA]], [[george:macro:MHUNTW|MHUNTW]], [[george:macro:MTPTR|MTPTR]], [[george:macro:OUTPACK|OUTPACK]], [[george:macro:PERMITBRK|PERMITBRK]], [[george:macro:PROGBRKIN|PROGBRKIN]], [[george:macro:REPMON|REPMON]], [[george:macro:SEG|SEG]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SETMTONL|SETMTONL]], [[george:macro:SETNCORE|SETNCORE]], [[george:macro:STEPBAC1|STEPBAC1]], [[george:macro:TESTMON|TESTMON]], [[george:macro:UNLOCK|UNLOCK]], [[george:macro:UNPLUG|UNPLUG]]
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