{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: QPRINT867)}} ====== QPRINT867 ====== (George Source) **Macros used:** [[george:macro:APPEND|APPEND]], [[george:macro:ASSMESS|ASSMESS]], [[george:macro:BC|BC]], [[george:macro:BITDEFS|BITDEFS]], [[george:macro:BXE|BXE]], [[george:macro:BXGE|BXGE]], [[george:macro:BXU|BXU]], [[george:macro:DATECON|DATECON]], [[george:macro:DOWN|DOWN]], [[george:macro:HUNTW|HUNTW]], [[george:macro:ICT|ICT]], [[george:macro:JBC|JBC]], [[george:macro:JBS|JBS]], [[george:macro:JMBAC|JMBAC]], [[george:macro:JMBS|JMBS]], [[george:macro:MFREE|MFREE]], [[george:macro:MHUNTW|MHUNTW]], [[george:macro:NAME|NAME]], [[george:macro:ORIGIN|ORIGIN]], [[george:macro:OUTBLOCN|OUTBLOCN]], [[george:macro:OUTMESS|OUTMESS]], [[george:macro:OUTMESSX|OUTMESSX]], [[george:macro:OUTNUM|OUTNUM]], [[george:macro:OUTPARAM|OUTPARAM]], [[george:macro:OUTPARN|OUTPARN]], [[george:macro:SEG|SEG]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SETNCORE|SETNCORE]], [[george:macro:TESTRPN2|TESTRPN2]], [[george:macro:TIMECON|TIMECON]], [[george:macro:UP|UP]], [[george:macro:UPPLUS|UPPLUS]] 22^= #LIS K0QPRINT>K0ALLGEO>K0GREATGEO>K0COMMAND 236D ... SEG QPRINT,867,SECTION CENT 23?L ...[ 23DS ...[ 23L2 ...[ (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982 23R8 ...[ 23YG [ 24D6 [ THIS SEGMENT OUTPUTS THE REQUIRED INFORMATION 24XQ [ OF A JOB WHOSE BASIC DETAILS ARE GIVEN IN 25CB [ THE CQPRINT/CQ11 BLOCK. THE O/P IS DEPENDENT 25X2 [ ON THE CATEGORIES (IE.ZGH) SET IN CQPRINT/CQ1 26BL [ AND IS WRITTEN TO THE FILE OPEN AT THE TOP LEVEL 26W= [ 27*W SEGENTRY K1QPRINT,Q1ENTRY [WRITE JOB'S 'WS' INFO 27TG SEGENTRY K4QPRINT,Q4ENTRY [WRITE 'NO JOBS' 2847 SEGENTRY K50QPRINT 286B SWITCH #40000000 288K BITDEFS SWITCH,0,TPWSWITCH,WSNARROWOP,WSNARROWALL 28?^ WSNBITS #00340000 [BITS IF UNSET MEAN NOT PROG OR FULL 28*6 [ DEFINES THE CQPRINT/CQ1 BLOCK 28SQ #DEF ZGA = A1 [GROUP A INDICATORS 29#B #DEF ZGB = ZGA+1 [GROUP B INDICATORS 29S2 #DEF ZGC = ZGB+1 [GROUP C INDICATORS 2=?L #DEF ZGD = ZGC+1 [GROUP D INDICATORS 2=R= #DEF ZGE = ZGD+1 [GROUP E INDICATORS 2?=W #DEF ZGF = ZGE+1 [GROUP F INDICATORS 2?QG #DEF ZGG = ZGF+1 [GROUP G INDICATORS 2#=6 #DEF ZGH = ZGG+1 [GROUP H INDICATORS 2#PQ #DEF ZNAME = ZGH+1 [JOB NAME 2*9B #DEF ZUSER = ZNAME+3 [USER NAME 2*P2 #DEF ZPROP = ZUSER+3 [PROPERTY NUMBER 2B8L #DEF ZLCOUNT= ZPROP+1 [COUNT OF JOB NOS. STORED 2BN= #DEF ZLJOB = ZLCOUNT+1 [JOB NUMBER 2C7W [ DEFINES THE CQPRINT/CQ11 2CMG #DEF WJOBNO = A1 [JOB NUMBER 2D76 #DEF WNAME = WJOBNO+1 2DLQ #DEF WUSER = WNAME+3 2F6B #DEF WMISC = WUSER+3 2FL2 #DEF WJLSTAT = WMISC 2G5L #DEF WYONQ = WMISC+1 2GK= #DEF WCONTEXT= WYONQ+1 2H4W #DEF WSOURCE1= WCONTEXT+1 2HJG #DEF WSOURCE2= WSOURCE1+1 2J46 #DEF WSOURCE3= WSOURCE2+1 2JHQ #DEF WURGE = WSOURCE3+1 2K3B #DEF WCPI = WURGE+1 2KH2 #DEF WTIMEJ = WCPI+1 2L2L #DEF WARRIVED= WTIMEJ 2LG= #DEF WPROGTIME =WTIMEJ+2 2L^W #DEF WARRIVET= WPROGTIME 2MFG #DEF WCSIZE = WPROGTIME+2 2M^6 #DEF WFWT = WCSIZE+1 2N?G #DEF WJLSTATX=WFWT 2NDQ #DEF WTLR = WFWT+1 2T^Q #DEF WTSWAPS = WTLR+1 2W33 #DEF WMAXSIZE= WTSWAPS+1 2W4# #DEF WWT1 = WMAXSIZE+1 2W5K #DEF WWT2 = WWT1+1 2W6W #DEF WWT3 = WWT2+1 2W87 #DEF WEXTRA = WWT3+1 2W9D #DEF WPERPTR = WEXTRA+1 2W=T #DEF WCOREPRI = WPERPTR+1 2W?# #DEF WMILLPRI = WCOREPRI+1 2W?R [ 2W#= BITDEFS WJLSTAT,2,XNOTCAND,XABAND,XHARDUP 2WCH BITDEFS WJLSTAT,5,XBREAK,XGENRES,XBREAKGR,XABANDON 2WDL BITDEFS WJLSTAT,9,XBMAP,XREST,XGRES,XGRNR 2WFP BITDEFS WJLSTAT,13,XGRQUERY,XRERUN,XRUNDUMP,,XFROZEN 2WGJ [ 2WHD BITDEFS WJLSTATX,0,XPARTRES,XPRES 2WJ4 BITDEFS WEXTRA,0,XWELL,XLIMBO 2WLL BITDEFS WEXTRA,2,XEXPR 2WM^ BITDEFS WYONQ,0,SAVED,SAVING 2WRW ZAWSHEAD +AWSNAME 2X?G ZAWSNAME +AWSNAME 2XR6 ZAWSBREAK +IWSPERIS 2Y=Q ZAWSCONTEXT +AWSCONTEXT 2YQB ZAWSCONTXTS +AWSNAME 2^=2 ZAWSWAIT +AWSNAME 329= ZAWSCORE +JWSPERIS 32NW ZAWSNOCOR +AWSPERIS 338G ZAWJNJOB2 +AWJNJOB2 33D? ZAWSCOREHD1 +AWSCOREHD1 33GW ZAWSCOREHD2 +AWSCOREHD2 33L* #UNS ICT 33M9 ZAWSACTPR +AWSACTPR 33N6 [ 347Q [ 34MB [ 3572 WL 4HWL [WELL FIELD 35LL NC 4HNC [NON CANDIDATE 366= SV 4HSV [SAVED FIELD 36KW PDAY 8H> A DAY 375G PTIME 8H-VE TIME 37K6 XDAYL +10 [DAY OF MILLISECS 384Q XDAYM +2513920 389X ROUNDUP #20000000 38?L N100 +100 38** XCOMMA 4H, 38C4 XBRA 4H( 38DR XKET 4H) 38JB N1000 +1000 3942 TENK +10000 39HL MAGIC +7036875 3=3= SPACE #20 3=GW TWENTFOURHR +60*60*24/K9*1000 [1 DAY OF SC COUNTS 3?2G WAIT 10HWAITING:- 3?5L XPRESS #34631463 [CPI OF EXP'D JOB 3?5W OPLURG #10630404 [ZGH IN CQ1 IF O/P LEVEL = URGE 3?66 OPLFULL #10777774 [ " " " " = FULL 3?6= ...OPLFULLWSN #10437774 3?6B [ 3?8Q XCATWELL #77650400 [WELL CATEGORIES 3??W XCATSAVE #77040400 [SAVE CATEGORIES 3?C2 XCATNCOR #77474400 [NO CORE CATEGORIES 3?G6 WHMASK #77700000 [1ST LINE CATEGORIES 3?^Q WINH +AQPJNO 3#FB +AQPMOP 3#^2 +AQPUSER 3*DL +AQPNAME 3*Y= +AQPUR 3BCW +AQPCP 3BXG +AQPJT 3CC6 +AQPTI 3CWQ +AQPSIZE 3CY3 [WSNARROW HEADING TABLE 3C^# WINH1 +AQPJNO1 3D2K +AQPMOP1 3D3W +AQPUSER 3D57 +AQPNAME 3D6D +AQPUR 3D7P +AQPCP 3D92 +AQPJT 3D=? +AQPTI 3D?J +AQPSIZE 3D#T SEVENCH +1000000 3DBB [ J TO PRINT ROUTINE 3DW2 WIN BRN TJNO [1. JOB NUMBER 3F*L BRN TMOP [2. MOP? 3FT= BRN TUSE [3. USERNAME 3G#W BRN TNAM [4. JOBNAME 3GSG BRN TUR [5. URGENCY 3H#6 BRN TCP [6. CPI 3HRQ BRN TJT [7. JOB TIME USED 3J?B BRN TTI [8. PROGRAM TIME LEFT 3JR2 BRN TSIZ [9. CORE/SIZE 3K=L BRN TEOL [10. END OF LINE 3KQ= BRN TBRK [11. BEING BROKEN IN ON 3L9W BRN TCON [12. CONTEXT 3LPG BRN TWT [13. WAITING FOR 3M96 BRN TCOR [14. CORE INFORMATION 3MNQ BRN TPER [15. PERIPHERAL INFORMATION 3N8B BRN TFIN [16. END OF JOB INFORMATION 3NN2 TCONTEXT [ADDRESSES OF CNTX SUBMESSAGES 3P7L +TCB9 3PM= +TCBNULL 3Q6W +TCB11 3QLG +TCB12 3R66 +TCB13 3RKQ +TCB14 3S5B +TCB15 3SK2 +TCB16 3T4L +TCBNULL 3TJ= +TCB18 3W3W +TCB19 3WHG +TCB20 3X36 +TCB21 3XGQ +TCB22 3Y2B +TCB23 3YG2 SCONTEXT 3YPR +TJB18 3YSB +TJB19 3Y^L +TJB3 3^F= +TJB4 3^H^ +TJB5 3^JW +TJB6 3^KR +TJB7 3^LN +TJB8 3^MK +TJB9 3^NG +TJB10 3^PC +TJB11 3^Q# +TJB12 3^R9 +TJB13 3^S6 +TJB14 3^T3 +TJB15 3^TY +TCBNULL 3^WT +TJB17 3^YW TCBNULL +0 42DG TCB9 11H:BROKEN IN, 42Y6 TCB11 9H8PROGRAM, 43CQ TCB12 15H>FULLY STARTED, 43XB TCB13 21H£TENTATIVELY STARTED, 44C2 TCB14 12H;CORE IMAGE, 44WL TCB15 15H>NO CORE IMAGE, 45B= TCB16 8H7REMOTE, 45TW TCB18 8H7READER, 46*G TCB19 10H9OPERATOR, 46T6 TCB20 5H4MOP, 47#Q TCB21 14H=OFF-LINE JOB, 47SB TCB22 9H8NO USER, 48#2 TCB23 6H5USER, 48RL [ 49?= TJB3 23H&TEMPORARILY ABANDONED, 49QW TJB4 16H?USER OVERDRAWN, 49TK TJB5 16H?RESTART(BREAK), 49WG TJB6 8H7GENRES, 49XC TJB7 15H>GENRES(BREAK), 49Y# TJB8 18H!RESTART(ABANDON), 49^9 TJB9 11H:BACKMAPNC, 4=26 SEGENTRY K90QPRINT 4=33 TJB10 20HGENRES(QUERY), 4=6M TJB14 15H>GENRES(RERUN), 4=7J TJB15 17H GENRES(RUNDUMP), 4=8F TJB17 18H!DIRECTORY FROZEN, 4==6 TJB18 9H8PARTRES, 4==G [ S/R TO WRITE RECORD TO WS FILE 4=Q6 [ AWORK4 = 0 IF WS FILE AT DEPTH 0 4?9Q [ = 1 IF WS FILE AT DEPTH 1 4?PB WSW SBX 6 FX1 4#92 ASSMESS 5 4#NL MHUNTW 3,GMON,AOUT 4*8= NAME 3,FILE,FAPB 4*MW LDX 0 A1(3) 4B7G ADN 0 11 4BM6 SRL 0 2 4C6Q STO 0 A1(3) 4CLB LDX 0 AWORK4(2) [FILE DEPTH 4D62 BZE 0 WSW3 4DKL APPEND 1,WSW9 [WRITE WS INFO TO WS FILE 4F5= BRN WSW8 4FJW WSW3 APPEND 0,WSW9 [WRITE TO WS FILE 4G4G WSW8 MFREE FILE,FAPB 4GJ6 TESTRPN2 OK,WSW10 4H3Q ADN 6 1 [OK 4HHB WSW9 ADN 6 1 [BREAK IN 4J32 WSW10 ADX 6 FX1 [ERROR 4JGL EXIT 6 0 4JQD [ 4K2= OUTMESS 4KFW [ S/R TO OUTPUT SUBMESSAGE 4K^G LDX 1 4 4LF6 OUTM2 SBX 4 FX1 4LYQ OUTMESSX 0(1) 4MDB ADX 4 FX1 4MY2 EXIT 4 1 4N7S [ 4NCL STOREM 4NX= [ S/R TO FIND ADATA/CSTORE AND PUT ADDRESS IN X3 4PBW [ IF IT DOESN EXIST, A BLOCK OF CORE IS SET UP 4PWG SBX 4 FX1 4QB6 HUNTW 3,ADATA,CSTORE 4QTQ BPZ 3 STRM9 [J IF FOUND 4R5J SETNCORE 60,3,ADATA,CSTORE 4RT2 STRM9 ADX 4 FX1 4S#L LDX 2 FX2 4SS= EXIT 4 0 4ST5 [ 4STY XOUTNUM 4SWG SBX 7 FX1 4SX4 OUTNUM 5,7,1 4SXL ADX 7 FX1 4SY8 EXIT 7 0 4SYQ [ 4S^# [ S/R TO CONVERT BINARY INTEGER(<100) TO DECIMAL 4S^W [ X0 IS LINK 4T2D [ X1 = FX1 4T32 [ X2 -> O/P AREA 4T3J [ X5 HOLDS INTEGER 4T46 TODEC 4T4N DVR 5 N100(1) 4T5= STO 0 GEN0 4T5S STO 7 GEN1 4T6B LDCT 7 #200 4T6Y LDN 0 2 4T7G MODE 0 4T84 TD4 CBD 6 0(2) 4T8L BCHX 2 £ 4T98 BCT 0 TD4 4T9Q LDX 7 GEN1 4T=# BRN (GEN0) 4T=H [ 4T=Q [ 4T?2 WSNCHECK 4T?3 [ SUBR TO CHECK USE OF WSNARROW 4T?4 [ EXIT 1 IF WIDTH OF OUTPUT IS TO BE RESTRICTED 4T?5 [ EXIT 0 OTHERWISE 4T?6 STO 0 GEN0 4T?7 MHUNTW 2,CQPRINT,CQ1 4T?* LDX 0 ZGH(2) [PICK UP OUTPUT LEVEL 4T?C SMO FX1 4T?D ANDX 0 WSNBITS [IF NO MOP OR NAMES OUTPUT 4T#? BZE 0 WSNEX0 [NO SHORTENINGG 4T*6 JBS WSNEX1,FX1,WSNARROWALL [J IF NO CHECK OF CONTEXT REQD 4T*^ JBC WSNEX0,FX1,WSNARROWOP [J IF NOT WSNARROW OP 4TBS JBC WSNEX0,FX2,CXTOPERATOR [J IF NOT OP CONTEXT 4TCM [ 4TDG [ PICK UP ROUTING PARAMETER 4TF* LDX 0 ZGG(2) 4TG8 ANDN 0 1 [MASK OUT ALL BUT B23 4TH3 BNZ 0 WSNEX0 [J IF NOT "HERE" 4THW [ 4TJP WSNEX1 4TKJ LDN 0 1 4TLC ADS 0 GEN0 4TM= WSNEX0 4TN5 LDX 2 FX2 4TNY BRN (GEN0) 4TPR [ 4TQL [ OUTPUT THE 'WS' HEADING 4TRG START ORX 0 GSIGN 4W?6 STO 0 ZPROP(3) 4WQQ OUTBLOCN 23 4X=B ANDX 5 WHMASK(1) [CATEGORIES OF FIRST LINE 4XQ2 BRN THED4 4Y9L THED2 ADN 6 1 4YP= SLL 5 1 4^8W THED4 BZE 5 THED9 [J IF NO MORE CATEGORIES 4^NG BPZ 5 THED2 [J IF NOT REQ'D CAT 5286 LDN 1 WINH(1) 52=* [ NOW CHECK IF WSNARROW IN USE 52#J CALL 0 WSNCHECK 52BR BRN THED5 [J IF FULL OP REQD 52F2 SMO FX1 52H9 LDN 1 WINH1 52KD THED5 52MQ ADX 1 6 537B CALL 4 OUTM2 [GET SUB HEADING 53M2 +0 546L BRN THED2 54?S THED9 54YJ LDX 5 ZAWSHEAD(1) 555W CALL 6 WSW [O/P HEADING 55KG BRN XER 5656 BRN XBRK 56JQ BRN NEX 574B Q1ENTRY 57J2 LDX 0 ACOMMUNE1(2) 583L STO 0 AWORK4(2) [WS FILE DEPTH 58H= NEX 592W [ SELECT THE NEXT LEVEL OF WS INFORMATION REQUIRED 59GG MHUNTW 3,CQPRINT,CQ1 5=26 LDX 5 ZGH(3) 5=FQ SLL 5 6 5=^B LDN 6 0 5?F2 LDXC 0 ZPROP(3) 5?YL BCC START 5?^X MHUNTW 3,CQPRINT,CQ11 5#38 LDX 4 XCATWELL(1) [CAT. REQ'D BY WL JOB 5#4F LDX 0 WEXTRA(3) 5#5Q BNG 0 NEX05 [J IF WELL JOB 5#73 LDX 4 XCATSAVE(1) 5#8Y JMBS NEX05,3,SAVED,SAVING [J IF SAVED 5#=W LDX 4 XCATNCOR(1) 5##7 LDEX 0 WMISC(3) 5#*D BNZ 0 NEX4 5#BP NEX05 ANDX 5 4 5#D= BRN NEX4 5#XW NEX1 LDX 1 FX1 5*CG LDX 2 FX2 5*X6 LDX 5 AWORK1(2) 5BBQ LDX 6 AWORK2(2) 5BWB NEX2 ADN 6 1 [UPDATE O/P LEVEL INDICATOR 5CB2 SLC 5 1 [UPDATE CATEGORY 5CTL NEX4 BPZ 5 NEX2 [J IF NOT REQ'D O/P LEVEL 5D*= STO 5 AWORK1(2) [SAVE CATEGORY BITS 5DSW STO 6 AWORK2(2) [SAVE CURRENT O/P LEVEL 5F#G MHUNTW 3,CQPRINT,CQ11 [FIND JOB'S INFORMATION BLOCK 5FS6 LDX 0 WNAME(3) 5G?Q BZE 0 PLJ [J IF JOB NO LONGER EXISTS 5GRB LDX 0 WEXTRA(3) [WELL/STARTED IND. (B0) 5H?2 SMO 6 5HQL BRN WIN [O/P SUBSET OF WS INFO. 5J== TJNO 5JPW [ O/P JOB NUMBER 5K9G LDX 6 WJOBNO(3) 5K*Y [NOW CHECK USE OF WSNARROW 5KGB LDN 4 7 5KLS LDN 5 0 [SET MARKER 5KR= MPY 6 MAGIC(1) [READY FOR CBD 5KXN MODE 1 5L46 CALL 0 WSNCHECK 5L8J BRN TJNO1 [J IF FULL OP REQD 5L*2 LDX 0 WJOBNO(3) 5LFD BXGE 0 SEVENCH(1),TJNO1 [J IF LARGE NO 5LKW CBD 6 ACOMMUNE1(2) [GET RID OF EXTRA CHAR 5LQ# LDN 4 6 [SET COUNT 5LWQ LDN 5 #20 [AND SPACER 5M38 TJNO1 5M82 TJNO4 CBD 6 ACOMMUNE1(2) [CONV. JOB NO. TO DEC. 5MML BCHX 2 £ 5N7= BCT 4 TJNO4 5NLW CALL 4 STOREM 5P6G LDN 0 A1+1 5PL6 STO 0 A1(3) [INITIAL CHAR. PNTR 5PR# [NOW SET COUNT AND SPACER IF WSNARROW IN USE 5PYG LDX 6 5 5Q5N LDN 5 7 5Q=W CALL 0 WSNCHECK 5QD4 BRN STN [J IF FULL OUTPUT REQD 5QK= BZE 6 STN2 [IF ZERO SPACER & WSNARROW THEN 7 CHA 5QQD LDN 5 6 [OTHERWISE 6 5QXL BRN STN2 5R52 TMOP 5RJL [ O/P MOP? 5S4= LDX 0 ACES 5SHW STO 0 ACOMMUNE1(2) 5T3G STO 0 ACOMMUNE2(2) 5TH6 STO 0 ACOMMUNE3(2) 5W2Q LDN 4 ACOMMUNE1 [PTR FOR O/P 5WGB LDN 0 #4351 [CI 5X22 DSA 0 ACOMMUNE1(2) 5XFL LDCH 0 WSOURCE1(3) 5X^= SBN 0 #74 5YDW BZE 0 TMOP8 [J IF CI 5YYG LDN 0 #5620 [N 5^D6 DSA 0 ACOMMUNE1(2) 5^XQ LDX 6 WSOURCE3(3) 62CB ANDX 6 BITS22LS [PROPERTY NUMBER 62X2 JMBAC TMOP4,3,SAVED,SAVING [J IF NOT SAVED 63BL TMOP3 STOZ ACOMMUNE8(2) [FOR ORIGIN MACRO 64*W BZE 6 TMOP8 [J IF CENTRAL AND SAVED 64TG STO 6 ACOMMUNE9(2) 65*6 LDN 0 #6220 [R 65SQ DSA 0 ACOMMUNE1(2) 66#B SBN 4 1 66S2 ORX 4 GSIGN 67?L BRN TMOP7 67R= TMOP4 LDXC 0 WEXTRA(3) 68=W BCC TMOP43 [J IF 'STARTED' JOB 68QG LDX 0 WJLSTAT(3) 69=6 ANDN 0 1 69PQ BNZ 0 TMOP6 [J IF MOP 6=9B BRN TMOP45 6=P2 TMOP43 6?8L LDXC 0 WMISC(3) 6?N= BCC TMOP6 [J IF MOP 6#7W TMOP45 6#MG BZE 6 TMOP8 [J IF CENTRAL & BACK 6*76 BRN TMOP3 6*LQ TMOP5 DSA 0 ACOMMUNE1(2) 6B6B BRN TMOP8 6BL2 TMOP6 JBC TMOP65,3,XLIMBO [J IF NOT IN LIMBO 6D4W LDN 0 #5420 [L 6DJG BRN TMOP5 6F46 TMOP65 6FHQ LDN 1 WSOURCE1(3) 6G3B LDN 2 ACOMMUNE7(2) 6GH2 MOVE 1 3 6H2L TMOP7 ORIGIN 6H^W LDN 3 ACOMMUNE2(2) 6J52 BPZ 4 TMOP75 6J86 SBN 3 1 6J?= ORX 3 GSIGN 6JBB TMOP75 6JFG LDN 4 ACOMMUNE1(2) 6J^6 MVCH 3 7 6KDQ TMOP8 LDN 5 7 [FIELD WIDTH 6KKY [NOW CHECK USE OF WSNARROW 6KR6 CALL 0 WSNCHECK 6KY# BRN STN [J IF FULL OP REQD 6L5G TMOP9 LDN 6 0 [SET NO SPACER 6L=N BRN STN2 6LD2 TUSE 6LXL [ O/P USER NAME 6MC= LDX 4 ACES 6MWW STO 4 ACOMMUNE1(2) 6NBG STO 4 ACOMMUNE2(2) 6NW6 STO 4 ACOMMUNE3(2) 6P*Q LDN 4 WUSER(3) [SAVE POS. OF USERNAME 6PN7 LDN 5 12 6Q2J LDN 6 13 6Q*2 TUSE3 LDCH 0 WUSER(3) 6QSL BCHX 3 £ 6R73 BXE 0 SPACE(1),TUSE5 [J IF SPACE 6RFD LDX 6 5 6RRT TUSE5 BCT 5 TUSE3 6S6= SBN 6 1 6SDM LDN 2 ACOMMUNE1(2) 6SR6 SLC 2 2 6T=Q ADX 2 6 6TQB SRC 2 2 6W=2 LDN 0 #12 [: 6WPL DCH 0 0(2) 6X9= BCHX 2 £ 6XNW LDN 5 12 6Y8G SBX 5 6 6YN6 BZE 5 TUSE8 6^7Q LDX 1 4 6^MB SMO 5 7272 MVCH 1 0 [PLACE USERNAME AFTER : 72LL TUSE8 LDN 5 13 [FIELD WIDTH 736= LDN 6 #36 [SPACER = '.' 73KW BRN STN2 745G TNAM 74K6 [ O/P JOB NAME 754Q LDN 4 WNAME(3) 75JB LDN 5 ACOMMUNE1(2) 7642 MOVE 4 3 [STORE JOB NAME 76HL LDN 5 12 [FIELD WIDTH 773= BRN STN 77GW TUR 782G [ O/P URGENCY/SAVED OR WELL 78G6 LDX 0 WURGE(3) [URGENCY 78^Q DCH 0 ACOMMUNE1(2) 79FB LDN 5 1 79ML JBC STN,3,XEXPR [J IF NOT EXPRESSED 7?CW LDN 6 #45 [E FOR EXPRESSED 7?XG BRN STN2 7#C6 TCP 7#WQ [ O/P CPI 7*BB LDN 5 2 [FIELD WIDTH 7*W2 BNG 0 TNC [J IF STILL IN WELL 7B*L JMBS TCP4,3,SAVED,SAVING [J IF SAVED 7C#W LDX 6 WCPI(3) 7CG3 JBC WHICHCP4,1,TPWSWITCH[J IF WSCOREPRI OFF 7CHD LDEX 5 WCOREPRI(3) 7CJW LDN 6 0 7CL2 DVR 5 N100(1) 7CM8 LDN 5 2 7CNX WHICHCP4 7CSG LDCT 7 #200 7D#6 LDN 4 2 7DRQ MODE 0 7F?B TCP2 CBD 6 ACOMMUNE1(2) [CONV.CPI TO DEC. 7FR2 BCHX 2 £ 7G=L BCT 4 TCP2 7GQ= LDX 0 WMISC(3) 7H9W ANDN 0 #600 7HPG BZE 0 STN [J IF NOT REALTIME 7J96 LDN 6 #62 [R FOR REAL TIME 7JNQ BRN STN2 7K8B TCP4 LDX 0 SV(1) 7KN2 STO 0 ACOMMUNE1(2) ['SV' FIELD 7L7L BRN STN 7LM= [ O/P IF DEGENERATE JOB 7M6W TNC LDX 4 NC(1) [NON CANDIDATE 7MLG JBS TNC2,3,XNOTCAND [J IF DEGENERATE 7N66 LDX 4 WL(1) [STORE 'WL' IN CPI FIELD 7NKQ TNC2 STO 4 ACOMMUNE1(2) 7P5B BRN STN 7PK2 TJT 7Q4L [ O/P JOB TIME OR DATE OF ENWELLMENT IF STILL IN WELL 7QJ= BNG 0 TARD [J IF WELL JOB 7R3W LDX 4 WTIMEJ+1(3) 7RHG LDX 3 WTIMEJ(3) 7S36 TJT1 BNG 3 TJT5 7SGQ BZE 3 TJT3 [DAY 7WF= ADXC 4 XDAYL(1) 7WYW ADX 3 XDAYM(1) [RESET TIMES 7XDG TJT3 LDN 0 K9 7XY6 DVD 3 0 7YCQ TIMECON 4 [CONVERT 7YXB TJT4 LDN 5 8 [FIELD WIDTH 7^C2 BRN STN 7^WL TJT5 LDN 3 PTIME(1) [-VE TIME 82B= BRN TJT8 82TW TJT7 LDN 3 PDAY(1) [> A DAY 83*G TJT8 LDN 4 ACOMMUNE1(2) 83T6 MOVE 3 2 84#Q BRN TJT4 84SB TARD 85#2 [ O/P DATE OF ARRIVAL 85RL LDX 4 WARRIVED(3) 86?= DATECON 4 [CONVERT TO CHAR. FORM 86QW BRN TJT4 [J TO O/P DATE 87=G TTI 87Q6 [ O/P PROGRAM TIME OR DATE OF ENWELLMENT IF WELL JOB 889Q BNG 0 TART [J IF STILL IN WELL 88PB LDX 4 WPROGTIME+1(3) [GET 8992 LDX 3 WPROGTIME(3) [ PROGRAM TIME REMAINING 89NL BRN TJT1 8=8= TART 8=MW [ O/P TIME OF ARRIVAL 8?7G LDX 3 WARRIVET(3) [MILLISECS SINCE MIDNIGHT 8?M6 MPY 3 N1000(1) 8#6Q BRN TJT3 8#LB TSIZ 8*62 [ O/P CORE SIZE 8*KL SMO WCSIZE(3) 8B5= LDN 5 0 [CLEAR TOP 2 BITS 8BJW BXGE 5 TENK(1),TSIZ2 [J IF >=10000 WORDS 8C4G DVR 5 TENK(1) 8CJ6 LDCT 7 #200 8D3Q LDN 4 4 8DHB MODE 1 8F32 TSIZ1 CBD 6 ACOMMUNE1(2) [CONV. CORE TO DEC. 8FGL BCHX 2 £ 8G2= BCT 4 TSIZ1 8GFW LDN 5 4 8G^G BRN STN 8HF6 TSIZ2 ADN 5 1023 [ROUND UP AND DIVIDE BY K 8HYQ SRL 5 10 8JDB MPY 5 MAGIC(1) 8JY2 MODE 0 8KCL LDN 0 0 8KX= LDN 1 7 [MAX. CHAR. WIDTH 8LBW TSIZ4 CBD 5 0 8LWG BNZ 0 TSIZ6 [J IF FIRST NON-ZERO CHAR. 8MB6 BCT 1 TSIZ4 8MTQ STOZ ACOMMUNE1(2) [SET '0' IF ONLY CHAR. 8N*B BCHX 2 TSIZ9 8NT2 TSIZ6 DCH 0 ACOMMUNE1(2) 8P#L BCHX 2 TSIZ8 8PS= TSIZ7 CBD 5 ACOMMUNE1(2) [CONVERT TO RIGHT PLACE 8Q?W BCHX 2 £ 8QRG TSIZ8 BCT 1 TSIZ7 8R?6 TSIZ9 LDN 6 #53 [K 8RQQ SBX 2 FX2 8SQ2 SLC 2 2 8T9L LDX 5 2 8TP= BRN STN2 8W8W [ PUT INFORMATION INTO ADATA/CSTORE 8WNG STN LDN 6 #20 [DEFAULT SPACER = SPACE 8X86 STN2 CALL 4 STOREM [CREATE/FIND ADATA/CSTORE 8XMQ LDX 0 3 [SAVE ADDR. OF CSTORE 8Y7B ADX 3 A1(3) [PTR. TO END OF INFO. 8YM2 ADN 2 ACOMMUNE1 8^6L SMO 5 8^L= MVCH 2 0 [STORE INFO. IN CSTORE 8^W4 BZE 6 STN3 [J IF NO SPACER 925W DCH 6 0(3) [STORE SPACER 92KG BCHX 3 £ 92T# STN3 9356 SBX 3 0 93JQ SMO 0 944B STO 3 A1 [PTR. TO END OF INFO. 94J2 BRN NEX1 953L TEOL 95H= [ COMPLETE ASSEMBLY OF MESSAGE AND WRITE AWAY 962W [ TO 'WS' FILE 96GG CALL 4 STOREM 9726 LDX 4 A1(3) 97FQ SBN 4 A1+1 97^B SLC 4 2 98F2 OUTPARAM 4,A1+1,ADATA,CSTORE 98YL LDX 5 ZAWSNAME(1) 98^K #UNS ICT 992J ( 993H CALL 6 WSW 994G BRN XER 995F BRN XBRK 996D LDX 5 AWORK1(2) 997C ANDN 5 #20 998B BZE 5 NEX1 999* JBC NEX1,,ICTSW 999D [ 999H [ OUTPUT ACTIVITY PRIORITY IF REQUIRED 999L MHUNTW 3,CQPRINT,CQ1 999P LDX 5 ZGH(3) [GET O/P LEVEL PARAMETER 999S BXE 5 OPLURG(1),TACTPR [J IF URGE 999T ... BXE 5 OPLFULL(1),TACTPR 999W ... JMBAC NEX1,1,WSNARROWALL,WSNARROWOP 999X ... BXU 5 OPLFULLWSN(1),NEX1 999Y ... 99=5 TACTPR 99=# MHUNTW 3,CQPRINT,CQ11 99?? LDCH 5 WCOREPRI(3) 99#= ANDN 5 #37 [IGNORE FIXED BIT OF ACT PRI 99*9 OUTNUM 5,1,1 99B8 LDX 5 ZAWSACTPR(1) [GET MESSAGE 99C7 ) 99D= BRN TWRL 99XW TBRK 9=CG [ O/P BREAK-IN MESSAGE 9?WB LDX 0 WMISC(3) 9#B2 SLL 0 2 9#TL BPZ 0 NEX1 [J IF NOT BEING BROKEN-IN ON 9**= LDX 5 ZAWSBREAK(1) 9*SW BRN TWRL 9B#G TCON 9BS6 [ O/P CONTEXTS 9C?Q LDX 0 WCONTEXT(3) 9CRB BNZ 0 TCON1 [J IF CONTEXT IE.STARTED JOB 9D5Q JMBS PRSET,3,XPRES,XPARTRES 9D75 JMBAC NEX1,3,XABAND,XHARDUP,XBREAK,XGENRES,XBREAKGR,XABANDON,X- 9D?2 REST,XGRES,XGRNR,XGRQUERY,XRERUN,XRUNDUMP,XFROZEN 9D#Y PRSET 9DBX JBC TCW1,3,XABAND 9DGS BC 3,XABANDON 9DLP TCW1 JMBAC TCW2,3,XBREAKGR,XGRQUERY,XRERUN,XRUNDUMP 9DQL BC 3,XGENRES 9DWH TCW2 9FPW TCON1 LDX 5 ZAWSCONTEXT(1) 9G9G CALL 6 WSW 9GP6 BRN XER 9H8Q BRN XBRK 9HNB CALL 4 STOREM [X3 ADATA/CSTORE 9J82 ADN 3 A1 9JML LDN 4 0 [COUNT OF CHARS IN MESSAGE 9K7= MHUNTW 2,CQPRINT,CQ11 9KLW LDX 0 WEXTRA(2) 9L6G BNG 0 TCON8 [J IF 'WELL' JOB 9LL6 LDX 6 WCONTEXT(2) [CPAT CONTEXT 9M5Q LDN 7 15 [POSN OF CURRENT CONTEXT BIT 9MKB TCON2 SRC 6 1 9N52 BPZ 6 TCON4 [J IF CONTEXT BIT NOT SET 9NJL SMO 7 9P4= LDX 2 TCONTEXT-1(1) 9PHW TCON3 ADX 2 FX1 [X2 CONTEXT MESSAGE PART 9Q3G LDCH 0 0(2) 9QH6 BZE 0 TCON4 [J IF NOT REQD CONTEXT BIT 9R2Q ADX 4 0 [UPDATE CHAR. COUNT 9RGB BCHX 2 £ 9S22 SMO 0 9SFL MVCH 2 0 [MESSAGE PART ADATA/CSTORE 9S^= TCON4 BCT 7 TCON2 9TDW TCON6 SBN 4 1 [REMOVE LAST COMMA 9TYG BNG 4 NEX1 [J IF NO CONTEXTS EG. SAVED 9WD6 TCON7 OUTPARAM 4,A1,ADATA,CSTORE 9WXQ LDX 5 ZAWSCONTXTS(1) 9XCB BRN TWRL 9XX2 TCON8 LDX 6 WJLSTAT(2) [JOBLIST JLSTAT 9Y6S SRC 6 6 9Y7M ANDX 6 BSP16 9Y7Y LDCT 0 #600 9Y89 ANDX 0 WJLSTATX(2) 9Y8G SRL 0 7 9Y8R ORX 6 0 9Y94 LDN 7 17 9YNN ADN 1 SCONTEXT-TCONTEXT 9^8# BRN TCON2 9^MY TWT =27J [ O/P WHY WAITING =2M8 LDX 6 WWT1(3) =36S BZE 6 NEX1 [J IF NOT WAITING =3LD STO 6 ACOMMUNE6(2) =464 DOWN WTSTAT,1 =4KN OUTPARAM ACOMMUNE7(2),A1,ADATA,CSTORE =55# LDX 5 ZAWSWAIT(1) =5JY BRN TWRL =64J TCOR =6J8 [ O/P PROGRAM INFORMATION =73S LDX 0 WCSIZE(3) =7HD BZE 0 TCOR9 [J IF NO CORE IMAGE =834 LDX 5 ZAWSCOREHD1(1) =8GN JBC TCORECS1,1,TPWSWITCH [J IF WSCOREPRI OFF =92# LDX 5 ZAWSCOREHD2(1) =9FY TCORECS1 =9^J CALL 6 WSW ==F8 BRN XER ==YS BRN XBRK =?DD MHUNTW 3,CQPRINT,CQ11 =?Y4 LDX 5 WFWT(3) =#CN LDX 6 WTLR(3) =#X# LDX 4 5 =*BY BPZ 4 TCOR3 [J IF ALREADY RUN =*WJ LDN 5 0 =BB8 SLL 4 1 =BTS BNG 4 TCOR3 [J IF NOT RUN SINCE LOAD =C*D LDX 0 ACES =CT4 STO 0 ACOMMUNE2(2) =D#N SBN 0 1 =DS# STO 0 ACOMMUNE1(2) =F?Y OUTPARN 7,ACOMMUNE1 [O/P 7H ? =FRJ BRN TCOR35 =G?8 TCOR3 CALL 7 XOUTNUM =GQS TCOR35 =H=D BNG 4 TCOR4 [J IF NOT RUN SINCE LOAD =HQ4 BPZ 6 TCOR6 =J9N ADX 6 TWENTFOURHR(1) =JP# BPZ 6 TCOR6 =K8Y TCOR4 LDX 0 ACES =KNJ STO 0 ACOMMUNE1(2) =L88 STO 0 ACOMMUNE2(2) =LMS LDN 0 #17 [? =M7D BPZ 4 TCOR5 =MM4 LDN 0 #54 [L =N6N TCOR5 DEX 0 ACOMMUNE1(2) =NL# BRN TCOR7 =P5Y TCOR6 TIMECON 6 =PKJ TCOR7 OUTPARN 8,ACOMMUNE1 =R4D MHUNTW 3,CQPRINT,CQ11 =RJ4 LDX 4 WMILLPRI(3) =S3N LDEX 5 WCOREPRI(3) =SH# JBC TCORECS2,1,TPWSWITCH[J IF WSCOREPRI OFF =T2Y LDX 5 WCPI(3) =TGJ MPY 5 N100(1) =W28 ADXC 6 ROUNDUP(1) =WFS ADN 5 0 =W^D TCORECS2 =XF4 CALL 7 XOUTNUM =XYN LDN 2 ACOMMUNE1(2) =YD# LDX 0 ACES =YXY STO 0 0(2) =^CJ LDN 3 1(2) =^X8 MOVE 2 3 ?2BS LDX 0 4 [MILL PRIORITY ?2WD LDN 3 0 ?3B4 SLL 0 6 ?3TN BZE 0 TMILLS2 [J IF ONLY 1ST MEMBER REQ ?4*# LDCH 0 XBRA(1) ?4SY DCH 0 0(2) [O/P ( FOR MILL TEXT ?5#J LDN 7 4 ?5S8 BCHX 2 TMILLS3 ?6?S TMILLS2 LDCH 5 4(3) [PICK UP MILLP ?6RD CALL 0 TODEC ?7?4 BRN TMILLS9 ?7QN TMILLS25 LDCH 0 XCOMMA(1) ?8=# DCH 0 0(2) ?8PY BCHX 2 £ ?99J TMILLS3 LDCH 5 4(3) [GET NEXT MILLP ?9P8 BZE 5 TMILLS5 ?=8S CALL 0 TODEC ?=ND TMILLS5 BCHX 3 £ ??84 TMILLS6 BCT 7 TMILLS25 ??MN LDCH 0 XKET(1) ?#7# DCH 0 0(2) ?#LY BCHX 2 £ ?*6J TMILLS9 ?*L8 OUTPARN 13,ACOMMUNE1 ?JYJ TCOR8 LDX 5 ZAWSCORE(1) ?KD8 BRN TWRL ?KXS TCOR9 MHUNTW 3,CQPRINT,CQ1 ?LCD LDX 0 ZGF(3) ?LX4 ANDN 0 #6000 ?MBN BZE 0 NEX1 [J IF NO CORE JOBS SELECTED ?MW# LDX 5 ZAWSNOCOR(1) ?N*Y BRN TWRL ?NTJ TPER ?P*8 [ O/P PERIPHERAL INFORMATION ?PSS LDX 0 WCSIZE(3) ?Q#D BZE 0 NEX1 [J IF NO CORE IMAGE ?QS4 LDX 0 AWORK4(2) ?R?N STO 0 ACOMMUNE1(2) [DEPTH OF 'WS' FILE ?RR# DOWN WSPERIS,1 ?S=Y BRN XER ?SQJ BRN XBRK ?T=8 BRN NEX1 ?TPS TWRL CALL 6 WSW [O/P INFO. TO 'WS' FILE ?W9D BRN XER ?WP4 BRN XBRK ?X8N BRN NEX1 ?XN# TFIN ?Y7Y [ END OF THIS JOBS WS INFORMATION ?YMJ QND UPPLUS 2 [OK ?^78 XER UPPLUS 1 [ERROR ?^LS XBRK UP [BREAK IN #26D PLJ #2L4 [ O/P JOB NO LONGER EXISTS MESSAGE #35N OUTNUM WJOBNO(3),7,1 #3K# OUTMESS BWSPERIS [JOB DELETED #44Y LDX 5 ZAWSNAME(1) #4JJ CALL 6 WSW #548 BRN XER #5HS BRN XBRK #63D BRN QND #72N [ NO JOB(S) SELECTED #7G# Q4ENTRY #?C# STOZ AWORK4(2) ['WS' FILE DEPTH #?WY OUTBLOCN 23 ##BJ OUTMESS AWJNJOB2 [NO SUCH JOBS IN SYSTEM ##W8 MHUNTW 3,CQPRINT,CQ1 #**S LDX 6 ZGA(3) [SELECTION DETAILS #*TD STO 6 ACOMMUNE6(2) #B*4 DOWN WSPARAM,2 [OUTPARAM SEL. DETAILS #BSN LDX 5 ZAWSNAME(1) #C## CALL 6 WSW #CRY BRN XER #D?J BRN XBRK #DR8 BRN QND #FQD #END ^^^^ ...272056540005