11 22FL #OPT K0LISTRING = 0 10 22_= #LIS K0LISTRING 14 23DW #SEG LISTRING [ COMM 7 23YG 8HLISTRING 4 24D6 [ 21 24XQ SEGENTRY K1LISTRING,Z1LISTRING [ CONTEXT ^FROM^ & ^TO^ FOR LISTFILE 20 25CB SEGENTRY K2LISTRING,Z2LISTRING [ CONTEXT SELECTION TRANSLATION 21 25X2 SEGENTRY K3LISTRING,Z3LISTRING [ FILE EMPTY DETECTED BY LISTPARS/LIST 4 262X ...[ 17 266S ...[ENTRY POINTS K50,K51,K52,K53 USED BY LFALLTRANS MACRO 4 26=P ...[ 4 26BL [ 4 26W= [ 21 27*W [*********************************************************************** 4 27TG [ 7 28*6 [ PRESET DATA 4 28SQ [ 21 29#B [*********************************************************************** 4 29S2 [ 11 2=?L PDELIM 14H/?'<>;:=!/&+^0 8 2=R= PC #43 8 2?=W PS #63 8 2?QG P74 #74 12 2#=6 PEMPTY 11,#42,10HFILE EMPTY 14 2#PQ PLINE 18,#42,17HLINE NUMBER ERROR 14 2*9B PSPECSTR 18,#42,17HSPECIFIED STRING 11 2*P2 PNOTFOUND 10,10H NOT FOUND 21 2B8L TAB48 [ INVALID CHARACTERS IN 48 CHAR SET 12 2BN= #12,#13,#14,#16,#17 11 2C7W #21,#22,#23,#25 8 2CMG #40 12 2D76 #73,#74,#75,#76,#77 4 2DLQ [ 12 2F6B #DEF TAB48LEN = 0? - TAB48 9 2FL2 PNEWLINES #76327632 4 2G5L [ 21 2GK= [*********************************************************************** 4 2H4W [ 6 2HJG SNONSPACE 4 2J46 [ 21 2JHQ [*********************************************************************** 4 2K3B [ 13 2KH2 [ MOVE X3 TO NEXT NON SPACE CHARACTER 4 2L2L [ 9 2LG= [ X4 = LENGTH OF DATA 4 2L_W [ 7 2MFG WHILE TRUE 7 2M_6 SBN 4 1 16 2NDQ AND 4,NZ [ MORE CHARACTERS 7 2NYB BCHX 3 / 8 2PD2 LDCH 0 0(3) 8 2PXL SBN 0 #20 13 2QC= AND 0,ZE [ SPACE 5 2QWW DO 6 2RBG REPEAT 7 2RW6 EXIT 6 0 4 2S*Q [ 21 2STB [*********************************************************************** 4 2T*2 [ 6 2TSL SFREELINK 4 2W#= [ 21 2WRW [*********************************************************************** 4 2X?G [ 10 2XR6 [ FORGET DOWN FROM LISTFILE 4 2Y=Q [ 6 2YQB FREELINK 7 2_=2 EXIT 7 0 4 2_PL [ 4 329= [ 21 32NW [*********************************************************************** 4 338G [ 4 33N6 STEP 4 347Q [ 21 34MB [*********************************************************************** 4 3572 [ 10 35LL [ GET NEXT RECORD OF FILE 4 366= [ 6 36KW [ ON EXIT 8 375G [ X1 -> GOUT / INFO 10 37K6 [ X3 - FIRST WORD OF DATA 10 384Q [ ZERO IF END OF FILE 11 38JB [ X4 - LENGTH OF DATA IN CHARS 4 3942 [ 7 39HL SBX 6 FX1 9 3=3= LDX 1 AWORK1(2) 7 3=GW STEP 0(1) 9 3?2G TESTBRKIN ZBREAKIN 7 3?G6 ADX 6 FX1 4 3?_Q [ 5 3#FB STEPA 4 3#_2 [ 11 3*DL [ SAME EXCEPT AFTER STEPAGAIN 4 3*Y= [ 9 3BCW MHUNT 1,GOUT,INFO 16 3BXG IF 3,NZ [ NOT END OF FILE 5 3CC6 THEN 15 3CWQ IF BS,1,BLFBASIC [ BASIC FILE 6 3DBB THEN 9 3DW2 LDCT 0 #600 9 3F*L ANDX 0 1(3) 17 3FT= SLC 0 2 [ USED CHARACTERS 17 3G#W IF 0,ZE [ USED ALL 4 CHARS 7 3GSG THEN 9 3H#6 LDN 0 4 6 3HRQ FI 9 3J?B LDEX 4 0(3) 8 3JR2 SLL 4 2 21 3K=L SBN 4 12 [ TWO WORDS OF RED TAPE AND LAST W 16 3KQ= ADX 4 0 [ DATA LENGTH 15 3L9W ADN 3 2 [ -> DATA 6 3LPG ELSE 9 3M96 LDEX 4 0(3) 8 3MNQ SLL 4 2 16 3N8B SBN 4 4 [ DATA LENGTH 15 3NN2 ADN 3 1 [ -> DATA 5 3P7L FI 5 3PM= FI 8 3PQB ... IF 4,NG 6 3PTG ... THEN 7 3PYL ... STOZ 4 5 3Q3Q ... FI 7 3Q6W EXIT 6 0 4 3QLG [ 4 3R66 [ 21 3RKQ [*********************************************************************** 4 3S5B [ 5 3SK2 SMATCH 4 3T4L [ 21 3TJ= [*********************************************************************** 4 3W3W [ 13 3WHG [ MATCH RECORD AGAINST CONTEXT STRING 4 3X36 [ 13 3XGQ [ X1 -> CONTEXT STRING ( FIRST WORD ) 9 3Y2B [ X3 -> RECORD ( DATA ) 9 3YG2 [ X5 -> LENGTH OF STRING 4 3Y_L [ 7 3_F= WHILE TRUE 8 3_YW LDCH 0 1(1) 8 42DG LDCH 2 0(3) 14 42Y6 AND 0,E,2 [ CHARS SAME 5 43CQ DO 7 43XB BCHX 1 / 7 44C2 BCHX 3 / 7 44WL REPEAT CT 5 7 45B= LDX 2 FX2 7 45TW EXIT 6 0 4 46*G [ 4 46T6 [ 21 47#Q [*********************************************************************** 4 47SB [ 5 48#2 SCONTEXT 4 48RL [ 21 49?= [*********************************************************************** 4 49QW [ 11 4==G [ SEARCH FILE FOR CONTEXT STRING 4 4=Q6 [ 12 4?9Q [ X5 = DISPLACEMENT TO CONTEXT DATA 4 4?PB [ 6 4#92 [ ON EXIT 8 4#NL [ X1 -> GOUT / INFO 6 4*8= [ X2 = FX2 10 4*MW [ X3 = ZERO IF END OF FILE 11 4B7G [ X5 = NO. OF RECORDS SKIPPED 4 4BM6 [ 7 4C6Q SBX 7 FX1 21 4CLB STO 5 AWORK2(2) [ DISPLACEMENT TO FIRST WORD OF STRING 14 4D62 STOZ 5 [ RECORDS 16 4DKL WHILE 3,NZ [ NOT END OF FILE 10 4F5= STO 5 ACOMMUNE1(2) 10 4FJW MHUNT 1,GOUT,INFO 18 4G4G ADX 1 AWORK2(2) [ -> FIRST WORD OF STRING 8 4GJ6 ADN 1 A1 16 4H3Q LF 1,FLFSTRLEN,5 [ STRING LENGTH 13 4HHB IF BS,1,BLFCSEARCH [ ^C^ 6 4J32 THEN 21 4JGL WHILE 4,GE,5 [ RECORD LENGTH >= STRING LENGTH 12 4K2= STO 5 ACOMMUNE2(2) 12 4KFW STO 3 ACOMMUNE3(2) 12 4K_G STO 1 ACOMMUNE4(2) 10 4LF6 CALL 6 SMATCH 16 4LYQ AND 5,NZ [ NOT MATCH 6 4MDB DO 12 4MY2 LDX 1 ACOMMUNE4(2) 12 4NCL LDX 3 ACOMMUNE3(2) 12 4NX= LDX 5 ACOMMUNE2(2) 19 4PBW SBN 4 1 [ START FROM NEXT CHAR 9 4PWG BCHX 3 / 7 4QB6 REPEAT 6 4QTQ ELSE 14 4R*B IF BS,1,BLFSSEARCH [ ^S^ 7 4RT2 THEN 10 4S#L WHILE TRUE 10 4SS= LDCH 0 0(3) 10 4T?W SBN 0 #20 15 4TRG AND 0,ZE [ SPACE 7 4W?6 DO 10 4WQQ BCHX 3 / 10 4X=B REPEAT CT 4 6 4XQ2 FI 20 4Y9L IF 4,GE,5 [ ENOUGH CHARS LEFT IN RECORD 7 4YP= THEN 10 4_8W CALL 6 SMATCH 6 4_NG FI 5 5286 FI 7 52MQ LDX 0 5 10 537B LDX 5 ACOMMUNE1(2) 16 53M2 AND 0,NZ [ MATCH NOT FOUND 5 546L DO 8 54L= CALL 6 STEP 7 555W ADN 5 1 6 55KG REPEAT 9 5656 MHUNT 1,GOUT,INFO 7 56JQ ADX 7 FX1 7 56L3 ... EXIT 7 0 4 56M# ...[ 4 56NK ...[ 19 56PW ...[*************************************************************** 4 56R7 ...[ 10 56SD ... SEGENTRY K53LISTRING 6 56TP ...STORETRANS 4 56X2 ...[ 19 56Y? ...[*************************************************************** 4 56_J ...[ 14 572T ...[ STORES LINES SKIPPED IN ALFTRANS OF ACTLF 12 5746 ...[ X1 - POINTER TO GOUT/INFO BLOCK 13 575C ...[ X5 - CONTAINS NUMBER OF LINES SKIPPED 7 576N ...[ CALLED ON X7 4 577_ ...[ 10 579= ... IF BC,1,BLFREST2 11 57=H ... LDCH 0 ATYPE(2) 11 57?S ... SBN 0 ACTLF/64 8 57*5 ... AND 0,ZE 6 57BB ... THEN 12 57CM ... STO 5 ALFTRANS(2) 5 57DY ... FI 7 57G9 ... EXIT 7 0 4 57J2 [ 4 583L [ 21 58H= [*********************************************************************** 4 592W [ 5 59GG SERROR 4 5=26 [ 21 5=FQ [*********************************************************************** 4 5=_B [ 12 5?F2 [ ADD ERROR LINE TO HEADING BLOCK 4 5?YL [ 8 5#D= [ X6 - ERROR MESSAGE 4 5#XW [ 6 5*CG [ ON EXIT 9 5*X6 [ X1 -> LENGTH OF LINE 11 5BBQ [ X3 -> NEXT CHARACTER POSITION 4 5BWB [ 7 5CB2 SBX 7 FX1 9 5CTL MHUNTW 1,GOUT,INFO 15 5D*= BS 1,BLFFRTOER [ ERROR FOUND 10 5DSW HUNT 1,ADATA,HEADING 18 5F#G IF 1,NG [ BLOCK NOT ALREADY SET UP 5 5FS6 THEN 14 5G?Q SETNCORE HEADCNT-A1+27,1,ADATA,HEADING 9 5GRB LDN 0 HEADCNT 10 5H?2 STO 0 HEADREC(1) 7 5HQL ELSF TRUE 10 5J== LDX 0 ALOGLEN(1) 10 5JPW SBX 0 HEADREC(1) 8 5K9G SBN 0 27+1 16 5KP6 AND 0,NG [ NOT ENOUGH ROOM 5 5L8Q THEN 10 5LNB LDX 4 HEADREC(1) 8 5M82 ADN 4 27 11 5MML ALTLEN 1,4,ADATA,HEADING 11 5N7= MHUNT 1,ADATA,HEADING 5 5NLW FI 17 5P6G ADX 1 HEADREC(1) [ -> LENGTH OF RECORD 16 5PL6 LDX 3 1 [ -> FIRST FREE WORD 7 5Q5Q LDX 2 6 7 5QKB ADX 2 FX1 7 5R52 SMO 0(2) 19 5RJL MVCH 2 7 [ MOVE STRING AND ITS LENGTH IN 7 5S4= LDX 2 FX2 8 5SHW LDX 0 ATYPE(2) 7 5T3G SRL 0 12 10 5TH6 SBN 0 ACTLF+GREMOTE 16 5W2Q IF 0,ZE [ REMOTE LISTFILE 5 5WGB THEN 8 5X22 SMO FX1 9 5XFL LDX 0 PNEWLINES 16 5X_= STO 0 1(1) [ PFCC TO N/L N/L 7 5YDW LDN 0 3 15 5YYG ADS 0 0(1) [ CHAR COUNT 5 5_D6 FI 7 5_XQ ADX 7 FX1 7 62CB EXIT 7 0 4 62X2 [ 4 63BL [ 4 63W= [ 8 64*W [ WW WW W 8 64TG [ WW WW WW 8 65*6 [ WW WW WWW 8 65SQ [ WWWW WW 8 66#B [ WWWWW WW 8 66S2 [ WW WW WW 8 67?L [ WW WW WW 8 67R= [ WW WW WW 4 68=W [ 6 68QG Z1LISTRING 4 69=6 [ 13 69PQ [ ANALYSE CONTEXT FROM AND TO PARAMETERS 4 6=9B [ 9 6=P2 [ ENVIRONMENT ON ENTRY 16 6?8L [ X4 = CONTAINS FROM / TO MARKER ( B0 SET = FROM ) 10 6?N= [ X5 = LENGTH OF KEYWORD 14 6#7W [ CPB / CUNI GENERATED BY PARABEG EXISTS 9 6#MG [ GOUT / INFO EXISTS 4 6*76 [ 16 6*LQ STO 4 AWORK1(2) [ FROM / TO MARKER 4 6B6B [ 13 6BL2 [ GET COMPLETE PARAMETER WITH ALL SPACES 18 6C5L MHUNT 3,CPB,CUNI [ REST OF FROM/TO PARAMETER 9 6CK= LDX 4 JPARNUM(3) 7 6D4W FREECORE 3 7 6DJG LDN 3 0 17 6F46 SPARANOX 4,3 [ GET COMPLETE PARAMETER 9 6FHQ MHUNT 2,CPB,CUNI 8 6G3B LDX 4 ANUM(2) 18 6GH2 ANDN 4 #7777 [ X4 = LENGTH OF PARAMETER 4 6H2L [ 12 6HG= [ GET FIRST CHARACTER AFTER KEYWORD 10 6H_W [ MUST IGNORE SPACE CHARS 8 6JFG LDN 3 APARA(2) 5 6J_6 DO 9 6KDQ CALL 6 SNONSPACE 21 6KYB BZE 4 ZNULL [ J IF NO MORE CHARACTERS IN PARAMETE 7 6LD2 REPEAT CT 5 18 6LXL LDCH 0 0(3) [ FIRST CHAR AFTER KEYWORD 13 6MC= IF 0,E,PC(1) [ ^C^ 5 6MWW THEN 18 6NBG BSXD 7,BLFCSEARCH [ X7 BECOMES GHEAD + D 9 6NW6 CALL 6 SNONSPACE 8 6P*Q BZE 4 ZNULL 13 6PTB ELSF 0,E,PS(1) [ ^S^ 5 6Q*2 THEN 10 6QSL BSXD 7,BLFSSEARCH 9 6R#= CALL 6 SNONSPACE 8 6RRW BZE 4 ZNULL 5 6S?G ELSE 10 6SR6 BSXD 7,BLFSEARCH 5 6T=Q FI 4 6TQB [ 9 6W=2 [ FIND DELIMITING CHAR 7 6WPL LDCH 0 0(3) 7 6X9= WHILE TRUE 9 6XNW LDCH 5 PDELIM(1) 18 6Y8G BZE 5 ZNOTDELIM [ J IF TABLE EXHAUSTED 15 6YN6 AND 0,U,5 [ NOT DELIMITER 5 6_7Q DO 8 6_MB REPEAT CHX 1 4 7272 [ 11 72LL [ LOOK FOR TRAILING DELIMITER 17 736= BCHX 3 / [ SKIP FIRST DELIMITER 7 73KW SBN 4 1 16 745G BZE 4 ZUNPAIR [ J IF NO MORE CHARS 7 74K6 LDX 1 3 19 754Q SBX 3 2 [ START DISPLACEMENT IN CPB/CUNI 17 75JB LDN 6 0 [ NO. OF CHARS IN STRING 7 7642 WHILE TRUE 8 76HL LDCH 0 0(1) 15 773= AND 0,U,5 [ NOT DELIMITER 5 77GW DO 7 782G ADN 6 1 7 78G6 BCHX 1 / 7 78_Q REPEAT CT 4 20 79FB BZE 4 ZUNPAIR [ J IF TRAILING DELIMITER NOT FOUND 7 79_2 SBN 4 1 16 7=DL WHILE 4,NZ [ MORE CHARACTERS 5 7=Y= DO 7 7?CW BCHX 1 / 8 7?XG LDCH 0 0(1) 8 7#C6 SBN 0 #20 19 7#WQ BNZ 0 ZUNPAIR [ J IF MORE NON-SPACE CHARS 7 7*BB REPEAT CT 4 16 7*W2 BZE 6 ZNULL [ J IF NULL STRING 7 7B*L SBN 6 41 17 7BT= BPZ 6 ZTOOLONG [ J IF STRING > 40 CHARS 7 7C#W ADN 6 41 19 7CSG ORS 6 7 [ STRING LENGTH FOR GHEAD + D 4 7D#6 [ 8 7DRQ [ PUT IN GOUT/INFO 9 7F?B MHUNT 2,GOUT,INFO 9 7FR2 LDX 5 ALOGLEN(2) 7 7G=L SMO FX2 8 7GQ= LDX 0 AWORK1 13 7H9W IF 0,NG [ FROM 5 7HPG THEN 19 7J96 STO 5 GFLI(2) [ POINTER TO CONTEXT STRING 10 7JNQ BS 2,BLFFRCTEXT 5 7K8B ELSE 9 7KN2 STO 5 GNLI(2) 10 7L7L BS 2,BLFTOCTEXT 5 7LM= FI 16 7M6W ADN 6 4+3 [ CHARS TO WORDS + 1 7 7MLG SRL 6 2 7 7N66 ADX 5 6 10 7NKQ ALTLEN 2,5,GOUT,INFO 9 7P5B MHUNT 2,GOUT,INFO 21 7PK2 LDX 4 A1(2) [ OLD RECORD LENGTH -> START OF NEW STRI 9 7Q4L LDX 5 ALOGLEN(2) 16 7QJ= STO 5 A1(2) [ NEW RECORD LENGTH 7 7R3W ADX 2 4 14 7RHG STO 7 A1(2) [ GHEAD+D 7 7S36 ADN 2 A1+1 9 7SGQ MHUNT 1,CPB,CUNI 17 7T2B ADX 1 3 [ X1 -> START POINTER 8 7TG2 ANDN 7 #7777 7 7T_L SMO 7 7 7WF= MVCH 1 0 8 7WYW MFREE CPB,CUNI 5 7XDG UP 4 7XY6 [ 4 7YCQ [ 4 7YXB [ 8 7_C2 [ WW WW WWWWW 8 7_WL [ WW WW WW WW 8 82B= [ WW WW WW 8 82TW [ WWWW WW 8 83*G [ WWWWW WWWWW 7 83T6 [ WW WW WW 7 84#Q [ WW WW WW 8 84SB [ WW WW WWWWWWWW 4 85#2 [ 6 85RL Z2LISTRING 4 86?= [ 4 86QW [ 15 87=G [ CONVERT CONTEXT SELECTION TO LINES SELECTION 17 87Q6 [ LEAVING FILE POSITIONED AT FIRST RECORD TO BE LISTED 4 889Q [ 9 8992 MHUNT 1,GOUT,INFO 14 89NL STOZ AWORK1(2) [ FILE DEPTH 14 8=8= IF BS,1,BLFSETUP [ SETUP FILE 5 8=MW THEN 7 8?7G LDN 0 1 9 8?M6 STO 0 AWORK1(2) 5 8#6Q FI 7 8#LB CALL 6 STEP 9 8*62 BZE 3 ZFILEEMPTY 4 8*KL [ 8 8B5= [ CONVERSION CODE 8 8BJW LDX 0 GFLI(1) 7 8C4G ADN 0 2 21 8CJ6 BZE 0 ZLINEERROR [ J IF ERROR FOUND BY PRE 8.63 LISTRING 4 8D3Q [ 9 8F32 [ END OF CONVERSION CODE 4 8FGL [ 17 8G2= IF BS,1,BLFFRCTEXT [ ^FROM^ CONTEXT SEARCH 5 8GFW THEN 10 8G_G LF 1,FLFFRNUM,5 9 8HF6 CALL 7 SCONTEXT 18 8HYQ BZE 3 ZCONTEXTERR [ J IF STRING NOT FOUND 18 8JDB STO 5 GFLI(1) [ CONVERT TO ^FROM^ LINES 10 8JQR ... SEGENTRY K50LISTRING 6 8K58 ... NULL 15 8KCL ELSF +GFLI(1),NZ [ ^FROM^ LINES 5 8KX= THEN 19 8L#= ... LF 1,FLFFRNUM,5 [ NO. OF LINES TO BE SKIPPED 10 8LP= ... SEGENTRY K51LISTRING 6 8M6= ... NULL 8 8MH= ... WHILE 5,PZ 17 8MY= ... AND 5,NZ [ LINES TO BE SKIPPED 5 8N*B DO 8 8NT2 ... LDX 1 5 20 8P#L SBN 1 4095 [ MAX LINES SKIPPED IN ONE GO 9 8PS= IF 1,PZ 7 8Q?W THEN 10 8QRG LDN 1 4095 7 8R?6 ELSE 10 8RQQ ADN 1 4095 6 8S=B FI 9 8SQ2 ... SBN 5 4095 10 8T9L LDX 3 AWORK1(2) 10 8TP= VSKIP 0(3),0(1) 17 8W8W BZE 3 ZLINEERROR [ J IF END OF FILE 12 8WNG TESTREP ENDFILE,ZLINEERROR 6 8X86 REPEAT 5 8XMQ FI 9 8Y7B MHUNT 1,GOUT,INFO 17 8YM2 IF BS,1,BLFTOCTEXT [ ^TO^ CONTEXT SEARCH 5 8_6L THEN 10 8_L= LF 1,FLFTONUM,5 10 925W SFCA AWORK1(2),3 20 92KG QKTABSET 3,AWORK3(2),AWORK4(2) [ SAVE TABS TO START POSITION 9 9356 LDX 1 AWORK1(2) 8 93JQ STEPAGAIN 0(1) 8 944B CALL 6 STEPA 9 94J2 CALL 7 SCONTEXT 18 953L BZE 3 ZCONTEXTERR [ J IF STRING NOT FOUND 15 95H= ADN 5 1 [ INCLUSIVE 17 962W STO 5 GNLI(1) [ CONVERT TO ^LINES^ 7 96GG SBN 5 1 9 9726 ADX 5 GFLI(1) 10 97*T ... SEGENTRY K52LISTRING 6 97PJ ... NULL 10 985? ... SFCA AWORK1(2),3 19 98F2 QKTABULATE 3,AWORK3(2),AWORK4(2) [ RESET TO START POINT 15 98YL ELSF BS,1,BLFTO [ ^TO^ NUMBER 5 99D= THEN 10 99XW ... LF 1,FLFFRNUM,5 10 9=CG ... LF 1,FLFTONUM,4 7 9=X6 SBX 4 5 17 9?BQ BNG 4 ZLINEERROR [ J IF ^TO^ < ^FROM^ 15 9?WB ADN 4 1 [ INCLUSIVE 17 9#B2 STO 4 GNLI(1) [ CONVERT TO ^LINES^ 5 9#TL FI 7 9**= LDX 2 FX2 17 9*SW IF BS,2,BLFFREADERR [ READ ERROR - FLAG M 5 9B#G THEN 10 9BS6 MHUNT 1,GOUT,INFO 10 9C?Q BS 1,BLFCORRUPT 10 9CRB BC 2,BLFFREADERR 5 9D?2 FI 5 9DQL UP 4 9F== [ 4 9FPW [ 4 9G9G [ 21 9GP6 [*********************************************************************** 4 9H8Q [ 8 9HNB [ ERROR CONDITIONS 4 9J82 [ 21 9JML [*********************************************************************** 4 9K7= [ 5 9KLW ZNULL 9 9L6G CALL 7 SFREELINK 8 9LL6 COMERR JNULLPAR 4 9M5Q [ 6 9MKB ZNOTDELIM 5 9N52 ZUNPAIR 9 9NJL CALL 7 SFREELINK 8 9P4= COMERR ERUNPAIR 4 9PHW [ 5 9Q3G ZTOOLONG 9 9QH6 CALL 7 SFREELINK 9 9R2Q COMERR ALFSTRBIG 4 9RGB [ 5 9S22 ZBREAKIN 12 9SFL [ ASSUMED LF TO MONITORING FILE ONLY 9 9S_= CALL 7 SFREELINK 6 9T94 ... CLOSE 6 9TDW ABANDCOM 4 9TYG [ 4 9WD6 [ 4 9WXQ [ 4 9XCB [ 9 9XX2 [ WW WW WWWWWWWW 8 9YBL [ WW WW WW 8 9YW= [ WW WW WW 8 9_*W [ WWWW WWW 8 9_TG [ WWWWW WW 9 =2*6 [ WW WW WW WW 9 =2SQ [ WW WW WW WW 8 =3#B [ WW WW WWWWWW 4 =3S2 [ 4 =4?L [ 6 =4R= Z3LISTRING 4 =5=W [ 4 =5QG [ 6 =6=6 ZFILEEMPTY 4 =6PQ [ 8 =79B [ MAIN FILE IS EMPTY 4 =7P2 [ 15 =88L LDN 6 PEMPTY [ ^FILE EMPTY^ 8 =8N= CALL 7 SERROR 5 =97W UP 4 =9MG [ 4 ==76 [ 6 ==LQ ZLINEERROR 4 =?6B [ 4 =?L2 [ 8 =#5L [ LINE NUMBER ERROR 4 =#K= [ 17 =*4W LDN 6 PLINE [ ^LINE NUMBER ERROR^ 8 =*JG CALL 7 SERROR 5 =B46 UP 4 =BHQ [ 4 =C3B [ 6 =CH2 ZCONTEXTERR 4 =D2L [ 10 =DG= [ SPECIFIED STRING NOT FOUND 4 =D_W [ 16 =FFG LDN 6 PSPECSTR [ ^SPECIFIED STRING^ 8 =F_6 CALL 7 SERROR 9 =GDQ MHUNT 2,GOUT,INFO 7 =GYB SMO FX2 15 =HD2 ADX 2 AWORK2 [ -> THE STRING 18 =HXL LDX 5 1 [ -> LENGTH OF ERROR LINE 7 =JC= ADN 2 A1 10 =JWW LF 2,FLFSTRLEN,4 15 =KBG ADS 4 0(1) [ ADD IN LENGTH 7 =KW6 ADN 2 1 7 =L*Q SMO FX2 8 =LTB LDX 0 ATYPE 7 =M*2 SRL 0 12 10 =MSL SBN 0 ACTLF+GREMOTE 16 =N#= IF EITHER,0,ZE [ REMOTE LISTFILE 10 =NRW MHUNT 1,GOUT,INFO 9 =P?G LDCH 0 GOPTY(1) 7 =PR6 SBN 0 1 16 =Q=Q OR 0,ZE [ PAPER TAPE PUNCH 5 =QQB THEN 12 =R=2 [ CONVERT #74 - #77 TO #7664 - #7667 8 =RPL LDX 1 FX1 5 =S9= DO 9 =SNW LDCH 0 0(2) 10 =T8G IF 0,L,P74(1) 7 =TN6 THEN 9 =W7Q MVCH 2 1 7 =WMB ELSE 9 =X72 LDN 0 #76 15 =XLL DCH 0 0(3) [ #76 9 =Y6= BCHX 3 / 10 =YKW LDCH 0 0(2) 9 =_5G SBN 0 #10 17 =_K6 DCH 0 0(3) [ #7N -> #6N 9 ?24Q BCHX 2 / 9 ?2JB BCHX 3 / 9 ?342 LDN 0 1 9 ?3HL SMO 5 18 ?43= ADS 0 0 [ INCREMENT LENGTH 6 ?4GW FI 8 ?52G REPEAT CT 4 7 ?5G6 ELSF TRUE 7 ?5PY ... LDX 6 2 8 ?5_Q ... LDX 2 FX2 8 ?69J ... LADDP ,0 7 ?6FB ... SMO 0 9 ?6P8 ... LDX 0 AREPERT 8 ?6_2 ... SLL 0 13 7 ?78S ... LDX 2 6 16 ?7DL AND 0,NG [ 48 CHARACTER SET 5 ?7Y= THEN 5 ?8CW DO 10 ?8XG LDN 6 TAB48LEN 9 ?9C6 LDCH 0 0(2) 9 ?9WQ LDX 1 FX1 20 ?=BB WHILE 0,U,TAB48(1) [ NOT INVALID IN 48 CHAR SET 6 ?=W2 DO 9 ??*L ADN 1 1 9 ??T= REPEAT CT 6 18 ?##W IF 6,ZE [ VALID IN 48 CHAR SET 7 ?#SG THEN 9 ?*#6 MVCH 2 1 7 ?*RQ ELSE 18 ?B?B LDN 0 #20 [ REPLACE BY ^ ^ 10 ?BR2 DCH 0 0(3) 9 ?C=L BCHX 2 / 9 ?CQ= BCHX 3 / 6 ?D9W FI 8 ?DPG REPEAT CT 4 5 ?F96 ELSE 7 ?FNQ SMO 4 14 ?G8B MVCH 2 0 [ STRING 5 ?GN2 FI 7 ?H7L LDX 1 FX1 15 ?HM= LDN 2 PNOTFOUND+1(1) [ ^NOT FOUND^ 9 ?J6W LDX 4 PNOTFOUND(1) 7 ?JLG SMO 4 7 ?K66 MVCH 2 0 7 ?KKQ SMO 5 15 ?L5B ADS 4 0 [ ADD IN LENGTH 5 ?LK2 UP 4 ?M4L [ 4 ?MJ= #END 6 ____ ...555244500003