<code>10 CLS <br>
20 MEMORY &3FFF <br>
30 CALL &4000 <br>
40 END</code>
<pre>
KL_LOG_EXT equ &bcd1
org #4000
INITIALIZE: LD HL,WORK_SPACE ;RSX power-up Routine
LD BC,RSX_TABLE
JP KL_LOG_EXT
WORK_SPACE: DEFS 4 ;Area for Kernel to use
RSX_TABLE: DEFW NAME_TABLE
jp print
jp multiply
jp mem_move
NAME_TABLE:
defb 'PRIN','T'+#80
defb 'MULTIPL','Y'+#80
defb 'MEMMOV','E'+#80
DEFB #00
.print
ret
.multiply
ret
.mem_move
ret
</pre>