;          English Keybord support
;
; Don't assemble under Amiga DOS ! use QL assembler !
;
          SECTION   QLASC

BASE:
        DC.L    $4AFB0001       ; ROM recognition code
        DC.W    0
        DC.W    INIT-BASE
        DC.B    0,26,'English Keyboard Support ',$A
INIT:
        LEA     QLASCII,A0
        MOVE.L  A0,D1           ; store start of table for MT
        MOVEQ   #$27,D0         ; MT_ASC (QDOS 3.10, amiga only)
        TRAP    #1
        RTS
QLASCII:
 DC.B $27,'1','2','3','4','5','6','7','8','9','0','-','=','\',0,'0'
 DC.B 'q','w','e','r','t','y','u','i','o','p',$5B,$5D,0,'1','2','3'
 DC.B 'a','s','d','f','g','h','j','k','l',';','#','#',0,'4','5','6'
 DC.B '<','z','x','c','v','b','n','m',$2C,'.','/',0,0,'7','8','9'
 DC.B ' ',194,9,10,10,27,202,0,0,0,'-',0,208,216,200,192
 DC.B 232,236,240,244,248,0,0,0,0,0,'(',')','/','*','+',0
QLASC_SH:
 DC.B '~','!','"',$60,'$','%','^','&','*','(',')','_','+','|',0,'0'
 DC.B 'Q','W','E','R','T','Y','U','I','O','P',$7B,$7D,0,'1','2','3'
 DC.B 'A','S','D','F','G','H','J','K','L',$3A,'@',$50,0,'4','5','6'
 DC.B '>','Z','X','C','V','B','N','M','<','>','?',0,0,'7','8','9'
 DC.B 252,194,253,254,254,127,202,0,0,0,'-',0,212,220,204,196
 DC.B 234,238,242,246,250,0,0,0,0,0,'{','}','/','*','+',0
QLASC_CT:
 DC.B 0,145,146,147,148,149,150,151,152,153,144,0,0,188,0,'0'
 DC.B 17,23,5,18,20,25,21,9,15,16,0,0,0,'1','2','3'
 DC.B 1,19,4,6,7,8,10,11,12,0,0,0,0,'4','5','6'
 DC.B 0,26,24,3,22,2,14,13,140,142,141,0,0,'7','8','9'
 DC.B ' ',194,9,10,10,128,202,0,0,0,'-',0,210,218,202,194
 DC.B 233,237,241,245,249,0,0,0,0,0,91,93,'/','*','+',0
QLASC_SC:
 DC.B '`',129,160,131,132,133,0,0,138,136,137,0,0,28,0,'0'
 DC.B 177,183,165,178,180,186,181,169,175,176,0,0,0,'1','2','3'
 DC.B 161,179,164,166,167,168,170,171,172,0,0,0,0,'4','5','6'
 DC.B 0,185,184,163,182,162,174,173,156,158,0,0,0,'7','8','9'
 DC.B ' ',194,9,10,10,27,202,0,0,0,'-',0,214,222,206,198
 DC.B 235,239,243,247,251,0,0,0,0,0,91,93,'/','*','+',0