Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-01-13 22:30:49 +00:00
Code Issues Projects Releases Wiki Activity

drops: initial working

Browse Source
This commit is contained in:
Vince Weaver 2021-02-01 21:21:12 -05:00
parent de808856c9
commit 657d58e4de
2 changed files with 21 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
graphics/gr/drops/drops.s
View File

@ -33,8 +33,9 @@ BUF2H = $FF
; Clear screen and setup graphics
;================================
drops:
jsr SETGR ; set lo-res 40x40 mode
jsr HGR
bit LORES
; jsr SETGR ; set lo-res 40x40 mode
bit FULLGR ; make it 40x48
@ -60,10 +61,14 @@ drops_outer:
lda #$1f
; ldy #1
; sta (BUF1L),Y
ldy #41
sta (BUF1L),Y
iny
sta (BUF1L),Y
; iny
; sta (BUF1L),Y
ldy #81
sta (BUF1L),Y
iny
@ -76,14 +81,14 @@ no_drop:
and #$1
beq even_frame
even_frame:
odd_frame:
lda #$20
sta BUF1H
lda #$40
lda #$30
sta BUF2H
jmp done_frame
odd_frame:
lda #$40
even_frame:
lda #$30
sta BUF1H
lda #$20
sta BUF2H
@ -94,7 +99,7 @@ done_frame:
sta BUF1L
sta BUF2L
lda #48
lda #47
sta YY
drops_yloop:
@ -120,7 +125,7 @@ draw_page_smc:
; reset XX to 0
lda #40 ; XX
lda #39 ; XX
sta XX
drops_xloop:
@ -155,7 +160,7 @@ no_oflo:
; adjust color
lsr
and #$f
and #$7
tay
lda colors,Y
sta COLOR

8
graphics/gr/drops/hardware.inc
View File

@ -35,7 +35,11 @@ PTRIG = $C070
;; BASIC ROUTINES
NORMAL = $F273
NORMAL = $F273
HGR = $F3E2
HGR2 = $F3D8
HCLR = $F3F2
HPOSN = $F411
;; MONITOR ROUTINES
@ -69,6 +73,8 @@ COUT1 = $FDF0 ;; output A to screen
COLOR_BLACK = 0
COLOR_RED = 1
COLOR_DARKBLUE = 2