Trailing-Edge
-
PDP-10 Archives
-
steco_19840320_1er_E35
-
10,5676/teco/macros/date.tco
There is 1 other file named date.tco in the archive. Click here to see a list.
!;DATE -- Returns date in Q-reg 0 in the form DD-Mmm-YY !
[1 [2 [3 [4 [5 !;Save registers!
EOU5 3EO !;Save and set EO level!
.U4 !;Save pointer!
^O56,^O11^GU1 !;Get year!
^O57,^O11^GU2 !;Get month!
^O60,^O11^GU3 !;Get day!
ZJ .U0 !;Go to end of buffer, save pointer!
IJanFebMarAprMayJunJulAugSepOctNovDec$ !;Insert month abbrevs.!
Q0J Q2-1*3C .,.+3X2 Q0,ZK !;Store proper abbr in Q2!
Q3-10"L I0$' !;Put in leading 0 if needed!
Q3\ I-^G2-$ (Q1-1900)\ !;Insert rest of day, month, year!
Q0J .,ZX0 .,ZK !;Store string in Q0 and delete!
Q4J Q5EO !;Restore pointer, EO level!
]5 ]4 ]3 ]2 ]1 !;Restore registers!