TIP: Click on subject to list as thread! ANSI
echo: 64_talk
to: Errol Smith
from: Greg Harper
date: 1994-03-04 08:42:20
subject: scroller code

Hi Errol,
       I tried the code you gave me for the scroller, here it is:

   ---------------------   Text Import Start   ---------------------
         *= $c000

start    dec $fb
         bpl fix
         rts
fix      lda #$07
         sta $fb
         ldx #$00
xfer     lda $0401,x
         sta $0400,x
         inx
         cpx #$27
         bne xfer
         inc $fc
         ldx $fc
         lda $c800,x;- text is at $C800
         sta $0427
         rts
;
;that was the main routine. The followin
;that calls the above.
;
setup    lda #$00; - setup $c040
         sta $fb;  - smooth scroll poin
         sta $fc;  - text pointer
         jsr $1000; <- only do this if
; run..
loop     lda #$80;- start of loop
test     cmp $d012
         bne test
         jsr $c000;(scroll routine)
         jsr $1003;<- again only do thi
         lda $fb
         sta $d016
         jmp loop

;After you've typed that in you -should-
;scroller moving across the top line of
;dont have a music loaded (at $1000 - $2
;replace both the JSR $1000 and the JSR
;That will make sure the addresses are s
; To run it type G C040 in your monitor.
;put some text in $C800-$C900 using scre
;you will just get junk moving across th
;
; Well I hope it works this time!
;
;cya, Strobe/Menace

   ---------------------   Text Import End   ---------------------

Well, it didn't work. :(  I put the music (a DMC file) in $1000, the
text in $c800 (using I*c800), but it didn't work.  Are you sure the
code is right?

The good thing about using Turbo Assembler 5.1, is that you can easily
import a SEQ file from disk, such as code exported (or buffer captured)
from an OLR.  T.A.5 can also save as a SEQ file, you might like to give
that a try to make sure it's right.

Anyway catch ya soon.

Catchya L8R M8,
Logic/???

PS  BTW, is the code edited correctly? I have a nagging suspicion that
I may have edited the code wrong.  What do you think?

... Read the manuals? Then what am I supposed to raise the monitor with?
-=- QWKRR128 V4.1 [R]

--- Maximus 2.01wb

* Origin: The Space Station BBS (3:713/307)
SEEN-BY: 50/99 54/54 640/316 711/807 808 809 929 934 712/623 713/305 307 317
SEEN-BY: 713/700 801 805 888
@PATH: 713/307 317 888 54/54 711/808 809

SOURCE: echomail via fidonet.ozzmosis.com

Email questions or comments to sysop@ipingthereforeiam.com
All parts of this website painstakingly hand-crafted in the U.S.A.!
IPTIA BBS/MUD/Terminal/Game Server List, © 2025 IPTIA Consulting™.