Use random instead of sequential access to wordlists

[hackerb9]

Currently M100LE takes a long time when starting up as it reads through WL20xx.DO one word at a time. I've created a sample program that can instantly find the word by using the Ram Directory to lookup the file's location in RAM.

Click to see RNDACC.DO

0 REM RNDACC by hackerb9 2022
1 REM Random access to files in RAM.
2 ' This program can read directly
3 ' from a file without OPENing it.
4 ' When you just need a small bit
5 ' of a large file, this is faster.
6 ' 
7 ' Files change their location in RAM,     moving aside as other files grow. 
8 ' Note: EDIT modifies a hidden file,      but not the directory pointers!
9 ' CLEAR refreshes the pointers.
10 CLEAR
12 ' HW ID. 51=M100, 171=T200, 148=NEC,      35=M10, 225=K85
13 ID=PEEK(1)
14 ' Ram Directory address. (Anderson's "Programming Tips" gives RD=63842 for M100 and 62034 for T200.)
15 ' (Gary Weber's NEC.MAP gives RD=63567, but we can skip the system files by starting at 63633.)
16 RD=-( 63842*(ID=51) + 62034*(ID=171) + 63633*(ID=148) )
17 ' WL20xx.DO is the wordle wordlist        for each day in 20xx.
18 WL$="WL20"+RIGHT$(DATE$, 2)+".DO"
19 ' Search directory for "WL20xx.DO" 
20 FOR A = RD TO 65535 STEP 11
29 ' Attribute flag: See Oppedahl's "Inside the TRS-80 Model 100" for details.
30 FL=PEEK(A) 
39 ' Stop at end of directory (255)
40 IF FL=255 THEN 300
49 ' X is file address in memory
50 X=PEEK(A+1)+256*PEEK(A+2)
59 ' Add filename all at once for speed
60 FN$=CHR$(PEEK(A+3)) + CHR$(PEEK(A+4)) + CHR$(PEEK(A+5)) + CHR$(PEEK(A+6)) + CHR$(PEEK(A+7)) + CHR$(PEEK(A+8)) + "." + CHR$(PEEK(A+9)) + CHR$(PEEK(A+10))
69 ' Got filename in FN$
70 PRINT FN$, X
80 IF FN$=WL$ THEN 200
90 NEXT A
99 GOTO 300
200 REM Found WL20xx.DO. Now access it.
210 INPUT "Enter an ordinal date (1 to 366)"; DY
220 DY=DY-1
228 ' X is WL20XX.DO's address in RAM
229 ' Format is 5 letters + CR + LF.
230 FOR T = X+DY*7 TO X+DY*7+5
240 PRINT CHR$(PEEK(T));
250 NEXT
260 PRINT
299 END
300 REM File not found
310 PRINT "Error: File ";WL$;" not found."
320 END

The code is overly garrulous for clarity. It could be much shorter if implemented in M100LE.

[bgri]

Holy smokes that's fast! Awesome work! 18 WL$="WL20"+RIGHT$(DATE$, 2)+".DO": 'REPLACE RIGHT$ WITH LEFT$ FOR NEC

…

