10 22FL #OPT K0LISTOPEN=0 10 22_= #LIS K0LISTOPEN 14 23DW #SEG LISTOPEN [ COMM 7 23YG 8HLISTOPEN 15 248# ...[ (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1983 12 24D6 SEGENTRY K1LISTOPEN,Z1LISTOPEN 16 24J3 ... FSHENTRY K2LISTOPEN,,Z2LISTOPEN,Z2LISTOPEN 16 24MY ... FSHENTRY K3LISTOPEN,,Z3LISTOPEN,Z3LISTOPEN 16 24RT ... FSHENTRY K4LISTOPEN,,Z4LISTOPEN,Z4LISTOPEN 16 24TR ... FSHENTRY K5LISTOPEN,Z5LISTOPEN,,Z5LISTOPEN 12 24W= ... SEGENTRY K6LISTOPEN,Z6LISTOPEN 12 24WP ... SEGENTRY K7LISTOPEN,Z7LISTOPEN 12 24X8 ... SEGENTRY K8LISTOPEN,Z8LISTOPEN 4 24X# ...[ 16 24XD ...[ ENTRY POINTS K50,K51 USED BY THE LFSTARTJL MACRO 4 24XJ ...[ 16 24XQ [ CARE MUST BE TAKEN WITH THE FOLLOWING INTERLOCKS: 20 25CB [ 1. WHEN THE MAINFILE IS OPENED,IT IS REQUIRED TO GET THE TIME AND 21 25X2 [ DATE LAST ACCESSED.THIS INFORMATION CAN BE OBTAINED FROM THE FILE/ENT 21 26BL [ AND WILL BE ACCURATE UNLESS THE DIRECTORY IS ABOUT TO BE UPDATED BY 21 26W= [ AN AUTOCLOSE.IN THIS CASE A BIT WILL BE SET IN THE FCB,AND THE TIME 21 27*W [ LAST ACCESSED IS TAKEN TO BE THE CURRENT TIME.TO MAINTAIN AN INTERLOCK 19 27TG [ IT IS NECESSARY TO KEEP THE DIRECTORY OPEN WHILE THIS IS DONE 4 28*6 [ 21 28SQ [ 2. IF THE OPEN FAILS BECAUSE THE FILE IS OFFLINE,A RETRIEVE IS ISSUED. 20 29#B [ HOWEVER TO ENSURE THAT ITS RETRIEVAL IS NOT MISSED,A KEY BLOCK IS 21 29S2 [ SET UP AND CHAINED IN THE LFCHAIN,TOGETHER WITH A COPY OF THE FABSNB. 17 2=?L [ THIS OVERHEAD WILL ONLY BE ENCOUNTERED IF A MULTIFILE 20 2=R= [ ELEMENT IS OFFLINE ( REMEMBER WE DONT CHECK FOR OFFLINE MULTIFILES 18 2?=W [ IN LISTFREE ) OR IF A FROZEN FILE HAS BEEN THROWN OFFLINE 4 2?QG [ 4 2#=6 [ 21 2#PQ [*********************************************************************** 4 2*9B [ 7 2*P2 [ PRESET DATA 4 2B8L [ 21 2BN= [*********************************************************************** 4 2C7W [ 7 2CMG [ BITS IN CPAT 4 2D76 [ 14 2DLQ BITDEFS JOBEVENTS,0,WBBREAKIN,,WBNOTICED 11 2F6B BITDEFS EXT+9,22,WBSERVICE 4 2FL2 [ 11 2G5L PLISTING 12H#LISTING OF 4 2GK= [ 5 2H4W TABFILE 14 2HJG #40000012 [ GRAPHIC 15 2J46 0 [ AMORPHOUS 14 2JHQ #40000002 [ NORMAL 14 2K3B #40000022 [ ALLCHAR 18 2KH2 #00100000 [ PAPER TAPE PUNCH - MK6 4 2L2L [ 12 2LG= [ MAIN FILE TYPE BITS FOR GOUT/INFO 5 2L_W TABMTYPE 9 2MFG BSXD 4,BLFBASIC 7 2M_6 LDN 4 0 11 2NDQ MBSXD 4,BLFNORM,BLFBASIC 11 2NYB MBSXD 4,BLFALLC,BLFBASIC 9 2PD2 BSXD 4,BLFTPMK6 4 2PXL [ 12 2QC= [ SETUP FILE TYPE BITS FOR GOUT/INFO 5 2QWW TABSTYPE 9 2RBG BSXD 4,BLFSETBAS 7 2RW6 LDN 4 0 12 2S*Q MBSXD 4,BLFSETNORM,BLFSETBAS 12 2STB MBSXD 4,BLFSETALLC,BLFSETBAS 7 2T*2 LDN 4 0 4 2TSL [ 21 2W#= [*********************************************************************** 4 2WRW [ 6 2X?G SFILETYPE 4 2XR6 [ 21 2Y=Q [*********************************************************************** 4 2YQB [ 16 2_=2 [ CONVERT FILE TYPE IN FILE/ENT TO TYPE IN GOUT/INFO 4 2_PL [ 16 329= [ X6 = TABMTYPE OR TABSTYPE IE. MAIN OR SETUP FILES 4 32NW [ 10 338G [ ON EXIT X1 -> GOUT/INFO 4 33N6 [ 9 347Q MHUNT 1,FILE,ENT 8 34MB LDX 4 ETM(1) 7 3572 LDX 1 FX1 17 35LL WHILE 4,U,TABFILE(1) [ FILE TYPE NOT FOUND 5 366= DO 7 36KW ADN 1 1 6 375G REPEAT 7 37K6 SMO 6 16 384Q OBEY 0(1) [ TYPE BIT(S) IN X4 9 38JB MHUNT 1,GOUT,INFO 15 3942 ORS 4 GFTY(1) [ INTO GOUT/INFO 7 39HL EXIT 7 0 4 3=3= [ 4 3=GW [ 21 3?2G [*********************************************************************** 4 3?G6 [ 5 3?_Q SOPEN 4 3#FB [ 21 3#_2 [*********************************************************************** 4 3*DL [ 7 3*Y= [ OPEN A FILE 4 3BCW [ 11 3BXG [ X1 -> COPY OF A FILE/FABSNB 4 3CC6 [ 6 3CWQ [ ON EXIT 6 3DBB [ X2 = FX2 4 3DW2 [ 12 3F*L [ 1) REPLY OK ( OPEN SUCCESSFUL ) 8 3FT= [ FILE/ENT EXISTS 14 3G#W [ COPY OF FILE/FABSNB CALLED FILE/FABSNB 4 3GSG [ 11 3H#6 [ 2) REPLY MAG ( FILE OFFLINE ) 9 3HRQ [ X3 -> GOUT/GUPDATE 18 3J?B [ GOUT/GUPDATE ( GMODE = 0 ) AND FILE/FABSNB ON LF CHAIN 4 3JR2 [ 14 3K=L [ 3) REPLY NOFILE ( FILE DOES NOT EXIST ) 8 3KQ= [ AWORK2 = GMODE 19 3L9W [ GOUT/INFO ( GMODE = 0 ) AND GOUT/INFO4 ON ACTIVITY CHAIN 4 3LPG [ 7 3M96 SBX 7 FX1 7 3MNQ SMO FX2 8 3N8B STO 7 AWORK1 10 3NN2 NAMETOP 1,FILE,FABSNB 4 3P7L [ 14 3PM= [ REENTRY POINT FROM WITHIN THE SUBROUTINE 4 3Q6W [ 5 3QLG SOPENA 4 3R66 [ 4 3RKQ [ 20 3S5B OPEN (GEOERR),READ,LEAVE,NOWAIT,ERASING,DIROPEN,REPLY,QUERY 8 3SK2 IF REP2,OK 5 3T4L THEN 7 3TJ= TOPFCB 1 20 3W3W IF MBAS,1,BFUWB,BFSOLE [ DIRECTORY ENTRY TO BE UPDATED 21 3WHG [ BY AUTOCLOSE AFTER BEING WRITTEN 6 3X36 THEN 10 3XGQ MHUNTW 1,FILE,ENT 20 3Y2B LDX 0 EDATE [ DO THE UPDATE FOR HEADINGS 11 3YG2 STO 0 EWRITDAY(1) 10 3Y_L LDX 0 CLEANCT 11 3_F= STO 0 EWRITTIME(1) 5 3_YW FI 10 42DG MHUNT 1,FILE,FABSNB 16 42Y6 IF BC,1,BFABWORK [ NOT A WORKFILE 6 43CQ THEN 18 43XB CLOSEDIR [ DIRECTORY AT LEVEL 1 5 44C2 FI 5 44WL ELSE 16 45B= PICKREP2 6 [ SAVE OPEN REPLY 9 45TW VFREE FILE,ENT 10 46*G MHUNT 1,FILE,FABSNB 10 46GN ... IF RPN2,CLOSEAB 6 46MW ... THEN 16 46T6 IF BC,1,BFABWORK [ NOT A WORKFILE 6 47#Q THEN 20 47SB CLOSETOP [ CLOSE DIRECTORY AT LEVEL 0 5 48#2 FI 5 48HS ... FI 17 48RL PUTREP2 6 [ RESET OPEN REPLY 9 49?= IF REP2,CANT 6 49QW THEN 16 4==G BRN SOPENA [ TRY AGAIN 9 4=Q6 [-------------- 14 4?9Q ELSF REP2,MAG [ OFFLINE 6 4?PB THEN 11 4#92 ANOTHER FILE,FABSNB 9 4#NL LDX 2 FX2 11 4*8= MHUNT 1,GOUT,INFO 10 4*MW LDX 0 GMODE(1) 10 4B7G STO 0 AWORK2(2) 11 4BM6 LDX 0 GOUTKEY1(1) 10 4C6Q STO 0 AWORK3(2) 11 4CLB LDX 0 GOUTKEY2(1) 10 4D62 STO 0 AWORK4(2) 10 4DKL STOZ GMODE(1) 11 4F5= NAME 1,GOUT,GKEY 21 4FJW CHAIN 1,BLF+1 [ PUT GOUT/GKEY AND FILE/FABSNB ON 20 4G4G CHAIN 3,BLF+1 [ TO NOTICE FILE COMING ONLINE 6 4GJ6 RV 20 4H3Q LFHUNT 7,AWORK3(2),AWORK4(2) [ FIND GOUT/GKEY ON LF CHAIN 18 4HHB IF EITHER,REP2,ONLINE [ ONLINE BY RV MACRO 19 4J32 OR BS,3,BLFCLOSE [ ONLINE DURING RV MACRO 7 4JGL THEN 18 4K2= LDX 1 FPTR(3) [ -> FILE/FABSNB 9 4KFW FREECORE 1 11 4K_G NAME 3,GOUT,INFO 21 4LF6 CHAIN 3,2 [ RESET GOUT/INFO ON ACTIVITY C 11 4LYQ LDX 0 AWORK2(2) 11 4MDB STO 0 GMODE(3) 17 4MY2 BRN SOPENA [ OPEN AGAIN 10 4NCL [-------------- 10 4NX= ELSF REP2,OK 7 4PBW THEN 12 4PWG NAME 3,GOUT,GUPDATE 9 4QB6 SETREP2 MAG 18 4QTQ ELSF REP2,LOST [ NO VALID INC. NO. 7 4R*B THEN 18 4RT2 LDX 1 FPTR(3) [ -> FILE/FABSNB 12 4S#L NAMETOP 1,GOUT,INFO4 17 4SS= NAME 3,GOUT,INFO [ NB. GMODE = 0 9 4T?W CHAIN 1,2 19 4TRG CHAIN 3,2 [ NOW ON ACTIVITY CHAIN 10 4W?6 SETREP NOFILE 7 4WQQ ELSE 11 4X=B GEOERR 1,LFRVREP 6 4XQ2 FI 17 4Y9L ... ELSF REP2,NOFILE [ FILE NOT EXIST - 17 4YP= [ OR SPARSE MULTIFILE 6 4_8W THEN 12 4_#2 ... MHUNTW 1,GOUT,INFO 11 4_C6 ... LDX 0 GMODE(1) 18 4_G= ... STO 0 AWORK2(2) [AWORK = COPY OF GMODE 21 4_KB ... STOZ GMODE(1) [GMODE = ZERO - DELETE ENTRY FROM SY 11 4_NG MHUNT 1,FILE,FABSNB 11 5286 NAMETOP 1,GOUT,INFO4 19 5295 ... ELSF REP2,CLOSEAB [ FILE NOT EXIST - THEN 6 52=4 ... THEN 12 52?3 ... MHUNT 1,FILE,FABSNB 12 52#2 ... IF BC,1,BFABWORK 8 52#_ ... THEN 11 52*Y ... CLOSEDIR 7 52BX ... FI 9 52CW ... CLOSETHAW 11 52DT ... SETREP NOFILE 12 52FS ... MHUNTW 1,GOUT,INFO 11 52GR ... LDX 0 GMODE(1) 18 52HQ ... STO 0 AWORK2(2) [AWORK = COPY OF GMODE 21 52JP ... STOZ GMODE(1) [GMODE = ZERO - DELETE ENTRY FROM SY 11 52KN ... MHUNT 1,FILE,FABSNB 11 52LM ... NAMETOP 1,GOUT,INFO4 6 52MQ ELSE 10 537B GEOERR 1,LFOPEN 5 53M2 FI 5 546L FI 7 54L= LDX 2 FX2 9 555W LDX 7 AWORK1(2) 7 55KG ADX 7 FX1 7 5656 EXIT 7 0 4 56JQ [ 4 574B [ 21 57J2 [*********************************************************************** 4 583L [ 5 58H= SFINDCPA 4 592W [ 21 59GG [*********************************************************************** 4 5=26 [ 4 5=FQ [ 15 5=_B [ FIND CPA FOR JOB WHICH ISSUED ONLINE REQUEST 18 5?F2 [ NO NEED TO CHECK AUXILARLY STYLE AS ONLY URGENCY & JOB NO. 4 5?YL [ 6 5#D= [ ON EXIT 10 5#XW [ X1 NEGATIVE - NOT FOUND 9 5*CG [ X1 POSITIVE -> CPAT 4 5*X6 [ 9 5BBQ MHUNT 1,GOUT,INFO 9 5BWB JOBLOCK GJOBS(1),1 14 5CB2 IF 1,PZ [ JOB BLOCK 7 5CTL FCAJO 1 13 5D*= AND 1,PZ [ CPAT 9 5DSW LDEX 0 CLNG1(1) 8 5F#G SBN 0 #27 16 5FS6 AND 0,ZE [ WAITNG FOR ONLINE 5 5G?Q THEN 17 5GRB IF BS,1,WBSERVICE [ BREAKIN LOCKED OUT 11 5GYJ ... AND BS,1,WBBREAKIN 11 5H5Q ... AND BC,1,WBNOTICED 6 5H?2 THEN 16 5HQL BC 1,WBSERVICE [ FREE LOCK 18 5KP6 TERMON 1,#27 [ SIMULATE BREAKIN 10 5L8Q NGN 1 #7777 5 5M82 FI 5 5MML ELSE 8 5N7= NGN 1 #7777 5 5NLW FI 7 5P6G EXIT 7 0 4 5PL6 [ 4 5Q5Q [ 9 5QKB [ NO CPA FOUND EXIT PATH 4 5R52 [ 5 5RJL ZNOCPA 10 5RM9 ... MHUNT 1,GOUT,INFO 10 5RPS ... IF BS,1,BLFSETUP 6 5RSC ... THEN 8 5RX2 ... CLOSE 5 5R_K ... FI 5 5S2X ...ZNOCP2 8 5S4= CALL 7 STIDYER 9 5S#4 ... MFREEW GOUT,INFO 9 5SHW ACROSS LISTNEXT,5 9 5T3G [------------------ 4 5TH6 [ 4 5W2Q [ 4 5WGB [ 21 5X22 [*********************************************************************** 4 5XFL [ 6 5X_= STIDYPROP 4 5YDW [ 21 5YYG [*********************************************************************** 4 5_D6 [ 4 5_XQ [ 11 62CB [ TIDY UP BLOCKS USED / SET UP 4 62X2 [ 7 63BL LDX 2 FX2 9 65*6 MHUNT 1,GOUT,INFO 9 65SQ LDX 0 GOUTKEY1(1) 9 66#B STO 0 AWORK1(2) 9 66S2 LDX 0 GOUTKEY2(1) 9 67?L STO 0 AWORK2(2) 7 67R= FREECORE 1 4 68=W [ 4 68QG [ 5 69=6 STIDYER 4 69PQ [ 4 6=9B [ 10 6=P2 VFREE APERI,APROPNOS 9 6?8L VFREE GOUT,INFO2 9 6?N= VFREE GOUT,INFO3 4 6#7W [ 4 6#MG [ 5 6*76 STIDYSET 4 6*LQ [ 4 6B6B [ 8 6BL2 VFREE FILE,ENT 9 6C5L VFREE FILE,FABSNB 7 6CK= EXIT 7 0 8 6CK? ...SETFE LDX 2 FX2 15 6CK# ... PUTREP2 6 [RESET REPLY 8 6CK* ... LFBITSET E,2 8 6CKB ... LFBITCLR F,2 8 6CKC ... STARTACT OUT 7 6CKD ... EXIT 7 0 4 6CKL ...[ 4 6CL2 ...[ 21 6CLB ...[*********************************************************************** 4 6CLQ ...[ 8 6CM6 ...[SETPROP SUBROUTINE 4 6CMG ...[ 21 6CMW ...[*********************************************************************** 4 6D3W ...# 4 6D4W [ 6 6D4Y ...#SKI ANIP 4 6D52 ...( 4 6D54 ...[ 4 6D56 ...[ 21 6D5D ...[*********************************************************************** 4 6D5Q ...[ 5 6D64 ...SLPSFIN 4 6D6B ...[ 21 6D6N ...[*********************************************************************** 4 6D72 ...[ 18 6D7# ...[ SUBROUTINE TO WAKE UP NIP CPAT AFTER CLOSING DOWN LISTFILE 7 6D7L ...[ CALLED ON X7 4 6D7Y ...[ 16 6D8= ... LFBBS S,2,SFIN2 [BETWEEN LISTINGS 20 6D8J ... LFBITCLR Q,2 [CLEAR @BEFORE FIRST LINE@ BIT 19 6D8W ... LFBITCLR R,2 [CLEAR @END OF LISTING@ BIT 19 6D98 ... LFBITSET S,2 [SET @BETWEEN LISTINGS@ BIT 17 6D9G ... LFBBS B,2,SBRK [BREAKIN HAS OCCURRED 11 6D9S ...[ WAKE UP CPAT - MACRO COMPLETED 11 6D=6 ...SWAKE LONGON1 AWAITNIP,JOBNO(2) 15 6D=D ...SFIN3 COOR1X [GO TO SLEEP 18 6D=Q ... GEOERR 0,NOLINK [SHOULD NOT BE FPUT HERE 4 6D?4 ...[ 15 6D?B ...[ BETWEEN LISTINGS - NIPSTART MACRO IN PROGRESS 17 6D?N ...SFIN2 LFBBS B,2,SBRK [BREAKIN HAS OCCURRED 7 6D#2 ... EXIT 7 0 4 6D## ...[ 9 6D#L ...[ BREAKIN HAS OCCURRED 8 6D#Y ...SBRK LFBITCLR B,2 11 6D*= ... LONGON1 ANIPBRK,JOBNO(2) 15 6D*J ... BRN SFIN3 [GO TO SLEEP 4 6D*W ...[ 4 6DB8 ...[ 21 6DBG ...[*********************************************************************** 4 6DBS ...[ 5 6DC6 ...SLPSCPAT 4 6DCD ...[ 21 6DCQ ...[*********************************************************************** 4 6DD4 ...[ 14 6DDB ...[ SUBROUTINE TO FIND THE CPAT OF THE NIP JOB 16 6DDN ...[ MUST CHECK THE BREAKIN BIT BEFORE ACCESSING CPAT 7 6DF2 ...[ CALLED ON X7 4 6DF# ...[ 10 6DFL ... JOBLOCK JOBNO(2),3 19 6DFY ... BNG 3 (GEOERR) [MUST EXIST IF BREAKIN CLEAR 7 6DG= ... FCAJO 3 19 6DGJ ... BNG 3 (GEOERR) [MUST EXIST IF BREAKIN CLEAR 7 6DGW ... EXIT 7 0 4 6DH8 ...[ 4 6DHG ...[ 4 6DHS ...) 4 6DJ6 ...[ 4 6DJG [ 21 6F46 [*********************************************************************** 4 6FHQ [ 6 6G3B Z1LISTOPEN 4 6GH2 [ 21 6H2L [*********************************************************************** 4 6HG= [ 9 6H_W MHUNTW 3,GOUT,INFO 10 6J9N ... BC 3,BLFWLSIZE 15 6JFG IF BS,3,BLFONLINE [ ONLINE REQUEST 5 6J_6 THEN 9 6KDQ CALL 7 SFINDCPA 15 6KYB ... BNG 1 ZNOCP2 [ J IF NO JOB 10 6LD2 MHUNT 1,GOUT,INFO 15 6LXL IF BS,1,BLFSETUP [ SETUP FILE 6 6MC= THEN 11 6MWW MHUNT 1,GOUT,INFO3 9 6NBG CALL 7 SOPEN 11 6NW6 IF REP2,NOFILE 7 6P*Q THEN 17 6PTB LFTHAW [ SETUP FILE 10 6Q*2 CALL 7 STIDYER 11 6QSL ACROSS LISTNEXT,9 11 6R#= [------------------ 10 6RRW ELSF REP2,MAG 7 6S?G THEN 19 6SR6 BS 3,BLFSETNAV [ SETUP FILE NOT ONLINE 11 6T=Q CALL 7 SFINDCPA 16 6TQB IF 1,NG [ NO JOB 7 6W=2 THEN 11 6WPL LDX 1 FPTR(3) 21 6X9= FREECORE 1 [ FREE BLOCKS ON LF CHAIN 10 6XNW FREECORE 3 7 6Y8G FI 10 6YN6 CALL 7 STIDYER 11 6_7Q ACROSS LISTNEXT,5 6 6_MB FI 10 7272 LDN 6 TABSTYPE 10 72LL CALL 7 SFILETYPE 10 736= CALL 7 STIDYSET 5 73KW FI 9 745G CALL 7 SFINDCPA 15 74K6 BNG 1 ZNOCPA [ J IF NO JOB 10 754Q SETPROP XOCANT,XOCANT 5 75JB XOCANT 13 75S8 ... PICKREP2 6 [SAVE REPLY 9 7642 CALL 7 SFINDCPA 9 76HL BNG 1 ZNOCPA 19 773= IF RPN2,OK [ PROPERTIES NOT ON DEVICE 6 77GW THEN 10 77KF ... MHUNT 1,GOUT,INFO 10 77N4 ... IF BS,1,BLFSETUP 7 77QM ... THEN 8 77T= ... CLOSE 6 77XT ... FI 10 782G CALL 7 STIDYPROP 8 78=# ... CALL 7 SETFE 7 78G6 COOR1 7 78_Q [---- 5 79FB FI 18 79_2 BS 1,WBSERVICE [ LOCK OUT BREAKIN IN JOB 8 7=DL LDX 2 FX2 17 7=Y= STOZ ALFTRANS(2) [ ACCOUNTING WORDS 10 7?CW STOZ ALFWORDS(2) 4 7?DK ...# 5 7?XG ELSE 17 7#C6 MHUNT 1,GOUT,INFO2 [ MAIN FILE FABSNB 8 7#WQ CALL 7 SOPEN 10 7*BB IF REP2,NOFILE 6 7*W2 THEN 10 7B*L CALL 7 STIDYER 10 7BT= ACROSS LISTNEXT,9 10 7C#W [------------------ 9 7CSG ELSF REP2,MAG 6 7D#6 THEN 18 7DRQ BS 3,BLFNAV [ MAIN FILE NOT ONLINE 10 7F?B CALL 7 STIDYER 10 7FR2 ACROSS LISTNEXT,5 10 7G=L [------------------ 5 7GQ= FI 10 7H9W MHUNT 1,FILE,FABSNB 10 7HPG NAMETOP 1,GOUT,INFO2 9 7J96 LDN 6 TABMTYPE 9 7JNQ CALL 7 SFILETYPE 6 7JQ3 ...#SKI ANIP 4 7JR# ...( 13 7JSK ...[ NIP LISTFILES IGNORE ANY SETUP FILE 12 7JTW ... SAWCEJ XNOT,XNOT,XNOT,XNIP 10 7JX7 ...XNIP IF BS,1,BLFSETUP 6 7JYD ... THEN 11 7J_P ... BC 1,BLFSETUP 11 7K32 ... MFREE GOUT,INFO3 5 7K4? ... FI 4 7K5J ...XNOT 4 7K6T ...) 15 7K8B IF BS,1,BLFSETUP [ SETUP FILE 6 7KN2 THEN 18 7L7L MHUNT 1,GOUT,INFO3 [ SETUP FILE FABSNB 9 7LM= CALL 7 SOPEN 11 7M6W IF REP2,NOFILE 7 7MLG THEN 16 7N66 CLOSETHAW [ MAIN FILE 11 7NKQ MHUNT 1,GOUT,INFO 21 7P5B IF BC,1,BLFNLASTEL [ NOT OTHER THAN LAST ELEMEN 7 7PK2 THEN 17 7Q4L LFTHAW [ SETUP FILE 7 7QJ= FI 10 7R3W CALL 7 STIDYER 11 7RHG ACROSS LISTNEXT,9 11 7S36 [------------------ 10 7SGQ ELSF REP2,MAG 7 7T2B THEN 19 7TG2 BS 3,BLFSETNAV [ SETUP FILE NOT ONLINE 16 7T_L CLOSE [ MAIN FILE 10 7WF= CALL 7 STIDYER 11 7WYW ACROSS LISTNEXT,5 11 7XDG [------------------ 6 7XY6 FI 10 7YCQ LDN 6 TABSTYPE 10 7YXB CALL 7 SFILETYPE 10 7_C2 CALL 7 STIDYSET 5 7_WL FI 6 7_X7 ...#SKI ANIP 4 7_XN ...( 10 7_Y9 ...[ IF NIP DO NOT DO SETPROP 12 7_YQ ... SAWCEJ XNOT1,XNOT1,,XNIP1 5 7__? ...XNOT1 4 7__S ...) 10 82B= SETPROP XCANT,XCANT 5 82TW XCANT 13 835N ... PICKREP2 6 [SAVE REPLY 9 83*G IF RPN2,OK 6 83T6 THEN 11 84#Q MHUNT 1,GOUT,INFO 16 84SB IF BS,1,BLFSETUP [ SETUP FILE 7 85#2 THEN 8 85RL CLOSE 6 86?= FI 7 86QW CLOSE 10 87=G CALL 7 STIDYPROP 8 87G# ... CALL 7 SETFE 7 87Q6 COOR1 7 889Q [---- 5 88PB FI 6 88PJ ...#SKI ANIP 5 88PQ ...XNIP1 4 88_N ...# 6 892? ...Z2LISTOPEN 11 8992 SETNCORE 15,2,ADATA,CREADL 8 89NL LDN 4 12 8 8=8= STO 4 A1(2) 10 8=MW LDN 4 PLISTING(1) 9 8?7G LDN 5 CPDATA(2) 7 8?M6 MOVE 4 3 10 8#6Q MHUNT 1,GOUT,INFO2 10 8#LB NAMETOP 1,FILE,FABSNB 8 8*62 UNNORM TWO 10 8*KL MHUNT 1,FILE,FABSNB 21 8B5= NAME 1,GOUT,GABSNB [ N.B. CLEARS BOTTOM 12 BITS OF ATYPE 8 8BJW LDX 2 FX2 17 8C4G STOZ ALFTRANS(2) [ ACCOUNTING WORDS 10 8CJ6 STOZ ALFWORDS(2) 10 8D3Q MHUNT 3,GOUT,INFO 17 8DHB IF EITHER,+GFLI(3),NZ [ ^FROM^ SELECTION 18 8F32 OR BS,3,BLFTOCTEXT [ ^TO^ CONTEXT SELCTION 6 8FGL THEN 10 8G2= DOWN LISTRING,2 6 8GFW ELSE 8 8G_G LDN 1 0 11 8HF6 IF BS,3,BLFSETUP 7 8HYQ THEN 9 8JDB LDN 1 1 6 8JY2 FI 21 8KCL STEP 0(1) [ GET FIRST RECORD OF MAIN FILE 16 8KX= IF 3,ZE [ FILE EMPTY 7 8LBW THEN 11 8LWG DOWN LISTRING,3 6 8MB6 FI 5 8MTQ FI 11 8MX_ ...[ LFSTARTJL RESTORE TIME MACRO 17 8N28 ...[ GOES DOWN TO LISTNEXT TO ISSUE THE START OF LF MESSAGE 10 8N3M ... SEGENTRY K50LISTOPEN 8 8N56 ... BRN SNOJL 7 8N6L ...#UNS ASTRTJL 10 8N8T ... DOWN LISTNEXT,12 10 8N?4 ...SNOJL SEGENTRY K51LISTOPEN 5 8N*B FI 5 8NK8 ...XSOURCE 6 8NP5 ...#UNS ANIP 4 8NT2 ...#SKI 10 8NYX ... SAWCEJ XCENTRAL,XIPB 6 8P4S ...#UNS ANIP 11 8P8P ... SAWCEJ XCENTRAL,XIPB,,XNIP2 9 8P#L ACROSS PCTLISTA,1 9 8PS= [------------------ 4 8Q?W XIPB 9 8QRG ACROSS IPBLISTA,1 9 8R?6 [------------------ 5 8RQQ XCENTRAL 9 8S=B MHUNT 1,GOUT,INFO 8 8SQ2 LDCH 0 GOPTY(1) 7 8T9L SBN 0 1 14 8TP= IF 0,ZE [ TAPE PUNCH 5 8W8W THEN 10 8WNG ACROSS LISTHEAD,1 10 8X86 [------------------ 7 8XMQ ELSF TRUE 7 8Y7B SBN 0 1 15 8YM2 AND 0,ZE [ LINE PRINTER 5 8_6L THEN 10 8_L= ACROSS LISTINIT,1 10 925W [------------------ 14 92KG ELSE [ CARD PUNCH 10 9356 ACROSS LISTINTC,1 10 93JQ [------------------ 5 944B FI 6 944S ...#SKI ANIP 4 945= ...( 5 945N ...XNIP2 10 9466 ...[ FINISH OFF NIPSTART MACRO 15 946J ...[ IF BREAKIN SET OR FINISH THEN CANTDO LISTFILE 15 9472 ...[ ELSE PASS GOUT/INFO AND FILE/FABSNB TO NIP JOB 7 947D ...[ AND WAKE IT UP 9 947W ... ANOTHER GOUT,INFO 10 948# ... ANOTHER GOUT,GABSNB 8 948Q ... LDX 2 FX2 16 9498 ... LFBBUS B,2,XNOTB [BREAKIN NOT SET 11 949L ...[ BREAKIN SET - CANTDO LISTFILE 10 94=4 ...XCD MFREEW GOUT,GABSNB 9 94=G ... MFREEW GOUT,INFO 8 94=Y ... LFEND CD 4 94?B ...[ 15 94?S ...[ NOT BREAKIN - CHECK FOR FINISH NOW OR TIMEUP 9 94#= ...XNOTB LDX 0 FINISH 7 94#N ... SLL 0 1 16 94*6 ... BNG 0 XCD [GO TO CANTDO 8 94*J ...[ FINISH NIPSTART 9 94B2 ... CALL 7 SLPSCPAT 10 94BD ... MHUNTW 1,GOUT,GABSNB 10 94BW ... NAME 1,FILE,FABSNB 8 94C# ... CHAIN 1,3 10 94CQ ... MHUNTW 1,GOUT,INFO 8 94D8 ... CHAIN 1,3 21 94DL ... LFBITSET Q,2 [SET @BEFORE FIRST LINE OF LISTING@ 19 94F4 ... LFBITCLR S,2 [CLEAR @BETWEEN LISTINGS@ 8 94FG ... KEEPREP 6,OK 20 94FY ... BRN XNTB3 [GO TO SET REPLY AND WAKE CPAT 4 94GB ...[ 4 94GS ...) 4 94J2 [ 4 953L [ 4 954H ...# 6 955D ...Z3LISTOPEN 3 96DY .._ 4 96YJ ...[ 21 97D8 ...[*********************************************************************** 4 97XS ...[ 6 98CD ...Z6LISTOPEN 4 98X4 ...[ 21 99BN ...[*********************************************************************** 4 99W# ...[ 6 9=*Y ...#SKI ANIP 4 9=TJ ...( 19 9?*8 ...[ ENTRY POINT FROM LISTFIND WHEN THERE ARE NO AVAILABLE ENTRIES 4 9?SS ...[ 17 9##D ... LFBBS B,2,SBRK [BREAKIN HAS OCCURRED 9 9#S4 ... LDX 0 FINISH 7 9*?N ... SLL 0 1 17 9*R# ... BNG 0 XNTB4 [FINISH NOW OR TIMEUP 17 9B=Y ... KEEPREP 6,NOTAV [NO AVAILABLE ENTRIES 9 9BQJ ...XNTB6 CALL 7 SLPSCPAT 9 9C=8 ...XNTB3 STO 6 EXEC3(3) 16 9CPS ... BRN SWAKE [GO TO WAKE CPAT 4 9D9D ...[ 4 9DP4 ...) 4 9F8N ...[ 4 9FN# ...[ 21 9G7Y ...[*********************************************************************** 4 9GMJ ...[ 6 9H78 ...Z7LISTOPEN 4 9HLS ...[ 21 9J6D ...[*********************************************************************** 4 9JL4 ...[ 6 9K5N ...#SKI ANIP 4 9KK# ...( 20 9L4Y ...[ ENTRY POINT FROM LISTNEXT WHEN FINISH HAS OCCURRED AFTER CLOSING 8 9LJJ ...[ DOWN A LISTFILE 4 9M48 ...[ 19 9MHS ... CALL 7 SLPSFIN [GO TO SLEEP UNLESS NIPSTART 9 9N3D ...XNTB4 KEEPREP 6,FAIL 16 9NH4 ... BRN XNTB6 [GO TO WAKE CPAT 4 9P2N ...[ 4 9PG# ...) 4 9P_Y ...[ 4 9QFJ ...[ 21 9Q_8 ...[*********************************************************************** 4 9RDS ...[ 6 9RYD ...Z8LISTOPEN 4 9SD4 ...[ 21 9SXN ...[*********************************************************************** 4 9TC# ...[ 6 9TWY ...#SKI ANIP 4 9WBJ ...( 18 9WW8 ...[ ENTRY POINT FROM LISTNEXT IF NORMAL CLOSEDOWN OF LISTFILE 4 9X*S ...[ 19 9XTD ... CALL 7 SLPSFIN [GO TO SLEEP UNLESS NIPSTART 18 9Y*4 ...[IF NIPSTART MUST HAVE FOUND AN @UNSUITABLE FILE@ AND HAD TO 20 9YSN ...[ CLOSE DOWN LISTFILE. MUST ALLOW THE SCHEDULER TO HAVE ANOTHER GO 8 9_## ... LFEND EB 4 9_RY ...[ 4 =2?J ...) 4 =2R8 ...#END 6 ____ ...767411130001