TurboAss and Bugaboo

Features

  • 68000 assembler, editor and debugger
  • Compiles up to 1.3 million lines per minute (on a 8MHz 68000)
  • Syntax check at input!
  • very powerful editor
  • source level debugging
  • does not depend on the operating system

TurboAss Start

Bugaboo Start

TurboAss Settings

TurboAss Source Info

TurboAss Assembly

(The “lines per minute” is about 8x higher than on an 8MHz Atari ST, because I did this screenshot in an emulator inside Virtual PC)

Bugaboo source view

If somebody is still interested, here are the old files… everything is available on GitHub.

Manual for the TurboAss and Bugaboo

This is the short version of the original german manual for the TurboAss and Bugaboo

                          TurboAss
                        ©1989 ∑-Soft
                von Markus Fritze & Sören Hellwig

                        Version 1.7


1 Allgemeines

1.1 Einleitung

Nach  langem  hin  und  her  haben  wir  uns  entschlossen  unser
Assembler-Paket  als  Shareware  auf  den  Markt  zu  werfen. Der
Assembler  wurde  vormals  durch OMIKRON.Software unter dem Namen
OMIKRON.Assembler  verkauft.  Die  Shareware-Version  ist  jedoch
eine  erweiterte  Version  des  OMIKRON.Assemblers.  Sie  enthält
weniger   Fehler,   weitere  Features  und  ist  noch  ein  wenig
schneller.  Zum  Paket  gehört (natürlich) auch ein Debugger, der
Bugaboo  (vormals OMIKRON.Debugger). Somit kann nun jeder User in
den  Genuß  eines  schnellen  und leistungsfähigen Assemblers und
Debuggers  kommen;  zumal  es  zwar viele Programmiersprachen als
Shareware   bzw.   PD   gibt,  aber  noch  keinen  (vernünftigen)
Assembler.

DIE  FIRMA OMIKRON.SOFTWARE HAT NICHTS MIT DIESEM ASSEMBLER-PAKET
ZU TUN.  ∑-SOFT  IST ALLEINIGER INHABER ALLER RECHTE AM ASSEMBLER
UND DEBUGGER!

Dieser  Text  ist  nicht  als eine Anleitung gedacht, sondern nur
als  Kurzeinführung  in  den Assembler. Die vollständig Anleitung
auf  ca.  240  Seiten gibt es bei den Autoren.  Zur Not kann auch
das  ST-Magazin  11/89  und  12/89 herangezogen werden.  Dort hat
die Referenzkarte den Assembler und Debugger zum Thema.

Nachtrag:

Es  fehlen ziemlich viele Features in diesem README, im Vergleich
zur Anleitung, es wird mir einfach zu viel... (Markus)


1.2 Features des Turbo-Ass

- Einfache und durchdachte (!) Bedienung.

- Der  Assembler  übersetzt  durchschnittlich 1 300 000 Zeilen
    pro Minute.

- Syntax-Check   bereits  bei  der  Eingabe.  Teilweise  sogar
    Semantik-Check!   Es  werden  sowohl  Tippfehler,  wie  auch
    doppelt   vergebene  Symbolnamen  bereits  bei  der  Eingabe
    gemeldet.

- Viele  besonders  leistungsfähige  Funktionen  des  Editors,
    z.B.  Suche  von Symbolen, Ersetzen von Symbolen, Einklappen
    von Programmteilen (wie in GFA-Basic 3.0), u.v.a.m.

- Fantastische  Kombination  von  Debugger  und Assembler. Bei
    einem   Absturz   eines   Programms  im  Debugger  kann  der
    Assembler    automatisch    die   Absturzadresse   in   eine
    Zeilennummer umrechnen!!!

- Eigene   Tastatur-   und  Bildschirmtreiber  =>  selbst  bei
    härtesten   Programmabstürzen  funktionieren  Assembler  und
    Debugger noch.

- KEINE Makros!!!

- u.v.a.m.


1.3 Was ist Shareware?

- Jeder   kann/darf/muß/soll  den  Turbo-Ass  kopieren!  Dabei
    müssen aber stets ALLE (!) Dateien mitkopiert werden.

- Wem  den  Assembler  gefällt,  sollte  uns  fairerweise 50DM
    überweisen.  Das hat für alle Parteien Vorteile:

    Für uns:
    - Wir  arbeiten  nicht  ganz umsonst (im Turbo-Ass stecken 3
    "Mannjahre" Arbeit)

    Für den User:
    - Er bekommt eine 240 Seiten starke Anleitung

    - Er   bekommt   die   neuste   Version   mit   persönlicher
    Seriennummer

    - Er bekommt das erste Update kostenlos

    - Er erhält bei gefundenen Fehlern eine fehlerfreie Version

    - Er kann sich bei Problemen an uns wenden

    - Er  bekommt  für  jeden  User,  der bei Registierung seine
    Seriennummer  angibt, 10DM (allerdings maximal 10 mal, wir
    wollen  keine PD-Vertriebe finanzieren). Das Geld ist also
    eine  "Entschädigung" für das Vorführen des Assemblers und
    das Kopieren.

    - Nochmal:  Läßt  sich  jemand  registrieren, so gibt er die
    Seriennummer  des vorher benutzen Assemblers an. Der User,
    dem  diese  Seriennummer  gehört,  bekommt  vom  uns 10DM.
    Alles klar?

Wer diese Angebot annehmen will, wende sich bitte an:
                Markus Fritze
                xxxxxxxxxxxx xx
                2000 Norderstedt 1
                Tel: 040/xxxxxxx
                (ab 18Uhr, auch am Wochenende (NIE VOR 12UHR!!!))
                BLZ: 20069111, Norderstedter Bank
                    Kontonummer: xxxxxxx

Ich  bitte  allerdings  teilweise  um etwas Geduld; ich hoffe die
meiste   Post  am  selben  Tag  zu  erledigen,  wenn  aber  keine
Anleitungen  mehr  da sind oder wenn wir gerade einige Neuerungen
implementieren,  kann  es  schon  mal etwas dauern (Wenn nach 2-3
Wochen  allerdings  nix passiert kann eine Anfrage klären, ob die
Post auch angekommen ist).



1.4 Hardwarevorraussetzungen

Atari  ST  mit  512k,  wobei allerdings erst ab 1Mb Assembler und
Debugger   gemeinsam   im   RAM   gehalten   werden  können,  was
seinerseits  wieder ein sehr wirksames Debugging erst ermöglicht.
Die  hohe  Auflösung  bietet  sich wohl eher an, als die mittlere
Auflösung  (Ist  einfach  augenfreundlicher);  aber der Turbo-Ass
läuft sowohl in Farbe, wie auch in S/W.


1.5 Installation

TURBOASS.PRG,   TURBOASS.CFG,   TURBOASS.DAT,   BUGABOO.PRG   und
CALL.PRG  auf  eine  Disk,  bzw.  in  einen  Ordner kopieren. Das
war's.


1.6 Zu den Autoren

Sören  Hellwig  und  ich (Markus Fritze) sind zur Zeit 21 bzw. 22
Jahre  alt  und  studieren  technische Informatik an der FH-Wedel
bei  Hamburg.  Deswegen bitte wir auch teilweise um etwas Geduld,
wenn  Anfragen nach Updates, etc. kommen; das Studium geht leider
vor.    Zudem   beantworte   ich   jeden   Brief,  der  Rückporto
beinhaltet.  Post  ohne  Rückporto  wird  nur  in  Ausnahmefällen
beantwortet (Zur Registrierung ist KEIN Rückporto nötig!)


1.7 Haftung/Rechte

