0001                ASMB,A,B,L

0003* Binary counter on the S register
0004* by Tim Riker <Tim@Rikers.org>
0005* public domain

0007                      HED ** binary counter **
0008  00100               ORG 100B

0010* could CLA here, but stay small. =)
0011  00100 002004  LOOPA INA          Increment A
0012  00101 102601        OTA 1        Write to S
0013* leave a ton of NOPs to slow us down
0014* adjust ORG here if you have less than 32Kw
0015  77770               ORG 77770B
0016  77770 024100        JMP LOOPA    Jump to the increment loop
    A 000000   -- unreferenced
    B 000001   -- unreferenced
LOOPA 000100   01/0011 -- 01/0016
3 symbols
2 unreferenced symbols
16 lines assembled, 3 words generated
0 errors, 0 warnings