intoinside

*= $0801 "Basic Upstart"
BasicUpstart2(Entry)

* = * "Entry"
Entry: {
    sei

    lda #<context_switch
    ldx #>context_switch
    sta $0314

intoinside

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

intoinside

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

intoinside

// 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

intoinside

// 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

intoinside

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
}