1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
org 33000
KM_WAIT_CHAR equ #BB06
TXT_INITIALISE equ #BB4E
TXT_VDU_ENABLE equ #BB54
TXT_OUTPUT equ #BB5A
TXT_CUR_ENABLE equ #BB7B
TXT_SET_PEN equ #BB90
TXT_CUR_ON equ #BB81
MC_START_PROGRAM equ #BD16
start
if 0
ld hl, program
ld c, 0
call MC_START_PROGRAM
endif
program
if 0
call TXT_INITIALISE
call TXT_VDU_ENABLE
ld a,1
call TXT_SET_PEN
endif
ld bc,1010h
another
push bc
ld hl,hello
again ld a,(hl)
cp 0
jr z, exit
push hl
call TXT_OUTPUT
pop hl
inc hl
jr again
exit
pop bc
djnz another
;call TXT_CUR_ENABLE
call TXT_CUR_ON
call KM_WAIT_CHAR
ret
hello db "Hello, Amstrad CPC world.", 0Dh, 0Ah, 0
end start
|
