.title gdate ; ; returns current system date ; .dsabl gbl .globl dmyida .mcall gtim$s timbuf: .blkw 8. int: .word 0 r5arg: .word 4,timbuf+4,timbuf+2,timbuf,int ; put response in timbuf+6 .psect user$i gdate:: tst (r5)+ gtim$s #timbuf ; sub #72.,timbuf ; make it years since 1972, not 1900 mov r5,-(sp) mov #r5arg,r5 call dmyida ; get RT-11 style date mov (sp)+,r5 mov int,@(r5)+ ; and copy date return .end