*  TDATE.CMD	12/12/82
*  ASHTION-TATE        written by joe stegman
*  load the time/date subprogram into memory and set the call address
SET call TO  41984
poke 41984,35,126,43,246,32,254,116,40,16,254,100,40,51,35,54,43,127
poke 42000,201,30,27,14,2,205,5,0,201,126,254,8,35,210,35,164,79
poke 42016,54,42,201,229,205,17,164,30,62,205,19,164,225,205,134,164,228
poke 42032,6,3,14,58,241,119,35,241,119,35,5,200,113,35,24,244,72
poke 42048,126,254,9,35,210,74,164,54,42,201,229,205,17,164,30,58,188
poke 42064,205,19,164,205,121,164,225,254,63,40,27,119,205,134,164,241,206
poke 42080,95,241,87,6,2,14,47,241,35,119,241,35,119,35,113,16,70
poke 42096,246,35,115,35,114,201,54,58,201,42,1,0,17,6,0,25,94
poke 42112,17,133,164,213,233,201,209,6,6,197,229,213,205,121,164,209,244
poke 42128,225,193,254,63,32,5,35,54,47,24,3,245,16,235,213,201,135
RETURN