{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: OLMTA85)}}
====== OLMTA85 ======
(George Source)
**Macros used:** [[george:macro:BXE|BXE]], [[george:macro:BXU|BXU]], [[george:macro:CHAIN|CHAIN]], [[george:macro:CHANGEPER|CHANGEPER]], [[george:macro:COMBRKIN|COMBRKIN]], [[george:macro:COMERR|COMERR]], [[george:macro:DFLOAD|DFLOAD]], [[george:macro:DOWN|DOWN]], [[george:macro:ENDCOM|ENDCOM]], [[george:macro:ERRTEST|ERRTEST]], [[george:macro:FJOCA|FJOCA]], [[george:macro:FNORM|FNORM]], [[george:macro:GEOERR|GEOERR]], [[george:macro:GETACT|GETACT]], [[george:macro:HLSXONCH|HLSXONCH]], [[george:macro:HUNT|HUNT]], [[george:macro:LGEOG|LGEOG]], [[george:macro:LINKSET|LINKSET]], [[george:macro:LOCK|LOCK]], [[george:macro:MENDAREA|MENDAREA]], [[george:macro:MFREE|MFREE]], [[george:macro:MHUNT|MHUNT]], [[george:macro:MONOUT|MONOUT]], [[george:macro:MTEXPROP|MTEXPROP]], [[george:macro:MTMERGPROP|MTMERGPROP]], [[george:macro:NAMETOP|NAMETOP]], [[george:macro:OUTPACK|OUTPACK]], [[george:macro:OUTPACKB|OUTPACKB]], [[george:macro:OUTPAR|OUTPAR]], [[george:macro:OUTPARB|OUTPARB]], [[george:macro:PAIR|PAIR]], [[george:macro:PICKREP|PICKREP]], [[george:macro:PROPERTY|PROPERTY]], [[george:macro:PTREP|PTREP]], [[george:macro:PUTPERENT|PUTPERENT]], [[george:macro:PUTREP|PUTREP]], [[george:macro:REPERR|REPERR]], [[george:macro:ROLPA|ROLPA]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SETNCORE|SETNCORE]], [[george:macro:SETUPMODE|SETUPMODE]], [[george:macro:SKIP|SKIP]], [[george:macro:SPARANOT|SPARANOT]], [[george:macro:TESTREP|TESTREP]], [[george:macro:UNLOCK|UNLOCK]], [[george:macro:USEROPEX|USEROPEX]], [[george:macro:VFREE|VFREE]]
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