続行が許可されているかどうかを検出するためにスワップと比較の両方が必要なため、別の方法は考えられません。compare-and-swap コマンドがない場合は、次のようなループ スワップと比較を使用して実装する必要があります。
; Emulate atomic add/sub with atomic swap.
; On entry:
; r0 contains address of variable
; r1 contains value to add or subtract.
mutex: defw 0 ; mutual exclusion semaphore (0=free, 1=busy).
chng: push r2 ; save variables.
ld r2,1 ; claiming value.
spin: swap r2,(mutex) ; atomic swap (sounds like a good name for a band).
bnz spin ; loop until you have it.
add (r0),r1 ; emulated atomic change.
swap r2,(mutex) ; free mutex for everyone else.
pop r2 ; restore registers.
ret
コードの多くの場所でそれを行っている場合にのみ、本当に不格好です。「不格好な」コードを (上記のように) 関数に分離すると、多くのコード セグメントがはるかに単純なように見えるため、非常に不格好になることがよくあります。
myvar: defw 0
: : : : :
ld r0,myvar
ld r1,1 ; increment
call chng
または、コードをさらに単純にしたい場合は、別のincr
anddecr
関数を提供します。
; Emulate atomic incr/decr with emulated atomic change.
; On entry:
; r0 contains address of variable
incr: push r1 ; save registers.
ld r1,1 ; increment.
call chng ; do it.
pop r1 ; restore registers.
ret
decr: push r1 ; save registers.
ld r1,-1 ; decrement.
call chng ; do it.
pop r1 ; restore registers.
ret
次に、コード シーケンスは次のようになります。
ld r0,myvar
call incr
または、マクロを実行できる場合は、さらに簡単です。
atincr: defm ; do this once to define macro
ld r0,&1
call incr
endm
atincr myvar ; do this in your code, as much as you like.