2009-08-19 12:54:59 +00:00
|
|
|
|
|
|
|
.include "../inc/common.i"
|
2009-08-20 10:06:33 +00:00
|
|
|
|
2009-08-19 12:54:59 +00:00
|
|
|
.ifndef NB65_API_VERSION_NUMBER
|
|
|
|
.define EQU =
|
|
|
|
.include "../inc/nb65_constants.i"
|
|
|
|
.endif
|
|
|
|
|
2009-08-20 10:06:33 +00:00
|
|
|
print_a = $ffd2
|
2009-08-19 12:54:59 +00:00
|
|
|
|
|
|
|
|
|
|
|
SCREEN_RAM = $0400
|
|
|
|
COLOUR_RAM = $d800
|
|
|
|
VIC_CTRL_A = $d011
|
|
|
|
VIC_RASTER_REG = $d012
|
|
|
|
VIC_CTRL_B = $d016
|
|
|
|
VIC_MEMORY_CTRL=$d018
|
|
|
|
VIC_IRQ_FLAG = $d019
|
|
|
|
|
|
|
|
|
|
|
|
IRQ_VECTOR=$fffe
|
|
|
|
|
2009-08-20 10:06:33 +00:00
|
|
|
MUSIC_BASE=$1000 ;where we relocate our music routine to
|
|
|
|
PLAYER_INIT=0
|
|
|
|
PLAYER_PLAY=3
|
2009-08-19 12:54:59 +00:00
|
|
|
|
|
|
|
BORDER_COLOR = $d020
|
|
|
|
BACKGROUND_COLOR_0 = $d021
|
|
|
|
SCROLL_DELAY=4
|
|
|
|
CHARS_PER_LINE = 40
|
|
|
|
SCROLL_LINE=12
|
|
|
|
SCROLL_RAM = SCREEN_RAM+(SCROLL_LINE*CHARS_PER_LINE)
|
|
|
|
|
|
|
|
TOP_BORDER_SCAN_LINES = 50
|
|
|
|
|
|
|
|
|
|
|
|
BLACK = 0
|
|
|
|
WHITE = 1
|
|
|
|
RED = 2
|
|
|
|
CYAN = 3
|
|
|
|
PURPLE = 4
|
|
|
|
GREEN = 5
|
|
|
|
BLUE = 6
|
|
|
|
YELLOW = 7
|
|
|
|
ORANGE = 8
|
|
|
|
BROWN = 9
|
|
|
|
LIGHT_RED = 10
|
|
|
|
DARK_GRAY = 11
|
|
|
|
GRAY = 12
|
|
|
|
LIGHT_GREEN = 13
|
|
|
|
LIGHT_BLUE = 14
|
|
|
|
LIGHT_GRAY = 15
|
|
|
|
|
|
|
|
.macro start_irq
|
|
|
|
pha
|
|
|
|
txa
|
|
|
|
pha
|
|
|
|
tya
|
|
|
|
pha
|
|
|
|
|
|
|
|
.endmacro
|
|
|
|
|
|
|
|
|
|
|
|
.macro end_irq
|
|
|
|
pla
|
|
|
|
tay
|
|
|
|
pla
|
|
|
|
tax
|
|
|
|
pla
|
|
|
|
.endmacro
|
|
|
|
|
|
|
|
.macro wait_next_raster
|
|
|
|
lda VIC_RASTER_REG
|
|
|
|
@loop:
|
|
|
|
cmp VIC_RASTER_REG
|
|
|
|
beq @loop
|
|
|
|
.endmacro
|
|
|
|
|
2009-08-20 10:06:33 +00:00
|
|
|
.macro nb65call function_number
|
|
|
|
ldy function_number
|
|
|
|
jsr NB65_DISPATCH_VECTOR
|
|
|
|
.endmacro
|
2009-08-19 12:54:59 +00:00
|
|
|
|
2009-08-20 10:06:33 +00:00
|
|
|
.zeropage
|
|
|
|
temp_buff: .res 2
|
|
|
|
pptr: .res 2
|
2009-08-19 12:54:59 +00:00
|
|
|
|
|
|
|
.segment "STARTUP" ;this is what gets put at the start of the file on the C64
|
|
|
|
|
|
|
|
.word basicstub ; load address
|
|
|
|
|
|
|
|
basicstub:
|
|
|
|
.word @nextline
|
|
|
|
.word 2003
|
|
|
|
.byte $9e
|
|
|
|
.byte <(((init / 1000) .mod 10) + $30)
|
|
|
|
.byte <(((init / 100 ) .mod 10) + $30)
|
|
|
|
.byte <(((init / 10 ) .mod 10) + $30)
|
|
|
|
.byte <(((init ) .mod 10) + $30)
|
|
|
|
.byte 0
|
|
|
|
@nextline:
|
|
|
|
.word 0
|
|
|
|
|
|
|
|
init:
|
|
|
|
|
2009-08-20 10:06:33 +00:00
|
|
|
ldax #NB65_CART_SIGNATURE ;where signature should be in cartridge (if cart is banked in)
|
|
|
|
jsr look_for_signature
|
|
|
|
bcc @found_nb65_signature
|
|
|
|
|
|
|
|
ldax #NB65_RAM_STUB_SIGNATURE ;where signature should be in a RAM stub
|
|
|
|
jsr look_for_signature
|
|
|
|
bcs @nb65_signature_not_found
|
|
|
|
jsr NB65_RAM_STUB_ACTIVATE ;we need to turn on NB65 cartridge
|
|
|
|
jmp @found_nb65_signature
|
|
|
|
|
|
|
|
@nb65_signature_not_found:
|
|
|
|
ldax #nb65_api_not_found_message
|
|
|
|
jsr print
|
|
|
|
rts
|
|
|
|
@found_nb65_signature:
|
|
|
|
|
|
|
|
lda NB65_API_VERSION
|
|
|
|
cmp #02
|
|
|
|
bpl @version_ok
|
|
|
|
ldax #incorrect_version
|
|
|
|
jsr print
|
|
|
|
jmp reset_after_keypress
|
|
|
|
@version_ok:
|
|
|
|
ldax #init_msg
|
|
|
|
jsr print
|
|
|
|
nb65call #NB65_INITIALIZE
|
|
|
|
bcc @init_ok
|
|
|
|
jsr print_cr
|
|
|
|
ldax #failed_msg
|
|
|
|
jsr print
|
|
|
|
jsr print_cr
|
|
|
|
jsr print_errorcode
|
|
|
|
jmp reset_after_keypress
|
|
|
|
@init_ok:
|
|
|
|
|
|
|
|
;if we got here, we have found the NB65 API and initialised the IP stack
|
2009-08-19 12:54:59 +00:00
|
|
|
|
|
|
|
jsr setup_static_scroll_text
|
|
|
|
|
|
|
|
lda #0
|
|
|
|
jsr clear_screen
|
|
|
|
lda #DARK_GRAY
|
|
|
|
sta BORDER_COLOR
|
|
|
|
lda #YELLOW
|
|
|
|
sta BACKGROUND_COLOR_0
|
|
|
|
|
2009-08-20 10:06:33 +00:00
|
|
|
|
|
|
|
|
|
|
|
;copy our music data up to a temp buffer (in case it gets overwritten by
|
|
|
|
;one of the other unpacking moves)
|
|
|
|
ldax #musicdata+2 ;skip over the 2 byte address
|
|
|
|
stax nb65_param_buffer+NB65_BLOCK_SRC
|
|
|
|
ldax #download_buffer
|
|
|
|
stax nb65_param_buffer+NB65_BLOCK_DEST
|
|
|
|
ldax #musicdata_size-2 ;don't copy the 2 byte address
|
|
|
|
stax nb65_param_buffer+NB65_BLOCK_SIZE
|
|
|
|
ldax #nb65_param_buffer
|
|
|
|
nb65call #NB65_BLOCK_COPY
|
|
|
|
|
|
|
|
;copy our font data and the sprite data to $2000..$2fff
|
|
|
|
ldax #charset_font
|
|
|
|
stax nb65_param_buffer+NB65_BLOCK_SRC
|
|
|
|
ldax #$2000
|
|
|
|
stax nb65_param_buffer+NB65_BLOCK_DEST
|
|
|
|
ldax #MUSIC_BASE
|
|
|
|
stax nb65_param_buffer+NB65_BLOCK_SIZE
|
|
|
|
ldax #nb65_param_buffer
|
|
|
|
nb65call #NB65_BLOCK_COPY
|
2009-08-19 12:54:59 +00:00
|
|
|
|
2009-08-20 10:06:33 +00:00
|
|
|
;should now be now safe to copy the music data back down
|
|
|
|
;copy our music data to $1000..$1fff
|
|
|
|
ldax #download_buffer
|
|
|
|
stax nb65_param_buffer+NB65_BLOCK_SRC
|
|
|
|
ldax #MUSIC_BASE
|
|
|
|
stax nb65_param_buffer+NB65_BLOCK_DEST
|
|
|
|
ldax #musicdata_size-2 ;don't copy the 2 byte address
|
|
|
|
stax nb65_param_buffer+NB65_BLOCK_SIZE
|
|
|
|
ldax #nb65_param_buffer
|
|
|
|
nb65call #NB65_BLOCK_COPY
|
|
|
|
|
|
|
|
lda #$18 ; use charset at $2000
|
2009-08-19 12:54:59 +00:00
|
|
|
sta VIC_MEMORY_CTRL
|
|
|
|
|
|
|
|
|
|
|
|
sei ;disable maskable IRQs
|
|
|
|
|
|
|
|
lda #$7f
|
|
|
|
sta $dc0d ;disable timer interrupts which can be generated by the two CIA chips
|
|
|
|
sta $dd0d ;the kernal uses such an interrupt to flash the cursor and scan the keyboard, so we better
|
|
|
|
;stop it.
|
|
|
|
|
|
|
|
lda $dc0d ;by reading this two registers we negate any pending CIA irqs.
|
|
|
|
lda $dd0d ;if we don't do this, a pending CIA irq might occur after we finish setting up our irq.
|
|
|
|
;we don't want that to happen.
|
|
|
|
|
|
|
|
lda #$01 ;this is how to tell the VICII to generate a raster interrupt
|
|
|
|
sta $d01a
|
|
|
|
|
|
|
|
lda #$00 ;this is how to tell at which rasterline we want the irq to be triggered
|
|
|
|
sta VIC_RASTER_REG
|
|
|
|
|
|
|
|
|
|
|
|
;copy KERNAL to the RAM underneath, in case any ip65 routines need it
|
|
|
|
ldax #$e000
|
2009-08-20 10:06:33 +00:00
|
|
|
stax nb65_param_buffer+NB65_BLOCK_SRC
|
|
|
|
stax nb65_param_buffer+NB65_BLOCK_DEST
|
2009-08-19 12:54:59 +00:00
|
|
|
ldax #$1FFF
|
2009-08-20 10:06:33 +00:00
|
|
|
stax nb65_param_buffer+NB65_BLOCK_SIZE
|
|
|
|
ldax #nb65_param_buffer
|
|
|
|
nb65call #NB65_BLOCK_COPY
|
2009-08-19 12:54:59 +00:00
|
|
|
|
2009-08-20 10:06:33 +00:00
|
|
|
;copy NB65 cart to the RAM underneath, so we can swap it out and modify the IRQ vector
|
|
|
|
ldax #$8000
|
|
|
|
stax nb65_param_buffer+NB65_BLOCK_SRC
|
|
|
|
stax nb65_param_buffer+NB65_BLOCK_DEST
|
|
|
|
ldax #$4000
|
|
|
|
stax nb65_param_buffer+NB65_BLOCK_SIZE
|
|
|
|
ldax #nb65_param_buffer
|
|
|
|
nb65call #NB65_BLOCK_COPY
|
2009-08-19 12:54:59 +00:00
|
|
|
|
|
|
|
|
|
|
|
lda #$35 ;we turn off the BASIC and KERNAL rom here, so we can overwrite the IRQ vector at $fffe
|
|
|
|
sta $01 ;the cpu now sees RAM everywhere except at $d000-$e000, where still the registers of
|
|
|
|
;SID/VICII/etc are visible
|
|
|
|
|
|
|
|
jsr setup_sprites
|
|
|
|
|
2009-08-20 10:06:33 +00:00
|
|
|
jsr setup_music
|
|
|
|
|
|
|
|
|
2009-08-19 12:54:59 +00:00
|
|
|
jsr set_next_irq_jump
|
|
|
|
cli ;enable maskable interrupts again
|
|
|
|
|
|
|
|
|
2009-08-21 13:21:14 +00:00
|
|
|
lda #3
|
2009-08-19 12:54:59 +00:00
|
|
|
sta scroll_state
|
|
|
|
;position for the first text
|
|
|
|
|
|
|
|
jsr reset_input_buffer
|
|
|
|
|
|
|
|
;now download the feed
|
|
|
|
@download_feed:
|
|
|
|
|
2009-08-20 10:06:33 +00:00
|
|
|
ldax #feed_url
|
|
|
|
stax nb65_param_buffer+NB65_URL
|
2009-08-19 12:54:59 +00:00
|
|
|
ldax #download_buffer
|
2009-08-20 10:06:33 +00:00
|
|
|
stax nb65_param_buffer+NB65_URL_DOWNLOAD_BUFFER
|
2009-08-19 12:54:59 +00:00
|
|
|
ldax #download_buffer_length
|
2009-08-20 10:06:33 +00:00
|
|
|
stax nb65_param_buffer+NB65_URL_DOWNLOAD_BUFFER_LENGTH
|
|
|
|
ldax #nb65_param_buffer
|
|
|
|
nb65call #NB65_DOWNLOAD_RESOURCE
|
2009-08-19 12:54:59 +00:00
|
|
|
|
2009-08-20 10:06:33 +00:00
|
|
|
bcs @download_feed ;if at first we don't succeed, try try again
|
2009-08-20 14:03:02 +00:00
|
|
|
|
|
|
|
inc BORDER_COLOR ;little marker of success
|
2009-08-19 12:54:59 +00:00
|
|
|
|
|
|
|
|
2009-08-21 13:21:14 +00:00
|
|
|
lda #2
|
|
|
|
sta scroll_state
|
|
|
|
|
2009-08-19 12:54:59 +00:00
|
|
|
ldax #scroll_buffer_1
|
|
|
|
stax current_output_ptr
|
2009-08-20 14:03:02 +00:00
|
|
|
jsr emit_titles
|
|
|
|
|
|
|
|
|
2009-08-19 12:54:59 +00:00
|
|
|
@endless_loop:
|
2009-08-20 10:06:33 +00:00
|
|
|
jsr NB65_PERIODIC_PROCESSING_VECTOR
|
2009-08-20 14:03:02 +00:00
|
|
|
lda scroll_state
|
|
|
|
beq @download_feed
|
2009-08-19 12:54:59 +00:00
|
|
|
jmp @endless_loop
|
|
|
|
|
|
|
|
reset_input_buffer:
|
2009-08-20 14:03:02 +00:00
|
|
|
|
2009-08-21 13:21:14 +00:00
|
|
|
lda scroll_state
|
|
|
|
beq @config_scroller
|
|
|
|
dec scroll_state
|
|
|
|
cmp #1
|
|
|
|
beq @feed_scroller
|
|
|
|
cmp #3
|
|
|
|
beq @title_scroller
|
|
|
|
@config_scroller:
|
|
|
|
ldax #scroll_buffer_0
|
|
|
|
stax current_input_ptr
|
|
|
|
rts
|
2009-08-20 14:03:02 +00:00
|
|
|
|
2009-08-21 13:21:14 +00:00
|
|
|
@feed_scroller:
|
|
|
|
ldax #scroll_buffer_1
|
|
|
|
stax current_input_ptr
|
2009-08-19 12:54:59 +00:00
|
|
|
rts
|
2009-08-21 13:21:14 +00:00
|
|
|
@title_scroller:
|
|
|
|
ldax #static_title
|
|
|
|
stax current_input_ptr
|
|
|
|
rts
|
|
|
|
|
2009-08-20 10:06:33 +00:00
|
|
|
;look for NB65 signature at location pointed at by AX
|
|
|
|
look_for_signature:
|
|
|
|
stax temp_buff
|
|
|
|
ldy #3
|
|
|
|
@check_one_byte:
|
|
|
|
lda (temp_buff),y
|
|
|
|
cmp nb65_signature,y
|
|
|
|
bne @bad_match
|
|
|
|
dey
|
|
|
|
bpl @check_one_byte
|
|
|
|
clc
|
|
|
|
rts
|
|
|
|
@bad_match:
|
|
|
|
sec
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
|
|
;set up the tune
|
|
|
|
setup_music:
|
|
|
|
lda #$00 ;init subtune 0
|
|
|
|
jsr MUSIC_BASE+PLAYER_INIT
|
|
|
|
rts
|
2009-08-19 12:54:59 +00:00
|
|
|
|
|
|
|
setup_sprites:
|
2009-08-20 10:06:33 +00:00
|
|
|
|
2009-08-19 12:54:59 +00:00
|
|
|
;turn on all 8 sprites
|
|
|
|
lda #$FF
|
|
|
|
sta $d015
|
|
|
|
|
|
|
|
ldx #$07
|
|
|
|
@setup_sprite:
|
|
|
|
;position each sprite
|
|
|
|
txa
|
|
|
|
asl
|
|
|
|
tay
|
|
|
|
lda sprite_x_pos,x
|
|
|
|
sta $d000,y ;sprite 0 X pos (LSB)
|
|
|
|
lda 0
|
|
|
|
sta $d001,y ;sprite 0 Y pos
|
|
|
|
|
|
|
|
;colour sprite 0
|
|
|
|
lda #BLUE
|
|
|
|
sta $d027,x ;sprite 0 color
|
|
|
|
|
|
|
|
;select bitmap for sprite
|
|
|
|
sec
|
|
|
|
lda sprite_text,x
|
|
|
|
sbc #'A'
|
|
|
|
clc
|
2009-08-20 10:06:33 +00:00
|
|
|
adc #<($2800/64) ;sprite font should be relocated to $2000
|
2009-08-19 12:54:59 +00:00
|
|
|
sta SCREEN_RAM+$03f8,x
|
|
|
|
dex
|
|
|
|
bpl @setup_sprite
|
|
|
|
|
|
|
|
lda sprite_x_msb
|
|
|
|
sta $d010
|
|
|
|
|
|
|
|
;turn on multicolor mode for all 8 sprites
|
|
|
|
lda #$FF
|
|
|
|
sta $d01c
|
|
|
|
|
2009-08-21 13:21:14 +00:00
|
|
|
sta sprite_ticker
|
|
|
|
|
2009-08-19 12:54:59 +00:00
|
|
|
lda #DARK_GRAY
|
|
|
|
sta $d025 ;sprite multicolor register 0
|
|
|
|
lda #LIGHT_GRAY
|
|
|
|
sta $d026 ;sprite multicolor register 1
|
|
|
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
|
|
clear_screen:
|
|
|
|
|
|
|
|
ldx #$00
|
|
|
|
lda #$20
|
|
|
|
|
|
|
|
:
|
|
|
|
sta SCREEN_RAM,x
|
|
|
|
sta SCREEN_RAM+$100,x
|
|
|
|
sta SCREEN_RAM+$200,x
|
|
|
|
sta SCREEN_RAM+$300,x
|
|
|
|
sta COLOUR_RAM,x
|
|
|
|
sta COLOUR_RAM+$100,x
|
|
|
|
sta COLOUR_RAM+$200,x
|
|
|
|
sta COLOUR_RAM+$300,x
|
|
|
|
|
|
|
|
dex
|
|
|
|
bne :-
|
|
|
|
rts
|
|
|
|
|
|
|
|
set_next_irq_jump:
|
|
|
|
inc jump_counter
|
|
|
|
|
|
|
|
lda jump_counter
|
|
|
|
asl
|
|
|
|
asl
|
|
|
|
load_next_raster_entry:
|
|
|
|
tax
|
|
|
|
lda raster_jump_table,x ;bit 9 of raster to trigger on
|
|
|
|
|
|
|
|
cmp #$ff
|
|
|
|
bne not_last_entry
|
|
|
|
lda #0
|
|
|
|
sta jump_counter
|
|
|
|
jmp load_next_raster_entry
|
|
|
|
not_last_entry:
|
|
|
|
ora #$18 ;turn on bits 3 & 4
|
|
|
|
sta VIC_CTRL_A
|
|
|
|
lda raster_jump_table+1,x ;bits 0..7 of raster to trigger on
|
|
|
|
sta VIC_RASTER_REG
|
|
|
|
lda raster_jump_table+2,x ;LSB of IRQ handler
|
|
|
|
sta IRQ_VECTOR
|
|
|
|
lda raster_jump_table+3,x ;LSB of IRQ handler
|
|
|
|
sta IRQ_VECTOR+1
|
|
|
|
rts
|
|
|
|
|
|
|
|
exit_from_irq:
|
|
|
|
jsr set_next_irq_jump
|
|
|
|
lda #$ff ;this is the orthodox and safe way of clearing the interrupt condition of the VICII.
|
|
|
|
sta VIC_IRQ_FLAG;if you don't do this the interrupt condition will be present all the time and you end
|
|
|
|
;up having the CPU running the interrupt code all the time, as when it exists the
|
|
|
|
;interrupt, the interrupt request from the VICII will be there again regardless of the
|
|
|
|
;rasterline counter.
|
|
|
|
|
|
|
|
end_irq
|
|
|
|
rti
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
scroll_text_irq:
|
|
|
|
start_irq
|
|
|
|
lda scroll_timer
|
|
|
|
bne done_scrolling_message
|
|
|
|
lda #SCROLL_DELAY
|
|
|
|
sta scroll_timer
|
|
|
|
ldx #1
|
|
|
|
ldy #0
|
|
|
|
scroll_1_char:
|
|
|
|
lda SCROLL_RAM,x
|
|
|
|
sta SCROLL_RAM,y
|
|
|
|
lda SCROLL_RAM+40,x
|
|
|
|
sta SCROLL_RAM+40,y
|
|
|
|
|
|
|
|
inx
|
|
|
|
iny
|
|
|
|
cpx #CHARS_PER_LINE
|
|
|
|
bne scroll_1_char
|
|
|
|
|
|
|
|
|
|
|
|
jsr get_a
|
|
|
|
cmp #0
|
|
|
|
beq last_char_in_message
|
|
|
|
sta SCROLL_RAM+CHARS_PER_LINE-1
|
|
|
|
clc
|
|
|
|
adc #$80
|
|
|
|
sta SCROLL_RAM+CHARS_PER_LINE+40-1
|
|
|
|
|
|
|
|
jmp done_scrolling_message
|
|
|
|
|
|
|
|
|
|
|
|
last_char_in_message:
|
|
|
|
jsr reset_input_buffer
|
|
|
|
|
|
|
|
done_scrolling_message:
|
|
|
|
dec scroll_timer
|
|
|
|
|
|
|
|
jmp exit_from_irq
|
|
|
|
|
|
|
|
|
|
|
|
scroll_timer: .byte 1
|
|
|
|
scroll_counter: .byte 0
|
|
|
|
|
|
|
|
|
|
|
|
pixel_scroll_irq:
|
|
|
|
start_irq
|
|
|
|
wait_next_raster
|
|
|
|
; set X scroll offset
|
|
|
|
lda scroll_timer
|
|
|
|
clc
|
|
|
|
asl
|
|
|
|
clc
|
|
|
|
and #$07
|
|
|
|
sta VIC_CTRL_B
|
|
|
|
|
|
|
|
jmp exit_from_irq
|
|
|
|
|
|
|
|
move_sprites_irq:
|
|
|
|
start_irq
|
|
|
|
wait_next_raster
|
|
|
|
ldy sprite_ticker
|
|
|
|
inc sprite_ticker
|
|
|
|
|
|
|
|
ldx #$0e ;7*2
|
|
|
|
@position_sprite:
|
|
|
|
lda sprite_y_pos,y
|
|
|
|
sta $d001,x ;sprite 0 Y pos
|
|
|
|
|
|
|
|
;change colour when the sprite goes off screen
|
|
|
|
; cmp #$ff ;are we off the screen?
|
|
|
|
; bne @not_off_screen
|
|
|
|
; txa
|
|
|
|
; pha
|
|
|
|
; lsr
|
|
|
|
; tax
|
|
|
|
; inc $d027,x ;sprite color
|
|
|
|
; pla
|
|
|
|
; tax
|
|
|
|
;@not_off_screen:
|
|
|
|
|
|
|
|
txa
|
|
|
|
beq @y_set
|
|
|
|
dex
|
|
|
|
dex
|
|
|
|
@mod_y:
|
|
|
|
iny
|
|
|
|
iny
|
|
|
|
iny
|
|
|
|
dex
|
|
|
|
dex
|
|
|
|
bpl @mod_y
|
|
|
|
@y_set:
|
|
|
|
|
|
|
|
tax
|
|
|
|
dex
|
|
|
|
dex
|
|
|
|
bpl @position_sprite
|
|
|
|
|
|
|
|
jmp exit_from_irq
|
|
|
|
|
|
|
|
|
|
|
|
setup_static_scroll_text:
|
|
|
|
ldax #scroll_buffer_0
|
|
|
|
stax current_output_ptr
|
|
|
|
ldax #scroll_template
|
|
|
|
stax current_input_ptr
|
|
|
|
@next_byte:
|
|
|
|
jsr get_a
|
|
|
|
cmp #'%'
|
|
|
|
beq @operator
|
|
|
|
pha
|
|
|
|
jsr emit_a
|
|
|
|
pla
|
|
|
|
bne @next_byte
|
|
|
|
rts
|
|
|
|
|
|
|
|
@operator:
|
|
|
|
jsr get_a
|
|
|
|
cmp #'i'
|
|
|
|
bne @not_ip
|
|
|
|
lda #NB65_CFG_IP
|
|
|
|
jmp @loaded_offset
|
|
|
|
@not_ip:
|
|
|
|
cmp #'g'
|
|
|
|
bne @not_gateway
|
|
|
|
lda #NB65_CFG_GATEWAY
|
|
|
|
jmp @loaded_offset
|
|
|
|
@not_gateway:
|
|
|
|
cmp #'d'
|
|
|
|
bne @not_dns
|
|
|
|
lda #NB65_CFG_DNS_SERVER
|
|
|
|
jmp @loaded_offset
|
|
|
|
@not_dns:
|
|
|
|
cmp #'f'
|
|
|
|
bne @not_feed_url
|
|
|
|
ldy #0
|
|
|
|
@copy_feed_url_loop:
|
|
|
|
lda feed_url,y
|
|
|
|
beq @next_byte
|
|
|
|
jsr emit_a
|
|
|
|
iny
|
|
|
|
bne @copy_feed_url_loop
|
|
|
|
@not_feed_url:
|
|
|
|
jmp @next_byte
|
|
|
|
|
|
|
|
@loaded_offset:
|
|
|
|
sta param_offset
|
2009-08-20 10:06:33 +00:00
|
|
|
nb65call #NB65_GET_IP_CONFIG
|
2009-08-19 12:54:59 +00:00
|
|
|
adc param_offset
|
|
|
|
bcc :+
|
|
|
|
inx
|
|
|
|
:
|
|
|
|
jsr emit_dotted_quad
|
|
|
|
|
|
|
|
|
|
|
|
jmp @next_byte
|
|
|
|
|
|
|
|
;emit the 4 bytes pointed at by AX as dotted decimals
|
|
|
|
emit_dotted_quad:
|
|
|
|
sta pptr
|
|
|
|
stx pptr + 1
|
|
|
|
ldy #0
|
|
|
|
lda (pptr),y
|
|
|
|
jsr emit_decimal
|
|
|
|
lda #'.'
|
|
|
|
jsr emit_a
|
|
|
|
|
|
|
|
ldy #1
|
|
|
|
lda (pptr),y
|
|
|
|
jsr emit_decimal
|
|
|
|
lda #'.'
|
|
|
|
jsr emit_a
|
|
|
|
|
|
|
|
ldy #2
|
|
|
|
lda (pptr),y
|
|
|
|
jsr emit_decimal
|
|
|
|
lda #'.'
|
|
|
|
jsr emit_a
|
|
|
|
|
|
|
|
ldy #3
|
|
|
|
lda (pptr),y
|
|
|
|
jsr emit_decimal
|
|
|
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
emit_decimal: ;emit byte in A as a decimal number
|
|
|
|
pha
|
|
|
|
sta temp_bin ;save
|
|
|
|
sed ; Switch to decimal mode
|
|
|
|
lda #0 ; Ensure the result is clear
|
|
|
|
sta temp_bcd
|
|
|
|
sta temp_bcd+1
|
|
|
|
ldx #8 ; The number of source bits
|
|
|
|
:
|
|
|
|
asl temp_bin+0 ; Shift out one bit
|
|
|
|
lda temp_bcd+0 ; And add into result
|
|
|
|
adc temp_bcd+0
|
|
|
|
sta temp_bcd+0
|
|
|
|
lda temp_bcd+1 ; propagating any carry
|
|
|
|
adc temp_bcd+1
|
|
|
|
sta temp_bcd+1
|
|
|
|
dex ; And repeat for next bit
|
|
|
|
bne :-
|
|
|
|
|
|
|
|
cld ;back to binary
|
|
|
|
|
|
|
|
pla ;get back the original passed in number
|
|
|
|
bmi @emit_hundreds ; if N is set, the number is >=128 so emit all 3 digits
|
|
|
|
cmp #10
|
|
|
|
bmi @emit_units
|
|
|
|
cmp #100
|
|
|
|
bmi @emit_tens
|
|
|
|
@emit_hundreds:
|
|
|
|
lda temp_bcd+1 ;get the most significant digit
|
|
|
|
and #$0f
|
|
|
|
clc
|
|
|
|
adc #'0'
|
|
|
|
jsr emit_a
|
|
|
|
|
|
|
|
@emit_tens:
|
|
|
|
lda temp_bcd
|
|
|
|
lsr
|
|
|
|
lsr
|
|
|
|
lsr
|
|
|
|
lsr
|
|
|
|
clc
|
|
|
|
adc #'0'
|
|
|
|
jsr emit_a
|
|
|
|
@emit_units:
|
|
|
|
lda temp_bcd
|
|
|
|
and #$0f
|
|
|
|
clc
|
|
|
|
adc #'0'
|
|
|
|
jsr emit_a
|
|
|
|
|
|
|
|
rts
|
|
|
|
|
2009-08-20 10:06:33 +00:00
|
|
|
reset_after_keypress:
|
|
|
|
ldax #press_a_key_to_continue
|
|
|
|
jsr print
|
|
|
|
@wait_key:
|
|
|
|
jsr $f142 ;not officially documented - where F13E (GETIN) falls through to if device # is 0 (KEYBD)
|
|
|
|
beq @wait_key
|
|
|
|
jmp $fce2 ;do a cold start
|
|
|
|
|
|
|
|
print_errorcode:
|
|
|
|
ldax #error_code
|
|
|
|
jsr print
|
|
|
|
nb65call #NB65_GET_LAST_ERROR
|
|
|
|
nb65call #NB65_PRINT_HEX
|
|
|
|
jmp print_cr
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
update_nb65_counters_irq:
|
|
|
|
start_irq
|
|
|
|
jsr NB65_VBL_VECTOR
|
|
|
|
jmp exit_from_irq
|
|
|
|
|
|
|
|
|
|
|
|
play_music_irq:
|
2009-08-20 14:03:02 +00:00
|
|
|
; inc BORDER_COLOR
|
2009-08-20 10:06:33 +00:00
|
|
|
start_irq
|
|
|
|
jsr MUSIC_BASE+PLAYER_PLAY
|
2009-08-20 14:03:02 +00:00
|
|
|
; dec BORDER_COLOR
|
2009-08-20 10:06:33 +00:00
|
|
|
jmp exit_from_irq
|
|
|
|
|
2009-08-19 12:54:59 +00:00
|
|
|
emit_titles:
|
|
|
|
ldax #download_buffer
|
2009-08-20 14:03:02 +00:00
|
|
|
nb65call #NB65_PARSER_INIT
|
2009-08-19 12:54:59 +00:00
|
|
|
@next_title:
|
|
|
|
ldax #title
|
2009-08-20 14:03:02 +00:00
|
|
|
nb65call #NB65_PARSER_SKIP_NEXT
|
2009-08-19 12:54:59 +00:00
|
|
|
bcs @done
|
|
|
|
|
|
|
|
jsr emit_tag_contents
|
|
|
|
lda #' '
|
|
|
|
jsr emit_a
|
|
|
|
lda #'/'
|
|
|
|
jsr emit_a
|
|
|
|
lda #' '
|
|
|
|
jsr emit_a
|
|
|
|
jmp @next_title
|
|
|
|
@done:
|
2009-08-20 10:06:33 +00:00
|
|
|
lda #0
|
|
|
|
jsr emit_a
|
2009-08-19 12:54:59 +00:00
|
|
|
rts
|
|
|
|
|
|
|
|
emit_tag_contents:
|
|
|
|
stax temp_buff
|
|
|
|
lda #0
|
|
|
|
sta string_offset
|
|
|
|
@next_byte:
|
|
|
|
jsr @get_next_byte
|
|
|
|
cmp #0
|
|
|
|
beq @done
|
|
|
|
cmp #'<'
|
|
|
|
beq @done
|
|
|
|
cmp #'&'
|
|
|
|
beq @entity
|
|
|
|
jsr emit_a
|
|
|
|
beq @done
|
|
|
|
jmp @next_byte
|
|
|
|
@entity:
|
|
|
|
jsr @get_next_byte
|
|
|
|
cmp #'a'
|
|
|
|
bne @not_amper
|
|
|
|
lda #'&'
|
|
|
|
jsr emit_a
|
|
|
|
@not_amper:
|
|
|
|
cmp #'g'
|
|
|
|
bne @not_gt
|
|
|
|
lda #'>'
|
|
|
|
jsr emit_a
|
|
|
|
@not_gt:
|
|
|
|
cmp #'l'
|
|
|
|
bne @not_lt
|
|
|
|
lda #'<'
|
|
|
|
jsr emit_a
|
|
|
|
@not_lt:
|
|
|
|
|
|
|
|
@loop_till_semi_colon:
|
|
|
|
jsr @get_next_byte
|
|
|
|
cmp #0
|
|
|
|
beq @done
|
|
|
|
cmp #';'
|
|
|
|
bne @loop_till_semi_colon
|
|
|
|
jmp @next_byte
|
|
|
|
@get_next_byte:
|
|
|
|
ldy string_offset
|
|
|
|
lda (temp_buff),y
|
|
|
|
inc string_offset
|
|
|
|
@done:
|
|
|
|
rts
|
|
|
|
|
2009-08-20 10:06:33 +00:00
|
|
|
print:
|
|
|
|
sta pptr
|
|
|
|
stx pptr + 1
|
|
|
|
|
|
|
|
@print_loop:
|
|
|
|
ldy #0
|
|
|
|
lda (pptr),y
|
|
|
|
beq @done_print
|
|
|
|
jsr print_a
|
|
|
|
inc pptr
|
|
|
|
bne @print_loop
|
|
|
|
inc pptr+1
|
|
|
|
bne @print_loop ;if we ever get to $ffff, we've probably gone far enough ;-)
|
|
|
|
@done_print:
|
|
|
|
rts
|
2009-08-19 12:54:59 +00:00
|
|
|
|
2009-08-20 10:06:33 +00:00
|
|
|
print_cr:
|
|
|
|
lda #13
|
|
|
|
jmp print_a
|
2009-08-19 12:54:59 +00:00
|
|
|
|
|
|
|
.data
|
|
|
|
|
|
|
|
sprite_ticker: .byte 0
|
|
|
|
|
|
|
|
emit_a:
|
|
|
|
current_output_ptr=emit_a+1
|
|
|
|
sta $ffff
|
|
|
|
inc current_output_ptr
|
|
|
|
bne :+
|
|
|
|
inc current_output_ptr+1
|
|
|
|
:
|
|
|
|
rts
|
|
|
|
|
|
|
|
get_a:
|
|
|
|
current_input_ptr=get_a+1
|
|
|
|
lda $ffff
|
|
|
|
inc current_input_ptr
|
|
|
|
bne :+
|
|
|
|
inc current_input_ptr+1
|
|
|
|
:
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
|
|
raster_jump_table:
|
|
|
|
;format:
|
|
|
|
;offset meaning
|
|
|
|
; $00 BIT 9 OF RASTER TO TRIGGER ON ($00 if bit 8 =0 , $80 if bit 8 =1)
|
|
|
|
; $01 BITS 0..7 OF RASTER TO TRIGGER ON
|
|
|
|
; $02 LSB OF ROUTINE TO JUMP TO
|
|
|
|
; $03 MSB OF ROUTINE TO JUMP TO
|
|
|
|
;table needs to end with a single byte $ff
|
|
|
|
;table needs to be sorted by scanlines
|
|
|
|
.byte $0,$01
|
|
|
|
.word scroll_text_irq
|
2009-08-20 10:06:33 +00:00
|
|
|
.byte $0,$20
|
2009-08-19 12:54:59 +00:00
|
|
|
.word pixel_scroll_irq
|
2009-08-20 10:06:33 +00:00
|
|
|
|
|
|
|
.byte $0,$30
|
|
|
|
.word update_nb65_counters_irq
|
|
|
|
|
|
|
|
.byte $0,$80
|
|
|
|
.word play_music_irq
|
|
|
|
|
|
|
|
.byte $80,$05
|
|
|
|
.word move_sprites_irq
|
2009-08-19 12:54:59 +00:00
|
|
|
|
|
|
|
.byte $ff ;end of list
|
|
|
|
|
|
|
|
jump_counter: .byte 0
|
|
|
|
|
|
|
|
|
|
|
|
sprite_x_pos:
|
2009-08-20 14:03:02 +00:00
|
|
|
.byte $34,$54,$78,$90,$Bb,$Db,$Fb,$1b
|
2009-08-19 12:54:59 +00:00
|
|
|
|
|
|
|
sprite_x_msb:
|
|
|
|
.byte $80
|
|
|
|
|
|
|
|
sprite_y_pos:
|
|
|
|
.include "sine_data.i"
|
2009-08-21 13:21:14 +00:00
|
|
|
.repeat 128
|
|
|
|
.byte 0
|
|
|
|
.endrep
|
|
|
|
;.include "sine_data.i"
|
2009-08-19 12:54:59 +00:00
|
|
|
|
2009-08-20 14:03:02 +00:00
|
|
|
|
2009-08-19 12:54:59 +00:00
|
|
|
|
2009-08-21 13:21:14 +00:00
|
|
|
static_title: .byte "up 'n atom - the old skool feed reader!",$20,0
|
2009-08-19 12:54:59 +00:00
|
|
|
sprite_text:
|
|
|
|
|
2009-08-20 14:03:02 +00:00
|
|
|
.byte "UP\NATOM" ;options are A-Z, "[\]^_"
|
|
|
|
|
|
|
|
scroll_template:
|
|
|
|
.byte " ip: %i / gateway: %g / dns server %d / polling %f /"
|
2009-08-19 12:54:59 +00:00
|
|
|
.byte " ",0
|
|
|
|
|
|
|
|
|
|
|
|
feed_url:
|
2009-08-21 13:21:14 +00:00
|
|
|
;.byte "http://search.twitter.com/search.atom?q=kipper",0
|
|
|
|
.byte "http://static.cricinfo.com/rss/livescores.xml",0
|
2009-08-19 12:54:59 +00:00
|
|
|
|
|
|
|
title:
|
|
|
|
.byte "<title>",0
|
|
|
|
|
2009-08-20 10:06:33 +00:00
|
|
|
nb65_api_not_found_message:
|
|
|
|
.byte "ERROR - NB65 API NOT FOUND.",13,0
|
|
|
|
incorrect_version:
|
|
|
|
.byte "ERROR - NB65 API MUST BE AT LEAST VERSION 2.",13,0
|
|
|
|
|
|
|
|
failed_msg:
|
|
|
|
.byte "FAILED", 0
|
|
|
|
|
|
|
|
ok_msg:
|
|
|
|
.byte "OK", 0
|
|
|
|
|
|
|
|
|
|
|
|
init_msg:
|
|
|
|
.byte " INITIALIZING ",0
|
|
|
|
|
|
|
|
press_a_key_to_continue:
|
|
|
|
.byte "PRESS A KEY TO CONTINUE",13,0
|
|
|
|
|
|
|
|
nb65_signature:
|
|
|
|
.byte $4E,$42,$36,$35 ; "NB65" - API signature
|
|
|
|
|
|
|
|
error_code:
|
|
|
|
.asciiz "ERROR CODE: "
|
|
|
|
|
2009-08-19 12:54:59 +00:00
|
|
|
charset_font:
|
|
|
|
.incbin "font16x8.bin"
|
|
|
|
sprite_font:
|
|
|
|
.incbin "spud_letters.spr"
|
2009-08-20 10:06:33 +00:00
|
|
|
musicdata:
|
|
|
|
;.incbin "tune.bin"
|
|
|
|
.incbin "powertrain.bin"
|
|
|
|
musicdata_size=*-musicdata
|
|
|
|
|
|
|
|
.segment "SAFE_BSS"
|
|
|
|
;we want our variables to start at $3000, out of the way of our music player and the font data
|
2009-08-21 13:21:14 +00:00
|
|
|
|
2009-08-20 10:06:33 +00:00
|
|
|
param_offset: .res 1
|
|
|
|
|
|
|
|
temp_bin: .res 1
|
|
|
|
temp_bcd: .res 2
|
|
|
|
|
|
|
|
scroll_state: .res 1
|
|
|
|
|
|
|
|
nb65_param_buffer: .res $20
|
|
|
|
|
|
|
|
download_buffer:
|
2009-08-20 14:03:02 +00:00
|
|
|
download_buffer_length=8000
|
2009-08-20 10:06:33 +00:00
|
|
|
.res download_buffer_length
|
|
|
|
|
2009-08-21 13:21:14 +00:00
|
|
|
.res 10 ;filler
|
2009-08-20 10:06:33 +00:00
|
|
|
scroll_buffer_0:
|
|
|
|
.res 1000
|
|
|
|
|
|
|
|
scroll_buffer_1:
|
|
|
|
.res 2000
|
|
|
|
|
|
|
|
string_offset: .res 1
|