{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: HLSEVENT867)}}
====== HLSEVENT867 ======
(George Source)
**Macros used:** [[george:macro:ACROSS|ACROSS]], [[george:macro:ACROSSVAR|ACROSSVAR]], [[george:macro:BBS|BBS]], [[george:macro:BXE|BXE]], [[george:macro:BXL|BXL]], [[george:macro:BXU|BXU]], [[george:macro:CATMASK|CATMASK]], [[george:macro:CHAIN|CHAIN]], [[george:macro:FINDJOBQ|FINDJOBQ]], [[george:macro:FJOCA|FJOCA]], [[george:macro:FON|FON]], [[george:macro:FOX|FOX]], [[george:macro:FREECORE|FREECORE]], [[george:macro:FSHENTRY|FSHENTRY]], [[george:macro:GEOERR|GEOERR]], [[george:macro:HLSEVENT|HLSEVENT]], [[george:macro:HUNT|HUNT]], [[george:macro:HUNTW|HUNTW]], [[george:macro:JBC|JBC]], [[george:macro:JBS|JBS]], [[george:macro:LINK|LINK]], [[george:macro:LONGOFF|LONGOFF]], [[george:macro:LONGSET|LONGSET]], [[george:macro:LONGSTOP|LONGSTOP]], [[george:macro:LONGWAIT|LONGWAIT]], [[george:macro:MFREE|MFREE]], [[george:macro:MHUNT|MHUNT]], [[george:macro:MONOUT|MONOUT]], [[george:macro:MONOUTX|MONOUTX]], [[george:macro:OUTBLOCN|OUTBLOCN]], [[george:macro:OUTMESS|OUTMESS]], [[george:macro:OUTMON|OUTMON]], [[george:macro:OUTNULL|OUTNULL]], [[george:macro:OUTPACK|OUTPACK]], [[george:macro:OUTPAR|OUTPAR]], [[george:macro:OUTPARAM|OUTPARAM]], [[george:macro:PERCOUNT|PERCOUNT]], [[george:macro:SCHEDULE|SCHEDULE]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SETNCORE|SETNCORE]], [[george:macro:SHLSQ|SHLSQ]], [[george:macro:TEMPQ|TEMPQ]], [[george:macro:TEST|TEST]], [[george:macro:UP|UP]], [[george:macro:UPPLUS|UPPLUS]], [[george:macro:VFREEW|VFREEW]]
22FL #OPT K0HLSEVENT=0
22^= #LIS K0HLSEVENT>K0HLS>K0ALLGEO>K0GREATGEO
23DW #SEG HLSEVENT [CENT SECTION
23YG ...# (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982
24D6 8HHLSEVENT
24XQ #
25CB # THIS SEGMENT HANDLES THE HLSINFORM MACRO. ON ENTRY:-
25X2 # ACOMMUNE1= EVENT NUMBER.
26BL # ACOMMUNE2= JOB NUMBER.
26W= # ACOMMUNE3= COPY OF JLSTAT IF WELL JOB.
27*W # ACOMMUNE4= HOLDS (IN BITS 12-23) SUBSIDUARY INFO.
27TG #
28*6 # AND FOR SAVEABLE ENTRIES
28SQ # ACOMMUNE5= NORMAL RETURN LINK
29#B #
29S2 SEGENTRY K1HLSEVENT,XK1
2=?L SEGENTRY K2HLSEVENT,XK2
2=R= SEGENTRY K3HLSEVENT,XK3
2?=W SEGENTRY K4HLSEVENT,XK4
2?QG SEGENTRY K5HLSEVENT,XK5
2#=6 FSHENTRY K7HLSEVENT,XK7,,XK7
2#PQ FSHENTRY K8HLSEVENT,XK8,,XK8
2*9B FSHENTRY K9HLSEVENT,,XK9,XK9
2*P2 SEGENTRY K10HLSEVENT,XK10
2B8L SEGENTRY K11HLSEVENT,XIGNORE
2BN= #
2C7W SEGENTRY K90HLSEVENT
2CMG #
2D76 # THERE NOW FOLLOWS A TABLE OF 2 WORD ENTRIES.
2DLQ # EACH ENTRY IS SET UP BY HLSEVENT AND HAS THE FOLLOWING
2F6B # FORMAT.
2FL2 # WORD 0 BIT 0=1 IF EVENT REQUIRED FOR OFFLINE JOBS
2G5L # 1=1 IF EVENT REQUIRED FOR MOP JOBS
2GK= # 2=1 IF HLS TO BE KICKED
2H4W # 3=1 IF JOB TO BE MADE TENTATIVELY STARTED
2HJG # 4=1 IF JOB TO LONGSTOP AFTER INFORMING HLS
2J46 # 5=1 IF EVENT TO BE IGNORED IF JOB FULLY STARTED
2JHQ # 6=1 IF USER MUSTN'T SET BIT 4
2K3B # 7=1 IF JOB IS SAVEABLE AT THIS POINT
2KH2 # 8-17 UNDEFINED
2L2L # 18-23 NUMBER OF OPTIONS IF LONGSTOP APPLIES
2LG= #
2L^W # WORD 1 BIT SETTINGS TO BE PUT IN HLSYONQ IN HLSTEMPQ BLOCK
2MFG #
2M^6 TABLE
2NDQ HLSEVENT FSTART,REQ,IGNOREFS,#1,SAVEABLE
2NYB HLSEVENT REGEN,OFF
2PD2 HLSEVENT LOGOUT,#2,NEVERREQ
2PXL HLSEVENT STOPPED,REQ,MAKETS,#4,SAVEABLE
2QC= HLSEVENT CONNECT,MAKETS,#20
2QWW HLSEVENT JOBDATA,OFF
2RBG HLSEVENT WAITCOM,OFF
2RW6 HLSEVENT DELETE,OFF
2S*Q HLSEVENT ONLINE,OFF,NEVERREQ
2STB HLSEVENT XONLINE,OFF
2T*2 HLSEVENT RELEASE,OFF,NEVERREQ
2TSL HLSEVENT JOBTIME,OFF
2W#= HLSEVENT MAXSIZE,OFF
2WRW HLSEVENT MAXQUOTA,OFF
2X?G HLSEVENT GMQUOTA,OFF
2XR6 HLSEVENT PERFORM,OFF
2Y=Q HLSEVENT MESSAGE,OFF
2YQB HLSEVENT DEWELL,OFF
2^=2 HLSEVENT ENWELL,OFF
2^PL HLSEVENT SCHEDULE
329= HLSEVENT MOP,OFF
32NW HLSEVENT LIMBO,OFF
338G HLSEVENT RESUME,OFF
33N6 HLSEVENT HALT,OFF
347Q HLSEVENT WAITIN,OFF
34MB HLSEVENT WAITOUT,OFF
3572 HLSEVENT LOAD,OFF
35LL HLSEVENT NONCAND,OFF,NEVERREQ
366= #UNS ECS
36KW HLSEVENT REALTIME,OFF
375G #UNS EVNOTLOAD
37K6 HLSEVENT NOTLOAD,OFF
384Q HLSEVENT SWITCH,OFF [CME
38JB HLSEVENT GEOGNO,OFF [CME
3942 #
39HL #ALT HLSBITS1=MHLSBITS1
3=3= #ALT HLSBITS2=MHLSBITS2
3=GW #
3?2G # THERE NOW FOLLOWS A TABLE OF LINKS FOR
3?G6 # USE WHEN UNSAVING JOBS UNDER A DIFFERENT
3?^Q # REGIME AS THAT THEY WERE SAVED UNDER
3#FB XCONVTAB
3#^2 +EVFSTART
3*DL LINK ALASB,90
3*Y= +EVSTOPPED
3BCW LINK CONTINUE,21
3BXG -1
3CC6 #
3CWQ STYLE #31
3DBB #32
3DW2 TMESS +CMOPL
3F*L +CNOPER
3FT= +CNOURG
3G#W TMESSGEN +CNOSTART
3GSG X4 +4
3H#6 X5 +5
3HRQ XHLSCAT
3J?B CATMASK CT
3JR2 MASKWF #77776777
3K=L STOP #50000001
3KQ= ZFNAB #50000002
3L9W X24 +24
3LPG TOP9 #77700000
3M96 XCONNECT +EVCONNECT
3MNQ #
3N8B MONOUTS
3NN2 SBX 7 FX1
3P7L SRC 4 6
3PM= OUTBLOCN 8
3Q6W OUTPAR TIMENOW,JOBMILL
3QLG OUTPACK 4,1,URGENCY
3R66 LDN 0 #1000
3RKQ ANDX 0 CONTEXT(2)
3S5B BZE 0 XMON [J IF NO CORE IMAGE
3SK2 OUTPAR PROGMILL
3T4L XMON MONOUT JUSURG
3TJ= PERCOUNT
3W3W BZE 6 NOMON2 [J IF OMMITTING F/S MESSAGE
3WHG OUTPAR TIMENOW
3X36 MONOUT JSTART
3XGQ NOMON2
3Y2B X7XIT
3YG2 ADX 7 FX1
3Y^L EXIT 7 0
3^F= #
3^YW XHLSOUTW
42DG NGNC 0 1
42Y6 XHLSOUT
43CQ LDN 6 0
43XB SBX 7 FX1
44C2 TRYAGAIN
44WL BXE 4 X4(1),VARMESS [J IF VARIABLE MESSAGE
45B= BXE 4 X5(1),VARPAR [J IF VARIABLE PARAMETERTO CNOSTART
45TW SMO 4
46*G LDX 4 TMESS-1(1)
46T6 XMNOUT
47#Q MONOUTX 4
47SB BRN VTRY
48#2 VARMESS
48RL HUNT 3,GMON,HLSOUT
49?= LDX 4 A1(3)
49QW SLL 4 2
4==G OUTMON 4,A1+2,XHLSCAT(1),GMON,HLSOUT
4=Q6 VTRY
4?9Q MFREE GMON,HLSOUT
4?PB [LOOK FOR NEW MESS NO
4#92 HUNT 3,GMON,HLSOUT
4#NL BNG 3 X7XIT1
4*8= LDX 4 A1+1(3) [NEW MESS NO
4*MW BRN TRYAGAIN
4B7G [
4BM6 [ IF USER (VIZ NOT DEWELL MESSAGE)
4C6Q [ ZEROISE JMESS AS IF SECOND MESS XCODE HAS COME ALONG DURING OUTPUT
4CLB [ WE WOULD HAVE PICKED UP GMON,HLSOUT BLOCK &SO JMESSLEFT SET
4D62 [ WHICH COULD CAUSE PROBLEMS IN EVENT OF SPURIOUS WAKE UPS
4DKL [ AS NO BLOCK PRESENT WHEN JMESS SET
4F5= X7XIT1
4FJW JBC X7XIT,2,CXTUSER
4G4G FJOCA 3,2
4GJ6 STOZ JMESS(3)
4H3Q BRN X7XIT
4HHB VARPAR
4J32 BNZ 6 XNULL
4JGL OUTMESS FULLY
4K2= BRN VARP
4KFW XNULL
4K^G OUTNULL
4LF6 VARP MHUNT 3,GMON,HLSOUT
4LYQ LDX 4 A1(3)
4MDB SLL 4 2
4MY2 OUTPARAM 4,A1+2,GMON,HLSOUT
4NCL LDX 4 TMESSGEN(1)
4NX= BRN XMNOUT
4PBW #
4PWG XK1
4QB6 LDX 0 AWORK3(2)
4QTQ STO 0 ACOMMUNE6(2) [=SC BITS FOR SC COMMAND
4R*B LDX 0 ACOMMUNE5(2)
4RT2 STO 0 AWORK2(2) [NORMAL LINK
4S#L LDN 0 GEORGE
4SS= SRC 0 6
4T?W ORX 0 GVERSION
4TRG STO 0 AWORK3(2) [TO COMPARE LATER
4W?6 LDX 0 ACOMMUNE1(2)
4WQQ STO 0 AWORK1(2)
4X=B LDX 4 ACOMMUNE2(2) [JOB NUMBER
4XQ2 LDCT 6 #400
4Y9L LDN 5 0
4YP= BZE 4 TEST [J IF NO USER EVENT
4^8W FINDJOBQ 3,4,SHLSQ
4^NG LDX 5 JMISC(3)
5286 LDX 6 JURGE(3)
52MQ BRN TEST
537B SHLSQ SHLSQ 4,3,SJL
53M2 LDX 5 HLSSTAT(3)
546L LDX 6 HLSYONQ(3)
54L= SLL 6 7
555W ERX 6 GSIGN
55KG BRN TEST
5656 SJL LDX 0 ACOMMUNE3(2) [SHOULD= JLSTAT FOR WELL JOB
56JQ BZE 0 XIGNORE [JOB HAS LEFT SYSTEM - I THINK
574B LDN 6 0
57J2 LDN 5 0
583L ANDN 0 1 [JLBMOP
58H= BNZ 0 TEST
592W LDCT 5 #400 [MARK AS BACKGROUND
59GG TEST LDX 7 ACOMMUNE1(2) [EVENT NUMBER
5=26 BXU 7 XCONNECT(1),NCON
5=FQ ERX 5 GSIGN [INVERT TYPE IF CN EVENT
5=^B NCON
5?F2 SLL 7 1
5?YL SMO 7
5#D= LDX 4 TABLE(1)
5#XW STO 4 AWORK4(2) [REMEMBER FOR LATER
5*CG SMO 7
5*X6 LDX 7 TABLE+1(1) [PICK UP HLSYONQ BITS
5BBQ ORX 7 BIT10
5BWB LDX 0 ACOMMUNE2(2)
5CB2 BZE 0 NTESTFS
5CTL LDCT 0 #400
5D*= BNG 5 XBCK
5DSW LDCT 0 #200
5F#G XBCK ANDX 0 4
5FS6 BZE 0 XIGNORE [J IF EVENT NOT REQUIRED
5G?Q LDCT 0 #010
5GRB ANDX 0 4
5H?2 BZE 0 NTESTFS [J IF NO TEST ON FULLY STARTED
5HQL BNG 6 XIGNORE [J IF FULLY STARTED
5J== NTESTFS
5JPW LDX 0 ACOMMUNE1(2)
5K9G BNZ 0 NOTFSREQ [J IF NOT FSTART ENTRY
5KP6 LDX 3 CONTEXT(2)
5L8Q ANDN 3 4
5LNB SRL 3 2
5M82 BNZ 3 XOFL [J IF NOT MOP
5MML JBS NOTFSREQ,,HLSMFS
5N7= BRN XPRE
5NLW XOFL JBC XPRE,,HLSBFS
5P6G NOTFSREQ
5PL6 LDN 0 EVXONLINE
5Q5Q BXE 0 ACOMMUNE1(2),XONCHECK [J IF XONLINE EVENT
5QKB XK10
5R52 XONRET
5^D6 SETNCORE AHLS,3,ADATA,JUNSWAP
5^XQ STO 3 ACOMMUNE9(2) [REMEMBER TEMPQ ADDRESS
62CB STOZ A1(3)
62X2 LDN 0 A1(3)
63BL LDN 1 A1+1(3)
63W= MOVE 0 AHLS-1
64*W LDX 4 ACOMMUNE2(2)
64TG STO 4 HLSJONO(3)
65*6 LDX 4 ACOMMUNE1(2)
65SQ LDX 1 3
66#B LDN 0 EVSCHEDULE
66S2 BXU 0 ACOMMUNE1(2),NOTSC [J IF NOT SC EVENT
67?L ORX 7 ACOMMUNE6(2)
67R= HUNT 3,ADATA,CSTORE
68=W BNG 3 NOTSC [J IF NO MESSAGE
68QG NGX 0 ANUM(3)
69=6 BPZ 0 NOTSC [J IF NULL MESSAGE
69PQ LDEX 0 ANUM(3)
6=9B SMO FX1
6=P2 BXL 0 X24,SC24
6?8L LDN 0 24
6?N= SC24 LDN 2 APARA(3)
6#7W LDN 3 HLSJNAM(1)
6#MG SMO 0
6*76 MVCH 2 0
6*LQ LDX 2 FX2
6B6B NOTSC
6BL2 HUNTW 3,ADATA,ASUP
6C5L BNG 3 NOSUP
6CK= ORN 4 #1000
6KYB NOSUP
6LD2 STO 4 HLSYONQA(1)
6LXL LDX 0 ACOMMUNE4(2)
6MC= SLL 0 12
6MWW ORS 0 HLSYONQA(1) [SUBSIDUARY INFORMATILN
6SR6 ANDX 6 GSIGN
6T=Q ERX 6 GSIGN
6TQB SRL 6 7
6W=2 ORS 6 HLSYONQ(1) [SET (OR NOT) T/S BIT
6WPL ORS 7 HLSYONQ(1)
6Y8G ORS 7 HLSWAIT
6YN6 #
6^7Q XB8
7272 STO 5 HLSSTAT(1) [COPY OF JMISC
72LL SUPCH
79^2 LDN 2 BHTEMP
7=DL LDX 2 BPTR(2)
7=Y= CHAIN 1,2 [CHAIN ON END OF TEMPQ
7?CW LDX 1 3
7?XG NGN 3 1
7#C6 BPZ 1 SUPCH [J TO CHAIN ASUP IF PRESENT
7#WQ LDCT 3 #040
7*BB ORS 3 HLSWAIT [SET NOKICK BIT
7*W2 LDX 4 AWORK4(2)
7B*L SLL 4 2
7BT= BPZ 4 NOKICK
7C#W ERS 3 HLSWAIT [CLEAR NOKICK BIT
7CSG FON #33 [ROUSE HLS
7D#6 NOKICK
7DRQ LDX 1 FX1
7F?B LDX 0 JOBNO(2)
7FR2 BZE 0 UP1 [J IF NO-USER
7G=L BXU 0 ACOMMUNE2(2),UP1 [J IF JOB NOT CURRENT JOB
7GQ= LDCH 0 ATYPE(2)
7H9W SBN 0 CPAT/64
7HPG BNZ 0 UP1 [J IF NOT CPAT
7J96 SLL 4 1
7JNQ BPZ 4 NOTS [J IF NOT REQUIRED TO BECOME T/S
7K8B LDXC 0 CONTEXT(2)
7KN2 BCS NOTS [J IF SYSTEM ISSUED
7L7L BNZ 6 NOTS [J IF T/S ALREADY
7LM= LDN 0 #6000
7M6W ERS 0 CONTEXT(2) [FLIP CONTEXTS
7MLG FJOCA 3,2
7N66 NGNC 0 1
7NKQ ANDS 0 JURGE(3)
7P5B LDN 3 0
7PK2 BPZ 5 XSBS [J IF MOP
7Q4L LDN 3 1
7QJ= XSBS
82B= LDX 0 HLSCOUNT(3)
82TW SBN 0 1
83*G BPZ 0 XSTO
83T6 GEOERR 0,HLSCOUNT
84#Q XSTO STO 0 HLSCOUNT(3)
84SB #
85#2 XMACHB2
85RL #
86?= BNZ 3 XBK1 [J IF BACKGROUND JOB
86QW JBS NOFON,,HLSMFS [J IF HLS HAS CONTROL OF MOP F/S
87=G BRN XFON
87Q6 XBK1 JBS NOFON,,HLSBFS [J IF HLS HAS CONTROL OF BACK F/S
889Q XFON SMO FX1
88PB LDX 0 STYLE(3)
8992 FOX 0 [ KICK WATING JOBS OF SAME TYPE
89NL NOFON
8=8= NOTS LDX 1 FX1
8=MW #
8?7G # SPECIAL CASE: THE 'WAITIN' EVENT IS NOTIFIED FROM THE COORDINATOR
8?M6 # BY A 'FIDDLED' DOWN INTO HLSEVENT WHICH RESULTS IN HLSEVENT GOING
8#6Q # BACK UP INTO THE ORIGINAL CALLING SEQUENCE TO THE WAIT ROUTINE
8#LB #
8*62 # TO BE SURE THAT THIS INTERFACE WORKS, HLSEVENT MUST GO 'UP' NOT
8*KL # 'UPPLUS' 1 OR 2!!
8B5= #
8BJW LDN 0 EVWAITIN
8C4G BXE 0 ACOMMUNE1(2),UP [JIF DEALING WITH THE 'WAITIN' EVENT
8CJ6 SLL 4 1
8D3Q BPZ 4 UP1 [J IF LONGWAIT NOT REQUIRED
8DHB FJOCA 3,2
8F32 LDX 5 JURGE(3)
8FGL LDX 7 JMISC(3)
8G2= SLC 7 1
8GFW ANDN 7 1 [X7=0 FOR MOP,1 FOR BACK
8G^G SPRIVJUM JSISSUE,3,XSIS
8HF6 SPRIVJUM JSSTART,3,XSSTA
8HYQ SMO 2
8JDB LDCH 0 AWORK4
8JY2 STO 0 EXT+1(2) [SET NO. OF OPTIONS
8KCL LDX 3 ACOMMUNE9(2) [ADDRESS OF TEMPQ BLOCK
8KX= LDCT 0 #001
8LBW ORS 0 HLSYONQ(3) [SET REQUEST BIT
8LWG SMO 7
8MB6 LDX 3 STYLE(1)
8MTQ LDX 6 JOBNO(2)
8N*B LDX 0 JOBEVENTS(2)
8NT2 BNG 0 XB1 [J IF BEING BROKEN IN ON
8P#L LONGSET 0(3),(GEOERR),6
8PS= WAIT LDX 7 AWORK3(2)
8Q?W STO 5 4
8QRG NGX 5 AWORK1(2)
8R?6 LDX 3 CONTEXT(2)
8RQQ ANDN 3 4
8S=B SRL 3 2
8SQ2 XK4
8T9L LONGSTOP XBREAK,SPUR,,,BITS22LS
8TP= XBREAK
8W8W STO 7 AWORK3(2)
8WNG NGX 5 5
8X86 BXE 5 AWORK1(2),WKOK [DIFFERENT IF CONVERTING
8XMQ BZE 5 STWK
8Y7B LDN 5 EVSTOPPED
8YM2 STWK STO 5 AWORK1(2)
8^6L WKOK LDX 5 4
8^L= XB1
925W FJOCA 3,2
92KG LDX 4 JMESS(3)
9356 BNZ 4 SPOK
93JQ LDX 4 JURGE(3)
944B BXE 4 5,NEITHER [J IF NO CHANGE
94J2 BNG 5 XALR [J IF JOB WAS ALREADY F/S
953L LDN 6 1
95H= BNG 4 XBOTH [BOTH MONOUTS REQUIRED
962W XALR LDCH 0 4
96GG LDCH 6 5
9726 SBX 6 0
97FQ BZE 6 NEITHER [NO MONOUT REQUIRED
97^B LDN 6 0
98F2 XBOTH
9*SW CALL 7 MONOUTS
9B#G NEITHER
9BS6 LDX 5 EXT+1(2) [OPTION REQUIRED
9C?Q LDX 0 JOBEVENTS(2)
9CRB BNG 0 XBRK1 [J IF BREAK IN
9D?2 BRN UP5
9DQL SPUR
9F== STO 7 AWORK3(2)
9FPW NGX 5 5
9G9G BXE 5 AWORK1(2),SPOK
9GP6 BZE 5 SPOK1
9H8Q LDN 5 EVSTOPPED
9HNB SPOK1 STO 5 AWORK1(2)
9J82 SPOK
9JML LDX 5 4
9K7= FJOCA 3,2
9KLW LDX 4 JMESS(3)
9L6G BZE 4 WAITB [RE-ENTER WAIT IF NO MESSAGE
9LL6 STOZ JMESS(3)
9M5Q HUNTW 3,GMON,HLSOUT
9MKB BNG 3 WAITB1 [JIF NO BLOCK
9N52 LDX 4 A1+1(3) [PICK UP MESS NO
9NJL WAITB1
9P4= CALL 7 XHLSOUT
9PHW WAITB LDX 0 JOBEVENTS(2)
9Q3G BNG 0 XB1 [J IF BREAK IN
9QH6 BRN WAIT
9R2Q UP1B LDX 0 JOBEVENTS(2)
9RGB BNG 0 XBRK1
9S22 BRN UP1
9SFL XIGNORE
9S^= VFREEW ADATA,ASUP
9TDW LDX 1 FX1
9TYG BRN UP1
9WD6 XBRK1 LONGOFF
9WXQ LDN 7 #10
9XCB LDX 4 JOBNO(2)
9XX2 TEMPQ 7,4
9YBL BRN UP
9YW= XSSTA
9^*W LDX 3 7
9^TG XSST
=2*6 LDX 0 CONTEXT(2)
=2SQ ANDN 0 #4000
=3#B BNZ 0 UP1 [J IF ALREADY FS
=3S2 BRN MAKEFS
=4?L XSIS LDX 0 CONTEXT(2)
=4R= ANDN 0 #4000
=5=W BNZ 0 UP1 [J IF ALREADY FS
=5QG BRN MAKEFS1
=6=6 MAKEFS
=6PQ MKFS
=B46 LDN 0 1
=BHQ ADS 0 HLSCOUNT(3)
=C3B MAKEFS1
=CH2 FJOCA 3,2
=D2L LDX 0 GSIGN
=DG= ORS 0 JURGE(3) [SET F/SBIT IN JOB BLOCK
=D^W LDN 0 #6000
=FFG ERS 0 CONTEXT(2) [FLIP CONTEXTS IN CPAT
=F^6 #
=GDQ MAKEFS2
=M*2 OUTPAR TIMENOW
=MSL MONOUT JSTART
=N#= BRN UP1
=NRW XPRE
=YKW #
=^5G XK8
=^K6 FJOCA 1,2
?24Q SPRIVJUM JSISSUE,1,XSIS
?2JB SPRIVJUM JSSTART,1,XSST
?342 LDN 5 0
?3HL XPRE1 LDX 0 FINISH
?43= BNG 0 XFIN [J IF FINISH ISSUED
?F96 LDX 0 HLSCOUNT(3)
?FNQ BXL 0 IMOPLIMIT(3),MKFS [MAKE F/S IF CONT