72 lines
1.0 KiB
ArmAsm
72 lines
1.0 KiB
ArmAsm
; Ooze32
|
|
|
|
; interesting looking effect found accidentally
|
|
; when trying to do something else
|
|
|
|
; by Vince `deater` Weaver <vince@deater.net>
|
|
|
|
; zero page
|
|
GBASL = $26
|
|
GBASH = $27
|
|
YY = $69
|
|
ROW_SUM = $70
|
|
|
|
HGR_X = $E0
|
|
HGR_XH = $E1
|
|
HGR_Y = $E2
|
|
HGR_COLOR = $E4
|
|
HGR_PAGE = $E6
|
|
|
|
OUTL = $FD
|
|
OUTH = $FE
|
|
LINE = $FF
|
|
|
|
; soft-switches
|
|
FULLGR = $C052
|
|
PAGE1 = $C054
|
|
|
|
; ROM routines
|
|
|
|
HGR2 = $F3D8
|
|
HGR = $F3E2
|
|
HPOSN = $F411 ; (Y,X),(A) (values stores in HGRX,XH,Y)
|
|
|
|
WAIT = $FCA8 ;; delay 1/2(26+27A+5A^2) us
|
|
|
|
;================================
|
|
; Clear screen and setup graphics
|
|
;================================
|
|
bars:
|
|
|
|
jsr HGR ; set hi-res 140x192, page2, fullscreen
|
|
; A and Y both 0 at end
|
|
|
|
forever:
|
|
sta OUTL
|
|
sta LINE
|
|
|
|
lda #$d0
|
|
sta OUTH
|
|
|
|
|
|
line_loop:
|
|
lda LINE
|
|
jsr HPOSN ; (Y,X),(A) (values stores in HGRX,XH,Y)
|
|
|
|
; first top right
|
|
ldy #0
|
|
out_loop:
|
|
lda (OUTL),Y
|
|
sta (GBASL),Y
|
|
|
|
dey
|
|
bne out_loop
|
|
|
|
inc LINE
|
|
; lda LINE
|
|
; cmp #192
|
|
bne line_loop
|
|
|
|
end:
|
|
bpl forever
|