mirror of
https://github.com/Tolik-Trek/Sprinter-BIOS.git
synced 2026-06-15 01:11:47 +03:00
41 lines
834 B
NASM
41 lines
834 B
NASM
Sprites:
|
||
; <20> ¢å®¤¥ ¢ IX ¤à¥á â ¡«¨æë á ¢ë¢®¤¨¬ë¬¨ á¯à ©â ¬¨
|
||
IN A,(SLOT1)
|
||
LD H,A
|
||
IN A,(PORT_Y)
|
||
LD L,A
|
||
PUSH HL
|
||
|
||
LD A,#58
|
||
OUT (SLOT1),A
|
||
|
||
; ld ix,SP_Table
|
||
ld b,(ix+0)
|
||
inc ix
|
||
.loop:
|
||
push bc
|
||
LD A,(ix+str_EasterSprites.SpHeight) ; !!!!! ª®®à¤¨ â ª à⨪¨ ¯® Y + ¢ëá®â ª à⨪¨
|
||
ld l,(ix+str_EasterSprites.SpAddress)
|
||
ld h,(ix+str_EasterSprites.SpAddress+1)
|
||
.putSprite:
|
||
DEC A
|
||
OUT (PORT_Y),A
|
||
LD E,(ix+str_EasterSprites.SpXCoord) ; !HARDCODE ª®®à¤¨ â ª à⨪¨ ¯® •
|
||
LD D,(ix+str_EasterSprites.SpXCoord+1)
|
||
LD C,(ix+str_EasterSprites.SpWidth) ; !HARDCODE ¤«¨ £®à¨§®â «ì®© «¨¨¨ ª à⨪¨
|
||
LD B,(ix+str_EasterSprites.SpWidth+1)
|
||
LDIR
|
||
CP (IX+str_EasterSprites.SpYCoord)
|
||
JP NZ,.putSprite
|
||
ld c,str_EasterSprites
|
||
add ix,bc
|
||
pop bc
|
||
djnz .loop
|
||
|
||
POP BC
|
||
LD A,B
|
||
OUT (SLOT1),A
|
||
LD A,C
|
||
OUT (PORT_Y),A
|
||
XOR A
|
||
RET |