/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / magazines / c=hacking / code / 10 / cube3d3.2.s.prg

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 70 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.p******|********|
|00000010| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000020| 2a 2a 0d 2a a0 a0 a0 a0 | a0 a0 a0 a0 a0 a0 a0 a0 |**.*....|........|
|00000030| a0 a0 a0 a0 a0 a0 a0 a0 | a0 a0 a0 a0 a0 a0 a0 a0 |........|........|
|00000040| a0 a0 2a 0d 2a a0 73 54 | 45 50 48 45 4e a0 6a 55 |..*.*.sT|EPHEN.jU|
|00000050| 44 44 a0 a0 a0 a0 a0 a0 | a0 a0 a0 a0 a0 a0 a0 a0 |DD......|........|
|00000060| a0 a0 a0 2a 0d 2a a0 67 | 45 4f 52 47 45 a0 74 41 |...*.*.g|EORGE.tA|
|00000070| 59 4c 4f 52 a0 a0 a0 a0 | a0 a0 a0 a0 a0 a0 a0 a0 |YLOR....|........|
|00000080| a0 a0 a0 a0 2a 0d 2a a0 | 73 54 41 52 54 45 44 3a |....*.*.|sTARTED:|
|00000090| a0 37 2f 31 31 2f 39 34 | a0 a0 a0 a0 a0 a0 a0 a0 |.7/11/94|........|
|000000a0| a0 a0 a0 a0 a0 2a 0d 2a | a0 66 49 4e 49 53 48 45 |.....*.*|.fINISHE|
|000000b0| 44 3a a0 37 2f 31 39 2f | 39 34 a0 a0 a0 a0 a0 a0 |D:.7/19/|94......|
|000000c0| a0 a0 a0 a0 a0 a0 2a 0d | 2a a0 56 32 2e 30 a0 63 |......*.|*.V2.0.c|
|000000d0| 4f 4d 50 4c 45 54 45 44 | 3a a0 31 32 2f 31 37 2f |OMPLETED|:.12/17/|
|000000e0| 39 34 a0 a0 a0 a0 a0 2a | 0d 2a a0 56 33 2e 30 a0 |94.....*|.*.V3.0.|
|000000f0| 63 4f 4d 50 4c 45 54 45 | 44 3a a0 33 2f 32 30 2f |cOMPLETE|D:.3/20/|
|00000100| 39 35 a0 a0 a0 a0 a0 a0 | 2a 0d 2a a0 56 33 2e 31 |95......|*.*.V3.1|
|00000110| a0 63 4f 4d 50 4c 45 54 | 45 44 3a a0 36 2f 31 34 |.cOMPLET|ED:.6/14|
|00000120| 2f 39 35 a0 a0 a0 a0 a0 | a0 2a 0d 2a a0 56 33 2e |/95.....|.*.*.V3.|
|00000130| 32 a0 63 4f 4d 50 4c 45 | 54 45 44 3a a0 36 2f 31 |2.cOMPLE|TED:.6/1|
|00000140| 35 2f 39 35 a0 a0 a0 a0 | a0 a0 2a 0d 2a a0 a0 a0 |5/95....|..*.*...|
|00000150| a0 a0 a0 a0 a0 a0 a0 a0 | a0 a0 a0 a0 a0 a0 a0 a0 |........|........|
|00000160| a0 a0 a0 a0 a0 a0 a0 a0 | a0 a0 a0 2a 0d 2a a0 77 |........|...*.*.w|
|00000170| 45 4c 4c 2c a0 49 46 a0 | 41 4c 4c a0 47 4f 45 53 |ELL,.IF.|ALL.GOES|
|00000180| a0 57 45 4c 4c a0 54 48 | 49 53 a0 a0 2a 0d 2a a0 |.WELL.TH|IS..*.*.|
|00000190| 50 52 4f 47 52 41 4d a0 | 57 49 4c 4c a0 52 4f 54 |PROGRAM.|WILL.ROT|
|000001a0| 41 54 45 a0 41 a0 43 55 | 42 45 2e a0 a0 2a 0d 2a |ATE.A.CU|BE...*.*|
|000001b0| a0 a0 a0 a0 a0 a0 a0 a0 | a0 a0 a0 a0 a0 a0 a0 a0 |........|........|
|000001c0| a0 a0 a0 a0 a0 a0 a0 a0 | a0 a0 a0 a0 a0 a0 2a 0d |........|......*.|
|000001d0| 2a a0 56 32 2e 30 a0 2b | a0 6e 45 57 a0 41 4e 44 |*.V2.0.+|.nEW.AND|
|000001e0| a0 69 4d 50 52 4f 56 45 | 44 21 a0 a0 a0 a0 a0 2a |.iMPROVE|D!.....*|
|000001f0| 0d 2a a0 6e 4f 57 a0 57 | 49 54 48 a0 46 41 53 54 |.*.nOW.W|ITH.FAST|
|00000200| 45 52 a0 52 4f 55 54 49 | 4e 45 53 2c a0 a0 a0 a0 |ER.ROUTI|NES,....|
|00000210| 2a 0d 2a a0 48 49 44 44 | 45 4e a0 53 55 52 46 41 |*.*.HIDD|EN.SURFA|
|00000220| 43 45 53 2c a0 46 49 4c | 4c 45 44 a0 a0 a0 a0 a0 |CES,.FIL|LED.....|
|00000230| a0 2a 0d 2a a0 46 41 43 | 45 53 2c a0 41 4e 44 a0 |.*.*.FAC|ES,.AND.|
|00000240| 45 58 54 52 41 a0 54 4f | 50 a0 53 45 43 52 45 54 |EXTRA.TO|P.SECRET|
|00000250| a0 a0 2a 0d 2a a0 54 45 | 58 54 a0 4d 45 53 53 41 |..*.*.TE|XT.MESSA|
|00000260| 47 45 53 21 a0 a0 a0 a0 | a0 a0 a0 a0 a0 a0 a0 a0 |GES!....|........|
|00000270| a0 a0 a0 2a 0d 2a a0 a0 | a0 a0 a0 a0 a0 a0 a0 a0 |...*.*..|........|
|00000280| a0 a0 a0 a0 a0 a0 a0 a0 | a0 a0 a0 a0 a0 a0 a0 a0 |........|........|
|00000290| a0 a0 a0 a0 2a 0d 2a a0 | 56 33 2e 30 a0 2b a0 66 |....*.*.|V3.0.+.f|
|000002a0| 41 53 54 a0 43 48 55 4e | 4b 59 a0 4c 49 4e 45 a0 |AST.CHUN|KY.LINE.|
|000002b0| a0 a0 a0 a0 a0 2a 0d 2a | a0 52 4f 55 54 49 4e 45 |.....*.*|.ROUTINE|
|000002c0| 2e a0 a0 a0 a0 a0 a0 a0 | a0 a0 a0 a0 a0 a0 a0 a0 |........|........|
|000002d0| a0 a0 a0 a0 a0 a0 2a 0d | 2a a0 a0 a0 a0 a0 a0 a0 |......*.|*.......|
|000002e0| a0 a0 a0 a0 a0 a0 a0 a0 | a0 a0 a0 a0 a0 a0 a0 a0 |........|........|
|000002f0| a0 a0 a0 a0 a0 a0 a0 2a | 0d 2a a0 56 33 2e 31 a0 |.......*|.*.V3.1.|
|00000300| 2b a0 67 45 4e 45 52 41 | 4c a0 50 4f 4c 59 47 4f |+.gENERA|L.POLYGO|
|00000310| 4e a0 50 4c 4f 54 a0 a0 | 2a 0d 2a a0 57 49 54 48 |N.PLOT..|*.*.WITH|
|00000320| a0 48 49 44 44 45 4e a0 | 46 41 43 45 53 a0 28 78 |.HIDDEN.|FACES.(x|
|00000330| 2d 50 52 4f 44 55 43 54 | 29 2a 0d 2a a0 41 4e 44 |-PRODUCT|)*.*.AND|
|00000340| a0 5a 4f 4f 4d a0 46 45 | 41 54 55 52 45 2e a0 a0 |.ZOOM.FE|ATURE...|
|00000350| a0 a0 a0 a0 a0 a0 a0 a0 | a0 a0 2a 0d 2a a0 a0 a0 |........|..*.*...|
|00000360| a0 a0 a0 a0 a0 a0 a0 a0 | a0 a0 a0 a0 a0 a0 a0 a0 |........|........|
|00000370| a0 a0 a0 a0 a0 a0 a0 a0 | a0 a0 a0 2a 0d 2a a0 56 |........|...*.*.V|
|00000380| 33 2e 32 a0 2b a0 65 6f | 72 2d 42 55 46 46 45 52 |3.2.+.eo|r-BUFFER|
|00000390| a0 46 49 4c 4c 49 4e 47 | a0 a0 a0 a0 2a 0d 2a a0 |.FILLING|....*.*.|
|000003a0| a0 a0 a0 a0 a0 a0 a0 a0 | a0 a0 a0 a0 a0 a0 a0 a0 |........|........|
|000003b0| a0 a0 a0 a0 a0 a0 a0 a0 | a0 a0 a0 a0 a0 2a 0d 2a |........|.....*.*|
|000003c0| a0 74 48 49 53 a0 50 52 | 4f 47 52 41 4d a0 49 53 |.tHIS.PR|OGRAM.IS|
|000003d0| a0 49 4e 54 45 4e 44 45 | 44 a0 54 4f a0 a0 2a 0d |.INTENDE|D.TO..*.|
|000003e0| 2a a0 41 43 43 4f 4d 50 | 41 4e 59 a0 54 48 45 a0 |*.ACCOMP|ANY.THE.|
|000003f0| 41 52 54 49 43 4c 45 a0 | 49 4e a0 a0 a0 a0 a0 2a |ARTICLE.|IN.....*|
|00000400| 0d 2a a0 63 3d 68 41 43 | 4b 49 4e 47 2c a0 6a 55 |.*.c=hAC|KING,.jU|
|00000410| 4e 2e a0 39 35 a0 49 53 | 53 55 45 2e a0 a0 a0 a0 |N..95.IS|SUE.....|
|00000420| 2a 0d 2a a0 66 4f 52 a0 | 44 45 54 41 49 4c 53 a0 |*.*.fOR.|DETAILS.|
|00000430| 4f 4e a0 54 48 49 53 a0 | 50 52 4f 47 52 41 4d 2c |ON.THIS.|PROGRAM,|
|00000440| a0 2a 0d 2a a0 52 45 41 | 44 a0 54 48 45 a0 41 52 |.*.*.REA|D.THE.AR|
|00000450| 54 49 43 4c 45 21 a0 a0 | a0 a0 a0 a0 a0 a0 a0 a0 |TICLE!..|........|
|00000460| a0 a0 2a 0d 2a a0 a0 a0 | a0 a0 a0 a0 a0 a0 a0 a0 |..*.*...|........|
|00000470| a0 a0 a0 a0 a0 a0 a0 a0 | a0 a0 a0 a0 a0 a0 a0 a0 |........|........|
|00000480| a0 a0 a0 2a 0d 2a a0 77 | 52 49 54 45 a0 54 4f a0 |...*.*.w|RITE.TO.|
|00000490| 55 53 21 a0 a0 a0 a0 a0 | a0 a0 a0 a0 a0 a0 a0 a0 |US!.....|........|
|000004a0| a0 a0 a0 a0 2a 0d 2a a0 | a0 a0 a0 a0 a0 a0 a0 a0 |....*.*.|........|
|000004b0| a0 a0 a0 a0 a0 a0 a0 a0 | a0 a0 a0 a0 a0 a0 a0 a0 |........|........|
|000004c0| a0 a0 a0 a0 a0 2a 0d 2a | a0 6d 59 53 45 4c 46 a0 |.....*.*|.mYSELF.|
|000004d0| 57 48 45 4e a0 59 4f 55 | 4e 47 a0 44 49 44 a0 a0 |WHEN.YOU|NG.DID..|
|000004e0| a0 a0 a0 a0 a0 a0 2a 0d | 2a a0 45 41 47 45 52 4c |......*.|*.EAGERL|
|000004f0| 59 a0 46 52 45 51 55 45 | 4e 54 a0 a0 a0 a0 a0 a0 |Y.FREQUE|NT......|
|00000500| a0 a0 a0 a0 a0 a0 a0 2a | 0d 2a a0 64 4f 43 54 4f |.......*|.*.dOCTO|
|00000510| 52 a0 41 4e 44 a0 73 41 | 49 4e 54 2c a0 41 4e 44 |R.AND.sA|INT,.AND|
|00000520| a0 48 45 41 52 44 a0 a0 | 2a 0d 2a a0 47 52 45 41 |.HEARD..|*.*.GREA|
|00000530| 54 a0 61 52 47 55 4d 45 | 4e 54 a0 a0 a0 a0 a0 a0 |T.aRGUME|NT......|
|00000540| a0 a0 a0 a0 a0 a0 a0 a0 | a0 2a 0d 2a a0 a0 61 42 |........|.*.*..aB|
|00000550| 4f 55 54 a0 49 54 a0 41 | 4e 44 a0 41 42 4f 55 54 |OUT.IT.A|ND.ABOUT|
|00000560| 3a a0 42 55 54 a0 a0 a0 | a0 a0 2a 0d 2a a0 a0 45 |:.BUT...|..*.*..E|
|00000570| 56 45 52 4d 4f 52 45 a0 | a0 a0 a0 a0 a0 a0 a0 a0 |VERMORE.|........|
|00000580| a0 a0 a0 a0 a0 a0 a0 a0 | a0 a0 a0 2a 0d 2a a0 63 |........|...*.*.c|
|00000590| 41 4d 45 a0 4f 55 54 a0 | 42 59 a0 54 48 45 a0 53 |AME.OUT.|BY.THE.S|
|000005a0| 41 4d 45 a0 64 4f 4f 52 | a0 a0 a0 a0 2a 0d 2a a0 |AME.dOOR|....*.*.|
|000005b0| 41 53 a0 49 4e a0 69 a0 | 57 45 4e 54 2e a0 a0 a0 |AS.IN.i.|WENT....|
|000005c0| a0 a0 a0 a0 a0 a0 a0 a0 | a0 a0 a0 a0 a0 2a 0d 2a |........|.....*.*|
|000005d0| a0 a0 a0 a0 2d a0 72 55 | 42 41 49 59 41 54 a0 a0 |....-.rU|BAIYAT..|
|000005e0| a0 a0 a0 a0 a0 a0 a0 a0 | a0 a0 a0 a0 a0 a0 2a 0d |........|......*.|
|000005f0| 2a a0 a0 a0 a0 a0 a0 a0 | a0 a0 a0 a0 a0 a0 a0 a0 |*.......|........|
|00000600| a0 a0 a0 a0 a0 a0 a0 a0 | a0 a0 a0 a0 a0 a0 a0 2a |........|.......*|
|00000610| 0d 2a a0 74 48 4f 55 47 | 48 a0 69 a0 53 50 45 41 |.*.tHOUG|H.i.SPEA|
|00000620| 4b a0 57 49 54 48 a0 54 | 48 45 a0 a0 a0 a0 a0 a0 |K.WITH.T|HE......|
|00000630| 2a 0d 2a a0 54 4f 4e 47 | 55 45 53 a0 4f 46 a0 4d |*.*.TONG|UES.OF.M|
|00000640| 45 4e a0 41 4e 44 a0 4f | 46 a0 41 4e 47 4c 45 53 |EN.AND.O|F.ANGLES|
|00000650| a0 2a 0d 2a a0 41 4e 44 | a0 48 41 56 45 a0 4e 4f |.*.*.AND|.HAVE.NO|
|00000660| 54 a0 4c 4f 56 45 2c a0 | 69 a0 41 4d a0 a0 a0 a0 |T.LOVE,.|i.AM....|
|00000670| a0 a0 2a 0d 2a a0 42 45 | 43 4f 4d 45 a0 41 53 a0 |..*.*.BE|COME.AS.|
|00000680| 53 4f 55 4e 44 49 4e 47 | a0 42 52 41 53 53 2c a0 |SOUNDING|.BRASS,.|
|00000690| 4f 52 a0 2a 0d 2a a0 41 | a0 54 49 4e 4b 4c 49 4e |OR.*.*.A|.TINKLIN|
|000006a0| 47 a0 43 59 4d 42 41 4c | 2e a0 a0 a0 a0 a0 a0 a0 |G.CYMBAL|........|
|000006b0| a0 a0 a0 a0 2a 0d 2a a0 | a0 a0 a0 2d a0 31 a0 63 |....*.*.|...-.1.c|
|000006c0| 4f 52 49 4e 54 48 49 41 | 4e 53 a0 31 33 a0 a0 a0 |ORINTHIA|NS.13...|
|000006d0| a0 a0 a0 a0 a0 2a 0d 2a | a0 a0 a0 a0 a0 a0 a0 a0 |.....*.*|........|
|000006e0| a0 a0 a0 a0 a0 a0 a0 a0 | a0 a0 a0 a0 a0 a0 a0 a0 |........|........|
|000006f0| a0 a0 a0 a0 a0 a0 2a 0d | 2a a0 70 2e 73 2e a0 74 |......*.|*.p.s..t|
|00000700| 48 49 53 a0 57 41 53 a0 | 57 52 49 54 54 45 4e a0 |HIS.WAS.|WRITTEN.|
|00000710| 55 53 49 4e 47 a0 a0 2a | 0d 2a a0 a0 a0 a0 a0 a0 |USING..*|.*......|
|00000720| 6d 45 52 4c 49 4e a0 31 | 32 38 2e a0 a0 a0 a0 a0 |mERLIN.1|28......|
|00000730| a0 a0 a0 a0 a0 a0 a0 a0 | 2a 0d 2a 2a 2a 2a 2a 2a |........|*.******|
|00000740| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000750| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 0d 0d 20 6f 72 67 |********|**.. org|
|00000760| 20 24 38 30 30 30 0d 0d | 2a a0 63 4f 4e 53 54 41 | $8000..|*.cONSTA|
|00000770| 4e 54 53 0d 0d 62 75 66 | 66 31 20 65 71 75 20 24 |NTS..buf|f1 equ $|
|00000780| 33 30 30 30 20 3b 66 49 | 52 53 54 a0 43 48 41 52 |3000 ;fI|RST.CHAR|
|00000790| 41 43 54 45 52 a0 53 45 | 54 0d 62 75 66 66 32 20 |ACTER.SE|T.buff2 |
|000007a0| 65 71 75 20 24 33 38 30 | 30 20 3b 73 45 43 4f 4e |equ $380|0 ;sECON|
|000007b0| 44 a0 43 48 41 52 41 43 | 54 45 52 a0 53 45 54 0d |D.CHARAC|TER.SET.|
|000007c0| 65 6f 72 62 75 66 20 65 | 71 75 20 24 34 30 30 30 |eorbuf e|qu $4000|
|000007d0| 20 3b 65 6f 72 2d 42 55 | 46 46 45 52 0d 62 75 66 | ;eor-BU|FFER.buf|
|000007e0| 66 65 72 20 65 71 75 20 | 24 61 33 20 3b 70 52 45 |fer equ |$a3 ;pRE|
|000007f0| 53 55 4d 41 42 4c 59 a0 | 54 48 45 a0 54 41 50 45 |SUMABLY.|THE.TAPE|
|00000800| a0 57 4f 4e 27 54 a0 42 | 45 a0 52 55 4e 4e 49 4e |.WON'T.B|E.RUNNIN|
|00000810| 47 0d 78 31 20 65 71 75 | 20 24 66 62 20 3b 70 4f |G.x1 equ| $fb ;pO|
|00000820| 49 4e 54 53 a0 46 4f 52 | a0 44 52 41 57 49 4e 47 |INTS.FOR|.DRAWING|
|00000830| a0 41 a0 4c 49 4e 45 0d | 79 31 20 65 71 75 20 24 |.A.LINE.|y1 equ $|
|00000840| 66 63 20 3b 74 48 45 53 | 45 a0 5a 45 52 4f a0 50 |fc ;tHES|E.ZERO.P|
|00000850| 41 47 45 a0 41 44 44 52 | 45 53 53 45 53 0d 78 32 |AGE.ADDR|ESSES.x2|
|00000860| 20 65 71 75 20 24 66 64 | 20 3b 44 4f 4e 27 54 a0 | equ $fd| ;DON'T.|
|00000870| 43 4f 4e 46 4c 49 43 54 | a0 57 49 54 48 a0 62 61 |CONFLICT|.WITH.ba|
|00000880| 73 69 63 0d 79 32 20 65 | 71 75 20 24 66 65 0d 6f |sic.y2 e|qu $fe.o|
|00000890| 6c 64 78 20 65 71 75 20 | 24 66 64 0d 63 68 75 6e |ldx equ |$fd.chun|
|000008a0| 6b 20 65 71 75 20 24 66 | 65 0d 64 78 20 65 71 75 |k equ $f|e.dx equ|
|000008b0| 20 24 36 37 20 3b 74 48 | 49 53 a0 49 53 a0 53 48 | $67 ;tH|IS.IS.SH|
|000008c0| 41 52 45 44 a0 57 49 54 | 48 a0 74 31 a0 42 45 4c |ARED.WIT|H.t1.BEL|
|000008d0| 4f 57 0d 64 79 20 65 71 | 75 20 24 36 38 0d 74 65 |OW.dy eq|u $68.te|
|000008e0| 6d 70 31 20 65 71 75 20 | 24 66 62 20 3b 6f 46 a0 |mp1 equ |$fb ;oF.|
|000008f0| 43 4f 55 52 53 45 2c a0 | 43 4f 55 4c 44 a0 43 4f |COURSE,.|COULD.CO|
|00000900| 4e 46 4c 49 43 54 a0 57 | 49 54 48 a0 58 31 0d 74 |NFLICT.W|ITH.X1.t|
|00000910| 65 6d 70 32 20 65 71 75 | 20 24 66 63 20 3b 74 45 |emp2 equ| $fc ;tE|
|00000920| 4d 50 4f 52 41 52 59 a0 | 56 41 52 49 41 42 4c 45 |MPORARY.|VARIABLE|
|00000930| 53 0d 7a 74 65 6d 70 20 | 65 71 75 20 24 30 32 20 |S.ztemp |equ $02 |
|00000940| 3b 75 53 45 44 a0 46 4f | 52 a0 42 55 46 46 45 52 |;uSED.FO|R.BUFFER|
|00000950| a0 53 57 41 50 2e a0 a0 | 64 4f 4e 27 54 a0 54 4f |.SWAP...|dON'T.TO|
|00000960| 55 43 48 2e 0d 7a 31 20 | 65 71 75 20 24 32 32 20 |UCH..z1 |equ $22 |
|00000970| 3b 75 53 45 44 a0 42 59 | a0 4d 41 54 48 a0 52 4f |;uSED.BY|.MATH.RO|
|00000980| 55 54 49 4e 45 0d 7a 32 | 20 65 71 75 20 24 32 34 |UTINE.z2| equ $24|
|00000990| 20 3b 64 4f 4e 27 54 a0 | 54 4f 55 43 48 a0 54 48 | ;dON'T.|TOUCH.TH|
|000009a0| 45 53 45 a0 45 49 54 48 | 45 52 21 0d 7a 33 20 65 |ESE.EITH|ER!.z3 e|
|000009b0| 71 75 20 24 32 36 0d 7a | 34 20 65 71 75 20 24 32 |qu $26.z|4 equ $2|
|000009c0| 38 0d 6b 20 65 71 75 20 | 24 62 36 20 3b 63 4f 4e |8.k equ |$b6 ;cON|
|000009d0| 53 54 41 4e 54 a0 55 53 | 45 44 a0 46 4f 52 a0 48 |STANT.US|ED.FOR.H|
|000009e0| 49 44 44 45 4e 0d 20 20 | 20 3b 53 55 52 46 41 43 |IDDEN.  | ;SURFAC|
|000009f0| 45 a0 44 45 54 45 43 54 | 49 4f 4e a0 2d a0 44 4f |E.DETECT|ION.-.DO|
|00000a00| 4e 27 54 a0 54 4f 55 43 | 48 0d 68 69 64 65 20 65 |N'T.TOUC|H.hide e|
|00000a10| 71 75 20 24 62 35 20 3b | 61 52 45 a0 53 55 52 46 |qu $b5 ;|aRE.SURF|
|00000a20| 41 43 45 53 a0 48 49 44 | 44 45 4e 3f 0d 66 69 6c |ACES.HID|DEN?.fil|
|00000a30| 6c 20 65 71 75 20 24 35 | 30 20 3b 61 52 45 a0 57 |l equ $5|0 ;aRE.W|
|00000a40| 45 a0 55 53 49 4e 47 a0 | 65 6f 72 2d 46 49 4c 4c |E.USING.|eor-FILL|
|00000a50| 3f 0d 61 6e 67 6d 61 78 | 20 65 71 75 20 31 32 30 |?.angmax| equ 120|
|00000a60| 20 3b 74 48 45 52 45 a0 | 41 52 45 a0 32 2a 50 49 | ;tHERE.|ARE.2*PI|
|00000a70| 2f 41 4e 47 4d 41 58 a0 | 41 4e 47 4c 45 53 0d 0d |/ANGMAX.|ANGLES..|
|00000a80| 2a a0 76 69 63 0d 0d 76 | 6d 63 73 62 20 65 71 75 |*.vic..v|mcsb equ|
|00000a90| 20 24 64 30 31 38 0d 62 | 6b 67 6e 64 20 65 71 75 | $d018.b|kgnd equ|
|00000aa0| 20 24 64 30 32 30 0d 62 | 6f 72 64 65 72 20 65 71 | $d020.b|order eq|
|00000ab0| 75 20 24 64 30 32 31 0d | 73 73 74 61 72 74 20 65 |u $d021.|sstart e|
|00000ac0| 71 75 20 31 33 34 34 20 | 3b 52 4f 57 a0 39 a0 49 |qu 1344 |;ROW.9.I|
|00000ad0| 4e a0 53 43 52 45 45 4e | a0 4d 45 4d 4f 52 59 a0 |N.SCREEN|.MEMORY.|
|00000ae0| 41 54 a0 31 30 32 34 0d | 0d 0d 2a a0 6b 45 52 4e |AT.1024.|..*.kERN|
|00000af0| 41 4c 0d 0d 63 68 72 6f | 75 74 20 65 71 75 20 24 |AL..chro|ut equ $|
|00000b00| 66 66 64 32 0d 67 65 74 | 69 6e 20 65 71 75 20 24 |ffd2.get|in equ $|
|00000b10| 66 66 65 34 0d 0d 2a a0 | 73 4f 4d 45 a0 56 41 52 |ffe4..*.|sOME.VAR|
|00000b20| 49 41 42 4c 45 53 0d 0d | 67 6c 6f 62 78 6d 69 6e |IABLES..|globxmin|
|00000b30| 20 3d 20 24 33 66 20 3b | 74 48 45 53 45 a0 41 52 | = $3f ;|tHESE.AR|
|00000b40| 45 a0 55 53 45 44 a0 49 | 4e a0 43 4c 45 41 52 49 |E.USED.I|N.CLEARI|
|00000b50| 4e 47 a0 54 48 45 0d 67 | 6c 6f 62 78 6d 61 78 20 |NG.THE.g|lobxmax |
|00000b60| 3d 20 24 34 30 20 3b 44 | 52 41 57 49 4e 47 a0 28 |= $40 ;D|RAWING.(|
|00000b70| 47 4c 4f 42 41 4c 29 a0 | 42 55 46 46 45 52 0d 67 |GLOBAL).|BUFFER.g|
|00000b80| 6c 6f 62 79 6d 69 6e 20 | 3d 20 24 34 31 0d 67 6c |lobymin |= $41.gl|
|00000b90| 6f 62 79 6d 61 78 20 3d | 20 24 34 32 0d 6c 6f 63 |obymax =| $42.loc|
|00000ba0| 78 6d 69 6e 20 3d 20 24 | 35 37 20 3b 74 48 45 53 |xmin = $|57 ;tHES|
|00000bb0| 45 a0 41 52 45 a0 55 53 | 45 44 a0 49 4e a0 43 4c |E.ARE.US|ED.IN.CL|
|00000bc0| 45 41 52 49 4e 47 a0 54 | 48 45 0d 6c 6f 63 78 6d |EARING.T|HE.locxm|
|00000bd0| 61 78 20 3d 20 24 35 38 | 20 3b 65 6f 72 a0 28 4c |ax = $58| ;eor.(L|
|00000be0| 4f 43 41 4c 29 a0 42 55 | 46 46 45 52 0d 6c 6f 63 |OCAL).BU|FFER.loc|
|00000bf0| 79 6d 69 6e 20 3d 20 24 | 35 39 0d 6c 6f 63 79 6d |ymin = $|59.locym|
|00000c00| 61 78 20 3d 20 24 36 30 | 0d 70 31 78 20 3d 20 24 |ax = $60|.p1x = $|
|00000c10| 39 32 20 3b 74 48 45 53 | 45 a0 41 52 45 a0 54 45 |92 ;tHES|E.ARE.TE|
|00000c20| 4d 50 4f 52 41 52 59 a0 | 53 54 4f 52 41 47 45 0d |MPORARY.|STORAGE.|
|00000c30| 70 31 79 20 3d 20 24 39 | 33 20 3b 75 53 45 44 a0 |p1y = $9|3 ;uSED.|
|00000c40| 49 4e a0 50 4c 4f 54 54 | 49 4e 47 a0 54 48 45 a0 |IN.PLOTT|ING.THE.|
|00000c50| 50 52 4f 4a 45 43 54 49 | 4f 4e 0d 70 31 7a 20 3d |PROJECTI|ON.p1z =|
|00000c60| 20 24 39 34 0d 70 32 78 | 20 3d 20 24 39 35 20 3b | $94.p2x| = $95 ;|
|00000c70| 74 48 45 59 a0 41 52 45 | a0 48 45 52 45 a0 53 4f |tHEY.ARE|.HERE.SO|
|00000c80| a0 54 48 41 54 a0 57 45 | 0d 70 32 79 20 3d 20 24 |.THAT.WE|.p2y = $|
|00000c90| 39 36 20 3b 44 4f 4e 27 | 54 a0 48 41 56 45 a0 54 |96 ;DON'|T.HAVE.T|
|00000ca0| 4f a0 52 45 43 41 4c 43 | 55 4c 41 54 45 a0 54 48 |O.RECALC|ULATE.TH|
|00000cb0| 45 4d 2e 0d 70 32 7a 20 | 3d 20 24 61 65 0d 70 33 |EM..p2z |= $ae.p3|
|00000cc0| 78 20 3d 20 24 61 66 20 | 3b 74 48 45 59 a0 4d 41 |x = $af |;tHEY.MA|
|00000cd0| 4b 45 a0 4c 49 46 45 a0 | 45 41 53 59 2e 0d 70 33 |KE.LIFE.|EASY..p3|
|00000ce0| 79 20 3d 20 24 62 30 0d | 70 33 7a 20 3d 20 24 62 |y = $b0.|p3z = $b|
|00000cf0| 31 20 3b 77 48 59 a0 41 | 52 45 a0 59 4f 55 a0 4c |1 ;wHY.A|RE.YOU.L|
|00000d00| 4f 4f 4b 49 4e 47 a0 41 | 54 a0 4d 45 a0 4c 49 4b |OOKING.A|T.ME.LIK|
|00000d10| 45 a0 54 48 41 54 3f 0d | 70 31 74 20 3d 20 24 62 |E.THAT?.|p1t = $b|
|00000d20| 32 20 3b 64 4f 4e 27 54 | a0 59 4f 55 a0 54 52 55 |2 ;dON'T|.YOU.TRU|
|00000d30| 53 54 a0 4d 45 3f 0d 70 | 32 74 20 3d 20 24 62 33 |ST.ME?.p|2t = $b3|
|00000d40| 0d 70 33 74 20 3d 20 24 | 62 34 20 3b 68 41 56 49 |.p3t = $|b4 ;hAVI|
|00000d50| 4e 47 a0 41 4e 4f 54 48 | 45 52 a0 43 48 49 4c 44 |NG.ANOTH|ER.CHILD|
|00000d60| a0 57 41 53 4e 27 54 a0 | 4d 59 a0 49 44 45 41 2e |.WASN'T.|MY.IDEA.|
|00000d70| 0d 69 6e 64 65 78 20 3d | 20 24 35 31 0d 63 6f 75 |.index =| $51.cou|
|00000d80| 6e 74 70 74 73 20 3d 20 | 24 35 32 0d 7a 6f 6f 6d |ntpts = |$52.zoom|
|00000d90| 20 3d 20 24 37 31 20 3b | 7a 4f 4f 4d a0 46 41 43 | = $71 ;|zOOM.FAC|
|00000da0| 54 4f 52 0d 64 73 78 20 | 3d 20 24 36 31 20 3b 64 |TOR.dsx |= $61 ;d|
|00000db0| 73 78 a0 49 53 a0 54 48 | 45 a0 49 4e 43 52 45 4d |sx.IS.TH|E.INCREM|
|00000dc0| 45 4e 54 a0 46 4f 52 0d | 20 20 20 3b 52 4f 54 41 |ENT.FOR.|   ;ROTA|
|00000dd0| 54 49 4e 47 a0 41 52 4f | 55 4e 44 a0 58 0d 64 73 |TING.ARO|UND.X.ds|
|00000de0| 79 20 3d 20 24 36 32 20 | 3b 73 49 4d 49 4c 41 52 |y = $62 |;sIMILAR|
|00000df0| a0 46 4f 52 a0 64 73 79 | 2c a0 64 73 7a 0d 64 73 |.FOR.dsy|,.dsz.ds|
|00000e00| 7a 20 3d 20 24 36 33 0d | 73 78 20 3d 20 24 36 34 |z = $63.|sx = $64|
|00000e10| 20 3b 74 48 45 53 45 a0 | 41 52 45 a0 54 48 45 a0 | ;tHESE.|ARE.THE.|
|00000e20| 41 43 54 55 41 4c a0 41 | 4e 47 4c 45 53 a0 49 4e |ACTUAL.A|NGLES.IN|
|00000e30| a0 58 a0 59 a0 41 4e 44 | a0 5a 0d 73 79 20 3d 20 |.X.Y.AND|.Z.sy = |
|00000e40| 24 36 35 0d 73 7a 20 3d | 20 24 36 36 0d 74 31 20 |$65.sz =| $66.t1 |
|00000e50| 3d 20 24 36 37 20 3b 74 | 48 45 53 45 a0 41 52 45 |= $67 ;t|HESE.ARE|
|00000e60| a0 55 53 45 44 a0 49 4e | a0 54 48 45 a0 52 4f 54 |.USED.IN|.THE.ROT|
|00000e70| 41 54 49 4f 4e 0d 74 32 | 20 3d 20 24 36 38 0d 74 |ATION.t2| = $68.t|
|00000e80| 33 20 3d 20 24 36 39 20 | 3b 73 45 45 a0 54 48 45 |3 = $69 |;sEE.THE|
|00000e90| a0 41 52 54 49 43 4c 45 | a0 46 4f 52 a0 4d 4f 52 |.ARTICLE|.FOR.MOR|
|00000ea0| 45 a0 44 45 54 41 49 4c | 53 0d 74 34 20 3d 20 24 |E.DETAIL|S.t4 = $|
|00000eb0| 36 61 0d 74 35 20 3d 20 | 24 36 62 0d 74 36 20 3d |6a.t5 = |$6b.t6 =|
|00000ec0| 20 24 36 63 0d 74 37 20 | 3d 20 24 36 64 0d 74 38 | $6c.t7 |= $6d.t8|
|00000ed0| 20 3d 20 24 36 65 0d 74 | 39 20 3d 20 24 36 66 0d | = $6e.t|9 = $6f.|
|00000ee0| 74 31 30 20 3d 20 24 37 | 30 0d 61 31 31 20 3d 20 |t10 = $7|0.a11 = |
|00000ef0| 24 61 35 20 3b 74 48 45 | 53 45 a0 41 52 45 a0 54 |$a5 ;tHE|SE.ARE.T|
|00000f00| 48 45 a0 45 4c 45 4d 45 | 4e 54 53 a0 4f 46 a0 54 |HE.ELEME|NTS.OF.T|
|00000f10| 48 45 a0 52 4f 54 41 54 | 49 4f 4e a0 4d 41 54 52 |HE.ROTAT|ION.MATR|
|00000f20| 49 58 0d 62 31 32 20 3d | 20 24 61 36 20 3b 78 79 |IX.b12 =| $a6 ;xy|
|00000f30| 7a 0d 63 31 33 20 3d 20 | 24 61 37 0d 64 32 31 20 |z.c13 = |$a7.d21 |
|00000f40| 3d 20 24 61 38 20 3b 74 | 48 45 a0 4e 55 4d 42 45 |= $a8 ;t|HE.NUMBE|
|00000f50| 52 a0 44 45 4e 4f 54 45 | 53 a0 28 52 4f 57 2c 43 |R.DENOTE|S.(ROW,C|
|00000f60| 4f 4c 55 4d 4e 29 0d 65 | 32 32 20 3d 20 24 61 39 |OLUMN).e|22 = $a9|
|00000f70| 0d 66 32 33 20 3d 20 24 | 61 61 0d 67 33 31 20 3d |.f23 = $|aa.g31 =|
|00000f80| 20 24 61 62 0d 68 33 32 | 20 3d 20 24 61 63 0d 69 | $ab.h32| = $ac.i|
|00000f90| 33 33 20 3d 20 24 61 64 | 0d 0d 0d 2a 2a 2a a0 6d |33 = $ad|...***.m|
|00000fa0| 41 43 52 4f 53 0d 0d 6d | 6f 76 65 20 6d 61 63 0d |ACROS..m|ove mac.|
|00000fb0| 20 6c 64 61 20 5d 31 0d | 20 73 74 61 20 5d 32 0d | lda ]1.| sta ]2.|
|00000fc0| 20 3c 3c 3c 0d 0d 67 65 | 74 6b 65 79 20 6d 61 63 | <<<..ge|tkey mac|
|00000fd0| 20 20 3b 77 41 49 54 a0 | 46 4f 52 a0 41 a0 4b 45 |  ;wAIT.|FOR.A.KE|
|00000fe0| 59 50 52 45 53 53 0d 77 | 61 69 74 20 6a 73 72 20 |YPRESS.w|ait jsr |
|00000ff0| 67 65 74 69 6e 0d 20 63 | 6d 70 20 23 30 30 0d 20 |getin. c|mp #00. |
|00001000| 62 65 71 20 77 61 69 74 | 0d 20 3c 3c 3c 0d 0d 64 |beq wait|. <<<..d|
|00001010| 65 62 75 67 20 6d 61 63 | 20 20 3b 70 52 49 4e 54 |ebug mac|  ;pRINT|
|00001020| a0 41 a0 43 48 41 52 41 | 43 54 45 52 0d 20 64 6f |.A.CHARA|CTER. do|
|00001030| a0 30 a0 a0 3b 64 4f 4e | 27 54 a0 41 53 53 45 4d |.0..;dON|'T.ASSEM|
|00001040| 42 4c 45 0d 0d 20 6c 64 | 61 a0 23 5d 31 0d 20 6a |BLE.. ld|a.#]1. j|
|00001050| 73 72 a0 63 68 72 6f 75 | 74 0d 20 63 6c 69 0d 20 |sr.chrou|t. cli. |
|00001060| 3e 3e 3e 20 67 65 74 6b | 65 79 20 3b 61 4e 44 a0 |>>> getk|ey ;aND.|
|00001070| 57 41 49 54 a0 54 4f a0 | 43 4f 4e 54 49 4e 55 45 |WAIT.TO.|CONTINUE|
|00001080| 0d 20 63 6d 70 20 23 27 | 53 27 20 3b 6d 59 a0 53 |. cmp #'|S' ;mY.S|
|00001090| 45 43 52 45 43 54 a0 53 | 57 49 54 43 48 a0 4b 45 |ECRECT.S|WITCH.KE|
|000010a0| 59 0d 20 62 6e 65 20 6c | 31 0d 20 6a 73 72 20 63 |Y. bne l|1. jsr c|
|000010b0| 6c 65 61 6e 75 70 0d 20 | 6a 6d 70 20 64 6f 6e 65 |leanup. |jmp done|
|000010c0| 0d 6c 31 20 63 6d 70 20 | 23 27 58 27 20 3b 6d 59 |.l1 cmp |#'X' ;mY|
|000010d0| a0 53 45 43 52 45 54 a0 | 41 42 4f 52 54 a0 4b 45 |.SECRET.|ABORT.KE|
|000010e0| 59 0d 20 62 6e 65 20 64 | 6f 6e 65 0d 20 6a 6d 70 |Y. bne d|one. jmp|
|000010f0| 20 63 6c 65 61 6e 75 70 | 0d 20 66 69 6e 0d 64 6f | cleanup|. fin.do|
|00001100| 6e 65 20 3c 3c 3c 0d 0d | 64 65 62 75 67 61 20 6d |ne <<<..|debuga m|
|00001110| 61 63 0d 20 64 6f a0 30 | 0d 20 6c 64 61 20 5d 31 |ac. do.0|. lda ]1|
|00001120| 0d 20 73 74 61 20 31 30 | 32 34 0d 20 66 69 6e 0d |. sta 10|24. fin.|
|00001130| 64 6f 6e 65 61 20 3c 3c | 3c 0d 0d 2a 2d 2d 2d 2d |donea <<|<..*----|
|00001140| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001150| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 0d 20 6c 64 |--------|---.. ld|
|00001160| 61 20 23 24 30 30 0d 20 | 73 74 61 20 62 6b 67 6e |a #$00. |sta bkgn|
|00001170| 64 0d 20 73 74 61 20 62 | 6f 72 64 65 72 0d 20 6c |d. sta b|order. l|
|00001180| 64 61 20 76 6d 63 73 62 | 0d 20 61 6e 64 20 23 25 |da vmcsb|. and #%|
|00001190| 30 30 30 30 31 31 31 31 | 20 3b 73 43 52 45 45 4e |00001111| ;sCREEN|
|000011a0| a0 4d 45 4d 4f 52 59 a0 | 54 4f a0 31 30 32 34 0d |.MEMORY.|TO.1024.|
|000011b0| 20 6f 72 61 20 23 25 30 | 30 30 31 30 30 30 30 0d | ora #%0|0010000.|
|000011c0| 20 73 74 61 20 76 6d 63 | 73 62 0d 0d 20 6c 64 79 | sta vmc|sb.. ldy|
|000011d0| 20 23 30 30 0d 20 6c 64 | 61 20 23 3c 74 74 65 78 | #00. ld|a #<ttex|
|000011e0| 74 0d 20 73 74 61 20 74 | 65 6d 70 31 0d 20 6c 64 |t. sta t|emp1. ld|
|000011f0| 61 20 23 3e 74 74 65 78 | 74 0d 20 73 74 61 20 74 |a #>ttex|t. sta t|
|00001200| 65 6d 70 32 0d 20 6a 6d | 70 20 74 69 74 6c 65 0d |emp2. jm|p title.|
|00001210| 74 74 65 78 74 20 68 65 | 78 20 39 33 30 35 31 31 |ttext he|x 930511|
|00001220| 31 31 31 31 20 3b 43 4c | 45 41 52 a0 53 43 52 45 |1111 ;CL|EAR.SCRE|
|00001230| 45 4e 2c a0 57 48 49 54 | 45 2c a0 43 52 53 52 a0 |EN,.WHIT|E,.CRSR.|
|00001240| 44 4e 0d 20 74 78 74 20 | 27 a0 a0 a0 a0 a0 a0 a0 |DN. txt |'.......|
|00001250| a0 a0 a0 a0 a0 a0 43 55 | 42 45 33 44 a0 56 33 2e |......CU|BE3D.V3.|
|00001260| 32 27 2c 30 44 2c 30 44 | 0d 20 74 78 74 20 27 a0 |2',0D,0D|. txt '.|
|00001270| a0 a0 a0 a0 a0 a0 a0 a0 | a0 a0 a0 a0 a0 a0 a0 a0 |........|........|
|00001280| a0 42 59 27 2c 30 44 0d | 20 68 65 78 20 39 66 20 |.BY',0D.| hex 9f |
|00001290| 3b 43 59 41 4e 0d 20 74 | 78 74 20 27 a0 a0 a0 a0 |;CYAN. t|xt '....|
|000012a0| 53 54 45 50 48 45 4e a0 | 4a 55 44 44 27 0d 20 68 |STEPHEN.|JUDD'. h|
|000012b0| 65 78 20 39 39 0d 20 74 | 78 74 20 27 a0 a0 a0 a0 |ex 99. t|xt '....|
|000012c0| 47 45 4f 52 47 45 a0 54 | 41 59 4c 4f 52 27 2c 30 |GEORGE.T|AYLOR',0|
|000012d0| 44 2c 30 44 0d 20 68 65 | 78 20 39 62 0d 20 74 78 |D,0D. he|x 9b. tx|
|000012e0| 74 20 27 a0 a0 43 48 45 | 43 4b a0 4f 55 54 a0 54 |t '..CHE|CK.OUT.T|
|000012f0| 48 45 a0 4a 41 4e 2e a0 | 39 35 a0 49 53 53 55 45 |HE.JAN..|95.ISSUE|
|00001300| a0 4f 46 27 2c 30 44 0d | 20 68 65 78 20 39 36 0d |.OF',0D.| hex 96.|
|00001310| 20 74 78 74 20 27 a0 a0 | 43 3d 48 41 43 4b 49 4e | txt '..|C=HACKIN|
|00001320| 47 27 0d 20 68 65 78 20 | 39 62 0d 20 74 78 74 20 |G'. hex |9b. txt |
|00001330| 27 a0 46 4f 52 a0 4d 4f | 52 45 a0 44 45 54 41 49 |'.FOR.MO|RE.DETAI|
|00001340| 4c 53 21 27 2c 30 44 0d | 20 68 65 78 20 30 64 31 |LS!',0D.| hex 0d1|
|00001350| 64 31 64 39 65 31 32 0d | 20 74 78 74 20 27 46 31 |d1d9e12.| txt 'F1|
|00001360| 2f 46 32 27 2c 39 32 0d | 20 74 78 74 20 27 a0 2d |/F2',92.| txt '.-|
|00001370| a0 49 4e 43 2f 44 45 43 | a0 58 2d 52 4f 54 41 54 |.INC/DEC|.X-ROTAT|
|00001380| 49 4f 4e 27 2c 30 44 0d | 20 68 65 78 20 31 64 31 |ION',0D.| hex 1d1|
|00001390| 64 31 32 0d 20 74 78 74 | 20 27 46 33 2f 46 34 27 |d12. txt| 'F3/F4'|
|000013a0| 2c 39 32 0d 20 74 78 74 | 20 27 a0 2d a0 49 4e 43 |,92. txt| '.-.INC|
|000013b0| 2f 44 45 43 a0 59 2d 52 | 4f 54 41 54 49 4f 4e 27 |/DEC.Y-R|OTATION'|
|000013c0| 2c 30 44 0d 20 68 65 78 | 20 31 64 31 64 31 32 0d |,0D. hex| 1d1d12.|
|000013d0| 20 74 78 74 20 27 46 35 | 2f 46 36 27 2c 39 32 0d | txt 'F5|/F6',92.|
|000013e0| 20 74 78 74 20 27 a0 2d | a0 49 4e 43 2f 44 45 43 | txt '.-|.INC/DEC|
|000013f0| a0 5a 2d 52 4f 54 41 54 | 49 4f 4e 27 2c 30 44 0d |.Z-ROTAT|ION',0D.|
|00001400| 20 68 65 78 20 31 64 31 | 64 31 32 0d 20 74 78 74 | hex 1d1|d12. txt|
|00001410| 20 27 a0 46 37 a0 a0 27 | 2c 39 32 0d 20 74 78 74 | '.F7..'|,92. txt|
|00001420| 20 27 a0 2d a0 52 45 53 | 45 54 27 2c 30 44 0d 20 | '.-.RES|ET',0D. |
|00001430| 68 65 78 20 31 64 31 64 | 31 32 0d 20 74 78 74 20 |hex 1d1d|12. txt |
|00001440| 27 a0 2b 2f 2d a0 27 2c | 39 32 0d 20 74 78 74 20 |'.+/-.',|92. txt |
|00001450| 27 a0 2d a0 5a 4f 4f 4d | a0 49 4e 2f 4f 55 54 27 |'.-.ZOOM|.IN/OUT'|
|00001460| 2c 30 44 0d 20 68 65 78 | 20 31 64 31 64 31 32 0d |,0D. hex| 1d1d12.|
|00001470| 20 74 78 74 20 27 a0 a0 | 48 a0 a0 27 2c 39 32 0d | txt '..|H..',92.|
|00001480| 20 74 78 74 20 27 a0 2d | a0 54 4f 47 47 4c 45 a0 | txt '.-|.TOGGLE.|
|00001490| 48 49 44 44 45 4e a0 53 | 55 52 46 41 43 45 53 27 |HIDDEN.S|URFACES'|
|000014a0| 2c 30 44 0d 20 68 65 78 | 20 31 64 31 64 31 32 0d |,0D. hex| 1d1d12.|
|000014b0| 20 74 78 74 20 27 53 50 | 41 43 45 27 2c 39 32 0d | txt 'SP|ACE',92.|
|000014c0| 20 74 78 74 20 27 a0 2d | a0 54 4f 47 47 4c 45 a0 | txt '.-|.TOGGLE.|
|000014d0| 53 55 52 46 41 43 45 a0 | 46 49 4c 4c 49 4e 47 27 |SURFACE.|FILLING'|
|000014e0| 2c 30 44 2c 30 44 0d 20 | 74 78 74 20 27 a0 a0 50 |,0D,0D. |txt '..P|
|000014f0| 52 45 53 53 a0 51 a0 54 | 4f a0 51 55 49 54 27 2c |RESS.Q.T|O.QUIT',|
|00001500| 30 44 0d 20 68 65 78 20 | 30 64 30 35 0d 20 74 78 |0D. hex |0d05. tx|
|00001510| 74 20 27 a0 a0 a0 a0 a0 | a0 50 52 45 53 53 a0 41 |t '.....|.PRESS.A|
|00001520| 4e 59 a0 4b 45 59 a0 54 | 4f a0 42 45 47 49 4e 27 |NY.KEY.T|O.BEGIN'|
|00001530| 2c 30 44 0d 20 68 65 78 | 20 30 30 0d 74 69 74 6c |,0D. hex| 00.titl|
|00001540| 65 20 6c 64 61 20 28 74 | 65 6d 70 31 29 2c 79 0d |e lda (t|emp1),y.|
|00001550| 20 62 65 71 20 3a 63 6f | 6e 74 0d 20 6a 73 72 20 | beq :co|nt. jsr |
|00001560| 63 68 72 6f 75 74 0d 20 | 69 6e 79 0d 20 62 6e 65 |chrout. |iny. bne|
|00001570| 20 74 69 74 6c 65 0d 20 | 69 6e 63 20 74 65 6d 70 | title. |inc temp|
|00001580| 32 0d 20 6a 6d 70 20 74 | 69 74 6c 65 0d 3a 63 6f |2. jmp t|itle.:co|
|00001590| 6e 74 20 3e 3e 3e 20 67 | 65 74 6b 65 79 0d 0d 2a |nt >>> g|etkey..*|
|000015a0| 2a 2a 2a a0 73 45 54 a0 | 55 50 a0 54 41 42 4c 45 |***.sET.|UP.TABLE|
|000015b0| 53 28 3f 29 0d 0d 2a a0 | 74 41 42 4c 45 53 a0 41 |S(?)..*.|tABLES.A|
|000015c0| 52 45 a0 43 55 52 52 45 | 4e 54 4c 59 a0 53 45 54 |RE.CURRE|NTLY.SET|
|000015d0| a0 55 50 a0 49 4e a0 62 | 61 73 69 63 0d 2a a0 41 |.UP.IN.b|asic.*.A|
|000015e0| 4e 44 a0 42 59 a0 54 48 | 45 a0 41 53 53 45 4d 42 |ND.BY.TH|E.ASSEMB|
|000015f0| 4c 45 52 2e 0d 0d 74 61 | 62 6c 65 73 20 6c 64 61 |LER...ta|bles lda|
|00001600| 20 23 3e 74 6d 61 74 68 | 31 0d 20 73 74 61 20 7a | #>tmath|1. sta z|
|00001610| 31 2b 31 0d 20 73 74 61 | 20 7a 32 2b 31 0d 20 6c |1+1. sta| z2+1. l|
|00001620| 64 61 20 23 3e 74 6d 61 | 74 68 32 0d 20 73 74 61 |da #>tma|th2. sta|
|00001630| 20 7a 33 2b 31 0d 20 73 | 74 61 20 7a 34 2b 31 0d | z3+1. s|ta z4+1.|
|00001640| 0d 2a 2a 2a 2a a0 63 4c | 45 41 52 a0 53 43 52 45 |.****.cL|EAR.SCRE|
|00001650| 45 4e a0 41 4e 44 a0 53 | 45 54 a0 55 50 a0 22 42 |EN.AND.S|ET.UP."B|
|00001660| 49 54 4d 41 50 22 0d 73 | 65 74 75 70 20 6c 64 61 |ITMAP".s|etup lda|
|00001670| 20 23 24 30 31 20 3b 77 | 48 49 54 45 0d 20 73 74 | #$01 ;w|HITE. st|
|00001680| 61 20 24 64 30 32 31 20 | 3b 74 48 49 53 a0 49 53 |a $d021 |;tHIS.IS|
|00001690| a0 44 4f 4e 45 a0 53 4f | a0 54 48 41 54 a0 4f 4c |.DONE.SO|.THAT.OL|
|000016a0| 44 45 52 0d 20 6c 64 61 | 20 23 31 34 37 20 3b 4d |DER. lda| #147 ;M|
|000016b0| 41 43 48 49 4e 45 53 a0 | 57 49 4c 4c a0 53 45 54 |ACHINES.|WILL.SET|
|000016c0| a0 55 50 0d 20 6a 73 72 | 20 63 68 72 6f 75 74 0d |.UP. jsr| chrout.|
|000016d0| 20 6c 64 61 20 23 24 30 | 30 20 3b 43 4f 52 52 45 | lda #$0|0 ;CORRE|
|000016e0| 43 54 4c 59 0d 20 73 74 | 61 20 24 64 30 32 31 0d |CTLY. st|a $d021.|
|000016f0| 20 6c 64 61 20 23 3c 73 | 73 74 61 72 74 0d 20 61 | lda #<s|start. a|
|00001700| 64 63 20 23 31 32 20 3b | 74 48 45 a0 47 4f 41 4c |dc #12 ;|tHE.GOAL|
|00001710| a0 49 53 a0 54 4f a0 43 | 45 4e 54 45 52 a0 54 48 |.IS.TO.C|ENTER.TH|
|00001720| 45 a0 47 52 41 50 48 49 | 43 53 0d 20 73 74 61 20 |E.GRAPHI|CS. sta |
|00001730| 74 65 6d 70 31 20 3b 63 | 4f 4c 55 4d 4e a0 31 32 |temp1 ;c|OLUMN.12|
|00001740| 0d 20 6c 64 61 20 23 3e | 73 73 74 61 72 74 20 3b |. lda #>|sstart ;|
|00001750| 72 4f 57 a0 39 0d 20 73 | 74 61 20 74 65 6d 70 31 |rOW.9. s|ta temp1|
|00001760| 2b 31 20 3b 73 73 74 61 | 72 74 a0 50 4f 49 4e 54 |+1 ;ssta|rt.POINT|
|00001770| 53 a0 54 4f a0 52 4f 57 | a0 39 0d 20 6c 64 61 20 |S.TO.ROW|.9. lda |
|00001780| 23 30 30 0d 20 6c 64 79 | 20 23 30 30 0d 20 6c 64 |#00. ldy| #00. ld|
|00001790| 78 20 23 30 30 20 3b 58 | a0 57 49 4c 4c a0 43 4f |x #00 ;X|.WILL.CO|
|000017a0| 55 4e 54 a0 31 36 a0 52 | 4f 57 53 a0 46 4f 52 a0 |UNT.16.R|OWS.FOR.|
|000017b0| 55 53 0d 20 63 6c 63 0d | 0d 3a 6c 6f 6f 70 20 73 |US. clc.|.:loop s|
|000017c0| 74 61 20 28 74 65 6d 70 | 31 29 2c 79 0d 20 69 6e |ta (temp|1),y. in|
|000017d0| 79 0d 20 61 64 63 20 23 | 31 36 0d 20 62 63 63 20 |y. adc #|16. bcc |
|000017e0| 3a 6c 6f 6f 70 0d 20 63 | 6c 63 0d 20 6c 64 61 20 |:loop. c|lc. lda |
|000017f0| 74 65 6d 70 31 0d 20 61 | 64 63 20 23 34 30 20 3b |temp1. a|dc #40 ;|
|00001800| 6e 45 45 44 a0 54 4f a0 | 41 44 44 a0 34 30 a0 54 |nEED.TO.|ADD.40.T|
|00001810| 4f a0 54 48 45 a0 42 41 | 53 45 a0 50 4f 49 4e 54 |O.THE.BA|SE.POINT|
|00001820| 45 52 0d 20 73 74 61 20 | 74 65 6d 70 31 20 3b 74 |ER. sta |temp1 ;t|
|00001830| 4f a0 4a 55 4d 50 a0 54 | 4f a0 54 48 45 a0 4e 45 |O.JUMP.T|O.THE.NE|
|00001840| 58 54 a0 52 4f 57 0d 20 | 6c 64 61 20 74 65 6d 70 |XT.ROW. |lda temp|
|00001850| 31 2b 31 0d 20 61 64 63 | 20 23 30 30 20 3b 74 41 |1+1. adc| #00 ;tA|
|00001860| 4b 45 a0 43 41 52 45 a0 | 4f 46 a0 43 41 52 52 49 |KE.CARE.|OF.CARRI|
|00001870| 45 53 0d 20 73 74 61 20 | 74 65 6d 70 31 2b 31 0d |ES. sta |temp1+1.|
|00001880| 20 6c 64 79 20 23 30 30 | 0d 20 69 6e 78 0d 20 74 | ldy #00|. inx. t|
|00001890| 78 61 20 20 3b 78 a0 49 | 53 a0 41 4c 53 4f a0 41 |xa  ;x.I|S.ALSO.A|
|000018a0| 4e a0 49 4e 44 45 58 a0 | 49 4e 54 4f a0 54 48 45 |N.INDEX.|INTO.THE|
|000018b0| a0 43 48 41 52 41 43 54 | 45 52 a0 4e 55 4d 42 45 |.CHARACT|ER.NUMBE|
|000018c0| 52 0d 20 63 70 78 20 23 | 31 36 0d 20 62 6e 65 20 |R. cpx #|16. bne |
|000018d0| 3a 6c 6f 6f 70 20 3b 6e | 45 45 44 a0 54 4f a0 44 |:loop ;n|EED.TO.D|
|000018e0| 4f a0 49 54 a0 31 36 a0 | 54 49 4d 45 53 0d 0d 2a |O.IT.16.|TIMES..*|
|000018f0| 2a 2a 2a a0 63 4c 45 41 | 52 a0 42 55 46 46 45 52 |***.cLEA|R.BUFFER|
|00001900| 53 0d 0d 20 6c 64 61 20 | 23 3c 62 75 66 66 31 0d |S.. lda |#<buff1.|
|00001910| 20 73 74 61 20 62 75 66 | 66 65 72 0d 20 6c 64 61 | sta buf|fer. lda|
|00001920| 20 23 3e 62 75 66 66 31 | 0d 20 73 74 61 20 62 75 | #>buff1|. sta bu|
|00001930| 66 66 65 72 2b 31 0d 20 | 6c 64 79 20 23 24 30 30 |ffer+1. |ldy #$00|
|00001940| 0d 20 6c 64 78 20 23 32 | 34 20 3b 61 53 53 55 4d |. ldx #2|4 ;aSSUM|
|00001950| 49 4e 47 a0 41 4c 4c a0 | 54 48 52 45 45 a0 42 55 |ING.ALL.|THREE.BU|
|00001960| 46 46 45 52 53 a0 41 52 | 45 0d 20 6c 64 61 20 23 |FFERS.AR|E. lda #|
|00001970| 24 30 30 20 3b 42 41 43 | 4b 2d 54 4f 2d 42 41 43 |$00 ;BAC|K-TO-BAC|
|00001980| 4b 0d 3a 62 6c 6f 6f 70 | 20 73 74 61 20 28 62 75 |K.:bloop| sta (bu|
|00001990| 66 66 65 72 29 2c 79 0d | 20 69 6e 79 0d 20 62 6e |ffer),y.| iny. bn|
|000019a0| 65 20 3a 62 6c 6f 6f 70 | 0d 20 69 6e 63 20 62 75 |e :bloop|. inc bu|
|000019b0| 66 66 65 72 2b 31 0d 20 | 64 65 78 0d 20 62 6e 65 |ffer+1. |dex. bne|
|000019c0| 20 3a 62 6c 6f 6f 70 0d | 0d 2a 2a 2a 2a a0 73 45 | :bloop.|.****.sE|
|000019d0| 54 a0 55 50 a0 42 55 46 | 46 45 52 53 0d 0d 20 6c |T.UP.BUF|FERS.. l|
|000019e0| 64 61 20 23 3c 62 75 66 | 66 31 0d 20 73 74 61 20 |da #<buf|f1. sta |
|000019f0| 62 75 66 66 65 72 0d 20 | 6c 64 61 20 23 3e 62 75 |buffer. |lda #>bu|
|00001a00| 66 66 31 0d 20 73 74 61 | 20 62 75 66 66 65 72 2b |ff1. sta| buffer+|
|00001a10| 31 0d 20 73 74 61 20 7a | 74 65 6d 70 20 3b 5a 54 |1. sta z|temp ;ZT|
|00001a20| 45 4d 50 a0 57 49 4c 4c | a0 4d 41 4b 45 a0 4c 49 |EMP.WILL|.MAKE.LI|
|00001a30| 46 45 a0 53 49 4d 50 4c | 45 a0 46 4f 52 a0 55 53 |FE.SIMPL|E.FOR.US|
|00001a40| 0d 20 6c 64 61 20 76 6d | 63 73 62 0d 20 61 6e 64 |. lda vm|csb. and|
|00001a50| 20 23 25 31 31 31 31 30 | 30 30 31 20 3b 73 54 41 | #%11110|001 ;sTA|
|00001a60| 52 54 a0 48 45 52 45 a0 | 53 4f a0 54 48 41 54 a0 |RT.HERE.|SO.THAT.|
|00001a70| 53 57 41 50 a0 42 55 46 | 46 45 52 53 a0 57 49 4c |SWAP.BUF|FERS.WIL|
|00001a80| 4c a0 57 4f 52 4b a0 52 | 49 47 48 54 0d 20 6f 72 |L.WORK.R|IGHT. or|
|00001a90| 61 20 23 25 30 30 30 30 | 31 31 31 30 0d 20 73 74 |a #%0000|1110. st|
|00001aa0| 61 20 76 6d 63 73 62 0d | 0d 2a 2a 2a 2a a0 73 45 |a vmcsb.|.****.sE|
|00001ab0| 54 a0 55 50 a0 49 4e 49 | 54 49 41 4c a0 56 41 4c |T.UP.INI|TIAL.VAL|
|00001ac0| 55 45 53 0d 0d 69 6e 69 | 74 20 6c 64 61 20 23 30 |UES..ini|t lda #0|
|00001ad0| 30 0d 20 73 74 61 20 6c | 6f 63 78 6d 69 6e 0d 20 |0. sta l|ocxmin. |
|00001ae0| 73 74 61 20 6c 6f 63 78 | 6d 61 78 0d 20 73 74 61 |sta locx|max. sta|
|00001af0| 20 6c 6f 63 79 6d 69 6e | 0d 20 73 74 61 20 6c 6f | locymin|. sta lo|
|00001b00| 63 79 6d 61 78 0d 20 73 | 74 61 20 67 6c 6f 62 78 |cymax. s|ta globx|
|00001b10| 6d 69 6e 0d 20 73 74 61 | 20 67 6c 6f 62 79 6d 69 |min. sta| globymi|
|00001b20| 6e 0d 20 73 74 61 20 67 | 6c 6f 62 78 6d 61 78 0d |n. sta g|lobxmax.|
|00001b30| 20 73 74 61 20 67 6c 6f | 62 79 6d 61 78 0d 20 73 | sta glo|bymax. s|
|00001b40| 74 61 20 64 73 78 0d 20 | 73 74 61 20 64 73 79 0d |ta dsx. |sta dsy.|
|00001b50| 20 73 74 61 20 64 73 7a | 0d 20 73 74 61 20 73 78 | sta dsz|. sta sx|
|00001b60| 0d 20 73 74 61 20 73 79 | 0d 20 73 74 61 20 73 7a |. sta sy|. sta sz|
|00001b70| 0d 20 73 74 61 20 66 69 | 6c 6c 0d 20 6c 64 61 20 |. sta fi|ll. lda |
|00001b80| 23 30 31 0d 20 73 74 61 | 20 68 69 64 65 0d 20 6c |#01. sta| hide. l|
|00001b90| 64 61 20 23 36 34 0d 20 | 73 74 61 20 7a 6f 6f 6d |da #64. |sta zoom|
|00001ba0| 0d 0d 2a 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..*-----|--------|
|00001bb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001bc0| 2d 2d 0d 2a a0 6d 41 49 | 4e a0 4c 4f 4f 50 0d 0d |--.*.mAI|N.LOOP..|
|00001bd0| 2a 2a 2a 2a a0 67 45 54 | a0 4b 45 59 50 52 45 53 |****.gET|.KEYPRES|
|00001be0| 53 0d 0d 6d 61 69 6e 0d | 20 63 6c 69 0d 6b 70 72 |S..main.| cli.kpr|
|00001bf0| 65 73 73 20 6a 73 72 20 | 67 65 74 69 6e 0d 20 63 |ess jsr |getin. c|
|00001c00| 6d 70 20 23 31 33 33 20 | 3b 66 31 3f 0d 20 62 6e |mp #133 |;f1?. bn|
|00001c10| 65 20 3a 66 32 0d 20 6c | 64 61 20 64 73 78 0d 20 |e :f2. l|da dsx. |
|00001c20| 63 6d 70 20 23 61 6e 67 | 6d 61 78 2f 32 20 3b 6e |cmp #ang|max/2 ;n|
|00001c30| 4f a0 4d 4f 52 45 a0 54 | 48 41 4e a0 50 49 0d 20 |O.MORE.T|HAN.PI. |
|00001c40| 62 65 71 20 3a 63 6f 6e | 74 31 0d 20 69 6e 63 20 |beq :con|t1. inc |
|00001c50| 64 73 78 20 3b 4f 54 48 | 45 52 57 49 53 45 a0 49 |dsx ;OTH|ERWISE.I|
|00001c60| 4e 43 52 45 41 53 45 a0 | 58 2d 52 4f 54 41 54 49 |NCREASE.|X-ROTATI|
|00001c70| 4f 4e 0d 20 6a 6d 70 20 | 3a 63 6f 6e 74 0d 3a 66 |ON. jmp |:cont.:f|
|00001c80| 32 20 63 6d 70 20 23 31 | 33 37 20 3b 66 32 3f 0d |2 cmp #1|37 ;f2?.|
|00001c90| 20 62 6e 65 20 3a 66 33 | 0d 20 6c 64 61 20 64 73 | bne :f3|. lda ds|
|00001ca0| 78 0d 20 62 65 71 20 3a | 63 6f 6e 74 31 0d 20 64 |x. beq :|cont1. d|
|00001cb0| 65 63 20 64 73 78 0d 20 | 6a 6d 70 20 3a 63 6f 6e |ec dsx. |jmp :con|
|00001cc0| 74 0d 3a 66 33 20 63 6d | 70 20 23 31 33 34 0d 20 |t.:f3 cm|p #134. |
|00001cd0| 62 6e 65 20 3a 66 34 0d | 20 6c 64 61 20 64 73 79 |bne :f4.| lda dsy|
|00001ce0| 0d 20 63 6d 70 20 23 61 | 6e 67 6d 61 78 2f 32 0d |. cmp #a|ngmax/2.|
|00001cf0| 20 62 65 71 20 3a 63 6f | 6e 74 31 0d 20 69 6e 63 | beq :co|nt1. inc|
|00001d00| 20 64 73 79 20 3b 69 4e | 43 52 45 41 53 45 a0 59 | dsy ;iN|CREASE.Y|
|00001d10| 2d 52 4f 54 41 54 49 4f | 4e 0d 20 6a 6d 70 20 3a |-ROTATIO|N. jmp :|
|00001d20| 63 6f 6e 74 0d 3a 66 34 | 20 63 6d 70 20 23 31 33 |cont.:f4| cmp #13|
|00001d30| 38 0d 20 62 6e 65 20 3a | 66 35 0d 20 6c 64 61 20 |8. bne :|f5. lda |
|00001d40| 64 73 79 0d 20 62 65 71 | 20 3a 63 6f 6e 74 31 0d |dsy. beq| :cont1.|
|00001d50| 20 64 65 63 20 64 73 79 | 0d 20 6a 6d 70 20 3a 63 | dec dsy|. jmp :c|
|00001d60| 6f 6e 74 0d 3a 66 35 20 | 63 6d 70 20 23 31 33 35 |ont.:f5 |cmp #135|
|00001d70| 0d 20 62 6e 65 20 3a 66 | 36 0d 20 6c 64 61 20 64 |. bne :f|6. lda d|
|00001d80| 73 7a 0d 20 63 6d 70 20 | 23 61 6e 67 6d 61 78 2f |sz. cmp |#angmax/|
|00001d90| 32 0d 20 62 65 71 20 3a | 63 6f 6e 74 31 0d 20 69 |2. beq :|cont1. i|
|00001da0| 6e 63 20 64 73 7a 20 3b | 5a 2d 52 4f 54 41 54 49 |nc dsz ;|Z-ROTATI|
|00001db0| 4f 4e 0d 20 6a 6d 70 20 | 3a 63 6f 6e 74 0d 3a 66 |ON. jmp |:cont.:f|
|00001dc0| 36 20 63 6d 70 20 23 31 | 33 39 0d 20 62 6e 65 20 |6 cmp #1|39. bne |
|00001dd0| 3a 66 37 0d 20 6c 64 61 | 20 64 73 7a 0d 20 62 65 |:f7. lda| dsz. be|
|00001de0| 71 20 3a 63 6f 6e 74 31 | 0d 20 64 65 63 20 64 73 |q :cont1|. dec ds|
|00001df0| 7a 0d 20 6a 6d 70 20 3a | 63 6f 6e 74 0d 3a 66 37 |z. jmp :|cont.:f7|
|00001e00| 20 63 6d 70 20 23 31 33 | 36 0d 20 62 6e 65 20 3a | cmp #13|6. bne :|
|00001e10| 70 6c 75 73 0d 20 6a 6d | 70 20 69 6e 69 74 0d 3a |plus. jm|p init.:|
|00001e20| 63 6f 6e 74 31 20 6a 6d | 70 20 3a 63 6f 6e 74 0d |cont1 jm|p :cont.|
|00001e30| 3a 70 6c 75 73 20 63 6d | 70 20 23 27 2b 27 0d 20 |:plus cm|p #'+'. |
|00001e40| 62 6e 65 20 3a 6d 69 6e | 75 73 0d 20 69 6e 63 20 |bne :min|us. inc |
|00001e50| 7a 6f 6f 6d 20 3b 62 41 | 48 2c a0 57 48 4f a0 4e |zoom ;bA|H,.WHO.N|
|00001e60| 45 45 44 53 a0 45 52 52 | 4f 52 a0 43 48 45 43 4b |EEDS.ERR|OR.CHECK|
|00001e70| 49 4e 47 3f 0d 20 69 6e | 63 20 7a 6f 6f 6d 0d 20 |ING?. in|c zoom. |
|00001e80| 6a 6d 70 20 3a 63 6f 6e | 74 0d 3a 6d 69 6e 75 73 |jmp :con|t.:minus|
|00001e90| 20 63 6d 70 20 23 27 2d | 27 0d 20 62 6e 65 20 3a | cmp #'-|'. bne :|
|00001ea0| 68 0d 20 64 65 63 20 7a | 6f 6f 6d 0d 20 64 65 63 |h. dec z|oom. dec|
|00001eb0| 20 7a 6f 6f 6d 0d 20 62 | 70 6c 20 3a 63 6f 6e 74 | zoom. b|pl :cont|
|00001ec0| 0d 20 69 6e 63 20 7a 6f | 6f 6d 0d 20 69 6e 63 20 |. inc zo|om. inc |
|00001ed0| 7a 6f 6f 6d 0d 20 6a 6d | 70 20 3a 63 6f 6e 74 0d |zoom. jm|p :cont.|
|00001ee0| 3a 68 20 63 6d 70 20 23 | 27 48 27 0d 20 62 6e 65 |:h cmp #|'H'. bne|
|00001ef0| 20 3a 73 70 61 63 65 0d | 20 6c 64 61 20 68 69 64 | :space.| lda hid|
|00001f00| 65 0d 20 65 6f 72 20 23 | 24 30 31 0d 20 73 74 61 |e. eor #|$01. sta|
|00001f10| 20 68 69 64 65 0d 20 6a | 6d 70 20 3a 63 6f 6e 74 | hide. j|mp :cont|
|00001f20| 0d 3a 73 70 61 63 65 20 | 63 6d 70 20 23 27 a0 27 |.:space |cmp #'.'|
|00001f30| 0d 20 62 6e 65 20 3a 71 | 0d 20 6c 64 61 20 66 69 |. bne :q|. lda fi|
|00001f40| 6c 6c 0d 20 65 6f 72 20 | 23 24 30 31 0d 20 73 74 |ll. eor |#$01. st|
|00001f50| 61 20 66 69 6c 6c 0d 20 | 6a 6d 70 20 3a 63 6f 6e |a fill. |jmp :con|
|00001f60| 74 0d 3a 71 20 63 6d 70 | 20 23 27 51 27 20 3b 51 |t.:q cmp| #'Q' ;Q|
|00001f70| a0 51 55 49 54 53 0d 20 | 62 6e 65 20 3a 63 6f 6e |.QUITS. |bne :con|
|00001f80| 74 0d 20 6a 6d 70 20 63 | 6c 65 61 6e 75 70 0d 0d |t. jmp c|leanup..|
|00001f90| 3a 63 6f 6e 74 20 73 65 | 69 20 20 3b 73 50 45 45 |:cont se|i  ;sPEE|
|00001fa0| 44 a0 54 48 49 4e 47 53 | a0 55 50 a0 41 a0 42 49 |D.THINGS|.UP.A.BI|
|00001fb0| 54 0d 0d 2a 2a 2a 2a a0 | 75 50 44 41 54 45 a0 41 |T..****.|uPDATE.A|
|00001fc0| 4e 47 4c 45 53 0d 0d 75 | 70 64 61 74 65 20 63 6c |NGLES..u|pdate cl|
|00001fd0| 63 0d 20 6c 64 61 20 73 | 78 0d 20 61 64 63 20 64 |c. lda s|x. adc d|
|00001fe0| 73 78 0d 20 63 6d 70 20 | 23 61 6e 67 6d 61 78 20 |sx. cmp |#angmax |
|00001ff0| 3b 61 52 45 a0 57 45 a0 | 3e 3d a0 4d 41 58 49 4d |;aRE.WE.|>=.MAXIM|
|00002000| 55 4d a0 41 4e 47 4c 45 | 3f 0d 20 62 63 63 20 3a |UM.ANGLE|?. bcc :|
|00002010| 63 6f 6e 74 31 0d 20 73 | 62 63 20 23 61 6e 67 6d |cont1. s|bc #angm|
|00002020| 61 78 20 3a 69 46 20 53 | 4f 2c 20 52 45 53 45 54 |ax :iF S|O, RESET|
|00002030| 0d 3a 63 6f 6e 74 31 20 | 73 74 61 20 73 78 0d 20 |.:cont1 |sta sx. |
|00002040| 63 6c 63 0d 20 6c 64 61 | 20 73 79 0d 20 61 64 63 |clc. lda| sy. adc|
|00002050| 20 64 73 79 0d 20 63 6d | 70 20 23 61 6e 67 6d 61 | dsy. cm|p #angma|
|00002060| 78 0d 20 62 63 63 20 3a | 63 6f 6e 74 32 0d 20 73 |x. bcc :|cont2. s|
|00002070| 62 63 20 23 61 6e 67 6d | 61 78 20 3b 73 41 4d 45 |bc #angm|ax ;sAME|
|00002080| a0 44 45 41 4c 0d 3a 63 | 6f 6e 74 32 20 73 74 61 |.DEAL.:c|ont2 sta|
|00002090| 20 73 79 0d 20 63 6c 63 | 0d 20 6c 64 61 20 73 7a | sy. clc|. lda sz|
|000020a0| 0d 20 61 64 63 20 64 73 | 7a 0d 20 63 6d 70 20 23 |. adc ds|z. cmp #|
|000020b0| 61 6e 67 6d 61 78 0d 20 | 62 63 63 20 3a 63 6f 6e |angmax. |bcc :con|
|000020c0| 74 33 0d 20 73 62 63 20 | 23 61 6e 67 6d 61 78 0d |t3. sbc |#angmax.|
|000020d0| 3a 63 6f 6e 74 33 20 73 | 74 61 20 73 7a 0d 0d 2a |:cont3 s|ta sz..*|
|000020e0| 2a 2a 2a a0 72 4f 54 41 | 54 45 a0 43 4f 4f 52 44 |***.rOTA|TE.COORD|
|000020f0| 49 4e 41 54 45 53 0d 0d | 72 6f 74 61 74 65 0d 0d |INATES..|rotate..|
|00002100| 2a 2a 2a a0 66 49 52 53 | 54 2c a0 43 41 4c 43 55 |***.fIRS|T,.CALCU|
|00002110| 4c 41 54 45 a0 54 31 2c | 54 32 2c 2e 2e 2e 2c 54 |LATE.T1,|T2,...,T|
|00002120| 31 30 0d 0d 2a 2a a0 74 | 57 4f a0 4d 41 43 52 4f |10..**.t|WO.MACRO|
|00002130| 53 a0 54 4f a0 53 49 4d | 50 4c 49 46 59 a0 4f 55 |S.TO.SIM|PLIFY.OU|
|00002140| 52 a0 4c 49 46 45 0d 61 | 64 64 61 20 6d 61 63 20 |R.LIFE.a|dda mac |
|00002150| 20 3b 61 44 44 a0 54 57 | 4f a0 41 4e 47 4c 45 53 | ;aDD.TW|O.ANGLES|
|00002160| a0 54 4f 47 45 54 48 45 | 52 0d 20 63 6c 63 0d 20 |.TOGETHE|R. clc. |
|00002170| 6c 64 61 20 5d 31 0d 20 | 61 64 63 20 5d 32 0d 20 |lda ]1. |adc ]2. |
|00002180| 63 6d 70 20 23 61 6e 67 | 6d 61 78 20 3b 69 53 a0 |cmp #ang|max ;iS.|
|00002190| 54 48 45 a0 53 55 4d a0 | 3e a0 32 2a 50 49 3f 0d |THE.SUM.|>.2*PI?.|
|000021a0| 20 62 63 63 20 64 6f 6e | 65 0d 20 73 62 63 20 23 | bcc don|e. sbc #|
|000021b0| 61 6e 67 6d 61 78 20 3b | 69 46 a0 53 4f 2c a0 53 |angmax ;|iF.SO,.S|
|000021c0| 55 42 54 52 41 43 54 a0 | 32 2a 50 49 0d 64 6f 6e |UBTRACT.|2*PI.don|
|000021d0| 65 20 3c 3c 3c 0d 0d 73 | 75 62 61 20 6d 61 63 20 |e <<<..s|uba mac |
|000021e0| 20 3b 73 55 42 54 52 41 | 43 54 a0 54 57 4f a0 41 | ;sUBTRA|CT.TWO.A|
|000021f0| 4e 47 4c 45 53 0d 20 73 | 65 63 0d 20 6c 64 61 20 |NGLES. s|ec. lda |
|00002200| 5d 31 0d 20 73 62 63 20 | 5d 32 0d 20 62 63 73 20 |]1. sbc |]2. bcs |
|00002210| 64 6f 6e 65 0d 20 61 64 | 63 20 23 61 6e 67 6d 61 |done. ad|c #angma|
|00002220| 78 20 3b 6f 4f 50 53 2c | a0 57 45 a0 4e 45 45 44 |x ;oOPS,|.WE.NEED|
|00002230| a0 54 4f a0 41 44 44 a0 | 32 2a 50 49 0d 64 6f 6e |.TO.ADD.|2*PI.don|
|00002240| 65 20 3c 3c 3c 0d 0d 2a | 2a a0 6e 4f 57 a0 43 41 |e <<<..*|*.nOW.CA|
|00002250| 4c 43 55 4c 41 54 45 a0 | 54 31 2c 54 32 2c 45 54 |LCULATE.|T1,T2,ET|
|00002260| 43 2e 0d 0d 20 3e 3e 3e | 20 73 75 62 61 2c 73 79 |C... >>>| suba,sy|
|00002270| 3b 73 7a 0d 20 73 74 61 | 20 74 31 20 3b 54 31 3d |;sz. sta| t1 ;T1=|
|00002280| 53 59 2d 53 5a 0d 20 3e | 3e 3e 20 61 64 64 61 2c |SY-SZ. >|>> adda,|
|00002290| 73 79 3b 73 7a 0d 20 73 | 74 61 20 74 32 20 3b 54 |sy;sz. s|ta t2 ;T|
|000022a0| 32 3d 53 59 2b 53 5a 0d | 20 3e 3e 3e 20 61 64 64 |2=SY+SZ.| >>> add|
|000022b0| 61 2c 73 78 3b 73 7a 0d | 20 73 74 61 20 74 33 20 |a,sx;sz.| sta t3 |
|000022c0| 3b 54 33 3d 53 58 2b 53 | 5a 0d 20 3e 3e 3e 20 73 |;T3=SX+S|Z. >>> s|
|000022d0| 75 62 61 2c 73 78 3b 73 | 7a 0d 20 73 74 61 20 74 |uba,sx;s|z. sta t|
|000022e0| 34 20 3b 54 34 3d 53 58 | 2d 53 5a 0d 20 3e 3e 3e |4 ;T4=SX|-SZ. >>>|
|000022f0| 20 61 64 64 61 2c 73 78 | 3b 74 32 0d 20 73 74 61 | adda,sx|;t2. sta|
|00002300| 20 74 35 20 3b 54 35 3d | 53 58 2b 54 32 0d 20 3e | t5 ;T5=|SX+T2. >|
|00002310| 3e 3e 20 73 75 62 61 2c | 73 78 3b 74 31 0d 20 73 |>> suba,|sx;t1. s|
|00002320| 74 61 20 74 36 20 3b 54 | 36 3d 53 58 2d 54 31 0d |ta t6 ;T|6=SX-T1.|
|00002330| 20 3e 3e 3e 20 61 64 64 | 61 2c 73 78 3b 74 31 0d | >>> add|a,sx;t1.|
|00002340| 20 73 74 61 20 74 37 20 | 3b 54 37 3d 53 58 2b 54 | sta t7 |;T7=SX+T|
|00002350| 31 0d 20 3e 3e 3e 20 73 | 75 62 61 2c 74 32 3b 73 |1. >>> s|uba,t2;s|
|00002360| 78 0d 20 73 74 61 20 74 | 38 20 3b 54 38 3d 54 32 |x. sta t|8 ;T8=T2|
|00002370| 2d 53 58 0d 20 3e 3e 3e | 20 73 75 62 61 2c 73 79 |-SX. >>>| suba,sy|
|00002380| 3b 73 78 0d 20 73 74 61 | 20 74 39 20 3b 54 39 3d |;sx. sta| t9 ;T9=|
|00002390| 53 59 2d 53 58 0d 20 3e | 3e 3e 20 61 64 64 61 2c |SY-SX. >|>> adda,|
|000023a0| 73 78 3b 73 79 0d 20 73 | 74 61 20 74 31 30 20 3b |sx;sy. s|ta t10 ;|
|000023b0| 54 31 30 3d 53 58 2b 53 | 59 0d 0d 2a a0 65 54 a0 |T10=SX+S|Y..*.eT.|
|000023c0| 56 4f 49 4c 41 21 0d 0d | 2a 2a 2a a0 6e 45 58 54 |VOILA!..|***.nEXT|
|000023d0| 2c a0 43 41 4c 43 55 4c | 41 54 45 a0 61 2c 62 2c |,.CALCUL|ATE.a,b,|
|000023e0| 63 2c 2e 2e 2e 2c 69 0d | 0d 2a 2a a0 61 4e 4f 54 |c,...,i.|.**.aNOT|
|000023f0| 48 45 52 a0 55 53 45 46 | 55 4c a0 4c 49 54 54 4c |HER.USEF|UL.LITTL|
|00002400| 45 a0 4d 41 43 52 4f 0d | 64 69 76 32 20 6d 61 63 |E.MACRO.|div2 mac|
|00002410| 20 20 3b 64 49 56 49 44 | 45 a0 41 a0 53 49 47 4e |  ;dIVID|E.A.SIGN|
|00002420| 45 44 a0 4e 55 4d 42 45 | 52 a0 42 59 a0 32 0d 3b |ED.NUMBE|R.BY.2.;|
|00002430| 69 54 a0 49 53 a0 41 53 | 53 55 4d 45 44 a0 54 48 |iT.IS.AS|SUMED.TH|
|00002440| 41 54 a0 54 48 45 a0 4e | 55 4d 42 45 52 0d 20 62 |AT.THE.N|UMBER. b|
|00002450| 70 6c 20 70 6f 73 20 3b | 49 53 a0 49 4e a0 54 48 |pl pos ;|IS.IN.TH|
|00002460| 45 a0 41 43 43 55 4d 55 | 4c 41 54 4f 52 0d 20 63 |E.ACCUMU|LATOR. c|
|00002470| 6c 63 0d 20 65 6f 72 20 | 23 24 66 66 20 3b 77 45 |lc. eor |#$ff ;wE|
|00002480| a0 4e 45 45 44 a0 54 4f | a0 55 4e 2d 4e 45 47 41 |.NEED.TO|.UN-NEGA|
|00002490| 54 49 56 45 a0 54 48 45 | a0 4e 55 4d 42 45 52 0d |TIVE.THE|.NUMBER.|
|000024a0| 20 61 64 63 20 23 30 31 | 20 3b 42 59 a0 54 41 4b | adc #01| ;BY.TAK|
|000024b0| 49 4e 47 a0 49 54 27 53 | a0 43 4f 4d 50 4c 45 4d |ING.IT'S|.COMPLEM|
|000024c0| 45 4e 54 0d 20 6c 73 72 | 20 20 3b 44 49 56 49 44 |ENT. lsr|  ;DIVID|
|000024d0| 45 a0 42 59 a0 54 57 4f | 0d 20 63 6c 63 0d 20 65 |E.BY.TWO|. clc. e|
|000024e0| 6f 72 20 23 24 66 66 0d | 20 61 64 63 20 23 30 31 |or #$ff.| adc #01|
|000024f0| 20 3b 6d 41 4b 45 a0 49 | 54 a0 4e 45 47 41 54 49 | ;mAKE.I|T.NEGATI|
|00002500| 56 45 a0 41 47 41 49 4e | 0d 20 6a 6d 70 20 64 6f |VE.AGAIN|. jmp do|
|00002510| 6e 65 64 69 76 0d 70 6f | 73 20 6c 73 72 20 20 3b |nediv.po|s lsr  ;|
|00002520| 6e 55 4d 42 45 52 a0 49 | 53 a0 50 4f 53 49 54 49 |nUMBER.I|S.POSITI|
|00002530| 56 45 0d 64 6f 6e 65 64 | 69 76 20 3c 3c 3c 0d 0d |VE.doned|iv <<<..|
|00002540| 6d 75 6c 32 20 6d 61 63 | 20 20 3b 6d 55 4c 54 49 |mul2 mac|  ;mULTI|
|00002550| 50 4c 59 a0 41 a0 53 49 | 47 4e 45 44 a0 4e 55 4d |PLY.A.SI|GNED.NUM|
|00002560| 42 45 52 a0 42 59 a0 32 | 0d 20 62 70 6c 20 70 6f |BER.BY.2|. bpl po|
|00002570| 73 6d 0d 20 63 6c 63 0d | 20 65 6f 72 20 23 24 66 |sm. clc.| eor #$f|
|00002580| 66 0d 20 61 64 63 20 23 | 24 30 31 0d 20 61 73 6c |f. adc #|$01. asl|
|00002590| 0d 20 63 6c 63 0d 20 65 | 6f 72 20 23 24 66 66 0d |. clc. e|or #$ff.|
|000025a0| 20 61 64 63 20 23 24 30 | 31 0d 20 6a 6d 70 20 64 | adc #$0|1. jmp d|
|000025b0| 6f 6e 65 6d 75 6c 0d 70 | 6f 73 6d 20 61 73 6c 0d |onemul.p|osm asl.|
|000025c0| 64 6f 6e 65 6d 75 6c 20 | 3c 3c 3c 0d 0d 2a 2a a0 |donemul |<<<..**.|
|000025d0| 6e 4f 54 45 a0 54 48 41 | 54 a0 57 45 a0 41 52 45 |nOTE.THA|T.WE.ARE|
|000025e0| a0 43 55 52 52 45 4e 54 | 4c 59 a0 4d 41 4b 49 4e |.CURRENT|LY.MAKIN|
|000025f0| 47 a0 41 a0 4d 49 4e 4f | 52 a0 4c 45 41 50 0d 2a |G.A.MINO|R.LEAP.*|
|00002600| 2a a0 4f 46 a0 46 41 49 | 54 48 a0 54 48 41 54 a0 |*.OF.FAI|TH.THAT.|
|00002610| 4e 4f a0 4f 56 45 52 46 | 4c 4f 57 53 a0 57 49 4c |NO.OVERF|LOWS.WIL|
|00002620| 4c a0 4f 43 43 55 52 2e | 0d 0d 3a 63 61 6c 63 61 |L.OCCUR.|..:calca|
|00002630| 20 63 6c 63 0d 20 6c 64 | 78 20 74 31 0d 20 6c 64 | clc. ld|x t1. ld|
|00002640| 61 20 63 6f 73 2c 78 0d | 20 6c 64 78 20 74 32 0d |a cos,x.| ldx t2.|
|00002650| 20 61 64 63 20 63 6f 73 | 2c 78 0d 20 73 74 61 20 | adc cos|,x. sta |
|00002660| 61 31 31 20 3b 61 3d 28 | 43 4f 53 28 54 31 29 2b |a11 ;a=(|COS(T1)+|
|00002670| 43 4f 53 28 54 32 29 29 | 2f 32 0d 3a 63 61 6c 63 |COS(T2))|/2.:calc|
|00002680| 62 20 6c 64 78 20 74 31 | 0d 20 6c 64 61 20 73 69 |b ldx t1|. lda si|
|00002690| 6e 2c 78 0d 20 73 65 63 | 0d 20 6c 64 78 20 74 32 |n,x. sec|. ldx t2|
|000026a0| 0d 20 73 62 63 20 73 69 | 6e 2c 78 0d 20 73 74 61 |. sbc si|n,x. sta|
|000026b0| 20 62 31 32 20 3b 62 3d | 28 53 49 4e 28 54 31 29 | b12 ;b=|(SIN(T1)|
|000026c0| 2d 53 49 4e 28 54 32 29 | 29 2f 32 0d 3a 63 61 6c |-SIN(T2)|)/2.:cal|
|000026d0| 63 63 20 6c 64 78 20 73 | 79 0d 20 6c 64 61 20 73 |cc ldx s|y. lda s|
|000026e0| 69 6e 2c 78 0d 20 3e 3e | 3e 20 6d 75 6c 32 0d 20 |in,x. >>|> mul2. |
|000026f0| 73 74 61 20 63 31 33 20 | 3b 63 3d 53 49 4e 28 53 |sta c13 |;c=SIN(S|
|00002700| 59 29 0d 3a 63 61 6c 63 | 64 20 73 65 63 0d 20 6c |Y).:calc|d sec. l|
|00002710| 64 78 20 74 38 0d 20 6c | 64 61 20 63 6f 73 2c 78 |dx t8. l|da cos,x|
|00002720| 0d 20 6c 64 78 20 74 37 | 0d 20 73 62 63 20 63 6f |. ldx t7|. sbc co|
|00002730| 73 2c 78 0d 20 73 65 63 | 0d 20 6c 64 78 20 74 35 |s,x. sec|. ldx t5|
|00002740| 0d 20 73 62 63 20 63 6f | 73 2c 78 0d 20 63 6c 63 |. sbc co|s,x. clc|
|00002750| 0d 20 6c 64 78 20 74 36 | 0d 20 61 64 63 20 63 6f |. ldx t6|. adc co|
|00002760| 73 2c 78 20 3b 64 49 3d | 28 43 4f 53 28 54 38 29 |s,x ;dI=|(COS(T8)|
|00002770| 2d 43 4f 53 28 54 37 29 | 2b 43 4f 53 28 54 36 29 |-COS(T7)|+COS(T6)|
|00002780| 2d 43 4f 53 28 54 35 29 | 29 2f 32 0d 20 3e 3e 3e |-COS(T5)|)/2. >>>|
|00002790| 20 64 69 76 32 0d 20 63 | 6c 63 0d 20 6c 64 78 20 | div2. c|lc. ldx |
|000027a0| 74 33 0d 20 61 64 63 20 | 73 69 6e 2c 78 0d 20 73 |t3. adc |sin,x. s|
|000027b0| 65 63 0d 20 6c 64 78 20 | 74 34 0d 20 73 62 63 20 |ec. ldx |t4. sbc |
|000027c0| 73 69 6e 2c 78 0d 20 73 | 74 61 20 64 32 31 20 3b |sin,x. s|ta d21 ;|
|000027d0| 64 3d 28 53 49 4e 28 54 | 33 29 2d 53 49 4e 28 54 |d=(SIN(T|3)-SIN(T|
|000027e0| 34 29 2b 64 49 29 2f 32 | 0d 3a 63 61 6c 63 65 20 |4)+dI)/2|.:calce |
|000027f0| 73 65 63 0d 20 6c 64 78 | 20 74 35 0d 20 6c 64 61 |sec. ldx| t5. lda|
|00002800| 20 73 69 6e 2c 78 0d 20 | 6c 64 78 20 74 36 0d 20 | sin,x. |ldx t6. |
|00002810| 73 62 63 20 73 69 6e 2c | 78 0d 20 73 65 63 0d 20 |sbc sin,|x. sec. |
|00002820| 6c 64 78 20 74 37 0d 20 | 73 62 63 20 73 69 6e 2c |ldx t7. |sbc sin,|
|00002830| 78 0d 20 73 65 63 0d 20 | 6c 64 78 20 74 38 0d 20 |x. sec. |ldx t8. |
|00002840| 73 62 63 20 73 69 6e 2c | 78 20 3b 65 49 3d 28 53 |sbc sin,|x ;eI=(S|
|00002850| 49 4e 28 54 35 29 2d 53 | 49 4e 28 54 36 29 2d 53 |IN(T5)-S|IN(T6)-S|
|00002860| 49 4e 28 54 37 29 2d 53 | 49 4e 28 54 38 29 29 2f |IN(T7)-S|IN(T8))/|
|00002870| 32 0d 20 3e 3e 3e 20 64 | 69 76 32 0d 20 63 6c 63 |2. >>> d|iv2. clc|
|00002880| 0d 20 6c 64 78 20 74 33 | 0d 20 61 64 63 20 63 6f |. ldx t3|. adc co|
|00002890| 73 2c 78 0d 20 63 6c 63 | 0d 20 6c 64 78 20 74 34 |s,x. clc|. ldx t4|
|000028a0| 0d 20 61 64 63 20 63 6f | 73 2c 78 0d 20 73 74 61 |. adc co|s,x. sta|
|000028b0| 20 65 32 32 20 3b 65 3d | 28 43 4f 53 28 54 33 29 | e22 ;e=|(COS(T3)|
|000028c0| 2b 43 4f 53 28 54 34 29 | 2b 65 49 29 2f 32 0d 3a |+COS(T4)|+eI)/2.:|
|000028d0| 63 61 6c 63 66 20 6c 64 | 78 20 74 39 0d 20 6c 64 |calcf ld|x t9. ld|
|000028e0| 61 20 73 69 6e 2c 78 0d | 20 73 65 63 0d 20 6c 64 |a sin,x.| sec. ld|
|000028f0| 78 20 74 31 30 0d 20 73 | 62 63 20 73 69 6e 2c 78 |x t10. s|bc sin,x|
|00002900| 0d 20 73 74 61 20 66 32 | 33 20 3b 66 3d 28 53 49 |. sta f2|3 ;f=(SI|
|00002910| 4e 28 54 39 29 2d 53 49 | 4e 28 54 31 30 29 29 2f |N(T9)-SI|N(T10))/|
|00002920| 32 0d 3a 63 61 6c 63 67 | 20 6c 64 78 20 74 36 0d |2.:calcg| ldx t6.|
|00002930| 20 6c 64 61 20 73 69 6e | 2c 78 0d 20 73 65 63 0d | lda sin|,x. sec.|
|00002940| 20 6c 64 78 20 74 38 0d | 20 73 62 63 20 73 69 6e | ldx t8.| sbc sin|
|00002950| 2c 78 0d 20 73 65 63 0d | 20 6c 64 78 20 74 37 0d |,x. sec.| ldx t7.|
|00002960| 20 73 62 63 20 73 69 6e | 2c 78 0d 20 73 65 63 0d | sbc sin|,x. sec.|
|00002970| 20 6c 64 78 20 74 35 0d | 20 73 62 63 20 73 69 6e | ldx t5.| sbc sin|
|00002980| 2c 78 20 3b 67 49 3d 28 | 53 49 4e 28 54 36 29 2d |,x ;gI=(|SIN(T6)-|
|00002990| 53 49 4e 28 54 38 29 2d | 53 49 4e 28 54 37 29 2d |SIN(T8)-|SIN(T7)-|
|000029a0| 53 49 4e 28 54 35 29 29 | 2f 32 0d 20 3e 3e 3e 20 |SIN(T5))|/2. >>> |
|000029b0| 64 69 76 32 0d 20 63 6c | 63 0d 20 6c 64 78 20 74 |div2. cl|c. ldx t|
|000029c0| 34 0d 20 61 64 63 20 63 | 6f 73 2c 78 0d 20 73 65 |4. adc c|os,x. se|
|000029d0| 63 0d 20 6c 64 78 20 74 | 33 0d 20 73 62 63 20 63 |c. ldx t|3. sbc c|
|000029e0| 6f 73 2c 78 0d 20 73 74 | 61 20 67 33 31 20 3b 67 |os,x. st|a g31 ;g|
|000029f0| 3d 28 43 4f 53 28 54 34 | 29 2d 43 4f 53 28 54 33 |=(COS(T4|)-COS(T3|
|00002a00| 29 2b 67 49 29 2f 32 0d | 3a 63 61 6c 63 68 20 63 |)+gI)/2.|:calch c|
|00002a10| 6c 63 0d 20 6c 64 78 20 | 74 36 0d 20 6c 64 61 20 |lc. ldx |t6. lda |
|00002a20| 63 6f 73 2c 78 0d 20 6c | 64 78 20 74 37 0d 20 61 |cos,x. l|dx t7. a|
|00002a30| 64 63 20 63 6f 73 2c 78 | 0d 20 73 65 63 0d 20 6c |dc cos,x|. sec. l|
|00002a40| 64 78 20 74 35 0d 20 73 | 62 63 20 63 6f 73 2c 78 |dx t5. s|bc cos,x|
|00002a50| 0d 20 73 65 63 0d 20 6c | 64 78 20 74 38 0d 20 73 |. sec. l|dx t8. s|
|00002a60| 62 63 20 63 6f 73 2c 78 | 20 3b 68 49 3d 28 43 4f |bc cos,x| ;hI=(CO|
|00002a70| 53 28 54 36 29 2b 43 4f | 53 28 54 37 29 2d 43 4f |S(T6)+CO|S(T7)-CO|
|00002a80| 53 28 54 35 29 2d 43 4f | 53 28 54 38 29 29 2f 32 |S(T5)-CO|S(T8))/2|
|00002a90| 0d 20 3e 3e 3e 20 64 69 | 76 32 0d 20 63 6c 63 0d |. >>> di|v2. clc.|
|00002aa0| 20 6c 64 78 20 74 33 0d | 20 61 64 63 20 73 69 6e | ldx t3.| adc sin|
|00002ab0| 2c 78 0d 20 63 6c 63 0d | 20 6c 64 78 20 74 34 0d |,x. clc.| ldx t4.|
|00002ac0| 20 61 64 63 20 73 69 6e | 2c 78 0d 20 73 74 61 20 | adc sin|,x. sta |
|00002ad0| 68 33 32 20 3b 68 3d 28 | 53 49 4e 28 54 33 29 2b |h32 ;h=(|SIN(T3)+|
|00002ae0| 53 49 4e 28 54 34 29 2b | 68 49 29 2f 32 0d 3a 77 |SIN(T4)+|hI)/2.:w|
|00002af0| 68 65 77 20 63 6c 63 0d | 20 6c 64 78 20 74 39 0d |hew clc.| ldx t9.|
|00002b00| 20 6c 64 61 20 63 6f 73 | 2c 78 0d 20 6c 64 78 20 | lda cos|,x. ldx |
|00002b10| 74 31 30 0d 20 61 64 63 | 20 63 6f 73 2c 78 0d 20 |t10. adc| cos,x. |
|00002b20| 73 74 61 20 69 33 33 20 | 3b 69 3d 28 43 4f 53 28 |sta i33 |;i=(COS(|
|00002b30| 54 39 29 2b 43 4f 53 28 | 54 31 30 29 29 2f 32 0d |T9)+COS(|T10))/2.|
|00002b40| 0d 2a 2a a0 69 54 27 53 | a0 41 4c 4c a0 44 4f 57 |.**.iT'S|.ALL.DOW|
|00002b50| 4e 48 49 4c 4c a0 46 52 | 4f 4d a0 48 45 52 45 2e |NHILL.FR|OM.HERE.|
|00002b60| 0d 0d 64 6f 77 6e 68 69 | 6c 6c 0d 2a 2a 2a 2a a0 |..downhi|ll.****.|
|00002b70| 63 4c 45 41 52 a0 42 55 | 46 46 45 52 0d 2a a0 61 |cLEAR.BU|FFER.*.a|
|00002b80| a0 4c 49 54 54 4c 45 a0 | 4d 41 43 52 4f 0d 0d 73 |.LITTLE.|MACRO..s|
|00002b90| 65 74 62 75 66 20 6d 61 | 63 20 20 3b 70 55 54 a0 |etbuf ma|c  ;pUT.|
|00002ba0| 42 55 46 46 45 52 53 a0 | 57 48 45 52 45 a0 54 48 |BUFFERS.|WHERE.TH|
|00002bb0| 45 59 a0 43 41 4e a0 42 | 45 a0 48 55 52 54 0d 20 |EY.CAN.B|E.HURT. |
|00002bc0| 6c 64 61 20 23 30 30 0d | 20 73 74 61 20 62 75 66 |lda #00.| sta buf|
|00002bd0| 66 65 72 0d 20 6c 64 61 | 20 7a 74 65 6d 70 20 3b |fer. lda| ztemp ;|
|00002be0| 68 49 47 48 a0 42 59 54 | 45 0d 73 74 61 62 75 66 |hIGH.BYT|E.stabuf|
|00002bf0| 20 73 74 61 20 62 75 66 | 66 65 72 2b 31 0d 20 3c | sta buf|fer+1. <|
|00002c00| 3c 3c 0d 0d 20 3e 3e 3e | 20 73 65 74 62 75 66 0d |<<.. >>>| setbuf.|
|00002c10| 63 6c 72 64 72 61 77 20 | 6c 64 78 20 23 30 38 0d |clrdraw |ldx #08.|
|00002c20| 20 6c 64 61 20 23 30 30 | 0d 3a 66 6f 6f 6c 20 6c | lda #00|.:fool l|
|00002c30| 64 79 20 23 30 30 0d 3a | 64 6f 70 65 20 73 74 61 |dy #00.:|dope sta|
|00002c40| 20 28 62 75 66 66 65 72 | 29 2c 79 0d 20 69 6e 79 | (buffer|),y. iny|
|00002c50| 0d 20 62 6e 65 20 3a 64 | 6f 70 65 0d 20 69 6e 63 |. bne :d|ope. inc|
|00002c60| 20 62 75 66 66 65 72 2b | 31 0d 20 64 65 78 0d 20 | buffer+|1. dex. |
|00002c70| 62 6e 65 20 3a 66 6f 6f | 6c 0d 0d 2a 2a 2a 2a a0 |bne :foo|l..****.|
|00002c80| 6d 59 a0 47 4f 4f 44 4e | 45 53 53 a0 42 55 54 a0 |mY.GOODN|ESS.BUT.|
|00002c90| 69 27 4d a0 41 a0 44 4f | 50 45 0d 2a 63 6c 72 64 |i'M.A.DO|PE.*clrd|
|00002ca0| 72 61 77 a0 6c 64 61 a0 | 67 6c 6f 62 78 6d 69 6e |raw.lda.|globxmin|
|00002cb0| 0d 2a a0 6c 73 72 a0 a0 | 3b 6e 45 45 44 a0 54 4f |.*.lsr..|;nEED.TO|
|00002cc0| a0 47 45 54 a0 49 4e 54 | 4f a0 54 48 45 a0 52 49 |.GET.INT|O.THE.RI|
|00002cd0| 47 48 54 a0 43 4f 4c 55 | 4d 4e 0d 2a a0 62 63 63 |GHT.COLU|MN.*.bcc|
|00002ce0| a0 3a 65 76 65 6e a0 3b | 65 58 50 4c 41 49 4e 45 |.:even.;|eXPLAINE|
|00002cf0| 44 a0 49 4e a0 4d 4f 52 | 45 a0 44 45 54 41 49 4c |D.IN.MOR|E.DETAIL|
|00002d00| a0 42 45 4c 4f 57 0d 2a | a0 6c 64 79 a0 23 24 38 |.BELOW.*|.ldy.#$8|
|00002d10| 30 0d 2a a0 73 74 79 a0 | 62 75 66 66 65 72 a0 3b |0.*.sty.|buffer.;|
|00002d20| 70 52 45 53 55 4d 41 42 | 4c 59 a0 54 48 49 53 a0 |pRESUMAB|LY.THIS.|
|00002d30| 57 49 4c 4c a0 42 45 a0 | 41 a0 4c 49 54 54 4c 45 |WILL.BE.|A.LITTLE|
|00002d40| 0d 2a a0 63 6c 63 a0 a0 | 3b 4d 4f 52 45 a0 45 46 |.*.clc..|;MORE.EF|
|00002d50| 46 49 43 49 45 4e 54 2e | 0d 2a 3a 65 76 65 6e a0 |FICIENT.|.*:even.|
|00002d60| 61 64 63 a0 62 75 66 66 | 65 72 2b 31 0d 2a a0 73 |adc.buff|er+1.*.s|
|00002d70| 74 61 a0 62 75 66 66 65 | 72 2b 31 0d 2a a0 6c 64 |ta.buffe|r+1.*.ld|
|00002d80| 61 a0 67 6c 6f 62 78 6d | 61 78 0d 2a a0 73 65 63 |a.globxm|ax.*.sec|
|00002d90| 0d 2a a0 73 62 63 a0 67 | 6c 6f 62 78 6d 69 6e 0d |.*.sbc.g|lobxmin.|
|00002da0| 2a a0 74 61 78 0d 2a a0 | 69 6e 78 0d 2a a0 6c 64 |*.tax.*.|inx.*.ld|
|00002db0| 79 a0 67 6c 6f 62 79 6d | 61 78 0d 2a a0 62 65 71 |y.globym|ax.*.beq|
|00002dc0| a0 3a 72 65 73 65 74 0d | 2a 3a 79 61 79 a0 6c 64 |.:reset.|*:yay.ld|
|00002dd0| 61 a0 23 24 30 30 0d 2a | a0 6c 64 79 a0 67 6c 6f |a.#$00.*|.ldy.glo|
|00002de0| 62 79 6d 61 78 0d 2a 3a | 62 6c 61 68 a0 73 74 61 |bymax.*:|blah.sta|
|00002df0| a0 28 62 75 66 66 65 72 | 29 2c 79 0d 2a a0 64 65 |.(buffer|),y.*.de|
|00002e00| 79 0d 2a a0 63 70 79 a0 | 67 6c 6f 62 79 6d 69 6e |y.*.cpy.|globymin|
|00002e10| 0d 2a a0 62 63 73 a0 3a | 62 6c 61 68 0d 2a a0 6c |.*.bcs.:|blah.*.l|
|00002e20| 64 61 a0 62 75 66 66 65 | 72 0d 2a a0 65 6f 72 a0 |da.buffe|r.*.eor.|
|00002e30| 23 24 38 30 0d 2a a0 73 | 74 61 a0 62 75 66 66 65 |#$80.*.s|ta.buffe|
|00002e40| 72 0d 2a a0 62 6e 65 a0 | 3a 77 68 6f 70 65 65 0d |r.*.bne.|:whopee.|
|00002e50| 2a a0 69 6e 63 a0 62 75 | 66 66 65 72 2b 31 0d 2a |*.inc.bu|ffer+1.*|
|00002e60| 3a 77 68 6f 70 65 65 a0 | 64 65 78 0d 2a a0 62 6e |:whopee.|dex.*.bn|
|00002e70| 65 a0 3a 79 61 79 0d 2a | 3a 72 65 73 65 74 a0 6c |e.:yay.*|:reset.l|
|00002e80| 64 61 a0 23 30 a0 3b 6e | 45 45 44 a0 54 4f a0 52 |da.#0.;n|EED.TO.R|
|00002e90| 45 53 45 54 a0 54 48 45 | 53 45 a0 47 55 59 53 0d |ESET.THE|SE.GUYS.|
|00002ea0| 2a a0 73 74 61 a0 67 6c | 6f 62 78 6d 61 78 0d 2a |*.sta.gl|obxmax.*|
|00002eb0| a0 73 74 61 a0 67 6c 6f | 62 79 6d 61 78 0d 2a a0 |.sta.glo|bymax.*.|
|00002ec0| 6c 64 61 a0 23 24 66 66 | 0d 2a a0 73 74 61 a0 67 |lda.#$ff|.*.sta.g|
|00002ed0| 6c 6f 62 78 6d 69 6e 0d | 2a a0 73 74 61 a0 67 6c |lobxmin.|*.sta.gl|
|00002ee0| 6f 62 79 6d 69 6e 0d 0d | 2a 2a 2a 2a a0 6e 45 58 |obymin..|****.nEX|
|00002ef0| 54 2c a0 52 45 41 44 a0 | 41 4e 44 a0 44 52 41 57 |T,.READ.|AND.DRAW|
|00002f00| a0 50 4f 4c 59 47 4f 4e | 53 0d 0d 72 65 61 64 64 |.POLYGON|S..readd|
|00002f10| 72 61 77 20 6c 64 79 20 | 23 30 30 0d 20 73 74 79 |raw ldy |#00. sty|
|00002f20| 20 69 6e 64 65 78 0d 6f | 62 6a 6c 6f 6f 70 20 6c | index.o|bjloop l|
|00002f30| 64 79 20 69 6e 64 65 78 | 0d 20 6c 64 61 20 70 6f |dy index|. lda po|
|00002f40| 6c 79 6c 69 73 74 2c 79 | 20 3b 66 49 52 53 54 2c |lylist,y| ;fIRST,|
|00002f50| a0 54 48 45 a0 4e 55 4d | 42 45 52 a0 4f 46 a0 50 |.THE.NUM|BER.OF.P|
|00002f60| 4f 49 4e 54 53 0d 20 62 | 6e 65 20 3a 63 6f 6e 74 |OINTS. b|ne :cont|
|00002f70| 20 3b 62 55 54 a0 49 46 | a0 4e 55 4d 50 4f 49 4e | ;bUT.IF|.NUMPOIN|
|00002f80| 54 53 a0 49 53 a0 5a 45 | 52 4f a0 54 48 45 4e 0d |TS.IS.ZE|RO.THEN.|
|00002f90| 20 6a 6d 70 20 6f 62 6a | 64 6f 6e 65 20 3b 57 45 | jmp obj|done ;WE|
|00002fa0| a0 41 52 45 a0 41 54 a0 | 54 48 45 a0 45 4e 44 a0 |.ARE.AT.|THE.END.|
|00002fb0| 4f 46 a0 54 48 45 a0 4c | 49 53 54 0d 3a 63 6f 6e |OF.THE.L|IST.:con|
|00002fc0| 74 20 73 74 61 20 63 6f | 75 6e 74 70 74 73 0d 20 |t sta co|untpts. |
|00002fd0| 69 6e 63 20 69 6e 64 65 | 78 0d 0d 2a a0 72 4f 54 |inc inde|x..*.rOT|
|00002fe0| 41 54 45 a0 50 52 4f 4a | 45 43 54 a0 41 4e 44 a0 |ATE.PROJ|ECT.AND.|
|00002ff0| 44 52 41 57 a0 54 48 45 | a0 50 4f 4c 59 47 4f 4e |DRAW.THE|.POLYGON|
|00003000| 0d 2a a0 6d 41 4b 45 a0 | 53 55 52 45 a0 42 55 46 |.*.mAKE.|SURE.BUF|
|00003010| 46 45 52 a0 42 45 49 4e | 47 a0 44 52 41 57 4e a0 |FER.BEIN|G.DRAWN.|
|00003020| 54 4f a0 49 53 a0 43 4c | 45 41 52 21 0d 0d 3a 64 |TO.IS.CL|EAR!..:d|
|00003030| 6f 69 74 20 6a 73 72 20 | 72 6f 74 70 72 6f 6a 0d |oit jsr |rotproj.|
|00003040| 0d 2a a0 63 4f 4e 56 45 | 52 54 a0 58 4d 49 4e a0 |.*.cONVE|RT.XMIN.|
|00003050| 41 4e 44 a0 58 4d 41 58 | a0 54 4f a0 43 4f 4c 55 |AND.XMAX|.TO.COLU|
|00003060| 4d 4e 53 0d 0d 20 6c 64 | 61 20 6c 6f 63 78 6d 69 |MNS.. ld|a locxmi|
|00003070| 6e 0d 20 6c 73 72 0d 20 | 6c 73 72 0d 20 6c 73 72 |n. lsr. |lsr. lsr|
|00003080| 20 20 3b 58 a0 4d 4f 44 | a0 38 0d 20 73 74 61 20 |  ;X.MOD|.8. sta |
|00003090| 6c 6f 63 78 6d 69 6e 0d | 20 63 6d 70 20 67 6c 6f |locxmin.| cmp glo|
|000030a0| 62 78 6d 69 6e 0d 20 62 | 63 73 20 3a 6e 61 68 0d |bxmin. b|cs :nah.|
|000030b0| 20 73 74 61 20 67 6c 6f | 62 78 6d 69 6e 0d 3a 6e | sta glo|bxmin.:n|
|000030c0| 61 68 20 6c 64 61 20 6c | 6f 63 79 6d 69 6e 0d 20 |ah lda l|ocymin. |
|000030d0| 63 6d 70 20 67 6c 6f 62 | 79 6d 69 6e 0d 20 62 63 |cmp glob|ymin. bc|
|000030e0| 73 20 3a 75 68 75 68 0d | 20 73 74 61 20 67 6c 6f |s :uhuh.| sta glo|
|000030f0| 62 79 6d 69 6e 0d 3a 75 | 68 75 68 20 6c 64 61 20 |bymin.:u|huh lda |
|00003100| 6c 6f 63 78 6d 61 78 0d | 20 6c 73 72 0d 20 6c 73 |locxmax.| lsr. ls|
|00003110| 72 0d 20 6c 73 72 0d 20 | 73 74 61 20 6c 6f 63 78 |r. lsr. |sta locx|
|00003120| 6d 61 78 0d 20 63 6d 70 | 20 67 6c 6f 62 78 6d 61 |max. cmp| globxma|
|00003130| 78 0d 20 62 63 63 20 3a | 6e 6f 77 61 79 0d 20 73 |x. bcc :|noway. s|
|00003140| 74 61 20 67 6c 6f 62 78 | 6d 61 78 0d 3a 6e 6f 77 |ta globx|max.:now|
|00003150| 61 79 20 6c 64 61 20 6c | 6f 63 79 6d 61 78 0d 20 |ay lda l|ocymax. |
|00003160| 63 6d 70 20 67 6c 6f 62 | 79 6d 61 78 0d 20 62 63 |cmp glob|ymax. bc|
|00003170| 63 20 65 6f 72 66 69 6c | 6c 0d 20 73 74 61 20 67 |c eorfil|l. sta g|
|00003180| 6c 6f 62 79 6d 61 78 0d | 0d 2a a0 69 46 a0 55 53 |lobymax.|.*.iF.US|
|00003190| 49 4e 47 a0 54 48 45 a0 | 65 6f 72 2d 42 55 46 46 |ING.THE.|eor-BUFF|
|000031a0| 45 52 2c a0 43 4f 50 59 | a0 49 4e 54 4f a0 44 52 |ER,.COPY|.INTO.DR|
|000031b0| 41 57 49 4e 47 a0 42 55 | 46 46 45 52 0d 2a a0 61 |AWING.BU|FFER.*.a|
|000031c0| 4e 44 a0 54 48 45 4e a0 | 43 4c 45 41 52 a0 54 48 |ND.THEN.|CLEAR.TH|
|000031d0| 45 a0 65 6f 72 2d 42 55 | 46 46 45 52 0d 0d 65 6f |E.eor-BU|FFER..eo|
|000031e0| 72 66 69 6c 6c 20 6c 64 | 61 20 66 69 6c 6c 0d 20 |rfill ld|a fill. |
|000031f0| 62 65 71 20 6f 62 6a 6c | 6f 6f 70 0d 0d 20 3e 3e |beq objl|oop.. >>|
|00003200| 3e 20 73 65 74 62 75 66 | 0d 20 6c 64 61 20 23 3c |> setbuf|. lda #<|
|00003210| 65 6f 72 62 75 66 0d 20 | 73 74 61 20 74 65 6d 70 |eorbuf. |sta temp|
|00003220| 31 0d 20 6c 64 61 20 23 | 3e 65 6f 72 62 75 66 0d |1. lda #|>eorbuf.|
|00003230| 20 73 74 61 20 74 65 6d | 70 31 2b 31 0d 0d 20 6c | sta tem|p1+1.. l|
|00003240| 64 61 20 6c 6f 63 78 6d | 69 6e 20 3b 6c 6f 63 78 |da locxm|in ;locx|
|00003250| 6d 69 6e a0 4e 4f 57 a0 | 43 4f 4e 54 41 49 4e 53 |min.NOW.|CONTAINS|
|00003260| a0 43 4f 4c 55 4d 4e 0d | 20 6c 73 72 20 20 3b 65 |.COLUMN.| lsr  ;e|
|00003270| 41 43 48 a0 43 4f 4c 55 | 4d 4e a0 49 53 a0 31 32 |ACH.COLU|MN.IS.12|
|00003280| 38 a0 42 59 54 45 53 0d | 20 62 63 63 20 3a 65 76 |8.BYTES.| bcc :ev|
|00003290| 65 6e 20 3b 73 4f a0 54 | 48 45 52 45 a0 4d 49 47 |en ;sO.T|HERE.MIG|
|000032a0| 48 54 a0 42 45 a0 41 a0 | 43 41 52 52 59 0d 20 6c |HT.BE.A.|CARRY. l|
|000032b0| 64 79 20 23 24 38 30 0d | 20 73 74 79 20 62 75 66 |dy #$80.| sty buf|
|000032c0| 66 65 72 0d 20 73 74 79 | 20 74 65 6d 70 31 0d 20 |fer. sty| temp1. |
|000032d0| 63 6c 63 0d 3a 65 76 65 | 6e 20 73 74 61 20 74 32 |clc.:eve|n sta t2|
|000032e0| 0d 20 61 64 63 20 62 75 | 66 66 65 72 2b 31 0d 20 |. adc bu|ffer+1. |
|000032f0| 73 74 61 20 62 75 66 66 | 65 72 2b 31 20 3b 65 41 |sta buff|er+1 ;eA|
|00003300| 43 48 a0 43 4f 4c 55 4d | 4e a0 49 53 a0 31 32 38 |CH.COLUM|N.IS.128|
|00003310| a0 42 59 54 45 53 0d 20 | 6c 64 61 20 74 32 0d 20 |.BYTES. |lda t2. |
|00003320| 61 64 63 20 74 65 6d 70 | 31 2b 31 20 3b 6e 4f 57 |adc temp|1+1 ;nOW|
|00003330| a0 57 45 a0 57 49 4c 4c | a0 53 54 41 52 54 a0 41 |.WE.WILL|.START.A|
|00003340| 54 a0 54 48 45 0d 20 73 | 74 61 20 74 65 6d 70 31 |T.THE. s|ta temp1|
|00003350| 2b 31 20 3b 43 4f 4c 55 | 4d 4e 0d 0d 20 6c 64 61 |+1 ;COLU|MN.. lda|
|00003360| 20 6c 6f 63 78 6d 61 78 | 0d 20 73 65 63 0d 20 73 | locxmax|. sec. s|
|00003370| 62 63 20 6c 6f 63 78 6d | 69 6e 0d 20 74 61 78 20 |bc locxm|in. tax |
|00003380| 3b 74 4f 54 41 4c a0 4e | 55 4d 42 45 52 a0 4f 46 |;tOTAL.N|UMBER.OF|
|00003390| a0 43 4f 4c 55 4d 4e 53 | a0 54 4f a0 44 4f 0d 20 |.COLUMNS|.TO.DO. |
|000033a0| 69 6e 78 20 20 3b 45 2e | 47 2e a0 46 49 4c 4c a0 |inx  ;E.|G..FILL.|
|000033b0| 43 4f 4c 55 4d 4e 53 a0 | 31 2e 2e 33 0d 20 6c 64 |COLUMNS.|1..3. ld|
|000033c0| 79 20 6c 6f 63 79 6d 61 | 78 0d 20 62 6e 65 20 3a |y locyma|x. bne :|
|000033d0| 66 6f 6f 70 0d 20 69 6e | 63 20 6c 6f 63 79 6d 61 |foop. in|c locyma|
|000033e0| 78 0d 3a 66 6f 6f 70 20 | 6c 64 79 20 6c 6f 63 79 |x.:foop |ldy locy|
|000033f0| 6d 61 78 0d 20 6c 64 61 | 20 23 30 30 0d 3a 67 6f |max. lda| #00.:go|
|00003400| 6f 70 20 65 6f 72 20 28 | 74 65 6d 70 31 29 2c 79 |op eor (|temp1),y|
|00003410| 20 3b 65 6f 72 2d 42 55 | 46 46 45 52 0d 20 70 68 | ;eor-BU|FFER. ph|
|00003420| 61 0d 2a a0 6d 41 59 42 | 45 a0 50 55 54 a0 41 4e |a.*.mAYB|E.PUT.AN|
|00003430| a0 65 6f 72 a0 42 45 4c | 4f 57 3f 0d 20 65 6f 72 |.eor.BEL|OW?. eor|
|00003440| 20 28 62 75 66 66 65 72 | 29 2c 79 0d 20 73 74 61 | (buffer|),y. sta|
|00003450| 20 28 62 75 66 66 65 72 | 29 2c 79 0d 20 6c 64 61 | (buffer|),y. lda|
|00003460| 20 23 30 30 20 3b 6d 49 | 47 48 54 a0 41 53 a0 57 | #00 ;mI|GHT.AS.W|
|00003470| 45 4c 4c a0 43 4c 45 41 | 52 a0 49 54 a0 4e 4f 57 |ELL.CLEA|R.IT.NOW|
|00003480| 0d 20 73 74 61 20 28 74 | 65 6d 70 31 29 2c 79 0d |. sta (t|emp1),y.|
|00003490| 20 70 6c 61 0d 20 64 65 | 79 0d 20 63 70 79 20 6c | pla. de|y. cpy l|
|000034a0| 6f 63 79 6d 69 6e 0d 20 | 62 63 73 20 3a 67 6f 6f |ocymin. |bcs :goo|
|000034b0| 70 0d 20 6c 64 61 20 62 | 75 66 66 65 72 0d 20 65 |p. lda b|uffer. e|
|000034c0| 6f 72 20 23 24 38 30 0d | 20 73 74 61 20 62 75 66 |or #$80.| sta buf|
|000034d0| 66 65 72 0d 20 73 74 61 | 20 74 65 6d 70 31 0d 20 |fer. sta| temp1. |
|000034e0| 62 6e 65 20 3a 62 6f 6f | 70 0d 20 69 6e 63 20 62 |bne :boo|p. inc b|
|000034f0| 75 66 66 65 72 2b 31 0d | 20 69 6e 63 20 74 65 6d |uffer+1.| inc tem|
|00003500| 70 31 2b 31 0d 3a 62 6f | 6f 70 20 64 65 78 0d 20 |p1+1.:bo|op dex. |
|00003510| 62 6e 65 20 3a 66 6f 6f | 70 0d 20 6a 6d 70 20 6f |bne :foo|p. jmp o|
|00003520| 62 6a 6c 6f 6f 70 0d 0d | 6f 62 6a 64 6f 6e 65 0d |bjloop..|objdone.|
|00003530| 2a 2a 2a 2a a0 73 57 41 | 50 a0 42 55 46 46 45 52 |****.sWA|P.BUFFER|
|00003540| 53 0d 0d 73 77 61 70 62 | 75 66 20 6c 64 61 20 76 |S..swapb|uf lda v|
|00003550| 6d 63 73 62 0d 20 65 6f | 72 20 23 24 30 32 20 3b |mcsb. eo|r #$02 ;|
|00003560| 70 52 45 54 54 59 a0 54 | 52 49 43 4b 59 2c a0 45 |pRETTY.T|RICKY,.E|
|00003570| 48 3f 0d 20 73 74 61 20 | 76 6d 63 73 62 0d 20 6c |H?. sta |vmcsb. l|
|00003580| 64 61 20 23 24 30 38 0d | 20 65 6f 72 20 7a 74 65 |da #$08.| eor zte|
|00003590| 6d 70 20 3b 5a 54 45 4d | 50 3d 48 49 47 48 a0 42 |mp ;ZTEM|P=HIGH.B|
|000035a0| 59 54 45 a0 4a 55 53 54 | a0 46 4c 49 50 53 0d 20 |YTE.JUST|.FLIPS. |
|000035b0| 73 74 61 20 7a 74 65 6d | 70 20 3b 42 45 54 57 45 |sta ztem|p ;BETWE|
|000035c0| 45 4e a0 24 33 30 a0 41 | 4e 44 a0 24 33 38 0d 0d |EN.$30.A|ND.$38..|
|000035d0| 20 6a 6d 70 20 6d 61 69 | 6e 20 3b 61 52 4f 55 4e | jmp mai|n ;aROUN|
|000035e0| 44 a0 41 4e 44 a0 41 52 | 4f 55 4e 44 a0 57 45 a0 |D.AND.AR|OUND.WE.|
|000035f0| 47 4f 2e 2e 2e 0d 0d 20 | 74 78 74 20 27 67 45 45 |GO..... |txt 'gEE|
|00003600| a0 62 52 41 49 4e 2c a0 | 57 48 41 54 a0 44 4f a0 |.bRAIN,.|WHAT.DO.|
|00003610| 59 4f 55 a0 57 41 4e 54 | a0 54 4f a0 44 4f a0 27 |YOU.WANT|.TO.DO.'|
|00003620| 0d 20 74 78 74 20 27 54 | 4f 4e 49 47 48 54 3f 27 |. txt 'T|ONIGHT?'|
|00003630| 0d 0d 2a 2a a0 72 4f 54 | 41 54 45 2c a0 50 52 4f |..**.rOT|ATE,.PRO|
|00003640| 4a 45 43 54 2c a0 41 4e | 44 a0 53 54 4f 52 45 a0 |JECT,.AN|D.STORE.|
|00003650| 54 48 45 a0 50 4f 49 4e | 54 53 0d 2a 0d 2a a0 74 |THE.POIN|TS.*.*.t|
|00003660| 48 49 53 a0 50 41 52 54 | a0 49 53 a0 41 a0 53 49 |HIS.PART|.IS.A.SI|
|00003670| 47 4e 49 46 49 43 41 4e | 54 a0 43 48 41 4e 47 45 |GNIFICAN|T.CHANGE|
|00003680| a0 53 49 4e 43 45 0d 2a | a0 56 32 2e 30 2e a0 a0 |.SINCE.*|.V2.0...|
|00003690| 6e 4f 57 a0 49 54 a0 49 | 53 a0 41 a0 43 4f 4d 50 |nOW.IT.I|S.A.COMP|
|000036a0| 4c 45 54 45 4c 59 a0 47 | 45 4e 45 52 41 4c a0 50 |LETELY.G|ENERAL.P|
|000036b0| 4f 4c 59 47 4f 4e a0 50 | 4c 4f 54 54 45 52 2e 0d |OLYGON.P|LOTTER..|
|000036c0| 2a a0 61 a0 53 45 54 a0 | 4f 46 a0 50 4f 49 4e 54 |*.a.SET.|OF.POINT|
|000036d0| 53 a0 49 53 a0 52 45 41 | 44 a0 49 4e 2c a0 52 4f |S.IS.REA|D.IN,.RO|
|000036e0| 54 41 54 45 44 a0 41 4e | 44 a0 50 52 4f 4a 45 43 |TATED.AN|D.PROJEC|
|000036f0| 54 45 44 2c a0 41 4e 44 | 0d 2a a0 50 4c 4f 54 54 |TED,.AND|.*.PLOTT|
|00003700| 45 44 a0 49 4e 54 4f a0 | 54 48 45 a0 44 52 41 57 |ED.INTO.|THE.DRAW|
|00003710| 49 4e 47 a0 42 55 46 46 | 45 52 a0 28 65 6f 72 a0 |ING.BUFF|ER.(eor.|
|00003720| 4f 52 a0 4e 4f 52 4d 41 | 4c 29 2e 0d 0d 72 6f 74 |OR.NORMA|L)...rot|
|00003730| 70 72 6f 6a 0d 0d 2a a0 | 61 a0 4e 45 41 54 a0 4d |proj..*.|a.NEAT.M|
|00003740| 41 43 52 4f 0d 6e 65 67 | 20 6d 61 63 20 20 3b 63 |ACRO.neg| mac  ;c|
|00003750| 48 41 4e 47 45 a0 54 48 | 45 a0 53 49 47 4e a0 4f |HANGE.TH|E.SIGN.O|
|00003760| 46 a0 41 a0 54 57 4f 27 | 53 a0 43 4f 4d 50 4c 45 |F.A.TWO'|S.COMPLE|
|00003770| 4d 45 4e 54 0d 20 63 6c | 63 0d 20 6c 64 61 20 5d |MENT. cl|c. lda ]|
|00003780| 31 20 3b 4e 55 4d 42 45 | 52 2e 0d 20 65 6f 72 20 |1 ;NUMBE|R.. eor |
|00003790| 23 24 66 66 0d 20 61 64 | 63 20 23 24 30 31 0d 20 |#$ff. ad|c #$01. |
|000037a0| 3c 3c 3c 0d 0d 2a 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |<<<..*--|--------|
|000037b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000037c0| 2d 2d 2d 2d 2d 0d 2a a0 | 74 48 45 53 45 a0 4d 41 |-----.*.|tHESE.MA|
|000037d0| 43 52 4f 53 a0 52 45 50 | 4c 41 43 45 a0 54 48 45 |CROS.REP|LACE.THE|
|000037e0| a0 50 52 45 56 49 4f 55 | 53 a0 50 52 4f 4a 45 43 |.PREVIOU|S.PROJEC|
|000037f0| 54 49 4f 4e 0d 2a a0 53 | 55 42 52 4f 55 54 49 4e |TION.*.S|UBROUTIN|
|00003800| 45 2e 0d 0d 73 6d 75 6c | 74 a0 6d 61 63 a0 3b 6d |E...smul|t.mac.;m|
|00003810| 55 4c 54 49 50 4c 59 a0 | 54 57 4f a0 53 49 47 4e |ULTIPLY.|TWO.SIGN|
|00003820| 45 44 a0 38 2d 42 49 54 | 0d 20 3b 4e 55 4d 42 45 |ED.8-BIT|. ;NUMBE|
|00003830| 52 53 3a a0 61 2a 79 2f | 36 34 a0 2d 3e a0 61 0d |RS:.a*y/|64.->.a.|
|00003840| 20 73 74 61 a0 7a 33 0d | 20 63 6c 63 a0 a0 3b 74 | sta.z3.| clc..;t|
|00003850| 48 49 53 a0 4d 55 4c 54 | 49 50 4c 59 a0 49 53 a0 |HIS.MULT|IPLY.IS.|
|00003860| 46 4f 52 a0 4e 4f 52 4d | 41 4c 0d 20 65 6f 72 a0 |FOR.NORM|AL. eor.|
|00003870| 23 24 66 66 a0 3b 4e 55 | 4d 42 45 52 53 2c a0 49 |#$ff.;NU|MBERS,.I|
|00003880| 2e 45 2e a0 58 3d 2d 36 | 34 2e 2e 36 34 0d 20 61 |.E..X=-6|4..64. a|
|00003890| 64 63 a0 23 24 30 31 0d | 20 73 74 61 a0 7a 34 0d |dc.#$01.| sta.z4.|
|000038a0| 20 6c 64 61 a0 28 7a 33 | 29 2c 79 0d 20 73 65 63 | lda.(z3|),y. sec|
|000038b0| 0d 20 73 62 63 a0 28 7a | 34 29 2c 79 0d 20 3c 3c |. sbc.(z|4),y. <<|
|000038c0| 3c a0 a0 3b 61 4c 4c a0 | 44 4f 4e 45 a0 3a 29 0d |<..;aLL.|DONE.:).|
|000038d0| 0d 73 6d 75 6c 74 7a 20 | 6d 61 63 20 3b 6d 55 4c |.smultz |mac ;mUL|
|000038e0| 54 49 50 4c 59 a0 54 57 | 4f a0 53 49 47 4e 45 44 |TIPLY.TW|O.SIGNED|
|000038f0| a0 38 2d 42 49 54 0d 20 | 20 20 3b 4e 55 4d 42 45 |.8-BIT. |  ;NUMBE|
|00003900| 52 53 3a a0 61 2a 79 2f | 36 34 a0 2d 3e a0 61 0d |RS:.a*y/|64.->.a.|
|00003910| 20 73 74 61 20 7a 31 0d | 20 63 6c 63 20 20 3b 61 | sta z1.| clc  ;a|
|00003920| 4e 44 a0 54 48 49 53 a0 | 4d 55 4c 54 49 50 4c 59 |ND.THIS.|MULTIPLY|
|00003930| a0 49 53 a0 53 50 45 43 | 49 46 49 43 41 4c 4c 59 |.IS.SPEC|IFICALLY|
|00003940| 0d 20 65 6f 72 20 23 24 | 66 66 20 3b 46 4f 52 a0 |. eor #$|ff ;FOR.|
|00003950| 54 48 45 a0 50 52 4f 4a | 45 43 54 49 4f 4e a0 50 |THE.PROJ|ECTION.P|
|00003960| 41 52 54 2c a0 57 48 45 | 52 45 0d 20 61 64 63 20 |ART,.WHE|RE. adc |
|00003970| 23 24 30 31 20 3b 4e 55 | 4d 42 45 52 53 a0 41 52 |#$01 ;NU|MBERS.AR|
|00003980| 45 a0 2d 31 31 30 2e 2e | 31 31 30 a0 41 4e 44 a0 |E.-110..|110.AND.|
|00003990| 30 2e 2e 34 30 0d 20 73 | 74 61 20 7a 32 0d 20 6c |0..40. s|ta z2. l|
|000039a0| 64 61 20 28 7a 31 29 2c | 79 0d 20 73 65 63 0d 20 |da (z1),|y. sec. |
|000039b0| 73 62 63 20 28 7a 32 29 | 2c 79 0d 20 3c 3c 3c 20 |sbc (z2)|,y. <<< |
|000039c0| 20 3b 61 4c 4c a0 44 4f | 4e 45 a0 3a 29 0d 0d 70 | ;aLL.DO|NE.:)..p|
|000039d0| 72 6f 6a 65 63 74 20 6d | 61 63 20 20 3b 74 48 45 |roject m|ac  ;tHE|
|000039e0| a0 41 43 54 55 41 4c a0 | 50 52 4f 4a 45 43 54 49 |.ACTUAL.|PROJECTI|
|000039f0| 4f 4e a0 52 4f 55 54 49 | 4e 45 0d 3b 74 48 45 a0 |ON.ROUTI|NE.;tHE.|
|00003a00| 52 4f 55 54 49 4e 45 a0 | 54 41 4b 45 53 a0 54 48 |ROUTINE.|TAKES.TH|
|00003a10| 45 a0 50 4f 49 4e 54 0d | 3b 5d 31 a0 5d 32 a0 5d |E.POINT.|;]1.]2.]|
|00003a20| 33 2c a0 52 4f 54 41 54 | 45 53 a0 41 4e 44 0d 3b |3,.ROTAT|ES.AND.;|
|00003a30| 50 52 4f 4a 45 43 54 53 | a0 49 54 2c a0 41 4e 44 |PROJECTS|.IT,.AND|
|00003a40| a0 53 54 4f 52 45 53 a0 | 54 48 45 0d 3b 52 45 53 |.STORES.|THE.;RES|
|00003a50| 55 4c 54 a0 49 4e a0 5d | 31 a0 5d 32 a0 5d 33 2e |ULT.IN.]|1.]2.]3.|
|00003a60| 0d 0d 20 6c 64 79 20 5d | 31 20 3b 6d 55 4c 54 49 |.. ldy ]|1 ;mULTI|
|00003a70| 50 4c 59 a0 46 49 52 53 | 54 a0 52 4f 54 41 54 49 |PLY.FIRS|T.ROTATI|
|00003a80| 4f 4e a0 43 4f 4c 55 4d | 4e 0d 20 6c 64 61 20 61 |ON.COLUM|N. lda a|
|00003a90| 31 31 0d 20 3e 3e 3e 20 | 73 6d 75 6c 74 0d 20 73 |11. >>> |smult. s|
|00003aa0| 74 61 20 70 31 74 0d 20 | 6c 64 61 20 64 32 31 0d |ta p1t. |lda d21.|
|00003ab0| 20 3e 3e 3e 20 73 6d 75 | 6c 74 0d 20 73 74 61 20 | >>> smu|lt. sta |
|00003ac0| 70 32 74 0d 20 6c 64 61 | 20 67 33 31 0d 20 3e 3e |p2t. lda| g31. >>|
|00003ad0| 3e 20 73 6d 75 6c 74 0d | 20 73 74 61 20 70 33 74 |> smult.| sta p3t|
|00003ae0| 0d 20 6c 64 79 20 5d 32 | 20 3b 73 45 43 4f 4e 44 |. ldy ]2| ;sECOND|
|00003af0| a0 43 4f 4c 55 4d 4e 0d | 20 6c 64 61 20 62 31 32 |.COLUMN.| lda b12|
|00003b00| 0d 20 3e 3e 3e 20 73 6d | 75 6c 74 0d 20 63 6c 63 |. >>> sm|ult. clc|
|00003b10| 0d 20 61 64 63 20 70 31 | 74 0d 20 73 74 61 20 70 |. adc p1|t. sta p|
|00003b20| 31 74 0d 20 6c 64 61 20 | 65 32 32 0d 20 3e 3e 3e |1t. lda |e22. >>>|
|00003b30| 20 73 6d 75 6c 74 0d 20 | 63 6c 63 0d 20 61 64 63 | smult. |clc. adc|
|00003b40| 20 70 32 74 0d 20 73 74 | 61 20 70 32 74 0d 20 6c | p2t. st|a p2t. l|
|00003b50| 64 61 20 68 33 32 0d 20 | 3e 3e 3e 20 73 6d 75 6c |da h32. |>>> smul|
|00003b60| 74 0d 20 63 6c 63 0d 20 | 61 64 63 20 70 33 74 0d |t. clc. |adc p3t.|
|00003b70| 20 73 74 61 20 70 33 74 | 0d 20 6c 64 79 20 5d 33 | sta p3t|. ldy ]3|
|00003b80| 20 3b 74 48 49 52 44 a0 | 43 4f 4c 55 4d 4e 0d 20 | ;tHIRD.|COLUMN. |
|00003b90| 6c 64 61 20 63 31 33 0d | 20 3e 3e 3e 20 73 6d 75 |lda c13.| >>> smu|
|00003ba0| 6c 74 0d 20 63 6c 63 0d | 20 61 64 63 20 70 31 74 |lt. clc.| adc p1t|
|00003bb0| 0d 20 73 74 61 20 70 31 | 74 0d 20 6c 64 61 20 66 |. sta p1|t. lda f|
|00003bc0| 32 33 0d 20 3e 3e 3e 20 | 73 6d 75 6c 74 0d 20 63 |23. >>> |smult. c|
|00003bd0| 6c 63 0d 20 61 64 63 20 | 70 32 74 0d 20 73 74 61 |lc. adc |p2t. sta|
|00003be0| 20 70 32 74 0d 20 6c 64 | 61 20 69 33 33 0d 20 3e | p2t. ld|a i33. >|
|00003bf0| 3e 3e 20 73 6d 75 6c 74 | 0d 20 63 6c 63 0d 20 61 |>> smult|. clc. a|
|00003c00| 64 63 20 70 33 74 0d 20 | 73 74 61 20 5d 33 20 3b |dc p3t. |sta ]3 ;|
|00003c10| 72 4f 54 41 54 45 44 a0 | 7a 0d 20 74 61 78 0d 20 |rOTATED.|z. tax. |
|00003c20| 6c 64 79 20 7a 64 69 76 | 2c 78 20 3b 74 41 42 4c |ldy zdiv|,x ;tABL|
|00003c30| 45 a0 4f 46 a0 44 2f 28 | 5a 2b 5a 30 29 0d 20 20 |E.OF.D/(|Z+Z0).  |
|00003c40| 20 3b 6e 4f 57 a0 79 a0 | 43 4f 4e 54 41 49 4e 53 | ;nOW.y.|CONTAINS|
|00003c50| a0 50 52 4f 4a 45 43 54 | 49 4f 4e a0 43 4f 4e 53 |.PROJECT|ION.CONS|
|00003c60| 54 0d 0d 20 6c 64 61 20 | 70 31 74 0d 20 3e 3e 3e |T.. lda |p1t. >>>|
|00003c70| 20 73 6d 75 6c 74 7a 0d | 20 6c 64 78 20 7a 6f 6f | smultz.| ldx zoo|
|00003c80| 6d 0d 20 63 70 78 20 23 | 36 34 0d 20 62 65 71 20 |m. cpx #|64. beq |
|00003c90| 63 6f 6e 74 78 0d 20 73 | 74 79 20 74 65 6d 70 31 |contx. s|ty temp1|
|00003ca0| 0d 20 6c 64 79 20 7a 6f | 6f 6d 0d 20 3e 3e 3e 20 |. ldy zo|om. >>> |
|00003cb0| 73 6d 75 6c 74 0d 20 6c | 64 79 20 74 65 6d 70 31 |smult. l|dy temp1|
|00003cc0| 0d 63 6f 6e 74 78 20 63 | 6c 63 0d 20 61 64 63 20 |.contx c|lc. adc |
|00003cd0| 23 36 34 20 3b 6f 46 46 | 53 45 54 a0 54 48 45 a0 |#64 ;oFF|SET.THE.|
|00003ce0| 43 4f 4f 52 44 49 4e 41 | 54 45 0d 20 73 74 61 20 |COORDINA|TE. sta |
|00003cf0| 5d 31 20 3b 72 4f 54 41 | 54 45 44 a0 41 4e 44 a0 |]1 ;rOTA|TED.AND.|
|00003d00| 50 52 4f 4a 45 43 54 45 | 44 0d 20 63 6d 70 20 6c |PROJECTE|D. cmp l|
|00003d10| 6f 63 78 6d 69 6e 20 3b | 73 45 45 a0 49 46 a0 49 |ocxmin ;|sEE.IF.I|
|00003d20| 54 a0 49 53 a0 41 a0 4c | 4f 43 41 4c a0 4d 49 4e |T.IS.A.L|OCAL.MIN|
|00003d30| 49 4d 55 4d 0d 20 62 63 | 73 20 6e 6f 74 78 6d 69 |IMUM. bc|s notxmi|
|00003d40| 6e 0d 20 73 74 61 20 6c | 6f 63 78 6d 69 6e 0d 6e |n. sta l|ocxmin.n|
|00003d50| 6f 74 78 6d 69 6e 20 63 | 6d 70 20 6c 6f 63 78 6d |otxmin c|mp locxm|
|00003d60| 61 78 0d 20 62 63 63 20 | 6e 6f 74 78 6d 61 78 0d |ax. bcc |notxmax.|
|00003d70| 20 73 74 61 20 6c 6f 63 | 78 6d 61 78 0d 0d 6e 6f | sta loc|xmax..no|
|00003d80| 74 78 6d 61 78 20 6c 64 | 61 20 70 32 74 0d 20 3e |txmax ld|a p2t. >|
|00003d90| 3e 3e 20 73 6d 75 6c 74 | 7a 0d 20 63 70 78 20 23 |>> smult|z. cpx #|
|00003da0| 36 34 0d 20 62 65 71 20 | 63 6f 6e 74 79 0d 20 6c |64. beq |conty. l|
|00003db0| 64 79 20 7a 6f 6f 6d 0d | 20 3e 3e 3e 20 73 6d 75 |dy zoom.| >>> smu|
|00003dc0| 6c 74 0d 63 6f 6e 74 79 | 20 63 6c 63 0d 20 61 64 |lt.conty| clc. ad|
|00003dd0| 63 20 23 36 34 0d 20 73 | 74 61 20 5d 32 20 3b 72 |c #64. s|ta ]2 ;r|
|00003de0| 4f 54 41 54 45 44 a0 41 | 4e 44 a0 50 52 4f 4a 45 |OTATED.A|ND.PROJE|
|00003df0| 43 54 45 44 a0 79 0d 20 | 63 6d 70 20 6c 6f 63 79 |CTED.y. |cmp locy|
|00003e00| 6d 69 6e 0d 20 62 63 73 | 20 6e 6f 74 79 6d 69 6e |min. bcs| notymin|
|00003e10| 0d 20 73 74 61 20 6c 6f | 63 79 6d 69 6e 0d 6e 6f |. sta lo|cymin.no|
|00003e20| 74 79 6d 69 6e 20 63 6d | 70 20 6c 6f 63 79 6d 61 |tymin cm|p locyma|
|00003e30| 78 0d 20 62 63 63 20 6e | 6f 74 79 6d 61 78 0d 20 |x. bcc n|otymax. |
|00003e40| 73 74 61 20 6c 6f 63 79 | 6d 61 78 0d 0d 6e 6f 74 |sta locy|max..not|
|00003e50| 79 6d 61 78 20 3c 3c 3c | 20 20 3b 61 4c 4c a0 44 |ymax <<<|  ;aLL.D|
|00003e60| 4f 4e 45 0d 0d 2a a0 6c | 64 61 a0 23 3c 65 6f 72 |ONE..*.l|da.#<eor|
|00003e70| 62 75 66 a0 3b 66 49 52 | 53 54 a0 57 45 a0 4e 45 |buf.;fIR|ST.WE.NE|
|00003e80| 45 44 a0 54 4f a0 43 4c | 45 41 52 a0 54 48 45 0d |ED.TO.CL|EAR.THE.|
|00003e90| 2a a0 73 74 61 a0 62 75 | 66 66 65 72 a0 3b 65 6f |*.sta.bu|ffer.;eo|
|00003ea0| 72 a0 42 55 46 46 45 52 | 0d 2a a0 6c 64 61 a0 23 |r.BUFFER|.*.lda.#|
|00003eb0| 3e 65 6f 72 62 75 66 0d | 2a a0 73 74 61 a0 62 75 |>eorbuf.|*.sta.bu|
|00003ec0| 66 66 65 72 2b 31 0d 0d | 20 6c 64 61 20 23 30 20 |ffer+1..| lda #0 |
|00003ed0| 3b 72 45 53 45 54 a0 79 | 4d 49 4e a0 41 4e 44 a0 |;rESET.y|MIN.AND.|
|00003ee0| 79 4d 41 58 0d 20 73 74 | 61 20 6c 6f 63 79 6d 61 |yMAX. st|a locyma|
|00003ef0| 78 0d 20 73 74 61 20 6c | 6f 63 78 6d 61 78 0d 20 |x. sta l|ocxmax. |
|00003f00| 6c 64 61 20 23 24 66 66 | 0d 20 73 74 61 20 6c 6f |lda #$ff|. sta lo|
|00003f10| 63 79 6d 69 6e 0d 20 73 | 74 61 20 6c 6f 63 78 6d |cymin. s|ta locxm|
|00003f20| 69 6e 0d 0d 72 65 61 64 | 70 74 73 20 6c 64 79 20 |in..read|pts ldy |
|00003f30| 69 6e 64 65 78 0d 20 6c | 64 61 20 70 6f 6c 79 6c |index. l|da polyl|
|00003f40| 69 73 74 2c 79 0d 20 73 | 74 61 20 70 31 78 0d 20 |ist,y. s|ta p1x. |
|00003f50| 69 6e 79 0d 20 6c 64 61 | 20 70 6f 6c 79 6c 69 73 |iny. lda| polylis|
|00003f60| 74 2c 79 0d 20 73 74 61 | 20 70 31 79 0d 20 69 6e |t,y. sta| p1y. in|
|00003f70| 79 0d 20 6c 64 61 20 70 | 6f 6c 79 6c 69 73 74 2c |y. lda p|olylist,|
|00003f80| 79 0d 20 73 74 61 20 70 | 31 7a 0d 20 69 6e 79 0d |y. sta p|1z. iny.|
|00003f90| 20 64 65 63 20 63 6f 75 | 6e 74 70 74 73 0d 20 6c | dec cou|ntpts. l|
|00003fa0| 64 61 20 70 6f 6c 79 6c | 69 73 74 2c 79 0d 20 73 |da polyl|ist,y. s|
|00003fb0| 74 61 20 70 32 78 0d 20 | 69 6e 79 0d 20 6c 64 61 |ta p2x. |iny. lda|
|00003fc0| 20 70 6f 6c 79 6c 69 73 | 74 2c 79 0d 20 73 74 61 | polylis|t,y. sta|
|00003fd0| 20 70 32 79 0d 20 69 6e | 79 0d 20 6c 64 61 20 70 | p2y. in|y. lda p|
|00003fe0| 6f 6c 79 6c 69 73 74 2c | 79 0d 20 73 74 61 20 70 |olylist,|y. sta p|
|00003ff0| 32 7a 0d 20 69 6e 79 0d | 20 64 65 63 20 63 6f 75 |2z. iny.| dec cou|
|00004000| 6e 74 70 74 73 0d 20 6c | 64 61 20 70 6f 6c 79 6c |ntpts. l|da polyl|
|00004010| 69 73 74 2c 79 0d 20 73 | 74 61 20 70 33 78 0d 20 |ist,y. s|ta p3x. |
|00004020| 69 6e 79 0d 20 6c 64 61 | 20 70 6f 6c 79 6c 69 73 |iny. lda| polylis|
|00004030| 74 2c 79 0d 20 73 74 61 | 20 70 33 79 0d 20 69 6e |t,y. sta| p3y. in|
|00004040| 79 0d 20 6c 64 61 20 70 | 6f 6c 79 6c 69 73 74 2c |y. lda p|olylist,|
|00004050| 79 0d 20 73 74 61 20 70 | 33 7a 0d 20 69 6e 79 0d |y. sta p|3z. iny.|
|00004060| 20 73 74 79 20 69 6e 64 | 65 78 0d 20 3e 3e 3e 20 | sty ind|ex. >>> |
|00004070| 70 72 6f 6a 65 63 74 2c | 70 31 78 3b 70 31 79 3b |project,|p1x;p1y;|
|00004080| 70 31 7a 0d 20 3e 3e 3e | 20 70 72 6f 6a 65 63 74 |p1z. >>>| project|
|00004090| 2c 70 32 78 3b 70 32 79 | 3b 70 32 7a 0d 20 3e 3e |,p2x;p2y|;p2z. >>|
|000040a0| 3e 20 70 72 6f 6a 65 63 | 74 2c 70 33 78 3b 70 33 |> projec|t,p3x;p3|
|000040b0| 79 3b 70 33 7a 0d 0d 20 | 6c 64 61 20 68 69 64 65 |y;p3z.. |lda hide|
|000040c0| 0d 20 62 65 71 20 3a 64 | 6f 69 74 0d 20 6c 64 61 |. beq :d|oit. lda|
|000040d0| 20 70 32 78 20 3b 68 49 | 44 44 45 4e a0 46 41 43 | p2x ;hI|DDEN.FAC|
|000040e0| 45 a0 43 48 45 43 4b 0d | 20 73 65 63 0d 20 73 62 |E.CHECK.| sec. sb|
|000040f0| 63 20 70 31 78 0d 20 74 | 61 79 20 20 3b 79 3d 28 |c p1x. t|ay  ;y=(|
|00004100| 58 32 2d 58 31 29 0d 20 | 6c 64 61 20 70 33 79 0d |X2-X1). |lda p3y.|
|00004110| 20 73 65 63 0d 20 73 62 | 63 20 70 32 79 20 3b 61 | sec. sb|c p2y ;a|
|00004120| 3d 28 59 33 2d 59 32 29 | 0d 20 3e 3e 3e 20 73 6d |=(Y3-Y2)|. >>> sm|
|00004130| 75 6c 74 0d 20 73 74 61 | 20 74 65 6d 70 31 0d 20 |ult. sta| temp1. |
|00004140| 6c 64 61 20 70 33 78 0d | 20 73 65 63 0d 20 73 62 |lda p3x.| sec. sb|
|00004150| 63 20 70 32 78 0d 20 74 | 61 79 0d 20 6c 64 61 20 |c p2x. t|ay. lda |
|00004160| 70 32 79 0d 20 73 65 63 | 0d 20 73 62 63 20 70 31 |p2y. sec|. sbc p1|
|00004170| 79 0d 20 3e 3e 3e 20 73 | 6d 75 6c 74 0d 20 63 6d |y. >>> s|mult. cm|
|00004180| 70 20 74 65 6d 70 31 20 | 3b 69 46 a0 58 31 2a 59 |p temp1 |;iF.X1*Y|
|00004190| 32 2d 59 31 2a 58 32 a0 | 3e a0 30 a0 54 48 45 4e |2-Y1*X2.|>.0.THEN|
|000041a0| a0 46 41 43 45 0d 20 62 | 6d 69 20 3a 64 6f 69 74 |.FACE. b|mi :doit|
|000041b0| 20 3b 49 53 a0 56 49 53 | 49 42 4c 45 0d 20 64 65 | ;IS.VIS|IBLE. de|
|000041c0| 63 20 63 6f 75 6e 74 70 | 74 73 20 3b 6f 54 48 45 |c countp|ts ;oTHE|
|000041d0| 52 57 49 53 45 a0 52 45 | 41 44 a0 49 4e a0 52 45 |RWISE.RE|AD.IN.RE|
|000041e0| 4d 41 49 4e 49 4e 47 0d | 20 62 65 71 20 3a 61 62 |MAINING.| beq :ab|
|000041f0| 6f 72 74 20 3b 50 4f 49 | 4e 54 53 a0 41 4e 44 a0 |ort ;POI|NTS.AND.|
|00004200| 52 45 54 55 52 4e 0d 3a | 70 6f 6f 70 20 69 6e 63 |RETURN.:|poop inc|
|00004210| 20 69 6e 64 65 78 0d 20 | 69 6e 63 20 69 6e 64 65 | index. |inc inde|
|00004220| 78 0d 20 69 6e 63 20 69 | 6e 64 65 78 0d 20 64 65 |x. inc i|ndex. de|
|00004230| 63 20 63 6f 75 6e 74 70 | 74 73 0d 20 62 6e 65 20 |c countp|ts. bne |
|00004240| 3a 70 6f 6f 70 0d 3a 61 | 62 6f 72 74 20 72 74 73 |:poop.:a|bort rts|
|00004250| 0d 0d 3a 64 6f 69 74 20 | 6c 64 61 20 70 31 78 0d |..:doit |lda p1x.|
|00004260| 20 73 74 61 20 78 31 0d | 20 6c 64 61 20 70 31 79 | sta x1.| lda p1y|
|00004270| 0d 20 73 74 61 20 79 31 | 0d 20 6c 64 61 20 70 32 |. sta y1|. lda p2|
|00004280| 78 0d 20 73 74 61 20 78 | 32 0d 20 6c 64 61 20 70 |x. sta x|2. lda p|
|00004290| 32 79 0d 20 73 74 61 20 | 79 32 0d 20 6a 73 72 20 |2y. sta |y2. jsr |
|000042a0| 64 72 61 77 0d 20 6c 64 | 61 20 70 32 78 0d 20 73 |draw. ld|a p2x. s|
|000042b0| 74 61 20 78 31 0d 20 6c | 64 61 20 70 32 79 0d 20 |ta x1. l|da p2y. |
|000042c0| 73 74 61 20 79 31 0d 20 | 6c 64 61 20 70 33 78 0d |sta y1. |lda p3x.|
|000042d0| 20 73 74 61 20 78 32 0d | 20 6c 64 61 20 70 33 79 | sta x2.| lda p3y|
|000042e0| 0d 20 73 74 61 20 79 32 | 0d 20 6a 73 72 20 64 72 |. sta y2|. jsr dr|
|000042f0| 61 77 0d 0d 20 64 65 63 | 20 63 6f 75 6e 74 70 74 |aw.. dec| countpt|
|00004300| 73 0d 20 62 6e 65 20 70 | 6f 6c 79 6c 6f 6f 70 20 |s. bne p|olyloop |
|00004310| 3b 69 53 a0 49 54 a0 4a | 55 53 54 a0 41 a0 54 52 |;iS.IT.J|UST.A.TR|
|00004320| 49 41 4e 47 4c 45 3f 0d | 20 6a 6d 70 20 70 6f 6c |IANGLE?.| jmp pol|
|00004330| 79 64 6f 6e 65 0d 0d 70 | 6f 6c 79 6c 6f 6f 70 20 |ydone..p|olyloop |
|00004340| 6c 64 79 20 69 6e 64 65 | 78 0d 20 6c 64 61 20 70 |ldy inde|x. lda p|
|00004350| 6f 6c 79 6c 69 73 74 2c | 79 0d 20 73 74 61 20 70 |olylist,|y. sta p|
|00004360| 32 78 0d 20 69 6e 79 0d | 20 6c 64 61 20 70 6f 6c |2x. iny.| lda pol|
|00004370| 79 6c 69 73 74 2c 79 0d | 20 73 74 61 20 70 32 79 |ylist,y.| sta p2y|
|00004380| 0d 20 69 6e 79 0d 20 6c | 64 61 20 70 6f 6c 79 6c |. iny. l|da polyl|
|00004390| 69 73 74 2c 79 0d 20 73 | 74 61 20 70 32 7a 0d 20 |ist,y. s|ta p2z. |
|000043a0| 69 6e 79 0d 20 73 74 79 | 20 69 6e 64 65 78 0d 20 |iny. sty| index. |
|000043b0| 3e 3e 3e 20 70 72 6f 6a | 65 63 74 2c 70 32 78 3b |>>> proj|ect,p2x;|
|000043c0| 70 32 79 3b 70 32 7a 0d | 0d 20 6c 64 61 20 70 32 |p2y;p2z.|. lda p2|
|000043d0| 78 0d 20 73 74 61 20 78 | 31 0d 20 6c 64 61 20 70 |x. sta x|1. lda p|
|000043e0| 32 79 0d 20 73 74 61 20 | 79 31 0d 20 6c 64 61 20 |2y. sta |y1. lda |
|000043f0| 70 33 78 0d 20 73 74 61 | 20 78 32 0d 20 6c 64 61 |p3x. sta| x2. lda|
|00004400| 20 70 33 79 0d 20 73 74 | 61 20 79 32 0d 20 6a 73 | p3y. st|a y2. js|
|00004410| 72 20 64 72 61 77 0d 0d | 20 6c 64 61 20 70 32 78 |r draw..| lda p2x|
|00004420| 0d 20 73 74 61 20 70 33 | 78 0d 20 6c 64 61 20 70 |. sta p3|x. lda p|
|00004430| 32 79 0d 20 73 74 61 20 | 70 33 79 0d 20 64 65 63 |2y. sta |p3y. dec|
|00004440| 20 63 6f 75 6e 74 70 74 | 73 0d 20 62 65 71 20 70 | countpt|s. beq p|
|00004450| 6f 6c 79 64 6f 6e 65 0d | 20 6a 6d 70 20 70 6f 6c |olydone.| jmp pol|
|00004460| 79 6c 6f 6f 70 0d 70 6f | 6c 79 64 6f 6e 65 20 6c |yloop.po|lydone l|
|00004470| 64 61 20 70 31 78 20 3b | 63 4c 4f 53 45 a0 54 48 |da p1x ;|cLOSE.TH|
|00004480| 45 a0 50 4f 4c 59 47 4f | 4e 0d 20 73 74 61 20 78 |E.POLYGO|N. sta x|
|00004490| 32 0d 20 6c 64 61 20 70 | 31 79 0d 20 73 74 61 20 |2. lda p|1y. sta |
|000044a0| 79 32 0d 20 6c 64 61 20 | 70 33 78 0d 20 73 74 61 |y2. lda |p3x. sta|
|000044b0| 20 78 31 0d 20 6c 64 61 | 20 70 33 79 0d 20 73 74 | x1. lda| p3y. st|
|000044c0| 61 20 79 31 0d 20 6a 73 | 72 20 64 72 61 77 0d 20 |a y1. js|r draw. |
|000044d0| 72 74 73 0d 0d 20 74 78 | 74 20 27 73 41 4d 45 a0 |rts.. tx|t 'sAME.|
|000044e0| 54 48 49 4e 47 a0 57 45 | a0 44 4f a0 45 56 45 52 |THING.WE|.DO.EVER|
|000044f0| 59 a0 4e 49 47 48 54 2c | a0 70 49 4e 4b 59 3a a0 |Y.NIGHT,|.pINKY:.|
|00004500| 27 0d 20 74 78 74 20 27 | 54 52 59 a0 54 4f a0 54 |'. txt '|TRY.TO.T|
|00004510| 41 4b 45 a0 4f 56 45 52 | a0 54 48 45 a0 57 4f 52 |AKE.OVER|.THE.WOR|
|00004520| 4c 44 21 27 0d 0d 0d 2a | 2d 2d 2d 2d 2d 2d 2d 2d |LD!'...*|--------|
|00004530| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004540| 2d 2d 2d 2d 2d 2d 2d 0d | 2a a0 67 45 4e 45 52 41 |-------.|*.gENERA|
|00004550| 4c a0 51 55 45 53 54 49 | 4f 4e 41 42 4c 45 2d 56 |L.QUESTI|ONABLE-V|
|00004560| 41 4c 55 45 a0 45 52 52 | 4f 52 a0 50 52 4f 43 45 |ALUE.ERR|OR.PROCE|
|00004570| 44 55 52 45 0d 0d 2a 63 | 68 6f 6b 65 a0 6c 64 78 |DURE..*c|hoke.ldx|
|00004580| a0 23 30 30 0d 2a 3a 6c | 6f 6f 70 a0 6c 64 61 a0 |.#00.*:l|oop.lda.|
|00004590| 3a 63 74 65 78 74 2c 78 | 0d 2a a0 62 65 71 a0 3a |:ctext,x|.*.beq.:|
|000045a0| 64 6f 6e 65 0d 2a a0 6a | 73 72 a0 63 68 72 6f 75 |done.*.j|sr.chrou|
|000045b0| 74 0d 2a a0 69 6e 78 0d | 2a a0 6a 6d 70 a0 3a 6c |t.*.inx.|*.jmp.:l|
|000045c0| 6f 6f 70 0d 2a 3a 64 6f | 6e 65 a0 72 74 73 0d 2a |oop.*:do|ne.rts.*|
|000045d0| 3a 63 74 65 78 74 a0 68 | 65 78 a0 30 64 a0 3b 63 |:ctext.h|ex.0d.;c|
|000045e0| 72 0d 2a a0 74 78 74 a0 | 27 53 4f 4d 45 54 48 49 |r.*.txt.|'SOMETHI|
|000045f0| 4e 47 a0 43 48 4f 4b 45 | 44 a0 3a 28 27 0d 2a a0 |NG.CHOKE|D.:('.*.|
|00004600| 68 65 78 a0 30 64 30 30 | 0d 2a 0d 20 74 78 74 20 |hex.0d00|.*. txt |
|00004610| 27 6e 41 52 46 21 27 0d | 0d 2a 2d 2d 2d 2d 2d 2d |'nARF!'.|.*------|
|00004620| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004630| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 2a a0 64 52 41 57 |--------|-.*.dRAW|
|00004640| 49 4e 27 a0 41 a0 4c 49 | 4e 45 2e a0 a0 61 a0 46 |IN'.A.LI|NE...a.F|
|00004650| 41 48 4e a0 4c 41 48 4e | 2e 0d 0d 2a 2a 2a a0 73 |AHN.LAHN|...***.s|
|00004660| 4f 4d 45 a0 55 53 45 46 | 55 4c a0 4d 41 43 52 4f |OME.USEF|UL.MACRO|
|00004670| 53 0d 0d 63 69 6e 69 74 | 20 6d 61 63 20 20 3b 6d |S..cinit| mac  ;m|
|00004680| 41 43 52 4f a0 54 4f a0 | 49 4e 49 54 49 41 4c 49 |ACRO.TO.|INITIALI|
|00004690| 5a 45 a0 54 48 45 a0 43 | 4f 55 4e 54 45 52 0d 20 |ZE.THE.C|OUNTER. |
|000046a0| 6c 64 61 20 5d 31 20 3b | 44 58 a0 4f 52 a0 44 59 |lda ]1 ;|DX.OR.DY|
|000046b0| 0d 20 6c 73 72 0d 20 3c | 3c 3c 20 20 3b 74 48 45 |. lsr. <|<<  ;tHE|
|000046c0| a0 44 58 2f 32 a0 4d 41 | 4b 45 53 a0 41 a0 4e 49 |.DX/2.MA|KES.A.NI|
|000046d0| 43 45 52 a0 4c 4f 4f 4b | 49 4e 47 a0 4c 49 4e 45 |CER.LOOK|ING.LINE|
|000046e0| 0d 0d 2a 2a 2a 2a 2a a0 | 6d 41 43 52 4f a0 54 4f |..*****.|mACRO.TO|
|000046f0| a0 54 41 4b 45 a0 41 a0 | 53 54 45 50 a0 49 4e a0 |.TAKE.A.|STEP.IN.|
|00004700| 78 0d 0d 78 73 74 65 70 | 20 6d 61 63 0d 20 6c 64 |x..xstep| mac. ld|
|00004710| 78 20 64 78 20 3b 6e 55 | 4d 42 45 52 a0 4f 46 a0 |x dx ;nU|MBER.OF.|
|00004720| 4c 4f 4f 50 a0 49 54 45 | 52 41 54 49 4f 4e 53 0d |LOOP.ITE|RATIONS.|
|00004730| 20 3e 3e 3e 20 63 69 6e | 69 74 2c 64 78 0d 78 6c | >>> cin|it,dx.xl|
|00004740| 6f 6f 70 20 6c 73 72 20 | 63 68 75 6e 6b 0d 20 62 |oop lsr |chunk. b|
|00004750| 65 71 20 66 69 78 63 20 | 3b 75 50 44 41 54 45 a0 |eq fixc |;uPDATE.|
|00004760| 43 4f 4c 55 4d 4e 0d 20 | 73 62 63 20 64 79 0d 20 |COLUMN. |sbc dy. |
|00004770| 62 63 63 20 66 69 78 79 | 20 3b 74 49 4d 45 a0 54 |bcc fixy| ;tIME.T|
|00004780| 4f a0 53 54 45 50 a0 49 | 4e a0 79 0d 20 64 65 78 |O.STEP.I|N.y. dex|
|00004790| 0d 20 62 6e 65 20 78 6c | 6f 6f 70 0d 64 6f 6e 65 |. bne xl|oop.done|
|000047a0| 20 6c 64 61 20 6f 6c 64 | 78 20 3b 70 4c 4f 54 a0 | lda old|x ;pLOT.|
|000047b0| 54 48 45 a0 4c 41 53 54 | a0 43 48 55 4e 4b 0d 20 |THE.LAST|.CHUNK. |
|000047c0| 65 6f 72 20 63 68 75 6e | 6b 0d 20 6f 72 61 20 28 |eor chun|k. ora (|
|000047d0| 62 75 66 66 65 72 29 2c | 79 0d 20 73 74 61 20 28 |buffer),|y. sta (|
|000047e0| 62 75 66 66 65 72 29 2c | 79 0d 20 72 74 73 0d 0d |buffer),|y. rts..|
|000047f0| 66 69 78 63 20 70 68 61 | 0d 20 6c 64 61 20 6f 6c |fixc pha|. lda ol|
|00004800| 64 78 0d 20 6f 72 61 20 | 28 62 75 66 66 65 72 29 |dx. ora |(buffer)|
|00004810| 2c 79 20 3b 70 4c 4f 54 | 0d 20 73 74 61 20 28 62 |,y ;pLOT|. sta (b|
|00004820| 75 66 66 65 72 29 2c 79 | 0d 20 6c 64 61 20 23 24 |uffer),y|. lda #$|
|00004830| 66 66 20 3b 75 50 44 41 | 54 45 a0 43 48 55 4e 4b |ff ;uPDA|TE.CHUNK|
|00004840| 0d 20 73 74 61 20 6f 6c | 64 78 0d 20 73 74 61 20 |. sta ol|dx. sta |
|00004850| 63 68 75 6e 6b 0d 20 6c | 64 61 20 23 24 38 30 20 |chunk. l|da #$80 |
|00004860| 3b 69 4e 43 52 45 41 53 | 45 a0 54 48 45 a0 43 4f |;iNCREAS|E.THE.CO|
|00004870| 4c 55 4d 4e 0d 20 65 6f | 72 20 62 75 66 66 65 72 |LUMN. eo|r buffer|
|00004880| 0d 20 73 74 61 20 62 75 | 66 66 65 72 0d 20 62 6e |. sta bu|ffer. bn|
|00004890| 65 20 63 32 0d 20 69 6e | 63 20 62 75 66 66 65 72 |e c2. in|c buffer|
|000048a0| 2b 31 0d 63 32 0d 20 70 | 6c 61 0d 20 73 62 63 20 |+1.c2. p|la. sbc |
|000048b0| 64 79 0d 20 62 63 73 20 | 63 6f 6e 74 0d 20 61 64 |dy. bcs |cont. ad|
|000048c0| 63 20 64 78 0d 20 69 66 | 20 69 2c 5d 31 20 3b 64 |c dx. if| i,]1 ;d|
|000048d0| 4f a0 57 45 a0 55 53 45 | a0 69 6e 79 a0 4f 52 a0 |O.WE.USE|.iny.OR.|
|000048e0| 64 65 79 3f 0d 20 69 6e | 79 0d 20 65 6c 73 65 0d |dey?. in|y. else.|
|000048f0| 20 64 65 79 0d 20 66 69 | 6e 0d 63 6f 6e 74 20 64 | dey. fi|n.cont d|
|00004900| 65 78 0d 20 62 6e 65 20 | 78 6c 6f 6f 70 0d 20 6a |ex. bne |xloop. j|
|00004910| 6d 70 20 64 6f 6e 65 0d | 0d 66 69 78 79 20 61 64 |mp done.|.fixy ad|
|00004920| 63 20 64 78 0d 20 70 68 | 61 0d 20 6c 64 61 20 6f |c dx. ph|a. lda o|
|00004930| 6c 64 78 0d 20 65 6f 72 | 20 63 68 75 6e 6b 0d 20 |ldx. eor| chunk. |
|00004940| 6f 72 61 20 28 62 75 66 | 66 65 72 29 2c 79 0d 20 |ora (buf|fer),y. |
|00004950| 73 74 61 20 28 62 75 66 | 66 65 72 29 2c 79 0d 20 |sta (buf|fer),y. |
|00004960| 6c 64 61 20 63 68 75 6e | 6b 0d 20 73 74 61 20 6f |lda chun|k. sta o|
|00004970| 6c 64 78 0d 20 70 6c 61 | 0d 20 69 66 20 69 2c 5d |ldx. pla|. if i,]|
|00004980| 31 20 3b 75 50 44 41 54 | 45 a0 79 0d 20 69 6e 79 |1 ;uPDAT|E.y. iny|
|00004990| 0d 20 65 6c 73 65 0d 20 | 64 65 79 0d 20 66 69 6e |. else. |dey. fin|
|000049a0| 0d 20 64 65 78 0d 20 62 | 6e 65 20 78 6c 6f 6f 70 |. dex. b|ne xloop|
|000049b0| 0d 20 72 74 73 0d 20 3c | 3c 3c 20 20 3b 65 4e 44 |. rts. <|<<  ;eND|
|000049c0| a0 4f 46 a0 6d 41 43 52 | 4f a0 58 53 54 45 50 0d |.OF.mACR|O.XSTEP.|
|000049d0| 0d 2a 2a 2a 2a 2a a0 74 | 41 4b 45 a0 41 a0 53 54 |.*****.t|AKE.A.ST|
|000049e0| 45 50 a0 49 4e a0 79 0d | 0d 79 73 74 65 70 20 6d |EP.IN.y.|.ystep m|
|000049f0| 61 63 0d 20 6c 64 78 20 | 64 79 20 3b 6e 55 4d 42 |ac. ldx |dy ;nUMB|
|00004a00| 45 52 a0 4f 46 a0 4c 4f | 4f 50 a0 49 54 45 52 41 |ER.OF.LO|OP.ITERA|
|00004a10| 54 49 4f 4e 53 0d 20 62 | 65 71 20 64 6f 6e 65 20 |TIONS. b|eq done |
|00004a20| 3b 69 46 a0 44 59 3d 30 | a0 49 54 27 53 a0 4a 55 |;iF.DY=0|.IT'S.JU|
|00004a30| 53 54 a0 41 a0 50 4f 49 | 4e 54 0d 20 3e 3e 3e 20 |ST.A.POI|NT. >>> |
|00004a40| 63 69 6e 69 74 2c 64 79 | 0d 20 73 65 63 0d 79 6c |cinit,dy|. sec.yl|
|00004a50| 6f 6f 70 20 70 68 61 0d | 20 6c 64 61 20 6f 6c 64 |oop pha.| lda old|
|00004a60| 78 0d 20 6f 72 61 20 28 | 62 75 66 66 65 72 29 2c |x. ora (|buffer),|
|00004a70| 79 0d 20 73 74 61 20 28 | 62 75 66 66 65 72 29 2c |y. sta (|buffer),|
|00004a80| 79 0d 20 70 6c 61 0d 20 | 69 66 20 69 2c 5d 31 0d |y. pla. |if i,]1.|
|00004a90| 20 69 6e 79 0d 20 65 6c | 73 65 0d 20 64 65 79 0d | iny. el|se. dey.|
|00004aa0| 20 66 69 6e 0d 20 73 62 | 63 20 64 78 0d 20 62 63 | fin. sb|c dx. bc|
|00004ab0| 63 20 66 69 78 78 0d 20 | 64 65 78 0d 20 62 6e 65 |c fixx. |dex. bne|
|00004ac0| 20 79 6c 6f 6f 70 0d 64 | 6f 6e 65 20 6c 64 61 20 | yloop.d|one lda |
|00004ad0| 6f 6c 64 78 0d 20 6f 72 | 61 20 28 62 75 66 66 65 |oldx. or|a (buffe|
|00004ae0| 72 29 2c 79 0d 20 73 74 | 61 20 28 62 75 66 66 65 |r),y. st|a (buffe|
|00004af0| 72 29 2c 79 0d 20 72 74 | 73 0d 0d 66 69 78 78 20 |r),y. rt|s..fixx |
|00004b00| 61 64 63 20 64 79 0d 20 | 6c 73 72 20 6f 6c 64 78 |adc dy. |lsr oldx|
|00004b10| 0d 20 73 65 63 20 20 3b | 69 4d 50 4f 52 54 41 4e |. sec  ;|iMPORTAN|
|00004b20| 54 21 0d 20 62 65 71 20 | 66 69 78 63 0d 20 64 65 |T!. beq |fixc. de|
|00004b30| 78 0d 20 62 6e 65 20 79 | 6c 6f 6f 70 0d 20 6a 6d |x. bne y|loop. jm|
|00004b40| 70 20 64 6f 6e 65 0d 0d | 66 69 78 63 20 70 68 61 |p done..|fixc pha|
|00004b50| 0d 20 6c 64 61 20 23 24 | 38 30 0d 20 73 74 61 20 |. lda #$|80. sta |
|00004b60| 6f 6c 64 78 0d 20 65 6f | 72 20 62 75 66 66 65 72 |oldx. eo|r buffer|
|00004b70| 0d 20 73 74 61 20 62 75 | 66 66 65 72 0d 20 62 6e |. sta bu|ffer. bn|
|00004b80| 65 20 63 32 0d 20 69 6e | 63 20 62 75 66 66 65 72 |e c2. in|c buffer|
|00004b90| 2b 31 0d 63 32 20 70 6c | 61 0d 20 64 65 78 0d 20 |+1.c2 pl|a. dex. |
|00004ba0| 62 6e 65 20 79 6c 6f 6f | 70 0d 20 6a 6d 70 20 64 |bne yloo|p. jmp d|
|00004bb0| 6f 6e 65 0d 20 3c 3c 3c | 20 20 3b 65 4e 44 a0 4f |one. <<<|  ;eND.O|
|00004bc0| 46 a0 6d 41 43 52 4f a0 | 59 53 54 45 50 0d 0d 2a |F.mACRO.|YSTEP..*|
|00004bd0| a0 74 41 4b 45 a0 41 4e | a0 58 a0 53 54 45 50 a0 |.tAKE.AN|.X.STEP.|
|00004be0| 49 4e a0 54 48 45 a0 65 | 6f 72 a0 42 55 46 46 45 |IN.THE.e|or.BUFFE|
|00004bf0| 52 0d 2a a0 74 48 45 a0 | 53 4f 4c 45 a0 43 48 41 |R.*.tHE.|SOLE.CHA|
|00004c00| 4e 47 45 a0 49 53 a0 54 | 4f a0 55 53 45 a0 65 6f |NGE.IS.T|O.USE.eo|
|00004c10| 72 a0 49 4e 53 54 45 41 | 44 a0 4f 46 a0 6f 72 61 |r.INSTEA|D.OF.ora|
|00004c20| 0d 0d 65 6f 72 78 73 74 | 65 70 20 6d 61 63 0d 20 |..eorxst|ep mac. |
|00004c30| 6c 64 78 20 64 78 20 3b | 6e 55 4d 42 45 52 a0 4f |ldx dx ;|nUMBER.O|
|00004c40| 46 a0 4c 4f 4f 50 a0 49 | 54 45 52 41 54 49 4f 4e |F.LOOP.I|TERATION|
|00004c50| 53 0d 20 3e 3e 3e 20 63 | 69 6e 69 74 2c 64 78 0d |S. >>> c|init,dx.|
|00004c60| 78 6c 6f 6f 70 20 6c 73 | 72 20 63 68 75 6e 6b 0d |xloop ls|r chunk.|
|00004c70| 20 62 65 71 20 66 69 78 | 63 20 3b 75 50 44 41 54 | beq fix|c ;uPDAT|
|00004c80| 45 a0 43 4f 4c 55 4d 4e | 0d 20 73 62 63 20 64 79 |E.COLUMN|. sbc dy|
|00004c90| 0d 20 62 63 63 20 66 69 | 78 79 20 3b 74 49 4d 45 |. bcc fi|xy ;tIME|
|00004ca0| a0 54 4f a0 53 54 45 50 | a0 49 4e a0 79 0d 20 64 |.TO.STEP|.IN.y. d|
|00004cb0| 65 78 0d 20 62 6e 65 20 | 78 6c 6f 6f 70 0d 64 6f |ex. bne |xloop.do|
|00004cc0| 6e 65 20 6c 64 61 20 6f | 6c 64 78 20 3b 70 4c 4f |ne lda o|ldx ;pLO|
|00004cd0| 54 a0 54 48 45 a0 4c 41 | 53 54 a0 43 48 55 4e 4b |T.THE.LA|ST.CHUNK|
|00004ce0| 0d 20 65 6f 72 20 63 68 | 75 6e 6b 0d 20 65 6f 72 |. eor ch|unk. eor|
|00004cf0| 20 28 62 75 66 66 65 72 | 29 2c 79 0d 20 73 74 61 | (buffer|),y. sta|
|00004d00| 20 28 62 75 66 66 65 72 | 29 2c 79 0d 20 72 74 73 | (buffer|),y. rts|
|00004d10| 0d 0d 66 69 78 63 20 70 | 68 61 0d 20 6c 64 61 20 |..fixc p|ha. lda |
|00004d20| 6f 6c 64 78 0d 20 65 6f | 72 20 28 62 75 66 66 65 |oldx. eo|r (buffe|
|00004d30| 72 29 2c 79 20 3b 70 4c | 4f 54 0d 20 73 74 61 20 |r),y ;pL|OT. sta |
|00004d40| 28 62 75 66 66 65 72 29 | 2c 79 0d 20 6c 64 61 20 |(buffer)|,y. lda |
|00004d50| 23 24 66 66 20 3b 75 50 | 44 41 54 45 a0 43 48 55 |#$ff ;uP|DATE.CHU|
|00004d60| 4e 4b 0d 20 73 74 61 20 | 6f 6c 64 78 0d 20 73 74 |NK. sta |oldx. st|
|00004d70| 61 20 63 68 75 6e 6b 0d | 20 6c 64 61 20 23 24 38 |a chunk.| lda #$8|
|00004d80| 30 20 3b 69 4e 43 52 45 | 41 53 45 a0 54 48 45 a0 |0 ;iNCRE|ASE.THE.|
|00004d90| 43 4f 4c 55 4d 4e 0d 20 | 65 6f 72 20 62 75 66 66 |COLUMN. |eor buff|
|00004da0| 65 72 0d 20 73 74 61 20 | 62 75 66 66 65 72 0d 20 |er. sta |buffer. |
|00004db0| 62 6e 65 20 63 32 0d 20 | 69 6e 63 20 62 75 66 66 |bne c2. |inc buff|
|00004dc0| 65 72 2b 31 0d 63 32 0d | 20 70 6c 61 0d 20 73 62 |er+1.c2.| pla. sb|
|00004dd0| 63 20 64 79 0d 20 62 63 | 73 20 63 6f 6e 74 0d 20 |c dy. bc|s cont. |
|00004de0| 61 64 63 20 64 78 0d 20 | 69 66 20 69 2c 5d 31 20 |adc dx. |if i,]1 |
|00004df0| 3b 64 4f a0 57 45 a0 55 | 53 45 a0 69 6e 79 a0 4f |;dO.WE.U|SE.iny.O|
|00004e00| 52 a0 64 65 79 3f 0d 20 | 69 6e 79 0d 20 65 6c 73 |R.dey?. |iny. els|
|00004e10| 65 0d 20 64 65 79 0d 20 | 66 69 6e 0d 63 6f 6e 74 |e. dey. |fin.cont|
|00004e20| 20 64 65 78 0d 20 62 6e | 65 20 78 6c 6f 6f 70 0d | dex. bn|e xloop.|
|00004e30| 20 6a 6d 70 20 64 6f 6e | 65 0d 0d 66 69 78 79 20 | jmp don|e..fixy |
|00004e40| 61 64 63 20 64 78 0d 20 | 70 68 61 0d 20 6c 64 61 |adc dx. |pha. lda|
|00004e50| 20 6f 6c 64 78 0d 20 65 | 6f 72 20 63 68 75 6e 6b | oldx. e|or chunk|
|00004e60| 0d 20 65 6f 72 20 28 62 | 75 66 66 65 72 29 2c 79 |. eor (b|uffer),y|
|00004e70| 0d 20 73 74 61 20 28 62 | 75 66 66 65 72 29 2c 79 |. sta (b|uffer),y|
|00004e80| 0d 20 6c 64 61 20 63 68 | 75 6e 6b 0d 20 73 74 61 |. lda ch|unk. sta|
|00004e90| 20 6f 6c 64 78 0d 20 70 | 6c 61 0d 20 69 66 20 69 | oldx. p|la. if i|
|00004ea0| 2c 5d 31 20 3b 75 50 44 | 41 54 45 a0 79 0d 20 69 |,]1 ;uPD|ATE.y. i|
|00004eb0| 6e 79 0d 20 65 6c 73 65 | 0d 20 64 65 79 0d 20 66 |ny. else|. dey. f|
|00004ec0| 69 6e 0d 20 64 65 78 0d | 20 62 6e 65 20 78 6c 6f |in. dex.| bne xlo|
|00004ed0| 6f 70 0d 20 72 74 73 0d | 20 3c 3c 3c 20 20 3b 65 |op. rts.| <<<  ;e|
|00004ee0| 4e 44 a0 4f 46 a0 6d 41 | 43 52 4f a0 58 53 54 45 |ND.OF.mA|CRO.XSTE|
|00004ef0| 50 0d 0d 0d 2a a0 74 41 | 4b 45 a0 41 a0 59 2d 53 |P...*.tA|KE.A.Y-S|
|00004f00| 54 45 50 a0 49 4e a0 54 | 48 45 a0 65 6f 72 2d 42 |TEP.IN.T|HE.eor-B|
|00004f10| 55 46 46 45 52 0d 2a a0 | 63 48 41 4e 47 45 53 a0 |UFFER.*.|cHANGES.|
|00004f20| 46 52 4f 4d a0 41 42 4f | 56 45 a0 41 52 45 3a a0 |FROM.ABO|VE.ARE:.|
|00004f30| 4f 4e 4c 59 a0 50 4c 4f | 54 a0 4c 41 53 54 a0 50 |ONLY.PLO|T.LAST.P|
|00004f40| 41 52 54 a0 4f 46 a0 45 | 41 43 48 0d 2a a0 56 45 |ART.OF.E|ACH.*.VE|
|00004f50| 52 54 49 43 41 4c a0 43 | 48 55 4e 4b 2c a0 44 4f |RTICAL.C|HUNK,.DO|
|00004f60| 4e 27 54 a0 50 4c 4f 54 | a0 4c 41 53 54 a0 50 4f |N'T.PLOT|.LAST.PO|
|00004f70| 49 4e 54 2c a0 50 4c 4f | 54 a0 57 49 54 48 a0 65 |INT,.PLO|T.WITH.e|
|00004f80| 6f 72 0d 0d 65 6f 72 79 | 73 74 65 70 20 6d 61 63 |or..eory|step mac|
|00004f90| 0d 20 6c 64 78 20 64 79 | 20 3b 6e 55 4d 42 45 52 |. ldx dy| ;nUMBER|
|00004fa0| a0 4f 46 a0 4c 4f 4f 50 | a0 49 54 45 52 41 54 49 |.OF.LOOP|.ITERATI|
|00004fb0| 4f 4e 53 0d 20 62 65 71 | 20 64 6f 6e 65 20 3b 69 |ONS. beq| done ;i|
|00004fc0| 46 a0 44 59 3d 30 a0 49 | 54 27 53 a0 4a 55 53 54 |F.DY=0.I|T'S.JUST|
|00004fd0| a0 41 a0 50 4f 49 4e 54 | 0d 20 3e 3e 3e 20 63 69 |.A.POINT|. >>> ci|
|00004fe0| 6e 69 74 2c 64 79 0d 20 | 73 65 63 0d 2a 79 6c 6f |nit,dy. |sec.*ylo|
|00004ff0| 6f 70 a0 70 68 61 0d 2a | a0 6c 64 61 a0 6f 6c 64 |op.pha.*|.lda.old|
|00005000| 78 0d 2a a0 6f 72 61 a0 | 28 62 75 66 66 65 72 29 |x.*.ora.|(buffer)|
|00005010| 2c 79 0d 2a a0 73 74 61 | a0 28 62 75 66 66 65 72 |,y.*.sta|.(buffer|
|00005020| 29 2c 79 0d 2a a0 70 6c | 61 0d 79 6c 6f 6f 70 20 |),y.*.pl|a.yloop |
|00005030| 69 66 20 69 2c 5d 31 0d | 20 69 6e 79 0d 20 65 6c |if i,]1.| iny. el|
|00005040| 73 65 0d 20 64 65 79 0d | 20 66 69 6e 0d 20 73 62 |se. dey.| fin. sb|
|00005050| 63 20 64 78 0d 20 62 63 | 63 20 66 69 78 78 0d 20 |c dx. bc|c fixx. |
|00005060| 64 65 78 0d 20 62 6e 65 | 20 79 6c 6f 6f 70 0d 2a |dex. bne| yloop.*|
|00005070| 64 6f 6e 65 a0 6c 64 61 | a0 6f 6c 64 78 0d 2a a0 |done.lda|.oldx.*.|
|00005080| 6f 72 61 a0 28 62 75 66 | 66 65 72 29 2c 79 0d 2a |ora.(buf|fer),y.*|
|00005090| a0 73 74 61 a0 28 62 75 | 66 66 65 72 29 2c 79 0d |.sta.(bu|ffer),y.|
|000050a0| 64 6f 6e 65 20 72 74 73 | 0d 0d 66 69 78 78 20 61 |done rts|..fixx a|
|000050b0| 64 63 20 64 79 0d 20 70 | 68 61 20 20 3b 77 45 a0 |dc dy. p|ha  ;wE.|
|000050c0| 4f 4e 4c 59 a0 50 4c 4f | 54 a0 54 48 45 a0 4c 41 |ONLY.PLO|T.THE.LA|
|000050d0| 53 54 a0 50 41 52 54 a0 | 4f 46 a0 45 41 43 48 a0 |ST.PART.|OF.EACH.|
|000050e0| 43 48 55 4e 4b 0d 20 6c | 64 61 20 6f 6c 64 78 0d |CHUNK. l|da oldx.|
|000050f0| 20 65 6f 72 20 28 62 75 | 66 66 65 72 29 2c 79 0d | eor (bu|ffer),y.|
|00005100| 20 73 74 61 20 28 62 75 | 66 66 65 72 29 2c 79 0d | sta (bu|ffer),y.|
|00005110| 20 70 6c 61 0d 20 6c 73 | 72 20 6f 6c 64 78 0d 20 | pla. ls|r oldx. |
|00005120| 73 65 63 20 20 3b 69 4d | 50 4f 52 54 41 4e 54 21 |sec  ;iM|PORTANT!|
|00005130| 0d 20 62 65 71 20 66 69 | 78 63 0d 20 64 65 78 0d |. beq fi|xc. dex.|
|00005140| 20 62 6e 65 20 79 6c 6f | 6f 70 0d 20 6a 6d 70 20 | bne ylo|op. jmp |
|00005150| 64 6f 6e 65 0d 0d 66 69 | 78 63 20 70 68 61 0d 20 |done..fi|xc pha. |
|00005160| 6c 64 61 20 23 24 38 30 | 0d 20 73 74 61 20 6f 6c |lda #$80|. sta ol|
|00005170| 64 78 0d 20 65 6f 72 20 | 62 75 66 66 65 72 0d 20 |dx. eor |buffer. |
|00005180| 73 74 61 20 62 75 66 66 | 65 72 0d 20 62 6e 65 20 |sta buff|er. bne |
|00005190| 63 32 0d 20 69 6e 63 20 | 62 75 66 66 65 72 2b 31 |c2. inc |buffer+1|
|000051a0| 0d 63 32 20 70 6c 61 0d | 20 64 65 78 0d 20 62 6e |.c2 pla.| dex. bn|
|000051b0| 65 20 79 6c 6f 6f 70 0d | 20 6a 6d 70 20 64 6f 6e |e yloop.| jmp don|
|000051c0| 65 0d 20 3c 3c 3c 20 20 | 3b 65 4e 44 a0 4f 46 a0 |e. <<<  |;eND.OF.|
|000051d0| 6d 41 43 52 4f a0 59 53 | 54 45 50 0d 2a 2a 2a 2a |mACRO.YS|TEP.****|
|000051e0| a0 69 4e 49 54 49 41 4c | a0 4c 49 4e 45 a0 53 45 |.iNITIAL|.LINE.SE|
|000051f0| 54 55 50 0d 0d 2a 2a a0 | 74 48 45 a0 43 4f 4d 4d |TUP..**.|tHE.COMM|
|00005200| 45 4e 54 45 44 a0 4c 49 | 4e 45 53 a0 42 45 4c 4f |ENTED.LI|NES.BELO|
|00005210| 57 a0 41 52 45 a0 4e 4f | 57 a0 54 41 4b 45 4e a0 |W.ARE.NO|W.TAKEN.|
|00005220| 43 41 52 45 a0 4f 46 a0 | 42 59 a0 54 48 45 0d 2a |CARE.OF.|BY.THE.*|
|00005230| 2a a0 43 41 4c 4c 49 4e | 47 a0 52 4f 55 54 49 4e |*.CALLIN|G.ROUTIN|
|00005240| 45 2e 0d 2a 64 72 61 77 | a0 3e 3e 3e a0 6d 6f 76 |E..*draw|.>>>.mov|
|00005250| 65 2c 74 78 31 3b 78 31 | a0 a0 3b 6d 4f 56 45 a0 |e,tx1;x1|..;mOVE.|
|00005260| 53 54 55 46 46 a0 49 4e | 54 4f a0 5a 45 52 4f a0 |STUFF.IN|TO.ZERO.|
|00005270| 50 41 47 45 0d 2a a0 3e | 3e 3e a0 6d 6f 76 65 2c |PAGE.*.>|>>.move,|
|00005280| 74 78 32 3b 78 32 a0 a0 | 3b 77 48 45 52 45 a0 49 |tx2;x2..|;wHERE.I|
|00005290| 54 a0 43 41 4e a0 42 45 | a0 4d 4f 44 49 46 49 45 |T.CAN.BE|.MODIFIE|
|000052a0| 44 0d 2a a0 3e 3e 3e a0 | 6d 6f 76 65 2c 74 79 31 |D.*.>>>.|move,ty1|
|000052b0| 3b 79 31 0d 2a a0 3e 3e | 3e a0 6d 6f 76 65 2c 74 |;y1.*.>>|>.move,t|
|000052c0| 79 32 3b 79 32 0d 0d 64 | 72 61 77 20 6c 64 61 20 |y2;y2..d|raw lda |
|000052d0| 66 69 6c 6c 0d 20 62 6e | 65 20 3a 73 65 74 65 6f |fill. bn|e :seteo|
|000052e0| 72 0d 20 3e 3e 3e 20 73 | 65 74 62 75 66 0d 20 6a |r. >>> s|etbuf. j|
|000052f0| 6d 70 20 3a 73 65 74 75 | 70 0d 3a 73 65 74 65 6f |mp :setu|p.:seteo|
|00005300| 72 20 6c 64 61 20 23 3c | 65 6f 72 62 75 66 20 3b |r lda #<|eorbuf ;|
|00005310| 75 53 45 a0 65 6f 72 a0 | 42 55 46 46 45 52 a0 49 |uSE.eor.|BUFFER.I|
|00005320| 4e 53 54 45 41 44 a0 4f | 46 0d 20 73 74 61 20 62 |NSTEAD.O|F. sta b|
|00005330| 75 66 66 65 72 20 3b 44 | 49 53 50 4c 41 59 a0 42 |uffer ;D|ISPLAY.B|
|00005340| 55 46 46 45 52 a0 46 4f | 52 a0 44 52 41 57 49 4e |UFFER.FO|R.DRAWIN|
|00005350| 47 0d 20 6c 64 61 20 23 | 3e 65 6f 72 62 75 66 0d |G. lda #|>eorbuf.|
|00005360| 20 73 74 61 20 62 75 66 | 66 65 72 2b 31 0d 0d 3a | sta buf|fer+1..:|
|00005370| 73 65 74 75 70 20 73 65 | 63 20 20 3b 6d 41 4b 45 |setup se|c  ;mAKE|
|00005380| a0 53 55 52 45 a0 58 31 | 3c 58 32 0d 20 6c 64 61 |.SURE.X1|<X2. lda|
|00005390| 20 78 32 0d 20 73 62 63 | 20 78 31 0d 20 62 63 73 | x2. sbc| x1. bcs|
|000053a0| 20 3a 63 6f 6e 74 0d 20 | 6c 64 61 20 79 32 20 3b | :cont. |lda y2 ;|
|000053b0| 69 46 a0 4e 4f 54 2c a0 | 53 57 41 50 a0 70 31 a0 |iF.NOT,.|SWAP.p1.|
|000053c0| 41 4e 44 a0 70 32 0d 20 | 6c 64 79 20 79 31 0d 20 |AND.p2. |ldy y1. |
|000053d0| 73 74 61 20 79 31 0d 20 | 73 74 79 20 79 32 0d 20 |sta y1. |sty y2. |
|000053e0| 6c 64 61 20 78 31 0d 20 | 6c 64 79 20 78 32 0d 20 |lda x1. |ldy x2. |
|000053f0| 73 74 79 20 78 31 0d 20 | 73 74 61 20 78 32 0d 0d |sty x1. |sta x2..|
|00005400| 20 73 65 63 0d 20 73 62 | 63 20 78 31 20 3b 6e 4f | sec. sb|c x1 ;nO|
|00005410| 57 a0 61 3d 44 58 0d 3a | 63 6f 6e 74 20 73 74 61 |W.a=DX.:|cont sta|
|00005420| 20 64 78 0d 20 6c 64 78 | 20 78 31 20 3b 70 55 54 | dx. ldx| x1 ;pUT|
|00005430| a0 58 31 a0 49 4e 54 4f | a0 78 2c a0 4e 4f 57 a0 |.X1.INTO|.x,.NOW.|
|00005440| 57 45 a0 43 41 4e a0 54 | 52 41 53 48 a0 78 31 0d |WE.CAN.T|RASH.x1.|
|00005450| 0d 63 6f 6c 75 6d 6e 20 | 74 78 61 20 3b 66 49 4e |.column |txa ;fIN|
|00005460| 44 a0 54 48 45 a0 46 49 | 52 53 54 a0 43 4f 4c 55 |D.THE.FI|RST.COLU|
|00005470| 4d 4e a0 46 4f 52 a0 78 | 0d 20 6c 73 72 0d 20 6c |MN.FOR.x|. lsr. l|
|00005480| 73 72 20 20 3b 74 48 45 | 52 45 a0 41 52 45 a0 58 |sr  ;tHE|RE.ARE.X|
|00005490| 31 2f 38 a0 31 32 38 a0 | 42 59 54 45 a0 42 4c 4f |1/8.128.|BYTE.BLO|
|000054a0| 43 4b 53 0d 20 6c 73 72 | 20 20 3b 77 48 49 43 48 |CKS. lsr|  ;wHICH|
|000054b0| a0 4d 45 41 4e 53 a0 58 | 31 2f 31 36 a0 32 35 36 |.MEANS.X|1/16.256|
|000054c0| a0 42 59 54 45 a0 42 4c | 4f 43 4b 53 0d 20 6c 73 |.BYTE.BL|OCKS. ls|
|000054d0| 72 0d 20 62 63 63 20 3a | 65 76 65 6e 20 3b 77 49 |r. bcc :|even ;wI|
|000054e0| 54 48 a0 41 a0 50 4f 53 | 53 49 42 4c 45 a0 45 58 |TH.A.POS|SIBLE.EX|
|000054f0| 54 52 41 a0 31 32 38 a0 | 42 59 54 45 a0 42 4c 4f |TRA.128.|BYTE.BLO|
|00005500| 43 4b 0d 20 6c 64 79 20 | 23 24 38 30 20 3b 49 46 |CK. ldy |#$80 ;IF|
|00005510| a0 53 4f 2c a0 53 45 54 | a0 54 48 45 a0 48 49 47 |.SO,.SET|.THE.HIG|
|00005520| 48 a0 42 49 54 0d 20 73 | 74 79 20 62 75 66 66 65 |H.BIT. s|ty buffe|
|00005530| 72 0d 20 63 6c 63 0d 3a | 65 76 65 6e 20 61 64 63 |r. clc.:|even adc|
|00005540| 20 62 75 66 66 65 72 2b | 31 20 3b 61 44 44 a0 49 | buffer+|1 ;aDD.I|
|00005550| 4e a0 54 48 45 a0 4e 55 | 4d 42 45 52 a0 4f 46 a0 |N.THE.NU|MBER.OF.|
|00005560| 32 35 36 a0 42 59 54 45 | a0 42 4c 4f 43 4b 53 0d |256.BYTE|.BLOCKS.|
|00005570| 20 73 74 61 20 62 75 66 | 66 65 72 2b 31 0d 0d 20 | sta buf|fer+1.. |
|00005580| 73 65 63 0d 20 6c 64 61 | 20 79 32 20 3b 63 41 4c |sec. lda| y2 ;cAL|
|00005590| 43 55 4c 41 54 45 a0 44 | 59 0d 20 73 62 63 20 79 |CULATE.D|Y. sbc y|
|000055a0| 31 0d 20 62 63 73 20 3a | 63 6f 6e 74 32 20 3b 69 |1. bcs :|cont2 ;i|
|000055b0| 53 a0 59 32 3e 59 31 3f | 0d 20 65 6f 72 20 23 24 |S.Y2>Y1?|. eor #$|
|000055c0| 66 66 20 3b 6f 54 48 45 | 52 57 49 53 45 a0 44 59 |ff ;oTHE|RWISE.DY|
|000055d0| 3d 59 31 2d 59 32 0d 20 | 61 64 63 20 23 24 30 31 |=Y1-Y2. |adc #$01|
|000055e0| 0d 3a 63 6f 6e 74 32 20 | 73 74 61 20 64 79 0d 20 |.:cont2 |sta dy. |
|000055f0| 63 6d 70 20 64 78 20 3b | 77 48 4f 27 53 a0 42 49 |cmp dx ;|wHO'S.BI|
|00005600| 47 47 45 52 3a a0 44 59 | a0 4f 52 a0 44 58 3f 0d |GGER:.DY|.OR.DX?.|
|00005610| 20 62 63 63 20 73 74 65 | 70 69 6e 78 20 3b 69 46 | bcc ste|pinx ;iF|
|00005620| a0 44 58 2c a0 54 48 45 | 4e 2e 2e 2e 0d 20 6a 6d |.DX,.THE|N.... jm|
|00005630| 70 20 73 74 65 70 69 6e | 79 0d 0d 73 74 65 70 69 |p stepin|y..stepi|
|00005640| 6e 78 20 6c 64 79 20 79 | 31 0d 20 63 70 79 20 79 |nx ldy y|1. cpy y|
|00005650| 32 0d 20 6c 64 61 20 62 | 69 74 70 2c 78 20 3b 78 |2. lda b|itp,x ;x|
|00005660| a0 43 55 52 52 45 4e 54 | 4c 59 a0 43 4f 4e 54 41 |.CURRENT|LY.CONTA|
|00005670| 49 4e 53 a0 58 31 0d 20 | 73 74 61 20 6f 6c 64 78 |INS.X1. |sta oldx|
|00005680| 0d 20 73 74 61 20 63 68 | 75 6e 6b 0d 20 62 63 63 |. sta ch|unk. bcc|
|00005690| 20 78 69 6e 63 79 20 3b | 64 4f a0 57 45 a0 53 54 | xincy ;|dO.WE.ST|
|000056a0| 45 50 a0 46 4f 52 57 41 | 52 44 53 a0 4f 52 a0 42 |EP.FORWA|RDS.OR.B|
|000056b0| 41 43 4b 57 41 52 44 53 | a0 49 4e a0 79 3f 0d 20 |ACKWARDS|.IN.y?. |
|000056c0| 6a 6d 70 20 78 64 65 63 | 79 0d 0d 78 69 6e 63 79 |jmp xdec|y..xincy|
|000056d0| 20 6c 64 61 20 66 69 6c | 6c 0d 20 62 65 71 20 6e | lda fil|l. beq n|
|000056e0| 6f 72 6d 78 69 6e 63 0d | 20 3e 3e 3e 20 65 6f 72 |ormxinc.| >>> eor|
|000056f0| 78 73 74 65 70 2c 69 6e | 79 0d 6e 6f 72 6d 78 69 |xstep,in|y.normxi|
|00005700| 6e 63 20 3e 3e 3e 20 78 | 73 74 65 70 2c 69 6e 79 |nc >>> x|step,iny|
|00005710| 0d 0d 78 64 65 63 79 20 | 6c 64 61 20 66 69 6c 6c |..xdecy |lda fill|
|00005720| 0d 20 62 65 71 20 6e 6f | 72 6d 78 64 65 63 0d 20 |. beq no|rmxdec. |
|00005730| 3e 3e 3e 20 65 6f 72 78 | 73 74 65 70 2c 64 65 79 |>>> eorx|step,dey|
|00005740| 0d 6e 6f 72 6d 78 64 65 | 63 20 3e 3e 3e 20 78 73 |.normxde|c >>> xs|
|00005750| 74 65 70 2c 64 65 79 0d | 0d 73 74 65 70 69 6e 79 |tep,dey.|.stepiny|
|00005760| 20 6c 64 79 20 79 31 0d | 20 6c 64 61 20 62 69 74 | ldy y1.| lda bit|
|00005770| 70 2c 78 20 3b 78 3d 58 | 31 0d 20 73 74 61 20 6f |p,x ;x=X|1. sta o|
|00005780| 6c 64 78 0d 20 6c 73 72 | 20 20 3b 79 a0 44 4f 45 |ldx. lsr|  ;y.DOE|
|00005790| 53 4e 27 54 a0 55 53 45 | a0 43 48 55 4e 4b 53 0d |SN'T.USE|.CHUNKS.|
|000057a0| 20 65 6f 72 20 6f 6c 64 | 78 20 3b 73 4f a0 57 45 | eor old|x ;sO.WE|
|000057b0| a0 4a 55 53 54 a0 57 41 | 4e 54 a0 54 48 45 a0 42 |.JUST.WA|NT.THE.B|
|000057c0| 49 54 0d 20 73 74 61 20 | 6f 6c 64 78 0d 20 63 70 |IT. sta |oldx. cp|
|000057d0| 79 20 79 32 0d 20 62 63 | 73 20 79 64 65 63 79 0d |y y2. bc|s ydecy.|
|000057e0| 0d 79 69 6e 63 79 20 6c | 64 61 20 66 69 6c 6c 0d |.yincy l|da fill.|
|000057f0| 20 62 65 71 20 6e 6f 72 | 6d 69 6e 63 0d 20 3e 3e | beq nor|minc. >>|
|00005800| 3e 20 65 6f 72 79 73 74 | 65 70 2c 69 6e 79 0d 6e |> eoryst|ep,iny.n|
|00005810| 6f 72 6d 69 6e 63 20 3e | 3e 3e 20 79 73 74 65 70 |orminc >|>> ystep|
|00005820| 2c 69 6e 79 0d 0d 79 64 | 65 63 79 20 6c 64 61 20 |,iny..yd|ecy lda |
|00005830| 66 69 6c 6c 0d 20 62 65 | 71 20 6e 6f 72 6d 64 65 |fill. be|q normde|
|00005840| 63 0d 20 3e 3e 3e 20 65 | 6f 72 79 73 74 65 70 2c |c. >>> e|orystep,|
|00005850| 64 65 79 0d 6e 6f 72 6d | 64 65 63 20 3e 3e 3e 20 |dey.norm|dec >>> |
|00005860| 79 73 74 65 70 2c 64 65 | 79 0d 0d 0d 2a 2d 2d 2d |ystep,de|y...*---|
|00005870| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005880| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0d 2a a0 63 |--------|----.*.c|
|00005890| 4c 45 41 4e a0 55 50 0d | 0d 63 6c 65 61 6e 75 70 |LEAN.UP.|.cleanup|
|000058a0| 20 6c 64 61 20 76 6d 63 | 73 62 20 3b 73 57 49 54 | lda vmc|sb ;sWIT|
|000058b0| 43 48 a0 43 48 41 52 a0 | 52 4f 4d a0 42 41 43 4b |CH.CHAR.|ROM.BACK|
|000058c0| a0 49 4e 0d 20 61 6e 64 | 20 23 25 31 31 31 31 30 |.IN. and| #%11110|
|000058d0| 31 30 31 20 3b 44 45 46 | 41 55 4c 54 0d 20 73 74 |101 ;DEF|AULT. st|
|000058e0| 61 20 76 6d 63 73 62 0d | 0d 20 72 74 73 20 20 3b |a vmcsb.|. rts  ;|
|000058f0| 42 59 45 21 0d 0d 20 74 | 78 74 20 27 53 50 49 4e |BYE!.. t|xt 'SPIN|
|00005900| 41 4c a0 43 52 41 43 4b | 45 52 a0 27 0d 20 74 78 |AL.CRACK|ER.'. tx|
|00005910| 74 20 27 53 4c 4a a0 36 | 2f 39 35 27 0d 0d 2a 2d |t 'SLJ.6|/95'..*-|
|00005920| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005930| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 2a |--------|------.*|
|00005940| a0 73 45 54 a0 55 50 a0 | 42 49 54 a0 54 41 42 4c |.sET.UP.|BIT.TABL|
|00005950| 45 0d 0d 20 64 73 20 5e | 20 3b 63 4c 45 41 52 a0 |E.. ds ^| ;cLEAR.|
|00005960| 54 4f a0 45 4e 44 a0 4f | 46 a0 50 41 47 45 0d 20 |TO.END.O|F.PAGE. |
|00005970| 20 20 3b 73 4f a0 54 48 | 41 54 a0 54 41 42 4c 45 |  ;sO.TH|AT.TABLE|
|00005980| 53 a0 53 54 41 52 54 a0 | 4f 4e a0 41 a0 50 41 47 |S.START.|ON.A.PAG|
|00005990| 45 a0 42 4f 55 4e 44 41 | 52 59 0d 62 69 74 70 20 |E.BOUNDA|RY.bitp |
|000059a0| 6c 75 70 20 31 36 20 3b | 31 32 38 a0 65 4e 54 52 |lup 16 ;|128.eNTR|
|000059b0| 49 45 53 a0 46 4f 52 a0 | 78 0d 20 64 66 62 20 25 |IES.FOR.|x. dfb %|
|000059c0| 31 31 31 31 31 31 31 31 | 0d 20 64 66 62 20 25 30 |11111111|. dfb %0|
|000059d0| 31 31 31 31 31 31 31 0d | 20 64 66 62 20 25 30 30 |1111111.| dfb %00|
|000059e0| 31 31 31 31 31 31 0d 20 | 64 66 62 20 25 30 30 30 |111111. |dfb %000|
|000059f0| 31 31 31 31 31 0d 20 64 | 66 62 20 25 30 30 30 30 |11111. d|fb %0000|
|00005a00| 31 31 31 31 0d 20 64 66 | 62 20 25 30 30 30 30 30 |1111. df|b %00000|
|00005a10| 31 31 31 0d 20 64 66 62 | 20 25 30 30 30 30 30 30 |111. dfb| %000000|
|00005a20| 31 31 0d 20 64 66 62 20 | 25 30 30 30 30 30 30 30 |11. dfb |%0000000|
|00005a30| 31 0d 20 2d 2d 5e 0d 0d | 73 69 6e 20 3b 74 41 42 |1. --^..|sin ;tAB|
|00005a40| 4c 45 a0 4f 46 a0 53 49 | 4e 45 53 2c a0 31 32 30 |LE.OF.SI|NES,.120|
|00005a50| a0 42 59 54 45 53 0d 63 | 6f 73 20 65 71 75 20 73 |.BYTES.c|os equ s|
|00005a60| 69 6e 2b 31 32 38 20 3b | 74 41 42 4c 45 a0 4f 46 |in+128 ;|tABLE.OF|
|00005a70| a0 43 4f 53 49 4e 45 53 | 0d 20 20 20 3b 62 4f 54 |.COSINES|.   ;bOT|
|00005a80| 48 a0 4f 46 a0 54 48 45 | 53 45 a0 54 52 49 47 a0 |H.OF.THE|SE.TRIG.|
|00005a90| 54 41 42 4c 45 53 a0 41 | 52 45 0d 20 20 20 3b 43 |TABLES.A|RE.   ;C|
|00005aa0| 55 52 52 45 4e 54 4c 59 | a0 53 45 54 a0 55 50 a0 |URRENTLY|.SET.UP.|
|00005ab0| 46 52 4f 4d a0 62 61 73 | 69 63 0d 7a 64 69 76 20 |FROM.bas|ic.zdiv |
|00005ac0| 65 71 75 20 63 6f 73 2b | 31 32 38 20 3b 64 49 56 |equ cos+|128 ;dIV|
|00005ad0| 49 53 49 4f 4e a0 54 41 | 42 4c 45 0d 74 6d 61 74 |ISION.TA|BLE.tmat|
|00005ae0| 68 31 20 65 71 75 20 7a | 64 69 76 2b 33 38 34 20 |h1 equ z|div+384 |
|00005af0| 3b 6d 41 54 48 a0 54 41 | 42 4c 45 a0 4f 46 a0 46 |;mATH.TA|BLE.OF.F|
|00005b00| 28 58 29 3d 58 2a 58 2f | 32 35 36 0d 74 6d 61 74 |(X)=X*X/|256.tmat|
|00005b10| 68 32 20 65 71 75 20 74 | 6d 61 74 68 31 2b 35 31 |h2 equ t|math1+51|
|00005b20| 32 20 3b 73 45 43 4f 4e | 44 a0 4d 41 54 48 a0 54 |2 ;sECON|D.MATH.T|
|00005b30| 41 42 4c 45 0d 70 6f 6c | 79 6c 69 73 74 20 65 71 |ABLE.pol|ylist eq|
|00005b40| 75 20 74 6d 61 74 68 32 | 2b 35 31 32 20 3b 6c 49 |u tmath2|+512 ;lI|
|00005b50| 53 54 a0 4f 46 a0 50 4f | 4c 59 47 4f 4e 53 0d 1a |ST.OF.PO|LYGONS..|
|00005b60| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00005b70| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
+--------+-------------------------+-------------------------+--------+--------+