CRTC change colour (fill) test with precise timing - Revision history

Matahari at 14:24, 28 March 2011

2011-03-28T14:24:41Z

← Older revision		Revision as of 14:24, 28 March 2011
Line 84:		Line 84:
	out (c),l ; Box #10 = RED		out (c),l ; Box #10 = RED

	defs 24+1 ; Yes, we're ~~using~~ 1 NOP ~~more~~		defs 24+1 ; Yes, we're adding 1 more NOP
	; to achieve 8 pixel precision shift		; to achieve 8 pixel precision shift
	; during next scan !!!		; during next scan !!!
Line 101:		Line 101:
	out (c),l ; Box #10 = RED		out (c),l ; Box #10 = RED

	defs 24-1 ; Fixing previous ~~subtraction~~!		defs 24-1 ; Fixing previous addition!

	;-------------------------------------------------------		;-------------------------------------------------------

Matahari at 14:20, 28 March 2011

2011-03-28T14:20:55Z

← Older revision		Revision as of 14:20, 28 March 2011
Line 67:		Line 67:
	out (c),l ; Box #10 = RED		out (c),l ; Box #10 = RED

	defs ~~25-1~~ ~~; Yes, we're using 1 NOP less~~		defs 24   ; NOP
	; ~~to achieve 8 pixel precision shift~~
	~~ ; during next scan !!!~~

	REND		REND
Line 86:		Line 84:
	out (c),l ; Box #10 = RED		out (c),l ; Box #10 = RED

	defs 25   ; ~~NOP~~		defs 24+1 ; Yes, we're using 1 NOP more
			; to achieve 8 pixel precision shift
			; during next scan !!!

	;-------------------------------------------------------		;-------------------------------------------------------
Line 101:		Line 101:
	out (c),l ; Box #10 = RED		out (c),l ; Box #10 = RED

	defs ~~23 ~~  ; Fixing previous subtraction!		defs 24-1 ; Fixing previous subtraction!

	;-------------------------------------------------------		;-------------------------------------------------------

Matahari at 14:15, 28 March 2011

2011-03-28T14:15:01Z

← Older revision		Revision as of 14:15, 28 March 2011
Line 23:		Line 23:
	ld hl,&c9fb		ld hl,&c9fb
	ld (&38),hl		ld (&38),hl
			ei

	;====== Here comes the MAIN LOOP =======================		;====== Here comes the MAIN LOOP =======================

	Loop: ei		Loop:

	;------ Wait for vertical blanking sync ----------------		;------ Wait for vertical blanking sync ----------------
Line 37:		Line 38:
	halt		halt
	halt		halt
	di

	;------ Set the colours --------------------------------		;------ Set the colours --------------------------------
Line 50:		Line 50:
	ld a,&44		ld a,&44

	defs ~~1127~~		defs 1128

	;------ Here comes copper (sorry, CRTC) list! ----------		;------ Here comes copper (sorry, CRTC) list! ----------
Line 133:		Line 133:

	</pre>		</pre>

	[[Category:Programming]]		[[Category:Programming]]

Octoate: added category

2011-03-27T20:21:04Z

added category

← Older revision		Revision as of 20:21, 27 March 2011
Line 133:		Line 133:

	</pre>		</pre>

			[[Category:Programming]]

Matahari at 15:16, 27 March 2011

2011-03-27T15:16:37Z

← Older revision		Revision as of 15:16, 27 March 2011
Line 5:		Line 5:
	; by matahari - (March 27, 2011)		; by matahari - (March 27, 2011)
	;		;
	; NOTE: Watch the "precisely shifted" raster line!		; NOTE - Watch the "precisely shifted" raster line!
	; And, use it wisely to make some filled vectors.		; And, use it wisely to make some filled vectors
	;-------------------------------------------------------		;-------------------------------------------------------

Matahari: Created page with "

;------------------------------------------------------- ; CRTC change colour (fill) test ; with precise timing! ; ; by matahari - (March 27, 2011) ; ; NOTE: Watch the "prec..."

2011-03-27T15:11:26Z

Created page with "<pre>;------------------------------------------------------- ; CRTC change colour (fill) test ; with precise timing! ; ; by matahari - (March 27, 2011) ; ; NOTE: Watch the "prec..."

New page

<pre>;-------------------------------------------------------
; CRTC change colour (fill) test
; with precise timing!
;
; by matahari - (March 27, 2011)
;
; NOTE: Watch the "precisely shifted" raster line!
; And, use it wisely to make some filled vectors.
;-------------------------------------------------------

org &3000
run &3000

;------ Switch to Mode 1 -------------------------------

ld a,1
call &bc0e

;------ Set an interrupt that makes nothing! -----------

di
im 1
ld hl,&c9fb
ld (&38),hl

;====== Here comes the MAIN LOOP =======================

Loop: ei

;------ Wait for vertical blanking sync ----------------

ld b,&f5
WaitVB: in a,(c)
rra
jr nc,WaitVB

halt
halt
di

;------ Set the colours --------------------------------

ld bc,&7f00
out (c),c

ld h,&51
ld l,&48
ld d,&43
ld e,&4d
ld a,&44

defs 1127

;------ Here comes copper (sorry, CRTC) list! ----------

REPEAT 4

out (c),h ; Box #1 = GREEN
out (c),l ; Box #2 = RED
out (c),d ; Box #3 = YELLOW
out (c),e ; Box #4 = PURPLE
out (c),h ; Box #5 = GREEN
out (c),l ; Box #6 = RED
out (c),d ; Box #7 = YELLOW
out (c),e ; Box #8 = PURPLE
out (c),h ; Box #9 = GREEN
out (c),l ; Box #10 = RED

defs 25-1 ; Yes, we're using 1 NOP less
 ; to achieve 8 pixel precision shift
 ; during next scan !!!

REND

;-------------------------------------------------------

out (c),h ; Box #1 = GREEN
out (c),l ; Box #2 = RED
out (c),d ; Box #3 = YELLOW
out (c),e ; Box #4 = PURPLE
out (c),h ; Box #5 = GREEN
out (c),l ; Box #6 = RED
out (c),d ; Box #7 = YELLOW
out (c),e ; Box #8 = PURPLE
out (c),h ; Box #9 = GREEN
out (c),l ; Box #10 = RED

defs 25   ; NOP

;-------------------------------------------------------

out (c),h ; Box #1 = GREEN
out (c),l ; Box #2 = RED
out (c),d ; Box #3 = YELLOW
out (c),e ; Box #4 = PURPLE
out (c),h ; Box #5 = GREEN
out (c),l ; Box #6 = RED
out (c),d ; Box #7 = YELLOW
out (c),e ; Box #8 = PURPLE
out (c),h ; Box #9 = GREEN
out (c),l ; Box #10 = RED

defs 23   ; Fixing previous subtraction!

;-------------------------------------------------------

REPEAT 5

out (c),h ; Box #1 = GREEN
out (c),l ; Box #2 = RED
out (c),d ; Box #3 = YELLOW
out (c),e ; Box #4 = PURPLE
out (c),h ; Box #5 = GREEN
out (c),l ; Box #6 = RED
out (c),d ; Box #7 = YELLOW
out (c),e ; Box #8 = PURPLE
out (c),h ; Box #9 = GREEN
out (c),l ; Box #10 = RED

defs 24   ; NOP

REND

;-------------------------------------------------------

out (c),a ; Blue space

;-------------------------------------------------------

jp loop

;====== End of MAIN LOOP ===============================

</pre>