home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Assembler / dse-src6.dms / in.adf / DMZ.LZH / PRG5.3 < prev    next >
Encoding:
Text File  |  1987-12-17  |  800 b   |  35 lines
  1.         LEA    TEXT,A0
  2.         LEA    CODE,A1
  3.         CLR.W    D0
  4.  
  5. READKEY:    BTST    #6,$BFE001        ; Vänster musknapp ?
  6.         BEQ.S    EXIT
  7.  
  8.         BTST    #0,$BFEC01        ; Är någon tangent
  9.         BEQ.S    READKEY            ; nedtryckt ?
  10.  
  11.         MOVE.B    $BFEC01,D0        ; Läs tangent
  12.         ROR.B    #1,D0            ; Flytta ner de 7
  13.         NOT.B    D0            ; högsta bitarna och
  14.         MOVE.B    (A1,D0.W),(A0)+        ; flytta från tabell
  15.                         ; till textbuffert.
  16.  
  17. RELEASEKEY:    BTST    #0,$BFEC01        ; Vänta tills
  18.         BNE.S    RELEASEKEY        ; tangenten släpps.
  19.  
  20.         BRA.S    READKEY            ; Läs mer tangenter.
  21.  
  22. EXIT:        RTS
  23.  
  24. CODE:        DC.B    '`1234567890-=\  '    ; $00-$0F
  25.         DC.B    'QWERTYUIOP[]    '    ; $10-$1F
  26.         DC.B    'ASDFGHJKL;"     '    ; $20-$2F
  27.         DC.B    '<ZXCVBNM,./     '    ; $30-$3F
  28.         DC.B    '                '    ; $40-$4F
  29.         DC.B    '                '    ; $50-$5F
  30.         DC.B    '                '    ; $60-$6F
  31.         DC.B    '                '    ; $70-$7F
  32.  
  33.  
  34. TEXT:        BLK.B    200,0
  35.