mirror of
https://github.com/Pecusx/scorch_src.git
synced 2026-05-21 14:49:40 +02:00
Randomize macro reverted to old version - no Nuclear Winter :)
This commit is contained in:
+1
-1
@@ -104,7 +104,7 @@
|
|||||||
sta :1+1
|
sta :1+1
|
||||||
.endm
|
.endm
|
||||||
;-------------------------------------
|
;-------------------------------------
|
||||||
.macro randomizer
|
.macro randomize
|
||||||
;usage: randomize floor ceiling
|
;usage: randomize floor ceiling
|
||||||
;returns (in A) a random .byte between "floor" and "ceiling"
|
;returns (in A) a random .byte between "floor" and "ceiling"
|
||||||
.if :2 < :1
|
.if :2 < :1
|
||||||
|
|||||||
+1
-1
@@ -103,7 +103,7 @@
|
|||||||
sta :1+1
|
sta :1+1
|
||||||
.endm
|
.endm
|
||||||
;-------------------------------------
|
;-------------------------------------
|
||||||
.macro randomizer
|
.macro randomize
|
||||||
;usage: randomize floor ceiling
|
;usage: randomize floor ceiling
|
||||||
;returns (in A) a random .byte between "floor" and "ceiling"
|
;returns (in A) a random .byte between "floor" and "ceiling"
|
||||||
.if :2 < :1
|
.if :2 < :1
|
||||||
|
|||||||
+4
-2
@@ -1813,7 +1813,9 @@ noingame
|
|||||||
bne @-
|
bne @-
|
||||||
rts
|
rts
|
||||||
.endp
|
.endp
|
||||||
;--------------------------------------------------
|
|
||||||
|
|
||||||
|
/* ;--------------------------------------------------
|
||||||
.macro randomize floor ceiling
|
.macro randomize floor ceiling
|
||||||
;--------------------------------------------------
|
;--------------------------------------------------
|
||||||
;usage: randomize floor ceiling
|
;usage: randomize floor ceiling
|
||||||
@@ -1857,7 +1859,7 @@ noingame
|
|||||||
pha
|
pha
|
||||||
tya ; retrieve the result
|
tya ; retrieve the result
|
||||||
rts
|
rts
|
||||||
.endp
|
.endp */
|
||||||
;----------------------------------------------
|
;----------------------------------------------
|
||||||
icl 'constants.asm'
|
icl 'constants.asm'
|
||||||
;----------------------------------------------
|
;----------------------------------------------
|
||||||
|
|||||||
BIN
Binary file not shown.
BIN
Binary file not shown.
Reference in New Issue
Block a user