Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-02-06 14:30:18 +00:00
Code Issues Projects Releases Wiki Activity

ootw: update intro

Browse Source
This commit is contained in:
Vince Weaver 2019-01-26 21:52:00 -05:00
parent 5989cf085f
commit 23701db51d
2 changed files with 113 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ootw/Makefile
View File

@ -9,6 +9,7 @@ all: ootw.dsk
ootw.dsk: HELLO OOTW INTRO
$(DOS33) -y ootw.dsk SAVE A HELLO
$(DOS33) -y ootw.dsk BSAVE -a 0x2000 OOTW
$(DOS33) -y ootw.dsk BSAVE -a 0x2000 INTRO
####

112
ootw/intro.s
View File

@ -1,10 +1,122 @@
;=====================================
; Intro
.include "zp.inc"
.include "hardware.inc"
intro:
;===========================
; Enable graphics
bit LORES
bit SET_GR
bit FULLGR
;===========================
; Setup pages (is this necessary?)
lda #0
sta DRAW_PAGE
lda #1
sta DISP_PAGE
;===============================
;===============================
; Opening scene with car
;===============================
;===============================
;=============================
; Load background to $c00
lda #$0c
sta BASH
lda #$00
sta BASL ; load image off-screen $c00
lda #>(building_rle)
sta GBASH
lda #<(building_rle)
sta GBASL
jsr load_rle_gr
;=================================
; copy $c00 to both pages $400/$800
jsr gr_copy_to_current
jsr page_flip
jsr gr_copy_to_current
building_loop:
lda KEYPRESS
bpl building_loop
;===============================
; Walk into door
;===============================
; Elevator going down
;===============================
; Getting out of Elevator
;===============================
; Keycode
;===============================
; Scanner
;===============================
; Spinny DNA / Key
;===============================
; Sitting at Desk
;===============================
; Peanut OS
;===============================
; Particle Accelerator Screen
;===============================
; Soda
;===============================
; More crazy screen
;===============================
; Thunderstorm Outside
;===============================
; Tunnel 1
;===============================
; Tunnel 2
;===============================
; Zappo
rts
.include "gr_pageflip.s"
.include "gr_unrle.s"
.include "gr_copy.s"
.include "gr_offsets.s"
.include "intro_building.inc"