New beta release 1.2.7r2021 - Printable Version

Code:

FUNCTION scrAddress(x as uByte, y as uByte) as Uinteger
asm
;' This fn returns the address into HL of the screen address
;' x,y in character grid notation.
;' Original code was extracted by BloodBaz - Adapted for ZX BASiC by Britlion from Na_TH_AN's fourspriter

         ; x Arrives in A, y is in stack.
         and     31
         ld      l,a
         ld      a,(IX+7) ; Y value
         ld      d,a
         and     24
         add     a,64
         ld      h,a
         ld      a,d
         and     7
         rrca
         rrca
         rrca
         or      l
         ld      l,a
               
end asm
END FUNCTION
FUNCTION attrAddress(x as uByte, y as uByte) as uInteger               
';; This function returns the memory address of the Character Position
';; x,y in the attribute screen memory.
';; Adapted from code by Jonathan Cauldwell - Adapted for ZX BASiC by Britlion from Na_TH_AN's fourspriter

asm
         ld      a,(IX+7)        ;ypos
         rrca
         rrca
         rrca               ; Multiply by 32
         ld      l,a        ; Pass to L
         and     3          ; Mask with 00000011
         add     a,88       ; 88 * 256 = 22528 - start of attributes.
         ld      h,a        ; Put it in the High Byte
         ld      a,l        ; We get y value *32
         and     224        ; Mask with 11100000
         ld      l,a        ; Put it in L
         ld      a,(IX+5)   ; xpos
         add     a,l        ; Add it to the Low byte
         ld      l,a        ; Put it back in L, and we're done. HL=Address.

end asm

END FUNCTION
sub putblock(x as Ubyte,y as ubyte,wid as ubyte,hgt as ubyte,adr as Uinteger)
	dim scr,attribute as Uinteger
	dim x1,y1 as Ubyte
	dim a as Ubyte
	poke uinteger @putblock1+7,wid
	poke uinteger @putblock2+7,wid
	for y1=0 to hgt-1
		scr=scrAddress(x,y+y1)
		for a=0 to 7
			poke uinteger @putblock1+1,adr
			poke uinteger @putblock1+4,scr
			putblock1:
			asm
				ld hl,1
				ld de,2
				ld bc,3
				ldir
			end asm
			adr=adr+wid
			scr=scr+256
		next a
	next y1
	attribute=attrAddress(x,y)
	for y1=0 to hgt-1
		poke uinteger @putblock2+1,adr
		poke uinteger @putblock2+4,attribute
		adr=adr+wid
		attribute=attribute+32
		putblock2:
		asm
			ld hl,4
			ld de,5
			ld bc,6
			ldir
		end asm
	next y1
End sub
start:

putblock(0,18,8,6,0)
putblock(8,18,8,6,0)
putblock(16,18,8,6,0)
putblock(24,18,8,6,0)
putblock(24,12,8,6,0)
putblock(24,6,8,6,0)
putblock(24,0,8,6,0)

putblock(0,0,24,18,0)
pause 0

Code:

> Executing: C:\Program Files (x86)\ConTEXT\ConExec.exe -i "C:\Program Files (x86)\Boriel Tm\ZX Basic Compiler\zxb.exe" -T -B -O 3 -S 24000  -a GE2240~1.bas

input.bas:38: warning: Empty loop
GE2240~1.bas:1088: Syntax Error. Unexpected token 'SUB' <ID>
GE2240~1.bas:1088: warning: Variable 'xd' declared as 'float'
GE2240~1.bas:1088: Syntax Error. Unexpected token 'as' <ID>
GE2240~1.bas:1088: illegal character ','
> Execution finished.