dos33fsprogs/games/peasant/hgr_text_box.s

	;===========================
	; 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"
peasant: make hgr_text_box routine optimizes things, though only saves 100 bytes or so 2021-08-15 01:10:56 +00:00			`;===========================`
			`; 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`

peasant: add confirmation dialog for load/save 2021-09-29 01:08:46 +00:00			`skip_box_save_smc:`
			`lda #1`
			`beq skip_box_save`

peasant: get rid of hgr_partial_save not needed anymore now that we always keep background in page1 2021-12-28 22:56:28 +00:00			`lda BOX_Y1`
			`sta SAVED_Y1`

			`ldx BOX_Y2`
			`stx SAVED_Y2`

			`; jsr hgr_partial_save`

peasant: add confirmation dialog for load/save 2021-09-29 01:08:46 +00:00			`skip_box_save:`
peasant: only save part of hires screen trying to avoid peasant flicker, seems to be improved 2021-08-16 05:31:49 +00:00
peasant: make hgr_text_box routine optimizes things, though only saves 100 bytes or so 2021-08-15 01:10:56 +00:00			`jsr draw_box`

			`clc`
			`lda OUTL`
			`adc #6`
			`sta OUTL`
			`lda OUTH`
			`adc #0`
			`sta OUTH`

peasant: more work on inventory 2021-08-31 05:15:12 +00:00			`; fallthrough`
peasant: make hgr_text_box routine optimizes things, though only saves 100 bytes or so 2021-08-15 01:10:56 +00:00
peasant: more work on inventory 2021-08-31 05:15:12 +00:00			`;=======================`
			`; disp_put_string`
			`; OUTL:OUTH has co-ords followed by string`
			`; CR (13) goes to next line`
			`disp_put_string:`
peasant: make hgr_text_box routine optimizes things, though only saves 100 bytes or so 2021-08-15 01:10:56 +00:00			`ldy #0`
			`lda (OUTL),Y`
			`sta CURSOR_X`

peasant: more work on inventory 2021-08-31 05:15:12 +00:00			`jsr inc_outl`
			`lda (OUTL),Y`
			`sta CURSOR_Y`
			`jsr inc_outl`

peasant: hook up inventory descriptions 2021-09-03 04:05:06 +00:00			`disp_put_string_cursor:`
			`lda CURSOR_X`
			`sta SAVED_X`

peasant: more work on inventory 2021-08-31 05:15:12 +00:00			`disp_one_line:`

peasant: make hgr_text_box routine optimizes things, though only saves 100 bytes or so 2021-08-15 01:10:56 +00:00			`disp_put_string_loop:`
peasant: more work on inventory 2021-08-31 05:15:12 +00:00			`ldy #0`
			`lda (OUTL),Y`
			`beq disp_put_string_done`
peasant: more work on word list 2021-11-16 01:39:43 +00:00			`bmi disp_use_lookup`

peasant: make hgr_text_box routine optimizes things, though only saves 100 bytes or so 2021-08-15 01:10:56 +00:00			`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`
peasant: make separation between lines 9 rather than 8 lines this makes text much nicer and avoids descender squish in theory messes up some stuff and could possibly run out of room 2022-01-08 03:52:05 +00:00			`adc #9 ; skip 9 so descenders don't interfere`
peasant: make hgr_text_box routine optimizes things, though only saves 100 bytes or so 2021-08-15 01:10:56 +00:00			`sta CURSOR_Y`

			`lda SAVED_X`
			`sta CURSOR_X`

peasant: word list support seems to work after some pretty funny attempts 2021-11-16 04:10:43 +00:00			`disp_inc_done:`

peasant: make hgr_text_box routine optimizes things, though only saves 100 bytes or so 2021-08-15 01:10:56 +00:00			`jsr inc_outl`

			`jmp disp_put_string_loop`

			`disp_put_string_done:`

peasant: work on load/save some more 2021-09-20 05:13:16 +00:00			`jsr inc_outl ; put to next`

peasant: make hgr_text_box routine optimizes things, though only saves 100 bytes or so 2021-08-15 01:10:56 +00:00			`rts`

peasant: word list support seems to work after some pretty funny attempts 2021-11-16 04:10:43 +00:00			`;====================`
			`; use text lookup`

peasant: more work on word list 2021-11-16 01:39:43 +00:00			`disp_use_lookup:`
			`and #$7f`
			`tax`
			`lda text_offset_table,X`
peasant: word list support seems to work after some pretty funny attempts 2021-11-16 04:10:43 +00:00
			`tax`
			`disp_word_loop:`
			`txa`
			`stx disp_loop_smc+1`
			`lda word_table,X`
			`php`

peasant: more work on word list 2021-11-16 01:39:43 +00:00			`jsr hgr_put_char_cursor`
			`inc CURSOR_X`
peasant: word list support seems to work after some pretty funny attempts 2021-11-16 04:10:43 +00:00			`plp`
			`bmi disp_inc_done`

			`disp_loop_smc:`
			`ldx #$dd`
			`inx`
			`bne disp_word_loop ; bra`

peasant: add confirmation dialog for load/save 2021-09-29 01:08:46 +00:00
			`;============================`
			`; 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`
peasant: more work on word list 2021-11-16 01:39:43 +00:00
			`.include "text/word_list.s"`