 
 Т > Link/s v1.03 15-Feb-2000 DТ Link BASIC program by removing unused functions and procedures )Т v1.00 12-Sep-1999 JGH: Initial code (:Т v1.01 15-Feb-2000 JGH: Moved code to BASIC workspace 2>Т v1.02 16-Feb-2000 JGH: general tidying up and optimising <:Т v1.03 16-Feb-2000 JGH: Removes duplicate definitions F: PРassem:Ю Z: dщРabc:Рabc:Рable:А n: xщєxyz(z) ┌щєxy:=0 ▄: √щРable:Я"1":А ═щРable:Я"2":А ╙: ЄщРassem Ў$ver$="1.03 (16-Feb-2000)":ver%=3 х9lptr=&70:loff=&72:dptr=&73:doff=&75:dtmp=&76:otop=&78 р+lomem=&00:vartop=&02:top=&12:PageHi=&18 э$tknDEF=&DD:tknPROC=&F2:tknFN=&A4 Фosbyte=&FFF4 П: Зч mcode% &300:load%=&0500Ц P=0 ╦ 1:opt%=P*2+4P%=load%:O%=mcode%[OPT opt%"
.exec%,5JMP start:BRK:BRK:BRK        :\ Header identifies65EQUB &62 :EQUB copy-exec%    :\ this as 6502 code@0EQUB ver%:EQUS "Link"        :\ Program nameJ3EQUB &00 :EQUS ver$          :\ Program versionT	.copy^)EQUB &00:EQUS "(C)J.G.Harston":EQUB 0hEQUD load%r:|
.start├*TSX:LDY &102,X:INY:CPY #&F9:BCC NoTube░@LDA &103,X:STA &EE:STA &F2   :\ Restore caller's environment LDA &104,X:STA &EF:STA &F3є.NoTubeўCLDA #187                     :\ Check BASIC is current language╦.ChkBasicб'STX lptr:LDX #0:LDY #255:JSR osbyteл┌ #71:CMP #187:BNE ChkBasicж'TXA:┌ lptr:─ #63:BEQ RunningInBasicЮ(BRK:EQUB 249:EQUS "Not in BASIC":BRKЙ:Т.RunningInBasicЧ:7\ Everything prior to here can be used as workspace:\ Method:&\ Scan through program0\   If line starts щ then::0\     Scan from here looking for duplicate щD=\     If duplicate found, remove definition, jump to loopN0\     Scan through program looking for matchX/\     If match not found, remove definitionb\ Loop until end of programl:v.ScanProgram─DLDA top+0:STA otop+0:LDA top+1:STA otop+1 :\ Remember current ╦P┼LJSR GetPAGE                               :\ Point lptr to start of prog■.ScanLineNext·EJSR ScanForDEF:BCC ScanCheckDone :\ No щ found, check if finished╗:╡#\ щ found, look for a duplicate╪%\ -------------------------------ф.DefFindDuplicateп3JSR SkipSpaceLPTR                :\ Step past щзDJSR LPTRtoDPTR:STY doff          :\ Save pointer and offset of щД.DefFindLoopН7JSR AddLineLPTR                  :\ lptr=>next lineЬ:JSR ScanForDEF                   :\ Look for another щFBCC CheckIfCalled                :\ End of program, look for calls3JSR SkipSpaceLPTR                :\ Step past щ"\ (lptr),loff=>'Р/є' in search &\ (dptr),doff=>'Р/є' in definition*9JSR CompareID                    :\ Compare є/Р names4CBCS DefFindLoop                  :\ Doesn't match, keep looking>JBCC RemoveDEF                    :\ Duplicate щ found, remove this oneH:R.ScanCheckDone\GLDA top+0:CMP otop+0:BNE ScanProgram  :\ Keep looping until programfDLDA top+1:CMP otop+1:BNE ScanProgram  :\  not reducable any morepRTSz:└@\ Any duplicate щs removed, check if this is actually called▌B\ ------------------------------------------------------------≤G\ If we've got here, there must be at least one line in the program╒6\ So, we can omit the initial end-of-program check╛.CheckIfCalledІCJSR GetPAGE                      :\ Point lptr to start of progю.SearchLineй
LDY #3т.SearchForCallчMJSR SkipSpaceLPTR                :\ Find next non-space character of lineХMCMP #tknDEF:BEQ SearchSkipDEF    :\ If щ, skip it so doesn't match itselfР1CMP #tknFN:BEQ FoundCall         :\ Found a єЭ1CMP #tknPROC:BEQ FoundCall       :\ Found a Р5CMP #13:BNE SearchForCall        :\ Loop until CR9JSR AddLineLPTR:BNE SearchLine   :\ Jump to next lineBBEQ RemoveDEF                    :\ Not found, so remove the щ$.SearchSkipDEF.!JSR SkipSpaceLPTR:JSR ChkChar8?BCS SearchSkipDEF                :\ Skip to end of Р/є nameB>DEY:BCC SearchForCall            :\ Look for next Р/є callL:V.FoundCall`"\ (lptr),Y   =>'Р/є' in callerj&\ (dptr),doff=>'Р/є' in definitiont9JSR CompareID                    :\ Compare є/Р names~GBCS SearchForCall                :\ Names don't match, keep looking┬MJSR DPTRtoLPTR                   :\ Names match, point back to definition▓9JSR AddLineLPTR                  :\ Step to next line°?JMP ScanLineNext                 :\ Loop to check next lineі:╟"\ Remove unused or duplicate щ╨$\ ------------------------------д"\ (lptr),loff=>'Р/є' in callerн&\ (dptr),doff=>'Р/є' in definitionь.RemoveDEFБ0JSR DPTRtoLPTR                  :\ lptr=dptrЛ!LDA lptr+1:PHA:LDA lptr+0:PHAЖ8.FindNextDEF                    :\ Move to next line ;JSR AddLineLPTR:BEQ RemThisDEF  :\ Found end of program
BINY:INY:JSR SkipSpaceLPTR       :\ Get first character of line<CMP #tknDEF:BNE FindNextDEF     :\ Not a щ, keep looking:(.RemThisDEF2&\ (dptr)=>Start of this definition<&\ (lptr)=>Start of next definitionF
LDY #0PE.RemoveLine                     :\ Now chop out from lptr to dptrZ/JSR CopyChar:JSR CopyChar       :\ <cr><hi>d;CMP #&FF:BEQ RemoveEnd          :\ Found end of programn<JSR CopyChar:JSR CopyChar:PHA   :\ <lo><len>, save <len>x.RemoveText┌'JSR CopyChar:CMP #13:BNE RemoveText▄<PLA:PHA:JSR AddAtoLPTR          :\ Update source pointer√:PLA:CLC:ADC dptr+0:STA dptr+0   :\ Update dest pointer═ LDA #0:ADC dptr+1:STA dptr+1╙ABNE RemThisDEF                  :\ Loop to chop out next lineЄ:Ў.RemoveEndх>JSR DPTRtoLPTR                  :\ lptr=new end of programр6LDA #2:JSR AddAtoLPTR           :\ Point to new ╦Pэ0LDA lptr+0:STA top+0            :\ Update ╦PФLDA lptr+1:STA top+1ПCPLA:STA lptr+0:PLA:STA lptr+1   :\ Point back to щ just removedЗ9JMP ScanLineNext                :\ Scan again for a щ:.CopyChar%LDA (lptr),Y:STA (dptr),Y:INY:RTS":,?.GetPAGE       :LDA #0:STA lptr+0:LDA PageHi:STA lptr+1:RTS6C.LPTRtoDPTR    :LDA lptr+0:STA dptr+0:LDA lptr+1:STA dptr+1:RTS@C.DPTRtoLPTR    :LDA dptr+0:STA lptr+0:LDA dptr+1:STA lptr+1:RTSJD.SkipSpaceLPTR :INY:LDA (lptr),Y:CMP #≈" ":BEQ SkipSpaceLPTR:RTST'.AddLineLPTR   :LDY #3:LDA (lptr),Y^F.AddAtoLPTR    :CLC:ADC lptr:STA lptr:LDA #0:ADC lptr+1:STA lptr+1h4.ChkEndLPTR    :LDY #1:LDA (lptr),Y:CMP #&FF:RTSr:|'\ Look for a line starting with a щ├)\ -----------------------------------░.ScanForDEF 5JSR ChkEndLPTR:BEQ ScanDefEnd   :\ End of programє.ScanDefLineў<INY:INY                         :\ Step past line number╦6JSR SkipSpaceLPTR               :\ Skip any spacesб0CMP #tknDEF:BEQ ScanDefFound    :\ Found 'щ'л8JSR AddLineLPTR:BNE ScanDefLine :\ Jump to next lineж.ScanDefEndЮ8CLC                             :\ CC=end of programЙ.ScanDefFoundТ1RTS                             :\ CS=щ foundЧ:1\ Compare є/Р at lptr with definition at dptr5\ -----------------------------------------------"\ (lptr),Y   =>'Р/є' in search&&\ (dptr),doff=>'Р/є' in definition0.CompareID:STY loff:LDA doff:STA dtmpD.CompareIDlpN;LDY loff:INC loff:LDA (lptr),Y  :\ Get search characterX;JSR ChkChar:BCC MatchName       :\ Found non-valid charb<LDY dtmp:INC dtmp               :\ Get definition offsetl@CMP (dptr),Y:BEQ CompareIDlp    :\ Matching valid charactersv.FoundNoMatch─8LDY loff:SEC:RTS                :\ CS=no match found┼:■.MatchName·\ either - lptr-> Рname(╗'\          dptr-> Рname( - matching╡\ or     - lptr-> Рname(╪.\          dptr-> Рnamesomemore - no matchф:пELDY dtmp:LDA (dptr),Y           :\ Get final char in checked nameз@LDY loff                        :\ Fall through into ChkCharДJ                                :\ If invalid char, matches, return CCНI                                :\ If valid char, no match, return CSЬ:G.ChkChar                        :\ CC=Not valid char, CS=valid charCMP #tknFN:BEQ CharOkCMP #tknPROC:BEQ CharOk CMP #≈"z"+1:BCS CharNotOk*CMP #≈"_":BCS CharOk4CMP #≈"Z"+1:BCS CharNotOk>CMP #≈"A":BCS CharOkHCMP #≈"9"+1:BCS CharNotOkRCMP #≈"0":BCS CharOk\.CharNotOkfCLCp.CharOkzRTS└:▌]М≤>A$="*Save Link "+ц~mcode%+" "+ц~O%+" "+ц~exec%+" "+ц~load%╒Я"Saving: "A$:ЪA$╛АЪ