Memory Display

[AMSDOS]

MEMORY DISPLAY - This was a bit of a flashy Memory Displayer I wrote ages ago (the date is in the program!  ), it's nothing fancy - no Assembly instructions, it appears to print ASCII codes though (within a printable range). Lots of Windows and colour schemes used here! 

Code Select Expand


10 ' Memory Display
20 ' Public Domain - CP/M User
30 ' Written 27/4/1997
40 '
50 ON BREAK GOSUB 200
60 MODE 1:WINDOW 37,40,1,25:INK 3,2:INK 0,0:PAPER 3:CLS:BORDER 2
70 WINDOW#1,1,36,1,3:WINDOW#2,1,36,4,25:WINDOW#3,40,40,1,25:PAPER#1,0:INK 1,26
80 INPUT#1,"Enter Start Address ";start
90 INPUT#1,"Enter Length ";length
100 CLS#1:CLS#2:PAPER#2,0
110 PRINT #1,CHR$(150);STRING$(9,CHR$(154));CHR$(158);STRING$(13,CHR$(154));CHR$(158);STRING$(9,CHR$(154));CHR$(156)
120 PRINT #1,CHR$(149);" Address ";CHR$(149);" Hexidecimal ";CHR$(149);" Decimal ";CHR$(149);
130 PRINT #1,CHR$(147);STRING$(9,CHR$(154));CHR$(155);STRING$(13,CHR$(154));CHR$(155);STRING$(9,CHR$(154));CHR$(153)
140 length=length+start
150 FOR pr=start TO length
160 dis=PEEK(start)
170 IF dis>&20 AND dis<&FF THEN char$=chr$(dis) ELSE char$=" "
180 PRINT #2,TAB(5);HEX$(start);TAB(16);HEX$(PEEK(pr),2);"  ";char$;TAB(29);PEEK(pr)
190 start=start+1:NEXT pr: FOR delay=1 TO 500:NEXT:MODE 2:PAPER 0:WINDOW 1,80,1,25:PEN 1:BORDER 0:END
200 PAPER #3,3:LOCATE#3,1,1:PRINT#3,"Continue Y-N"
210 select$=INKEY$:IF select$<>"Y" AND select$<>"N" THEN 210
220 IF select$="Y" THEN CLS:RETURN ELSE WINDOW 1,40,1,25:LOCATE 5,25:PAPER 0:MODE 2:BORDER 0:END


[fiorefr73]

Hi AMSDOS,


I'm writing some articles about the Locomotive Basic in an italian free pdf magazine (fanzine) called Retromagazine.
I found your code and I decided to make some changes and use it as a base to show people how to display the memory of an Amstrad CPC with the Locomotive Basic.


I made the some minor changes to:
- display in mode 2
- add binary value of the memory
- stop execution after location FFFF has been reached
- use window#3 for messages


Here is the modified code:

Code Select Expand



10 ' Memory Display
20 ' Public Domain - CP/M User
30 ' Written by AMSDOS 27/4/1997
40 ' Modified by Francesco Fiorentini 29/3/2020
45 row=0
60 MODE 2:WINDOW 39,40,1,25:INK 3,2:INK 0,0:PAPER 3:CLS:BORDER 2
70 WINDOW#1,1,39,1,3:WINDOW#2,1,39,4,25:WINDOW#3,40,80,1,25:PAPER#1,0:INK 3,2
80 row=row+1:LOCATE#3,3,row:INPUT#3,"Enter Start Address ";start
90 row=row+1:LOCATE#3,3,row:INPUT#3,"Enter Length ";length
100 CLS#1:CLS#2:PAPER#2,0
101 REM WINDOW#1 display header
110 PRINT #1,CHR$(150);STRING$(6,CHR$(154));CHR$(158);STRING$(10,CHR$(154));CHR$(158);STRING$(6,CHR$(154));CHR$(158);STRING$(10,CHR$(154));CHR$(156)
120 PRINT #1,CHR$(149);" Addr ";CHR$(149);" Hex Chr  ";CHR$(149);" Dec  ";CHR$(149)"  Binary  ";CHR$(149);CHR$(13)
130 PRINT #1,CHR$(147);STRING$(6,CHR$(154));CHR$(155);STRING$(10,CHR$(154));CHR$(155);STRING$(6,CHR$(154));CHR$(155);STRING$(10,CHR$(154))CHR$(153)
131 REM read the memory
140 length=length+start
150 FOR pr=start TO length
160 dis=PEEK(start)
170 IF dis>&20 AND dis<&FF THEN char$=chr$(dis) ELSE char$=" "
179 REM WINDOW#2 display the memory value
180 PRINT #2,TAB(3);HEX$(start);TAB(11);HEX$(PEEK(pr),2);TAB(15);char$;TAB(20);PEEK(pr);TAB(28);BIN$(PEEK(pr),8)
190 start=start+1:if start > 65535 then goto 191 else NEXT pr
191 row=row+1:PAPER #2,0:LOCATE#3,3,row:PRINT#3,"Memory Map terminated."
192 row=row+1:PAPER #2,0:LOCATE#3,3,row:PRINT#3,"Continue to map? y-n"
193 answ$=INKEY$:IF answ$<>"Y" AND answ$<>"N" AND answ$<>"y" AND answ$<>"n" THEN 193
194 IF answ$ = "Y" or answ$ = "y" THEN GOTO 80
195 row=row+1:PAPER #2,0:LOCATE#3,3,row:PRINT#3,"Goodbye...":for i= 1 to 1000:next i
196 WINDOW 1,40,1,25:LOCATE 5,25:PAPER 0:MODE 2:BORDER 0:END



Regards
fiorefr73

[AMSDOS]

I always remember that only displaying a limited set of characters, if you want the whole set change line 170 to:

Code Select Expand

170 char$=CHR$(1)+CHR$(dis)

which will print out the whole set.

[fiorefr73]

Awesome! 


Thanks AMSDOS, I'll give you credits in the article.