Re: [M100] DVI or modern equivalent

Ken Pettit Thu, 13 Sep 2018 16:28:15 -0700

All,

Attached are three files TDOCK.CO file for M100/M102 and CCHART.DO / CCHART.BA. The TDOCK.CO file is the binary output of the code I was writing for the DVI replacement solution called TDock. VirtualT 1.7 emulates TDock.


Load this to the emulation and from BASIC exectute:

clear 256,62400
loadm"tdock.co"

This will load TDOCK to address 62400 in high RAM but will not install the TDock / DVI "hooks". To install the hooks and thus activate TDock, issue


call 62400,1
This will print the TDock copyright screen

Once the TDock hooks are installed, from BASIC you can get an 80 x 25 screen by issuing:


screen 1
width 80

Go back to the regular screen mode with "screen 0". Note that the 80x25 window is EXPERIMENTAL ... it has no options for resizing, the menu items on the top are non-functional, and if you close it while you are in active "screen 1" mode (i.e. the cursor is on the emulated DVI screen), VirtualT WILL crash.


To "uninstall" the TDock hooks, issue

screen 0
call 62400,2
no notification given, but "screen 1" should no longe work.

The CCHART.BA / CCHART.DO files (one tokenizd BASIC, the other TEXT) are an example application that draws a color chart on the emulated DVI screen. You must first go into BASIC and issue the commands: "screen1" and "width 80" before this BASIC program will work. Hit CTRL-C to exit out.


Ken


On 9/13/18 3:05 PM, Greg Swallow wrote:

How is it enabled/activated?

God Bless,

GregS <><

----- Original Message -----
From: "Ken Pettit" <[email protected]>
To: [email protected]
Sent: Thursday, September 13, 2018 12:27:58 PM
Subject: Re: [M100] DVI or modern equivalent

VirtualT 1.7 supports DVI mode :)

Ken

cchart.ba
Description: Binary data

10 CLS
20 PRINT@82,"System Colors (0-15)"
30 FOR 
C=1TO7:PRINTCHR$(27)"e"CHR$(C);:PRINT@80*3+2+C*2,CHR$(239);CHR$(239);:NEXT
40 FOR 
C=8TO15:PRINTCHR$(27)"e"CHR$(C);:PRINT@80*4+2+(C-8)*2,CHR$(239);CHR$(239);:NEXT
50 PRINT@80*6+2,CHR$(27)"e"CHR$(255);"Color cube, 6x6x6 (16-231)"
60 C=16:FORW=0TO5
70 FORY=0TO5:FORX=0TO5
80 PRINT@0,CHR$(27)"e"CHR$(C):C=C+1
90 PRINT@80*8+80*Y+2+W*13+X*2,CHR$(239);CHR$(239);
100 NEXT:NEXT:NEXT
110 PRINT@15*80+2,CHR$(27)"e"CHR$(255)"Grayscale ramp (232-254)"
120 
PRINT@17*80+2,"":FORC=232TO254:PRINTCHR$(27)"e"CHR$(C);CHR$(239);CHR$(239);:NEXT
130 PRINT@20*80+2,CHR$(27)"e"CHR$(255)"Foreground color (255)"
140 PRINT@22*80+2,CHR$(239);CHR$(239);
180 PRINTCHR$(27)"e"CHR$(255)
190 GOTO 190

tdock.co
Description: Binary data

Re: [M100] DVI or modern equivalent

Reply via email to