12 22FL #LIS K0UNLOAD>K0LIBRARY>K0ALLGEO 15 22_= #SEG UNLOAD7 [N.R.BOULT 9 23DW 8HUNLOAD 12 23YG SEGENTRY K1UNLOAD,QK1UNLOAD 9 24D6 UNMAX +#1000 9 24XQ QMT #325564 8 25CB PENRZI #201 6 25X2 QK1UNLOAD 7 26BL LDN 7 0 4 26W= Q1 7 27*W SPARAPAS 10 27TG HUNT 3,CPB,CUNI 9 28*6 LDX 0 ANUM(3) 18 28SQ BZE 0 Q1 [BRANCH IF NULL PARAMETER 19 29#B BNG 0 Q2 [BRANCH IF NO MORE PARAMETERS 7 29S2 ADN 7 1 9 2=?L LDX 0 APARA(3) 7 2=R= SRL 0 6 16 2?=W BXE 0 QMT(1),Q3 [BRANCH IF *MT 16 2?QG LDX 3 JPARNUM(3) [PARAMETER NUMBER 20 2#=6 PARSORTX QBRKIN,3 [ANALYSE PERIPHERAL DESCRIPTION 8 2#PQ BRN Q1 5 2*9B QBRKIN 9 2*P2 GEOERR 1,XBRKIN 4 2B8L Q2 9 2BN= MFREE CPB,CUNI 20 2C7W BNZ 7 Q4 [BRANCH IF PARAMETER SPECIFIED 9 2CMG COMERR JPARMIS 12 2D76 # SET UP CPAR/JSCE BLOCK FOR *MT 4 2DLQ Q3 10 2F6B SMO ALOGLEN(3) 10 2FL2 LDN 4 JSCER-APARA 18 2G5L SETUPCORE 4,3,CPAR,JSCE [SET UP CPAR/JSCE BLOCK 10 2GK= MHUNT 2,CPB,CUNI 8 2H4W LDCT 0 #400 9 2HJG STO 0 JSCEP(3) 8 2J46 LDCT 0 #50 9 2JHQ STO 0 JSCEA(3) 10 2K3B LDX 0 JPARNUM(2) 8 2KH2 SLL 0 12 9 2L2L STO 0 JSCEQ(3) 9 2LG= LDX 0 ANUM(2) 18 2L_W DSA 0 JSCEQ(3) [NO OF CHARS IN PARAMETER 8 2MFG ADN 2 APARA 8 2M_6 ADN 3 JSCER 8 2NDQ ANDN 0 #7777 7 2NYB SMO 0 16 2PD2 MVCH 2 0 [COPY PARAMETER 10 2PXL MHUNT 2,CPB,CUNI 18 2QC= LDX 4 GSIGN [NO SPECIAL PROPERTIES 10 2QWW LDX 3 JPARNUM(2) 8 2RBG PARALYSE ,,3 10 2RHN ...#UNS ANSTOOMANY 19 2RNW ... TESTREP2 TOOMANY,Q3ERR2 [ CHECK FOR >24 PARAMETERS 7 2RW6 SPARANOT 2 10 2S*Q MHUNT 2,CPB,CUNI 9 2STB NGX 0 ANUM(2) 18 2T*2 BPZ 0 Q3A [BRANCH IF NO QUALIFIER 9 2TSL LDX 0 APARA(2) 7 2W#= SRL 0 6 8 2WRW ANDN 0 #7777 8 2X?G SBN 0 #6062 20 2XR6 BNZ 0 Q3A [BRANCH IF NOT PROPERTY QUALIFIER 9 2Y=Q MFREE CPB,CUNI 7 2YQB LDN 3 2 20 2_=2 PARALYSE ,,3 [REMOVE BRACKETS FROM PROP QUAL 10 2_C8 ...#UNS ANSTOOMANY 19 2_JB ... TESTREP2 TOOMANY,Q3ERR2 [ CHECK FOR >24 PARAMETERS 7 2_PL SPARANOT 1 7 329= ENTPROP 18 32NW TESTREP NAMEFORM,Q3ERR1,ILLCOMB,Q3ERR,ILLMODE,Q3ERR 10 338G MHUNT 2,FILE,FPROPS 11 33N6 NAMETOP 2,APERI,APROPS 8 347Q MTEXPROP DECK 9 34MB TESTREPN OK,Q3ERR 10 3572 MTCHAR ACOMMUNE1(2) 10 35LL LDX 4 ACOMMUNE1(2) 10 366= MFREE APERI,APROPS 4 36KW Q3A 10 375G MHUNT 2,CPAR,JSCE 9 37K6 STO 4 JSCEK(2) 9 384Q MFREE CPB,CUNI 4 38JB Q3A1 7 3942 PARAFREE 9 39HL MFREE CPB,CUNI 8 3=3= BRN Q1 5 3=GW Q3ERR 9 3?2G MFREE CPB,CUNI 9 3?G6 MFREE CPAR,JSCE 13 3?_Q ERRTEST 3,Q3A1,ILLCOMB,ILLMODE 9 3#FB GEOERR 1,PROPREP 5 3#_2 Q3ERR1 9 3*DL MFREE CPB,CUNI 9 3*Y= MFREE CPAR,JSCE 9 3BCW ERROR ILLQUAL 8 3BXG BRN Q3A1 10 3B_D ...#UNS ANSTOOMANY 4 3C3B ...( 5 3C5# ...Q3ERR2 9 3C7= ... MFREE CPAR,JSCE 9 3C98 ... ERROR JMAXPAR 8 3C?6 ... BRN Q3A1 4 3C*4 ...) 13 3CC6 # ALL PARAMETERS HAVE BEEN ANALYSED 4 3CWQ Q4 8 3DBB LDX 3 FX2 4 3DW2 Q4A 10 3F*L HUNT2OPT 3,CPAR,JSCE 21 3FT= BNG 3 Q4B [BRANCH IF ALL CPAR/JSCE BLOCKS EXAMI 9 3G#W LDCH 0 JSCEA(3) 14 3GJN ... BZE 0 Q4A [*TR 7 3GSG ... SBN 0 3 14 3H4# ... BZE 0 Q4A [*CR 7 3H#6 ... SBN 0 2 16 3HHY ... BNZ 0 Q4D [J IF NOT *MT 8 3HRQ CHAIN 3,FX2 9 3J?B LDX 4 JSCEA(3) 19 3JR2 ANDN 4 #777 [EXTRACT GEOGRAPHIC NO IF ANY 8 3K=L BNZ 4 Q7 9 3KQ= LDX 0 JSCEK(3) 8 3L9W SMO FX2 9 3LPG STO 0 AWORK1 8 3M96 BRN Q5 4 3MNQ Q4B 10 3N8B HUNT 3,CPAR,JSCE 8 3NN2 BNG 3 Q4C 10 3P7L ACROSS SPUNLOAD,1 4 3PM= Q4C 6 3Q6W ENDCOM 4 3Q=2 ...Q4D 8 3Q*6 ... CHAIN 3,FX2 9 3QD= ... CALL 6 SETCUNI 10 3QHB ... ERROR JWRONGTYPE 4 3QLG Q6 9 3R66 VFREE CPB,CUNI 9 3RKQ MFREE CPAR,JSCE 8 3S5B BRN Q4 14 3SK2 ...# SUBROUTINE TO SET UP A CPB/CUNI BLOCK 5 3T4L ...SETCUNI 8 3TJ= ... SBX 6 FX1 9 3W3W LDX 4 JSCEQ(3) 8 3WHG ANDN 4 #7777 7 3X36 SRA 4 1 7 3XGQ SRA 4 1 7 3Y2B ADN 4 2 10 3YG2 SETUPCORE 4,3,CPB,CUNI 10 3Y_L MHUNT 2,CPAR,JSCE 9 3_F= LDX 0 JSCEQ(2) 8 3_YW SRL 01 12 8 42DG SRL 1 12 17 42Y6 STO 1 ANUM(3) [NUMBER OF CHARACTERS 10 43CQ STO 0 JPARNUM(3) 8 43XB ADN 2 JSCER 8 44C2 ADN 3 APARA 8 44WL MVCH 2 0(1) 8 44Y8 ... ADX 6 FX1 7 44_Q ... EXIT 6 0 16 454W ...# UNLOAD A DECK WITH A GIVEN GEOGRAPHIC NUMBER 4 4582 ...Q7 9 45?6 ... CALL 6 SETCUNI 10 45B= MHUNT 2,CPAR,JSCE 9 45TW LDX 3 JSCEP(2) 17 46*G JWRONG 3,TWONG [JUMP IF DECK WRONGED 16 46T6 DFJUMPS 3,LOAD,Q9 [JUMP IF ENGAGED 19 47#Q JALLOC 3,Q10 [JUMP IF ALREADY ALLOCATED 10 47SB ERROR JNOTENGAGE 8 48#2 BRN Q6 17 48RL TWONG ERROR JWRONGED [OUTPUT ERROR MESSAGE 8 49?= BRN Q6 20 49QW Q10 DFSET 3,UNL [SET 'UNLOAD COMMAND GIVEN' BIT 8 4==G LGEOG 3,4 18 4=Q6 LONGON #65,4 [WAKE UP REDON OR LABEL 8 4?9Q BRN Q6 17 4?PB Q9 JONL 3,Q12 [JUMP IF TAPE ONLINE 17 4#92 JALLOC 3,Q12 [JUMP IF ALLOCATED 20 4#9T ... FSHSKIP B,Q9A [ OMIT CHEK FOR RV'S IN M/C B 4 4#=N ...( 10 4#?K ... DFJUMPS 3,NONS,Q9A 9 4#B8 ... DFLOAD 3,TSN,5 21 4#DR ... FDTENT 2,5,Q9A [DO NOT UNLOAD A TAPE FOR WHICH 20 4#HB ... BRN Q12 [THERE IS AN OUTSTANDING RV 4 4#JM ...) 4 4#K_ ...Q9A 7 4#NL SETALLOC 3 10 4*8= UNLOAD 3,,,UNL,AUT 8 4*MW BRN Q6 20 4B7G Q11 DFSET 3,UNL [SET 'UNLOAD COMMAND GIVEN' BIT 9 4BM6 Q12 DFLOAD 3,TSN,5 8 4C6Q LJOBNO 3,6 17 4CLB LDX 4 3 [KEEP FOR LATER USE 11 4D62 SETNCORE 5,3,AONBS,GROT 10 4DKL DFJUMPN 4,NONS,Q13 9 4F5= LDN 0 TNON(1) 9 4FJW LDN 1 A1+1(3) 16 4G4G MOVE 0 4 [NONSTANDARD TAPE 8 4GJ6 LDN 0 16 17 4H3Q STO 0 A1(3) [COUNT OF CHARACTERS 8 4HHB BRN Q14 7 4J32 Q13 LDN 2 3 16 4JGL BZE 5 Q30 [TSN NOT KNOWN 10 4K2= CONSERNO 5,ACOMMUNE1 10 4KFW MHUNT 3,AONBS,GROT 13 4K_G Q30 LDN 0 TMT(1) ['MT' 9 4LF6 LDN 1 A1+1(3) 14 4LYQ MVCH 0 3 ['MT ' 8 4MDB BZE 5 Q31 10 4MY2 LDN 0 ACOMMUNE2(2) 10 4NCL LDX 2 ACOMMUNE1(2) 13 4NX= MVCH 0 0(2) [TSN 7 4PBW ADN 2 3 16 4PWG Q31 STO 2 A1(3) [CHARACTER COUNT 12 4QB6 Q14 OUTPARAM A1(3),A1+1,AONBS,GROT 17 4QTQ JONL 4,Q15 [JUMP IF DECK ONLINE 9 4R*B ERROR JUSSYS 8 4RT2 BRN Q6 8 4S#L Q15 OUTNUM 6,0 8 4SS= ERROR JUNOL 7 4T?W BRN Q6 16 4TRG # UNLOAD ALL DECKS WITH PROPERTY HELD IN AWORK1 4 4W?6 Q5 17 4WQQ SETNCORE 64,3,FLIB,FDECKS [FOR LIST OF DECKS 15 4X=B STOZ A1(3) [NR SO FAR 7 4XQ2 LDN 7 5 16 4Y9L FINDPERE 2,APFOTY,7,Q19 [FIND NEXT DECK 17 4YP= BNG 2 Q18 [BRANCH IF NO MORE 9 4_8W #SKI K6UNLOAD>299-299 9 4_NG SWITRACE 2,ULSERCH 17 5286 JWRONG 2,Q19 [JUMP IF DECK WRONGED 17 52MQ JALLOC 2,Q19 [JUMP IF ALLOCATED 18 537B DFJUMPN 2,LOAD,Q19 [JUMP IF DECK NOT LOADED 8 53M2 SMO FX2 20 546L LDX 0 AWORK1 [REQUIRED HARDWARE PROPERTY CODE 21 54L= BNG 0 Q5C [BRANCH IF NO PROPERTIES SPECIFIED 8 555W LPROP 2,6 8 55*N ... LDX 1 FX1 18 55KG BXL 0 PENRZI(1),Q5A [BRANCH UNLESS PE OR NRZI 8 5656 ANDN 6 #203 8 56JQ BRN Q5B 4 574B Q5A 8 57J2 ANDN 6 #200 4 583L Q5B 8 58H= SMO FX2 10 592W BXU 6 AWORK1,Q19 4 59GG Q5C 19 59H* ... FSHSKIP B,Q5D [OMIT CHEK FOR RV'S IN M/C B 4 59J8 ...( 10 59K5 ... DFJUMPS 2,NONS,Q5D 20 59MN ... DFLOAD 2,TSN,5 [DO NOT UNLOAD A TAPE FOR WHICH 19 59Q? ... FDTENT 1,5,Q5D [THERE IS AN OUTSTANDING RV 8 59SW ... BRN Q19 4 59W7 ...) 4 59XF ...Q5D 16 5=26 SETALLOC 2 [ALLOCATE DECK 8 5=FQ SMO A1(3) 19 5=_B STO 2 A1+1(3) [STORE DEVICE LIST POINTER 9 5?F2 #SKI K6UNLOAD>299-299 4 5?YL ( 8 5#D= LGEOG 2,0 9 5#XW SWITRACE 0,ULDECK 4 5*CG ) 7 5*X6 LDN 0 1 8 5BBQ ADS 0 A1(3) 8 5BWB BRN Q19 17 5CB2 Q18 LDX 6 A1(3) [NR TO BE UNLOADED 18 5CTL BNZ 6 Q21 [SOME DECKS UNLOADABLE 9 5D*= MTINFORM HUNLOAD 8 5DSW BRN Q29 7 5F#G Q21 LDN 7 0 7 5FS6 Q23 SMO 7 9 5G?Q LDX 5 A1+1(3) 15 5GRB UNLOAD 5,,,UNL,AUT [UNLOAD DECK 7 5H?2 ADN 7 1 7 5HQL TXU 7 6 17 5J== BCC Q22 [FINISHED UNLOADING 10 5JPW MHUNT 3,FLIB,FDECKS 13 5K9G BRN Q23 [NEXT 4 5KP6 Q22 10 5L8Q Q29 MFREE FLIB,FDECKS 8 5LNB BRN Q6 8 5M82 TMT 4HMT 9 5MML TMT1 4H*MT0 8 5N7= TEN +10 12 5NLW TNON 16HNONSTANDARD TAPE 10 5P6G MENDAREA 50,K99UNLOAD 4 5PL6 #END 8 ____ ...57647272000700000000