155 lines
2.0 KiB
ArmAsm
155 lines
2.0 KiB
ArmAsm
;===========================
|
|
; hgr text box
|
|
;===========================
|
|
; point OUTL:OUTH at it
|
|
; x1h,x1l,y1 x2h,x2l,y2
|
|
; then X,Y of text
|
|
; CR moves to next line
|
|
; 0 ends
|
|
|
|
hgr_text_box:
|
|
ldy #0
|
|
|
|
;====================
|
|
; draw text box
|
|
|
|
lda (OUTL),Y
|
|
sta BOX_X1H
|
|
iny
|
|
lda (OUTL),Y
|
|
sta BOX_X1L
|
|
iny
|
|
lda (OUTL),Y
|
|
sta BOX_Y1
|
|
iny
|
|
|
|
lda (OUTL),Y
|
|
sta BOX_X2H
|
|
iny
|
|
lda (OUTL),Y
|
|
sta BOX_X2L
|
|
iny
|
|
lda (OUTL),Y
|
|
sta BOX_Y2
|
|
|
|
skip_box_save_smc:
|
|
lda #1
|
|
beq skip_box_save
|
|
|
|
lda BOX_Y1
|
|
sta SAVED_Y1
|
|
|
|
ldx BOX_Y2
|
|
stx SAVED_Y2
|
|
|
|
; jsr hgr_partial_save
|
|
|
|
skip_box_save:
|
|
|
|
jsr draw_box
|
|
|
|
clc
|
|
lda OUTL
|
|
adc #6
|
|
sta OUTL
|
|
lda OUTH
|
|
adc #0
|
|
sta OUTH
|
|
|
|
; fallthrough
|
|
|
|
;=======================
|
|
; disp_put_string
|
|
; OUTL:OUTH has co-ords followed by string
|
|
; CR (13) goes to next line
|
|
disp_put_string:
|
|
ldy #0
|
|
lda (OUTL),Y
|
|
sta CURSOR_X
|
|
|
|
jsr inc_outl
|
|
lda (OUTL),Y
|
|
sta CURSOR_Y
|
|
jsr inc_outl
|
|
|
|
disp_put_string_cursor:
|
|
lda CURSOR_X
|
|
sta SAVED_X
|
|
|
|
disp_one_line:
|
|
|
|
disp_put_string_loop:
|
|
ldy #0
|
|
lda (OUTL),Y
|
|
beq disp_put_string_done
|
|
bmi disp_use_lookup
|
|
|
|
cmp #13
|
|
beq disp_end_of_line
|
|
|
|
jsr hgr_put_char_cursor
|
|
|
|
inc CURSOR_X
|
|
jsr inc_outl
|
|
jmp disp_put_string_loop
|
|
|
|
disp_end_of_line:
|
|
clc
|
|
lda CURSOR_Y
|
|
adc #9 ; skip 9 so descenders don't interfere
|
|
sta CURSOR_Y
|
|
|
|
lda SAVED_X
|
|
sta CURSOR_X
|
|
|
|
disp_inc_done:
|
|
|
|
jsr inc_outl
|
|
|
|
jmp disp_put_string_loop
|
|
|
|
disp_put_string_done:
|
|
|
|
jsr inc_outl ; put to next
|
|
|
|
rts
|
|
|
|
;====================
|
|
; use text lookup
|
|
|
|
disp_use_lookup:
|
|
and #$7f
|
|
tax
|
|
lda text_offset_table,X
|
|
|
|
tax
|
|
disp_word_loop:
|
|
txa
|
|
stx disp_loop_smc+1
|
|
lda word_table,X
|
|
php
|
|
|
|
jsr hgr_put_char_cursor
|
|
inc CURSOR_X
|
|
plp
|
|
bmi disp_inc_done
|
|
|
|
disp_loop_smc:
|
|
ldx #$dd
|
|
inx
|
|
bne disp_word_loop ; bra
|
|
|
|
|
|
;============================
|
|
; like above, but don't save
|
|
;============================
|
|
hgr_text_box_nosave:
|
|
lda #0
|
|
sta skip_box_save_smc+1
|
|
jsr hgr_text_box
|
|
lda #1
|
|
sta skip_box_save_smc+1
|
|
rts
|
|
|
|
.include "text/word_list.s"
|