� MODE 0 CUTOUT VIEWER.
� *********************
D� BASED ON A VERY SLOW "BASIC" PROGRAM, BUT COMPLETLY RE-WRITTEN
(�         **************
2A� BY **** RICHARD DIMOND **** IN ASSEMBLY LANGUAGE FOR E.U.G.
<�         ************** 
F4� IN JANUARY 1994. OTHER LITTLE TOUCHES ADDED BY
P"� DEREK WALKER AND WILL WATTS.
Z4� THIS PROG IS NON-COPYRIGHT, BUT PLEASE DO NOT 
d� REMOVE THESE CREDITS !!!!
i�6
n	�inst
x
fname$=""
�
�assem
�� 0
� �19,0,7;0;
� �19,1,0;0;
�*CAT
�@�''"P R E S S   A N Y   K E Y   T O   R E T U R N   H E R E"
�>�"*******************************************************"
��'"LAST FILE WAS ";fname$
�"�'"INPUT next filename:"fname$
� �'"Enter X  Co-ordinates "x%
� �'"Enter Y  Co-ordinates "y%
�A%=&3000+&280*y%+8*x%
�!&70=A%

?&7A=�(fname$)

�

	�&900

"� #0

,�1,-15,100,10

6G=�

@ � �tL@

J�

T��assem

^�i=0�2�2

hP%=&900

r	[OPTi

|bLDY&7A:JSR&FFD7:STA&80:JSR&FFD7:STA&81:ROR&81:ROR&80:ROR&81:ROR&80:ROR&81:ROR&80:ROR&81:ROR&80

�?JSR&FFD7:STA&82:JSR&FFD7:STA&83:ROR&83:ROR&82:ROR&83:ROR&82

�+.lp1 LDX&82:LDA&70:STA&72:LDA&71:STA&73

�.lp2 LDY#0

�M.lp3 STY&7B:LDY&7A:JSR&FFD7:LDY&7B:STA(&72),Y:DEX:BEQout:INY:CPY#8:BNElp3

�CLC:LDA&72:ADC#&80:STA&72

�LDA&73:ADC#&02:STA&73

�
JMPlp2

�4.out CLC:LDA&70:ADC#8:STA&70:LDA&71:ADC#0:STA&71

�LDA&71:ADC#0:STA&71

�DEC&80:BNElp1

�RTS

�]

��
�
� �inst
,�:�'''" DO YOU WANT INSTRUCTIONS (Y/N)?"
&�:A$=�:� A$="Y" � A$="N"
0� A$="N" �
:��:�14:�''"PRESS <SHIFT> TO SCROLL TEXT"''"THERE IS ONLY ONE CUTOUT IMAGE"'"ON THIS DISC FOR YOU TO EXPERIMENT"'"WITH, BUT NO DOUBT WE WILL BE SUPPLYING"'"OTHERS IN THE FUTURE"
D��''"ONCE YOU HAVE READ THESE INSTRUCTIONS"'"YOU WILL BE PRESENTED WITH A MODE 0"'"SCREEN. THE DISC'S CATALOGUE WILL THEN"'"BE SHOWN. THIS FACILITY IS FOR USE"'"WITH A DISC FULL OF CUTOUTS, BUT FOR"'"NOW,THE ONLY FILE YOU CAN LOAD"
NO�''"IS:- ""ZZ_C"", SO TYPE THIS IN WHEN YOU"'"ARE PROMPTED FOR A FILE NAME"
X��''"NEXT, YOU WILL BE ASKED FOR THE X AND Y"'"SCREEN CO-ORDINATES THAT THE IMAGE"'"SHOULD BE LOADED TO. IF YOU MAKE"'"THESE NUMBERS TOO HIGH i.e, DOUBLE"'"FIGURES, THE IMAGE WILL BE ""PRINTED"""'"OFF THE SCREEN! EXPERIMENT - YOU'LL"
b�"SOON GET THE IDEA!"
l*�'''"PLEASE PRESS <SPACE> TO CONTINUE"
v�:A$=�:� A$=" "
��
�

00000000  0d 00 0a 1b f4 20 4d 4f  44 45 20 30 20 43 55 54  |..... MODE 0 CUT|
00000010  4f 55 54 20 56 49 45 57  45 52 2e 0d 00 14 1b f4  |OUT VIEWER......|
00000020  20 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  | ***************|
00000030  2a 2a 2a 2a 2a 2a 0d 00  1e 44 f4 20 42 41 53 45  |******...D. BASE|
00000040  44 20 4f 4e 20 41 20 56  45 52 59 20 53 4c 4f 57  |D ON A VERY SLOW|
00000050  20 22 42 41 53 49 43 22  20 50 52 4f 47 52 41 4d  | "BASIC" PROGRAM|
00000060  2c 20 42 55 54 20 43 4f  4d 50 4c 45 54 4c 59 20  |, BUT COMPLETLY |
00000070  52 45 2d 57 52 49 54 54  45 4e 0d 00 28 1c f4 20  |RE-WRITTEN..(.. |
00000080  20 20 20 20 20 20 20 20  2a 2a 2a 2a 2a 2a 2a 2a  |        ********|
00000090  2a 2a 2a 2a 2a 2a 0d 00  32 41 f4 20 42 59 20 2a  |******..2A. BY *|
000000a0  2a 2a 2a 20 52 49 43 48  41 52 44 20 44 49 4d 4f  |*** RICHARD DIMO|
000000b0  4e 44 20 2a 2a 2a 2a 20  49 4e 20 41 53 53 45 4d  |ND **** IN ASSEM|
000000c0  42 4c 59 20 4c 41 4e 47  55 41 47 45 20 46 4f 52  |BLY LANGUAGE FOR|
000000d0  20 45 2e 55 2e 47 2e 0d  00 3c 1d f4 20 20 20 20  | E.U.G...<..    |
000000e0  20 20 20 20 20 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |     ***********|
000000f0  2a 2a 2a 20 0d 00 46 34  f4 20 49 4e 20 4a 41 4e  |*** ..F4. IN JAN|
00000100  55 41 52 59 20 31 39 39  34 2e 20 4f 54 48 45 52  |UARY 1994. OTHER|
00000110  20 4c 49 54 54 4c 45 20  54 4f 55 43 48 45 53 20  | LITTLE TOUCHES |
00000120  41 44 44 45 44 20 42 59  0d 00 50 22 f4 20 44 45  |ADDED BY..P". DE|
00000130  52 45 4b 20 57 41 4c 4b  45 52 20 41 4e 44 20 57  |REK WALKER AND W|
00000140  49 4c 4c 20 57 41 54 54  53 2e 0d 00 5a 34 f4 20  |ILL WATTS...Z4. |
00000150  54 48 49 53 20 50 52 4f  47 20 49 53 20 4e 4f 4e  |THIS PROG IS NON|
00000160  2d 43 4f 50 59 52 49 47  48 54 2c 20 42 55 54 20  |-COPYRIGHT, BUT |
00000170  50 4c 45 41 53 45 20 44  4f 20 4e 4f 54 20 0d 00  |PLEASE DO NOT ..|
00000180  64 1f f4 20 52 45 4d 4f  56 45 20 54 48 45 53 45  |d.. REMOVE THESE|
00000190  20 43 52 45 44 49 54 53  20 21 21 21 21 0d 00 69  | CREDITS !!!!..i|
000001a0  06 eb 36 0d 00 6e 09 f2  69 6e 73 74 0d 00 78 0d  |..6..n..inst..x.|
000001b0  66 6e 61 6d 65 24 3d 22  22 0d 00 82 0a f2 61 73  |fname$="".....as|
000001c0  73 65 6d 0d 00 8c 07 eb  20 30 0d 00 96 0f 20 ef  |sem..... 0.... .|
000001d0  31 39 2c 30 2c 37 3b 30  3b 0d 00 a0 0f 20 ef 31  |19,0,7;0;.... .1|
000001e0  39 2c 31 2c 30 3b 30 3b  0d 00 aa 08 2a 43 41 54  |9,1,0;0;....*CAT|
000001f0  0d 00 b4 40 f1 27 27 22  50 20 52 20 45 20 53 20  |...@.''"P R E S |
00000200  53 20 20 20 41 20 4e 20  59 20 20 20 4b 20 45 20  |S   A N Y   K E |
00000210  59 20 20 20 54 20 4f 20  20 20 52 20 45 20 54 20  |Y   T O   R E T |
00000220  55 20 52 20 4e 20 20 20  48 20 45 20 52 20 45 22  |U R N   H E R E"|
00000230  0d 00 be 3e f1 22 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |...>."**********|
00000240  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000260  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 22 0d 00  |*************"..|
00000270  c8 1d f1 27 22 4c 41 53  54 20 46 49 4c 45 20 57  |...'"LAST FILE W|
00000280  41 53 20 22 3b 66 6e 61  6d 65 24 0d 00 d2 22 e8  |AS ";fname$...".|
00000290  27 22 49 4e 50 55 54 20  6e 65 78 74 20 66 69 6c  |'"INPUT next fil|
000002a0  65 6e 61 6d 65 3a 22 66  6e 61 6d 65 24 0d 00 dc  |ename:"fname$...|
000002b0  20 e8 27 22 45 6e 74 65  72 20 58 20 20 43 6f 2d  | .'"Enter X  Co-|
000002c0  6f 72 64 69 6e 61 74 65  73 20 22 78 25 0d 00 e6  |ordinates "x%...|
000002d0  20 e8 27 22 45 6e 74 65  72 20 59 20 20 43 6f 2d  | .'"Enter Y  Co-|
000002e0  6f 72 64 69 6e 61 74 65  73 20 22 79 25 0d 00 f0  |ordinates "y%...|
000002f0  19 41 25 3d 26 33 30 30  30 2b 26 32 38 30 2a 79  |.A%=&3000+&280*y|
00000300  25 2b 38 2a 78 25 0d 00  fa 0b 21 26 37 30 3d 41  |%+8*x%....!&70=A|
00000310  25 0d 01 04 12 3f 26 37  41 3d 8e 28 66 6e 61 6d  |%....?&7A=.(fnam|
00000320  65 24 29 0d 01 0e 05 db  0d 01 18 09 d6 26 39 30  |e$)..........&90|
00000330  30 0d 01 22 08 d9 20 23  30 0d 01 2c 11 d4 31 2c  |0..".. #0..,..1,|
00000340  2d 31 35 2c 31 30 30 2c  31 30 0d 01 36 07 47 3d  |-15,100,10..6.G=|
00000350  a5 0d 01 40 0b 20 e5 20  8d 74 4c 40 0d 01 4a 05  |...@. . .tL@..J.|
00000360  e0 0d 01 54 0b dd f2 61  73 73 65 6d 0d 01 5e 0c  |...T...assem..^.|
00000370  e3 69 3d 30 b8 32 88 32  0d 01 68 0b 50 25 3d 26  |.i=0.2.2..h.P%=&|
00000380  39 30 30 0d 01 72 09 5b  4f 50 54 69 0d 01 7c 62  |900..r.[OPTi..|b|
00000390  4c 44 59 26 37 41 3a 4a  53 52 26 46 46 44 37 3a  |LDY&7A:JSR&FFD7:|
000003a0  53 54 41 26 38 30 3a 4a  53 52 26 46 46 44 37 3a  |STA&80:JSR&FFD7:|
000003b0  53 54 41 26 38 31 3a 52  4f 52 26 38 31 3a 52 4f  |STA&81:ROR&81:RO|
000003c0  52 26 38 30 3a 52 4f 52  26 38 31 3a 52 4f 52 26  |R&80:ROR&81:ROR&|
000003d0  38 30 3a 52 4f 52 26 38  31 3a 52 4f 52 26 38 30  |80:ROR&81:ROR&80|
000003e0  3a 52 4f 52 26 38 31 3a  52 4f 52 26 38 30 0d 01  |:ROR&81:ROR&80..|
000003f0  86 3f 4a 53 52 26 46 46  44 37 3a 53 54 41 26 38  |.?JSR&FFD7:STA&8|
00000400  32 3a 4a 53 52 26 46 46  44 37 3a 53 54 41 26 38  |2:JSR&FFD7:STA&8|
00000410  33 3a 52 4f 52 26 38 33  3a 52 4f 52 26 38 32 3a  |3:ROR&83:ROR&82:|
00000420  52 4f 52 26 38 33 3a 52  4f 52 26 38 32 0d 01 90  |ROR&83:ROR&82...|
00000430  2b 2e 6c 70 31 20 4c 44  58 26 38 32 3a 4c 44 41  |+.lp1 LDX&82:LDA|
00000440  26 37 30 3a 53 54 41 26  37 32 3a 4c 44 41 26 37  |&70:STA&72:LDA&7|
00000450  31 3a 53 54 41 26 37 33  0d 01 9a 0e 2e 6c 70 32  |1:STA&73.....lp2|
00000460  20 4c 44 59 23 30 0d 01  a4 4d 2e 6c 70 33 20 53  | LDY#0...M.lp3 S|
00000470  54 59 26 37 42 3a 4c 44  59 26 37 41 3a 4a 53 52  |TY&7B:LDY&7A:JSR|
00000480  26 46 46 44 37 3a 4c 44  59 26 37 42 3a 53 54 41  |&FFD7:LDY&7B:STA|
00000490  28 26 37 32 29 2c 59 3a  44 45 58 3a 42 45 51 6f  |(&72),Y:DEX:BEQo|
000004a0  75 74 3a 49 4e 59 3a 43  50 59 23 38 3a 42 4e 45  |ut:INY:CPY#8:BNE|
000004b0  6c 70 33 0d 01 ae 1d 43  4c 43 3a 4c 44 41 26 37  |lp3....CLC:LDA&7|
000004c0  32 3a 41 44 43 23 26 38  30 3a 53 54 41 26 37 32  |2:ADC#&80:STA&72|
000004d0  0d 01 b8 19 4c 44 41 26  37 33 3a 41 44 43 23 26  |....LDA&73:ADC#&|
000004e0  30 32 3a 53 54 41 26 37  33 0d 01 c2 0a 4a 4d 50  |02:STA&73....JMP|
000004f0  6c 70 32 0d 01 cc 34 2e  6f 75 74 20 43 4c 43 3a  |lp2...4.out CLC:|
00000500  4c 44 41 26 37 30 3a 41  44 43 23 38 3a 53 54 41  |LDA&70:ADC#8:STA|
00000510  26 37 30 3a 4c 44 41 26  37 31 3a 41 44 43 23 30  |&70:LDA&71:ADC#0|
00000520  3a 53 54 41 26 37 31 0d  01 d6 17 4c 44 41 26 37  |:STA&71....LDA&7|
00000530  31 3a 41 44 43 23 30 3a  53 54 41 26 37 31 0d 01  |1:ADC#0:STA&71..|
00000540  e0 11 44 45 43 26 38 30  3a 42 4e 45 6c 70 31 0d  |..DEC&80:BNElp1.|
00000550  01 ea 07 52 54 53 0d 01  f4 05 5d 0d 01 fe 05 ed  |...RTS....].....|
00000560  0d 02 08 05 e1 0d 02 12  0b dd 20 f2 69 6e 73 74  |.......... .inst|
00000570  0d 02 1c 2c db 3a f1 27  27 27 22 20 44 4f 20 59  |...,.:.'''" DO Y|
00000580  4f 55 20 57 41 4e 54 20  49 4e 53 54 52 55 43 54  |OU WANT INSTRUCT|
00000590  49 4f 4e 53 20 28 59 2f  4e 29 3f 22 0d 02 26 1c  |IONS (Y/N)?"..&.|
000005a0  f5 3a 41 24 3d be 3a fd  20 41 24 3d 22 59 22 20  |.:A$=.:. A$="Y" |
000005b0  84 20 41 24 3d 22 4e 22  0d 02 30 0e e7 20 41 24  |. A$="N"..0.. A$|
000005c0  3d 22 4e 22 20 e1 0d 02  3a b3 db 3a ef 31 34 3a  |="N" ...:..:.14:|
000005d0  f1 27 27 22 50 52 45 53  53 20 3c 53 48 49 46 54  |.''"PRESS <SHIFT|
000005e0  3e 20 54 4f 20 53 43 52  4f 4c 4c 20 54 45 58 54  |> TO SCROLL TEXT|
000005f0  22 27 27 22 54 48 45 52  45 20 49 53 20 4f 4e 4c  |"''"THERE IS ONL|
00000600  59 20 4f 4e 45 20 43 55  54 4f 55 54 20 49 4d 41  |Y ONE CUTOUT IMA|
00000610  47 45 22 27 22 4f 4e 20  54 48 49 53 20 44 49 53  |GE"'"ON THIS DIS|
00000620  43 20 46 4f 52 20 59 4f  55 20 54 4f 20 45 58 50  |C FOR YOU TO EXP|
00000630  45 52 49 4d 45 4e 54 22  27 22 57 49 54 48 2c 20  |ERIMENT"'"WITH, |
00000640  42 55 54 20 4e 4f 20 44  4f 55 42 54 20 57 45 20  |BUT NO DOUBT WE |
00000650  57 49 4c 4c 20 42 45 20  53 55 50 50 4c 59 49 4e  |WILL BE SUPPLYIN|
00000660  47 22 27 22 4f 54 48 45  52 53 20 49 4e 20 54 48  |G"'"OTHERS IN TH|
00000670  45 20 46 55 54 55 52 45  22 0d 02 44 ea f1 27 27  |E FUTURE"..D..''|
00000680  22 4f 4e 43 45 20 59 4f  55 20 48 41 56 45 20 52  |"ONCE YOU HAVE R|
00000690  45 41 44 20 54 48 45 53  45 20 49 4e 53 54 52 55  |EAD THESE INSTRU|
000006a0  43 54 49 4f 4e 53 22 27  22 59 4f 55 20 57 49 4c  |CTIONS"'"YOU WIL|
000006b0  4c 20 42 45 20 50 52 45  53 45 4e 54 45 44 20 57  |L BE PRESENTED W|
000006c0  49 54 48 20 41 20 4d 4f  44 45 20 30 22 27 22 53  |ITH A MODE 0"'"S|
000006d0  43 52 45 45 4e 2e 20 54  48 45 20 44 49 53 43 27  |CREEN. THE DISC'|
000006e0  53 20 43 41 54 41 4c 4f  47 55 45 20 57 49 4c 4c  |S CATALOGUE WILL|
000006f0  20 54 48 45 4e 22 27 22  42 45 20 53 48 4f 57 4e  | THEN"'"BE SHOWN|
00000700  2e 20 54 48 49 53 20 46  41 43 49 4c 49 54 59 20  |. THIS FACILITY |
00000710  49 53 20 46 4f 52 20 55  53 45 22 27 22 57 49 54  |IS FOR USE"'"WIT|
00000720  48 20 41 20 44 49 53 43  20 46 55 4c 4c 20 4f 46  |H A DISC FULL OF|
00000730  20 43 55 54 4f 55 54 53  2c 20 42 55 54 20 46 4f  | CUTOUTS, BUT FO|
00000740  52 22 27 22 4e 4f 57 2c  54 48 45 20 4f 4e 4c 59  |R"'"NOW,THE ONLY|
00000750  20 46 49 4c 45 20 59 4f  55 20 43 41 4e 20 4c 4f  | FILE YOU CAN LO|
00000760  41 44 22 0d 02 4e 4f f1  27 27 22 49 53 3a 2d 20  |AD"..NO.''"IS:- |
00000770  22 22 5a 5a 5f 43 22 22  2c 20 53 4f 20 54 59 50  |""ZZ_C"", SO TYP|
00000780  45 20 54 48 49 53 20 49  4e 20 57 48 45 4e 20 59  |E THIS IN WHEN Y|
00000790  4f 55 22 27 22 41 52 45  20 50 52 4f 4d 50 54 45  |OU"'"ARE PROMPTE|
000007a0  44 20 46 4f 52 20 41 20  46 49 4c 45 20 4e 41 4d  |D FOR A FILE NAM|
000007b0  45 22 0d 02 58 ec f1 27  27 22 4e 45 58 54 2c 20  |E"..X..''"NEXT, |
000007c0  59 4f 55 20 57 49 4c 4c  20 42 45 20 41 53 4b 45  |YOU WILL BE ASKE|
000007d0  44 20 46 4f 52 20 54 48  45 20 58 20 41 4e 44 20  |D FOR THE X AND |
000007e0  59 22 27 22 53 43 52 45  45 4e 20 43 4f 2d 4f 52  |Y"'"SCREEN CO-OR|
000007f0  44 49 4e 41 54 45 53 20  54 48 41 54 20 54 48 45  |DINATES THAT THE|
00000800  20 49 4d 41 47 45 22 27  22 53 48 4f 55 4c 44 20  | IMAGE"'"SHOULD |
00000810  42 45 20 4c 4f 41 44 45  44 20 54 4f 2e 20 49 46  |BE LOADED TO. IF|
00000820  20 59 4f 55 20 4d 41 4b  45 22 27 22 54 48 45 53  | YOU MAKE"'"THES|
00000830  45 20 4e 55 4d 42 45 52  53 20 54 4f 4f 20 48 49  |E NUMBERS TOO HI|
00000840  47 48 20 69 2e 65 2c 20  44 4f 55 42 4c 45 22 27  |GH i.e, DOUBLE"'|
00000850  22 46 49 47 55 52 45 53  2c 20 54 48 45 20 49 4d  |"FIGURES, THE IM|
00000860  41 47 45 20 57 49 4c 4c  20 42 45 20 22 22 50 52  |AGE WILL BE ""PR|
00000870  49 4e 54 45 44 22 22 22  27 22 4f 46 46 20 54 48  |INTED"""'"OFF TH|
00000880  45 20 53 43 52 45 45 4e  21 20 45 58 50 45 52 49  |E SCREEN! EXPERI|
00000890  4d 45 4e 54 20 2d 20 59  4f 55 27 4c 4c 22 0d 02  |MENT - YOU'LL"..|
000008a0  62 19 f1 22 53 4f 4f 4e  20 47 45 54 20 54 48 45  |b.."SOON GET THE|
000008b0  20 49 44 45 41 21 22 0d  02 6c 2a f1 27 27 27 22  | IDEA!"..l*.'''"|
000008c0  50 4c 45 41 53 45 20 50  52 45 53 53 20 3c 53 50  |PLEASE PRESS <SP|
000008d0  41 43 45 3e 20 54 4f 20  43 4f 4e 54 49 4e 55 45  |ACE> TO CONTINUE|
000008e0  22 0d 02 76 13 f5 3a 41  24 3d be 3a fd 20 41 24  |"..v..:A$=.:. A$|
000008f0  3d 22 20 22 0d 02 80 05  e1 0d ff                 |=" ".......|
000008fb