PDP-8/E Demo - Fast K.I.T.T. Scanner

Описание: A simple test program for the PDP-8/E that I wrote. I'm sure it exists elsewhere, but as one person suggested to me, it'd be a good exercise in learning the PDP-8 instruction set. It can certainly be further optimized and also slowed down a bit. Here's my (hand-compiled) listing:

*0
0 /delay variable

*20
7320 CLA CLL CML /set L to 1 and clear AC
7010 RAR
2000 ISZ 0 /delay
5022 JMP /keep looping until delay variable is zero again
7430 SZL /did you rotate the bit into L?
5027 JMP /jump to rotating left if so
5021 JMP /else, jump to rotating right
7004 RAL
2000 ISZ 0 /delay
5030 JMP /keep looping until delay variable is zero again
7430 SZL /did you rotate the bit into L?
5021 JMP /jump to rotating right if so
5027 JMP /else, jump to rotating left