.TITLE MARKTIME .PSECT .PROG. .IDENT /01/ .enabl lc ; ; Mark time. ; marktime(efn,magnitude,units); ; int efn,magnitude,units; ; .MCALL MRKT$S marktime:: clr r0 mov sp,r1 MRKT$S 2(r1),4(r1),6(r1) bcc 10$ mov @#$dsw,r0 10$: return .end