
 1000  *--------------------------------
 1010  *      FUNNY NOISE
 1020  *--------------------------------
 1030  SPKR   .EQ $C030    SPEAKER TOGGLE ADDRESS
 1040  KYBD   .EQ $C000    KEYBOARD INPUT
 1050  STROBE .EQ $C010    KEYBOARD STROBE
 1060  *--------------------------------
 1070  PNTR   .EQ 0        ADDRESS OF CURRENT RANDOM VALUE
 1080  *--------------------------------
 1090  NOISE  JSR $FC58    CLEAR SCREEN, HOME CURSOR
 1100  N0     LDY #0       POINT TO FIRST BYTE IN PAGE
 1110         LDA #$D000   START AT $D000
 1120         STA PNTR
 1130         LDA /$D000
 1140         STA PNTR+1
 1150         JSR $FDDA    PRINT PAGE NUMBER
 1160  N1     LDA SPKR     TOGGLE SPEAKER
 1170         LDA (PNTR),Y GET HALF-CYCLE TIMER
 1180         TAX
 1190  N2     DEX          DELAY LOOP FOR HALF-CYCLE
 1200         BNE N2
 1210         INY          NEXT BYTE IN PAGE
 1220         BNE N1
 1230         INC PNTR+1   NEXT PAGE
 1240         LDA PNTR+1   BYPASS I/O AREA
 1250         CMP /$C000
 1260         BEQ N0   
 1270         JSR $FDDA    PRINT PAGE NUMBER
 1280         LDA KYBD     SEE IF ANY KEY PRESSED
 1290         BPL N1       NO, KEEP MAKING NOISE
 1300         STA STROBE   YES, CLEAR STROBE
 1310         RTS          THAT'S ALL, FOLKS!

