Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-08-12 12:29:04 +00:00
Code Issues Projects Releases Wiki Activity

sa: update ending

Browse Source
This commit is contained in:
Vince Weaver 2018-06-04 21:43:36 -04:00
parent 0d3f4c2851
commit 119576fe79
3 changed files with 30 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
linker_scripts/apple2_1c00.inc Normal file
View File

@ -0,0 +1,12 @@
MEMORY {
ZP: start = $00, size = $1A, type = rw;
RAM: start = $1C00, size = $7E00, file = %O;
}
SEGMENTS {
CODE: load = RAM, type = ro, align=$100;
RODATA: load = RAM, type = ro;
DATA: load = RAM, type = rw;
BSS: load = RAM, type = bss, define = yes;
ZEROPAGE: load = ZP, type = zp;
}

4
still_alive/Makefile
View File

@ -7,7 +7,7 @@ all: still_alive.dsk
still_alive.dsk: STILL_ALIVE TITLE.BAS ENDING
$(DOS33) -y still_alive.dsk BSAVE -a 0x0C00 STILL_ALIVE
$(DOS33) -y still_alive.dsk BSAVE -a 0x2000 ENDING
$(DOS33) -y still_alive.dsk BSAVE -a 0x1C00 ENDING
$(DOS33) -y still_alive.dsk SAVE A TITLE.BAS
# $(DOS33) -y still_alive.dsk SAVE B GLADOS.HGR
@ -25,7 +25,7 @@ still_alive.o: still_alive.s \
ca65 -o still_alive.o still_alive.s -l still_alive.lst
ENDING: ending.o
ld65 -o ENDING ending.o -C ../linker_scripts/apple2_2000.inc
ld65 -o ENDING ending.o -C ../linker_scripts/apple2_1c00.inc
ending.o: ending.s \
GLADOS.HGR

28
still_alive/ending.s
View File

@ -23,6 +23,7 @@ X1 EQU $FD
X2 EQU $FE
Y1 EQU $FF
HGR EQU $F3E2
HCLR EQU $F3F2
HPOSN EQU $F411
HPLOT0 EQU $F457
@ -30,21 +31,26 @@ HGLIN EQU $F53A
XDRAW1 EQU $F661
COLORTBL EQU $F6F6
ending:
;==========================
; Setup Graphics
;==========================
bit SET_GR ; graphics mode
bit HIRES ; hires mode
bit TEXTGR ; mixed text/graphics
bit PAGE0 ; first graphics page
; We can't use HGR as it clears the screen
; jsr HGR
jsr HOME
bit PAGE1 ; first graphics page
lda #$40
bit PAGE0 ; first graphics page
lda #$20
sta HGR_PAGE
bit TEXTGR ; mixed text/graphics
bit HIRES ; hires mode
bit SET_GR ; graphics mode
; jsr HCLR
lda #0
sta HGR_ROTATION
@ -52,8 +58,6 @@ COLORTBL EQU $F6F6
sta HGR_SCALE
; jsr hgr_clear
;======================
; Draw Chell
;======================
@ -247,8 +251,8 @@ loop4:
sbc #5
sta Y1
cmp #5
bcs loop4
cmp #$ff
bne loop4
infinite_loop:
jmp infinite_loop
@ -262,7 +266,7 @@ infinite_loop:
; Shape Table
.include "objects_shape.inc"
.align 8192
.align $400
; Graphics Background
.incbin "GLADOS.HGR",4