Casio FP-200 - Page 128

L
r_\~
r · -
:.:. -
;.
l~ti?·
~... .. - •- •- -
rDISASSEMBLER'--------------------------
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:;;'iliJ'.,~/~'i
.. R=T T.HEN 210''-·". ./ .,. · \., '";,: ,_
4
-' • -, •
132
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