Advertisement
SYSTEMDEVELOPMENTJ
450 Z=PEEK<A+l):L=2:GOSUB 71Zl0:Zl$=2$:Z=PEEK(A+2>~·- j
GOSUB 700: Z2$=Z$:OF'$=Z2$+Z1$+"h":MC$=MC$+" "+Z1$-t·
11
i
"+Z2$:A=A+2
·
~~:
~$=AD$.;,;-
II
+LEFT$ ( MC$+
II
-
ti '
]
0) +NM$+0P~ :::._-::-
_,l
520_ IF
PSW=IZI THEN PRINT LEFT$(ZS, 1-6) :PRINT.-TA8{6) ..
:~·j_,
;MID$(l--$, 17) ELSE.LPRINT 2$
l _,
530 IF
(LEFTS<NMS,3)="JMPII OR LEFT$(NMS,3)_:==_:'RET"> , ' }
AND
PSW=l
THEN LPRINT:J=J+l
!
540 J=J+l:IF PSW=l THEN 570
!
550-~IF -J<3,erHEN. 570_ ELSE J=0
560.
IF- INKEY$="" THEN 5.60 ELSE CLS
, -- '" 57ClJ-A=A+
1 : IF
A(
=EA THEN
300
58121.END -
60121 • hex$(z$) to dec(z)
610
Z=0: Y=l: ER=IZI: FOR I~i. TO LEN (2$):
W=ASC
mrm1T$
t.
2$, I> )-48
620 IF W<121
OR
W>=l0
AND
W<=l6
OR
W>22 THEN ER~l:G-
OTO 660
63121 IF W)16 THEN·W=W-7 ·
_
_:...640 ~.Z=Z+W*Y:Y=Y* 16
J}~-:~;~~t~i-~?t~~iu~t;~f~{8:•r~~I;·:~-~;;·7·;~l-$' ,
.
700'.~•-"'dec(tF:c:to·hex$(z$)'
710
Z$=
1111
•'
720
Y=INT(Z/16) :W=Z_;Y-t1·16:-Z=Y: IF
W>9
THEN
730 Z$=CHR$ (W+48)+Z$: lF-.Z<. >0 THEN 720
740 Z$=RIGHT$ ("000"+2$ l.~) -
'
'
750
RETURN
1000 '
1010 RESTORc:
1020 FOR
!=121
1030
FOR
I=0
1040 FOR
I=121
1050
RETURN
1100
1100:FOR 1=0
TO
63:READ
NlS<I>:NEXT I
TO 7:READ N2$(ll:NEXT I
TO
63:READ N3$(I):NEXT
I
TO
7:READ REG$(l):NEXT
I
1110 DATA NOP,3LXI
8/,STAX,INX
B,INR
8,DCR
8,2
MVI
8/,RLC,,DAD
B,LDAX B,DCX
B,INR
c,oc~
C,7MV
I
C/,RRC
1120 DATA ,3LXI
O/,STAX D,INX
D,INR
D,DCR
D,2M
VI
D/,RAL,,DAD
D,LDAX D,DCX
D,INR
E,DCR
E,2MVI
E/, RAR
1130 DATA RIM,3LXI
H/,"3SHLD ",INX
H,INf:;:
H,DCF,
H,2MVI
H/,DAA,,DAD
H,"3LHL.O ",DCX
H,INR
I
,Or::F;·
L,2MVI
L/,CMA
Advertisement
