another minor tape cleanup
This commit is contained in:
1 parent
f16aaf015a
commit
72884c2a52
4 files changed
+27
-21
No files matched your search
@@ -34,25 +34,6 @@ tape_break_error:
|
|||||||
jmp kernalerror_ROUTINE_TERMINATED
|
jmp kernalerror_ROUTINE_TERMINATED
|
||||||
|
|
||||||
|
|
||||||
//
|
|
||||||
// Handle tape deck motor
|
|
||||||
//
|
|
||||||
|
|
||||||
tape_motor_off:
|
|
||||||
|
|
||||||
lda CPU_R6510
|
|
||||||
ora #$20
|
|
||||||
bne !+ // branch always
|
|
||||||
|
|
||||||
tape_motor_on:
|
|
||||||
|
|
||||||
lda CPU_R6510
|
|
||||||
and #($FF - $20)
|
|
||||||
!:
|
|
||||||
sta CPU_R6510
|
|
||||||
rts
|
|
||||||
|
|
||||||
|
|
||||||
//
|
//
|
||||||
// Handle screen (visible/blanked) + tape deck motor (on/off),
|
// Handle screen (visible/blanked) + tape deck motor (on/off),
|
||||||
// store/restore screen color
|
// store/restore screen color
|
||||||
|
|||||||
@@ -0,0 +1,25 @@
|
|||||||
|
|
||||||
|
//
|
||||||
|
// Handle tape deck motor
|
||||||
|
//
|
||||||
|
|
||||||
|
|
||||||
|
#if CONFIG_TAPE_NORMAL || CONFIG_TAPE_TURBO
|
||||||
|
|
||||||
|
|
||||||
|
tape_motor_off:
|
||||||
|
|
||||||
|
lda CPU_R6510
|
||||||
|
ora #$20
|
||||||
|
bne !+ // branch always
|
||||||
|
|
||||||
|
tape_motor_on:
|
||||||
|
|
||||||
|
lda CPU_R6510
|
||||||
|
and #($FF - $20)
|
||||||
|
!:
|
||||||
|
sta CPU_R6510
|
||||||
|
rts
|
||||||
|
|
||||||
|
|
||||||
|
#endif
|
||||||
@@ -20,7 +20,7 @@ tape_normal_get_byte:
|
|||||||
// First we need a byte marker - (L,M)
|
// First we need a byte marker - (L,M)
|
||||||
!:
|
!:
|
||||||
jsr tape_normal_get_pulse
|
jsr tape_normal_get_pulse
|
||||||
cmp #($100 - $95 - $04)
|
cmp #($FF - $95 - $04)
|
||||||
bcs !- // too short for a long pulse
|
bcs !- // too short for a long pulse
|
||||||
jsr tape_normal_get_pulse
|
jsr tape_normal_get_pulse
|
||||||
bcs !- // too short for a medium pulse
|
bcs !- // too short for a medium pulse
|
||||||
|
|||||||
@@ -37,7 +37,7 @@ tape_normal_get_pulse:
|
|||||||
// this is total 17 cycles, or $4 periods of 4 ticks (timer A) each - we need to take it into account
|
// this is total 17 cycles, or $4 periods of 4 ticks (timer A) each - we need to take it into account
|
||||||
// every time we check the pulse length
|
// every time we check the pulse length
|
||||||
|
|
||||||
cmp #($100 - $6C - $04) // short vs medium is the default check
|
cmp #($FF - $6C - $04) // short vs medium is the default check
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
Reference in new issue
Block a user