mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-12-28 09:30:41 +00:00
102 lines
1.8 KiB
ArmAsm
102 lines
1.8 KiB
ArmAsm
; 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
|
|
|
|
|
|
letter:
|
|
; 01234567890123456789
|
|
.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
|
|
.byte 9,19," YOURS, ",0
|
|
.byte 9,21," ATRUS ",0
|
|
|
|
;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
|
|
|
|
clear_line:
|
|
.byte 9,0, " ",0
|
|
|
|
;================
|
|
; read the letter
|
|
|
|
read_letter:
|
|
; jsr TEXT
|
|
; jsr HOME
|
|
bit KEYRESET
|
|
|
|
bit SET_TEXT
|
|
|
|
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
|
|
|
|
|