Advertisement
r D I S A S S E M B L E R ' - - - - - - - - - - - - - - - - - - - - - - - - - -
2935 B.vtes
lttM~MIIM~~ll1tltllll_ll_""ftllll!ltlllMMIIIIM1tlt114ft4111tltllll41tlt-llllllMll-llllft------~
'.
~
--
-
1
:
f-ll+tl·**'f'.'.~•
*~:"' : «. ·
-tHl·*
*-M·**-11·
*
**ii-
-11·
-11·4·-ll·il-4·*4·-II·
2
-----,,
. . .
.3 ·
,,Dis-assembler
8085
V/l"···-·
.c,."
4 .•
C'
, . ..J.
copyrigh~ 1983 A.Kikizono
6
7
1983/6/9
8
9
-,********************************-
UZIQI
110
CLEAR
1023
120
DIM N1S!63)
,N2$(7)
,N3$(63i~~EGS(~)
13(2)
GOSUB
1 Ql00
140
150~CLS:F'RINT
"-IE·
Dis-assembier·
V.1*"
1-6(2)
-I~NPUT ·
"Printer <Y
/N)
: ",
XS: IF XS="Y"
• · . . . . !£' ? .~~=~i ; ~~f f
~,;~~1ti)i' ; W;ffl~Qil1!~0' ; ' . f~=:=,;<ft•,if,1l1:;;' i liJ' . ,~/~' i
.. R=T T.HEN 210''-·".
./
.,.
· \.,
' " ;,: ,_
4 - '
•
- , •
22121
INPUT
"end
addr(HEX):",Z!t.:GOSUB
612117.1:EA=Z:IF:_E
R=1
THEN
220
.
23C21 IF TA>=EA -THEN 200 ELSE A=TA: J=0 · -•
30(2) '
310
Z=A:L=4:GOSUB 700:ADS=ZS:M=PEEK<A>:Z=M:L=2:GO
SUB 700:MC$=Z$:OP$=""
320 IF Mi=63 THEN NMS=NlSCM):GOTO 400
330 IF M=118 THEN NM$="HLT":GOTO 500·
340 IF M >=64 AND M<
=
127 · THEN
NM$="
MDV
": OF''t•=--=REG1'-
( (MAND 56)/8)+","+REG$(M
MOO
8):GOTO 51210
350 IF M>=128 AND M<=191 THEN NMS=N2S{(M ANO 120)
/8)+"
":OF'$==REG$(M MOD 8):GOTO 5(2)0
360 NM$=N3$(M-192)
4(2)121
410
IF NM$='"' THEN NMS=".
":OPS="'"+CHRS(M):GO
TO
5Q.IC21.
420 NS=LEFTS<NMS,1):
IF
NS<"2" OR NS>"3" THEN 500
43Q.I
NMS=MIOS(NMS,2):IF RIGHTS(NMS,1)="/"
THEN
NMS
==LEFTS<NMS,LEN<NMS)-1)+","
440
IF
NS="2"
THEN A==A+1:Z==PEEl~:(A):L=2:GOSUB 700:
□ F·1>=ZS+"h":
MCS=MC'l,+"
"+Zt•:
GOTO 51ZHZI
Advertisement
