Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-01-23 11:33:07 +00:00
Code Issues Projects Releases Wiki Activity

sa: strip out some more stuff

Browse Source
This commit is contained in:
Vince Weaver 2018-05-21 12:56:02 -04:00
parent a585185b5c
commit 2fec16aaaf
3 changed files with 18 additions and 99 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
asm_routines/gr_fast_clear.s
View File

@ -152,6 +152,7 @@ clear_screens_notext:
; clear_all
;=========================================================
; clear 48 rows
; clear color: clear_all_color+1
clear_all:
clc ; 2

56
still_alive/interrupt_handler.s
View File

@ -239,51 +239,13 @@ done_interrupt:
;=====================
; Update time counter
; Update frame count
;=====================
update_time:
inc FRAME_COUNT ; 5
lda FRAME_COUNT ; 3
cmp #50 ; 3
bne done_time ; 3/2nt
lda #$0 ; 2
sta FRAME_COUNT ; 3
update_second_ones:
inc $7d0+TIME_OFFSET+3 ; 6
inc $bd0+TIME_OFFSET+3 ; 6
lda $bd0+TIME_OFFSET+3 ; 4
cmp #$ba ; one past '9' ; 2
bne done_time ; 3/2nt
lda #'0'+$80 ; 2
sta $7d0+TIME_OFFSET+3 ; 4
sta $bd0+TIME_OFFSET+3 ; 4
update_second_tens:
inc $7d0+TIME_OFFSET+2 ; 6
inc $bd0+TIME_OFFSET+2 ; 6
lda $bd0+TIME_OFFSET+2 ; 4
cmp #$b6 ; 6 (for 60 seconds) ; 2
bne done_time ; 3/2nt
lda #'0'+$80 ; 2
sta $7d0+TIME_OFFSET+2 ; 4
sta $bd0+TIME_OFFSET+2 ; 4
update_minutes:
inc $7d0+TIME_OFFSET ; 6
inc $bd0+TIME_OFFSET ; 6
; we don't handle > 9:59 songs yet
done_time:
;=============
; 90 worst
;=================================
; Moved visualization here as a hack
;=================================
;============================
; Visualization
;============================
check_keyboard:
@ -292,26 +254,12 @@ check_keyboard:
beq exit_interrupt
cmp #(' '+$80)
bne key_left
bne done_key
key_space:
lda #$80
eor DONE_PLAYING
jmp quiet_exit
key_left:
cmp #'A'
bne key_right
lda #$40
bne quiet_exit
key_right:
cmp #'D'
bne done_key
lda #$20
bne quiet_exit
done_key:
jmp exit_interrupt

60
still_alive/still_alive.s
View File

@ -48,12 +48,6 @@ NUM_FILES EQU 15
jmp forever_loop ; and wait forever
mockingboard_found:
; lda #<found_message ; print found message
; sta OUTL
; lda #>found_message
; sta OUTH
; inc CV
; jsr move_and_print
;============================
; Init the Mockingboard
@ -103,17 +97,24 @@ mockingboard_found:
; Draw title screen
;============================
lda #$4 ; draw page 1
;===========================
; clear both screens
;===========================
; Clear text page0
lda #0
sta DRAW_PAGE
jsr clear_screens ; clear both screens
lda #(' '+$80)
sta clear_all_color+1
jsr clear_all
;==================
; load first song
; load song
;==================
jsr new_song
jsr load_song
;============================
; Init Background
@ -188,10 +189,10 @@ forever_loop:
;=================
; load a new song
; load our song
;=================
new_song:
load_song:
;=========================
; Init Variables
@ -208,24 +209,6 @@ new_song:
lda #3
sta CHUNKSIZE
;===========================
; Print loading message
;===========================
jsr clear_bottoms ; clear bottom of page 0/1
lda #0 ; print LOADING message
sta CH
lda #21
sta CV
lda #<loading_message
sta OUTL
lda #>loading_message
sta OUTH
jsr print_both_pages
;===========================
; Load in KRW file
;===========================
@ -236,17 +219,6 @@ new_song:
lda #>krw_file
sta INH
lda #8
sta CH
lda #21
sta CV
lda INL
sta OUTL
lda INH
sta OUTH
jsr print_both_pages
disk_buff EQU LZ4_BUFFER
read_size EQU $4000
@ -385,8 +357,6 @@ krw_file:
;=========
mocking_message: .asciiz "LOOKING FOR MOCKINGBOARD IN SLOT #4"
not_message: .byte "NOT "
found_message: .asciiz "FOUND"
;done_message: .asciiz "DONE PLAYING"
loading_message: .asciiz "LOADING"
.include "ascii_art.inc"