Path: utzoo!mnetor!uunet!lll-winken!lll-lcc!ames!pasteur!ucbvax!RADC-TOPS20.ARPA!GUBBINS
From: GUBBINS@RADC-TOPS20.ARPA (Gern)
Newsgroups: comp.sys.zenith.z100
Subject: Interlace stuff
Message-ID: <12390386935.13.GUBBINS@RADC-TOPS20.ARPA>
Date: 14 Apr 88 13:48:14 GMT
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The Internet
Lines: 60

Forward Msg:
12-Apr-88 15:57:08-EST,2069;000000000001
Return-Path: <SAC.DYESGPF@E.ISI.EDU>
Received: from E.ISI.EDU by RADC-TOPS20.ARPA with TCP; Tue 12 Apr 88 15:57:02-EST
Date: 11 Apr 1988 23:22-CDT
Sender: SAC.DYESGPF@E.ISI.EDU
Subject: Interlace Mode for HZ100
From: SAC.DYESGPF@E.ISI.EDU
To: INFO-HZ100-REQUEST@RADC-TOPS20.ARPA
Message-ID: <[E.ISI.EDU]11-Apr-88 23:22:30.SAC.DYESGPF>

For the individuals who were wondering about the interlace mode on the
HZ100, I hope the following code gets you going in the right direction.
The following program is included in the ASMUTIL1.ARC file in PD1:<HZ100>
on SIMTEL20 and demonstrates how to toggle this mode on/off.

With a little modification this code could easily be used as a proceedure
within assembly, pascal and C programs. The proc would be passed a 1 (turn
on interlace) or a 0 (turn off it off).  As is, the program functions
as a transient dos command.  If activated at the dos level before loading
ZBASIC the interlace mode will be in effect during all graphics and text
outputs to the screen, however the coorinates for graphics (e.g.
circle (x,y),r) remain unchanged (0 to 639 and 0 to 224)

Al Holecek
<SAC.DYESGPF@E.ISI.EDU>

------------------------------  CUT HERE  --------------------------------

        title.  INTERLAC - turn on or off the interlace video only mode

;;;     INTERLAC - turn on or off the interlace video only mode
;
;       Usage: INTERLAC [0 | 1]
;
;       An argument of 1 will turn interlace video only mode on, 0 will turn
;       it off.
;
;       To build INTERLAC use:
;               MASM INTERLAC;
;               LINK INTERLAC;
;               EXE2BIN INTERLAC .COM
;
;       Code comes from REMark Volume 5 Issue 12 (Dec. '84)
;       Article by Frank T. Clark, Zenith Data Systems
;
code    segment
        assume  cs:code,ds:code,es:code,ss:code
        org     0100H

begin:  cli
        mov     al,8
        out     0DCH,al
        mov     al,ds:[082H]
        and     al,1
        out     0DDH,al
        sti
        ret
code    ends
        end     begin
-------