************************************
*15 er Scheibe f]r Codes(Control)  *
*martin damm j.s.bach str.7        *
*3060 stadthagen * 02.12.1987      *
********************************md**
*Zieladressen der Codetabelle
BASADR EQU    $81E    *ZEIGER TASTATURCODES
D7C    EQU    $14A8   *DISTANZ TASTE"7"
UEC    EQU    $14C8   *DISTANZ TASTE"["
OEC    EQU    $14C7   *DISTANZ TASTE"\"
AEC    EQU    $14BA   *DISTANZ TASTE"]"
*einzusetzende Werte
*NIX   EQU    $80     *KEINE WIRKUNG
ESC    EQU    $1B     *'27'
FS     EQU    $1C     *'28'
GS     EQU    $1D     *'29'
************************************
*CODE f}r die Scheibe
       DC.L   $AEB1BF95     *Scheibe
       DC     (15*2+1)*37   *Nr. 15
       MOVEA.L BASADR,A0
       MOVE.B  =$80,D7C(A0) *nix f}r Cntrl'7'
       MOVE.B  =GS,UEC(A0)  *GS  f}r Cntrl']'
       MOVE.B  =FS,OEC(A0)  *FS  f}r Cntrl'\'
       MOVE.B  =ESC,AEC(A0) *ESC f}r Cntrl'['
       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
CLKASC EQU    0           *nur Platz f}r
CLKSEC EQU    CLKASC+4    *Zeiger n|tig,
WSPSZ  EQU    CLKSEC+4    *weil IDENT
* Code f}r die Scheibe
       DC.L   $AEB1BF95   *Scheibe
       DC     (17*2+1)*37 *Nr. 17
       DC.B   'DURASC'    *Proc.name
PNTR   DC     START-PNTR  *Proc.startpntr.
DUR    DC.B   0,14        *DUR.]bergabemod
C8     DC.B   8,8         *8 CHAR]bergabemod
START  ENTR   WSPSZ.L     *Proc.eintritt
       MPXF   C8,CLKASC.Z *8 CHAR }bernehmen
       MPXF  DUR,CLKSEC.Z *DUR }bernehmen
       EPAR               *beides IDENT darum:
       MOVEA.L (A5),A2    *Zeiger auf CHAR-Str
       MOVEA.L CLKSEC(A5),A1  *u. auf DUR-Wert
       MOVE.L  (A1),D1    *DUR-Wert -> D1 f}r
       CLKSC              *CHAR-Str -> (A2)+
       RETN               *zum Aufrufer
*************************
       END