File: colors.asx

package info (click to toggle)
atari800 5.2.0-2
  • links: PTS, VCS
  • area: contrib
  • in suites: forky, sid, trixie
  • size: 7,196 kB
  • sloc: ansic: 86,829; asm: 18,694; sh: 3,173; cpp: 2,798; java: 2,453; xml: 957; makefile: 727; perl: 334; pascal: 178
file content (47 lines) | stat: -rw-r--r-- 413 bytes parent folder | download | duplicates (9) 
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
 
; Displays 256 colors

	org	$8000
main
	ldx	$d40b
	rne
	mwa	#dl	$230
	mva	#$a1	$22f
	asl	@
	sta	$26f
	mva	#$20	$d000
	mva	#$c0	$d001
	dex
	txs
	txa
	ldy	#7
	sta:rne	$d007,y-
init
	pha
	pha
	sbc	#$11
	bcs	init
	tya

frame
	ldy	#16
	cpy	$d40b
	rne
	clc
bar
	ldy	#12
	ldx	<dl+3
line
	sta	$d40a
	stx	$d402
	dey
	bne	line
	adc	#$10
	sta	$d01a
	bcc	bar
	sty	$d400
	bcs	frame

dl
	dta	$70,$70,$70,$4f,a($1e0)

	run	main