100 REM TEST PROGRAM FOR X16-ROM ISSUE #167
110 REM FOR FIX BY JEREMY DILATUSH
120 REM 29 SEP 2021
130 REM THEORY OF OPERATION:
140 REM PERFORM OPERATIONS A LOT (IN VERY SIMPLE WAYS) TO SEE
150 REM HOW LONG THEY TAKE WITH AND WITHOUT THE FIX.
190 :
200 PRINT"100,000 VPOKE"
210 T1=TI
220 FORI=0TO9999
230 VPOKE0,0,0
231 VPOKE0,0,0
232 VPOKE0,0,0
233 VPOKE0,0,0
234 VPOKE0,0,0
235 VPOKE0,0,0
236 VPOKE0,0,0
237 VPOKE0,0,0
238 VPOKE0,0,0
239 VPOKE0,0,0
240 NEXT
250 T2=TI
260 T=T2-T1
270 PRINTT;"JIFFIES ELAPSED -- ";T/60;" SEC"
390 :
400 PRINT"100,000 VPEEK"
410 T1=TI
420 FORI=0TO9999
430 A=VPEEK(0,0)
431 A=VPEEK(0,0)
432 A=VPEEK(0,0)
433 A=VPEEK(0,0)
434 A=VPEEK(0,0)
435 A=VPEEK(0,0)
436 A=VPEEK(0,0)
437 A=VPEEK(0,0)
438 A=VPEEK(0,0)
439 A=VPEEK(0,0)
440 NEXT
450 T2=TI
460 PRINTT;"JIFFIES ELAPSED -- ";T/60;" SEC"
490 :
