Home » Personal collection » Commodore disks » disk31a_turbo_assembler.d64 » s.interrupt
s.interrupt
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.interrupt |
Read OK: | ✔ |
File size: | 0868 bytes |
Load address: | 9C09 |
Exec address: | 0000 |
File contents
3 . 8224 ?FILE TRUNCATED ERROR
� � b K� g� ����������,F .BYTE _3S .BYTE$ _ L)1��INITO�)�D8�)�TO THE START�E8�... �O LETS GO BACK�)ДTHIS INTERRUPT ...�(��EVE FINISHED DOING�) ДTO BLACK�( ��HANGE THE BORDER�%A*ʢ( ��ELAY, DELAY, DELAY�) ДBORDER TO WHITE�(��GAIN, CHANGE THE�%A*�TIMERS.ʔOF THEM DELAY�(����! ANOTHER ONE�)ДLINE $FB�(���TART INTERRUPT ON0�---------------------------------------�INTERRUPT�REST OF THE NORMALL)1��O BACK AND DO THE�)�D8�ROUTINE IS�)�OUR NEXT INTERRUPT�E8��ELL COMPUTER WHERE�THE INTERRUPT�)ДTHIS IS THE END OF�(��ELL COMPUTER THAT�) ДBLACK�( ��HANGE BORDER TO�%A*ʢ( ��NOTHER TIMER ...�) ДWHITE�(��HANGE BORDER TO�%A*�BARʔSMOOTH THE COLOUR-�(�� SMALL PAUSE TO�LINE $30�)Д�TART INTERRUPT ON�(00�---------------------------------------`��ETURN TO BASIC��NTERRUPTX��NABLE THE�)Щ(�)�ROUTINE�D8�LOOK FOR THE ��э)�COMPUTER WHERE TO�E8��HIS WILL TELL THE�) ܍) ܩ(�)ܩ( �ROUTINE�)ДWORK WITH THIS ��ѩ*��ET THE TIMERS TO��NTERRUPTSx��ISABLE THE�(OR 4096!)) ��SSEMBLE AT $1000�---------------------------------------�� ��� 4096���O RUN FROM BASIC, TYPE:�CHANGE'S IT DURING THE QUEING PROCESS.��HIS FILE SETS UP AN ��� AND ACTIVELY�---------------------------------------bTURBO(&'( � ������� ���� �� � � ( �� ��� �� ��� �� �� ���� � ( �� ��� �� ��� �� �� ���� �`:���ZJ�9���g��1Q�� 9\WD�D?�"A1q��J::Q�쇹�A��4QQ�1��w�!0܅ ������\|!b�1�SEO�IR�IRQ���9�-A�� ~�)�>�) �%H �0� !bH��xC!��G� �3Z�B?�6�.��(��RJ���H-a���H� o.1��1�L����;Pu� �̮�"�.a��� _� ��*;_�דa��a�F>�.f6���>��?f�1�q�a����x� � �Tk�@%4?H(?q !q��A���1�\�^��;_� �X����.��aa�1�a$�Q��Vq�<A��Xi�<L�\lQ;�a;ZZi���?�k9�(_��k���)�Y��[���Q�Y Q1�e 8Y� ��i�89�p��I��q9K?qP�+�������;D!�$u[[�OK�[�1!L��<�LQ�|�)\�/c������A�,d��to� [�:<��&UT�H$ 9� ������*+ȸ���婙I<Yj[�w�Xn8�y�l%�
.@C@V@V@@@£@I.@@B@k.@@@G.@@@@@@@@@@@@@....................,.f.@@@@@@@@@@@@@@@@@@@@@@@@@@F.byte C.3s F.byte$ B.T @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@l)1...inito.)UC.d8A.)TC.to the start.e8A.... .o lets go back.)Y..this interrupt ....(A..eve finished doing.) ..to black.(@..hange the border.%a*A..(J..elay, delay, delay.) ..border to white.(A..gain, change the.%a*A.timers...of them delay.(D....! another one.)R..line $fb.(...tart interrupt on0B.---------------------------------------.interrupt.rest of the normall)1...o back and do the.)UC.d8B.routine is.)TC.our next interrupt.e8B..ell computer where.the interrupt.)Y..this is the end of.(A..ell computer that.) ..black.(@..hange border to.%a*A..(J..nother timer ....) ..white.(A..hange border to.%a*A.bar..smooth the colour-.(D.. small pause to.line $30.)R...tart interrupt on.(00A.---------------------------------------...eturn to basic..nterruptx..nable the.)Q..([.)UC.routine.d8A.look for the ....)TC.computer where to.e8A..his will tell the.)M..)M..(..)N..(@.routine.)Z..work with this ....*A..et the timers to..nterruptsX..isable the.(or 4096!)F)@P..ssemble at $1000.---------------------------------------.. ... 4096...o run from basic, type:.change's it during the queing process...his file sets up an ... and actively.---------------------------------------Bturbo(&'YAXA(@VK@.K@.......@....@..@.J@.@(@B..I@...@..@...@..@..N@....@.SJ@(@B..@...@..@...@..@..@....@..N:...zj.9...G..1qC..DI9£wd.Ad?N.."Na1QQA..j::q.....a.O...4qqN..N1..WC.!0Q.. .......£.!VAABT.F1.seo.ir.irq....9.-LaX..@..G)T.>..)J.F%hBM.0D.@.!H.BhW....XUc!S..[g.QI.3zH.bA?.RA6....A(.L.rj.....h-DA...h.@O.1.QT.1.Wl.S....;pU.@.P...F"..DA..UHH. .T.FAEJF.L.*;AWO.....CA..A.fVA>...OF6..O.>..?F.1.QA.VA....X..M. ..tK.@%4K?h(?QI.O!Q....a.KK.A.1FB.£Z.A.....;..J.Zx.......AA.1.NA$.qH..vQ.<a..xI.<lL.£Lq;.A;zYzI...?.K9.(...K....)L...y..[...q.yIq1.EYAI8y.I..I.8O.9.P..i...Q9kK?[Qp.+.......;Qd!.$U[[.ok.[.K1!l..G<.lKq...[A.)WP£.TLDV/C...L.V..DaQ.,DD.Q.TO.@@..[.:<..&ut.Lh$@E9.RJ......*+..VD.......i<yJ[Z[Z..W.xNS8..Y..L%.
00000000 8e 00 03 00 16 00 16 00 00 00 1c 00 09 ff 00 00 |................| 00000010 62 00 4b 8b 00 00 00 67 ec 00 00 00 00 00 00 00 |b.K....g........| 00000020 00 00 00 00 00 00 de 7f de 7f de 7f de 7f de 7f |................| 00000030 de 7f de 7f de 7f de 7f de 7f 2c 7f 46 7f 00 00 |..........,.F...| 00000040 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00000050 00 00 00 00 00 00 00 00 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 00 00 00 00 00 00 00 00 | ........| 000000a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| * 000000f0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 4c 29 |..............L)| 00000100 31 ea 94 c6 49 4e 49 54 4f 8d 29 15 03 a9 44 38 |1...INITO.)...D8| 00000110 01 8d 29 14 03 94 54 4f 20 54 48 45 20 53 54 41 |..)...TO THE STA| 00000120 52 54 a9 45 38 01 94 2e 2e 2e 20 d3 4f 20 4c 45 |RT.E8..... .O LE| 00000130 54 53 20 47 4f 20 42 41 43 4b 8d 29 19 d0 94 54 |TS GO BACK.)...T| 00000140 48 49 53 20 49 4e 54 45 52 52 55 50 54 20 2e 2e |HIS INTERRUPT ..| 00000150 2e a9 28 01 94 d7 45 56 45 20 46 49 4e 49 53 48 |..(...EVE FINISH| 00000160 45 44 20 44 4f 49 4e 47 8d 29 20 d0 94 54 4f 20 |ED DOING.) ..TO | 00000170 42 4c 41 43 4b a9 28 00 94 c3 48 41 4e 47 45 20 |BLACK.(...HANGE | 00000180 54 48 45 20 42 4f 52 44 45 52 d0 25 41 2a 01 ca |THE BORDER.%A*..| 00000190 a2 28 0a 94 c4 45 4c 41 59 2c 20 44 45 4c 41 59 |.(...ELAY, DELAY| 000001a0 2c 20 44 45 4c 41 59 8d 29 20 d0 94 42 4f 52 44 |, DELAY.) ..BORD| 000001b0 45 52 20 54 4f 20 57 48 49 54 45 a9 28 01 94 c1 |ER TO WHITE.(...| 000001c0 47 41 49 4e 2c 20 43 48 41 4e 47 45 20 54 48 45 |GAIN, CHANGE THE| 000001d0 d0 25 41 2a 01 94 54 49 4d 45 52 53 2e ca 94 4f |.%A*..TIMERS...O| 000001e0 46 20 54 48 45 4d 20 44 45 4c 41 59 a2 28 04 94 |F THEM DELAY.(..| 000001f0 d9 c5 d0 21 20 41 4e 4f 54 48 45 52 20 4f 4e 45 |...! ANOTHER ONE| 00000200 8d 29 12 d0 94 4c 49 4e 45 20 24 46 42 a9 28 fb |.)...LINE $FB.(.| 00000210 94 d3 54 41 52 54 20 49 4e 54 45 52 52 55 50 54 |..TART INTERRUPT| 00000220 20 4f 4e 30 02 80 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d | ON0..----------| 00000230 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------| 00000240 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 94 49 4e |-------------.IN| 00000250 54 45 52 52 55 50 54 94 52 45 53 54 20 4f 46 20 |TERRUPT.REST OF | 00000260 54 48 45 20 4e 4f 52 4d 41 4c 4c 29 31 ea 94 c7 |THE NORMALL)1...| 00000270 4f 20 42 41 43 4b 20 41 4e 44 20 44 4f 20 54 48 |O BACK AND DO TH| 00000280 45 8d 29 15 03 a9 44 38 02 94 52 4f 55 54 49 4e |E.)...D8..ROUTIN| 00000290 45 20 49 53 8d 29 14 03 94 4f 55 52 20 4e 45 58 |E IS.)...OUR NEX| 000002a0 54 20 49 4e 54 45 52 52 55 50 54 a9 45 38 02 94 |T INTERRUPT.E8..| 000002b0 d4 45 4c 4c 20 43 4f 4d 50 55 54 45 52 20 57 48 |.ELL COMPUTER WH| 000002c0 45 52 45 94 54 48 45 20 49 4e 54 45 52 52 55 50 |ERE.THE INTERRUP| 000002d0 54 8d 29 19 d0 94 54 48 49 53 20 49 53 20 54 48 |T.)...THIS IS TH| 000002e0 45 20 45 4e 44 20 4f 46 a9 28 01 94 d4 45 4c 4c |E END OF.(...ELL| 000002f0 20 43 4f 4d 50 55 54 45 52 20 54 48 41 54 8d 29 | COMPUTER THAT.)| 00000300 20 d0 94 42 4c 41 43 4b a9 28 00 94 c3 48 41 4e | ..BLACK.(...HAN| 00000310 47 45 20 42 4f 52 44 45 52 20 54 4f d0 25 41 2a |GE BORDER TO.%A*| 00000320 01 ca a2 28 0a 94 c1 4e 4f 54 48 45 52 20 54 49 |...(...NOTHER TI| 00000330 4d 45 52 20 2e 2e 2e 8d 29 20 d0 94 57 48 49 54 |MER ....) ..WHIT| 00000340 45 a9 28 01 94 c3 48 41 4e 47 45 20 42 4f 52 44 |E.(...HANGE BORD| 00000350 45 52 20 54 4f d0 25 41 2a 01 94 42 41 52 ca 94 |ER TO.%A*..BAR..| 00000360 53 4d 4f 4f 54 48 20 54 48 45 20 43 4f 4c 4f 55 |SMOOTH THE COLOU| 00000370 52 2d a2 28 04 94 c1 20 53 4d 41 4c 4c 20 50 41 |R-.(... SMALL PA| 00000380 55 53 45 20 54 4f 94 4c 49 4e 45 20 24 33 30 8d |USE TO.LINE $30.| 00000390 29 12 d0 94 d3 54 41 52 54 20 49 4e 54 45 52 52 |)....TART INTERR| 000003a0 55 50 54 20 4f 4e a9 28 30 30 01 80 2d 2d 2d 2d |UPT ON.(00..----| 000003b0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------| * 000003d0 2d 2d 2d 60 94 d2 45 54 55 52 4e 20 54 4f 20 42 |---`..ETURN TO B| 000003e0 41 53 49 43 94 c9 4e 54 45 52 52 55 50 54 58 94 |ASIC..NTERRUPTX.| 000003f0 c5 4e 41 42 4c 45 20 54 48 45 8d 29 11 d0 a9 28 |.NABLE THE.)...(| 00000400 1b 8d 29 15 03 94 52 4f 55 54 49 4e 45 a9 44 38 |..)...ROUTINE.D8| 00000410 01 94 4c 4f 4f 4b 20 46 4f 52 20 54 48 45 20 c9 |..LOOK FOR THE .| 00000420 d2 d1 8d 29 14 03 94 43 4f 4d 50 55 54 45 52 20 |...)...COMPUTER | 00000430 57 48 45 52 45 20 54 4f a9 45 38 01 94 d4 48 49 |WHERE TO.E8...HI| 00000440 53 20 57 49 4c 4c 20 54 45 4c 4c 20 54 48 45 ad |S WILL TELL THE.| 00000450 29 0d dc 8d 29 0d dc a9 28 7f 8d 29 0e dc a9 28 |)...)...(..)...(| 00000460 00 94 52 4f 55 54 49 4e 45 8d 29 1a d0 94 57 4f |..ROUTINE.)...WO| 00000470 52 4b 20 57 49 54 48 20 54 48 49 53 20 c9 d2 d1 |RK WITH THIS ...| 00000480 a9 2a 01 94 d3 45 54 20 54 48 45 20 54 49 4d 45 |.*...ET THE TIME| 00000490 52 53 20 54 4f 94 c9 4e 54 45 52 52 55 50 54 53 |RS TO..NTERRUPTS| 000004a0 78 94 c4 49 53 41 42 4c 45 20 54 48 45 94 28 4f |x..ISABLE THE.(O| 000004b0 52 20 34 30 39 36 21 29 06 29 00 10 94 c1 53 53 |R 4096!).)....SS| 000004c0 45 4d 42 4c 45 20 41 54 20 24 31 30 30 30 80 2d |EMBLE AT $1000.-| 000004d0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d |----------------| * 000004f0 2d 2d 2d 2d 2d 2d 80 80 20 20 20 20 20 20 20 20 |------.. | 00000500 20 20 20 20 20 20 20 d3 d9 d3 20 34 30 39 36 80 | ... 4096.| 00000510 80 d4 4f 20 52 55 4e 20 46 52 4f 4d 20 42 41 53 |..O RUN FROM BAS| 00000520 49 43 2c 20 54 59 50 45 3a 80 43 48 41 4e 47 45 |IC, TYPE:.CHANGE| 00000530 27 53 20 49 54 20 44 55 52 49 4e 47 20 54 48 45 |'S IT DURING THE| 00000540 20 51 55 45 49 4e 47 20 50 52 4f 43 45 53 53 2e | QUEING PROCESS.| 00000550 80 d4 48 49 53 20 46 49 4c 45 20 53 45 54 53 20 |..HIS FILE SETS | 00000560 55 50 20 41 4e 20 c9 d2 d1 20 41 4e 44 20 41 43 |UP AN ... AND AC| 00000570 54 49 56 45 4c 59 80 2d 2d 2d 2d 2d 2d 2d 2d 2d |TIVELY.---------| 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 2d 2d 62 54 |--------------bT| 000005a0 55 52 42 4f 28 26 27 19 01 18 01 28 00 16 0b 00 |URBO(&'....(....| 000005b0 8d 0b 00 95 97 8b 84 83 84 84 00 97 96 95 8c 00 |................| 000005c0 83 84 00 8c 0a 00 91 00 28 00 02 83 97 09 00 94 |........(.......| 000005d0 94 89 00 94 8a 00 95 81 85 00 94 8a 00 96 97 0e |................| 000005e0 00 98 97 8f 84 00 97 13 0a 00 28 00 02 96 8d 00 |..........(.....| 000005f0 94 8f 8d 00 95 94 00 97 81 85 00 95 8d 00 97 97 |................| 00000600 00 98 91 84 84 00 8b 60 0e 3a ba aa fa 5a 4a f9 |.......`.:...ZJ.| 00000610 39 b1 e1 f1 67 9b e1 31 51 03 9e f4 04 09 39 5c |9...g..1Q.....9\| 00000620 57 44 f6 01 44 3f 0e e1 c0 22 0e 41 31 11 71 01 |WD..D?...".A1.q.| 00000630 fa aa 4a 3a 3a 51 cd ec 87 b9 c4 41 ef 0f f3 a4 |..J::Q.....A....| 00000640 8e 34 51 51 0e f1 91 0e 31 9e 93 77 03 81 21 30 |.4QQ....1..w..!0| 00000650 11 dc 85 20 ce fc 90 8c f9 f8 f8 5c 7c 21 16 01 |... .......\|!..| 00000660 01 62 14 fe 06 31 92 53 45 4f c9 49 52 d1 49 52 |.b...1.SEO.IR.IR| 00000670 51 b2 1f ba fc 39 b2 2d 0c 41 18 fe 89 00 7e f6 |Q....9.-.A....~.| 00000680 07 29 14 f7 3e f1 8e 29 0a fe 06 25 48 02 0d c0 |.)..>..)...%H...| 00000690 30 04 d2 00 7f 21 08 7f 62 48 17 f3 fd ff f3 78 |0....!..bH.....x| 000006a0 15 43 21 13 84 c1 1b 47 91 11 09 fd 33 5a 08 9a |.C!....G....3Z..| 000006b0 42 01 3f ff 12 01 36 81 2e f4 c6 01 28 f6 0c f7 |B.?...6.....(...| 000006c0 52 4a bf f7 e9 8e c1 48 2d 04 61 fe fe d0 48 a8 |RJ.....H-.a...H.| 000006d0 00 6f 2e 31 c5 11 14 fe 31 b5 17 4c 91 13 c2 f6 |.o.1....1..L....| 000006e0 83 f1 3b 50 75 85 00 b0 10 cc ae cc 06 22 88 2e |..;Pu........"..| 000006f0 04 61 85 a0 15 08 08 9d 20 5f 14 fb 06 01 05 0a |.a...... _......| 00000700 06 fe 0c fb 2a 3b 01 17 0f 5f ff 1f d7 93 03 61 |....*;..._.....a| 00000710 fc 9b 61 f1 46 16 01 3e 96 1e 2e 0f 66 36 a6 a1 |..a.F..>....f6..| 00000720 0f f6 3e a6 f1 3f 66 b1 31 ae 71 01 f6 16 61 f6 |..>..?f.1.q...a.| 00000730 bf 9f 87 78 7f fc 0d 82 20 f1 b1 54 6b 88 40 25 |...x.... ..Tk.@%| 00000740 34 0b 3f 48 28 3f 71 09 1f 0f 21 71 f1 9f b1 f1 |4.?H(?q...!q....| 00000750 41 cb 0b 0b f6 01 d1 31 06 02 fe 5c 1a b8 01 5e |A......1...\...^| 00000760 a2 eb fc fc 3b 5f fb 0a be 1a 58 f8 a8 aa f9 2e |....;_....X.....| 00000770 f6 ff 61 61 a1 31 f6 0e 61 24 cd 51 08 d8 f1 56 |..aa.1..a$.Q...V| 00000780 71 b1 3c 41 83 c3 58 69 af 3c 4c 0c ff 5c 6c 51 |q.<A..Xi.<L..\lQ| 00000790 3b b1 61 3b 5a 19 5a 69 f9 b1 98 3f ab 6b 39 a9 |;.a;Z.Zi...?.k9.| 000007a0 28 5f a1 bb 6b f9 a9 eb fb 29 0c f1 a1 81 59 8f |(_..k....)....Y.| 000007b0 dc 5b ac f9 99 51 f1 59 09 51 31 ab 65 19 01 09 |.[...Q.Y.Q1.e...| 000007c0 38 59 a8 09 f9 9f 69 f1 38 0f 1f 39 99 70 ba f9 |8Y....i.8..9.p..| 000007d0 49 b9 f1 9b 71 39 4b 0b 3f 1b 71 50 c7 2b 91 ac |I...q9K.?.qP.+..| 000007e0 ac ab b6 a1 99 3b 11 44 21 c1 24 75 5b 5b f1 4f |.....;.D!.$u[[.O| 000007f0 4b f1 5b fc 0b 31 21 4c fb 8b 07 3c bc 4c 0b 51 |K.[..1!L...<.L.Q| 00000800 d1 1f 7c 1b 01 a1 29 17 10 5c 83 14 0c 04 16 2f |..|...)..\...../| 00000810 63 9c 80 b3 0c 80 16 98 99 04 41 11 b1 2c 04 64 |c.........A..,.d| 00000820 81 11 a0 74 6f 82 00 00 1f 1e 5b e0 3a 3c 81 ed |...to.....[.:<..| 00000830 26 55 54 c2 0c 48 24 00 05 39 e5 12 0a 80 81 82 |&UT..H$..9......| 00000840 82 b2 ee 2a 2b c8 b8 16 04 a4 f4 f4 b4 e5 a9 99 |...*+...........| 00000850 49 3c 59 6a 5b 1a 1b 1a 7f de 77 88 58 6e 13 38 |I<Yj[.....w.Xn.8| 00000860 7f ff 79 e4 92 6c 25 9a |..y..l%.| 00000868