API tools faq
paste
Advertisement
felixnardella

Happy New Year 2021 V1.4

felixnardella
Jan 6th, 2021
59
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 12.65 KB | None | 0 0
raw download clone embed print report
  1. ; ***************************************************************
  2. ; HAPPY NEW YEAR 2021 - FOR C64 - V 1.4 (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 "SANTA.SID"
  12.  
  13. INCLUDE "XCB-EXT-RASTERINTERRUPT.BAS"
  14.  
  15. START:
  16. PRINT "{CLR}"
  17. DOKE $D020,0
  18.  
  19. PROC MUSIC_PLAYER
  20. SYS $1003 : REM MUSIC PLAY ADDRESS
  21. ENDPROC
  22.  
  23. SYS $1000 : REM MUSIC INIT ADDRESS
  24. \RI_ISR_COUNT! = 1
  25. RI_SYSHANDLER_OFF : REM THIS WILL TURN OFF KEYBOARD INPUT
  26. RI_SET_ISR 0, @MUSIC_PLAYER, 250
  27. RI_ON
  28.  
  29.  
  30. LOOP:
  31. N=0
  32. MEMCPY $982F, $400, 1000
  33. MEMCPY $9C17, $D800, 1000
  34. GOSUB SCREEN00
  35.  
  36. N=0
  37. MEMCPY $982F, $400, 1000
  38. MEMCPY $9C17, $D800, 1000
  39. GOSUB SCREEN01
  40.  
  41. GOTO LOOP
  42.  
  43. SCREEN00:
  44. FOR K = 0 TO 999
  45. POKE $982F+K,FRAME00[K]
  46. POKE $9C17+K,FRAME00[1000+K]
  47. NEXT K
  48. GOSUB PAUSE
  49. RETURN
  50.  
  51. SCREEN01:
  52. FOR K = 0 TO 999
  53. POKE $982F+K,FRAME01[K]
  54. POKE $9C17+K,FRAME01[1000+K]
  55. NEXT K
  56. GOSUB PAUSE
  57. RETURN
  58.  
  59. PAUSE:
  60. WHILE N<10000
  61. N=N+1
  62. ENDWHILE
  63. RETURN
  64.  
  65. END
  66.  
  67. 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
  68.  
  69. 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
  70.  
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!