- btst #CLK_INT,CLOCK_REG | check system clock-intr
- jeq Lnottimer
- movb #CLK_CLR,CLOCK_REG | clear system clock interrupt
- tstl _clock_on | clock not yet started
- jeq Lnottimer
- lea sp@(16),a1 | get pointer to PS
- movl a1@,sp@- | push padded PS
- movl a1@(4),sp@- | push PC
- jbsr _hardclock | call generic clock int routine
- addql #8,sp | pop params
+ lea sp@(16),a1 | a1 = &clockframe
+ btst #CLK_INT,CLOCK_REG | system-clock intrrupt?
+ jeq Lnottimer | no, skip hardclock
+ movb #CLK_CLR,CLOCK_REG | clear system-clock interrupt
+ tstl _clock_on | system-clock started?
+ jeq Lnottimer | no, skip hardclock
+ addql #1,_intrcnt+28 | count hardclock interrupt
+ movl a1@,sp@-
+ jbsr _hardclock | hardclock(&frame)
+ addql #4,sp