Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-06-09 22:29:36 +00:00
Code Issues Projects Releases Wiki Activity

dlowres: need to shift the colors

Browse Source
This commit is contained in:
Vince Weaver 2017-12-06 01:34:28 -05:00
parent 3edac4cf86
commit 5885ad8557
3 changed files with 56 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
dlowres_mode7/dlowres_flying.s
View File

@ -31,7 +31,7 @@ flying_start:
lda SET_GR ; graphics C050
lda LORES ; lores C056
lda TEXTGR ; mixset C053
sta EIGHTYSTORE_OFF ; 80store C001
sta SET80COL ; 80store C001
sta EIGHTYCOL ; 80col C00d
lda AN3 ; AN3 C05E
@ -360,6 +360,7 @@ speed_loop:
;====================
draw_background:
jsr draw_background_mode7 ; 6
; jsr draw_background_mode7 ; 6
check_over_water:
; See if we are over water
@ -620,6 +621,8 @@ draw_background_mode7:
; not performance critical as this happens rarely
dec DRAW_SKY ; usually 2 as we redraw both pages ; 5
bit PAGE0
lda #COLOR_BOTH_MEDIUMBLUE ; MEDIUMBLUE color ; 2
sta COLOR ; 3
lda #0 ; 2
@ -639,8 +642,30 @@ sky_loop: ; draw line across screen
bne sky_loop ; 3/2nt
;=============
; (23+63+(X*16))*5
; Draw Hazy Horizon
bit PAGE1
lda #AUX_BOTH_MEDIUMBLUE ; MEDIUMBLUE color ; 2
sta COLOR ; 3
lda #0 ; 2
;===========
; 11
sky_loop2: ; draw line across screen
ldy #39 ; from y=0 to y=6 ; 2
sty V2 ; 3
ldy #0 ; 2
pha ; 3
jsr hlin_double ; hlin y,V2 at A ; 63+(X*16)
pla ; 4
clc ; 2
adc #2 ; 2
cmp #6 ; 2
bne sky_loop2 ; 3/2nt
;=============
; (23+63+(X*16))*5
; Draw Hazy Horizon
bit PAGE0
lda #COLOR_BOTH_GREY ; Horizon is Grey ; 2
sta COLOR ; 3
lda #6 ; draw single line at 6/7 ; 2
@ -650,6 +675,18 @@ sky_loop: ; draw line across screen
jsr hlin_double ; hlin 0,40 at 6 ; 63+(X*16)
;===========
; 63+(X*16)+14
; Draw Hazy Horizon
bit PAGE1
lda #AUX_BOTH_GREY ; Horizon is Grey ; 2
sta COLOR ; 3
lda #6 ; draw single line at 6/7 ; 2
ldy #39 ; 2
sty V2 ; hlin Y,V2 at A ; 3
ldy #0 ; 2
jsr hlin_double ; hlin 0,40 at 6 ; 63+(X*16)
;===========
; 63+(X*16)+14
no_draw_sky:
@ -1038,6 +1075,15 @@ update_cache:
; 6
match:
ldy DISP_PAGE
beq mask_label
tay
and #$01
cmp #$01
tya
ror ; adjust for 80-column color
mask_label:
and #0 ; COLOR_MASK (self modifying) ; 2

BIN
dlowres_mode7/dlowres_mode7.dsk
View File

Binary file not shown.

13
dlowres_mode7/dlowres_zp.inc
View File

@ -120,8 +120,8 @@ KEYPRESS EQU $C000
KEYRESET EQU $C010
;; SOFT SWITCHES
EIGHTYSTORE_ON EQU $C000
EIGHTYSTORE_OFF EQU $C001
CLR80COL EQU $C000 ; PAGE0/PAGE1 normal
SET80COL EQU $C001 ; PAGE0/PAGE1 switches PAGE0 in Aux instead
EIGHTYCOL EQU $C00D
SET_GR EQU $C050
SET_TEXT EQU $C051
@ -129,9 +129,9 @@ FULLGR EQU $C052
TEXTGR EQU $C053
PAGE0 EQU $C054
PAGE1 EQU $C055
LORES EQU $C056
HIRES EQU $C057
AN3 EQU $C05E
LORES EQU $C056 ; Enable LORES graphics
HIRES EQU $C057 ; Enable HIRES graphics
AN3 EQU $C05E ; Annunciator 3
PADDLE_BUTTON0 EQU $C061
PADDL0 EQU $C064
@ -192,3 +192,6 @@ COLOR_BOTH_ORANGE EQU $99
COLOR_BOTH_LIGHTGREEN EQU $CC
COLOR_BOTH_YELLOW EQU $DD
COLOR_BOTH_WHITE EQU $FF
AUX_BOTH_MEDIUMBLUE EQU $33 ; 0011 0011
AUX_BOTH_GREY EQU $AA ; 1010 1010