8 22FL #OPT K0BLOGNAL=0 9 22_= #LIS K0BLOGNAL>K0ALLGEO 16 23DW #SEG BLOGNAL70 [RICHARD GRIMWADE 10 23YG 8HBLOGNAL7 21 24D6 # THIS IS THE BUILT-IN VERSION OF LOGANAL. IT UPDATES THE MONEY AND TIME 21 24XQ # USED BY THE JOB ,ISSUES A SPECIAL LF COMMAND TO LIST THE MONITORING 18 25CB # FILE, AND COPIES THE MONITORING FILE IF THIS WAS REQUESTED 4 25X2 # 10 26BL SEGENTRY K1BLOGNAL,XK1 10 26W= SEGENTRY K2BLOGNAL,XK2 4 27*W # 19 27H4 ...[ SEGENTRY K25BLOGNAL USED BY RESTORE TIME MACRO PRESETRP 4 27N= ...[ 18 27TG TABLE +GMONEY [BIT PATTERN FOR MONEY BUDGET 16 28*6 +JLOGMONEY [MESSAGE FOR MONEY 20 28SQ +GTIMEM [BIT PATTERN FOR TIME BUDGET -TIME(M) 15 29#B +JLOGTIME [MESSAGE FOR TIME 7 29Q3 ...ZCOPY +8 8 2=7N ... +23 14 2=K* ... 24HCOPY :%Z.%Y( 1/B1B0), 8 2?32 ...ZCYGEN +3.0 6 2?DM ...ZLF +14 6 2?W# ... +48 15 2#?_ ... 36HLF :%Z.%Y( 1/B1B0),*LP,ALL,MONFILE 5 2#PQ 12H 8 2#_J ...ZLFGEN +2.2 21 2*9B X1000 +1000 [CONSTANT FOR CONVERTING MILLI- TO SECS 10 2*F8 ... SEGENTRY K25BLOGNAL 9 2*P2 PRAMXMSK +AMXMSKPR 17 2B8L # DATA FOR FABSNB FOR OPENING THE DICTIONARY 7 2BN= XFBSNB +10 9 2C7W 12HMASTER 10 2CMG 12HDICTIONARY 5 2D76 +1 5 2DLQ +1 6 2F6B 4HB1 4 2FL2 # 4 2G5L XK1 20 2GK= MONOUT JLOGHEAD [SEND HEAD OF MESSAGE TO M.F.SYSTEM 7 2H4W CJOBLOCK 3 20 2HJG LDN 5 999 [GET TIME USED BY JOB FROM JOB BLOCK 10 2J46 ADXC 5 HTIMEJ+1(3) 20 2JHQ LDX 4 HTIMEJ(3) [AND CONVERTIT TO SECONDS,ROUNDING UP 9 2K3B DVD 4 X1000(1) 18 2LG= LDX 4 5 [ X4 = SECONDS USED BY JOB 20 2L_W MPY 5 IMULT [CALCULATE CHARGE (TIME*IMULT/IDIV 8 2MFG DVD 5 IDIV 7 2M_6 LDX 5 6 20 2NDQ TXL 5 IMIN [IF TOO LOW, SUBSTITUTE MINIMUM VALUE 7 2NYB BCC X 8 2PD2 LDX 5 IMIN 9 2PXL X LDXC 6 JURGE(3) 8 2QC= BNZ 6 X11 18 2QWW LDN 6 45 [LOAD M AS DEFAULT VALUE 4 2RBG X11 7 2RW6 URGTIME 6 11 2S*Q SETNCORE 10,3,FILE,FABSNB 8 2STB LDN 3 A1(3) 9 2T*2 LDN 2 XFBSNB(1) 8 2TSL MOVE 2 10 16 2W#= OPEN XBRK,GENERAL [OPEN DICTIONARY 18 2WRW BUDGBITX 6 [BIT PATTERN FOR TIME & 17 2X?G TESTREP NOSUCH,NOSUCH [SET UP JLINE BLOCK 16 2XR6 STO 6 AWORK3(2) [TIME BIT PATTERN 14 2Y=Q STO 4 AWORK4(2) [AMOUNT 16 2YQB LDX 6 TABLE(1) [MONEY PATTERN 14 2_=2 LDX 4 5 [AMOUNT 10 2_PL MHUNT 3,FILE,FABSNB 9 329= NAME 3,FILE,ADICT 7 32NW CJOBLOCK 2 8 338G ADN 2 JUSER 15 33N6 ADN 3 A1 [SET UP ADICT 7 347Q MOVE 2 3 7 34MB READDICT 15 3572 X1 BUDGUSE 6 [FIND BUDGET 15 35LL TESTREPN NOTYPE,X2 [J. IF EXISTS 17 366= BUDGINCX 6,4 [GIVE HIM BUDGET TYPE 13 36KW NGX 6 4 [LEFT 8 375G BRN X33 12 37K6 X2 MHUNTW 3,JBUDGET,JBUDGUSER 14 384Q ADS 4 JCONSUMED(3) [UPDATE 10 38JB LDX 6 JALLOWED(3) 13 3942 SBX 6 JCONSUMED(3) [LEFT 18 39HL BUDGWRITE [PUT BACK INTO DICTIONARY 11 3=3= MFREE JBUDGET,JBUDGUSER 9 3=GW X33 LDX 0 AWORK3(2) 18 3?2G BZE 0 X3 [J. IF SECOND TIME ROUND 21 3?G6 STO 4 AWORK1(2) [USED & LEFT FOR MONEY STORED HERE 9 3?_Q STO 6 AWORK2(2) 7 3#FB LDX 6 0 15 3#_2 STOZ AWORK3(2) [SET SWITCH 9 3*DL LDX 4 AWORK4(2) 16 3*Y= BRN X1 [BACK TO DO TIME 7 3BCW X3 CLOSBINC 7 3BXG LDN 7 8 13 3CC6 OUTPARAM 7,JCHARS,JBUDGET,JLINE 7 3CWQ LDN 7 2 10 3DBB MFREE JBUDGET,JLINE 8 3DW2 BRN Y2 18 3F*L Y1 LDX 4 AWORK1(2) [RECOVER STORED VALUES 9 3FT= LDX 6 AWORK2(2) 8 3G#W Y2 OUTNUM 4,7,1 8 3GSG OUTNUM 6,7,1 7 3H#6 ADX 1 7 18 3HRQ MONOUTX TABLE+1(1) [OUTPUT USED,LEFT LINE 7 3J?B SBN 7 2 8 3JR2 BPZ 7 Y1 4 3K=L XK2 14 3K#8 ...[ FIRST GET FGN OF MONITORING FILE 7 3K*Q ... NGN 6 1 20 3KC# ... SFCB 6,3 [SETS X3 POINTING TO FCB OF MON FILE 4 3KDW ...[ 15 3KGD ...[ CONVERT FGN TO CHARS AND STORE IN AWORK2 9 3KJ2 ... LDN 1 AWORK1(2) 10 3KKJ ... XCBINDEX 4,1,FGEN(3) 8 3KM6 ... LDX 1 FX1 4 3KNN ...[ 11 3KQ= Y MHUNTW 3,ADATA,AREPORT 16 3L9W LDX 7 A1(3) [REMEMBER REPORT MASK 9 3LPG LDX 5 A1+1(3) 8 3M96 MASKSTOZ ,2 8 3M?* ... FSHCODE AORB 4 3M*J ...( 10 3MCR ... LDX 0 CONTEXT(2) 7 3MG2 ... ANDN 0 8 20 3MJ9 ... BZE 0 SNOTMOP [ONLY SET MULTIPLEXOR MASK FOR MOP 4 3MLD ...) 10 3MP2 ... LDX 4 PRAMXMSK(1) 9 3MRJ ... STO 4 AMXMSK(2) 6 3MW6 ...#UNS CMXMSK 4 3MYN ...( 10 3M_H ... SEGENTRY K70BLOGNAL 20 3N2B ... BRN XK71 [MENDED TO NULL IF REPORTNEST ON 10 3N3= ... MHUNTW 1,CPB,CALAS 9 3N5S ... STO 4 CMXMSK(1) 4 3N6M ...XK71 10 3N7G ... SEGENTRY K71BLOGNAL 8 3N8B ... LDX 1 FX1 4 3N=Y ...) 8 3N*J ... FSHCODE AORB 5 3NGQ ...SNOTMOP 18 3NN2 BZE 7 Z [DON'T LF IF NONE SPECIFIED 13 3P7L SETUPCORE ZLF(1),2,ADATA,CREADL 9 3PM= LDX 4 ZLF+1(1) 8 3Q6W STO 4 A1(2) 8 3QLG ADN 1 ZLF+2 9 3R66 ADN 2 CPDATA 8 3R*Y ... MOVE 1 12 8 3RKQ ... SMO FX2 16 3RTJ ... STO 2 AWORK4 [STORE AD OF CPDATA 19 3S5B LDN 0 9 [CONVERT MONFILE MASK TO OCTAL 20 3SK2 LDN 6 #23 [BEFORE STORING IT AS ^MONFILE^ PARAM 8 3T4L ...OCT DCH 6 9(2) 7 3TJ= BCHX 2 / 7 3W3W STOZ 6 7 3WHG SLL 67 3 8 3X36 BCT 0 OCT 20 3XGQ # THIS SEEMS QUITE SILLY - BUT IT DOES 20 3Y2B # HAVE A REASON. IF THE WORD IS HANDED 20 3YG2 # OVER AS FOUR CHARACTERS,ONE OF THEM 20 3Y_L # MAY BE SPACE OR COMMA, AND WOULD NOT 16 3_F= # FUNCTION CORRECTLY. 9 3_FH ...[ SET FGN IN COMMAND 8 3_FS ... LDX 2 FX2 14 3_G5 ... LDN 6 AWORK2(2) [ AD OF FGN 8 3_GB ... SMO FX1 9 3_GM ... LDX 7 ZLFGEN 17 3_GY ... ADX 7 AWORK4(2) [X7=AD OF DESTINATION 7 3_H9 ... MVCH 6 4 4 3_HG ...[ 6 3_HT ...#UNS FTS1 4 3_LD ...( 20 3_P3 ... FJOCA 3,FX2 [AVOID FROZEN CHECK IN COPY....... 20 3_RL ... SPRIVON JSSTART,3 [...BY MAKING JOB SYS STARTED 4 3_W9 ...) 16 3_YW ISSUCOM XERRLF [ISSUE LF COMMAND 5 42DG XERRLF 8 42Y6 Z CLOSE -1 18 43CQ BNZ 5 Z01 [GO TO COPY FILE IF NECESSARY 4 43XB XERR 10 44C2 Z0 MFREE ADATA,AREPORT 5 44WL UP 19 45B= Z01 STO 5 7 [KEEP NO. OF WORDS IN FILENAME 9 45TW ADX 5 ZCOPY(1) 11 46*G SETUPCORE 5,2,ADATA,CREADL 11 46T6 MHUNTW 3,ADATA,AREPORT 7 47#Q SLL 7 2 20 47SB ADX 7 ZCOPY+1(1) [CALCULATE NO. OF CHARS IN COMMAND 8 48#2 STO 7 A1(2) 10 48RL LDN 4 ZCOPY+2(1) 9 49?= LDN 5 CPDATA(2) 8 49DD ... SMO FX2 16 49KL ... STO 5 AWORK4 [STORE AD OF CPDATA 10 49QW SMO ZCOPY+1(1) 7 4==G MVCH 4 0 19 4=Q6 SBX 7 ZCOPY+1(1) [NO OF CHARS STILL TO BE MOVED 21 4?9Q LDN 4 A1+2(3) [POINT X4 TO FILNAME IN REPORT BLOCK 7 4?PB SMO 7 7 4#92 MVCH 4 0 4 4#=J ...[ 9 4##6 ...[ SET FGN IN COMMAND 8 4#*N ... LDX 2 FX2 14 4#C= ... LDN 6 AWORK2(2) [AD OF FGN 8 4#DS ... SMO FX1 9 4#GB ... LDX 7 ZCYGEN 14 4#HY ... ADX 7 AWORK4(2) [DESTINATION 7 4#KG ... MVCH 6 4 4 4#M4 ...[ 8 4#NL ISSUCOM XERR 8 4*8= BRN Z0 9 4*MW XBRK GEOERR 1,BRKBLOG 5 4B7G NOSUCH 9 4BM6 GEOERR 1,NOSUCH 5 4C6Q XNOTOK 10 4CLB GEOERR 1,WRONGREP 10 4D62 MENDAREA 20,K99BLOGNAL 4 4DKL #END 8 ____ ...37467470000300000000