13 22?B ... SEG EMSENTER,867,SECTION CENT 4 22JQ ...[ 17 22W6 ...[ (C) COPYRIGHT INTERNATIONAL COMPUTERS LIMITED 1982 4 237G ...[ 18 23DW #OPT K0EMSENTER=K0HLS>K0INCDUMP>K0EMS>K0ALLGEO>K0GREATGEO 7 23YG #LIS K0EMSENTER 4 24D6 # 21 24XQ # A COMMAND PROCESSING ACTIVITY IS SET UP DURING E.M.S. (BY SETUP) WITH 19 25CB # PAIR TO K1 OF THIS SEGMENT. IT IS RELEASED AT END OF E.M.S.. 19 25X2 # INITIATES 1) THE INITIAL INCREMENTAL DUMPER JOB (ALWAYS). 20 26BL # ALSO HLSJOB IF HLSON. BOTH THESE ARE SYS. ISSUED 21 26W= # AND 2) JUGGERNAUT RESTORER JOB (BUT ONLY AFTER A GENERAL RESTO 21 27*W # AND 3) JOB TO ASK OPERATORS ABOUT INCREMENTS ONLY APPEARING ON 21 27TG # WRONGED DUMP TAPES (BUT ONLY IF ^WRONGED INCREMENTS^ 20 28*6 # MARKER SET [B23 OF INCWORD]). 21 28SQ # AND 4) MACRO EMSJOBS WISH IS USED TO INITIATE ANY JOBS REQUIRE 20 29#B # ALWAYS,+ PARAMETER INDICATING GEN REST OR NOT, AS 11 29S2 # APPROPRIATE 16 29_8 ...# AND 5) IF LPS ON HAS BEEN USED, ^LPSJOB^, 14 2=6B ...# THE LPS14 SPOOLING JOB. 21 2=?L # THE DUMPER IS SET UP AS SYSTEM-ISSUED JOB BUT JUGGERNAUT, Q & EMSJOBS 21 2=R= # ARE NOT. UNFORTUNATELY (VERY), THE SEGMENT IS NOT TOLD IF ANY OF THE 20 2?=W # RUNJOBS (ETC.) FAIL. TO COMPENSATE FOR THIS, IT TRIES TO AVOID A 20 2?QG # NON-UNIQUE JOB NAME FOR DUMPER OR HLS. NO ATTEMPT MADE TO CATER 11 2#=6 # FOR FAILURE OF OTHER RJ'S ETC 4 2#PQ # 4 2*9B # 8 2*P2 # ENTRY POINTS 4 2B8L # 11 2BN= SEGENTRY K1EMSENTER,START 16 2C7W # THE FOLLOWING TABLE CONSISTS OF CELLS WITH THE 9 2CMG # FOLLOWING FORMAT: 4 2D76 # 18 2DLQ # WORD 0 = INSTRUCTION TO CHECK IF COMMAND IS REQUIRED 14 2F6B # WORD 1 = CHARACTER COUNT OF COMMAND 20 2FL2 # WORD 2 = INSTRUCTION TO ADJUST IF NECESSARY THE ADATA/CREADL 11 2G5L # WORD 3 ETC. = THE COMMAND 4 2GK= # 17 2H4W # THE LAST CELL TERMINATES THE PROCEDURE BY SUICIDE 4 2HJG # 8 2J46 #SKI CPDATA-A1-2 13 2JHQ ! USE OF TABLE ASSUMES CPDATA=A1+2 ! 5 2K3B TABLE 18 2KH2 BRN RET1 [DUMPER ALWAYS REQUIRED 8 2L2L +24 19 2LG= BRN QDUMP [ADJUST JOBNAME IF NECESSARY 13 2L_W 24HRJ A0,:DUMPER,INCJOB 4 2MFG # 17 2M_6 BRN QHLS1 [SEE IF HLS ON OR OFF 8 2NDQ +28 19 2NYB BRN QHLS2 [ADJUST JOBNAME IF NECESSARY 15 2PD2 28HRJ HLSJOB ,:SYSTEM,HLSFILE 4 2PXL # 19 2QC= BRN QJUGG [SEE IF JUGGERNAUT REQUIRED 8 2QWW +36 18 2RBG BRN RET2 [NO CHANGE TO DATA/CREADL 17 2RW6 36HRJ JUGGERNAUTJB,:MANAGER,JUGGERNAUT 4 2S*Q # 19 2STB BRN QQ [SEE IF :DUMPER,Q REQUIRED 8 2T*2 +36 19 2TSL BRN RET2 [NO CHANGE TO ADATA/CREADL 17 2W#= 36HRJ Q,:DUMPER,PROCESSOR,PARAM(QUEST) 4 2WRW # 18 2X?G BRN RET1 [EMSJOBS ALWAYS ISSUED 8 2XR6 +20 19 2Y=Q BRN QEMS [PUT IN NORES/REST PARAMETER 10 2YQB 20HEMSJOBS 4 2_=2 # 10 2_#H ... SEGENTRY K53EMSENTER 21 2_*5 ... BRN SKIP [NIP RESTORE MAC MENDS TO BRN K52EMSENTER (S 20 2_*M ...[ OR TO BRN K51EMSENTER (ISSUE RJ) 6 2_B9 ... +32 16 2_C4 ... BRN QNIP2 [ADJUST JOBNAME IF NEC 13 2_CX ... 32HRJ LPSJOB ,:LPSCONTROL,LPSJDF 10 2_FS ... SEGENTRY K50EMSENTER 7 2_HB ...#UNS FSHTEST 9 2_JY ... ACROSS FSHAUTO,1 7 2_LG ...#UNS FSHTEST 4 2_N4 ...#SKI 15 2_PL SUICIDE [END OF TABLE 4 329= # 8 32NW MDUMP +10 9 338G 12HDUMPER 8 33N6 12HA0 8 347Q 0,0,0 8 34MB MHLS +10 9 3572 12HSYSTEM 9 35LL 12HHLSJOB 8 366= 0,0,0 6 36#4 ...MNIP +10 8 36B2 ... 12HLPSCONTROL 7 36CY ... 12HLPSJOB 6 36FW ... 0,0,0 10 36KW NORES 12HNORESTORE 10 375G REST 12HGENRESTORE 7 37=N ...#UNS FPARTRES 11 37CW ...PARTRES 12HPARTRESTORE 9 37K6 MASK #57777777 4 384Q # 5 38JB QDUMP 8 3942 LDN 3 MDUMP 13 39HL LDCT 5 #200 [=0.1 19 3=3= BRN UNIQUE [ADJUST JOBNAME TO BE UNIQUE 4 3=GW # 5 3?2G QHLS1 9 3?G6 LDX 0 MASK(1) 17 3?_Q ANDS 0 CLONG1(2) [LOSE BS PRIVILEGE 17 3#FB BSON HLSBIT,SKIP [SKIP RJ IF HLS OFF 8 3#_2 BRN RET1 4 3*2P ...[ 5 3*4D ...QNIP2 7 3*67 ... LDN 3 1 16 3*7W ... STO 3 ANIPSW [SET LPS INDICATOR 8 3*9K ... LDN 3 MNIP 8 3*?B ... BRN QNIP3 5 3*DL QHLS2 8 3*Y= LDN 3 MHLS 5 3B84 ...QNIP3 8 3BCW LDCT 5 #400 13 3BXG ADN 5 1 [=1.2 5 3CC6 UNIQUE 7 3CWQ LDN 6 1 11 3DBB SETNCORE 10,2,FILE,FABSNB 8 3DW2 LDN 4 A1(2) 7 3F*L ADX 3 1 8 3FT= MOVE 3 10 20 3G#W ULOOP [ATTEMPT TO FIND FILE = JOBNAME 14 3GSG OPENDIR (GEOERR),READ,ERASING,QUERY 20 3H#6 TESTREPN OK,UOK [J IF JOBNAME SHOULD BE UNIQUE 9 3HRQ MFREEW FILE,ENT 7 3J?B CLOSETOP 10 3JR2 MHUNT 3,FILE,FABSNB 8 3K=L ADX 3 A1(3) 7 3KQ= ADX 3 5 16 3L9W DCH 6 A1-6(3) [UPDATE JOBNAME 9 3LPG STOZ A1-3(3) 9 3M96 STOZ A1-2(3) 9 3MNQ STOZ A1-1(3) 11 3N8B MHUNT 3,ADATA,CREADL 7 3NN2 ADX 3 5 10 3P7L DCH 6 CPDATA+1(3) 7 3PM= ADN 6 1 8 3Q6W BRN ULOOP 4 3QLG UOK 19 3R66 ISSUJOB 0 [ISSUE RUNJOB FOR DUMPER/HLS 19 3R?# ...[ %A=0 MEANS CONTROL RETURNED 17 3RDG ...[ TO ISSUING ROUTINE 17 3RKQ BRN RET3 [BACK TO MAIN LOOP 4 3S5B # 5 3SK2 QJUGG 17 3T4L SEGENTRY K20EMSENTER [USED BY NOJUGG MACRO 9 3TJ= LDX 0 GINCTSN 16 3W3W BZE 0 SKIP [J IF NO GEN REST 8 3WHG BRN RET1 4 3X36 # 4 3XGQ QQ 9 3Y2B LDX 0 INCWORD 7 3YG2 ANDN 0 1 19 3Y_L BZE 0 SKIP [J IF NO WRONGED INCREMENTS 8 3_F= BRN RET1 4 3_YW # 4 42DG QEMS 10 42Y6 LDN 4 CPDATA+2(3) 9 436L ... LDX 0 GINCTSN 16 43*6 ... BZE 0 NGRES [_ IF NO GEN RES 9 43HL ... LDN 3 REST(1) 8 43Q6 ... BRN NRES 5 43YL ...NGRES 7 4476 ...#UNS FPARTRES 4 44*L ...( 10 44J6 ... LDN 3 PARTRES(1) 17 44QL ... JBS NRES,,BFPRDONE [_ IF NO PART RES 4 44_6 ...) 9 457L ... LDN 3 NORES(1) 20 45B= NRES MOVE 3 3 [MOVE IN APPROPRIATE PARAMETER 8 45TW BRN RET2 4 46*G # 10 46T6 # MAIN PATH STARTS HERE 4 47#Q # 5 47SB START 18 4848 ... STOZ ANIPSW [INITIALISE LPS INDICATOR 11 48#2 # SET UP JWELL SLOTS ETC. 6 48RL RUNJSA 18 49QW LDN 6 0 [INITIALISE TABLE POINTER 5 4==G XLOOP 9 4=Q6 STO 6 AWORK1(2) 7 4?9Q SMO 6 20 4?PB BRN TABLE [GO SEE IF COMMAND IS NECESSARY 10 4#3Q ... SEGENTRY K51EMSENTER 21 4#92 RET1 [RETURN HERE MEANS IT IS(SKIP IF NOT) 9 4#NL LDX 6 AWORK1(2) 7 4*8= SMO 6 18 4*MW LDX 4 TABLE+1(1) [CHAR. COUNT OF COMMAND 7 4B7G SRL 4 2 9 4BM6 ADN 4 CPDATA-A1 21 4C6Q SETUPCOR 4,3,ADATA,CREADL [SET UP BLOCK BIG ENOUGH FOR COMMAND 8 4CLB LDN 0 A1(3) 7 4D62 SMO 6 10 4DKL LDN 7 TABLE+1(1) 7 4F5= SMO 4 21 4FJW MOVE 7 0 [MOVE COUNT/COMMAND INTO ADATA/CREADL 7 4G4G SMO 6 20 4GJ6 BRN TABLE+2 [ADJUST ADATA/CREADL IF REQUIRED 2 4H3Q 4 4HHB RET2 21 4J32 DOWN REDON,3 [ISSUE COMMAND - BUT NOT SYS. ISS. 20 4JGL RET3 [RETURN FROM DUMPER/HLS ISSUJOB 10 4JT2 ... SEGENTRY K52EMSENTER 4 4K2= SKIP 9 4KFW LDX 6 AWORK1(2) 7 4K_G SMO 6 10 4LF6 LDX 4 TABLE+1(1) 7 4LYQ SRL 4 2 7 4MDB ADX 6 4 18 4MY2 ADN 6 3 [STEP ON TABLE POINTER 8 4NCL BRN XLOOP 4 4NX= # 11 4PBW MENDAREA 10,K99EMSENTER 4 4PWG #END 8 ____ ...03110442000200000000