!irq_mode = $7e0d9b
!sprite_id = $7e009e
!sprite_status = $7e14c8
!sprite_y = $7e00d8
!sprite_x = $7e00e4

	lda !irq_mode
	cmp #$c1
	bne end
	
	ldx #$03
	lda !sprite_id,x
	cmp #$52
	bne make_hole
	lda !sprite_status,x
	cmp #$08
	beq end
	
make_hole:
	lda #$52
	sta !sprite_id,x
	lda #$08
	sta !sprite_status,x
	lda #$b8
	sta !sprite_y,x
	lda #$a8
	sta !sprite_x,x
	jsl $07F7D2
	
end:
	rtl

back to listings