; A few utility constants .
sh0 = immi 0
sh1 = immi 1
sh2 = immi 2
sh3 = immi 3
sh4 = immi 4
sh5 = immi 5
sh6 = immi 6
sh7 = immi 7
sh8 = immi 8

i0 = immi 0
i1 = immi 1
i2 = immi -1

; ----------------------------------------------------------------------------
; Combinations of 'lti'.
lt0 = lti i0 i0 ; 0
lt1 = lti i0 i1 ; 1
lt2 = lti i0 i2 ; 0
lt3 = lti i1 i0 ; 0
lt4 = lti i1 i1 ; 0
lt5 = lti i1 i2 ; 0
lt6 = lti i2 i0 ; 1
lt7 = lti i2 i1 ; 1
lt8 = lti i2 i2 ; 0

; Aggregate the results.
lt0sh = lshi lt0 sh0
lt1sh = lshi lt1 sh1
lt2sh = lshi lt2 sh2
lt3sh = lshi lt3 sh3
lt4sh = lshi lt4 sh4
lt5sh = lshi lt5 sh5
lt6sh = lshi lt6 sh6
lt7sh = lshi lt7 sh7
lt8sh = lshi lt8 sh8

lt0_1 = ori lt0sh lt1sh
lt2_3 = ori lt2sh lt3sh
lt4_5 = ori lt4sh lt5sh
lt6_7 = ori lt6sh lt7sh

lt0_3 = ori lt0_1 lt2_3
lt4_7 = ori lt4_5 lt6_7

lt0_7 = ori lt0_3 lt4_7

lt = ori lt0_7 lt8sh

; The result should be {0000,1100,0010}, 0x0c2, or 194.

reti lt