Home » Personal collection » Commodore disks » disk31a_turbo_assembler.d64 » s.scroller

s.scroller

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Commodore disks » disk31a_turbo_assembler.d64
Filename: s.scroller
Read OK:
File size: 0C94 bytes
Load address: A709
Exec address: 0000
File contents
    10 .
  8224        COPY4🭴SCNCLRSCNCLRSCNCLRSCNCLRSCNCLRSCNCLRSCNCLRSCNCLRSCNCLRSCNCLRSCNCLRSCNCLRSCNCLRSCNCLRSCNCLRSCNCLRSCNCLRSCNCLRSCNCLRSCNCLRSCNCLRSCNCLRSCNCLRSCNCLRSCNCLRPRINT#(UNTILUNTILRENUMBERLEFT$SCNCLRSCNCLRSCNCLRSCNCLRSCNCLRRENUMBERUSING8SCNCLRSCNCLRSCNCLRSCNCLRSCNCLRSCNCLRSCNCLRSCNCLRSCNCLRSCNCLRSCNCLRSCNCLRSCNCLRSCNCLRSCNCLRSCNCLRSCNCLRSCNCLRSCNCLRSCNCLRSCNCLRSCNCLRSCNCLRSCNCLRSCNCLRSCNCLRSCNCLRSCNCLRRENUMBERRENUMBERSCNCLRSCNCLRSCNCLRSCNCLRSCNCLRSCNCLR
?ILLEGAL NEXT LINE ADDRESS

