.title pval .ident /850720/ .mcall .pval .globl v.area ; ; procedure pval(offset,value:integer); ; ; Value undefined if offset too large ; .psect pval:: .pval #v.area,4(sp),2(sp) ;do it mov (sp)+,(sp) mov (sp)+,(sp) return .end