Apple-2gs-SW/Linker
1
0
Fork 0
mirror of https://github.com/byteworksinc/Linker.git synced 2024-11-22 05:31:02 +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 FindSuffix private
using SegCommon using SegCommon
lda #'A' set the initial suffix lda #'a' set the initial suffix
sta lsuffix sta lsuffix
lb1 lda lsuffix try it out lb1 lda lsuffix try it out
sta suffix sta suffix
@ -174,7 +174,7 @@ lb1 lda lsuffix try it out
bra lb1 bra lb1
lb2 lda lsuffix use the last one - it worked (or did 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 sta suffix
rts rts
@ -304,8 +304,8 @@ InitPass start
KeepName private KeepName private
using SegCommon using SegCommon
lda suffix if suffix = 'A'-1 then lda suffix if suffix = 'a'-1 then
cmp #'A'-1 cmp #'a'-1
bne kn0 bne kn0
clc return false clc return false
rts 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: * inputs:
* basename - base file name * basename - base file name
* *
* outputs: * outputs:
* ckname - current keep file name * 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 * kltr - suffix letter for the main obj file
* *
**************************************************************** ****************************************************************
@ -1101,5 +1101,5 @@ kn1 lda root,X
long M long M
rts rts
root dc c'.ROOT' root dc c'.root'
end end