********************************************************** * Keymap d1 ********************************************************** * Einige Steuerzeichen Undef: equ 0 CSI: equ $9B LF: equ $0A CR: equ $0D ESC: equ $1B * Max. Länge eines User-Strings StrLen: equ 32 * Ab hier kommt, zuerst der Header KeymapNode: dc.l *,0 dc.b 0,0 dc.l KeyMapEnd * und dann die Keymap-Structure KeyMap: dc.l LowKeyType,LowKeyMap,LowCaps,LowRepeat dc.l HigKeyType,HigKeyMap,HigCaps,HigRepeat LowCaps: dc.b $00,$00,$FF,$03,$FF,$01,$FE,$00 HigCaps: dc.l $00,$00,$00,$00,$00,$00,$00,$00 LowRepeat: dc.b $FF,$BF,$FF,$EF,$FF,$EF,$FF,$F7 HigRepeat: dc.b $47,$F4,$FF,$03,$00,$00,$00,$00 * tausche die letzte Zeile gegen die folgende * dc.b $47,$F4,$00,$00,$00,$00,$00,$00 * um die Wiederholfunktion für die F-Tasten * auszuschalten * Parameter fuer DEFKEY dc.b 'user' ; zuerst eine Kennung dc.l Key_50 ; und dann ein Pointer ; auf die F-Tasten LowKeyType: dc.b $07,$03,$03,$03,$03,$03,$03,$03 dc.b $03,$03,$03,$03,$23,$07,$80,$00 dc.b $07,$07,$07,$07,$07,$07,$07,$07 $10 dc.b $07,$07,$03,$03,$80,$00,$00,$00 dc.b $07,$07,$07,$27,$27,$27,$27,$27 $20 dc.b $07,$03,$03,$05,$80,$05,$05,$05 dc.b $01,$07,$07,$07,$07,$07,$07,$07 $30 dc.b $03,$03,$07,$80,$00,$05,$01,$05 HigKeyType: dc.b $02,$00,$41,$00,$04,$02,$00,$80 $40 dc.b $80,$80,$00,$80,$41,$41,$41,$41 dc.b $41,$41,$41,$41,$41,$41,$41,$41 $50 dc.b $41,$41,$80,$80,$80,$80,$80,$40 dc.b $80,$80,$80,$80,$80,$80,$80,$80 $60 dc.b $80,$80,$80,$80,$80,$80,$80,$80 dc.b $80,$80,$80,$80,$80,$80,$80,$80 $70 LowKeyMap: dc.b $7E,$60,$5D,$5B dc.b $21,$B9,$21,$31 dc.b $40,$B2,$22,$32 dc.b $23,$B3,$A7,$33 dc.b $24,$A2,$24,$34 dc.b $25,$BC,$25,$35 dc.b $5E,$BD,$26,$36 dc.b $26,$BE,$2F,$37 dc.b $2A,$B7,$28,$38 dc.b $28,$AB,$29,$39 dc.b $29,$BB,$3D,$30 dc.b $5F,$2D,$3F,$DF dc.l Key_0C dc.b $7C,$5C,$7C,$5C dc.l Undef dc.b $00,$00,$00,$30 dc.b $C5,$E5,'Qq' key $10 dc.b $B0,$B0,'Ww' dc.b $A9,$A9,'Ee' dc.b $AE,$AE,'Rr' dc.b $DE,$FE,'Tt' dc.b $A5,$A4,'Zz' dc.b $A1,$A6,'Uu' dc.b $F8,$D8,'Ii' dc.b $00,$00,$4F,$6F dc.b $B6,$B6,$50,$70 dc.b $7B,$5B,$DC,$FC dc.b $7D,$5D,$2A,$2B dc.l Undef dc.b $00,$00,$00,$31 dc.b $00,$00,$00,$32 dc.b $00,$00,$00,$33 dc.b $E6,$C6,$41,$61 key $20 dc.b $A7,$DF,$53,$73 dc.b $D0,$F0,$44,$64 dc.l Key_23 dc.l Key_24 dc.l Key_25 dc.l Key_26 dc.l Key_27 dc.b $A3,$A3,$4C,$6C dc.b $3A,$3B,$D6,$F6 dc.b $22,$27,$C4,$E4 dc.b $00,$00,$27,$23 dc.l Undef dc.b $7B,$34,$7B,$34 dc.b $7D,$35,$7D,$35 dc.b $7E,$36,$7E,$36 dc.b $00,$00,$3E,$3C key $30 dc.b $B1,$AC,$59,$79 dc.b $F7,$D7,$58,$78 dc.b $C7,$E7,$43,$63 dc.b $AA,$AA,$56,$76 dc.b $BA,$BA,$42,$62 dc.b $AD,$AF,$4E,$6E dc.b $BF,$B8,$4D,$6D dc.b $3C,$2C,$3B,$2C dc.b $3E,$2E,$3A,$2E dc.b $3F,$2F,$5F,$2D dc.l Undef dc.b $00,$00,$00,$2E dc.b $40,$37,$40,$37 dc.b $00,$00,$B0,$38 dc.b $5E,$39,$5E,$39 HigKeyMap: dc.b $A0,$A0,$20,$20 key $40 dc.b $00,$00,$00,$08 dc.l Key_42 dc.b $00,$00,$00,$0D dc.b $00,$00,$0A,$0D dc.b $00,$00,$9B,$1B dc.b $00,$00,$00,$7F dc.l Undef dc.l Undef dc.l Undef dc.b $00,$00,$00,$2D dc.l Undef dc.l Key_4C dc.l Key_4D dc.l Key_4E dc.l Key_4F dc.l Key_50 Key $50 dc.l Key_51 dc.l Key_52 dc.l Key_53 dc.l Key_54 dc.l Key_55 dc.l Key_56 dc.l Key_57 dc.l Key_58 dc.l Key_59 dc.l Undef dc.l Undef dc.l Undef dc.l Undef dc.l Undef dc.l Key_5F dc.l Undef key $60 dc.l Undef dc.l Undef dc.l Undef dc.l Undef dc.l Undef dc.l Undef dc.l Undef dc.l Undef dc.l Undef dc.l Undef dc.l Undef dc.l Undef dc.l Undef dc.l Undef dc.l Undef dc.l Undef key $70 dc.l Undef dc.l Undef dc.l Undef dc.l Undef dc.l Undef dc.l Undef dc.l Undef * jetzt Stringfolgen Key_0C: dc.b 8,$62,8,$61 dc.b 0,'=',0,'+' Key_23: dc.b 0,'f',0,'F' dc.b $08,$61,$08,$61 dc.b $00,$06,$00,$06 dc.b $00,$86,$00,$86 Key_24: dc.b 0,'g',0,'G' dc.b $08,$62,$08,$62 dc.b $00,$07,$00,$07 dc.b $00,$87,$00,$87 Key_25: dc.b 0,'h',$00,'H' dc.b $08,$03,$08,$03 dc.b $00,$08,$00,$08 dc.b $00,$88,$00,$88 Key_26: dc.b 0,'j',0,'J' dc.b $08,$04,$08,$04 dc.b $00,$0A,$00,$0A dc.b $00,$8A,$00,$8A Key_27: dc.b 0,'k',0,'K' dc.b 8,5,8,5 dc.b 0,$B,0,$B dc.b 0,$8B,0,$8B Key_40: dc.b 1,Key_40a-Key_40 dc.b 0,$A0 Key_40a: dc.b $20,$60 Key_42: dc.b 01,$04,$02,$05,$09,CSI,$5A Key_4C: dc.b 02,$04,$02,$06,CSI,$41,CSI,$54 Key_4D: dc.b 02,$04,$02,$06,CSI,$42,CSI,$53 Key_4E: dc.b 02,$04,$03,$06,CSI,$43,CSI,$20,$40 Key_4F: dc.b 02,$04,$03,$06,CSI,$44,CSI,$20,$41 cnop 0,2 * User defined Keys * Fuer eigene Tastenbelegungen einfach den * String hinter * dem Label Key_5xa bzw. Key_5xb eintragen Key_50: dc.b Len_50a,Key_50a-Key_50 dc.b Len_50b,Key_50b-Key_50 Key_50a: dc.b 'CD DF0:',CR Len_50a: equ *-Key_50a dcb.b StrLen-Len_50a,0 Key_50b: dc.b ESC,'bs;be;ib',CR Len_50b: equ *-Key_50b dcb.b StrLen-Len_50b,0 Key_51: dc.b Len_51a,Key_51a-Key_51 dc.b Len_51b,Key_51b-Key_51 Key_51a: dc.b 'CD DF1:',CR Len_51a: equ *-Key_51a dcb.b StrLen-Len_51a,0 Key_51b: dc.b ESC,'sa "prt:"',CR Len_51b: equ *-Key_51b dcb.b StrLen-Len_51b,0 Key_52: dc.b Len_52a,Key_52a-Key_52 dc.b Len_52b,Key_52b-Key_52 Key_52a: dc.b 'DIR OPT A',CR Len_52a: equ *-Key_52a dcb.b StrLen-Len_52a,0 Key_52b: dc.b 'X SYS:S/BACKUP ' Len_52b: equ *-Key_52b dcb.b StrLen-Len_52b,0 Key_53: dc.b Len_53a,Key_53a-Key_53 dc.b Len_53b,Key_53b-Key_53 Key_53a: dc.b 'DATE',CR Len_53a: equ *-Key_53a dcb.b StrLen-Len_53a,0 Key_53b: dc.b 'STACK 8000',CR Len_53b: equ *-Key_53b dcb.b StrLen-Len_53b,0 Key_54: dc.b Len_54a,Key_54a-Key_54 dc.b Len_54b,Key_54b-Key_54 Key_54a: dc.b 'INFO',CR Len_54a: equ *-Key_54a dcb.b StrLen-Len_54a,0 Key_54b: dc.b 'STATUS FULL',CR Len_54b: equ *-Key_54b dcb.b StrLen-Len_54b,0 Key_55: dc.b Len_55a,Key_55a-Key_55 dc.b Len_55b,Key_55b-Key_55 Key_55a: dc.b 'ASSIGN',CR Len_55a: equ *-Key_55a dcb.b StrLen-Len_55a,0 Key_55b: dc.b 'DEFKEY',CR Len_55b: equ *-Key_55b dcb.b StrLen-Len_55b,0 Key_56: dc.b Len_56a,Key_56a-Key_56 dc.b Len_56b,Key_56b-Key_56 Key_56a: dc.b 'NEWCLI',CR Len_56a: equ *-Key_56a dcb.b StrLen-Len_56a,0 Key_56b: dc.b 'ENDCLI',CR Len_56b: equ *-Key_56b dcb.b StrLen-Len_56b,0 Key_57: dc.b Len_57a,Key_57a-Key_57 dc.b Len_57b,Key_57b-Key_57 Key_57a: dc.b 'PATH',CR Len_57a: equ *-Key_57a dcb.b StrLen-Len_57a,0 Key_57b: dc.b 'DEBUG',CR Len_57b: equ *-Key_57b dcb.b StrLen-Len_57b,0 Key_58: dc.b Len_58a,Key_58a-Key_58 dc.b Len_58b,Key_58b-Key_58 Key_58a: dc.b 'LIST',CR Len_58a: equ *-Key_58a dcb.b StrLen-Len_58a,0 Key_58b: dc.b 'ROMWACK',CR Len_58b: equ *-Key_58b dcb.b StrLen-Len_58b,0 Key_59: dc.b Len_59a,Key_59a-Key_59 dc.b Len_59b,Key_59b-Key_59 Key_59a: dc.b 'AVAIL',CR Len_59a: equ *-Key_59a dcb.b StrLen-Len_59a,0 Key_59b: dc.b ' SYS:LIB/SHORTLIB',CR Len_59b: equ *-Key_59b dcb.b StrLen-Len_59b,0 * Das ist die Help-Taste Key_5F: dc.b Len_5Fa,Key_5Fa-Key_5F Key_5Fa: dc.b CSI,'?',$7E Len_5Fa: equ *-Key_5Fa KeyMapEnd: equ * END of Keymap