09 .OPT NO LIST›10 ; SAVE #D1:KEYTABLE.M65›11 ;›12 ;›13 ; LOAD #D1:KEYBDIRQ.M65›14 .PAGE "Keyboard Definition Table"›17 ; *= $FB51›18 LIST›20 ; Atascii values in order of the›21 ; keyboard code. Where a value is›22 ; indicated in hex and no comment›23 ; indicates a key for it, then it›24 ; is a filler only - the hardware›25 ; can not produce that key code.›26 ; Where a value is given in hex›27 ; with a key in the comment field›28 ; the key appears at kbcode but›29 ; may not show up in ch, eg help›30 ;›31 ; Unshifted values›32 ; KBCODE›064337 KEYTBL .BYTE "lj" ; 0-1›064339 .BYTE 59 Semicolon 2›064340 .BYTE $8A,$8B ; 3-4›064342 .BYTE "k+*o" ; 5-8›064346 .BYTE $80 ; 9›064347 .BYTE "pu" ; 10-11›064349 .BYTE 155 Return 12›064350 .BYTE "i-=v" ; 13-16›064354 .BYTE $80 Help Key 17›064355 .BYTE 'c ; 18›064356 .BYTE $8C,$8D ; 19-20›064358 .BYTE "bxz4" ; 21-24›064362 .BYTE $80 ; 25›064363 .BYTE "36" ; 26-27›064365 .BYTE 27 Esc 28›064366 .BYTE "521" ; 29-31›064369 .BYTE 44 Comma 32›064370 .BYTE 32 Space 33›064371 .BYTE 46 Period 34›064372 .BYTE 'n ; 35›064373 .BYTE $80 ; 36›064374 .BYTE "m/" ; 37-38›064376 .BYTE $81 Atari 39›064377 .BYTE 'r ; 40›064378 .BYTE $80 ; 41›064379 .BYTE "ey" ; 42-43›064381 .BYTE 127 Tab 44›064382 .BYTE "twq9" ; 45-48›064386 .BYTE $80 ; 49›064387 .BYTE "07" ; 50-51›064389 .BYTE 126 Back Space 52›064390 .BYTE "8<>fhd" ; 53-58›064396 .BYTE $80 ; 59›064397 .BYTE $82 Caps 60›064398 .BYTE "gsa" ; 61-63›064399 ; start of shifted codes›064401 .BYTE "LJ" ; 64-65›064403 .BYTE 58 Colon 66›064404 .BYTE $8A,$8B ; 67-68›064406 .BYTE "K\^O" ; 69-72›064410 .BYTE $80 ; 73›064411 .BYTE "PU" ; 74-75›064413 .BYTE 155 Return 76›064414 .BYTE "I_|V" ; 77-80›064417 .BYTE $80 Help Key 81›064419 .BYTE 'C ; 82›064420 .BYTE $8C,$8D ; 83-84›064422 .BYTE "BXZ$" ; 85-88›064426 .BYTE $80 ; 89›064427 .BYTE "#&" ; 90-91›064429 .BYTE 27 Esc 92›064430 .BYTE '% ; 93›064431 .BYTE 34 Quotation 94›064432 .BYTE "![" ; 95-96›064434 .BYTE 32 Space 97›064435 .BYTE "]N" ; 98-99›064437 .BYTE $80 ; 100›064438 .BYTE "M?" ; 101-102›064440 .BYTE $81 Atari 103›064441 .BYTE 'R ; 104›064442 .BYTE $80 ; 105›064443 .BYTE "EY" ; 106-107›064445 .BYTE 159 Set Tab 108›064446 .BYTE "TWQ(" ; 109-112›064450 .BYTE $80 ; 113›064451 .BYTE ') ; 114›064452 .BYTE 39 Apostrophe 115›064453 .BYTE 156 Delete Line 116›064454 .BYTE '@ ; 117›064455 .BYTE 125 Clear S: 118›064456 .BYTE 157 Insert Line 119›064457 .BYTE "FHD" ; 120-122›064460 .BYTE $80 ; 123›064461 .BYTE $83 Caps 124›064462 .BYTE "GSA" ; 125-127›064463 ; start of control key codes›064465 .BYTE 12,10,123 ; 128-130›064468 .BYTE $80,$80 ; 131-132›064470 .BYTE 11 ; 133›064471 .BYTE 30 Left Arrow 134›064472 .BYTE 31 Right Arrow 135›064473 .BYTE 15 ; 136›064474 .BYTE $80 ; 137›064475 .BYTE 16,21 ; 138-139›064477 .BYTE 155 Return 140›064478 .BYTE 9 ; 141›064479 .BYTE 28 Up Arrow 142›064480 .BYTE 29 Down Arrow 143›064481 .BYTE 22 ; 144›064482 .BYTE $80 Help Key 145›064483 .BYTE 3 ; 146›064484 .BYTE $89,$80 ; 147-148›064486 .BYTE 2,24,26 ; 149-151›064489 .BYTE $80 Control 4 152›064490 .BYTE $80 ; 153›064491 .BYTE $85 Control 3 154›064492 .BYTE $80 Control 6 155›064493 .BYTE 27 Esc 156›064494 .BYTE $80 Control 5 157›064495 .BYTE 253 Bell 158›064496 .BYTE $80 Control 1 159›064497 .BYTE 0 ; 160›064498 .BYTE 32 Space 161›064499 .BYTE 96,14 ; 162-163›064501 .BYTE $80 ; 164›064502 .BYTE 13 ; 165›064503 .BYTE $80 Control / 166›064504 .BYTE $81 Atari 167›064505 .BYTE 18 ; 168›064506 .BYTE $80 ; 169›064507 .BYTE 5,25 ; 170-171›064509 .BYTE 158 Clr Tab 172›064510 .BYTE 20,23,17 ; 173-175›064513 .BYTE $80 Control 9 176›064514 .BYTE $80 ; 177›064515 .BYTE $80 Control 0 178›064516 .BYTE $80 Control 7 179›064517 .BYTE 254 Delete Char 180›064518 .BYTE $80 Control 8 181›064519 .BYTE 125 Clear S: 182›064520 .BYTE 255 Insert Char 183›064521 .BYTE 6,8,4 ; 184-186›064524 .BYTE $80 ; 187›064525 .BYTE $84 Caps 188›064526 .BYTE 7,19,1 ; 189-191›064527 ; start 1200xl function keys›064529 FNTBL .BYTE 28 Up arrow›064530 .BYTE 29 Down arrow›064531 .BYTE 30 Left arrow›064532 .BYTE 31 Right arrow start shifted codes›064533 .BYTE $8E Home cursor›064534 .BYTE $8F To bottom left›064535 .BYTE $90 To left margin›064536 .BYTE $91 To right margin›