Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2024-11-29 07:49:20 +00:00
Code Issues Projects Releases Wiki Activity

STF: symbols

Browse Source
This commit is contained in:
Joshua Bell 2017-09-15 21:44:41 -07:00
parent 62ed78f148
commit 947340adf9
1 changed files with 42 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
desk.acc/show_text_file.s
View File

@ -888,7 +888,7 @@ store: sta window_params::hspos
sta window_params::box::voffset sta window_params::box::voffset
sta window_params::box::voffset+1 sta window_params::box::voffset+1
ldx update_scroll_params::pos ldx update_scroll_params::pos
loop: beq L0D9B loop: beq adjust_box_height
clc clc
lda window_params::box::voffset lda window_params::box::voffset
adc #50 adc #50
@ -899,8 +899,7 @@ loop: beq L0D9B
jmp loop jmp loop
.endproc .endproc
.proc L0D9B ; ?? part of vscroll .proc adjust_box_height
;; increase window_params::box height to cover full window (offset + height)
clc clc
lda window_params::box::voffset lda window_params::box::voffset
adc window_height adc window_height
@ -974,7 +973,7 @@ end: rts
.proc draw_content .proc draw_content
lda #0 lda #0
sta L0949 sta L0949
jsr overwrite_font_width_table jsr assign_fixed_font_width_table_if_needed
jsr set_file_mark jsr set_file_mark
lda #<default_buffer lda #<default_buffer
sta read_params::buffer sta read_params::buffer
@ -993,15 +992,17 @@ end: rts
lda #$0A ; line spacing = 10 lda #$0A ; line spacing = 10
sta line_pos::base sta line_pos::base
jsr L0EDB jsr L0EDB
L0E68: lda L096D
do_line:
lda L096D
cmp L096B cmp L096B
bne L0E7E bne :+
lda L096C lda L096C
cmp L096A cmp L096A
bne L0E7E bne :+
jsr clear_window jsr clear_window
inc L0948 inc L0948
L0E7E: A2D_CALL A2D_SET_POS, line_pos : A2D_CALL A2D_SET_POS, line_pos
sec sec
lda #250 lda #250
sbc line_pos::left sbc line_pos::left
@ -1018,7 +1019,7 @@ L0E7E: A2D_CALL A2D_SET_POS, line_pos
bcc :+ bcc :+
inc $07 inc $07
: lda L095A : lda L095A
bne L0E68 bne do_line
clc clc
lda line_pos::base lda line_pos::base
adc #$0A ; line spacing = 10 adc #$0A ; line spacing = 10
@ -1035,12 +1036,14 @@ L0E7E: A2D_CALL A2D_SET_POS, line_pos
: inc L096C : inc L096C
bne :+ bne :+
inc L096D inc L096D
: jmp L0E68 : jmp do_line
L0ED7: jsr restore_font_table L0ED7: jsr restore_proportional_font_table_if_needed
rts rts
.endproc .endproc
;;; ==================================================
.proc L0EDB ; ??? .proc L0EDB ; ???
lda #250 lda #250
sta L095B sta L095B
@ -1054,6 +1057,8 @@ L0ED7: jsr restore_font_table
rts rts
.endproc .endproc
;;; ==================================================
L0EF3: lda #$FF L0EF3: lda #$FF
sta L0F9B sta L0F9B
lda #$00 lda #$00
@ -1073,6 +1078,8 @@ L0F10: lda L0945
sec sec
rts rts
;;; ==================================================
L0F1F: jsr L100C L0F1F: jsr L100C
L0F22: ldy text_string::len L0F22: ldy text_string::len
lda ($06),y lda ($06),y
@ -1128,6 +1135,8 @@ L0F96: inc text_string::len
L0F99: clc L0F99: clc
rts rts
;;; ==================================================
L0F9B: .byte 0 L0F9B: .byte 0
L0F9C: .byte 0 L0F9C: .byte 0
L0F9D: .byte 0 L0F9D: .byte 0
@ -1171,7 +1180,9 @@ times70:.word 70
.word 490 .word 490
.endproc .endproc
;;; Draws a line of content ;;; ==================================================
;;; Draw a line of content
.proc draw_text_line .proc draw_text_line
lda L0948 lda L0948
beq end beq end
@ -1183,6 +1194,8 @@ times70:.word 70
end: rts end: rts
.endproc .endproc
;;; ==================================================
L100C: lda text_string::addr+1 L100C: lda text_string::addr+1
cmp #$12 ; #>default_buffer? cmp #$12 ; #>default_buffer?
beq L102B beq L102B
@ -1208,6 +1221,8 @@ L102B: lda #0
inc read_params::buffer+1 inc read_params::buffer+1
L103D: rts L103D: rts
;;; ==================================================
.proc L103E .proc L103E
lda read_params::buffer lda read_params::buffer
sta store+1 sta store+1
@ -1261,6 +1276,8 @@ end: rts
;; fall through ;; fall through
.endproc .endproc
;;; ==================================================
;; calculate line offset ? ;; calculate line offset ?
.proc L10A5 .proc L10A5
lda window_params::box::height lda window_params::box::height
@ -1289,6 +1306,8 @@ loop: lda L0966
end: rts end: rts
.endproc .endproc
;;; ==================================================
.proc div_by_16 ; input in $06/$07, output in a .proc div_by_16 ; input in $06/$07, output in a
ldx #4 ldx #4
loop: clc loop: clc
@ -1322,7 +1341,11 @@ loop: clc
rts rts
.endproc .endproc
.proc restore_font_table ;;; ==================================================
;;; Restore the font glyph width table when switching
;;; back to proportional mode.
.proc restore_proportional_font_table_if_needed
lda fixed_mode_flag ; if not fixed (i.e. proportional) lda fixed_mode_flag ; if not fixed (i.e. proportional)
beq done ; then exit beq done ; then exit
@ -1347,7 +1370,11 @@ loop: clc
done: rts done: rts
.endproc .endproc
.proc overwrite_font_width_table ;;; ==================================================
;;; Overwrite the font glyph width table (with 7s)
;;; when switching to fixed width mode.
.proc assign_fixed_font_width_table_if_needed
lda fixed_mode_flag ; if not fixed (i.e. proportional) lda fixed_mode_flag ; if not fixed (i.e. proportional)
beq end ; then exit beq end ; then exit
ldx font_size_count ldx font_size_count
@ -1373,7 +1400,7 @@ end: rts
lda fixed_mode_flag lda fixed_mode_flag
beq set_flag beq set_flag
dec fixed_mode_flag ; clear flag (mode = proportional) dec fixed_mode_flag ; clear flag (mode = proportional)
jsr restore_font_table jsr restore_proportional_font_table_if_needed
jmp redraw jmp redraw
set_flag: set_flag: