mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-03-04 04:30:18 +00:00
pt3: clean up comments in the interrupt handler
This commit is contained in:
parent
55137b5a73
commit
770fe2bf25
@ -155,38 +155,30 @@ update_minutes:
|
|||||||
; we don't handle > 9:59 songs yet
|
; we don't handle > 9:59 songs yet
|
||||||
done_time:
|
done_time:
|
||||||
;=============
|
;=============
|
||||||
; 90 worst
|
; 89 worst
|
||||||
|
|
||||||
|
|
||||||
;=================================
|
;=================================
|
||||||
; Moved visualization here as a hack
|
; Handle keyboard
|
||||||
;=================================
|
;=================================
|
||||||
|
|
||||||
;============================
|
|
||||||
; Visualization
|
|
||||||
;============================
|
|
||||||
|
|
||||||
; jsr clear_top
|
|
||||||
; lda RASTERBARS_ON
|
|
||||||
; beq skip_rasters
|
|
||||||
; jsr draw_rasters
|
|
||||||
;skip_rasters:
|
|
||||||
; jsr volume_bars
|
|
||||||
; jsr page_flip
|
|
||||||
|
|
||||||
|
|
||||||
check_keyboard:
|
check_keyboard:
|
||||||
|
|
||||||
jsr get_key
|
jsr get_key
|
||||||
lda LASTKEY
|
lda LASTKEY
|
||||||
beq exit_interrupt
|
beq exit_interrupt
|
||||||
|
|
||||||
|
;====================
|
||||||
|
; space pauses
|
||||||
|
|
||||||
cmp #(' '+$80)
|
cmp #(' '+$80)
|
||||||
bne key_M
|
bne key_M
|
||||||
key_space:
|
key_space:
|
||||||
lda #$80
|
lda #$80
|
||||||
eor DONE_PLAYING
|
eor DONE_PLAYING
|
||||||
|
|
||||||
|
; disable fire when paused
|
||||||
|
|
||||||
sta DONE_PLAYING
|
sta DONE_PLAYING
|
||||||
beq yes_bar
|
beq yes_bar
|
||||||
lda #0
|
lda #0
|
||||||
@ -200,6 +192,9 @@ lowbar:
|
|||||||
|
|
||||||
jmp quiet_exit
|
jmp quiet_exit
|
||||||
|
|
||||||
|
;===========================
|
||||||
|
; M key switches MHz mode
|
||||||
|
|
||||||
key_M:
|
key_M:
|
||||||
cmp #'M'
|
cmp #'M'
|
||||||
bne key_left
|
bne key_left
|
||||||
@ -209,6 +204,8 @@ key_M:
|
|||||||
sta convert_177
|
sta convert_177
|
||||||
beq at_1MHz
|
beq at_1MHz
|
||||||
|
|
||||||
|
; update text on screen
|
||||||
|
|
||||||
lda #'7'+$80
|
lda #'7'+$80
|
||||||
sta $7F4
|
sta $7F4
|
||||||
sta $BF4
|
sta $BF4
|
||||||
@ -219,9 +216,11 @@ at_1MHz:
|
|||||||
sta $7F4
|
sta $7F4
|
||||||
sta $BF4
|
sta $BF4
|
||||||
|
|
||||||
|
|
||||||
jmp done_key
|
jmp done_key
|
||||||
|
|
||||||
|
;======================
|
||||||
|
; left key, to next song
|
||||||
|
|
||||||
key_left:
|
key_left:
|
||||||
cmp #'A'
|
cmp #'A'
|
||||||
bne key_right
|
bne key_right
|
||||||
@ -229,6 +228,9 @@ key_left:
|
|||||||
lda #$40
|
lda #$40
|
||||||
bne quiet_exit
|
bne quiet_exit
|
||||||
|
|
||||||
|
;========================
|
||||||
|
; right key, to prev song
|
||||||
|
|
||||||
key_right:
|
key_right:
|
||||||
cmp #'D'
|
cmp #'D'
|
||||||
bne done_key
|
bne done_key
|
||||||
@ -239,6 +241,11 @@ key_right:
|
|||||||
done_key:
|
done_key:
|
||||||
jmp exit_interrupt
|
jmp exit_interrupt
|
||||||
|
|
||||||
|
;========================
|
||||||
|
; stop playing for now
|
||||||
|
; quiet down the Mockingboard
|
||||||
|
; (otherwise will be stuck on last note)
|
||||||
|
|
||||||
quiet_exit:
|
quiet_exit:
|
||||||
sta DONE_PLAYING
|
sta DONE_PLAYING
|
||||||
jsr clear_ay_both
|
jsr clear_ay_both
|
||||||
@ -261,4 +268,3 @@ exit_interrupt:
|
|||||||
; ???? cycles
|
; ???? cycles
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Loading…
x
Reference in New Issue
Block a user