![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to concept.ti CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [MW Coherent from dump] / coherent / g / usr / lib / ncurses / terminfo|
Return to concept.ti CVS log | Up to [MW Coherent from dump] / coherent / g / usr / lib / ncurses / terminfo |
1.1 ! root 1: # # -------------------------------- ! 2: # @(#)concept 1.6 5/20/82 ! 3: # ! 4: # concept: (HUMAN DESIGNED SYSTEMS) ! 5: # ! 6: # From vax135!hpk Sat Jun 27 07:41:20 1981 ! 7: # Extensive changes to c108 by arpavax:eric Feb 1982 ! 8: # ! 9: # There seem to be a number of different versions of the C108 PROMS ! 10: # (with bug fixes in its Z-80 program). ! 11: # The first one that we had would lock out the keyboard of you ! 12: # sent lots of short lines (like /usr/dict/words) at 9600 baud. ! 13: # Try that on your C108 and see if it sends a ^S when you type it. ! 14: # If so, you have an old version of the PROMs. ! 15: # The old one also messed up running in with a 132-character line-length. ! 16: # You should configure the C108 to send ^S/^Q before running this. ! 17: # It is much faster (at 9600 baud) than the c100 because the delays ! 18: # are not fixed. ! 19: # Old cursor addressing that didn't understand > 95: ! 20: # cup=\Ea%p1%' '%+%c%p2%' '%+%c, ! 21: c108|c108-8p|concept108-8p|concept 108 w/8 pages, ! 22: rmcup=\Ev ^B p\Ep\r\n, use=c108-4p, ! 23: c108-4p|concept108-4p|concept 108 w/4 pages, ! 24: cr=^M, cud1=^J, ind=^J, bel=^G, ! 25: is2=\EU\E F\Ef\E7\E5\E8\El\ENH\EK\E\200\Eo&\200\Eo\47\E\E!, ! 26: smcup=\EU\Ev 8p\Ep\r, rmcup=\Ev ^A p\Ep\r\n, ! 27: il1=\E^R, cub1=^H, ed=\E^C, el=\E^S, clear=\E?\E^E, cols#80, ! 28: cup=\Ea%p1%?%p1%{95}%>%t^A%c%{96}%-%;%' '%+%c%p2%?%p2%{95}%>%t^A%c%{96}%-%;%' '%+%c, ! 29: dch1=\E^A, dl1=\E^B, rmir=\E\200, eo, smir=\E^P, lines#24, mir, ! 30: cuf1=\E=, kbs=^h, ul, cuu1=\E;, db, smul=\EG, rmul=\Eg, ! 31: cvvis=\EW, cnorm=\Ew, in, am, xenl, flash=\Ek$<50>\EK, ! 32: smkx=\EX, rmkx=\Ex, kcuu1=\E;, ! 33: kcud1=\E<, kcub1=\E>, kcuf1=\E=, khome=\E?, ! 34: kf1=\E5, kf2=\E6, kf3=\E7, kf4=\E8, kf5=\E9, kf6=\E:, ! 35: smso=\ED, rmso=\Ed, dim=\EE, bold=\ED, rev=\ED, sgr0=\Ee\Ed\Eg\Ec, ! 36: c108-rv-8p|concept 108 w/8 pages in reverse video, ! 37: smcup=\EU\Ev 8p\Ep\r, rmcup=\Ev ^B p\Ep\r\n, use=c108-rv-4p, ! 38: c108-rv-4p|concept 108 w/4 pages in reverse video, ! 39: flash=\EK\200\200\200\200\200\200\200\200\200\200\200\200\200\200\Ek, ! 40: is2=\EU\E F\Ef\E7\E5\E8\El\ENH\Ek\E\200\Eo&\200\Eo\47\E\E!, ! 41: use=c108-4p, ! 42: c108-na|c108-na-8p|concept 108 w/8 pages no arrows, ! 43: smkx@, rmkx@, kf7=\E;, kf8=\E<, kf9=\E=, use=c108-8p, ! 44: c108-rv-na|c108-rv-na-8p|concept 108 w/8 pages no arrows in rev video, ! 45: smkx@, rmkx@, kf7=\E;, kf8=\E<, kf9=\E=, use=c108-rv-8p, ! 46: # this needs new frotz in the cup capability for 2-char addrs when > 95.... ! 47: c108-w|c108-w-8p|concept 108 w/8 pages in wide mode, ! 48: is2=\EU\E F\Ef\E7\E5\E8\El\ENH\EK\E\200\Eo&\200\Eo\47\E\E", ! 49: smcup=\EU\Ev 8^AD\Ep\r, rmcup=\Ev ^A0^AD\Ep\r\n, ! 50: cup=\Ea%p1%?%p1%{95}%>%t^A%c%{96}%-%;%' '%+%c%p2%?%p2%{95}%>%t^A%c%{96}%-%;%' '%+%c, ! 51: cols#132, use=c108-8p, ! 52: # Concepts have only window relative cursor addressing, not screen relative. ! 53: # To get it to work right here, smcup/rmcup (which were invented for the ! 54: # concept) lock you into a one page window for screen style programs. ! 55: # To get out of the one page window, we use a clever trick: ! 56: # we set the window size to zero ("\Ev " in rmcup) which the terminal ! 57: # recognizes as an error and resets the window to all of memory. ! 58: # This trick works on c100 but does not on c108, sigh. ! 59: # ! 60: # Some tty drivers use cr3 for concept, others use nl3, hence the delays on ! 61: # cr and ind below. This padding is only needed at 9600 baud. ! 62: # One or the other is commented out depending on local conventions. ! 63: # 2 nulls padding on rmcup isn't always enough. 6 works fine. Maybe less ! 64: # than 6 but more than 2 will work. ! 65: concept100|c100|concept|c104|c100-4p|concept 100, ! 66: is2=\EU\Ef\E7\E5\E8\El\ENH\EK\E\200\Eo&\200\Eo\47\E, ! 67: cr=$<9>^M, ind=^J, ! 68: # cr=^M, ind=^J$<9>, ! 69: bel=^G, cud1=^J, smcup=\EU\Ev 8p\Ep\r, rmcup=\Ev $<6>\Ep\r\n, ! 70: il1=\E^R$<3*>, am, cub1=^H, ed=\E^C$<16*>, el=\E^U$<16>, clear=^L$<2*>, ! 71: cup=\Ea%p1%' '%+%c%p2%' '%+%c, cols#80, dch1=\E^A$<16*>, dl1=\E^B$<3*>, ! 72: rmir=\E\200, eo, smir=\E^P, in, ip=$<16*>, lines#24, mir, cuf1=\E=, ! 73: ht=\t$<8>, kbs=^h, ul, cuu1=\E;, db, smul=\EG, rmul=\Eg, ! 74: xenl, cvvis=\EW, cnorm=\Ew, flash=\Ek$<20>\EK, ! 75: pb#9600, vt#8, ! 76: smul=\EG, rmul=\Eg, smso=\EE\ED, rmso=\Ed\Ee, ! 77: dim=\EE, rev=\ED, blink=\EC, prot=\EI, invis=\EH, sgr0=\EN\200, ! 78: rep=\Er%p1%c%p2%' '%+%c$<.2*>, smkx=\EX, rmkx=\Ex, ! 79: kcuu1=\E;, kcud1=\E<, kcub1=\E>, kcuf1=\E=, khome=\E?, ! 80: kf1=\E5, kf2=\E6, kf3=\E7, ! 81: c100-rvpp|c100-rv4ppp|c100 with printer port, ! 82: is2=\EU\Ef\E7\E5\E8\El\ENH\Ek\E\200\Eo&\200\Eo!\200\EQ"\EY(^W\Eo\47\E, ! 83: use=c100-rv, ! 84: c100-rvna|c100-rv4pna|c100 with no arrows, ! 85: smkx@, rmkx@, use=c100-rv, ! 86: c100-rv|c100-rv4p|concept100-rv|c100 rev video, ! 87: is2=\EU\Ef\E7\E5\E8\El\ENH\Ek\E\200\Eo&\200\Eo\47\E, ! 88: flash=\EK$<20>\Ek, cvvis@, cnorm@, smso=\EE, rmso=\Ee, use=c100,
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.