dos33fsprogs/mist/letter_cat.s

104 lines
1.8 KiB
ArmAsm
Raw Normal View History

2020-03-07 16:16:44 +00:00
; Catherine,
; I've left for you a message
; of utmost importance in
; our fore-chamber beside
; the dock. Enter the number
; of Marker Switches on
; this island into the imager
; to retrieve the message.
; Yours,
; Atrus
2020-03-29 04:35:41 +00:00
2020-03-07 16:16:44 +00:00
letter:
; 01234567890123456789
2020-03-29 04:35:41 +00:00
.byte 9,1," CATHERINE, ",0
.byte 9,3," I'VE LEFT A MESSAGE ",0
.byte 9,5," OF UTMOST IMPORTANCE ",0
.byte 9,7," IN OUR FORE-CHAMBER ",0
.byte 9,9," BESIDE THE DOCK. ",0
.byte 9,11," ENTER THE NUMBER OF ",0
.byte 9,13," MARKER SWITCHES ON ",0
.byte 9,15," THIS ISLAND INTO THE ",0
.byte 9,17," IMAGER. ",0
2020-03-07 16:16:44 +00:00
.byte 9,19," YOURS, ",0
.byte 9,21," ATRUS ",0
2020-03-29 04:35:41 +00:00
;sarcastic_letter:
; 01234567890123456789
;.byte 9,1," CATHERINE, ",0
;.byte 9,3," I THINK SOME WEIRD ",0
;.byte 9,5," GUY IS OUT ROAMING ",0
;.byte 9,7," AROUND OUR ISLAND! ",0
;.byte 9,9," MAYBE HE CAN SOLVE ",0
;.byte 9,11," ALL OF OUR DEEP ",0
;.byte 9,13," FAMILY PROBLEMS ",0
;.byte 9,15," WHILE I MESS ",0
;.byte 9,17," WITH MY BOOKS. ",0
;.byte 9,19," YOURS, ",0
;.byte 9,21," ATRUS ",0
2020-03-07 16:16:44 +00:00
clear_line:
.byte 9,0, " ",0
;================
; read the letter
read_letter:
; jsr TEXT
; jsr HOME
bit KEYRESET
bit SET_TEXT
lda #' '|$80
sta clear_all_color+1
2020-03-07 16:16:44 +00:00
jsr clear_all
; clear
ldx #0
clear_line_loop:
lda #<clear_line
sta OUTL
lda #>clear_line
sta OUTH
stx clear_line+1
jsr move_and_print
inx
cpx #24
bne clear_line_loop
lda #<letter
sta OUTL
lda #>letter
sta OUTH
ldx #0
letter_loop:
jsr move_and_print
inx
cpx #12
bne letter_loop
jsr page_flip
wait_done_letter:
lda KEYPRESS
bpl wait_done_letter
bit KEYRESET
; turn graphics back on
bit SET_GR
; bit PAGE0
; bit FULLGR
rts