pasmo/jumptable.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
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
;	jumptable.asm
;	Test of ## operator.

	org 100h

bdos	equ 5

conin	equ 1
pstring	equ 9

start	jp init

jpfunc	macro nfunc
	jp function_ ## nfunc
	endm

table:
	irp func, mess1, mess2, presskey, endline
	jpfunc func
	endm

print	ld c, pstring
	jp bdos

init
	if 0

	rept 3, nfunc
	ld a, nfunc
	call usefunc
	endm

	else

	rept 3, nfunc, 2, -1
	ld a, nfunc
	call usefunc
	endm

	endif

	ld a, 3
	call usefunc

	ld c, 0
	call bdos

usefunc
	ld b, a
	add a, a
	add a, b
	ld c, a
	ld b, 0
	ld hl, table
	add hl, bc
	push hl
	ret

function_mess1	proc
	local message

	ld de, message
	call print
	ret

message	db "Hello, world\r\n$"

	endp

function_mess2	proc
	local message

	ld c, pstring
	ld de, message
	jp bdos

message	db 'Have a nice day', 0Dh, 0Ah, '$'

	endp

function_presskey	proc
	local message

	ld c, pstring
	ld de, message
	call bdos
	ld c, conin
	call bdos
	ret

message	db 'Press any key...$'

	endp

function_endline	proc
	local message

	ld de, message
	jp print

message	db 0Dh, 0Ah, '$'

	endp

	end start

;	End of jumptable.asm