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.