API tools faq
paste
felixnardella

Happy New Year 2021 V1.2

felixnardella
Jan 6th, 2021 (edited)
97
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 12.67 KB | None | 0 0
raw download clone embed print report
  1. ; ***************************************************************
  2. ; HAPPY NEW YEAR 2021 - FOR C64 - V 1.2 (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.  
  9. GOTO START
  10.  
  11. ORIGIN $1000
  12. INCBIN "SANTA1.SID"
  13.  
  14. PROC START_MUSIC
  15. ASM " SEI"
  16. DOKE $314, @IRQ_ROUTINE
  17. POKE $D011, $1B
  18. POKE $D012, $00
  19. POKE $DC0D, $7F
  20. POKE $D01A, $01
  21. POKE $D019, $01
  22. ASM "
  23. LDA #$00
  24. JSR $1000
  25. CLI"
  26.  
  27. RETURN
  28.  
  29. IRQ_ROUTINE:
  30. ASM "
  31. LDA #$01
  32. STA $D019
  33. JSR $1003
  34. JMP $EA31"
  35. ENDPROC
  36.  
  37. START:
  38. PRINT "{CLR}"
  39. DOKE $D020,0
  40. CALL START_MUSIC
  41. POKE $328,239
  42. POKE $318,193
  43.  
  44. LOOP:
  45. N=0
  46. SCREEN=$400
  47. COLORS=$D800
  48.  
  49. FOR K = 0 TO 999
  50. POKE SCREEN,FRAME00[K]
  51. POKE COLORS,FRAME00[1000+K]
  52. INC SCREEN
  53. INC COLORS
  54. NEXT K
  55.  
  56. GOSUB PAUSE
  57.  
  58. N=0
  59. SCREEN=$400
  60. COLORS=$D800
  61.  
  62. FOR K = 0 TO 999
  63. POKE SCREEN,FRAME01[K]
  64. POKE COLORS,FRAME01[1000+K]
  65. INC SCREEN
  66. INC COLORS
  67. NEXT K
  68.  
  69. GOSUB PAUSE
  70.  
  71. GOTO LOOP
  72.  
  73. PAUSE:
  74. WHILE N<9000
  75. N=N+1
  76. ENDWHILE
  77. RETURN
  78.  
  79. END
  80.  
  81. 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
  82.  
  83. 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
  84.  
Add Comment
Please, Sign In to add comment
Public Pastes
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!