
 1000  *---------------------------------
 1010  *      SIMPLE TONE
 1020  *---------------------------------
 1030  SPEAKER    .EQ $C030
 1040  *---------------------------------
 1050  TONE   LDY #0       START CYCLE COUNTER
 1060         LDX #0       START DELAY COUNTER
 1070  .1     LDA SPEAKER  TOGGLE SPEAKER
 1080  .2     DEX          DELAY LOOP
 1090         BNE .2
 1100         DEY          QUIT AFTER 128 CYCLES
 1110         BNE .1
 1120         RTS

