API tools faq
paste
Advertisement
felixnardella

Happy New Year 2021 V1.3

felixnardella
Jan 6th, 2021 (edited)
142
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 12.83 KB | None | 0 0
raw download clone embed print report
  1. ; ***************************************************************
  2. ; HAPPY NEW YEAR 2021 - FOR C64 - V 1.3 (JAN 2021)
  3. ; XC=BASIC CODE BY KIMONO (FELICE NARDELLA)
  4. ; GRAPHICS BY KIMONO (FELICE NARDELLA)
  5. ; SID: "SANTA CLAUS IS COMING TO TOWN" BY BATSMAN (F. BENGTSSON)
  6. ; ***************************************************************
  7.  
  8. GOTO START
  9.  
  10. ORIGIN $1000
  11. INCBIN "SANTA1.SID"
  12.  
  13. PROC START_MUSIC
  14. ASM " SEI"
  15. DOKE $314, @IRQ_ROUTINE
  16. POKE $D011, $1B
  17. POKE $D012, $00
  18. POKE $DC0D, $7F
  19. POKE $D01A, $01
  20. POKE $D019, $01
  21. ASM "
  22. LDA #$00
  23. JSR $1000
  24. CLI"
  25.  
  26. RETURN
  27.  
  28. IRQ_ROUTINE:
  29. ASM "
  30. LDA #$01
  31. STA $D019
  32. JSR $1003
  33. JMP $EA31"
  34. ENDPROC
  35.  
  36. START:
  37. PRINT "{CLR}"
  38. DOKE $D020,0
  39. CALL START_MUSIC
  40. POKE $328,239
  41. POKE $318,193
  42.  
  43. FOR K = 0 TO 999
  44. POKE $982F+K,FRAME00[K]
  45. POKE $9C17+K,FRAME00[1000+K]
  46. NEXT K
  47.  
  48. LOOP:
  49. N=0
  50. MEMSHIFT $982F, $400, 1000
  51. MEMSHIFT $9C17, $D800, 1000
  52. GOSUB SCREEN00
  53.  
  54. N=0
  55. MEMSHIFT $982F, $400, 1000
  56. MEMSHIFT $9C17, $D800, 1000
  57. GOSUB SCREEN01
  58.  
  59. GOTO LOOP
  60.  
  61. SCREEN00:
  62. FOR K = 0 TO 999
  63. POKE $982F+K,FRAME00[K]
  64. POKE $9C17+K,FRAME00[1000+K]
  65. NEXT K
  66. GOSUB PAUSE
  67. RETURN
  68.  
  69. SCREEN01:
  70. FOR K = 0 TO 999
  71. POKE $982F+K,FRAME01[K]
  72. POKE $9C17+K,FRAME01[1000+K]
  73. NEXT K
  74. GOSUB PAUSE
  75. RETURN
  76.  
  77. PAUSE:
  78. WHILE N<10000
  79. N=N+1
  80. ENDWHILE
  81. RETURN
  82.  
  83. END
  84.  
  85. DATA FRAME00[] = 77,32,78,77,32,78,77,32,78,77,32,78,77,32,78,77,32,78,77,32,78,77,32,78,77,32,78,77,32,78,77,32,78,77,32,78,77,32,78,32,32,160,32,32,160,32,32,160,32,32,160,32,32,160,32,32,160,32,32,160,32,32,160,32,32,160,32,32,160,32,32,160,32,32,160,32,32,160,32,32,32,81,32,32,81,32,32,81,32,32,81,32,32,81,32,32,81,32,32,81,32,32,81,32,32,81,32,32,81,32,32,81,32,32,81,32,32,81,32,32,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,92,32,32,32,32,121,98,248,247,227,247,248,98,121,32,32,32,32,32,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,92,32,32,32,78,78,119,119,119,119,119,119,119,77,77,32,32,32,32,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,92,32,32,118,78,87,32,32,32,194,32,32,32,87,77,117,32,32,32,66,46,32,32,46,32,32,32,46,32,66,32,46,32,32,32,46,32,32,32,66,101,32,32,225,116,32,32,77,32,32,32,78,32,32,103,97,32,32,32,66,32,32,81,32,46,32,32,32,32,66,32,32,32,46,32,32,32,46,32,66,101,32,32,245,116,32,77,32,32,30,32,32,78,32,103,246,32,32,32,66,32,46,32,32,32,173,173,46,32,66,46,32,32,32,32,32,32,32,32,66,101,32,32,244,116,32,32,32,32,66,32,100,100,32,103,231,32,32,32,66,32,32,32,32,32,162,162,32,32,66,32,32,233,160,160,160,160,223,32,66,101,32,32,160,116,64,31,67,67,87,103,51,49,64,103,160,32,32,32,66,32,78,77,32,32,162,162,32,89,66,84,32,194,194,160,194,194,160,32,66,101,32,32,229,116,32,32,32,32,32,32,99,99,32,103,231,32,32,32,66,32,78,77,32,32,162,162,32,32,66,32,32,173,173,160,160,160,160,32,66,101,32,32,245,116,32,78,32,104,104,104,32,77,32,103,246,32,32,32,66,78,78,77,77,32,162,162,32,32,66,32,32,194,194,160,162,162,160,32,66,101,32,32,225,116,32,32,78,32,32,32,77,32,32,103,97,32,32,32,66,78,78,77,77,32,162,162,32,32,66,32,32,173,173,160,85,73,160,32,66,101,32,32,118,77,87,32,32,32,66,32,32,32,87,78,117,32,32,32,66,78,118,117,77,32,194,194,32,32,66,32,32,194,194,160,228,66,160,32,66,116,32,32,32,77,77,111,111,111,111,111,111,111,78,78,32,32,32,32,109,64,64,64,64,64,64,64,64,67,113,67,67,67,67,67,160,67,67,67,125,116,32,32,32,32,120,226,249,239,228,239,249,226,120,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,173,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,223,32,233,32,32,32,32,215,32,32,112,64,110,32,112,64,110,32,32,32,32,32,32,65,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,233,160,162,162,223,32,32,233,160,223,32,93,32,66,32,66,32,66,32,32,32,32,32,103,160,116,32,32,32,32,32,32,32,32,233,160,160,160,160,160,244,160,173,174,173,32,32,160,160,160,32,93,32,66,32,66,32,66,32,32,32,32,32,103,160,116,32,65,32,32,32,32,32,233,160,160,160,160,160,160,205,228,160,173,105,32,32,132,143,141,32,74,70,75,32,74,82,75,32,32,32,32,32,103,160,116,103,160,116,32,32,32,32,160,160,160,228,160,160,160,160,228,102,228,32,32,32,144,133,146,32,32,66,32,32,32,93,32,32,32,32,90,32,103,160,116,103,160,116,32,32,32,32,160,160,160,160,205,160,160,160,160,205,160,223,32,32,160,160,160,32,111,66,111,32,111,93,111,32,32,32,32,90,103,160,116,103,160,116,90,32,32,102,95,223,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,90,81,90,81,90,90,102,102,102,102,102,95,227,227,223,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,81,90,81,90,81,90,139,137,141,15,14,11,12,14,11,12,14,11,12,5,11,12,14,11,12,13,11,12,14,11,12,14,11,12,14,11,12,14,11,12,14,11,12,14,11,12,14,11,15,14,12,4,4,12,4,4,12,14,14,12,14,13,12,11,14,12,14,11,12,13,14,12,14,14,12,11,14,12,14,11,12,14,14,12,5,14,12,11,14,4,4,14,4,11,4,13,5,5,5,11,5,5,14,13,5,11,5,13,10,5,5,11,5,5,6,5,5,11,5,5,3,5,5,11,5,5,13,5,5,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,14,14,3,3,8,8,8,8,8,8,8,8,8,3,3,14,14,14,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,14,3,3,8,8,8,8,8,8,8,8,8,8,8,3,14,14,14,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,14,3,8,8,9,9,9,9,15,11,14,14,9,8,8,14,14,14,9,7,14,14,7,14,14,14,7,9,9,14,7,14,14,14,7,14,14,14,9,12,14,14,8,8,14,14,12,11,11,14,12,14,14,8,8,14,14,14,9,14,14,1,14,7,14,14,14,14,9,14,14,14,7,14,14,14,7,14,9,12,14,14,8,8,14,12,14,14,7,14,7,12,14,8,8,14,14,14,9,14,7,14,14,5,11,11,7,14,9,7,14,14,5,14,11,14,14,14,9,12,14,14,8,8,14,14,14,14,7,7,11,11,14,8,8,14,14,14,9,14,7,7,5,5,11,11,14,14,9,2,2,11,11,11,11,11,11,11,9,12,14,14,8,8,15,7,7,7,7,11,1,1,15,8,8,14,14,14,9,14,11,11,14,5,11,11,14,12,9,12,2,11,11,11,11,11,11,11,9,12,14,14,8,8,14,14,14,14,14,14,11,11,14,8,8,14,14,14,9,11,11,11,14,5,11,11,14,14,9,2,2,11,11,11,11,11,11,11,9,12,14,14,8,8,14,12,14,8,8,8,14,12,14,8,8,14,14,14,9,11,11,11,11,14,11,11,14,14,9,12,12,11,11,11,11,11,11,11,9,12,14,14,8,8,14,14,12,14,11,14,12,14,14,8,8,14,14,14,9,11,11,11,11,14,11,11,14,14,9,12,12,11,11,11,11,11,11,11,9,12,7,14,8,8,9,14,14,14,15,14,14,14,9,8,8,14,14,14,9,11,11,11,11,14,11,11,14,7,9,12,2,11,11,11,7,11,11,7,9,8,7,14,3,8,8,8,8,8,8,8,8,8,8,8,8,14,14,14,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,7,9,9,9,9,8,7,7,3,3,8,8,8,8,8,8,8,8,8,3,3,14,14,14,2,2,2,2,2,2,2,2,2,7,2,2,2,2,8,8,7,7,7,7,7,7,7,7,7,7,7,7,7,9,7,7,7,7,7,7,7,7,7,7,14,14,14,14,14,14,14,7,7,15,7,15,14,14,8,7,8,7,6,6,14,14,7,6,14,14,14,14,9,2,7,7,7,14,14,14,14,14,14,14,14,14,14,14,14,14,14,7,15,15,15,15,15,14,8,5,5,5,6,6,6,14,14,6,14,14,14,2,2,2,2,2,10,2,14,14,14,14,14,14,14,14,15,15,15,15,15,15,15,15,15,15,15,14,8,5,5,5,6,6,6,14,14,6,14,14,14,2,2,2,2,2,10,10,14,7,14,14,14,14,14,15,15,15,15,15,15,15,15,15,15,15,15,14,8,8,8,8,6,6,14,14,14,6,14,14,14,2,2,2,13,2,10,10,2,10,2,14,14,2,14,15,15,15,15,15,15,15,15,10,10,10,14,14,8,8,8,8,6,6,14,14,14,14,14,2,2,2,2,13,13,2,10,10,2,10,10,14,14,2,14,15,15,15,15,15,15,15,15,15,15,15,15,14,8,5,5,5,6,6,14,14,14,6,14,14,14,2,2,2,13,2,10,10,2,10,10,13,14,2,2,15,15,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,13,2,13,2,13,13,2,2,2,2,2,15,15,15,15,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,13,2,13,2,13,2,2,2
  86.  
  87. DATA FRAME01[] = 77,32,78,77,32,78,77,32,78,77,32,78,77,32,78,77,32,78,77,32,78,77,32,78,77,32,78,77,32,78,77,32,78,77,32,78,77,32,78,32,32,160,32,32,160,32,32,160,32,32,160,32,32,160,32,32,160,32,32,160,32,32,160,32,32,160,32,32,160,32,32,160,32,32,160,32,32,160,32,32,32,81,32,32,81,32,32,81,32,32,81,32,32,81,32,32,81,32,32,81,32,32,81,32,32,81,32,32,81,32,32,81,32,32,81,32,32,81,32,32,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,92,32,32,77,32,121,98,248,247,227,247,248,98,121,32,78,32,32,32,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,92,32,77,32,78,78,119,119,119,119,119,119,119,77,77,32,78,32,32,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,102,92,32,32,118,78,87,32,32,32,194,32,32,32,87,77,117,32,32,32,66,46,32,32,46,32,32,32,42,32,66,32,46,32,32,32,42,32,32,32,66,101,32,32,225,116,32,32,77,32,30,32,78,32,32,103,97,32,32,32,66,32,32,81,42,46,32,32,93,32,66,32,32,42,46,32,66,32,46,32,66,77,78,77,245,116,32,77,32,32,30,32,32,78,32,103,246,77,78,77,66,42,46,32,93,32,173,173,66,32,66,42,32,66,32,32,66,32,32,42,66,32,32,32,229,116,32,32,32,32,66,32,100,100,32,103,234,32,32,32,66,66,32,32,66,32,162,162,32,32,66,93,32,233,160,160,160,160,223,93,66,77,78,77,160,116,64,32,32,32,87,103,48,49,64,103,160,77,78,77,66,32,78,77,32,32,162,162,32,89,66,84,32,194,194,87,194,194,160,32,66,32,32,32,244,116,32,32,32,32,32,32,99,99,32,103,231,32,32,32,66,32,78,77,32,32,162,162,32,32,66,32,32,87,173,160,160,87,160,87,66,77,78,77,245,116,32,78,32,104,104,104,32,77,32,103,246,77,78,77,66,78,78,77,77,32,162,162,32,32,66,32,87,194,194,87,162,162,87,32,66,101,32,32,225,116,32,32,78,32,32,32,77,32,32,103,97,32,32,32,66,78,78,77,77,32,162,162,32,32,66,32,32,173,87,73,32,85,87,32,87,101,32,32,118,77,87,32,32,32,66,32,32,32,87,78,117,32,32,32,66,233,118,117,77,32,194,194,32,32,66,32,85,194,194,246,42,66,160,73,66,116,32,32,32,77,77,111,111,111,111,111,111,111,78,78,32,32,32,32,109,160,64,64,64,64,64,64,64,67,113,85,67,67,87,67,196,67,67,67,73,116,32,78,32,32,120,226,249,239,228,239,249,226,120,32,32,77,32,32,32,160,32,32,32,32,32,32,32,73,44,32,87,32,32,32,173,32,32,87,32,32,32,32,78,32,32,32,32,32,32,32,32,32,32,32,77,32,32,32,32,160,32,32,32,32,32,32,32,223,160,233,32,32,32,32,215,32,32,112,64,110,32,112,64,110,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,160,32,32,32,32,32,32,233,160,162,162,223,32,32,233,160,223,32,93,32,66,32,66,32,66,32,32,32,32,32,32,65,32,32,32,32,32,32,32,32,160,233,162,162,162,162,162,244,160,87,174,87,32,32,160,160,160,32,93,32,66,32,66,32,66,32,32,32,32,32,103,160,116,32,32,32,32,32,32,32,160,160,160,160,160,160,160,205,228,160,209,105,32,32,132,143,141,32,74,70,75,32,74,82,75,32,32,32,32,32,103,160,116,32,65,32,32,32,32,32,160,160,160,228,160,160,160,160,228,102,228,32,32,32,144,133,146,32,32,66,32,32,32,93,32,32,32,32,90,32,103,160,116,103,160,116,32,32,32,32,95,160,160,160,205,160,160,160,160,205,160,223,32,32,160,160,160,32,111,66,111,32,111,93,111,32,32,32,32,90,103,160,116,103,160,116,90,32,32,136,129,144,144,153,160,142,133,151,160,153,133,129,146,161,102,102,102,130,143,142,142,133,160,129,142,142,133,167,133,161,90,81,90,81,90,90,102,102,102,130,149,143,142,160,129,142,142,143,161,102,102,102,102,102,102,134,133,140,137,154,160,129,142,143,160,142,143,150,143,161,81,90,81,90,81,90,139,137,141,15,14,11,12,14,11,12,14,11,12,5,11,12,14,11,12,13,11,12,14,11,12,14,11,12,14,11,12,14,11,12,14,11,12,14,11,12,14,11,15,14,12,4,4,12,4,4,12,14,14,12,14,13,12,11,14,12,14,11,12,13,14,12,14,14,12,11,14,12,14,11,12,14,14,12,5,14,12,11,14,4,11,14,4,4,4,13,11,5,5,5,5,5,11,13,5,14,5,13,11,5,5,10,5,5,11,5,5,6,5,5,11,5,5,3,5,5,11,5,5,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,14,14,7,3,8,8,8,8,8,8,8,8,8,3,7,14,14,14,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,14,7,3,8,8,8,8,8,8,8,8,8,8,8,3,7,14,14,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,14,3,8,8,9,9,9,9,15,11,14,14,9,8,8,14,14,14,9,7,14,14,7,14,14,14,7,9,9,14,7,14,14,14,2,14,14,14,9,12,14,14,8,8,14,14,12,11,7,14,12,14,14,8,8,14,14,14,9,10,14,1,4,7,14,14,7,14,9,14,14,13,7,14,2,14,7,14,9,7,7,7,8,8,14,12,14,14,7,14,7,12,14,8,8,7,7,7,9,10,7,14,4,5,11,11,7,14,9,8,14,13,5,14,2,14,14,14,9,14,14,14,8,8,14,14,14,14,7,7,11,11,14,8,8,14,14,14,9,10,7,7,4,5,11,11,14,14,9,8,2,11,11,11,11,11,11,14,9,7,7,7,8,8,15,11,11,11,7,11,1,1,15,8,8,7,7,7,9,10,11,11,14,5,11,11,14,12,9,12,2,11,11,7,11,11,11,11,9,14,14,14,8,8,14,14,14,14,14,14,11,11,14,8,8,14,14,14,9,11,11,11,14,5,11,11,14,14,9,2,2,7,11,11,11,7,11,7,9,7,7,7,8,8,14,12,14,8,8,8,14,12,14,8,8,7,7,7,9,11,11,11,11,14,11,11,14,14,9,12,7,11,11,7,11,11,7,11,9,12,14,14,8,8,14,14,12,14,11,14,12,14,14,8,8,14,14,14,9,11,11,11,11,14,11,11,14,14,9,12,12,11,7,7,7,7,7,11,7,12,7,14,8,8,9,14,14,14,15,14,14,14,9,8,8,14,14,14,9,15,11,11,11,14,11,11,14,7,9,7,7,11,11,11,7,11,11,7,9,8,7,14,3,8,8,8,8,8,8,8,8,8,8,8,8,7,14,14,9,15,9,9,9,9,9,9,9,9,9,7,9,9,7,9,5,9,9,9,7,8,7,7,3,3,8,8,8,8,8,8,8,8,8,3,3,7,14,14,2,15,2,2,2,2,2,2,2,7,7,2,7,2,8,8,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,8,7,7,7,7,7,7,7,7,14,15,14,14,14,14,14,7,7,15,7,15,14,7,7,8,8,7,6,6,14,14,7,6,14,14,14,14,7,2,7,7,8,14,14,14,14,14,14,14,14,15,14,14,14,14,14,7,15,15,15,15,15,14,8,5,5,5,6,6,6,14,14,6,14,14,14,2,2,2,2,7,7,7,14,14,14,14,14,14,14,15,15,15,15,15,15,15,15,15,14,15,14,14,8,5,5,5,6,6,6,14,14,6,14,14,14,2,2,2,2,2,10,2,14,14,14,14,14,14,14,15,15,15,15,15,15,15,15,15,15,15,15,14,8,8,8,8,6,6,14,14,14,6,14,14,14,2,2,2,13,2,10,10,14,7,14,14,14,2,14,15,15,15,15,15,15,15,15,10,10,10,14,14,8,8,8,8,6,6,14,14,14,14,14,2,2,2,2,13,13,2,10,10,2,10,2,14,14,2,14,15,15,15,15,15,15,15,15,15,15,15,15,14,8,5,5,5,6,6,14,14,14,6,14,14,14,2,2,2,13,2,10,10,2,10,10,13,14,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,13,2,13,2,13,13,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,13,2,13,2,13,2,2,2
  88.  
  89.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!