.TITLE mrkt .PSECT .PROG. .IDENT /wrg/ .enabl lc ; ; Mark time. ; mrkt(efn,magnitude,units,&hook); ; int efn,magnitude,units; ; struct mrkast hook; ; see [1,1]mrkast.h for detales on mrkast & use of hook ; .MCALL MRKT$S mrkt:: clr r0 mov sp,r1 MRKT$S 2(r1),4(r1),6(r1),10(r1) bcc 10$ mov @#$dsw,r0 10$: return .end