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
|
; fill8k.asm
;
; Generate a file of some size, useful for testing.
; Shows the use of some operators and directives.
;
if 0 ; This is for pasmo testing.
else
fill256 macro
local n
n defl 0
rept 256
db n
n defl n + 1
endm
endm
endif
fill1k macro
rept 4
fill256
endm
endm
filln macro n
local j
j defl 0
rept n
db j
j defl (j + 1) mod 256
endm
endm
init: rept 8
fill1k
endm
if 1 ; This is for pasmo testing.
if defined SOMEMORE && SOMEMORE != 0
filln SOMEMORE
endif
else
if defined SOMEMORE && SOMEMORE != 0
proc
local j
j defl 0
rept SOMEMORE
db j
j defl (j + 1) mod 256
endm
endp
endif
endif
; End of fill8k.asm
|
