7 22FL #OPT K0CONSET=0 13 22_= #LIS K0CONSET>K0EMS>K0GREATGEO>K0ALLGEO 6 23DW #SEG CONSET 9 23YG 8HCONSET 4 24D6 [ 18 24XQ [ THIS SEGMENT IS ENTERED AT THE END OF EARLY MORNING START 17 25CB [ DUE TO THE CONSOLE ACTIVITY'S LINK HAVING BEEN RESET 17 25X2 [ TO K1CONSET BY SETUP WHEN IT WAS ASLEEP. ITS JOB IS TO 17 26BL [ SEPARATE EMS OP'S LOG FROM NORMAL RUNNING. IN DME THIS 17 26W= [ IS A NEW PAGE, IN OTHER ENVIRONMENTS THREE BLANK LINES 16 27*W [ IN DME IT ALSO SETS UP AND OPENS THE RECALL FILE 4 27TG [ 4 28*6 [ 11 28SQ SEGENTRY K1CONSET,X1CONSET 4 29#B [ 4 29S2 [ 7 2=?L [ PRESET DATA 4 2=R= [ 4 2?=W [ 6 2?QG NAMEOFILE 8 2#=6 +10 9 2#PQ 12HSYSTEM 11 2*9B 12HRECALL FILE 8 2*P2 +1 8 2B8L +1 8 2BN= 4HB1 17 2C7W #DEF PAGESIZE=2 [BLOCKLETS PER PAGE 9 2CMG FIXTRA K90CONSET 14 2D76 SIZEOFILE 20 / (4/PAGESIZE) [IN BLOCKS 4 2DLQ [ 4 2F6B [ 7 2FL2 [ ENTRY POINT 4 2G5L [ 4 2GK= [ 5 2H4W X1CONSET 4 2HJG [ 14 2J46 IF ENV,DME [IF DME THEN 5 2JHQ THEN 4 2K3B [ 11 2KH2 [START NEW PAGE OF OPER LOG 4 2L2L [ 9 2LG= DOWN OPERAPP,2 21 2L_W STOZ AWORK1(2) [SET ^DON'T PAGEWAIT ON NEXT PAGE^ 9 2MFG LDX 3 CONSCNTRL 9 2M_6 ADN 3 COVID+1 17 2NDQ BS 3,COAUTO [SET SCREEN 1 ON AUTO 4 2NYB [ 9 2PD2 [ SET UP RECALL FILE 4 2PXL [ 11 2QC= SETNCORE 10,3,FILE,FABSNB 10 2QWW LDN 4 NAMEOFILE(1) 9 2RBG LDN 5 HDREC(3) 16 2RW6 MOVE 4 10 [SET UP /FABSNB 16 2S*Q CREATEB 3 [SET UP A /CREATE 7 2STB LDN 4 1 16 2T*2 STO 4 CEORG(3) [BLOCKS/BUCKET 10 2TSL LDX 4 SIZEOFILE(1) 15 2W#= STO 4 CEINF3(3) [BLOCKS/REEL 7 2WD7 ...#UNS ANOTALLOC 4 2WJ4 ...#SKI 4 2WM_ ...( 19 2WRW WHATBACK ,SIZEOFILE(1),XFILERR [GET BS BLOCKS IN /FULLB 4 2WWF ...) 7 2W_4 ...#UNS ANOTALLOC 4 2X3M ...( 20 2X6= ... WHATBACK ,SIZEOFILE(1),XFILERR,,VSF [GET BS BLOCKS IN FULLB 4 2X8T ...) 14 2X?G OPEN XFILERR1,CREATE,WRITE,QUERY 20 2XR6 TESTRPN2 OK,XFILERR1 [OPEN FREES /CREATE AND /FULLB 9 2Y=Q LDX 3 CONSCNTRL 16 2YQB BS 3,CONSFILE [MARK FILE SET UP 4 2_=2 [ 12 2_PL [ NOW WRITE AWAY ANY STORED PAGES 4 329= [ 9 32NW SMO CONSCNTRL 19 338G LDX 4 COBLK [X4 = 1ST BUCKET TO BE USED 18 33N6 WHILE TRUE [WHILE PAGES IN CORE DO 11 347Q HUNTW 2,FILE,FRWB 8 34MB AND 2,PZ 5 3572 DO 17 35LL WRITED 4,1 [WRITE PAGE AWAY 11 366= TESTRPN2 OK,(GEOERR) 20 36KW ADN 4 PAGESIZE [UPDATE 'NEXT BUCKET' IN X4 18 375G REPEAT [REPEAT OVER STORED PAGES 9 37K6 SMO CONSCNTRL 20 384Q STO 4 COBLK ['NEXT BUCKET' UPDATED FROM X4 5 38JB RELFABS 16 3942 MFREE FILE,FABSNB [FREE THE /FABSNB 9 39HL ACROSS OPER,1 15 3=3= ELSE [ELSE (NOT DME) 19 3=GW DO [UNTIL NEWLINES WRITTEN OK DO 16 3?2G WHILE BUSY,CPPTR(2) [GET CONSOLE 6 3?G6 DO 9 3?_Q COOR3 #50 7 3#FB REPEAT 10 3#_2 LDX 0 FCANCEL+2 17 3*DL STO 0 FCANCEL+3 [STORE 2 NEWLINES 10 3*Y= STO 0 FCANCEL+4 8 3BCW LDN 0 1 17 3BXG DCA 3,DLA,0,MODE [MODE 1 FOR OUTPUT 8 3CC6 LDN 0 12 16 3CWQ DCA 3,DLA,0,COUNT [12 CHARACTERS 10 3DBB LDN 0 FCANCEL+2 18 3DW2 DCA 3,STO,0,CTSA [BUFFER START ADDRESS 16 3F*L GPERI 3,2 [ISSUE PERI 19 3FT= COOR1 [AND WAIT FOR IT TO FINISH 10 3G#W LDN 3 CPRW1(2) 14 3GSG IF MBAC,3,CONSFAIL,CONSINOP 7 3H#6 THEN 11 3HRQ STOZ AWORK2(2) 11 3J?B STOZ AWORK3(2) 11 3JR2 STOZ AWORK4(2) 11 3K=L ACROSS CONSOLE,1 6 3KQ= FI 20 3L9W REPEAT [REPEAT TILL NEWLINES WRITTEN OK 5 3LPG FI 4 3M96 [ 4 3MNQ [ 7 3N8B [ ERROR CASES 4 3NN2 [ 5 3P7L XFILERR1 18 3PM= FREEBAX [ (FREE B/S IF OPEN FAILS) 9 3Q6W MFREE BSTB,EMPTYB 5 3QLG XFILERR 20 3R66 MFREE FILE,CREATE [ (FREE /CREATE IF ERROR ANYWHERE) 18 3RKQ MONOUT CNORECALL [ (MSG IF ERROR ANYWHERE) 9 3S5B LDX 3 CONSCNTRL 15 3SK2 BS 3,CONSNOFILE [MARK 'NO FILE' 17 3T4L WHILE TRUE [FREE ALL STORED PAGES 10 3TJ= HUNTW 1,FILE,FRWB 7 3W3W AND 1,PZ 5 3WHG DO 7 3X36 FREECORE 1 6 3XGQ REPEAT 8 3Y2B BRN RELFABS 4 3YG2 #END 6 ____ ...256577370002