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

Pulled in changes from https://github.com/badvision/lawless-legends/pull/32 that I deemed 99.9% safe and this requiring no testing.

Browse Source
This commit is contained in:
Martin Haye 2021-02-28 12:31:52 -08:00
parent 766e544c71
commit 634f1dbbd5
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Platform/Apple/virtual/src/core/mem.s
View File

@ -863,7 +863,7 @@ getHeapBlk:
bcs .done ; if so we're done
lda (pSrc),y
bmi .isobj
clv ; it's a stirng
clv ; it's a string
tax
.gotlen sta reqLen
.done rts
@ -2442,7 +2442,7 @@ adjYpTmp: !zone
doAllFixups: !zone
!if DEBUG >= 4 { +prStr : !text "Doing all fixups.",0 }
; Now scan aux mem for fixup segments
cli ; prevent interrupts while we mess around in aux mem
sei ; prevent interrupts while we mess around in aux mem
ldx #1 ; start at first aux mem segment (0=main mem, 1=aux)
.loop: lda tSegType,x ; grab flags & type
and #$F ; just type now
@ -2451,7 +2451,7 @@ doAllFixups: !zone
.next: lda tSegLink,x ; next in chain
tax ; to X reg index
bne .loop ; non-zero = not end of chain - loop again
sei ; allow interrupts again
cli ; allow interrupts again
lda #1
sta isAuxCmd
jmp coalesce ; really free up the fixup blocks by coalescing them into free mem
@ -2693,7 +2693,7 @@ advanceAnims: !zone {
lda #0
sta .ret1+1 ; clear count of animated resources found
sta .ret2+1 ; clear count of actual changes made
cli ; no interrupts while we read and write aux mem
sei ; no interrupts while we read and write aux mem
ldx isAuxCmd ; grab starting segment for main or aux mem
sta clrAuxRd,x ; read and
sta clrAuxWr,x ; write aux or main mem, depending on how called
@ -2733,7 +2733,7 @@ advanceAnims: !zone {
.ret2 ldy #0 ; return count of number we actually changed
sta clrAuxRd ; read and
sta clrAuxWr ; write main mem
sei ; allow interrupts again now that we're done with aux mem
cli ; allow interrupts again now that we're done with aux mem
rts
; Advance a single animated resource. On entry:

2
Platform/Apple/virtual/src/plasma/combat.pla
View File

@ -453,7 +453,7 @@ end
///////////////////////////////////////////////////////////////////////////////////////////////////
def minEnemyDist()#1
word p, anybodyAlive, minDist
word p, minDist
minDist = 9999
// Process each group