Idioma…
9 usuários online: akidaban, fsvgm777, jobvd, nanec, NBSpider,  shovda,  sincx, Squiggs, yoshiatom - Visitantes: 75 - Bots: 195
Usuários: 55.612 (2.434 ativos)
Último usuário: arsosa

$02A547 - Example Code

    jsl $03B69F|!bank    ; Get sprite clipping (sprite B)
ldy #$09
.CheckLoop
lda !extended_num,y ; $170B
cmp #$05 ; check if the slot is not empty
bne .NoContact
phb ; Save DB for later
lda #$02|!bank8 ;\
pha ;| Set DB to $02
plb ;/
phk ;\
pea.w .Return-1 ;|
pea.w $02B889-1 ;| JSL-to-RTS call to the routine
jml $02A519|!bank ;|
.Return ;/
plb ; Restore DB
jsl $03B72B|!bank ; Call "check contact" routine
bcc .NoContact ; Carry clear -> no contact
.Contact
...
.NoContact
dey
cpy #$07
bne .CheckLoop