mirror of
https://github.com/robmcmullen/fujirun.git
synced 2024-06-01 03:41:32 +00:00
65 lines
962 B
ArmAsm
65 lines
962 B
ArmAsm
|
|
||
|
|
; defines
|
||
|
|
|
||
|
|
rand_test ldx #0
|
||
|
|
?1 jsr get_rand_byte
|
||
|
|
sta $2000,x
|
||
|
|
inx
|
||
|
|
bne ?1
|
||
|
|
?2 jsr get_rand_spacing
|
||
|
|
sta $2100,x
|
||
|
|
inx
|
||
|
|
bne ?2
|
||
|
|
?3 jsr get_rand_col
|
||
|
|
sta $2200,x
|
||
|
|
inx
|
||
|
|
bne ?3
|
||
|
|
|
||
|
|
brk
|
||
|
|
|
||
|
|
|
||
|
|
randval8 .byte $ff
|
||
|
|
|
||
|
|
; return random.randint(3, 5)
|
||
|
|
;
|
||
|
|
; returns random value between 3 and 5 in A
|
||
|
|
get_rand_spacing nop
|
||
|
|
?1 lda randval8
|
||
|
|
asl
|
||
|
|
adc #$3b
|
||
|
|
eor #$3f
|
||
|
|
sta randval8
|
||
|
|
and #3
|
||
|
|
cmp #3
|
||
|
|
bcs ?1 ; loop till less than 3
|
||
|
|
clc
|
||
|
|
adc #3
|
||
|
|
rts
|
||
|
|
|
||
|
|
|
||
|
|
;# Random number between 0 and VPATH_NUM (exclusive) used for column starting
|
||
|
|
;# positions
|
||
|
|
;def get_rand_col():
|
||
|
|
; return random.randint(0, VPATH_NUM - 1)
|
||
|
|
get_rand_col nop
|
||
|
|
?1 lda randval8
|
||
|
|
asl
|
||
|
|
adc #$3b
|
||
|
|
eor #$3f
|
||
|
|
sta randval8
|
||
|
|
and #7
|
||
|
|
cmp #VPATH_NUM
|
||
|
|
bcs ?1 ; loop till less than VPATH_NUM
|
||
|
|
rts
|
||
|
|
|
||
|
|
|
||
|
|
; def get_rand_byte():
|
||
|
|
; return random.randint(0, 255)
|
||
|
|
get_rand_byte nop
|
||
|
|
lda randval8
|
||
|
|
asl
|
||
|
|
adc #$3b
|
||
|
|
eor #$3f
|
||
|
|
sta randval8
|
||
|
|
rts
|