{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: XENON)}}
====== XENON ======
(George Source)
**Macros used:** [[george:macro:BXL|BXL]], [[george:macro:BXU|BXU]], [[george:macro:CLOSETOP|CLOSETOP]], [[george:macro:CONSERNO|CONSERNO]], [[george:macro:DOWN|DOWN]], [[george:macro:GEOERR|GEOERR]], [[george:macro:HUNT|HUNT]], [[george:macro:HUNTW|HUNTW]], [[george:macro:JALLOC|JALLOC]], [[george:macro:JWPR|JWPR]], [[george:macro:LGEOG|LGEOG]], [[george:macro:LJOBNO|LJOBNO]], [[george:macro:LONGSET|LONGSET]], [[george:macro:LPROP|LPROP]], [[george:macro:MENDAREA|MENDAREA]], [[george:macro:MFREE|MFREE]], [[george:macro:MHUNT|MHUNT]], [[george:macro:MOCHAS|MOCHAS]], [[george:macro:MONICA|MONICA]], [[george:macro:MONOUT|MONOUT]], [[george:macro:MT21SMES|MT21SMES]], [[george:macro:MTCHAR|MTCHAR]], [[george:macro:MTREQUEST|MTREQUEST]], [[george:macro:OPENDIR|OPENDIR]], [[george:macro:OPENSYS|OPENSYS]], [[george:macro:OUTMESS|OUTMESS]], [[george:macro:OUTMTPROP|OUTMTPROP]], [[george:macro:OUTNULL|OUTNULL]], [[george:macro:OUTNUM|OUTNUM]], [[george:macro:OUTPARAM|OUTPARAM]], [[george:macro:OUTPARAX|OUTPARAX]], [[george:macro:OUTPAUSE|OUTPAUSE]], [[george:macro:PERON|PERON]], [[george:macro:SDSEARCH|SDSEARCH]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SETALLOC|SETALLOC]], [[george:macro:SETNCORE|SETNCORE]], [[george:macro:SETREP|SETREP]], [[george:macro:SSEARCH|SSEARCH]], [[george:macro:STEPAGAIN|STEPAGAIN]], [[george:macro:TESTREP|TESTREP]], [[george:macro:UNLOAD|UNLOAD]], [[george:macro:UP|UP]], [[george:macro:UPPLUS|UPPLUS]], [[george:macro:VFREE|VFREE]]
22FL #LIS K0XENON>K0LIBRARY>K0ALLGEO
22^= #SEG XENON [N.R.BOULT
23DW 8HXENON
23YG SEGENTRY K1XENON,QK1XENON
24D6 SEGENTRY K2XENON,QK2XENON
24XQ # THIS SEGMENT TRIES TO GET XENOTAPES AND NON-STANDARD TAPES
25CB # LOADED FOR USERS.
25X2 # HENCE ITS NAME
26BL #
26W= #
27*W # CONSTANTS
27TG #
27WF ...#
27XD ...QFAST 4HFAST
27YC ...QSLOW 4HSLOW
27YL ...#UNS JMODGCR
27YT ...#SKI
27^4 ...(
27^B ...TAB1 +GLIBTRA7
282* ... +GLIBTRA9
283# ... +GLIBPE
284? ... +GLIBNRZI
285= ...TAB2 +6
2869 ... 8HTRACK7
2878 ... +6
2887 ... 8HTRACK9
2896 ... +2
28=5 ... 8HPE
28?4 ... +4
28#3 ... 8HNRZI
28#J ...)
28*6 #
28SQ # ENTRY POINT 1
29#B # THIS IS THE ENTRY POINT FOR XENOTAPES
29S2 QK1XENON
2=?L MHUNT 3,FILE,FABSNB [ABSOLUTE NAME BLOCK
2=R= SMO HDREC(3)
2?=W LDX 0 A1-6(3) [FIRST WORD OF LOCAL NAME
2?QG BNZ 0 P1 [NON-ZERO
2#=6 # NO LOCAL NAME
2#PQ SETREP XENONAME [SET REPLY
2*9B UPPLUS 1 [REPORT BACK
2*P2 # CHECK IF CLASH WITH SECURE TAPE
2B8L P1 SMO HDREC(3)
2BN= LDXC 7 A1+1(3) [TSN(B0 NOT SET)
2BY4 ... BCS £ [CLEAR CARRY IF SET
2C7W OPENSYS PBRKIN,SERIAL,READ
2CMG SSEARCH P2,7 [LOOK FOR ENTRY IN :SYSTEM.SERIAL
2D76 # TSN FOUND - OPEN DIRECTORY TO COMPARE NAMES
2DLQ LDX 4 2(3) [1ST WORD OF USER NAME
2F6B BZE 4 P2 [NOT OWNED
2FL2 LDX 0 5(3)
2G5L SLC 0 1
2GK= BNG 0 P2 [OR WORK TAPE
2H4W LDX 5 3(3)
2HJG LDX 6 4(3)
2J46 SETNCORE 12,3,FILE,FABSNB
2JHQ LDN 0 10
2K3B STO 0 A1(3) [RECORD HEADER
2KH2 LDN 0 #2001
2L2L ORS 0 ATYPE(3) [MT ENTRANT
2LG= STO 4 A1+1(3)
2L^W STO 5 A1+2(3)
2MFG STO 6 A1+3(3)
2M^6 STOZ A1+4(3)
2NDQ LDN 0 A1+4(3)
2NYB LDN 1 A1+5(3)
2PD2 MOVE 0 5
2PXL NGN 0 1
2QC= STO 0 A1+10(3) [NO RETENTION PERIOD
2QWW STO 7 A1+11(3) [TSN
2RBG OPENDIR PBRKIN,READ,ERASING
2RW6 MFREE FILE,FABSNB
2S*Q # COMPARE NAMES
2STB MHUNT 3,FILE,ENT
2T*2 MHUNT 2,FILE,FABSNB
2TSL LDX 0 ELOC1(3)
2W#= BZE 0 P4 ['NEW' SO CAN'T TELL
2WRW SMO HDREC(2)
2X?G TXU 0 A1-6(2)
2XR6 BCS P4 [DIFFERENT
2Y=Q LDX 0 ELOC2(3)
2YQB SMO HDREC(2)
2^=2 TXU 0 A1-5(2)
2^PL BCS P4 [DIFFERENT
329= LDX 0 ELOC3(3)
32NW SMO HDREC(2)
338G TXU 0 A1-4(2)
33N6 BCS P4 [DIFFERENT
347Q SMO HDREC(2)
34MB LDX 0 A1-3(2) [REEL
3572 ANDN 0 #7777
35LL TXU 0 EREEL(3)
366= BCS P4 [DIFFERENT
36KW SMO HDREC(2)
375G LDX 0 A1-2(2) [GENERATION
37K6 BZE 0 PNOX
384Q ANDN 0 #7777
38JB TXU 0 EGEN(3)
3942 BCS P4 [DIFFERENT
39HL # THE ENTRIES TALLY
3=3= PNOX
3=GW CLOSETOP [DIRECTORY
3?2G CLOSETOP [SERIAL
3?G6 SETREP NOXENO
3?^Q UPPLUS 1
3#FB # THE ENTRIES DO NOT TALLY
3#^2 P4 CLOSETOP [DIRECTORY
3*DL P2 CLOSETOP [SERIAL
3*Y= LDN 4 0
3BCW STOZ AWORK3(2)
3BXG LDX 6 7 [TSN
3CC6 ORX 6 GSIGN [SET B0
3CWQ # CHECK IF TAPE LOADED
3DBB XWAKE
3DW2 OPENSYS PBRKIN,DOCUMENT,READ
3F*L XW1 SDSEARCH XW3,TSN,6
3FT= MHUNT 2,FILE,FABSNB [NAME COMPARISON
3G#W SMO HDREC(2)
3GSG LDX 0 A1-6(2) [1ST WORD ?
3H#6 TXU 0 3(3)
3HRQ BCS XW1 [NO
3J?B SMO HDREC(2)
3JR2 LDX 0 A1-5(2) [2ND WORD ?
3K=L TXU 0 4(3)
3KQ= BCS XW1 [NO
3L9W SMO HDREC(2)
3LPG LDX 0 A1-4(2) [3RD WORD ?
3M96 TXU 0 5(3)
3MNQ BCS XW1 [NO
3N8B SMO HDREC(2)
3NN2 LDX 0 A1-3(2) [REEL
3P7L ANDN 0 #777
3PM= TXU 0 6(3)
3Q6W BCS XW1 [NO
3QLG SMO HDREC(2)
3R66 LDX 0 A1-2(2) [GENERATION
3RKQ BZE 0 XW
3S5B ANDN 0 #7777
3SK2 TXU 0 7(3)
3T4L BCS XW1 [NO ?
3TJ= XW
3W3W CALL 7 TSTALLOC [SEE IF TAPE IS ALREADY IN USE
3WHG BRN Q4 [NOT IN USE
3WR# ... BRN XWA
3X36 XW3 BZE 4 XNUP
3XGQ SMO FX2
3Y2B STOZ AWORK3
3YG2 XNUP LDN 4 0
3YPS ...XWA
3Y^L CLOSETOP
3^F= BRN PA [FOR REQUEST
3^YW # GRAB TAPE - CHECK WPR & MODE STATE
42DG Q4
42Y6 MHUNT 2,CPAR,GPERCON
43CQ NGN 0 2
43XB ANDX 0 A1+2(2)
44C2 BZE 0 PM
44WL MOCHAS [CHECK MODE
45B= TESTREP OK,PM [OK
45TW TESTREP SWITCHED,PM [OR SWITCHED OK
4634 ...#UNS JMT21
468= ... MT21SMES
46*G BRN PUNL
46T6 PM
46W# ... HUNTW 1,FLIB,FSPD
46XG ... BNG 1 PMW [J NO PROPS SPECIFIED
46XR ... LDX 0 A1(1)
46XW ...#UNS JMODGCR
46X^ ...#SKI
46Y4 ... ANDN 0 GLIBTRA9+GLIBTRA7+GLIBPE+GLIBNRZI
46Y7 ...#UNS JMODGCR
46Y= ... ANDN 0 GLIBTRA9+GLIBTRA7+GLIBPE+GLIBNRZI+GLIBGCR
46Y* ... BZE 0 PMW [J NO HW CODE GIVEN
46YN ... MTCHAR A1(1) [CONVERT SPD TO HW CODE
46^W ... LPROP ,5 [GET DECKS PROPS
4734 ... LDX 0 ACOMMUNE1(2)
474= ... LDN 1 #201
475D ... BXL 0 1,PMV
476L ... ANDN 5 #203
477S ... BRN PMV1
4792 ...PMV ANDN 5 #200
47=8 ...PMV1 BXU 5 0,PUNL
47?B ...PMW
47#Q MHUNT 2,CPAR,GPERCON
47SB LDN 1 1
48#2 SMO FX2
48RL LDX 3 CPPTR
49?= JWPR 3,PMX
49QW LDN 1 0
4==G PMX
4=Q6 LDX 7 1 [X7=1 IF WPR, =0 IF NO WPR
4?9Q LDN 0 1
4?PB ANDX 0 A1+2(2)
4#92 BZE 0 P6 [WPR STATE NOT SPECIFIED
4#NL ANDX 0 A1+1(2)
4*8= ERX 0 1 [COMPARE
4*MW BZE 0 P6 [AGREE
4B7G LGEOG 3,5
4BM6 UNLOAD ,,,UNL
4C6Q LONGSET #61,XWT,6
4CLB BZE 6 P5
4D62 CONSERNO 6 [CONVERT TSN
4DKL MHUNT 3,FLIB,FTSN
4F5= OUTPARAM A1(3),A1+1,FLIB,FTSN
4FJW BRN P5A
4G4G P5 OUTNULL
4GJ6 P5A OUTNUM 5,0
4H3Q BZE 7 P5B [J IF WPR NEEDED
4HHB MTREQUEST HUNLWP
4J32 BRN P5C
4JGL P5B MTREQUEST HLOADWP
4K2= P5C LDN 4 0 [TAPE NO LONGER UP
4KFW STOZ AWORK3(2)
4K^G BRN PA1A
4LF6 PUNL UNLOAD ,,,UNL
4LYQ LDN 4 0 [TAPE NO LONGER UP
4MDB STOZ AWORK3(2)
4MY2 BRN PA
4NCL P6 LDX 2 FX2
4NX= PERON
4PBW VFREE GMON,AOUT
4PWG SETREP OK
4QB6 UPPLUS 1
4QTQ # TAPE NOT LOADED
4R*B PA LONGSET #61,XWT,6 [WAITING FOR TAPE LOAD
4RT2 PA1A
4S#L LDX 0 AWORK3(2)
4SS= BZE 0 PA1
4T?W LDX 0 AWORK4(2)
4TRG STO 0 EXEC3(2)
4W?6 BRN REENT
4WQQ PA1
4X=B BZE 6 P7 [NON-STANDARD
4XQ2 CONSERNO 6
4Y9L MHUNT 3,FLIB,FTSN [TSN
4YP= OUTPARAM A1(3),A1+1,FLIB,FTSN
4^8W BRN P8
4^NG P7 MHUNT 3,FILE,FABSNB
5286 SMO HDREC(3)
52MQ LDN 7 A1-6 [ADDRESS WITHIN BLOCK
537B LDN 3 12
53M2 OUTPARAX 3,7,FILE,FABSNB
546L P8 MONOUT FWAITING ["WAITING"
54L= BNZ 4 OUTP [TAPE UP
555W BZE 6 P9 [NONSTANDARD
55KG OUTMESS HXEN [XENOTAPE
5656 MHUNT 3,FLIB,FTSN
56JQ OUTPARAM A1(3),A1+1,FLIB,FTSN
574B MFREE FLIB,FTSN
57J2 DOWN CONSERNO,3
583L BRN PBRKIN
58H= MHUNT 3,AONBS,GTN
592W OUTPARAM A1+4(3),A1+5,AONBS,GTN
59GG MHUNT 3,AONBS,GTN
5=26 OUTPARAM A1+8(3),A1+9,AONBS,GTN
5=FQ MFREE AONBS,GTN
5=^B P13
5?F2 OUTNUM JOBNO(2),0
5?YL MHUNT 3,CPAR,GPERCON
5#D= LDX 0 A1+2(3)
5#XW ANDN 0 1
5*CG BNZ 0 WPR [WPR REQUIREMENT
5*X6 OUTNULL
5BBQ BRN P10
5BWB WPR LDX 0 A1+1(3)
5CB2 ANDN 0 1
5CTL BZE 0 NOWPR [DEFINITELY NO WPR
5D*= OUTMESS AWP
5DSW BRN P10
5F#G NOWPR
5FS6 OUTMESS HNOWP
5G?Q P10
5GRB MHUNT 3,CPAR,GPERCON
5H?2 LDX 0 A1+1(3)
5HQL SRL 0 1
5J== BZE 0 PM1
5JPW OUTMESS HMODE2
5K9G MONICA
5KP6 MHUNT 3,AONBS,GROT
5L8Q OUTPARAM A1(3),A1+1,AONBS,GROT
5LNB BRN P12
5M82 PM1
5MML OUTNULL
5N7= OUTNULL
5NLW BRN P12
5P6G P9 OUTMESS HNS [NONSTANDARD
5PL6 OUTMESS HMT [MT
5Q5Q DOWN CONSERNO,3
5QKB BRN PBRKIN
5R52 MHUNT 3,AONBS,GTN
5RJL OUTPARAM A1+4(3),A1+5,AONBS,GTN
5S4= MHUNT 3,AONBS,GTN
5SHW OUTPARAM A1+8(3),A1+9,AONBS,GTN
5T3G MFREE AONBS,GTN
5TH6 BRN P13
5W2Q P12
5WGB HUNT 2,FLIB,FSPD
5X22 ... LDN 7 0
5XFL BNG 2 P12A
5X^= ... LDX 7 A1(2)
5YDW P12A
5YFM ... LDX 5 7
5YGD ... ANDN 5 +GLIBFAST [PERIPHERAL PR FAST SPECIFIED
5YH9 ... BZE 5 SLOWSP [IF NOT THEN J
5YJ2 ... LDX 5 QFAST(1) [ELSE LOAD STRING 'FAST'
5YJR ... BRN SLFS
5YKJ ...SLOWSP
5YL* ... LDX 5 7
5YM6 ... ANDN 5 +GLIBSLOW [PERIPHERAL PR SLOW SPECIFIED
5YMX ... BNZ 5 SLOW1 [IF SO THEN J
5YNN ... OUTNULL [ELSE NO OUTPUT
5YPF ... BRN PERPROP
5YQ= ...SLOW1
5YR3 ... LDX 5 QSLOW(1) [LOAD STRING 'SLOW'
5YRS ...SLFS
5YSK ... LDX 2 FX2
5YTB ... STO 5 ACOMMUNE1(2) [PRESERVE STRING
5YW7 ... LDN 3 4 [LOAD LENGTH
5YWY ... OUTPARAM 3,ACOMMUNE1 [FAST/SLOW PARAMETER
5YXP ...PERPROP
5YYG SMO FX2
5^D6 ... STO 7 ACOMMUNE1
5^XQ DOWN TRANSPOT,2
62CB TESTREP NOTAV,P11
62X2 MTREQUEST HSELUNIT
63BL BRN OUTP [TO WAIT
63CM ...P11
63DN ... HUNT 2,FLIB,FSPD [RE-FIND FLIB/FSPD BLCK
63FP ... BNG 2 NOPP [J IF DOESN'T EXIST
63FW ...#UNS JMODGCR
63G3 ... OUTMTPROP A1(2)
63G8 ...#UNS JMODGCR
63G* ...#SKI
63GG ...(
63GQ ... LDX 2 A1(2)
63HR ... ANDN 2 GLIBTRA7+GLIBTRA9+GLIBPE+GLIBNRZI [PERIPHERAL PROPERTY?
63JS ... BZE 2 NOPP [J IF NONE
63KT ... LDN 3 4 [SET UP CT FOR NO TO BE TESTED FOR
63LW ...PP1
63MX ... SMO 3
63NY ... LDX 0 TAB1-1(1) [GET MASK
63P^ ... ANDX 0 2
63R2 ... BNZ 0 PP2 [J IF PER PROP DETERMINED
63S3 ... BCT 3 PP1
63T4 ... GEOERR 1,XEN
63W5 ...PP2
63X6 ... LDX 0 3
63Y7 ... SLL 3 1
63^8 ... ADX 0 3
6429 ... ADN 0 TAB2-3(1) [X3= ADDRESS OF PER PROP STRING
643= ... SMO FX2
644? ... LDN 1 ACOMMUNE1
645# ... MOVE 0 3 [MOVE STRING
646* ... LDX 2 FX2
647B ... OUTPARAM ACOMMUNE1(2),ACOMMUNE2 [PUT PER PROP IN MESSAGE
647W ...)
648C ... BRN OPSMESS
649D ...NOPP
64=F ... OUTNULL [NO PER PROP
64?G ...OPSMESS
64#H ... MTREQUEST HSLCTWHN
64*W OUTP OUTPAUSE PBRKIN,WOKEN,PCANTDO,2,REENT
64TG LDN 0 1
65*6 STO 0 AWORK3(2) [NOT FIRST TIME
65SQ BRN PA1 [NEXT PLEASE LOAD
66#B WOKEN LDN 0 1 [NOT FIRST TIME
66S2 STO 0 AWORK3(2)
67?L LDX 0 EXEC3(2)
67R= STO 0 AWORK4(2)
68=W BZE 6 NSWAKE
68QG BRN XWAKE [SEE IF OK
69=6 PCANTDO
69PQ SETREP NOTAV
6=9B UPPLUS 1
6=P2 PBRKIN
6?8L UP [BREAKIN
6?N= # ENTRY POINT FOR NONSTANDARD TAPES
6#7W QK2XENON
6#MG LDN 4 0
6*76 STOZ AWORK3(2)
6*LQ MHUNT 3,FILE,FABSNB
6B6B LDX 0 ATYPE(3)
6BL2 ANDN 0 #2000 [TSN?
6C5L BZE 0 NSWAKE
6CK= SETREP NONSER
6D4W UPPLUS 1
6DJG NSWAKE
6F46 OPENSYS PBRKIN,DOCUMENT,READ
6FHQ SDSEARCH Q1,NONS
6G3B LDN 6 0 [RESET X6=0 FOR NONS TAPE
6GH2 CALL 7 TSTALLOC [SEE IF TAPE IS ALREADY IN USE
6H2L BRN Q4
6HG= BRN QA
6H^W Q1 BZE 4 QNUP
6JFG SMO FX2
6J^6 STOZ AWORK3
6KDQ QNUP LDN 4 0
6KYB LDN 6 0 [NONS MARKER
6LD2 QA CLOSETOP [DOCUMENT
6LXL BRN PA
6MC= # SUBROUTINE TO TEST IF DECK IS ALLOCATED
6MWW TSTALLOC
6NBG SBX 7 FX1
6NW6 LDX 3 22(3) [DEVICE LIST POINTER
6P*Q ... JALLOC 3,TSTJOB [ALLOCATED
6PTB SETALLOC 3 [MARK ALLOCATED
6Q*2 SMO FX2
6QSL STO 3 CPPTR
6R#= HUNT 1,FLIB,GOLMT
6RRW BPZ 1 NBLK
6S?G SETNCORE 11,1,FLIB,GOLMT
6SR6 NBLK STEPAGAIN
6T=Q MHUNT 1,FLIB,GOLMT
6TQB LDN 0 2(3)
6W=2 LDN 1 A1+3(1)
6WPL MOVE 0 8
6X9= LDX 0 0(1) [REMOVE BIT 0 IF XENOTAPE
6XNW STOC 0 0(1) [SO THAT OBJ PROG REPLY IS CORRECT
6Y8G CLOSETOP [DOCUMENT
6YN6 ADX 7 FX1
6^7Q EXIT 7 0
6^9F ...TSTJOB
6^?8 ... LJOBNO 3,0
6^#X ... BZE 0 XIT [CHECK NOT ALREADY ONLINE
6^BL ... SMO FX2
6^D* ... BXU 0 JOBNO,XIT [TO THIS JOB
6^G4 ... CLOSETOP [SYSTEM.DOCUMENT
6^HR ... SETREP CLUDGE
6^KG ... UPPLUS 1
6^MB XIT LDN 4 1 [TAPE UP
7272 ADX 7 FX1
72LL EXIT 7 1
736= #
73KW # GEOERRS
745G #
74K6 XWT GEOERR 1,XWT
754Q MENDAREA 50,K99XENON
75JB #END
^^^^ ...07352010001200000000