Sharp MZ-80B - Page 78

73
OBC4
AF
XOR
A
OBC5 CD7AOC
CALL
D::;pw
OBC:::
C3470B
,]p
CUR::;L
OBC8 CD450C
IN~;T:
Ct:~LL
D:::;MAI::]
OBCE EB
EX
DE,HL
OBCF OEOO
LD
(:,(1
OBD1
2A5111 LD
HL , <D::;p X Y)
08[14
2E27
LD
L,39
OBD6 2SOA
.JR z, IN::no
OBD8 24 INSTRO:
INC H
08[1'=)
79
LD
A,C
OBDA
CC-2::::
ADD
A,40
OBDC 4F
LD
C,A
OBDD 13
INC
DE
OBDE
1A
LD
A, <DE)
OBDF 87
OR
A
OBEO
20F6
,JR
NZ , I N:;:;TRO
OBE2 CD560C INSTO:
CALL
?PNT1
OBE5 CD6SOC
CALL DSPR
OBE8
87
OR A
OBE9
C2A90A
,Jp
NZ,RETN
OBEC::
E5
PU:::;H
HL
OBED
2A5111
LD
HL, <DSPXY)
08FO 3E27
LD
A, 3'=1
OBF2 '75
SUB
L
OBF3
81
ADD
A,C
OBF4
47
LD
B,A
OBF5
D1
IN:;:;T2:
POP DE
OBF6
D5
Pu:::;H
DE
OBF7 E1
POP HL
OBF : ::
28
DEC
HL
08F'=i DBE:::
IN
A, <ESH)
OBFB CBFF
:: ; ET 7,A
OBFD
F~
· !'
DI
OBFE D3E8 OUT
<ESH>
,A
ocoo 7E
INST1:
LD
A, <HU
OC01
1.-.
..::.
LD
<DE)
,A
OC02
3620 LD
<HU
,20H
OC04 28 DEC HL
OC05
1B
DEC
DE
OC06
10F::: [I.JNZ
INST1
oco:::: DBE8 IN
A, <E8H)
OCOA CBBF RES
7,A
ococ
D3E:::
OUT <E8H>
,A
OCOE FB EI
OCOF C3A90A
,Jp
RETN
OC12
OC12 CD450C
CR:
CALL
DSMAI3
OC15
EB
EX
DE,HL
oc 1/:..
2A5111 LD
HL, < [l::;;pxy)
OC19
CA370B
,Jp
Z
,CUR::;2
OC1C
0(:.00
LD
8,0
OC1E 04
CRO:
INC
B
OC1F
13
INC DE
OC20
1A
LD
A, <DE)
OC21
B7
OR A
C>C : 22
20FA
.JR NZ,CRO
OC24
24 CR1:
INC
H
OC25
2EOO
LD
L,O
OC27
3AOCOO
LD
A , ( : :;CREND)