Hgr: ball
This commit is contained in:
Vince Weaver
parent
be5d4e0663
commit
a26bc8521a
|
|
@ -0,0 +1,247 @@
|
|||
; move a ball
|
||||
|
||||
; very slowly
|
||||
|
||||
; 133 bytes -- first attempt
|
||||
; 130 bytes -- convert jmp to branches
|
||||
; 132 bytes -- don't start at 0,0
|
||||
; 128 bytes -- bit trick
|
||||
; 126 bytes -- remove old code
|
||||
; 145 bytes -- rounded edges
|
||||
; 143 bytes -- optimize rounded edges
|
||||
; 137 bytes -- move XX into X
|
||||
; 136 bytes -- jmp back to loop
|
||||
|
||||
HGR_BITS = $1C
|
||||
GBASL = $26
|
||||
GBASH = $27
|
||||
HGR_X = $E0
|
||||
HGR_Y = $E2
|
||||
HGR_COLOR = $E4
|
||||
HGRPAGE = $E6
|
||||
|
||||
MX = $F7
|
||||
XC = $F8
|
||||
SPRITE_OFFSET = $F9
|
||||
XDIR = $FA
|
||||
YDIR = $FB
|
||||
YC = $FC
|
||||
MY = $FD
|
||||
;XX = $FE
|
||||
YY = $FF
|
||||
|
||||
PAGE0 = $C054
|
||||
PAGE1 = $C055
|
||||
|
||||
HGR = $F3E2
|
||||
HGR2 = $F3D8
|
||||
HCLR = $F3F2
|
||||
BKGND = $F3F6
|
||||
HPOSN = $F411 ;; (Y,X) = X, A = Y
|
||||
;; line addr in GBASL/GBASH
|
||||
;; with offset in HGR.HORIZ, Y
|
||||
|
||||
HPLOT0 = $F457 ;; plot at (Y,X), (A)
|
||||
HGLIN = $F53A ;; line to (A,X), (Y)
|
||||
|
||||
WAIT = $FCA8 ;; delay 1/2(26+27A+5A^2) us
|
||||
|
||||
|
||||
;===============================
|
||||
;===============================
|
||||
;===============================
|
||||
;===============================
|
||||
|
||||
ball:
|
||||
jsr HGR2 ; clear page1
|
||||
; HGRPAGE now $40
|
||||
; A is 0
|
||||
; A is 0
|
||||
lda #$50
|
||||
sta MX
|
||||
sta MY
|
||||
|
||||
; xdir and ydir start at 2?
|
||||
|
||||
ldy #$2
|
||||
sty YDIR
|
||||
sty XDIR
|
||||
|
||||
;=====================================
|
||||
; loop
|
||||
;=====================================
|
||||
|
||||
move_ball_loop:
|
||||
|
||||
;====================
|
||||
; flip pages
|
||||
; 16 bytes, can't seem to do better
|
||||
;====================
|
||||
|
||||
bit HGRPAGE ; V set if $40 ; 2
|
||||
bvc show_page1 ; 2
|
||||
|
||||
show_page2:
|
||||
bit PAGE1 ; 3
|
||||
lsr HGRPAGE ; 2
|
||||
bne done_page ; 2
|
||||
|
||||
show_page1:
|
||||
bit PAGE0 ; 3
|
||||
asl HGRPAGE ; 2
|
||||
done_page:
|
||||
|
||||
|
||||
clear_screen:
|
||||
;=======================
|
||||
; clear screen to black
|
||||
;=======================
|
||||
|
||||
jsr HCLR ; clear screen
|
||||
|
||||
; jsr purple_line
|
||||
|
||||
|
||||
|
||||
;===========================
|
||||
; draw ball
|
||||
;===========================
|
||||
|
||||
draw_ball:
|
||||
|
||||
lda MY ; actual Y
|
||||
sta YY ; current Y
|
||||
|
||||
lda #13 ; 13 lines tall
|
||||
sta YC ; count
|
||||
|
||||
ball_loop_y:
|
||||
|
||||
ldx MX ; load actual X
|
||||
lda #14 ; 14 pixels wide
|
||||
|
||||
; check if rounded corders
|
||||
|
||||
ldy YC
|
||||
cpy #13
|
||||
beq make_round
|
||||
cpy #1
|
||||
bne write_xc
|
||||
|
||||
make_round:
|
||||
inx ; start indented
|
||||
inx
|
||||
lda #10 ; and shorter
|
||||
write_xc:
|
||||
sta XC ; update xcount
|
||||
|
||||
|
||||
ball_loop_x:
|
||||
|
||||
|
||||
set_color:
|
||||
txa ; XX more interesting than XC?
|
||||
eor YC
|
||||
and #$4
|
||||
beq set_orange
|
||||
set_white:
|
||||
lda #$FF ; white2
|
||||
.byte $2C ; bit trick
|
||||
set_orange:
|
||||
lda #$AA ; orange
|
||||
set_hgr_color:
|
||||
sta HGR_COLOR
|
||||
|
||||
|
||||
hplot_time:
|
||||
|
||||
; hplot
|
||||
|
||||
|
||||
ldy #0
|
||||
; ; XX already in X
|
||||
lda YY ; put YY into A
|
||||
|
||||
|
||||
|
||||
jsr HPLOT0 ;; (Y,X) = X, A = Y
|
||||
;; destroys X, Y, A
|
||||
;; but, X is in HGR.X and Y is in HGR.X+1
|
||||
;; AA is in HGR.Y
|
||||
|
||||
ldx HGR_X ; restore XX into X
|
||||
; ldy HGR_Y ; restore YY into Y
|
||||
|
||||
inx ; inc XX
|
||||
dec XC
|
||||
bne ball_loop_x
|
||||
|
||||
inc YY
|
||||
dec YC
|
||||
bne ball_loop_y
|
||||
|
||||
;===========================
|
||||
; move sprite
|
||||
;===========================
|
||||
|
||||
lda MX ; load X location
|
||||
clc
|
||||
adc XDIR ; add in our direction/speed
|
||||
bmi switch_xdir ; if <0 or > 127 then switch direction
|
||||
|
||||
sta MX
|
||||
bpl noswitch_xdir ; otherwise store and skip
|
||||
|
||||
switch_xdir:
|
||||
lda XDIR ; get direction and inverse
|
||||
eor #$FF
|
||||
sta XDIR
|
||||
inc XDIR ; two's complement
|
||||
|
||||
noswitch_xdir:
|
||||
|
||||
lda MY ; load Y location
|
||||
clc
|
||||
adc YDIR ; add in our direction/speed
|
||||
|
||||
bmi switch_ydir ; if < 0 or > 127 then switch direction
|
||||
|
||||
sta MY
|
||||
bpl move_ball_loop ; otherwise store and skip
|
||||
|
||||
switch_ydir:
|
||||
lda YDIR ; get direction and inverse
|
||||
eor #$FF
|
||||
sta YDIR
|
||||
inc YDIR ; two's complement
|
||||
bne move_ball_loop ; bne if fits
|
||||
|
||||
|
||||
.if 0
|
||||
purple_line:
|
||||
|
||||
; draw purple line
|
||||
|
||||
|
||||
lda #$55 ; purple
|
||||
sta HGR_COLOR
|
||||
|
||||
ldy #0
|
||||
ldx #0
|
||||
lda #100
|
||||
|
||||
jsr HPLOT0 ;; (Y,X) = X, (A) = Y
|
||||
|
||||
lda #150
|
||||
ldx #0
|
||||
ldy #100
|
||||
jsr HGLIN ;; (A,X), (Y)
|
||||
|
||||
rts
|
||||
.endif
|
||||
|
||||
|
||||
;==============
|
||||
; so we can call from basic
|
||||
|
||||
jmp ball
|
||||
|
|
@ -1,139 +0,0 @@
|
|||
GBASL = $26
|
||||
GBASH = $27
|
||||
HGRPAGE = $E6
|
||||
|
||||
SPRITE_OFFSET = $F9
|
||||
XDIR = $FA
|
||||
YDIR = $FB
|
||||
YC = $FC
|
||||
MY = $FD
|
||||
XX = $FE
|
||||
YY = $FF
|
||||
|
||||
PAGE0 = $C054
|
||||
PAGE1 = $C055
|
||||
|
||||
HGR = $F3E2
|
||||
HGR2 = $F3D8
|
||||
HCLR = $F3F2
|
||||
HPOSN = $F411 ;; (Y,X) = X, A = Y
|
||||
;; line addr in GBASL/GBASH
|
||||
;; with offset in HGR.HORIZ, Y
|
||||
WAIT = $FCA8 ;; delay 1/2(26+27A+5A^2) us
|
||||
|
||||
sprite:
|
||||
jsr HGR ; clear page0
|
||||
jsr HGR2 ; clear page1
|
||||
; HGR page now $40
|
||||
|
||||
lda #50
|
||||
sta XX
|
||||
sta MY
|
||||
|
||||
lda #$FF
|
||||
sta YDIR
|
||||
sta XDIR
|
||||
|
||||
move_sprite:
|
||||
|
||||
jsr draw_sprite
|
||||
|
||||
lda #100
|
||||
jsr WAIT
|
||||
|
||||
jsr draw_sprite
|
||||
|
||||
|
||||
lda XX
|
||||
clc
|
||||
adc XDIR
|
||||
sta XX
|
||||
beq switch_xdir
|
||||
cmp #240
|
||||
bcc noswitch_xdir
|
||||
|
||||
switch_xdir:
|
||||
lda XDIR
|
||||
eor #$FF
|
||||
sta XDIR
|
||||
inc XDIR ; two's complement
|
||||
noswitch_xdir:
|
||||
|
||||
|
||||
|
||||
lda MY
|
||||
clc
|
||||
adc YDIR
|
||||
sta MY
|
||||
beq switch_ydir
|
||||
cmp #177
|
||||
bne noswitch_ydir
|
||||
|
||||
switch_ydir:
|
||||
lda YDIR
|
||||
eor #$FF
|
||||
sta YDIR
|
||||
inc YDIR ; two's complement
|
||||
noswitch_ydir:
|
||||
|
||||
|
||||
jmp move_sprite
|
||||
|
||||
|
||||
|
||||
draw_sprite:
|
||||
|
||||
lda MY
|
||||
sta YY
|
||||
|
||||
lda #14
|
||||
sta YC
|
||||
|
||||
lda #0
|
||||
sta SPRITE_OFFSET
|
||||
|
||||
sprite_loop:
|
||||
|
||||
ldy #0
|
||||
ldx XX
|
||||
lda YY
|
||||
|
||||
jsr HPOSN ;; (Y,X) = X, A = Y
|
||||
|
||||
jsr plot_line
|
||||
jsr plot_line
|
||||
|
||||
inc YY
|
||||
|
||||
dec YC
|
||||
bne sprite_loop
|
||||
|
||||
rts
|
||||
|
||||
plot_line:
|
||||
ldx SPRITE_OFFSET
|
||||
lda (GBASL),Y
|
||||
eor ball,X
|
||||
inc SPRITE_OFFSET
|
||||
sta (GBASL),Y
|
||||
iny
|
||||
rts
|
||||
|
||||
|
||||
|
||||
ball:
|
||||
.byte $7f,$7a
|
||||
.byte $7f,$7f
|
||||
.byte $7f,$7f
|
||||
.byte $7f,$7f
|
||||
.byte $7f,$7f
|
||||
.byte $7f,$7f
|
||||
.byte $7f,$7f
|
||||
.byte $7f,$7f
|
||||
.byte $7f,$7f
|
||||
.byte $7f,$7f
|
||||
.byte $7f,$7f
|
||||
.byte $7f,$7f
|
||||
.byte $7f,$7f
|
||||
.byte $7f,$7f
|
||||
|
||||
Loading…
Reference in New Issue