listblocks.a65
5 A:1000 *= $1000
7 A:1000 a9 00 label1 lda #$00
9 A:1002 .(
10 A:1002 85 02 label2 sta $02
11 A:1004 d0 fc bne label2
12 A:1006 .)
14 A:1006 .(
15 A:1006 a5 02 label2 lda $02 ; again!
16 A:1008 d0 fc bne label2
17 A:100a .)
19 A:100a c8 label2 iny
20 A:100b f0 fd beq label2
22 A:100d 4c 00 10 jmp label1