Browse Source

Update Tune.asm

Default to .PT3 file extension if non given.
pull/62/head
b1ackmai1er 6 years ago
parent
commit
5940292bb6
  1. 13
      Source/Apps/Tune/Tune.asm

13
Source/Apps/Tune/Tune.asm

@ -184,7 +184,18 @@ NOSCG:
LD A,(FCB+1) ; Get first char of filename
CP ' ' ; Compare to blank
JP Z,ERRCMD ; If so, missing filename
LD A,(FCB+9) ; Extension char 1
LD A,(FCB+9) ; If the filetype
CP ' ' ; is blanks
JR NZ,HASEXT ; then assume
LD A,'P' ; type PT3.
LD (FCB+9),A
LD A,'T' ; Fill in
LD (FCB+10),A ; the file
LD A,'3' ; extension
LD (FCB+11),A ; and the
LD C,TYPPT3 ; file type
JR _SET
HASEXT LD A,(FCB+9) ; Extension char 1
CP 'P' ; Check for 'P'
JP NZ,CHKMYM ; If not, check for MYM extension
LD A,(FCB+10) ; Extension char 2

Loading…
Cancel
Save