:..
rHEXADECIMAL
DUMP------------------------.
1020
FUR
I=l
TO
LEN(AD$);W;ASC<RIGHT$(AD$,l))-48:I
F
W<Ci'l
OR
W>=10
AND
W<=l6
OR
W)22
THEN
ER=l:GOTO
106
(Z)
1030
IF
W>16
THEN
W=W-7
1040
AD=AD+W~Y:Y=Y*16
1Ci'l50
NEXT
I
106(2)
RETURN
11(2)0
·
memory
decCM)
ta
hex$(M$)
1110
X=M:L=2:GOSU8
1200:MS=XS:
IF
!=7
THEN
MS=MS+"
1120
A'f,=CHRS(M):
IF
M<32
OR
M:>126 THEN
AS:.:"."
1130
f\ETURN
1~00
'DEC(JL
ta.
HEX$(X$)
1210
XS=""
1220
Y=INTCX/16J:W=X-Y*16:X=Y:IF
W>9
THEN
W=W+7
1230
X$=CHRSCW+48)+XS:
IF
X{)(Z)
THEN
1220
1
240
X 'f,==FU Lil
IH,
C
"000"
+
X$,
U
1
2:5(2]
F,ETUf;:N
.·.·.·.•.··•nw
.•·•<.t"'"
.!~:~~~J
:
.•...
·,;;.
·•·
....
··
....
•·•.··./
-L··•~;,,.";).~ - ~·-:;;;;;;•.
'.c
..
·
•.
-x'-½;c~'t;'i'}.:~ ,,.c,;,;llf*•f"-''··"':.c
t~
:t'\;'\'·-~~--'{t;:The,·rot1fine
t9
read
the
conients
6fmemoFy
is
co"rftained
ln
line 250'./Although
.·
· · · · -
this
program displays
output
data in hexadecimal notation, actual operations are
performed on decimal numbers. Hence a hexadecimal-decimal conversion program
is
required. The three subroutines
in
lines
1000
to
1250
are provided for this
purpose._
138
To Next Page
Loading...
