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