dos33fsprogs/games/peasant/map.s
2021-11-07 14:01:30 -05:00

66 lines
868 B
ArmAsm

; Peasant's Quest
; o/~ It's The Map o/~
; by Vince `deater` Weaver vince@deater.net
.include "hardware.inc"
.include "zp.inc"
.include "qload.inc"
.include "inventory.inc"
.include "parse_input.inc"
LOCATION_BASE = LOCATION_MAP
the_map:
lda #0
sta LEVEL_OVER
sta FRAME
jsr hgr_make_tables
jsr hgr2
;=============================
;=============================
; new screen location
;=============================
;=============================
lda #0
sta LEVEL_OVER
;=====================
; load bg
lda MAP_LOCATION
sec
sbc #LOCATION_BASE
tax
lda #<map_lzsa
sta getsrc_smc+1
lda #>map_lzsa
sta getsrc_smc+2
lda #$40
jsr decompress_lzsa2_fast
game_loop:
bit KEYRESET
jsr wait_until_keypress
lda PREVIOUS_LOCATION
jmp update_map_location
.include "new_map_location.s"
.include "graphics_map/map_graphics.inc"