$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