2018-05-24 21:01:42 +00:00
|
|
|
.include "zp.inc"
|
|
|
|
|
|
|
|
;==========================
|
|
|
|
; Setup Graphics
|
|
|
|
;==========================
|
|
|
|
|
|
|
|
bit SET_GR ; graphics mode
|
|
|
|
bit HIRES ; hires mode
|
|
|
|
bit TEXTGR ; mixed text/graphics
|
|
|
|
bit PAGE0 ; first graphics page
|
|
|
|
jsr HOME
|
|
|
|
|
|
|
|
jsr hgr_clear
|
|
|
|
|
2018-05-25 11:38:41 +00:00
|
|
|
ldx #0
|
|
|
|
jsr $F730 ; (DRWPNT+3)
|
|
|
|
|
|
|
|
; FIXME: call proper XDRAW0 entry point
|
2018-05-24 21:01:42 +00:00
|
|
|
|
|
|
|
|
2018-05-25 11:38:41 +00:00
|
|
|
; lda #0
|
|
|
|
; sta DRAW_PAGE
|
2018-05-24 21:01:42 +00:00
|
|
|
|
2018-05-25 11:38:41 +00:00
|
|
|
; lda #<sprite
|
|
|
|
; sta INL
|
|
|
|
; lda #>sprite
|
|
|
|
; sta INH
|
|
|
|
|
|
|
|
; lda #10
|
|
|
|
; sta XPOS
|
|
|
|
; lda #10
|
|
|
|
; sta YPOS
|
|
|
|
|
|
|
|
; jsr hgr_put_sprite
|
2018-05-24 21:01:42 +00:00
|
|
|
|
|
|
|
infinite_loop:
|
|
|
|
jmp infinite_loop
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
sprite:
|
|
|
|
.byte 1,5
|
|
|
|
.byte $82,$88,$a0,$88,$82
|
|
|
|
|
|
|
|
|
2018-05-24 23:42:22 +00:00
|
|
|
.include "../asm_routines/hgr_offsets.s"
|
|
|
|
.include "../asm_routines/hgr_putsprite.s"
|
|
|
|
.include "../asm_routines/hgr_slowclear.s"
|
2018-05-24 21:01:42 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
.incbin "GLADOS.HGR"
|