2020-11-14 20:19:56 +00:00
|
|
|
; Duke PoC
|
|
|
|
|
|
|
|
|
|
; by deater (Vince Weaver) <vince@deater.net>
|
|
|
|
|
|
|
|
|
|
; Zero Page
|
|
|
|
|
.include "zp.inc"
|
|
|
|
|
.include "hardware.inc"
|
|
|
|
|
|
2020-12-09 04:41:53 +00:00
|
|
|
|
|
|
|
|
TILES = $9000
|
|
|
|
|
BIG_TILEMAP = $9400
|
|
|
|
|
TILEMAP = $BC00
|
|
|
|
|
|
2020-11-14 20:19:56 +00:00
|
|
|
duke_start:
|
|
|
|
|
;===================
|
|
|
|
|
; init screen
|
|
|
|
|
jsr TEXT
|
|
|
|
|
jsr HOME
|
|
|
|
|
bit KEYRESET
|
|
|
|
|
|
|
|
|
|
bit SET_GR
|
|
|
|
|
bit PAGE0
|
|
|
|
|
bit LORES
|
|
|
|
|
bit TEXTGR
|
|
|
|
|
|
2020-11-28 05:51:57 +00:00
|
|
|
;=====================
|
|
|
|
|
; init vars
|
|
|
|
|
;=====================
|
|
|
|
|
|
2020-11-14 20:19:56 +00:00
|
|
|
lda #0
|
|
|
|
|
sta ANIMATE_FRAME
|
|
|
|
|
sta FRAMEL
|
|
|
|
|
sta FRAMEH
|
|
|
|
|
sta DISP_PAGE
|
2020-11-28 05:51:57 +00:00
|
|
|
sta JOYSTICK_ENABLED
|
|
|
|
|
sta DUKE_WALKING
|
|
|
|
|
sta DUKE_JUMPING
|
|
|
|
|
sta LEVEL_OVER
|
|
|
|
|
sta LASER_OUT
|
2020-11-14 20:19:56 +00:00
|
|
|
|
|
|
|
|
lda #4
|
|
|
|
|
sta DRAW_PAGE
|
|
|
|
|
|
2020-11-28 05:51:57 +00:00
|
|
|
lda #18
|
|
|
|
|
sta DUKE_X
|
2020-12-09 00:19:23 +00:00
|
|
|
lda #18
|
2020-11-28 05:51:57 +00:00
|
|
|
sta DUKE_Y
|
|
|
|
|
lda #1
|
|
|
|
|
sta DUKE_DIRECTION
|
2020-11-14 20:19:56 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
|
;====================================
|
2020-12-09 04:41:53 +00:00
|
|
|
; load level1 background
|
2020-11-14 20:19:56 +00:00
|
|
|
;====================================
|
|
|
|
|
|
2020-12-08 16:32:53 +00:00
|
|
|
lda #<duke1_bg_lzsa
|
2020-11-14 20:19:56 +00:00
|
|
|
sta LZSA_SRC_LO
|
2020-12-08 16:32:53 +00:00
|
|
|
lda #>duke1_bg_lzsa
|
2020-11-14 20:19:56 +00:00
|
|
|
sta LZSA_SRC_HI
|
|
|
|
|
lda #$c ; load to page $c00
|
|
|
|
|
jsr decompress_lzsa2_fast
|
|
|
|
|
|
2020-12-09 04:41:53 +00:00
|
|
|
;====================================
|
|
|
|
|
; load level1 tilemap
|
|
|
|
|
;====================================
|
|
|
|
|
|
|
|
|
|
lda #<level1_data_lzsa
|
|
|
|
|
sta LZSA_SRC_LO
|
|
|
|
|
lda #>level1_data_lzsa
|
|
|
|
|
sta LZSA_SRC_HI
|
|
|
|
|
lda #$90 ; load to page $9000
|
|
|
|
|
jsr decompress_lzsa2_fast
|
|
|
|
|
|
|
|
|
|
;====================================
|
|
|
|
|
; copy in tilemap subset
|
|
|
|
|
;====================================
|
2020-12-09 04:44:16 +00:00
|
|
|
lda #13
|
|
|
|
|
sta TILEMAP_X
|
|
|
|
|
lda #20
|
|
|
|
|
sta TILEMAP_Y
|
2020-12-09 04:41:53 +00:00
|
|
|
|
|
|
|
|
jsr copy_tilemap_subset
|
|
|
|
|
|
2020-11-14 20:19:56 +00:00
|
|
|
;====================================
|
|
|
|
|
;====================================
|
|
|
|
|
; Main LOGO loop
|
|
|
|
|
;====================================
|
|
|
|
|
;====================================
|
|
|
|
|
|
|
|
|
|
duke_loop:
|
|
|
|
|
|
|
|
|
|
; copy over background
|
|
|
|
|
|
|
|
|
|
jsr gr_copy_to_current
|
|
|
|
|
|
2020-12-09 00:19:23 +00:00
|
|
|
; draw tilemap
|
|
|
|
|
|
|
|
|
|
jsr draw_tilemap
|
|
|
|
|
|
2020-11-28 05:51:57 +00:00
|
|
|
; draw laser
|
|
|
|
|
|
|
|
|
|
jsr draw_laser
|
|
|
|
|
|
|
|
|
|
; draw duke
|
|
|
|
|
|
|
|
|
|
jsr draw_duke
|
|
|
|
|
|
|
|
|
|
; draw a status bar
|
|
|
|
|
|
2020-11-27 02:35:16 +00:00
|
|
|
jsr draw_status_bar
|
2020-11-14 20:19:56 +00:00
|
|
|
|
|
|
|
|
jsr page_flip
|
|
|
|
|
|
2020-11-28 05:51:57 +00:00
|
|
|
jsr handle_keypress
|
2020-11-14 20:19:56 +00:00
|
|
|
|
2020-11-28 05:51:57 +00:00
|
|
|
jsr move_duke
|
2020-11-14 20:19:56 +00:00
|
|
|
|
2020-11-28 05:51:57 +00:00
|
|
|
jsr move_laser
|
|
|
|
|
|
|
|
|
|
;===========================
|
|
|
|
|
; check end of level
|
|
|
|
|
;===========================
|
|
|
|
|
|
|
|
|
|
lda LEVEL_OVER
|
2020-11-14 20:19:56 +00:00
|
|
|
bpl do_duke_loop
|
|
|
|
|
|
|
|
|
|
jmp done_with_duke
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
do_duke_loop:
|
|
|
|
|
|
|
|
|
|
; delay
|
2020-11-28 05:51:57 +00:00
|
|
|
; lda #200
|
|
|
|
|
; jsr WAIT
|
2020-11-14 20:19:56 +00:00
|
|
|
|
|
|
|
|
jmp duke_loop
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
done_with_duke:
|
|
|
|
|
bit KEYRESET ; clear keypress
|
|
|
|
|
|
|
|
|
|
jmp done_with_duke
|
|
|
|
|
|
|
|
|
|
;==========================
|
|
|
|
|
; includes
|
|
|
|
|
;==========================
|
|
|
|
|
|
|
|
|
|
; level graphics
|
2020-12-08 16:32:53 +00:00
|
|
|
.include "graphics/duke_graphics.inc"
|
2020-11-14 20:19:56 +00:00
|
|
|
|
|
|
|
|
.include "text_print.s"
|
|
|
|
|
.include "gr_offsets.s"
|
2020-12-11 06:24:47 +00:00
|
|
|
.include "gr_fast_clear.s"
|
2020-11-14 20:19:56 +00:00
|
|
|
.include "gr_copy.s"
|
|
|
|
|
.include "gr_pageflip.s"
|
2020-11-28 05:51:57 +00:00
|
|
|
.include "gr_putsprite_crop.s"
|
2020-11-14 20:19:56 +00:00
|
|
|
.include "decompress_fast_v2.s"
|
|
|
|
|
|
2020-11-27 02:35:16 +00:00
|
|
|
.include "status_bar.s"
|
2020-11-28 05:51:57 +00:00
|
|
|
.include "keyboard.s"
|
|
|
|
|
.include "joystick.s"
|
2020-12-11 05:44:55 +00:00
|
|
|
.include "print_help.s"
|
2020-11-28 05:51:57 +00:00
|
|
|
|
|
|
|
|
.include "draw_duke.s"
|
|
|
|
|
.include "handle_laser.s"
|
2020-12-09 00:19:23 +00:00
|
|
|
.include "draw_tilemap.s"
|
2020-11-28 05:51:57 +00:00
|
|
|
|
2020-12-09 04:41:53 +00:00
|
|
|
level1_data_lzsa:
|
|
|
|
|
.incbin "maps/level1_map.lzsa"
|
