Compucolor.org – Virtual Media

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