Реализация последовательного счетчика Мёбиуса
(Moebius-Zaehler) на ассемблере,
может кому-то будет интересно

*-----------------------------------------------------------
* Program : Moebius-Zaehler
* Written by : LeXeR
* Date : 29.01.2008
* Description: Moebius-Zaehler mit Ausgabe auf LED-Display
* der E/A Einheit
*-----------------------------------------------------------
START ORG $1000
LEDADR EQU $E00010 * Adresse des LED-Displays (Gerдtereg.)
* initialisiere LED-Display mit $80
MOVE.B #$80, LEDADR
**** Hauptprogramm ****
LOOP1 MOVE.B LEDADR,D0

BCHG #0,D0
ROR.B #1,D0
MOVE.B D0,LEDADR
MOVE.B #5,D0
JSR WAIT
BRA LOOP1 * alternativ auch JMP LOOP mцglich
**** Unterprogramm ****
WAIT
MULU #$ffff,D0
COUNTDOWN SUBQ #1,D0
BEQ LOOP1
BRA COUNTDOWN
RTS
END START