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

STF: symbols - yay tabs

Browse Source
This commit is contained in:
Joshua Bell 2017-09-15 22:05:41 -07:00
parent 947340adf9
commit 1bff134a6d
1 changed files with 26 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
desk.acc/show_text_file.s
View File

@ -1061,9 +1061,9 @@ L0ED7: jsr restore_proportional_font_table_if_needed
L0EF3: lda #$FF L0EF3: lda #$FF
sta L0F9B sta L0F9B
lda #$00 lda #0
sta L0F9C sta run_width
sta L0F9D sta run_width+1
sta L095A sta L095A
sta text_string::len sta text_string::len
lda $06 lda $06
@ -1074,7 +1074,7 @@ L0F10: lda L0945
bne L0F22 bne L0F22
lda L0947 lda L0947
beq L0F1F beq L0F1F
jsr draw_text_line jsr draw_text_run
sec sec
rts rts
@ -1096,26 +1096,26 @@ L0F22: ldy text_string::len
sta L0946 sta L0946
pla pla
: cmp #$09 : cmp #$09
bne L0F48 bne :+
jmp L0F9E jmp handle_tab
L0F48: tay : tay
lda font_width_table,y lda font_width_table,y
clc clc
adc L0F9C adc run_width
sta L0F9C sta run_width
bcc :+ bcc :+
inc L0F9D inc run_width+1
: lda L095C : lda L095C
cmp L0F9D cmp run_width+1
bne :+ bne :+
lda L095B lda L095B
cmp L0F9C cmp run_width
: bcc L0F6E : bcc :+
inc text_string::len inc text_string::len
jmp L0F10 jmp L0F10
L0F6E: lda #0 : lda #0
sta L095A sta L095A
lda L0F9B lda L0F9B
cmp #$FF cmp #$FF
@ -1124,30 +1124,31 @@ L0F6E: lda #0
lda L0946 lda L0946
sta L0945 sta L0945
: inc text_string::len : inc text_string::len
L0F86: jsr draw_text_line
L0F86: jsr draw_text_run
ldy text_string::len ldy text_string::len
lda ($06),y lda ($06),y
cmp #$09 ; tab character? cmp #$09 ; tab character?
beq L0F96 beq tab
cmp #$0D ; return character cmp #$0D ; return character
bne L0F99 bne :+
L0F96: inc text_string::len tab: inc text_string::len
L0F99: clc : clc
rts rts
;;; ================================================== ;;; ==================================================
L0F9B: .byte 0 L0F9B: .byte 0
L0F9C: .byte 0 run_width: .word 0
L0F9D: .byte 0
.proc L0F9E ; ??? .proc handle_tab
lda #1 lda #1
sta L095A sta L095A
clc clc
lda L0F9C lda run_width
adc line_pos::left adc line_pos::left
sta line_pos::left sta line_pos::left
lda L0F9D lda run_width+1
adc line_pos::left+1 adc line_pos::left+1
sta line_pos::left+1 sta line_pos::left+1
ldx #0 ldx #0
@ -1183,7 +1184,7 @@ times70:.word 70
;;; ================================================== ;;; ==================================================
;;; Draw a line of content ;;; Draw a line of content
.proc draw_text_line .proc draw_text_run
lda L0948 lda L0948
beq end beq end
lda text_string::len lda text_string::len