View source for ROM Addresses: Getting BASIC to do What You Want

How does BASIC do what you tell it to do? Clues to the language's subservience lie in ROM.

'''<big>By JAKE COMMANDER<br/>Portable l00 September 1983, pg. 24</big>'''

How on earth does Basic know what to do? All those statements, commands, and functions, yet the interpreter untiringly plods   through   your   code   always knowing what's required next. Just how does it do it?

Well, if the answer were simple, everybody would be writing BASIC interpreters and putting Microsoft out of business. But it is possible to follow at least some of the pathways Basic uses to perform its duties.

Most addresses of the ROM routines which comprise BASIC are held in two tables. These can be unraveled to give a list of routines used to perform various tasks.

== Jump Addresses ==

One table contains jump addresses for the commands (or verbs, as it were) which will always be the first thing the interpreter picks up from a statement. The whole repertoire of such commands is catered for the table located at 0262 hex.

BASIC gets the appropriate jump address by using the token number for the command it's about to execute. All tokens are numbers from 128 to 255; therefore subtracting 128 gives numbers from zero to 127. As each jump address in the table is two bytes long, the token (minus 128) is multiplied by two to give an offset into the table. This points straight at the address which is needed. The two-byte address is picked up and jumped to ? and we're now executing a BASIC command in pure machine code.

What happens next depends entirely on the machine code for the  command itself. Various syntaxes are allowed for some commands but not for others. For instance, the print command would allow an expression such as <code>TAB(22);l/3</code>, so would an <code>LPRINT</code>. But a <code>LET</code> would have none of that. <code>LET X = TAB(22); 1/3</code> would have you on the carpet in no time.

Also various combinations of tokens can do different things. The comparison operators, for example, can be used pretty much interchangeably. These operators, >? <> = < , etc are all OK syntactically. This versatility means a table for such a wide set of possibilities is nigh impossible.

== Second Table ==

However, there is a second table at location 004E in the ROM. This contains many addresses used in the evaluation of Basic math functions and expressions. These are extracted and jumped to in a similar fashion to the first table.

Any BASIC word excluded from either of these tables is handled separately by the interpreter according to its particular use. However, out of a possible 128 tokens, these two tables give us a mechanism by which we can follow the machine-code execution of many of them. It is the combination of these routines and the syntax checking required to logically execute them that makes up an interpreter.

The following list has been compiled from the two tables I've described and a disassembly of other parts of the ROM. It shows the entry points for all important BASIC statements and functions. Certain functions can have more than one possible syntactic use and the list does not cover all such uses. (An example is the statement <code>OFF</code>, which can be <code>SOUND OFF</code> or <code>MOTOR OFF</code> etc.) The list is in four columns. The first is the address in ROM where the BASIC word occurs in the vocabulary table. The second entry is the word itself. Third is the token assigned to that word when it is encoded by the BASIC interpreter.

== Fourth Column ==

The fourth column contains the address the interpreter jumps to to execute the token representing the statement or function desired. Once again, some statements can have more than one use such as <code>MID$(LH$)=RH$</code>, and <code>LH$=MID$(RH$)</code>. In these cases, two addresses are given: one for use on the left hand side of the equals sign and one for the right hand side of the sign.

Perhaps unsurprisingly, things get a little more complicated with the mathematical functions in BASIC. It's not simply a matter of taking an address for, say, a multiply routine and then jumping to it. The BASIC interpreter has to know the numeric type of operator it has to work on. For instance, with the addition operator, BASIC has four choices:

# Signed integer
# Single precision
# Double precision
# String

None of the other binary operators allow string manipulation, so they're limited to the numeric variable types only.

The addresses of these binary operators can be confirmed (if you need confirmation) from three short tables in ROM, one each for double precision, single precision, and integer numbers respectively. 

The tables contain six addresses apiece for addition, subtraction, multiplication, division, exponentiation, and comparison. Rather than clutter the token-addresses table, these addresses are contained separately at the end.

In a following article, I'll be looking at ways to use some of these addresses in your own machine-code programs. For the more adventurous, an experiment will probably prove irresistible. Remember, though, in a RAM-file machine such as the Model 100, a lock-up may cost you all your files. Use caution.

== Jake's ROM Addresses For BASIC Keywords ==

