mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-01-12 00:30:31 +00:00
sa: merge the versions
This commit is contained in:
parent
2d7a8d1374
commit
d1c221da7a
@ -19,7 +19,7 @@ still_alive.o: still_alive.s \
|
||||
../asm_routines/lz4_decode.s \
|
||||
display_art.s display_lyrics.s \
|
||||
sa_ed.s duet.s SA.ED \
|
||||
ascii_art.inc \
|
||||
sa_mb.s ascii_art.inc \
|
||||
interrupt_handler.s \
|
||||
ascii_art.inc ascii_art_lz4.inc lyrics.inc zp.inc
|
||||
ca65 -o still_alive.o still_alive.s -l still_alive.lst
|
||||
|
@ -36,6 +36,7 @@ intial 80 col support: 20191
|
||||
80 col cursor: 20344
|
||||
strip out some unneeded text printing: 19962
|
||||
merge ED and MB code 24993
|
||||
properly select between versions: 25001
|
||||
|
||||
Memory Map
|
||||
|
||||
|
BIN
still_alive/TITLE.BAS
Normal file
BIN
still_alive/TITLE.BAS
Normal file
Binary file not shown.
@ -7,17 +7,6 @@ still_alive_ed:
|
||||
lda #0
|
||||
sta FRAME_COUNT
|
||||
|
||||
lda #1
|
||||
sta FORTYCOL
|
||||
|
||||
;===========================
|
||||
; clear both screens
|
||||
;===========================
|
||||
|
||||
; Clear text page0
|
||||
|
||||
; jsr HOME
|
||||
|
||||
|
||||
;============================
|
||||
; Draw Lineart around edges
|
||||
@ -31,9 +20,9 @@ still_alive_ed:
|
||||
; Setup lyrics
|
||||
;==============================
|
||||
|
||||
lda #<(lyrics)
|
||||
lda #<(lyrics_ed)
|
||||
sta LYRICSL
|
||||
lda #>(lyrics)
|
||||
lda #>(lyrics_ed)
|
||||
sta LYRICSH
|
||||
|
||||
|
||||
@ -51,8 +40,4 @@ still_alive_ed:
|
||||
; loop forever
|
||||
;==================
|
||||
|
||||
forever_loop_ed:
|
||||
jmp forever_loop_ed
|
||||
|
||||
|
||||
|
||||
rts
|
||||
|
@ -10,8 +10,6 @@ still_alive_mb:
|
||||
;=============================
|
||||
; Setup
|
||||
;=============================
|
||||
jsr HOME
|
||||
jsr TEXT
|
||||
|
||||
; init variables
|
||||
|
||||
@ -21,9 +19,7 @@ still_alive_mb:
|
||||
sta DECODE_ERROR
|
||||
sta LYRICS_ACTIVE
|
||||
|
||||
; Testing, let's get 40col working first
|
||||
lda #0
|
||||
sta FORTYCOL
|
||||
; call mockingboard detect?
|
||||
|
||||
jsr mockingboard_detect_slot4 ; call detection routine
|
||||
cpx #$1
|
||||
@ -135,7 +131,7 @@ only_forty:
|
||||
|
||||
|
||||
;============================
|
||||
; Loop forever
|
||||
; Main Loop
|
||||
;============================
|
||||
main_loop:
|
||||
lda DECODE_ERROR
|
||||
@ -180,7 +176,7 @@ check_done:
|
||||
beq main_loop
|
||||
|
||||
forever_loop:
|
||||
jmp forever_loop
|
||||
rts
|
||||
|
||||
|
||||
|
||||
@ -312,6 +308,3 @@ page_copy_loop:
|
||||
;======================
|
||||
; 2+14*256+6+29= 3621
|
||||
|
||||
|
||||
|
||||
|
||||
|
@ -3,10 +3,28 @@
|
||||
.include "zp.inc"
|
||||
|
||||
still_alive:
|
||||
|
||||
;=============================
|
||||
; Clear screen
|
||||
;=============================
|
||||
jsr HOME
|
||||
jsr TEXT
|
||||
|
||||
; See if Mockingboard or Electric Duet
|
||||
|
||||
lda USEMB
|
||||
beq no_mockingboard
|
||||
|
||||
jsr still_alive_mb
|
||||
|
||||
jmp reset
|
||||
|
||||
no_mockingboard:
|
||||
jsr still_alive_ed
|
||||
|
||||
|
||||
reset:
|
||||
jmp ($3F2) ; warm-start?
|
||||
; want reboot, not BASIC
|
||||
|
||||
;==========
|
||||
; main code
|
||||
|
@ -21,4 +21,8 @@
|
||||
95 PRINT " ----> ";
|
||||
100 INPUT A
|
||||
105 IF A<1 OR A>3 THEN PRINT CHR$(7): GOTO 95
|
||||
110 PRINT CHR$(4);"BRUN STILL_ALIVE"
|
||||
110 ON A GOTO 120,130,140
|
||||
120 POKE 768,0:POKE 769,1:GOTO 150
|
||||
130 POKE 768,1:POKE 769,1:GOTO 150
|
||||
140 POKE 768,1:POKE 769,0
|
||||
150 PRINT CHR$(4);"BRUN STILL_ALIVE"
|
||||
|
@ -116,7 +116,7 @@ COPY_TIME EQU $98
|
||||
DECOMPRESS_TIME EQU $99
|
||||
TIME_TAKEN EQU $9A
|
||||
LYRICS_ACTIVE EQU $9B
|
||||
FORTYCOL EQU $9C
|
||||
;FORTYCOL EQU $9C
|
||||
CURSOR EQU $9D
|
||||
|
||||
; More zero-page addresses
|
||||
@ -153,6 +153,9 @@ OUTL EQU $FE
|
||||
OUTH EQU $FF
|
||||
|
||||
|
||||
FORTYCOL EQU $300
|
||||
USEMB EQU $301
|
||||
|
||||
|
||||
KEYPRESS EQU $C000
|
||||
KEYRESET EQU $C010
|
||||
|
Loading…
x
Reference in New Issue
Block a user