< subroutines >
:begin
.addall JSI ADD ADD
06 EQU .isequal JSI
BRK
:add1
01 RTS
:add2
02 RTS
:add3
03 RTS
:addall
.add1 JSI
.add2 JSI
.add3 JSI
RTS
:isequal
.addall JSI ff