Sharp MZ-80B - Page 76

71
OAF7 3A0800
LD
A,(SCROST)
OAFA 6F
LD
L,A
OAF8
2600
LD
H,o
OAFD 19
AOO
HL,DE
OAFE
E~
~
PUSH HL
OAFF D1
POP
DE
0800
18
DEC
DE
0801 D5
PUSH DE
0802
ED80
LDIR
0804 3600
LD
<HL)
,OOH
0806 E1
POP
HL
0807 7E
LD
A,<HL)
0808
87
OR
A
0809
289E
JR
Z,RETN
0808
2A5111
SCR02:
LD
HL,<DSPXY>
OBOE 25
DEC H
080F
225111
LD
<DSPXY>
,HL
0812 18BE
JR
SCROL
0814
0814
2A5111
CURSD:
LD
HL,<DSPXY>
0817
3AOCOO
LD
A,<SCREND>
OB1A
BC
CP
H
0818 2885
JR Z,SCROL
OB1D 24
INC H
081E
225111
CURS1:
LD <DSPXY>
, HL
0821
1886
JR
RETN
0823
0823
CD3COC CURSU:
CALL SCRDSD
0826
CAA90A
JP
Z,RETN
0829
~~
k~
DEC H
082A 18F2
JR CURS1
082C
082C
2A5111
CURSR:
LD
HL.<DSPXY>
082F
7D
LD
A,L
0830
FE27
CP 39
0832
3003
JR NC.CURS2
0834
2C
INC
L
0835
18E7
JR CURSl
OB37
2EOO
CURS2:
LD
L,O
0839 24
INC H
083A
3AOCOO
LD A.<SCREND>
OB3D 8C
CP
H
083E
30DE
JR
NC,CURS1
0840
67
LD
H,A
0841 225111
LD <DSPXY)
,HL
0844 C3D20A
JP SCROL
0847
0847 2A5111 CURSL:
LD
HL.<DSPXY>
OB4A 7D
LD A.L
0848
B7
OR
A
084C
2803
JR Z,CURL1
OB4E
2D
DEC L
084F 18 CD
JR
CURSl
0851
~E27 CURL1:
LD L.39
0853
CD3FOC
CALL SCRSTD
0~56 2824
JR
Z.HOME
0858
~e
~~
DEC H
0859 18C3
JR CURS1
0858
0858