blob: c2f8b3a68d0be1b9604b74c0e6b3d6a398613213 (
plain)
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
|
;*************************************************************************
;*======= Copyright (C) 1985,86 Martin Schoenbeck, Spenge ===============*
;* *
;* M A C R O s fuer E U M E L - U R L A D E R *
;* *
;*************************************************************************
.XLIST
on equ 0ffh
off equ 0
test equ off
deft macro text
local textend
db (textend-$-1)
db &text
textend label byte
endm
ke macro text
local teend
call info
jmp teend
db '&text'
teend:
endm
trcpas macro name
local trcfield,endtrc
if trcswitch
push hl
ld hl,(trcfield)
inc hl
ld (trcfield),hl
pop hl
jr endtrc
db '&name'
trcfield:
dw 0
endtrc:
endif
endm
ifz macro op
local false
jnz false
op
false:
endm
ifnz macro op
local false
jz false
op
false:
endm
ifc macro op
local false
jnc false
op
false:
endm
ifnc macro op
local false
jc false
op
false:
endm
popff macro
push cs
call x_iret
endm
.LIST
|
