Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.1 6/24/83; site ecsvax.UUCP
Path: utzoo!watmath!clyde!burl!ulysses!allegra!mit-eddie!genrad!decvax!mcnc!ecsvax!calway
From: calway@ecsvax.UUCP (James Calloway)
Newsgroups: net.micro.cbm
Subject: Re: Next print location on the screen
Message-ID: <465@ecsvax.UUCP>
Date: Sun, 6-Jan-85 16:23:20 EST
Article-I.D.: ecsvax.465
Posted: Sun Jan  6 16:23:20 1985
Date-Received: Tue, 8-Jan-85 02:58:43 EST
References: <2@omovax.UUCP>, <18900003@hp-pcd.UUCP>, <461@ecsvax.UUCP>
Organization: The News and Observer
Lines: 51

x
Below is a ML routine that will move the cursor without leaving parts of the 
screen in reverse video. The only instance I have found in which it does not work is on line 24, the last line (starting with 0). I'm not sure why.
The routine assumes you already have loaded the X register with the row number
(0-24) and the Y register with the column number (0-39).

          SEI
          LDA $CF
          BNE fixcrsr
          CLC
goplot    JSR FFF0
          CLI
          RTS
fixcrsr   LDA #$01
          STA $CD
ckagain   CLI
          NOP
          NOP
          NOP
          NOP
          NOP
          SEI
          LDA $CF
          BNE ckagain
          CLC
          BCC goplot


This can be used with BASIC. Select an address that is safe from BASIC and POKE 
the following numbers into memory:

120,165,207,208,6,24,
32,240,255,88,96,169,
1,133,205,88,234,234,234,
234,234,120,165,207,208,
245,24,144,233

From BASIC you can POKE the column number into 782 and the row number into 781.
Then SYS to the address  you chose for the routine. It will move the cursor and
return to BASIC.


-- 

James  Calloway
The News and Observer
Box 191
Raleigh, N.C. 27602
(919) 829-4570
{akgua,decvax}!mcnc!ecsvax!calway