c2t/article/c12k.txt

35 lines
561 B
Plaintext

12000
12000
-2
2 main: ldy #0
4 psync: bit tapein
2 bmi psync
2 ploop: iny
4 bit tapein
3 bpl ploop
2 ploop: iny
4 bit tapein
3 bpl ploop
2 ploop: iny
4 bit tapein
3 bpl ploop
2 ploop: iny
4 bit tapein
3 bpl ploop
2 ploop: iny
4 bit tapein
2 bpl ploop
2 cpy #$40
2 bpl endcode
2 cpy #$15
2 bpl main
2 cpy #$07
7 store: rol nnnn,x
2 asl
2 bne main
2 lda #1
2 inx
2 bne main
6 inc store+2
3 jmp main