{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: PNTLAST860)}}
====== PNTLAST860 ======
(George Source)
**Macros used:** [[george:macro:BC|BC]], [[george:macro:BS|BS]], [[george:macro:CIOUT|CIOUT]], [[george:macro:CLOSE|CLOSE]], [[george:macro:COMERRX|COMERRX]], [[george:macro:DATUMA|DATUMA]], [[george:macro:ENDCOM|ENDCOM]], [[george:macro:FJOCA|FJOCA]], [[george:macro:FREECORE|FREECORE]], [[george:macro:HUNTW|HUNTW]], [[george:macro:INHIBITBRK|INHIBITBRK]], [[george:macro:IPBOUT|IPBOUT]], [[george:macro:JBC|JBC]], [[george:macro:JLADJUST|JLADJUST]], [[george:macro:JMBAC|JMBAC]], [[george:macro:MACCS|MACCS]], [[george:macro:MBC|MBC]], [[george:macro:MFREE|MFREE]], [[george:macro:MFREEW|MFREEW]], [[george:macro:MHUNTW|MHUNTW]], [[george:macro:MONOUT|MONOUT]], [[george:macro:MOPOUT|MOPOUT]], [[george:macro:OUTEXES|OUTEXES]], [[george:macro:OUTMESSX|OUTMESSX]], [[george:macro:OUTMON|OUTMON]], [[george:macro:READ|READ]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SETNCORE|SETNCORE]], [[george:macro:TESTREP2|TESTREP2]], [[george:macro:TESTRPN2|TESTRPN2]], [[george:macro:UP|UP]], [[george:macro:USEROPEN|USEROPEN]]
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