|
|
1.1 ! root 1: # # -------------------------------- ! 2: # @(#)concept.ti 1.3 (1.23 2/3/83) ! 3: # ! 4: # concept: (HUMAN DESIGNED SYSTEMS) ! 5: # ! 6: # Concept 108: ! 7: # ! 8: # There seem to be a number of different versions of the C108 PROMS ! 9: # (with bug fixes in its Z-80 program). ! 10: # The first one that we had would lock out the keyboard if you ! 11: # sent lots of short lines (like /usr/dict/words) at 9600 baud. ! 12: # Try that on your C108 and see if it sends a ^S when you type it. ! 13: # If so, you have an old version of the PROMs. ! 14: # You should configure the C108 to send ^S/^Q before running this. ! 15: # It is much faster (at 9600 baud) than the c100 because the delays ! 16: # are not fixed. ! 17: # new status line display entries for c108-8p: ! 18: # is3 - init str #3 - setup term for status display - set programmer mode, ! 19: # select window 2, define window at last line of memory, ! 20: # set bkgnd stat mesg there, select window 0. ! 21: # tsl - to status line - select window 2, home cursor, erase to end-of-window, ! 22: # 1/2 bright on, goto(line#0, col#?) ! 23: # fsl - from status line - 1/2 bright off, select window 0 ! 24: # dsl - disable status display - set bkgnd status mesg with illegal window # ! 25: # There are probably more function keys that should be added but I don't know ! 26: # what they are. ! 27: c108|c108-8p|concept108-8p|concept 108 w/8 pages, ! 28: is3=\EU\E z"\Ev^A\177 !p\E ;"\E z \Ev ^A\177p\Ep\n, ! 29: rmcup=\Ev ^A\177p\Ep\r\n, use=c108-4p, ! 30: c108-4p|concept108-4p|concept 108 w/4 pages, ! 31: hs, eslok, tsl=\E z"\E?\E^E\EE\Ea %+ , fsl=\Ee\E z , dsl=\E ;\177, ! 32: is3=\EU\E z"\Ev\177 !p\E ;"\E z \Ev \177p\Ep\n, ! 33: xon, is1=\EK\E!\E F, ! 34: smcup=\EU\Ev 8p\Ep\r\E^U, rmcup=\Ev \177p\Ep\r\n, ! 35: # block cursor is disliked on the c100, so we only use it on c108. ! 36: cvvis=\EW, cnorm=\Ew, ! 37: # no delays needed on c108 because of ^S/^Q handshaking ! 38: pb@, cr=^M, ind=^J, ! 39: cup=\Ea%p1%?%p1%{95}%>%t^A%{96}%-%;%' '%+%c%p2%?%p2%{95}%>%t^A%{96}%-%;%' '%+%c, ! 40: use=c100, ! 41: c108-rv|c108-rv-8p|concept108-rv-8p|concept 108 w/8 pages in reverse video, ! 42: smcup=\EU\Ev 8p\Ep\r, rmcup=\Ev ^B p\Ep\r\n, use=c108-rv-4p, ! 43: c108-rv-4p|concept108-rv-4p|concept 108 w/4 pages in reverse video, ! 44: flash=\EK$<50>\Ek, is1=\Ek, smso=\EE, rmso=\Ee, ! 45: use=c108-4p, ! 46: c108-na|c108-na-8p|c108-8p-na|concept108-na-8p|concept 108 w/8 pages no arrows, ! 47: smkx@, rmkx@, kf7=\E;, kf8=\E<, kf9=\E=, use=c108-8p, ! 48: c108-rv-na|c108-rv-na-8p|c108-8p-rv-na|concept 108 8 pages no arrows rev video, ! 49: smkx@, rmkx@, kf7=\E;, kf8=\E<, kf9=\E=, use=c108-rv-8p, ! 50: c108-w|c108-w-8p|concept108-w-8p|concept 108 w/8 pages in wide mode, ! 51: is1=\E F\E", ! 52: smcup=\EU\Ev 8^AD\Ep\r, rmcup=\Ev ^A0^AD\Ep\r\n, ! 53: cols#132, use=c108-8p, ! 54: # Concept 100: ! 55: # These have only window relative cursor addressing, not screen relative. ! 56: # To get it to work right here, smcup/rmcup (which were invented for the ! 57: # concept) lock you into a one page window for screen style programs. ! 58: # To get out of the one page window, we use a clever trick: ! 59: # we set the window size to zero ("\Ev " in rmcup) which the terminal ! 60: # recognizes as an error and resets the window to all of memory. ! 61: # This trick works on c100 but does not on c108, sigh. ! 62: # ! 63: # Some tty drivers use cr3 for concept, others use nl3, hence the delays on ! 64: # cr and ind below. This padding is only needed at 9600 baud. ! 65: # One or the other is commented out depending on local conventions. ! 66: # ! 67: # 2 ms padding on rmcup isn't always enough. 6 works fine. Maybe less ! 68: # than 6 but more than 2 will work. ! 69: # ! 70: # Note: can't use function keys f7-f10 because they are indistinguishable ! 71: # from arrow keys (!), also, del char and clear eol use xon/xoff so they ! 72: # probably won't work very well. ! 73: # Also note that we don't define insrt/del char/delline/eop/send because ! 74: # they don't transmit unless we reset them - I figured it was a bad idea ! 75: # to clobber their definitions. ! 76: # ! 77: # The mc5 sequence changes the escape character to ^^ so that escapes will ! 78: # be passed through to the printer. Only trouble is that ^^ won't be - ^^ ! 79: # was chosen to be unlikely. Unfortunately, if you're sending raster bits ! 80: # through to be plotted, any character you choose will be likely, so we lose. ! 81: c100|concept100|concept|c104|c100-4p|concept 100, ! 82: is2=\EU\Ef\E7\E5\E8\El\ENH\E\0\Eo&\0\Eo'\E\Eo!\0\E^G!\E^HA@ , ! 83: is1=\EK, is3=\Ev $<6>\Ep\n, ! 84: # cr=^M, ind=^J$<9>, ! 85: cr=$<9>^M, ind=^J, ! 86: bel=^G, cud1=^J, clear=\E?\E^E$<2*>, ! 87: smcup=\EU\Ev 8p\Ep\r\E^U$<16>, rmcup=\Ev $<6>\Ep\r\n, ! 88: il1=\E^R$<3*>, am, cub1=^H, ed=\E^E$<16*>, el=\E^U$<16>, ! 89: cup=\Ea%p1%' '%+%c%p2%' '%+%c, cols#80, dch1=\E^Q$<16*>, dl1=\E^B$<3*>, ! 90: rmir=\E\200, eo, smir=\E^P, ip=$<16*>, lines#24, mir, cuf1=\E=, ! 91: ht=\t$<8>, kbs=^h, ul, cuu1=\E;, smul=\EG, rmul=\Eg, ! 92: xenl, flash=\Ek$<20>\EK, pb#9600, vt#8, ! 93: smul=\EG, rmul=\Eg, smso=\ED, rmso=\Ed, ! 94: dim=\EE, rev=\ED, blink=\EC, prot=\EI, blank=\EH, sgr0=\EN\200, ! 95: rep=\Er%p1%c%p2%' '%+%c$<.2*>, smkx=\EX, rmkx=\Ex, ! 96: kcuu1=\E;, kcud1=\E<, kcub1=\E>, kcuf1=\E=, khome=\E?, ! 97: kf1=\E5, kf2=\E6, kf3=\E7, kf4=\E8, kf5=\E9, kf6=\E:, ! 98: kich1=\E^P, krmir=\E\0, kdch1=\E^Q, kil1=\E^R, kdl1=\E^B, ! 99: kel=\E^S, ked=\E^C, kpp=\E., knp=\E-, kind=\E[, kri=\E\\, ! 100: khts=\E], kctab=\E_, ! 101: # \EQ"\EY(^W (send anything from printer to host, for xon/xoff) cannot be ! 102: # in is2 because it will hang a c100 with no printer if sent twice. ! 103: mc5=\EQ"\EY(^W\EYD\Eo ^^, mc4=^^o \E\EQ!\EYP^W, ! 104: c100-rv|c100-rv-4p|c100-rv-4p-pp|concept100-rv|c100 rev video, ! 105: is1=\Ek, flash=\EK$<20>\Ek, cvvis@, cnorm@, ! 106: smso=\EE, rmso=\Ee, use=c100, ! 107: c100-rv-na|c100-rv-4p-na|concept100-rv-na|c100 with no arrows, ! 108: smkx@, rmkx@, use=c100-rv, ! 109: oc100|oconcept|c100-1p|old 1 page concept 100, ! 110: in, is3@, use=c100,
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.