Sharp MZ-80B - Page 58

53
041C 20EF
JR
NZ,TM3
041E
CD4604
CALL EDGE
0421
E1
TM4:
POP HL
0422 C9 RET
0423
0423
0423
0423
C5
CKSUM:
PUSH BC
0424 E5 PUSH HL
0425 D5 PUSH DE
0426 110000 LD
DE,OOOOH
0429
70
v
CKSl:
LD
A,B
042A 81 OR
r
0428 200A JR
NZ,CKS2
042D E8 EX
DE , HL
042E 222800
LD <SUMDT>
,HL
0431 223300
LD <CSMDT>
,HL
0434
Dl POP DE
0435
1887 JR RETHB1
0437
7E
CKS2:
LD
A,
<HL>
0438
C5 PUSH 8C
0439 0608
LD
8,8
0438
07
CKS3:
RLCA
043C
3001 JR
NC,+3
043E
13 INC DE
043F 10FA
DJNZ
CKS3
0441
C1
POP 8C
0442 23 INC HL
0443 OB ~c
8C
0444 18E3 JR
CKS1
0446
0446
0446
0446 DBE1
EDGE:
IN
A,
<E1H>
0448 2F
CPL
0449
07
RLCA
044A
D8
RET
r
0448
07
RLCA
044C 30F8
JR
NC,EDGE
044E D8E1
EDGE1:
IN
A,
<E1H>
0450
2F
CPL
0451 07
RLCA
0452
D8
RET c
0453 07
RLCA
0454 38F8
JR
C,EDGE1
0456 C9
RET
0457
0457
0457
0457 CD7105
MOTOR:
CALL
KBSET
045A D8E1
IN
A,
<ElH>
045C
E620
AND
20H
045E
2818
JR
Z,MOT2
0460
D5
PUSH DE
0461 117206
LD
DE,SETMES
0464
CDB605
CALL
NLMSG
0467
[11
POP DE
0468
CD8C04
CALL OPEN
0468 CD6C05 MOTl:
CALL 8RK
046E
D8
RET c