Код:
005000 Clr R0
012701 Mov #Buffer, R1
020000
012702 Mov #TPS, R2
176730
012703 Mov #TPD, R3
176732
032712 BiT #40, (R2)
000040
001001 BNE 1$
000005 Reset
1$:
012713 Mov #33407, (R3)
033407
012712 Mov #1, (R2)
000001
2$:
022712 Cmp #54, (R2)
000054
001375 BNE 2$
012713 Mov #2, (R3)
000002
005713 Tst (R3)
012712 Mov #1, (R2)
000001
4$:
032712 BiT #40, (R2)
000040
001006 BNE 3$
032712 BiT #10, (R2)
000010
001772 BEq 4$
111321 MovB (R3), (R1)+
005200 Inc R0
000767 Br 4$
3$:
032712 BiT #10, (R2)
000010
001402 BEq 5$
111321 MovB (R3), (R1)+
005200 Inc R0
5$:
000000 Halt