[FRAM71] Pre-Production Batch

[Dave Frederickson]

I've updated Paul's MEMBUF program to display the memory type, like SHOW PORT.

Code:

10 REAL S1(15) @ S2=15 @ FOR S3=1 TO 15 @ S1(S3)=2^S2/4 @ S2=S2-1 @ NEXT S3 @ S1(15)=.5
15 DIM T$[255]
20 B1=HTD("2F9E6")
25 DISP "Port Dev Seq  Size Addr  Type"
30 B2=B1 @ B3=B1+5 @ I=0 @ K$="FF"
40 GOSUB 300
60 B2=B1+5+L @ B3=B2+5 @ I=1 @ K$="EF"
70 GOSUB 300
100 END 
300 IF PEEK$(DTH$(B2),2)<>K$ THEN 500
320 L$="" @ L$=PEEK$(DTH$(B3-1),1)&PEEK$(DTH$(B3-2),1)&PEEK$(DTH$(B3-3),1) @ L=HTD(L$)
330 T$=PEEK$(DTH$(B3),L)
340 FOR X=1 TO L/10
350 Z=(X-1)*10 @ Z2=Z+1 @ S$=T$[Z2,Z2] @ Z2=Z2+1 @ D$=T$[Z2,Z2] @ Z2=Z2+1 @ P$=T$[Z2,Z2]
360 Z2=Z2+1 @ S=S1(HTD(T$[Z2,Z2]))*(HTD(T$[Z+9,Z+9])+1)
370 A$=T$[Z+7,Z+7]&T$[Z+6,Z+6]&T$[Z+5,Z+5]&"00"
375 T=VAL(T$[Z+8,Z+8])+I
380 DISP USING "AA,aaAA,aaaa,aaAA,3D,aa,7A,D";" ",P$,D$,S$,S,"  ",A$,T
390 NEXT X
400 RETURN 
499 END 
500 DISP "Problem with memory config buffer"
510 END

Port Dev Seq  Size Addr  Type
  0   0   0     4  30000  0
  0   1   0     4  32000  0
  0   2   0     4  34000  0
  0   3   0     4  36000  0
  0   5   0    16  F0000  2
  1   0   0    32  E0000  1
  2   0   0    32  D0000  1

Dave