This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
SID: { | |
.label VOICE1_FREQ_1 = $d400 | |
.label VOICE1_FREQ_2 = $d401 | |
.label VOICE1_CTRL = $d404 | |
.label VOICE1_ATTACK_DECAY = $d405 | |
.label VOICE1_SUSTAIN_RELEASE = $d406 | |
.label VOLUME_FILTER_MODES = $d418 | |
} |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
// First (worst) version | |
lda c64lib.SPRITE_MSB_X // 3by + 4cy | |
and #%00000100 // 2by + 2cy | |
beq SetBitToZero // 2by + 2cy | |
lda c64lib.SPRITE_MSB_X // 3by + 4cy | |
ora #%00000010 // 2by + 2cy | |
jmp !+ // 3by + 3cy | |
SetBitToZero: | |
lda c64lib.SPRITE_MSB_X // 3by + 4cy |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
// Kla image can be generated from Png or JPG using this service: | |
// https://www.micheldebree.nl/retropixels/ | |
.const KOALA_TEMPLATE = "C64FILE, Bitmap=$0000, ScreenRam=$1f40, ColorRam=$2328, BackgroundColor = $2710" | |
.var picture = LoadBinary("image.kla", KOALA_TEMPLATE) | |
*=$0801 "Basic Program" | |
BasicUpstart($0810) | |
*=$0810 "Program" | |
lda #$38 // 00111000 - bitmap $2000, Screenram $0c00 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
1 rem read sequential data from disk with c128 | |
10 dopen#1,"seq test" | |
20 for i=1 to 150 | |
30 input#1,a$ | |
40 print a$ | |
50 next | |
60 close 1 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
1 rem write sequential data to disk with c128 | |
10 dopen#1,"@seq test",w | |
20 for i=1 to 100 | |
30 a$="record"+str$(i) | |
40 print#1,a$ | |
50 print "writing ";a$ | |
60 next | |
70 close 1 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
*= $0801 "Basic Upstart" | |
BasicUpstart2(Entry) | |
* = * "Entry" | |
Entry: { | |
sei | |
lda #<context_switch | |
ldx #>context_switch | |
sta $0314 |