40 lines
590 B
ArmAsm
40 lines
590 B
ArmAsm
#if ROM_LAYOUT_STD || (ROM_LAYOUT_M65 && SEGMENT_BASIC_0)
|
|
|
|
|
|
#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'
|
|
bne_16 do_SYNTAX_error
|
|
|
|
// 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
|
|
|
|
|
|
#endif // CONFIG_TAPE_WEDGE
|
|
|
|
|
|
#endif // ROM layout
|