100 REM SAVE"0:TIMER64.PAL",8
110 REM TIME MEASUREMENTS FROM
120 REM 1 MICROSECOND TO 70 MINUTES
130 REM BY ZOLTAN SZEPESI
140 REM 2611 SAYBROOK DRIVE
150 REM PITTSBURGH,PA 15235
160 :
170 OPEN 4,8,1,"0:TIMER64.OBJ"
180 SYS(700)
190 .OPT O4
200 *=$9F00
210 ;
220 TALO  =$DD04    ; TIMER A
230 TBLO  =$DD06    ; TIMER B
240 TCRA  =$DD0E    ; CONTROL REGISTER A
250 TCRB  =$DD0F    ; CONTROL REGISTER B
260 TIME1 =*+$41
270 TIME2 =*+$42
280 TIME3 =*+$43
290 TIME4 =*+$44
300 ;
310 START = *
320 LDA #$FF
330 STA TALO
340 STA TALO+1
350 STA TBLO
360 STA TBLO+1
370 LDA #$41
380 STA TCRB
390 LDA #1
400 STA TCRA
410 RTS
420 ;
430 .BYT $EA, $EA, $EA
440 .BYT $EA, $EA, $EA, $EA
450 ;
460 STOP = *
470 LDA #0
480 STA TCRA
490 STA TCRB
500 LDA TALO
510 STA TIME1
520 LDA TALO+1
530 STA TIME2
540 LDA TBLO
550 STA TIME3
560 LDA TBLO+1
570 STA TIME4
580 RTS
590 ;
600 .END