home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CP/M
/
CPM_CDROM.iso
/
mbug
/
mbug045.arc
/
DDUMP.BAS
< prev
next >
Wrap
BASIC Source File
|
1979-12-31
|
768b
|
38 lines
10 '
20 PRINT
30 INPUT "HEX START ADDRESS";START$
40 GOSUB 280
50 LC=6
60 WHILE LC>0
70 N$=" "+HEX$(START):M$=RIGHT$(N$,5):PRINT:PRINT M$;
80 ROWCOUNT=16
90 WHILE ROWCOUNT>0
100 N$=HEX$(PEEK(START)+256):M$=" "+RIGHT$(N$,2)
110 PRINT M$;:START=START+1
120 ROWCOUNT=ROWCOUNT-1
130 WEND
140 GOSUB 180
150 LC=LC-1
160 WEND
170 GOTO 10
180 '
190 START=START-16
200 PRINT " ";
210 FOR J=1 TO 16
220 Z=PEEK(START):START=START+1
230 IF Z<32 THEN Z$="." ELSE Z$=CHR$(Z)
240 PRINT Z$;
250 NEXT
260 RETURN
270 '
280 '
290 IF LEN(START$)=0 THEN RETURN
300 START=0
310 FOR K=1 TO LEN(START$)
320 START=START*16+INSTR("0123456789ABCDEF",MID$(START$,K,1))
330 START=START-1
340 NEXT
350 RETURN
360 END
LEN(START$)
320 START=START*16+I