(George Source)
Macros used: ACROSS, ACROSSVAR, BBS, BXE, BXL, BXU, CATMASK, CHAIN, FINDJOBQ, FJOCA, FON, FOX, FREECORE, FSHENTRY, GEOERR, HLSEVENT, HUNT, HUNTW, JBC, JBS, LINK, LONGOFF, LONGSET, LONGSTOP, LONGWAIT, MFREE, MHUNT, MONOUT, MONOUTX, OUTBLOCN, OUTMESS, OUTMON, OUTNULL, OUTPACK, OUTPAR, OUTPARAM, PERCOUNT, SCHEDULE, SEGENTRY, SETNCORE, SHLSQ, TEMPQ, TEST, UP, UPPLUS, 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<LIMIT ?H7L FJOCA 1,2 ?HM= JBS MKFS,1,JBEXPREQ [J IF JOB HAS BEEN EXPRESSED ?J6W BNZ 5 NMESS [SKIP MESSAGE IF ALREADY O/P ?JLG MONOUT JWAIT ?K66 LDN 5 1 ?KKQ NMESS ?L5B BZE 3 MOPLW ?LK2 LONGWAIT XBR,#32 ?M4L BRN XPRE1 ?MJ= MOPLW LONGWAIT XBR,#31 ?N3W BRN XPRE1 ?NHG XBR ?P36 UP LDN 5 0 ?PGQ BRN UPX ?Q2B UP1 LDN 5 1 ?QG2 BRN UPX ?Q^L UP5 ADN 5 1 ?RF= UPX ?Y*G LDX 0 AWORK1(2) ?YT6 SLL 0 1 ?^#Q SMO 0 ?^SB LDX 4 TABLE(1) #2#2 SLL 4 7 #2RL BPZ 4 UPY [J IF NOT SAVEABLE ENTRY #3?= LDX 3 AWORK2(2) #3QW LDN 0 GEORGE #4=G SRC 0 6 #4Q6 ORX 0 GVERSION #59Q BXE 0 AWORK3(2),NOCONV [J IF SAME GEORGE #5PB LDN 6 0 #692 XLOOK SMO 6 #6NL LDX 7 XCONVTAB(1) #78= BNG 7 (GEOERR) #7MW BXE 7 AWORK1(2),THIS #87G ADN 6 2 #8M6 BRN XLOOK #96Q THIS SMO 6 #9LB LDX 3 XCONVTAB+1(1) #=62 NOCONV #=KL ACROSSVAR 3 #?5= UPY SMO 5 #?JW UPPLUS 0 ##4G # ##J6 XFIN #*3Q LDX 1 FX1 #*HB BBS 14,EXT+11(2),Z3 [J IF WE FN HAS BEEN ISSUED #B32 BZE 3 Z2 [J IF MOP #BGL LDX 0 ZFNAB(1) #C2= STO 0 JOBEVENTS(2) [FINISH/ABANDON BITS #CFW Z2 MONOUT HNOFS #C^G BNZ 3 XBR [ JUMP IF NOT MOP #DF6 ZWAIT LONGWAIT XBR,#31 #DYQ BRN XPRE1 #FDB Z3 LDX 7 STOP(1) #FY2 STO 7 JOBEVENTS(2) [WE/FINISH BITS #GCL LDX 7 MASKWF(1) #GX= ANDS 7 EXT+11(2) [CLEAR WE/FN BIT #HBW BRN UP1 #HWG # #JB6 # ROUTINE TO PRODUCE FULLY ST'ED MESSAGES #JTQ XK2 #K*B FJOCA 3,2 #KT2 LDXC 4 JURGE(3) #L#L LDN 6 0 #LS= CALL 7 MONOUTS #M?W UP #MRG # #N?6 # ROUTINE TO OUTPUT HLS MESSAGE #NQQ XK3 #P=B MHUNT 3,GMON,HLSOUT #PQ2 LDXC 4 A1(3) #Q9L BCC XK3OUT [J IF MESSAGE GIVEN #QP= FREECORE 3 #R8W XK3OUT #RNG LDX 4 A1+1(3) [PICK UP MESSAGE NO #S86 CALL 7 XHLSOUTW #SMQ UP #T7B # #TM2 # THIS ENTRY POINT IMPLEMENTS THE HLSXONCH MACRO #W6L XK5 #WL= LDN 0 EVXONLINE #X5W STO 0 ACOMMUNE1(2) #XKG LDX 0 JOBNO(2) #Y56 STO 0 ACOMMUNE2(2) #YJQ BRN XK1 #^4B XONCHECK #^J2 ACROSS HLSOCCUR,1 *23L # *MH6 #END ^^^^ ...222725020002