]> git.sur5r.net Git - cc65/blobdiff - libsrc/common/rand.s
Removed (pretty inconsistently used) tab chars from source code base.
[cc65] / libsrc / common / rand.s
index 0ed52aa8b6fd246d580d9c4b3976cfa1848890a7..48a88b7c413254b4ebe3b2d675c9470ab91d4b35 100644 (file)
 ;  detectable patterns.
 ;
 
-       .export         _rand, _srand
+        .export         _rand, _srand
 
 .data
 
 ; The seed. When srand() is not called, the C standard says that that rand()
 ; should behave as if srand() was called with an argument of 1 before.
-rand:          .dword   1
+rand:   .dword   1
 
 .code
 
-_rand: clc
-       lda     rand+0          ; SEED *= $01010101
-       adc     rand+1
-       sta     rand+1
-       adc     rand+2
-       sta     rand+2
-       adc     rand+3
-       sta     rand+3
-       clc
-       lda     rand+0          ; SEED += $31415927
-       adc     #$27
-       sta     rand+0
-       lda     rand+1
-       adc     #$59
-       sta     rand+1
-       pha
-       lda     rand+2
-       adc     #$41
-       sta     rand+2
-       and     #$7f            ; Suppress sign bit (make it positive)
-       tax
-       lda     rand+3
-       adc     #$31
-       sta     rand+3
-       pla                     ; return bit 8-22 in (X,A)
-       rts
+_rand:  clc
+        lda     rand+0          ; SEED *= $01010101
+        adc     rand+1
+        sta     rand+1
+        adc     rand+2
+        sta     rand+2
+        adc     rand+3
+        sta     rand+3
+        clc
+        lda     rand+0          ; SEED += $31415927
+        adc     #$27
+        sta     rand+0
+        lda     rand+1
+        adc     #$59
+        sta     rand+1
+        pha
+        lda     rand+2
+        adc     #$41
+        sta     rand+2
+        and     #$7f            ; Suppress sign bit (make it positive)
+        tax
+        lda     rand+3
+        adc     #$31
+        sta     rand+3
+        pla                     ; return bit 8-22 in (X,A)
+        rts
 
-_srand:        sta     rand+0          ; Store the seed
-       stx     rand+1
-       lda     #0
-       sta     rand+2          ; Set MSW to zero
-       sta     rand+3
-       rts
+_srand: sta     rand+0          ; Store the seed
+        stx     rand+1
+        lda     #0
+        sta     rand+2          ; Set MSW to zero
+        sta     rand+3
+        rts