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