PTO-ARCH-SYSTEM-REGISTERS-INTERRUPT

1// PTO-UNIT: {"id":"PTO-ARCH-SYSTEM-REGISTERS-INTERRUPT","surface":"arch","classification":["system-registers","interrupt"],"depends_on":["PTO-ARCH-SYSTEM-REGISTERS-TIMER"]}2func RefreshTopPendingInterrupt(ring: AccessControlRing)3begin4    let pending = _ExtendedSystemRegisters[[5        ContextRegisterIndex(ring, 0x0f08)]];6    var found = FALSE;7    var top: InterruptID = 0;8    for interrupt_id = 0 to 63 do9        if !found && pending[interrupt_id] == '1' then10            top = interrupt_id as InterruptID;11            found = TRUE;12        end;13    end;14    _ExtendedSystemRegisters[[ContextRegisterIndex(ring, 0x0f09)]] =15        NaturalToWord(top as integer {0..262144});16end;17
18func SetInterruptPending(ring: AccessControlRing,19                         interrupt_id: InterruptID)20begin21    let index = ContextRegisterIndex(ring, 0x0f08);22    _ExtendedSystemRegisters[[index]][interrupt_id] = '1';23    RefreshTopPendingInterrupt(ring);24end;25
26func ClearInterruptPending(ring: AccessControlRing,27                           interrupt_id: InterruptID)28begin29    let index = ContextRegisterIndex(ring, 0x0f08);30    _ExtendedSystemRegisters[[index]][interrupt_id] = '0';31    RefreshTopPendingInterrupt(ring);32end;33
34readonly func InterruptEnabled(ring: AccessControlRing,35                               interrupt_id: InterruptID) => boolean36begin37    let interrupt_config = _ExtendedSystemRegisters[[38        ContextRegisterIndex(ring, 0x0f07)]];39    if interrupt_id == TimerInterruptId(ring) then40        return interrupt_config[1] == '1';41    else return interrupt_config[0] == '1';42    end;43end;44
45func ReadInterruptPending(ring: AccessControlRing) => Word46begin47    RefreshTimerPending(ring);48    return _ExtendedSystemRegisters[[ContextRegisterIndex(ring, 0x0f08)]];49end;50
51func ReadTopPendingInterrupt(ring: AccessControlRing) => Word52begin53    RefreshTimerPending(ring);54    return _ExtendedSystemRegisters[[ContextRegisterIndex(ring, 0x0f09)]];55end;56
57func EndOfInterrupt(ring: AccessControlRing, value: Word)58begin59    if value[63:6] == Zeros{58} then60        ClearInterruptPending(ring, UInt(value[5:0]) as InterruptID);61    end;62    _ACRTrapAsynchronous[[ring]] = FALSE;63    _ACRTrapArgumentValid[[ring]] = FALSE;64end;65