The BBC and Master Computer Public Domain Library

9679 TIME=

Submitted by Steve Fewell

Description:

If the next character on the command or program line is '$' then call the TIME$ routine (&968E) to assign to TIME$
and not TIME.

Call &96B9: to check for '=' as the next non-space character at BASIC text pointer B location, (& generate 'Syntax error'
if another character was found instead); Get the result of the expression at BASIC text pointer B (and convert it to Integer);
and check that the BASIC statement finishes after the expression (with a '<cr>', ':' or 'ELSE-token' character.
'Syntax error' is generated if the end of the statement was not found.

Store zero in location &2E (the imaginary byte 5 (MSB) of the IWA value!), as the set TIME OSWORD call (OSWORD 2)
requires a 5-byte Integer value.
Set X (LSB) & Y (MSB) to point to the address of the start of the OSWORD parameter block that contains the new TIME
value. This parameter block is located at &002A (i.e. the IWA). The first byte at &002A is the LSB byte of the new
TIME value and the last byte (&002E) is the MSB byte of the new TIME value.
Set A to #&02, to indicate that we require the 'OSWORD 2' function.
Call OSWORD (&FFF1) to execute the Set TIME command and set the Operating System's Internal counter to the IWA value.

Lastly, jump to &9005 to start processing the next program statement.

Disassembly for the TIME= routine