Sharp mz-800 Technical Reference And User's Manual page 80

••
Z80 ASSEMBLER 2Z-004C <1Z-013B> PAGE 15
03.06.85
**
Z80 ASSEMBLER 2Z-004C
<1Z-013B> PAGE 16 03.06.85
01 03FB
I
PRASS PLAY MESSAGE
01 0433 Bl
OR
c
02 03FB
:
02 0434 Cl
2HE1: POP BC
03 03FB
MSG#l: ENT
03 0435 C9
RET
04 03FB 7F20
OEFW 207FH
04 0436
05 03FO
MSG#2: ENT
05 0436
06 03FO 504C4159 OEFM 'PLAY'
06 0436 : WRITE INFORMATION
07 0401 00
OEFB 00H
07 0436
.
08 0402
MSG#3: ENT
08 0436 ?WRI:
ENT
09 0402 7F20
OEFW 207FH
09 0436 F3
OI
10 0404 5245434F
OEFM 'RECORD.'
; PRESS RECORD
10 0437 05
PUSH DE
11 0408 52442E
11 0438 CS
PUSH BC
12 040B 00
OEFB 00H
12-0439 E5
PUSH HL
13 040C :
13 043A 1607
LO 0,07H
•w·
14 040C :
14 043C IECC
LO E,CCH
, L'
15 040C
OEFS +4
15 043E 21F010
LO HL, IBUFE
!0F0H
16 0410
;ORG 0410H;HLHEX
16 0441 018000
LO BC,80H
WRITE BYTE SIZE
17 0410 :
17 0444 C01A07
WRll: CALL CKSUM
CHECK SUM
18 0410 :
18 0447 C09F06
CALL
MOTOR MOTOR ON
19 0410 : 4 ASCll TO <HLJ
19 044A 3818
JR
C,WRI3
20 0410 :
20 044C 7B
LO A,E
21 0410
: IN
OE=OATA LOW AOR.
21 0440 FECC
CP CCH
; 'L'
22 0410 ; EXIT
CF=0 : OK
22 044F 2000
JR
NZ,WRI2
23 0410 :
=1 : OUT
23 0451 C00900
CALL NL
24 0410
.
24 0454 05
PUSH DE
25 0410
HLHEX: ENT
25 0455 116704
LO OE,MSG#7
; WRITING
26 0410 05
PUSH DE
26 0458 OF
RST 3
; CALL MSGX
27 0411 C01F04
CALL 2HEX
27 0459 11F110
LO OE,NAME
; FILE NAME
28 0414 3807
JR C,+9
28 045C OF
RST 3
: CALL MSGX
29 0416 67
LO H,A
29 0450 01
POP DE
30 0417 C01F04
CALL 2HEX
30 045E C07A07
WRI2: CALL GAP
'-.J
31 041A 3801
JR
C,+3 31 0461 C08A04
CALL
WTAPE
~
32 041C 6F
LO L,A
32 0464 C35405
WRI3: JP RET2
33 0410 01
Hll: POP DE
33 0467
.
34 041E C9
RET
34 0467
MSG#7: ENT
35 041F
.
35 0467 57524954
OEFM 'WRITING '
36 041F
;ORG 041FH;2HEX
36 046B 494E4720
37 041F :
37 046F 00
OEFB 00H
38 041F :
38 0470
39 041F ;
2 ASCII TO <ACCJ 39 0470
40 041F :
40 0470
41 041F
: IN OE=OATA
LOW AOR.
41 0470 :
40 CHA. IN 1 LINE CODE <DATAl
42 041F ;
42 0470
.
43 041F
: EXIT CF=0 : OK
43 0470
LLPT: ENT
44 041F :
=1 : OUT
44 0470 01
OEFB 01H
; TEXT MODE
45 041F
.
45 0471 09
OEFB 09H
46 041F
2HEX: ENT
46 0472 09
OEFB 09H
47 041F CS
PUSH BC
47 0473 0B
OEFB 0BH
48 0420 lA
LO A, <DEl
48 0474 00
OEFB 00H
49 0421 13
INC DE
49 0475
.
50 0422 COF903
CALL HEX
50 0475
;ORG 0475H
51. 0425 3800
JR C,+15
51 0475
52 0427 0F
RRCA
52 0475
53 0428 0F
RRCA
53 0475 :
WRITE DATA
54 0429 0F
RRCA
54 0475
:
55 042A 0F
RRCA
55 0475
: EXIT CF=0 : OK
56 042B 4F
LO
C,A
56 0475 :
=1 : BREAK
57 042C lA
LO
A, <DEl
57 0475
.
58 0420 13
INC
DE
58 0475
?WRO: ENT
59 042E COF903 CALL
HEX
59 0475 F3
OI
60 0431 3801 JR
C,+3
60 0476 05
PUSH DE