dos33fsprogs/still_alive/ending.s

106 lines
1.4 KiB
ArmAsm

.include "zp.inc"
HGR_SHAPE EQU $1A
HGR_SHAPEH EQU $1B
HGR_BITS EQU $1C
HGR_COUNT EQU $1D
HGR_DX EQU $D0
HGR_DY EQU $D2
HGR_QUADRANT EQU $D3
HGR_E EQU $D4
HGR_EH EQU $D5
HGR_X EQU $E0
HGR_Y EQU $E2
HGR_COLOR EQU $E4
HGR_HORIZ EQU $E5
HGR_PAGE EQU $E6
HGR_SCALE EQU $E7
HGR_COLLISIONS EQU $EA
HGR_ROTATION EQU $F9
HCLR EQU $F3F2
HPOSN EQU $F411
HPLOT0 EQU $F457
HGLIN EQU $F53A
XDRAW1 EQU $F661
COLORTBL EQU $F6F6
;==========================
; Setup Graphics
;==========================
bit SET_GR ; graphics mode
bit HIRES ; hires mode
bit TEXTGR ; mixed text/graphics
bit PAGE0 ; first graphics page
jsr HOME
lda #$20
sta HGR_PAGE
jsr HCLR
; lda #0
; sta HGR_ROTATION
; lda #1
; sta HGR_SCALE
; jsr hgr_clear
; lda #<chell_right
; sta HGR_SHAPE
; lda #>chell_right
; sta HGR_SHAPE+1
; HFNS puts X-coord in Y,X, Y-coord in A
; HPOSN sets up GBASL/GBASH
; ldy #0
; lda #100
; tax
; jsr HPOSN
; lda HGR_ROTATION ; rotation
; jsr XDRAW1
; HCOLOR=3
ldx #3
lda COLORTBL,X ; get color pattern from table
sta HGR_COLOR
; HPLOT 100,100 to 150,150
; X= (y,x), Y=a
ldy #0
lda #100
ldx #100
jsr HPLOT0
; X=(x,a), y=Y
lda #150
ldx #0
ldy #150
jsr HGLIN
infinite_loop:
jmp infinite_loop
;.include "../asm_routines/hgr_offsets.s"
;.include "../asm_routines/hgr_putsprite.s"
.include "../asm_routines/hgr_slowclear.s"
; Shape Table
.include "objects_shape.inc"
; Graphics Background
.incbin "GLADOS.HGR"