<table border="1">
<tr><td>0080</td><td>END</td><td>80</td><td>409F</td></tr>
<tr><td>0083</td><td>FOR</td><td>81</td><td>0726</td></tr>
<tr><td>0086</td><td>NEXT</td><td>82</td><td>4174</td></tr>
<tr><td>008A</td><td>DATA</td><td>83</td><td>099E</td></tr>
<tr><td>008E</td><td>INPUT</td><td>84</td><td>0CA3</td></tr>
<tr><td>0093</td><td>DIM</td><td>85</td><td>478B</td></tr>
<tr><td>0096</td><td>READ</td><td>86</td><td>OCD9</td></tr>
<tr><td>009A</td><td>LET</td><td>87</td><td>09C3</td></tr>
<tr><td>009D</td><td>GOTO</td><td>88</td><td>0936</td></tr>
<tr><td>OOA1</td><td>RUN</td><td>89</td><td>090F</td></tr>
<tr><td>OOA4</td><td>IF</td><td>8A</td><td>OB1A</td></tr>
<tr><td>OOA6</td><td>RESTORE</td><td>8B</td><td>407F</td></tr>
<tr><td>00AD</td><td>GOSUB</td><td>8C</td><td>091E</td></tr>
<tr><td>0082</td><td>RETURN</td><td>8D</td><td>0966</td></tr>
<tr><td>OOB8</td><td>REM</td><td>8E</td><td>09AO</td></tr>
<tr><td>OOBB</td><td>STOP</td><td>8F</td><td>409A</td></tr>
<tr><td>OOBF</td><td>WIDTH</td><td>9D</td><td>1DC3</td></tr>
<tr><td>OOC4</td><td>ELSE</td><td>91</td><td>09AO</td></tr>
<tr><td>OOC8</td><td>LINE</td><td>92</td><td>OC45</td></tr>
<tr><td>OOCC</td><td>EDIT</td><td>93</td><td>5E51</td></tr>
<tr><td>OODO</td><td>ERROR</td><td>94</td><td>OBOF</td></tr>
<tr><td>00D5</td><td>RESUME</td><td>95</td><td>OABO</td></tr>
<tr><td>OODB</td><td>OUT</td><td>96</td><td>11OC</td></tr>
<tr><td>OODE</td><td>ON</td><td>97</td><td>OA2F</td></tr>	   
<tr><td>OOEO</td><td>DSKO$</td><td>98</td><td>5071</td></tr>
<tr><td>OOE5</td><td>OPEN</td><td>99</td><td>4CCB</td></tr>
<tr><td>OOE9</td><td>CLOSE</td><td>9A</td><td>4E20</td></tr>
<tr><td>OOEE</td><td>LOAD</td><td>98</td><td>4D70</td></tr>
<tr><td>OOF2</td><td>MERGE</td><td>9C</td><td>4D71</td></tr>
<tr><td>OOF7</td><td>FILES</td><td>9D</td><td>1F3A</td></tr>
<tr><td>00FC</td><td>SAVE</td><td>9E</td><td>4DCF</td></tr>
<tr><td>0100</td><td>LFILES</td><td>9F</td><td>506F</td></tr>
<tr><td>0106</td><td>LPRINT</td><td>AO</td><td>OB4E</td></tr>
<tr><td>010C</td><td>DEF</td><td>A1</td><td>0872</td></tr>
<tr><td>010F</td><td>POKE</td><td>A2</td><td>128B</td></tr>
<tr><td>0113</td><td>PRINT</td><td>A3</td><td>0B56</td></tr>
<tr><td>0118</td><td>CONT</td><td>A4</td><td>40DA</td></tr>
<tr><td>011C</td><td>LIST</td><td>A5</td><td>1140</td></tr>
<tr><td>0120</td><td>LLIST</td><td>A6</td><td>113B</td></tr>
<tr><td>0125</td><td>CLEAR</td><td>A7</td><td>40F9</td></tr>
<tr><td>012A</td><td>CLOAD</td><td>A8</td><td>2377</td></tr>
<tr><td>012F</td><td>CSAVE</td><td>A9</td><td>2280</td></tr>
<tr><td>0134</td><td>TIME$</td><td>AA<td>19AB 1904</td></tr>
<tr><td>0139</td><td>DATE$</td><td>AB</td><td>19BD 1924</td></tr>
<tr><td>013E</td><td>DAY$</td><td>AC</td><td>19F1 1955</td></tr>
<tr><td>0142</td><td>COM</td><td>AD</td><td>1A9E</td></tr>
<tr><td>0145</td><td>MDM</td><td>AE</td><td>1A9E</td></tr>
<tr><td>0148</td><td>KEY</td><td>AF</td><td>1BB8</td></tr>
<tr><td>014B</td><td>CLS</td><td>BO</td><td>4231</td></tr>
<tr><td>014E</td><td>BEEP</td><td>B1</td><td>4229</td></tr>
<tr><td>0152</td><td>SOUND</td><td>B2</td><td>1DC5</td></tr>
<tr><td>0157</td><td>LCOPY</td><td>B3</td><td>1E5E</td></tr>
<tr><td>015C</td><td>PSET</td><td>B4</td><td>1C57</td></tr>
<tr><td>0160</td><td>PRESET</td><td>B5</td><td>1C66</td></tr>
<tr><td>0166</td><td>MOTOR</td><td>B6</td><td>1DEC</td></tr>
<tr><td>016B</td><td>MAX</td><td>B7</td><td>7FOB 19DB</td></tr>
<tr><td>016E</td><td>POWER</td><td>B8</td><td>1419</td></tr>
<tr><td>0173</td><td>CALL</td><td>B9</td><td>1DFA</td></tr>
<tr><td>0177</td><td>MENU</td><td>BA</td><td>5797</td></tr>
<tr><td>017B</td><td>IPL</td><td>BB</td><td>1A78</td></tr>
<tr><td>017E</td><td>NAME</td><td>BC</td><td>2037</td></tr>
<tr><td>0182</td><td>KILL</td><td>BD</td><td>1F91</td></tr>
<tr><td>0186</td><td>SCREEN</td><td>BE</td><td>1E22</td></tr>
<tr><td>018C</td><td>NEW</td><td>BF</td><td>20FE</td></tr>
<tr><td>018F</td><td>TAB(</td><td>CO</td><td>OC01</td></tr>
<tr><td>0193</td><td>TO</td><td>C1</td><td>076B</td></tr>
<tr><td>0195</td><td>USING</td><td>C2</td><td>4991</td></tr>
<tr><td>D19A</td><td>VARPTR</td><td>C3</td><td>OF7E</td></tr>
<tr><td>01AO</td><td>ERL</td><td>C4</td><td>OF56</td></tr>
<tr><td>01A3</td><td>ERR</td><td>C5</td><td>OF47</td></tr>
<tr><td>01A6</td><td>STRING$</td><td>C6</td><td>296D</td></tr>
<tr><td>01AD</td><td>INSTR</td><td>C7</td><td>2A37</td></tr>
<tr><td>0182</td><td>DSKI$</td><td>C8</td><td>5073</td></tr>
<tr><td>01B7</td><td>INKEY$</td><td>C9</td><td>4BEA</td></tr>
<tr><td>01BD</td><td>CSRLIN</td><td>CA</td><td>1D90</td></tr>
<tr><td>01C3</td><td>OFF</td><td>C8</td><td>various</td></tr>
<tr><td>01C6</td><td>HIMEM</td><td>CC</td><td>1DB9</td></tr>
<tr><td>01CB</td><td>THEN</td><td>CD</td><td>OB2A</td></tr>
<tr><td>01CF</td><td>NOT</td><td>CE</td><td>1054</td></tr>
<tr><td>01D2</td><td>STEP</td><td>CF</td><td>O783</td></tr>
<tr><td>0106</td><td>+</td><td>D0</td></tr>
<tr><td>01D7</td><td>-</td><td>D1</td></tr>
<tr><td>01D8</td><td>*</td><td>D2</td></tr>
<tr><td>01D9</td><td>/</td><td>D3</td></tr>
<tr><td>010A</td><td>\</td><td>D4</td></tr>
<tr><td>01DB</td><td>AND</td><td>D5</td><td>1097</td></tr>
<tr><td>01DE</td><td>OR</td><td>06</td><td>108C</td></tr>
<tr><td>O1EO</td><td>XOR</td><td>D7</td><td>10A2</td></tr>
<tr><td>01E3</td><td>EQV</td><td>D8</td><td>10AD</td></tr>
<tr><td>01E6</td><td>IMP</td><td>D9</td><td>10B5</td></tr>
<tr><td>01E9</td><td>MOD</td><td>DA</td><td>37DF</td></tr>
<tr><td>01EC</td><td>\</td><td>DB</td><td>377E</td></tr>
<tr><td>01ED</td><td>&gt;</td><td>DC</td><td>OE29</td></tr>
<tr><td>01EE</td><td>=</td><td>DD</td><td>OE29</td></tr>
<tr><td>01EF</td><td><</td><td>DE</td><td>OE29</td></tr>
<tr><td>01FO</td><td>SGN</td><td>DF</td><td>3407</td></tr>
<tr><td>01F3</td><td>INT</td><td>E0</td><td>3654</td></tr>
<tr><td>OIF6</td><td>ABS</td><td>E1</td><td>33F2</td></tr>
<tr><td>01F9</td><td>FRE</td><td>E2</td><td>2B4C</td></tr>
<tr><td>01FC</td><td>INP</td><td>E3</td><td>1100</td></tr>
<tr><td>01FF</td><td>LPOS</td><td>E4</td><td>10C8</td></tr>
<tr><td>0203</td><td>POS</td><td>E5</td><td>10CE</td></tr>
<tr><td>0206</td><td>SQR</td><td>E6</td><td>305A</td></tr>
<tr><td>0209</td><td>RND</td><td>E7</td><td>313E</td></tr>
<tr><td>020C</td><td>LOG</td><td>E8</td><td>2FCF</td></tr> 
<tr><td>020F</td><td>EXP</td><td>E9</td><td>30A4</td></tr>
<tr><td>0212</td><td>COS</td><td>EA</td><td>2EEF</td></tr>
<tr><td>0215</td><td>SIN</td><td>EB</td><td>2F09</td></tr>
<tr><td>0218</td><td>TAN</td><td>EC</td><td>2F58</td></tr>
<tr><td>021B</td><td>ATN</td><td>ED</td><td>2F71</td></tr>
<tr><td>021E</td><td>PEEK</td><td>EE</td><td>1284</td></tr>
<tr><td>0222</td><td>EOF</td><td>EF</td><td>1889</td></tr>
<tr><td>0225</td><td>LOG</td><td>F0</td><td>506D</td></tr>
<tr><td>0228</td><td>LOF</td><td>F1</td><td>506B</td></tr>
<tr><td>022B</td><td>CINT</td><td>F2</td><td>3501</td></tr>
<tr><td>022F</td><td>CSNG</td><td>F3</td><td>352A</td></tr>
<tr><td>0233</td><td>CDBL</td><td>F4</td><td>35BA</td></tr>
<tr><td>0237</td><td>FIX</td><td>F5</td><td>3645</td></tr>
<tr><td>023A</td><td>LEN</td><td>F6</td><td>2943</td></tr>
<tr><td>023D</td><td>STR$</td><td>F7</td><td>273A</td></tr>
<tr><td>0241</td><td>VAL</td><td>F8</td><td>2A07</td></tr>
<tr><td>0244</td><td>ASC</td><td>F9</td><td>294F</td></tr>
<tr><td>0247</td><td>CHR$</td><td>FA</td><td>295F</td></tr>
<tr><td>0248</td><td>SPACE$</td><td>FB</td><td>298E</td></tr>
<tr><td>0251</td><td>LEFT$</td><td>FC</td><td>29AB</td></tr>
<tr><td>0256</td><td>RIGHT$</td><td>FD</td><td>29DC</td></tr>
<tr><td>025C</td><td>MID$</td><td>FE</td><td>2AC2 29E6</td></tr>
<tr><td>0260</td><td>'</td><td>FF</td><td>OA90</td></tr>	   
</table>
 
<pre>
	+       -      *      /        >    Cmpr
D.P.   2B78    2B69   2CFF   2DC7   3D8E    34FA
S.P.   37F4    37FD   3803   380E   3D7F    3498
INT    3704    36F8   3725   OFOD   3DF7    34C2
String 28CC                                 270C
</pre>

[[Category:Model 100 Classics]]