Sharp MZ-700 - Page 189

CX>
w
* * Z80 ASSEt1BLER SB-720 1 < 1 Z -0 13A> PAGE 37
04.07.83
01 OA01
02 OA01
03 OA01
04 OA01
05 OA01
06 OA01
07 OA01 F5
08 OA02 3E03
09 OA04 3203EO
10 OA07 CD5907
11 OAOA CD5907
12 OAOD 3E02
13 <:>AOF 3203EO
14 OA12 CD5907
15 OA15 CD5907
16 OA18 F1
17 OA19 C9
18 OA1A
19 OA1A
20 OA1A
21 OA1A F5
22 OA!B 3E03
23 OAlD 3203EO
24 OA20 CDA909
25 OA23 3E02
26 OA25 3203EO
27 OA28 CDA909
28 OA2B F1
29 OA2C C9
30 OA2D
31 OA2D
32 OA2D
33 OA32
34 OA32
35 OA32
36 ()A32
37 OA32
38 OA32
39 OA32
40 OA32
41 OA32
42 OA32
43 OA32
44 OA32
45 OA32
46 OA32
47 OA32
48 OA32
49 OA32
50 OA32
51 OA32
52 OA32 3EF8
53 OA34 3200EO
54 OA37 00
55 OA38 3A01EO
56 OA3B 87
57 OA3C 1F
58 OA3D DA8009
59 OA40 17
60 OA41 17
SHORT AND LONG PULSE FOR 1 BIT WRITE
SHORT: ENT
PUSH
LD
LD
CALL
CALL
LD
LD
CALL
CALL
POP
RET
LONG: ENT
PUSH
LD
LD
CALL
LD
LD
CALL
POP
RET
AF
A,03H
( CSTPT>, A
DLY1
DLY1
A,02H
( CSTPT>, A
DLY1
DLY1
AF
AF
A,03H
( CSTPT>, A
DLY4
A,02H
< CSTPT> ,A
DLY4
AF
DEFS +5
;ORG OA32H
BREAK KEY . CHECK
AND SHIFT,CTNL KEY CHECK
EXIT
BREA~; ON :
OFF:
ZER0=1
ZERO=O
CV =0
CV =1
SHIFT ON
OFF
CTRL ON
12
9
$E003 PC3=1:16
t. ; 20+18*21+20
20+18*21+20
9
' $E003 PC3=0: 16
20+18*21+20
20+18*21+20
11
11
11
9
16
20+18*89+20
9
16
20+18*89+20
11
1.1
9
NO KEY
KEY IN
A D6=1
=0
D5=1
=0
D4=1
=0
OFF
SFT+CNT ON
OFF
?BRK:
ENT
LD
LD
NOP
LD
OR
RRA
,Jp
RLA
RLA
A,FSH
<KEYPA>,A
A,<KEYPB>
A
C,?BRt-:;2
LINE 8SWEEP
SHIFT ?
**
Z80 ASSEMBLER SB-7201 < 1Z-013A> PAGE 38
01 OA42 3004
02 OA44 3E40
03 OA46 37
04 OA47 C9
05 OA48
06 OA48
07 OA48 AF
08 OA49 C9
09 OA4A
10 OA4A
11 OA4A
12 OA4A
13 O.A4A
14 OA4A 3E3F
15 OA4C C36207
16 OA4F
17 OA4F
18 OA4F
19 OA50
20 OA50
21 OA50
22 OA50
23 OA50
24 OA50
25 OA50
26 OA50
27 OA50
28 OA50
29 OA50
30 OA50
31 OA50
32 OA50
33 OA50
34 OA50
35 OA50
36 OA50
37 OA50
38 OA50
39 OA50
40 OA50 D5
41 OA51 E5
42 OA52 AF
43 OA53 06F8
44 OA55 57
45 OA56 CD320A
46 OA59 2004
47 OA5B 1688
48 OA5D 1814
49 OA5F
50 OA5F 3005
51 OA61 57
52 OA62 1802
53 OA64
54 OA64 CBFA
55 OA66
56 OA66 05
57 OA67 78
58 OA68 3200EO
59 OA6B FEEF
60 OA60 2008
,lR
LD
SCF
RET
NC,?BRK1
A,40H
?BRK1: XOR A
RET
320 U SEC DELAY
DLY3: ENT
LD
,Jp
A,3FH
0762H
DEFS +1
;ORB OA50H ; ?SWEP
KEY BOAD SWEEP
EXIT B,D7=0
=1
D6=0
=1
D5=0
=1
D4=0
=1
NO DATA
DATA
SHIFT OFF
SHIFT ON
CTRL OFF
CTRL ON
SHIFT+CTRL
SHIFT+CTRL
C
= ROW & COLOUMN
7 6 5 4 3 2 1 0
* * t t t !- !- !-
"'SWEP: ENT
PUSH
PUSH
XOR
LD
LD
CALL
JR
LD
JR
SWEP6: ENT
JR
LD
JR
SWEP01: ENT
SET
SWEPO: ENT
DEC
LD
LD
CP
DE
HL
A
B,FSH
D,A
?BRK
NZ,SWEP6
D,88H
SWEP9
NC,SWEF'O
D,A
SWEPO
7,D
B
A,B
<KEYPA>,A
EFH
.JR NZ, SWEP3
OFF
ON
04.07.83
BREAK ?
SHIFT D6=1
SHIFT ?
18*63+33
, Jp DLY2+2
BREAf• : ON
MAP SWEEP END ?