The BBC and Master Computer Public Domain Library

968E TIME$=

Submitted by Steve Fewell

Description:

Call &9B46: 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 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.

If the expression result (&27) is not 0 (String) then issue a 'Type mismatch' error as TIME$ must be set to a String
value.

Set A to #&0F (the OSWORD call number for the setting of the time-date string).
Set Y to &36 (the SWA Length byte), store this value in location &05FF (i.e. the first byte of the OSWORD parameter
block) - location &05FF shouldn't be used by any other BASIC storage.

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 &05FF (i.e. the length byte followed by the SWA).
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