26 lines
211 B
Plaintext
26 lines
211 B
Plaintext
|
< 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
|