Skip to content

Instantly share code, notes, and snippets.

@visy

visy/rosette.asm

Created July 2, 2017 20:02
Show Gist options
  • Star 3 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save visy/1f800697f2c1025c212fc72de0b41130 to your computer and use it in GitHub Desktop.
Save visy/1f800697f2c1025c212fc72de0b41130 to your computer and use it in GitHub Desktop.
Download ZIP
"Rosette" - a 16k C64 intro source code
Raw
rosette.asm
// Uses Kick Assembler
//
// Switch bank in VIC-II
//
// Args:
// bank: bank number to switch to. Valid values: 0-3.
//
.macro SwitchVICBank(bank) {
//
// The VIC-II chip can only access 16K bytes at a time. In order to
// have it access all of the 64K available, we have to tell it to look
// at one of four banks.
//
// This is controller by bits 0 and 1 in $dd00 (PORT A of CIA #2).
//
// +------+-------+----------+-------------------------------------+
// | BITS | BANK | STARTING | VIC-II CHIP RANGE |
// | | | LOCATION | |
// +------+-------+----------+-------------------------------------+
// | 00 | 3 | 49152 | ($C000-$FFFF)* |
// | 01 | 2 | 32768 | ($8000-$BFFF) |
// | 10 | 1 | 16384 | ($4000-$7FFF)* |
// | 11 | 0 | 0 | ($0000-$3FFF) (DEFAULT VALUE) |
// +------+-------+----------+-------------------------------------+
.var bits=%11
.if (bank==0) .eval bits=%11
.if (bank==1) .eval bits=%10
.if (bank==2) .eval bits=%01
.if (bank==3) .eval bits=%00
.print "bits=%" + toBinaryString(bits)
//
// Set Data Direction for CIA #2, Port A to output
//
lda $dd02
and #%11111100 // Mask the bits we're interested in.
ora #$03 // Set bits 0 and 1.
sta $dd02
//
// Tell VIC-II to switch to bank
//
lda $dd00
and #%11111100
ora #bits
sta $dd00
}
//
// Enter hires bitmap mode (a.k.a. standard bitmap mode)
//
.macro SetHiresBitmapMode() {
//
// Clear extended color mode (bit 6) and set bitmap mode (bit 5)
//
lda $d011
and #%10111111
ora #%00100000
sta $d011
//
// Clear multi color mode (bit 4)
//
lda $d016
and #%11101111
sta $d016
}
.macro ResetStandardBitMapMode() {
lda $d011
and #%11011111
sta $d011
}
//
// Set location of bitmap.
//
// Args:
// address: Address relative to VIC-II bank address.
// Valid values: $0000 (bitmap at $0000-$1FFF)
// $2000 (bitmap at $2000-$3FFF)
//
.macro SetBitmapAddress(address) {
//
// In standard bitmap mode the location of the bitmap area can
// be set to either BANK address + $0000 or BANK address + $2000
//
// By setting bit 3, we can configure which of the locations to use.
//
.var bits=0
lda $d018
.if (address == $0000) {
and #%11110111
}
.if (address == $2000) {
ora #%00001000
}
sta $d018
}
.macro FillBitmap(addr, value) {
ldx #$00
lda #value
!loop:
sta addr,x
sta (addr + $100),x
sta (addr + $200),x
sta (addr + $300),x
sta (addr + $400),x
sta (addr + $500),x
sta (addr + $600),x
sta (addr + $700),x
sta (addr + $800),x
sta (addr + $900),x
sta (addr + $a00),x
sta (addr + $b00),x
sta (addr + $c00),x
sta (addr + $d00),x
sta (addr + $e00),x
sta (addr + $f00),x
sta (addr + $1000),x
sta (addr + $1100),x
sta (addr + $1200),x
sta (addr + $1300),x
sta (addr + $1400),x
sta (addr + $1500),x
sta (addr + $1600),x
sta (addr + $1700),x
sta (addr + $1800),x
sta (addr + $1900),x
sta (addr + $1a00),x
sta (addr + $1b00),x
sta (addr + $1c00),x
sta (addr + $1d00),x
sta (addr + $1e00),x
sta (addr + $1f00),x
dex
bne !loop-
}
//
// Switch location of screen memory.
//
// Args:
// address: Address relative to current VIC-II bank base address.
// Valid values: $0000-$3c00. Must be a multiple of $0400.
//
.macro SetScreenMemory(address) {
//
// The most significant nibble of $D018 selects where the screen is
// located in the current VIC-II bank.
//
// +------------+-----------------------------+
// | | LOCATION* |
// | BITS +---------+-------------------+
// | | DECIMAL | HEX |
// +------------+---------+-------------------+
// | 0000XXXX | 0 | $0000 |
// | 0001XXXX | 1024 | $0400 (DEFAULT) |
// | 0010XXXX | 2048 | $0800 |
// | 0011XXXX | 3072 | $0C00 |
// | 0100XXXX | 4096 | $1000 |
// | 0101XXXX | 5120 | $1400 |
// | 0110XXXX | 6144 | $1800 |
// | 0111XXXX | 7168 | $1C00 |
// | 1000XXXX | 8192 | $2000 |
// | 1001XXXX | 9216 | $2400 |
// | 1010XXXX | 10240 | $2800 |
// | 1011XXXX | 11264 | $2C00 |
// | 1100XXXX | 12288 | $3000 |
// | 1101XXXX | 13312 | $3400 |
// | 1110XXXX | 14336 | $3800 |
// | 1111XXXX | 15360 | $3C00 |
// +------------+---------+-------------------+
//
.var bits = (address / $0400) << 4
lda $d018
and #%00001111
ora #bits
sta $d018
}
//
// Fill screen memory with a value.
//
// Args:
// address: Absolute base address of screen memory.
// value: byte value to fill screen memory with
//
.macro FillScreenMemory(address, value) {
//
// Screen memory is 40 * 25 = 1000 bytes ($3E8 bytes)
//
ldx #$00
lda #value
!loop:
sta address,x
sta (address + $100),x
sta (address + $200),x
dex
bne !loop-
ldx #$e8
!loop:
sta (address + $2ff),x // Start one byte below the area we're clearing
// That way we can bail directly when zero without an additional comparison
dex
bne !loop-
}
//
// Makes program halt until space is pressed. Useful when debugging.
//
.macro WaitForSpace() {
checkdown:
lda $dc01
cmp #$ef
bne checkdown
checkup:
lda $dc01
cmp #$ef
beq checkup
}
/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
PNGtoHIRES
~~~~~~~~~~
By: TWW/CTR
USAGE
~~~~~
:PNGtoHIRES("Filename.png", BitmapMemoryAddress, ScreenMemoryColors)
@SIGNATURE void PNGtoHIRES (STR Filename.png ,U16 BitmapMemoryAddress, U16 ScreenMemoryColors)
@AUTHOR tww@creators.no
@PARAM Filename.png - Filename & path to picture file
@PARAM BitmapMemoryAddress - Memorylocation for output of bmp-data
@PARAM ScreenMemoryColors - Memorylocation for output of Char-data
EXAMPLES
~~~~~~~~
:PNGtoHIRES("something.png", $2000, $2000+8000)
NOTES
~~~~~
For now, only handles 320x200
IMPROVEMENTS
~~~~~~~~~~~~
Add variable picture sizes
Handle assertions if the format is unsupported (size, color restrictions etc.)
TODO
~~~~
BUGS
~~~~
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/
.macro PNGtoHIRES(PNGpicture,BMPData,ColData) {
.var Graphics = LoadPicture(PNGpicture)
// Graphics RGB Colors. Must be adapted to the graphics
.const C64Black = 000 * 65536 + 000 * 256 + 000
.const C64White = 255 * 65536 + 255 * 256 + 255
.const C64Red = 104 * 65536 + 055 * 256 + 043
.const C64Cyan = 112 * 65536 + 164 * 256 + 178
.const C64Purple = 111 * 65536 + 061 * 256 + 134
.const C64Green = 088 * 65536 + 141 * 256 + 067
.const C64Blue = 053 * 65536 + 040 * 256 + 121
.const C64Yellow = 184 * 65536 + 199 * 256 + 111
.const C64L_brown = 111 * 65536 + 079 * 256 + 037
.const C64D_brown = 067 * 65536 + 057 * 256 + 000
.const C64L_red = 154 * 65536 + 103 * 256 + 089
.const C64D_grey = 068 * 65536 + 068 * 256 + 068
.const C64Grey = 108 * 65536 + 108 * 256 + 108
.const C64L_green = 154 * 65536 + 210 * 256 + 132
.const C64L_blue = 108 * 65536 + 094 * 256 + 181
.const C64L_grey = 149 * 65536 + 149 * 256 + 149
// Add the colors neatly into a Hashtable for easy lookup reference
.var ColorTable = Hashtable()
.eval ColorTable.put(C64Black,0)
.eval ColorTable.put(C64White,1)
.eval ColorTable.put(C64Red,2)
.eval ColorTable.put(C64Cyan,3)
.eval ColorTable.put(C64Purple,4)
.eval ColorTable.put(C64Green,5)
.eval ColorTable.put(C64Blue,6)
.eval ColorTable.put(C64Yellow,7)
.eval ColorTable.put(C64L_brown,8)
.eval ColorTable.put(C64D_brown,9)
.eval ColorTable.put(C64L_red,10)
.eval ColorTable.put(C64D_grey,11)
.eval ColorTable.put(C64Grey,12)
.eval ColorTable.put(C64L_green,13)
.eval ColorTable.put(C64L_blue,14)
.eval ColorTable.put(C64L_grey,15)
.pc = BMPData "Hires Bitmap"
.var ScreenMem = List()
.for (var Line = 0 ; Line < 200 ; Line = Line + 8) {
.for (var Block = 0 ; Block < 320 ; Block=Block+8) {
.var Coll1 = Graphics.getPixel(Block,Line)
.var Coll2 = 0
.for (var j = 0 ; j < 8 ; j++ ) {
.var ByteValue = 0
.for (var i = 0 ; i < 8 ; i++ ) {
.if (Graphics.getPixel(Block,Line) != Graphics.getPixel(Block+i,Line+j)) .eval ByteValue = ByteValue + pow(2,7-i)
.if (Graphics.getPixel(Block,Line) != Graphics.getPixel(Block+i,Line+j)) .eval Coll2 = Graphics.getPixel(Block+i,Line+j)
}
.byte ByteValue
}
.var BlockColor = [ColorTable.get(Coll2)]*16+ColorTable.get(Coll1)
.eval ScreenMem.add(BlockColor)
}
}
.pc = ColData "Hires Color Data"
ScreenMemColors:
.for (var i = 0 ; i < 1000 ; i++ ) {
.byte ScreenMem.get(i)
}
}
//
// Stabilize the IRQ so that the handler function is called exactly when the
// line scan begins.
//
// If an interrupt is registered when the raster reaches a line, an IRQ is
// triggered on the first cycle of that line scan. This means that the code we
// want to esecute at that line will not be called immediately. There's quite
// a lot of housekeeping that needs to be done before we get called.
//
// What's worse is that it isn't deterministic how many cycles will pass from
// when the raster starts at the current line untill we get the call.
//
// First, the CPU needs to finish its current operation. This can mean a delay
// of 0 to 7 cycles, depending on what operation is currently running.
//
// Then we spend 7+13 cycles invoking the interrupt handler and pushing stuff to
// the stack.
//
// So all in all we're being called between 20 and 27 cycles after the current line
// scan begins.
//
// This macro removes that uncertainty by registering a new irq on the next line,
// after that second interrupt is registered, it calls nop's until a line change
// should occur.
//
// Now we know that the cycle type of the current op is only one cycle, so the only
// uncertainty left is wether ran one extra cycle or not. We can determine that by
// loading and comparing the current raster line ($d012) with itself. If they're not
// equal, we switched raster line between the load and the compare -> we're ready to go.
//
// If they're equal, we haven't switched yet but we know we'll switch at the next cycle.
// So we just wait an extra cycle in this case.
//
.macro StabilizeRaster() {
//
// Register a new irq handler for the next line.
//
lda #<stabilizedirq
sta $fffe
lda #>stabilizedirq
sta $ffff
inc $d012
//
// ACK the current IRQ
//
lda #$ff
sta $d019
// Save the old stack pointer so we can just restore the stack as it was
// before the stabilizing got in the way.
tsx
// Enable interrupts and call nop's until the end of the current line
// should be reached
cli
nop
nop
nop
nop
nop
nop
nop
nop
// Add one more nop if NTSC
// Here's or second irq handler
stabilizedirq:
// Reset the SP so it looks like the extra irq stuff never happened
txs
//
// Wait for line to finish.
//
// PAL-63 // NTSC-64 // NTSC-65
//---------//------------//-----------
ldx #$08 // ldx #$08 // ldx #$09
dex // dex // dex
bne *-1 // bne *-1 // bne *-1
bit $00 // nop
// nop
//
// Check at exactly what point we go to the next line
//
lda $d012
cmp $d012
beq *+2 // If we haven't changed line yet, wait an extra cycle.
// Here our real logic can start running.
}
.macro RasterInterrupt(address, line) {
//
// Address to jump to when raster reaches line.
// Since we have the kernal banked out, we set the address
// of our interrupt routine directly in $fffe-$ffff instead
// of in $0314-$0315.
//
// If the kernal isn't banked out, it will push registers on the stack,
// check if the interrupt is caused by a brk instruction, and eventually
// call the interrupt function stored in the $0134-$0315 vector.
//
lda #<address
sta $fffe // Instead of $0314 as we have no kernal rom
lda #>address
sta $ffff // Instead of $0315 as we have no kernal rom
//
// Configure line to trigger interrupt at
//
/* .if(line > $ff) { */
lda $d011
ora #%10000000
sta $d011
lda #>line
sta $d012
/* } else { */
/* lda $d011 */
/* and #%01111111 */
/* sta $d011 */
/* */
/* lda #line */
/* sta $d012 */
/* } */
}
.plugin "se.triad.kickass.CruncherPlugins"
.var vic_bank=1
.var vic_base=$4000*vic_bank // A VIC-II bank indicates a 16K region
.var screen_memory=$1000 + vic_base
.var bitmap_address=$2000 + vic_base
.var music = LoadSid("musare.sid")
/*
memory map:
$080e - $2fff code
$3000 - $4fff music
$5000 - $7fff vic1
$8000 -> crunched data
*/
BasicUpstart2(start)
start:
jmp start2
ls_dir:
.byte 0
ls_sx:
.byte 160
ls_sy:
.byte 195-40
ls_x:
.byte 0
ls_y:
.byte 0
ls_px:
.byte 0
ls_py:
.byte 0
ls_rule:
.byte 0
ls_times:
.byte 0
.macro INIT_LS() {
lda ls_sx
sta ls_x
sta ls_px
lda ls_sy
sta ls_y
sta ls_py
}
.macro FWD() {
lda ls_x
sta ls_px
lda ls_y
sta ls_py
ldx ls_px
ldy ls_py
jsr putpixel
lda ls_dir
cmp #0
bne next0
ldx ls_px
lda ls_py
clc
sbc #0
tay
jsr putpixel
lda ls_y
clc
sbc #1
sta ls_y
jmp ende
next0:
lda ls_dir
cmp #1
bne next1
lda ls_px
clc
adc #1
tax
ldy ls_py
jsr putpixel
lda ls_x
clc
adc #2
sta ls_x
jmp ende
next1:
lda ls_dir
cmp #2
bne next2
ldx ls_px
lda ls_py
clc
adc #1
tay
jsr putpixel
lda ls_y
clc
adc #2
sta ls_y
jmp ende
next2:
lda ls_px
clc
sbc #0
tax
ldy ls_py
jsr putpixel
lda ls_x
clc
sbc #1
sta ls_x
ende:
}
.macro PUSH() {
inc ls_stackp
lda ls_x
ldx ls_stackp
sta ls_stackx,x
lda ls_y
ldx ls_stackp
sta ls_stacky,x
}
.macro POP() {
ldx ls_stackp
lda ls_stackx,x
sta ls_x
ldx ls_stackp
lda ls_stacky,x
sta ls_y
dec ls_stackp
}
.macro DIR_L() {
dec ls_dir
lda ls_dir
cmp #$ff
bne no_lff
lda #3
sta ls_dir
no_lff:
}
.macro DIR_R() {
inc ls_dir
lda ls_dir
cmp #$4
bne no_rff
lda #0
sta ls_dir
no_rff:
}
// decruncher
.const B2_ZP_BASE = $03
// ByteBoozer Decruncher /HCL May.2003
// B2 Decruncher December 2014
.label zp_base = B2_ZP_BASE
.label bits = zp_base
.label put = zp_base + 2
.macro B2_DECRUNCH(addr) {
ldy #<addr
ldx #>addr
jsr Decrunch
}
.macro GetNextBit() {
asl bits
bne DgEnd
jsr GetNewBits
DgEnd:
}
.macro GetLen() {
lda #1
GlLoop:
:GetNextBit()
bcc GlEnd
:GetNextBit()
rol
bpl GlLoop
GlEnd:
}
Decrunch:
sty Get1+1
sty Get2+1
sty Get3+1
stx Get1+2
stx Get2+2
stx Get3+2
ldx #0
jsr GetNewBits
sty put-1,x
cpx #2
bcc *-7
lda #$80
sta bits
DLoop:
:GetNextBit()
bcs Match
Literal:
// Literal run.. get length.
:GetLen()
sta LLen+1
ldy #0
LLoop:
Get3:
lda $feed,x
inx
bne *+5
jsr GnbInc
L1: sta (put),y
iny
LLen:
cpy #0
bne LLoop
clc
tya
adc put
sta put
bcc *+4
inc put+1
iny
beq DLoop
// Has to continue with a match..
Match:
// Match.. get length.
:GetLen()
sta MLen+1
// Length 255 -> EOF
cmp #$ff
beq End
// Get num bits
cmp #2
lda #0
rol
:GetNextBit()
rol
:GetNextBit()
rol
tay
lda Tab,y
beq M8
// Get bits < 8
M_1:
:GetNextBit()
rol
bcs M_1
bmi MShort
M8:
// Get byte
eor #$ff
tay
Get2:
lda $feed,x
inx
bne *+5
jsr GnbInc
jmp Mdone
MShort:
ldy #$ff
Mdone:
//clc
adc put
sta MLda+1
tya
adc put+1
sta MLda+2
ldy #$ff
MLoop:
iny
MLda:
lda $beef,y
sta (put),y
MLen:
cpy #0
bne MLoop
//sec
tya
adc put
sta put
bcc *+4
inc put+1
jmp DLoop
End:
rts
GetNewBits:
Get1:
ldy $feed,x
sty bits
rol bits
inx
bne GnbEnd
GnbInc:
inc Get1+2
inc Get2+2
inc Get3+2
GnbEnd:
rts
Tab:
// Short offsets
.byte %11011111 // 3
.byte %11111011 // 6
.byte %00000000 // 8
.byte %10000000 // 10
// Long offsets
.byte %11101111 // 4
.byte %11111101 // 7
.byte %10000000 // 10
.byte %11110000 // 13
sprg:
.byte 0
sprg2:
.byte 0
partcounter:
.byte 0
partcounter2:
.byte 0
prevpart:
.byte 0
parts:
.byte 0,0,1,1,1,1,1,1,1,1,1,1,2,2,3,3,4,4,5
start2:
:INIT_LS()
jsr generate_lookups
sei
// Turn off interrupts from the two CIA chips.
// Used by the kernal to flash cursor and scan
// keyboard.
lda #$7f
sta $dc0d //Turn off CIA 1 interrupts
sta $dd0d //Turn off CIA 2 interrupts
lda #<nmi_nop
sta $fffa
lda #>nmi_nop
sta $fffb
// Reading these registers we ack any pending CIA interrupts.
// Otherwise, we might get a trailing interrupt after setup.
// Tell VIC-II to start generating raster interrupts
lda #$01
sta $d01a //Turn on raster interrupts
// Bank out BASIC and KERNAL.
// This causes the CPU to see RAM instead of KERNAL and
// BASIC ROM at $E000-$FFFF and $A000-$BFFF respectively.
//
// This causes the CPU to see RAM everywhere except for
// $D000-$E000, where the VIC-II, SID, CIA's etc are located.
//
lda #$35
sta $01
lda #<nmi_nop
sta $fffa
lda #>nmi_nop
sta $fffb
lda #$00
sta $dd0e // Stop timer A
sta $dd04 // Set timer A to 0, NMI will occure immediately after start
sta $dd0e
lda #$81
sta $dd0d // Set timer A as source for NMI
lda #$01
sta $dd0e // Start timer A -> NMI
lda #0
sta $d020
sta $d021
:B2_DECRUNCH(crunch_screenlogo)
// FillBitmap($6000,0)
// FillScreenMemory($5000,(1<<4) + 5)
:B2_DECRUNCH(crunch_music)
ldx #0
ldy #0
lda #music.startSong //<- Here we get the startsong and init address from the sid file
jsr music.init
SwitchVICBank(vic_bank)
SetHiresBitmapMode()
SetScreenMemory(screen_memory - vic_base)
SetBitmapAddress(bitmap_address - vic_base)
RasterInterrupt(mainirq, $35)
cli
lda #>lsysdata
sta $F6
lda #<lsysdata
sta $F7
loop:
wait:
lda #$ff
cmp $d012
bne wait
inc partcounter2
lda partcounter2
cmp #255
bne no_partswitch
inc partcounter
no_partswitch:
ldx partcounter
lda parts,x
cmp prevpart
beq do_part_jmp
jmp past_part_jmp
do_part_jmp:
jmp do_part
past_part_jmp:
// init new part
ldx partcounter
lda parts,x
sta prevpart
cmp #0
beq partinit0
cmp #1
beq partinit1
cmp #2
beq partinit2
cmp #3
beq partinit3
cmp #4
beq partinit4_j
cmp #5
beq partinit5_j
partinit4_j:
jmp partinit4
partinit5_j:
jmp partinit5
partinit0:
jmp do_part
partinit1:
lda #0
sta frame2
sta frame3
lda $d011
eor #%00010000
sta $d011
:B2_DECRUNCH(crunch_screen1a)
lda $d011
eor #%00010000
sta $d011
jmp do_part
partinit2:
lda #1
sta $d020
lda $d011
eor #%00010000
sta $d011
lda #%0
sta $d015
:B2_DECRUNCH(crunch_screen2)
lda $d011
eor #%00010000
sta $d011
jmp do_part
partinit3:
lda #0
sta $d020
:B2_DECRUNCH(crunch_strokedata)
FillBitmap($6000,0)
FillScreenMemory($5000,(1<<4) + 0)
jmp do_part
partinit4:
:B2_DECRUNCH(crunch_screen4)
jmp do_part
partinit5:
FillBitmap($6000,0)
FillScreenMemory($5000,0)
sei
asdasd:
lda #0
sta $d400
sta $d401
sta $d407
sta $d408
sta $d40e
sta $d40f
lda #0
sta $d418
jmp asdasd
jmp do_part
do_part:
ldx partcounter
lda parts,x
cmp #0
beq part0_j
cmp #1
beq part1_j
cmp #2
beq part2_j
cmp #3
beq part3_j
jmp loop
part0_j:
jsr part0
jmp loop
part1_j:
jsr part1
jmp loop
part2_j:
jsr part2
jmp loop
part3_j:
jsr part3
jmp loop
part0fade:
.byte 0
part3:
lda stro
sta $F5
lda #<strox
sta $F6
lda #>strox
sta $F7
lda #<stroy
sta $F8
lda #>stroy
sta $F9
jsr do_draw
jsr do_draw
jsr do_draw
jsr do_draw
jsr do_draw
rts
part2:
rts
part0:
inc frame2
lda part0fade
cmp #1
beq do_part0fade
lda frame2
cmp #180
bne no_part0fade
do_part0fade:
lda #1
sta part0fade
ldx frame
lda #0
sta $6000,x
sta $6100,x
sta $6200,x
sta $6300,x
sta $6400,x
sta $6500,x
sta $6600,x
sta $6700,x
sta $6800,x
sta $6900,x
sta $6a00,x
sta $6b00,x
sta $6c00,x
sta $6d00,x
sta $6e00,x
sta $6f00,x
sta $7000,x
sta $7100,x
sta $7200,x
sta $7300,x
sta $7400,x
sta $7500,x
sta $5000,x
sta $5100,x
sta $5200,x
no_part0fade:
rts
part1:
lda #%0
lda ls_times
cmp #6
bcc no_enable_sprites_ls
// enable all sprites
lda #%11111111
sta $d015
no_enable_sprites_ls:
// sprite 0 pos
lda #100+20-2
sta $d000
lda #106-20
sta $d001
lda #100+20-2
sta $d002
lda #146-20
sta $d003
lda #100+20-2
sta $d004
lda #148+40-20
sta $d005
lda #142+20
sta $d006
lda #104-20
sta $d007
lda #184+20+2
sta $d008
lda #148+40-20
sta $d009
lda #142+20
sta $d00a
lda #148+40-20
sta $d00b
lda #184+20+2
sta $d00c
lda #104-20
sta $d00d
lda #184+20+2
sta $d00e
lda #146-20
sta $d00f
lda #0
sta $d010
// sprite pointer
lda #190
adc sprg
sta $53f8
lda #191
adc sprg
sta $53f9
lda #190
adc sprg
sta $53fa
lda #191
adc sprg
sta $53fb
lda #190
adc sprg
sta $53fc
lda #191
adc sprg
sta $53fd
lda #196
adc sprg
sta $53fe
lda #197
adc sprg
sta $53ff
// behind screen sprites
lda #$0
sta $d01b
// sprite color
lda #11
sta $d027
sta $d028
sta $d029
sta $d02a
sta $d02b
sta $d02c
sta $d02d
sta $d02e
// single color sprites
lda #0
sta $d01c
// stretch sprites
lda #$ff
sta $d01d
sta $d017
lda frame2
cmp #100
lda #0
sta frame2
bne no_sprg
inc sprg2
lda sprg2
cmp #8
bne no_sprg
lda #0
sta sprg2
inc sprg
lda sprg
cmp #8
bne no_sprg
lda #2
sta sprg
jmp no_sprg
start_lsys:
.byte 0
no_sprg:
lda start_lsys
cmp #1
beq do_lsys
inc frame3
lda frame3
cmp #80
bcc no_lsys
lda #1
sta start_lsys
do_lsys:
jsr lsystem
jsr lsystem
jsr lsystem
jsr lsystem
jsr lsystem
jsr lsystem
jsr lsystem
jsr lsystem
jsr lsystem
jsr lsystem
jsr lsystem
jsr lsystem
jsr lsystem
jsr lsystem
jsr lsystem
jsr lsystem
no_lsys:
rts
nybind:
.byte 0
ls_stackp:
.byte 1
ls_stackx:
.byte 100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100
ls_stacky:
.byte 100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100,100
lsystem:
ldy #0
lda ($F6),y
sta ls_rule
lda nybind
cmp #0
bne no_nyb0
lda ls_rule
lsr
lsr
lsr
lsr
sta ls_rule
jmp nybdone
no_nyb0:
lda ls_rule
and #%00001111
sta ls_rule
nybdone:
inc nybind
lda nybind
cmp #2
bne no_lshi
lda #0
sta nybind
inc $F6
lda $F6
cmp #$0
bne no_lshi
inc $F7
no_lshi:
lda ls_rule
cmp #0
bne no_rule0
lda #<lsysdata
sta $F6
lda #>lsysdata
sta $F7
inc ls_times
lda #1
sta ls_stackp
rts
no_rule0:
lda ls_rule
cmp #1
bne no_rule
jmp fwder
no_rule:
jmp no_rule1
fwder:
:FWD()
rts
no_rule1:
lda ls_rule
cmp #2
bne no_rule2
:DIR_L()
rts
no_rule2:
lda ls_rule
cmp #3
bne no_rule3
:DIR_R()
rts
no_rule3:
lda ls_rule
cmp #6
bne no_rule6
:PUSH()
rts
no_rule6:
lda ls_rule
cmp #7
bne no_rule7
:POP()
rts
no_rule7:
rts
do_draw:
ldy drawp
lda ($F6),y
sta $FA
lda ($F8),y
sta $FB
lda $FA
adc drawt
adc #18
tax
lda $FB
sbc #10
tay
jsr putpixel
lda $FA
adc #1
adc #18
adc drawt
tax
lda $FB
adc #1
adc drawt
sbc #10
tay
jsr putpixel
lda $FA
adc #2
adc #18
tax
lda $FB
adc #2
adc drawt
sbc #10
tay
jsr putpixel
lda $FA
adc #3
adc #18
adc drawt
tax
lda $FB
adc #3
sbc #10
tay
jsr putpixel
inc drawp
lda drawp
cmp $F5
bcc no_drawf
lda #0
sta drawp
inc drawt
lda drawt
cmp #5
bne no_drawf
lda #0
sta drawt
no_drawf:
rts
drawp:
.byte 0
drawt:
.byte 0
/////////////////
putpixel:
lda YTABLO,y
sta $FC
lda YTABHI,y
sta $FD
ldy XTAB,x
lda ($FC),y
ora BITTAB,x
sta ($FC),y
rts
generate_lookups:
ldx #$00
genloop:
txa
and #$07
asl
asl
sta $FC
txa
lsr
lsr
lsr
sta $FD
lsr
ror $FC
lsr
ror $FC
adc $FD
ora #$60 // bitmap address $6000
sta YTABHI,x
lda $FC
sta YTABLO,x
inx
cpx #200
bne genloop
lda #$80
sta $FC
ldx #$00
genloop2:
txa
and #$F8
sta XTAB,x
lda $FC
sta BITTAB,x
lsr
bcc genskip
lda #$80
genskip:
sta $FC
inx
bne genloop2
rts
nmi_nop:
//
// This is the irq handler for the NMI. Just returns without acknowledge.
// This prevents subsequent NMI's from interfering.
//
rti
mainirq:
//
// Since the kernal is switced off, we need to push the
// values of the registers to the stack ourselves so
// that they're restored when we're done.
//
// If we don't do anything advanced like calling cli to let another
// irq occur, we don't need to use the stack.
//
// In that case it's faster to:
//
// sta restorea+1
// stx restorex+1
// sty restorey+1
//
// ... do stuff ...
//
// lda #$ff
// sta $d019
//
// restorea: lda #$00
// restorex: ldx #$00
// restorey: ldy #$00
// rti
//
pha
txa
pha
tya
pha
//
// Stabilize raster using double irq's.
StabilizeRaster()
inc frame
lda frame
// sta $d020
jsr music.play
//
// Reset the raster interrupt since the stabilizing registered another
// function.
// We can also register another irq for something further down the screen
// or at next frame.
//
RasterInterrupt(mainirq, $35)
//
// Restore the interrupt condition so that we can get
// another one.
//
lda #$ff
sta $d019 //ACK interrupt so it can be called again
//
// Restore the values of the registers and return.
//
pla
tay
pla
tax
pla
rti
frame:
.byte 0
frame2:
.byte 0
frame3:
.byte 0
base:
.byte 0
YTABHI:
.fill 256,0
YTABLO:
.fill 200,0
BITTAB:
.fill 256,0
XTAB:
.fill 256,0
// crunched data
.label crunch_music = *
.modify B2() {
.pc = music.location "Music"
.fill music.size, music.getData(i)
}
.pc=$8000
.label crunch_screen1a = *
.modify B2() {
:PNGtoHIRES("lsysbg.png", bitmap_address, screen_memory)
}
.label crunch_screen2 = *
.modify B2() {
:PNGtoHIRES("branch.png", bitmap_address, screen_memory)
}
.label crunch_screenlogo = *
.modify B2() {
:PNGtoHIRES("ivorylogo.png", bitmap_address, screen_memory)
}
.label crunch_screen4 = *
.modify B2() {
:PNGtoHIRES("credits.png", bitmap_address, screen_memory)
}
stro:
.byte 230
.pc=$c000
// lsystem data
// each nybble = rule
// 0 = end
// 1 = fwd
// 2 = turn left
// 3 = turn right
// 6 = push
// 7 = pop
// pseudo:
// read both nybs in buffer, hi then lo
// cmp and process rule
// continue until 2619.5 rules parsed
lsysdata:
.byte 17,17,17,17,17,17,17,17,38,97,17,17,17,18,102,17,17,38,97,18,102,18,102,115,115,22,49,114,115,18,102,115,115,22,49,114,115,17,99,17,18,102,115,115,22,49,114,114,18,102,115,115,22,49,114,115,17,38,97,38,103,55,49,99,23,39,49,38,103,55,49,99,23,39,49,22,49,17,38,103,55,49,99,23,39,33,38,103,55,49,99,23,39,49,17,22,49,17,17,18,102,18,102,115,115,22,49,114,115,18,102,115,115,22,49,114,115,17,99,17,18,102,115,115,22,49,114,114,18,102,115,115,22,49,114,114,17,38,97,38,103,55,49,99,23,39,49,38,103,55,49,99,23,39,49,22,49,17,38,103,55,49,99,23,39,33,38,103,55,49,99,23,39,49,17,18,102,17,38,97,38,103,55,49,99,23,39,49,38,103,55,49,99,23,39,49,22,49,17,38,103,55,49,99,23,39,33,38,103,55,49,99,23,39,49,18,102,18,102,115,115,22,49,114,115,18,102,115,115,22,49,114,115,17,99,17,18,102,115,115,22,49,114,114,18,102,115,115,22,49,114,115,17,17,99,17,17,17,38,97,38,103,55,49,99,23,39,49,38,103,55,49,99,23,39,49,22,49,17,38,103,55,49,99,23,39,33,38,103,55,49,99,23,39,33,18,102,18,102,115,115,22,49,114,115,18,102,115,115,22,49,114,115,17,99,17,18,102,115,115,22,49,114,114,18,102,115,115,22,49,114,115,17,17,17,17,99,17,17,17,17,17,17,38,97,18,102,18,102,115,115,22,49,114,115,18,102,115,115,22,49,114,115,17,99,17,18,102,115,115,22,49,114,114,18,102,115,115,22,49,114,115,17,38,97,38,103,55,49,99,23,39,49,38,103,55,49,99,23,39,49,22,49,17,38,103,55,49,99,23,39,33,38,103,55,49,99,23,39,49,17,22,49,17,17,18,102,18,102,115,115,22,49,114,115,18,102,115,115,22,49,114,115,17,99,17,18,102,115,115,22,49,114,114,18,102,115,115,22,49,114,114,17,38,97,38,103,55,49,99,23,39,49,38,103,55,49,99,23,39,49,22,49,17,38,103,55,49,99,23,39,33,38,103,55,49,99,23,39,33,17,18,102,17,38,97,38,103,55,49,99,23,39,49,38,103,55,49,99,23,39,49,22,49,17,38,103,55,49,99,23,39,33,38,103,55,49,99,23,39,49,18,102,18,102,115,115,22,49,114,115,18,102,115,115,22,49,114,115,17,99,17,18,102,115,115,22,49,114,114,18,102,115,115,22,49,114,115,17,17,99,17,17,17,38,97,38,103,55,49,99,23,39,49,38,103,55,49,99,23,39,49,22,49,17,38,103,55,49,99,23,39,33,38,103,55,49,99,23,39,33,18,102,18,102,115,115,22,49,114,115,18,102,115,115,22,49,114,115,17,99,17,18,102,115,115,22,49,114,114,18,102,115,115,22,49,114,115,17,17,17,17,38,97,17,18,102,17,38,97,38,103,55,49,99,23,39,49,38,103,55,49,99,23,39,49,22,49,17,38,103,55,49,99,23,39,33,38,103,55,49,99,23,39,49,18,102,18,102,115,115,22,49,114,115,18,102,115,115,22,49,114,115,17,99,17,18,102,115,115,22,49,114,114,18,102,115,115,22,49,114,115,17,17,99,17,17,17,38,97,38,103,55,49,99,23,39,49,38,103,55,49,99,23,39,49,22,49,17,38,103,55,49,99,23,39,33,38,103,55,49,99,23,39,33,18,102,18,102,115,115,22,49,114,115,18,102,115,115,22,49,114,115,17,99,17,18,102,115,115,22,49,114,114,18,102,115,115,22,49,114,115,17,17,38,97,18,102,18,102,115,115,22,49,114,115,18,102,115,115,22,49,114,115,17,99,17,18,102,115,115,22,49,114,114,18,102,115,115,22,49,114,115,17,38,97,38,103,55,49,99,23,39,49,38,103,55,49,99,23,39,49,22,49,17,38,103,55,49,99,23,39,33,38,103,55,49,99,23,39,49,17,22,49,17,17,18,102,18,102,115,115,22,49,114,115,18,102,115,115,22,49,114,115,17,99,17,18,102,115,115,22,49,114,114,18,102,115,115,22,49,114,114,17,38,97,38,103,55,49,99,23,39,49,38,103,55,49,99,23,39,49,22,49,17,38,103,55,49,99,23,39,33,38,103,55,49,99,23,39,49,17,17,17,22,49,17,17,17,17,17,18,102,17,38,97,38,103,55,49,99,23,39,49,38,103,55,49,99,23,39,49,22,49,17,38,103,55,49,99,23,39,33,38,103,55,49,99,23,39,49,18,102,18,102,115,115,22,49,114,115,18,102,115,115,22,49,114,115,17,99,17,18,102,115,115,22,49,114,114,18,102,115,115,22,49,114,115,17,17,99,17,17,17,38,97,38,103,55,49,99,23,39,49,38,103,55,49,99,23,39,49,22,49,17,38,103,55,49,99,23,39,33,38,103,55,49,99,23,39,33,18,102,18,102,115,115,22,49,114,115,18,102,115,115,22,49,114,115,17,99,17,18,102,115,115,22,49,114,114,18,102,115,115,22,49,114,114,17,17,38,97,18,102,18,102,115,115,22,49,114,115,18,102,115,115,22,49,114,115,17,99,17,18,102,115,115,22,49,114,114,18,102,115,115,22,49,114,115,17,38,97,38,103,55,49,99,23,39,49,38,103,55,49,99,23,39,49,22,49,17,38,103,55,49,99,23,39,33,38,103,55,49,99,23,39,49,17,22,49,17,17,18,102,18,102,115,115,22,49,114,115,18,102,115,115,22,49,114,115,17,99,17,18,102,115,115,22,49,114,114,18,102,115,115,22,49,114,114,17,38,97,38,103,55,49,99,23,39,49,38,103,55,49,99,23,39,49,22,49,17,38,103,55,49,99,23,39,33,38,103,55,49,99,23,39,49,17,17,17,17,17,17,17,22,49,17,17,17,17,17,17,17,17,17,17,17,18,102,17,17,38,97,18,102,18,102,115,115,22,49,114,115,18,102,115,115,22,49,114,115,17,99,17,18,102,115,115,22,49,114,114,18,102,115,115,22,49,114,115,17,38,97,38,103,55,49,99,23,39,49,38,103,55,49,99,23,39,49,22,49,17,38,103,55,49,99,23,39,33,38,103,55,49,99,23,39,49,17,22,49,17,17,18,102,18,102,115,115,22,49,114,115,18,102,115,115,22,49,114,115,17,99,17,18,102,115,115,22,49,114,114,18,102,115,115,22,49,114,114,17,38,97,38,103,55,49,99,23,39,49,38,103,55,49,99,23,39,49,22,49,17,38,103,55,49,99,23,39,33,38,103,55,49,99,23,39,49,17,18,102,17,38,97,38,103,55,49,99,23,39,49,38,103,55,49,99,23,39,49,22,49,17,38,103,55,49,99,23,39,33,38,103,55,49,99,23,39,49,18,102,18,102,115,115,22,49,114,115,18,102,115,115,22,49,114,115,17,99,17,18,102,115,115,22,49,114,114,18,102,115,115,22,49,114,115,17,17,99,17,17,17,38,97,38,103,55,49,99,23,39,49,38,103,55,49,99,23,39,49,22,49,17,38,103,55,49,99,23,39,33,38,103,55,49,99,23,39,33,18,102,18,102,115,115,22,49,114,115,18,102,115,115,22,49,114,115,17,99,17,18,102,115,115,22,49,114,114,18,102,115,115,22,49,114,115,17,17,17,17,99,17,17,17,17,17,17,38,97,18,102,18,102,115,115,22,49,114,115,18,102,115,115,22,49,114,115,17,99,17,18,102,115,115,22,49,114,114,18,102,115,115,22,49,114,115,17,38,97,38,103,55,49,99,23,39,49,38,103,55,49,99,23,39,49,22,49,17,38,103,55,49,99,23,39,33,38,103,55,49,99,23,39,49,17,22,49,17,17,18,102,18,102,115,115,22,49,114,115,18,102,115,115,22,49,114,115,17,99,17,18,102,115,115,22,49,114,114,18,102,115,115,22,49,114,114,17,38,97,38,103,55,49,99,23,39,49,38,103,55,49,99,23,39,49,22,49,17,38,103,55,49,99,23,39,33,38,103,55,49,99,23,39,33,17,18,102,17,38,97,38,103,55,49,99,23,39,49,38,103,55,49,99,23,39,49,22,49,17,38,103,55,49,99,23,39,33,38,103,55,49,99,23,39,49,18,102,18,102,115,115,22,49,114,115,18,102,115,115,22,49,114,115,17,99,17,18,102,115,115,22,49,114,114,18,102,115,115,22,49,114,115,17,17,99,17,17,17,38,97,38,103,55,49,99,23,39,49,38,103,55,49,99,23,39,49,22,49,17,38,103,55,49,99,23,39,33,38,103,55,49,99,23,39,33,18,102,18,102,115,115,22,49,114,115,18,102,115,115,22,49,114,115,17,99,17,18,102,115,115,22,49,114,114,18,102,115,115,22,49,114,114,17,17,17,17,38,97,17,18,102,17,38,97,38,103,55,49,99,23,39,49,38,103,55,49,99,23,39,49,22,49,17,38,103,55,49,99,23,39,33,38,103,55,49,99,23,39,49,18,102,18,102,115,115,22,49,114,115,18,102,115,115,22,49,114,115,17,99,17,18,102,115,115,22,49,114,114,18,102,115,115,22,49,114,115,17,17,99,17,17,17,38,97,38,103,55,49,99,23,39,49,38,103,55,49,99,23,39,49,22,49,17,38,103,55,49,99,23,39,33,38,103,55,49,99,23,39,33,18,102,18,102,115,115,22,49,114,115,18,102,115,115,22,49,114,115,17,99,17,18,102,115,115,22,49,114,114,18,102,115,115,22,49,114,115,17,17,38,97,18,102,18,102,115,115,22,49,114,115,18,102,115,115,22,49,114,115,17,99,17,18,102,115,115,22,49,114,114,18,102,115,115,22,49,114,115,17,38,97,38,103,55,49,99,23,39,49,38,103,55,49,99,23,39,49,22,49,17,38,103,55,49,99,23,39,33,38,103,55,49,99,23,39,49,17,22,49,17,17,18,102,18,102,115,115,22,49,114,115,18,102,115,115,22,49,114,115,17,99,17,18,102,115,115,22,49,114,114,18,102,115,115,22,49,114,114,17,38,97,38,103,55,49,99,23,39,49,38,103,55,49,99,23,39,49,22,49,17,38,103,55,49,99,23,39,33,38,103,55,49,99,23,39,49,17,17,17,22,49,17,17,17,17,17,18,102,17,38,97,38,103,55,49,99,23,39,49,38,103,55,49,99,23,39,49,22,49,17,38,103,55,49,99,23,39,33,38,103,55,49,99,23,39,49,18,102,18,102,115,115,22,49,114,115,18,102,115,115,22,49,114,115,17,99,17,18,102,115,115,22,49,114,114,18,102,115,115,22,49,114,115,17,17,99,17,17,17,38,97,38,103,55,49,99,23,39,49,38,103,55,49,99,23,39,49,22,49,17,38,103,55,49,99,23,39,33,38,103,55,49,99,23,39,33,18,102,18,102,115,115,22,49,114,115,18,102,115,115,22,49,114,115,17,99,17,18,102,115,115,22,49,114,114,18,102,115,115,22,49,114,114,17,17,38,97,18,102,18,102,115,115,22,49,114,115,18,102,115,115,22,49,114,115,17,99,17,18,102,115,115,22,49,114,114,18,102,115,115,22,49,114,115,17,38,97,38,103,55,49,99,23,39,49,38,103,55,49,99,23,39,49,22,49,17,38,103,55,49,99,23,39,33,38,103,55,49,99,23,39,49,17,22,49,17,17,18,102,18,102,115,115,22,49,114,115,18,102,115,115,22,49,114,115,17,99,17,18,102,115,115,22,49,114,114,18,102,115,115,22,49,114,114,17,38,97,38,103,55,49,99,23,39,49,38,103,55,49,99,23,39,49,22,49,17,38,103,55,49,99,23,39,33,38,103,55,49,99,23,32
.label crunch_strokedata = *
.modify B2() {
strox:
.byte 19,19,19,19,19,19,19,19,19,20,21,23,24,26,29,31,38,44,49,54,58,62,65,68,72,81,90,97,101,104,107,110,112,113,113,114,114,70,70,70,70,70,70,70,70,70,70,71,72,72,72,72,72,72,72,72,72,72,72,71,70,69,69,69,69,69,69,69,69,69,87,87,87,87,88,89,90,91,93,97,102,106,108,110,112,112,112,112,112,112,111,110,109,107,106,103,102,101,100,98,96,96,95,95,94,94,94,94,95,97,100,103,107,112,118,121,122,123,124,150,150,150,149,149,148,147,146,143,140,138,137,135,133,131,130,129,129,129,130,133,137,141,145,148,149,150,151,151,151,151,151,151,151,151,151,151,151,151,153,154,155,157,161,163,167,170,174,178,180,180,182,182,182,182,182,182,182,182,182,182,182,182,182,182,182,182,182,182,182,182,182,182,183,185,187,191,195,197,198,199,200,200,201,201,201,202,203,205,207,208,209,211,213,215,217,219,221,222,224,225,226,227,227,228,228,228,229,229,229,229
stroy:
.byte 75,75,75,75,75,75,75,75,75,74,72,69,67,66,66,66,66,66,67,69,72,76,78,79,79,78,76,73,72,72,71,71,71,70,70,70,70,79,79,79,79,79,81,84,87,88,91,97,101,106,110,114,117,121,126,130,133,135,139,142,147,150,153,154,155,157,158,158,158,158,145,145,145,145,145,145,145,145,145,144,142,140,138,136,134,130,127,125,124,123,122,121,121,121,121,121,121,122,124,126,128,130,133,135,139,142,144,147,149,151,153,154,155,156,156,156,156,156,156,131,131,131,131,131,131,131,131,131,132,133,134,134,137,139,142,146,150,153,154,156,157,157,157,155,153,150,147,143,139,137,135,135,133,133,133,133,133,133,136,139,142,145,149,153,155,157,157,157,157,157,134,134,134,134,134,134,135,137,139,141,144,148,152,153,154,156,156,157,157,156,152,148,145,143,140,137,135,135,135,137,140,142,144,144,144,142,139,137,136,136,136,136,136,137,139,141,143,145,149,151,153,154,156,158,160,160,161,161,161,161
}
.print "vic_bank: " + toHexString(vic_bank)
.print "vic_base: " + toHexString(vic_base)
.print "screen_memory: " + toHexString(screen_memory)
.print "bitmap_address: " + toHexString(bitmap_address)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment