16 22FL #LIS K0SAVEJOB>K0UNSAVE>K0HLS>K0GREATGEO>K0ALLGEO 16 22_= #SEG UNSAVE6 [RICHARD GRIMWADE 4 234B ...[ 4 237G ...[ 16 23=L ...[ (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1983 4 23*Q ...[ 8 23DW 8HUNSAVE 4 23YG # 21 24D6 # IMPLEMENTS THE UNSAVE MACRO WHICH RESTORES A JOB STORED IN 13 24XQ # A FILE GIVEN THE JOB NUMBER 4 25CB # 10 25X2 SEGENTRY K1UNSAVE,XK1 11 27H4 ... FSHENTRY K2UNSAVE,XK2,,XK2 12 27N= ... FSHENTRY K3UNSAVE,XK3,XK3,XK3 11 27QW ... FSHENTRY K4UNSAVE,XK4,,XK4 4 27TG # 9 28*6 # CONSTANTS 20 28SQ XLANG 4H#### [LANGUAGE CODE FOR SAVING FILE 5 29#B XFSLINK 10 2=?L LINK HLSEVENT,4 9 2#PQ MASK #777777 4 2*9B X850 6 2*P2 #HAL +8,+50 4 2BN= X860 9 2C7W #HAL +8,+60 9 2CMG XMILLPEXP #73737373 5 2D76 XHLSACT 11 2DLQ #HAL ACTSAVE+GENERAL,0 4 2G5L # 21 2GK= # SUBROUTINE TO FIND CPAT: SHOULD ONLY BE USED AFTER RINGING ON JOBRING 4 2H4W # 7 2HJG SCPAT FCAJO 3 7 2J46 EXIT 6 0 15 2JHQ # SUBROUTINE TO FIND JOBBLOCK. USED BY ALTLENG 8 2K3B SJOB STO 1 GEN0 8 2KH2 CALL 6 SJOBQ 7 2L2L LDX 2 3 9 2LG= BRN (GEN0) 10 2L_W # SUBROUTINE TO FIND JOBLOCK 8 2MFG SJOBQ JOBLOCK 7,3 7 2M_6 EXIT 6 0 11 2NDQ # SUBROUTINE TO FIND HLSQ BLOCK 9 2NYB SHLSQ SHLSQ 7,2,(6) 7 2PD2 EXIT 6 1 4 2PXL # 17 35LL # SUBROUTINE TO SET WORD 6 OF RECORD SUCH THAT IT CAN BE 9 366= # DEALT WITH IN A LOOP 5 36KW X6SET 18 375G LDXC 0 6(2) [CONREC IE LATEST RESET 16 37K6 BCS X6EX [DEFAULT THUS OK 19 384Q LDXC 5 6(3) [LAST REST BUT ONE IN HLSQ 21 38JB BCS X6EX [DEFAULT THUS CAN BE ENTIRLY OVERWRIT 18 3942 ANDN 0 3 [ISOLATE FS AND TS BITS 18 39HL BNZ 0 TESTEP [NOT DEFAULT IN CONREC 17 3=3= ANDN 5 3 [ISOLATE BITS IN HLSQ 16 3=GW ORS 5 6(2) [STORE IN CONREC 8 3?2G LDX 5 6(3) 5 3?G6 TESTEP 8 3?_Q LDX 0 6(2) 18 3#FB ANDN 0 #14 [ISOLATE EP AND CCEP BITS 8 3#_2 BNZ 0 X6EX 15 3*DL ANDN 5 #14 [ISOLATE BITS 16 3*Y= ORS 5 6(2) [STORE IN CONREC 7 3BCW X6EX EXIT 6 0 18 3BXG # THIS SUBROUTINE SETS X6 TO THE INCLUSIVE WORD COUNT OF THE 19 3CC6 # NEEDS (OR 0 IF NO NEEDS),X4 IS SET TO THE POSN OF THE NEEDS 20 3CWQ # X5 IS SET TO THE NEW POSN.ON ENTRY X3 MUST POINT TO THE JOBBLOCK 5 3DBB SETPTRS 10 3DW2 LDX 6 JNEEDSPTR(3) 16 3F*L BZE 6 XITSET [J IF NO NEEDS IN JOBQ 7 3FT= SMO 6 9 3G#W LDN 4 JOBNUM(3) 7 3GSG SMO 4 7 3H#6 LDX 6 0 5 3HRQ XITSET 7 3J?B EXIT 2 0 18 3JR2 # THIS SUBROUTINE MOVES THE NEEDS IN THE JOBBLOCK FROM THE 19 3K=L # OLD POSITION TO THE NEW POSITION.ON EXIT X6 = INCLUSIVE WORD 17 3KQ= # COUNT OF NEEDS IF THE MOVE WAS UPWARDS (I.E. X4>X5) 6 3L9W XMOVENEEDS 9 3LPG CALL 2 SETPTRS 18 3M96 BZE 6 XITMVNDS [NO NEEDS REQUIREMENTS 10 3MNQ LDN 5 JBPERIS(3) 11 3N8B LDN 0 JBPERIS-JOBNUM 10 3NN2 STO 0 JNEEDSPTR(3) 10 3P7L BXL 4 5,XMVNDSDWN 7 3PM= SMO 6 7 3Q6W MOVE 4 0 9 3QLG BRN XITMVNDS 6 3R66 XMVNDSDWN 7 3RKQ ADX 4 6 7 3S5B ADX 5 6 7 3SK2 XMV SBN 4 1 7 3T4L SBN 5 1 7 3TJ= SMO 4 7 3W3W LDX 0 0 7 3WHG SMO 5 7 3X36 STO 0 0 8 3XGQ BCT 6 XMV 5 3Y2B XITMVNDS 7 3YG2 EXIT 1 0 16 3Y_L # THIS SUBROUTINE ALTERS THE LENGTH OF THE JOBBLOCK 20 3_F= # ON ENTRY X6 MUST EQUAL INCLUSIVE WORD COUNT OF NEEDS REQUIREMENTS 5 3_YW XALTLEN 8 42DG SBX 4 FX1 9 42Y6 ADN 6 EXTJOB 8 43CQ ALTLEN 3,6 8 43XB ADX 4 FX1 7 44C2 EXIT 4 0 4 44WL XK1 10 45B= #SKIP K6UNSAVE>99-99 12 45TW TRACE ACOMMUNE1(2),UNSAVE 10 46*G LDX 7 ACOMMUNE1(2) 11 46T6 SETNCORE 10,3,FILE,FABSNB 8 47#Q CALL 6 SHLSQ 8 47SB BRN WAIT1 13 48#2 HLSAV 2,SET,UNSAVE,HLSQ,WAIT 11 48RL HLSAV 2,SET,UNSAVE,HLSQ 8 49?= LDN 0 10 17 49QW STO 0 A1(3) [SET RECORD HEADER 10 4==G LDN 4 HLSUNAM(2) 9 4=Q6 LDN 5 A1+1(3) 18 4?9Q MOVE 4 3 [MOVE USER NAME TO FABSNB 10 4?PB LDN 4 HLSJNAM(2) 9 4#92 LDN 5 A1+4(3) 18 4#NL MOVE 4 3 [MOVE JOB NAME TO FABSNB 18 4*8= STOZ A1+7(3) [SET RECORD NON DEFAULT 9 4*MW STOZ A1+8(3) 9 4B7G LDX 4 XLANG(1) 9 4BM6 STO 4 A1+9(3) 8 4C6Q THAWSAVE XBRK 10 4CLB TESTREPNOT OK,XNOTOK 6 4D62 ERASE 10 4DKL MFREEW FILE,FABSNB 9 4F5= READHUNT XNOJOB 9 4FJW LDX 4 FRH+1(3) 9 4G4G BPZ 4 XNOJOB 9 4GJ6 LDCT 4 JOBQE/8 9 4H3Q TXU 4 FRH+2(3) 9 4HHB BCS XNOJOB 8 4J32 CHANBLOK 1,2 9 4JGL LDX 3 BPTR(2) 10 4K2= LDN 4 AJBRING(3) 10 4KFW STO 4 AJBRING(3) 10 4K_G STO 4 AJBRING+1(3) 5 4PWG XCHAN 15 4QB6 CHJOBLOCK 3 [JOB BLOCK 7 4QTQ RESTRBLOK 15 4R*B BRN XNOCPAT [END OF FILE 15 4RT2 BRN XNOCPAT [NOT A BLOCK 9 4S#L LDCT 5 CPAT/8 18 4SS= LDX 3 BPTR(2) [PICK UP RESTORED BLOCK 9 4T?W TXU 5 ATYPE(3) 9 4TRG BCS XNOCPATA 5 4W?6 XCPAT 15 4WQQ LDX 4 3 [KEEP POINTER 16 4X=B CALL 6 SJOBQ [X3 -> JOBLOCK 10 4XQ2 LDN 2 AJBRING(3) 7 4Y9L SMO 4 9 4YP= LDN 1 JOBRING 8 4_8W STOZ 1(1) 8 4_NG ENRING 1,2 8 537B CALL 6 SJOBQ 7 53M2 LDX 2 3 8 546L CALL 6 SCPAT 9 54L= LDX 0 JURGE(2) 10 555W STO 0 ACOMMUNE9(3) 9 55KG LDCH 0 ACC7(3) 18 5656 SBN 0 GEORGE [X0=0 IF NO G3 OR G4 CONVERSION 8 56JQ SMO FX2 9 574B STO 0 ACOMMUNE4 9 57J2 LDX 5 ACC7(3) 7 583L LDX 3 2 9 58H= ANDX 5 MASK(1) 9 5=26 SBX 5 X860(1) 18 5=FQ BPZ 5 NMKCONV6 [J IF NO MARK CONVERSION 8 5=_B ADN 5 10 9 5?F2 BPZ 5 XFR850 7 5?YL LDN 6 0 16 5#D= CALL 4 XALTLEN [INCREASE LENGTH 8 5#XW CALL 6 SJOBQ 10 5*CG STOZ JNEEDSPTR(3) 9 5CB2 BRN STOZMILL 5 5CTL XFR850 9 5D*= CALL 2 SETPTRS 9 5DSW CALL 4 XALTLEN 8 5F#G CALL 6 SJOBQ 10 5FS6 CALL 1 XMOVENEEDS 5 5NLW STOZMILL 9 5P6G STOZ AMILLP(3) 7 5PDX ... LDN 4 0 9 5PR# ... DEX 0 ACOREP(3) 9 5Q5Q BRN NOCONV 5 5QKB NMKCONV6 21 5R52 BZE 0 NOCONV [J IF NO 3 TO 4 OR VICE VERSA CONVERS 10 5WGB CALL 1 XMOVENEEDS 9 5_XQ CALL 4 XALTLEN 9 62CB BRN NOCONV 5 6Q*2 NOCONV 9 6R#= READHUNT XONLYONE 5 6RRW XLOOP 17 6S?G STO 7 ACOMMUNE4(2) [SAVEFILE INTERFACE 17 6SR6 RESTACTF 7 [RESTORE ALL FILES 15 6T=Q BRN XEND [END OF FILE 4 6TQB XPCA 15 6W=2 RESTCHN [AND BLOCKS 15 6WPL BRN XEND [END OF FILE 9 6X9= BRN XCPNTLST 4 6XNW XEND 18 6Y8G CLOSE [CLOSE THE SAVING FILE 8 6YN6 CALL 6 SJOBQ 11 6_7Q HLSAV 3,CLEAR,SAVING,JOBQ 8 72LL CALL 6 SHLSQ 9 736= BRN NOHLSQ 10 73KW LDX 0 HLSPRIV(2) 16 745G STO 0 JPRIV(3) [RESTORE CORRECT WKP'S 8 7*BB CALL 6 SHLSQ 9 7*W2 BRN NOHLSQ 10 7B*L LDX 0 ALOGLEN(2) 8 7BT= SBN 0 AHLS 9 7C#W BZE 0 NORESETS 8 7CSG SMO FX2 8 7D#6 LDX 0 ATYPE 19 7DRQ BXE 0 XHLSACT(1),RSCND [J IF BEING STARTED BY HLS 19 7F?B LDN 5 A1+AHLS-2(2) [X5-> CONTROL RECORD IN HLSQ 15 7FR2 CALL 6 SJOBQ [X3->JOBBLOCK 7 7G=L LDX 2 5 17 7GQ= LDXC 0 7(2) [PTR. TO NEEDS DATA 16 7H9W BCS RSC3 [J IF NO NEEDS 17 7HPG LDX 5 CONRECSIZE(2) [START OF NEEDS DATA 9 7J96 ADN 5 EXTJOB 19 7JNQ ALTLENG 3,5,SJOB [REQ.SIZE OF JOBLOCK+NEEDS 16 7K8B CALL 6 SJOBQ [X3-> JOBBLOCK 14 7KN2 CALL 6 SHLSQ [X2->HLSQ 9 7L7L BRN (GEOERR) 9 7LM= ADN 2 A1+AHLS-2 8 7M6W RSC3 FCAJO 1,3 8 7MLG LDX 0 2(2) 15 7N66 BNG 0 RSC4 [J IF NO CPI 17 7NKQ STO 0 JCPI(3) [STO CPI IN JOBBLOCK 8 7P5B RSC4 LDX 5 3(2) 15 7PK2 BNG 5 RSC5 [J IF NO JT 8 7Q4L LDN 4 1000 18 7QJ= MPY 5 4 [CONVERT TO MILLISECONDS 9 7R3W STO 5 ATIMEJ(3) 17 7RHG STO 6 ATIMEJ+1(3) [STORE JT IN JOBBLOCK 8 7S36 RSC5 LDX 0 4(2) 19 7SGQ BPZ 0 RSC6 [J IF URGENCY SPECIFIED 9 7T2B LDEX 5 JURGE(3) 18 7TG2 BNZ 5 RSC7 [J IF UR PREVIOUSLY SET 8 7T_L LDX 0 6(2) 18 7WF= BNG 0 RSC7 [J IF NO CHANGE TO STATUS 7 7WYW ANDN 0 2 17 7XDG BZE 0 RSC7 [J IF NOT BECOMING FS 15 7XY6 LDN 0 #55 [DEFAULT = M 17 7YCQ RSC6 DSA 0 JURGE(3) [STORE UR IN JOBBLOCK 8 7YXB RSC7 LDX 0 5(2) 19 7_C2 BNG 0 RSC8 [J IF NO MAXSIZE SPECIFIED 17 7_WL STO 0 JSIZE(3) [STORE MZ IN JOBBLOCK 15 82B= RSC8 LDXC 6 7(2) [PTR TO NEEDS 17 82TW BCS RSC84 [J IF NO NEED DATA 10 83*G LDN 4 CONRECSIZE(2) 7 83T6 SMO 6 9 84#Q LDN 5 JBPERIS 10 84SB SMO CONRECSIZE(2) 19 85#2 MOVE 4 0 [STORE NEEDS REQ. IN JOBBLOCK 11 85RL LDN 0 JBPERIS-JOBNUM 7 86?= SMO 6 17 86QW STO 0 JNEEDSPTR [SET PTR TO NEEDS FIELD 5 87=G RSC84 15 8?7G LDX 4 AMILLP(3) [GET JOB'S MP 8 8?M6 LDXC 0 6(2) 17 8#6Q BCS XCOREP [NEITHER EP NOR CCEP 8 8#LB ANDN 0 #14 17 8*62 BZE 0 XCOREP [NEITHER EP NOR CCEP 7 8*KL ANDN 0 4 17 8B5= BNZ 0 XCCEP [J IF CCEP BIT SET 6 8BJW # EP ISSUED 10 8C4G BS 3,JBEXPREQ 8 8CJ6 SMO FX1 19 8D3Q LDX 4 XMILLPEXP [DEFAULT FOR EXPRESS MILL P 8 8DHB LDXC 0 10(2) 17 8F32 BCC STORECP [IF NO CORE PRIORITY 17 8FGL LDN 0 60 [SPECIFIED SET CORE P 14 8G2= BRN STORECP [TO 60 5 8GFW XCCEP 10 8G_G BC 3,JBEXPREQ 7 8HF6 LDN 4 0 9 8HYQ ... DEX 4 ACOREP(3) 5 8JDB XCOREP 8 8JY2 LDXC 0 10(2) 18 8KCL BCC STORECP [CORE PRIORITY SPECIFIED 15 8KX= ... LDEX 0 ACOREP(3) [NO ACTION IF 16 8LBW BNZ 0 XLVECOR [PREVIOUSLY SET 9 8LWG LDX 0 BACKCP 10 8MB6 LDX 5 JSOURCE(1) 16 8MTQ BZE 5 STORECP [J IF CENTRAL JOB 10 8N*B LDX 0 CLUSBACKCP 5 8NT2 STORECP 9 8P#L ... DEX 0 ACOREP(3) 5 8PS= XLVECOR 6 8PTS ...#UNS ICT 4 8PXB ...#SKI 4 8PYY ...( 12 8Q2G ...[ ENSURE THAT ACT PRI FIELD ZERO IF 12 8Q44 ...[ UNSAVING IN NON-ICT ENVIRONMENT 8 8Q5L ... LDCT 0 #30 9 8Q78 ... ANDX 0 ACOREP(3) 9 8Q8Q ... ERS 0 ACOREP(3) 4 8Q=# ...) 8 8Q?W LDX 5 11(2) 19 8QRG BZE 5 XMOVEMILLP [NO ACTION IF PREVIOUSLY SET 7 8R?6 LDX 4 5 6 8RQQ XMOVEMILLP 9 8S=B STO 4 AMILLP(3) 8 8SQ2 LDXC 0 6(2) 18 8T9L BCS RSC90 [J IF NO STATUS REQUESTED 7 8TP= ANDN 0 3 18 8W8W BZE 0 RSC90 [J IF NO CHANGE TO STATUS 7 8WNG SBN 0 1 16 8X86 BZE 0 RSC90 [J IF TO BE T.S. 21 8XMQ BS 1,EXFULLY [F.S. IND. FOR FS MESSAGE O/P BY HLSE 7 8Y7B LDN 4 1 8 8YM2 LDN 0 #6000 17 8_6L ERS 0 CONTEXT(1) [SWITCH TS/FS BITS... 16 8_L= LDX 0 GSIGN [... CPAT AND... 16 925W ERS 0 JURGE(3) [...IN JOBBLOCK 18 92KG ADS 4 HLSCOUNT+1 [UPDATE COUNT OF FS JOBS 16 9356 RSC90 SBN 2 A1+AHLS-2 [X2->HLSQ BLOCK 8 93JQ BRN SL6 8 944B RSCND LDX 3 FX2 18 94J2 ADX 3 AWORK3(3) [X3 TO STARTJOB CONREC 17 953L ADN 2 A1+AHLS-2 [X2 TO RESET CONREC 18 95H= LDXC 0 7(3) [J IF NEEDS IN STARTJOB 8 962W BCC RSC2 18 96GG LDXC 0 7(2) [J IF NO NEEDS IN RESET 8 9726 BCS RSC2 10 97FQ LDX 5 CONRECSIZE(2) 11 97_B SETUPCORE 5,1,ADATA,CSTORE 8 98F2 LDX 3 FX2 9 98YL ADX 3 AWORK3(3) 8 99D= CALL 6 SHLSQ 9 99XW BRN NOHLSQ 9 9=CG ADN 2 A1+AHLS-2 10 9=X6 LDN 4 CONRECSIZE(2) 8 9?BQ LDN 5 A1(1) 10 9?WB SMO CONRECSIZE(2) 15 9#B2 MOVE 4 0 [COPY NEEDS 8 9#TL STOZ 7(3) 8 9**= # SWITCH X2 AND X3 20 9*SW RSC2 LDX 5 3 [X3 NOW POINTS TO RESET(IN HLSQ) 18 9B#G LDX 3 2 [X2 TO STARTJOB (IN OLPA) 7 9BS6 LDX 2 5 8 9C?Q CALL 6 X6SET 9 9FPW LDN 4 ASTCON-1 4 9G9G SL1 8 9GP6 LDXC 0 2(2) 8 9H8Q BCC SL2 8 9HNB LDX 0 2(3) 8 9J82 STO 0 2(2) 4 9JML SL2 7 9K7= ADN 2 1 7 9KLW ADN 3 1 8 9L6G BCT 4 SL1 9 9MKB # SET UP MILL PRIORITIES 7 9N52 LDN 4 4 8 9NJL SL3 LDCH 0 2(2) 8 9P4= BNZ 0 SL4 8 9PHW LDCH 0 2(3) 8 9Q3G DCH 0 2(2) 7 9QH6 SL4 BCHX 2 / 7 9R2Q BCHX 3 / 8 9RGB BCT 4 SL3 8 9SFL CALL 6 SHLSQ 9 9S_= BRN NOHLSQ 5 9TDW NORESETS 10 9WD6 SL6 LDX 4 HLSJONO(2) 16 9WXQ FREECORE 2 [FREE HLS BLOCK 4 9WY2 ...# 21 9WY= ...# FRIG TO PUT THE CPA BACK ON THE QUEUE SO IT WILL GET WOKEN UP BY 20 9WYG ...# PROCONTX AND FPUT IN THE BREAKIN CASE - THIS MEANS THAT SAVING 20 9WYQ ...# JOBS CAN ONLY OCCUR WHEN WAITING TO BE FULLY STARTED AT LEAST 9 9W_2 ...# UNTIL FLONGWAITX 4 9W_= ...# 21 9X=Q ... CALL 6 SJOBQ [LOCATE THE JOB'S JOB BLOCK AGAIN!!! 4 9X?2 ...# 8 9X?= ... FCAJO 2,3 10 9X?G ... LINKSET 2,XFSLINK(1) 8 9X#= ... LDN 0 #32 9 9X#G ... DEX 0 CLONG1(2) 9 9X#Q ... LDX 0 JOBNO(2) 9 9X*2 ... STO 0 CLONG2(2) 8 9X*= ... FLONGWAIT #32 8 9XCB SETREP OK 8 9XX2 FON #116 9 9_*W OUTPAR TIMENOW 18 9_TG MONOUT JUNSAVE,4 [OUTPUT JOB UNSAVED TO SJ 7 =2SQ UPPL UPPLUS 1 8 =3#B WAIT COOR3 #116 5 =3S2 WAIT1 9 =4?L SETREP ALREADY 8 =4R= CALL 6 SHLSQ 17 =5=W BRN UPPL [MEANS 1ST UNSAVE OK 20 =5QG HLSAV 2,SET,UNSAVE,HLSQ,WAIT [ELSE GOTO FIRST ERROR BELOW: 4 =6=6 # 11 =6PQ # ERROR ROUTINES 4 =79B # 21 =7P2 GEOERR 1,BIT GONE [HLSQ BLOCK STILL THERE BUT UNSAVE BI 10 =88L XBRK GEOERR 0,BRKINUNS 10 =8N= # NO HLSQ BLOCK 5 =97W NOHLSQ 9 =9MG GEOERR 0,NOHLSQ 16 ==76 # FREE ACTIVITIES IN JOB TO BE UNSAVED 4 ==LQ XA 9 =?6B # TEMPORARY ACTION 8 =?L2 BRN XGERR 8 =#5L LDX 3 FX2 9 =#K= XA1 LDX 3 BPTR(3) 9 =*4W LDX 4 ATYPE(3) 13 =*JG TXL 4 CACT [NOT AN 15 =B46 BCS XA1 [ACTIVITY BLOCK 9 =BHQ TXU 7 JOBNO(3) 15 =C3B BCS XB [NO MORE BLOCKS 7 =CH2 LOCK 3 4 =D2L XA2 8 =DG= FILECOUNT 4 8 =D_W BZE 4 XA3 20 =FFG GEOERR 0,NOCHFILE [TO BE REPLACED BY A CHANGEFILE MACRO 6 =F_6 CLOSE 8 =GDQ BRN XA2 17 =GYB # CPA ONLY SO NO BACKING STORE TO BE FREED 7 =HD2 XA3 MURDER 3 8 =HXL BRN XA 11 =JC= # FREE JOB BLOCK 4 =JWW XB 9 =KBG # TEMPORARY ACTION 8 =KW6 BRN XGERR 8 =L*Q JOBLOCK 7,3 17 =LTB FJOBLOCK 3 [FREE THE JOB BLOCK 12 =M*2 # CLOSE THE SAVING FILE 4 =MSL XC 9 =N#= # TEMPORARY ACTION 8 =NRW BRN XGERR 6 =P?G CLOSE 9 =PR6 # SET REPLY 4 =Q=Q XD 9 =QQB # TEMPORARY ACTION 5 =R=2 XGERR 9 =RPL GEOERR 0,FUNFIT 5 =S9= UP 16 =SNW # NOT OK REPLY WHEN OPENING SAVING FILE 5 =T8G XNOTOK 11 =TN6 #SKIP K6UNSAVE>99-99 11 =W7Q TRACE A1+3(3),FUNFITA 8 =WMB BRN XD 10 =X72 # NO JOB BLOCK 5 =XLL XNOJOB 11 =Y6= #SKIP K6UNSAVE>99-99 11 =YKW TRACE FRH+2(3),FUNFITD 8 =_5G BRN XC 16 =_K6 # NO BLOCK RECORD WHERE CPAT SHOULD BE 5 ?24Q XNOCPAT 9 ?2JB LDX 3 BPTR(2) 11 ?342 #SKIP K6UNSAVE>99-99 11 ?3HL TRACE ATYPE(3),FUNFITE 7 ?43= FREECORE 3 8 ?4GW BRN XB 15 ?52G # NOT A CPAT BLOCK AT HEAD OF CHAIN 5 ?5G6 XNOCPATA 11 ?5_Q #SKIP K6UNSAVE>99-99 11 ?6FB TRACE ATYPE(3),FUNFITE 7 ?6_2 FREECORE 3 8 ?7DL BRN XB 15 ?7Y= # ONLY CPAT BLOCK IN ACTIVITY CHAIN 5 ?8CW XONLYONE 11 ?8XG #SKIP K6UNSAVE>99-99 9 ?9C6 TRACE 6,FUNFITF 8 ?9WQ BRN XA 14 ?=BB # CPA NOT LAST ACTIVITY SAVED 5 ?=W2 XCPNTLST 11 ??*L #SKIP K6UNSAVE>99-99 9 ??T= TRACE 6,FUNFITG 8 ?##W BRN XA 10 #R8W MENDAREA 20,K99UNSAVE 4 #RNG #END 6 ____ ...726035700001