**********************************************************************
*                                                                    *
*      KEYBOARD PROGRAMM (For convenient use of the English keyboard)*
*      DATE:29-12-1987                                               *
*      AUTOR:B.W.v.Hengel                                            *
*                                                                    *
**********************************************************************
* This programm is to be assembled,loaded at the
* desired location (!) and than set-up with the
* PROM-command for transport to the next free
* memory-space of RTOS-UH.
*
* EXAMPLE:
*
* Computer:Atari 1040ST
*
* Instructions:
* AS CO=F0.KEYSR
*   REMOVE EDITOR FILE OR BOOT THE SYSTEM AGAIN }(Necessary to get the
* LOAD F0.KEYSR                                 } task at the desired
* O F0.ENGPR;PROM ENGKEY                          place after booting.)
* LOAD F0.ENGPR
* MONITOR:HB,Startadresse D5000,Endadresse FF000,Bytefolge AEB1BF95
*         Result:last loc. of "Scheibe" = FC330
*         DM,Startadresse FC330
*         Result:End of "Scheibe"=FC37B
*    So ENGKEY will be transported to FC37C
* S (=Memory lay-out)
* The prom-module is located at MDLE =5532 - 58BA (EXAMPLE!!!!!)
* MONITOR:DM,Startadresse 5532
*         Byte-order AEB1BF95 starts at 5542
*         Last byte of TASK (41) at 58A1
*         MM,Startadresse 5542,Endadresse 58A1,Zieladresse FC37C
* NOW,DUMP THE SYSTEM TO YOUR (NEW) BOOT-DISK AND BOOT AGAIN
*
*
*
*  MODULE HEAD FOR RTOS_UH

       DC.L   0
       DC.L   0
       DC     $41
       DC.B   'ENGKEY'
       DC     PRIO
       DC.L   WSPLEN
       DC.L   0,0
       DC     PRIO
       DC.L   START
       DC.L   0,0,0,0,0,0,0,0
       DC.L   0,0,0,0,0,0,0,0

TERMI  OPD    $4E41

* DATA1 is table for NORMAL 
* DATA2 is  ,,    ,, SHIFT
* DATA3 is  ,,    ,, CAPS-LOCK
* DATA4 is  ,,    ,, CONTROL
* DATA5 is  ,,    ,, ALTERNATE
* DATA6 is  ,,    ,, SHIFT+ALTERNATE


DATA1: DC.B   $00,$1B,'1234567890-=',$08,$09
       DC.B   'qwertyuiop[]',$0D,$8D,'as'
       DC.B   'dfghjkl;',$27,$60,$8B,$23,'zxcv'
       DC.B   'bnm,./',$8B,$80,$93,$20,$8C,$81,$82,$83,$84,$85
       DC.B   $86,$87,$88,$89,$8A,$80,$80,$8E
       DC.B   $0B,$80,$2D,$08,$80,$0C,$2B,$80
       DC.B   $0A,$80,$8F,$99,$80,$80,$80,$80
       DC.B   $80,$80,$80,$80,$80,$80,$80,$80
       DC.B   $5C,$90,$91,$28,$29,$2F,$2A,$37
       DC.B   $38,$39,$34,$35,$36,$31,$32,$33
       DC.B   $30,$2E,$0D,$80,$80,$80,$80,$80
       DC.B   $80,$80,$80,$80,$80,$80,$80,$80
DATA2: DC.B   $00,$92,'!"$$%^&*()_+',$08,$09
       DC.B   'QWERTYUIOP{}',$0D,$8D,'AS'
       DC.B   'DFGHJKL:@-',$8B,'~ZXCV'
       DC.B   'BNM<>?',$8B,$80,$93,$20,$8C,$81,$82,$83,$84,$85
       DC.B   $86,$87,$88,$89,$8A,$80,$80,$8E
       DC.B   $0B,$80,$2D,$08,$80,$0C,$2B,$80
       DC.B   $0A,$80,$92,$9A,$80,$80,$80,$80
       DC.B   $80,$80,$80,$80,$80,$80,$80,$80
       DC.B   $7C,$96,$98,$28,$29,$2F,$2A,$37
       DC.B   $38,$39,$34,$35,$36,$31,$32,$33
       DC.B   $30,$2E,$0D,$80,$80,$80,$80,$80
       DC.B   $80,$80,$80,$80,$80,$80,$80,$80
