mirror of
https://github.com/cc65/cc65.git
synced 2024-07-24 09:29:06 +00:00
56 lines
1.5 KiB
PHP
56 lines
1.5 KiB
PHP
; Shared timer for:
|
|
; sim65-timein.s
|
|
; sim65-timeout.s
|
|
|
|
; wait A * 100,000,000 cycles, plus small amount of overhead
|
|
wait100m:
|
|
tay
|
|
bne :+
|
|
rts ; return quickly if A=0
|
|
:
|
|
jsr wait50331648 ; 50331648
|
|
jsr wait25165824 ; 75497472
|
|
jsr wait12582912 ; 88080384
|
|
jsr wait6291456 ; 94371840
|
|
jsr wait3145728 ; 97517568
|
|
jsr wait1572864 ; 99090432
|
|
jsr wait786432 ; 99876864
|
|
jsr wait98304 ; 99975168
|
|
jsr wait24576 ; 99999744
|
|
jsr wait192 ; 99999936
|
|
jsr wait48 ; 99999984
|
|
nop ; 99999986
|
|
nop ; 99999988
|
|
php ; 99999991
|
|
plp ; 99999995
|
|
dey ; 99999997
|
|
bne :- ; 100000000
|
|
rts
|
|
; Note that this branch could cross a page if poorly aligned,
|
|
; adding an additional 1 cycle per loop.
|
|
; This precision is not important for the tests used.
|
|
|
|
wait50331648: jsr wait25165824
|
|
wait25165824: jsr wait12582912
|
|
wait12582912: jsr wait6291456
|
|
wait6291456: jsr wait3145728
|
|
wait3145728: jsr wait1572864
|
|
wait1572864: jsr wait786432
|
|
wait786432: jsr wait393216
|
|
wait393216: jsr wait196608
|
|
wait196608: jsr wait98304
|
|
wait98304: jsr wait49152
|
|
wait49152: jsr wait24576
|
|
wait24576: jsr wait12288
|
|
wait12288: jsr wait6144
|
|
wait6144: jsr wait3072
|
|
wait3072: jsr wait1536
|
|
wait1536: jsr wait768
|
|
wait768: jsr wait384
|
|
wait384: jsr wait192
|
|
wait192: jsr wait96
|
|
wait96: jsr wait48
|
|
wait48: jsr wait24
|
|
wait24: jsr wait12
|
|
wait12: rts
|