8 229S ...#OPT K0PNTLAST=0 15 22FL #LIS K0PNTLAST>K0COMMAND>K0ALLGEO>K0GREATGEO 15 22_= #SEG PNTLAST [V E PHIPPS 18 23DW 8HPNTLAST [CENT SECTION 27/11/74 15 23YG SEGENTRY K1PNTLAST,XK1 [PRINTLAST 14 24D6 SEGENTRY K2PNTLAST,XK2 [QUIET 15 24XQ SEGENTRY K3PNTLAST,XK3 [CANCEL QUIET 16 25CB SEGENTRY K4PNTLAST,XK4 [ERROR MESSAGE 10 25X2 SEGENTRY K5PNTLAST,XK5 10 26BL SEGENTRY K6PNTLAST,XK6 15 26LD ... SEGENTRY K7PNTLAST,XK7 [GIVE6MODE2 7 26S? ...#SKI JWPHASE3 10 2726 ... SEGENTRY K8PNTLAST,XK8 11 277_ ...XEH 5,#200000,5HERROR 16 27*W TMSK #00200000 [FORCETYPE CAT. 14 27TG PJSETP7 +JSETP7 [NO REPLY 9 28*6 SEGENTRY K80PNTLAST 8 28SQ XNEWSB +10 10 29#B 12HMANAGER 10 29S2 12HNEWSLETTER 8 2=?L 0,0,0 8 2=R= XNEWSM +10 10 2?=W 12HMANAGER 10 2?QG 12HNEWSLETTER 8 2#=6 0,0,0 9 2#PQ [ PRINTLAST COMMAND 11 2*9B XK1 HUNTW 3,ADATA,BREPLY 18 2*P2 BNG 3 XERR3 [J IF NO ERROR MESSAGE 8 2B8L LDX 4 A1(3) 7 2BN= SLL 4 2 7 2C7W SBN 4 8 18 2CMG OUTMON 4,A1+2,TMSK(1),ADATA,BREPLY [O/P ERROR TO MOP 8 2D76 BRN XND 8 2DLQ [ QUIET COMMAND 16 2F6B XK2 BS 2,EXQUIET [SWITCH ON QUIET 8 2FL2 BRN XND 10 2G5L [ CANCEL QUIET COMMAND 16 2GK= XK3 BC 2,EXQUIET [SWITCH OFF QUIET 6 2H4W XND ENDCOM 4 2HJG XK4 16 2J46 [ ACTION TAKEN WHEN MOP COMERR OCCURS WITH QI ON 20 2JHQ LDX 6 ACOMMUNE1(2) [0 IF IPB, NON ZERO IF MOP 10 2K3B SETNCORE 4,2,GMON,AOUT 9 2KH2 LDN 1 XEH(1) 8 2L2L LDN 2 A1(2) 7 2LG= MOVE 1 4 7 2L_W ... LDN 1 5 8 2MFG BNZ 6 XMOP2 7 2MP# ... CIOUT 1 8 2M_6 ... BRN XMOP9 7 2N8Y ...XMOP2 SBN 6 1 8 2NDQ ... BNZ 6 XMOP4 9 2NNJ ... MOPOUT 1,NOIPB 8 2NYB ... BRN XMOP9 7 2P88 ...XMOP4 IPBOUT 1 9 2PD2 XMOP9 MFREE GMON,AOUT 5 2PXL UP 10 2QC= XERR3 LDX 7 PJSETP7(1) 7 2QWW COMERRX 7 4 2RBG # 9 2RW6 # NEWSLETTER ENTRY 4 2S*Q # 4 2STB XK5 4 2SX5 ...# 21 2SYS ...# STORE JOBEVENTS SO THAT WE CAN DEFINITELY INHIBIT BREAKIN (SHOULD BE 14 2T2H ...# INHIBITED ON ENTRY BUT ISNT ALWAYS- B9232) 4 2T4= ...# 10 2T5_ ... LDX 0 JOBEVENTS(2) 9 2T7N ... STO 0 AWORK1(2) 11 2T9C ... MBC 2,BRBRKIN,BRNOTED 10 2T?6 ... INHIBITBRK (GEOERR) 11 2T*2 SETNCORE 10,3,FILE,FABSNB 8 2TSL LDN 5 A1(3) 9 2W#= LDN 4 XNEWSB(1) 10 2WRW LDX 0 CONTEXT(2) 8 2X?G ANDN 0 #10 9 2XR6 BZE 0 XNEWS1 9 2Y=Q LDN 4 XNEWSM(1) 5 2YQB XNEWS1 8 2_=2 MOVE 4 10 13 2_FS ...[ USE MODE REPLY TO PREVENT WAITING IF 13 2_PL ...[ FILE IS BEING EDITED. B2176 27.5.82 17 2__D ... USEROPEN (GEOERR),READ,NOERREP,UNTRAP,NOWAIT,REPLY 10 329= MFREE FILE,FABSNB 10 32NW TESTREP2 RANDOM,XRAND 9 338G TESTRPN2 OK,NONEWS 5 33N6 XNEWS2 6 347Q READ 10 34MB MHUNTW 3,FILE,FRB 8 3572 LDEX 5 A1(3) 9 35LL BZE 5 XNEWSEND 7 366= SLL 5 2 8 36B4 ... SBN 5 12 9 36KW LDX 0 A1+1(3) 7 375G SLC 0 2 7 37K6 ANDN 0 3 9 384Q BNZ 0 XNEWS3 7 38JB LDN 0 4 5 3942 XNEWS3 7 39HL ADX 5 0 9 39RD ... BZE 5 XNEWS4 11 3=3= OUTEXES 5,A1+2,FILE,FRB 9 3=?4 ... SEGENTRY K81PNTLAST 7 3=GW ...#DEF MZERO=0 8 3=QN ... MONOUT MZERO 5 3?2G ...XNEWS4 9 3?=# ... MFREEW FILE,FRB 9 3?G6 BRN XNEWS2 5 3?_Q XNEWSEND 7 3#FB FREECORE 3 6 3#_2 XRAND CLOSE 5 3*DL NONEWS 16 3*HQ ...# NO NEED TO PERMITBRK SINCE WE RESTORE JOBEVENTS 8 3*LW ... LDX 2 FX2 9 3*Q2 ... LDX 0 AWORK1(2) 10 3*T6 ... STO 0 JOBEVENTS(2) 5 3*Y= UP 4 3BCW # 9 3BXG # MAKE SPECIAL ENTRY 4 3CC6 # 8 3CWQ XK6 FJOCA 3,2 9 3DBB BS 3,JBSSTAR 6 3DW2 ENDCOM 4 3DW7 ...# 15 3DW# ...# PART OF GIVE 6 - A SPECIAL FOR CSS AT BRA 4 3DWF ...# 4 3DWL ...XK7 9 3DWR ... LDX 7 EVENT5(2) 12 3DWY ... SLC 7 3 [ISOLATE 'X' 7 3DX5 ... ANDN 7 7 11 3DX= ... DATUMA 3 [DATUM-> X0 8 3DXC ... MACCS ,3 7 3DXJ ... LDX 3 0 15 3DXP ... ADX 3 7 [ABSOLUTE ADDRESS -> X3 15 3DXW ... LDX 6 1(3) [PICK UP CONTENTS OF 'X' 13 3DY3 ... LDN 4 START(1) [TABLE BASE. 7 3DY8 ... SRL 6 7 8 3DY* ... ANDN 6 #177 16 3DYG ... ADX 4 6 [ADD START PARA TO TABLE BASE. 15 3DYM ... SBN 4 XEND(1) [MINUS END OF TABLE. 17 3DYS ... BPZ 4 XTB [START POINTER>TABLE LENGTH;X+1:=-1 11 3DY_ ... ADN 4 XEND(1) [RESET 8 3D_6 ... LDX 5 1(3) 15 3D_? ... SLC 5 10 [PROGRAM'S TRANSFER ADDRESS. 8 3D_D ... ANDN 5 #1777 8 3D_K ... LDX 2 1(3) 15 3D_Q ... ANDN 2 #177 [NUMBER OF WORDS REQD. 13 3D_X ... LDX 7 4 [X7:=TABLE-PINTER. 9 3F24 ... LDN 6 XEND(1) 19 3F29 ... SBX 6 7 [X6:=LENGTHOF TABLE FROM SPECIFIED START. 9 3F2B ... BNZ 2 XCHECK 16 3F2H ... LDX 2 6 [GIVE WHOLE TABLE IF ZERO REQD. 8 3F2N ... BRN XOK 5 3F2T ...XCHECK 18 3F32 ... SBX 6 2 [SUBTRACT NUMBER OF WORDS FROM LENGTH. 15 3F37 ... BPZ 6 XOK [TABLE SIZE > NUMBER REQD. 15 3F3# ... ADX 6 2 [ELSE GIVE ONLY UP TO END. 7 3F3F ... LDX 2 6 4 3F3L ...XOK 16 3F3R ... ADX 5 2 [ADD NO OF WORDS TO START ADDR 8 3F3Y ... SBN 5 1023 8 3F45 ... BPZ 5 XTB 7 3F4= ... SBX 5 2 8 3F4C ... ADN 5 1023 7 3F4J ... ADX 5 0 8 3F4P ... MOVE 4 0(2) 5 3F4W ... UP 7 3F53 ...XTB NGN 4 1 8 3F58 ... STO 4 0(3) 5 3F5* ... UP 5 3F5G ...START 6 3F5M ... +BCHAP 5 3F5S ... +BFILE 5 3F5_ ... +BFREE 5 3F66 ... +BHALF 5 3F6? ... +BHLSQ 5 3F6D ... +BHTEMP 5 3F6K ... +BINDEX 5 3F6Q ... +BLF 5 3F6X ... +BMISC 5 3F74 ... +BOLC 5 3F79 ... +FLOWQ 5 3F7B ... +BACT 5 3F7H ... +BJOBQ 5 3F7N ... +BCCB 5 3F7T ... +BSFSR 5 3F82 ... +BSFSW 5 3F87 ... +BSONLY 5 3F8# ... +BSAPS 5 3F8F ... +BSCHCH 6 3F8L ... +INCWORD 6 3F8R ... +CPEXECINFO 5 3F8Y ... +AFREE 6 3F95 ... +COBJUSE 5 3F9= ... +ACHAP 5 3F9C ... +CFREE 5 3F9J ... +CWAIT 6 3F9P ... +ACTPROGS 6 3F9W ... +JOBCOUNT 6 3F=3 ... +HLSCOUNT 6 3F=8 ... +HLSCOUNT+1 6 3F=* ... +GEOTIME 6 3F=G ... +GPROGTIME 6 3F=M ... +CHCHCOUNT 5 3F=S ...#SKI G4 4 3F=T ...( 6 3F=W ...#UNS G4VOPA 4 3F=X ...#SKI 6 3F=_ ... +APROGAREA 6 3F?2 ...#UNS G4VOPA 4 3F?3 ... +0 4 3F?4 ...) 5 3F?6 ...#SKI G3 4 3F?? ... 0 6 3F?D ... +EXECIDLE 5 3F?K ... +GMTNOW 5 3F?M ...#SKI G4 6 3F?Q ... +COBJFREE 5 3F?R ...#SKI G3 4 3F?S ... +0 4 3F?X ...XEND 4 3F*L # 7 3F*Y ...#SKI JWPHASE3 4 3FB= ...( 17 3FBJ ...# CODE FOR OUTPUTTING JOB RESTARTED ETC. MESSAGE. 4 3FBW ...# 9 3FC8 ...XGB +JOBGRBRK 10 3FCG ...XGR +JOBGRRERUN 10 3FCS ...XGD +JOBRUNDUMP 10 3FD6 ...XGQ +JOBGRQUERY 9 3FDD ...XABAN +JOBABAND 9 3FDQ ...XBREAK +JOBBREAK 4 3FF4 ...# 5 3FFB ...XOUTM 8 3FFN ... SBX 7 FX1 7 3FG2 ... OUTMESSX 6 8 3FG# ... ADX 7 FX1 11 3FGL ...XHJW MHUNTW 3,JWELL,COPYSYS 7 3FGY ... JLADJUST 3 7 3FH= ... EXIT 7 0 4 3FHJ ...# 8 3FHW ...XK8 CALL 7 XHJW 11 3FJ8 ... JBC WM1,3,JLBGENRES 11 3FJG ... JBC WM2,3,JLBBREAKGR 9 3FJS ... LDX 6 XGB(1) 8 3FK6 ... CALL 7 XOUTM 11 3FKD ...WM2 JBC WM3,3,JLBRERUN 9 3FKQ ... LDX 6 XGR(1) 8 3FL4 ... CALL 7 XOUTM 11 3FLB ...WM3 JBC WM4,3,JLBRUNDUMP 9 3FLN ... LDX 6 XGD(1) 8 3FM2 ... CALL 7 XOUTM 11 3FM# ...WM4 JBC WM5,3,JLBGRQUERY 9 3FML ... LDX 6 XGQ(1) 8 3FMY ... CALL 7 XOUTM 9 3FN= ...WM5 MONOUT JOBGENRES 13 3FNJ ...WM1 JMBAC WM6,3,JLBBREAK,JLBABANDON 11 3FNW ... JBC WM7,3,JLBABANDON 9 3FP8 ... LDX 6 XABAN(1) 8 3FPG ... CALL 7 XOUTM 11 3FPS ... JBC WM8,3,JLBBREAK 9 3FQ6 ...WM7 LDX 6 XBREAK(1) 8 3FQD ... CALL 7 XOUTM 10 3FQQ ...WM8 MONOUT JOBRESTART 4 3FR4 ...WM6 7 3FR5 ...#UNS FPARTRES 4 3FR6 ...( 8 3FR7 ... CALL 7 XHJW 11 3FR8 ... JBC WM9,3,JLBPARTRES 10 3FR9 ... MONOUT JOBPARTRES 4 3FR= ...WM9 4 3FR? ...) 5 3FRB ... UP 4 3FRN ...) 4 3FT= #END 6 ____ ...152030500004