dos33fsprogs/games/peasant/lake_e.s
2021-08-10 15:30:02 -04:00

27 lines
323 B
ArmAsm

; Lake East
;************************
; Lake East
;************************
lake_east:
lda #<(lake_e_lzsa)
sta getsrc_smc+1
lda #>(lake_e_lzsa)
sta getsrc_smc+2
lda #$40
jsr decompress_lzsa2_fast
lda #<peasant_text
sta OUTL
lda #>peasant_text
sta OUTH
jsr hgr_put_string
jsr wait_until_keypress
rts