************************************
             * 15 er Scheibe f]r Codes(Control) *
             * martin damm j.s.bach str.7       *
             * 3060 stadthagen * 02.12.1987     *
             *********************************md*
             *Zieladressen der Codetabelle
0000081E     BASADR EQU    $81E    *ZEIGER TASTATURCODES
000014A8     D7C    EQU    $14A8   *DISTANZ TASTE"7"
000014C8     UEC    EQU    $14C8   *DISTANZ TASTE"["
000014C7     OEC    EQU    $14C7   *DISTANZ TASTE"\"
000014BA     AEC    EQU    $14BA   *DISTANZ TASTE"]"
             *einzusetzende Werte
             *NIX   EQU    $80     *KEINE WIRKUNG
0000001B     ESC    EQU    $1B     *'27'
0000001C     FS     EQU    $1C     *'28'
0000001D     GS     EQU    $1D     *'29'
             ************************************
             *CODE f}r die Scheibe
000000 AEB1BF95            DC.L   $AEB1BF95     *Scheibe
000004 047B                DC     (15*2+1)*37   *Nr. 15
000006 2078081E            MOVEA.L BASADR,A0
00000A 117C008014A8        MOVE.B  =$80,D7C(A0) *nix f}r Cntrl'7'
000010 117C001D14C8        MOVE.B  =GS,UEC(A0)  *GS  f}r Cntrl']'
000016 117C001C14C7        MOVE.B  =FS,OEC(A0)  *FS  f}r Cntrl'\'
00001C 117C001B14BA        MOVE.B  =ESC,AEC(A0) *ESC f}r Cntrl'['
000022 4E75                RTS                  * zum Nucleus
             *********************************************
             * D U R A S C  17er Scheibe *
             *                   01.12.87*
             **************************md*
             RETN   OPD    $4E4C
             CLKSC  OPD    $A068
             EPAR   OPD.V   19
             ENTR   OPD.V   29
             MPXF   OPD.V  139
             * Distanzen im Workspace
00000000     CLKASC EQU    0           *nur Platz f}r
00000004     CLKSEC EQU    CLKASC+4    *Zeiger n|tig,
00000008     WSPSZ  EQU    CLKSEC+4    *weil IDENT
             * Code f}r die Scheibe
000024 AEB1BF95            DC.L   $AEB1BF95   *Scheibe
000028 050F                DC     (17*2+1)*37 *Nr. 17
00002A 445552415343        DC.B   'DURASC'    *Proc.name
000030 0006         PNTR   DC     START-PNTR  *Proc.startpntr.
000032 000E         DUR    DC.B   0,14        *DUR.]bergabe
000034 0808         C8     DC.B   8,8         *8 CHAR]bergabe
000036 1DC000000008 START  ENTR   WSPSZ.L     *Proc.eintritt
00003C 8B90FFF60000        MPXF   C8,CLKASC.Z *8 CHAR }bernehmen
000042 8B90FFEE0004        MPXF  DUR,CLKSEC.Z *DUR }bernehmen
000048 1300                EPAR               *beides IDENT darum:
00004A 2455                MOVEA.L (A5),A2    *Zeiger auf CHAR-Str
00004C 226D0004            MOVEA.L CLKSEC(A5),A1  *u. auf DUR-Wert
000050 2211                MOVE.L  (A1),D1    *DUR-Wert -> D1 f}r
000052 A068                CLKSC              *CHAR-Str -> (A2)+
000054 4E4C                RETN               *zum Aufrufer
000056              *************************
                           END