Apple-2-SW/lawless-legends
1
0
Fork 0
mirror of https://github.com/badvision/lawless-legends.git synced 2024-11-20 05:35:51 +00:00
Code Issues Projects Releases Wiki Activity

Needed ability to free same block more than once.

Browse Source
This commit is contained in:
Martin Haye 2015-02-03 09:15:38 -08:00
parent 508caddcdb
commit 6ee15e1d9a
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -768,13 +768,16 @@ coalesce: !zone
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
shared_scan: !zone shared_scan: !zone
php ; save carry (set to check active flg, clr to skip check)
sta isAuxCmd ; save whether main or aux mem sta isAuxCmd ; save whether main or aux mem
jsr scanForAddr ; scan for block that matches jsr scanForAddr ; scan for block that matches
beq invalAddr ; if not found, invalid beq invalAddr ; if not found, invalid
bcs invalAddr ; if addr not exactly equal, invalid bcs invalAddr ; if addr not exactly equal, invalid
plp
lda tSegType,x ; get existing flags lda tSegType,x ; get existing flags
bcc + ; optionally, skip check of active flag
bpl invalAddr ; must be an active block bpl invalAddr ; must be an active block
rts + rts
invalAddr: !zone invalAddr: !zone
ldx #<+ ldx #<+
@ -810,6 +813,7 @@ main_lock: !zone
aux_lock: aux_lock:
lda #1 ; index for aux-mem request lda #1 ; index for aux-mem request
shared_lock: shared_lock:
sec ; do check active flag in scan
jsr shared_scan ; scan for exact memory block jsr shared_scan ; scan for exact memory block
ora #$40 ; set the 'locked' flag ora #$40 ; set the 'locked' flag
sta tSegType,x ; store flags back sta tSegType,x ; store flags back
@ -826,6 +830,7 @@ main_unlock: !zone
aux_unlock: aux_unlock:
lda #1 ; index for aux-mem request lda #1 ; index for aux-mem request
shared_unlock: shared_unlock:
sec ; do check active flag in scan
jsr shared_scan ; scan for exact memory block jsr shared_scan ; scan for exact memory block
and #$BF ; mask off the 'locked' flag and #$BF ; mask off the 'locked' flag
sta tSegType,x ; store flags back sta tSegType,x ; store flags back
@ -842,6 +847,7 @@ main_free: !zone
aux_free: aux_free:
lda #1 ; index for aux-mem request lda #1 ; index for aux-mem request
shared_free: shared_free:
clc ; do not check for active flg (ok to multiple free)
jsr shared_scan ; scan for exact memory block jsr shared_scan ; scan for exact memory block
and #$3F ; remove the 'active' and 'locked' flags and #$3F ; remove the 'active' and 'locked' flags
sta tSegType,x ; store flags back sta tSegType,x ; store flags back