Or not scrolling I guess. I want to fill a the text screen with a character, in assembly.It might be a bit naughty, but have you tried poking a #$19 into ZP location $23?
I'm using COUT, but the last character will cause the screen to scroll up one line and
leave a line blank at the bottom. Is there a good way to prevent this beside printing
everything but the last character and then directly sticking the last character into
screen memory?
Or not scrolling I guess. I want to fill a the text screen with a character, in assembly. I'm using COUT, but the last character will cause the screen to scroll up one line and leave a line blank at the bottom. Is there a good way to prevent thisbeside printing everything but the last character and then directly sticking the last character into screen memory?
Or not scrolling I guess. I want to fill a the text screen with a character, in assembly. I'm using COUT, but the last character will cause the screen to scroll up one line and leave a line blank at the bottom. Is there a good way to prevent thisbeside printing everything but the last character and then directly sticking the last character into screen memory?
HLINE and VLINE don't scroll.... and could be used to create a cool "wipe" effect @ 1 MHz. Like!
HLINE and VLINE don't scroll.
This doesn't work in 80 columns.
This doesn't work in 80 columns.
This doesn't work in 80 columns.
Though it can:
33 POKE 49237,0
35 HLIN 0,39 AT I * 2
38 POKE 49236,0
In article <f812d193-6a9e-4bfa-b896-8c6fdcef1f44n@googlegroups.com>,
qkumba <peter.ferrie@gmail.com> wrote:
HLINE and VLINE don't scroll.
To give a little more detail, try the following:
10 FOR I = 0 TO 23
20 COLOR= 3
30 HLIN 0,39 AT I * 2
40 COLOR= 10
50 HLIN 0,39 AT I * 2 + 1
60 NEXT
70 FOR I = 1 TO 10000000
80 NEXT
The HLIN (and VLIN and PLOT) commands work on the text screen,
if you don't give GR.
Kent Dickey wrote:
In article <f812d193-6a9e-4bfa...@googlegroups.com>,
qkumba wrote:
HLINE and VLINE don't scroll.
To give a little more detail, try the following:
10 FOR I = 0 TO 23
20 COLOR= 3
30 HLIN 0,39 AT I * 2
40 COLOR= 10
50 HLIN 0,39 AT I * 2 + 1
60 NEXT
70 FOR I = 1 TO 10000000
80 NEXT
The HLIN (and VLIN and PLOT) commands work on the text screen,Better yet, write directly to the colour mask byte:
if you don't give GR.
10 FOR I = 0 TO 47
20 POKE 48,163
30 HLIN 0,39 AT I
40 NEXT
90 ON PEEK(49152) < 128 GOTO 90 : POKE 49168,.
(That last line just waits for a key, and clears it.)
Or (on a machine with MouseText):
10 PRINT CHR$(17); : POKE 49167,. : TEXT
21 FOR X = 0 TO 38 STEP 2
22 POKE 48,86 : VLIN 0,47 AT X
23 POKE 48,87 : VLIN 0,47 AT X + 1
24 NEXT
90 ON PEEK(49152) < 128 GOTO 90 : POKE 49168,.
(Line 10 ensures 40 columns, alt charset, text mode.)
On Monday, May 9, 2022 at 6:40:09 PM UTC-4, Brian Patrie wrote:
Kent Dickey wrote:
In article <f812d193-6a9e-4bfa...@googlegroups.com>,Better yet, write directly to the colour mask byte:
qkumba wrote:
HLINE and VLINE don't scroll.
To give a little more detail, try the following:
10 FOR I = 0 TO 23
20 COLOR= 3
30 HLIN 0,39 AT I * 2
40 COLOR= 10
50 HLIN 0,39 AT I * 2 + 1
60 NEXT
70 FOR I = 1 TO 10000000
80 NEXT
The HLIN (and VLIN and PLOT) commands work on the text screen,
if you don't give GR.
10 FOR I = 0 TO 47
20 POKE 48,163
30 HLIN 0,39 AT I
40 NEXT
90 ON PEEK(49152) < 128 GOTO 90 : POKE 49168,.
(That last line just waits for a key, and clears it.)
Or (on a machine with MouseText):
10 PRINT CHR$(17); : POKE 49167,. : TEXT
21 FOR X = 0 TO 38 STEP 2
22 POKE 48,86 : VLIN 0,47 AT X
23 POKE 48,87 : VLIN 0,47 AT X + 1
24 NEXT
90 ON PEEK(49152) < 128 GOTO 90 : POKE 49168,.
(Line 10 ensures 40 columns, alt charset, text mode.)
Ok I tried the BASIC versions and they work like I want, but I tried to right a little
assembly program to test it and I can't get it to work.
*300L
0300- A9 A3 LDA #$A3 ;Load "#"
0302- 85 30 STA $30 ;Stick in color
0304- A9 27 LDA #$27 ;Load rightmost
0306- 85 2C STA $2C ;Stick in 2C
0308- A9 09 LDA #$09 ;Load vertical coord
030A- A0 00 LDY #$00 ;load horizontal coord
030C- 20 19 F8 JSR $F819 ; call HLIN
Should have a line of # through the screen and I don;t....
0
*
qkumba wrote:
This doesn't work in 80 columns.
Though it can:
33 POKE 49237,0
35 HLIN 0,39 AT I * 2
38 POKE 49236,0
Sorta. This mod will work on a IIe, or IIee, but will misbehave on a
IIc, IIc+, or IIgs--which support DGR in firmware. So you'd need to determine what you're running on, and act accordingly (or roll your own
PLOT, HLINE, VLINE code).
"duhas...@gmail.com" <duhast6377@gmail.com> writes:
On Monday, May 9, 2022 at 6:40:09 PM UTC-4, Brian Patrie wrote:
Kent Dickey wrote:
In article <f812d193-6a9e-4bfa...@googlegroups.com>,Better yet, write directly to the colour mask byte:
qkumba wrote:
HLINE and VLINE don't scroll.
To give a little more detail, try the following:
10 FOR I = 0 TO 23
20 COLOR= 3
30 HLIN 0,39 AT I * 2
40 COLOR= 10
50 HLIN 0,39 AT I * 2 + 1
60 NEXT
70 FOR I = 1 TO 10000000
80 NEXT
The HLIN (and VLIN and PLOT) commands work on the text screen,
if you don't give GR.
10 FOR I = 0 TO 47
20 POKE 48,163
30 HLIN 0,39 AT I
40 NEXT
90 ON PEEK(49152) < 128 GOTO 90 : POKE 49168,.
(That last line just waits for a key, and clears it.)
Or (on a machine with MouseText):
10 PRINT CHR$(17); : POKE 49167,. : TEXT
21 FOR X = 0 TO 38 STEP 2
22 POKE 48,86 : VLIN 0,47 AT X
23 POKE 48,87 : VLIN 0,47 AT X + 1
24 NEXT
90 ON PEEK(49152) < 128 GOTO 90 : POKE 49168,.
(Line 10 ensures 40 columns, alt charset, text mode.)
Ok I tried the BASIC versions and they work like I want, but
I tried to right a little assembly program to test it and I
can't get it to work.
*300L
0300- A9 A3 LDA #$A3 ;Load "#"
0302- 85 30 STA $30 ;Stick in color
0304- A9 27 LDA #$27 ;Load rightmost
0306- 85 2C STA $2C ;Stick in 2C
0308- A9 09 LDA #$09 ;Load vertical coord
030A- A0 00 LDY #$00 ;load horizontal coord
030C- 20 19 F8 JSR $F819 ; call HLIN
Should have a line of # through the screen and I don;t....
0
*
You still have to draw two HLINs because with one you're only
setting one half of the byte (the top or the bottom, depending
on your Y-coordinate).
Sysop: | Keyop |
---|---|
Location: | Huddersfield, West Yorkshire, UK |
Users: | 285 |
Nodes: | 16 (2 / 14) |
Uptime: | 62:28:30 |
Calls: | 6,488 |
Calls today: | 1 |
Files: | 12,096 |
Messages: | 5,274,568 |