Advertisement
rHEXADECIMAL D U M P - - - - - - - - - - - - - - - - - - - - - - - - .
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
·•<.t"'"
.!~:~~~J
: . • . . . ·,;;. · • · .... · · .... •·•.··./ -
L··•~;,,.";).~ - ~·-:;;;;;;•.
'.c .. · •.
-x'-½;c~'t;'i'}.:~ ,,.c,;,;llf*•f"-''··"
--'{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._
Advertisement
