Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-10-24 23:25:28 +00:00
Code Issues Projects Releases Wiki Activity

ootw: l3: vent cutoff works (but is slow)

Browse Source
This commit is contained in:
Vince Weaver 2019-08-11 22:40:13 -04:00
parent 618350f59b
commit 39c33ef37d
1 changed files with 92 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

98
ootw/ootw_c3_vent.s
View File

@ -849,22 +849,108 @@ only_show_window:
ldy #0
window_loop:
lda gr_offsets,Y
sta window_loop_smc+1
sta window_left_loop_smc+1
sta window_right_loop_smc+1
sta window_all_loop_smc+1
lda gr_offsets+1,Y
clc
adc DRAW_PAGE
sta window_loop_smc+2
sta window_left_loop_smc+2
sta window_right_loop_smc+2
sta window_all_loop_smc+2
lda PHYSICIST_Y
and #$FE
sec
sbc #2
sta TEMPY
cpy TEMPY
beq clear_with_window
inc TEMPY
inc TEMPY
cpy TEMPY
beq clear_with_window
inc TEMPY
inc TEMPY
cpy TEMPY
beq clear_with_window
inc TEMPY
inc TEMPY
cpy TEMPY
beq clear_with_window
clear_all_line:
ldx #39
lda #0
ldx #40
window_inner_loop:
window_loop_smc:
window_inner_all_loop:
window_all_loop_smc:
sta $400,X
dex
bpl window_inner_loop
bpl window_inner_all_loop
jmp window_continue
clear_with_window:
;===================
; clear to the left
lda PHYSICIST_X
sec
sbc #5
bpl window_left_limit
lda #0
window_left_limit:
tax
lda #0
window_inner_left_loop:
window_left_loop_smc:
sta $400,X
dex
bpl window_inner_left_loop
; clear to the right
lda PHYSICIST_X
clc
adc #8
cmp #39
bcs skip_window_right
tax
lda #0
window_inner_right_loop:
window_right_loop_smc:
sta $400,X
inx
cpx #40
bne window_inner_right_loop
skip_window_right:
window_continue:
iny
iny
cpy #48