15 22FL SEG BSUJSTAT,83,PETER CAMPBELL,BSUNJ 4 22J9 ...[ 4 22LS ...[ 16 22PC ...[ (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982 4 22S2 ...[ 4 22WK ...[ 12 22_= SEGENTRY K1BSUJSTAT,X1BSUJSTAT 12 23DW SEGENTRY K2BSUJSTAT,X2BSUJSTAT 12 23YG SEGENTRY K3BSUJSTAT,X3BSUJSTAT 12 24D6 SEGENTRY K4BSUJSTAT,X4BSUJSTAT 12 24XQ SEGENTRY K5BSUJSTAT,X5BSUJSTAT 12 25CB SEGENTRY K7BSUJSTAT,X7BSUJSTAT 12 25X2 SEGENTRY K8BSUJSTAT,X8BSUJSTAT 12 26BL SEGENTRY K9BSUJSTAT,X9BSUJSTAT 2 26W= 10 273D ... SEGENTRY K90BSUJSTAT 17 278L ... +150 [ VALUE OF RETAINRV 18 27*W TOTIM +864000/K9*100 [NO OF CLEANCTS IN 24 HRS 8 27TG XNAME +10 9 28*6 12HDUMPER 10 28SQ 12HUNJAMMER 8 29#B +1 15 29S2 #20000001 [NEXT GEN+1 9 2=?L 4HB1B0 18 2=R= ...XLEN +58 [LENGTH OF MAIN RECORD 19 2?=W NFRES +4 [LENTH OF RESIDENCE RECORDS 17 2?QG [IN F/FRESNUM BLOCK 13 2#=6 [ ENTRY TO OPEN THE STATISTICS FILE 6 2#PQ X1BSUJSTAT 11 2*9B SETNCORE 10,3,FILE,FABSNB 9 2*P2 LDN 5 XNAME(1) 8 2B8L LDN 6 A1(3) 8 2BN= MOVE 5 10 14 2C7W OPEN XOPERR,CREATE,APPEND,QUERY 10 2CMG TESTRPN2 OK,XOPERR 17 2D76 [ RENAME AS FAPB FOR MAIN STAT RECORD AND INITIALISE 10 2DLQ MHUNTW 3,FILE,FABSNB 10 2F6B NAME 3,FILE,FAPB 9 2FL2 LDX 4 XLEN(1) 10 2G5L ALTLEN 3,4,FILE,FAPB 10 2GK= MHUNTW 3,FILE,FAPB 9 2H4W XZER LDX 2 XLEN(1) 16 2HJG STO 2 A1(3) [SET UP HEADER 9 2J46 STOZ A1+1(3) 9 2JHQ LDN 0 A1+1(3) 9 2K3B LDN 1 A1+2(3) 7 2KH2 SBN 2 2 16 2L2L MOVE 0 0(2) [ZEROISE BLOCK 8 2LG= LDX 1 EDATE 9 2L_W STO 1 A1+2(3) 9 2MFG LDX 1 CLEANCT 18 2M_6 STO 1 A1+3(3) [TIME AT START OF PASS 9 2NDQ LDX 0 GMTNOW 9 2NYB STO 0 A1+6(3) 17 2PD2 LDN 0 1 [SET FLAG FOR BSUNJAM 8 2PXL SMO FX2 19 2QC= STO 0 ACOMMUNE1 [THAT STATS FILE OPENED OK 18 2QWW UP [RETURN TO MAIN UNJAMMER 6 2RBG X2BSUJSTAT 18 2RW6 LDN 6 0 [SET'DO NOT CLOSE' MARKER 10 2S*Q START MHUNTW 3,FILE,FAPB 9 2STB LDX 0 CLEANCT 17 2T*2 STO 0 A1+4(3) [TIME AT END OF PASS 9 2TSL LDX 0 FORMULA 20 2W#= STO 0 A1+5(3) [VALUE OF FORMULA ON THIS PASS 8 2WRW LDX 0 BSJAM 9 2X?G STO 0 A1+48(3) 10 2XR6 LDX 0 BACKTHRESH 9 2Y=Q STO 0 A1+49(3) 9 2YQB LDX 0 IDEALJAM 9 2_=2 STO 0 A1+50(3) 9 2_PL LDX 0 GMTNOW 5 2_RJP...#SKI IFS 4 2_TGP...( 9 2_XDP... SMO BFCBRING 11 2__BP... SBX 0 FLASTJAM-FCBRING 4 323#P...) 6 325=P...#SKI IFS<1$1 4 3278P...( 15 329= SMO BFILE [MASTER'S FCB 19 32NW SBX 0 FLASTJAM [CONTAINS TIME OF LAST JAM 4 32YNP...) 19 338G STO 0 A1+51(3) [STORE TIME SINCE LAST JAM 8 33N6 SMO FX2 9 347Q LDX 0 AWORK4 9 34MB BPZ 0 NOTMDNT 16 3572 [ UNJAM PASSED THROUGH MIDNIGHT-CORRECT COUNT 19 35LL ADX 0 TOTIM(1) [ADD IN CLEANCTS IN 24 HRS 5 366= NOTMDNT 19 36KW STO 0 A1+34(3) [NO OF CLEANCTS SPENT WAITING 17 375G LDN 0 27? [ 3,4 FOR GEORGE 3,4 9 37K6 STO 0 A1+52(3) 17 384Q LDX 0 GVERSION [ VERSION OF GEORGE 9 38JB DSA 0 A1+53(3) 7 38LK ... LDN 0 1 20 38NS ... STO 0 A1+54(3) [ SET NORMAL BS ALGORITHM MARKER 18 38R3 ... JBC NOTLEEDS,,BABSA [JUM IF NORMAL ALGORITHM 7 38T= ... LDN 0 2 18 38XF ... STO 0 A1+54(3) [SET LEEDS B S A MARKER 5 38XR ...NOTLEEDS 10 38Y5 ... SEGENTRY K10BSUJSTAT 8 38YC ... BRN NOFF 21 38YP ... LDN 4 BSUJFORM1 [STORE PARAMETERS FOR FILE FORMULA 9 38_3 ... LDN 5 A1+38(3) 7 38_* ... MOVE 4 4 10 38_M ... SEGENTRY K11BSUJSTAT 4 38__ ...NOFF 18 392D ... LDX 4 K90BSUJSTAT(1) [ VALUE OF RETAINRV 18 3938 ... STO 4 A1+55(3) [ FOR STATISTICS 6 3942 APPEND 10 39HL MHUNTW 3,FILE,FAPB 8 3=3= BZE 6 XZER 8 3=GW [ CLOSE THE FILE 7 3?2G FREECORE 3 6 3?G6 CLOSE 5 3?_Q UP 6 3#FB X5BSUJSTAT 16 3#_2 LDN 6 1 [SET'CLOSE'MARKER 8 3*DL BRN START 6 3*Y= X3BSUJSTAT 17 3BCW [ DUMPING,ELSE X6=1 10 3BXG MHUNTW 3,FILE,INCUNJ 18 3CC6 STO 6 A1+2(3) [DUMP,OR NOT DUMP,MARKER 8 3CFP ... LDN 6 490 21 3CJ# ... BXGE 6 A1(3),SHORTINC [TRUNCATE RECORD IF > 490 INCS TO BE 15 3CLX ...# REDUMPED - UNLIKELY BUT CODE ALLOWS FOR IT 8 3CPG ... STO 6 A1(3) 5 3CS5 ...SHORTINC 8 3CWQ LDX 6 A1(3) 11 3DBB SETUPCORE 6,3,FILE,FAPB 10 3DW2 MHUNTW 2,FILE,INCUNJ 8 3F*L ADN 2 A1 8 3FT= ADN 3 A1 7 3G#W LDX 1 6 8 3GSG MOVE 2 0(1) 7 3H#6 LDN 6 2 8 3HRQ STO 6 1(3) 6 3J?B APPEND 9 3JR2 MFREEW FILE,FAPB 5 3K=L UP 6 3KQ= X4BSUJSTAT 10 3L9W MHUNTW 1,FILE,INCUNJ 10 3LPG LDX 4 IRESNUM(1) 19 3M96 LDN 6 15 [15 WORDS PER BSTIST RECORD 20 3MNQ MPY 4 6 [X4 HOLDS NUMBER OF BSLIST BLOCKS 7 3N8B ADN 5 2 11 3NN2 SETUPCORE 5,3,FILE,FAPB 8 3P7L STO 5 A1(3) 7 3PM= LDN 6 1 16 3Q6W STO 6 A1+1(3) [TYPE 1 RECORD 8 3QLG ADN 3 A1+2 20 3R66 LDX 5 3 [KEEP ADDR OF 1ST BSLIST RECORD 8 3RKQ LDN 1 BMISC 8 3S5B LDX 6 BSAB 9 3SK2 XMISC LDX 1 FPTR(1) 17 3T4L BXE 1 CXMI,XOUT [J IF END OF CHAIN 18 3TJ= BXU 6 ATYPE(1),XMISC [J IF NOT BSLIST BLOCK 9 3W3W LDX 2 BSLETH(1) 16 3WHG BNG 2 XMISC [J IF SWAPFILE 16 3X36 LDN 2 BACK1(1) [MOVE 8 WORD AREA 17 3XGQ MOVE 2 3 [ STARTING AT BACK1 7 3Y2B ADN 3 3 18 3YG2 LDN 2 BSPOINT(1) [AVOID ARINGNO IF PRESENT 7 3Y_L MOVE 2 7 7 3_F= ADN 3 7 20 3_YW STOZ 0(3) [COUNT OF NUMBER OF TEMP FILES 19 42DG STOZ 1(3) [COUNT OF SIZE OF TEMP FILES 7 42Y6 ADN 3 2 21 43CQ # NOW MOVE NUMBER AND SIZE THROWN OFF PLUS STATE OF RES FROM FRESNUM 11 43XB MHUNTW 2,FILE,FRESNUM 4 44C2 NOK 17 44WL LDX 4 FRNUM(2) [PICK UP RES NUMBER 17 45B= BXE 4 BACK1(1),TOK [IS IT THIS RESIDENCE 8 45TW SMO FX1 19 46*G ADX 2 NFRES [NO -STEP ON TO NEXT RECORD 8 46T6 BRN NOK 4 47#Q TOK 19 47SB LDN 2 FRSTATE(2) [YES -MOVE CONTENTS OF RECORD 15 48#2 MOVE 2 3 [TO F/FAPB 7 48RL ADN 3 3 8 49?= BRN XMISC 8 49QW XCPAT #7600 6 4=2NP...#SKI IFS<1$1 9 4==G XFCB #44010000 4 4=Q6 XOUT 7 4?9Q LDN 6 1 8 4?PB LDX 2 FX2 19 4#92 NACT LDX 2 ACTRING(2) [PICK UP NEXT ACTIVITY BLOCK 9 4#NL SBN 2 ACTRING 16 4*8= BXE 2 FX2,NMORE [END OF CHAIN? 16 4*MW LDX 4 ATYPE(2) [CHECK IF A CPAT 8 4B7G SRL 4 12 8 4BM6 SMO FX1 14 4C6Q BXU 4 XCPAT,NACT [J IF NOT 5 4C8FP...#SKI IFS 4 4C=8P...( 8 4C?XP... BASEWORK 2,1 5 4C*LP...NWFIL 10 4CC*P... NEXTWORK 2,1,NACT 4 4CF4P...) 6 4CGRP...#SKI IFS<1$1 4 4CJGP...( 10 4CLB LDX 1 BWORKRING(2) 19 4D62 LDN 0 BWORKRING(2) [START ADDR OF WORKFILE RING 18 4DKL BXE 1 0,NACT [CPAT BUT NO WORKFILES 8 4F5= NWFIL SMO FX1 8 4FJW LDX 4 XFCB 10 4G4G BXU 4 ATYPE(1),NFCB 4 4G##P...) 17 4GJ6 LDX 3 5 [BACK TO A1+2 OF FAPB 9 4H3Q LDX 4 BSPRE(1) 9 4HHB NRES BXE 4 0(3),TRES 17 4J32 ADN 3 15 [SKIP TO NEXT BSLIST 15 4JGL BRN NRES [AND REPEAT 8 4K2= TRES ADN 3 10 19 4KFW ADS 6 0(3) [NUMBER OF WFILES ON THIS RES 10 4K_G LDX 4 ALOGLEN(1) 15 4LF6 ADN 4 A1 [SIZE OF FCB 18 4LYQ SBN 4 FBLKS [LEAVES NUMBER OF BLOCKS 16 4MDB ADS 4 1(3) [ACCUMULATE SIZE 6 4MKJP...#SKI IFS<1$1 4 4MQQP...( 19 4MY2 NFCB LDX 1 0(1) [SKIP TO NEXT BLOCK IN WFRING 17 4NCL BXE 1 0,NACT [J IF END OF CHAIN 4 4NMDP...) 8 4NX= BRN NWFIL 5 4PBW NMORE 10 4PGR ... MHUNTW 3,FILE,FAPB 5 4PLN ...XAPPEND 8 4PQK ... LDN 6 482 20 4PWG ... BXL 6 A1(3),XLONG [ JUMP IF MORE THAN 32 RESIDENCES 6 4Q2C ... APPEND 9 4Q6# ... MFREEW FILE,FAPB 5 4Q=9 ... UP 5 4QB6 ...XLONG 20 4QG3 ... LDX 5 A1(3) [PRESERVE ORIGINAL RECORD HEADER 12 4QKY ... STO 6 A1(3) [ 21 4QPT ... APPEND [ APPEND RECORD FOR FIRST 32 RESIDENC 10 4QTQ ... MHUNTW 3,FILE,FAPB 21 4Q_M ... LDN 0 3 [ RECORD TYPE FOR CONTINUATION RECORD 9 4R5J ... STO 0 A1+1(3) 21 4R9F ... SBN 5 480 [ REDUCE RECORD HEADER BY 32 RESIDENC 8 4R*B ... STO 5 A1(3) 9 4RF? ... LDN 1 A1+2(3) 9 4RK8 ... LDN 0 A1+482(3) 21 4RP5 ...# THE NEXT CODE SHOULD SIMULATE ' MOVE 0 N ' - WHERE N MAY BE >512 20 4RT2 ...# THIS REMOVES THE FIRST 32 RESIDENCES , SINCE A RECORD HAS BEEN 9 4RYX ...# APPENDED FOR THEM 7 4S4S ... LDX 2 5 8 4S8P ... MOVE 0 0(2) 12 4S#L ...# MIVE FORST X5 MOD 512 WORDS 16 4SDH ... LDEX 2 5 [ X2:= X5 MOD 512 7 4SJD ... SBX 5 2 9 4SN* ... BZE 5 XAPPEND 15 4SS= ...# JUMP TO APPEND THE LAST RESIDENCES RECORD 21 4SY7 ...# THE NEXT CODE IS ONLY OBEYED IF THERS ARE MORE THAN 64 RESIDENCES 18 4T44 ... ADX 0 2 [ UPDATE POINTER FOR MOVE 7 4T7_ ... ADX 1 2 16 4T?W ...XMORE MOVE 0 0 [ MOVE 512 WORDS 8 4TCR ... SBN 5 512 9 4THN ... BZE 5 XAPPEND 9 4TMK ... BNG 5 XAPPEND 18 4TRG ...# NEXT CODE IS ONLY OBEYED IF MORE THAN 96 RESIDENCES 8 4TXC ... ADN 0 512 8 4W3# ... ADN 1 512 8 4W79 ... BRN XMORE 6 4W?6 X7BSUJSTAT 21 4WQQ [X6 CONTAINS CATEGORY,NO.OF BLOCKS 15 4X=B [IS IN AWORK1 9 4XQ2 LDX 5 AWORK1(2) 7 4Y9L LDN 4 1 10 4YP= MHUNTW 3,FILE,FAPB 7 4_8W ADX 3 6 8 4_NG ADS 4 A1(3) 9 5286 ADS 5 A1+1(3) 5 52MQ UP 6 537B X8BSUJSTAT 18 53M2 [ WRITE A RECORD ABOUT THE DIRECTORY THAT CANT BE OPENED 16 546L LDX 4 EXEC3(2) [PRESERVE REPLY 11 54L= SETNCORE 13,3,FILE,FAPB 8 555W LDN 1 13 8 55KG STO 1 A1(3) 8 5656 ADN 3 A1+1 10 56JQ MHUNTW 2,FILE,FABSNB 8 574B ADX 2 A1(2) 20 57J2 SBN 2 12-A1 [X2 POINTS TO SUP.OF DIRECTORY 16 583L MOVE 2 12 [LAST TWO NAMES 7 58H= ADX 3 1 15 592W STO 4 0(3) [REPLY WORD 8 59GG APPEND -1 9 5=26 MFREEW FILE,FAPB 5 5=FQ UP 6 5=_B X9BSUJSTAT 18 5?F2 # UPDATES NUMBER AND SIZE OF FILES THROWN OFF 11 5?YL MHUNTW 3,FILE,FRESNUM 18 5#D= NERES LDX 0 FRNUM(3) [CHECK TO SEE IF THIS RES 14 5#XW BXE 0 AWORK2(2),THRES [J IF OK 19 5*CG ADX 3 NFRES(1) [LOOK AT NEXT RECORD IF NOT 8 5*X6 BRN NERES 5 5BBQ THRES 7 5BWB LDN 0 1 18 5CB2 ADS 0 FRNTOFF(3) [UPDATE NUMBER THROWN OFF 10 5CTL MHUNTW 1,FILE,ENT 9 5D*= LDX 0 ECOPS(1) 8 5DSW SRL 0 15 17 5F#G ADS 0 FRSTOFF(3) [AND SIZE THROWN OFF 5 5FS6 UP 5 5G?Q XOPERR 20 5GRB TRACE ACOMMUNE9(2),NOBSTATS [ERROR IN OPENING STATS FILE 17 5H?2 STOZ ACOMMUNE1(2) [SET FLAG FOR BSUNJAM 19 5HQL UP [SO GIVE UP COLLECTING STATS 11 5J== MENDAREA 20,K99BSUJSTAT 4 5JPW #END 8 ____ ...53404303000200000000