Listing of file='DUMP.BAS;01' on disk='vmedia/taylor_7-sector.ccvf'
63090 REM * * * MEMORY DUMP PROGRAM BY: HERB BECK 2/22/79 63100 PRINT "DISPLAY MEMORY CONTENTS IN HEX AND PRINT ASCII CHARACTERS" 63105 PRINT 63110 CLEAR 500 63120 GOSUB 63400 63130 INPUT "ENTER START ADDRESS, NUMBER OF BYTES (IN DECIMAL) => ";SA,NB 63140 FOR A= SATO SA+ NB- 1STEP 16:REM A=ADDRESS 63150 H$= " ":REM DEFINES HEX STRING 63160 A$= " ":REM DEFINES ASCII STRING 63170 FOR C= ATO A+ 15 63180 D= PEEK (C):REM D=MEMORY DATA IN DECIMAL 63190 GOSUB 63500 63200 I1$= HE$(I1):REM DEFINE LEFT HEX INTEGER 63210 I2$= HE$(I2):REM DEFINES RIGHT HEX INTEGER 63220 H$= H$+ I1$+ I2$+ " ":REM BUILD HEX PRINT LINE 63230 GOSUB 63700 63240 A$= A$+ CHR$ (D)+ " ":REM BUILD ASCII PRINT LINE 63250 NEXT C 63260 PRINT A;:GOSUB 63600:REM PRINT ADDRESS IN DECIMAL 63270 PRINT H$:REM PRINT HEX LINE 63280 PRINT TAB( 15)A$:REM PRINT ASCII LINE 63310 NEXT A 63320 GOTO 63130 63330 END 63400 DIM HE$(16):REM CONVERT HEX INTEGER VALUE TO HEX CHAR. 63410 FOR I= 0TO 15:READ HE$(I):NEXT I 63420 DATA "0","1","2","3","4","5","6","7" 63430 DATA "8","9","A","B","C","D","E","F" 63440 RETURN 63500 REM CONVERT DECIMAL MEMORY DATA INTO HEX 63510 I1= INT (D/ 16):REM LEFT HEX DIGIT 63520 I2= D- I1* 16:REM RIGHT HEX DIGIT 63530 RETURN 63600 REM CONVERT DECIMAL ADDRESS(A)TO HEX (HE$) 63610 X= A:X0= 0:X1= 0:X2= 0:X3= 0:X4= 0:X5= 0 63620 X0= X/ 4096:X1= 4096* (X0- INT (X0)) 63630 X2= X1/ 256:X3= 256* (X2- INT (X2)) 63640 X4= X3/ 16:X5= 16* (X4- INT (X4)) 63650 X0= INT (X0):X2= INT (X2):X4= INT (X4):X5= INT (X5) 63660 PRINT TAB( 8)HE$(X0);HE$(X2);HE$(X4);HE$(X5);" "; 63670 RETURN 63700 REM CONVERSION OF SPECIAL SYMBOLS 63710 IF D< 32OR D> 127AND D< 160THEN D= 32:REM OUTPUT = BLANK 63790 RETURN