Mail Archives: djgpp/1993/04/23/17:26:39
I had hoped for a more useful response from Quarterdeck Tech Support
after waiting a _week_. I don't expect my hand to be held, but what
I would like is a verification of the incompatabilies of dvansi.com
and ansi.sys. I thought it would be polite to propose this to Qdeck's
Tech Support before I go spreading incompatability rumors. I will post
this message to others hoping to get a more complete (informed) response.
I know I am provoking a flame war, but this is not my first experience
with qdeck tech support which has provided little help. And I want to
know if my presumption about dvansi.com are correct and maybe even why.
>
> Dear Jason I see that you are loading dvansi.com in your autoexec.bat
> that is not what is was meant for. Dvansi was mean to be run in
> a dvx window. So you woul make a batchfile that basically says
No, there is a word 'rem' before dvansi.com. That usually means ignore
that line. Command.com (or 4dos.com in my case) understands this. It
was in my autoexec.bat for experimentation purposes. Sorry to confuse
you.
>
> [Deleted information similar to page 180 in User Guide]
>
> Thank you for doing business with Quarterdeck.
>
> > Dear Tech Support,
> >
> > I own DV/X serial no. xxx-xx-xxxx and have noticed what I believe to be
> > an incompatibility between ANSI.SYS (MS-DOS 6) and DVANSI.COM (DV/X 1.0).
> > When I load DEMACS with ANSI.SYS loaded, I have no problems with my arrow
> > keys. The arrow keys do not operate however when I use DVANSI.COM, before
> > loading DV/X or in a window. I asked DEMACS to give me the keys for what
> > it thinks I am pressing when I pressed up arrow and it told me 'C-@ H'.
> > This is opposed to 'C-p' for ANSI.SYS. I can write work-around lisps to
> > solve the problem, but I would like to know if there is a more compatible
> > version of DVANSI.COM available for downloading via Internet or otherwise.
I have since modified my emacs setup to operate properly with DVANSI.COM. This
is not really necessary since the DEVICE.COM file will let me load ANSI.SYS,
but it is more convenient for me. I can provide my new term/ibmpc.el to
anyone wanting to do the same. There is alot I don't understand about DEMACS,
and emacs for that matter, so I don't know if the source of my problem was in
my setup. I have also lost the ability to use ALT as my META key as a result
of my fix (small price). I am concerned because I plan to run several other
ports of emacs on my computer when I can find the time to try them. I don't
want similar difficulties to pop up.
> >
> > The relavent setup files follow:
> >
> > System / CONFIG
> > switches=/f
> >
> > rem [Menu]
> > rem menuitem=Normal
> > rem menuitem=Stealth
> > rem menuitem=Ramdrive
> >
> > rem [Common]
> > files=40
> > buffers=10
> > lastdrive=z
> > dos=high
> > rem STACKS=9,256
> > shell=c:\4dos\4dos.com /d:2048 /p
> >
> > rem [Normal]
> > DEVICE=c:\QEMM\QEMM386.SYS R:2 RAM
> >
> > rem [Stealth]
> > rem DEVICE=c:\QEMM\QEMM386.SYS R:2 RAM ST:M
> > rem [Ramdrive]
> > rem DEVICE=c:\QEMM\QEMM386.SYS R:2 RAM
> > DEVICE?=c:\qemm\loadhi.sys /r:1 c:\dos\ramdrive.sys 2048 512 1024 /e
> >
> > rem [Common]
> > DEVICE=C:\QEMM\LOADHI.SYS /R:2 C:\DOS\DBLSPACE.SYS /MOVE
> > DEVICE=C:\QEMM\LOADHI.SYS /R:2 C:\DOS\SETVER.EXE
> >
> > device?=c:\qemm\loadhi.sys /r:1 c:\dos\ansi.sys
> >
> > System / AUTOEXEC
> > @echo off
> > verify on
> >
> > c:\qemm\loadhi /r:2 C:\DOS\mouse.com
> > echo.
> > c:\bin\yesno.com Load Smartdrv [Y,N]?
> > echo.
> > if not errorlevel 1 C:\QEMM\LOADHI /R:2 C:\DOS\SMARTDRV.EXE 512 1024
> > rem c:\qemm\loadhi /r:2 c:\dos\share.exe
> > rem c:\qemm\loadhi /r:2 d:\dvx\dvansi.com
> >
> > PATH C:\DOS;c:\batch;c:\bin;c:\qemm;c:\4dos
> >
> > prompt [%%@dosmem[K]K] $p$g
> >
> > set temp=c:\temp
> > set sound=d:\sb
> > set blaster=A220 I5 D1 T3
> >
> > set GO32=ansi
> > set GO32TMP=c:/temp
> > set TERM=ibmpc
> > set TERMCAP=d:/emacs/termcap
> > set HOME=c:/home
> > set TZ=MST
> > set USER=jdk5906
> > set EMACSLOADPATH=d:/lib/emacs/lisp
> > set EMACSEXECPATH=d:/lib/emacs/etc
> > set SHELL=c:/4dos/4dos.com
> > set COMPILER_PATH=d:/djgpp/bin
> > set C_INCLUDE_PATH=d:/djgpp/include
> > set CPLUS_INCLUDE_PATH=d:/djgpp/cplusinc;d:/djgpp/include
> > set OBJC_INCLUDE_PATH=d:/djgpp/include
> > set OBJCPLUS_INCLUDE_PATH=d:/djgpp/include
> > set LIBRARY_PATH=d:/djgpp/lib
> > set BISON_SIMPLE=d:/djgpp/lib/bison.simple
> > set BISON_HAIRY=d:/djgpp/lib/bison.hairy
> > set FLEX_SKELETON=d:/djgpp/lib/flex.skeleton
> > set MANPATH=c:/usr/bin/man
> > rem fortran stuff
> > SET PATH=D:\FORTRAN\BIN\;D:\FORTRAN\BINB\;C:\DOS;C:\BATCH;C:\BIN;C:\QEMM;C:
> > ...\4DOS
> > SET LIB=D:\FORTRAN\LIB\
> > SET INCLUDE=D:\FORTRAN\INCLUDE\
> > SET HELPFILES=D:\FORTRAN\HELP\*.HLP
> > SET INIT=D:\FORTRAN\INIT\
> > SET TMP=c:\temp
> >
> > REM set comspec=c:\4dos\4dos.com
> > rem set colordir=com exe bat:red;pif dvp:blue;dirs:yellow;c h s asm:green;o
> > ... a:cyan;jpg gif fli tga tif:orange;*:white
> > alias /r c:\4dos\aliases
> > history /r c:\4dos\history.txt
> >
> > ---BEGIN _EMACS.
> > ;;; sample startup file
> > ;;; semi-colon(s), beginning of line means that the line is commented out.
> >
> > ;; load path
> > ;(setq load-path (append (list (expand-file-name "~/emacs/lisp")
> > ; "a:/emacs/lisp/enhanced")
> > ; load-path))
> >
> > ;;
> > ;; UNCOMMENT ONE OF THEM
> > ;;
> > ;;; if your machine is IBM PC or it's compatible
> > (setq dos-machine-type 'ibmpc)
> > ;;; if your machine is Toshiba J-3100
> > ;(setq dos-machine-type 'j3100)
> > ;;; if your machine is NEC PC-9801 or EPSON PC-386 series
> > ;(setq dos-machine-type 'pc98)
> >
> > (load-library "bobcat") ; swap BS (C-h) and DEL
> >
> > ;;
> > ;; PC9801 initialization
> > ;; function keys, cursor keys
> > ;; If you need META key, use hkey.exe (hkey is distributed within hterm2.6.0)
> > ;;
> > (if (eq dos-machine-type 'pc98)
> > (progn
> > (send-string-to-terminal "\e[>1h") ;; erase function key label
> > (setq kill-emacs-hook ;; recover functin key label
> > '(lambda ()
> > (send-string-to-terminal "\e[>1l")
> > (pc98-cancel-special-key)))
> > (setq suspend-hook
> > '(lambda ()
> > (send-string-to-terminal "\e[>1l")
> > (pc98-cancel-special-key)))
> > (setq suspend-resume-hook
> > '(lambda ()
> > (sen-string-to-t5erminal "\e[>1h")
> > (pc98-assign-special-key)
> > (if console-is-with-function-key-label
> > (redraw-display-with-function-key-label))))
> > ; uncomment if you wish to display function key label
> > ; (setq console-is-with-function-key-label t)
> > ; uncomment if your $TERM is not pc98 and you want function key
> > ; (load "term/pc98")
> > ))
> >
> > ;;
> > ;; J-3100 initialization
> > ;; function keys, cursor keys, meta key (by ALT)
> > ;; cursor shape, key click
> > ;;
> > (if (eq dos-machine-type 'j3100)
> > (progn
> > (setq startup-screen-mode (get-screen-mode))
> > (setq startup-cursor-mode (get-cursor-mode))
> > (set-cursor-mode 0 15 nil)
> > (set-keyclick t)
> > (setq kill-emacs-hook
> > '(lambda ()
> > (j3100-cancel-special-key)
> > (if startup-screen-mode
> > (set-screen-mode startup-screen-mode))
> > (if startup-cursor-mode
> > (apply 'set-cursor-mode startup-cursor-mode))
> > (set-keyclick nil)
> > ))
> > (setq suspend-hook
> > '(lambda ()
> > (j3100-cancel-special-key)
> > (setq old-screen-mode (get-screen-mode))
> > (setq old-cursor-mode (get-cursor-mode))
> > (if startup-screen-mode
> > (set-screen-mode startup-screen-mode))
> > (if startup-cursor-mode
> > (apply 'set-cursor-mode startup-cursor-mode))
> > ))
> > (setq suspend-resume-hook
> > '(lambda ()
> > (j3100-assign-special-key)
> > (if old-screen-mode
> > (set-screen-mode old-screen-mode))
> > (if old-cursor-mode
> > (apply 'set-cursor-mode old-cursor-mode))
> > (if console-is-with-function-key-label
> > (redraw-display-with-function-key-label))
> > ))
> > ; uncomment if you wish to display function key label
> > ; (setq console-is-with-function-key-label t)
> > ; uncomment if your $TERM is not j3100 but you want to use function key
> > ; (load "term/j3100")
> > ))
> >
> > ;;
> > ;; IBMPC initialization
> > ;; function keys, cursor keys, meta key (by ALT)
> > ;;
> > (if (eq dos-machine-type 'ibmpc)
> > (progn
> > (setq kill-emacs-hook
> > '(lambda ()
> > (ibmpc-cancel-special-key)))
> > (setq suspend-hook
> > '(lambda ()
> > (ibmpc-cancel-special-key)))
> > (setq suspend-resume-hook
> > '(lambda ()
> > (ibmpc-assign-special-key)
> > (if console-is-with-function-key-label
> > (redraw-display-with-function-key-label))))
> > ;
> > (setq term-setup-hook
> > '(lambda ()
> > (if (fboundp 'enable-arrow-keys)
> > (enable-arrow-keys))))
> > ;
> > ; uncomment if you wish to display function key label
> > (setq console-is-with-function-key-label t)
> > ; uncomment if your $TERM is not ibmpc but you want function key
> > ; (load "term/ibmpc")
> > ))
> >
> > ;;; FEP Control support
> > (if (boundp 'NEMACS)
> > (progn
> > (setq inhibit-fep-control nil)
> > (fep-init)
> > (global-set-key "\C-\\" 'toggle-fep-mode)
> > (global-set-key "\e " 'set-mark-command)
> > (setq suspend-hook (append (or suspend-hook '(lambda ()))
> > '((fep-term))))
> > (setq kill-emacs-hook (append (or kill-emacs-hook '(lambda ()))
> > '((fep-term))))
> > (setq suspend-resume-hook (append (or suspend-resume-hook '(lambda()))
> > '((fep-init) (fep-sync))))
> > ))
> >
> > ;;
> > ;; enhanced dired
> > ;;
> > ;(setq dired-mode-map nil)
> > ;(load "emacs-19")
> > ;(autoload 'dired "dired" nil t)
> > ; uncomment if you have unix like commands
> > ;(setq dired-load-hook
> > ; '(lambda ()
> > ; (setq dired-ls-program "ls"
> > ; dired-chmod-program "chmod"
> > ; dired-chgrp-program "chgrp"
> > ; dired-chown-program "chown"
> > ; dired-compress-program "compress"
> > ; dired-uncompress-program "uncompress"
> > ; )))
> >
> > ;;
> > ;; add binary file type
> > ;;
> > (define-file-nae-file-type "\\.lzh" 1)
> > (define-file-name-file-type "\\.dvi" 1)
> >
> > ;;
> > ;; completion
> > ;;
> > (setq completion-ignored-extensions
> > (append completion-ignored-extensions
> > '(".obj" ".exe" ".bin" ".com")))
> >
> > (put 'eval-expression 'disabled nil)
> >
> > (defun set43 () "Changes the number of rows to 50.
> > Only works in VGA mode" ; /DMS set43->set50, added comment
> > (let ((regs (make-register)))
> > (set-register-value regs 'ax 3) ; 0x19
> > (int86 16 regs) ; 0x21
> > (set-register-value regs 'ax 4370)
> > (set-register-value regs 'bl 0)
> > (int86 16 regs)
> > (set-register-value regs 'ax 4608)
> > (set-register-value regs 'bl 32)
> > (int86 16 regs)
> > (set-register-value regs 'ax 256)
> > (set-register-value regs 'cx 7)
> > (int86 16 regs)
> > (set-register-value regs 'ax 4400)
> > (int86 16 regs)
> > (set-screen-height 50) ; /DMS changed for VGA users
> > (recenter) ; /DMS
> > (load "term/ibmpc") ; jdk
> > ))
> >
> > (defun set25 () "Changes the number of rows to 25 which is also the default.
> > Works in both EGA and VGA modes." ;; /DMS added the comment
> > (let ((regs (make-register)))
> > (set-register-value regs 'ax 3) ; 0x19
> > (int86 16 regs) ; 0x21
> > (set-register-value regs 'ax 4353)
> > (set-register-value regs 'bl 0)
> > (int86 16 regs)
> > (set-register-value regs 'ax 4608)
> > (set-register-value regs 'bl 32)
> > (int86 16 regs)
> > (set-register-value regs 'ax 3) g(int86 16 regs)
> > (set-screen-height 25)
> > (recenter) ; /DMS
> > (load "term/ibmpc") ; jdk
> > ))
> >
> >
> > ---END _EMACS.
> >
> > --
> > Jason Kridner / jdk AT tamu DOT edu
> >
>
>
> --
> Quarterdeck Office Systems - Internet Support - Keven Denton
> Pricing/Ordering : info AT qdeck DOT com | Tech Questions : support AT qdeck DOT com
> BBS: (310) 314-3227 * FAX: (310) 314-3217 * Compuserve: GO QUARTERDECK
> Q/Fax: (310) 314-3214 from touch-tone phone for Technotes On Demand!
>
>
--
Jason Kridner / jdk AT tamu DOT edu
- Raw text -