13 225X ... SEG DTSUBS,867,C.R.JOHNSON,SCHEDULER 4 229S ...[ 15 22*P ...[ (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982 4 22FL ...[ 4 22PD ...[ 11 237Q ... SEGENTRY K1DTSUBS,(GEOERR) 11 23L4 ... SEGENTRY K9DTSUBS,(GEOERR) 11 244B ... SEGENTRY K3DTSUBS,(GEOERR) 11 24GN ... SEGENTRY K2DTSUBS,(GEOERR) 11 24_2 ... SEGENTRY K5DTSUBS,(GEOERR) 11 25CB ... SEGENTRY K7DTSUBS,(GEOERR) 11 25X2 SEGENTRY K8DTSUBS,X8DTSUBS 12 26BL ... SEGENTRY K11DTSUBS,X11DTSUBS 11 26W= SEGENTRY K4DTSUBS,X4DTSUBS 12 27*W SEGENTRY K10DTSUBS,X10DTSUBS 12 27TG SEGENTRY K12DTSUBS,X12DTSUBS 12 28*6 SEGENTRY K13DTSUBS,X13DTSUBS 12 28SQ SEGENTRY K14DTSUBS,X14DTSUBS 12 29#B SEGENTRY K15DTSUBS,X15DTSUBS 21 29S2 [ AWORK1 USED IN TSNS AND OUTTAPE S.R. TO DISTINGUISH ENTRY POINTS 13 2=?L [ AWORK1 ZERO UNLESS TSNS ENTRY USED 4 2=R= [ 21 2?=W [ THE FOLLOWING ENTRY POINTS ARE PROVIDED TO DEAL WITH THE VARIOUS 21 2?QG [ TYPES OF FAILURE. THE ^FDT^ BLOCK IS USED (AND MARKED) TO FIND 12 2#=6 [ THE INCREMENT THAT WAS IN USE. 4 2#PQ [ 11 2#WY ...[ MONITORING FILE MESSAGES 4 2*46 ...[ 4 2*9B [ 4 2*P2 [ 20 2B8L ...WMTLOAD +JMTLOAD [PLEASE LOAD RETRIEVE TAPE%A : %B 9 2FL2 MASK0 #37777777 9 2G5L MAGNO +7036875 8 2G*D ...TEN +10 8 2GK= QIS 4HIS 8 2H4W QARE 4HARE 9 2H56 ...QWPR 8H(WPR) 17 2H5B ...QFSNO 4H(FS [USED BY X11DTSUBS 18 2H5N ...WRSTRING [THESE CHARACTER STRINGS 17 2H5T ... 4H(U) [ARE USED BT OUTTSNS 18 2H62 ... 4H(O) [......THEY MUST BE KEPT 16 2H67 ... 8H(O,U) [CONTIGUOUS.... 4 5=_B ...[ 15 5?F2 ...[ SET UP A FDINCS BLOCK FOR TAPE IN ADTSN 4 5XPD ...[ 21 5X_= ...[ ******************************************************************** 4 5Y94 ...[ 5 5YDW X8DTSUBS 19 5YHF ... JBCC XOPENINC,BOLC,BIFDTOPEN [J IF INCINDEX NOT OPEN 18 5YJX ... LDN 4 20 [SET 'NOT DUMPING' FLAG 16 5YL* ...[ SEARCH BACKWARDS THROUGH INCINDEX UNTIL TAPE 18 5YLL ...[ MISSING FOR 20 CONSECUTIVE INCS OR BEGINNING OF FILE 7 5YLX ...X8DT1 READBACK 14 5YM8 ... TESTREP2 BEGFILE,X8DT3,FIRSTREC,X8DT3 10 5YMF ... MHUNTW 3,FILE,FRB 8 5YMQ ... ADN 3 A1 13 5YN3 ... LDX 0 AWORK2(2) [TSN 10 5YN# ... LDEX 2 AINCRHR(3) 8 5YNK ... SBN 2 AMAGR 9 5YNW ...X8DT2 SBN 2 INCMAGLEN 7 5YP7 ... SMO 2 11 5YPD ... BXE 0 AMAGR(3),X8DT4 8 5YPP ... BNZ 2 X8DT2 8 5YQ2 ... BNG 4 X8DT6 7 5YQ? ... SBN 4 1 8 5YQJ ... BRN X8DT5 8 5YQK ...X8DT4 LDN 4 20 8 5YQL ...X8DT5 SBN 3 A1 7 5YQM ... FREECORE 3 8 5YQN ... BRN X8DT1 5 5YQP ...X8DT6 8 5YQQ ... SBN 3 A1 7 5YQR ... FREECORE 3 8 5YQS ... BRN X8DT7 6 5YQT ...X8DT3 REWIND 3 5YQW ... 8 5YQX ...X8DT7 LDN 4 20 8 5YR6 ... SMO FX2 9 5YR# ... STO 4 ACOMMUNE1 7 5YRG ... LDN 4 0 9 5YRN ... BRN XNOOPEN 5 5YW5 ...XOPENINC 8 5YYG OPENINC ,READ 17 5_7D ... LDN 4 1 [SET 'DUMPING' FLAG 12 5_BB ...XNOOPEN [ 11 5_K# ... SETNCORE 7,3,FILE,FDINCS 10 5_S= ... STOZ FDINCNO(3) 15 6238 ... LDX 0 AWORK2(2) [X0 => TSN 17 62=6 ... STO 0 FDINCTSN(3) [STORE TSN IN FDINCS 15 62F4 ... LDN 2 0 [X2 => ZERO 15 62N2 ... STF 3,FDINCFSNO,2 [FILESTORE 0 5 62X2 T1SUBS 6 63BL STEP 9 63W= BZE 3 T5SUBS 19 64*W ... JBS T1SUBS,3,BINSUITRVR [J IF INCREMENT NOT SUITABLE 10 64TG ... LDEX 2 AINCRHR(3) 8 65*6 ... SBN 2 AMAGR 8 65SQ SMO FX2 9 66#B LDX 0 AWORK2 5 66S2 T2SUBS 9 67?L SBN 2 INCMAGLEN 7 67R= SMO 2 21 68=W ... BXE 0 AMAGR(3),T3SUBS [J IF TSN FOUND IN INCINDEX RECORD 9 68*N ... BNZ 2 T2SUBS 10 68DG ... MHUNTW 2,FILE,FDINCS 10 68H# ... LDX 3 FDINCNO(2) 17 68L6 ... BZE 3 T1SUBS [READ NEXT RECORD 8 68NY ... SMO FX2 9 68RQ ... LDX 3 ACOMMUNE1 9 68WJ ... BNG 3 T5SUBS 7 68_B ... SBN 3 1 8 6948 ... SMO FX2 9 6972 ... STO 3 ACOMMUNE1 19 69=6 BRN T1SUBS [READ NEXT INCINDEX RECORD 5 69FY ...T3SUBS 8 69KT ... LDN 6 20 8 69PQ ... SMO FX2 9 69_J ... STO 6 ACOMMUNE1 7 6=9B ADX 2 3 20 6=P2 LDX 6 AMAGSTATE-A1(2) [PICK UP MAGSTATE OF THIS TAPE 17 6?8L ... LDCT 5 #562 [CHECK STATE OF TAPE 7 6?N= ANDX 5 6 7 6#7W SLC 5 2 17 6#MG BNG 5 T1SUBS [J IF TAPE RETURNED 18 6*76 BZE 4 T4SUBS [ J IF NOT FOR DUMPING 18 6*LQ BNZ 5 T6SUBS [J IF FAILED OR WRONGED 5 6B6B T4SUBS 10 6BL2 LDX 7 AINCNO-A1(3) 10 6C5L MHUNTW 2,FILE,FDINCS 17 6CK= ... LDX 3 FDINCNO(2) [NUMBER OF ENTRIES 7 6D4W LDN 0 1 18 6DJG ... ADS 0 FDINCNO(2) [INCREASE NO. OF ENTRIES 7 6FHQ SMO 2 18 6G3B ... STO 7 FDINCINC(3) [INC NO. FOR THIS ENTRY 15 6G?8 ... ADN 3 5 [PLUS 1 SPARE 3 6GH2 ... 11 6H_W BXL 3 ALOGLEN(2),T1SUBS 7 6JFG LDX 6 2 21 6JP# ... ADN 3 8 [INCREASE LENGTH BY 8 IF NESCESSARY 19 6J_6 ALTLEN 6,3,FILE,FDINCS [INCREASE BLOCK SIZE IF MESS 9 6KDQ BRN T1SUBS 5 6KYB T5SUBS 7 6LD2 LDN 5 0 5 6LXL T6SUBS 7 6MC= CLOSETOP 10 6MWW STO 6 ACOMMUNE1(2) 17 6N6N ... BZE 4 PLUS0 [J IF NOT FOR DUMPING 8 6NBG BNZ 5 PLUS1 5 6NL# ...PLUS0 5 6NW6 UP 5 6P*Q PLUS1 20 6PTB UPPLUS 1 [EXIT PLUS 1 IF DUMPING CASE AND 18 6Q*2 [TAPE FAILED OR WRONGED 21 6QSL [X5 HOLDS APPRO BITS : X6 = AMAGSTATE 4 6R#= [ 18 6RRW [ S.R. TO SET NEXT PARAM S OR NULL,NEXT AS SET OF TSNS 4 6R_4 ...[ 21 6S6= ...[ ******************************************************************** 4 6S?G [ 5 6SR6 OUTTAPE 8 6T=Q LDX 2 FX2 17 6TQB STOZ AWORK1(2) [SET'NO IS OR ARE' 8 6W=2 BRN TSNS2 4 6WPL [ 21 6X9= [ SR TO SET FIRST PARAM AS S OR NULL,SECOND PARAM AS SET OF TSNS, 10 6XNW [ 3RD PARAM IS OR ARE 8 6Y8G TSNS LDX 2 FX2 9 6YN6 STO 7 AWORK1(2) 18 6_7Q TSNS2 SBX 7 FX1 [SET'IS OR ARE'REQUIRED 12 6_#D ...[ CALCULATE SIZE OF FILE FINTER 10 6_F6 ... MHUNTW 2,FILE,APROC 16 6_KS ... LDX 4 AMTS(2) [COUNT OF TAPES 7 6_QG ... STO 4 5 16 6_X8 ... SLL 4 1 [2 WORDS PER TSN 17 723W ... ADN 5 15 [1 WORD FOR A1 AND 16 728J ... SRL 5 2 [SPACE FOR SPACES 17 72*= ... ADX 4 5 [AND SPACE FOR (O,U) 11 72FY ... SETUPCORE 4,3,FILE,FINTER 8 72LL STOZ A1(3) 10 736= MHUNTW 2,FILE,APROC 16 73KW LDX 4 AMTS(2) [COUNT OF TAPES 7 745G SBN 4 1 17 74K6 BZE 4 ONLYONE [J IF ONLY ONE COPY 14 754Q LDCT 0 #630 [S CHAR 8 75JB SMO FX2 9 7642 STO 0 ACOMMUNE1 7 76HL LDN 0 1 10 773= OUTPARAM 0,ACOMMUNE1 8 77GW BRN OUTN 5 782G ONLYONE 7 78G6 OUTNULL 17 78_Q OUTN ADN 4 1 [RESET COUNT OF MTS 14 79FB LDN 5 0 [MODIFIER 5 79K? ...#UNS IDC 21 79P8 ... LDN 1 0 [MARKER FOR LENGTHENING FINTER BLOCK 4 79T5 ...[ 11 79_2 [ CONVERT NEXT TSN TO CHARS 4 7=8S ...[ 5 7=DL OUTTSN 5 7=G8 ...#UNS IDC 4 7=HQ ...( 16 7=K# ... BZE 1 NOINCREASE [J IF NO INCREASE 18 7=LW ... LDX 3 1 [X3 => INCREASE IN LENGTH 15 7=ND ... MHUNTW 1,FILE,FINTER [FIND FINTER 16 7=Q2 ... ADX 3 ALOGLEN(1) [X3 => NEW LENGTH 16 7=RJ ... ALTLEN 1,3,FILE,FINTER [INCREASE LENGTH 12 7=T6 ...NOINCREASE [ 4 7=WN ...) 10 7=Y= MHUNTW 3,FILE,APROC 7 7?CW SMO 5 9 7?XG LDX 6 AMAG(3) 10 7#C6 CONSERNO 6,ACOMMUNE1 10 7#WQ LDX 1 ACOMMUNE1(2) 9 7*BB ADN 2 ACOMMUNE2 10 7*W2 MHUNTW 3,FILE,FINTER 7 7B*L ... LDX 6 3 8 7BT= LDX 3 A1(3) 8 7C#W ADN 3 A1+1 7 7CSG ... ADX 3 6 8 7D#6 MVCH 2 0(1) 5 7D#L ...#UNS IDC 4 7D*6 ...( 4 7D*L ...[ 9 7DB6 ...[ IS TAPE WRONGED? 4 7DBL ...[ 18 7DC6 ... MHUNTW 1,FILE,APROC [X1 -> INCINDEX RECORD 16 7DCL ... ADX 1 5 [ADD ON MODIFIER 18 7DD6 ... JMBAC NOTWRONG,1,BMOPWR,BMUSWR [J IF NOT WRONGED 20 7DDL ... LDN 2 0 [X2 IS MODIFIER FOR CHAR STRING 21 7DF6 ... JMBAS XBOTHWR,1,BMUSWR,BMOPWR [J IF USER AND OPERATOR WRONGED 18 7DFL ... JBS USWR,1,BMUSWR [J IF USER WRONGED ONLY 18 7DG6 ... ADN 2 1 [MUST BE OPERATOR WRONGED 12 7DGL ...USWR [ 12 7DH6 ... SMO FX1 [ 18 7DHL ... ADN 2 WRSTRING [X2 -> APPRPRIATE STRING 16 7DJ6 ... MVCH 2 3 [MOVE IN STRING 19 7DJL ... LDN 1 1 [INCREASE FINTER BY ONE WORD 12 7DK6 ... BRN SPACE [ 19 7DKL ...XBOTHWR [WRONGED IN BOTH CONTEXTS 17 7DL6 ... ADN 2 2 [OP AND US WRONGED 12 7DLL ... SMO FX1 [ 17 7DM6 ... ADN 2 WRSTRING [X2 -> CHAR STRING 16 7DML ... MVCH 2 5 [MOVE IN STRING 19 7DN6 ... LDN 1 2 [INCREASE FINTER BY TWO WORDS 12 7DNL ... BRN SPACE [ 20 7DP6 ...NOTWRONG [DO NOT INCREASE FINTER LENGTH 14 7DPL ... LDN 1 0 [MARKER. 12 7DQ6 ...SPACE [ 4 7DQL ...) 4 7DRQ [ 8 7F?B [ INSERT SPACE 4 7FR2 [ 8 7G=L ... LDN 0 #20 8 7GQ= ... DCH 0 0(3) 7 7H9W BCHX 3 / 7 7HPG ... SBX 3 6 8 7J96 SBN 3 A1+1 7 7JNQ ... SMO 6 8 7K8B STO 3 A1 9 7KN2 ADN 5 INCMAGLEN 9 7L7L BCT 4 OUTTSN 4 7LM= [ 14 7M6W [ ALL TSNS NOW CONVERTED-OUTPUT MESSAGE 4 7MLG [ 10 7N66 MHUNTW 3,FILE,FINTER 8 7NKQ LDX 2 A1(3) 15 7P5B SLC 2 2 [NO.OF CHARS 18 7PK2 SBN 2 1 [DONT O/P LAST SPACE CHAR 11 7Q4L ... OUTEXES 2,A1+1,FILE,FINTER 10 7QJ= MFREEW FILE,FINTER 4 7R3W [ 7 7RHG [ IS OR ARE 4 7S36 [ 9 7SGQ LDX 0 AWORK1(2) 19 7T2B BZE 0 TSNEND [J IF NO'IS OR ARE'REUQUIRED 10 7TG2 MHUNTW 3,FILE,APROC 9 7T_L LDX 4 AMTS(3) 7 7WF= SBN 4 1 15 7WYW LDN 0 2 [CHARS IN IS 16 7XDG ADN 1 QIS [ADDRESS OF IS 9 7XY6 BZE 4 NULLPARAM 15 7YCQ ADN 0 1 [CHARS IN ARE 16 7YXB ADN 1 1 [ADDRESS OF ARE 6 7_C2 NULLPARAM 14 7_WL LDX 6 0(1) [MESSAGE 10 82B= STO 6 ACOMMUNE1(2) 16 82TW OUTPARAM 0,ACOMMUNE1 [PARAM=IS OR ARE 5 83*G TSNEND 8 83T6 ADX 7 FX1 7 84#Q EXIT 7 0 4 84SB [ 20 85#2 [ SR TO DO OUTPARAM OF LIST OF INC.NOS IN FLINC BLOCK,AND THEN 4 85RL [ 6 86?= OUTINCNOS 8 86QW SBX 7 FX1 10 87=G MHUNTW 3,FLIB,FLINC 8 87Q6 LDX 6 A1(3) 7 889Q SBN 6 2 17 88PB BZE 6 ONLYINC [J IF ONLY ONE INC 6 88R5 ...#SKI JSKI30 4 88SS ...( 10 88WH ... LDX 0 FLINCST(3) 16 88Y= ... BNZ 0 OLDFORM [J IF NO FLINCST 7 88__ ... SBN 6 1 20 893N ... BZE 6 ONLYINC [J IF ONLY 1 INC,FORMAT 2 FLINC 5 895C ...OLDFORM 4 8976 ...) 14 8992 LDCT 0 #630 [S CHAR 8 89NL SMO FX2 9 8=8= STO 0 ACOMMUNE1 7 8=MW LDN 0 1 10 8?7G OUTPARAM 0,ACOMMUNE1 9 8?M6 BRN OUTOTHER 5 8#6Q ONLYINC 7 8#LB OUTNULL 5 8*62 OUTOTHER 7 8*KL ADN 6 2 7 8B5= SLL 6 2 11 8BJW SETUPCORE 6,2,ADATA,CREADL 16 8C4G ADN 2 CPDATA [NEXT CHAR POSN 10 8CJ6 MHUNTW 3,FLIB,FLINC 8 8D3Q LDX 6 A1(3) 7 8DHB SBN 6 1 15 8F32 XDECR LDX 0 A1+2(3) [NEXT INC.NO. 6 8F4P ...#SKI JSKI30 4 8F6D ...( 16 8F87 ... BNZ 0 NOFLINCST [J IF NO FLINCST 7 8F9W ... ADN 3 1 7 8F?K ... SBN 6 1 8 8F*# ... BRN XDECR 6 8FC3 ...NOFLINCST 4 8FDQ ...) 7 8FGL LDN 4 0 8 8G2= SMO FX1 8 8GFW MPY 0 MAGNO 7 8G_G MODE 0 7 8HF6 LDN 5 7 7 8HYQ VCON CBD 0 4 8 8JDB BNZ 4 NOTZ 8 8JY2 BCT 5 VCON 7 8KCL ADN 5 1 17 8KX= NOTZ DCH 4 0(2) [FIRST NON-ZERO CHAR 8 8LBW BRN NOTZ2 8 8LWG WCON CBD 0 0(2) 7 8MB6 NOTZ2 BCHX 2 / 8 8MTQ BCT 5 WCON 17 8N*B BCT 6 PUTCOMMA [COMMA IF MORE LEFT 10 8NT2 BRN NOINCSLEFT 5 8P#L PUTCOMMA 14 8PS= LDN 4 #34 [COMMA 8 8Q?W DCH 4 0(2) 7 8QRG BCHX 2 / 18 8R?6 ADN 3 1 [POINT TO NEXT INC.NO. 8 8RQQ BRN XDECR 4 8S=B [ 14 8SQ2 [ X2 POINTS TO NEXT CHAR POSN IN ADATA 4 8T9L [ 6 8TP= NOINCSLEFT 7 8W8W SLC 2 2 11 8WNG MHUNTW 3,ADATA,CREADL 7 8X86 LDX 4 3 9 8XMQ ADN 4 CPDATA 7 8Y7B SLL 4 2 17 8YM2 SBX 2 4 [NO OF CHARS IN X2 12 8_6L ... OUTEXES 2,CPDATA,ADATA,CREADL 10 8_L= MFREEW ADATA,CREADL 8 925W ADX 7 FX1 7 92KG EXIT 7 0 4 9356 [ 9 93JQ [ SR TO DO MONOUT 4 944B [ 5 94J2 OUTMON 8 953L SBX 7 FX1 7 95H= SMO 7 14 962W LDX 5 0(1) [MESSAGE 7 96GG MONOUTX 5 8 9726 ADX 7 FX1 7 97FQ EXIT 7 1 4 97GY ...[ 4 97J6 ...[ 15 97K# ...[ MESSAGE-PLEASE LOAD RETRIEVE TAPE%A :%B 4 97LG ...[ 21 97MN ...[ ******************************************************************** 4 97NW ...[ 21 97Q4 ... SEGENTRY K100DTSUBS [USED BY RESTORE TIME MACRO REQRVMAX 21 97R= ... +175 [DEFAULT SETTING FOR MAX NO OF TSNS T 6 97SD ...X11DTSUBS 7 97TL ...#UNSET FIRSTR 4 97WS ...( 21 97Y2 ... LDX 7 K100DTSUBS(1) [X7 => MAX NO OF TSNS TO BE OUTPUT IN 21 97_8 ... LDN 6 0 [X6 => WILL CONTAIN NO OF TSNS PUT IN 15 982B ... LDX 3 BOLC [X3 => FDT 18 983J ... LDX 4 A1(3) [X4 => NO OF TAPE ENTRIES 15 984Q ... BZE 4 XNOMESS2 [J IF NO TSNS 15 985Y ... BXL 4 7,XFOURLOW [J IF X4 < X7 17 9876 ... SLL 7 1 [TWO WORDS PER TSN 20 988# ... SETUPCORE 7,2,FILE,FINTER1 [USED TO HOLD TSNS IN BINARY FORM 14 989G ... SRL 7 1 [RESET X7 16 98=N ... SLL 4 2 [4 WORDS PER TSN 12 98?W ... BRN XSEVLOW [ 12 98*4 ...XFOURLOW [ 17 98B= ... SLL 4 1 [TWO WORDS PER TSN 20 98CD ... SETUPCORE 4,2,FILE,FINTER1 [USED TO HOLD TSNS IN BINARY FORM 17 98DL ... SLL 4 1 [FOUR WORDS PER TSN 12 98FS ...XSEVLOW [ 20 98H2 ... ADX 4 BOLC [X4 => LIMIT OF ENTRIES IN FDT 19 98J8 ... LDX 3 BOLC [X3 SET UP AS A MODIFIER FOR 16 98KB ... SBN 3 4 [SCANNING UP FDT 12 98LJ ...REPEAT [ 17 98MQ ... ADN 3 4 [POINT TO NEXT ENTRY 16 98NY ... BXE 3 4,XFDTEND [J IF END OF FDT 16 98Q6 ... JBC REPEAT,3,BIFDTO [J IF BIFDT CLEAR 21 98R# ... JMBS REPEAT,3,BIFDTOW,BIFDTUW,BIFDTCL [J IF TAPE WRONGED OR CA 16 98SG ... LDX 5 FDSN(3) [X5 => BINARY TSN 17 98TN ... STO 5 A1(2) [STORE TSN IN FINTER1 17 98WW ... LDX 5 FDST(3) [X5 => STATE OF TAPE 20 98Y4 ... STO 5 A1+1(2) [STORE STATE OF TAPE IN FINTER1 18 98_= ... ADN 2 2 [UPDATE FINTER1 POINTER 17 992D ... ADN 6 1 [UPDATE COUNT OF TSNS 21 993L ... BXL 6 7,REPEAT [J IF MAX NO OF TSNS NOT YET REACHED 12 994S ...XFDTEND [ 17 9962 ... BZE 6 XNOMESS1 [J IF NO TSNS FOUND 18 9978 ... SBN 6 1 [WE NOW HAVE TO OUTPUT AN 21 998B ... BZE 6 XONLYONE [ S CHARACTER IF MORE THAN ONE TAPE 15 999J ... LDCT 0 #630 [ S CHARACTER 12 99=Q ... SMO FX2 [ 20 99?Y ... STO 0 ACOMMUNE1 [STORE S CHARACTER FOR OUTPARAM 16 99*6 ... LDN 0 1 [ONE CHARACTER 20 99B# ... OUTPARAM 0,ACOMMUNE1 [OUTPARAM ASSUMES ACTIVITY BLOCK 12 99CG ... BRN TSNSETUP [ 12 99DN ...XONLYONE [ 18 99FW ... OUTNULL [NO S IF ONLY ONE TAPE 12 99H4 ...TSNSETUP [ 18 99J= ... ADN 6 1 [RESET X6 => NO. OF TAPES 21 99KD ... STO 6 4 [X4 => NO. OF TAPES, X6 IS CORRUPTED 20 99LL ... STO 6 7 [NOW SET UP A FILE/FINTER BLOCK 17 99MS ... SLL 6 1 [TWO WORDS PER TSN 17 99P2 ... ADN 7 7 [1 WORD FOR A1 AND 16 99Q8 ... SRL 7 2 [SPACE FOR COMMAS 19 99RB ... ADX 6 7 [SPACE FOR (FSN) = 2 WORDS + 21 99SJ ... ADN 6 6 [SPACE FOR '(WPR)' STRING, 5*3 = 4 WO 19 99TQ ... SETUPCORE 6,3,FILE,FINTER [USED TO HOLD CHARACTER TSNS 18 99WY ... STOZ A1(3) [SET CHARACTER COUNT ZERO 21 99Y6 ... LDN 5 0 [X5 SET UP AS MODIFIER FOR FINTER1 6 99_# ...#UNS FTS2 20 9=2G ... LDN 7 0 [SET 'DONT INCREASE LENGTH' FLAG 12 9=3N ...TSNLOOP [ 6 9=4W ...#UNS FTS2 4 9=64 ...( 15 9=7= ... BZE 7 XNOINCREAS [J IF NO 'FS' 15 9=8D ... MHUNTW 3,FILE,FINTER [X3 -> FINTER 17 9=9L ... LDX 7 ALOGLEN(3) [X7 => LOGICAL LENGTH 16 9==S ... ADN 7 2 [INCREASE BY 2 14 9=#2 ... ALTLEN 3,7,FILE,FINTER [INCREASE 20 9=*8 ... LDN 7 0 [SET 'DON'T INCREASE LENGTH' FLAG 6 9=BB ...XNOINCREAS 4 9=CJ ...) 18 9=DQ ... MHUNTW 3,FILE,FINTER1 [FIND BINARY TSNS AGAIN 16 9=FY ... SMO 5 [MODIFIES FINTER1 15 9=H6 ... LDX 6 A1(3) [X6 => TSN 19 9=J# ... CONSERNO 6,ACOMMUNE1 [CONVERT TSN TO CHARACTERS 18 9=KG ... LDX 1 ACOMMUNE1(2) [X1 => CHARACTER COUNT 19 9=LN ... ADN 2 ACOMMUNE2 [X2 -> FIRST TSN CHARACTER 15 9=MW ... MHUNTW 3,FILE,FINTER [X3 -> FINTER 15 9=P4 ... LDX 6 3 [X6 -> FINTER 18 9=Q= ... LDX 3 A1(3) [X3 => CHARACTER COUNT 21 9=RD ... ADN 3 A1+1 [X3 => RELATIVE CHARACTER POSITION 21 9=SL ... ADX 3 6 [X3 => ABSOLUTE CHARACTER POSITION IN 21 9=TS ... MVCH 2 0(1) [MOVE TSN INTO FINTER,X3 IS UPDATED 17 9=X2 ... MHUNTW 2,FILE,FINTER1 [FIND FINTER1 AGAIN 17 9=Y8 ... SBN 2 1 [TO FIND FILESTORE 15 9=_B ... ADX 2 5 [NUMBER AND 17 9?2J ... LF 2,FDTFSNO,1 [IN ORDER TO SEE IF A 16 9?3Q ... LDX 2 A1+2(2) [WPR IS NEEDED 17 9?4Y ... BBS 7,2,XNOWPR [J IF NO WPR REQUIRED 4 9?66 ...[ 14 9?7# ...[ INSERT '(WPR)' STRING IF NECESSARY 4 9?8G ...[ 16 9?9N ... SMO FX1 [X1 WAS CORRUPTED 20 9?=W ... LDN 2 QWPR [X2 => ADDRESS OF STRING (WPR) 18 9?#4 ... MVCH 2 5 [MOVE THE FIVE CHARACTERS 6 9?*= ...#UNS FTS2 19 9?BD ... BNZ 1 (GEOERR) [J IF ALIEN TAPE NEEDS WPR! 4 9?CL ...[ 12 9?DS ...[ NOW INSERT FILESTORE NUMBER 4 9?G2 ...[ 12 9?H8 ...XNOWPR [ 6 9?JB ...#UNS FTS2 4 9?KJ ...( 17 9?LQ ... BZE 1 XNOFSNO [J IF HOST FILESTORE 15 9?MY ... SMO FX1 [X1 CORRUPTED 17 9?P6 ... LDN 2 QFSNO [X2 -> STRING '(FS' 19 9?Q# ... MVCH 2 3 [MOVE THE THREE CHARACTERS 19 9?RG ... LDN 7 1 [SET 'INCREASE LENGTH' FLAG 12 9?SN ... SMO FX1 [ 21 9?TW ... DVS 0 TEN [CONVERT FILESTORE NUMBER TO DECIMAL 20 9?X4 ... LDN 2 2 [X2 => COUNT OF RELEVENT CHARS 21 9?Y= ... SLL 1 18 [QUOTIENT IN TOP CHARACTER POSITION 19 9?_D ... SLL 0 12 [REMAINDER IN SECOND POSITION 16 9#2L ... BNZ 1 XTWOCHAR [J IF TWO CHARS 17 9#3S ... SBN 2 1 [ONLY ONE CHARACTER 19 9#52 ... SLL 0 6 [REMAINDER IN TOP POSITION 12 9#68 ...XTWOCHAR [ 18 9#7B ... ORX 1 0 [X1 => FILESTORE IN CHARS 15 9#8J ... BZE 1 (GEOERR) [X1 ILLEGAL 12 9#9Q ... SMO FX2 [ 18 9#=Y ... STO 1 ACOMMUNE1 [STORE FILESTORE NUMBER 15 9##6 ... LDX 1 2 [X1 => COUNT 12 9#*# ... SMO FX2 [ 18 9#BG ... LDN 2 ACOMMUNE1 [X2 -> FILESTORE NUMBER 15 9#CN ... SMO 1 [X1 => 1 OR 2 16 9#DW ... MVCH 2 0 [MOVE CHARACTERS 15 9#G4 ... LDN 0 #31 [X0 => ')' 16 9#H= ... DCH 0 0(3) [PUT ) IN FINTER 18 9#JD ... BCHX 3 / [UPDATE CHARACTER BY ONE 4 9#KL ...) 4 9#LS ...[ 10 9#N2 ...[ NOW INSERT A SPACE 4 9#P8 ...[ 12 9#QB ...XNOFSNO [ 15 9#RJ ... LDN 0 #20 [X0 => SPACE 17 9#SQ ... DCH 0 0(3) [PUT COMMA IN FINTER 20 9#TY ... BCHX 3 / [UPDATE CHARACTER COUNT BY ONE 17 9#X6 ... SBX 3 6 [RESET X3 TO CONTAIN 17 9#Y# ... SBN 3 A1+1 [NEW CHARACTER COUNT 12 9#_G ... SMO 6 [ 21 9*2N ... STO 3 A1 [STORE NEW CHARACTER COUNT IN FINTER 16 9*3W ... ADN 5 2 [UPDATE MODIFIER 20 9*54 ... BCT 4 TSNLOOP [J IF NOT ALL TSNS YET CONVERTED 4 9*6= ...[ 15 9*7D ...[ ALL TSNS NOW CONVERTED - OUTPUT MESSAGE 4 9*8L ...[ 15 9*9S ... MHUNTW 3,FILE,FINTER [FIND FINTER 19 9*?2 ... LDX 2 A1(3) [X2 => CHARACTER COUNT WORD 17 9*#8 ... SLC 2 2 [NO. OF CHARACTERS 18 9**B ... SBN 2 1 [DONT OUTPUT LAST COMMA 17 9*BJ ... OUTEXES 2,A1+1,FILE,FINTER [OUTPUT %B OF MESSAGE 17 9*CQ ... MFREEW FILE,FINTER [GET RID OF FINTER 16 9*DY ... CALL 7 OUTMON [OUTPUT MESSAGE 9 9*G6 ... +JMTLOAD 5 9*H# ...XNOMESS1 17 9*JG ... MFREEW FILE,FINTER1 [FREE FILE/FINTER1 5 9*KN ...XNOMESS2 21 9*LW ... UP [RETURN FROM WHENCE WE CAME (SCHEDMTX 4 9*N4 ...) 4 9*SW [ 19 9B#G ...[ MESSAGE-MT%A %B %C%D WRONGED MAKING INC%E %F UNAVAILABLE 4 9BS6 [ 21 9B_# ...[ ******************************************************************** 4 9C6G ...[ 5 9C?Q X4DTSUBS 20 9CRB CALL 7 TSNS [CONVERT LIST OF TSNS FROM PSEUDO 20 9D?2 [INCINDEX RECORD IN APROC BLOCK 7 9DGS ... OUTNULL 10 9DQL BRN OUTWRNGMES 4 9F== [ 14 9FH7 ...[ O/P LIST OF INCREMENTS AND MESSAGE: 17 9FS4 ...[ MT%A %B %C%D WRONGED MAKING INC%E %F UNAVAILABLE 20 9G4_ ...[ %A AND %B ARE NULL, %C AND %D ALREADY OUTPUT (BY DTWRONG) 4 9G*W ...[ 21 9GLR ...[ ******************************************************************** 4 9GXN ...[ 6 9H8Q X10DTSUBS 20 9HNB OUTWRNGMES [SEND MESSAGE ABOUT WRONGED TAPES 9 9J82 CALL 7 OUTINCNOS 9 9JML CALL 7 OUTMON 10 9K7= ... +HMTWRONGP 5 9KLW UP 4 9L6G [ 21 9LL6 [ MESSAGE OF THE TYPE-INC %A ON MT%B %C-DEAL WITH A,B,C FROM APROC 4 9LTY ...[ 21 9M5Q ...[ ******************************************************************** 4 9M*J ...[ 6 9MKB X12DTSUBS 10 9N52 MHUNTW 2,FILE,APROC 10 9NJL OUTNUM AINCNO(2),0 9 9P4= CALL 7 OUTTAPE 5 9PHW UP 17 9Q3G [ ENTRY POINTS FOR OUTINCS,OUTTSNS AND OUTINCTSN MACROS 4 9Q7C ...[ 21 9Q?# ...[ ******************************************************************** 4 9QC9 ...[ 6 9QH6 X13DTSUBS 9 9R2Q CALL 7 OUTINCNOS 5 9RGB UP 4 9RKG ...[ 21 9RNL ...[ ******************************************************************** 4 9RRQ ...[ 4 9RWW ...[ 6 9S22 X14DTSUBS 18 9SFL CALL 7 OUTTAPE [ WITH NO PARAMETER 5 9S_= UP 4 9T57 ...[ 21 9T94 ...[ ******************************************************************** 4 9T#_ ...[ 6 9TDW X15DTSUBS 18 9TYG CALL 7 TSNS [ WITH PARAMETER ARE 5 9WD6 UP 10 9WXQ MENDAREA 20,K99DTSUBS 4 9XCB #END 2 9XX2 8 ____ ...76463364000100000000