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