ZiLOG Z80-RIO Operating System User's Manual page 216

EXAMPLE2.MCZ
LOC OBJ CODE M STMT SOURCE STATEMENT ASM 5.7
1
; EXAMPLE 2 --- MAKE A SYSTEM CALL TO COPY THE PARAMETER
2
STRING TO CONOUT
3
4
0000 2AC413 5 LD HL, (INPTR) ;ADDRESS OF THE
6
;PARAMETER LIST
0003 113700 R
7
LD
DE,BUFFER
; MOVE PARArlfETER LIST
8
;INTO BUFFER
0006 010000
9 LD BC,O ;KEEP A CHARACTER COUNT
0009 7E 10 SCAN: LD A, (HL) ;NEXT CHARACTER IN
11 ;PARAMETER STRING
OOOA FE3B 12 CP
I • I
;TEST FOR END
,
OOOC
2808 13 JR Z,ADDCHR
OOOE FEOD 14 CP ODH
0010 2804
15 JR Z,ADDCHR
0012 EDAO 16 LDI
;MOVE CHARACTER AND INC
17 ;POINTERS
0014 18F3 18
JR SCAN
19
0016
EB 20 ADDCHR: EX
DE,HL
0017 360D 21 LD (HL) ,ODH ;COULD HAVE BEEN A
I • I
,
0019
OB
22
DEC BC
23
OOIA
79 24 LD
A,e
;GET STRING LENGTH
001B 2F 25
CPL
OOIC 4F 26
LD
C,A
001D 2F 27
CPL
001E 47
28 LD B,A
001F 03 29
INC BC
30
0020
ED433000 R 31 LD (AVDL) ,BC ;DATA LENGTH
32
0024 FD2l2COO R
33 LD
IY,AVEC
0028 CD0314 34 CALL
SYSTEM
;MAKE THE SYSTEM CALL
35
iTO
WRITE IT
002B C9 36
RET
37
38
39 AVEC:
002C
02 40 AVLUN:
DEFB CONOUT
;CONSOLE OUTPUT
002D 10 41 AVREQ: DEFB WRTLIN
;WRITE LINE
002E 3700 R 42 AVDTA:
DEFW BUFFER ;DATA TRANSFER ADDRESS
0030 0000 43 AVDL: DEFW 0
;DATA LENGTH
0032 0000 44 AVCRA:
DEFW 0 ;COMPLETION RETURN
G-4