On Sun, Aug 7, 2022 at 10:07 PM hackerb9 ***@***.***> wrote: Currently M100LE takes a long time when starting up as it reads through WL20xx.DO one word at a time. I've created a sample program that can instantly find the word by using the Ram Directory to lookup the file's location in RAM. Click to see RNDACC.DO 0 REM RNDACC by hackerb9 20221 REM Random access to files in RAM.2 ' This program can read directly3 ' from a file without OPENing it.4 ' When you just need a small bit5 ' of a large file, this is faster.6 ' 7 ' Files change their location in RAM, moving aside as other files grow. 8 ' Note: EDIT modifies a hidden file, but not the directory pointers!9 ' CLEAR refreshes the pointers.10 CLEAR12 ' HW ID. 51=M100, 171=T200, 148=NEC, 35=M10, 225=K8513 ID=PEEK(1)14 ' Ram Directory address. (Anderson's "Programming Tips" gives RD=63842 for M100 and 62034 for T200.)15 ' (Gary Weber's NEC.MAP gives RD=63567, but we can skip the system files by starting at 63633.)16 RD=-( 63842*(ID=51) + 62034*(ID=171) + 63633*(ID=148) )17 ' WL20xx.DO is the wordle wordlist for each day in 20xx.18 WL$="WL20"+RIGHT$(DATE$, 2)+".DO"19 ' Search directory for "WL20xx.DO" 20 FOR A = RD TO 65535 STEP 1129 ' Attribute flag: See Oppedahl's "Inside the TRS-80 Model 100" for details.30 FL=PEEK(A) 39 ' Stop at end of directory (255)40 IF FL=255 THEN 30049 ' X is file address in memory50 X=PEEK(A+1)+256*PEEK(A+2)59 ' Add filename all at once for speed60 FN$=CHR$(PEEK(A+3)) + CHR$(PEEK(A+4)) + CHR$(PEEK(A+5)) + CHR$(PEEK(A+6)) + CHR$(PEEK(A+7)) + CHR$(PEEK(A+8)) + "." + CHR$(PEEK(A+9)) + CHR$(PEEK(A+10))69 ' Got filename in FN$70 PRINT FN$, X80 IF FN$=WL$ THEN 20090 NEXT A99 GOTO 300200 REM Found WL20xx.DO. Now access it.210 INPUT "Enter an ordinal date (1 to 366)"; DY220 DY=DY-1228 ' X is WL20XX.DO's address in RAM229 ' Format is 5 letters + CR + LF.230 FOR T = X+DY*7 TO X+DY*7+5240 PRINT CHR$(PEEK(T));250 NEXT260 PRINT299 END300 REM File not found310 PRINT "Error: File ";WL$;" not found."320 END The code is overly garrulous for clarity. It could be much shorter if implemented in M100LE. — Reply to this email directly, view it on GitHub <#15>, or unsubscribe <https://github.com/notifications/unsubscribe-auth/ADLJII5LH4V7LVCOPPVTDL3VYCBY3ANCNFSM553UY3CA> . You are receiving this because you are subscribed to this thread.Message ID: ***@***.***>

-- -- Brad Grier ----------

[hackerb9]

18 WL$="WL20"+RIGHT$(DATE$, 2)+".DO": 'REPLACE RIGHT$ WITH LEFT$ FOR NEC

Oh shoot, I forgot about European versus American style dates. I bet the European versions of the Model 100 would need that change as well. I wonder how to detect that, or if it is even possible.

[bgri]

Still waking up, only on first coffee :)

I guess one way to do it is determine the hardware. I recall the Backpack device has code that can do it...

10 CLS:?"---INITIAL PROGRAM LOADER II---
20 ?"       WAIT A MINUTE!":CLOSE: P=PEEK(1):M=3:REM Default M100
30 IF P=171 THEN M=4 : REM T200
40 IF P=148 THEN M=5 : REM NEC
50 IF M=3 OR M=4 THEN OPEN"COM:98N1ENN" FOR OUTPUT AS #1
60 IF P=148 THEN OPEN"COM:9N81XN" FOR OUTPUT AS #1
70 ?#1,"FF";CHR$(M);
80 FOR I=1 TO 10:NEXT:CLOSE
90 IF P=148 THEN RUN"COM:9N81XN" ELSE RUN"COM:98N1ENN"
100 REM 148 = NEC, 51 = M100, 167 = M102, 171 = T200, 35 = M10

KC-85 is not in the above code, but VIRTUALT thinks PEEK(1) = 225 when emulating one.

Then, I found locations for the YEAR values for the NEC

TIMYR1  F83C   63548  Year (ones)
TIMYR2  F83D   63549  Year (tens)

So I'm thinking all we need to do is test for the platform, then just PEEK at what the platform thinks is the current year, provided we know where to find them in memory :)

That way we don't really need to worry about the left/right format... the platform does that. We just check the values.

[hackerb9]

KC-85 is not in the above code, but VIRTUALT thinks PEEK(1) = 225 when emulating one.

Then, I found locations for the YEAR values for the NEC

TIMYR1  F83C   63548  Year (ones)
TIMYR2  F83D   63549  Year (tens)

Clever! Since there is at least one other location where the year is calculated, I'll create a new issue for that as a specific bug.

[hackerb9]

Here's a table of the location of the RAM Directory for the various machines.

	ID in PEEK(1)	Address of Ram Directory	# slots	Reference
Model 100 Tandy 102	51 167	63842	27	Anderson
Tandy 200	171	62034	55	T200 TR
NEC PC-8201/8201A/8300	148	63567	27	8201A TR Weber
Olivetti M10 Europe	35
Olivetti M10 America	125
Kyocera K85	225		27	KC85 Service