2021-08-09 01:21:58 -04:00
|
|
|
; A Peasant's Quest????
|
|
|
|
|
|
|
|
|
|
; by Vince `deater` Weaver vince@deater.net
|
|
|
|
|
|
|
|
|
|
; with apologies to everyone
|
|
|
|
|
|
|
|
|
|
.include "hardware.inc"
|
|
|
|
|
|
|
|
|
|
NIBCOUNT = $09
|
2021-08-10 01:09:35 -04:00
|
|
|
GBASL = $26
|
|
|
|
|
GBASH = $27
|
|
|
|
|
CURSOR_X = $62
|
|
|
|
|
CURSOR_Y = $63
|
|
|
|
|
HGR_COLOR = $E4
|
|
|
|
|
P0 = $F1
|
|
|
|
|
P1 = $F2
|
|
|
|
|
P2 = $F3
|
|
|
|
|
P3 = $F4
|
|
|
|
|
P4 = $F5
|
|
|
|
|
P5 = $F6
|
|
|
|
|
|
|
|
|
|
INL = $FC
|
|
|
|
|
INH = $FD
|
|
|
|
|
OUTL = $FE
|
|
|
|
|
OUTH = $FF
|
|
|
|
|
|
2021-08-09 01:21:58 -04:00
|
|
|
|
|
|
|
|
|
|
|
|
|
hgr_display:
|
|
|
|
|
jsr HGR2 ; Hi-res graphics, no text at bottom
|
|
|
|
|
; Y=0, A=0 after this called
|
|
|
|
|
|
|
|
|
|
;************************
|
|
|
|
|
; Title
|
|
|
|
|
;************************
|
|
|
|
|
|
|
|
|
|
lda #<(title_lzsa)
|
|
|
|
|
sta getsrc_smc+1
|
|
|
|
|
lda #>(title_lzsa)
|
|
|
|
|
sta getsrc_smc+2
|
|
|
|
|
|
|
|
|
|
lda #$40
|
|
|
|
|
|
|
|
|
|
jsr decompress_lzsa2_fast
|
|
|
|
|
|
|
|
|
|
jsr wait_until_keypress
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;************************
|
|
|
|
|
; Tips
|
|
|
|
|
;************************
|
|
|
|
|
|
2021-08-10 01:09:35 -04:00
|
|
|
jsr directions
|
2021-08-09 01:21:58 -04:00
|
|
|
|
|
|
|
|
;************************
|
|
|
|
|
; Cottage
|
|
|
|
|
;************************
|
|
|
|
|
|
2021-08-10 14:05:41 -04:00
|
|
|
jsr cottage
|
2021-08-09 01:21:58 -04:00
|
|
|
|
|
|
|
|
|
|
|
|
|
;************************
|
|
|
|
|
; Lake West
|
|
|
|
|
;************************
|
|
|
|
|
|
2021-08-10 15:30:02 -04:00
|
|
|
jsr lake_west
|
2021-08-10 14:05:41 -04:00
|
|
|
|
2021-08-09 01:21:58 -04:00
|
|
|
;************************
|
|
|
|
|
; Lake East
|
|
|
|
|
;************************
|
|
|
|
|
|
2021-08-10 15:30:02 -04:00
|
|
|
jsr lake_east
|
2021-08-09 01:21:58 -04:00
|
|
|
|
|
|
|
|
;************************
|
|
|
|
|
; River
|
|
|
|
|
;************************
|
|
|
|
|
|
2021-08-10 15:30:02 -04:00
|
|
|
jsr river
|
2021-08-09 01:21:58 -04:00
|
|
|
|
|
|
|
|
;************************
|
|
|
|
|
; Knight
|
|
|
|
|
;************************
|
|
|
|
|
|
2021-08-10 23:43:30 -04:00
|
|
|
jsr knight
|
2021-08-09 01:21:58 -04:00
|
|
|
|
|
|
|
|
forever:
|
|
|
|
|
jmp forever
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
.include "decompress_fast_v2.s"
|
|
|
|
|
.include "wait_keypress.s"
|
|
|
|
|
|
2021-08-10 01:09:35 -04:00
|
|
|
.include "directions.s"
|
2021-08-10 14:05:41 -04:00
|
|
|
.include "cottage.s"
|
2021-08-10 15:30:02 -04:00
|
|
|
.include "lake_w.s"
|
|
|
|
|
.include "lake_e.s"
|
2021-08-10 16:03:31 -04:00
|
|
|
.include "river.s"
|
2021-08-10 23:43:30 -04:00
|
|
|
.include "knight.s"
|
2021-08-10 14:05:41 -04:00
|
|
|
|
2021-08-10 01:09:35 -04:00
|
|
|
.include "hgr_font.s"
|
|
|
|
|
|
2021-08-09 01:21:58 -04:00
|
|
|
.include "graphics/graphics.inc"
|