��
	��W��h��K��$�h���������������kl��˴8K����������.BYTE          _3S            .BYTE$         _             �4h�������������������������(���������8�����������������������������������������'��'�.��*ROUTINE, HEHEHE        IS YOUR FRIENDLY SCROLL ... HELLO THERE, THIS 0�---------------------------------------�TO READ THE WHOLE MEMORY !�AT THE END OF THE TEXT, OR IT WILL TRY��O MAKE IT WRAP, ALWAYS PUT .BYTE $00�THE TEXT !!!��HIS IS WHAT YOU'LL WANT TO PLAY WITH !�---------------------------------------`�0@*�D8�0@*�POINTER�E8�RESET THE TEXT0�---------------------------------------�SUBROUTINE`��ETURN FROM THIS�PART OF TEXT�READ THE SAME�0@*�DOESN'T TRY TO�%@*�THAT THE ROUTINE�0@*��HIS MAKES SURE�THE TOP ROW�THE FAR RIGHT OF�)'�... �ND PUT IT ON�BITS ...�OF ANY UNWANTED)(?��THERWISE, GET RID�(SEE ������,BELOW)�WRAP THE TEXT !�8�IF IT'S $00 THEN0�8��ET THE NEW LETTER�8�('�ONE SPACE�)�TOP ROW LEFT BY0�)�THE TEXT ON THE�*��HIS WILL MOVE ALL�AND $07�8�VALUE IS BETWEEN $00)(��O MAKE SURE THAT THE�TO THE MAIN ROUTINE`�IF NOT, THEN RETURN�THEN UPDATE SCREEN�%@*��F IT GOES UNDER $00�8��UT IT BACK INTO ���(��UBTRACT 3 FROM IT8�8��ET THE VALUE OF ��0�---------------------------------------�THE SCROLL ROUTINE��HIS HANDLES THE MOVING AND UPDATING OF�---------------------------------------0*�---------------------------------------��� WILL HOLD THE $�016 VALUE !�---------------------------------------�NORMAL ��� ROUTINEL)1��ONTINUE WITH THE�)ДINTERRUPT�*��INISH OUR LITTLE�)ДSCREEN TO NORMAL�(�SET THE � OF THE�%A*�THERE'S NO FLICKERSʔSMOOTH IT OUT SO�(
��ND THIS DELAY WILL�LINE ON THE SCREEN)�%A*�$3A (THE SECOND�)ДWAIT FOR SCAN LINE�(:�THIS ROUTINE WILL�THE SCREEN�)Д... AND PUT IT ON�VALUE ...�8��ET THE �-SCROLL�SUBROUTINE 8�GO TO THE �����̍)ДSCAN LINE $00�(��TART INTERRUPT ON0�---------------------------------------`�RETURN TO USERX��NABLE INTERRUPT�THE TEXT POINTER 8��ET THE START OF�)Г�������ũ(��ET THE LETTERS TO�)�D8�USE�)�PROGRAM WE WANT TO�E8��OINT THE ��� AT THE�)Щ(�)
܍)
ܩ(�)�ʎ)Т*��ET THE INTERRUPTS )D��LEAR SCREENx��ISABLE INTERRUPT�AT $1000 (OR 4096))��TART THE PROGRAM�---------------------------------------��              SYS 4096���O USE FROM BASIC, TYPE:�---------------------------------------�       � SIMPLE SCROLLER ROUTINE !�---------------------------------------�TURBO(#((��������������������(����
������������( ((((���������֔������	����
�(�����((
&'(`GNEEP@%��q�Q\32322<0��w�UU��yUU�`Qh쌌���wUUS@��'5@�D�D`����280IR�SCROL�SCROL�SCROL�SCROL�SCROL�VA�V�RN�NN������� � �0�L@�W_^^~����T
JHP�13�!����u�p���
��<��?���
..J@V@V@@@A@I.@@.@w.@.H..k£.@@@@.$.H..W.W.W.W.W.W.W.W.W.W.W.W......KL......8Vk..........F.byte          C.3s            F.byte$         B.T             .4H..........................(...........8....................................@...@.@...@X'.A.'...@.E@C*@BWroutine, hehehe        BWis your friendly scrollBW ... hello there, this 0D.---------------------------------------.to read the whole memory !.at the end of the text, or it will try..o make it wrap, always put .byte $00.the text !!!..his is what you'll want to play with !.---------------------------------------..0C@*B.d8D.0C@*A.pointer.e8D.reset the text0E.---------------------------------------.subroutine...eturn from this.part of text.read the same.0C@*B.doesn't try to.%@*E.that the routine.0C@*A..his makes sure.the top row.the far right of.)'D.... .nd put it on.bits ....of any unwanted)(?..therwise, get rid.(see ......,below).wrap the text !.8E.if it's $00 then0C.8D..et the new letter.8B.('..one space.)@D.top row left by0B.)AD.the text on the.*@..his will move all.and $07.8F.value is between $00)(G..o make sure that the.to the main routine..if not, then return.then update screen.%@*C..f it goes under $00.8F..ut it back into ....(C..ubtract 3 from it8.8F..et the value of ...0A.---------------------------------------.the scroll routine..his handles the moving and updating of.---------------------------------------0FC*@.---------------------------------------.... will hold the $.016 value !.---------------------------------------.normal ... routinel)1...ontinue with the.)Y..interrupt.*A..inish our little.)V..screen to normal.(H.set the . of the.%a*A.there's no flickers..smooth it out so.(J..nd this delay will.line on the screen).%a*C.$3a (the second.)R..wait for scan line.(:.this routine will.the screen.)V..... and put it on.value ....8F..et the .-scroll.subroutine 8A.go to the .......)R..scan line $00.(@..tart interrupt on0@.---------------------------------------..return to userx..nable interrupt.the text pointer 8E..et the start of.)X............(U..et the letters to.)UC.d8@.use.)TC.program we want to.e8@..oint the ... at the.)Q..([.)M..)M..(..)N...)Z..*A..et the interrupts )d...lear screenX..isable interrupt.at $1000 (or 4096)F)@P..tart the program.---------------------------------------..              sys 4096...o use from basic, type:.---------------------------------------.       . simple scroller routine !.---------------------------------------.turbo(#(YAWA(@VS@.@.@.........@....@..@.Q@.@.@(@B..@.K@.J.K@...T@...@..@..@.S@( (@E@((S(@B.@..@.@.S@.T@..H@......@.@.PS@.PI@.QL@...NM@.K@(@B.....@((M&'[(@BYYYC@.gneep@%..Q.qEA£32322<0O..W.u@@u@..Yu@@uA...qAAH....LOLC...Wu@@uTTTSSsS@..'5U@@.PDd.dTD.....280Oir.scrol.scrol.scrol.scrol.scrol.va.v.rn.nn.@@@@.@@@@@@@.@@@@@@@.@@@@@@@.@@@@@@@C@@@@@@@.@@@@@@@.@@@@@@@@@@@BH .BH .@@@@0@@@@@@@.l@@@@@@.@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@A@PWw....@@@.....@@@@ABBt@@ABJjhK@@Pp.13.@@!....UAD.P..@.@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JO@@@@..<.@AD@@@CK@...?...@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
00000000  8e 84 0a 00 16 00 16 00  00 00 01 00 09 ff 00 00  |................|
00000010  9a 00 57 87 00 e8 68 89  ec 4b 1c fb 00 00 00 00  |..W...h..K......|
00000020  e8 24 b4 68 e1 b4 17 80  17 80 17 80 17 80 17 80  |.$.h............|
00000030  17 80 17 80 17 80 17 80  17 80 17 80 17 80 e8 fc  |................|
00000040  c1 f1 fc 6b 6c 1f e8 e8  bf cb b4 38 16 4b fc e8  |...kl......8.K..|
00000050  e8 e8 e8 e8 e8 e8 e8 e8  06 2e 42 59 54 45 20 20  |..........BYTE  |
00000060  20 20 20 20 20 20 20 20  03 5f 33 53 20 20 20 20  |        ._3S    |
00000070  20 20 20 20 20 20 20 20  06 2e 42 59 54 45 24 20  |        ..BYTE$ |
00000080  20 20 20 20 20 20 20 20  02 5f 14 20 20 20 20 20  |        ._.     |
00000090  20 20 20 20 20 20 20 20  f4 34 68 e8 e8 e8 e8 e8  |        .4h.....|
000000a0  e8 e8 e8 e8 e8 e8 e8 e8  e8 e8 e8 e8 e8 e8 e8 e8  |................|
000000b0  e8 e8 e8 e8 98 28 fc fc  f8 c8 e8 e8 e8 e8 e8 f8  |.....(..........|
000000c0  fb 38 e8 e8 e8 e8 e8 e8  e8 e8 e8 e8 e8 e8 e8 e8  |.8..............|
000000d0  e8 e8 e8 e8 e8 e8 e8 e8  e8 e8 e8 e8 e8 e8 f8 f8  |................|
000000e0  e8 e8 e8 e8 e8 e8 00 ff  a2 ff 00 ff 00 fe a7 ff  |................|
000000f0  00 18 27 ff 01 ad 27 ff  2e df 00 fe 05 00 03 2a  |..'...'........*|
00000100  00 02 17 52 4f 55 54 49  4e 45 2c 20 48 45 48 45  |...ROUTINE, HEHE|
00000110  48 45 20 20 20 20 20 20  20 20 02 17 49 53 20 59  |HE        ..IS Y|
00000120  4f 55 52 20 46 52 49 45  4e 44 4c 59 20 53 43 52  |OUR FRIENDLY SCR|
00000130  4f 4c 4c 02 17 20 2e 2e  2e 20 48 45 4c 4c 4f 20  |OLL.. ... HELLO |
00000140  54 48 45 52 45 2c 20 54  48 49 53 20 30 04 80 2d  |THERE, THIS 0..-|
00000150  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000170  2d 2d 2d 2d 2d 2d 80 54  4f 20 52 45 41 44 20 54  |------.TO READ T|
00000180  48 45 20 57 48 4f 4c 45  20 4d 45 4d 4f 52 59 20  |HE WHOLE MEMORY |
00000190  21 80 41 54 20 54 48 45  20 45 4e 44 20 4f 46 20  |!.AT THE END OF |
000001a0  54 48 45 20 54 45 58 54  2c 20 4f 52 20 49 54 20  |THE TEXT, OR IT |
000001b0  57 49 4c 4c 20 54 52 59  80 d4 4f 20 4d 41 4b 45  |WILL TRY..O MAKE|
000001c0  20 49 54 20 57 52 41 50  2c 20 41 4c 57 41 59 53  | IT WRAP, ALWAYS|
000001d0  20 50 55 54 20 2e 42 59  54 45 20 24 30 30 80 54  | PUT .BYTE $00.T|
000001e0  48 45 20 54 45 58 54 20  21 21 21 80 d4 48 49 53  |HE TEXT !!!..HIS|
000001f0  20 49 53 20 57 48 41 54  20 59 4f 55 27 4c 4c 20  | IS WHAT YOU'LL |
00000200  57 41 4e 54 20 54 4f 20  50 4c 41 59 20 57 49 54  |WANT TO PLAY WIT|
00000210  48 20 21 80 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |H !.------------|
00000220  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000230  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 60 8d 30 03 40  |-----------`.0.@|
00000240  2a 02 a9 44 38 04 8d 30  03 40 2a 01 96 50 4f 49  |*..D8..0.@*..POI|
00000250  4e 54 45 52 a9 45 38 04  96 52 45 53 45 54 20 54  |NTER.E8..RESET T|
00000260  48 45 20 54 45 58 54 30  05 80 2d 2d 2d 2d 2d 2d  |HE TEXT0..------|
00000270  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000290  2d 96 53 55 42 52 4f 55  54 49 4e 45 60 96 d2 45  |-.SUBROUTINE`..E|
000002a0  54 55 52 4e 20 46 52 4f  4d 20 54 48 49 53 96 50  |TURN FROM THIS.P|
000002b0  41 52 54 20 4f 46 20 54  45 58 54 96 52 45 41 44  |ART OF TEXT.READ|
000002c0  20 54 48 45 20 53 41 4d  45 ee 30 03 40 2a 02 96  | THE SAME.0.@*..|
000002d0  44 4f 45 53 4e 27 54 20  54 52 59 20 54 4f d0 25  |DOESN'T TRY TO.%|
000002e0  40 2a 05 96 54 48 41 54  20 54 48 45 20 52 4f 55  |@*..THAT THE ROU|
000002f0  54 49 4e 45 ee 30 03 40  2a 01 96 d4 48 49 53 20  |TINE.0.@*...HIS |
00000300  4d 41 4b 45 53 20 53 55  52 45 95 54 48 45 20 54  |MAKES SURE.THE T|
00000310  4f 50 20 52 4f 57 95 54  48 45 20 46 41 52 20 52  |OP ROW.THE FAR R|
00000320  49 47 48 54 20 4f 46 8d  29 27 04 95 2e 2e 2e 20  |IGHT OF.)'..... |
00000330  c1 4e 44 20 50 55 54 20  49 54 20 4f 4e 95 42 49  |.ND PUT IT ON.BI|
00000340  54 53 20 2e 2e 2e 95 4f  46 20 41 4e 59 20 55 4e  |TS ....OF ANY UN|
00000350  57 41 4e 54 45 44 29 28  3f 95 cf 54 48 45 52 57  |WANTED)(?..THERW|
00000360  49 53 45 2c 20 47 45 54  20 52 49 44 95 28 53 45  |ISE, GET RID.(SE|
00000370  45 20 d3 c3 d2 cf cc cf  2c 42 45 4c 4f 57 29 95  |E ......,BELOW).|
00000380  57 52 41 50 20 54 48 45  20 54 45 58 54 20 21 f0  |WRAP THE TEXT !.|
00000390  38 05 95 49 46 20 49 54  27 53 20 24 30 30 20 54  |8..IF IT'S $00 T|
000003a0  48 45 4e 30 03 ad 38 04  95 c7 45 54 20 54 48 45  |HEN0..8...ET THE|
000003b0  20 4e 45 57 20 4c 45 54  54 45 52 d0 38 02 e0 28  | NEW LETTER.8..(|
000003c0  27 e8 95 4f 4e 45 20 53  50 41 43 45 9d 29 00 04  |'..ONE SPACE.)..|
000003d0  95 54 4f 50 20 52 4f 57  20 4c 45 46 54 20 42 59  |.TOP ROW LEFT BY|
000003e0  30 02 bd 29 01 04 95 54  48 45 20 54 45 58 54 20  |0..)...THE TEXT |
000003f0  4f 4e 20 54 48 45 a2 2a  00 95 d4 48 49 53 20 57  |ON THE.*...HIS W|
00000400  49 4c 4c 20 4d 4f 56 45  20 41 4c 4c 92 41 4e 44  |ILL MOVE ALL.AND|
00000410  20 24 30 37 8d 38 06 92  56 41 4c 55 45 20 49 53  | $07.8..VALUE IS|
00000420  20 42 45 54 57 45 45 4e  20 24 30 30 29 28 07 92  | BETWEEN $00)(..|
00000430  d4 4f 20 4d 41 4b 45 20  53 55 52 45 20 54 48 41  |.O MAKE SURE THA|
00000440  54 20 54 48 45 92 54 4f  20 54 48 45 20 4d 41 49  |T THE.TO THE MAI|
00000450  4e 20 52 4f 55 54 49 4e  45 60 92 49 46 20 4e 4f  |N ROUTINE`.IF NO|
00000460  54 2c 20 54 48 45 4e 20  52 45 54 55 52 4e 92 54  |T, THEN RETURN.T|
00000470  48 45 4e 20 55 50 44 41  54 45 20 53 43 52 45 45  |HEN UPDATE SCREE|
00000480  4e 90 25 40 2a 03 92 c9  46 20 49 54 20 47 4f 45  |N.%@*...F IT GOE|
00000490  53 20 55 4e 44 45 52 20  24 30 30 8d 38 06 92 d0  |S UNDER $00.8...|
000004a0  55 54 20 49 54 20 42 41  43 4b 20 49 4e 54 4f 20  |UT IT BACK INTO |
000004b0  d6 c1 cc e9 28 03 92 d3  55 42 54 52 41 43 54 20  |....(...UBTRACT |
000004c0  33 20 46 52 4f 4d 20 49  54 38 ad 38 06 92 c7 45  |3 FROM IT8.8...E|
000004d0  54 20 54 48 45 20 56 41  4c 55 45 20 4f 46 20 d6  |T THE VALUE OF .|
000004e0  c1 cc 30 01 80 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |..0..-----------|
000004f0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000500  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 80 54 48 45  |------------.THE|
00000510  20 53 43 52 4f 4c 4c 20  52 4f 55 54 49 4e 45 80  | SCROLL ROUTINE.|
00000520  d4 48 49 53 20 48 41 4e  44 4c 45 53 20 54 48 45  |.HIS HANDLES THE|
00000530  20 4d 4f 56 49 4e 47 20  41 4e 44 20 55 50 44 41  | MOVING AND UPDA|
00000540  54 49 4e 47 20 4f 46 80  2d 2d 2d 2d 2d 2d 2d 2d  |TING OF.--------|
00000550  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000560  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 30  |---------------0|
00000570  06 03 2a 00 80 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |..*..-----------|
00000580  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000590  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 80 d6 c1 cc  |------------....|
000005a0  20 57 49 4c 4c 20 48 4f  4c 44 20 54 48 45 20 24  | WILL HOLD THE $|
000005b0  c4 30 31 36 20 56 41 4c  55 45 20 21 80 2d 2d 2d  |.016 VALUE !.---|
000005c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000005e0  2d 2d 2d 2d 94 4e 4f 52  4d 41 4c 20 c9 d2 d1 20  |----.NORMAL ... |
000005f0  52 4f 55 54 49 4e 45 4c  29 31 ea 94 c3 4f 4e 54  |ROUTINEL)1...ONT|
00000600  49 4e 55 45 20 57 49 54  48 20 54 48 45 8d 29 19  |INUE WITH THE.).|
00000610  d0 94 49 4e 54 45 52 52  55 50 54 a9 2a 01 94 c6  |..INTERRUPT.*...|
00000620  49 4e 49 53 48 20 4f 55  52 20 4c 49 54 54 4c 45  |INISH OUR LITTLE|
00000630  8d 29 16 d0 94 53 43 52  45 45 4e 20 54 4f 20 4e  |.)...SCREEN TO N|
00000640  4f 52 4d 41 4c a9 28 08  94 53 45 54 20 54 48 45  |ORMAL.(..SET THE|
00000650  20 d8 20 4f 46 20 54 48  45 d0 25 41 2a 01 94 54  | . OF THE.%A*..T|
00000660  48 45 52 45 27 53 20 4e  4f 20 46 4c 49 43 4b 45  |HERE'S NO FLICKE|
00000670  52 53 ca 94 53 4d 4f 4f  54 48 20 49 54 20 4f 55  |RS..SMOOTH IT OU|
00000680  54 20 53 4f a2 28 0a 94  c1 4e 44 20 54 48 49 53  |T SO.(...ND THIS|
00000690  20 44 45 4c 41 59 20 57  49 4c 4c 94 4c 49 4e 45  | DELAY WILL.LINE|
000006a0  20 4f 4e 20 54 48 45 20  53 43 52 45 45 4e 29 d0  | ON THE SCREEN).|
000006b0  25 41 2a 03 94 24 33 41  20 28 54 48 45 20 53 45  |%A*..$3A (THE SE|
000006c0  43 4f 4e 44 cd 29 12 d0  94 57 41 49 54 20 46 4f  |COND.)...WAIT FO|
000006d0  52 20 53 43 41 4e 20 4c  49 4e 45 a9 28 3a 94 54  |R SCAN LINE.(:.T|
000006e0  48 49 53 20 52 4f 55 54  49 4e 45 20 57 49 4c 4c  |HIS ROUTINE WILL|
000006f0  94 54 48 45 20 53 43 52  45 45 4e 8d 29 16 d0 94  |.THE SCREEN.)...|
00000700  2e 2e 2e 20 41 4e 44 20  50 55 54 20 49 54 20 4f  |... AND PUT IT O|
00000710  4e 94 56 41 4c 55 45 20  2e 2e 2e ad 38 06 94 c7  |N.VALUE ....8...|
00000720  45 54 20 54 48 45 20 d8  2d 53 43 52 4f 4c 4c 94  |ET THE .-SCROLL.|
00000730  53 55 42 52 4f 55 54 49  4e 45 20 38 01 94 47 4f  |SUBROUTINE 8..GO|
00000740  20 54 4f 20 54 48 45 20  d3 c3 d2 cf cc cc 8d 29  | TO THE .......)|
00000750  12 d0 94 53 43 41 4e 20  4c 49 4e 45 20 24 30 30  |...SCAN LINE $00|
00000760  a9 28 00 94 d3 54 41 52  54 20 49 4e 54 45 52 52  |.(...TART INTERR|
00000770  55 50 54 20 4f 4e 30 00  80 2d 2d 2d 2d 2d 2d 2d  |UPT ON0..-------|
00000780  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000007a0  60 93 52 45 54 55 52 4e  20 54 4f 20 55 53 45 52  |`.RETURN TO USER|
000007b0  58 93 c5 4e 41 42 4c 45  20 49 4e 54 45 52 52 55  |X..NABLE INTERRU|
000007c0  50 54 94 54 48 45 20 54  45 58 54 20 50 4f 49 4e  |PT.THE TEXT POIN|
000007d0  54 45 52 20 38 05 94 d3  45 54 20 54 48 45 20 53  |TER 8...ET THE S|
000007e0  54 41 52 54 20 4f 46 8d  29 18 d0 93 d5 d0 d0 c5  |TART OF.).......|
000007f0  d2 c3 c1 d3 c5 a9 28 15  93 d3 45 54 20 54 48 45  |......(...ET THE|
00000800  20 4c 45 54 54 45 52 53  20 54 4f 8d 29 15 03 a9  | LETTERS TO.)...|
00000810  44 38 00 93 55 53 45 8d  29 14 03 93 50 52 4f 47  |D8..USE.)...PROG|
00000820  52 41 4d 20 57 45 20 57  41 4e 54 20 54 4f a9 45  |RAM WE WANT TO.E|
00000830  38 00 93 d0 4f 49 4e 54  20 54 48 45 20 c9 d2 d1  |8...OINT THE ...|
00000840  20 41 54 20 54 48 45 8d  29 11 d0 a9 28 1b ad 29  | AT THE.)...(..)|
00000850  0d dc 8d 29 0d dc a9 28  7f 8e 29 0e dc ca 8e 29  |...)...(..)....)|
00000860  1a d0 a2 2a 01 93 d3 45  54 20 54 48 45 20 49 4e  |...*...ET THE IN|
00000870  54 45 52 52 55 50 54 53  20 29 44 e5 93 c3 4c 45  |TERRUPTS )D...LE|
00000880  41 52 20 53 43 52 45 45  4e 78 93 c4 49 53 41 42  |AR SCREENx..ISAB|
00000890  4c 45 20 49 4e 54 45 52  52 55 50 54 93 41 54 20  |LE INTERRUPT.AT |
000008a0  24 31 30 30 30 20 28 4f  52 20 34 30 39 36 29 06  |$1000 (OR 4096).|
000008b0  29 00 10 93 d3 54 41 52  54 20 54 48 45 20 50 52  |)....TART THE PR|
000008c0  4f 47 52 41 4d 80 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |OGRAM.----------|
000008d0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000008e0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 80 80 20  |-------------.. |
000008f0  20 20 20 20 20 20 20 20  20 20 20 20 20 53 59 53  |             SYS|
00000900  20 34 30 39 36 80 80 d4  4f 20 55 53 45 20 46 52  | 4096...O USE FR|
00000910  4f 4d 20 42 41 53 49 43  2c 20 54 59 50 45 3a 80  |OM BASIC, TYPE:.|
00000920  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000940  2d 2d 2d 2d 2d 2d 2d 80  20 20 20 20 20 20 20 c1  |-------.       .|
00000950  20 53 49 4d 50 4c 45 20  53 43 52 4f 4c 4c 45 52  | SIMPLE SCROLLER|
00000960  20 52 4f 55 54 49 4e 45  20 21 80 2d 2d 2d 2d 2d  | ROUTINE !.-----|
00000970  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000990  2d 2d a9 54 55 52 42 4f  28 23 28 19 01 17 01 28  |--.TURBO(#(....(|
000009a0  00 16 13 00 93 00 91 00  96 84 81 84 83 84 84 83  |................|
000009b0  84 00 99 97 88 84 00 96  8e 00 94 11 00 92 00 90  |................|
000009c0  00 28 00 02 96 92 00 94  0b 00 94 0a 96 0b 00 95  |.(..............|
000009d0  97 95 14 00 97 92 99 00  94 95 00 95 8e 00 96 13  |................|
000009e0  00 28 20 28 00 05 00 28  28 13 28 00 02 98 00 81  |.( (...((.(.....|
000009f0  96 00 98 00 9a 13 00 95  14 00 99 98 08 00 96 d6  |................|
00000a00  94 8b 83 83 00 d8 00 94  10 13 00 96 10 09 00 96  |................|
00000a10  11 0c 00 96 96 95 0e 0d  00 92 0b 00 28 00 02 93  |............(...|
00000a20  8e 84 86 81 00 28 28 0d  26 27 1b 28 00 02 19 19  |.....((.&'.(....|
00000a30  19 03 00 60 47 4e 45 45  50 40 25 91 e1 71 d1 51  |...`GNEEP@%..q.Q|
00000a40  05 01 5c 33 32 33 32 32  3c 30 0f b8 de 77 dd 55  |..\32322<0...w.U|
00000a50  00 00 55 00 9d e7 79 55  00 00 55 01 ec 98 60 51  |..U...yU..U...`Q|
00000a60  01 01 68 ec 8c 8c 8c 0c  0f 0c 03 e7 bf dd 77 55  |..h...........wU|
00000a70  00 00 55 14 14 14 13 13  53 13 40 fb 9d 27 35 15  |..U.....S.@..'5.|
00000a80  40 00 d5 10 04 44 84 44  14 04 60 c0 c5 cf c2 32  |@....D.D..`....2|
00000a90  38 30 0f 49 52 d1 53 43  52 4f 4c cc 53 43 52 4f  |80.IR.SCROL.SCRO|
00000aa0  4c cd 53 43 52 4f 4c ce  53 43 52 4f 4c d0 53 43  |L.SCROL.SCROL.SC|
00000ab0  52 4f 4c cf 56 41 cc 56  c1 52 4e c5 4e 4e c5 00  |ROL.VA.V.RN.NN..|
00000ac0  00 00 00 f0 00 00 00 00  00 00 00 f0 00 00 00 00  |................|
00000ad0  00 00 00 c3 00 00 00 00  00 00 00 cc 00 00 00 00  |................|
00000ae0  00 00 00 03 00 00 00 00  00 00 00 ff 00 00 00 00  |................|
00000af0  00 00 00 c0 00 00 00 00  00 00 00 00 00 00 00 02  |................|
00000b00  08 20 80 02 08 20 80 00  00 00 00 30 00 00 00 00  |. ... .....0....|
00000b10  00 00 00 90 4c 00 40 00  00 00 00 80 00 00 00 00  |....L.@.........|
00000b20  00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
*
00000c00  00 00 01 00 10 17 57 5f  5e 5e 7e 00 00 00 80 a0  |......W_^^~.....|
00000c10  a8 eb fb 00 00 00 00 01  02 02 54 00 00 01 02 0a  |..........T.....|
00000c20  4a 48 0b 00 00 10 50 f1  31 33 d3 00 00 21 b1 b1  |JH....P.13...!..|
00000c30  f0 dc 75 01 04 f0 70 a0  80 00 80 00 00 00 00 00  |..u...p.........|
00000c40  00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
00000c50  00 00 00 00 00 00 00 00  00 0a 0f 00 00 00 00 a0  |................|
00000c60  f8 3c 8f 00 01 04 00 00  00 03 0b 00 f0 fc f7 3f  |.<.............?|
00000c70  f7 ff ec 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
00000c80  00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
00000c90  00 00 00 00                                       |....|
00000c94