.title puts .mcall fdof$l,put$ fdof$l ; define fdb offsets locally fdb=2 buf=4 cnt=6 ap=%5 puts:: ; entry point put$ @fdb(ap),buf(ap),@cnt(ap) return .end