Sharp MZ-700 - Page 178

-....j
N
** Z80 ASSEMBLER SP-7201 < 1Z-013A > PAGE 15
01 03FB
02 03FB
03 03FB
04 03FB 7F20
05 03 FD
06 03FD 504C4159
07 0401 OD
OB 0402
09 0402 7F20
10 0404 52454 34F
11 0408 52442E
12 040B OD
13 040C
14 040C
15 040C
16 0410
17 04 10
18 04 10
19 0410
20 0410
21 0410
22 0 410
23 0410
24 0410
25 0410
26 0410 D5
27 0411 CD1F04
28 0414 3807
29 04 16 67
30 ' 0417 CD!F04
31 04-!A 3801
32 041C 6F
33 041D Dl
34 041E C9
35 041F
36 041F
37 . 041F
38 041F
39 041F
40 041F
41 041F
42 041F
43 041F
44 041F
45 041F
46 041F
47 041F C5
48 o' 420 lA
49 0 421 13
50 0422 CDF9 03
51 0 425 3800
52 0 427 OF
53 0428 OF
54 0 4 29 OF
55 042A OF
56 042B 4F
57 0 42C lA
58 042D 13
59 04 2E CDF903
60 0431 3801
PRASS PLA Y MESSAGE
MSG#1 : ENT
DEF~~
MSG#2: ENT
DEFM
DEFB
MSG#3: ENT
DEFW
DEFM
207FH
' PL AY '
ODH
207F H
'
RECORD. '
DEFB ODH
DEFS +4
;ORG 0410 H;HLHEX
4 ASCI I TO < HU
IN DE=DATA LOW ADR.
EXIT CF=O : OK
=1 : OUT
HLHE X: ENT
PUSH
CALL
JR
LD
CALL
JR
LD
Hll: POP
RET
ORG 041FH;2HEX
DE
2HEX
c,+9
H,A
2HEX '
C,+3
L ,A
DE
2 ASCII TO <ACC>
IN DE=DATA LOW ADR.
EX IT CF=O : OK
=1 : OUT
HEX: ENT
PUSH
LD
INC
CAL L
,lR
RRCA
RRCA
RRCA
RRCA
LD
LD
INC
CALL
.lR
BC
A, <DE)
DE
HEX
C,+15
C,A
A, <DE>
DE
HEX
C,+3
04 . 07.83
PRESS RECORD
** Z80 ASSEMBLER SB-7201 < 1Z-013A > PAGE 16 04.07.83
01 0433 Bl
02 0434 Cl
03 0435 C9
04 0436
05 0436
06 0436
o7 0436
08 0436
09 0436 F3
10 0437 05
11 0438 C5
12 0439 E5
13 043A 16D7
14 043C !ECC
15 043E 21F010
16 0441 018000
17 0444 CD!A07
18 0447 CD9F06
19 044A 38 18
20 044C 7B
21 044D FECC
22 044F 2000
23 0451 CD0900
24 0454 D5
25 0455 116704
26 0458 DF
27 0459 l!Fl!O
28 045C DF
29 045D Dl
30 045E CD7A07
31 0461 C08A04
32 0464 C35405
33 0467
34 0467
35 0467 57524954
36 046B 494E4720
37 046F OD
38 0470
39 0470
40 0470
41 0470
42 0470
43 0470
44 0470 01
45 0471 09
46 0"172 09
47 0473 OB
48 0474 OD
49 0475
50 0475
51 04 75
52 0475
53 0475
54 0475
55 0475
56 0475
57 0475
58 0 475
59 0475 F3
60 0 476 D5
2HE1:
OR
POP
RET
c
BC
WRITE INFORMATION
?~~RI: ENT
WRI!:
WF:I2:
WRI3:
DI
PUSH
PUSH
PUSH
LD
LD
LD
LD
CALL
CALL
.JR
LD
CP
, JR
CALL
PUSH
LD
RST
LD
RST
POP
CALL
CALL
JP
t 1SG#7: ENT
DEFM
DE
BC
HL
D,D7H
E,CCH
HL,IBUFE
BC,80H
CKSUM
MOTOR
C,WRI3
A,E
CCH
NZ,~~RI2
NL
DE
DE,MSG#7
3
DE, NAME
3
DE
GAP
WTAPE
RET2
·" WRITING '
DEFB ODH
·· w ··
.~ L ""
! OFOH
WRITE BYTE SIZE
CHECK SUM
MOTOR ON
' L '
WRITING
CALL MSGX
FILE NAME
CALL MSG X
40 CHA. IN 1 LINE COD E ( DATA>
LLPT:
ENT
DEFB
DEFB
DEFB
DEFB
DEFB
;ORG 0475H
WRITE DATA
EXIT CF=O
=1
?WRD: ENT
DI
01H
09H
09 H
OBH
ODH
OK
BREAK
PUSH DE
TE XT MODE