.title getnow ;+ ; subroutine getnow(now) ; ; integer now(7) ;- ap=%5 now=2 .mcall gtim$s .psect $r.roi,con,ro,rel,lcl,i .enabl lsb getnow:: sub #16.,sp ; room for 8 words on stack mov sp,r0 ; address of buffer gtim$s r0 ; get current time parameters mov now(ap),r0 ; address of user's buffer mov (sp)+,r1 ; year since 1900 add #1900.,r1 ; complete it mov r1,(r0)+ ; give to user mov (sp)+,(r0)+ ; month mov (sp)+,(r0)+ ; day mov (sp)+,(r0)+ ; hour mov (sp)+,(r0)+ ; minute mov (sp)+,(r0)+ ; second cmp (sp)+,(sp)+ ; pop last two words off stack clr (r0) ; no milli-seconds return .end