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

�	�bK�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