Language…
12 users online: Alexdroide177,  Anorakun, CalHal, HammerBrother, Mohamad20ZX, Nextalis,  NopeContest, SaxxyBob, slopcore, SMWizard, TeddyJi,  ThirdWall - Guests: 100 - Bots: 694
Users: 55,002 (2,197 active)
Latest user: SarePhoenix

$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