Programming:Fast plot - Revision history

Urusergi: /* Fast plotting routine for MODE 1 */

2018-03-17T18:04:07Z

‎Fast plotting routine for MODE 1

2018-03-17T17:52:59Z

‎Fast plotting routine for MODE 2

2016-07-24T02:35:52Z

typo

2006-08-28T00:26:42Z

added category

2006-08-24T20:12:13Z

Only need SRL E for MODE 0

2006-08-24T20:09:28Z

Added MODE 2 version to complete it and fixed MODE 0 comment

2006-08-24T09:16:57Z

Sorted routines by mode

2006-08-24T09:14:08Z

Changed &X into % - (old code which I used with another compiler)

2006-08-24T05:18:09Z

Added MODE 0 version

2006-08-24T05:12:03Z

@@ Line 40: / Line 40: @@
 == Fast plotting routine for MODE 1 ==
-This routine is approx. 6 times faster than the OS routine GRA PLOT, because it is dpendent to MODE 1 and doesn't perform range checks. It can draw 10500 pixels per second.
+This routine is approx. 6 times faster than the OS routine GRA PLOT, because it is dependent to MODE 1 and doesn't perform range checks. It can draw 10500 pixels per second.
 '''Input:''' DE = ''X (0..319)'', HL = ''Y (0..199)''

@@ Line 103: / Line 103: @@
 	ADD HL, HL		;of the raster line
 	SRL D			;calculate X\8, because
 	RR E			;8 pixel per byte

@@ Line 6: / Line 6: @@
 <pre>
-CMASK	EQU &B338		;Adress for colormask
+CMASK	EQU &B338		;Address for colormask
 				;664/6128: &B6A3
@@ Line 45: / Line 45: @@
 <pre>
-CMASK	EQU &B338		;Adress for colormask
+CMASK	EQU &B338		;Address for colormask
 				;664/6128: &B6A3
@@ Line 87: / Line 87: @@
 <pre>
-CMASK	EQU &B338		;Adress for colormask
+CMASK	EQU &B338		;Address for colormask
 				;664/6128 - &B6A3

@@ Line 22: / Line 22: @@
 	ADD HL, HL		;of the raster line
-	SRL D			;calculate X\2, because
+	SRL E			;calculate X\2, because 2 pixel per byte, Carry is X MOD 2
-	RR E			;2 pixel per byte, Carry is X MOD 2
 	LD C, %10101010	        ;Bitmask for MODE 0

@@ Line 25: / Line 25: @@
 	RR E			;2 pixel per byte, Carry is X MOD 2
-	LD C, %10101010	        ;Bitmask for MODE 1
+	LD C, %10101010	        ;Bitmask for MODE 0
 	JR NC, NSHIFT		;-> = 0, no shift
 SHIFT 	LD C, %01010101	        ;other bitmask for right pixel
@@ Line 72: / Line 72: @@
 	JR Z, NSHIFT		;-> = 0, no shift
 SHIFT 	SRL C			;move bitmask to pixel
 	DEC A			;loop counter
 	JR NZ,SHIFT		;-position

@@ Line 10: / Line 10: @@
 FPLOT	LD A, L			;A = Lowbyte Y
-	AND &X00000111		;isolate Bit 0..2
+	AND %00000111		;isolate Bit 0..2
 	LD H, A			;= y MOD 8 to H
 	XOR L			;A = Bit 3..7 of Y
@@ Line 28: / Line 28: @@
 	ADD HL, DE		;+ HL = Screenaddress
-	LD C, &X10001000	;Bitmask for MODE 1
+	LD C, %10001000		;Bitmask for MODE 1
-	AND &X00000011		;A = X MOD 4
+	AND %00000011		;A = X MOD 4
 	JR Z, NSHIFT		;-> = 0, no shift
 SHIFT 	SRL C			;move bitmask to pixel
@@ Line 82: / Line 82: @@
 	RET			;done
 </pre>

← Older revision		Revision as of 05:18, 24 August 2006
Line 83:		Line 83:
	</pre>		</pre>

−	NOTE: This MODE 1 code won't assemble with WinAPE/Maxam unless the &X is replaced by % to denote binary numbers.	+	NOTE: This MODE 1 code above won't assemble with WinAPE/Maxam unless the &X is replaced by % to denote binary numbers.

← Older revision		Revision as of 05:12, 24 August 2006
Line 42:		Line 42:
	RET ;done		RET ;done
	</pre>		</pre>
		+
		+
		+	== Fast plotting routine for MODE 0 ==
		+
		+	Converted from the above by [[User:Executioner\|The Executioner]]
		+
		+	'''Input:''' DE = ''X (0..159)'', HL = ''Y (0..199)''
		+
		+	<pre>
		+	CMASK EQU &B338 ;Adress for colormask
		+	;664/6128: &B6A3
		+
		+	FPLOT LD A, L ;A = Lowbyte Y
		+	AND %00000111 ;isolate Bit 0..2
		+	LD H, A ;= y MOD 8 to H
		+	XOR L ;A = Bit 3..7 of Y
		+	LD L, A ;= (Y\8)*8 to L
		+	LD C, A ;store in C
		+	LD B, &60 ;B = &C0\2 = Highbyte Screenstart\2
		+
		+	ADD HL, HL ;HL * 2
		+	ADD HL, HL ;HL * 4
		+	ADD HL, BC ;+ BC = Startaddress
		+	ADD HL, HL ;of the raster line
		+
		+	SRL D ;calculate X\2, because
		+	RR E ;2 pixel per byte, Carry is X MOD 2
		+
		+	LD C, %10101010 ;Bitmask for MODE 1
		+	JR NC, NSHIFT ;-> = 0, no shift
		+	SHIFT LD C, %01010101 ;other bitmask for right pixel
		+
		+	NSHIFT ADD HL, DE ;+ HL = Screenaddress
		+	LD A, (CMASK) ;get color mask
		+	XOR (HL) ;XOR screenbyte
		+	AND C ;AND bitmask
		+	XOR (HL) ;XOR screenbyte
		+	LD (HL), A ;new screenbyte
		+	RET ;done
		+	</pre>
		+
		+	NOTE: This MODE 1 code won't assemble with WinAPE/Maxam unless the &X is replaced by % to denote binary numbers.