OLMTA85
(George Source)
Macros used: BXE, BXU, CHAIN, CHANGEPER, COMBRKIN, COMERR, DFLOAD, DOWN, ENDCOM, ERRTEST, FJOCA, FNORM, GEOERR, GETACT, HLSXONCH, HUNT, LGEOG, LINKSET, LOCK, MENDAREA, MFREE, MHUNT, MONOUT, MTEXPROP, MTMERGPROP, NAMETOP, OUTPACK, OUTPACKB, OUTPAR, OUTPARB, PAIR, PICKREP, PROPERTY, PTREP, PUTPERENT, PUTREP, REPERR, ROLPA, SEGENTRY, SETNCORE, SETUPMODE, SKIP, SPARANOT, TESTREP, UNLOCK, USEROPEX, VFREE
- OLMTA85.txt
22FL #LIS K0OLMTA>K0LIBRARY>K0ALLGEO 22^= #SEG OLMTA6 [N.R.BOULT 23DW 8HOLMTA 23YG SEGENTRY K1OLMTA,QK1OLMTA 24D6 SEGENTRY K2OLMTA,QK2OLMTA 24XQ TLINK PAIR OLMTD,1 25CB TPRB 25X2 #HAL APERI+APERIRES,0 26BL WMODE #300 [OPEN MODE FOR WRITING 26W= RMODE #200 27*W ZDET 8H(/C1) 27TG ZANUM #30021 28*6 TMSK #74 28SQ [ENTRY POINT FOR ONLINE COMMANDS 29#B QK1OLMTA 29B^ ...#UNS JWPHASE4 29FJ ...( 29J7 ... MHUNT 3,CPAR,GPERCON 29LQ ... HLSXONCH XBRKIN,A1(3),PERR2 [ASK HLS IF JOB CAN HAVE ANUVER TAPE 29P* ...) 29S2 STOZ AWORK1(2) [CLEAR AWORK WORDS 2=?L STOZ AWORK2(2) 2=R= STOZ AWORK3(2) 2?=W STOZ AWORK4(2) 2?QG PROPERTY NOP,1,2 2#=6 MTEXPROP DECK [EXTRACT SPECIAL PROPERTIES 2#PQ TESTREPN OK,PERR 2*9B LDX 0 ACOMMUNE1(2) 2*P2 STO 0 AWORK3(2) [SPECIAL PROPERTY DESCRIPTION 2B8L LDX 0 ACOMMUNE2(2) 2BN= STO 0 AWORK4(2) [ILLEGAL PROPERTY MASK 2C7W MFREE CPB,CUNI 2CMG MFREE APERI,APROPS 2D76 NOP 2DLQ SPARANOT 2 [PASS 2ND PAR 2F6B HUNT 3,CPB,CUNI 2FL2 NGX 0 ANUM(3) 2G5L BNG 0 PNA [BRANCH IF PARAM SPECIFIED 2GK= MFREE CPB,CUNI 2H4W LDN 4 7 [MODES 2HJG LDX 0 AWORK3(2) 2J46 STO 0 ACOMMUNE1(2) 2JHQ DOWN LIBREQC,1 [ELSE REQUEST POOLTAPE 2K3B BRN XBRKIN 2KH2 LDN 0 #600 2L2L STO 0 AWORK2(2) 2LG= TESTREP NOTAV,NOWT,TEMP,TEMP 2L^W SETNCORE 10,2,FLIB,GOLMT 2MFG STOZ A1(2) 2M^6 LDN 5 A1(2) 2NDQ LDN 6 A1+1(2) 2NYB MOVE 5 9 2PD2 HUNT 3,FILE,FABSNB 2PXL SMO HDREC(3) 2QC= LDX 5 HDREC+1(3) 2QWW STO 5 A1+3(2) 2RBG SMO HDREC(3) 2RW6 LDN 5 HDREC-6(3) 2S*Q LDN 6 A1+4(2) 2STB MOVE 5 3 2T*2 BRN PTREP 2TSL NOWT COMERR JNWT 2W#= TEMP 2WRW SETNCORE 7,3,CPB,CUNI 2X?G FJOCA 2,2 2XR6 LDN 4 JNAME(2) 2Y=Q LDN 5 APARA(3) 2YQB MOVE 4 3 2^=2 LDN 4 ZDET(1) 2^PL ADN 5 3 329= MOVE 4 2 32NW LDN 0 1 338G DSA 0 ATYPE(3) 33N6 STO 0 JPARNUM(3) 347Q LDX 0 ZANUM(1) 34MB STO 0 ANUM(3) 3572 COMERR ERALREX 35LL PNA 366= NAMETOP 3,FILE,FNAME [NAME BLOCK FOR FNORM 36KW FNORM 7 375G TESTREP NAMEFORM,PH3 37K6 PICKREP 7 384Q MHUNT 3,FILE,FNAME 38JB NAMETOP 3,CPB,CUNI 3942 PUTREP 7 39HL NGN 7 1 [NO ADJUNCTS YET 3=3= TESTREP OK,PGI2 [J NO ADJUNCTS 3=GW MHUNT 3,FILE,ADJUNCTS 3?2G LDX 0 A1+2(3) 3?G6 BNG 0 XBO [J IF SLOW PERI 3?^Q SRL 0 15 3#FB BZE 0 XBO1 [J IF NO PERI SPECIFIED 3#^2 SBN 0 5 3*DL BZE 0 XBO1 [J IF MT 3*Y= XBO STOZ A1+2(3) [CLEAR AS NOT MEANINGFUL 3BCW XBO1 LDX 0 A1+2(3) 3BXG ANDN 0 2 3CC6 BZE 0 PNA1 [BRANCH IF NO ENTRANT PROPERTIES 3CWQ MTEXPROP TAPE 3DBB TESTREPN OK,PERR 3DW2 MTMERGPROP ACOMMUNE1(2),ACOMMUNE2(2),AWORK3(2),AWORK4(2),3,4,PILLC 3F*L STO 3 AWORK3(2) 3FT= STO 4 AWORK4(2) 3G#W MFREE FILE,FPROPS 3GSG PNA1 3H#6 MHUNT 3,FILE,ADJUNCTS 3HRQ LDX 1 FX1 3J?B LDX 0 TGI(1) 3JR2 ANDX 0 A1+1(3) 3K=L BZE 0 PNA2 [J IF NO 'GIVE' QUALIFIER 3KQ= LDCT 0 #400 3L9W STO 0 AWORK1(2) 3LPG PNA2 LDX 4 A1+2(3) 3M96 ANDN 4 1 3MNQ BZE 4 PNA3 [J IF NO 'NONSTANDARD' QUALIFIER 3N8B LDN 4 GLIBNONS 3NN2 ORS 4 AWORK3(2) 3P7L PNA3 LDX 2 ALOGLEN(3) 3PM= SBN 2 ADPAIR-A1 3Q6W SRL 2 1 [NO. OF ADJUNCT PAIRS 3QLG BZE 2 PM3 3R66 PM1 LDX 0 ADPAIR(3) 3RKQ SBN 0 15 3S5B BNZ 0 PM2 [J IF NOT MODE ADJUNCT 3SK2 LDX 7 ADPAIR+1(3) 3T4L BRN PM3 3TJ= PM2 ADN 3 2 3W3W BCT 2 PM1 [TRY NEXT PAIR 3W=6 ...PM3 3WDB ...#UNSET FTS1 3WLL ...#SKIP 3WSW ... MFREE FILE,ADJUNCTS 3WY2 ... LDX 2 FX2 3X36 MHUNT 3,CPAR,GPERCON 3XGQ BNG 7 PGI2 [J IF NO MODE ADJUNCT 3Y2B LDX 0 A1+2(3) 3YG2 ANDX 0 TMSK(1) 3Y^L BNZ 0 PGI2 [J IF MODE ALREADY GIVEN 3^F= LDX 0 TMSK(1) 3^YW ORS 0 A1+2(3) 42DG ORS 7 A1+1(3) [STORE MODE VALUE 42Y6 PGI2 LDX 5 AWORK3(2) 43CQ BZE 5 PM4 [J IF NO PROPERTIES 43XB SETNCORE 1,3,FLIB,FSPD 44C2 STO 5 A1(3) 44WL MHUNT 3,CPAR,GPERCON 45B= ANDN 5 GLIBMODE 45TW BZE 5 PM4 [J IF NO MODE PROPERTY 46*G LDX 5 AWORK3(2) 46T6 LDN 0 #74 47#Q ORS 0 A1+1(3) 47SB ERS 0 A1+1(3) 48#2 ORS 0 A1+2(3) 48RL SRL 5 18 49?= ORS 5 A1+1(3) [STORE MODE VALUE 49QW PM4 4=2N MHUNT 3,CPAR,GPERCON 4==G LDX 0 A1+1(3) [PROPERTY WORD 4=Q6 ADX 0 A1+2(3) [PLUS SPECIFIER 4?9Q ANDN 0 3 4?PB ADN 0 1 4#92 SLL 0 6 [MODE 4#NL STO 0 AWORK2(2) 4*8= MHUNT 3,FILE,FABSNB 4*MW LDN 0 1 4B7G ORS 0 ATYPE(3) 4BM6 LDX 0 ATYPE(3) 4C6Q ANDN 0 #200 4CLB BNZ 0 PM6 [BRANCH IF NAMED WORK TAPE 4D62 LDX 0 AWORK2(2) 4DKL LDN 7 AREAD 4F5= BXU 0 WMODE(1),PH4 [READ UNLESS WRITE SPECIFIED 4FJW LDN 7 AWRITE 4G4G PH4 4GJ6 # ADJUST GENERATION NUMBER 4H3Q LDCT 0 #600 4HHB SMO HDREC(3) 4J32 ANDX 0 A1-2(3) 4JGL BZE 0 PGN [BRANCH UNLESS RELATIVE GENERATION 4K2= LDX 0 AWORK3(2) 4K=4 ... ANDN 0 GLIBNONS 4KFW BNZ 0 PH4A [BRANCH IF NONSTANDARD 4K^G LDX 0 ATYPE(3) 4LF6 ANDN 0 #2000 4LYQ BZE 0 PH4B [BRANCH IF NOT XENOTAPE 4MDB SMO HDREC(3) 4MY2 LDX 0 A1+1(3) 4NCL BPZ 0 PH4B [BRANCH IF NOT XENOTAPE 4NX= PH4A 4PBW COMERR ERGENERR 4PWG PH4B 4QB6 LDCT 0 #200 [SET B1 4QTQ SMO HDREC(3) 4R*B ANDX 0 A1-2(3) 4RT2 BZE 0 PGN [J IF NOT + 4S#L SMO HDREC(3) 4SCQ ... LDX 0 A1-2(3) [SET +N TO +0 4SGW ... ANDN 0 #7777 4SL2 ... BZE 0 PGN 4SP6 ... COMERR ERNOFILE [ERROR IF +N 4SS= 4T?W PGN 4TRG # ADJUST REEL NUMBER 4W?6 SMO HDREC(3) 4WQQ LDX 0 A1-3(3) 4X=B BNZ 0 PGN1 [BRANCH IF REEL NO. GIVEN 4XQ2 LDCT 0 #100 [DEFAULT SETTING=0 4Y9L SMO HDREC(3) 4YP= STO 0 A1-3(3) 4^8W PGN1 4^NG SMO FX2 5286 LDX 0 AWORK3 52MQ #SKI FLIBP 537B ANDN 0 GLIBNONS 53M2 BZE 0 PH7 546L DOWN XENON,2 54L= BRN XBRKIN 555W BRN PTREPX 55KG PH7 LDX 0 ATYPE(3) 5656 ANDN 0 #2000 56JQ BZE 0 PH8 [NOT XENO 574B SMO HDREC(3) 57J2 LDX 0 A1+1(3) 583L BPZ 0 PH8 [NOT XENO 58H= DOWN XENON,1 592W BRN XBRKIN 59GG BRN PTREPX 5=26 PM6 5=FQ LDCT 0 #200 5=^B SMO HDREC(3) 5?F2 STO 0 A1-2(3) [TAKE HIGHEST LEVEL 5?YL STOZ AWORK3(2) [STANDARD TAPE 5#D= LDX 0 AWORK2(2) 5#XW LDN 7 AWRITE 5*CG BXE 0 WMODE(1),PH8 [BRANCH IF WRITE SPECIFIED 5*X6 BXU 0 RMODE(1),PM6A 5BBQ LDN 7 AREAD 5BWB BRN PH8 5CB2 PM6A 5CTL MHUNT 3,CPAR,GPERCON 5D*= LDN 0 1 5DSW ORS 0 A1+1(3) 5F#G ORS 0 A1+2(3) 5FS6 PH8 5G?Q SETUPMODE ,6,HDDRLAB [SET UP FLIB/GOLMT WITH DATE 5GRB USEROPEX XBRKIN,7,6 5GYJ ...#UNSET FTS1 5H5Q ... VFREE FILE,ADJUNCTS 5H?2 PTREP 5HQL REPERR PH2 5J== PH3 ENDCOM [FINISH-ERROR 5JPW PTREPX 5K9G TESTREP OK,PH2 [TAPE ONLINE 5KP6 TESTREPN NONSER,PH10 5L8Q COMERR HTSN 5LNB PH10 5M82 ... ERRTEST 3,PH3,NOTAV,NOXENO,XENONAME,CLUDGE 5MML GEOERR 1,XREP 5N7= TGI +AGIVE [MASK FOR GIVE QUALIFIER 5NLW [NOW FIND THE FLIB/GOLMT BLOCK AND PRB ENTRY WORD IN X5 SET UP 5P6G PH2 5PL6 HUNT 3,CPAR,GPERCON 5Q5Q LDX 5 A1(3) [TYPE/UNIT NO. 5QKB MHUNT 3,FLIB,GOLMT 5R52 LDCT 0 5 5RJL SMO FX2 5S4= ADX 0 AWORK2 5SHW STO 0 A1+2(3) [TYPE/EFFECTIVE MODE 5T3G BRN PA 5TH6 [THIS SECTION INSERTS AN ENTRY INTO THE PERIPHERAL RESERVATION BLOCK, 5W2Q [SETS UP AN OFFLINE ACTIVITY BLOCK,TYPE AOLPT, WHICH IT CHAINS IN THE 5WGB [APPROPRIATE PLACE AFTER THE PERIPHERAL RESERVATION BLOCK IN ORDER TO 5X22 [MONITOR THE FIRST OBJECT PROGRAM PERI,4 IF IT IS AN OPEN MODE PERI 5XFL [TO FILLIN THE REPLY INFORMATION FROM THE DATA BLOCK,TYPE CPAR/GOLMT, 5X^= [WHICH IS ALSO CHAINED AFTER THE NEW AOLPT 5YDW [ 5YYG [ 5^D6 QK2OLMTA 5^XQ STOZ AWORK3(2) 62CB PA 62X2 LDX 2 FX2 63BL LDX 4 CPPTR(2) 63W= LDX 0 AWORK1(2) 64*W BPZ 0 PA1A [BRN IF NO GIVE QUALIFIER 64TG LDX 0 AWORK3(2) 65*6 BZE 0 PA1 [BRN IF NOT NONS TAPE 65SQ PA1A 66#B ORX 4 GSIGN 66S2 PA1 67?L PUTPERENT 5,4 [SET UP PRB ENTRY & OUTPUT MESSAGE 67R= OUTPAR TIMENOW 68=W SJ 68QG LGEOG ,3 69=6 OUTPACK 3,1,GEOPER,SJ 69PQ SJ1 6=9B OUTPACKB 5,1,PERINAME,SJ1 6=P2 DFLOAD ,TSN,3 6?8L BZE 3 SJ3 [BRANCH IF NONSTANDARD TAPE 6?N= SJ2 6#7W OUTPACKB 3,1,TSN,SJ2 6#MG BRN SJ4 6*76 SJ3 6*LQ OUTPARB SKIP 6B6B SJ4 6BL2 MHUNT 3,FLIB,GOLMT 6C5L OUTPACKB A1+4(3),3,LOCNAME,SJ4 6CK= SJ5 6D4W MHUNT 3,FLIB,GOLMT 6DJG OUTPACKB A1+8(3),1,GENNUM,SJ5 6F46 SJ6 6FHQ MHUNT 3,FLIB,GOLMT 6G3B OUTPACKB A1+7(3),1,REELNUM,SJ6 6GH2 DFLOAD ,TSN,3 6H2L BZE 3 SJ7 6HG= OUTPARB SKIP 6H^W BRN SJ8 6JFG SJ7 6J^6 OUTPARB NULL 6KDQ SJ8 6KYB MONOUT JPER 6LD2 LDX 0 AWORK3(2) 6LXL BNZ 0 PA2 [IF NONS TAPE SET UP AOLPT 6MC= LDX 0 AWORK1(2) 6MWW BNG 0 QGI1 [BRANCH IF GIVE QUALIFIER GIVEN 6NBG PA2 6NW6 GETACT AOLPT,,1 [GET NEW ACTIVITY 6P*Q LDX 3 BPTR(2) [POINTER TO NEW ACTIVITY 6PTB LDX 0 JOBNO(2) 6Q*2 STO 0 JOBNO(3) [INSERT JOB NR 6QSL LDN 0 2 6R#= STO 0 ATMARK(3) [TYPE MARKER,2 FOR MT 6RRW LINKSET 3,TLINK(1) 6S?G LDX 0 AWORK3(2) 6SR6 ANDN 0 GLIBNONS 6T=Q STO 0 AWORK3(3) [NONSTANDARD MARKER 6TQB STOZ ACOUNT(3) 6W=2 STO 5 ACC4(3) 6WPL STO 4 ACC5(3) 6X9= LDX 0 GSIGN 6XNW STO 0 FRECHADD(3) [CHAIN ACTIVITY WHEN EVENT 6Y8G LDX 0 AWORK1(2) 6YN6 BPZ 0 PA3 [BRN IF NO GIVE QUALIFIER 6^7Q LDX 0 GSIGN 6^MB STO 0 ALTMARK(3) 7272 PA3 72LL CHANGEPER 3 [HAND OVER TAPE 736= ROLPA [CHAIN AOLPT IN CORRECT PLACE 73KW LOCK 6 [GIVEN TO THE MONITORING FILE 745G MHUNT 1,FLIB,GOLMT 74K6 CHAIN 1,6 754Q UNLOCK 6 75JB QGI4 7642 ENDCOM 76HL QGI1 773= STOZ CPPTR(2) 77GW MFREE FLIB,GOLMT 782G BRN QGI4 78G6 PERR 78^Q TESTREPN ILLCOMB,PERR1 79FB PILLC 79^2 COMERR ERILLCOMB 7=DL PERR1 7=Y= COMERR ERILLMODE 7?2T ...#UNS JWPHASE4 7?5D ...( 7?83 ...PERR2 7?=L ... COMERR ERHLSONL [HLS FORBIDS FURTHER ACQUISITION 7?*9 ...) 7?CW OERR1 GEOERR 1,XPROG 7?XG XBRKIN 7#C6 COMBRKIN 7#WQ MENDAREA 50,K99OLMTA 7*BB #END ^^^^ ...35735642000500000000