Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-12-27 17:29:49 +00:00
Code Issues Projects Releases Wiki Activity

wires: update

Browse Source
This commit is contained in:
Vince Weaver 2021-02-13 22:20:30 -05:00
parent db5e3966d5
commit 07dc31e386
3 changed files with 26 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basic/appleiibot/wires.bas
View File

@ -1,2 +1,2 @@
1FORI=0TO140:POKE875+I,4*PEEK(2125+I)-192+(PEEK(2266+I/3)-35)/4^(I-INT(I/3)*3):NEXT 1FORI=0TO140:POKE875+I,4*PEEK(2125+I)-192+(PEEK(2266+I/3)-35)/4^(I-INT(I/3)*3):NEXT
2&",cl9E`V3Q/6m^U3QWl?WL60202ZQV0>b4kj_0@`(i1^U:2W0@jd^Xa,k0j_E_B1D^0M9R802,1QePBU3T0XlO;8=mY8J0N9X5U:21oY_03_2V/Z.Y_a/Q463nR4aHZV1`1UI>lMA.84G0S+4C^)'K-)+$#S3*#Z6#'`QK=K/%+6*06*)W;<BC#DUObE_ 2&",clZ48jl;=^X-QWh?WD>2(02TQV,?V*>b2j_0@`(i1^U:2W0>bd^Xa,k0j_E_B1D^0M9R802,1QePBU3T0XlO;8=mY8J0N9X5U:21oY_03_2V/Z.Y_a/Q463nR4aHZV1`4VI>lMA.84G0S$/E>3CM;3C+#S3*+Z6#'`QK=K/%+6*06*)W;<BC#DUCbE_

37
graphics/gr/plasma/wires_bot.s
View File

@ -7,6 +7,10 @@
; 148 -- use $10 instead of $ff for black color ; 148 -- use $10 instead of $ff for black color
; 147 -- optimize color code ; 147 -- optimize color code
; 143 -- use 15x15 grid instead of 7x7 ; 143 -- use 15x15 grid instead of 7x7
; 138 -- re-wrote clear screen code
; 144 -- back to original layout
; 142 -- jump to earlier BGND entry point
; 141 -- start at $FF even though it misses upper left
; goal=141 ; goal=141
@ -25,22 +29,26 @@ plasma:
; bit SET_GR ; bit SET_GR
; bit FULLGR ; make it 40x48 ; bit FULLGR ; make it 40x48
jsr $F3D8 ; HGR2 jsr $F3D8 ; HGR2 (and full screen), set HGRPAGE to $40
bit LORES ; after, A is #$60
lda #$10 ; want to write $10 to memory
; sta HGRBITS
jsr $F3F4 ; does the store, is this allowed?
; jsr $F3F6 ; BKGND
bit LORES ; switch to lo-res
; lda #$20
; sta HGRPAGE
lda #$10
; lsr
sta HGRBITS
jsr $F3F6 ; BKGND
; we only create a 16x16 texture, which we pattern across 40x48 screen ; we only create a 16x16 texture, which we pattern across 40x48 screen
; need to beat 30 bytes ; need to beat 30 bytes
ldx #15 ; store at 15,x and x,15
ldx #15 ; store at 15,x 8,x
; and x,15 x,8
; 240+x, (x*16),15 ; 240+x, (x*16),15
write_loop: write_loop:
@ -54,11 +62,10 @@ write_loop:
asl asl
asl asl
; clc
tay tay
txa txa
sta lookup,Y sta lookup,Y
sta lookup+8,Y
dex dex
bpl write_loop bpl write_loop
@ -73,7 +80,7 @@ write_loop:
; ; vertical ; ; vertical
; txa ; txa
;; and #$7 ;; and #$7
; bne horiz ; bne horizh
; ;
;xnot: ;xnot:
; tya ; tya
@ -101,7 +108,7 @@ write_loop:
; dey ; dey
; bpl create_yloop ; bpl create_yloop
; X and Y both $FF ; X is $FF
create_lookup_done: create_lookup_done:
@ -115,7 +122,7 @@ cycle_colors:
; X is $FF when arriving here ; X is $FF when arriving here
; ldx #0 ; ldx #0
inx ; make X 0 ; inx ; make X 0
cycle_loop: cycle_loop:
ldy lookup,X ldy lookup,X
cpy #$10 cpy #$10
@ -125,7 +132,7 @@ cycle_loop:
and #$f and #$f
sta lookup,X sta lookup,X
skip_zero: skip_zero:
inx dex
bne cycle_loop bne cycle_loop

3
graphics/gr/plasma/zp.inc
View File

@ -3,6 +3,7 @@
;; LZSA addresses ;; LZSA addresses
NIBCOUNT = $00 NIBCOUNT = $00
HGRBITS = $1C
WNDLFT = $20 WNDLFT = $20
WNDWDTH = $21 WNDWDTH = $21
WNDTOP = $22 WNDTOP = $22
@ -19,6 +20,8 @@ MASK = $2E
COLOR = $30 COLOR = $30
INVFLG = $32 INVFLG = $32
HGRPAGE = $E6
; More zero-page addresses ; More zero-page addresses
; we try not to conflict with anything DOS, MONITOR or BASIC related ; we try not to conflict with anything DOS, MONITOR or BASIC related