426def sm86SpecialRegisterNatural =
427 (lambda unrestricted special : (family SM86SpecialRegister) .
428 (eliminate
429 SM86SpecialRegister
430 (lambda unrestricted current : (family SM86SpecialRegister) . Nat)
431 special
432 (branch SM86CooperativeThreadArrayIdX . (byte-to-nat (byte 37)))
433 (branch SM86CooperativeThreadArrayIdY . (byte-to-nat (byte 38)))
434 (branch SM86CooperativeThreadArrayIdZ . (byte-to-nat (byte 39)))
435 (branch SM86ThreadIdX . (byte-to-nat (byte 33)))
436 (branch SM86ClockLow . (byte-to-nat (byte 80)))
437 (branch SM86GlobalTimerLow . (byte-to-nat (byte 82)))
438 (branch SM86GlobalTimerHigh . (byte-to-nat (byte 83)))))The compiler supplied declaration spans and resolved links from this source snapshot. This page does not assert that this file belongs to a checked closure.