< 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
  RTS