2 / VERSION 5A 4/28/77 PT
16 JA #DATE-1 /ADDRESS OF PS8 DATE WORD
49 FLDA% DATADR /GET THE PS-8 DATE WORD
52 FSTA TEMP,0 /ZERO EXPONENT AND HIGH HALF OF MANTISSA
54 FLDA TEMP /GET IT BACK
55 ALN 1 /ISOLATE THE MONTH
57 LDX -4,2 /DAY SHIFT COUNT
58 FLDA TEMP /GET BACK THE DATE
59 ALN 2 /SHIFT MONTH BITS INTO
60 /HIGH HALF OF MANTISSA
63 FSTA TEMP,0 /ISOLATING DAY/YEAR BITS
64 FLDA TEMP /GET THEM BACK
65 LDX 7,2 /NOW ISOLATE DAY
67 ATX 2 /AND SAVE IT IN 2
68 FLDA TEMP /GET DAY/YEAR BITS
69 LDX -5,3 /PREPARE TO REMOVE DAY BITS
70 ALN 3 /BY SHIFTING THEM INTO HIGH HALF OF MANTISSA
73 FSTA TEMP,0 /ZERO DAY BITS
74 FLDA TEMP /RESTORE YEAR BITS
77 ATX 3 /PUT THEM INTO XR 3
79 STARTF /RE-ENTER F MODE
81 FSTA% MONTH /RETURN IN ARG
84 ADDX 3662,3 /MAKE IT + 1970