2020-06-14 10:06:51 +10:00
|
|
|
H@ ORG !
|
2020-06-14 11:37:54 +10:00
|
|
|
JMPn, 0 A,, ( 00, main ) JMPn, 0 A,, ( 03, find )
|
|
|
|
0 A,, ( 06, unused ) 0 A,, ( 08, LATEST )
|
|
|
|
0 A, ( 0a, unused ) JMPn, 0 A,, ( 0b, cellWord )
|
|
|
|
JMPn, 0 A,, ( 0e compiledWord ) JMPn, 0 A,, ( 11, pushRS )
|
|
|
|
JMPn, 0 A,, ( 14, popRS )
|
2020-06-15 20:23:19 +10:00
|
|
|
DI JMPr, ( 17, nativeWord ) 0 A,
|
2020-06-15 04:15:44 +10:00
|
|
|
JMPn, 0 A,, ( 1a, next ) JMPn, 0 A,, ( 1d, unused )
|
2020-06-14 11:37:54 +10:00
|
|
|
0 A, 0 A, ( 20, numberWord ) 0 A, 0 A, ( 22, litWord )
|
|
|
|
0 A, 0 A, ( 24, addrWord ) 0 A, 0 A, ( 26, unused )
|
|
|
|
0 A, 0 A,, ( unused )
|
|
|
|
JMPn, 0 A,, ( 2b, doesWord ) 0 A, 0 A, ( 2e, unused )
|
|
|
|
0 A, 0 A,, ( unused )
|
|
|
|
JMPn, 0 A,, ( 33, execute ) 0 A, 0 A, ( unused )
|
|
|
|
0 A, 0 A,, ( unused )
|