; immediate or anything else.
; this routine will return an location-number
; this number must be less than *assem-max-locations*
; immediate or anything else.
; this routine will return an location-number
; this number must be less than *assem-max-locations*