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�U U ��yU U�`Qh쌌���wU US@��'5@ �D�D`����280IR�SCROL�SCROL�SCROL�SCROL�SCROL�VA�V�RN�NN� � � � � � � � � 0 �L @ � W_^^~ ���� T JH P�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