60 lines
829 B
ArmAsm
60 lines
829 B
ArmAsm
// #LAYOUT# STD * #TAKE
|
|
// #LAYOUT# * BASIC_0 #TAKE
|
|
// #LAYOUT# * * #IGNORE
|
|
|
|
|
|
#if CONFIG_TAPE_WEDGE
|
|
|
|
|
|
// .X has to contain size of the buffer
|
|
|
|
wedge_tape:
|
|
|
|
lda #$FF
|
|
sta CURLIN+1 // in case of error do not print line number
|
|
|
|
cpx #$02
|
|
bne_16 do_SYNTAX_error
|
|
|
|
lda BUF+1
|
|
|
|
cmp #$4C // 'L'
|
|
beq wedge_arrow_L
|
|
|
|
#if CONFIG_TAPE_HEAD_ALIGN
|
|
|
|
cmp #$48 // 'H'
|
|
beq wedge_arrow_H
|
|
|
|
#endif
|
|
|
|
jmp do_SYNTAX_error
|
|
|
|
wedge_arrow_L:
|
|
|
|
// Execute 'arrow + L'
|
|
|
|
lda #$00
|
|
sta FNLEN
|
|
|
|
ldy #$01
|
|
ldx #$07 // turbo tape device
|
|
jsr JSETFLS
|
|
|
|
ldy TXTTAB+1
|
|
ldx TXTTAB+0
|
|
|
|
jmp cmd_load_got_secondaryaddress
|
|
|
|
#if CONFIG_TAPE_HEAD_ALIGN
|
|
|
|
wedge_arrow_H:
|
|
|
|
jsr tape_head_align
|
|
jmp basic_main_loop
|
|
|
|
#endif
|
|
|
|
|
|
#endif // CONFIG_TAPE_WEDGE
|