(George Source)
Macros used: BXL, BXU, CLOSETOP, CONSERNO, DOWN, GEOERR, HUNT, HUNTW, JALLOC, JWPR, LGEOG, LJOBNO, LONGSET, LPROP, MENDAREA, MFREE, MHUNT, MOCHAS, MONICA, MONOUT, MT21SMES, MTCHAR, MTREQUEST, OPENDIR, OPENSYS, OUTMESS, OUTMTPROP, OUTNULL, OUTNUM, OUTPARAM, OUTPARAX, OUTPAUSE, PERON, SDSEARCH, SEGENTRY, SETALLOC, SETNCORE, SETREP, SSEARCH, STEPAGAIN, TESTREP, UNLOAD, UP, UPPLUS, 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