Apple-2-SW/lawless-legends
1
0
Fork 0
mirror of https://github.com/badvision/lawless-legends.git synced 2024-07-07 14:29:16 +00:00
Code Issues Projects Releases Wiki Activity

A few efficiency updates. Save a few bytes here and there.

Browse Source
This commit is contained in:
David Schmenk 2014-06-02 21:12:26 -07:00
parent a096d73ae5
commit 8aaecf1551
1 changed files with 23 additions and 52 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

75
PLASMA/src/cmd.pla
View File

@ -726,46 +726,6 @@ asm lookuptbl
STA DSTH
BNE -
end
def lookupdef(addr, deftbl)
while (deftbl).0 == $20
if (deftbl):3 == addr
return deftbl
fin
deftbl = deftbl + 5
loop
return 0
;asm lookupdef
; LDA ESTKL,X
; STA DSTL
; LDA ESTKH,X
; STA DSTH
; INX
;- LDY #$00
; LDA #$20
; AND (DST),Y
; BEQ ++
; LDY #$03
; LDA (DST),Y
; CMP ESTKL,X
; BNE +++
; INY
; LDA (DST),Y
; CMP ESTKH,X
; BNE ++
;+ LDA DSTL
; LDY DSTH
;++ STA ESTKL,X
; STY ESTKH,X
; RTS
;+++ LDA #$05
; CLC
; ADC DSTL
; STA DSTL
; LDA #$00
; ADC DSTH
; STA DSTH
; BNE -
end
;
; CHAR IN
; RDKEY()
@ -1003,16 +963,27 @@ def lookupextern(esd, index)
return 0
end
def adddef(bank, addr, deflast)
(*deflast).0 = $20
if bank == 0
(*deflast):1 = $03D6 ; JSR $03D6 (MAIN MEM INTERP)
word defentry
defentry = *deflast
*deflast = defentry + 5
if bank
(defentry):1 = $03DC ; JSR $03DC (AUX MEM INTERP)
else
(*deflast):1 = $03DC ; JSR $03DC (AUX MEM INTERP)
(defentry):1 = $03D6 ; JSR $03D6 (MAIN MEM INTERP)
fin
(*deflast):3 = addr
*deflast = *deflast + 5
(*deflast).0 = 0
return *deflast - 5
(defentry).0 = $20
(defentry):3 = addr
(defentry).5 = 0 ; NULL out next entry
return defentry
end
def lookupdef(addr, deftbl)
while (deftbl).0 == $20
if (deftbl):3 == addr
return deftbl
fin
deftbl = deftbl + 5
loop
return 0
end
def loadmod(mod)
word refnum, rdlen, modsize, bytecode, defofst, defcnt, init, fixup
@ -1021,7 +992,6 @@ def loadmod(mod)
word moddep, rld, esd, sym
byte defbank, str[16], filename[64]
byte header[128]
;
; Read the RELocatable module header (first 128 bytes)
;
@ -1088,14 +1058,15 @@ def loadmod(mod)
until rdlen <= 0
close(refnum)
;
; Apply all fixups and symbol import/export.
; Apply all fixups and symbol import/export.
;
modfix = modaddr - modfix
bytecode = defofst + modfix - MODADDR
modend = modaddr + modsize
rld = modend ; Re-Locatable Directory
esd = rld ; Extern+Entry Symbol Directory
while !^esd ; Scan to end of ESD
while ^esd ; Scan to end of ESD
esd = esd + 4
loop
esd = esd + 1
@ -1121,7 +1092,7 @@ def loadmod(mod)
adddef(defbank, (rld):1 - defofst + defaddr, @deflast)
else
addr = (rld):1 + modfix
if addr >= modaddr ; Skip fixups to header
if uword_isge(addr, modaddr) ; Skip fixups to header
if ^rld & $80 ; WORD sized fixup.
fixup = *addr
else ; BYTE sized fixup.