pt3: clean up comments in the interrupt handler

This commit is contained in:
Vince Weaver 2019-05-17 12:29:28 -04:00
parent 55137b5a73
commit 770fe2bf25

View File

@ -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