;============; ;RNG by 1024 ;============; RANDOM: PHX PHP SEP #$30 PHA JSL $01ACF9 PLX CPX #$FF BNE NORMALRT LDA $148B BRA ENDRANDOM NORMALRT: INX LDA $148B STA $4202 STX $4203 NOP #4 LDA $4217 ENDRANDOM: PLP PLX RTL ;========; ;USAGE ;========; LDA #$04 ; Number of random values to use - 1. JSL RANDOM TAX ; Transfer to X to use as an index LDA RAND,x ; A now has #$02, #$04, #$06, #$08 or #$10 (random value). RTL RAND: db $02,$04,$06,$08,$10