dos33fsprogs/graphics/hgr/transitions/ooze32.s
2023-01-27 17:06:11 -05:00

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