/ / get date & time in bin / .globl rtime,__csav,__cret / / Usage / / rtime(buffer); / struct TIME { / int year; /* G.TIYR year - 1900 */ / int month; /* G.TIMO Jan. = 1 */ / int day; /* G.TIDA */ / int hour; /* G.TIHR 00 .. 23 */ / int minute; /* G.TIMI 00 .. 59 */ / int second; /* G.TISC 00 .. 59 */ / int tick; /* G.TICT 00 .. tsec-1 */ / int tsec; /* G.TICP tick/second */ / } buffer; / / Description / / Stores the current time of day in the buffer. The format / is compatible with the RSX11-M GTIM$ executive service. / / Bugs / / rtime: jsr r0,__csav mov 12(r5),-(sp) mov (pc)+,-(sp) .byte 61.,2 /GTIM$ emt 377 bcs 0f clr r0 br 1f 0: mov $-1,r0 / Error return 1: jmp __cret