2013-05-16, 08:11 PM
yes that is what I need for sprites,
but I am trying to do some scrolling
got it to work
I slowed it down intentionally so you can see whats going on
but I am trying to do some scrolling
got it to work
Code:
function FASTCALL drawthis() as ubyte
asm
LD HL,16384
LD BC,8
;LD A,3
;RRC A
;RRC A
;RRC A
OR 7
LD L,A
drawblokes:
LD A,255
LD (HL),A
INC H
DEC BC
LD (blockiter),BC
LD BC,(delayiter)
wait1:
dec BC
ld a,B
or C
jr nz, wait1
LD BC,(blockiter)
LD A, B
OR C
JP NZ,drawblokes
LD BC,8
LD (blockiter),BC
LD A,31
LD (screenwidthiter),A
LD A,7
LD (screenheightiter),A
LD HL,6000
LD (scrolliter),HL
LD DE,(scrolliter)
LD HL,16384
scroll:
DEC DE
LD BC,(delayiter)
wait2:
dec BC
ld a,B
or C
jr nz, wait2
LD B,(screenwidthiter)
;LD C,(screenheightiter)
screenhori:
LD L,B
;shift graphic
LD A,(HL)
RLA
LD (HL),A
DEC B
LD A,B
jr nz,screenhori
LD DE,(scrolliter)
LD A, D
OR E
jp nz,scroll
end asm
end function
drawthis()
Print "done"
STOP
ASM
blockiter:
defw 8
delayiter:
defw 60000
screenwidthiter:
defb 31
screenheightiter:
defb 23
scrolliter:
defw 10000
end asmI slowed it down intentionally so you can see whats going on