DATA3: DC.B   $00,$1B,'1234567890-=',$08,$09
       DC.B   'QWERTYUIOP[]',$0D,$8D,'AS'
       DC.B   'DFGHJKL;',$27,$60,$8B,'#ZXCV'
       DC.B   'BNM,./',$8B,$80,$93,$20,$8C,$81,$82,$83,$84,$85
       DC.B   $86,$87,$88,$89,$8A,$80,$80,$8E
       DC.B   $0B,$80,$2D,$08,$80,$0C,$2B,$80
       DC.B   $0A,$80,$8F,$99,$80,$80,$80,$80
       DC.B   $80,$80,$80,$80,$80,$80,$80,$80
       DC.B   $5C,$90,$91,$28,$29,$2F,$2A,$37
       DC.B   $38,$39,$34,$35,$36,$31,$32,$33
       DC.B   $30,$2E,$0D,$80,$80,$80,$80,$80
       DC.B   $80,$80,$80,$80,$80,$80,$80,$80
DATA4: DC.B   $80,$80,$80,$80,$80,$80,$80,$80
       DC.B   $1B,$80,$80,$80,$80,$80,$80,$80
       DC.B   $11,$17,$05,$12,$14,$1A,$15,$09
       DC.B   $0F,$10,$00,$80,$80,$80,$01,$13
       DC.B   $04,$06,$07,$08,$0A,$0B,$0C,$1A
       DC.B   $1D,$1E,$80,$80,$19,$18,$03,$16
       DC.B   $02,$0E,$0D,$80,$80,$1F,$80,$80
       DC.B   $80,$80,$80,$80,$80,$80,$80,$80
       DC.B   $80,$80,$80,$80,$80,$80,$80,$80
       DC.B   $80,$80,$80,$94,$80,$95,$80,$80
       DC.B   $97,$80,$80,$80,$80,$80,$80,$80
       DC.B   $80,$80,$80,$80,$80,$80,$80,$80
       DC.B   $80,$90,$80,$80,$80,$80,$80,$80
       DC.B   $80,$80,$80,$80,$80,$80,$80,$80
       DC.B   $80,$80,$80,$80,$80,$80,$80,$80
       DC.B   $80,$80,$80,$80,$80,$80,$80,$80
DATA5: DC.B   $80,$80,$80,$80,$80,$80,$80,$80
       DC.B   $80,$80,$80,$80,$80,$80,$80,$80
       DC.B   $80,$80,$80,$80,$80,$80,$80,$80
       DC.B   $80,$80,$40,$80,$80,$80,$80,$80
       DC.B   $80,$80,$80,$80,$80,$80,$80,$5B
       DC.B   $5D,$80,$8B,$80,$80,$80,$80,$80
       DC.B   $80,$80,$80,$80,$8B,$80,$80,$80
       DC.B   $80,$80,$80,$80,$80,$80,$80,$80
       DC.B   $80,$80,$80,$80,$80,$80,$80,$80
       DC.B   $80,$80,$80,$80,$80,$80,$80,$80
       DC.B   $80,$80,$80,$80,$80,$80,$80,$80
       DC.B   $80,$80,$80,$80,$80,$80,$80,$80
       DC.B   $80,$80,$80,$80,$80,$80,$80,$80
       DC.B   $80,$80,$80,$80,$80,$80,$80,$80
       DC.B   $80,$80,$80,$80,$80,$80,$80,$80
       DC.B   $80,$80,$80,$80,$80,$80,$80,$80
DATA6: DC.B   $80,$80,$80,$80,$80,$80,$80,$80
       DC.B   $80,$80,$80,$80,$80,$80,$80,$80
       DC.B   $80,$80,$80,$80,$80,$80,$80,$80
       DC.B   $80,$80,$5C,$80,$80,$80,$80,$80
       DC.B   $80,$80,$80,$80,$80,$80,$80,$7B
       DC.B   $7D,$80,$8B,$80,$80,$80,$80,$80
       DC.B   $80,$80,$80,$80,$8B,$80,$80,$80
       DC.B   $80,$80,$80,$80,$80,$80,$80,$80
       DC.B   $80,$80,$80,$80,$80,$80,$80,$80
       DC.B   $80,$80,$80,$80,$80,$80,$80,$80
       DC.B   $80,$80,$80,$80,$80,$80,$80,$80
       DC.B   $80,$80,$80,$80,$80,$80,$80,$80
       DC.B   $80,$80,$80,$80,$80,$80,$80,$80
       DC.B   $80,$80,$80,$80,$80,$80,$80,$80
       DC.B   $80,$80,$80,$80,$80,$80,$80,$80
       DC.B   $80,$80,$80,$80,$80,$80,$80,$80


PRIO   EQU    15
WSPLEN EQU    $38C

START: MOVE.L   =$180,D0       *Number of bytes to be transported in D0
       LEA      DATA1,A0       *Adres of tables in A0
       MOVEA.L  $00081E,A1     *Adres of keyboard table of RTOS-UH in
       ADDA.L   =$001320,A1
LOOP:  MOVE.B   (A0)+,(A1)+    *Start moving
       DBF      D0,LOOP
       TERMI                   *That's it.

       END      TASK1