*0 Page 1 1 0000 *0 2 00000 5100 JMP START / This is for auto power restart. 3 / Does not need to be toggled in 4 0100 *100 5 00100 7326 START, CLA CLL CML RTL / Load 2 6 00101 7001 IAC / Increment AC 7 00102 7004 LEFT, RAL / Rotate left 8 00103 4113 JMS DELAY / Delay 9 00104 7420 SNL / If bit shifted into link 10 00105 5102 JMP LEFT / Repeat 11 00106 7010 RIGHT, RAR / Rotate right 12 00107 7430 SZL / If link set 13 00110 5102 JMP LEFT / Go back to left shift 14 00111 4113 JMS DELAY / Delay 15 00112 5106 JMP RIGHT / Repeat right shift 16 17 00113 0000 DELAY, 0 / Return address 18 00114 3130 DCA TEMP / Save AC 19 00115 1125 TAD M4 / Load -4 20 00116 3126 DCA DELAY1 / Save to delay counter 21 00117 1130 TAD TEMP / Restore light pattern to AC 22 00120 2127 LOOP, ISZ DELAY2 / Increment and skip if zero 23 00121 5120 JMP LOOP / Repeat until skip (4096 times) 24 00122 2126 ISZ DELAY1 / Increment outer delay 25 00123 5120 JMP LOOP / Repeat until zero 26 00124 5513 JMP I DELAY / Return to caller 27 00125 7774 M4, -4 28 / Nothing after this needs to be toggled in 29 00126 0000 DELAY1, 0 30 00127 0000 DELAY2, 0 31 00130 0000 TEMP, 0 32 $ No detected errors No links generated