;
;mice (Mäuse)
;------------
;Siegerprogramm Weltmeisterschaft 1986
;Nach den neuen Core War Standards leicht modifiziert
;
ptr             DAT $0                  ;Zeiger auf zu kop. Programmzeile
start           MOV #7, $ptr            ;Anzahl Programmzeilen
loop            MOV @ptr, <5            ;betreffende Programmzeile kop.
                DJN $loop, $ptr         ;Wiederholen, bis alles kopiert
                SPL @3                  ;Neue Kopie des Programmes starten
                ADD #653, $2            ;Nächste Kopierposition vorbereiten
                JMP start               ;Knirps-Test bei hinterster Zeile
                DAT $833                ;Offset für Distanz zur Kopie
;
;© 1986 by Chip Wendell, Rochester (NY)