Skip to content

Instantly share code, notes, and snippets.

@vegardsjo

vegardsjo/Color prog

Created September 21, 2014 14:17
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save vegardsjo/92640b3977cab5303ffe to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save vegardsjo/92640b3977cab5303ffe to your computer and use it in GitHub Desktop.
Download ZIP
C64 stuff
Raw
Color prog
a 7000 lda #$00
ldx #$00
ldy #$00
sta $d020
sta $d021
adc #$01
inx
cpx #$ff
beq $7013
iny
pha
lda #$ef
cmp $dc01
beq $7024
pla
cpy #$30
beq $7004
jmp $7013
rts
brk
Raw
Supermon 64
0800 00 1a 08 64 00 99 22 93
0808 12 1d 1d 1d 1d 53 55 50
0810 45 52 20 36 34 2d 4d 4f
0818 4e 00 31 08 6e 00 99 22
0820 11 20 20 20 20 20 20 20
0828 20 20 20 20 20 20 20 20
0830 00 4b 08 78 00 99 22 11
0838 20 2e 2e 4a 49 4d 20 42
0840 55 54 54 45 52 46 49 45
0848 4c 44 00 66 08 82 00 9e
0850 28 c2 28 34 33 29 aa 32
0858 35 36 ac c2 28 34 34 29
0860 aa 31 32 37 29 00 00 00
0868 aa aa aa aa aa aa aa aa
0870 aa aa aa aa aa aa aa aa
0878 aa aa aa aa aa aa aa aa
0880 a5 2d 85 22 a5 2e 85 23
0888 a5 37 85 24 a5 38 85 25
0890 a0 00 a5 22 d0 02 c6 23
0898 c6 22 b1 22 d0 3c a5 22
08a0 d0 02 c6 23 c6 22 b1 22
08a8 f0 21 85 26 a5 22 d0 02
08b0 c6 23 c6 22 b1 22 18 65
08b8 24 aa a5 26 65 25 48 a5
08c0 37 d0 02 c6 38 c6 37 68
08c8 91 37 8a 48 a5 37 d0 02
08d0 c6 38 c6 37 68 91 37 18
08d8 90 b6 c9 4f d0 ed a5 37
08e0 85 33 a5 38 85 34 6c 37
08e8 00 4f 4f 4f 4f ad e6 ff
08f0 00 8d 16 03 ad e7 ff 00
08f8 8d 17 03 a9 80 20 90 ff
0900 00 00 d8 68 8d 3e 02 68
0908 8d 3d 02 68 8d 3c 02 68
0910 8d 3b 02 68 aa 68 a8 38
0918 8a e9 02 8d 3a 02 98 e9
0920 00 00 8d 39 02 ba 8e 3f
0928 02 20 57 fd 00 a2 42 a9
0930 2a 20 57 fa 00 a9 52 d0
0938 34 e6 c1 d0 06 e6 c2 d0
0940 02 e6 26 60 20 cf ff c9
0948 0d d0 f8 68 68 ea ea ea
0950 ea ea a9 00 00 85 26 a2
0958 0d a9 2e 20 57 fa 00 ea
0960 ea ea ea ea 20 3e f8 00
0968 c9 2e f0 f9 c9 20 f0 f5
0970 a2 0e dd b7 ff 00 d0 0c
0978 8a 0a aa bd c7 ff 00 48
0980 bd c6 ff 00 48 60 ca 10
0988 ec 4c ed fa 00 a5 c1 8d
0990 3a 02 a5 c2 8d 39 02 60
0998 a9 08 85 1d a0 00 00 20
09a0 54 fd 00 b1 c1 20 48 fa
09a8 00 20 33 f8 00 c6 1d d0
09b0 f1 60 20 88 fa 00 90 0b
09b8 a2 00 00 81 c1 c1 c1 f0
09c0 03 4c ed fa 00 20 33 f8
09c8 00 c6 1d 60 a9 3b 85 c1
09d0 a9 02 85 c2 a9 05 60 98
09d8 48 20 57 fd 00 68 a2 2e
09e0 4c 57 fa 00 ea ea ea ea
09e8 ea a2 00 00 bd ea ff 00
09f0 20 d2 ff e8 e0 16 d0 f5
09f8 a0 3b 20 c2 f8 00 ad 39
0a00 02 20 48 fa 00 ad 3a 02
0a08 20 48 fa 00 20 b7 f8 00
0a10 20 8d f8 00 f0 5c 20 3e
0a18 f8 00 20 79 fa 00 90 33
0a20 20 69 fa 00 20 3e f8 00
0a28 20 79 fa 00 90 28 20 69
0a30 fa 00 ea ea ea ea ea ea
0a38 e1 ff f0 3c a6 26 d0 38
0a40 a5 c3 c5 c1 a5 c4 e5 c2
0a48 90 2e a0 3a 20 c2 f8 00
0a50 20 41 fa 00 20 8b f8 00
0a58 f0 e0 4c ed fa 00 20 79
0a60 fa 00 90 03 20 80 f8 00
0a68 20 b7 f8 00 d0 07 20 79
0a70 fa 00 90 eb a9 08 85 1d
0a78 20 3e f8 00 20 a1 f8 00
0a80 d0 f8 4c 47 f8 00 20 cf
0a88 ff c9 0d f0 0c c9 20 d0
0a90 d1 20 79 fa 00 90 03 20
0a98 80 f8 00 ea ea ea ea ea
0aa0 ae 3f 02 9a 78 ad 39 02
0aa8 48 ad 3a 02 48 ad 3b 02
0ab0 48 ad 3c 02 ae 3d 02 ac
0ab8 3e 02 40 ea ea ea ea ea
0ac0 ae 3f 02 9a 6c 02 a0 a0
0ac8 01 84 ba 84 b9 88 84 b7
0ad0 84 90 84 93 a9 40 85 bb
0ad8 a9 02 85 bc 20 cf ff c9
0ae0 20 f0 f9 c9 0d f0 38 c9
0ae8 22 d0 14 20 cf ff c9 22
0af0 f0 10 c9 0d f0 29 91 bb
0af8 e6 b7 c8 c0 10 d0 ec 4c
0b00 ed fa 00 20 cf ff c9 0d
0b08 f0 16 c9 2c d0 dc 20 88
0b10 fa 00 29 0f f0 e9 c9 03
0b18 f0 e5 85 ba 20 cf ff c9
0b20 0d 60 6c 30 03 6c 32 03
0b28 20 96 f9 00 d0 d4 ea ea
0b30 ea ea ea a9 00 00 20 ef
0b38 f9 00 a5 90 29 10 d0 c4
0b40 4c 47 f8 00 20 96 f9 00
0b48 c9 2c d0 ba 20 79 fa 00
0b50 20 69 fa 00 20 cf ff c9
0b58 2c d0 ad 20 79 fa 00 a5
0b60 c1 85 ae a5 c2 85 af 20
0b68 69 fa 00 20 cf ff c9 0d
0b70 d0 98 ea ea ea ea ea 20
0b78 f2 f9 00 4c 47 f8 00 a5
0b80 c2 20 48 fa 00 a5 c1 48
0b88 4a 4a 4a 4a 20 60 fa 00
0b90 aa 68 29 0f 20 60 fa 00
0b98 48 8a 20 d2 ff 68 4c d2
0ba0 ff 09 30 c9 3a 90 02 69
0ba8 06 60 a2 02 b5 c0 48 b5
0bb0 c2 95 c0 68 95 c2 ca d0
0bb8 f3 60 20 88 fa 00 90 02
0bc0 85 c2 20 88 fa 00 90 02
0bc8 85 c1 60 a9 00 00 85 2a
0bd0 20 3e f8 00 c9 20 d0 09
0bd8 20 3e f8 00 c9 20 d0 0e
0be0 18 60 20 af fa 00 0a 0a
0be8 0a 0a 85 2a 20 3e f8 00
0bf0 20 af fa 00 05 2a 38 60
0bf8 c9 3a 90 02 69 08 29 0f
0c00 60 a2 02 2c a2 00 00 b4
0c08 c1 d0 08 b4 c2 d0 02 e6
0c10 26 d6 c2 d6 c1 60 20 3e
0c18 f8 00 c9 20 f0 f9 60 a9
0c20 00 00 8d 00 00 01 20 cc
0c28 fa 00 20 8f fa 00 20 7c
0c30 fa 00 90 09 60 20 3e f8
0c38 00 20 79 fa 00 b0 de ae
0c40 3f 02 9a ea ea ea ea ea
0c48 a9 3f 20 d2 ff 4c 47 f8
0c50 00 20 54 fd 00 ca d0 fa
0c58 60 e6 c3 d0 02 e6 c4 60
0c60 a2 02 b5 c0 48 b5 27 95
0c68 c0 68 95 27 ca d0 f3 60
0c70 a5 c3 a4 c4 38 e9 02 b0
0c78 0e 88 90 0b a5 28 a4 29
0c80 4c 33 fb 00 a5 c3 a4 c4
0c88 38 e5 c1 85 1e 98 e5 c2
0c90 a8 05 1e 60 20 d4 fa 00
0c98 20 69 fa 00 20 e5 fa 00
0ca0 20 0c fb 00 20 e5 fa 00
0ca8 20 2f fb 00 20 69 fa 00
0cb0 90 15 a6 26 d0 64 20 28
0cb8 fb 00 90 5f a1 c1 81 c3
0cc0 20 05 fb 00 20 33 f8 00
0cc8 d0 eb 20 28 fb 00 18 a5
0cd0 1e 65 c3 85 c3 98 65 c4
0cd8 85 c4 20 0c fb 00 a6 26
0ce0 d0 3d a1 c1 81 c3 20 28
0ce8 fb 00 b0 34 20 b8 fa 00
0cf0 20 bb fa 00 4c 7d fb 00
0cf8 20 d4 fa 00 20 69 fa 00
0d00 20 e5 fa 00 20 69 fa 00
0d08 20 3e f8 00 20 88 fa 00
0d10 90 14 85 1d a6 26 d0 11
0d18 20 2f fb 00 90 0c a5 1d
0d20 81 c1 20 33 f8 00 d0 ee
0d28 4c ed fa 00 4c 47 f8 00
0d30 20 d4 fa 00 20 69 fa 00
0d38 20 e5 fa 00 20 69 fa 00
0d40 20 3e f8 00 a2 00 00 20
0d48 3e f8 00 c9 27 d0 14 20
0d50 3e f8 00 9d 10 02 e8 20
0d58 cf ff c9 0d f0 22 e0 20
0d60 d0 f1 f0 1c 8e 00 00 01
0d68 20 8f fa 00 90 c6 9d 10
0d70 02 e8 20 cf ff c9 0d f0
0d78 09 20 88 fa 00 90 b6 e0
0d80 20 d0 ec 86 1c ea ea ea
0d88 ea ea 20 57 fd 00 a2 00
0d90 00 a0 00 00 b1 c1 dd 10
0d98 02 d0 0c c8 e8 e4 1c d0
0da0 f3 20 41 fa 00 20 54 fd
0da8 00 20 33 f8 00 a6 26 d0
0db0 8d 20 2f fb 00 b0 dd 4c
0db8 47 f8 00 20 d4 fa 00 85
0dc0 20 a5 c2 85 21 a2 00 00
0dc8 86 28 a9 93 20 d2 ff ea
0dd0 ea ea ea ea a9 16 85 1d
0dd8 20 6a fc 00 20 ca fc 00
0de0 85 c1 84 c2 c6 1d d0 f2
0de8 a9 91 20 d2 ff 4c 47 f8
0df0 00 a0 2c 20 c2 f8 00 20
0df8 54 fd 00 20 41 fa 00 20
0e00 54 fd 00 a2 00 00 a1 c1
0e08 20 d9 fc 00 48 20 1f fd
0e10 00 68 20 35 fd 00 a2 06
0e18 e0 03 d0 12 a4 1f f0 0e
0e20 a5 2a c9 e8 b1 c1 b0 1c
0e28 20 c2 fc 00 88 d0 f2 06
0e30 2a 90 0e bd 2a ff 00 20
0e38 a5 fd 00 bd 30 ff 00 f0
0e40 03 20 a5 fd 00 ca d0 d5
0e48 60 20 cd fc 00 aa e8 d0
0e50 01 c8 98 20 c2 fc 00 8a
0e58 86 1c 20 48 fa 00 a6 1c
0e60 60 a5 1f 38 a4 c2 aa 10
0e68 01 88 65 c1 90 01 c8 60
0e70 a8 4a 90 0b 4a b0 17 c9
0e78 22 f0 13 29 07 09 80 4a
0e80 aa bd d9 fe 00 b0 04 4a
0e88 4a 4a 4a 29 0f d0 04 a0
0e90 80 a9 00 00 aa bd 1d ff
0e98 00 85 2a 29 03 85 1f 98
0ea0 29 8f aa 98 a0 03 e0 8a
0ea8 f0 0b 4a 90 08 4a 4a 09
0eb0 20 88 d0 fa c8 88 d0 f2
0eb8 60 b1 c1 20 c2 fc 00 a2
0ec0 01 20 fe fa 00 c4 1f c8
0ec8 90 f1 a2 03 c0 04 90 f2
0ed0 60 a8 b9 37 ff 00 85 28
0ed8 b9 77 ff 00 85 29 a9 00
0ee0 00 a0 05 06 29 26 28 2a
0ee8 88 d0 f8 69 3f 20 d2 ff
0ef0 ca d0 ec a9 20 2c a9 0d
0ef8 4c d2 ff 20 d4 fa 00 20
0f00 69 fa 00 20 e5 fa 00 20
0f08 69 fa 00 a2 00 00 86 28
0f10 ea ea ea ea ea 20 57 fd
0f18 00 20 72 fc 00 20 ca fc
0f20 00 85 c1 84 c2 20 e1 ff
0f28 f0 05 20 2f fb 00 b0 e9
0f30 4c 47 f8 00 20 d4 fa 00
0f38 a9 03 85 1d 20 3e f8 00
0f40 20 a1 f8 00 d0 f8 a5 20
0f48 85 c1 a5 21 85 c2 4c 46
0f50 fc 00 c5 28 f0 03 20 d2
0f58 ff 60 20 d4 fa 00 20 69
0f60 fa 00 8e 11 02 a2 03 20
0f68 cc fa 00 48 ca d0 f9 a2
0f70 03 68 38 e9 3f a0 05 4a
0f78 6e 11 02 6e 10 02 88 d0
0f80 f6 ca d0 ed a2 02 20 cf
0f88 ff c9 0d f0 1e c9 20 f0
0f90 f5 20 d0 fe 00 b0 0f 20
0f98 9c fa 00 a4 c1 84 c2 85
0fa0 c1 a9 30 9d 10 02 e8 9d
0fa8 10 02 e8 d0 db 86 28 a2
0fb0 00 00 86 26 f0 04 e6 26
0fb8 f0 75 a2 00 00 86 1d a5
0fc0 26 20 d9 fc 00 a6 2a 86
0fc8 29 aa bc 37 ff 00 bd 77
0fd0 ff 00 20 b9 fe 00 d0 e3
0fd8 a2 06 e0 03 d0 19 a4 1f
0fe0 f0 15 a5 2a c9 e8 a9 30
0fe8 b0 21 20 bf fe 00 d0 cc
0ff0 20 c1 fe 00 d0 c7 88 d0
0ff8 eb 06 2a 90 0b bc 30 ff
1000 00 bd 2a ff 00 20 b9 fe
1008 00 d0 b5 ca d0 d1 f0 0a
1010 20 b8 fe 00 d0 ab 20 b8
1018 fe 00 d0 a6 a5 28 c5 1d
1020 d0 a0 20 69 fa 00 a4 1f
1028 f0 28 a5 29 c9 9d d0 1a
1030 20 1c fb 00 90 0a 98 d0
1038 04 a5 1e 10 0a 4c ed fa
1040 00 c8 d0 fa a5 1e 10 f6
1048 a4 1f d0 03 b9 c2 00 00
1050 91 c1 88 d0 f8 a5 26 91
1058 c1 20 ca fc 00 85 c1 84
1060 c2 ea ea ea ea ea a0 41
1068 20 c2 f8 00 20 54 fd 00
1070 20 41 fa 00 20 54 fd 00
1078 ea ea ea ea ea 4c b0 fd
1080 00 a8 20 bf fe 00 d0 11
1088 98 f0 0e 86 1c a6 1d dd
1090 10 02 08 e8 86 1d a6 1c
1098 28 60 c9 30 90 03 c9 47
10a0 60 38 60 40 02 45 03 d0
10a8 08 40 09 30 22 45 33 d0
10b0 08 40 09 40 02 45 33 d0
10b8 08 40 09 40 02 45 b3 d0
10c0 08 40 09 00 00 22 44 33
10c8 d0 8c 44 00 00 11 22 44
10d0 33 d0 8c 44 9a 10 22 44
10d8 33 d0 08 40 09 10 22 44
10e0 33 d0 08 40 09 62 13 78
10e8 a9 00 00 21 81 82 00 00
10f0 00 00 59 4d 91 92 86 4a
10f8 85 9d 2c 29 2c 23 28 24
1100 59 00 00 58 24 24 00 00
1108 1c 8a 1c 23 5d 8b 1b a1
1110 9d 8a 1d 23 9d 8b 1d a1
1118 00 00 29 19 ae 69 a8 19
1120 23 24 53 1b 23 24 53 19
1128 a1 00 00 1a 5b 5b a5 69
1130 24 24 ae ae a8 ad 29 00
1138 00 7c 00 00 15 9c 6d 9c
1140 a5 69 29 53 84 13 34 11
1148 a5 69 23 a0 d8 62 5a 48
1150 26 62 94 88 54 44 c8 54
1158 68 44 e8 94 00 00 b4 08
1160 84 74 b4 28 6e 74 f4 cc
1168 4a 72 f2 a4 8a 00 00 aa
1170 a2 a2 74 74 74 72 44 68
1178 b2 32 b2 00 00 22 00 00
1180 1a 1a 26 26 72 72 88 c8
1188 c4 ca 26 48 44 44 a2 c8
1190 3a 3b 52 4d 47 58 4c 53
1198 54 46 48 44 50 2c 41 42
11a0 f9 00 35 f9 00 cc f8 00
11a8 f7 f8 00 56 f9 00 89 f9
11b0 00 f4 f9 00 0c fa 00 3e
11b8 fb 00 92 fb 00 c0 fb 00
11c0 38 fc 00 5b fd 00 8a fd
11c8 00 ac fd 00 46 f8 00 ff
11d0 f7 00 ed f7 00 0d 20 20
11d8 20 50 43 20 20 53 52 20
11e0 41 43 20 58 52 20 59 52
11e8 20 53 50 45 52 22 20 20
Raw
Tiny peeker-poker
poke 8192,0
poke 44,32
new
100 print "tiny peeker/poker"
110 x$="*":input x$:if x$="*" then end
120 gosub 500
130 if e goto 280
140 a=v
150 if j>len(x$) goto 300
160 for i=0 to 7
170 p=j:gosub 550
180 c(i)=v
190 if e goto 280
200 next i
210 t=0
220 for i=0 to 7
230 poke a+i,c(i)
240 t=t+c(i)
250 next i
260 print "checksum=";t
270 goto 110
280 print mid$(x$,1,j);"??":goto 110
300 t=0
310 for i=0 to 7
320 v=peek(a+i)
330 t=t+v
340 v=v/16
350 print " ";
360 for j=1 to 2
370 v%=v
380 v=(v-v%)*16
390 if v%>9 then v%=v%+7
400 print chr$(v%+48);
410 next j
420 next i
430 print "/";t
440 goto 110
500 p=1
510 l=4
520 goto 600
550 p=j
560 l=2
600 e=0
610 v=0
620 for j=p to len(x$)
630 x=asc(mid$(x$,j))
640 if x=32 then next j
650 if j>len(x$) goto 790
660 p=j
670 for j=p to len(x$)
680 x=asc(mid$(x$,j))
690 if x<>32 then next j
700 if j-p<>l goto 790
710 for k=p to j-1
720 x=asc(mid$(x$,k))
730 if x<58 then x=x-48
740 if x>64 then x=x-55
750 if x<0 or x>15 goto 790
760 v=v*16+x
770 next k
780 return
790 e=-1
800 return
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment