Browse Source
Merge pull request #62 from b1ackmai1er/master
Tune defaults to .PT3 file type if none given
pull/80/head
Wayne Warthen
6 years ago
committed by
GitHub
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with
12 additions and
1 deletions
-
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 |
|
|
|
|
