NAM MUSIC
       OPT NOP,S
       ORG 0
REPLAY CLR $8005 CLEAR CRA-2 BIT
       INC $8004 INCR DATA DIRECTION REG
       COM $8005 SET CRA-2 BIT
       LDS #TEMP POINT TO FIRST NOTE -1
NUNOTE LDX #$08FF TIME PER NOTE
       PUL B PULL NEXT NOTE FROM STACK
       TSTB HAS LAST NOTE BEEN PLAYED?
       BEQ REPLAY IF NOT, CONTINUE
       STAB TEMP STORE NOTE-CODE
TONLUP INCA TOGGLES OUTPUT WHEN STORED
       LDAB TEMP GET NOTE-CODE
COUNT  DEX HOLD TONE FOR AWHILE
       BEQ NUNOTE LONG ENOUGH YET?
       DECB 
       BNE COUNT
       STAA $8004 TOGGLES OUTPUT
       BRA TONLUP
TEMP   RMB 1
       FCB $53,$42,$53,$42,$53,$42,$53,$42,$53
       FCB $42,$53,$42,$37,$42,$37,$42,$37,$42,$37,$42
       FCB $22,$2B,$22,$2B,$20,$29,$20,$29
       FCB $20,$29,$20,$29,$20,$29,$20,$29,$20
       FCB $29,$20,$29,$20,$29,$20,$29,$20,$29
       FCB $20,$29,$2B,$37,$2B,$37,$24,$2B,$24
       FCB $2B,$29,$37,$29,$37,$42,$37,$42,$37
       FCB $42,$37,$42,$37,$3A,$46,$3A,$46,$3E
       FCB $4A,$3E,$4A,$3E,$4A,$3E,$4A,$3E,$4A
       FCB $3E,$4A,$3E,$4A,$3E,$4A,$3E,$4A,$3E
       FCB $4A,$3E,$4A,$3E,$4A,$3E,$58,$3E,$58
       FCB $3E,$58,$3E,$58,$3E,$58,$3E
       FCB $58,$37,$4A,$37,$4A,$37,$4A,$37,$4A
       FCB $31,$3E,$31,$3E,$2B,$37,$2B,$37,$2B
       FCB $37,$2B,$37,$2B,$37,$2B,$37,$2B,$37
       FCB $2B,$37,$2B,$37,$2B,$37,$2B,$37,$2B
       FCB $37,$31,$3E,$31,$3E,$37,$42,$37,$42
       FCB $3A,$46,$3A,$46,$3E,$4A,$3E,$4A,$3E
       FCB $4A,$3E,$4A,$24,$3E,$24,$3E,$29,$42
       FCB $29,$42,$29,$42,$29,$42,$29,$42,$29
       FCB $42,$29,$42,$29,$42,$2B,$31,$37,$3E
       FCB $42,$4A,$00
       END