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