12 22FL SEG DTSUBSS,867,JP-AML,SCHEDULER 4 22_= [ 4 23DW [ 15 23YG [ (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982 4 24D6 [ 4 24XQ [ 12 25CB SEGENTRY K1DTSUBSS,X1DTSUBSS 12 25X2 SEGENTRY K9DTSUBSS,X9DTSUBSS 12 26BL SEGENTRY K3DTSUBSS,X3DTSUBSS 12 26W= SEGENTRY K2DTSUBSS,X2DTSUBSS 12 27*W SEGENTRY K5DTSUBSS,X5DTSUBSS 12 27TG SEGENTRY K15DTSUBSS,X15DTSUBSS 12 28*6 SEGENTRY K16DTSUBSS,X16DTSUBSS 4 28SQ [ 4 29#B [ 4 29S2 [ 12 2=?L [ MONITORING FILE IDENTIFIERS 4 2=R= [ 16 2?=W MBBC +BRVOL [%A IS NOW ONLINE 20 2?QG MBBC1 +BRVTL [%A IS TEMPORARILY UNAVAILABLE 18 2#=6 MBBC2 +BRVPL [%A IS PERMANENTLY LOST 17 2#PQ MBBC3 +BRVNE [%A DOES NOT EXIST 4 2*9B [ 4 2*P2 [ 4 2B8L [ 11 2BN= [ MONITORING FILE MESSAGES 4 2C7W [ 16 2CMG WFAIL +JMTFAILM [MT %B FAILED(%A) 17 2D76 WFORM +JMTFORM [MT %B FORMAT ERROR%A 18 2DLQ WALIEN +JMTALFT [(ALIEN FILESTORE TAPE) 21 2F6B WHEAD +JMTNOTG3 [MT %A0NOT LABELLED ^GEO3DUMPTAPE^ 21 2FL2 WQUEER +HNOWNED [TAPE %A IN QUERY STATUS AND HAS BEEN 14 2G5L [WRONGED 18 2GK= TAPEFAIL [THESE CHARACTER STRINGS 17 2H4W +9 [ARE USED BY TAPEFAIL 16 2HJG 12HREAD FAIL [MESSAGE....... 8 2J46 +10 18 2JHQ 12HPLACE LOST [.......THEY MUST BE KEPT 15 2K3B +7 [CONTIGUOUS 10 2KH2 12HNO DATA 8 2L2L +17 12 2LG= 20HDECK DISCONNECTED 4 2L_W [ 21 2MFG [ ****************************************************************** 4 2M_6 [ 21 2NDQ [ THIS SUBROUTINE APPENDS TO THE FDT AN ENTRY FOR THE TSN SPECIFIED 21 2NYB [ IN AWORK2 OF THE ACTIVITY BLOCK. IF AN ENTRY ALREADY EXISTS THEN T 14 2PD2 [ SUBROUTINE WILL UNFORTUNATELY GEOERR. 21 2PXL [ AWORK3 ON ENTRY CONTAINS STATE OF TAPE,SO AS TO DECIDE WHETHER WPR 21 2QC= [ OR NOT,REQUIRED.IF THIS IS A DUMPER REQUEST,THEN AWORK3 ZERO,AND 17 2QWW [ SO'NO WPR REQUIRED'BIT IS UNSET,SO WPR REQUESTED 14 2RBG [ THE LINK ADDRESS MUST BE RELATIVISED 4 2RW6 [ 4 2S*Q [ 19 2STB X16DTSUBSS [WAS UPFDT IN SCHEDMTX 12 2T*2 SMO FX2 [ 14 2TSL LDX 5 AWORK2 [GET TSN 4 2W#= [ 18 2WRW [ FIND FDT ENTRY FOR TSN IN X5-IF NOT IN,GO TO NOFDTTAPE 4 2X?G [ 18 2XR6 FDTENT 3,5,NOFDTTAPE [J TO NOFDTTAPE NORMALLY 14 2Y=Q GEOERR 1,SHMTSKIP [GEOERR 4 2YQB [ 11 2_=2 [ TAPE NOT IN,MAKE NEW ENTRY 21 2_PL [ FDT BLOCK MUST ALWAYS HAVE 4 SPARE WORDS-THERE CAN BE NO COORD. 15 329= [ BETWEEN SEARCH AND NEW ENTRY INSERTION. 4 32NW [ 6 338G NOFDTTAPE 17 33N6 LDX 3 BOLC [POINT TO FDT BLOCK 18 347Q LDX 3 A1(3) [X3 => NUMBER OF ENTRIES 17 34MB SLL 3 2 [FOUR WORD ENTRIES 19 3572 ADX 3 BOLC [POINT TO SPACE FOR NEW ENTRY 18 35LL STO 5 FDSN(3) [SET UP NEW ENTRY -TSN 21 366= STOZ FDINC(3) [ -INCREMENT NUMBER 20 36KW STOZ FDFILE(3) [ -FILE NUMBER 19 375G STOZ FDST(3) [ -STATE WORD 21 37K6 MBS 3,BIFDTO,BIFDTNW [SET 'BEING OPENED' &'NO WPR' BITS 16 384Q JBS NOWPR,BOLC,BIFDTAFS [J IF ALIEN TAPE 12 38JB SMO FX2 [ 16 3942 LDX 5 AWORK3 [STATE OF TAPE 19 39HL BBS 5,5,NOWPR [J IF NOT CURRENT DUMP TAPE 20 3=3= BS 3,BIFDTCD [SET THE 'CURRENT DUMP TAPE' BIT 20 3=GW BC 3,BIFDTNW [CLEAR THE ^NO WPR REQUIRED^ BIT 12 3?2G NOWPR [ 18 3?G6 STF 3,FDTFSNO,6 [STORE FILESTORE NUMBER 15 3?_Q LDX 3 BOLC [X3 -> OFLC 17 3#FB LDX 6 A1(3) [NUMBER OF ENTRIES 14 3#_2 ADN 6 1 [UPDATED 14 3*DL STO 6 A1(3) [BY ONE. 4 3*Y= [ 11 3BCW [ GET SPACE FOR NEXT ENTRY 4 3BXG [ 16 3CC6 SLL 6 2 [FOUR WORD ENTRY 16 3CWQ ADN 6 5 [NEW ENTRY + A1 15 3DBB ALTLEN BOLC,6 [LENGTHEN FDT 5 3DW2 UP 4 3F*L [ 21 3FT= [ ************************************************************* X15DTS 4 3G#W [ 4 3GSG [ 4 3H#6 [ 4 3HRQ [ 15 3J?B [ FREQ BLOCK FOUND TO BE IN A TERMINAL STATE 4 3JR2 [ 16 3K=L [ BIT BINCUNVERR INCREMENT UNVERIFIED 17 3KQ= [ BIT BFILERES FILE HAS BEEN RVED OK 17 3L9W [ BIT BFILNEXI FILE NO LONGER EXISTS 16 3LPG [ BIT BPERLOST FILE PERMENTLY LOST 17 3M96 [ BIT BTEMLOST FILE TEMPORARILY LOST 16 3MNQ [ BIT BFILBRES FILE IS BEING RVED 4 3N8B [ 20 3NN2 [ USER NAME/LOCAL NAME OF FILE MUST BE STORED IN DTS ACTIVITY 16 3P7L [ BLOCK BECAUSE OF UNADVOIDABLE CO-ORDINATION 4 3PM= [ 19 3PQB ...X15DTSUBSS [THIS WAS TERMST IN SCHEDMTX 15 3PTG ... LDX 3 BOLC [REFIND FREQ 5 3PYL ...NFREQ 15 3Q3Q ... LDX 3 FPTR(3) [FIRST FREQ 15 3Q6W ... BXE 3 CXOL,OUT [END OF FREQS 19 3Q=2 ... JMBS NFREQ,3,BHAPPY,BINCUNVERR [J IF DEALT WITH 16 3Q*6 ... JBS TERMS,3,BTERMST [TERMINAL STATE 15 3QD= ... BRN NFREQ [NEXT FREQ 5 3QHB ...TERMS 18 3QLG LDX 4 FREVCT(3) [X4 => NUMBER OF JOB NOS 16 3R66 BZE 4 NOJOBS [J IF NO JOB NOS 17 3RKQ LDX 1 FX1 [PICK UP BROADCAST 17 3S5B JBS XIDENT,3,BFILERES [IDENTIFIER BEFORE 16 3SK2 ADN 1 1 [COORDINATIONS 12 3T4L JBS XIDENT,3,BTEMLOST [ 12 3TJ= ADN 1 1 [ 12 3W3W JBS XIDENT,3,BPERLOST [ 12 3WHG ADN 1 1 [ 17 3X36 JBC (GEOERR),3,BFILNEXI [REMOVE WHEN WORKING 12 3XGQ XIDENT [ 17 3Y2B LDX 6 MBBC(1) [PICK UP IDENTIFIER 16 3YG2 SMO 4 [PICK UP JOB NO 18 3Y_L LDX 7 FREVCT(3) [TAKING LAST ONE FIRST 12 3_F= LDX 2 FX2 [ 17 3_YW LDN 0 FFUSER1(3) [MOVE IN USER NAME 12 42DG LDN 1 ACOMMUNE1(2) [ 12 42Y6 MOVE 0 3 [ 12 43CQ LDN 0 FFLOG1(3) [ 17 43XB LDN 1 ACOMMUNE4(2) [MOVE IN LOCAL NAME 12 44C2 MOVE 0 5 [ 19 44WL LDX 0 FFLANG(3) [UPDATE WITH LANGUAGE WORD 12 45B= STO 0 ACOMMUNE9(2) [ 12 45TW LDX 5 ALOGLEN(3) [ 12 46*G LDN 1 1 [ 12 46T6 SBS 1 FREVCT(3) [ 19 47#Q SBS 1 5 [ALTER THE SIZE OF FREQ BLK 12 47SB ALTLEN 3,5 [ 4 48#2 [ 17 48RL [ CHECK FIRST TO SEE IF ITS WORTH DOING A BROADCAST 4 49?= [ 19 49QW BZE 7 OUT [J IF ISSUED IN NO-USER CONTEXT 12 4==G LDX 2 7 [ 12 4=Q6 JOBLOCK 2,1 [ 17 4?9Q BNG 1 OUT [J IF JOB NOLONGER PRESENT 12 4?PB LDX 0 JMISC(1) [ 15 4#92 BNG 0 OUT [OR NOT A MOP JOB 17 4#NL SETNCORE 10,3,FILE,FABSNB [SET UP FOR BCASTX 17 4*8= LDN 0 10 [SET UP RECORD HEADER 12 4*MW STO 0 A1(3) [ 18 4B7G LDN 0 ACOMMUNE1(2) [MOVE IN USER/LOCAL NAMES 17 4BM6 LDN 1 A1+1(3) [ INTO FILE FABSNB 12 4C6Q MOVE 0 9 [ 17 4CLB SETNCORE 40,3,ADATA,CREADL [SET UP FOR UNNORM 12 4D62 STOZ A1(3) [ 20 4DKL UNNORM TWO [SET UP FILE NAME FOR OUTPARAM 12 4F5= MHUNTW 3,ADATA,CREADL [ 19 4FJW OUTPARAM A1(3),CPDATA,ADATA,CREADL [ CONVERT TO PAR. BLK 17 4G4G BCASTX 6,7 [BROADCAST TO USER 10 4GJ6 MFREEW FILE,FABSNB 10 4H3Q MFREEW ADATA,CREADL 4 4HHB [ 18 4J32 [ IF JOB NOT THERE OR BEEN DISCONNECTED THEN BROADCAST 11 4JGL [ LEAVES GMON/ASET AROUND 4 4K2= [ 9 4KFW VFREEW GMON,ASET 8 4K_G LDX 1 FX1 5 4LF6 OUT UP 5 4LYQ NOJOBS 16 4MDB LDX 7 FREQCT(3) [ NO OF WAITERS 19 4MY2 BZE 7 XFREBLOK [J IF NO JOBS & NO WAITERS 15 4NCL LDX 4 FDTINCNUM(3) [X4 => INC NO 16 4NX= LDX 5 FDTFILNUM(3) [X5 => FILE NO 20 4PBW MAGICNO 5,4,1 [X1 => AUXILLIARY WAITING STYLE 21 4PWG LONGON1 #24,1 [WAKE UP ALL ACTIVITIES WAITING FOR T 19 4QB6 BS 3,BHAPPY [SET 'FREQ DEALT WITH' BIT 5 4QTQ UP 5 4R*B XFREBLOK 7 4RT2 LDX 1 3 9 4S#L LDX 3 FPTR(3) 19 4SS= FREECORE 1 [NO-ONE LEFT WAITING FOR FREQ 5 4T?W UP 4 4TRG [ 12 4W?6 [ MESSAGE IN X4 TO OPS CONSIOLE 4 4WQQ [ 5 4X=B OPSMESS 8 4XQ2 SBX 7 FX1 12 4Y9L CONSERNO ADTSN(2),ACOMMUNE1 13 4YP= OUTPARAM ACOMMUNE1(2),ACOMMUNE2 7 4_8W MONOUTX 4 8 4_NG ADX 7 FX1 7 5286 EXIT 7 0 4 52MQ [ 4 537B [ 10 53M2 [ TAPE IS QUERY STATUS 4 546L [ 18 54L= [ ISSUE TW MACRO,TELL OPS THAT TAPE HAS BEEN WRONGED 18 555W [ OPS CAN DO TAPERIGHT WHEN IT GETS OUT OF QUERY STATUS 4 55KG [ 4 5656 [ 21 56JQ [ ******************************************************************** 4 574B [ 6 57J2 X9DTSUBSS 15 583L TAPEWRONG ADTSN(2) [WRONG TAPE 19 58H= MFREEW AONBS,GLIST [RUBBISH BLOCK FROM LIBRARIAN 21 592W LDX 4 WQUEER(1) [TAPE %A IN QUERY STATUS AND HAS BEEN 14 59GG LDX 2 FX2 [RESET X2 9 5=26 CALL 7 OPSMESS 5 5=FQ UP 4 5=_B [ 20 5?F2 [ ENTRY FOR FAILED TAPE - TYPE MESSAGE, UPDATE FDT AND INCINDEX 4 5?YL [ 21 5#D= [ ******************************************************************** 4 5#XW [ 6 5*CG X1DTSUBSS 9 5*X6 LDX 4 WFAIL(1) 20 5BBQ LDX 5 CPRW1(2) [CHECK REPLY WORD FOR FAIL TYPE 20 5BWB ANDN 5 #3 [WE ARE ONLY INTERESTED IN BITS 15 5CB2 LDN 7 4 [22 AND 23 18 5CTL MPY 5 7 [FAIL TYPE TABLE ENTRY 16 5D*= STO 6 ACOMMUNE1(2) [IS 4 WORDS LONG 20 5DSW ADX 1 ACOMMUNE1(2) [X1 => POINTER TO RELAVENT ENTRY 18 5F#G LDX 7 TAPEFAIL(1) [X7 => NO. OF CHARACTERS 19 5FS6 LDN 5 TAPEFAIL+1(1) [X5 => POINTS TO FIRST WORD 15 5G?Q LDN 6 ACOMMUNE1(2) [OF PARAMETER 19 5GRB MOVE 5 5 [MOVE PARAMETER INTO ACTIVITY 21 5H?2 OUTPARAM 7,ACOMMUNE1 [OUTPUT RELAVENT PARAMETER (1 OF 4) 10 5HQL MHUNTW 3,FILE,FDINCS 21 5J== LF 3,FDINCFSNO,6 [DON'T UPDATE INCINDEX IF ALIEN FS 8 5JPW BRN SBT 4 5K9G [ 14 5KP6 [ ENTRY FOR FORMAT ERROR - TYPE MESSAGE 4 5L8Q [ 21 5LNB [ ******************************************************************** 4 5M82 [ 6 5MML X2DTSUBSS 15 5N7= MHUNTW 3,FILE,FDINCS [X3 -> FDINCS 18 5NLW LF 3,FDINCFSNO,6 [X6 => FILESTORE NUMBER 18 5P6G BZE 6 THOSTAPE [J IF HOST FILESTORE TAPE 17 5PL6 LDX 6 WALIEN(1) [X6 => %A IDENTIFIER 15 5Q5Q OUTMESSX 6 [OUTPUT %A 12 5QKB BRN TOUTPUT [ 12 5R52 THOSTAPE [ 14 5RJL OUTNULL [%A NULL 12 5S4= TOUTPUT [ 21 5SHW LDX 4 WFORM(1) [X4 => MESSAGE SKELETON IDENTIFIER 18 5T3G LDN 6 1 [DON'T MARK INCINDEX FLAG 16 5TH6 SBT CALL 7 OPSMESS [OUTPUT MESSAGE 20 5W2Q BNZ 6 SUP [J IF INCINDEX NOT TO BE MARKED 20 5WGB LDX 0 CPRW1(2) [CHECK REPLY WORD FOR FAIL TYPE 8 5X22 LDCT 5 #10 7 5XFL ANDX 5 0 21 5X_= BNZ 5 SUP [J IF DECK INOP,DONT MARK INCINDEX 8 5YDW TFAIL ANDN 0 #3 17 5YYG BNZ 0 SUP [J IF NOT FAIL TYPE 0 18 5_D6 [AND DONT MARK INCINDEX 16 5_XQ TPINC LDCT 5 #400 [SET 'FAILED'BIT 9 62CB OPENINC ,GENERAL 9 62X2 CALL 7 SETBIT 5 63BL SUP UP 4 63W= [ 21 64*W [ ENTRY FOR HEADER DISAGREEMENT - TYPE MESSAGE, UPDATE FDT AND INCI 4 64TG [ 21 65*6 [ ******************************************************************** 4 65SQ [ 6 66#B X3DTSUBSS 18 66S2 LDN 6 0 [ SET MARK INCINDEX FLAG 16 67?L STOZ CPRW1(2) [ FORCE TAPEFAIL 9 67R= LDX 4 WHEAD(1) 8 68=W BRN SBT 4 68QG [ 18 69=6 [ AT PRESENT,THIS S.R.IS ONLY USED IN ONE PLACE-K2DTSUBS 4 69PQ [ 20 6=9B [ SUBROUTINE TO UPDATE FDT BLOCK AND INCINDEX WITH BITS IN X5 15 6=P2 [ INCINDEX IS ONLY UPDATED FOR FAIL TYPE 0 9 6?8L [ X2 = FX2 ON ENTRY 7 6?N= [ LINK IN X7 4 6#7W [ 5 6#MG SETBIT 8 6*76 SBX 7 FX1 9 6*LQ LDX 4 ADTSN(2) 16 6B6B FDTENT 3,4,NOTIN [FIND FDT ENTRY 15 6BL2 ORS 5 FDST(3) [SET THE BITS 20 6C5L BNZ 6 XCLOSEIT [J IF INCINDEX NOT TO BE MARKED 5 6CK= SFDINCS 10 6D4W MHUNTW 3,FILE,FDINCS 17 6DJG LDX 0 FDINCNO(3) [NO OF INCS ON TAPE 20 6F46 BZE 0 XCLOSEIT [J IF NO INCS E.G.NEW'D IN TAPE 21 6FHQ LDX 4 FDINCINC(3) [NUMBER OF FIRST INCREMENT ON TAPE 21 6G3B USEIT [POSITION ON RECORD IN FDT OR FDINCS 12 6GH2 FINDREC ,AINCNO-A1,4,REWINCX 7 6H2L BACKSPACE 21 6HG= NOTIN [NO FDT OR FDINCS,SO MUST CHECK EACH 14 6H_W [RECORD 4 6JFG READ 16 6J_6 READ [READ THIS RECORD 10 6KDQ MHUNTW 3,FILE,FRB 10 6KYB NAME 3,FILE,FWB 8 6LD2 LDX 0 A1(3) 19 6LXL BZE 0 TINCEND [BRANCH AT END OF INCINDEX 17 6MC= LDX 4 ADTSN(2) [PICK UP S/N AGAIN 8 6MWW SMO A1(3) 8 6NBG LDN 0 A1(3) 8 6NW6 ADN 3 AMAG 4 6P*Q TSL 16 6PTB BXE 4 0(3),TSN [LOOK FOR OUR TSN 7 6Q*2 ADN 3 2 16 6QSL BXL 3 0,TSL [LOOP TILL FOUND 8 6R#= BRN UNFWB 4 6RRW TSN 12 6S?G [ SETBIT FROM X5 INTO INCINDEX 15 6SR6 ORS 5 1(3) [SET THE BITS 4 6T=Q [ 21 6TQB [ IF THIS IS A FAIL WHILE PROCESSING,AND IN THE INC THAT THE PROCESS 21 6W=2 [ IS PROCESSING,GTHEN PUT FAIL DATA FROM APROC BOLOCK INTO INCINDEX 11 6WPL [ RECORD FOR THAT INCREMENT 16 6X9= BPZ 5 REW [J IF NOT FAIL 10 6XNW HUNTW 2,FILE,APROC 17 6Y8G BNG 2 REW [J IF NOT PROCESSOR 21 6YN6 LDX 4 AINCNO(2) [INCREMENT NUMBER FROM APROC BLOCK 10 6_7Q MHUNTW 3,FILE,FWB 19 6_MB BXU 4 AINCNO(3),REW [J IF NOT CORRECT INCREMENT 21 7272 LDX 4 AINCSTAT1(2) [MOVE FILE NO AT WHICH FAIL OCCURRED 21 72LL STO 4 AINCSTAT1(3) [WHILE PROCESSING,INTO INCINDEX RECOR 9 736= #SKI K6DTSUBSS>99-99 10 73KW TRACE 4,PROCFAIL 4 745G REW 7 74K6 REWRITE 5 754Q UNFWB 9 75JB MFREEW FILE,FWB 17 7642 BRN READ [GO FOR NEXT RECORD 5 76HL TINCEND 9 773= MFREEW FILE,FWB 5 77GW XCLOSEIT 14 782G CLOSETOP [INCINDEX 5 78G6 UPDEND 8 78_Q ADX 7 FX1 7 79FB EXIT 7 0 5 79_2 REWINCX 21 7=DL REWIND [MT PROBABLY OVERWRITTEN-MARK FDINCS 17 7=Y= BRN SFDINCS [ENTRIES AS FAILED 11 7?CW [ USED TO BE GEOERR INCENDER 4 7?XG [ 4 7#C6 [ 14 7#WQ [ PUT CANT DONE TAPE AT END OF INCINDEX 4 7*BB [ 21 7*W2 [ ******************************************************************** 4 7B*L [ 6 7BT= X5DTSUBSS 9 7C#W OPENINC ,GENERAL 9 7CSG LDX 4 ADTSN(2) 10 7D#6 MHUNTW 3,FILE,FDINCS 10 7DRQ LDX 7 FDINCNO(3) 17 7F?B BZE 7 NCEND [J IF NO INCS ON TAPE 7 7FR2 LDN 7 1 10 7G=L LDX 6 FDINCINC(3) 5 7GQ= STEPIT 6 7H9W STEP 8 7HPG BZE 3 NCEND 17 7J96 BXU 6 AINCNO-A1(3),STEPIT [J IF NOT REQD INC 7 7JNQ LDN 5 1 17 7K8B BXE 5 AMTS-A1(3),NEXTINC [J IF ONLY ONE TAPE 8 7KN2 LDX 5 0(3) 7 7L7L READAGAIN 10 7LM= SETUPCORE 5,3,FILE,FWB 10 7M6W MHUNTW 2,FILE,FRB 16 7MLG LDX 1 AMTS(2) [NO OF ENTRIES 8 7N66 ADN 2 A1 8 7NKQ ADN 3 A1 19 7P5B MOVE 2 AMAG-A1 [RED TAPE OF INCINDEX RECORD 9 7PK2 ADN 2 AMAG-A1 9 7Q4L ADN 3 AMAG-A1 5 7QJ= NEXTAC 10 7R3W BXU 4 0(2),TAPEAC 4 7RHG [ 10 7S36 [ CANT DONE TAPE FOUND 8 7SGQ #SKI K6DTSUBSS>99-99 10 7T2B TRACE 0,CANTTAPE 17 7TG2 LDX 5 1(2) [PICK UP STATE WORD 9 7T_L BRN ONNEXT 5 7WF= TAPEAC 15 7WYW LDX 0 0(2) [COPY ENTRY 8 7XDG STO 0 0(3) 8 7XY6 LDX 0 1(2) 8 7YCQ STO 0 1(3) 9 7YXB ADN 3 INCMAGLEN 5 7_C2 ONNEXT 9 7_WL ADN 2 INCMAGLEN 9 82B= BCT 1 NEXTAC 19 82TW STO 4 0(3) [PUT CANT DONE TAPE AT END 8 83*G STO 5 1(3) 16 83T6 REWRITE [INCREMENT RECORD 9 84#Q MFREEW FILE,FRB 9 84SB MFREEW FILE,FWB 5 85#2 NEXTINC 10 85RL MHUNTW 3,FILE,FDINCS 17 86?= BXE 7 FDINCNO(3),NCEND [J IF END OF FDINCS 9 86QW LDN 0 FDINCLEN 7 87=G MPY 0 7 7 87Q6 SMO 1 10 889Q LDX 6 FDINCINC(3) 7 88PB ADN 7 1 9 8992 BRN STEPIT 7 89NL NCEND CLOSETOP 5 8=8= UP 4 8=MW [ 4 8?7G [ 4 8?M6 #END 2 8#6Q 6 ____ ...000700560003