Apple-2gs-SW/Linker
1
0
Fork 0
mirror of https://github.com/byteworksinc/Linker.git synced 2024-11-21 13:31:57 +00:00
Code Issues Projects Releases Wiki Activity

Merge pull request #4 from ksherlock/ci-update

Browse Source 
use lowercase extensions (.root, .a, etc)
This commit is contained in:
MikeW50 2018-03-25 15:35:09 -06:00 committed by GitHub
commit 2cdbebe6e6
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
seg.asm
View File

@ -161,7 +161,7 @@ giFiletype ds 2
FindSuffix private
using SegCommon
lda #'A' set the initial suffix
lda #'a' set the initial suffix
sta lsuffix
lb1 lda lsuffix try it out
sta suffix
@ -174,7 +174,7 @@ lb1 lda lsuffix try it out
bra lb1
lb2 lda lsuffix use the last one - it worked (or did
dec A not exist, as in 'A'-1)
dec A not exist, as in 'a'-1)
sta suffix
rts
@ -304,8 +304,8 @@ InitPass start
KeepName private
using SegCommon
lda suffix if suffix = 'A'-1 then
cmp #'A'-1
lda suffix if suffix = 'a'-1 then
cmp #'a'-1
bne kn0
clc return false
rts
@ -1053,14 +1053,14 @@ blankSeg dc 10c' ' default load segment name
****************************************************************
*
* RootName - Append .ROOT to file name
* RootName - Append .root to file name
*
* inputs:
* basename - base file name
*
* outputs:
* ckname - current keep file name
* tkname - .ROOT appended to contents of kname
* tkname - .root appended to contents of kname
* kltr - suffix letter for the main obj file
*
****************************************************************
@ -1101,5 +1101,5 @@ kn1 lda root,X
long M
rts
root dc c'.ROOT'
root dc c'.root'
end