Casio FP-200 - Page 129

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
f~,r,,~§~~ -~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
133