TITLE DTE REAL RESULT OF DATE IN FORM MMDDYY. ENTRY DTE INTERN DTE P=17 DTE: Z PUSH P,1 PUSH P,2 CALL [SIXBIT/DATE/] IDIVI ^D372 IDIVI 1,^D31 ;MONTH-1 IN 1,DAY-1 IN 2 IMULI 1,^D10000 IMULI 2,^D100 ADD 0,1 ADD 0,2 ADDI 0,^D10164 ;RAPACK AS MMDDYY FSC 0,233 ;FLOAT POP P,2 POP P,1 JRA 16,1(16) END