mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-20 17:29:28 +00:00
27 lines
350 B
ArmAsm
27 lines
350 B
ArmAsm
|
; o/~ At the beautiful, the beautiful, River o/~
|
||
|
|
|
||
|
|
;************************
|
||
|
|
; River
|
||
|
|
;************************
|
||
|
|
river:
|
||
|
|
lda #<(river_lzsa)
|
||
|
|
sta getsrc_smc+1
|
||
|
|
lda #>(river_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
|