;Character translation table ; ;Plain control chars CHTRAN: DB 0 ;, DB 1 ;A DB 2 ;B DB 3 ;C DB 4 ;D DB 5 ;E DB 6 ;F DB 32 ;G DB 8 ;H DB 9 ;I DB 10 ;J DB 11 ;K DB 12 ;L DB 13 ;M DB 14 ;N DB 47 ;O DB 16 ;P DB 17 ;Q DB 18 ;R DB 19 ;S DB 20 ;T DB 21 ;U DB 61 ;V DB 23 ;W DB 24 ;X DB 25 ;Y DB 26 ;Z DB 27 ;ESC DB 28 ;UP DB 29 ;DOWN DB 2 ;LEFT DB 6 ;RIGHT ;Control char after SHF1 - Func no. 32 is NOFUNC DB 32 ;, DB 33 ;A DB 34 ;B DB 35 ;C DB 36 ;D DB 37 ;E DB 38 ;F DB 32 ;G DB 32 ;H DB 41 ;I DB 42 ;J DB 43 ;K DB 32 ;L DB 45 ;M DB 32 ;N DB 32 ;O DB 32 ;P DB 32 ;Q DB 59 ;R DB 51 ;S DB 32 ;T DB 32 ;U DB 32 ;V DB 55 ;W DB 56 ;X DB 32 ;Y DB 58 ;Z DB 32 ;ESC DB 60 ;UP DB 61 ;DN DB 62 ;LF DB 63 ;RT ;Char after SHF2 DB 57 ;@ DB 26 ;A DB 9 ;B DB 32 ;C DB 10 ;D DB 22 ;E DB 15 ;F DB 7 ;G DB 32 ;H DB 32 ;I DB 32 ;J DB 32 ;K DB 44 ;L DB 49 ;M DB 46 ;N DB 32 ;O DB 48 ;P DB 32 ;Q DB 50 ;R DB 39 ;S DB 32 ;T DB 53 ;U DB 60 ;V DB 32 ;W DB 54 ;X DB 32 ;Y DB 32 ;Z DB 62 ;[ DB 32 ;\ DB 63 ;] DB 8 ;^ ESC-DEL gets mapped here too DB 30 ;_ ; ;Function jump table - space for 64 functions ;Was simple control char ; CJTB: DW SETPT ;, DW BEGLINE ;A DW CURSLF ;B DW CUTSRC ;C DW DELC ;D DW ENDLIN ;E DW CURSRT ;F DW FILL ;G DW DELBW ;H DW BACKW ;I DW DELW ;J DW KILL ;K DW FULLRD ;L recenter and redraw DW CHGCS ;M DW DNLIN ;N DW FWDW ;O DW UPLIN ;P DW LITRAL ;Q DW REVSRC ;R DW SEARCH ;S DW TRANS ;T DW DELBL ;U DW BEGNL ;V DW CUTSR ;W DW SHF1 ;X DW YANK ;Y DW ENDPLIN ;Z DW SHF2 ;ESC DW SCRLD ;UP DW SCRLU ;DOWN DW clrmod ; 30 DW nofunc ;RIGHT DW NOFUNC ;, #32 - KEEP AS NOFUNC!! DW DOREDR ;A 33 DW BUFFER ;B DW WRITEX ;C DW DIRECY ;D DW EXKBMC ;E DW FINDF ;F DW SETDEF ;G DW nofunc ;H DW INSBUF ;I DW SETFIL ;J DW CLRBUF ;K DW LOCK ;L 44 DW WRMODB ;M DW RENAME ;N 46 DW OPENLN ;O DW PRINT ;P DW MAKDIR ;Q 49 DW REPLAC ;R DW WRDEF1 ;S DW NOFUNC ;T DW UNLOCK ;U 53 DW DELFIL ;V 54 DW WRITFN ;W DW XSWPCR ;X DW DKLOAD ;Y 57 DW QUIT ;Z DW XRESET ;ESC 59 XEP RESET DW PRVSCR ;UP DW NEXSCR ;DN DW BEGBUF ;LF DW ENDBUF ;RT #63 ;Extras to handle ins/del DW D$DEL ;64 DW I$INS ;65 ;eof