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