mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-12-28 09:30:41 +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
|
||||
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:
|
||||
|
||||
jsr get_key
|
||||
lda LASTKEY
|
||||
beq exit_interrupt
|
||||
|
||||
;====================
|
||||
; space pauses
|
||||
|
||||
cmp #(' '+$80)
|
||||
bne key_M
|
||||
key_space:
|
||||
lda #$80
|
||||
eor DONE_PLAYING
|
||||
|
||||
; disable fire when paused
|
||||
|
||||
sta DONE_PLAYING
|
||||
beq yes_bar
|
||||
lda #0
|
||||
@ -200,6 +192,9 @@ lowbar:
|
||||
|
||||
jmp quiet_exit
|
||||
|
||||
;===========================
|
||||
; M key switches MHz mode
|
||||
|
||||
key_M:
|
||||
cmp #'M'
|
||||
bne key_left
|
||||
@ -209,6 +204,8 @@ key_M:
|
||||
sta convert_177
|
||||
beq at_1MHz
|
||||
|
||||
; update text on screen
|
||||
|
||||
lda #'7'+$80
|
||||
sta $7F4
|
||||
sta $BF4
|
||||
@ -219,9 +216,11 @@ at_1MHz:
|
||||
sta $7F4
|
||||
sta $BF4
|
||||
|
||||
|
||||
jmp done_key
|
||||
|
||||
;======================
|
||||
; left key, to next song
|
||||
|
||||
key_left:
|
||||
cmp #'A'
|
||||
bne key_right
|
||||
@ -229,6 +228,9 @@ key_left:
|
||||
lda #$40
|
||||
bne quiet_exit
|
||||
|
||||
;========================
|
||||
; right key, to prev song
|
||||
|
||||
key_right:
|
||||
cmp #'D'
|
||||
bne done_key
|
||||
@ -239,6 +241,11 @@ key_right:
|
||||
done_key:
|
||||
jmp exit_interrupt
|
||||
|
||||
;========================
|
||||
; stop playing for now
|
||||
; quiet down the Mockingboard
|
||||
; (otherwise will be stuck on last note)
|
||||
|
||||
quiet_exit:
|
||||
sta DONE_PLAYING
|
||||
jsr clear_ay_both
|
||||
@ -261,4 +268,3 @@ exit_interrupt:
|
||||
; ???? cycles
|
||||
|
||||
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user