You can't stay quiet...

Thanks.

Sorry, I missed that bit probably caught me while I was distracted with something else!

Hahaha ... I'm fairly amazed that *anyone* bothered to look at those boring old disk images!


I can't even remember anymore what VEDIT functions I assigned to the Enterprise's function keys, so I suspect that installing a new version would be a good idea for anyone that actually wanted to use VEDIT on IS-DOS in modern times.

Creating a new VEDIT terminal definition to support the Enterprise's reverse-video (i.e. palette 2) is easy using VEDIT's own "INTMOD.COM" tool that is on the 2nd disk that gflorez found.


Modifying VEDIT itself is also easy because, as a CP/M program, you can just add an extra disc-sector's worth of code onto the end of the VEDIT program file after you customize it to your own taste, and then save out the larger file, and everything will work.

In my case, I patched the VEDIT starting code at $100 (when it is loaded), and changed it to jump to new new patch that I added at the end of the program.

FWIW, I did basically the same thing to the version of Wordstar that is on that Cauldron IS-DOS system disc.


Anyway, this is the patch, it is really very simple  ...

; Hack VEDIT v2.31 to select the IS-DOS fast video driver, and to define
; the Enterprise's 10 function keys to return keyboard codes $F0-$FF.

.   5A00  21 C9 05     LD    HL, $05C9          ; Original jump location from VEDIT 2.31
.   5A03  22 01 01     LD    ($0101), HL

.   5A06  0E 85        LD    C, $85             ; "Select Fast Video Driver"
.   5A08  CD 05 00     CALL  5                  ; CP/M BDOS call

.   5A0B  06 08        LD    B, 8               ; Subfunction 8, "Define Function Key"
.   5A0D  3A 27 5A     LD    A, ($5A27)         ; Which function key (0..15)?
.   5A10  E6 0F        AND   $0F
.   5A12  4F           LD    C, A
.   5A13  11 26 5A     LD    DE, $5A26          ; Ptr to function key string
.   5A16  3E FE        LD    A, $FE             ; Channel # for keyboard
.   5A18  F7 0B        EXOS  $0B

.   5A1A  3A 27 5A     LD    A, ($5A27)         ; Increment function key #
.   5A1D  3C           INC   A
.   5A1E  32 27 5A     LD    ($5A27), A
.   5A21  20 E8        JR    NZ, $5A0B

.   5A23  C3 00 01     JP    $0100              ; Return to VEDIT.

.   5A26  01           DB    $01                ; Function key string length.
.   5A27  F0           DB    $F0                ; Function key string character.