.title date .ident /840818/ .enabl lc .mcall .date .globl dates ; ; Returns the current system date in ascii form. ; ; Register usage: ; R0 scratch ; R1 return address ; date:: .date ;get system date mov (sp)+,r1 mov (sp),-(sp) ;move down string pointer mov r0,2(sp) ;slot in date word mov r1,-(sp) ;return address jmp dates ; .end