Laser Genius (UK) (Face 2B) (1986) [Original] [TAPE] [UTILITAIRE].cdt
HexaDumpAscii only
000000: 5A 58 54 61 70 65 21 1A 01 0C 20 38 47 11 05 09 ZXTape!... 8G...
000010: 57 04 A6 04 85 04 09 09 FF 0F 08 0E 00 07 01 00 W...............
000020: 2C 53 49 45 56 45 2E 41 53 4D 00 00 00 00 00 00 ,SIEVE.ASM......
000030: 00 01 FF 0F E2 02 DF 24 FF E2 02 E2 02 00 00 00 .......$........
000040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000050: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000100: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000110: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000120: 00 B8 C0 FF FF FF FF 11 07 09 A6 04 A6 04 94 04 ................
000130: 27 09 00 10 08 18 30 0B 03 00 16 0A 00 EF F0 EF '.....0.........
000140: 20 4D 61 63 68 69 6E 65 20 63 6F 64 65 20 73 69 Machine code si
000150: 65 76 65 2E F0 EF F0 F7 14 00 EF F0 EF 20 57 6F eve.......... Wo
000160: 72 6B 73 70 61 63 65 2E F0 EF F0 F1 70 72 69 6D rkspace.....prim
000170: 65 66 6C 61 67 F3 7B FC 89 13 EF F0 F7 1E 00 EF eflag.{.........
000180: F0 F1 73 74 61 72 F4 BC FD 02 EE 20 42 43 20 69 ..star..... BC i
000190: 73 20 65 71 75 69 76 61 6C 65 6E 74 20 22 63 6F s equivalent "co
0001A0: 75 6E 74 22 2E F0 EF F0 F1 6D 61 69 6E 2E 6C 6F unt".....main.lo
0001B0: 6F F0 BE FC C4 09 EE 20 77 68 69 6C 65 20 63 6F o...... while co
0001C0: 75 6E 74 3C 3D 32 35 30 30 F0 5F 0B A0 05 8F EC unt<=2500._.....
0001D0: 70 72 69 6E 74 2E 70 72 69 6D 65 F3 EF F0 F7 28 print.prime....(
0001E0: 00 EF F0 BE EC 70 72 69 6D 65 66 6C 61 67 F3 9C .....primeflag..
0001F0: 05 B5 22 5F 0B 8E EC 69 6E 63 2E 63 6F 75 6E F4 .."_...inc.coun.
000200: F7 32 00 EF F0 AA 07 B5 FD 01 F1 73 65 74 2E 6C .2.........set.l
000210: 6F 6F F0 AA 07 9C 05 AA 07 BE EC 70 72 69 6D 65 oo.........prime
000220: 66 6C 61 67 F3 D5 FC 88 13 5F 0B A0 06 8F EC 69 flag....._.....i
000230: 6E 63 2E 63 6F 75 6E F4 AE 0B 54 4B 41 EC 73 65 nc.coun...TKA.se
000240: 74 2E 6C 6F 6F F0 F1 69 6E 63 2E 63 6F 75 6E F4 t.loo..inc.coun.
000250: 52 05 54 EC 6D 61 69 6E 2E 6C 6F 6F F0 F7 3C 00 R.T.main.loo..<.
000260: EF F0 F1 70 72 69 6E 74 2E 70 72 69 6D 65 F3 BC ...print.prime..
000270: FD 02 EE 20 42 43 20 69 73 20 65 71 75 69 76 61 ... BC is equiva
000280: 6C 65 6E 74 20 22 63 6F 75 6E 74 22 2E F0 EF F0 lent "count"....
000290: F1 70 72 69 6E 74 2E 6C 6F 6F F0 BE FC 88 13 EE .print.loo......
0002A0: 20 77 68 69 6C 65 20 63 6F 75 6E 74 3C 3D 35 30 while count<=50
0002B0: 30 30 F0 5F 0B A0 05 66 0D EF F0 F7 46 00 BE EC 00._...f....F...
0002C0: 70 72 69 6D 65 66 6C 61 67 F3 9C 05 B5 22 5F 0B primeflag...."_.
0002D0: 8E EC 69 6E 63 2E 63 6F 75 6E 74 B2 63 05 55 EC ..inc.count.c.U.
0002E0: 77 72 74 6E 75 ED 64 05 F1 69 6E 63 2E 63 6F 75 wrtnu.d..inc.cou
0002F0: 6E 74 B2 52 05 54 EC 70 72 69 6E 74 2E 6C 6F 6F nt.R.T.print.loo
000300: F0 F7 50 00 EF F0 F1 77 72 74 6E 75 ED BD FD 0A ..P....wrtnu....
000310: 63 07 55 EC 70 64 6F 74 B1 B5 EC 53 50 41 43 C5 c.U.pdot...SPAC.
000320: 55 EC 54 58 54 2E 4F 55 54 50 55 D4 64 07 66 EF U.TXT.OUTPU.d.f.
000330: F0 F7 5A 00 EF F0 F1 70 64 6F F4 B5 0C 40 DA 5F ..Z....pdo...@._
000340: 0D 66 15 F1 70 64 6F 74 B1 55 EC 64 69 76 31 B6 .f..pdot.U.div1.
000350: F7 64 00 EF F0 63 07 55 EC 70 64 6F F4 64 07 B5 .d...c.U.pdo.d..
000360: 11 9B FF 90 2E 99 FF 40 2E 53 EC 54 58 54 2E 4F .......@.S.TXT.O
000370: 55 54 50 55 D4 F7 6E 00 EF F0 EF F0 EF F0 F1 64 UTPU..n........d
000380: 69 76 31 B6 B5 0C BE FD 00 B6 FD 10 F1 74 72 69 iv1..........tri
000390: 61 6C B1 6B 0D 34 9A 07 A0 06 2C F7 78 00 EF F0 al.k.4....,.x...
0003A0: 90 EC 6E 67 76 B1 F1 70 74 76 B1 65 EC 74 72 69 ..ngv..ptv.e.tri
0003B0: 61 6C B1 6B 0D 34 B6 0B 66 F1 72 65 73 74 72 B1 al.k.4..f.restr.
0003C0: 6B 0D 34 9A 07 F7 82 00 EF F0 9C 06 8F EC 70 74 k.4...........pt
0003D0: 76 B1 F1 6E 67 76 B1 65 EC 72 65 73 74 72 B1 6B v..ngv.e.restr.k
0003E0: 0D 34 9C 06 B6 0B 66 F7 8C 00 EF F0 EF 20 43 6F .4....f...... Co
0003F0: 6E 73 74 61 6E 74 20 64 65 66 69 6E 69 74 69 6F nstant definitio
000400: 6E 73 2E F0 EF F0 F1 54 58 54 2E 4F 55 54 50 55 ns.....TXT.OUTPU
000410: D4 7A FE 5A BB EF F0 F1 53 50 41 43 C5 7A EB 20 .z.Z....SPAC.z.
000420: F7 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000430: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 16 ................
000440: 4F FF FF FF FF 11 07 09 A6 04 57 04 83 04 06 09 O.........W.....
000450: 01 10 08 0E 00 07 01 00 2C 53 49 45 56 45 2E 50 ........,SIEVE.P
000460: 48 58 00 00 00 00 00 00 00 01 FF 0F 60 05 DF 24 HX..........`..$
000470: FF 60 05 60 05 00 00 00 00 00 00 00 00 00 00 00 .`.`............
000480: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000490: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0004A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0004B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0004C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0004D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0004E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0004F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000500: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000510: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000520: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000530: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000540: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000550: 00 00 00 00 00 00 00 00 00 4C C8 FF FF FF FF 11 .........L......
000560: 08 09 A6 04 A6 04 93 04 24 09 01 10 08 BC 2F 11 ........$...../.
000570: 06 00 16 00 00 F5 82 1E F7 0A 00 EF F0 EF 20 53 .............. S
000580: 69 65 76 65 20 6F 66 20 45 72 61 74 6F 73 74 68 ieve of Eratosth
000590: 65 6E 65 73 2E F0 EF F0 F7 14 00 EF F0 EF 20 41 enes.......... A
0005A0: 4D 53 54 52 41 44 20 28 31 29 20 6F 72 20 53 50 MSTRAD (1) or SP
0005B0: 45 43 54 52 55 4D 20 28 30 29 20 3F F0 EF F0 F1 ECTRUM (0) ?....
0005C0: 41 4D 53 53 50 45 C3 7A FD 01 EF F0 F7 1E 00 EF AMSSPE.z........
0005D0: F0 EF 20 46 75 6E 63 74 69 6F 6E 20 74 6F 20 77 .. Function to w
0005E0: 72 69 74 65 20 61 20 63 68 61 72 61 63 74 65 72 rite a character
0005F0: F0 EF 20 74 6F 20 74 68 65 20 73 63 72 65 65 6E .. to the screen
000600: 2E F0 EF F0 EF 20 54 68 69 73 20 6D 75 73 74 20 ..... This must
000610: 62 65 20 62 65 66 6F 72 65 20 22 70 72 69 6E 74 be before "print
000620: 2E 69 6E 74 22 F0 EF 20 61 73 20 69 74 20 69 73 .int".. as it is
000630: 20 75 73 65 64 20 62 79 20 22 70 72 69 6E 74 2E used by "print.
000640: 69 6E 74 22 2E F0 EF F0 F7 28 00 F1 70 72 69 6E int".....(..prin
000650: 74 2E 63 68 61 F2 F6 0A 01 F1 63 68 F2 F6 0D 02 t.cha.....ch....
000660: F6 0B F6 01 EC 63 68 F2 7E EC 41 4D 53 53 50 45 .....ch.~.AMSSPE
000670: C3 B5 11 CE 79 55 FE 5A BB 4E B5 11 55 FE F4 09 ....yU.Z.N..U...
000680: 4F F6 0C EF F0 EF F0 F7 32 00 EF F0 EF 20 49 6E O.......2.... In
000690: 6E 65 72 20 69 6E 74 65 67 65 72 20 70 72 69 6E ner integer prin
0006A0: 74 20 66 75 6E 63 74 69 6F 6E 2E F0 EF F0 EF 20 t function.....
0006B0: 54 68 69 73 20 6D 75 73 74 20 62 65 20 62 65 66 This must be bef
0006C0: 6F 72 65 20 22 70 72 69 6E 74 2E 69 6E 74 22 F0 ore "print.int".
0006D0: EF 20 61 73 20 69 74 20 69 73 20 75 73 65 64 20 . as it is used
0006E0: 62 79 20 22 70 72 69 6E 74 2E 69 6E 74 22 2E F0 by "print.int"..
0006F0: EF F0 F7 3C 00 F1 70 72 69 6E 74 2E 69 6E 74 B1 ...<..print.int.
000700: F6 0A 01 F1 70 76 61 EC F6 0D 01 F1 63 68 F2 F6 ....pva.....ch..
000710: 0E 02 FD 01 F6 0B F6 05 EC 70 76 61 EC DD FD 00 .........pva....
000720: F6 01 EC 63 68 F2 D1 EC 70 76 61 EC D9 FD 0A F6 ...ch...pva.....
000730: 01 EC 70 72 69 6E 74 2E 69 6E 74 B1 D3 EC 70 76 ..print.int...pv
000740: 61 EC D8 FD 0A CC F6 01 EC 70 72 69 6E 74 2E 63 a........print.c
000750: 68 61 F2 D3 EC 63 68 F2 D5 FF 30 CC F6 09 F6 0C ha...ch...0.....
000760: EF F0 EF F0 F7 46 00 EF F0 EF 20 49 6E 74 65 67 .....F.... Integ
000770: 65 72 20 70 72 42 63 69 6E 74 20 66 75 6E 63 74 er prBcint funct
000780: 69 6F 6E 2E F0 EF F0 F7 50 00 F1 70 72 69 6E 74 ion.....P..print
000790: 2E 69 6E F4 F6 0A 01 F1 70 76 61 EC F6 0D 01 F1 .in.....pva.....
0007A0: 63 68 F2 F6 0E 02 FD 01 F6 0B F6 05 EC 70 76 61 ch...........pva
0007B0: EC DC FD 00 F6 01 EC 70 72 69 6E 74 2E 63 68 61 .......print.cha
0007C0: F2 D3 EB 30 CC F6 08 F6 01 EC 70 72 69 6E 74 2E ...0......print.
0007D0: 69 6E 74 B1 D3 EC 70 76 61 EC CC F6 09 F6 01 EC int...pva.......
0007E0: 70 72 69 6E 74 2E 63 68 61 F2 D3 EB 20 CC F6 0C print.cha... ...
0007F0: EF F0 EF F0 F7 5A 00 EF F0 EF 20 57 6F 72 6B 73 .....Z.... Works
000800: 70 61 63 65 2E F0 EF F0 F1 63 6F 75 6E F4 F6 0E pace.....coun...
000810: 01 FD 01 F1 63 6F 75 6E 74 B1 F6 0E 01 FD 01 EF ....count.......
000820: F0 F1 70 72 69 6D 65 66 6C 61 67 F3 F6 0E 01 FC ..primeflag.....
000830: 89 13 EF F0 F7 64 00 EF F0 EF 20 4D 61 69 6E 20 .....d.... Main
000840: 63 61 6C 63 75 6C 61 74 69 6F 6E 20 6C 6F 6F 70 calculation loop
000850: 2E F0 EF F0 EF 20 54 68 69 73 20 6C 6F 6F 70 20 ..... This loop
000860: 6D 61 72 6B 73 20 6E 6F 6E 2D 70 72 69 6D 65 73 marks non-primes
000870: F0 EF 20 69 6E 20 74 FE 36 68 65 20 61 72 72 61 .. in t.6he arra
000880: 79 20 22 70 72 69 6D 65 66 6C 61 67 73 22 2E F0 y "primeflags"..
000890: EF F0 F7 6E 00 EF F0 EF 20 45 6E 74 65 72 20 68 ...n.... Enter h
0008A0: 65 72 65 20 28 45 58 45 43 55 54 45 20 73 74 61 ere (EXECUTE sta
0008B0: 72 74 29 2E F0 EF F0 F1 73 74 61 72 F4 F6 10 EE rt).....star....
0008C0: 20 53 65 74 20 49 58 20 66 6F 72 20 50 48 4F 45 Set IX for PHOE
0008D0: 4E 49 58 27 20 75 73 65 2E F0 EF F0 EF 20 4F 6E NIX' use..... On
0008E0: 20 74 68 65 20 53 50 45 43 54 52 55 4D 20 73 65 the SPECTRUM se
0008F0: 74 20 74 68 65 20 63 68 61 6E 6E 65 6C 20 74 6F t the channel to
000900: 20 74 68 65 20 6D 61 69 6E 20 73 63 72 65 65 6E the main screen
000910: 2E F0 EF F0 7E C8 EC 41 4D 53 53 50 45 C3 EF F0 ....~..AMSSPE...
000920: B5 FD 02 55 FE 01 16 EE 20 52 4F 4D 27 73 20 43 ...U.... ROM's C
000930: 48 41 4E 20 4F 50 45 4E F0 EF F0 4F EF F0 F7 78 HAN OPEN...O...x
000940: 00 F6 01 EC 63 6F 75 6E F4 D1 FD 02 EF F0 F6 04 ....coun........
000950: EC 63 6F 75 6E F4 DA FC C4 09 EF F0 F6 05 EC 70 .coun..........p
000960: 72 69 6D 65 66 6C 61 67 F3 D4 EC 63 6F 75 6E F4 rimeflag...coun.
000970: D0 DC FD 00 EF F0 F6 02 EC 5C 07 63 6F 75 6E 74 .........\.count
000980: B1 D1 EC 63 6F 75 6E F4 EF F0 F6 04 CB EC 63 6F ...coun.......co
000990: 75 6E 74 B1 D1 EC 63 6F 75 6E 74 B1 D5 EC 63 6F unt...count...co
0009A0: 75 6E F4 D0 DA FC 88 13 F6 02 EC 70 72 69 6D 65 un.........prime
0009B0: 66 6C 61 67 F3 D4 EC 63 6F 75 6E 74 B1 D0 D1 FD flag...count....
0009C0: 01 F6 07 EF F0 F6 09 EF F0 F6 01 C5 EC 63 6F 75 .............cou
0009D0: 6E F4 EE 20 49 6E 63 72 65 6D 65 6E 74 20 63 6F n.. Increment co
0009E0: 75 6E 74 2E F0 EF F0 F6 07 EF F0 F7 82 00 EF F0 unt.............
0009F0: EF 20 4C 6F 6F 70 20 74 6F 20 70 72 69 6E 74 20 . Loop to print
000A00: 74 68 65 20 70 72 69 6D 65 73 20 66 6F 75 6E 64 the primes found
000A10: 2E F0 EF F0 F6 02 EC 63 6F 75 6E F4 D1 FD 02 EF .......coun.....
000A20: F0 F6 04 EC 63 6F 75 6E F4 DA FC 88 13 EF F0 F6 ....coun........
000A30: 05 EC 70 72 69 6D 65 66 6C 61 67 F3 D4 EC 63 6F ..primeflag...co
000A40: 75 6E F4 D0 DC FD 00 F6 02 EC 70 72 69 6E 74 2E un........print.
000A50: 69 6E F4 D3 EC 63 6F 75 6E F4 CC F6 09 EF F0 F6 in...coun.......
000A60: 02 C5 EC 63 6F 75 6E F4 EF F0 F6 07 EF F0 F7 8C ...coun.........
000A70: 00 EF F0 EF 20 44 6F 6E 65 2C 20 58 18 72 65 70 .... Done, X.rep
000A80: 6C 61 63 65 20 73 74 61 63 6B 20 70 6F 69 6E 74 lace stack point
000A90: 65 72 20 61 6E 64 20 72 65 74 75 72 6E 2E F0 EF er and return...
000AA0: F0 C3 12 66 EF F0 F7 96 00 EF F0 EF 20 49 6E 63 ...f........ Inc
000AB0: 6C 75 64 65 20 6C 69 62 72 61 72 79 20 72 6F 75 lude library rou
000AC0: 74 69 6E 65 73 20 66 6F 72 20 61 72 69 74 68 6D tines for arithm
000AD0: 65 74 69 63 2E F0 EF F0 F6 12 EF F0 F7 00 00 00 etic............
000AE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000AF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000B00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000B10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000B20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000B30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000B40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000B50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000B60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000B70: 00 00 00 00 00 00 00 00 00 00 00 00 00 39 27 FF .............9'.
000B80: FF FF FF 11 08 09 A6 04 A6 04 84 04 07 09 01 10 ................
000B90: 08 0F 00 07 01 00 2C 45 4C 4C 49 50 53 45 2E 41 ......,ELLIPSE.A
000BA0: 53 4D 00 00 00 00 00 01 00 0F 00 08 DF 24 FF 5A SM...........$.Z
000BB0: 0D 5A 0D 00 00 00 00 00 00 00 00 00 00 00 00 00 .Z..............
000BC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000BD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000BE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000BF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000C00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000C10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000C20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000C30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000C40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000C50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000C60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000C70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000C80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000C90: 00 00 00 00 00 00 00 54 BA FF FF FF FF 11 0A 09 .......T........
000CA0: 57 04 A6 04 97 04 2D 09 00 10 08 B3 0A 15 08 00 W.....-.........
000CB0: 16 0A 00 EF F0 EF 20 53 65 74 20 41 4D 53 54 52 ...... Set AMSTR
000CC0: 41 44 20 74 6F 20 30 20 69 66 20 75 73 69 6E 67 AD to 0 if using
000CD0: 20 61 20 73 70 65 63 74 72 75 6D 2E F0 EF F0 F1 a spectrum.....
000CE0: 41 4D 53 54 52 41 C4 7A FD 01 EF F0 F7 14 00 EF AMSTRA.z........
000CF0: F0 EF 20 4D 61 63 68 69 6E 65 20 63 6F 64 65 20 .. Machine code
000D00: 65 6C 6C 69 70 73 65 20 64 72 61 77 69 6E 67 20 ellipse drawing
000D10: 72 6F 75 74 69 6E 65 73 2E F0 EF F0 EF 20 45 6E routines..... En
000D20: 74 65 72 20 61 74 20 22 73 74 61 72 74 22 F0 EF ter at "start"..
000D30: F0 EF 20 28 78 6F 29 2C 28 79 6F 29 20 3D 20 63 .. (xo),(yo) = c
000D40: 65 6E 74 72 65 20 6F 66 20 65 6C 6C 69 70 73 65 entre of ellipse
000D50: 2E F0 EF F0 EF 20 28 6D 61 6A 6F 72 29 2C 28 6D ..... (major),(m
000D60: 69 6E 6F 72 29 20 3D 20 74 68 65 20 61 78 65 73 inor) = the axes
000D70: 20 6F 66 20 74 68 65 20 65 6C 6C 69 70 73 65 2E of the ellipse.
000D80: F0 EF F0 F7 1E 00 EF F0 EF 20 4D 75 6C 74 69 70 ......... Multip
000D90: 6C 69 63 61 74 69 6F 6E 20 72 6F 75 74 69 6E 65 lication routine
000DA0: 2E F0 EF F0 EF 20 4D 75 6C 74 69 70 6C 69 65 73 ..... Multiplies
000DB0: 20 53 EE 42 43 20 62 79 20 48 4C 2D 44 45 20 67 S.BC by HL-DE g
000DC0: 69 76 69 6E 67 20 33 32 20 62 69 74 20 72 65 73 iving 32 bit res
000DD0: 75 6C 74 20 69 6E 20 48 4C 2D 49 58 F0 EF F0 F1 ult in HL-IX....
000DE0: 6D 75 6C 33 B2 C0 FD 00 B5 FD 20 F1 6D 75 6C F4 mul3...... .mul.
000DF0: 9D 12 9A 07 6B 0F 6B 0E 90 EC 6E 6F 61 64 E4 9D ....k.k...noad..
000E00: 05 90 EC 6E 6F 61 64 E4 52 07 F1 6E 6F 61 64 E4 ...noad.R..noad.
000E10: 51 0B 8E EC 6D 75 6C F4 66 EF F0 EF F0 F7 28 00 Q...mul.f.....(.
000E20: EF F0 EF 20 57 6F 72 6B 73 70 61 63 65 2E F0 EF ... Workspace...
000E30: F0 EF 20 45 6C 6C 69 70 73 65 20 61 78 65 73 2E .. Ellipse axes.
000E40: F0 EF F0 F1 6D 69 6E 6F F2 77 FD 64 F1 6D 61 6A ....mino.w.d.maj
000E50: 6F F2 77 FD 3C EF F0 EF 20 45 6C 6C 69 70 73 65 o.w.<... Ellipse
000E60: 20 63 65 6E 74 72 65 2E F0 EF F0 F1 78 EF 77 FD centre.....x.w.
000E70: 7F F1 79 EF 77 FD 64 EF F0 EF 20 63 75 72 72 65 ..y.w.d... curre
000E80: 6E 74 20 70 6C 6F 74 20 70 6F 69 6E 74 2E F0 EF nt plot point...
000E90: F0 F1 78 E9 7C FD 02 F1 79 E9 7C FD 02 EF F0 F7 ..x.|...y.|.....
000EA0: 32 00 7E EC 41 4D 53 54 52 41 C4 EF F0 EF 20 4D 2.~.AMSTRA.... M
000EB0: 75 6C 74 27 2E 69 70 6C 69 65 72 20 66 6F 72 20 ult'.iplier for
000EC0: 73 63 72 65 65 6E 20 6D 6F 64 65 20 6F 6E 20 74 screen mode on t
000ED0: 68 65 20 41 4D 53 54 52 41 44 2E F0 EF F0 F1 78 he AMSTRAD.....x
000EE0: 5F 66 61 63 74 6F F2 7C FD 01 EF F0 4F EF F0 F7 _facto.|....O...
000EF0: 3C 00 EF F0 EF 20 57 6F 72 6B 20 76 61 72 69 61 <.... Work varia
000F00: 62 6C 65 73 2E 20 28 53 65 65 20 42 41 53 49 43 bles. (See BASIC
000F10: 20 6C 69 73 74 69 6E 67 29 2E F0 EF F0 F1 61 B2 listing).....a.
000F20: 7C FD 04 F1 61 32 F3 7C FD 04 F1 62 B2 7C FD 04 |...a2.|...b.|..
000F30: F1 62 32 F3 7C FD 04 EF F0 F1 44 45 4C 54 41 E9 .b2.|.....DELTA.
000F40: 7C FD 04 EF F0 F7 46 00 EF F0 EF 20 45 6E 74 72 |.....F.... Entr
000F50: 79 20 70 6F 69 6E 74 2E F0 EF 20 54 79 70 65 20 y point... Type
000F60: 22 45 58 45 43 55 54 45 20 73 74 61 72 74 22 20 "EXECUTE start"
000F70: 66 72 6F 6D 20 47 45 4E 49 55 53 27 20 65 64 69 from GENIUS' edi
000F80: 74 6F 72 2E F0 EF F0 F7 50 00 F1 73 74 61 72 F4 tor.....P..star.
000F90: EF F0 EF 20 53 65 74 20 74 68 65 20 6F 72 69 67 ... Set the orig
000FA0: 69 6E 20 6F 6E 20 74 68 65 20 41 4D 53 54 52 41 in on the AMSTRA
000FB0: 44 2E F0 EF F0 3B CD 7E EC 41 4D 53 54 52 41 C4 D....;.~.AMSTRA.
000FC0: BD 2B EC 79 EF EE 20 4E 6F 74 65 20 3A 20 74 68 .+.y.. Note : th
000FD0: 69 73 20 69 73 20 69 6E 20 73 74 61 6E 64 61 72 is is in standar
000FE0: 64 20 63 6F 2D 6F 72 64 69 6E 61 74 65 73 2E F0 d co-ordinates..
000FF0: BE 2B EC 78 EF 55 EC 47 52 41 5F 53 45 54 5F 4F .+.x.U.GRA_SET_O
001000: 52 49 47 49 CE EF F0 F7 5A 00 EF F0 EF 20 43 61 RIGI....Z.... Ca
001010: 6C 63 75 6C 61 74 65 20 74 68 65 20 73 63 72 65 lculate the scre
001020: 65 6E 20 6D 6F 64 65 20 65 78 70 61 6E 73 69 6F en mode expansio
001030: 6E 20 66 61 63 74 6F 72 20 28 41 4D 53 54 52 41 n factor (AMSTRA
001040: 44 29 2E F0 EF F0 55 EC 53 43 52 5F 47 45 54 5F D)....U.SCR_GET_
001050: 4D 4F 44 C5 61 FD 03 4D B4 EC 78 5F 66 61 63 74 MOD.a..M..x_fact
001060: 6F F2 0B EF F0 F7 64 00 EF F0 EF 20 41 64 6A 75 o.....d.... Adju
001070: 73 74 20 65 6C 6C 69 70 73 65 20 78 2D 61 78 69 st ellipse x-axi
001080: 73 2E F0 EF F0 B6 0B BE 2B EC 6D 69 6E 6F F2 54 s.......+.mino.T
001090: EC 73 74 65 78 70 6C 6F F0 F1 65 78 70 6C 6F F0 .stexplo..explo.
0010A0: 70 10 6D 11 F1 73 74 65 78 70 6C 6F F0 65 EC 65 p.m..stexplo.e.e
0010B0: 78 70 6C 6F F0 EF F0 83 80 EF 20 48 4C 20 3D 20 xplo...... HL =
0010C0: 63 6F 72 72 65 63 74 65 64 20 28 70 69 78 65 6C corrected (pixel
0010D0: 20 63 6F 2D 6F 72 64 69 6E 61 74 65 29 20 61 78 co-ordinate) ax
0010E0: 69 73 2E F0 EF F0 B4 EC 6D 69 6E 6F F2 07 EF F0 is......mino....
0010F0: 4F EF F0 F7 6E 00 BE FD 00 B4 EC 78 E9 07 EF 20 O...n......x...
001100: F0 BE 2B EC 6D 61 6A 6F F2 EF F0 EF 20 52 65 64 ..+.majo.... Red
001110: 75 63 65 20 74 68 65 20 79 2D 61 78 69 73 20 28 uce the y-axis (
001120: 41 4D 53 54 52 41 44 29 20 74 6F 20 67 69 76 65 AMSTRAD) to give
001130: 20 70 69 78 65 6C 20 63 6F 2D 6F 72 64 69 6E 61 pixel co-ordina
001140: 74 65 73 2E F0 EF F0 7E EC 41 4D 53 54 52 41 C4 tes....~.AMSTRA.
001150: EF F0 70 10 6D 11 B4 EC 6D 61 6A 6F F2 07 EF F0 ..p.m...majo....
001160: 4F EF F0 B4 EC 79 E9 07 EF F0 F7 78 00 EF F0 EF O....y.....x....
001170: 20 49 6E 69 74 69 61 6C 69 73 65 20 77 6F 72 6B Initialise work
001180: 20 76 61 72 69 61 62 6C 65 73 2E F0 EF F0 B6 10 variables......
001190: EE 20 20 20 20 20 20 61 32 3D 61 2A 61 F0 B7 11 . a2=a*a...
0011A0: BD FD 00 55 EC 6D 75 6C 33 B2 B4 EC 61 B2 12 B4 ...U.mul3...a...
0011B0: EC 61 B2 D5 FD 02 07 EF F0 80 66 B4 EC 61 32 F3 .a........f..a2.
0011C0: 12 EE 20 61 32 73 3D 61 32 F0 B4 EC 61 32 F3 D5 .. a2s=a2...a2..
0011D0: FD 02 07 EF F0 F7 82 00 BE 2B EC 6D 69 6E 6F F2 .........+.mino.
0011E0: EE 20 62 32 3D 62 2A 62 F0 B6 10 B7 11 BD FD 00 . b2=b*b........
0011F0: 55 EC 6D 75 6C 33 B2 B4 EC 62 B2 12 B4 EC 62 32 U.mul3...b....b2
001200: F3 07 EF F0 F7 8C 00 BE 2B EC 79 E9 EE 20 62 32 ........+.y.. b2
001210: 73 3D 62 32 2A 28 32 2A 79 69 2B 31 29 F0 9C 07 s=b2*(2*yi+1)...
001220: 52 07 B6 10 B7 11 BE 2B EC 62 B2 BD 2B EC 62 B2 R......+.b..+.b.
001230: D5 FD 02 55 EC 6D 75 6C 33 B2 B4 EC 62 32 F3 12 ...U.mul3...b2..
001240: B4 EC 62 32 F3 D5 FD 02 07 EF F0 F7 96 00 BE FD ..b2............
001250: 01 EE 20 20 20 20 20 20 20 20 44 45 4C 54 41 69 .. DELTAi
001260: 3D 32 2A 28 31 2D 62 29 F0 BD 2B EC 6D 69 6E 6F =2*(1-b)..+.mino
001270: F2 5F 0B A0 06 9C 07 B4 EC 44 45 4C 54 41 E9 07 ._.......DELTA..
001280: BE FE FF FF EE 20 20 20 20 53 69 67 6E 20 65 78 ..... Sign ex
001290: 74 65 6E 64 20 74 6F 20 33 32 20 62 69 74 73 20 tend to 32 bits
0012A0: 28 72 65 71 75 69 72 65 73 20 62 3E 30 29 2E F0 (requires b>0)..
0012B0: B4 EC 44 45 4C 54 41 E9 D5 FD 02 B0 15 07 EF F0 ..DELTA.........
0012C0: F7 A0 00 EF 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A .... ***********
0012D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
0012E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A F0 EF F0 EF 20 4D 61 *********.... Ma
0012F0: 69 6E 20 63 61 6C 63 75 6C 61 74 69 6F 6E 20 6C in calculation l
001300: 6F 6F 70 2E F0 EF F0 EF 20 2A 2A 2A 2A 2A 2A 2A oop..... *******
001310: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
001320: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A F0 EF F0 *************...
001330: EF F0 F7 AA 00 EF F0 F1 6D 61 69 6E 5F 6C 6F 6F ........main_loo
001340: F0 BE 2B EC 79 E9 EE 20 57 68 69 6C 65 20 79 69 ..+.y.. While yi
001350: 3E 30 F0 67 FD 07 10 66 14 EF F0 F7 B4 00 BD 2B >0.g...f.......+
001360: EC 78 E9 EF F0 EF 20 48 4C 20 61 6C 72 65 61 64 .x.... HL alread
001370: 79 20 68 61 73 20 28 79 69 29 2E F0 EF F0 EF 20 y has (yi).....
001380: 50 6C 6F 74 20 66 6F 75 72 20 70 6F 69 6E 74 73 Plot four points
001390: 20 6F 66 20 74 68 65 20 65 6C 6C 69 70 73 65 20 of the ellipse
0013A0: 28 62 79 20 73 79 6D 6D 65 74 72 79 29 2E F0 EF (by symmetry)...
0013B0: 20 57 65 20 61 63 74 75 61 6C 6C 79 20 E4 75 70 We actually .up
0013C0: 6C 6F 74 20 28 78 69 2C 79 69 29 2C 20 28 2D 78 lot (xi,yi), (-x
0013D0: 69 2C 79 69 29 2C 20 28 2D 78 69 2C 2D 79 69 29 i,yi), (-xi,-yi)
0013E0: 2C 20 28 78 69 2C 2D 79 69 29 2E F0 EF F0 EF 20 , (xi,-yi).....
0013F0: 4F 6E 20 74 68 65 20 41 4D 53 54 52 41 44 20 65 On the AMSTRAD e
001400: 78 70 61 6E 64 20 66 6F 72 20 74 68 65 20 70 61 xpand for the pa
001410: 72 74 69 63 75 6C 61 72 20 73 63 72 65 65 6E 20 rticular screen
001420: 6D 6F 64 65 2E F0 EF F0 7E EC 41 4D 53 54 52 41 mode....~.AMSTRA
001430: C4 EF F0 F7 BE 00 EF F0 9C 07 EF F0 B5 2B EC 78 .............+.x
001440: 5F 66 61 63 74 6F F2 B6 0B AA 07 54 EC 73 74 78 _facto.....T.stx
001450: 65 78 F0 F1 78 65 78 F0 9C 07 F1 73 74 78 65 78 ex..xex....stxex
001460: F0 65 EC 78 65 78 F0 AA 07 EF F0 4F EF F0 F7 C8 .e.xex.....O....
001470: 00 63 06 63 06 63 07 55 EC 47 52 41 5F 50 4C 4F .c.c.c.U.GRA_PLO
001480: 54 5F 41 42 53 4F 4C 55 54 C5 EE 20 28 78 69 2C T_ABSOLUT.. (xi,
001490: 79 69 29 F0 F7 D2 00 64 07 64 06 63 07 B5 0E EE yi)....d.d.c....
0014A0: 20 4E 65 67 61 74 65 20 78 69 F0 2D B8 0B B5 0F Negate xi.-....
0014B0: 2D B9 0B 52 06 63 06 55 EC 47 52 41 5F 50 4C D5 -..R.c.U.GRA_PL.
0014C0: B5 FF FF FF FF 11 07 09 A6 04 57 04 82 04 02 09 ..........W.....
0014D0: 01 10 08 0E 00 07 01 00 2C 45 4C 4C 49 50 53 45 ........,ELLIPSE
0014E0: 2E 41 53 4D 00 00 00 00 00 02 FF 0F 5A 05 DF 2C .ASM........Z..,
0014F0: 00 5A 0D 5A 0D 00 00 00 00 00 00 00 00 00 00 00 .Z.Z............
001500: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001510: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001520: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001530: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001540: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001550: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001560: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001570: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001580: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001590: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0015A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0015B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0015C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0015D0: 00 00 00 00 00 00 00 00 00 FC CC FF FF FF FF 11 ................
0015E0: 03 09 A6 04 57 04 91 04 21 09 00 10 08 28 2E 11 ....W...!....(..
0015F0: 06 00 16 4F 54 5F 41 42 53 4F 4C 55 54 C5 EE 20 ...OT_ABSOLUT..
001600: 28 2D 78 69 2C 79 69 29 F0 F7 DC 00 64 06 64 07 (-xi,yi)....d.d.
001610: B5 10 EE 20 4E 65 67 61 74 65 20 79 69 F0 2D BA ... Negate yi.-.
001620: 0B B5 11 2D BB 0B 52 07 63 07 55 EC 47 52 41 5F ...-..R.c.U.GRA_
001630: 50 4C 4F 54 5F 41 42 53 4F 4C 55 54 C5 EE 20 28 PLOT_ABSOLUT.. (
001640: 2D 78 69 2C 2D 79 69 29 F0 F7 E6 00 64 07 64 06 -xi,-yi)....d.d.
001650: 55 EC 47 52 41 5F 50 4C 4F 54 5F 41 42 53 4F 4C U.GRA_PLOT_ABSOL
001660: 55 54 C5 EE 20 28 78 69 2C 2D 79 69 29 F0 EF F0 UT.. (xi,-yi)...
001670: EF F0 F7 F0 00 EF F0 BD 2B EC 44 45 4C 54 41 E9 ........+.DELTA.
001680: EE 20 49 46 20 44 45 4C 54 41 69 3E 30 F0 BE 2B . IF DELTAi>0..+
001690: EC 44 45 4C 54 41 E9 D5 FD 02 55 EC 74 65 73 74 .DELTA....U.test
0016A0: 64 65 68 EC 8D EC 67 6F 64 69 61 E7 90 EC 67 6F deh...godia...go
0016B0: 68 6F 72 69 FA F7 FA 00 BE 2B EC 44 45 4C 54 41 hori.....+.DELTA
0016C0: E9 EE 20 64 65 6C 74 61 3D 44 45 4C 54 41 69 2B .. delta=DELTAi+
0016D0: 44 45 4C 54 41 69 2D 61 32 73 F0 9C 07 AA 07 BE DELTAi-a2s......
0016E0: 2B EC 44 45 4C 54 41 E9 D5 FD 02 9A 07 AA 07 BC +.DELTA.........
0016F0: 2B EC 61 A3 81 32 F3 5F 0B A0 05 AA 07 BC 2B EC +.a£.2._......+.
001700: 61 32 F3 D5 FD 02 A0 05 55 EC 74 65 73 74 64 65 a2......U.testde
001710: 68 EC EE 20 49 46 20 64 65 6C 74 61 3C 3D 30 F0 h.. IF delta<=0.
001720: 8D EC 67 6F 64 69 61 E7 90 EC 67 6F 64 69 61 E7 ..godia...godia.
001730: 55 EC 76 65 72 74 69 63 61 EC 54 EC 6D 61 69 6E U.vertica.T.main
001740: 5F 6C 6F 6F F0 EF F0 F7 04 01 EF F0 EF F0 F1 67 _loo...........g
001750: 6F 68 6F 72 69 FA BE 2B EC 44 45 4C 54 41 E9 EE ohori..+.DELTA..
001760: 20 64 65 6C 74 61 3D 44 45 4C 54 41 69 2B 44 45 delta=DELTAi+DE
001770: 4C 54 41 69 2B 62 32 73 F0 9C 07 AA 07 BE 2B EC LTAi+b2s......+.
001780: 44 45 4C 54 41 E9 D5 FD 02 9A 07 AA 07 BC 2B EC DELTA.........+.
001790: 62 32 F3 9C 05 AA 07 BC 2B EC 62 32 F3 D5 FD 02 b2......+.b2....
0017A0: 9A 05 55 EC 74 65 73 74 64 65 68 EC EE 20 49 46 ..U.testdeh.. IF
0017B0: 20 64 65 6C 74 61 3C 3D 30 F0 8D EC 68 6F 72 69 delta<=0...hori
0017C0: FA 90 EC 68 6F 72 69 FA F7 0E 01 EF F0 EF F0 F1 ...hori.........
0017D0: 67 6F 64 69 61 E7 55 EC 76 65 72 74 69 63 61 EC godia.U.vertica.
0017E0: EE 20 4D 61 6B 65 20 61 20 64 69 61 67 6F 6E 61 . Make a diagona
0017F0: 6C 20 73 74 65 49 E5 70 2E 20 28 47 6F 20 75 70 l steI.p. (Go up
001800: 20 74 68 65 6E 20 61 6C 6F 6E 67 29 2E F0 F1 68 then along)...h
001810: 6F 72 69 FA BE 2B EC 78 E9 EE 20 20 4D 61 6B 65 ori..+.x.. Make
001820: 20 61 20 68 6F 72 69 7A 6F 6E 74 61 6C 20 73 74 a horizontal st
001830: 65 70 2E F0 52 07 B4 EC 78 E9 07 EF F0 F7 18 01 ep..R...x.......
001840: EF F0 EF F0 EF 20 61 32 73 3D 61 32 73 2B 61 32 ..... a2s=a2s+a2
001850: 2B 61 32 F0 EF F0 B6 FD 02 F1 69 6E 63 61 32 73 +a2.......inca2s
001860: B1 BE 2B EC 61 32 F3 BD 2B EC 61 B2 9C 06 B4 EC ..+.a2..+.a.....
001870: 61 32 F3 07 BE 2B EC 61 32 F3 D5 FD 02 BD 2B EC a2...+.a2.....+.
001880: 61 B2 D5 FD 02 9A 06 B4 EC 61 32 F3 D5 FD 02 07 a........a2.....
001890: 65 EC 69 6E 63 61 32 73 B1 EF F0 F7 22 01 EF F0 e.inca2s...."...
0018A0: EF 20 44 45 4C 54 41 69 3D 44 45 4C 54 41 69 2B . DELTAi=DELTAi+
0018B0: 61 32 73 F0 EF F0 63 07 BE 2B EC 44 45 4C 54 41 a2s...c..+.DELTA
0018C0: E9 BD 2B EC 61 32 F3 9C 06 B4 EC 44 45 4C 54 41 ..+.a2.....DELTA
0018D0: E9 07 BE 2B EC 44 45 4C 54 41 E9 D5 FD 02 64 06 ...+.DELTA....d.
0018E0: 9A 06 B4 EC 44 45 4C 54 41 E9 D5 FD 02 07 53 EC ....DELTA.....S.
0018F0: 6D 61 69 6E 5F 6C 6F A0 9E 6F F0 EF F0 EF F0 F7 main_lo..o......
001900: 2C 01 EF F0 EF F0 F1 76 65 72 74 69 63 61 EC BE ,......vertica..
001910: 2B EC 79 E9 EE 20 4D 61 6B 65 20 61 20 76 65 72 +.y.. Make a ver
001920: 74 69 63 61 6C 20 73 74 65 70 2E F0 51 07 B4 EC tical step..Q...
001930: 79 E9 07 EF F0 F7 36 01 EF F0 EF 20 62 32 73 3D y.....6.... b2s=
001940: 62 32 73 2D 62 32 2D 62 32 F0 EF F0 B6 FD 02 F1 b2s-b2-b2.......
001950: 64 65 63 62 32 73 B1 BE 2B EC 62 32 F3 BD 2B EC decb2s..+.b2..+.
001960: 62 B2 5F 0B A0 06 B4 EC 62 32 F3 07 BE 2B EC 62 b._.....b2...+.b
001970: 32 F3 D5 FD 02 BD 2B EC 62 B2 D5 FD 02 A0 06 B4 2.....+.b.......
001980: EC 62 32 F3 D5 FD 02 07 65 EC 64 65 63 62 32 73 .b2.....e.decb2s
001990: B1 EF F0 F7 40 01 EF F0 EF 20 44 45 4C 54 41 69 ....@.... DELTAi
0019A0: 3D 44 45 4C 54 41 69 2D 62 32 73 F0 EF F0 63 07 =DELTAi-b2s...c.
0019B0: BE 2B EC 44 45 4C 54 41 E9 BD 2B EC 62 32 F3 5F .+.DELTA..+.b2._
0019C0: 0B A0 06 B4 EC 44 45 4C 54 41 E9 07 BE 2B EC 44 .....DELTA...+.D
0019D0: 45 4C 54 41 E9 D5 FD 02 64 06 A0 06 B4 EC 44 45 ELTA....d.....DE
0019E0: 4C 54 41 E9 D5 FD 02 07 66 EF F0 EF F0 F7 4A 01 LTA.....f.....J.
0019F0: EF F0 EF 20 54 65 73 74 20 2A BE 74 68 65 20 33 ... Test *.the 3
001A00: 32 2D 62 69 74 20 6E 75 6D 62 65 72 20 69 6E 20 2-bit number in
001A10: 48 4C 2D 44 45 20 66 6F 72 20 69 74 73 20 73 69 HL-DE for its si
001A20: 67 6E 2E F0 EF F0 F1 74 65 73 74 64 65 68 EC 5F gn.....testdeh._
001A30: 0B 67 FD 07 10 66 14 EE 20 4E 43 2C 20 4E 5A 20 .g...f.. NC, NZ
001A40: 6D 65 61 6E 73 20 6C 65 73 73 20 74 68 61 6E 20 means less than
001A50: 7A 65 72 6F 2E F0 B5 0E 5F 0F 38 66 14 EE 20 43 zero...._.8f.. C
001A60: 2C 20 4E 5A 20 6D 65 61 6E 73 20 67 72 65 61 74 , NZ means great
001A70: 65 72 20 74 68 65 6E 20 7A 65 72 6F 2E F0 B5 10 er then zero....
001A80: 5F 11 38 66 EF F0 F7 54 01 EF F0 EF 20 41 4D 53 _.8f...T.... AMS
001A90: 54 52 41 44 20 66 69 72 6D 77 61 72 65 20 72 6F TRAD firmware ro
001AA0: 75 74 69 6E 65 20 63 61 6C 6C 73 2E F0 EF F0 7E utine calls....~
001AB0: EC 41 4D 53 54 52 41 C4 EF F0 F1 47 52 41 5F 53 .AMSTRA....GRA_S
001AC0: 45 54 5F 4F 52 49 47 49 CE 7A FE C9 BB F1 47 52 ET_ORIGI.z....GR
001AD0: 41 5F 50 4C 4F 54 5F 41 42 53 4F 4C 55 54 C5 7A A_PLOT_ABSOLUT.z
001AE0: FE EA BB F1 53 43 52 5F 47 45 54 5F 4D 4F 44 C5 ....SCR_GET_MOD.
001AF0: 7A FE 11 BC EF F0 4E EF F0 EF 20 BC 25 53 70 65 z.....N... .%Spe
001B00: 63 74 72 75 6D 20 70 6C 6F 74 20 72 6F 75 74 69 ctrum plot routi
001B10: 6E 65 2E F0 EF F0 F1 47 52 41 5F 50 4C 4F 54 5F ne.....GRA_PLOT_
001B20: 41 42 53 4F 4C 55 54 C5 B5 2B EC 78 EF 9B 0F B7 ABSOLUT..+.x....
001B30: 0B B5 2B EC 79 EF 9B 11 B6 0B 53 FE E5 22 EE 20 ..+.y.....S..".
001B40: 52 4F 4D 20 70 6C 6F 74 20 72 6F 75 74 69 6E 65 ROM plot routine
001B50: F0 EF F0 EF F0 4F F7 00 00 00 00 00 00 00 00 00 .....O..........
001B60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001B70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001B80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001B90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001BA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001BB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001BC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001BD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001BE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001BF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 11 CB FF ................
001C00: FF FF FF 11 07 09 A6 04 A6 04 84 04 07 09 01 10 ................
001C10: 08 0E 00 07 01 00 2C 45 4C 4C 49 50 53 45 2E 50 ......,ELLIPSE.P
001C20: 48 58 00 00 00 00 00 01 00 0F 00 08 DF 24 FF 5B HX...........$.[
001C30: 0B 5B 0B 00 00 00 00 00 00 00 00 00 00 00 00 00 .[..............
001C40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001C50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001C60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001C70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001C80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001C90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001CA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001CB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001CC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001CD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001CE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001CF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001D00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001D10: 00 00 00 00 00 00 00 7D 9B FF FF FF FF 11 06 09 .......}........
001D20: 57 04 A6 04 96 04 2C 09 01 10 08 98 0A 15 08 00 W.....,.........
001D30: 16 00 00 F5 84 1E F7 0A 00 EF F0 EF 20 53 65 74 ............ Set
001D40: 20 41 4D 53 54 52 41 44 20 74 6F 20 30 20 66 6F AMSTRAD to 0 fo
001D50: 72 20 75 73 65 20 6F 6E 20 74 68 65 20 53 50 45 r use on the SPE
001D60: 43 54 52 55 4D 2E F0 EF F0 F1 41 4D 53 54 52 41 CTRUM.....AMSTRA
001D70: C4 7A FD 01 EF F0 F7 14 00 EF F0 EF 20 50 48 4F .z.......... PHO
001D80: 45 4E 49 58 20 65 6C 6C 69 70 73 65 20 64 72 61 ENIX ellipse dra
001D90: 77 69 6E 67 20 72 6F 75 74 69 6E 65 73 2E F0 EF wing routines...
001DA0: F0 EF 20 4F 6E 20 65 6E 74 72 79 3A F0 EF F0 EF .. On entry:....
001DB0: 20 6D 61 6A 6F 72 20 3D 20 78 20 73 65 6D 69 2D major = x semi-
001DC0: 61 78 69 73 20 6F 66 20 65 6C 6C 69 70 73 65 2E axis of ellipse.
001DD0: F0 EF 20 6D 69 6E 6F 72 20 3D 20 79 20 73 65 6D .. minor = y sem
001DE0: 69 2D 61 78 69 73 20 6F 66 20 65 6C 6C 69 70 73 i-axis of ellips
001DF0: 65 2E F0 EF 20 78 73 20 20 20 20 3D 20 78 20 63 e... xs = x c
001E00: 6F 2D 6F 72 64 69 6E 61 74 65 20 6F 66 20 63 65 o-ordinate of ce
001E10: 6E 74 72 65 2E F0 EF 20 79 73 20 20 20 20 3D 20 ntre... ys =
001E20: 79 20 63 6F 2D 6F 72 64 69 6E 61 74 65 20 6F 66 y co-ordinate of
001E30: 20 DB 05 63 65 6E 74 72 65 2E F0 EF F0 F7 1E 00 ..centre.......
001E40: F1 6D 69 6E 6F F2 F6 0F 01 FD 46 F1 6D 61 6A 6F .mino.....F.majo
001E50: F2 F6 0F 01 FD 64 EF F0 F1 78 F3 F6 0E 01 FD 01 .....d...x......
001E60: F1 79 F3 F6 0E 01 FD 01 EF F0 F1 78 E9 F6 0E 01 .y.........x....
001E70: FD 01 F1 79 E9 F6 0E 01 FD 01 EF F0 F7 28 00 EF ...y.........(..
001E80: F0 EF 20 53 65 74 20 74 68 65 20 70 72 65 63 69 .. Set the preci
001E90: 73 69 6F 6E 20 66 6F 72 20 6D 75 6C 74 69 70 6C sion for multipl
001EA0: 65 20 70 72 65 63 69 73 69 6F 6E 20 72 6F 75 74 e precision rout
001EB0: 69 6E 65 73 2E F0 EF F0 F1 70 72 65 63 69 73 69 ines.....precisi
001EC0: 6F EE 7A FD 04 EF F0 F7 32 00 EF F0 EF 20 49 6E o.z.....2.... In
001ED0: 63 6C 75 64 65 20 74 68 65 20 6D 75 6C 74 69 70 clude the multip
001EE0: 6C 65 20 70 72 65 63 69 73 69 6F 6E 20 73 6F 75 le precision sou
001EF0: 72 63 65 2E F0 EF F0 F5 87 ED 4D 50 41 46 4E 43 rce.......MPAFNC
001F00: 53 2E 50 48 58 00 EF F0 F7 3C 00 EF F0 EF 20 4D S.PHX....<.... M
001F10: 75 6C 74 69 70 6C 65 20 70 72 65 63 69 73 69 6F ultiple precisio
001F20: 6E 20 77 6F 72 6B 73 70 61 63 65 2E F0 EF F0 F1 n workspace.....
001F30: 61 B2 7C 3D 22 EC 70 72 65 63 69 73 69 6F EE F1 a.|=".precisio..
001F40: 62 B2 7C EC 70 72 65 63 69 73 69 6F EE F1 61 32 b.|.precisio..a2
001F50: F3 7C EC 70 72 65 63 69 73 69 6F EE F1 62 32 F3 .|.precisio..b2.
001F60: 7C EC 70 72 65 63 69 73 69 6F EE EF F0 F1 44 45 |.precisio....DE
001F70: 4C 54 41 E9 7C EC 70 72 65 63 69 73 69 6F EE F1 LTA.|.precisio..
001F80: 64 65 6C 74 E1 7C EC 70 72 65 63 69 73 69 6F EE delt.|.precisio.
001F90: EF F0 F1 6C 6F 6E 67 2E 7A 65 72 EF 7C EC 70 72 ...long.zer.|.pr
001FA0: 65 63 69 73 69 6F EE EF F0 F1 6C 6F 6E 67 2E 6F ecisio....long.o
001FB0: 6E E5 74 FD 01 7C EC 70 72 65 63 69 73 69 6F EE n.t..|.precisio.
001FC0: D6 FD 01 EF F0 F7 46 00 EF F0 EF 20 45 6C 6C 69 ......F.... Elli
001FD0: 70 73 65 20 77 6F 72 6B 20 66 75 6E 63 74 69 6F pse work functio
001FE0: 6E 73 2E F0 EF F0 F7 50 00 EF F0 EF 20 4D 61 6B ns.....P.... Mak
001FF0: 65 20 61 20 76 65 72 74 69 63 61 6C 20 28 64 6F e a vertical (do
002000: 77 6E 77 61 72 64 73 29 20 73 74 65 70 2E F0 EF wnwards) step...
002010: F0 F1 76 65 72 74 69 63 61 EC F6 0A 01 F6 0B F6 ..vertica.......
002020: 01 C6 EC 79 E9 F6 01 EC 6D 70 61 2E 73 75 E2 D3 ...y....mpa.su..
002030: EC 62 32 F3 D2 42 E8 EC 62 32 F3 D2 EC 62 B2 CC .b2..B..b2...b..
002040: EE 20 20 20 20 20 20 20 20 62 32 73 3D 62 32 73 . b2s=b2s
002050: 2D 62 32 2D 62 32 F0 F6 01 EC 6D 70 61 2E 73 75 -b2-b2....mpa.su
002060: E2 D3 EC 62 32 F3 D2 EC 62 32 F3 D2 EC 62 B2 CC ...b2...b2...b..
002070: F6 01 EC 6D 70 61 2E 73 75 E2 D3 EC 44 45 4C 54 ...mpa.su...DELT
002080: 41 E9 D2 EC 44 45 4C 54 41 E9 D2 EC 62 32 F3 CC A...DELTA...b2..
002090: EE 20 44 45 4C 54 41 69 3D 44 45 4C 54 41 69 2D . DELTAi=DELTAi-
0020A0: 62 32 73 F0 F6 0C EF F0 F7 5A 00 EF F0 EF 20 4D b2s......Z.... M
0020B0: 61 6B 65 20 61 20 68 6F 72 69 7A 6F 6E 74 61 6C ake a horizontal
0020C0: 20 28 72 69 67 68 74 29 20 73 74 65 70 2E F0 EF (right) step...
0020D0: F0 F1 68 6F 72 69 7A 6F 6E 74 61 EC F6 0A 01 F6 ..horizonta.....
0020E0: 0B F6 01 C5 EC 78 E9 F6 01 EC 6D 70 61 2E 61 64 .....x....mpa.ad
0020F0: E4 D3 EC 61 32 F3 D2 EC 61 32 F3 D2 EC 61 B2 CC ...a2...a2...a..
002100: EE 20 61 32 73 3D 61 32 73 2B 61 32 2B 61 32 F0 . a2s=a2s+a2+a2.
002110: F6 01 EC 6D 70 61 2E 61 64 E4 D3 EC 61 32 F3 D2 ...mpa.ad...a2..
002120: EC 61 32 F3 D2 EC 61 B2 CC F6 01 EC 6D 70 61 2E .a2...a.....mpa.
002130: 61 64 E4 D3 EC 44 45 B3 C6 4C 54 41 E9 D2 EC 44 ad...DE..LTA...D
002140: 45 4C 54 41 E9 D2 EC 61 32 F3 CC EE 20 44 45 4C ELTA...a2... DEL
002150: 54 41 69 3D 44 45 4C 54 41 69 2B 61 32 73 F0 F6 TAi=DELTAi+a2s..
002160: 0C EF F0 F7 64 00 EF F0 EF 20 4D 61 6B 65 20 61 ....d.... Make a
002170: 20 64 69 61 67 6F 6E 61 6C 20 73 74 65 70 2E F0 diagonal step..
002180: EF F0 F1 64 69 61 67 6F 6E 61 EC F6 0A 01 F6 0B ...diagona......
002190: F6 01 EC 68 6F 72 69 7A 6F 6E 74 61 EC D3 CD F6 ...horizonta....
0021A0: 01 EC 76 65 72 74 69 63 61 EC D3 CD F6 0C EF F0 ..vertica.......
0021B0: EF F0 F7 6E 00 EF F0 EF 20 44 65 63 69 73 69 6F ...n.... Decisio
0021C0: 6E 20 66 75 6E 63 74 69 6F 6E 3B 20 67 6F 20 64 n function; go d
0021D0: 69 61 67 6F 6E 61 6C 6C 79 20 6F 72 20 68 6F 72 iagonally or hor
0021E0: 69 7A 6F 6E 74 61 6C 6C 79 20 3F F0 EF F0 F1 74 izontally ?....t
0021F0: 65 73 74 5F 68 6F 72 69 7A 6F 6E 74 61 EC F6 0A est_horizonta...
002200: 01 F6 0B F6 01 EC 6D 70 61 2E 61 64 E4 D3 EC 64 ......mpa.ad...d
002210: 65 6C 74 E1 D2 EC 44 45 4C 54 41 E9 D2 EC 44 45 elt...DELTA...DE
002220: 4C 54 41 E9 CC EE 20 64 65 6C 74 61 3D 44 45 4C LTA... delta=DEL
002230: 54 41 69 2B 44 45 4C 54 41 D1 E7 69 2B 62 32 73 TAi+DELTA..i+b2s
002240: F0 F6 01 EC 6D 70 61 2E 61 64 E4 D3 EC 64 65 6C ....mpa.ad...del
002250: 74 E1 D2 EC 64 65 6C 74 E1 D2 EC 62 32 F3 CC EF t...delt...b2...
002260: F0 F6 05 EC 6D 70 61 2E 73 69 67 EE D3 EC 64 65 ....mpa.sig...de
002270: 6C 74 E1 CC E1 FD 00 F6 01 EC 64 69 61 67 6F 6E lt........diagon
002280: 61 EC D3 CD F6 08 F6 01 EC 68 6F 72 69 7A 6F 6E a........horizon
002290: 74 61 EC D3 CD F6 09 F6 0C EF F0 F7 78 00 EF F0 ta..........x...
0022A0: EF 20 52 4F 4D 20 65 6E 74 72 69 65 73 20 66 6F . ROM entries fo
0022B0: 72 20 70 6C 6F 74 74 69 6E 67 20 70 6F 69 6E 74 r plotting point
0022C0: 73 2E F0 EF F0 7E EC 41 4D 53 54 52 41 C4 EF F0 s....~.AMSTRA...
0022D0: F1 47 52 41 5F 50 4C 4F 54 5F 41 42 53 4F 4C 55 .GRA_PLOT_ABSOLU
0022E0: 54 C5 7A FE EA BB F1 47 52 41 5F 53 45 54 5F 4F T.z....GRA_SET_O
0022F0: 52 49 47 49 CE 7A FE C9 BB EF F0 4E EF F0 EF 20 RIGI.z.....N...
002300: 4F 72 69 67 69 6E 20 73 65 74 20 61 74 20 28 31 Origin set at (1
002310: 32 37 2C 31 30 30 29 20 6F 6E 20 74 68 65 20 53 27,100) on the S
002320: 50 45 43 54 52 55 4D 2E F0 EF F0 F1 47 52 41 5F PECTRUM.....GRA_
002330: 50 4C 4F 54 5F 41 42 53 4F 4C 55 81 02 54 C5 B5 PLOT_ABSOLU..T..
002340: 0F 9B FD 7F B7 0B B5 11 9B FD 64 B6 0B 53 FE E5 ..........d..S..
002350: 22 EE 20 52 4F 4D 20 70 6C 6F 74 20 72 6F 75 74 ". ROM plot rout
002360: 69 6E 65 2E F0 EF F0 4F EF F0 F7 82 00 EF F0 EF ine....O........
002370: 20 50 6C 6F 74 20 61 20 73 69 6E 67 6C 65 20 70 Plot a single p
002380: 6F 69 6E 74 2E F0 EF F0 F1 70 6C 6F F4 F6 0A 01 oint.....plo....
002390: F1 78 F0 F6 0D 01 F1 79 F0 F6 0D 01 F6 0B F6 01 .x.....y........
0023A0: EC 78 F0 63 07 F6 01 EC 79 F0 64 06 55 EC 47 52 .x.c....y.d.U.GR
0023B0: 41 5F 50 4C 4F 54 5F 41 42 53 4F 4C 55 54 C5 F6 A_PLOT_ABSOLUT..
0023C0: 0C EF F0 F7 8C 00 EF F0 EF 20 50 6C 6F 74 20 66 ......... Plot f
0023D0: 6F 75 72 20 70 6F 69 6E 74 73 20 6F 66 20 74 68 our points of th
0023E0: 65 20 65 6C 6C 69 70 73 65 20 28 62 79 20 73 79 e ellipse (by sy
0023F0: 6D 6D 65 74 72 79 29 2E F0 EF F0 F1 70 6C 6F 74 mmetry).....plot
002400: B4 F6 0A 01 F1 78 F0 F6 0D 01 F1 79 F0 F6 0D 01 .....x.....y....
002410: F6 0B F6 01 EC 70 6C 6F F4 D3 EC 78 F0 D2 EC 79 .....plo...x...y
002420: F0 CC F6 01 EC 70 6C 6F F4 D3 CA EC 78 F0 D2 EC .....plo....x...
002430: 79 F0 CC F6 01 EC 70 6C 6F F4 D3 CA EC 20 6E 78 y.....plo.... nx
002440: F0 D2 CA EC 79 F0 CC F6 01 EC 70 6C 6F F4 D3 EC ....y.....plo...
002450: 78 F0 D2 CA EC 79 F0 CC F6 0C EF F0 F7 96 00 EF x....y..........
002460: F0 EF 20 49 6E 69 74 69 61 6C 69 73 65 20 6C 6F .. Initialise lo
002470: 6E 67 20 76 61 72 69 61 62 6C 65 73 2E F0 EF F0 ng variables....
002480: EF 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A .***************
002490: F0 EF 20 45 6E 74 72 79 20 70 6F 69 6E 74 2E F0 .. Entry point..
0024A0: EF 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A .***************
0024B0: F0 F1 73 74 61 72 F4 F6 10 EE 20 20 20 53 65 74 ..star.... Set
0024C0: 20 50 48 4F 45 4E 49 58 20 73 74 61 63 6B 20 61 PHOENIX stack a
0024D0: 6E 64 20 66 6C 61 67 20 62 79 74 65 2E F0 EF F0 nd flag byte....
0024E0: 7E EC 41 4D 53 54 52 41 C4 BE FD C8 BD FD C8 55 ~.AMSTRA.......U
0024F0: EC 47 52 41 5F 53 45 54 5F 4F 52 49 47 49 CE 4F .GRA_SET_ORIGI.O
002500: EF F0 F7 A0 00 EF F0 F6 01 EC 78 E9 D1 FD 00 F6 ..........x.....
002510: 01 EC 79 E9 D1 EC 6D 61 6A 6F F2 EF F0 F6 01 EC ..y...majo......
002520: 6D 70 61 2E 65 78 74 65 6E E4 D3 EC 61 B2 D2 C4 mpa.exten...a...
002530: EC 6D 61 6A 6F F2 CC EE 20 61 32 3D 61 2A 61 8F .majo... a2=a*a.
002540: BA FF FF FF FF 11 08 09 A6 04 57 04 84 04 07 09 ..........W.....
002550: 01 10 08 0E 00 07 01 00 2C 45 4C 4C 49 50 53 45 ........,ELLIPSE
002560: 2E 50 48 58 00 00 00 00 00 02 FF 0F 5B 03 DF 2C .PHX........[..,
002570: 00 5B 0B 5B 0B 00 00 00 00 00 00 00 00 00 00 00 .[.[............
002580: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002590: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0025A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0025B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0025C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0025D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0025E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0025F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002600: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002610: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002620: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002630: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002640: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002650: 00 00 00 00 00 00 00 00 00 4E E2 FF FF FF FF 11 .........N......
002660: 0A 09 A6 04 57 04 93 04 26 09 00 10 08 C6 31 0D ....W...&.....1.
002670: 04 00 16 F0 F6 01 EC 6D 70 61 2E 6D 75 EC D3 EC .......mpa.mu...
002680: 61 B2 D2 EC 61 B2 D2 EC 61 B2 CC EF F0 F6 01 EC a...a...a.......
002690: 6D 70 61 2E 65 78 74 65 6E E4 D3 EC 62 B2 D2 C4 mpa.exten...b...
0026A0: EC 6D 69 6E 6F F2 CC EE 20 62 32 3D 62 2A 62 F0 .mino... b2=b*b.
0026B0: F6 01 EC 6D 70 61 2E 6D 75 EC D3 EC 62 B2 D2 EC ...mpa.mu...b...
0026C0: 62 B2 D2 EC 62 B2 CC EF F0 F7 AA 00 EF F0 F6 01 b...b...........
0026D0: EC 6D 70 61 2E 61 64 E4 D3 EC 61 32 F3 D2 EC 61 .mpa.ad...a2...a
0026E0: B2 D2 EC 6C 6F 6E 67 2E 7A 65 72 EF CC EE 20 61 ...long.zer... a
0026F0: 32 73 3D 61 32 F0 F6 01 EC 6D 70 61 2E 65 78 74 2s=a2....mpa.ext
002700: 65 6E E4 D3 EC 62 32 F3 D2 C4 EC 79 E9 CC EE 20 en...b2....y...
002710: 62 32 73 3D 62 32 2A 28 32 2A 79 69 2B 31 29 F0 b2s=b2*(2*yi+1).
002720: F6 01 EC 6D 70 61 2E 61 64 E4 D3 EC 62 32 F3 D2 ...mpa.ad...b2..
002730: EC 62 32 F3 D2 EC 62 32 F3 CC F6 01 EC 6D 70 61 .b2...b2.....mpa
002740: 2E 61 64 E4 D3 EC 62 32 F3 D2 EC 62 32 F3 D2 EC .ad...b2...b2...
002750: 6C 6F 6E 67 2E 6F 6E E5 CC F6 01 EC 6D 70 61 2E long.on.....mpa.
002760: 6D 75 EC D3 EC 62 32 F3 D2 EC 62 B2 D2 EC 62 32 mu...b2...b...b2
002770: F3 CC EF D3 93 F0 F7 B4 00 EF F0 F6 01 EC 6D 70 ..............mp
002780: 61 2E 65 78 74 65 6E E4 D3 EC 44 45 4C 54 41 E9 a.exten...DELTA.
002790: D2 C4 EC 6D 69 6E 6F F2 CC EE 20 44 45 4C 54 41 ...mino... DELTA
0027A0: 69 3D 32 2A 28 31 2D 62 29 F0 F6 01 EC 6D 70 61 i=2*(1-b)....mpa
0027B0: 2E 73 75 E2 D3 EC 44 45 4C 54 41 E9 D2 EC 6C 6F .su...DELTA...lo
0027C0: 6E 67 2E 6F 6E E5 D2 EC 44 45 4C 54 41 E9 CC F6 ng.on...DELTA...
0027D0: 01 EC 6D 70 61 2E 61 64 E4 D3 EC 44 45 4C 54 41 ..mpa.ad...DELTA
0027E0: E9 D2 EC 44 45 4C 54 41 E9 D2 EC 44 45 4C 54 41 ...DELTA...DELTA
0027F0: E9 CC EF F0 F7 BE 00 EF F0 EF 2A 2A 2A 2A 2A 2A ..........******
002800: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
002810: 2A 2A F0 EF 20 4D 61 69 6E 20 6C 6F 6F 70 2E F0 **.. Main loop..
002820: EF 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A .***************
002830: 2A 2A 2A 2A 2A 2A 2A 2A 2A F0 EF F0 F6 04 EC 79 *********......y
002840: E9 E1 FD 00 EF F0 F6 01 EC 70 6C 6F 74 B4 D3 EC .........plot...
002850: 78 E9 D2 EC 79 E9 CC EF F0 F7 C8 00 EF F0 F6 05 x...y...........
002860: EC 6D 70 61 2E 73 69 67 EE D3 EC 44 45 4C 54 41 .mpa.sig...DELTA
002870: E9 CC E1 FD 00 22 D6 EF F0 F6 01 EC 6D 70 61 2E ....."......mpa.
002880: 61 64 E4 D3 EC 64 65 6C 74 E1 D2 EC 44 45 4C 54 ad...delt...DELT
002890: 41 E9 D2 EC 44 45 4C 54 41 E9 CC EE 20 64 65 6C A...DELTA... del
0028A0: 74 61 3D 44 45 4C 54 41 69 2B 44 45 4C 54 41 69 ta=DELTAi+DELTAi
0028B0: 2D 61 32 F0 F6 01 EC 6D 70 61 2E 73 75 E2 D3 EC -a2....mpa.su...
0028C0: 64 65 6C 74 E1 D2 EC 64 65 6C 74 E1 D2 EC 61 B2 delt...delt...a.
0028D0: CC EF F0 F7 D2 00 F6 05 EC 6D 70 61 2E 73 69 67 .........mpa.sig
0028E0: EE D3 EC 64 65 6C 74 E1 CC E1 FD 00 F6 01 EC 76 ...delt........v
0028F0: 65 72 74 69 63 61 EC D3 CD F6 08 F6 01 EC 64 69 ertica........di
002900: 61 67 6F 6E 61 EC D3 CD F6 09 EF F0 F7 DC 00 F6 agona...........
002910: 08 EF F0 F7 E6 00 EF F0 F6 05 EC 6D 70 61 2E 73 ...........mpa.s
002920: 69 67 EE D3 EC 44 45 4C 54 41 E9 CC DC FD 00 EF ig...DELTA......
002930: F0 F6 01 EC 64 69 61 67 6F 6E 61 EC D3 CD F6 08 ....diagona.....
002940: F6 01 EC 74 65 73 74 5F 68 6F 72 69 7A 6F 6E 74 ...test_horizont
002950: 61 EC D3 CD EF F0 F6 09 EF F0 F6 09 EF F0 F7 F0 a...............
002960: 00 EF 20 45 6E 64 20 6F 66 20 6D 61 69 6E 20 6C .. End of main l
002970: 6F 6F 70 2E F0 EF F0 48 9C F6 07 EF F0 EF 20 52 oop....H...... R
002980: 65 70 6C 61 63 65 20 73 74 61 63 6B 20 70 6F 69 eplace stack poi
002990: 6E 74 65 72 2E F0 EF F0 C3 12 66 EF F0 F7 FA 00 nter......f.....
0029A0: EF F0 EF 20 49 6E 63 6C 75 64 65 20 61 6E 79 20 ... Include any
0029B0: 50 48 4F 45 4E 49 58 20 6C 69 62 72 61 72 79 20 PHOENIX library
0029C0: 72 6F 75 74 69 6E 65 73 20 75 73 65 64 2E F0 EF routines used...
0029D0: F0 F6 12 F7 00 00 00 00 00 00 00 00 00 00 00 00 ................
0029E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0029F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002A00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002A10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002A20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002A30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002A40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002A50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002A60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002A70: 00 00 00 00 00 00 00 00 00 63 DC FF FF FF FF 11 .........c......
002A80: 0A 09 A6 04 57 04 88 04 0F 09 01 10 08 0E 00 07 ....W...........
002A90: 01 00 2C 4D 50 41 46 4E 43 53 2E 50 48 58 00 00 ..,MPAFNCS.PHX..
002AA0: 00 00 00 01 00 0F 00 08 DF 24 FF 09 08 09 08 00 .........$......
002AB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002AC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002AD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002AE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002AF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002B00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002B10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002B20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002B30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002B40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002B50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002B60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002B70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002B80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002B90: 00 00 00 2A 7F FF FF FF FF 11 0D 09 A6 04 57 04 ...*..........W.
002BA0: 9A 04 32 09 01 10 08 A1 0A 15 08 00 16 0A 00 EF ..2.............
002BB0: F0 EF 20 4D 75 6C 74 69 70 6C 65 20 70 72 65 63 .. Multiple prec
002BC0: 69 73 69 6F 6E 20 66 75 6E 63 74 69 6F 6E 73 2E ision functions.
002BD0: F0 EF F0 F7 14 00 EF F0 EF 20 4D 75 6C 74 69 70 ......... Multip
002BE0: 6C 65 20 70 72 65 63 69 73 69 6F 6E 20 72 6F 75 le precision rou
002BF0: 74 69 6E 65 73 27 20 77 6F 72 6B 73 70 61 63 65 tines' workspace
002C00: 2E F0 EF F0 F7 1E 00 EF F0 EF 20 4D 75 6C 74 69 .......... Multi
002C10: 70 6C 65 20 70 72 65 63 69 73 69 6F 6E 20 61 63 ple precision ac
002C20: 63 75 6D 75 6C 61 74 6F 72 2E F0 EF F0 F1 61 63 cumulator.....ac
002C30: 63 75 6D 75 6C 61 74 6F F2 7C EC 70 72 65 63 69 cumulato.|.preci
002C40: 73 69 6F EE D7 FD 02 EF F0 F7 28 00 EF F0 F1 6D sio.......(....m
002C50: 75 6C 74 69 70 6C 69 65 F2 7C FD 02 F1 6D 75 6C ultiplie.|...mul
002C60: 74 69 70 6C 69 63 61 6E E4 7C FD 02 EF F0 EF F0 tiplican.|......
002C70: F7 32 00 EF F0 EF 20 4D 6F 76 65 20 64 61 74 61 .2.... Move data
002C80: 20 69 6E 74 6F 20 74 68 65 20 61 63 63 75 6D 75 into the accumu
002C90: 6C 61 74 6F 72 2E F0 EF 20 48 4C 20 3D 20 73 6F lator... HL = so
002CA0: 75 72 63 65 20 61 64 64 72 65 73 73 2E 8C B2 F0 urce address....
002CB0: EF F0 F1 6D 6F 76 65 74 6F 61 63 E3 BD EC 61 63 ...movetoac...ac
002CC0: 63 75 6D 75 6C 61 74 6F F2 54 EC 6D 6F 76 65 B1 cumulato.T.move.
002CD0: EF F0 F7 3C 00 EF F0 EF 20 4D 6F 76 65 20 61 20 ...<.... Move a
002CE0: 72 65 73 75 6C 74 20 6F 75 74 20 6F 66 20 74 68 result out of th
002CF0: 65 20 61 63 63 75 6D 75 6C 61 74 6F 72 2E F0 EF e accumulator...
002D00: 20 44 45 20 3D 20 64 65 73 74 69 6E 61 74 69 6F DE = destinatio
002D10: 6E 20 61 64 64 72 65 73 73 2E F0 EF F0 F1 6D 6F n address.....mo
002D20: 76 65 66 72 6F 6D 61 63 E3 AA 07 BE EC 61 63 63 vefromac.....acc
002D30: 75 6D 75 6C 61 74 6F F2 F1 6D 6F 76 65 B1 B7 EC umulato..move...
002D40: 70 72 65 63 69 73 69 6F EE B6 FD 00 39 66 EF F0 precisio....9f..
002D50: F7 46 00 EF F0 EF 20 43 6C 65 61 72 20 74 68 65 .F.... Clear the
002D60: 20 6D 75 6C 74 69 70 6C 65 20 70 72 65 63 69 73 multiple precis
002D70: 69 6F 6E 20 61 63 63 75 6D 75 6C 61 74 6F 72 2E ion accumulator.
002D80: F0 EF F0 F1 63 6C 65 61 72 61 63 E3 60 0B B6 EC ....clearac.`...
002D90: 70 72 65 63 69 73 69 6F EE D7 FD 02 BE EC 61 63 precisio......ac
002DA0: 63 75 6D 75 6C 61 74 6F F2 F1 63 6C 61 6C 6F 8E cumulato..clalo.
002DB0: 88 F0 AF 0B 52 07 65 EC 63 6C 61 6C 6F F0 66 EF ....R.e.clalo.f.
002DC0: F0 EF F0 F7 50 00 EF F0 EF 20 4D 75 6C 74 69 70 ....P.... Multip
002DD0: 6C 65 20 70 72 65 63 69 73 69 6F 6E 20 50 48 4F le precision PHO
002DE0: 45 4E 49 58 20 66 75 6E 63 74 69 6F 6E 73 2E F0 ENIX functions..
002DF0: EF F0 EF 20 54 68 65 20 66 75 6E 63 74 69 6F 6E ... The function
002E00: 73 20 61 64 64 2C 73 75 62 2C 6D 75 6C 20 74 61 s add,sub,mul ta
002E10: 6B 65 20 74 68 72 65 65 20 61 64 64 72 65 73 73 ke three address
002E20: 65 73 20 61 73 F0 EF 20 70 61 72 61 6D 65 74 65 es as.. paramete
002E30: 72 73 2E 20 54 68 65 20 66 69 72 73 74 20 69 73 rs. The first is
002E40: 20 74 68 65 20 61 64 64 72 65 73 73 20 74 6F 20 the address to
002E50: 73 74 6F 72 65 20 74 68 65 20 F0 EF 20 72 65 73 store the .. res
002E60: 75 6C 74 3B 20 74 68 65 20 6F 74 68 65 72 20 74 ult; the other t
002E70: 77 6F 20 61 72 65 20 74 68 65 20 61 64 64 72 65 wo are the addre
002E80: 73 73 65 73 20 6F 66 20 74 68 65 20 F0 EF 20 6F sses of the .. o
002E90: 70 65 72 61 6E 64 73 2E F0 EF 20 65 2E 67 2E 20 perands... e.g.
002EA0: 6D 70 61 2E 73 75 62 28 61 2C 62 2C 63 29 20 64 mpa.sub(a,b,c) d
002EB0: 6F 52 F1 65 73 20 22 61 3D 62 2D 63 22 F0 EF 20 oR.es "a=b-c"..
002EC0: F0 F7 5A 00 EF F0 EF 20 4D 75 6C 74 69 70 6C 65 ..Z.... Multiple
002ED0: 20 70 72 65 63 69 73 69 6F 6E 20 61 64 64 69 74 precision addit
002EE0: 69 6F 6E 2E F0 EF F0 F1 6D 70 61 2E 61 64 E4 F6 ion.....mpa.ad..
002EF0: 0A 01 F1 72 65 73 75 6C F4 F6 0D 04 F1 6F 70 B1 ...resul.....op.
002F00: F6 0D 04 F1 6F 70 B2 F6 0D 04 EF F0 F7 64 00 F6 ....op.......d..
002F10: 0B F6 01 EC 6F 70 B1 55 EC 6D 6F 76 65 74 6F 61 ....op.U.movetoa
002F20: 63 E3 F6 01 EC 6F 70 B2 BD EC 61 63 63 75 6D 75 c....op...accumu
002F30: 6C 61 74 6F F2 5F 0B B6 EC 70 72 65 63 69 73 69 lato._...precisi
002F40: 6F EE F1 61 64 64 6C 6F F0 B5 21 56 22 AE 0B 52 o..addlo..!V"..R
002F50: 07 52 06 65 EC 61 64 64 6C 6F F0 F6 01 EC 72 65 .R.e.addlo....re
002F60: 73 75 6C F4 55 EC 6D 6F 76 65 66 72 6F 6D 61 63 sul.U.movefromac
002F70: E3 F6 0C EF F0 EF F0 F7 6E 00 EF F0 EF 20 4D 75 ........n.... Mu
002F80: 6C 74 69 70 6C 65 20 70 72 65 63 69 73 69 6F 6E ltiple precision
002F90: 20 73 75 62 74 72 61 63 74 69 6F 6E 2E F0 EF F0 subtraction....
002FA0: F1 6D 70 61 2E 73 75 E2 F6 0A 01 F1 72 65 73 75 .mpa.su.....resu
002FB0: 6C F4 F6 5E 06 0D 04 F1 6F 70 B1 F6 0D 04 F1 6F l..^....op.....o
002FC0: 70 B2 F6 0D 04 EF F0 F7 78 00 F6 0B F6 01 EC 6F p.......x......o
002FD0: 70 B1 55 EC 6D 6F 76 65 74 6F 61 63 E3 F6 01 EC p.U.movetoac....
002FE0: 6F 70 B2 BD EC 61 63 63 75 6D 75 6C 61 74 6F F2 op...accumulato.
002FF0: 5F 0B B6 EC 70 72 65 63 69 73 69 6F EE F1 73 75 _...precisio..su
003000: 62 6C 6F F0 B5 21 58 22 AE 0B 52 07 52 06 65 EC blo..!X"..R.R.e.
003010: 73 75 62 6C 6F F0 F6 01 EC 72 65 73 75 6C F4 55 sublo....resul.U
003020: EC 6D 6F 76 65 66 72 6F 6D 61 63 E3 F6 0C EF F0 .movefromac.....
003030: EF F0 F7 82 00 EF F0 EF 20 4D 75 6C 74 69 70 6C ........ Multipl
003040: 65 20 70 72 65 63 69 73 69 6F 6E 20 73 69 67 6E e precision sign
003050: 20 74 65 73 74 2E F0 EF F0 EF 20 52 65 74 75 72 test..... Retur
003060: 6E 73 20 31 2C 30 2C 2D 31 20 72 65 73 70 65 63 ns 1,0,-1 respec
003070: 74 69 76 65 6C 79 20 66 6F 72 20 2B 2C 30 2C 2D tively for +,0,-
003080: F0 EF F0 F7 8C 00 EF F0 F1 6D 70 61 2E 73 69 67 .........mpa.sig
003090: EE F6 0A 01 F1 6F F0 F6 0D 04 F6 0B F6 01 EC 6F .....o.........o
0030A0: F0 60 0B B6 EC 70 72 65 63 69 73 69 6F EE F1 73 .`...precisio..s
0030B0: 69 67 6E 6C 6F 17 83 F0 62 22 8E EC 6E 6F 6E 7A ignlo...b"..nonz
0030C0: 65 72 EF 52 07 65 EC 73 69 67 6E 6C 6F F0 BA 0B er.R.e.signlo...
0030D0: BB 0B F6 11 EF F0 F7 96 00 F1 6E 6F 6E 7A 65 72 ..........nonzer
0030E0: EF B7 0C B6 0B 51 05 9C 05 67 FD 07 22 BE FD 01 .....Q...g.."...
0030F0: 8D EC 70 6C 75 F3 51 07 51 07 F1 70 6C 75 F3 F6 ..plu.Q.Q..plu..
003100: 0C EF F0 EF F0 F7 A0 00 EF F0 EF 20 4D 75 6C 74 ........... Mult
003110: 69 70 6C 65 20 70 72 65 63 69 73 69 6F 6E 20 6D iple precision m
003120: 75 6C 74 69 70 6C 79 20 72 6F 75 74 69 6E 65 73 ultiply routines
003130: 2E F0 EF F0 F1 6D 75 6C 74 69 70 6C F9 B5 EC 70 .....multipl...p
003140: 72 65 63 69 73 69 6F EE BC EC 61 63 63 75 6D 75 recisio...accumu
003150: 6C 61 74 6F F2 F1 6D 75 6C 6F F0 63 0A 63 05 BE lato..mulo.c.c..
003160: 2B EC 6D 75 6C 74 69 70 6C 69 65 F2 B9 22 52 07 +.multiplie.."R.
003170: B4 EC 6D 75 6C 74 69 70 6C 69 65 F2 07 BE 2B EC ..multiplie...+.
003180: 6D 75 6C 74 69 70 6C 69 63 61 6E E4 55 EC 6D 75 multiplican.U.mu
003190: 6C 38 EE 64 05 52 05 64 0A 51 0B 8E EC 6D 75 6C l8.d.R.d.Q...mul
0031A0: 6F F0 66 EF F0 EF F0 F7 AA 00 EF F0 F1 6D 75 6C o.f..........mul
0031B0: 38 EE 60 0B B8 0B EF 5E 8C F0 EF F0 F1 63 6F 75 8.`....^.....cou
0031C0: 6E F4 7A EC 70 72 65 63 69 73 69 6F EE F5 8D 55 n.z.precisio...U
0031D0: EC 6D 75 6C 73 74 65 F0 F1 63 6F 75 6E F4 78 EC .mulste..coun.x.
0031E0: 63 6F 75 6E F4 D6 FD 01 F5 8E EC 63 6F 75 6E F4 coun.......coun.
0031F0: DC FD 00 EF F0 EF F0 66 EF F0 EF F0 F7 B4 00 F1 .......f........
003200: 6D 75 6C 73 74 65 F0 63 07 63 0A 63 05 63 06 BA mulste.c.c.c.c..
003210: 22 60 0B BB 0B B8 0B B6 FD 08 F1 2E 6D 75 6C F4 "`..........mul.
003220: 9C 07 90 EC 2E 6E 6F 61 64 E4 9C 06 F1 2E 6E 6F .....noad.....no
003230: 61 64 E4 65 EC 2E 6D 75 6C F4 EF F0 EF F0 F7 BE ad.e..mul.......
003240: 00 64 06 B7 0E 9C 05 B8 10 64 05 B5 20 9B 11 BB .d.......d.. ...
003250: 0B 64 0A B5 11 99 FD 00 AD 0B 52 05 64 07 52 07 .d........R.d.R.
003260: 66 EF F0 EF F0 F7 C8 00 EF F0 EF 20 4D 75 6C 74 f.......... Mult
003270: 69 70 6C 65 20 70 72 65 63 69 73 69 6F 6E 20 6D iple precision m
003280: 75 6C 74 69 70 6C 69 63 61 74 69 6F 6E 2E F0 EF ultiplication...
003290: F0 F1 6D 70 61 2E 6D 75 EC F6 0A 01 F1 72 65 73 ..mpa.mu.....res
0032A0: 75 6C F4 F6 0D 04 F1 6F 70 B1 F6 0D 04 F1 6F 70 ul.....op.....op
0032B0: B2 F6 0D 04 EF F0 EF F0 F7 4E 65 D2 00 F6 0B F6 .........Ne.....
0032C0: 01 EC 6F 70 B1 B4 EC 6D 75 6C 74 69 70 6C 69 65 ..op...multiplie
0032D0: F2 07 F6 01 EC 6F 70 B2 B4 EC 6D 75 6C 74 69 70 .....op...multip
0032E0: 6C 69 63 61 6E E4 07 55 EC 63 6C 65 61 72 61 63 lican..U.clearac
0032F0: E3 55 EC 6D 75 6C 74 69 70 6C F9 F6 01 EC 72 65 .U.multipl....re
003300: 73 75 6C F4 55 EC 6D 6F 76 65 66 72 6F 6D 61 63 sul.U.movefromac
003310: E3 F6 0C EF F0 EF F0 F7 DC 00 EF F0 EF 20 53 69 ............. Si
003320: 67 6E 20 65 78 74 65 6E 64 20 61 20 73 68 6F 72 gn extend a shor
003330: 74 20 28 31 36 2D 62 69 74 29 20 6E 75 6D 62 65 t (16-bit) numbe
003340: 72 20 74 6F 20 61 20 6C 6F 6E 67 20 28 33 32 2D r to a long (32-
003350: 62 69 74 29 2E F0 EF F0 F7 E6 00 EF F0 F1 6D 70 bit)..........mp
003360: 61 2E 65 78 74 65 6E E4 F6 0A 01 F1 72 65 73 75 a.exten.....resu
003370: 6C F4 F6 0D 04 F1 6F F0 F6 0D 04 EF F0 F7 F0 00 l.....o.........
003380: EF F0 F6 0B F6 02 EC 6F F0 63 07 F6 02 EC 72 65 .......o.c....re
003390: 73 75 6C F4 64 06 AA 07 41 B5 22 AE 0B 34 9F 0B sul.d...A."..4..
0033A0: B6 EC 70 72 65 63 69 73 69 6F EE D6 FD 02 F1 65 ..precisio.....e
0033B0: 78 74 6C 6F F0 52 06 AE 0B 65 EC 35 26 FF FF FF xtlo.R...e.5&...
0033C0: FF 11 0A 09 A6 04 A6 04 84 04 07 09 01 10 08 0E ................
0033D0: 00 07 01 00 2C 4D 50 41 46 4E 43 53 2E 50 48 58 ....,MPAFNCS.PHX
0033E0: 00 00 00 00 00 02 FF 0F 09 00 DF 2C 00 09 08 09 ...........,....
0033F0: 08 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003400: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003410: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003420: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003430: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003440: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003450: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003460: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003470: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003480: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003490: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0034A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0034B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0034C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0034D0: 00 00 00 00 00 A7 5B FF FF FF FF 11 0A 09 F6 04 ......[.........
0034E0: 57 04 89 04 10 09 01 10 08 0E 00 07 01 00 16 65 W..............e
0034F0: 78 74 6C 6F F0 F6 0C F7 00 00 00 00 00 00 00 00 xtlo............
003500: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003510: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003520: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003530: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003540: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003550: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003560: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003570: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003580: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003590: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0035A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0035B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0035C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0035D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0035E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 EC ................
0035F0: 24 FF FF FF FF $....
RESULT OF SEARCH :
PRO=0 CHEA=0 COD=2 MUSI=0 COP=0 GRA=13 WRIT=1 198=0 199=0 STARTER=0 KBI=0 CAAV=0 L.TOURNIER=0
PRO=0 CHEA=0 COD=2 MUSI=0 COP=0 GRA=13 WRIT=1 198=0 199=0 STARTER=0 KBI=0 CAAV=0 L.TOURNIER=0
8GW,SIEVE.ASM$'0 Machine code sieve. Workspace.primeflagstar BC is equivalent "count".main.loo while count2500print.prime(primeflag"inc.coun2set.looprimeflagi nc.counTKAset.looinc.counRTmain.looprint.prime BC is equivalent "count".print.lo o while count5000f Fprimeflag"inc.countcUwrtnudinc.countRTprint.looPwrtnu cUpdot SPACUTXT.OUTPUdfZpdo fpdotUdiv1dcUpdod..STXT.OUTPUndiv1trialk 4,xngvptvetrialk 4 frestrk 4ptvngverestrk 4f Constant definitions.TXT.OUTPUzZSPACz OW,SIEVE.PHX$L$/ Sieve of Eratosthenes. AMSTRAD (1) or SPECTRUM (0) AMSSPEz Function to write a character to the screen. This must be before "print.int" as it is used by "prin t.int".(print.cha ch chAMSSPEyUZNUO2 Inner integer print function. This must be before "print.int" as it is used by "print.int".print.int pva chpvachpva print.i ntpva print.chach0F Integer prBcint function.Pprint.in pva chpvaprint.cha0print. intpvaprint.cha Z Workspace.councountprimeflagd Main calculation loop. This loop marks non-primes in t6he array "primeflags".n Enter here (EXECUTE start).star S et IX for PHOENIX' use. On the SPECTRUM set the channel to the main screen.AMSSP EU ROM's CHAN OPENOxcouncounprimeflagcouncountcouncountcountcounprimeflagcountco un Increment count. Loop to print the primes found.councounprimeflagcounprint.in councoun Done, Xreplace stack pointer and return.f Include library routines for arithmetic.9',ELLIPSE.ASM$Z Z T W- Set AMSTRAD to 0 if using a spectrum.AMSTRA z Machine code ellipse drawing routines. Enter at "start" (xo),(yo) centre of e llipse. (major),(minor) the axes of the ellipse. Multiplication routine. Multip lies SBC by HL-DE giving 32 bit result in HL-IXmul3 mulkknoadnoadRnoadQmulf( Wor kspace. Ellipse axes.minowdmajow Ellipse centre.xwywd current plot point.xy2AMST RA Mult'.iplier for screen mode on the AMSTRAD.xfactoO Work variables. (See BASI C listing).aa2bb2DELTAF Entry point. Type "EXECUTE start" from GENIUS' editor.Ps tar Set the origin on the AMSTRAD.AMSTRA+y Note this is in standard co-ordinate s.+xUGRASETORIGIZ Calculate the screen mode expansion factor (AMSTRAD).USCRGETMO DaMxfactod Adjust ellipse x-axis.+minoTstexploexplopmstexploeexplo HL corrected (pixel co-ordinate) axis.minoOnx +majo Reduce the y-axis (AMSTRAD) to give pixe l co-ordinates.AMSTRApmmajoOyx Initialise work variables. a2a*aUmul3aafa2 a 2sa2a2+mino b2b*bUmul3bb2+y b2sb2*(2*yi+1)R+b+bUmul3b2b2 DELTAi2*(1-b)+mi noDELTA Sign extend to 32 bits (requires b0).DELTA ************************** ********** Main calculation loop. ************************************mainloo+y While yi0gf+x HL already has (yi). Plot four points of the ellipse (by symmetry) . We actually uplot (xi,yi), (-xi,yi), (-xi,-yi), (xi,-yi). On the AMSTRAD expan d for the particular screen mode.AMSTRA+xfactoTstxexxexstxexexexOcccUGRAPLOTABSO LUT (xi,yi)ddc Negate xi--RcUGRAPLW,ELLIPSE.ASMZ,Z Z W!(.OTABSOLUT (-xi,yi)dd Ne gate yi--RcUGRAPLOTABSOLUT (-xi,-yi)ddUGRAPLOTABSOLUT (xi,-yi)+DELTA IF DELTAi0+ DELTAUtestdehgodiagohori+DELTA deltaDELTAi+DELTAi-a2s+DELTA+a£2+a2Utestdeh IF de lta0godiagodiaUverticaTmainloogohori+DELTA deltaDELTAi+DELTAi+b2s+DELTA+b2+b2Ute stdeh IF delta0horihorigodiaUvertica Make a diagonal steIp. (Go up then along).h ori+x Make a horizontal step.Rx a2sa2s+a2+a2inca2s+a2+aa2+a2+aa2einca2s" DELTAi DELTAi+a2sc+DELTA+a2DELTA+DELTAdDELTASmainloo,vertica+y Make a vertical step.Qy6 b2sb2s-b2-b2decb2s+b2+bb2+b2+bb2edecb2s DELTAiDELTAi-b2sc+DELTA+b2DELTA+DELTAdD ELTAfJ Test *the 32-bit number in HL-DE for its sign.testdehgf NC, NZ means less than zero.8f C, NZ means greater then zero.8fT AMSTRAD firmware routine calls.A MSTRAGRASETORIGIzGRAPLOTABSOLUTzSCRGETMODzN %Spectrum plot routine.GRAPLOTABSOLU T+x+yS" ROM plot routineO,ELLIPSE.PHX$W, Set AMSTRAD to 0 for use on the SPECT RUM.AMSTRAz PHOENIX ellipse drawing routines. On entry major x semi-axis of ell ipse. minor y semi-axis of ellipse. xs x co-ordinate of centre. ys y co -ordinate of centre.minoFmajodxyxy( Set the precision for multiple precision rou tines.precisioz2 Include the multiple precision source.MPAFNCS.PHX Multiple prec ision workspace.a"precisiobprecisioa2precisiob2precisioDELTAprecisiodeltprecisio long.zerprecisiolong.ontprecisioF Ellipse work functions.P Make a vertical (down wards) step.vertica ympa.sub2Bb2b b2sb2s-b2-b2mpa.sub2b2bmpa.suDELTADELTA b2 DELTAiDELTAi-b2sZ Make a horizontal (right) step.horizonta xmpa.ada2a2a a2sa2 s+a2+a2mpa.ada2a2ampa.adDELTADELTAa2 DELTAiDELTAi+a2sd Make a diagonal step.diag ona horizontavertican Decision function go diagonally or horizontally testhorizo nta mpa.addeltDELTADELTA deltaDELTAi+DELTAi+b2smpa.addeltdeltb2mpa.sigdeltdiagon ahorizontax ROM entries for plotting points.AMSTRAGRAPLOTABSOLUTzGRASETORIGIzN O rigin set at (127,100) on the SPECTRUM.GRAPLOTABSOLUTdS" ROM plot routine.O Plot a single point.plo x y xcydUGRAPLOTABSOLUT Plot four points of the ellipse (by symmetry).plot x y ploxyploxyplo nxyploxy Initialise long variables.************ *** Entry point.***************star Set PHOENIX stack and flag byte.AMSTRAUGRA SETORIGIOxymajompa.extenamajo a2a*aW,ELLIPSE.PHX,N W&1 mpa.muaaampa.extenbmino b 2b*bmpa.mubbbmpa.ada2along.zer a2sa2mpa.extenb2y b2sb2*(2*yi+1)mpa.adb2b2b2mpa.a db2b2long.onmpa.mub2bb2mpa.extenDELTAmino DELTAi2*(1-b)mpa.suDELTAlong.onDELTAmp a.adDELTADELTADELTA************************ Main loop.************************yp lotxympa.sigDELTA"mpa.addeltDELTADELTA deltaDELTAi+DELTAi-a2mpa.sudeltdeltampa.s igdeltverticadiagonampa.sigDELTAdiagonatesthorizonta End of main loop.H Replace stack pointer.f Include any PHOENIX library routines used.c W,MPAFNCS.PHX$* W2 Multiple precision functions. Multiple precision routines' workspace. Multiple precision accumulator.accumulatoprecisio(multipliemultiplican2 Move data into th e accumulator. HL source address.movetoacaccumulatoTmove Move a result out of t he accumulator. DE destination address.movefromacaccumulatomoveprecisio9fF Clea r the multiple precision accumulator.clearacprecisioaccumulatoclaloReclalofP Mul tiple precision PHOENIX functions. The functions add,sub,mul take three addresse s as parameters. The first is the address to store the result the other two are the addresses of the operands. e.g. mpa.sub(a,b,c) doRes "ab-c" Z Multiple pre cision addition.mpa.ad resul op op dopUmovetoacopaccumulatoprecisioaddlo!V"RRead dloresulUmovefromacn Multiple precision subtraction.mpa.su resul op op xopUmovet oacopaccumulatoprecisiosublo!X"RResubloresulUmovefromac Multiple precision sign test. Returns 1,0,-1 respectively for +,0,-mpa.sig o oprecisiosignlob"nonzerResi gnlononzerQg"pluQQplu Multiple precision multiply routines.multiplprecisioaccumu latomuloc c+multiplie"Rmultiplie+multiplicanUmul8dRd Qmulofmul8counzprecisioUmul stecounxcouncounfmulstecc cc".mul.noad.noade.muldd d RdRf Multiple precision mul tiplication.mpa.mu resul op op NeopmultiplieopmultiplicanUclearacUmultiplresulUm ovefromac Sign extend a short (16-bit) number to a long (32-bit).mpa.exten resul o ocresuldA"4precisioextloRe5& ,MPAFNCS.PHX, Wextlo$
Tous droits réservés. Reproduction sans autorisation interdite. © Kukulcan