pasmo/black.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
108
109
110
111
112
113
114
115
116
	; black.asm

	; Fills slowly the spectrum screen.
	; This program test some capabilities of Pasmo.

	; Try for example:
	; pasmo --tapbas black.asm black.tap
	; pasmo --tapbas --equ NODELAY black.asm black.tap
	; pasmo --tapbas --equ DELAYVALUE=0F000h black.asm black.tap

	; To run it in fuse, for example:
	; fuse black.tap

;		Testing ? short-circuit operator
	org defined LOADPOS ? LOADPOS : 30000

	if defined FILLVALUE
value	equ FILLVALUE
	else
value	equ 0FFh
	endif

start

	; Point to the screen bitmap.

screen		equ defined CPC ? 0C000h : 04000h
	; High word of end of screen
endscreen	equ defined CPC ? 00h : 58h

	if defined USEHL
	ld hl, screen
	else
	ld ix,screen
	endif

other

	; Fills an octet of the screen with the value specified.

	if defined USEHL
	ld (hl), value
	inc hl
	else
	ld (ix), value
	inc ix
	endif

	; Delay

	;if not defined NODELAY
	;if ~ defined NODELAY
	;if ! defined NODELAY
	; Testing short-circuit evaluation.
	if ! defined NODELAY && (! defined DELAYVALUE || DELAYVALUE != 0)
	;if ! defined NODELAY || ! defined DELAYVALUE || DELAYVALUE != 0

;	if defined DELAYVALUE
;loops	equ DELAYVALUE
;	else
;loops	equ 100h
;	endif
;		Testing ? short-circuit operator
loops	equ defined DELAYVALUE ? DELAYVALUE : 100h

;	ld bc, loops
;		Testing high and low operators
	ld b, high loops
	ld c, low loops

delay	dec bc
	ld a,b
	or c
	if defined USEJP
	jp nz, delay
	else
	jr nz, delay
	endif

	endif

	; Test if reached end of screen.

	ld a, 0

	if defined USEHL
	cp l
	else
	cp ixl
	endif

	if defined USEJP
	jp nz, other
	else
	jr nz, other
	endif
	ld a, endscreen

	if defined USEHL
	cp h
	else
	cp ixh
	endif

	if defined USEJP
	jp nz, other
	else
	jr nz, other
	endif

	; And return to Basic.

	ret

	; Set the entry point, needed with the --tapbas option to autorun.
	end start