Lines Matching refs:spr

89   (name h-spr) (comment "special purpose registers")
96 (define-pmacro spr-shift 11)
97 (define-pmacro (spr-address spr-group spr-index)
98   (or (sll UWI (enum UWI (.sym "SPR-GROUP-" spr-group)) spr-shift)
99       (enum UWI (.sym "SPR-INDEX-" spr-group "-" spr-index))))
106   (get (index) (reg UWI h-spr (add index (spr-address SYS GPR0))))
107   (set (index newval) (set UWI (reg UWI h-spr (add index (spr-address SYS GPR0))) newval))
137   spr-groups
156 (define-pmacro (spr-reg-info)
191   spr-reg-indices
200         (spr-reg-info)
204 (define-pmacro (define-h-spr-reg spr-group spr-index n spr-comment)
206     (name (.sym "h-" (.downcase spr-group) "-" (.downcase spr-index)))
207     (comment spr-comment)
210     (get ()       (reg UWI h-spr (spr-address spr-group spr-index)))
211     (set (newval) (set (reg UWI h-spr (spr-address spr-group spr-index)) newval))
214 (.splice begin (.unsplice (.map (.pmacro (args) (.apply define-h-spr-reg args)) (spr-reg-info))))
216 (define-pmacro (spr-field-info)
273   spr-field-msbs
284         (spr-field-info)
289   spr-field-lsbs
300         (spr-field-info)
305   spr-field-masks
316         (spr-field-info)
320 (define-pmacro (define-h-spr-field spr-group spr-index spr-field spr-field-msb spr-field-lsb spr-fi…
321 …(.let ((spr-field-name (.sym "h-" (.downcase spr-group) "-" (.downcase spr-index) "-" (.downcase s…
325             (name spr-field-name)
326             (comment spr-field-comment)
329 … ()      (c-call UWI  "@cpu@_h_spr_field_get_raw" (spr-address spr-group spr-index) spr-field-msb …
330 … (value) (c-call VOID "@cpu@_h_spr_field_set_raw" (spr-address spr-group spr-index) spr-field-msb …
335 (.splice begin (.unsplice (.map (.pmacro (args) (.apply define-h-spr-field args)) (spr-field-info))…