Alle  Rechte  am  Turbo-Ass liegen bei ∑-soft. Wobei jeder seinen
Assembler  beliebig  kopieren  darf. Auch das Upload in Mailboxen
ist  erlaubt.  Der  Turbo-Ass und das Handbuch wurden mit größter
Sorgfalt   erstellt.   Leider   sind  Fehler  nie  auzuschließen,
deswegen  möchten  wir  sie  darauf hinweisen, daß wir weder eine
Garantie  für  die  Fehlerfreiheit  geben,  noch  die Haftung für
irgendwelche  Folgen,  gleich ob durch Fehler im Handbuch, in der
Software  oder  in der Hardware verursacht, übernehmen können. Es
wird  wohl  jeder verstehen, daß wir keine besondere Begeisterung
verspüren,  wenn  jemand  behauptet,  der Assembler habe im seine
Platte  mit  Sourcetexten  im  Werte  von mehreren Millionen Mark
zerstört,  uns  auf Schadenersatz verklagen will. Also: Benutzung
auf   eigene  Gefahr!  (Dieser  Abschnitt  gilt  wohl  bei  allen
Softwarefirmen.


2 Der Assembler


2.1 Benutzeroberfläche

Die  Benutzeroberfläche ist nicht von GEM o.ä. abhängig, d.h. neu
programmiert,  das  hat  den  Vorteil, daß der Assembler sicherer
gegen  Abstürze  und  auch  schneller  ist.  Zudem konnten einige
nette   Features   implementiert   werden.  Trotzdem  sollte  die
Umstellung  von  GEM  wohl  nicht ins Gewicht fallen. Die kleinen
Buchstaben  in  den  Buttons  bewirken mit ALT zusammen gedrückt,
das Anklicken des Buttons wie mit der Maus.


2.2 Die Maus im Assembler

Man  kann  mit  der  Maus eine ganze Menge Dinge machen, hier sei
jedoch nur die Benutzung im Assembler erklärt:

Im Sourcetext:
Linke Maustaste:
Einfachklick: Cursor setzen
langer Klick: Block markieren (mit Scrollen)
Doppelklick : Sprung zur Definition des angeklickten Symbols

Rechte Maustaste:
Einfachklick: Sourcetext scrollen (nur am Rand klicken!)
Doppelklick : Formel in den Rechner übernehmen

In der Statuszeile:
einfach alles mal mit links bzw. rechts anklicken...


2.3 Der Editor

Jede  eingegebene  Zeile  wird  automatisch  auf ihren Syntax und
teilweise  auch  auf  die  Semantik  überprüft.  Wenn  die  Zeile
fehlerfrei  ist, wird sie sofort formatiert ausgegeben. Bei einem
Eingabefehler   wird   in   der   Statuszeile  die  Fehlermeldung
angezeigt.


2.4 Besonderheiten

Als   Adressierungsart   wird   auch   "absolut   short"   direkt
unterstützt.   Dazu   ist  hinter  der  Adresse  ".w"  anzugeben.
Line-A-Routinen  können  mit  "LINEA  #Nummer" eingegeben werden.
Der   Assembler  wandelt  nicht-Motorola  Eingaben  wenn  möglich
automatisch in das Motorola-Format um.


2.5 Optimierungen

Der  Assembler  kann  einige  Optimierungen selbstständig finden.
Dazu gehören:
Absolut lang    -> relativ
relativ         -> relativ short
Absolut lang    -> PC-relativ
MOVE.L #xx,A0   -> LEA xx,A0 (wenn dannach PC-relativ was bringt)
MOVE.L #xx,-(SP)-> PEA xx,A0 (wenn dannach PC-relativ was bringt)
Ferner  werden  einige  für  C-Compiler typische Sprünge gefunden
(z.B.   2   aufeinanderfolgende   BRA,   wobei   das   2.BRA  nie
angesprungen  werden  kann)  Wenn  der Assembler optimieren kann,
erscheint  nach  dem  Assemblieren ein Button "ANPASSEN", welcher
die  Optimierungen  im  Sourcetext  vornimmt.   Dabei  kann  auch
zurück-"optimiert" werden, wenn dies nötig sein sollte.


2.6 Formeln

Alles was so Standard ist:
    + - * / ! (log.NOT) ~ (NOT bzw. EOR)
    << (SHL) >> (SHR) | (OR) & (AND)
    sowie Vergleiche

Als Zahlenbasis sind möglich:
    Dezimal     : . oder nix
    Hexadezimal : $
    Binär       : %
    ASCII       : " oder '

Als   interne   Variablen   sind  ^^DATE  (GEMDOS-Datum),  ^^TIME
(GEMDOS-Zeit)  *  (akt.PC),  ^^RSCOUNT  (akt.Wert des RS-Zählers)
und ^^SYMTAB (<>0, wenn Symboltabelle erzeugt wird)

Symbole   sind   max.23   Zeichen   lang.   Alle   Zeichen   sind
signifikant.   Erlaubt sind auch Umlaute und alle anderen Zeichen
> 126.


2.7 Tastaturkommandos

Cursortasten,  Backspace,  etc.  wie gewohnt CTRL-Y, CTRL-B, etc.
wie in TEMPUS
CTRL-D verdoppelt die Cursorzeile.
CTRL-M/ALT-M ermöglicht das Verschieben der Zeile.
CTRL-W ändert die Zahlenbasis der Zahl unter dem Cursor
CTRL-U  markiert  alle  Zeichen  mit  Warnungen,  in  welchen ein
Symbol  definiert  ist, welches nirgends benutzt wird. Damit kann
man prima unbenutzt Unterprogramme finden!
ALT-Zehnerblock wie bei MS-DOS
ESC+Buchstabe Abkürzung für einen Befehl
CTRL-ESC   Tastaturmakro   beginnen.   Dann  zu  belegende  Taste
drücken.   Alle   folgenden   Tasten  (nicht  die  Maus!)  werden
aufgezeichnet.  Mit  ALT-ESC  wird  die Definition abgeschlossen.
Die  belegte  Taste  kann  mit  CTRL-ESC,  Taste,  ALT-ESC wieder
freigegeben werden.


2.8 Ein paar Worte zu den

Mit  "Laden..."  kann  auch  ein ASCII-Text eingeladen werden. Er
wird  dabei  automatisch  ins  interne Format gewandelt.  "Symbol
suchen..."  und  "Symbol  ersetzen..."  ermöglichen  das schnelle
Finden  bzw.  schnelle  Ersetzen  von Symbolen. Dabei können z.B.
alle  Symbole gefunden werden, die mit "M" anfangen (Maske:"M*"),
ohne  daß jeder MOVE-Befehl gefunden wird (wie bei ASCII-Editoren
üblich).   "Sprung  zu  Zeile.."  ermöglich  auch das Springen zu
Symboldefinitionen   (Eingabe:z.B."M*").    Die   Dialogboxen  im
"Einstellungen"  Menü sind zum Teil selbsterklärend, der Rest ist
entweder  unwichtig  oder zu kompliziert, als daß er hier erklärt
werden könnte.


2.9 Der Assembler

Wird  mit F1 aufgerufen. Treten bei der Assemblierung Fehler auf,
werden  alle fehlerhaften Zeilen markiert. Nach der Assemblierung
kann  man  dann mit CTRL-J bzw. Shift-CTRL-J von Fehler zu Fehler
springen.    Der    Assembler    speichert    die   Fehler,   die
Cursorposition, die Marker etc.  übrigens mit dem Sourcetext ab!

In  der  Dialogbox nach (!) der Assemblierung, können noch einige
Extras eingestellt werden:

- Soll  eine  Symboltabelle  an  das  Programm  gehängt werden
    (bzw. an den Debugger übergeben werden)?

- Ferner  kann das erzeugte Programm in verschiedenen Formaten
    abgespeichern. Möglich sind:

DEBUGGER  :  Sprung in den Debugger mit Programmübergabe (KEIN
SPEICHERN)
STANDARD : Programm abspeichern (halt ganz normal...)
DATAS    : Data-Zeilen erzeugen (für OMIKRON.Basic)
ABSOLUT   :  Programm  für  eine  best.  Adresse  (z.B. EPROM)
erzeugen
BASIC     :  spezielles  Format für Basic, welches sich selbst
reloziert
OMINLINE : INLINE-Zeile für OMIKRON-Basic erzeugen
PARALLEL : spez.öbertragungsformat zum Amiga
SMALLDRI : DRI-Format erzeugen (allerdings OHNE Importe)
GFAINLINE : GFA-Inline-Format erzeugen.
FSTANDARD   :   Fast-Load-Bit  im  Header  setzen  (ST-Magazin
11/89), sonst wie

        STANDARD



2.10 Pseudo-Opcodes des Assemblers

DC,  DS,  BLK,  DCB,  EVEN,  ALIGN, TEXT, DATA, BSS, END, =, EQU,
GLOBAL, CNOP, ORG, ILLEGAL und REG
wie üblich.

DXSET Länge[,Füllwert] Tabelle definieren
DX 'String' Tabelleneintrag auf Länge mit Füllwert aufgefüllt
RS, RSRESET, RSSET, RSEVEN, RSBSS Relatives Segment
OPT D+ normale Symboltabelle an
OPT X+ erweiterte Symboltabelle an
OPT W+ Warnungen an
OPT P+ PC-relatives Programm muß erzeugt werden
OPT O+ Optimierungen an
Mit '-' kann etwas ausgeschaltet werden
OUTPUT 'Filename' Default-Filename
PATH 'Pfad' Pfad für IBYTES setzen
IBYTES  'DEGAS.PI3',32000,34  Lädt ein Daten-File der Länge 32000
ab Byte 34 der Datei ein (Hier: ein Degas-Bild)
BASE is' viel zu kompliziert...
REPT  Anzahl,  ENDR  wiederholt  Anzahl  mal  den  Sourcetextteil
zwischen
REPT und ENDR
IF, ELSE, ENDC bedingte Assemblierung
FAIL Assemblierung abbrechen


3 Der Debugger


3.1 Vorwort

Es  ist  eigentlich  unmöglich  den Debugger KURZ zu beschreiben,
deswegen  hier  nur  die  wichtigsten  Befehle (mit HELP kann man
alle mal sehen bzw.  in der Anleitung)


3.2 Allgemeines

Der  Debugger  benutzt selber keine I/O-Routinen des TOS, d.h. er
ist  ziemlich  unanfällig  gegen  Abstürze.  Bei Lade-Operationen
u.ä.    wird    aber    dann    natürlich   doch   auf's   GEMDOS
zurückgegriffen.

Er  verwaltet  eine  eigene  Bildschirmseite,  sodaß Programm und
Debugger sich nicht auf einer gemeinsamen Seite tummeln.

Das Debugging kann sowohl mit Tastatur und Maus erfolgen.

Der  Debugger  kann  resident im RAM gehalten werden, indem er in
den  AUTO-Ordner  kopiert  wird  oder  mit  dem  Befehl  RESIDENT
gehalten  wird.   Der  Debugger kann dann mit CALL.PRG aufgerufen
werden.  Auch  der  Assembler kann auf den Debugger zugreifen (Er
kann ihn aber auch nachladen).


3.3 Die Bedienung

Die  2  oberen  Zeilen  entsprechen  den Funktionstasten (mit und
ohne  Shift).  Die  3 Folgezeilen stellen die Registerinhalte und
Flags  dar.   Alle  Teilen in diesen 5 Zeilen können mit der Maus
ausgelöst werden.

Die  restlichen  (max.20  Zeilen)  sind  frei  veränderbar.  Hier
erfolgen die Eingaben, die Ausgaben. Hier tobt das Leben...

Die  Tastaturbelegung  (Cursortasten,  CTRL-M,  CTRL-1, etc.) ist
ähnlich der des Assemblers.

Eingaben   erfolgen   stets   ab  Zeilenanfang  bzw.  hinter  der
Hexzahl.  Leerzeichen werden ignoriert bzw. dienen als Trenner.

Wenn   der  Assembler  den  Debugger  aufgerufen  hat,  kann  man
CTRL-HELP  zurückspringen.  Dabei  wird  der aktuelle PC-Stand in
eine  Zeilennummer  UMGERECHNET.  D.h.  wenn  ein  Programm  beim
Debuggen  abgestürzt  ist  und der PC im Programm steht, kann man
CTRL-HELP zur entsprechenden Stelle im Sourcetext springen.

Mit  SHIFT-SHIFT  kann  ein laufendes Programm angehalten werden.
Der  Ring-Indikator  funktioniert  allerdings  auch. Der Debugger
ist zudem RESETFEST. Als Notbremse ab und zu sinnvoll.


F1  - Führt den nächsten Befehl aus

SF1 -  Bricht  beim  nächsten  Sprungbefehl  ab. Simuliert den
    Tracemode des 68020 Prozessors.

F2  -  Setzt  hinter  den nächsten Befehl einen Breakpoint und
    startet   das   Programm.   Damit   kann  z.B.  schnell  ein
    Unterprogramm   ausgeführt  werden  oder  ein  DBRA  beendet
    werden.

SF2 - nicht weiter wichtig

F3  -  Startet  das  Programm und bricht beim nächsten RTS ab.
    ACHTUNG!  Wenn mit MOVEM Werte auf dem Stack gerettet werden
    => Bomb!

SF3 - wie F3 nur bis zum nächsten RTE

F4  -  Führt  den  nächsten TRAP NICHT aus, sondern springt in
    ihn hinein.

SF4 - Programm ohne Endebedingung starten

F5  - nächsten Befehl ignorieren, d.h. überspringen

SF5 - Insert/Overwrite toggeln

F6  - Sourcecode anzeigen (nur wenn vom Assembler übergeben)

SF6 - die umgerechneten Marker des Assemblers anzeigen.

F7  - Memorydump ab dem PC

SF7 - Breakpoints anzeigen

F8  - Disassemble mit Dump ab PC

SF8 - Info über die Speicherbelegung

F9  - List ab PC (mit Symbolen, wenn vorhanden)

SF9 - Screen löschen, Warmstart

F10 - Umschalten der Bildschirmseite (Toggeln)

SF10- Quit mit Sicherheitsabfrage


3.4 Die Befehle

Alle  Befehle  können  auf ein Minimum abgekürzt werden. An ALLEN
Stellen  sind  als  Parameter  beliebige  Ausdrücke erlaubt (d.h.
Formeln etc.)

?Term   Rechnet den Term aus
Term  darf  (bis  auf Vergleiche) alle Operationen des Assemblers
enthalten.  Zudem  ist  mit  {400}.l  eine indirekte Adressierung
möglich.   ".l"  gibt  dabei  die Zugriffsbreite an.  Alle Zahlen
werden  als  HEXZAHLEN  angesehen.  Dezimalzahlen  sind  mit  "."
einzuleiten.  Bei  einer Symboltabelle kann man mit ".Symbolname"
auf dieses zugreifen.

Definierte Variablen (ein Teil davon)
^D0-^D7 Die Register D0-D7
^A0-^A7 Die Register A0-A7
PC, USP, SSP, SR, CCR, SP Die gleichnamigen Register
^M0-^M9 Die umgerechneten Marker des Assemblers


Alle obigen Variablen sind mit
LET Variable=Term änderbar.
LET läßt sich mit "~" abkürzen.

Noch ein paar Read-Only-Variablen:
TEXT,  DATA,  BSS,  START,  END,  BASEPAGE,  BP,  ACTPD, MEMBASE,
SAVEAREA

Es gibt noch etwa 20-30 weitere nicht so wichtige Variablen.

BREAKPOINT [Nummer=Adresse[,[*|=Wert|Anzahl|?Bedingung]|K]]
Breakpoints anzeigen, löschen, ändern, setzen


B5=PC+.100 Breakpoint  5  (0-15  ist  mgl)  auf Adresse PC+100
    setzen

B K        Alle Breakpoints löschen

B          Alle Breakpoints anzeigen

BK3        Breakpoint 3 löschen


B0=Adr,Anzahl   :  Breakpoint  bricht  beim  Anzahl. Erreichen
    ab.

B0=Adr,*        :  Breakpoint  bleibt  auch nach dem Erreichen
    erhalten.     Normale    Breakpoints    werden   automatisch
    gelöscht.

B0=Adr,=Wert    :  Zähler  auf die Adresse Adr setzen. In ^BC0
    wird hochgezählt wie oft die Adresse erreicht wurde.

B0=Adr,?Term    :  Bedingter  BKPT, Abbruch, wenn Term<>0 z.B.
    B0=Adr,?^D0=4711 => Abbrucht, wenn PC=Adr UND D0=

GO [Adr]
Programm an Adresse Adr, bzw. PC starten

TRACE
Wie F1

SHOWMEMORY Term
16 Bytes ab Term stets anzeigen

UNTRACE [Adr]
solange Tracen, bis Bedingung erfüllt

IF Term
Bedingung für UNTRACE

OBSERVE Trapno,Funkno
Abbruch,  wenn  Trapno(Funktion)  ausgeführt  wird.  z.B. OBSERVE
14,8 => Abbruch bei XBIOS(8) = Floprd()

CLS
2.Bildschirmseite löschen

MOUSEON / MOUSEOFF
VDI-Maus an/aus

|Befehl
Befehl ausführen (zum Testen echt prima)

LEXECUTE "Filename"[,"Commandline"]
Programm ausführbar laden (=> Pexec()) Dann mit GO zu starten.

LOAD "Filename"[,Adresse]
File nicht ausführbar laden

SAVE ["Filename"[,Adresse[,Endadresse]]]
File abspeichern

DIR Pfadmaske
Directory anzeigen

Pbefehl
P vor einem Befehl leitet diesen zum Drucker um

FOPEN Filename, Fbefehl, FCLOSE
Ausgabe eines Befehls in eine Datei

ERASE, KILL Filename
Datei löschen (mit Jokern!)

FREE
Freier Hauptspeicher

FREE Drive
Freier Platz auf einem Laufwerk

MKDIRECTORY Name
Ordner erstellen

RMDIRECTORY Name
Ordner löschen (wenn leer)

NAME oldname,newname
File umnennen

FATTRIBUT Filename,attribut
File-Attribut ändern/setzen

FORMAT DS/SS,Laufwerk
Disk formatieren

TYPE Filename
ASCII-Datei anzeigen (SPACE hält Ausgabe an)

READSEKTOR Track,Sektor,Seite,Adresse,Laufwerk (0 oder 1)
Sektor mit XBIOS(8) einlesen

WRITESEKTOR s.o.
Sektor mit XBIOS(9) schreiben

Alle  in  diesem  Abschnitt  angegebenden  Befehle  erlauben  den
gleichen  Syntaxbei den Parametern, der deswegen an dieser Stelle
erklärt   wird,   und  im  folgenden  nur  noch  mit  [Parameter]
bezeichnet wird. Es gilt also:

[Parameter] = [Von][[,]#[Zeilen]|,Bis|[,][Bytes[]]]

Es  sind  also  alle  Parameter  wahlfrei, d.h. man braucht keine
Parameterangeben.  Der  Debugger  nimmt  dann vorgegebene interne
Werte.

Wenn  der  Ausdruck  "Von"  fehlt,  wird ab der aktuellen Adresse
z.B.  disassembliert.  Die  aktuelle  Adresse  ist  die  Zahl  am
Zeilenanfang,   bzw.  wenn  diese  fehlt,  die  zuletzt  benutzte
Adresse.

Als   Endadresse  gilt  der  Ausdruck  "Bis",  der  jedoch  nicht
angegeben  werden  muß.  Wird  statt "Bis" ein "#" angegeben wird
genau  eine  Zeile  ausgegeben.  Ein dem "#" folgender Term, gilt
als  Zeilenanzahl. Es können somit z.B. genau 8 Zeilen ausgegeben
werden.  Es werden jedoch maximal 99 Zeilen ausgegeben. Fehlt die
Endangabe  gänzlich, werden (normalerweise) 16 Zeilen ausgegeben.
Die  Anzahl  läßt  sich jedoch einstellen, indem man die Variable
"Lines"  entsprechend  ändert.  Die  letzte  Möglichkeit  ist die
Angabe  der Byteanzahl in eckigen Klammern. Sie kann genauso, wie
die  Zeilenanzahl  angegeben  werden.  Die "]" ist optional, d.h.
man kann sie auch weglassen.

Beispiel:
"d text #5"
Disassembliert 5 Zeilen ab Anfang des geladenen Programms.

Beispiel:
"m data[30]"
Ein Memorydump des DATA-Segments (48 Bytes lang).

DISASSEMBLE [Parameter]
Disassemble mit Dump, der Dump kann geändert werden!

LIST [Paramter]
Disassemble  ohne  Dump  mit  Symbolen,  Opcodes  können geändert
werden (RETURN nicht vergessen)

SYMBOLTABLE [Parameter]
evtl. vorhandene Symboltabelle anzeigen

MEMORY[.B|.W|.L][Parameter]
Memorydump mit Ausgabebreite (Änderbar)

ASCII [Parameter]
ASCII-Dump (Änderbar)

FIND [Von,Bis],Terme{,Term}
geladenes   Programm   oder   Speicherbereich   nach  den  Termen
durchsuchen

HUNT  s.o.
wie Find, jedoch nur auf geraden Adressen

ASCFIND [Von,Bis],String
ASCII-Suche  im  Disassemblerlisting  (mit Jokern). Langsam, aber
ab und zu praktisch

CONTINUE
Hunt, Find oder ASCFIND fortsetzen, wenn mit ESC abgebrochen

INFO
mal ausprobieren

SYSINFO
auch mal ausprobieren

MOVE, COPY Von,Bis,Nach
Speicherblock kopieren

FILL Von,Bis,Term{,Term}
Speicherblock füllen

CLR [Von,Bis]
Speicherblock löschen (oder alles)

COMPARE Von,Bis,Adr
Bereich Von,Bis mit Bereich ab Adr vergleichen

EXIT, QUIT, SYSTEM
Debugger verlassen

RESIDENT
Debugger resident halten

SET, LET, ~
siehe oben

RESET ALL
Debugger-Kaltstart

HELP
Gibt  alle  Befehle  unsortiert aus (wie man sieht, ein paar mehr
als hier beschrieben)
</file>

====== The Readme of the last release version =======

<file>
                Sigma-Soft's TurboAss V1.7.14                 13.02.93

Version 1.7.14:
Bugaboo:
- Media-Change  im  Debugger  funktioniert nun auch mit Platten, deren
Sektorgröße  >512  Bytes ist. Beispiel für den Fehler: DIR ergab bei
größeren Partitions Grafikmüll auf dem Bildschirm.
- Der  Bugaboo  KÖNNTE  evtl.  mit  KAOS funktionieren. Der Alert beim
Start entfällt somit. Ich habe jedoch KEIN KAOS!
- Probleme   bei   der   Bildschirmumschaltung  bei  einigen  Shiftern
hoffentlich behoben.

Version 1.7.13:
Bugaboo:
- Der  Bugaboo  setzte  die  Adresse  $484 (Tastaturklick, Bell, etc.)
stets  auf $FF. Dies war natürlich ein Fehler. Dadurch konnten evtl.
später gestartete Programme abstürzen.

Version 1.7.12:
Bugaboo:
- Da  es  beim Umschalten der Bildschirmseiten beim STE offensichtlich
Probleme  gab,  habe  ich noch was daran getan. Wenn SWITCH = 1 ist,
wird  nicht  nur  in der Austastlücke umgeschaltet, es wird auch vor
dem  Auslesen  der  Register  des  Shifters  auf einen VBL gewartet,
damit die Register alle die geschriebenen Werte enthalten.

Version 1.7.11:
Bugaboo:
- Der  Prozessor wird wieder richtig erkannt (hoffentlich :-). Vormals
wurde im TT ein 68020 vermutet. Nich tragisch, aber verblüffend...

Version 1.7.10:
Bugaboo:
- Bugfixes  für  den  68030:  UNTRACE  sollte nun besser funktionieren
(vorher:  Format Error), Privileg Verletzung wird anders abgefangen,
falls  die  Privileg Verletzung von einem MOVE SR,<ea> hervorgerufen
wurde,  so wird nun ein MOVE CCR,<ea> ausgeführt. Normalerweise wird
dies durch das TOS vom TT schon so gemacht, da aber der Bugaboo alle
Exceptions  abfängt,  mußte diese Anpassung mit in den Bugaboo über-
nommen werden.

Version 1.7.9:
Bugaboo:
- Neue  Variable:  SWITCH.  öblicherweise ist diese Variable = 0. Dann
ändert  sich  nichts.  Wenn man sie auf 1 setzt (die Variable ist in
den  Einstellungen  speicherbar),  dann wird die Bildschirmseitenum-
schaltung  im  VBL  vorgenommen.  Nachteil: es flackert beim Tracen.
Vorteil:  es sollte bei einigen STEs nicht mehr zu einem Bildversatz
kommen.  Also:  diese Variable nur auf 1 setzen, wenn der Bildschirm
springt!

Version 1.7.8:
Bugaboo:
- Funktioniert nun auch wieder aus dem AUTO-Ordner heraus.
Sonstige Programme:
- Neuste Version vom LHarc V1.1321, sowie dem PFXPAK, u.s.w

Version 1.7.7:
Bugaboo:
- SysInfo erkennt den Mega STE.
TurboAss
- Sourcen können nun auch von BGM-Partitionen geladen werden, ohne daß
der Font zerstört wird.

Version 1.7.6:
TurboAss:
- Es  wird  eine  Meldung ausgegeben, wenn KAOS installiert ist, da es
Probleme geben kann.
- .DCB, .DCB.B, .DCB.W und .DCB.L werden vom Assembler nun erkannt und
in DCB, etc. konvertiert.
Bugaboo:
- Es  wird  eine  Meldung ausgegeben, wenn KAOS installiert ist, da es
Probleme gibt!
- SYSINFO wurde erweitert. Es wird nun die SFP004 (68881 für 68000er),
sowie ein 68881/2 erkannt. Spectre-GCR-Erkennung an den TT angepaßt.
- Der 68040 wird erkannt.
- Da die Variablen REZ und COLORS entfallen sind, gibt es endlich eine
Art  Ersatz:  Die  Variable USERSCR zeigt auf die Struktur des aktu-
ellen  Bildschirms,  INITSCR  zeigt  auf die Stuktur des Bildschirms
beim  Aufruf  des  Debuggers.  Ich  glaube, daß man nun wieder genug
Unsinn mit den Bildschirmseiten treiben kann...

Hier nun noch die Struktur:
                RSRESET
scr_colors:     RS.W 16         ;die 16 Farben
scr_adr:        RS.L 1          ;die Videoadresse
scr_offset:     RS.B 1          ;Offset to next line (STE)
scr_hscroll:    RS.B 1          ;Horizontal Bit-wise Scroll (STE)
scr_rez:        RS.B 1          ;die Video-Auflösung
scr_sync:       RS.B 1          ;das Sync-Bit des Shifters
scr_moni:       RS.B 1          ;der Monitor ($00:s/w $40:Farbe)
scr_overscan:   RS.B 1          ;OverScan ($00:Ja $FF:Nein)

Version 1.7.5:
TurboAss:
- Nach  dem Speichern wird wieder die Cursorposition vor dem Speichern
angesprungen.
- Um  PARTs  einzuklappen  kann  man  nun  auch  auf  den ENDPART Help
drücken.  Auch  kann  ein PART eingeklappt werden, der in der ersten
Sourcetextzeile anfängt.
- Der TurboAss hat nach Shift-F6 gefragt: "Sourcetext löschen?". Dabei
hat  er  allerdings  "JA"  und "NEIN" vertauscht! Sagte man NEIN, so
wurde  der  Source gelöscht. Ein sehr peinlicher Fehler. Wann der in
den Code hineingekommen ist, ist mir ein Rätsel...
- Die  Macintosh-Trap  Macros  sind erstmal wieder gestrichen. Wer sie
will,  kann  sie erhalten. Aber sie haben 11KB Speicher gekostet und
für die allermeisten User nix gebracht.
- a EQU 8:lsl.l  #a,D1 => Es wurde falscher (zufälliger) Code erzeugt.
Sollte  jetzt  richtigen  Code  erzeugen.  ADDQ,  SUBQ,  sowie  alle
Verschiebebefehle (ASL,LSL,ROL,ROXL, etc.) waren davon betroffen.
Bugaboo:
- Die Variable TRACE wurde wieder eingeführt. Näheres siehe Anleitung.
Die Variable ist irgendwann einmal "verloren" gegangen.
- SYSINFO  erkennt  nun  auch,  wenn eine IMP-MMU im Rechner vorhanden
ist. SYSINFO teilweise korrigiert (Taktanzeige, TT-Info, etc).
- Der Bugaboo läuft noch NICHT auf dem Großbildschirm vom TT!
Sonstige Programme:
- Zusätzlich  zu  MODULE.SRC  gibt  es  nun auch RBMODULE.SRC von Ralf
Biedermann.  Man  kann  damit  neben SMALLDRI (siehe Anleitung) auch
SMALLGST erzeugen, um z.B. Assembler-Module in Fortan eionzubinden.
- TURBOASS.DAT bzw. MODULE.SRC: Bei Modula-Modulen werden nicht mehr
doppelt soviele Words erzeugt, wie das Programm lang ist. Wer kein
TDI-Modula hat ( CODE( Hexcodes ) ), der sollte MODULE.SRC neu
assemblieren, wobei vorher das Flag TDI_MODULA = 0 zu setzen ist.
Dann wird INLINE( Hexcodes ) erzeugt.

Version 1.7.4:
TurboAss:
- Angepaßt an den Bugaboo V1.7.4. Um den Debugger nachladen zu können,
muß  man  unter  "Informationen" und "Reorganisieren" nun mindestens
250000  Bytes eintragen. Davon bleiben dann (wie gehabt) 40000 Bytes
übrig.   Diese  Vergrößerung  war  nötig,  weil  das  Nachladen  von
BUGABOO.SYM einen Absturz bei zu wenig Speicher bewirken konnte.
- Funktioniert  nun auch im TT-FastRam. Malloc() darf sich auch Blöcke
aus  dem  FastRam  holen. Der Assembler wird somit nochmal ein Stück
schneller.  Bei  Problemen (ich habe keinen TT, s.u.) evtl. die Bits
dafür  löschen.  Wenn der Fehler dann nicht mehr auftritt => Fehler-
meldung an mich!
- XBRA-ID "TASS" für alle benutzten Vektoren.
Bugaboo:
- Angepaßt an den TT.
Da  ich  selbst  keinen  TT  habe, kann ich Fehler bzgl. des TT auch
nicht  ohne weiteres erkennen bzw. nachvollziehen. Falls es Probleme
gibt,  bitte  ich  um  eine genaue Fehlerbeschreibung (möglichst mit
Beispiel).
- Neues Exception-Handling.
. Exception-Texte nun englisch
. Anpassung an den TT
. Es werden nun alle unbenutzten Vektoren von 2 bis 63 abgefangen.
. kleinere Unschönheiten korrigiert
- SYSINFO an den TT angepaßt
- Symbole  werden  in  der Symboltabelle nun auf 32 Bit verglichen und
nicht  mehr  mit  nur 24 Bit. Ausnahme: Das HiWord (Bits 16-31) wird
wenn  es  gleich  $FF  ist, auf $FFFF erweitert. Dies ist bei Short-
Adreßierung auf den I/O-Bereich sinnvoll.
- XBRA-ID "BUG1" für alle benutzten Vektoren.
Sonstige Programme:
- CALL.PRG, CALL.SRC : Anpassung an den Bugaboo V1.7.4
Der  Bugaboo V1.7.4 wird durch das alte CALL.PRG nicht mehr erkannt!
- umsortiert  und  neu geordnet. Dies war nötig, da das TOOL-Archiv so
groß  war,  daß  es  entpackt nichtmal mehr auf eine Diskette paßte.
Im TOOLS-Archiv sind nun nur noch 3 Ordner: PACKER, TOSPATCH und neu
dazugekommen ist: MIDIMAZE.2

Version 1.7.3:
TurboAss:
- Symbolsuche im Block stürzt nicht mehr ab, wenn das Symbol außerhalb
des Blockes definiert ist, aber im Block nicht vorkommt.

Version 1.7.2:
TurboAss:
- assembliert nun auch auf dem TT
- funktioniert auch in der Bildschirmauflösung TT-mittel
- kann Symboltabelle wieder an den Debugger übergeben (Fehler war seit
Version 1.7.1 drin)
- Wenn  man  ein  SRC-File  durch  Doppelklick  auf dem Desktop in den
TurboAss  geladen  hat, wurde der Filename stets auch an den Bugaboo
weitergereicht,  wenn  dieser z.B. nach der Assemblierung aufgerufen
wurde. Dies ist nun behoben! (Fehler  war seit ARGV-Commandline-Aus-
wertung durch den TurboAss drin)

Einige Änderungen vom TurboAss V1.26 zur Version V1.7.1:

ACHTUNG!!! Wichtige Änderungen im Debugger (siehe unten) !!!

Noch  ein  paar  in  der  Version  V1.70  nicht vorhandene, aber in der
Anleitung aber schon beschriebene, Features:

-lokale Symbole sind immer noch NICHT implementiert
-PC-relative  Optimierungen über Segmentgrenzen können immer noch NICHT
wieder in absolute Adressierungen zurückgewandelt werden
-Absolut-Long  kann  immer  noch  NICHT  automatisch nach Absolut-Short
optimiert werden
-Absolut-Short  kann  immer  noch  NICHT  automatisch nach Absolut-Long
zurückgewandelt werden


Allgemeines:
-Der  TurboAss und Bugaboo sollten auf ALLEN ST bzw. STE funktionieren.
Lediglich  eine  Anpassung an den TT läßt noch auf sich warten, da ich
noch  keinen  TT  habe.  Der Bugaboo in der Version V1.26 funktioniert
nicht auf Rechnern mit IMP-MMU. Der Fehler ist ebenfalls raus.
-Der  Debugger  unterstützt jetzt OverScan, d.h. er arbeitet zwar immer
noch  auf dem kleinen Bildschirm, kann aber auf den OverScan-Modus um-
schalten. Der TurboAss nutzt nun auch eine erhöhte Auflösung, z.B. von
OverScan, Maxon-MGE (s/w-Modus), Atari-Großbildschirm.
-Ich  habe  eine  neue  Versionsnummern-Zählung  eingeführt, also nicht
verwirren  lassen:  V1.7.0  steht  für Version 1, 7.Erweitung im Funk-
tionsumfang  und 0.Bugfix der 7.Erweiterung. Wen diese Versionsnummer-
ierung  an  Apple erinnert, der hat recht (aber nicht weitersagen...).
Ich kann nun die Versionen etwas genauer auseinander halten.

Erweiterungen des Assemblers:
-ASCII-Laden ist nun etwa 1.5 bis 4 (!) mal schneller.
-Bei ADDQ bzw. SUBQ ist kein # mehr nötig. Der Assembler ergänzt es nun
automatisch (wie bei MOVEQ und TRAP auch).
-Wenn  man  mit SHIFT-F2 die Accessory-Leiste aufgerufen hat, kommt man
mit UNDO oder ESC wieder zurück zum Assembler.
-Mit  dem  Pseudo-Opcode  BREAKPT  'String'  kann  man einen speziellen
Breakpoint   bereits  im  Assembler  einsetzen.  Der  Unterschied  zur
ILLEGAL-Directive  ist der anzugebende String. Dieser String wird beim
Erreichen  des  Breakpoints  vom  Debugger  nämlich  als  Befehlszeile
angesehen,  d.h. der String wird vom Debugger sofort ausgeführt. Somit
kann  man  sich  beim  Erreichen  der Directive z.B. automatisch einen
Speicherdump  o.ä.  ausgeben  lassen.  Der  String  darf sogar mehrere
Befehle  enthalten,  welche  mit  ':'  zu trennen sind (':' entspricht
somit  RETURN,  wenn man selbst tippt). Folgt dem ':' noch ein '-', so
wird  der  Befehl  nicht ausgegeben. Ein abschließendes ':' ist jedoch
nicht nötig.

Beispiel: BREAKPT '"Speicherüberlauf":-M ^A0#4:L PC#4'

Der   Text  'Speicherüberlauf'  wird  bei  Erreichen  des  Breakpoints
ausgegeben.  Dann  werden 4 Zeilen ab A0 als Memorydump ausgegeben. Ab
Abschluß  werden  noch  4  Zeilen  ab  PC  (der automatisch hinter die
Directive gesetzt wird) gelistet.
-Beim  Laden von ASCII-Sourcetexten (mit F8) bzw. beim Zuladen wird nun
die  Länge  der  Datei in kb, sowie die schon gelesenen kb ausgegeben.
Dies  ermöglicht  endlich  ein  Abschätzen  der  Ladezeit  bei  großen
Dateien.
-Symbol  ersetzen  (Ctrl-E)  hat  nun eine weiter SEHR (!!!) praktische
Möglichkeit  ganze Symbolgruppen umzubenennen. Jeder, der schon einmal
ein  reassembliertes Programm dokumentiert hat, kennt das Problem: Man
hat ein Unterprogramm (nennen wir es "draw_shape") mit etwa 30 Labeln.
öblich   ist   wohl  die  Bezeichnung  der  Label  mit  "draw_shape1",
"draw_shape2", etc. statt der vorgegebenen Bezeichnung "Lxxxx" o.ä. Ab
sofort  ist  dies  kein  Problem  mehr:  Das  Unterprogramm  als Block
markieren,  als  zu  suchendendes  Symbol  "~"  eingeben  und  als  zu
ersetzendes Symbol (in unserem Beispiel) "draw_shape". Nun OK drücken.
Das  erste  Symbol  im  Block heißt nun "draw_shape"; die Folgesymbole
sind  aufsteigend  numeriert.  Diese Funktion nennt sich "Umbennen von
Symbolen",   d.h.   wenn   ein   Symbol  zweimal  existiert  (doppelte
Deklaration), wird es, obwohl es sich nicht mehr im Block befindet, an
beiden  Stellen  umbenannt (denn intern es es ja dasselbe Symbol). Wer
dies  Vermeiden will, kann nur zu "Symbol ersetzen" übergehen und dort
im Block ersetzen.
-Wieder  habe  ich mich dazu herabgelassen einige weitere Optimierungen
zu  implementieren.  Diesmal  bringen  die  Optimierungen  zwar keinen
Speicherplatz,  dafür  werden pro Opcode 4 Takte eingespart. Es werden
Folgende Befehle optimiert:
CLR.L Dx      in MOVEQ #0,Dx
LSL.x #1,Dx   in ADD.x Dx,Dx  (ACHTUNG: V-FLAG WIRD VERÄNDERT!)
ASL.x #1,Dx   in ADD.x Dx,Dx
ROXL.x #1,Dx  in ADDX.x Dx,Dx
ADDA.W #xx,Ay in LEA xx(Ay),Ay
Die   Optimierungen   können   mit  CTRL-O  ausgeführt  werden  (siehe
Menüeintrag "Assembler" und dort unter "Optimierungen").
-Der  Assembler  kennt  nun  sämtliche  Toolbox  und  OS-Traps des Mac.
Inklusive  der  evtl.  Parameter.  Da  wohl  die wenigsten einen Apple
Macintosh haben, profitieren wohl lediglich Sören und ich davon...
-Die  HELP-Taste  zum Einklappen von PARTS funktioniert nun anders. Man
erinnert sich: PART in eine Zeile, ENDPART irgendwo dahinter. Wenn man
nun auf dem PART stand und HELP gedrückt hat, dann wurde der Textblock
eingeklappt,  bzw.  mit CTRL-HELP auch alle folgenden Blöcke. Nun wird
HELP folgendermaßen behandelt: HELP sucht nun ab der Cursorzeile einen
PART  (aufwärts!),  wird  ein  PART gefunden, so wird der Block einge-
klappt.  Man erspart sich also das Suchen von der PART-Directive. Beim
Ausklappen  von  einem PART wird die Zeile mit dem Part nun auch auto-
matisch auf dem Screen (vertikal :-) zentriert.
-Mit  CTRL-SHIFT-U werden unbenutzte Symbole entfernt. Dies ist für die
Leute  praktisch,  welche die List-Ausgabe in eine Datei umlenken, mit
einem Texteditor nachbearbeiten und nun in den Assembler laden. CTRL-U
markiert  weiterhin  alle unbenutzen Symbole als Warnungen, welche man
ja mit ALT-W an/ausschalten kann.
-Der TurboAss kennt jetzt auch die ARGV Parameterübergabe.


Erweiterungen des Debuggers:
-Einige neue Tastenkombinationen (ähnlich dem MonST2):
CTRL-Y : F1 - aktuellen Befehl tracen
CTRL-S : F5 - aktuellen Befehl überspringen
CTRL-A : F2 - Breakpoint hinter den aktuellen Befehl + GO (!)
-Wenn  der  Debugger  die  Datei  "BUGABOO.SYM"  findet  (dort  wo auch
"BUGABOO.INF"  gesucht  wird),  wird diese Datei geladen (ach nee) und
der Disassembler wird alle absolut short bzw. long Adressierungen über
diese  Tabelle  laufen  lassen.  Soll heißen, wenn in der Tabelle z.B.
_sysbase  =  $4f2  steht,  wird  der  Disassembler bei allen Befehlen,
welche  auf diese Adresse mit obigen Adressierungsarten zugreifen, die
Adresse  durch den Symbolnamen "_sysbase" ersetzen. Eine "BUGABOO.SYM"
Datei  befindet  sich  (mit Sourcetext) bereits im LIBRARY-Ordner. Die
SYM-Dateien lassen sich mit F1 erzeugen (siehe Anleitung).
-Ich habe vergessen zu erwähnen, daß man ohne den Debugger zu verlassen
nun  einen Blick in den Sourcecode werfen kann, wenn man vom Assembler
aus  in  den  Debugger  gesprungen  ist.  Also:  wenn man irgend- wann
während  des  Debuggens  nicht  mehr  weiß  wo  man sich im Source be-
findet;  einfach  F6  drücken.  Dann kann man die aktuelle Position im
Sourcecode  sehen.  Ändern  kann  man  da natürlich nix. Noch was: Der
Blick  in den Sourcecode kostet KEINEN (!) Speicherplatz, nicht einmal
die  Symboltabelle  ist nötig, da der Assembler die Adressen umrechnen
kann.  Die  Adressen  am  linken  Rand sind übrigens alle gleich, dies
liegt  daran,  daß  Sören  und  ich noch keine Muße gefunden haben den
Sourcecode-Teil  auch  nur  irgendwie  zu  optimieren (Wenn der Source
länger  als  10000  Zeilen  ist, wird's ziemlich langsam). Aber besser
langsam  und unflexibel, als gar nix. (P.S. Welcher Assembler-Debugger
hat schon einen solchen Debugger?)
-Bei  Bedingungen der Befehle: Scc, Bcc und DBcc ändert sich der "Ø" am
Zeilenanfang  in  ein  " ", wenn die Bedingung erfüllt ist! Allerdings
nur am aktuellen PC.

ACHTUNG! NEUHEITEN IM DEBUGGER:
-Sämtliche  Filenamen  und Pfade (z.B. LOAD, DIR, etc.) MöSSEN jetzt in
Anführungszeichen  (") eigeschlossen werden. Dies ist zwar lästig, ist
aber durch eine Umstellung der internen Strukturen nötig geworden.
-Bisher  konnte  man ja dem Debugger in der Commandline einen Filenamen
oder  einen  Befehl übergeben (mit "@" davor). Dies kann man nun auch,
wenn man mit dem CALL.PRG den residenten Debugger aufruft.
-Man  kann  nun soviele Befehle pro Zeile angeben, wie nötig. Dazu sind
die  Befehle durch einen ":" zu trennen (deswegen muß man die Pfade in
Anführungszeichen angeben).
-Auch  in  der  oben erwähnten Commandline kann man nun mehrere Befehle
angeben.  Zu  beachten  ist  auch,  daß  bei der BREAKPT-Directive des
Assemblers  nun  auch Doppelpunkte, anstellen von "|" zur Trennung der
Befehle verwandt werden müssen.
-Das  Scrolling  im  Debugger verhält sich etwas anders als vorher. Das
"ruhige"  Scrolling  ohne  Flackern  der  untersten  Zeile  mußte dran
glauben (an was, kommt später).
-Auf  allgemeinen  Wunsch  hin, funktioniert: DIR ".." auch ohne "\" am
Ende  wieder  (für Unwissende, damit kommt man ein Verzeichnis zurück,
d.h. eine Ordnerebene nach oben).
-Wenn   bis   hierher   irgendwelche  Probleme,  Ungereimtheiten,  etc.
auftreten, bitte sofort bei mir melden!
-Man  kann  nun  mit "#load "Filename.Bug" " eine ASCII-Datei einlesen.
Was  das soll? Nun, die Datei kann beliebig Befehle enthalten. Zeilen,
welche mit einem "%" anfangen werden ignoriert. Mal sehen, was sich in
Zukunft bei den Batch-Dateien ergibt (ich bitte um Vorschläge!).
Achtung: Die  Befehle  DIR,  FOPEN,  FCLOSE  und  FORMAT sind in einer
        Batch-Datei nicht möglich.
-Der  KEY-Befehl  wurde  ersatzlos gestrichen. Da die Tastaturmakros im
Debugger diesen überflüssig machen.
-Neue Variablen im Debugger:
MIDI    :<>0  =>  Scancodes  über  MIDI werden ignoriert, sonst werden
        diese als Tastencodes interpretiert (für PC-Tastaturen)
CACHE   :Inhalt des CACR-Registers bei 68020 oder höher
MEMCHECK:<>0  =>  Speichertest  entfällt.  Ein  Dump  würde dann statt
        "--"-Zeichen einfachen einen Busfehler ergeben.
ALL     :Setzt  alle Register (D0-A6) auf den gleichen Wert. Praktisch
        zum Löschen o.ä. (die Variable kann man natürlich nur setzen)
SYMFLAG :<>0  =>  interne Symboltabelle (BUGABOO.SYM) nicht benutzen
SYMTAB  :Zeiger auf die interne Symboltabelle (0=keine vorhanden)
-Vor  dem  Verlassen  des  Debuggers, wird getestet, ob an Adresse $40C
eine  gültige  Adresse steht. Wenn dem so ist, springt der Bugaboo den
Vektor  an.  Wofür das gut ist? Nun, so kann man noch auf die Schnelle
seine  Workstation  schließen  o.ä.  Man braucht nur ein Unterprogramm
einklinken, daß all solche Dinge tut. Damit kann man dann ein Programm
beliebig abbrechen (und wieder in den Assembler zurück), ohne daß beim
nächsten   Start   das  VDI  abstürzt  (weil  eine  Workstation  nicht
geschlossen wurde).
-Mit  dem  neuen  Befehl  COOKIE  kann  man sich das aktuelle CookieJar
ansehen  (wenn  vorhanden).  Damit  folge auch ich der Modeerscheinung
stets  jeden  Kleinkram in den Debugger einzubauen (zumal man sich das
CookieJar mit "m.l {5a0}.l" ausgeben lassen konnte).
-Ich  habe  noch  einige  Vorschläge von Thomas Waldmann berücksichtigt
(auch wenn in Deinem Brief das Gegenteil steht, Thomas):
.Wenn   man   die   (neue)   Variable  RING  auf  1  setzt,  wird  der
Ring-Indikator-IRQ  nicht  mehr  angeschaltet.  Das werden Modem-User
wohl zu schätzen wissen. Default: RING=0
.Die  Variable SAVEAREA ist jetzt auch unter dem Namen S zu erreichen.
Der lange Name hat mich auch schon immer gestört.
.Beim DIR-Befehl wird jetzt vor Programmen mit der Extension PRG, TOS,
TTP,  APP,  ACC,  PRX  und ACX automatisch LE als Default vorgegeben.
Auch  dies  sollte  wohl sinnvoll sein, da man Programme zum Debuggen
sowieso mit LE laden muß.
.Hat  eine  GEMDOS-, (X)BIOS-Funktion einen öbergabeparameter, welcher
ein  Langwort  ist,  wird das Langwort (wenn >0) als Zeiger aufgefaßt
und  der  String  auf  den  er  zeigt  ausgegeben  (maximal jedoch 32
Zeichen).  Damit kann man sofort sehen, welche Datei z.B. bei Fsfirst
gesucht wird. Leider kann man auch sehen, welchen Speicherblock (bzw.
welchen  Inhalt) man freigibt. Läßt sich leider nicht einfach ändern.
-Und wieder einige Vorschläge von Thomas Waldmann:
.Die nachgeladene Symboltabelle "BUGABOO.SYM" kann man nun auch selbst
nutzen. Man kann z.B. ?{.phystop}.l eintippen, um phystop auszulesen.
Der  Debugger  nutzt  jedoch weiterhin zuerst die Symbole der Tabelle
des  nachgeladenen  Programms.  Wenn  dort  das Symbol nicht gefunden
wurde, wird in "BUGABOO.SYM" gesucht.
-Wenn  man  OverScan  im  Debugger nutzen will, muß man zuerst die neue
Variable  OVERSCAN auf 1 setzen und die Einstellungen sichern. Ab dann
erkennt  der  Debugger  OverScan  beim Umschalten. Diese Erkennung hat
aber  einen Nachteil: Der Bildschirm flackert beim Tracen ("wie Sau").
Dies  liegt  daran,  daß zur Erkennung vom aktivierten OverScan min. 2
VBLs  gebraucht  werden und somit die Umschaltung der Bildschirmseiten
auffällt.  Wenn  man  als OverScan-User die Variable auf 0 setzt, kann
man  den Debugger nur in normalen Modus benutzen. Mit dem neuen Befehl
OVERSCAN  kann  man  den  User-Screen  zwischen normaler Auflösung und
OverScan Auflösung umschalten. Dies wird mit dem entsprechenden XBIOS-
Befehl  aus  dem  OverScan Treiber getan. Somit wird also auch das GEM
umgeschaltet.
Halt,  halt, halt: Das mit dem Flackern gibt's nicht mehr! Es ist doch
zu  lästig. Dafür merkt der Debugger allerdings das Umschalten von den
Auflösungen  nicht mehr. Da sowas aber nur selten getraced werden muß,
kann man (so glaube ich (und auch Karsten Isakovic)) darauf verzichten
-Die  Variable  REZ  (und  andere, die mit dem Bildschirm zu tun haben)
sind erstmal ersatzlos entfallen.


Sonstiges:
-Andreas  Alich  hat uns freundlicherweise ein Programm names RSC2S zur
Verfügung  gestellt.  Dieses Programm ermöglicht es RSC-Dateien direkt
in den Assemblerquelltext einzubinden. Näheres im RSC2S-Ordner.


        Markus Fritze

Calamus->MF

This converter allows the conversion of Calamus fonts into the METAfont format from the TeX package. It was mainly done by Christoph Pagalies with help from myself with the file formats.

Files

German ReadMe

Erstmal vielen Dank für Ihre Bestellung!

Kaum habe ich die Shareware-Version upgeloaded, schon fällt mir etwas ein, daß ich vergessen habe:

Da man keine kompletten deutschen Zeichen abspeichern kann, sondern TeX seine Äs, Ös und Üs aus den normalen Buchstaben und zwei Punkten zusammensetzt, müssen (logischerweise) auch besagte Punkte erzeugt werden. Es empfiehlt sich deshalb, in die Font-Batch-Datei zwei Zeilen einzufügen

25="ß"   (+-------------------------------------------------)
127="ä"  (-+-+----------------------------------------------)

(o. ä., je nach Font). Das “a” schaltet man auf unfill (und/oder löscht hinterher manuell die unfill-Befehle), nur die Pünktchen werden gezeichnet.

Außerdem wurde bisher nirgendwo erwähnt, daß man alle Zeichen auch über Alternate-Zehnerblock erreichen kann (Alternate drücken, ASCII-Code des gewünschen Zeichens im Zehnerblock eintippen (dezimal), Alternate wieder loslassen).

Auf vielfachen Wunsch kann die Version 1.1 nun nicht nur 10, sondern 40 Funktionstasten verdauen, um auch die Billig-Fonts zu bearbeiten, die Calamus beiliegen. Die Funktionstasten haben sind nun folgendermaßen belegt:

          F1-F10: Die ersten 10 Linien
    SHIFT-F1-F10: Die nächsten 10
ALTERNATE-F1-F10: Nochmal 10
   CONTROL-F1-F10: Die letzen 10

Die 1.3-Version kann ein gleiches Zeichen mehrfach schreiben; es kann dann manuell weiterbearbeitet werden (wurde gewünscht). Also kann man z. B. ins Font-Batch setzen

10="A"   (++------------------------------------------------)
11="A"   (++------------------------------------------------)

und das Calamus-A (das im Editor immer noch unter A zu finden ist), wird auf die TeX-Zeichen 10 und 11 gelegt. Wenn Funktionstasten beim A gedrückt werden, werden alle entsprechenden Zeilen des Font-Batchs geändert.

Außerdem wird der Hintergrund jetzt mit einem richtigen BITBLT gerettet; das Programm ist damit zwar immer noch nicht auflösungsunabhängig, sollte aber notfalls auf TT-Mittel u. ä. laufen. Ich kann es mangels TT leider nicht testen.

Die 1.4-Version setzt nun die METAFONT-Variablen “smoothing” und “autorounding” auf 0, weil die zugehörigen Funktionen bei convertierten Fonts nur stören (Hallo Erik-Jan!).

Dann gab es schon seit Urzeiten eine Funktion, die ich hiermit dokumentiere: Wenn man ein Zeichen anzeigt und dann die Undo-Taste drückt; dann wird dieses einzelne Zeichen in die .MF-Datei geschrieben. Deshalb wird auch bei der Verneinung der Frage, ob alle Zeichen geschrieben werden sollen, ein Dateirest geschrieben. Diese Möglichkeit ist für Fonts wie z. B. Zapf Dingbats gedacht, die viele Zeichen beinhalten, von denen man vielleicht nur einzelne benutzen möchte.

In der 1.4.1-Version wurde ein Bug behoben, durch den die Commandline- Auswertung nicht funktionierte. Man kann jetzt wieder *.FBT als Anwendung für den Converter anmelden. Außerdem kann man jetzt mit den Cursor-Tasten rechts und links zum nächsten BELEGTEN Zeichen vor- oder rückblättern.

Vorsichtshalber möchte ich noch auf folgendes hinweisen:

Die vorliegende Version des Calamus-Metafont-Converters (mit Seriennummer und Namen) ist KEIN Shareware-Programm. Alle Rechte, insbesondere das Recht auf Vervielfältigung vorbehalten. Die Shareware-Version, die sich im Ordner META_CON.SHR befindet, darf jedoch frei kopiert werden.

Das vorliegende Programm und die zugehörige Beschreibung wurde mit der größten Sorgfalt erstellt. Trotzdem sind Fehler nie ganz auszuschließen. Daher möchten wir darauf hinweisen, daß wir weder eine Garantie für die Fehlerfreiheit geben, noch die Haftung für irgendwelche Folgen, gleich ob durch Fehler in der Beschreibung, in der Software oder in der Hardware verursacht, übernehmen können. Wer einen Fehler findet, kann ihn mir (papier)schriftlich oder per Maus (Christoph Pagalies@HH2) oder per EMail in der ∑-Soft-Mailbox mitteilen.

Updates via Mailbox:

Wie bei allen ∑-Soft-Produkten kann man auch beim Converter Updates über die ∑-Soft Mailbox erhalten. Die Daten:

~~Tel: (040) 526 71 85, 8N1, 300–14400 Baud, HST, V32(bis), V42~~

Die Box ist öffentlich; es kann sich also jeder eintragen und Infos über die neusten Versionen abholen. Wer Updates auf registrierte Programme haben möchte, muß uns nochmal eine Postkarte mit Usernamen, Realnamen, Adresse, Seriennummer, Unterschrift schicken (damit wir überprüfen können, wer eins haben will). Ab dann kann man beliebig häufig (und natürlich kostenlos) aktuelle Versionen downloaden. Nähere Informationen in der Box.

Die Telefonkosten sind übrigens vielfach günstiger als das Porto für einen Brief mit Diskette; außerdem hat man das Update dann sofort.

THINK and WORK

A small game published in the Happy Computer magazine, written by Johann Schilcher for the Atari XL. I copied the levels and wrote the game from the scratch for the Atari ST. It was published with the source code together with the TurboAss and can now be found at GitHub.

  • LEVEL.DAT The file with the levels
  • THNKWORK.PIC Atari ST 640×400 b/w bitmap with the b/w images
  • THNKWORK.PI2 Atari ST 640×200 4 color bitmap with the color images

The image files can be opened with GraphicConverter.

The original source code (also on GitHub)

                OPT F+      ;Fast-Load (siehe 68000er 11/89)
                OPT X+      ;Symboltabelle an (für den Debugger)
                IFEQ ^^SYMTAB
                DEFAULT 9
                OUTPUT 'TNHKWORK'
                ELSE
                DEFAULT 8
                ENDC

max_level       EQU 100     ;max.Anzahl der Level
;************************************************************************
;*                     Think & Work ST-Version                          *
;*       nach einer Idee von Johann Schilcher (Atari XL-Version)        *
;*          Die Level entsprechen den Leveln auf dem Atari XL           *
;* ©1989 by ∑-soft, written by Markus Fritze              13-15.01.1989 *
;*      ----------> Graphix by Harald Weinreich <-------------  1.2.'89 *
;************************************************************************
                BASE A6,varbase
                TEXT
                pea     start(PC)
                move.w  #$26,-(SP)
                trap    #14             ;Superexec(start)
                addq.l  #6,SP
                clr.w   -(SP)
                trap    #1              ;Pterm0()

start:          lea     varbase(PC),A6  ;Globale Offset-Variable
                bsr     init
                clr.w   akt_level(A6)   ;Nach dem Demo auf Level 1 schalten
                move.w  #-1,demo_level(A6) ;Start bei Level "-1" = Titeldemo
                bra     demo            ;Titeldemo laufen lassen
restart_clr:    clr.b   dir(A6)         ;Joystick-Richtungen löschen
restart:        move.w  save_level(A6),D0
                bmi.s   restart1
                move.w  D0,akt_level(A6) ;Level setzen
restart1:       clr.w   big_score(A6)   ;Gesamtscore löschen
                sf      demo_mode(A6)   ;Demo-Mode aus
                clr.w   timer2(A6)      ;Timer für den Demo-Mode löschen
                st      save_level(A6)  ;ungültig machen
                st      out_of_game(A6) ;Spiel nicht aktiv
                tst.w   level_anz(A6)   ;Level vorhanden?
                bne.s   menü_loop       ;ja, alles ok
                lea     all_level_data(A6),A0 ;Hier stehen die Level
                moveq   #15,D0
restart2:       tst.l   (A0)+           ;Level komplett leer?
                dbne    D0,restart2
                beq.s   menü_loop       ;ja! =>
                move.w  #1,level_anz(A6) ;Sonst ist min. ein Level vorhanden
menü_loop:      lea     text2(A6),A0
                bsr     print_text
                move.w  level_anz(A6),D1 ;Levelanzahl
                lea     restart(PC),A5  ;Rücksprungadr
                bsr     get_key         ;Tastatur auswerten, Joystick auch
                cmpi.w  #10*200,timer2(A6) ;Das Demo startet nach 10 Sekunden
                bcc     demo
                tst.b   dir(A6)         ;Feuertaste?
                bmi     play_game       ;dann das Spiel starten
                btst    #0,dir(A6)
                bne     inc_level
                btst    #1,dir(A6)
                bne     dec_level
                move.w  key(A6),D0
                subi.w  #$3B,D0
                bmi.s   menü_loop
                cmp.w   #9,D0           ;keine F-Taste ?
                bhi.s   menü_loop
                add.w   D0,D0
                move.w  menü_jumps(PC,D0.w),D0
                jmp     menü_jumps(PC,D0.w)

                BASE DC.W,menü_jumps
menü_jumps:     DC.W play_game,editor,dec_level,inc_level,joykey
                DC.W autorep,copyright,load_levels,save_levels,exit

;*******************************************************************************
;* Der Copyright-Hinweis                                                       *
;*******************************************************************************
copyright:      clr.w   timer2(A6)
                lea     copyright_txt(A6),A0
                bsr     print_text
copyright1:     bsr     get_key
                cmpi.w  #10*200,timer2(A6) ;Demo startet nach 10 Sekunden
                bcc     demo
                tst.w   key(A6)
                beq.s   copyright1
                jmp     (A5)

;*******************************************************************************
;* Der Leveleditor                                                             *
;*******************************************************************************
editor:         lea     all_level_data(A6),A4 ;Hier stehen die originalen Level
                move.w  akt_level(A6),D0
                lsl.w   #6,D0
                adda.w  D0,A4           ;Adresse des akt.editierten Levels
                movea.l A4,A1
                lea     level_buffer(A6),A0
                moveq   #15,D0
editor_save:    move.l  (A1)+,(A0)+     ;Level retten
                dbra    D0,editor_save
                sf      out_of_game(A6) ;Spiel aktiv (Blöcke setzen)
                moveq   #10,D6          ;aktuelle X-Koordinate
                moveq   #6,D7           ;aktuelle Y-Koordinate
                moveq   #2,D5           ;Wall selected
                clr.b   dir(A6)         ;Joystick-Daten löschen
editor_loop:    bsr     init_level      ;Levelarray aufbauen, Zeit löschen, etc.
                bsr     plot_level      ;Level zeichnen
                movea.l logbase(A6),A1
                move.w  D7,D0           ;Y*32*80
                mulu    #32*80,D0
                adda.w  D0,A1           ;zur logbase
                move.w  D6,D0
                lsl.w   #2,D0           ;X*4
                tst.b   rez(A6)         ;Farbe oder s/w
                bpl.s   editor_pnt1
                lea     farb_grafik+7*128(A6),A0
                add.w   D0,D0           ;X*8
                adda.w  D0,A1
                moveq   #15,D1
editor_pnt0:    move.l  (A0)+,D0        ;Cursor darstellen
                or.l    D0,(A1)+
                move.l  (A0)+,D0        ;Cursor darstellen
                or.l    D0,(A1)
                lea     156(A1),A1
                dbra    D1,editor_pnt0
                bra.s   editor_pnt2
editor_pnt1:    lea     mono_grafik+7*128(A6),A0
                adda.w  D0,A1           ;zur logbase
                moveq   #31,D1
editor_pointer: move.l  (A0)+,D0        ;Cursor darstellen
                eor.l   D0,(A1)
                lea     80(A1),A1
                dbra    D1,editor_pointer
editor_pnt2:    lea     text3(A6),A0
                bsr     print           ;untere Textzeile neu ausgeben
                bsr     switch_screen   ;Seite anzeigen
                bsr     get_key         ;Tastatur auswerten, Joystick auch
                btst    #0,dir(A6)      ;Joystickbewegung umsetzen
                beq.s   editor_jump1
                subq.w  #1,D7
                bpl.s   editor_jump1
                moveq   #0,D7
editor_jump1:   btst    #1,dir(A6)
                beq.s   editor_jump2
                cmp.w   #11,D7
                beq.s   editor_jump2
                addq.w  #1,D7
editor_jump2:   btst    #2,dir(A6)
                beq.s   editor_jump3
                subq.w  #1,D6
                bpl.s   editor_jump3
                moveq   #0,D6
editor_jump3:   btst    #3,dir(A6)
                beq.s   editor_jump4
                cmp.w   #19,D6
                beq.s   editor_jump4
                addq.w  #1,D6
editor_jump4:   tst.b   dir(A6)
                beq.s   editor_jump6
                bsr     verzögerung
editor_jump6:   btst    #7,dir(A6)      ;Feuertaste gedrückt
                bne     edt_draw
                clr.b   button_pressed(A6) ;Flag zurücksetzen
                lea     editor_keys-2(PC),A0
                move.w  key(A6),D0      ;aktuelle Taste holen
editor_jump5:   addq.l  #2,A0
                tst.w   (A0)
                bmi     editor_loop
                cmp.w   (A0)+,D0
                bne.s   editor_jump5
                adda.w  (A0),A0
                jmp     (A0)

                BASE DC.W,*
editor_keys:    DC.W $3B,edt_wall ;F1 - Mauer setzen
                DC.W $3C,edt_target ;F2 - Target setzen
                DC.W $3D,edt_block ;F3 - Block setzen
                DC.W $3E,edt_exit ;F4 - EXIT setzen
                DC.W $47,edt_clr_all ;Clr/Home - Level löschen
                DC.W $61,edt_undo ;UNDO - Level rekonstruieren
                DC.W $44,restart_clr ;F10 - Editor verlassen
                DC.W $39,edt_plot ;Space - Zeichen setzen
                DC.W $31,edt_new ;N - Neuen Level einrichten
                DC.W $53,edt_delete ;Delete - Level löschen
                DC.W -1

edt_delete:     bsr.s   edt_clr_all     ;Level erstmal löschen
                move.w  level_anz(A6),D0
                beq.s   edt_delete2     ;keine Level mehr da!
                subq.w  #1,D0
                move.w  D0,level_anz(A6)
                lea     all_level_data+64*max_level(A6),A0 ;Daten aller Level
                movea.l A4,A2
                lea     64(A4),A1
edt_delete1:    move.l  (A1)+,(A2)+     ;Level überkopieren
                cmpa.l  A0,A1
                bcs.s   edt_delete1
edt_delete2:    bra.s   edt_new1        ;ab in die Hauptschleife

edt_new:        move.w  level_anz(A6),D0
                cmp.w   #max_level-1,D0 ;max.100 Level
                beq.s   edt_new1
                move.w  D0,akt_level(A6)
                addq.w  #1,level_anz(A6)
                lea     all_level_data(A6),A4 ;Hier stehen die originalen Level
                lsl.w   #6,D0
                adda.w  D0,A4           ;Adresse des akt.editierten Levels
edt_clr_all:    movea.l A4,A1
                moveq   #15,D0          ;Level löschen
edt_clr_all1:   clr.l   (A1)+
                dbra    D0,edt_clr_all1
edt_new1:       bra     editor_loop     ;ab in die Hauptschleife

edt_wall:       moveq   #2,D5           ;Wand
                bra.s   edt_new1
edt_target:     moveq   #1,D5           ;Zielfeld
                bra.s   edt_new1
edt_block:      moveq   #3,D5           ;Block
                bra.s   edt_new1
edt_exit:       moveq   #-1,D5          ;Ausgang (nur zu verschieben)
                bra.s   edt_new1

edt_undo:       movea.l A4,A1
                lea     level_buffer(A6),A0
                moveq   #15,D0
edt_undo1:      move.l  (A0)+,(A1)+     ;Level zurückholen
                dbra    D0,edt_undo1
                bra.s   edt_new1

edt_plot:       clr.b   button_pressed(A6)
edt_draw:       tas.b   button_pressed(A6)
                bne.s   edt_draw1       ;war schon gedrückt
                moveq   #-1,D4          ;Löschen?
                bsr.s   edt_get         ;akt.Zeichen holen
                cmp.b   D0,D5
                beq.s   edt_draw1       ;steht dort was? =>
                moveq   #0,D4           ;sonst setzen
edt_draw1:      move.w  D5,D3
                tst.b   D4              ;setzen oder löschen?
                beq.s   edt_draw2       ;setzen
                moveq   #0,D3           ;löschen
edt_draw2:      tst.w   D5              ;Exit? (Ist nur verschiebbar)
                bpl.s   edt_draw3       ;Nein =>
                move.w  D6,D0
                add.b   D0,D0
                move.b  D0,60(A4)
                move.w  D7,D0
                add.b   D0,D0
                or.b    #$80,D0
                move.b  D0,61(A4)
                bra     editor_loop

edt_draw3:      move.w  D7,D0           ;Position im Level errechnen
                lsl.w   #2,D0
                add.w   D7,D0
                move.w  D6,D1
                lsr.w   #2,D1
                add.w   D1,D0           ;D0=5*Y+Int(X/4)
                moveq   #3,D1
                and.w   D6,D1           ;D1=X and %11
                move.b  edt_put_tab2(PC,D1.w),D2 ;Byte holen
                and.b   D2,0(A4,D0.w)   ;entsprechendes Feld löschen
                move.b  edt_put_tab(PC,D1.w),D1
                lsl.b   D1,D3           ;Element in Position schieben
                or.b    D3,0(A4,D0.w)   ;und einsetzen
                bra     editor_loop

edt_put_tab:    DC.B 6,4,2,0 ;Verschiebetabelle
edt_put_tab2:   DC.B $3F,$CF,$F3,$FC ;Löschmaske

edt_get:        move.w  D7,D0           ;Position im Level errechnen
                lsl.w   #2,D0
                add.w   D7,D0
                move.w  D6,D1
                lsr.w   #2,D1
                add.w   D1,D0           ;D0=5*Y+Int(X/4)
                moveq   #3,D1
                and.w   D6,D1           ;D1=X and %11
                move.b  edt_put_tab(PC,D1.w),D1 ;Byte holen
                move.b  0(A4,D0.w),D0   ;eines der 4 Felder isolieren
                lsr.b   D1,D0           ;in die unteren 2 Bit schieben
                and.w   #3,D0
                rts

;*******************************************************************************
;* Die restlichen F-Tasten                                                     *
;*******************************************************************************
load_levels:    move.l  #'load',D0
                bsr     do_dialog       ;Wirklich laden?
                beq     restart_clr     ;NEIN! =>
do_load_levels: move.w  #$2F,-(SP)
                trap    #1              ;Fgetdta()
                addq.l  #2,SP
                movea.l D0,A4           ;DTA-Buffer-Adr merken
                move.w  #7,-(SP)
                pea     fname(A6)
                move.w  #$4E,-(SP)
                trap    #1              ;Fsfirst(path,satt)
                addq.l  #8,SP
                tst.l   D0
                bmi.s   load_levelerr   ;nicht gefunden
                move.l  26(A4),D7       ;Länge der Datei
                moveq   #$3F,D0
                and.w   D7,D0
                bne.s   load_levelerr   ;Dateilänge nicht durch 64 teilbar
                clr.w   -(SP)
                pea     fname(A6)
                move.w  #$3D,-(SP)
                trap    #1              ;Fopen(path,attr)
                addq.l  #8,SP
                move.w  D0,D6           ;fhandle merken
                bmi.s   load_levelerr   ;??? TOS-Fehler
                pea     all_level_data(A6) ;Adresse des Buffers
                move.l  D7,-(SP)        ;Dateilänge
                move.w  D6,-(SP)        ;fhandle
                move.w  #$3F,-(SP)
                trap    #1              ;Fread(hndl,byts,buff)
                lea     12(SP),SP
                move.l  D0,D5
                move.w  D6,-(SP)
                move.w  #$3E,-(SP)
                trap    #1              ;Fclose(hndl)
                addq.l  #4,SP
                cmp.l   D5,D7
                bne.s   load_levelerr   ;Datei nicht komplett gelesen
                lsr.l   #6,D7
                move.w  D7,level_anz(A6) ;Anzahl der geladenen Level setzen
                moveq   #0,D0
                jmp     (A5)
load_levelerr:  lea     all_level_data(A6),A4
                bsr     edt_clr_all     ;1.Level löschen
                clr.w   level_anz(A6)   ;keine Level da!
                moveq   #-1,D0
                jmp     (A5)

save_levels:    move.l  #'save',D0
                bsr     do_dialog       ;Wirklich speichern?
                beq     restart_clr     ;NEIN! =>
                moveq   #0,D7
                move.w  level_anz(A6),D7
                beq.s   save_levelerr   ;keine Levels zum Speichern
                lsl.l   #6,D7           ;mal 64 (Levelgröße) = Dateilänge
                pea     fname(A6)
                move.w  #$41,-(SP)
                trap    #1              ;Fdelete(path)
                addq.l  #6,SP
                clr.w   -(SP)
                pea     fname(A6)
                move.w  #$3C,-(SP)
                trap    #1              ;Fcreate(path,attr)
                addq.l  #8,SP
                move.w  D0,D6           ;fhandle merken
                bmi.s   save_levelerr   ;??? TOS-Fehler
                pea     all_level_data(A6) ;Adresse des Buffers
                move.l  D7,-(SP)        ;Dateilänge
                move.w  D6,-(SP)        ;fhandle
                move.w  #$40,-(SP)
                trap    #1              ;Fwrite(hndl,byts,buff)
                lea     12(SP),SP
                move.l  D0,D5
                move.w  D6,-(SP)
                move.w  #$3E,-(SP)
                trap    #1              ;Fclose(hndl)
                addq.l  #4,SP
                cmp.l   D5,D7
                bne.s   save_levelerr   ;Datei nicht komplett geschrieben
                moveq   #0,D0
                jmp     (A5)
save_levelerr:  moveq   #-1,D0
                jmp     (A5)

inc_level:      addq.w  #1,akt_level(A6)
                cmp.w   akt_level(A6),D1
                bhi.s   inc_level1
                clr.w   akt_level(A6)
inc_level1:     jmp     (A5)

dec_level:      subq.w  #1,akt_level(A6)
                bpl.s   dec_level1
                tst.w   D1
                beq.s   dec_level2
                subq.w  #1,D1
dec_level2:     move.w  D1,akt_level(A6)
dec_level1:     jmp     (A5)

joykey:         lea     joy_text(A6),A0
                lea     joy1_txt(A6),A1 ;Joystick
                cmpi.b  #'K',(A0)
                beq.s   joykey1
                lea     joy2_txt(A6),A1 ;Keyboard
joykey1:        move.b  (A1)+,(A0)+
                bne.s   joykey1
                move.b  #' ',-(A0)
                jmp     (A5)

autorep:        bchg    #1,$0484.w
                bsr     set_autorep_txt
                jmp     (A5)

;*******************************************************************************
;* Ein kleines Demo für den Titel & Level 1                                    *
;*******************************************************************************
demo:           move.w  akt_level(A6),save_level(A6) ;akt.Level merken
                move.w  demo_level(A6),D0
                addq.w  #1,D0
                and.w   #1,D0
                move.w  D0,demo_level(A6)
                subq.w  #1,D0           ;Die Demo-Level zählen ab 0
                move.w  D0,akt_level(A6) ;Die normalen Level zählen ab -1
                st      demo_mode(A6)   ;Demo-Mode an
                st      demo_count2(A6) ;gespeicherte Schritte löschen
                clr.w   demo_count(A6)  ;Demo-Position auf den Anfang setzen
demo1:

;*******************************************************************************
;* Die Hauptroutine: Das Game                                                  *
;*******************************************************************************
play_game:      sf      out_of_game(A6) ;Spiel nun aktiv
                bsr     init_level      ;Levelarray aufbauen, Zeit löschen, etc.
                st      timer_stop(A6)  ;Uhr starten
play_game1:     bsr     plot_level      ;Level zeichnen
                bsr     update_line     ;untere Textzeile neu ausgeben
                bsr     switch_screen   ;Seite anzeigen
                bsr     get_key         ;Tastatur auswerten, Joystick auch
                move.w  key(A6),D0
                tst.b   demo_mode(A6)   ;Demo an?
                beq.s   play_game11     ;Dann geht's hinten weiter ...
                tst.w   D0              ;Taste gedrückt?
                bne     restart_clr     ;dann Ende
play_game11:    cmpi.w  #$44,D0         ;F10 - Abbruch
                beq     restart_clr
                cmpi.w  #$61,D0         ;UNDO - Level neu starten
                beq.s   play_game       ;Level-Neustart
                cmpi.w  #$39,D0         ;Pause
                bne.s   play_game5      ;Nein! =>
                clr.b   timer_stop(A6)  ;Uhr stoppen
                movea.l logbase(A6),A0  ;2. Seite ist am Anfang "logbase"
                move.w  #7999,D0
                moveq   #-1,D1
play_game2:     move.l  D1,(A0)+        ;logbase löschen
                dbra    D0,play_game2
                bsr     switch_screen   ;und schwarze Seite anzeigen
                clr.w   key(A6)
                clr.b   dir(A6)
play_game3:     bsr     get_key
                tst.w   key(A6)         ;weiter, wenn Taste gedrückt
                bne.s   play_game4
                tst.b   dir(A6)         ;oder Joystick bewegt
                beq.s   play_game3
play_game4:     st      timer_stop(A6)  ;Uhr wieder starten
play_game5:     bsr     movement        ;Spieler bewegen
                bsr.s   check_win       ;Alle Steine ok?
                beq.s   play_game1      ;Nein, noch nicht.

                tst.b   demo_mode(A6)
                bne     restart_clr     ;Ende des Demos

                move.w  akt_score(A6),D0 ;erreichtes Levelergebnis holen
                cmp.w   hiscore(A6),D0  ;> der Hiscore?
                bls.s   play_game6      ;NEIN! => kein neuer Hiscore ...
                move.w  D0,hiscore(A6)  ;wird allerdings gleich gelöscht
                lea     all_level_data(A6),A0 ;Hier steht der originale Level
                move.w  akt_level(A6),D1
                muls    #64,D1          ;Da auch "-1" möglich ist!!!
                move.w  D0,62(A0,D1.w)  ;Hiscore auch im Level setzen
play_game6:     add.w   D0,big_score(A6) ;und zum Gesamtscore addieren

                move.w  akt_level(A6),D0
                move.w  level_anz(A6),D1
                beq     restart_clr     ;Ende, wenn nur ein Level vorhanden
                addq.w  #1,D0           ;nächster Level
                move.w  D0,akt_level(A6)
                cmp.w   D1,D0           ;höchster Level erreicht
                bcs     play_game       ;Nächsten Level
                subq.w  #1,akt_level(A6)
                bra     restart_clr     ;und Ende

;*******************************************************************************
;* Sind alle Steine am richtigen Ort? (Z=1, wenn nicht)                        *
;*******************************************************************************
check_win:      movem.l D0-D1/A0,-(SP)
                lea     level_dat(A6),A0 ;Hier steht der Level
                move.w  #22*15-1,D0     ;Feldgröße
                moveq   #0,D1
check_win1:     cmpi.b  #8|6,(A0)       ;Spieler auf Exit?
                bne.s   check_win2
                moveq   #-1,D1          ;Flag dafür setzen
check_win2:     cmpi.b  #3,(A0)+
                dbeq    D0,check_win1   ;Nein, noch nicht
                beq.s   check_win3
                clr.b   timer_stop(A6)  ;Uhr anhalten
                tst.b   D1              ;Spieler auf dem Ausgang? Z=1, wenn nicht
check_win3:     movem.l (SP)+,D0-D1/A0
                rts

;*******************************************************************************
;* Score um einen Punkt erniedrigen                                            *
;*******************************************************************************
score_down:     tst.w   demo_mode(A6)   ;Demo-Mode an?
                bne.s   score_down0     ;dann Score löschen
                subq.w  #1,akt_score(A6) ;sonst ein Punkt abziehen
                bpl.s   score_down1     ;Ende, wenn noch positiv
score_down0:    clr.w   akt_score(A6)   ;sonst Score löschen
score_down1:    rts

;*******************************************************************************
;* Bewegung des Spieler und Verschieben der Objekte                            *
;*******************************************************************************
movement:       move.w  akt_koord_y(A6),D0
                move.w  akt_koord_x(A6),D1
                bsr     get_char

                moveq   #0,D6
                moveq   #0,D7
                btst    #3,dir(A6)      ;Cursor right?
                beq.s   movement1
                moveq   #1,D6
                bsr     move_check
                ble.s   movement4       ;Feld ist gültig
                moveq   #0,D6
                bra.s   movement4

movement1:      lsr.w   #8,D3
                btst    #2,dir(A6)      ;Cursor left?
                beq.s   movement2
                moveq   #-1,D6
                bsr.s   move_check
                ble.s   movement4       ;Feld ist gültig
                moveq   #0,D6
                bra.s   movement4

movement2:      swap    D3
                btst    #1,dir(A6)      ;Cursor down?
                beq.s   movement3
                moveq   #1,D7
                bsr.s   move_check
                ble.s   movement4       ;Feld ist gültig
                moveq   #0,D7
                bra.s   movement4

movement3:      lsr.w   #8,D3
                btst    #0,dir(A6)      ;Cursor up?
                beq.s   movement4
                moveq   #-1,D7
                bsr.s   move_check
                ble.s   movement4       ;Feld ist gültig
                moveq   #0,D7
movement4:      bsr     clear_object    ;Object an (D0;D1) entfernen
                add.w   D7,D0
                add.w   D6,D1
                move.w  D0,akt_koord_y(A6)
                move.w  D1,akt_koord_x(A6)
                moveq   #-1,D2          ;Spieler setzen
                bsr     set_object      ;Object an (D0;D1) setzen
                tst.w   D7
                bne.s   movement5
                tst.w   D6
                beq.s   move_end
movement5:      addq.w  #1,moves(A6)
                bsr     verzögerung
move_end:       btst    #1,$0484.w
                bne.s   move_end2
                btst    #7,dir(A6)      ;Feuertaste?
                bne.s   move_end2       ;dann Autorepeat
                clr.b   dir(A6)         ;Joystick-Daten löschen
move_end2:      rts

move_tab:       DC.B 1,0,0,-1,-1,0
move_check:     ext.w   D3
                move.b  move_tab(PC,D3.w),D5
                bpl.s   move_checke     ;Mauer oder nix => Fertig
                movem.l D0-A6,-(SP)     ;Block bewegen
                add.w   D7,D0           ;Position des Blockes errechnen
                add.w   D6,D1
                bsr     get_char        ;Umgebung des Blocks holen
                moveq   #0,D2
                cmp.b   #1,D6           ;nach rechts?
                beq.s   move_check1
                moveq   #8,D2
                cmp.b   #-1,D6
                beq.s   move_check1
                moveq   #16,D2
                cmp.b   #1,D7
                beq.s   move_check1
                moveq   #24,D2
                cmp.b   #-1,D7
                bne.s   move_checke1    ;Keine gültige Bewegung
move_check1:    lsr.l   D2,D3
                subq.b  #1,D3           ;Hintergrund ist möglich
                beq.s   move_check2
                subq.b  #1,D3           ;Zielfeld ist möglich
                bne.s   move_checke1
move_check2:    bsr.s   clear_object
                add.w   D7,D0           ;Zielposition des Blockes errechnen
                add.w   D6,D1
                moveq   #0,D2
                bsr.s   set_object
                addq.w  #1,pushes(A6)   ;Verschiebungen+1
                bsr     score_down
                bsr     score_down
                bsr     score_down
                bsr     score_down      ;fünf Punkte weniger
                moveq   #0,D0           ;Bewegung ist möglich
                movem.l (SP)+,D0-A6
                rts
move_checke1:   moveq   #1,D0           ;Bewegung nicht möglich
                movem.l (SP)+,D0-A6
move_checke:    rts

;*******************************************************************************
;* Objekt an (D1;D0) löschen                                                   *
;*******************************************************************************
clear_object:   movem.l D0-D1,-(SP)
                mulu    #22,D0          ;Y*22
                add.w   D1,D0           ;+X
                lea     level_dat(A6),A0 ;Hier steht der Level
                lea     0(A0,D0.w),A0   ;Adresse des Feldes
                move.b  (A0),D1         ;Object holen
                cmp.b   #4,D1           ;Diamand an?
                bne.s   clear_object1   ;Weg, wenn nicht
                move.b  #2,(A0)         ;Zielfeld setzen
                bra.s   clear_objecte
clear_object1:  lsr.b   #3,D1
                moveq   #1,D0           ;freies Feld
                tst.b   D1
                beq.s   clear_object2   ;Nix los!
                moveq   #5,D0           ;Exit
                subq.b  #1,D1
                beq.s   clear_object2
                moveq   #2,D0           ;Zielfeld
clear_object2:  move.b  D0,(A0)         ;Hintergrund setzen
clear_objecte:  movem.l (SP)+,D0-D1
                rts

;*******************************************************************************
;* Mauer oder Spieler an (D1;D0) setzen (D2<0: Spieler)                        *
;*******************************************************************************
set_object:     movem.l D0-D1,-(SP)
                mulu    #22,D0          ;Y*22
                add.w   D1,D0           ;+X
                lea     level_dat(A6),A0 ;Hier steht der Level
                lea     0(A0,D0.w),A0   ;Adresse der Position
                move.b  (A0),D1         ;Object holen
                tst.b   D2              ;Block oder Spieler
                bmi.s   set_object1     ;der Spieler =>
                moveq   #3,D0           ;Diamant aus
                subq.b  #1,D1           ;Leeres Feld
                beq.s   set_object2
                moveq   #4,D0           ;Diamant an
                subq.b  #1,D1           ;Zielfeld
                bne.s   set_objecte
                bra.s   set_object2

set_object1:    moveq   #6,D0           ;Spieler auf freiem Feld
                subq.b  #1,D1
                beq.s   set_object2
                moveq   #6|16,D0        ;Spieler auf Zielfeld
                subq.b  #1,D1
                beq.s   set_object2
                moveq   #6|8,D0         ;Spieler auf Exit
                subq.b  #3,D1
                bne.s   set_objecte
set_object2:    move.b  D0,(A0)
set_objecte:    movem.l (SP)+,D0-D1
                rts

;*******************************************************************************
;* Level nach level_dat umkopieren und in ein erweitertes Format wandeln       *
;*******************************************************************************
init_level:     movem.l D0-A6,-(SP)
                clr.b   timer_stop(A6)  ;Uhr anhalten
                clr.w   moves(A6)       ;Bewegungen löschen
                clr.w   pushes(A6)      ;Verschiebungen löschen
                moveq   #'0',D0
                move.b  D0,time_std_txt(A6)
                move.b  D0,time_min_txt(A6) ;Uhrzeit löschen
                move.b  D0,time_min_txt+1(A6)
                move.b  D0,time_sek_txt(A6)
                move.b  D0,time_sek_txt+1(A6)
                lea     all_level_data(A6),A0 ;Hier steht der originale Level
                move.w  akt_level(A6),D0
                muls    #64,D0          ;Da auch "-1" möglich ist!!!
                adda.w  D0,A0
                lea     level_dat+23(A6),A1 ;und hier soll er hin
                lea     init_leveltab(PC),A2
                move.l  #$01020001,(A2)
                tst.b   out_of_game(A6)
                bne.s   init_level0
                move.l  #$01020003,(A2)
init_level0:    moveq   #11,D1          ;12 Zeilen kopieren
init_level1:    moveq   #4,D0           ;5 Byte pro Zeile
init_level2:    move.b  (A0)+,D2
                moveq   #3,D4           ;4 Felder pro Byte
init_level3:    rol.b   #2,D2
                moveq   #3,D3
                and.b   D2,D3
                move.b  0(A2,D3.w),(A1)+
                dbra    D4,init_level3
                dbra    D0,init_level2
                addq.l  #2,A1           ;rechten & linken Rand überspringen
                dbra    D1,init_level1
                moveq   #0,D0
                move.b  (A0)+,D0
                lsr.b   #1,D0           ;X-Koordinate des Starts holen
                addq.w  #1,D0
                move.w  D0,D1
                swap    D0
                move.b  (A0)+,D0
                and.b   #$7F,D0         ;oberstes Bit löschen
                lsr.b   #1,D0           ;Y-Koordinate des Starts holen
                addq.w  #1,D0
                move.l  D0,akt_koord_x(A6) ;aktuelle Spielerkoordinate
                mulu    #22,D0          ;Y*22
                add.w   D1,D0           ;+X
                move.w  (A0),hiscore(A6) ;Highscore setzen
                lea     level_dat(A6),A0 ;Hier steht der originale Level
                move.b  #6|8,0(A0,D0.w) ;Player auf Exit setzen
                clr.w   akt_score(A6)
                move.w  #22*15-1,D0
                moveq   #0,D1
init_level4:    cmpi.b  #2,(A0)+        ;Anzahl der Ziel-Felder ermitteln
                beq.s   init_level5
                cmpi.b  #4,-1(A0)       ;Block auf Zielfeld
                bne.s   init_level6
init_level5:    addi.w  #100,akt_score(A6) ;pro Feld 100 Punkte mehr
init_level6:    dbra    D0,init_level4
                movem.l (SP)+,D0-A6
                rts
init_leveltab:  DC.B 1,2,0,3

;*******************************************************************************
;* Level nach logbase zeichnen                                                 *
;*******************************************************************************
plot_level:     tst.b   rez(A6)         ;Farbmonitor?
                bmi     plotc_level     ;Level in Farbe zeichnen
                movem.l D0-A6,-(SP)
                lea     level_dat(A6),A0 ;Level-Daten
                movea.l logbase(A6),A1  ;Bildschirmadresse
                lea     mono_grafik(A6),A2 ;Grafik-Daten
                moveq   #1,D0           ;Zeile=1
plot_level1:    moveq   #1,D1           ;Spalte=1
plot_level2:    bsr     get_char        ;Zeichen an der Position ermitteln
                and.w   #7,D2           ;Zusatzsbits ausmaskieren
                beq.s   plot_level6     ;Die Wand bekommt eine Extra-Behandlung
                lsl.w   #7,D2
                lea     0(A2,D2.w),A3
                movea.l A1,A4
                moveq   #31,D4          ;32 Pixelzeilen kopieren
plot_level3:    move.l  (A3)+,(A4)      ;Zeichen kopieren
                lea     80(A4),A4
                dbra    D4,plot_level3
plot_level4:    addq.l  #4,A1           ;Nächste Bildschirmposition
                addq.w  #1,D1
                cmp.w   #21,D1          ;Zeile voll?
                bne.s   plot_level2     ;nein, noch nicht
                lea     31*80(A1),A1    ;Nächstes Bildschirmposition errechnen
                addq.w  #1,D0
                cmp.w   #13,D0          ;letzte Zeile bereits ausgegeben?
                bne.s   plot_level1     ;Nein! Oben geht's weiter ^^^
                lea     -80(A1),A1
                moveq   #19,D0
                moveq   #-1,D1
plot_level5:    move.l  D1,(A1)+        ;untere Linie ziehen
                dbra    D0,plot_level5
                movem.l (SP)+,D0-A6
                rts

;Wände erfahren eine Sonderbehandlung, da evtl.Rahmen gezeichnet werden müssen
plot_level6:    movea.l A2,A3
                movea.l A1,A4
                moveq   #30,D4          ;31 Pixelzeilen kopieren
plot_level7:    move.l  (A3)+,D5
                cmp.w   #30,D4          ;1.Zeile?
                bne.s   plot_level71    ;Weiter, wenn nicht
                move.l  #$FF000000,D2
                and.l   D3,D2           ;Oben eine Mauer?
                beq.s   plot_level71    ;Ende, wenn ja
                moveq   #-1,D5          ;sonst oben eine Linie ziehen
                bra.s   plot_level91
plot_level71:   tst.b   D3              ;Ist rechts eine Wand?
                beq.s   plot_level8     ;Nein! =>
                or.b    #1,D5           ;Dann Wand rechts abschließen
plot_level8:    ror.w   #8,D3
                tst.b   D3              ;Ist links auch eine Wand?
                beq.s   plot_level9     ;Nein! =>
                bset    #31,D5          ;Dann Wand links abschließen
plot_level9:    rol.w   #8,D3           ;Wert wieder rekonstruieren
plot_level91:   move.l  D5,(A4)         ;Pixelzeile schreiben
                lea     80(A4),A4       ;Nächste Pixelzeile
                dbra    D4,plot_level7

;Nun kommt die Abhandlung der 31. & letzten Pixelzeile einer Wand:
                move.l  (A3)+,D5        ;letzte Pixelzeile holen
                swap    D3
                tst.b   D3              ;Ist unten auch eine Wand?
                beq.s   plot_level11    ;Ja! =>
                moveq   #-1,D5          ;sonst eine Linie ziehen

;Ab hier werden evtl. zwei einzelne Punkte gesetzt, welche einen sonst
;erkennbaren Schönheitsfehler korrigieren.
;z.B:   Wand1 Wand2
;       Leer  Wand3
;Es wird bei Wand2 ein Pixel in der linken unteren Ecke gesetzt (Eckstück)
;2. Möglichkeit: Wand1 Wand2
;                Wand3 Leer
;Hier wird bei Wand1 ein Pixel in der rechten unteren Ecke gesetzt
plot_level11:   addq.w  #1,D0           ;Zeile+1 (dewegen unten zwei Wandzeilen!)
                bsr     get_char        ;umgebende Zeichen der nächsten Zeile holen
                subq.w  #1,D0           ;Zeile wieder zurück
                tst.b   D3              ;rechts auch eine Wand?
                beq.s   plot_level12    ;dann nichts tun =>
                or.b    #1,D5           ;rechts einen Punkt setzen
plot_level12:   ror.w   #8,D3
                tst.b   D3              ;links auch eine Wand?
                beq.s   plot_level13    ;dann nichts tun =>
                bset    #31,D5          ;links einen Punkt setzen
plot_level13:   move.l  D5,(A4)         ;letzte Pixelzeile schreiben
                bra     plot_level4     ;Nächstes Zeichen ausgeben

;*******************************************************************************
;* Level in Farbe nach logbase zeichnen                                        *
;*******************************************************************************
plotc_level:    tst.b   demo_mode(A6)   ;Im Demo keine Verzögerung
                bne.s   plotc_level0
                bsr.s   plotc_level0    ;3 mal zeichnen => etwa die monochrom
                bsr     plotc_level0    ;Geschwindigkeit
plotc_level0:   movem.l D0-A6,-(SP)
                lea     level_dat(A6),A0 ;Level-Daten
                movea.l logbase(A6),A1  ;Bildschirmadresse
                lea     farb_grafik(A6),A2 ;Grafik-Daten
                moveq   #1,D0           ;Zeile=1
plotc_level1:   moveq   #1,D1           ;Spalte=1
plotc_level2:   bsr.s   get_char        ;Zeichen an der Position ermitteln
                and.w   #7,D2           ;Zusatzsbits ausmaskieren
                lsl.w   #7,D2
                lea     0(A2,D2.w),A3   ;Adresse der Grafiken
                movea.l A1,A4
                moveq   #15,D4          ;16 Pixelzeilen kopieren
plotc_level3:   move.l  (A3)+,(A4)+     ;Zeichen kopieren
                move.l  (A3)+,(A4)
                lea     156(A4),A4
                dbra    D4,plotc_level3
                addq.l  #8,A1           ;Nächste Bildschirmposition
                addq.w  #1,D1
                cmp.w   #21,D1          ;Zeile voll?
                bne.s   plotc_level2    ;nein, noch nicht
                lea     15*160(A1),A1   ;Nächstes Bildschirmposition errechnen
                addq.w  #1,D0
                cmp.w   #13,D0          ;letzte Zeile bereits ausgegeben?
                bne.s   plotc_level1    ;Nein! Oben geht's weiter ^^^
                lea     -160(A1),A1
                moveq   #39,D0
                moveq   #-1,D1
plotc_level5:   move.w  D1,(A1)+        ;untere Linie ziehen
                clr.w   (A1)+
                dbra    D0,plotc_level5
                movem.l (SP)+,D0-A6
                rts

;*******************************************************************************
;* Zeichen um bzw. an einer bestimmten Position ermitteln                      *
;* => D0.W:Zeile (1-12)                                                        *
;*    D1.W:Spalte (1-20)                                                       *
;* <= D2.W:aktuelles Zeichen (5, siehe Tabelle unten)                          *
;*    D3.L:Byte 3 - oberes Zeichen (2)                                         *
;*         Byte 2 - unteres Zeichen (8)                                        *
;*         Byte 1 - linkes Zeichen (4)                                         *
;*         Byte 0 - rechtes Zeichen (6)                                        *
;*    1 2 3                                                                    *
;*    4 5 6                                                                    *
;*    7 8 9                                                                    *
;*******************************************************************************
get_char:       lea     level_dat(A6),A0 ;Level-Daten
                move.w  D0,D2
                mulu    #22,D2          ;Zeile*22
                add.w   D1,D2           ;+Spalte
                lea     0(A0,D2.w),A0   ;Adresse des aktuellen Zeichens
                movep.w -22(A0),D3      ;oberes Zeichen holen
                move.b  22(A0),D3       ;unteres Zeichen holen
                swap    D3
                movep.w -1(A0),D3       ;linkes & rechtes Zeichen holen
                move.b  (A0),D2         ;aktuelles Zeichen holen
                ext.w   D2
                rts

;*******************************************************************************
;* Verzögerung bei Bewegung des Joysticks (Spiel sich besser)                  *
;*******************************************************************************
verzögerung:    move.w  #20000,D0
verzögerung1:   dbra    D0,verzögerung1
                rts

;*******************************************************************************
;* Taste holen (D0=0, wenn keine gedrückt, sonst D0.W=Scancode der Taste)      *
;*******************************************************************************
get_key:        movem.l D0-D2/A0-A2,-(SP)
                move.w  #$0B,-(SP)
                trap    #1              ;Cconis()
                addq.l  #2,SP
                tst.l   D0              ;Taste gedrückt?
                beq.s   get_key1        ;Nein, dann weiter
                move.w  #7,-(SP)
                trap    #1              ;Crawin()
                addq.l  #2,SP
                swap    D0              ;Scancode nach unten
get_key1:       move.w  D0,key(A6)      ;Tastencode merken
                tst.b   demo_mode(A6)   ;Demo-Mode aktiv?
                bne.s   get_demo        ;Richtungen für's Demo holen
                cmpi.b  #'J',joy_text(A6)
                beq.s   get_key3        ;Joystick-Steuerung
                clr.b   dir(A6)         ;Richtungen löschen
                lea     key_tab-1(PC),A0
get_key2:       tst.b   (A0)+
                bmi.s   get_key3
                cmp.b   (A0)+,D0
                bne.s   get_key2
                move.b  (A0),dir(A6)
get_key3:       movem.l (SP)+,D0-D2/A0-A2
                rts
                DC.B 0
key_tab:        DC.B $4D,8,$4B,4,$50,2,$48,1,-1,-1 ;Joystick-Richtungen
                EVEN

get_demo:       tst.b   demo_count2(A6)
                bpl.s   get_demo1
                move.w  demo_level(A6),D0
                add.w   D0,D0           ;und mal 2
                lea     demo_level_tab(PC),A0
                adda.w  0(A0,D0.w),A0   ;Adresse der Demo-Daten des Levels
                move.w  demo_count(A6),D0
                move.b  0(A0,D0.w),D0
                beq.s   get_demo2       ;Ende des Demos (nix mehr tun)
                addq.w  #1,demo_count(A6)
                move.b  D0,D1
                lsr.b   #4,D1           ;Anzahl isolieren
                move.b  D1,demo_count2(A6)
                and.b   #$0F,D0
                move.b  D0,demo_dir(A6) ;Richtung merken
get_demo1:      subq.b  #1,demo_count2(A6)
                move.b  demo_dir(A6),D0
get_demo2:      move.b  D0,dir(A6)
                movem.l (SP)+,D0-D2/A0-A2
                rts
                BASE DC.W,demo_level_tab
demo_level_tab: DC.W demo_titel,demo_level1
demo_titel:     DC.B $41,$68,$02,$08,$01,$08,$01,$F4,$14,$02,$04,$31
                DC.B $22,$C8,$11,$04,$02,$08,$02,$B4,$02,$04,$21
                DC.B $12,$58,$11,$04,$02,$08,$02,$44,$02,$04,$11
                DC.B $12,$18,$12,$08,$11,$08,$01,$24,$02,$04,$01
                DC.B $02,$98,$42
demo_level1:    DC.B $44,$42,$14,$12,$08,$12,$04,$31,$08,$01,$14,$01,$04,$42
                DC.B $31,$18,$22,$28,$02,$18,$01,$34,$02,$04,$21,$08,$01,$14
                DC.B $01,$04,$32
                DC.B $21,$18,$22,$38,$11,$28,$12,$54,$02,$04,$21,$08,$01,$14
                DC.B $01,$04,$22
                DC.B $11,$18,$22,$38,$11,$08,$02,$01,$18,$12,$54,$02,$04,$21
                DC.B $08,$01,$14,$01,$04,$12
                DC.B $11,$34,$01,$34,$11,$08,$02,$04,$02,$08,$38,$01,$08,$12
                DC.B $04,$02,$18,$01,$08,$42
                DC.B $31,$44,$02,$14,$01,$58,$01,$08,$32
                DC.B $21,$64,$32,$18,$21,$04,$01,$48,$01,$08,$22
                DC.B $11,$44,$32,$28,$11,$04,$02,$08,$02,$24,$02,$14,$01,$08
                DC.B $02,$08,$31,$04,$01,$48,$01,$08,$22
                DC.B $01,$48,$31,$48
                EVEN

;*******************************************************************************
;* Autorepeat-Ausgabe setzen                                                   *
;*******************************************************************************
set_autorep_txt:lea     autorep_text(A6),A0
                btst    #1,$0484.w
                bne.s   set_autorep1
                move.b  #'f',(A0)+      ;'off'
                move.b  #'f',(A0)
                rts
set_autorep1:   move.b  #'n',(A0)+      ;'on '
                move.b  #' ',(A0)+
                rts

;*******************************************************************************
;* switch_screen: Physbase & Logbase vertauschen                               *
;*******************************************************************************
switch_screen:  movem.l D0-D2/A0-A2,-(SP)
                move.l  physbase(A6),D0
                move.l  logbase(A6),D1
                move.l  D1,physbase(A6)
                move.l  D0,logbase(A6)
                move.w  #-1,-(SP)
                move.l  D1,-(SP)
                move.l  D0,-(SP)
                move.w  #5,-(SP)
                trap    #14
                lea     12(SP),SP
                movem.l (SP)+,D0-D2/A0-A2
                rts

;*******************************************************************************
;* Untere Zeile neu ausgeben                                                   *
;*******************************************************************************
update_line:    movem.l D0-A6,-(SP)
                moveq   #0,D0
                move.w  akt_level(A6),D0
                addq.w  #1,D0
                divu    #10,D0
                or.l    #$300030,D0
                move.b  D0,level_txt(A6) ;Levelnummer einsetzen
                move.b  D0,level_text(A6)
                swap    D0
                move.b  D0,level_txt+1(A6)
                move.b  D0,level_text+1(A6)
                moveq   #0,D0
                move.w  moves(A6),D0
                moveq   #3,D4
                lea     moves_txt(A6),A0
                bsr     dez_out

                move.w  pushes(A6),D0
                moveq   #3,D4
                lea     pushes_txt(A6),A0
                bsr     dez_out

                move.w  akt_score(A6),D0
                add.w   big_score(A6),D0
                moveq   #3,D4
                lea     score_txt(A6),A0
                bsr     dez_out

                move.w  hiscore(A6),D0
                lea     hiscore_txt(A6),A0
                bsr     dez_out

                lea     text(A6),A0     ;und ausgeben
                bsr.s   print
                movem.l (SP)+,D0-A6
                rts

;*******************************************************************************
;* Frage in D0 stellen, auf "Y" oder "Z" bzw. "N" warten                       *
;*******************************************************************************
do_dialog:      moveq   #3,D1
                lea     dialog_string(A6),A0
do_dialog0:     rol.l   #8,D0           ;die vier Zeichen übertragen
                move.b  D0,(A0)+
                dbra    D1,do_dialog0
                lea     dialog_txt(A6),A0
                bsr.s   print_text      ;String ausgeben
do_dialog1:     bsr     get_key         ;Tastatur auswerten
                move.w  key(A6),D0      ;Taste holen
                cmp.w   #$31,D0
                beq.s   do_dialog2
                cmp.w   #$15,D0         ;Z
                beq.s   do_dialog2
                cmp.w   #$2C,D0         ;Y
                bne.s   do_dialog1
do_dialog2:     sub.w   #$31,D0         ;0= NEIN, <>0= JA
                rts

;*******************************************************************************
;* Text ab A0 ausgeben, aber ganze Seite auch noch neu ausgeben                *
;*******************************************************************************
print_text:     bsr     init_level      ;Level intern entpacken
                bsr     plot_level      ;Level zeichnen
                bsr     update_line     ;untere Textzeile neu ausgeben
                bsr.s   print           ;Text ausgeben
                bra     switch_screen   ;Bildschirmseiten umschalten

;*******************************************************************************
;* Text ab A0 ausgeben                                                         *
;*******************************************************************************
print:          movem.l D0-D4/A0-A3,-(SP)
                tst.b   rez(A6)         ;Farbmonitor?
                bmi.s   print_color0    ;ja! =>
print0:         moveq   #0,D1
                move.b  (A0)+,D1        ;Spalte holen
                moveq   #0,D0
                move.b  (A0)+,D0        ;Zeile holen
                mulu    #16*80,D0       ;Spaltenoffset errechnen
                add.w   D1,D0           ;Spalte dazu
                movea.l logbase(A6),A1
                adda.w  D0,A1           ;Adresse auf dem Schirm
                movea.l font_adr(A6),A2 ;Adresse des 16x16-Fonts
print1:         moveq   #0,D0
                move.b  (A0)+,D0        ;Zeichen holen
                beq.s   print3          ;Ende des Strings
                cmp.b   #$FF,D0         ;Noch ein String
                beq.s   print0          ;nächste Koordinate holen
                moveq   #0,D2           ;nur einmal ausgeben
                cmp.b   #1,D0           ;Zeichen mehrfach ausgeben?
                bne.s   print4
                move.b  (A0)+,D2        ;Anzahl holen
                moveq   #' ',D0         ;Space ausgeben
print4:         lea     0(A2,D0.w),A3   ;Adresse des Zeichens
                moveq   #15,D1          ;16 Pixelzeilen ausgeben
print2:         move.b  (A3),D4
                not.b   D4              ;Zeichen invertieren
                move.b  D4,(A1)
                lea     256(A3),A3
                lea     80(A1),A1
                dbra    D1,print2
                lea     -16*80+1(A1),A1 ;Pointer auf das nächste Zeichen
                dbra    D2,print4       ;Zeichen mehrfach ausgeben?
                bra.s   print1
print3:         movem.l (SP)+,D0-D4/A0-A3
                rts
print_color0:   moveq   #0,D1
                move.b  (A0)+,D1        ;Spalte holen
                moveq   #1,D2
                and.w   D1,D2
                and.w   #-2,D1
                add.w   D1,D1
                add.w   D2,D1
                moveq   #0,D0
                move.b  (A0)+,D0        ;Zeile holen
                mulu    #8*160,D0       ;Spaltenoffset errechnen
                add.w   D1,D0           ;Spalte dazu
                movea.l logbase(A6),A1
                adda.w  D0,A1           ;Adresse auf dem Schirm
                movea.l font_adr+4(A6),A2 ;Adresse des 16x16-Fonts
print_color1:   moveq   #0,D0
                move.b  (A0)+,D0        ;Zeichen holen
                beq.s   print3          ;Ende des Strings
                cmp.b   #$FF,D0         ;Noch ein String
                beq.s   print_color0    ;nächste Koordinate holen
                moveq   #0,D2           ;nur einmal ausgeben
                cmp.b   #1,D0           ;Zeichen mehrfach ausgeben?
                bne.s   print_color4
                move.b  (A0)+,D2        ;Anzahl holen
                moveq   #' ',D0         ;Space ausgeben
print_color4:   lea     0(A2,D0.w),A3   ;Adresse des Zeichens
                moveq   #7,D1           ;8 Pixelzeilen ausgeben
print_color2:   move.b  (A3),D4
                not.b   D4              ;Zeichen invertieren
                move.b  D4,(A1)
                clr.b   2(A1)
                lea     256(A3),A3
                lea     160(A1),A1
                dbra    D1,print_color2
                lea     -8*160+1(A1),A1 ;Pointer auf das nächste Zeichen
                move.w  A1,D4
                btst    #0,D4
                bne.s   print_color5
                addq.l  #2,A1
print_color5:   dbra    D2,print_color4
                bra.s   print_color1

;************************************************************************
;* Dezimal-Zahl in D0 nach A0 ausgeben                                  *
;* Anzahl der Stellen in D4                                             *
;************************************************************************
dez_out:        movem.l D0-D5/A3,-(SP)
                lea     dez_out_tab(PC),A3
                move.w  D4,D5
                lsl.w   #2,D5
                lea     4(A3,D5.w),A3
                moveq   #'0',D5
dez_out1:       move.l  -(A3),D3
                moveq   #$D0,D2
dez_out2:       sub.l   D3,D0
                dbcs    D2,dez_out2
                neg.b   D2
                move.b  D2,D1
                cmp.b   #'0',D1
                beq.s   dez_out4
                moveq   #'0',D5
dez_out3:       move.b  D1,(A0)+        ;Zahl in den Buffer
                add.l   D3,D0
                dbra    D4,dez_out1
                movem.l (SP)+,D0-D5/A3
                rts
dez_out4:       move.w  D5,D1
                tst.w   D4
                bne.s   dez_out3
                moveq   #'0',D1
                bra.s   dez_out3

dez_out_tab:    DC.L 1,10,100,1000,10000,100000
                DC.L 1000000,10000000,100000000,1000000000

;*******************************************************************************
;* Allgemeines Init                                                            *
;*******************************************************************************
init:           move.w  #2,-(SP)        ;Bildschirmadressen merken
                trap    #14
                addq.l  #2,SP
                move.l  D0,old_physbase(A6)
                move.w  #3,-(SP)
                trap    #14
                addq.l  #2,SP
                move.l  D0,old_logbase(A6)

                movem.l $FFFF8240.w,D0-D7
                movem.l D0-D7,old_pal(A6) ;Farben retten
                moveq   #3,D0
                and.b   $FFFF8260.w,D0
                move.b  D0,rez(A6)      ;die akt.Auflösung
                subq.b  #2,rez(A6)
                move.w  D0,old_rez(A6)  ;und die Auflösung merken
                btst    #1,D0
                bne.s   init4
                pea     farb_pal(A6)
                move.w  #6,-(SP)
                trap    #14             ;Farbpalette setzen
                addq.l  #6,SP
                moveq   #-1,D0
                move.w  #1,-(SP)
                move.l  D0,-(SP)
                move.l  D0,-(SP)
                move.w  #5,-(SP)
                trap    #14             ;geringe Auflösung an
                lea     12(SP),SP
init4:          lea     screens+255(A6),A0
                move.l  A0,D0
                clr.b   D0              ;Bildschirmadresse durch 256 teilbar
                movea.l D0,A0           ;machen
                move.l  A0,physbase(A6) ;1.Seite ist am Anfang "physbase"
                lea     32000(A0),A0
                move.l  A0,logbase(A6)  ;2. Seite ist am Anfang "logbase"

                pea     own_timer(PC)
                move.l  #$050045,-(SP)
                trap    #13             ;eigener 200Hz-Timer
                addq.l  #8,SP
                lea     org_timer(PC),A0
                move.l  D0,2(A0)        ;originalen 200Hz-Timer auch noch nutzen

                move.w  #$22,-(SP)
                trap    #14
                addq.l  #2,SP
                movea.l D0,A0
                lea     24(A0),A0
                move.l  A0,old_joyadr(A6)
                move.l  (A0),old_joyvec(A6)
                lea     own_joyvec(PC),A1
                move.l  A1,(A0)         ;eigene Joystickroutine

                pea     init_joy(PC)
                move.l  #$190001,-(SP)
                trap    #14             ;Joystick an, Maus aus
                addq.l  #8,SP

                linea   #10 [ Hidem ]
                linea   #0 [ Init ]
                movea.l 4(A1),A0        ;Adresse des 8x8-Fonts
                move.l  76(A0),font_adr+4(A6)
                movea.l 8(A1),A0        ;Adresse des 16x16-Fonts
                move.l  76(A0),font_adr(A6)

init1:          bsr     get_key         ;Keyboard-Buffer löschen
                tst.w   key(A6)
                bne.s   init1

                lea     titel_level(A6),A0
                lea     all_level_data-64(A6),A1
                moveq   #15,D0
init3:          move.l  (A0)+,(A1)+     ;Titel-Level kopieren
                dbra    D0,init3

                move.b  $0484.w,old_conterm(A6)
                andi.b  #$F6,$0484.w    ;Tastaturklick aus / Kbshift-Bits aus
                bsr     set_autorep_txt ;Autorepeat-Text setzen

                lea     init2(PC),A5
                bra     do_load_levels  ;Level laden

init2:          rts

;*******************************************************************************
;* Allgemeines Exit                                                            *
;*******************************************************************************
exit:           move.l  #'quit',D0
                bsr     do_dialog
                beq     restart_clr     ;Nicht beenden

                movea.l old_joyadr(A6),A0
                move.l  old_joyvec(A6),(A0) ;Joystick-Vektor zurück

                move.b  old_conterm(A6),$0484.w

                movem.l old_pal(A6),D0-D7 ;Farben zurück
                movem.l D0-D7,$FFFF8240.w
                move.w  old_rez(A6),-(SP) ;Bildschirmadressen zurücksetzen
                move.l  old_physbase(A6),-(SP)
                move.l  old_logbase(A6),-(SP)
                move.w  #5,-(SP)
                trap    #14
                lea     12(SP),SP

                move.l  org_timer+2(PC),-(SP)
                move.l  #$050045,-(SP)
                trap    #13             ;alter 200Hz-Timer
                addq.l  #8,SP

                pea     exit_joy(PC)
                move.l  #$190000,-(SP)
                trap    #14             ;Maus wieder an
                addq.l  #8,SP
                rts

;*******************************************************************************
;* Eigene Joystick-IRQ-Routine                                                 *
;*******************************************************************************
own_joyvec:     move.l  A6,-(SP)
                lea     varbase(PC),A6
                tst.b   demo_mode(A6)   ;Demo aktiv?
                bne.s   own_joyvec1     ;dann nix tun
                cmpi.b  #'J',joy_text(A6)
                bne.s   own_joyvec1     ;Joystick-Steuerung
                move.b  2(A0),dir(A6)
own_joyvec1:    movea.l (SP)+,A6
                rts

;*******************************************************************************
;* Eigene 200Hz-IRQ-Timer-Routine                                              *
;*******************************************************************************
own_timer:      movem.l A0/A6,-(SP)
                lea     varbase(PC),A6
                addq.w  #1,timer2(A6)
                subq.w  #1,timer(A6)    ;200Hz-Zähler
                bpl.s   own_timer_e
                move.w  #199,timer(A6)

                tst.b   timer_stop(A6)
                beq.s   own_timer_e

                bsr     score_down      ;pro Sekunde einen Punkt weniger

                lea     time_sek_txt+1(A6),A0
                addq.b  #1,(A0)
                cmpi.b  #$3A,(A0)
                bne.s   own_timer_e     ;Sekunden hochzählen
                move.b  #'0',(A0)
                subq.l  #1,A0
                addq.b  #1,(A0)
                cmpi.b  #'6',(A0)
                bne.s   own_timer_e
                move.b  #'0',(A0)

                lea     time_min_txt+1(A6),A0
                addq.b  #1,(A0)
                cmpi.b  #$3A,(A0)
                bne.s   own_timer_e     ;Minuten hochzählen
                move.b  #'0',(A0)
                subq.l  #1,A0
                addq.b  #1,(A0)
                cmpi.b  #'6',(A0)
                bne.s   own_timer_e
                move.b  #'0',(A0)

                addq.b  #1,time_std_txt(A6) ;Stunden erhöhen

own_timer_e:    movem.l (SP)+,A0/A6
org_timer:      jmp     $12345678

;*******************************************************************************
;* Hier beginnt nun der DATA-Bereich                                           *
;*******************************************************************************
                DATA
                BASE DC.W,*
                DC.L 'MRF!'
                DC.L 0      ;Offset zum Anfang
                DC.W mono_grafik
                DC.W 8      ;8 mal
                DC.W 32     ;Zeilenanzahl
                DC.W 4      ;je 4 Byte
                DC.W 80     ;Zeilenoffset

                DC.L 32034  ;Offset zum Anfang
                DC.W farb_grafik
                DC.W 8      ;8 mal
                DC.W 16     ;Zeilenanzahl
                DC.W 8      ;je 8 Byte
                DC.W 160    ;Zeilenoffset

                DC.L 32002  ;Offset zum Anfang
                DC.W farb_pal
                DC.W 16     ;1 mal
                DC.W 1      ;eine Zeile
                DC.W 2      ;je ein Wort
                DC.W 0      ;keine 2.Zeile

                DC.W -1

mono_grafik:    DC.W 8*32*4 ;Platz für die Daten
                DS.W 8*32*4-2
farb_grafik:    DC.W 8*16*8
                DS.W 8*16*8-2
farb_pal:       DC.W 16*1*2
                DS.W 16*1*2-2

titel_level:    DC.B $A8,$82,$22,$08,$82,$60,$82,$22,$88,$88,$60,$AA,$22,$28,$A0,$60
                DC.B $82,$22,$08,$88,$60,$B2,$22,$C8,$82,$00,$00,$00,$00,$00,$00,$00
                DC.B $00,$00,$0C,$83,$8A,$A2,$A8,$82,$80,$88,$22,$08,$88,$88,$88,$22
                DC.B $A8,$A0,$A2,$88,$22,$20,$88,$80,$8A,$A2,$08,$82,$14,$96,$00,$00

text:           DC.B 0,24   ;Bildschirmposition
                DC.B 1,2,'Level:'
level_txt:      DC.B '00'
                DC.B '  Moves:'
moves_txt:      DC.B '0000'
                DC.B '  Pushes:'
pushes_txt:     DC.B '0000'
                DC.B '  Time:'
time_std_txt:   DC.B '0'
                DC.B ':'
time_min_txt:   DC.B '00'
                DC.B ':'
time_sek_txt:   DC.B '00'
                DC.B '  Score:'
score_txt:      DC.B '0000'
                DC.B '  Hiscore:'
hiscore_txt:    DC.B '0000'
                DC.B 1,3,0

text2:          DC.B 30,5,1,21,-1
                DC.B 30,6,1,3,'THINK and WORK',1,3,-1
                DC.B 30,7,1,2,'©1989  by ∑-soft',1,2,-1
                DC.B 30,8,1,21,-1
                DC.B 30,9,' F1  - Start level '
level_text:     DC.B '00 ',-1
                DC.B 30,10,' F2  - Edit level',1,4,-1
                DC.B 30,11,' F3  - Level - 1',1,5,-1
                DC.B 30,12,' F4  - Level + 1',1,5,-1
                DC.B 30,13,' F5  - '
joy_text:       DC.B 'Joystick       ',-1
                DC.B 30,14,' F6  - Autorepeat o'
autorep_text:   DC.B 'ff ',-1
                DC.B 30,15,' F7  - Copyrights',1,4,-1
                DC.B 30,16,' F8  - Load levels',1,3,-1
                DC.B 30,17,' F9  - Save levels',1,3,-1
                DC.B 30,18,' F10 - Quit',1,10,-1
                DC.B 30,19,1,21,0

joy1_txt:       DC.B 'Joystick',0
joy2_txt:       DC.B 'Keyboard',0
dialog_txt:     DC.B 28,11,1,23,-1
                DC.B 28,12,' Sure you want to '
dialog_string:  DC.B 'xxxx? ',-1
                DC.B 28,13,1,23,0

copyright_txt:  DC.B 30,6,1,21,-1
                DC.B 30,7,1,3,'THINK and WORK',1,3,-1
                DC.B 30,8,1,2,'©1989  by ∑-soft',1,2,-1
                DC.B 30,9,1,21,-1
                DC.B 30,10,' ATARI ST Version by  ',-1
                DC.B 30,11,1,2,'Markus Fritze',1,5,-1
                DC.B 30,12,' Written with the',1,4,-1
                DC.B 30,13,1,2,'OMIKRON.Assembler  ',-1
                DC.B 30,14,1,21,-1
                DC.B 30,15,' ATARI XL-Version',1,4,-1
                DC.B 30,16,' and Levels by',1,7,-1
                DC.B 30,17,1,2,'Johann Schilcher',1,2,-1
                DC.B 30,18,1,21,0

text3:          DC.B 0,24
                DC.B ' F1-Wall F2-Target F3-Block F4-Exit'
                DC.B 1,2,'Clr/Home-Clr level',1,2,'UNDO-Undo',1,2,'F10:Quit ',0

fname:          DC.B 'LEVEL.DAT',0
init_joy:       DC.B $12,$14
exit_joy:       DC.B $08

;*******************************************************************************
;* Hier beginnt nun der BSS-Bereich                                            *
;*******************************************************************************
varbase:        BSS         ;Die Globale Offset-Variable steht stets in A6
rez:            DS.B 1      ;0=Monochrom, <>0=Farbe
                EVEN
physbase:       DS.L 1      ;angezeigte Bildschirmseite
logbase:        DS.L 1      ;aktuell zu bearbeitende Bildschirmseite
font_adr:       DS.L 2      ;Adressen der Fonts
akt_level:      DS.W 1      ;aktueller Level (0-24)
save_level:     DS.W 1      ;gemerkter Level (da das Demo den Level ändert)
akt_koord_x:    DS.W 1      ;X-Koordinate des Spielers
akt_koord_y:    DS.W 1      ;Y           -"-
level_anz:      DS.W 1      ;Levelanzahl (hier 25)
demo_count:     DS.W 1      ;Position des Demos
demo_level:     DS.W 1      ;akt.Level des Demos
demo_count2:    DS.B 1      ;Anzahl der Schritte in die gespeicherte Richtung
demo_dir:       DS.B 1      ;gespeicherte Richtung
demo_mode:      DS.B 1      ;<>0 => Demo-Mode aktiv
out_of_game:    DS.B 1      ;=0 => Spiel läuft gerade (Blockanzeige ...)
dir:            DS.B 1      ;Joystick-Daten (Bits 0-3)
timer_stop:     DS.B 1      ;=0 => Zeit steht
timer:          DS.W 1      ;200Hz Zähler mit Werten von 0-199
timer2:         DS.W 1      ;200Hz Zähler
key:            DS.W 1      ;akt.Tastencode
moves:          DS.W 1      ;Anzahl der Bewegungen des Spielers
pushes:         DS.W 1      ;Anzahl der Verschiebungen durch den Spieler
akt_score:      DS.W 1      ;Die erreichten Punkte
big_score:      DS.W 1      ;gesamter Score
hiscore:        DS.W 1      ;Hiscore des akt.Levels
old_joyvec:     DS.L 1      ;alter Joystick-Vektor
old_joyadr:     DS.L 1      ;alte Joystick-Vektor-Adresse
old_physbase:   DS.L 1      ;Bildschirmadresse beim Start
old_logbase:    DS.L 1
old_rez:        DS.W 1      ;Bildschirmauflösung beim Start
old_pal:        DS.W 16     ;alte Farbpalette
old_conterm:    DS.B 1      ;gemerkte conterm-Variable
button_pressed: DS.B 1      ;<>0, wenn Feuertaste im Editor gedrückt
level_buffer:   DS.L 16     ;für UNDO im Editor (64 Byte Levelbuffer)
level_dat:      DS.B 22*15  ;Platz für den aktuellen Level
                DS.B 64     ;Level "-1" = Titel
all_level_data: DS.B 64*max_level ;Platz für max.100 Level
                DS.L 256    ;eigener Stack
own_stack:      DS.L 0
screens:        DS.B 32000*2+255 ;die 2 Bildschirmseiten
                END