ノーマルモードのTimer0で実際に時間遅延を生成する

p.278
一定の時間が経過するたびにPB6の出力をトグルする。コードはほぼテキストのままである。クロックは内蔵の8 MHz、初期カウント値を0xF2にした結果、約4.8 usの時間遅延が生成された。

; スタックポインタの初期化マクロ
.MACRO INITSTACK
    LDI R20, HIGH(RAMEND)
    OUT SPH, R20
    LDI R20, LOW(RAMEND)
    OUT SPL, R20
.ENDMACRO

    ; スタックポインタを初期化して、
    INITSTACK

    ; PB6のIOをOUTにして、
    SBI DDRB, 6

    ; PB6からHを出力して、(トグルの初期値なのでLにしても同じ)
    LDI R17, 0b01000000
    OUT PORTB, R17
    
    ; PB6をトグルするためのマスクビットをセットして、
    LDI R16, 0b01000000

BEGIN:
    ; 待って、
    RCALL DELAY

    ; PB6の出力をトグルして、
    EOR R17, R16
    OUT PORTB, R17

    ; を無限に繰り返す。
    RJMP BEGIN

DELAY:
    ; Timer0の初期カウント値を設定して、
    LDI R20, 0xF2
    OUT TCNT0, R20

    ; Timer0をノーマルモードにして、 
    LDI R20, 0
    OUT TCCR0A, R20

    ; CS00ビット(ビット0)を1 (クロックを1分周)にしてTimer0でカウントをスタートする。
    LDI R20, 1
    OUT TCCR0B, R20

AGAIN:
    ; Timer0がオーバーフローするまでとどまって、(すなわちTOV0がセットされたら次の命令をスキップして、)
    ; Skip if Bit in I/O Register is Set
    SBIS TIFR0, TOV0
    RJMP AGAIN

    ; Timer0がオーバーフローしたらTimer0をストップして、
    LDI R20, 0
    OUT TCCR0B, R20

    ; Timer0のオーバーフローフラグ(ビット0)をクリアして、     
    LDI R20, 1
    OUT TIFR0, R20

    ; 遅延函数を抜ける。
    RET

f:id:ti-nspire:20200414084741p:plain