63 lines
849 B
ArmAsm
63 lines
849 B
ArmAsm
// #LAYOUT# STD * #TAKE
|
|
// #LAYOUT# M65 KERNAL_1 #TAKE
|
|
// #LAYOUT# * * #IGNORE
|
|
|
|
//
|
|
// Tape head alignemnt tool - draw helper symbols
|
|
//
|
|
|
|
|
|
#if CONFIG_TAPE_HEAD_ALIGN
|
|
|
|
|
|
tape_head_align_apply_gfx:
|
|
|
|
// Apply GFX effects
|
|
|
|
lda __ha_gfxflag
|
|
inc __ha_gfxflag
|
|
clc
|
|
adc #$08
|
|
and #%00001100
|
|
bne !+
|
|
ldy #%11110001
|
|
lda #%10001111
|
|
bne !++
|
|
!:
|
|
ldy #%00000001
|
|
lda #%10000000
|
|
!:
|
|
ora __ha_chart + 7 + 8 * 0
|
|
sta __ha_chart + 7 + 8 * 0
|
|
|
|
tya
|
|
ora __ha_chart + 7 + 8 * 31
|
|
sta __ha_chart + 7 + 8 * 31
|
|
|
|
// Draw helper lines
|
|
|
|
lda __ha_gfxflag
|
|
and #%00000010
|
|
beq !+
|
|
|
|
// For 'normal'
|
|
|
|
lda #%00000001
|
|
ora __ha_chart + 7 + 8 * 6
|
|
sta __ha_chart + 7 + 8 * 6
|
|
|
|
lda #%00000001
|
|
ora __ha_chart + 7 + 8 * 13
|
|
sta __ha_chart + 7 + 8 * 13
|
|
|
|
// For 'turbo'
|
|
|
|
lda #%00010000
|
|
ora __ha_chart + 7 + 8 * 21
|
|
sta __ha_chart + 7 + 8 * 21
|
|
!:
|
|
rts
|
|
|
|
|
|
#endif
|