pasmo/hellocpc.asm at main · compilersoftware/pasmo · GitHub

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