1 /
\ eD A T E S U B R O U T I N E
4 / ORIGINAL RELEASE 22-MAY-74
7 / 1. NOW WE ADD 78 (0116) TO THE YEAR INSTEAD OF 1970 (03662)
22 JA #DATE-1 /ADDRESS OF PS8 DATE WORD
44 FLDA% DATADR /GET THE PS-8 DATE WORD
47 FSTA TEMP,0 /ZERO EXPONENT AND HIGH HALF OF MANTISSA
49 FLDA TEMP /GET IT BACK
50 ALN 1 /ISOLATE THE MONTH
52 LDX -4,2 /DAY SHIFT COUNT
53 FLDA TEMP /GET BACK THE DATE
54 ALN 2 /SHIFT MONTH BITS INTO
55 /HIGH HALF OF MANTISSA
58 FSTA TEMP,0 /ISOLATING DAY/YEAR BITS
59 FLDA TEMP /GET THEM BACK
60 LDX 7,2 /NOW ISOLATE DAY
62 ATX 2 /AND SAVE IT IN 2
63 FLDA TEMP /GET DAY/YEAR BITS
64 LDX -5,3 /PREPARE TO REMOVE DAY BITS
65 ALN 3 /BY SHIFTING THEM INTO HIGH HALF OF MANTISSA
68 FSTA TEMP,0 /ZERO DAY BITS
69 FLDA TEMP /RESTORE YEAR BITS
72 ATX 3 /PUT THEM INTO XR 3
73 STARTF /RE-ENTER F MODE
75 FSTA% MONTH /RETURN IN ARG
78 ADDX 116,3 /MAKE IT + 78