/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / magazines / c=hacking / code / 09 / cube3d2.0.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 a0 a0 a0 a0 a0 |94.....*|.*......|
|000000f0| a0 a0 a0 a0 a0 a0 a0 a0 | a0 a0 a0 a0 a0 a0 a0 a0 |........|........|
|00000100| a0 a0 a0 a0 a0 a0 a0 a0 | 2a 0d 2a a0 77 45 4c 4c |........|*.*.wELL|
|00000110| 2c a0 49 46 a0 41 4c 4c | a0 47 4f 45 53 a0 57 45 |,.IF.ALL|.GOES.WE|
|00000120| 4c 4c a0 54 48 49 53 a0 | a0 2a 0d 2a a0 50 52 4f |LL.THIS.|.*.*.PRO|
|00000130| 47 52 41 4d a0 57 49 4c | 4c a0 52 4f 54 41 54 45 |GRAM.WIL|L.ROTATE|
|00000140| a0 41 a0 43 55 42 45 2e | a0 a0 2a 0d 2a a0 a0 a0 |.A.CUBE.|..*.*...|
|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 56 |........|...*.*.V|
|00000170| 32 2e 30 a0 2b a0 6e 45 | 57 a0 41 4e 44 a0 69 4d |2.0.+.nE|W.AND.iM|
|00000180| 50 52 4f 56 45 44 21 a0 | a0 a0 a0 a0 2a 0d 2a a0 |PROVED!.|....*.*.|
|00000190| 6e 4f 57 a0 57 49 54 48 | a0 46 41 53 54 45 52 a0 |nOW.WITH|.FASTER.|
|000001a0| 52 4f 55 54 49 4e 45 53 | 2c a0 a0 a0 a0 2a 0d 2a |ROUTINES|,....*.*|
|000001b0| a0 48 49 44 44 45 4e a0 | 53 55 52 46 41 43 45 53 |.HIDDEN.|SURFACES|
|000001c0| 2c a0 46 49 4c 4c 45 44 | a0 a0 a0 a0 a0 a0 2a 0d |,.FILLED|......*.|
|000001d0| 2a a0 46 41 43 45 53 2c | a0 41 4e 44 a0 45 58 54 |*.FACES,|.AND.EXT|
|000001e0| 52 41 a0 54 4f 50 a0 53 | 45 43 52 45 54 a0 a0 2a |RA.TOP.S|ECRET..*|
|000001f0| 0d 2a a0 54 45 58 54 a0 | 4d 45 53 53 41 47 45 53 |.*.TEXT.|MESSAGES|
|00000200| 21 a0 a0 a0 a0 a0 a0 a0 | a0 a0 a0 a0 a0 a0 a0 a0 |!.......|........|
|00000210| 2a 0d 2a a0 a0 a0 a0 a0 | a0 a0 a0 a0 a0 a0 a0 a0 |*.*.....|........|
|00000220| a0 a0 a0 a0 a0 a0 a0 a0 | a0 a0 a0 a0 a0 a0 a0 a0 |........|........|
|00000230| a0 2a 0d 2a a0 74 48 49 | 53 a0 50 52 4f 47 52 41 |.*.*.tHI|S.PROGRA|
|00000240| 4d a0 49 53 a0 49 4e 54 | 45 4e 44 45 44 a0 54 4f |M.IS.INT|ENDED.TO|
|00000250| a0 a0 2a 0d 2a a0 41 43 | 43 4f 4d 50 41 4e 59 a0 |..*.*.AC|COMPANY.|
|00000260| 54 48 45 a0 41 52 54 49 | 43 4c 45 a0 49 4e a0 a0 |THE.ARTI|CLE.IN..|
|00000270| a0 a0 a0 2a 0d 2a a0 63 | 3d 68 41 43 4b 49 4e 47 |...*.*.c|=hACKING|
|00000280| 2c a0 6a 41 4e 2e a0 39 | 35 a0 49 53 53 55 45 2e |,.jAN..9|5.ISSUE.|
|00000290| a0 a0 a0 a0 2a 0d 2a a0 | 66 4f 52 a0 44 45 54 41 |....*.*.|fOR.DETA|
|000002a0| 49 4c 53 a0 4f 4e a0 54 | 48 49 53 a0 50 52 4f 47 |ILS.ON.T|HIS.PROG|
|000002b0| 52 41 4d 2c a0 2a 0d 2a | a0 52 45 41 44 a0 54 48 |RAM,.*.*|.READ.TH|
|000002c0| 45 a0 41 52 54 49 43 4c | 45 21 a0 a0 a0 a0 a0 a0 |E.ARTICL|E!......|
|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 77 52 49 54 45 |.......*|.*.wRITE|
|00000300| a0 54 4f a0 55 53 21 a0 | a0 a0 a0 a0 a0 a0 a0 a0 |.TO.US!.|........|
|00000310| a0 a0 a0 a0 a0 a0 a0 a0 | 2a 0d 2a a0 a0 a0 a0 a0 |........|*.*.....|
|00000320| a0 a0 a0 a0 a0 a0 a0 a0 | a0 a0 a0 a0 a0 a0 a0 a0 |........|........|
|00000330| a0 a0 a0 a0 a0 a0 a0 a0 | a0 2a 0d 2a a0 6d 59 53 |........|.*.*.mYS|
|00000340| 45 4c 46 a0 57 48 45 4e | a0 59 4f 55 4e 47 a0 44 |ELF.WHEN|.YOUNG.D|
|00000350| 49 44 a0 a0 a0 a0 a0 a0 | a0 a0 2a 0d 2a a0 45 41 |ID......|..*.*.EA|
|00000360| 47 45 52 4c 59 a0 46 52 | 45 51 55 45 4e 54 a0 a0 |GERLY.FR|EQUENT..|
|00000370| a0 a0 a0 a0 a0 a0 a0 a0 | a0 a0 a0 2a 0d 2a a0 64 |........|...*.*.d|
|00000380| 4f 43 54 4f 52 a0 41 4e | 44 a0 73 41 49 4e 54 2c |OCTOR.AN|D.sAINT,|
|00000390| a0 41 4e 44 a0 48 45 41 | 52 44 a0 a0 2a 0d 2a a0 |.AND.HEA|RD..*.*.|
|000003a0| 47 52 45 41 54 a0 61 52 | 47 55 4d 45 4e 54 a0 a0 |GREAT.aR|GUMENT..|
|000003b0| a0 a0 a0 a0 a0 a0 a0 a0 | a0 a0 a0 a0 a0 2a 0d 2a |........|.....*.*|
|000003c0| a0 a0 61 42 4f 55 54 a0 | 49 54 a0 41 4e 44 a0 41 |..aBOUT.|IT.AND.A|
|000003d0| 42 4f 55 54 3a a0 42 55 | 54 a0 a0 a0 a0 a0 2a 0d |BOUT:.BU|T.....*.|
|000003e0| 2a a0 a0 45 56 45 52 4d | 4f 52 45 a0 a0 a0 a0 a0 |*..EVERM|ORE.....|
|000003f0| a0 a0 a0 a0 a0 a0 a0 a0 | a0 a0 a0 a0 a0 a0 a0 2a |........|.......*|
|00000400| 0d 2a a0 63 41 4d 45 a0 | 4f 55 54 a0 42 59 a0 54 |.*.cAME.|OUT.BY.T|
|00000410| 48 45 a0 53 41 4d 45 a0 | 64 4f 4f 52 a0 a0 a0 a0 |HE.SAME.|dOOR....|
|00000420| 2a 0d 2a a0 41 53 a0 49 | 4e a0 69 a0 57 45 4e 54 |*.*.AS.I|N.i.WENT|
|00000430| 2e a0 a0 a0 a0 a0 a0 a0 | a0 a0 a0 a0 a0 a0 a0 a0 |........|........|
|00000440| a0 2a 0d 2a a0 a0 a0 a0 | 2d a0 72 55 42 41 49 59 |.*.*....|-.rUBAIY|
|00000450| 41 54 a0 a0 a0 a0 a0 a0 | a0 a0 a0 a0 a0 a0 a0 a0 |AT......|........|
|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 74 | 48 4f 55 47 48 a0 69 a0 |...*.*.t|HOUGH.i.|
|00000490| 53 50 45 41 4b a0 57 49 | 54 48 a0 54 48 45 a0 a0 |SPEAK.WI|TH.THE..|
|000004a0| a0 a0 a0 a0 2a 0d 2a a0 | 54 4f 4e 47 55 45 53 a0 |....*.*.|TONGUES.|
|000004b0| 4f 46 a0 4d 45 4e a0 41 | 4e 44 a0 4f 46 a0 41 4e |OF.MEN.A|ND.OF.AN|
|000004c0| 47 4c 45 53 a0 2a 0d 2a | a0 41 4e 44 a0 48 41 56 |GLES.*.*|.AND.HAV|
|000004d0| 45 a0 4e 4f 54 a0 4c 4f | 56 45 2c a0 69 a0 41 4d |E.NOT.LO|VE,.i.AM|
|000004e0| a0 a0 a0 a0 a0 a0 2a 0d | 2a a0 42 45 43 4f 4d 45 |......*.|*.BECOME|
|000004f0| a0 41 53 a0 53 4f 55 4e | 44 49 4e 47 a0 42 52 41 |.AS.SOUN|DING.BRA|
|00000500| 53 53 2c a0 4f 52 a0 2a | 0d 2a a0 41 a0 54 49 4e |SS,.OR.*|.*.A.TIN|
|00000510| 4b 4c 49 4e 47 a0 43 59 | 4d 42 41 4c 2e a0 a0 a0 |KLING.CY|MBAL....|
|00000520| a0 a0 a0 a0 a0 a0 a0 a0 | 2a 0d 2a a0 a0 a0 a0 2d |........|*.*....-|
|00000530| a0 31 a0 63 4f 52 49 4e | 54 48 49 41 4e 53 a0 31 |.1.cORIN|THIANS.1|
|00000540| 33 a0 a0 a0 a0 a0 a0 a0 | a0 2a 0d 2a a0 a0 a0 a0 |3.......|.*.*....|
|00000550| a0 a0 a0 a0 a0 a0 a0 a0 | a0 a0 a0 a0 a0 a0 a0 a0 |........|........|
|00000560| a0 a0 a0 a0 a0 a0 a0 a0 | a0 a0 2a 0d 2a a0 70 2e |........|..*.*.p.|
|00000570| 73 2e a0 74 48 49 53 a0 | 57 41 53 a0 57 52 49 54 |s..tHIS.|WAS.WRIT|
|00000580| 54 45 4e a0 55 53 49 4e | 47 a0 a0 2a 0d 2a a0 a0 |TEN.USIN|G..*.*..|
|00000590| a0 a0 a0 a0 6d 45 52 4c | 49 4e a0 31 32 38 2e a0 |....mERL|IN.128..|
|000005a0| a0 a0 a0 a0 a0 a0 a0 a0 | a0 a0 a0 a0 2a 0d 2a 2a |........|....*.**|
|000005b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000005c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0d 0d |********|******..|
|000005d0| 20 6f 72 67 20 24 38 30 | 30 30 0d 0d 2a a0 63 4f | org $80|00..*.cO|
|000005e0| 4e 53 54 41 4e 54 53 0d | 0d 62 75 66 66 31 20 65 |NSTANTS.|.buff1 e|
|000005f0| 71 75 20 24 33 30 30 30 | 20 3b 66 49 52 53 54 a0 |qu $3000| ;fIRST.|
|00000600| 43 48 41 52 41 43 54 45 | 52 a0 53 45 54 0d 62 75 |CHARACTE|R.SET.bu|
|00000610| 66 66 32 20 65 71 75 20 | 24 33 38 30 30 20 3b 73 |ff2 equ |$3800 ;s|
|00000620| 45 43 4f 4e 44 a0 43 48 | 41 52 41 43 54 45 52 a0 |ECOND.CH|ARACTER.|
|00000630| 53 45 54 0d 62 75 66 66 | 65 72 20 65 71 75 20 24 |SET.buff|er equ $|
|00000640| 61 33 20 3b 70 52 45 53 | 55 4d 41 42 4c 59 a0 54 |a3 ;pRES|UMABLY.T|
|00000650| 48 45 a0 54 41 50 45 a0 | 57 4f 4e 27 54 a0 42 45 |HE.TAPE.|WON'T.BE|
|00000660| a0 52 55 4e 4e 49 4e 47 | 0d 78 31 20 65 71 75 20 |.RUNNING|.x1 equ |
|00000670| 24 66 62 20 3b 70 4f 49 | 4e 54 53 a0 46 4f 52 a0 |$fb ;pOI|NTS.FOR.|
|00000680| 44 52 41 57 49 4e 47 a0 | 41 a0 4c 49 4e 45 0d 79 |DRAWING.|A.LINE.y|
|00000690| 31 20 65 71 75 20 24 66 | 63 20 3b 74 48 45 53 45 |1 equ $f|c ;tHESE|
|000006a0| a0 5a 45 52 4f a0 50 41 | 47 45 a0 41 44 44 52 45 |.ZERO.PA|GE.ADDRE|
|000006b0| 53 53 45 53 0d 78 32 20 | 65 71 75 20 24 66 64 20 |SSES.x2 |equ $fd |
|000006c0| 3b 44 4f 4e 27 54 a0 43 | 4f 4e 46 4c 49 43 54 a0 |;DON'T.C|ONFLICT.|
|000006d0| 57 49 54 48 a0 62 61 73 | 69 63 0d 79 32 20 65 71 |WITH.bas|ic.y2 eq|
|000006e0| 75 20 24 66 65 0d 64 78 | 20 65 71 75 20 24 66 39 |u $fe.dx| equ $f9|
|000006f0| 0d 64 79 20 65 71 75 20 | 24 66 61 0d 74 65 6d 70 |.dy equ |$fa.temp|
|00000700| 31 20 65 71 75 20 24 66 | 62 20 3b 6f 46 a0 43 4f |1 equ $f|b ;oF.CO|
|00000710| 55 52 53 45 2c a0 43 4f | 55 4c 44 a0 43 4f 4e 46 |URSE,.CO|ULD.CONF|
|00000720| 4c 49 43 54 a0 57 49 54 | 48 a0 58 31 0d 74 65 6d |LICT.WIT|H.X1.tem|
|00000730| 70 32 20 65 71 75 20 24 | 66 63 20 3b 74 45 4d 50 |p2 equ $|fc ;tEMP|
|00000740| 4f 52 41 52 59 a0 56 41 | 52 49 41 42 4c 45 53 0d |ORARY.VA|RIABLES.|
|00000750| 7a 74 65 6d 70 20 65 71 | 75 20 24 30 32 20 3b 75 |ztemp eq|u $02 ;u|
|00000760| 53 45 44 a0 46 4f 52 a0 | 42 55 46 46 45 52 a0 53 |SED.FOR.|BUFFER.S|
|00000770| 57 41 50 2e a0 a0 64 4f | 4e 27 54 a0 54 4f 55 43 |WAP...dO|N'T.TOUC|
|00000780| 48 2e 0d 7a 31 20 65 71 | 75 20 24 32 32 20 3b 75 |H..z1 eq|u $22 ;u|
|00000790| 53 45 44 a0 42 59 a0 4d | 41 54 48 a0 52 4f 55 54 |SED.BY.M|ATH.ROUT|
|000007a0| 49 4e 45 0d 7a 32 20 65 | 71 75 20 24 32 34 20 3b |INE.z2 e|qu $24 ;|
|000007b0| 64 4f 4e 27 54 a0 54 4f | 55 43 48 a0 54 48 45 53 |dON'T.TO|UCH.THES|
|000007c0| 45 a0 45 49 54 48 45 52 | 21 0d 6b 20 65 71 75 20 |E.EITHER|!.k equ |
|000007d0| 24 62 36 20 3b 63 4f 4e | 53 54 41 4e 54 a0 55 53 |$b6 ;cON|STANT.US|
|000007e0| 45 44 a0 46 4f 52 a0 48 | 49 44 44 45 4e 0d 20 20 |ED.FOR.H|IDDEN.  |
|000007f0| 20 3b 53 55 52 46 41 43 | 45 a0 44 45 54 45 43 54 | ;SURFAC|E.DETECT|
|00000800| 49 4f 4e a0 2d a0 44 4f | 4e 27 54 a0 54 4f 55 43 |ION.-.DO|N'T.TOUC|
|00000810| 48 0d 66 61 63 65 73 20 | 65 71 75 20 24 62 35 20 |H.faces |equ $b5 |
|00000820| 3b 75 53 45 44 a0 49 4e | a0 48 49 44 44 45 4e a0 |;uSED.IN|.HIDDEN.|
|00000830| 53 55 52 46 41 43 45 53 | 2e 0d 79 6d 69 6e 20 65 |SURFACES|..ymin e|
|00000840| 71 75 20 24 66 37 20 3b | 75 53 45 44 a0 49 4e a0 |qu $f7 ;|uSED.IN.|
|00000850| 46 49 4c 4c 45 44 a0 46 | 41 43 45 53 a0 2d 2d a0 |FILLED.F|ACES.--.|
|00000860| 41 53 0d 79 6d 61 78 20 | 65 71 75 20 24 66 38 20 |AS.ymax |equ $f8 |
|00000870| 3b 55 53 55 41 4c 2c a0 | 44 4f 4e 27 54 a0 54 4f |;USUAL,.|DON'T.TO|
|00000880| 55 43 48 0d 61 6e 67 6d | 61 78 20 65 71 75 20 31 |UCH.angm|ax equ 1|
|00000890| 32 30 20 3b 74 48 45 52 | 45 a0 41 52 45 a0 32 2a |20 ;tHER|E.ARE.2*|
|000008a0| 50 49 2f 41 4e 47 4d 41 | 58 a0 41 4e 47 4c 45 53 |PI/ANGMA|X.ANGLES|
|000008b0| 0d 0d 2a a0 76 69 63 0d | 0d 76 6d 63 73 62 20 65 |..*.vic.|.vmcsb e|
|000008c0| 71 75 20 24 64 30 31 38 | 0d 62 6b 67 6e 64 20 65 |qu $d018|.bkgnd e|
|000008d0| 71 75 20 24 64 30 32 30 | 0d 62 6f 72 64 65 72 20 |qu $d020|.border |
|000008e0| 65 71 75 20 24 64 30 32 | 31 0d 73 73 74 61 72 74 |equ $d02|1.sstart|
|000008f0| 20 65 71 75 20 31 33 34 | 34 20 3b 52 4f 57 a0 39 | equ 134|4 ;ROW.9|
|00000900| a0 49 4e a0 53 43 52 45 | 45 4e a0 4d 45 4d 4f 52 |.IN.SCRE|EN.MEMOR|
|00000910| 59 a0 41 54 a0 31 30 32 | 34 0d 0d 0d 2a a0 6b 45 |Y.AT.102|4...*.kE|
|00000920| 52 4e 41 4c 0d 0d 63 68 | 72 6f 75 74 20 65 71 75 |RNAL..ch|rout equ|
|00000930| 20 24 66 66 64 32 0d 67 | 65 74 69 6e 20 65 71 75 | $ffd2.g|etin equ|
|00000940| 20 24 66 66 65 34 0d 0d | 2a a0 73 4f 4d 45 a0 56 | $ffe4..|*.sOME.V|
|00000950| 41 52 49 41 42 4c 45 53 | 0d 0d 74 78 31 20 3d 20 |ARIABLES|..tx1 = |
|00000960| 24 33 66 0d 74 79 31 20 | 3d 20 24 34 30 0d 74 78 |$3f.ty1 |= $40.tx|
|00000970| 32 20 3d 20 24 34 31 0d | 74 79 32 20 3d 20 24 34 |2 = $41.|ty2 = $4|
|00000980| 32 0d 70 31 78 20 3d 20 | 24 39 32 20 3b 74 48 45 |2.p1x = |$92 ;tHE|
|00000990| 53 45 a0 41 52 45 a0 54 | 45 4d 50 4f 52 41 52 59 |SE.ARE.T|EMPORARY|
|000009a0| a0 53 54 4f 52 41 47 45 | 0d 70 31 79 20 3d 20 24 |.STORAGE|.p1y = $|
|000009b0| 39 33 20 3b 75 53 45 44 | a0 49 4e a0 50 4c 4f 54 |93 ;uSED|.IN.PLOT|
|000009c0| 54 49 4e 47 a0 54 48 45 | a0 50 52 4f 4a 45 43 54 |TING.THE|.PROJECT|
|000009d0| 49 4f 4e 0d 70 32 78 20 | 3d 20 24 39 34 0d 70 32 |ION.p2x |= $94.p2|
|000009e0| 79 20 3d 20 24 39 35 20 | 3b 74 48 45 59 a0 41 52 |y = $95 |;tHEY.AR|
|000009f0| 45 a0 48 45 52 45 a0 53 | 4f a0 54 48 41 54 a0 57 |E.HERE.S|O.THAT.W|
|00000a00| 45 0d 70 33 78 20 3d 20 | 24 39 36 20 3b 44 4f 4e |E.p3x = |$96 ;DON|
|00000a10| 27 54 a0 48 41 56 45 a0 | 54 4f a0 52 45 43 41 4c |'T.HAVE.|TO.RECAL|
|00000a20| 43 55 4c 41 54 45 a0 54 | 48 45 4d 2e 0d 70 33 79 |CULATE.T|HEM..p3y|
|00000a30| 20 3d 20 24 61 65 0d 70 | 34 78 20 3d 20 24 61 66 | = $ae.p|4x = $af|
|00000a40| 20 3b 74 48 45 59 a0 4d | 41 4b 45 a0 4c 49 46 45 | ;tHEY.M|AKE.LIFE|
|00000a50| a0 45 41 53 59 2e 0d 70 | 34 79 20 3d 20 24 62 30 |.EASY..p|4y = $b0|
|00000a60| 0d 70 35 78 20 3d 20 24 | 62 31 20 3b 77 48 59 a0 |.p5x = $|b1 ;wHY.|
|00000a70| 41 52 45 a0 59 4f 55 a0 | 4c 4f 4f 4b 49 4e 47 a0 |ARE.YOU.|LOOKING.|
|00000a80| 41 54 a0 4d 45 a0 4c 49 | 4b 45 a0 54 48 41 54 3f |AT.ME.LI|KE.THAT?|
|00000a90| 0d 70 35 79 20 3d 20 24 | 62 32 20 3b 64 4f 4e 27 |.p5y = $|b2 ;dON'|
|00000aa0| 54 a0 59 4f 55 a0 54 52 | 55 53 54 a0 4d 45 3f 0d |T.YOU.TR|UST.ME?.|
|00000ab0| 70 36 78 20 3d 20 24 62 | 33 0d 70 36 79 20 3d 20 |p6x = $b|3.p6y = |
|00000ac0| 24 62 34 20 3b 68 41 56 | 49 4e 47 a0 41 4e 4f 54 |$b4 ;hAV|ING.ANOT|
|00000ad0| 48 45 52 a0 43 48 49 4c | 44 a0 57 41 53 4e 27 54 |HER.CHIL|D.WASN'T|
|00000ae0| a0 4d 59 a0 49 44 45 41 | 2e 0d 70 37 78 20 3d 20 |.MY.IDEA|..p7x = |
|00000af0| 24 37 31 0d 70 37 79 20 | 3d 20 24 35 30 0d 70 38 |$71.p7y |= $50.p8|
|00000b00| 78 20 3d 20 24 35 31 0d | 70 38 79 20 3d 20 24 35 |x = $51.|p8y = $5|
|00000b10| 32 0d 70 31 7a 20 3d 20 | 24 35 37 20 3b 74 48 45 |2.p1z = |$57 ;tHE|
|00000b20| 53 45 a0 41 52 45 a0 5a | 2d 43 4f 4f 52 44 49 4e |SE.ARE.Z|-COORDIN|
|00000b30| 41 54 45 53 0d 70 32 7a | 20 3d 20 24 35 38 20 3b |ATES.p2z| = $58 ;|
|00000b40| 77 45 a0 4f 4e 4c 59 a0 | 4e 45 45 44 a0 54 48 45 |wE.ONLY.|NEED.THE|
|00000b50| 53 45 a0 46 4f 55 52 a0 | 54 4f a0 43 48 45 43 4b |SE.FOUR.|TO.CHECK|
|00000b60| 0d 70 34 7a 20 3d 20 24 | 35 39 20 3b 46 4f 52 a0 |.p4z = $|59 ;FOR.|
|00000b70| 48 49 44 44 45 4e a0 46 | 41 43 45 53 0d 70 35 7a |HIDDEN.F|ACES.p5z|
|00000b80| 20 3d 20 24 36 30 0d 64 | 73 78 20 3d 20 24 36 31 | = $60.d|sx = $61|
|00000b90| 20 3b 64 73 78 a0 49 53 | a0 54 48 45 a0 49 4e 43 | ;dsx.IS|.THE.INC|
|00000ba0| 52 45 4d 45 4e 54 a0 46 | 4f 52 0d 20 20 20 3b 52 |REMENT.F|OR.   ;R|
|00000bb0| 4f 54 41 54 49 4e 47 a0 | 41 52 4f 55 4e 44 a0 58 |OTATING.|AROUND.X|
|00000bc0| 0d 64 73 79 20 3d 20 24 | 36 32 20 3b 73 49 4d 49 |.dsy = $|62 ;sIMI|
|00000bd0| 4c 41 52 a0 46 4f 52 a0 | 64 73 79 2c a0 64 73 7a |LAR.FOR.|dsy,.dsz|
|00000be0| 0d 64 73 7a 20 3d 20 24 | 36 33 0d 73 78 20 3d 20 |.dsz = $|63.sx = |
|00000bf0| 24 36 34 20 3b 74 48 45 | 53 45 a0 41 52 45 a0 54 |$64 ;tHE|SE.ARE.T|
|00000c00| 48 45 a0 41 43 54 55 41 | 4c a0 41 4e 47 4c 45 53 |HE.ACTUA|L.ANGLES|
|00000c10| a0 49 4e a0 58 a0 59 a0 | 41 4e 44 a0 5a 0d 73 79 |.IN.X.Y.|AND.Z.sy|
|00000c20| 20 3d 20 24 36 35 0d 73 | 7a 20 3d 20 24 36 36 0d | = $65.s|z = $66.|
|00000c30| 74 31 20 3d 20 24 36 37 | 20 3b 74 48 45 53 45 a0 |t1 = $67| ;tHESE.|
|00000c40| 41 52 45 a0 55 53 45 44 | a0 49 4e a0 54 48 45 a0 |ARE.USED|.IN.THE.|
|00000c50| 52 4f 54 41 54 49 4f 4e | 0d 74 32 20 3d 20 24 36 |ROTATION|.t2 = $6|
|00000c60| 38 0d 74 33 20 3d 20 24 | 36 39 20 3b 73 45 45 a0 |8.t3 = $|69 ;sEE.|
|00000c70| 54 48 45 a0 41 52 54 49 | 43 4c 45 a0 46 4f 52 a0 |THE.ARTI|CLE.FOR.|
|00000c80| 4d 4f 52 45 a0 44 45 54 | 41 49 4c 53 0d 74 34 20 |MORE.DET|AILS.t4 |
|00000c90| 3d 20 24 36 61 0d 74 35 | 20 3d 20 24 36 62 0d 74 |= $6a.t5| = $6b.t|
|00000ca0| 36 20 3d 20 24 36 63 0d | 74 37 20 3d 20 24 36 64 |6 = $6c.|t7 = $6d|
|00000cb0| 0d 74 38 20 3d 20 24 36 | 65 0d 74 39 20 3d 20 24 |.t8 = $6|e.t9 = $|
|00000cc0| 36 66 0d 74 31 30 20 3d | 20 24 37 30 0d 61 31 31 |6f.t10 =| $70.a11|
|00000cd0| 20 3d 20 24 61 35 20 3b | 74 48 45 53 45 a0 41 52 | = $a5 ;|tHESE.AR|
|00000ce0| 45 a0 54 48 45 a0 45 4c | 45 4d 45 4e 54 53 a0 4f |E.THE.EL|EMENTS.O|
|00000cf0| 46 a0 54 48 45 a0 52 4f | 54 41 54 49 4f 4e a0 4d |F.THE.RO|TATION.M|
|00000d00| 41 54 52 49 58 0d 62 31 | 32 20 3d 20 24 61 36 20 |ATRIX.b1|2 = $a6 |
|00000d10| 3b 78 79 7a 0d 63 31 33 | 20 3d 20 24 61 37 0d 64 |;xyz.c13| = $a7.d|
|00000d20| 32 31 20 3d 20 24 61 38 | 20 3b 74 48 45 a0 4e 55 |21 = $a8| ;tHE.NU|
|00000d30| 4d 42 45 52 a0 44 45 4e | 4f 54 45 53 a0 28 52 4f |MBER.DEN|OTES.(RO|
|00000d40| 57 2c 43 4f 4c 55 4d 4e | 29 0d 65 32 32 20 3d 20 |W,COLUMN|).e22 = |
|00000d50| 24 61 39 0d 66 32 33 20 | 3d 20 24 61 61 0d 67 33 |$a9.f23 |= $aa.g3|
|00000d60| 31 20 3d 20 24 61 62 0d | 68 33 32 20 3d 20 24 61 |1 = $ab.|h32 = $a|
|00000d70| 63 0d 69 33 33 20 3d 20 | 24 61 64 0d 0d 0d 2a 2a |c.i33 = |$ad...**|
|00000d80| 2a a0 6d 41 43 52 4f 53 | 0d 0d 6d 6f 76 65 20 6d |*.mACROS|..move m|
|00000d90| 61 63 0d 20 6c 64 61 20 | 5d 31 0d 20 73 74 61 20 |ac. lda |]1. sta |
|00000da0| 5d 32 0d 20 3c 3c 3c 0d | 0d 67 65 74 6b 65 79 20 |]2. <<<.|.getkey |
|00000db0| 6d 61 63 20 20 3b 77 41 | 49 54 a0 46 4f 52 a0 41 |mac  ;wA|IT.FOR.A|
|00000dc0| a0 4b 45 59 50 52 45 53 | 53 0d 77 61 69 74 20 6a |.KEYPRES|S.wait j|
|00000dd0| 73 72 20 67 65 74 69 6e | 0d 20 63 6d 70 20 23 30 |sr getin|. cmp #0|
|00000de0| 30 0d 20 62 65 71 20 77 | 61 69 74 0d 20 3c 3c 3c |0. beq w|ait. <<<|
|00000df0| 0d 0d 64 65 62 75 67 20 | 6d 61 63 20 20 3b 70 52 |..debug |mac  ;pR|
|00000e00| 49 4e 54 a0 41 a0 43 48 | 41 52 41 43 54 45 52 0d |INT.A.CH|ARACTER.|
|00000e10| a0 20 64 6f a0 30 20 20 | 3b 64 4f 4e 27 54 a0 41 |. do.0  |;dON'T.A|
|00000e20| 53 53 45 4d 42 4c 45 0d | 0d 20 6c 64 61 20 23 5d |SSEMBLE.|. lda #]|
|00000e30| 31 0d 20 6a 73 72 20 63 | 68 72 6f 75 74 0d 20 3e |1. jsr c|hrout. >|
|00000e40| 3e 3e 20 67 65 74 6b 65 | 79 20 3b 61 4e 44 a0 57 |>> getke|y ;aND.W|
|00000e50| 41 49 54 a0 54 4f a0 43 | 4f 4e 54 49 4e 55 45 0d |AIT.TO.C|ONTINUE.|
|00000e60| 20 63 6d 70 20 23 27 53 | 27 20 3b 6d 59 a0 53 45 | cmp #'S|' ;mY.SE|
|00000e70| 43 52 45 43 54 a0 53 57 | 49 54 43 48 a0 4b 45 59 |CRECT.SW|ITCH.KEY|
|00000e80| 0d 20 62 6e 65 20 6c 31 | 0d 20 6a 73 72 20 63 6c |. bne l1|. jsr cl|
|00000e90| 65 61 6e 75 70 0d 20 6a | 6d 70 20 64 6f 6e 65 0d |eanup. j|mp done.|
|00000ea0| 6c 31 20 63 6d 70 20 23 | 27 58 27 20 3b 6d 59 a0 |l1 cmp #|'X' ;mY.|
|00000eb0| 53 45 43 52 45 54 a0 41 | 42 4f 52 54 a0 4b 45 59 |SECRET.A|BORT.KEY|
|00000ec0| 0d 20 62 6e 65 20 64 6f | 6e 65 0d 20 6a 6d 70 20 |. bne do|ne. jmp |
|00000ed0| 63 6c 65 61 6e 75 70 0d | 20 66 69 6e 0d 64 6f 6e |cleanup.| fin.don|
|00000ee0| 65 20 3c 3c 3c 0d 0d 64 | 65 62 75 67 61 20 6d 61 |e <<<..d|ebuga ma|
|00000ef0| 63 0d 20 64 6f a0 30 0d | 20 6c 64 61 20 5d 31 0d |c. do.0.| lda ]1.|
|00000f00| 20 73 74 61 20 31 30 32 | 34 0d 20 66 69 6e 0d 64 | sta 102|4. fin.d|
|00000f10| 6f 6e 65 61 20 3c 3c 3c | 0d 0d 2a 2d 2d 2d 2d 2d |onea <<<|..*-----|
|00000f20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000f30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 0d 20 6c 64 61 |--------|--.. lda|
|00000f40| 20 23 24 30 30 0d 20 73 | 74 61 20 62 6b 67 6e 64 | #$00. s|ta bkgnd|
|00000f50| 0d 20 73 74 61 20 62 6f | 72 64 65 72 0d 20 6c 64 |. sta bo|rder. ld|
|00000f60| 61 20 76 6d 63 73 62 0d | 20 61 6e 64 20 23 25 30 |a vmcsb.| and #%0|
|00000f70| 30 30 30 31 31 31 31 20 | 3b 73 43 52 45 45 4e a0 |0001111 |;sCREEN.|
|00000f80| 4d 45 4d 4f 52 59 a0 54 | 4f a0 31 30 32 34 0d 20 |MEMORY.T|O.1024. |
|00000f90| 6f 72 61 20 23 25 30 30 | 30 31 30 30 30 30 0d 20 |ora #%00|010000. |
|00000fa0| 73 74 61 20 76 6d 63 73 | 62 0d 0d 20 6c 64 79 20 |sta vmcs|b.. ldy |
|00000fb0| 23 30 30 0d 20 6c 64 61 | 20 23 3c 74 74 65 78 74 |#00. lda| #<ttext|
|00000fc0| 0d 20 73 74 61 20 74 65 | 6d 70 31 0d 20 6c 64 61 |. sta te|mp1. lda|
|00000fd0| 20 23 3e 74 74 65 78 74 | 0d 20 73 74 61 20 74 65 | #>ttext|. sta te|
|00000fe0| 6d 70 32 0d 20 6a 6d 70 | 20 74 69 74 6c 65 0d 74 |mp2. jmp| title.t|
|00000ff0| 74 65 78 74 20 68 65 78 | 20 39 33 30 35 31 31 31 |text hex| 9305111|
|00001000| 31 31 31 20 3b 43 4c 45 | 41 52 a0 53 43 52 45 45 |111 ;CLE|AR.SCREE|
|00001010| 4e 2c a0 57 48 49 54 45 | 2c a0 43 52 53 52 a0 44 |N,.WHITE|,.CRSR.D|
|00001020| 4e 0d 20 74 78 74 20 27 | a0 a0 a0 a0 a0 a0 a0 a0 |N. txt '|........|
|00001030| a0 a0 a0 a0 a0 43 55 42 | 45 33 44 a0 56 32 2e 30 |.....CUB|E3D.V2.0|
|00001040| 27 2c 30 44 2c 30 44 0d | 20 74 78 74 20 27 a0 a0 |',0D,0D.| txt '..|
|00001050| a0 a0 a0 a0 a0 a0 a0 a0 | a0 a0 a0 a0 a0 a0 a0 a0 |........|........|
|00001060| 42 59 27 2c 30 44 0d 20 | 68 65 78 20 39 66 20 3b |BY',0D. |hex 9f ;|
|00001070| 43 59 41 4e 0d 20 74 78 | 74 20 27 a0 a0 a0 a0 53 |CYAN. tx|t '....S|
|00001080| 54 45 50 48 45 4e a0 4a | 55 44 44 27 0d 20 68 65 |TEPHEN.J|UDD'. he|
|00001090| 78 20 39 39 0d 20 74 78 | 74 20 27 a0 a0 a0 a0 47 |x 99. tx|t '....G|
|000010a0| 45 4f 52 47 45 a0 54 41 | 59 4c 4f 52 27 2c 30 44 |EORGE.TA|YLOR',0D|
|000010b0| 2c 30 44 0d 20 68 65 78 | 20 39 62 0d 20 74 78 74 |,0D. hex| 9b. txt|
|000010c0| 20 27 a0 a0 43 48 45 43 | 4b a0 4f 55 54 a0 54 48 | '..CHEC|K.OUT.TH|
|000010d0| 45 a0 4a 41 4e 2e a0 39 | 35 a0 49 53 53 55 45 a0 |E.JAN..9|5.ISSUE.|
|000010e0| 4f 46 27 2c 30 44 0d 20 | 68 65 78 20 39 36 0d 20 |OF',0D. |hex 96. |
|000010f0| 74 78 74 20 27 a0 a0 43 | 3d 48 41 43 4b 49 4e 47 |txt '..C|=HACKING|
|00001100| 27 0d 20 68 65 78 20 39 | 62 0d 20 74 78 74 20 27 |'. hex 9|b. txt '|
|00001110| a0 46 4f 52 a0 4d 4f 52 | 45 a0 44 45 54 41 49 4c |.FOR.MOR|E.DETAIL|
|00001120| 53 21 27 2c 30 44 0d 20 | 68 65 78 20 30 64 31 64 |S!',0D. |hex 0d1d|
|00001130| 31 64 39 65 31 32 0d 20 | 74 78 74 20 27 46 31 2f |1d9e12. |txt 'F1/|
|00001140| 46 32 27 2c 39 32 0d 20 | 74 78 74 20 27 a0 2d a0 |F2',92. |txt '.-.|
|00001150| 49 4e 43 2f 44 45 43 a0 | 58 2d 52 4f 54 41 54 49 |INC/DEC.|X-ROTATI|
|00001160| 4f 4e 27 2c 30 44 0d 20 | 68 65 78 20 31 64 31 64 |ON',0D. |hex 1d1d|
|00001170| 31 32 0d 20 74 78 74 20 | 27 46 33 2f 46 34 27 2c |12. txt |'F3/F4',|
|00001180| 39 32 0d 20 74 78 74 20 | 27 a0 2d a0 49 4e 43 2f |92. txt |'.-.INC/|
|00001190| 44 45 43 a0 59 2d 52 4f | 54 41 54 49 4f 4e 27 2c |DEC.Y-RO|TATION',|
|000011a0| 30 44 0d 20 68 65 78 20 | 31 64 31 64 31 32 0d 20 |0D. hex |1d1d12. |
|000011b0| 74 78 74 20 27 46 35 2f | 46 36 27 2c 39 32 0d 20 |txt 'F5/|F6',92. |
|000011c0| 74 78 74 20 27 a0 2d a0 | 49 4e 43 2f 44 45 43 a0 |txt '.-.|INC/DEC.|
|000011d0| 5a 2d 52 4f 54 41 54 49 | 4f 4e 27 2c 30 44 0d 20 |Z-ROTATI|ON',0D. |
|000011e0| 68 65 78 20 31 64 31 64 | 31 32 0d 20 74 78 74 20 |hex 1d1d|12. txt |
|000011f0| 27 46 37 27 2c 39 32 0d | 20 74 78 74 20 27 a0 52 |'F7',92.| txt '.R|
|00001200| 45 53 45 54 53 27 2c 30 | 44 0d 20 74 78 74 20 27 |ESETS',0|D. txt '|
|00001210| a0 a0 50 52 45 53 53 a0 | 51 a0 54 4f a0 51 55 49 |..PRESS.|Q.TO.QUI|
|00001220| 54 27 2c 30 44 0d 20 68 | 65 78 20 30 64 30 35 0d |T',0D. h|ex 0d05.|
|00001230| 20 74 78 74 20 27 a0 a0 | a0 a0 a0 a0 50 52 45 53 | txt '..|....PRES|
|00001240| 53 a0 41 4e 59 a0 4b 45 | 59 a0 54 4f a0 42 45 47 |S.ANY.KE|Y.TO.BEG|
|00001250| 49 4e 27 2c 30 44 0d 20 | 68 65 78 20 30 30 0d 74 |IN',0D. |hex 00.t|
|00001260| 69 74 6c 65 20 6c 64 61 | 20 28 74 65 6d 70 31 29 |itle lda| (temp1)|
|00001270| 2c 79 0d 20 62 65 71 20 | 3a 63 6f 6e 74 0d 20 6a |,y. beq |:cont. j|
|00001280| 73 72 20 63 68 72 6f 75 | 74 0d 20 69 6e 79 0d 20 |sr chrou|t. iny. |
|00001290| 62 6e 65 20 74 69 74 6c | 65 0d 20 69 6e 63 20 74 |bne titl|e. inc t|
|000012a0| 65 6d 70 32 0d 20 6a 6d | 70 20 74 69 74 6c 65 0d |emp2. jm|p title.|
|000012b0| 20 74 78 74 20 27 74 48 | 49 53 a0 49 53 a0 41 a0 | txt 'tH|IS.IS.A.|
|000012c0| 53 45 43 52 45 54 a0 54 | 45 58 54 a0 4d 45 53 53 |SECRET.T|EXT.MESS|
|000012d0| 41 47 45 21 27 0d 3a 63 | 6f 6e 74 20 3e 3e 3e 20 |AGE!'.:c|ont >>> |
|000012e0| 67 65 74 6b 65 79 0d 0d | 2a 2a 2a 2a a0 73 45 54 |getkey..|****.sET|
|000012f0| a0 55 50 a0 54 41 42 4c | 45 53 28 3f 29 0d 0d 2a |.UP.TABL|ES(?)..*|
|00001300| a0 74 41 42 4c 45 53 a0 | 41 52 45 a0 43 55 52 52 |.tABLES.|ARE.CURR|
|00001310| 45 4e 54 4c 59 a0 53 45 | 54 a0 55 50 a0 49 4e a0 |ENTLY.SE|T.UP.IN.|
|00001320| 62 61 73 69 63 0d 2a a0 | 41 4e 44 a0 42 59 a0 54 |basic.*.|AND.BY.T|
|00001330| 48 45 a0 41 53 53 45 4d | 42 4c 45 52 2e 0d 0d 74 |HE.ASSEM|BLER...t|
|00001340| 61 62 6c 65 73 20 6c 64 | 61 20 23 3e 74 6d 61 74 |ables ld|a #>tmat|
|00001350| 68 0d 20 73 74 61 20 7a | 31 2b 31 0d 20 73 74 61 |h. sta z|1+1. sta|
|00001360| 20 7a 32 2b 31 0d 0d 2a | 2a 2a 2a a0 63 4c 45 41 | z2+1..*|***.cLEA|
|00001370| 52 a0 53 43 52 45 45 4e | a0 41 4e 44 a0 53 45 54 |R.SCREEN|.AND.SET|
|00001380| a0 55 50 a0 22 42 49 54 | 4d 41 50 22 0d 73 65 74 |.UP."BIT|MAP".set|
|00001390| 75 70 20 6c 64 61 20 23 | 24 30 31 20 3b 77 48 49 |up lda #|$01 ;wHI|
|000013a0| 54 45 0d 20 73 74 61 20 | 24 64 30 32 31 20 3b 74 |TE. sta |$d021 ;t|
|000013b0| 48 49 53 a0 49 53 a0 44 | 4f 4e 45 a0 53 4f a0 54 |HIS.IS.D|ONE.SO.T|
|000013c0| 48 41 54 a0 4f 4c 44 45 | 52 0d 20 6c 64 61 20 23 |HAT.OLDE|R. lda #|
|000013d0| 31 34 37 20 3b 4d 41 43 | 48 49 4e 45 53 a0 57 49 |147 ;MAC|HINES.WI|
|000013e0| 4c 4c a0 53 45 54 a0 55 | 50 0d 20 6a 73 72 20 63 |LL.SET.U|P. jsr c|
|000013f0| 68 72 6f 75 74 0d 20 6c | 64 61 20 23 24 30 30 20 |hrout. l|da #$00 |
|00001400| 3b 43 4f 52 52 45 43 54 | 4c 59 0d 20 73 74 61 20 |;CORRECT|LY. sta |
|00001410| 24 64 30 32 31 0d 20 6c | 64 61 20 23 3c 73 73 74 |$d021. l|da #<sst|
|00001420| 61 72 74 0d 20 61 64 63 | 20 23 31 32 20 3b 74 48 |art. adc| #12 ;tH|
|00001430| 45 a0 47 4f 41 4c a0 49 | 53 a0 54 4f a0 43 45 4e |E.GOAL.I|S.TO.CEN|
|00001440| 54 45 52 a0 54 48 45 a0 | 47 52 41 50 48 49 43 53 |TER.THE.|GRAPHICS|
|00001450| 0d 20 73 74 61 20 74 65 | 6d 70 31 20 3b 63 4f 4c |. sta te|mp1 ;cOL|
|00001460| 55 4d 4e a0 31 32 0d 20 | 6c 64 61 20 23 3e 73 73 |UMN.12. |lda #>ss|
|00001470| 74 61 72 74 20 3b 72 4f | 57 a0 39 0d 20 73 74 61 |tart ;rO|W.9. sta|
|00001480| 20 74 65 6d 70 31 2b 31 | 20 3b 73 73 74 61 72 74 | temp1+1| ;sstart|
|00001490| a0 50 4f 49 4e 54 53 a0 | 54 4f a0 52 4f 57 a0 39 |.POINTS.|TO.ROW.9|
|000014a0| 0d 20 6c 64 61 20 23 30 | 30 0d 20 6c 64 79 20 23 |. lda #0|0. ldy #|
|000014b0| 30 30 0d 20 6c 64 78 20 | 23 30 30 20 3b 58 a0 57 |00. ldx |#00 ;X.W|
|000014c0| 49 4c 4c a0 43 4f 55 4e | 54 a0 31 36 a0 52 4f 57 |ILL.COUN|T.16.ROW|
|000014d0| 53 a0 46 4f 52 a0 55 53 | 0d 20 63 6c 63 0d 0d 3a |S.FOR.US|. clc..:|
|000014e0| 6c 6f 6f 70 20 73 74 61 | 20 28 74 65 6d 70 31 29 |loop sta| (temp1)|
|000014f0| 2c 79 0d 20 69 6e 79 0d | 20 61 64 63 20 23 31 36 |,y. iny.| adc #16|
|00001500| 0d 20 62 63 63 20 3a 6c | 6f 6f 70 0d 20 63 6c 63 |. bcc :l|oop. clc|
|00001510| 0d 20 6c 64 61 20 74 65 | 6d 70 31 0d 20 61 64 63 |. lda te|mp1. adc|
|00001520| 20 23 34 30 20 3b 6e 45 | 45 44 a0 54 4f a0 41 44 | #40 ;nE|ED.TO.AD|
|00001530| 44 a0 34 30 a0 54 4f a0 | 54 48 45 a0 42 41 53 45 |D.40.TO.|THE.BASE|
|00001540| a0 50 4f 49 4e 54 45 52 | 0d 20 73 74 61 20 74 65 |.POINTER|. sta te|
|00001550| 6d 70 31 20 3b 74 4f a0 | 4a 55 4d 50 a0 54 4f a0 |mp1 ;tO.|JUMP.TO.|
|00001560| 54 48 45 a0 4e 45 58 54 | a0 52 4f 57 0d 20 6c 64 |THE.NEXT|.ROW. ld|
|00001570| 61 20 74 65 6d 70 31 2b | 31 0d 20 61 64 63 20 23 |a temp1+|1. adc #|
|00001580| 30 30 20 3b 74 41 4b 45 | a0 43 41 52 45 a0 4f 46 |00 ;tAKE|.CARE.OF|
|00001590| a0 43 41 52 52 49 45 53 | 0d 20 73 74 61 20 74 65 |.CARRIES|. sta te|
|000015a0| 6d 70 31 2b 31 0d 20 6c | 64 79 20 23 30 30 0d 20 |mp1+1. l|dy #00. |
|000015b0| 69 6e 78 0d 20 74 78 61 | 20 20 3b 78 a0 49 53 a0 |inx. txa|  ;x.IS.|
|000015c0| 41 4c 53 4f a0 41 4e a0 | 49 4e 44 45 58 a0 49 4e |ALSO.AN.|INDEX.IN|
|000015d0| 54 4f a0 54 48 45 a0 43 | 48 41 52 41 43 54 45 52 |TO.THE.C|HARACTER|
|000015e0| a0 4e 55 4d 42 45 52 0d | 20 63 70 78 20 23 31 36 |.NUMBER.| cpx #16|
|000015f0| 0d 20 62 6e 65 20 3a 6c | 6f 6f 70 20 3b 6e 45 45 |. bne :l|oop ;nEE|
|00001600| 44 a0 54 4f a0 44 4f a0 | 49 54 a0 31 36 a0 54 49 |D.TO.DO.|IT.16.TI|
|00001610| 4d 45 53 0d 0d 20 3e 3e | 3e 20 64 65 62 75 67 2c |MES.. >>|> debug,|
|00001620| 27 32 27 0d 2a 2a 2a 2a | a0 73 45 54 a0 55 50 a0 |'2'.****|.sET.UP.|
|00001630| 42 55 46 46 45 52 53 0d | 0d 20 6c 64 61 20 23 3c |BUFFERS.|. lda #<|
|00001640| 62 75 66 66 31 0d 20 73 | 74 61 20 62 75 66 66 65 |buff1. s|ta buffe|
|00001650| 72 0d 20 6c 64 61 20 23 | 3e 62 75 66 66 31 0d 20 |r. lda #|>buff1. |
|00001660| 73 74 61 20 62 75 66 66 | 65 72 2b 31 0d 20 73 74 |sta buff|er+1. st|
|00001670| 61 20 7a 74 65 6d 70 20 | 3b 5a 54 45 4d 50 a0 57 |a ztemp |;ZTEMP.W|
|00001680| 49 4c 4c a0 4d 41 4b 45 | a0 4c 49 46 45 a0 53 49 |ILL.MAKE|.LIFE.SI|
|00001690| 4d 50 4c 45 a0 46 4f 52 | a0 55 53 0d 20 6c 64 61 |MPLE.FOR|.US. lda|
|000016a0| 20 76 6d 63 73 62 0d 20 | 61 6e 64 20 23 25 31 31 | vmcsb. |and #%11|
|000016b0| 31 31 30 30 30 31 20 3b | 73 54 41 52 54 a0 48 45 |110001 ;|sTART.HE|
|000016c0| 52 45 a0 53 4f a0 54 48 | 41 54 a0 53 57 41 50 a0 |RE.SO.TH|AT.SWAP.|
|000016d0| 42 55 46 46 45 52 53 a0 | 57 49 4c 4c a0 57 4f 52 |BUFFERS.|WILL.WOR|
|000016e0| 4b a0 52 49 47 48 54 0d | 20 6f 72 61 20 23 25 30 |K.RIGHT.| ora #%0|
|000016f0| 30 30 30 31 31 31 30 0d | 20 73 74 61 20 76 6d 63 |0001110.| sta vmc|
|00001700| 73 62 0d 0d 2a 2a 2a 2a | a0 73 45 54 a0 55 50 a0 |sb..****|.sET.UP.|
|00001710| 49 4e 49 54 49 41 4c a0 | 56 41 4c 55 45 53 0d 0d |INITIAL.|VALUES..|
|00001720| 69 6e 69 74 20 6c 64 61 | 20 23 30 30 0d 20 73 74 |init lda| #00. st|
|00001730| 61 20 64 73 78 0d 20 73 | 74 61 20 64 73 79 0d 20 |a dsx. s|ta dsy. |
|00001740| 73 74 61 20 64 73 7a 0d | 20 73 74 61 20 73 78 0d |sta dsz.| sta sx.|
|00001750| 20 73 74 61 20 73 79 0d | 20 73 74 61 20 73 7a 0d | sta sy.| sta sz.|
|00001760| 0d 20 3e 3e 3e 20 64 65 | 62 75 67 2c 27 34 27 0d |. >>> de|bug,'4'.|
|00001770| 0d 2a 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.*------|--------|
|00001780| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001790| 2d 0d 2a a0 6d 41 49 4e | a0 4c 4f 4f 50 0d 0d 2a |-.*.mAIN|.LOOP..*|
|000017a0| 2a 2a 2a a0 67 45 54 a0 | 4b 45 59 50 52 45 53 53 |***.gET.|KEYPRESS|
|000017b0| 0d 0d 6d 61 69 6e 0d 20 | 63 6c 69 0d 6b 70 72 65 |..main. |cli.kpre|
|000017c0| 73 73 20 6a 73 72 20 67 | 65 74 69 6e 0d 20 63 6d |ss jsr g|etin. cm|
|000017d0| 70 20 23 31 33 33 20 3b | 66 31 3f 0d 20 62 6e 65 |p #133 ;|f1?. bne|
|000017e0| 20 3a 66 32 0d 20 6c 64 | 61 20 64 73 78 0d 20 63 | :f2. ld|a dsx. c|
|000017f0| 6d 70 20 23 61 6e 67 6d | 61 78 2f 32 20 3b 6e 4f |mp #angm|ax/2 ;nO|
|00001800| a0 4d 4f 52 45 a0 54 48 | 41 4e a0 50 49 0d 20 62 |.MORE.TH|AN.PI. b|
|00001810| 65 71 20 3a 63 6f 6e 74 | 0d 20 69 6e 63 20 64 73 |eq :cont|. inc ds|
|00001820| 78 20 3b 4f 54 48 45 52 | 57 49 53 45 a0 49 4e 43 |x ;OTHER|WISE.INC|
|00001830| 52 45 41 53 45 a0 58 2d | 52 4f 54 41 54 49 4f 4e |REASE.X-|ROTATION|
|00001840| 0d 20 6a 6d 70 20 3a 63 | 6f 6e 74 0d 3a 66 32 20 |. jmp :c|ont.:f2 |
|00001850| 63 6d 70 20 23 31 33 37 | 20 3b 66 32 3f 0d 20 62 |cmp #137| ;f2?. b|
|00001860| 6e 65 20 3a 66 33 0d 20 | 6c 64 61 20 64 73 78 0d |ne :f3. |lda dsx.|
|00001870| 20 62 65 71 20 3a 63 6f | 6e 74 0d 20 64 65 63 20 | beq :co|nt. dec |
|00001880| 64 73 78 0d 20 6a 6d 70 | 20 3a 63 6f 6e 74 0d 3a |dsx. jmp| :cont.:|
|00001890| 66 33 20 63 6d 70 20 23 | 31 33 34 0d 20 62 6e 65 |f3 cmp #|134. bne|
|000018a0| 20 3a 66 34 0d 20 6c 64 | 61 20 64 73 79 0d 20 63 | :f4. ld|a dsy. c|
|000018b0| 6d 70 20 23 61 6e 67 6d | 61 78 2f 32 0d 20 62 65 |mp #angm|ax/2. be|
|000018c0| 71 20 3a 63 6f 6e 74 0d | 20 69 6e 63 20 64 73 79 |q :cont.| inc dsy|
|000018d0| 20 3b 69 4e 43 52 45 41 | 53 45 a0 59 2d 52 4f 54 | ;iNCREA|SE.Y-ROT|
|000018e0| 41 54 49 4f 4e 0d 20 6a | 6d 70 20 3a 63 6f 6e 74 |ATION. j|mp :cont|
|000018f0| 0d 3a 66 34 20 63 6d 70 | 20 23 31 33 38 0d 20 62 |.:f4 cmp| #138. b|
|00001900| 6e 65 20 3a 66 35 0d 20 | 6c 64 61 20 64 73 79 0d |ne :f5. |lda dsy.|
|00001910| 20 62 65 71 20 3a 63 6f | 6e 74 0d 20 64 65 63 20 | beq :co|nt. dec |
|00001920| 64 73 79 0d 20 6a 6d 70 | 20 3a 63 6f 6e 74 0d 3a |dsy. jmp| :cont.:|
|00001930| 66 35 20 63 6d 70 20 23 | 31 33 35 0d 20 62 6e 65 |f5 cmp #|135. bne|
|00001940| 20 3a 66 36 0d 20 6c 64 | 61 20 64 73 7a 0d 20 63 | :f6. ld|a dsz. c|
|00001950| 6d 70 20 23 61 6e 67 6d | 61 78 2f 32 0d 20 62 65 |mp #angm|ax/2. be|
|00001960| 71 20 3a 63 6f 6e 74 0d | 20 69 6e 63 20 64 73 7a |q :cont.| inc dsz|
|00001970| 20 3b 5a 2d 52 4f 54 41 | 54 49 4f 4e 0d 20 6a 6d | ;Z-ROTA|TION. jm|
|00001980| 70 20 3a 63 6f 6e 74 0d | 3a 66 36 20 63 6d 70 20 |p :cont.|:f6 cmp |
|00001990| 23 31 33 39 0d 20 62 6e | 65 20 3a 66 37 0d 20 6c |#139. bn|e :f7. l|
|000019a0| 64 61 20 64 73 7a 0d 20 | 62 65 71 20 3a 63 6f 6e |da dsz. |beq :con|
|000019b0| 74 0d 20 64 65 63 20 64 | 73 7a 0d 20 6a 6d 70 20 |t. dec d|sz. jmp |
|000019c0| 3a 63 6f 6e 74 0d 3a 66 | 37 20 63 6d 70 20 23 31 |:cont.:f|7 cmp #1|
|000019d0| 33 36 0d 20 62 6e 65 20 | 3a 71 0d 20 6a 6d 70 20 |36. bne |:q. jmp |
|000019e0| 69 6e 69 74 0d 3a 71 20 | 63 6d 70 20 23 27 51 27 |init.:q |cmp #'Q'|
|000019f0| 20 3b 51 a0 51 55 49 54 | 53 0d 20 62 6e 65 20 3a | ;Q.QUIT|S. bne :|
|00001a00| 63 6f 6e 74 0d 20 6a 6d | 70 20 63 6c 65 61 6e 75 |cont. jm|p cleanu|
|00001a10| 70 0d 0d 3a 63 6f 6e 74 | 20 73 65 69 20 20 3b 73 |p..:cont| sei  ;s|
|00001a20| 50 45 45 44 a0 54 48 49 | 4e 47 53 a0 55 50 a0 41 |PEED.THI|NGS.UP.A|
|00001a30| a0 42 49 54 0d 2a a0 3e | 3e 3e a0 64 65 62 75 67 |.BIT.*.>|>>.debug|
|00001a40| 2c 27 35 27 0d 0d 2a 2a | 2a 2a a0 75 50 44 41 54 |,'5'..**|**.uPDAT|
|00001a50| 45 a0 41 4e 47 4c 45 53 | 0d 0d 75 70 64 61 74 65 |E.ANGLES|..update|
|00001a60| 20 63 6c 63 0d 20 6c 64 | 61 20 73 78 0d 20 61 64 | clc. ld|a sx. ad|
|00001a70| 63 20 64 73 78 0d 20 63 | 6d 70 20 23 61 6e 67 6d |c dsx. c|mp #angm|
|00001a80| 61 78 20 3b 61 52 45 a0 | 57 45 a0 3e 3d a0 4d 41 |ax ;aRE.|WE.>=.MA|
|00001a90| 58 49 4d 55 4d a0 41 4e | 47 4c 45 3f 0d 20 62 63 |XIMUM.AN|GLE?. bc|
|00001aa0| 63 20 3a 63 6f 6e 74 31 | 0d 20 73 62 63 20 23 61 |c :cont1|. sbc #a|
|00001ab0| 6e 67 6d 61 78 20 3a 69 | 46 20 53 4f 2c 20 52 45 |ngmax :i|F SO, RE|
|00001ac0| 53 45 54 0d 3a 63 6f 6e | 74 31 20 73 74 61 20 73 |SET.:con|t1 sta s|
|00001ad0| 78 0d 20 63 6c 63 0d 20 | 6c 64 61 20 73 79 0d 20 |x. clc. |lda sy. |
|00001ae0| 61 64 63 20 64 73 79 0d | 20 63 6d 70 20 23 61 6e |adc dsy.| cmp #an|
|00001af0| 67 6d 61 78 0d 20 62 63 | 63 20 3a 63 6f 6e 74 32 |gmax. bc|c :cont2|
|00001b00| 0d 20 73 62 63 20 23 61 | 6e 67 6d 61 78 20 3b 73 |. sbc #a|ngmax ;s|
|00001b10| 41 4d 45 a0 44 45 41 4c | 0d 3a 63 6f 6e 74 32 20 |AME.DEAL|.:cont2 |
|00001b20| 73 74 61 20 73 79 0d 20 | 63 6c 63 0d 20 6c 64 61 |sta sy. |clc. lda|
|00001b30| 20 73 7a 0d 20 61 64 63 | 20 64 73 7a 0d 20 63 6d | sz. adc| dsz. cm|
|00001b40| 70 20 23 61 6e 67 6d 61 | 78 0d 20 62 63 63 20 3a |p #angma|x. bcc :|
|00001b50| 63 6f 6e 74 33 0d 20 73 | 62 63 20 23 61 6e 67 6d |cont3. s|bc #angm|
|00001b60| 61 78 0d 3a 63 6f 6e 74 | 33 20 73 74 61 20 73 7a |ax.:cont|3 sta sz|
|00001b70| 0d 0d 2a 2a 2a 2a a0 72 | 4f 54 41 54 45 a0 43 4f |..****.r|OTATE.CO|
|00001b80| 4f 52 44 49 4e 41 54 45 | 53 0d 0d 72 6f 74 61 74 |ORDINATE|S..rotat|
|00001b90| 65 0d 0d 2a 2a 2a a0 66 | 49 52 53 54 2c a0 43 41 |e..***.f|IRST,.CA|
|00001ba0| 4c 43 55 4c 41 54 45 a0 | 54 31 2c 54 32 2c 2e 2e |LCULATE.|T1,T2,..|
|00001bb0| 2e 2c 54 31 30 0d 0d 2a | 2a a0 74 57 4f a0 4d 41 |.,T10..*|*.tWO.MA|
|00001bc0| 43 52 4f 53 a0 54 4f a0 | 53 49 4d 50 4c 49 46 59 |CROS.TO.|SIMPLIFY|
|00001bd0| a0 4f 55 52 a0 4c 49 46 | 45 0d 61 64 64 61 20 6d |.OUR.LIF|E.adda m|
|00001be0| 61 63 20 20 3b 61 44 44 | a0 54 57 4f a0 41 4e 47 |ac  ;aDD|.TWO.ANG|
|00001bf0| 4c 45 53 a0 54 4f 47 45 | 54 48 45 52 0d 20 63 6c |LES.TOGE|THER. cl|
|00001c00| 63 0d 20 6c 64 61 20 5d | 31 0d 20 61 64 63 20 5d |c. lda ]|1. adc ]|
|00001c10| 32 0d 20 63 6d 70 20 23 | 61 6e 67 6d 61 78 20 3b |2. cmp #|angmax ;|
|00001c20| 69 53 a0 54 48 45 a0 53 | 55 4d a0 3e a0 32 2a 50 |iS.THE.S|UM.>.2*P|
|00001c30| 49 3f 0d 20 62 63 63 20 | 64 6f 6e 65 0d 20 73 62 |I?. bcc |done. sb|
|00001c40| 63 20 23 61 6e 67 6d 61 | 78 20 3b 69 46 a0 53 4f |c #angma|x ;iF.SO|
|00001c50| 2c a0 53 55 42 54 52 41 | 43 54 a0 32 2a 50 49 0d |,.SUBTRA|CT.2*PI.|
|00001c60| 64 6f 6e 65 20 3c 3c 3c | 0d 0d 73 75 62 61 20 6d |done <<<|..suba m|
|00001c70| 61 63 20 20 3b 73 55 42 | 54 52 41 43 54 a0 54 57 |ac  ;sUB|TRACT.TW|
|00001c80| 4f a0 41 4e 47 4c 45 53 | 0d 20 73 65 63 0d 20 6c |O.ANGLES|. sec. l|
|00001c90| 64 61 20 5d 31 0d 20 73 | 62 63 20 5d 32 0d 20 62 |da ]1. s|bc ]2. b|
|00001ca0| 63 73 20 64 6f 6e 65 0d | 20 61 64 63 20 23 61 6e |cs done.| adc #an|
|00001cb0| 67 6d 61 78 20 3b 6f 4f | 50 53 2c a0 57 45 a0 4e |gmax ;oO|PS,.WE.N|
|00001cc0| 45 45 44 a0 54 4f a0 41 | 44 44 a0 32 2a 50 49 0d |EED.TO.A|DD.2*PI.|
|00001cd0| 64 6f 6e 65 20 3c 3c 3c | 0d 0d 2a 2a a0 6e 4f 57 |done <<<|..**.nOW|
|00001ce0| a0 43 41 4c 43 55 4c 41 | 54 45 a0 54 31 2c 54 32 |.CALCULA|TE.T1,T2|
|00001cf0| 2c 45 54 43 2e 0d 0d 20 | 3e 3e 3e 20 73 75 62 61 |,ETC... |>>> suba|
|00001d00| 2c 73 79 3b 73 7a 0d 20 | 73 74 61 20 74 31 20 3b |,sy;sz. |sta t1 ;|
|00001d10| 54 31 3d 53 59 2d 53 5a | 0d 20 3e 3e 3e 20 61 64 |T1=SY-SZ|. >>> ad|
|00001d20| 64 61 2c 73 79 3b 73 7a | 0d 20 73 74 61 20 74 32 |da,sy;sz|. sta t2|
|00001d30| 20 3b 54 32 3d 53 59 2b | 53 5a 0d 20 3e 3e 3e 20 | ;T2=SY+|SZ. >>> |
|00001d40| 61 64 64 61 2c 73 78 3b | 73 7a 0d 20 73 74 61 20 |adda,sx;|sz. sta |
|00001d50| 74 33 20 3b 54 33 3d 53 | 58 2b 53 5a 0d 20 3e 3e |t3 ;T3=S|X+SZ. >>|
|00001d60| 3e 20 73 75 62 61 2c 73 | 78 3b 73 7a 0d 20 73 74 |> suba,s|x;sz. st|
|00001d70| 61 20 74 34 20 3b 54 34 | 3d 53 58 2d 53 5a 0d 20 |a t4 ;T4|=SX-SZ. |
|00001d80| 3e 3e 3e 20 61 64 64 61 | 2c 73 78 3b 74 32 0d 20 |>>> adda|,sx;t2. |
|00001d90| 73 74 61 20 74 35 20 3b | 54 35 3d 53 58 2b 54 32 |sta t5 ;|T5=SX+T2|
|00001da0| 0d 20 3e 3e 3e 20 73 75 | 62 61 2c 73 78 3b 74 31 |. >>> su|ba,sx;t1|
|00001db0| 0d 20 73 74 61 20 74 36 | 20 3b 54 36 3d 53 58 2d |. sta t6| ;T6=SX-|
|00001dc0| 54 31 0d 20 3e 3e 3e 20 | 61 64 64 61 2c 73 78 3b |T1. >>> |adda,sx;|
|00001dd0| 74 31 0d 20 73 74 61 20 | 74 37 20 3b 54 37 3d 53 |t1. sta |t7 ;T7=S|
|00001de0| 58 2b 54 31 0d 20 3e 3e | 3e 20 73 75 62 61 2c 74 |X+T1. >>|> suba,t|
|00001df0| 32 3b 73 78 0d 20 73 74 | 61 20 74 38 20 3b 54 38 |2;sx. st|a t8 ;T8|
|00001e00| 3d 54 32 2d 53 58 0d 20 | 3e 3e 3e 20 73 75 62 61 |=T2-SX. |>>> suba|
|00001e10| 2c 73 79 3b 73 78 0d 20 | 73 74 61 20 74 39 20 3b |,sy;sx. |sta t9 ;|
|00001e20| 54 39 3d 53 59 2d 53 58 | 0d 20 3e 3e 3e 20 61 64 |T9=SY-SX|. >>> ad|
|00001e30| 64 61 2c 73 78 3b 73 79 | 0d 20 73 74 61 20 74 31 |da,sx;sy|. sta t1|
|00001e40| 30 20 3b 54 31 30 3d 53 | 58 2b 53 59 0d 0d 2a a0 |0 ;T10=S|X+SY..*.|
|00001e50| 65 54 a0 56 4f 49 4c 41 | 21 0d 0d 2a 2a 2a a0 6e |eT.VOILA|!..***.n|
|00001e60| 45 58 54 2c a0 43 41 4c | 43 55 4c 41 54 45 a0 61 |EXT,.CAL|CULATE.a|
|00001e70| 2c 62 2c 63 2c 2e 2e 2e | 2c 69 0d 0d 2a 2a a0 61 |,b,c,...|,i..**.a|
|00001e80| 4e 4f 54 48 45 52 a0 55 | 53 45 46 55 4c a0 4c 49 |NOTHER.U|SEFUL.LI|
|00001e90| 54 54 4c 45 a0 4d 41 43 | 52 4f 0d 64 69 76 32 20 |TTLE.MAC|RO.div2 |
|00001ea0| 6d 61 63 20 20 3b 64 49 | 56 49 44 45 a0 41 a0 53 |mac  ;dI|VIDE.A.S|
|00001eb0| 49 47 4e 45 44 a0 4e 55 | 4d 42 45 52 a0 42 59 a0 |IGNED.NU|MBER.BY.|
|00001ec0| 32 0d 3b 69 54 a0 49 53 | a0 41 53 53 55 4d 45 44 |2.;iT.IS|.ASSUMED|
|00001ed0| a0 54 48 41 54 a0 54 48 | 45 a0 4e 55 4d 42 45 52 |.THAT.TH|E.NUMBER|
|00001ee0| 0d 20 62 70 6c 20 70 6f | 73 20 3b 49 53 a0 49 4e |. bpl po|s ;IS.IN|
|00001ef0| a0 54 48 45 a0 41 43 43 | 55 4d 55 4c 41 54 4f 52 |.THE.ACC|UMULATOR|
|00001f00| 0d 20 63 6c 63 0d 20 65 | 6f 72 20 23 24 66 66 20 |. clc. e|or #$ff |
|00001f10| 3b 77 45 a0 4e 45 45 44 | a0 54 4f a0 55 4e 2d 4e |;wE.NEED|.TO.UN-N|
|00001f20| 45 47 41 54 49 56 45 a0 | 54 48 45 a0 4e 55 4d 42 |EGATIVE.|THE.NUMB|
|00001f30| 45 52 0d 20 61 64 63 20 | 23 30 31 20 3b 42 59 a0 |ER. adc |#01 ;BY.|
|00001f40| 54 41 4b 49 4e 47 a0 49 | 54 27 53 a0 43 4f 4d 50 |TAKING.I|T'S.COMP|
|00001f50| 4c 45 4d 45 4e 54 0d 20 | 6c 73 72 20 20 3b 44 49 |LEMENT. |lsr  ;DI|
|00001f60| 56 49 44 45 a0 42 59 a0 | 54 57 4f 0d 20 63 6c 63 |VIDE.BY.|TWO. clc|
|00001f70| 0d 20 65 6f 72 20 23 24 | 66 66 0d 20 61 64 63 20 |. eor #$|ff. adc |
|00001f80| 23 30 31 20 3b 6d 41 4b | 45 a0 49 54 a0 4e 45 47 |#01 ;mAK|E.IT.NEG|
|00001f90| 41 54 49 56 45 a0 41 47 | 41 49 4e 0d 20 6a 6d 70 |ATIVE.AG|AIN. jmp|
|00001fa0| 20 64 6f 6e 65 64 69 76 | 0d 70 6f 73 20 6c 73 72 | donediv|.pos lsr|
|00001fb0| 20 20 3b 6e 55 4d 42 45 | 52 a0 49 53 a0 50 4f 53 |  ;nUMBE|R.IS.POS|
|00001fc0| 49 54 49 56 45 0d 64 6f | 6e 65 64 69 76 20 3c 3c |ITIVE.do|nediv <<|
|00001fd0| 3c 0d 0d 6d 75 6c 32 20 | 6d 61 63 20 20 3b 6d 55 |<..mul2 |mac  ;mU|
|00001fe0| 4c 54 49 50 4c 59 a0 41 | a0 53 49 47 4e 45 44 a0 |LTIPLY.A|.SIGNED.|
|00001ff0| 4e 55 4d 42 45 52 a0 42 | 59 a0 32 0d 20 62 70 6c |NUMBER.B|Y.2. bpl|
|00002000| 20 70 6f 73 6d 0d 20 63 | 6c 63 0d 20 65 6f 72 20 | posm. c|lc. eor |
|00002010| 23 24 66 66 0d 20 61 64 | 63 20 23 24 30 31 0d 20 |#$ff. ad|c #$01. |
|00002020| 61 73 6c 0d 20 63 6c 63 | 0d 20 65 6f 72 20 23 24 |asl. clc|. eor #$|
|00002030| 66 66 0d 20 61 64 63 20 | 23 24 30 31 0d 20 6a 6d |ff. adc |#$01. jm|
|00002040| 70 20 64 6f 6e 65 6d 75 | 6c 0d 70 6f 73 6d 20 61 |p donemu|l.posm a|
|00002050| 73 6c 0d 64 6f 6e 65 6d | 75 6c 20 3c 3c 3c 0d 0d |sl.donem|ul <<<..|
|00002060| 2a 2a a0 6e 4f 54 45 a0 | 54 48 41 54 a0 57 45 a0 |**.nOTE.|THAT.WE.|
|00002070| 41 52 45 a0 43 55 52 52 | 45 4e 54 4c 59 a0 4d 41 |ARE.CURR|ENTLY.MA|
|00002080| 4b 49 4e 47 a0 41 a0 4d | 49 4e 4f 52 a0 4c 45 41 |KING.A.M|INOR.LEA|
|00002090| 50 0d 2a 2a a0 4f 46 a0 | 46 41 49 54 48 a0 54 48 |P.**.OF.|FAITH.TH|
|000020a0| 41 54 a0 4e 4f a0 4f 56 | 45 52 46 4c 4f 57 53 a0 |AT.NO.OV|ERFLOWS.|
|000020b0| 57 49 4c 4c a0 4f 43 43 | 55 52 2e 0d 0d 3a 63 61 |WILL.OCC|UR...:ca|
|000020c0| 6c 63 61 20 63 6c 63 0d | 20 6c 64 78 20 74 31 0d |lca clc.| ldx t1.|
|000020d0| 20 6c 64 61 20 63 6f 73 | 2c 78 0d 20 6c 64 78 20 | lda cos|,x. ldx |
|000020e0| 74 32 0d 20 61 64 63 20 | 63 6f 73 2c 78 0d 20 73 |t2. adc |cos,x. s|
|000020f0| 74 61 20 61 31 31 20 3b | 61 3d 28 43 4f 53 28 54 |ta a11 ;|a=(COS(T|
|00002100| 31 29 2b 43 4f 53 28 54 | 32 29 29 2f 32 0d 3a 63 |1)+COS(T|2))/2.:c|
|00002110| 61 6c 63 62 20 6c 64 78 | 20 74 31 0d 20 6c 64 61 |alcb ldx| t1. lda|
|00002120| 20 73 69 6e 2c 78 0d 20 | 73 65 63 0d 20 6c 64 78 | sin,x. |sec. ldx|
|00002130| 20 74 32 0d 20 73 62 63 | 20 73 69 6e 2c 78 0d 20 | t2. sbc| sin,x. |
|00002140| 73 74 61 20 62 31 32 20 | 3b 62 3d 28 53 49 4e 28 |sta b12 |;b=(SIN(|
|00002150| 54 31 29 2d 53 49 4e 28 | 54 32 29 29 2f 32 0d 3a |T1)-SIN(|T2))/2.:|
|00002160| 63 61 6c 63 63 20 6c 64 | 78 20 73 79 0d 20 6c 64 |calcc ld|x sy. ld|
|00002170| 61 20 73 69 6e 2c 78 0d | 20 3e 3e 3e 20 6d 75 6c |a sin,x.| >>> mul|
|00002180| 32 0d 20 73 74 61 20 63 | 31 33 20 3b 63 3d 53 49 |2. sta c|13 ;c=SI|
|00002190| 4e 28 53 59 29 0d 3a 63 | 61 6c 63 64 20 73 65 63 |N(SY).:c|alcd sec|
|000021a0| 0d 20 6c 64 78 20 74 38 | 0d 20 6c 64 61 20 63 6f |. ldx t8|. lda co|
|000021b0| 73 2c 78 0d 20 6c 64 78 | 20 74 37 0d 20 73 62 63 |s,x. ldx| t7. sbc|
|000021c0| 20 63 6f 73 2c 78 0d 20 | 73 65 63 0d 20 6c 64 78 | cos,x. |sec. ldx|
|000021d0| 20 74 35 0d 20 73 62 63 | 20 63 6f 73 2c 78 0d 20 | t5. sbc| cos,x. |
|000021e0| 63 6c 63 0d 20 6c 64 78 | 20 74 36 0d 20 61 64 63 |clc. ldx| t6. adc|
|000021f0| 20 63 6f 73 2c 78 20 3b | 64 49 3d 28 43 4f 53 28 | cos,x ;|dI=(COS(|
|00002200| 54 38 29 2d 43 4f 53 28 | 54 37 29 2b 43 4f 53 28 |T8)-COS(|T7)+COS(|
|00002210| 54 36 29 2d 43 4f 53 28 | 54 35 29 29 2f 32 0d 20 |T6)-COS(|T5))/2. |
|00002220| 3e 3e 3e 20 64 69 76 32 | 0d 20 63 6c 63 0d 20 6c |>>> div2|. clc. l|
|00002230| 64 78 20 74 33 0d 20 61 | 64 63 20 73 69 6e 2c 78 |dx t3. a|dc sin,x|
|00002240| 0d 20 73 65 63 0d 20 6c | 64 78 20 74 34 0d 20 73 |. sec. l|dx t4. s|
|00002250| 62 63 20 73 69 6e 2c 78 | 0d 20 73 74 61 20 64 32 |bc sin,x|. sta d2|
|00002260| 31 20 3b 64 3d 28 53 49 | 4e 28 54 33 29 2d 53 49 |1 ;d=(SI|N(T3)-SI|
|00002270| 4e 28 54 34 29 2b 64 49 | 29 2f 32 0d 3a 63 61 6c |N(T4)+dI|)/2.:cal|
|00002280| 63 65 20 73 65 63 0d 20 | 6c 64 78 20 74 35 0d 20 |ce sec. |ldx t5. |
|00002290| 6c 64 61 20 73 69 6e 2c | 78 0d 20 6c 64 78 20 74 |lda sin,|x. ldx t|
|000022a0| 36 0d 20 73 62 63 20 73 | 69 6e 2c 78 0d 20 73 65 |6. sbc s|in,x. se|
|000022b0| 63 0d 20 6c 64 78 20 74 | 37 0d 20 73 62 63 20 73 |c. ldx t|7. sbc s|
|000022c0| 69 6e 2c 78 0d 20 73 65 | 63 0d 20 6c 64 78 20 74 |in,x. se|c. ldx t|
|000022d0| 38 0d 20 73 62 63 20 73 | 69 6e 2c 78 20 3b 65 49 |8. sbc s|in,x ;eI|
|000022e0| 3d 28 53 49 4e 28 54 35 | 29 2d 53 49 4e 28 54 36 |=(SIN(T5|)-SIN(T6|
|000022f0| 29 2d 53 49 4e 28 54 37 | 29 2d 53 49 4e 28 54 38 |)-SIN(T7|)-SIN(T8|
|00002300| 29 29 2f 32 0d 20 3e 3e | 3e 20 64 69 76 32 0d 20 |))/2. >>|> div2. |
|00002310| 63 6c 63 0d 20 6c 64 78 | 20 74 33 0d 20 61 64 63 |clc. ldx| t3. adc|
|00002320| 20 63 6f 73 2c 78 0d 20 | 63 6c 63 0d 20 6c 64 78 | cos,x. |clc. ldx|
|00002330| 20 74 34 0d 20 61 64 63 | 20 63 6f 73 2c 78 0d 20 | t4. adc| cos,x. |
|00002340| 73 74 61 20 65 32 32 20 | 3b 65 3d 28 43 4f 53 28 |sta e22 |;e=(COS(|
|00002350| 54 33 29 2b 43 4f 53 28 | 54 34 29 2b 65 49 29 2f |T3)+COS(|T4)+eI)/|
|00002360| 32 0d 3a 63 61 6c 63 66 | 20 6c 64 78 20 74 39 0d |2.:calcf| ldx t9.|
|00002370| 20 6c 64 61 20 73 69 6e | 2c 78 0d 20 73 65 63 0d | lda sin|,x. sec.|
|00002380| 20 6c 64 78 20 74 31 30 | 0d 20 73 62 63 20 73 69 | ldx t10|. sbc si|
|00002390| 6e 2c 78 0d 20 73 74 61 | 20 66 32 33 20 3b 66 3d |n,x. sta| f23 ;f=|
|000023a0| 28 53 49 4e 28 54 39 29 | 2d 53 49 4e 28 54 31 30 |(SIN(T9)|-SIN(T10|
|000023b0| 29 29 2f 32 0d 3a 63 61 | 6c 63 67 20 6c 64 78 20 |))/2.:ca|lcg ldx |
|000023c0| 74 36 0d 20 6c 64 61 20 | 73 69 6e 2c 78 0d 20 73 |t6. lda |sin,x. s|
|000023d0| 65 63 0d 20 6c 64 78 20 | 74 38 0d 20 73 62 63 20 |ec. ldx |t8. sbc |
|000023e0| 73 69 6e 2c 78 0d 20 73 | 65 63 0d 20 6c 64 78 20 |sin,x. s|ec. ldx |
|000023f0| 74 37 0d 20 73 62 63 20 | 73 69 6e 2c 78 0d 20 73 |t7. sbc |sin,x. s|
|00002400| 65 63 0d 20 6c 64 78 20 | 74 35 0d 20 73 62 63 20 |ec. ldx |t5. sbc |
|00002410| 73 69 6e 2c 78 20 3b 67 | 49 3d 28 53 49 4e 28 54 |sin,x ;g|I=(SIN(T|
|00002420| 36 29 2d 53 49 4e 28 54 | 38 29 2d 53 49 4e 28 54 |6)-SIN(T|8)-SIN(T|
|00002430| 37 29 2d 53 49 4e 28 54 | 35 29 29 2f 32 0d 20 3e |7)-SIN(T|5))/2. >|
|00002440| 3e 3e 20 64 69 76 32 0d | 20 63 6c 63 0d 20 6c 64 |>> div2.| clc. ld|
|00002450| 78 20 74 34 0d 20 61 64 | 63 20 63 6f 73 2c 78 0d |x t4. ad|c cos,x.|
|00002460| 20 73 65 63 0d 20 6c 64 | 78 20 74 33 0d 20 73 62 | sec. ld|x t3. sb|
|00002470| 63 20 63 6f 73 2c 78 0d | 20 73 74 61 20 67 33 31 |c cos,x.| sta g31|
|00002480| 20 3b 67 3d 28 43 4f 53 | 28 54 34 29 2d 43 4f 53 | ;g=(COS|(T4)-COS|
|00002490| 28 54 33 29 2b 67 49 29 | 2f 32 0d 20 3e 3e 3e 20 |(T3)+gI)|/2. >>> |
|000024a0| 64 65 62 75 67 61 2c 67 | 33 31 0d 20 3e 3e 3e 20 |debuga,g|31. >>> |
|000024b0| 64 65 62 75 67 2c 27 47 | 27 0d 3a 63 61 6c 63 68 |debug,'G|'.:calch|
|000024c0| 20 63 6c 63 0d 20 6c 64 | 78 20 74 36 0d 20 6c 64 | clc. ld|x t6. ld|
|000024d0| 61 20 63 6f 73 2c 78 0d | 20 6c 64 78 20 74 37 0d |a cos,x.| ldx t7.|
|000024e0| 20 61 64 63 20 63 6f 73 | 2c 78 0d 20 73 65 63 0d | adc cos|,x. sec.|
|000024f0| 20 6c 64 78 20 74 35 0d | 20 73 62 63 20 63 6f 73 | ldx t5.| sbc cos|
|00002500| 2c 78 0d 20 73 65 63 0d | 20 6c 64 78 20 74 38 0d |,x. sec.| ldx t8.|
|00002510| 20 73 62 63 20 63 6f 73 | 2c 78 20 3b 68 49 3d 28 | sbc cos|,x ;hI=(|
|00002520| 43 4f 53 28 54 36 29 2b | 43 4f 53 28 54 37 29 2d |COS(T6)+|COS(T7)-|
|00002530| 43 4f 53 28 54 35 29 2d | 43 4f 53 28 54 38 29 29 |COS(T5)-|COS(T8))|
|00002540| 2f 32 0d 20 3e 3e 3e 20 | 64 69 76 32 0d 20 63 6c |/2. >>> |div2. cl|
|00002550| 63 0d 20 6c 64 78 20 74 | 33 0d 20 61 64 63 20 73 |c. ldx t|3. adc s|
|00002560| 69 6e 2c 78 0d 20 63 6c | 63 0d 20 6c 64 78 20 74 |in,x. cl|c. ldx t|
|00002570| 34 0d 20 61 64 63 20 73 | 69 6e 2c 78 0d 20 73 74 |4. adc s|in,x. st|
|00002580| 61 20 68 33 32 20 3b 68 | 3d 28 53 49 4e 28 54 33 |a h32 ;h|=(SIN(T3|
|00002590| 29 2b 53 49 4e 28 54 34 | 29 2b 68 49 29 2f 32 0d |)+SIN(T4|)+hI)/2.|
|000025a0| 3a 77 68 65 77 20 63 6c | 63 0d 20 6c 64 78 20 74 |:whew cl|c. ldx t|
|000025b0| 39 0d 20 6c 64 61 20 63 | 6f 73 2c 78 0d 20 6c 64 |9. lda c|os,x. ld|
|000025c0| 78 20 74 31 30 0d 20 61 | 64 63 20 63 6f 73 2c 78 |x t10. a|dc cos,x|
|000025d0| 0d 20 73 74 61 20 69 33 | 33 20 3b 69 3d 28 43 4f |. sta i3|3 ;i=(CO|
|000025e0| 53 28 54 39 29 2b 43 4f | 53 28 54 31 30 29 29 2f |S(T9)+CO|S(T10))/|
|000025f0| 32 0d 0d 2a 2a a0 69 54 | 27 53 a0 41 4c 4c a0 44 |2..**.iT|'S.ALL.D|
|00002600| 4f 57 4e 48 49 4c 4c a0 | 46 52 4f 4d a0 48 45 52 |OWNHILL.|FROM.HER|
|00002610| 45 2e 0d 20 6a 6d 70 20 | 64 6f 77 6e 68 69 6c 6c |E.. jmp |downhill|
|00002620| 0d 20 74 78 74 20 27 67 | 45 45 a0 62 52 41 49 4e |. txt 'g|EE.bRAIN|
|00002630| 2c a0 57 48 41 54 a0 44 | 4f a0 59 4f 55 a0 57 41 |,.WHAT.D|O.YOU.WA|
|00002640| 4e 54 a0 54 4f a0 44 4f | a0 27 0d 20 74 78 74 20 |NT.TO.DO|.'. txt |
|00002650| 27 54 4f 4e 49 47 48 54 | 3f 27 0d 0d 2a 2a a0 72 |'TONIGHT|?'..**.r|
|00002660| 4f 54 41 54 45 2c a0 50 | 52 4f 4a 45 43 54 2c a0 |OTATE,.P|ROJECT,.|
|00002670| 41 4e 44 a0 53 54 4f 52 | 45 a0 54 48 45 a0 50 4f |AND.STOR|E.THE.PO|
|00002680| 49 4e 54 53 0d 64 6f 77 | 6e 68 69 6c 6c 0d 0d 2a |INTS.dow|nhill..*|
|00002690| a0 61 a0 4e 45 41 54 a0 | 4d 41 43 52 4f 0d 6e 65 |.a.NEAT.|MACRO.ne|
|000026a0| 67 20 6d 61 63 20 20 3b | 63 48 41 4e 47 45 a0 54 |g mac  ;|cHANGE.T|
|000026b0| 48 45 a0 53 49 47 4e a0 | 4f 46 a0 41 a0 54 57 4f |HE.SIGN.|OF.A.TWO|
|000026c0| 27 53 a0 43 4f 4d 50 4c | 45 4d 45 4e 54 0d 20 63 |'S.COMPL|EMENT. c|
|000026d0| 6c 63 0d 20 6c 64 61 20 | 5d 31 20 3b 4e 55 4d 42 |lc. lda |]1 ;NUMB|
|000026e0| 45 52 2e 0d 20 65 6f 72 | 20 23 24 66 66 0d 20 61 |ER.. eor| #$ff. a|
|000026f0| 64 63 20 23 24 30 31 0d | 20 3c 3c 3c 0d 0d 2a 2d |dc #$01.| <<<..*-|
|00002700| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002710| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 2a |--------|------.*|
|00002720| a0 74 48 45 53 45 a0 4d | 41 43 52 4f 53 a0 52 45 |.tHESE.M|ACROS.RE|
|00002730| 50 4c 41 43 45 a0 54 48 | 45 a0 50 52 45 56 49 4f |PLACE.TH|E.PREVIO|
|00002740| 55 53 a0 50 52 4f 4a 45 | 43 54 49 4f 4e 0d 2a a0 |US.PROJE|CTION.*.|
|00002750| 53 55 42 52 4f 55 54 49 | 4e 45 2e 0d 0d 73 6d 75 |SUBROUTI|NE...smu|
|00002760| 6c 74 20 6d 61 63 20 3b | 6d 55 4c 54 49 50 4c 59 |lt mac ;|mULTIPLY|
|00002770| a0 54 57 4f a0 53 49 47 | 4e 45 44 a0 38 2d 42 49 |.TWO.SIG|NED.8-BI|
|00002780| 54 0d 20 20 20 3b 4e 55 | 4d 42 45 52 53 3a a0 61 |T.   ;NU|MBERS:.a|
|00002790| 2a 79 2f 36 34 a0 2d 3e | a0 61 0d 20 73 74 61 20 |*y/64.->|.a. sta |
|000027a0| 7a 31 0d 20 63 6c 63 0d | 20 65 6f 72 20 23 24 66 |z1. clc.| eor #$f|
|000027b0| 66 0d 20 61 64 63 20 23 | 24 30 31 0d 20 73 74 61 |f. adc #|$01. sta|
|000027c0| 20 7a 32 0d 20 6c 64 61 | 20 28 7a 31 29 2c 79 0d | z2. lda| (z1),y.|
|000027d0| 20 73 65 63 0d 20 73 62 | 63 20 28 7a 32 29 2c 79 | sec. sb|c (z2),y|
|000027e0| 0d 20 3c 3c 3c 20 20 3b | 61 4c 4c a0 44 4f 4e 45 |. <<<  ;|aLL.DONE|
|000027f0| a0 3a 29 0d 0d 0d 61 64 | 64 73 75 62 20 6d 61 63 |.:)...ad|dsub mac|
|00002800| 20 20 3b 61 44 44 a0 4f | 52 a0 53 55 42 54 52 41 |  ;aDD.O|R.SUBTRA|
|00002810| 43 54 a0 54 57 4f a0 4e | 55 4d 42 45 52 53 0d 20 |CT.TWO.N|UMBERS. |
|00002820| 20 20 3b 44 45 50 45 4e | 44 49 4e 47 a0 4f 4e a0 |  ;DEPEN|DING.ON.|
|00002830| 46 49 52 53 54 a0 49 4e | 50 55 54 0d 20 69 66 20 |FIRST.IN|PUT. if |
|00002840| 2d 3d 5d 31 20 3b 69 46 | a0 53 55 42 54 52 41 43 |-=]1 ;iF|.SUBTRAC|
|00002850| 54 0d 20 73 65 63 20 20 | 3b 54 48 45 4e a0 55 53 |T. sec  |;THEN.US|
|00002860| 45 a0 54 48 49 53 a0 43 | 4f 44 45 0d 20 73 62 63 |E.THIS.C|ODE. sbc|
|00002870| 20 5d 32 0d 20 65 6c 73 | 65 20 20 3b 4f 54 48 45 | ]2. els|e  ;OTHE|
|00002880| 52 57 49 53 45 a0 55 53 | 45 a0 54 48 49 53 a0 43 |RWISE.US|E.THIS.C|
|00002890| 4f 44 45 0d 20 63 6c 63 | 0d 20 61 64 63 20 5d 32 |ODE. clc|. adc ]2|
|000028a0| 0d 20 66 69 6e 0d 20 3c | 3c 3c 0d 0d 0d 70 72 6f |. fin. <|<<...pro|
|000028b0| 6a 65 63 74 20 6d 61 63 | 20 20 3b 74 48 45 a0 41 |ject mac|  ;tHE.A|
|000028c0| 43 54 55 41 4c a0 50 52 | 4f 4a 45 43 54 49 4f 4e |CTUAL.PR|OJECTION|
|000028d0| a0 52 4f 55 54 49 4e 45 | 0d 20 20 20 3b 54 57 4f |.ROUTINE|.   ;TWO|
|000028e0| a0 49 4e 50 55 54 53 a0 | 41 52 45 a0 55 53 45 44 |.INPUTS.|ARE.USED|
|000028f0| a0 28 58 2c 59 29 0d 20 | 20 20 3b 43 4f 52 52 45 |.(X,Y). |  ;CORRE|
|00002900| 53 50 4f 4e 44 49 4e 47 | a0 54 4f a0 28 2b 2f 2d |SPONDING|.TO.(+/-|
|00002910| 31 2c 2b 2f 2d 31 29 0d | 20 20 20 3b 74 48 45 a0 |1,+/-1).|   ;tHE.|
|00002920| 54 48 49 52 44 a0 49 4e | 50 55 54 a0 49 53 a0 55 |THIRD.IN|PUT.IS.U|
|00002930| 53 45 44 a0 54 4f 0d 20 | 20 20 3b 44 45 54 45 52 |SED.TO. |  ;DETER|
|00002940| 4d 49 4e 45 a0 49 46 a0 | 54 48 45 a0 52 4f 54 41 |MINE.IF.|THE.ROTA|
|00002950| 54 45 44 0d 20 20 20 3b | 5a 2d 43 4f 4f 52 44 49 |TED.   ;|Z-COORDI|
|00002960| 4e 41 54 45 a0 53 48 4f | 55 4c 44 a0 42 45 0d 20 |NATE.SHO|ULD.BE. |
|00002970| 20 20 3b 53 54 4f 52 45 | 44 2c a0 41 4e 44 a0 49 |  ;STORE|D,.AND.I|
|00002980| 46 a0 53 4f a0 57 48 45 | 52 45 2e 0d 20 20 20 3b |F.SO.WHE|RE..   ;|
|00002990| 74 48 45 a0 43 41 4c 4c | 49 4e 47 a0 52 4f 55 54 |tHE.CALL|ING.ROUT|
|000029a0| 49 4e 45 a0 48 41 4e 44 | 4c 45 53 0d 20 20 20 3b |INE.HAND|LES.   ;|
|000029b0| 43 48 41 4e 47 49 4e 47 | a0 54 48 45 a0 53 49 47 |CHANGING|.THE.SIG|
|000029c0| 4e a0 4f 46 a0 5a 2e 0d | 0d 20 6c 64 61 20 69 33 |N.OF.Z..|. lda i3|
|000029d0| 33 20 3b 63 41 4c 43 55 | 4c 41 54 45 a0 52 4f 54 |3 ;cALCU|LATE.ROT|
|000029e0| 41 54 45 44 a0 5a 3a 0d | 20 3e 3e 3e 20 61 64 64 |ATED.Z:.| >>> add|
|000029f0| 73 75 62 2c 5d 31 3b 67 | 33 31 20 3b 61 44 44 a0 |sub,]1;g|31 ;aDD.|
|00002a00| 4f 52 a0 53 55 42 54 52 | 41 43 54 a0 58 0d 20 3e |OR.SUBTR|ACT.X. >|
|00002a10| 3e 3e 20 61 64 64 73 75 | 62 2c 5d 32 3b 68 33 32 |>> addsu|b,]2;h32|
|00002a20| 20 3b 61 44 44 a0 4f 52 | a0 53 55 42 54 52 41 43 | ;aDD.OR|.SUBTRAC|
|00002a30| 54 a0 59 0d 20 69 66 20 | 70 2c 5d 33 20 3b 64 4f |T.Y. if |p,]3 ;dO|
|00002a40| a0 57 45 a0 4e 45 45 44 | a0 54 4f a0 53 54 4f 52 |.WE.NEED|.TO.STOR|
|00002a50| 45 a0 54 48 45 a0 50 4f | 49 4e 54 3f 0d 20 73 74 |E.THE.PO|INT?. st|
|00002a60| 61 20 5d 33 20 3b 74 48 | 45 4e a0 44 4f a0 53 4f |a ]3 ;tH|EN.DO.SO|
|00002a70| 21 0d 20 66 69 6e 0d 2a | a0 65 6f 72 a0 23 31 32 |!. fin.*|.eor.#12|
|00002a80| 38 a0 3b 77 45 a0 41 52 | 45 a0 47 4f 49 4e 47 a0 |8.;wE.AR|E.GOING.|
|00002a90| 54 4f a0 54 41 4b 45 a0 | 31 32 38 2b 5a 0d 20 74 |TO.TAKE.|128+Z. t|
|00002aa0| 61 78 20 20 3b 6e 4f 57 | a0 49 54 a0 49 53 a0 52 |ax  ;nOW|.IT.IS.R|
|00002ab0| 45 41 44 59 a0 46 4f 52 | a0 49 4e 44 45 58 49 4e |EADY.FOR|.INDEXIN|
|00002ac0| 47 0d 20 6c 64 61 20 7a | 64 69 76 2c 78 20 3b 74 |G. lda z|div,x ;t|
|00002ad0| 41 42 4c 45 a0 4f 46 a0 | 44 2f 28 5a 2b 5a 30 29 |ABLE.OF.|D/(Z+Z0)|
|00002ae0| 0d 20 74 61 79 20 20 3b | 79 a0 4e 4f 57 a0 43 4f |. tay  ;|y.NOW.CO|
|00002af0| 4e 54 41 49 4e 53 a0 50 | 52 4f 4a 45 43 54 49 4f |NTAINS.P|ROJECTIO|
|00002b00| 4e 0d 0d 20 6c 64 61 20 | 63 31 33 20 3b 6e 4f 57 |N.. lda |c13 ;nOW|
|00002b10| a0 43 41 4c 43 55 4c 41 | 54 45 a0 52 4f 54 41 54 |.CALCULA|TE.ROTAT|
|00002b20| 45 44 a0 58 0d 20 3e 3e | 3e 20 61 64 64 73 75 62 |ED.X. >>|> addsub|
|00002b30| 2c 5d 31 3b 61 31 31 0d | 20 3e 3e 3e 20 61 64 64 |,]1;a11.| >>> add|
|00002b40| 73 75 62 2c 5d 32 3b 62 | 31 32 0d 20 3e 3e 3e 20 |sub,]2;b|12. >>> |
|00002b50| 73 6d 75 6c 74 20 3b 73 | 49 47 4e 45 44 a0 4d 55 |smult ;s|IGNED.MU|
|00002b60| 4c 54 49 50 4c 59 a0 61 | 2a 79 2f 36 34 2d 3e 61 |LTIPLY.a|*y/64->a|
|00002b70| 0d 20 63 6c 63 0d 20 61 | 64 63 20 23 36 34 20 3b |. clc. a|dc #64 ;|
|00002b80| 6f 46 46 53 45 54 a0 54 | 48 45 a0 43 4f 4f 52 44 |oFFSET.T|HE.COORD|
|00002b90| 49 4e 41 54 45 0d 20 74 | 61 78 20 20 3b 6e 4f 57 |INATE. t|ax  ;nOW|
|00002ba0| a0 78 a0 49 53 a0 52 4f | 54 41 54 45 44 a0 58 21 |.x.IS.RO|TATED.X!|
|00002bb0| 0d 0d 20 6c 64 61 20 66 | 32 33 20 3b 6e 4f 57 a0 |.. lda f|23 ;nOW.|
|00002bc0| 49 54 27 53 a0 59 27 53 | a0 54 55 52 4e 0d 20 3e |IT'S.Y'S|.TURN. >|
|00002bd0| 3e 3e 20 61 64 64 73 75 | 62 2c 5d 31 3b 64 32 31 |>> addsu|b,]1;d21|
|00002be0| 0d 20 3e 3e 3e 20 61 64 | 64 73 75 62 2c 5d 32 3b |. >>> ad|dsub,]2;|
|00002bf0| 65 32 32 0d 20 3e 3e 3e | 20 73 6d 75 6c 74 0d 20 |e22. >>>| smult. |
|00002c00| 63 6c 63 0d 20 61 64 63 | 20 23 36 34 20 3b 6f 46 |clc. adc| #64 ;oF|
|00002c10| 46 53 45 54 0d 20 63 6d | 70 20 79 6d 69 6e 20 3b |FSET. cm|p ymin ;|
|00002c20| 66 49 47 55 52 45 a0 4f | 55 54 a0 49 46 a0 49 54 |fIGURE.O|UT.IF.IT|
|00002c30| a0 49 53 a0 41 0d 20 62 | 63 73 20 6e 6f 74 6d 69 |.IS.A. b|cs notmi|
|00002c40| 6e 20 3b 4d 49 4e a0 4f | 52 a0 4d 41 58 a0 56 41 |n ;MIN.O|R.MAX.VA|
|00002c50| 4c 55 45 a0 46 4f 52 a0 | 59 0d 20 73 74 61 20 79 |LUE.FOR.|Y. sta y|
|00002c60| 6d 69 6e 0d 20 62 63 63 | 20 6e 6f 74 6d 61 78 20 |min. bcc| notmax |
|00002c70| 3b 74 48 49 53 a0 49 53 | a0 55 53 45 44 a0 49 4e |;tHIS.IS|.USED.IN|
|00002c80| a0 43 41 4c 43 55 4c 41 | 54 49 4e 47 0d 6e 6f 74 |.CALCULA|TING.not|
|00002c90| 6d 69 6e 20 63 6d 70 20 | 79 6d 61 78 20 3b 54 48 |min cmp |ymax ;TH|
|00002ca0| 45 a0 46 49 4c 4c 45 44 | a0 46 41 43 45 53 0d 20 |E.FILLED|.FACES. |
|00002cb0| 62 63 63 20 6e 6f 74 6d | 61 78 0d 20 73 74 61 20 |bcc notm|ax. sta |
|00002cc0| 79 6d 61 78 0d 6e 6f 74 | 6d 61 78 20 74 61 79 20 |ymax.not|max tay |
|00002cd0| 20 3b 6e 4f 54 a0 52 45 | 41 4c 4c 59 a0 4e 45 43 | ;nOT.RE|ALLY.NEC|
|00002ce0| 45 53 53 41 52 59 0d 0d | 20 3c 3c 3c 20 20 3b 61 |ESSARY..| <<<  ;a|
|00002cf0| 4c 4c a0 44 4f 4e 45 0d | 0d 0d 20 6c 64 61 20 23 |LL.DONE.|.. lda #|
|00002d00| 36 34 20 3b 72 45 53 45 | 54 a0 79 4d 49 4e a0 41 |64 ;rESE|T.yMIN.A|
|00002d10| 4e 44 a0 79 4d 41 58 0d | 20 73 74 61 20 79 6d 69 |ND.yMAX.| sta ymi|
|00002d20| 6e 0d 20 73 74 61 20 79 | 6d 61 78 0d 0d 2a a0 70 |n. sta y|max..*.p|
|00002d30| 31 3d 5b 31 a0 31 a0 31 | 5d 0d 20 3e 3e 3e 20 70 |1=[1.1.1|]. >>> p|
|00002d40| 72 6f 6a 65 63 74 2c 31 | 3b 31 3b 70 31 7a 20 3b |roject,1|;1;p1z ;|
|00002d50| 72 4f 54 41 54 45 44 a0 | 5a a0 53 54 4f 52 45 44 |rOTATED.|Z.STORED|
|00002d60| a0 49 4e a0 70 31 7a 0d | 20 73 74 78 20 70 31 78 |.IN.p1z.| stx p1x|
|00002d70| 0d 20 73 74 79 20 70 31 | 79 0d 2a a0 70 32 3d 5b |. sty p1|y.*.p2=[|
|00002d80| 31 a0 2d 31 a0 31 5d 0d | 20 3e 3e 3e 20 70 72 6f |1.-1.1].| >>> pro|
|00002d90| 6a 65 63 74 2c 31 3b 2d | 31 3b 70 32 7a 0d 20 73 |ject,1;-|1;p2z. s|
|00002da0| 74 78 20 70 32 78 0d 20 | 73 74 79 20 70 32 79 0d |tx p2x. |sty p2y.|
|00002db0| 2a a0 70 33 3d 5b 2d 31 | a0 2d 31 a0 31 5d 0d 20 |*.p3=[-1|.-1.1]. |
|00002dc0| 3e 3e 3e 20 70 72 6f 6a | 65 63 74 2c 2d 31 3b 2d |>>> proj|ect,-1;-|
|00002dd0| 31 3b 6e 6f 70 65 20 3b | 64 4f 4e 27 54 a0 53 54 |1;nope ;|dON'T.ST|
|00002de0| 4f 52 45 a0 5a 2d 56 41 | 4c 55 45 0d 20 73 74 78 |ORE.Z-VA|LUE. stx|
|00002df0| 20 70 33 78 0d 20 73 74 | 79 20 70 33 79 0d 2a a0 | p3x. st|y p3y.*.|
|00002e00| 70 34 3d 5b 2d 31 a0 31 | a0 31 5d 0d 20 3e 3e 3e |p4=[-1.1|.1]. >>>|
|00002e10| 20 70 72 6f 6a 65 63 74 | 2c 2d 31 3b 31 3b 70 34 | project|,-1;1;p4|
|00002e20| 7a 0d 20 73 74 78 20 70 | 34 78 0d 20 73 74 79 20 |z. stx p|4x. sty |
|00002e30| 70 34 79 0d 2a a0 70 38 | 3d 5b 2d 31 a0 31 a0 2d |p4y.*.p8|=[-1.1.-|
|00002e40| 31 5d 0d 20 3e 3e 3e 20 | 6e 65 67 2c 63 31 33 0d |1]. >>> |neg,c13.|
|00002e50| 20 73 74 61 20 63 31 33 | 0d 20 3e 3e 3e 20 6e 65 | sta c13|. >>> ne|
|00002e60| 67 2c 66 32 33 0d 20 73 | 74 61 20 66 32 33 0d 20 |g,f23. s|ta f23. |
|00002e70| 3e 3e 3e 20 6e 65 67 2c | 69 33 33 0d 20 73 74 61 |>>> neg,|i33. sta|
|00002e80| 20 69 33 33 0d 20 3e 3e | 3e 20 70 72 6f 6a 65 63 | i33. >>|> projec|
|00002e90| 74 2c 2d 31 3b 31 3b 6e | 6f 70 65 0d 20 73 74 78 |t,-1;1;n|ope. stx|
|00002ea0| 20 70 38 78 0d 20 73 74 | 79 20 70 38 79 0d 2a a0 | p8x. st|y p8y.*.|
|00002eb0| 70 37 3d 5b 2d 31 a0 2d | 31 a0 2d 31 5d 0d 20 3e |p7=[-1.-|1.-1]. >|
|00002ec0| 3e 3e 20 70 72 6f 6a 65 | 63 74 2c 2d 31 3b 2d 31 |>> proje|ct,-1;-1|
|00002ed0| 3b 6e 6f 70 65 0d 20 73 | 74 78 20 70 37 78 0d 20 |;nope. s|tx p7x. |
|00002ee0| 73 74 79 20 70 37 79 0d | 2a a0 70 36 3d 5b 31 a0 |sty p7y.|*.p6=[1.|
|00002ef0| 2d 31 a0 2d 31 5d 0d 20 | 3e 3e 3e 20 70 72 6f 6a |-1.-1]. |>>> proj|
|00002f00| 65 63 74 2c 31 3b 2d 31 | 3b 6e 6f 70 65 0d 20 73 |ect,1;-1|;nope. s|
|00002f10| 74 78 20 70 36 78 0d 20 | 73 74 79 20 70 36 79 0d |tx p6x. |sty p6y.|
|00002f20| 2a a0 70 35 3d 5b 31 a0 | 31 a0 2d 31 5d 0d 20 3e |*.p5=[1.|1.-1]. >|
|00002f30| 3e 3e 20 70 72 6f 6a 65 | 63 74 2c 31 3b 31 3b 70 |>> proje|ct,1;1;p|
|00002f40| 35 7a 0d 20 73 74 78 20 | 70 35 78 0d 20 73 74 79 |5z. stx |p5x. sty|
|00002f50| 20 70 35 79 0d 0d 2a a0 | 61 a0 4c 49 54 54 4c 45 | p5y..*.|a.LITTLE|
|00002f60| a0 4d 41 43 52 4f 0d 0d | 73 65 74 62 75 66 20 6d |.MACRO..|setbuf m|
|00002f70| 61 63 20 20 3b 70 55 54 | a0 42 55 46 46 45 52 53 |ac  ;pUT|.BUFFERS|
|00002f80| a0 57 48 45 52 45 a0 54 | 48 45 59 a0 43 41 4e a0 |.WHERE.T|HEY.CAN.|
|00002f90| 42 45 a0 48 55 52 54 0d | 20 6c 64 61 20 23 30 30 |BE.HURT.| lda #00|
|00002fa0| 0d 20 73 74 61 20 62 75 | 66 66 65 72 0d 20 6c 64 |. sta bu|ffer. ld|
|00002fb0| 61 20 7a 74 65 6d 70 20 | 3b 5a 54 45 4d 50 a0 43 |a ztemp |;ZTEMP.C|
|00002fc0| 4f 4e 54 41 49 4e 53 a0 | 54 48 45 a0 48 49 47 48 |ONTAINS.|THE.HIGH|
|00002fd0| a0 42 59 54 45 a0 48 45 | 52 45 0d 20 73 74 61 20 |.BYTE.HE|RE. sta |
|00002fe0| 62 75 66 66 65 72 2b 31 | 0d 20 3c 3c 3c 0d 0d 2a |buffer+1|. <<<..*|
|00002ff0| 2a 2a 2a a0 63 4c 45 41 | 52 a0 42 55 46 46 45 52 |***.cLEA|R.BUFFER|
|00003000| 0d 0d 2a a0 3e 3e 3e a0 | 73 65 74 62 75 66 0d 2a |..*.>>>.|setbuf.*|
|00003010| 63 6c 72 62 75 66 a0 6c | 64 61 a0 23 24 30 30 a0 |clrbuf.l|da.#$00.|
|00003020| 3b 70 52 45 54 54 59 a0 | 53 54 52 41 49 47 48 54 |;pRETTY.|STRAIGHT|
|00003030| 46 4f 52 57 41 52 44 2c | 0d 2a a0 6c 64 78 a0 23 |FORWARD,|.*.ldx.#|
|00003040| 24 30 38 a0 3b 69 a0 54 | 48 49 4e 4b 0d 2a a0 6c |$08.;i.T|HINK.*.l|
|00003050| 64 79 a0 23 24 30 30 0d | 2a 3a 6c 6f 6f 70 a0 73 |dy.#$00.|*:loop.s|
|00003060| 74 61 a0 28 62 75 66 66 | 65 72 29 2c 79 0d 2a a0 |ta.(buff|er),y.*.|
|00003070| 69 6e 79 0d 2a a0 62 6e | 65 a0 3a 6c 6f 6f 70 0d |iny.*.bn|e.:loop.|
|00003080| 2a a0 69 6e 63 a0 62 75 | 66 66 65 72 2b 31 0d 2a |*.inc.bu|ffer+1.*|
|00003090| a0 64 65 78 0d 2a a0 62 | 6e 65 a0 3a 6c 6f 6f 70 |.dex.*.b|ne.:loop|
|000030a0| 0d 0d 2a a0 74 48 49 53 | a0 49 53 a0 54 48 45 a0 |..*.tHIS|.IS.THE.|
|000030b0| 4e 45 57 a0 41 4e 44 a0 | 49 4d 50 52 4f 56 45 44 |NEW.AND.|IMPROVED|
|000030c0| a0 42 55 46 46 45 52 a0 | 43 4c 45 41 52 0d 2a a0 |.BUFFER.|CLEAR.*.|
|000030d0| 52 4f 55 54 49 4e 45 a0 | 46 4f 52 a0 46 49 4c 4c |ROUTINE.|FOR.FILL|
|000030e0| 45 44 a0 46 41 43 45 53 | 0d 0d 20 3e 3e 3e 20 73 |ED.FACES|.. >>> s|
|000030f0| 65 74 62 75 66 0d 20 73 | 74 61 20 74 65 6d 70 31 |etbuf. s|ta temp1|
|00003100| 2b 31 20 3b 42 55 46 46 | 45 52 32 a0 57 49 4c 4c |+1 ;BUFF|ER2.WILL|
|00003110| a0 50 4f 49 4e 54 a0 54 | 4f 0d 20 6c 64 61 20 23 |.POINT.T|O. lda #|
|00003120| 24 38 30 20 3b 42 55 46 | 46 45 52 2b 31 32 38 0d |$80 ;BUF|FER+128.|
|00003130| 20 73 74 61 20 74 65 6d | 70 31 20 3b 6d 41 4b 45 | sta tem|p1 ;mAKE|
|00003140| 53 a0 4c 49 46 45 a0 46 | 41 53 54 45 52 a0 46 4f |S.LIFE.F|ASTER.FO|
|00003150| 52 a0 55 53 0d 66 69 6c | 63 6c 72 20 6c 64 61 20 |R.US.fil|clr lda |
|00003160| 23 30 30 0d 20 6c 64 78 | 20 23 24 30 38 20 3b 77 |#00. ldx| #$08 ;w|
|00003170| 45 27 4c 4c a0 44 4f a0 | 49 54 a0 54 57 4f a0 41 |E'LL.DO.|IT.TWO.A|
|00003180| 54 a0 41 a0 54 49 4d 45 | 0d 20 6c 64 79 20 23 24 |T.A.TIME|. ldy #$|
|00003190| 30 30 0d 3a 6c 6f 6f 70 | 31 20 73 74 61 20 28 62 |00.:loop|1 sta (b|
|000031a0| 75 66 66 65 72 29 2c 79 | 0d 20 73 74 61 20 28 74 |uffer),y|. sta (t|
|000031b0| 65 6d 70 31 29 2c 79 0d | 20 69 6e 79 0d 20 63 70 |emp1),y.| iny. cp|
|000031c0| 79 20 79 6d 69 6e 0d 20 | 62 6e 65 20 3a 6c 6f 6f |y ymin. |bne :loo|
|000031d0| 70 31 0d 20 6c 64 61 20 | 23 24 66 66 20 3b 6e 4f |p1. lda |#$ff ;nO|
|000031e0| 57 a0 4c 4f 41 44 a0 57 | 49 54 48 a0 46 49 4c 4c |W.LOAD.W|ITH.FILL|
|000031f0| 53 0d 3a 6c 6f 6f 70 32 | 20 73 74 61 20 28 62 75 |S.:loop2| sta (bu|
|00003200| 66 66 65 72 29 2c 79 0d | 20 73 74 61 20 28 74 65 |ffer),y.| sta (te|
|00003210| 6d 70 31 29 2c 79 0d 20 | 69 6e 79 0d 20 63 70 79 |mp1),y. |iny. cpy|
|00003220| 20 79 6d 61 78 0d 20 62 | 63 63 20 3a 6c 6f 6f 70 | ymax. b|cc :loop|
|00003230| 32 0d 20 6c 64 61 20 23 | 24 30 30 20 3b 62 4c 41 |2. lda #|$00 ;bLA|
|00003240| 43 4b a0 4f 55 54 a0 54 | 48 45 a0 52 45 53 54 0d |CK.OUT.T|HE.REST.|
|00003250| 3a 6c 6f 6f 70 33 20 73 | 74 61 20 28 62 75 66 66 |:loop3 s|ta (buff|
|00003260| 65 72 29 2c 79 0d 20 73 | 74 61 20 28 74 65 6d 70 |er),y. s|ta (temp|
|00003270| 31 29 2c 79 0d 20 69 6e | 79 0d 20 62 70 6c 20 3a |1),y. in|y. bpl :|
|00003280| 6c 6f 6f 70 33 20 3b 75 | 4e 54 49 4c a0 79 3d 31 |loop3 ;u|NTIL.y=1|
|00003290| 32 38 0d 20 6c 64 79 20 | 23 30 30 0d 20 69 6e 63 |28. ldy |#00. inc|
|000032a0| 20 62 75 66 66 65 72 2b | 31 0d 20 69 6e 63 20 74 | buffer+|1. inc t|
|000032b0| 65 6d 70 31 2b 31 0d 20 | 64 65 78 0d 20 62 6e 65 |emp1+1. |dex. bne|
|000032c0| 20 3a 6c 6f 6f 70 31 20 | 3b 67 4f a0 41 4c 4c a0 | :loop1 |;gO.ALL.|
|000032d0| 54 48 45 a0 57 41 59 a0 | 41 52 4f 55 4e 44 0d 0d |THE.WAY.|AROUND..|
|000032e0| 2a 2a 2a 2a a0 6e 4f 57 | a0 44 52 41 57 a0 54 48 |****.nOW|.DRAW.TH|
|000032f0| 45 a0 4c 49 4e 45 53 2e | 0d 2a 2a 2a 2a a0 62 55 |E.LINES.|.****.bU|
|00003300| 54 a0 46 49 52 53 54 a0 | 43 48 45 43 4b a0 46 4f |T.FIRST.|CHECK.FO|
|00003310| 52 a0 48 49 44 44 45 4e | a0 46 41 43 45 53 21 0d |R.HIDDEN|.FACES!.|
|00003320| 2a 2a 2a 2a a0 72 45 4d | 45 4d 42 45 52 3a a0 70 |****.rEM|EMBER:.p|
|00003330| 31 3d 5b 31 a0 31 a0 31 | 5d a0 70 32 3d 5b 31 a0 |1=[1.1.1|].p2=[1.|
|00003340| 2d 31 a0 31 5d a0 70 33 | 3d 5b 2d 31 a0 2d 31 a0 |-1.1].p3|=[-1.-1.|
|00003350| 31 5d 0d 2a 2a 2a 2a a0 | 70 34 3d 5b 2d 31 a0 31 |1].****.|p4=[-1.1|
|00003360| a0 31 5d a0 70 35 3d 5b | 31 a0 31 a0 2d 31 5d a0 |.1].p5=[|1.1.-1].|
|00003370| 70 36 3d 5b 31 a0 2d 31 | a0 2d 31 5d a0 70 37 3d |p6=[1.-1|.-1].p7=|
|00003380| 5b 2d 31 a0 2d 31 a0 2d | 31 5d 0d 2a 2a 2a 2a a0 |[-1.-1.-|1].****.|
|00003390| 70 38 3d 5b 2d 31 a0 31 | a0 2d 31 5d 0d 0d 6c 69 |p8=[-1.1|.-1]..li|
|000033a0| 6e 65 73 20 6c 64 61 20 | 23 30 30 0d 20 73 74 61 |nes lda |#00. sta|
|000033b0| 20 66 61 63 65 73 20 3b | 68 49 44 44 45 4e a0 46 | faces ;|hIDDEN.F|
|000033c0| 41 43 45 a0 43 4f 55 4e | 54 45 52 0d 3a 66 61 63 |ACE.COUN|TER.:fac|
|000033d0| 65 31 20 6c 64 61 20 6b | 0d 20 73 65 63 0d 20 73 |e1 lda k|. sec. s|
|000033e0| 62 63 20 70 31 7a 0d 20 | 62 76 73 20 3a 66 61 63 |bc p1z. |bvs :fac|
|000033f0| 65 36 20 3b 6f 56 45 52 | 46 4c 4f 57 a0 41 4c 52 |e6 ;oVER|FLOW.ALR|
|00003400| 45 41 44 59 3f 0d 20 63 | 6c 63 0d 20 61 64 63 20 |EADY?. c|lc. adc |
|00003410| 70 35 7a 20 3b 69 53 a0 | 4b 2d 56 31 5a a0 3c a0 |p5z ;iS.|K-V1Z.<.|
|00003420| 30 3f 0d 20 3b 69 46 a0 | 4e 4f 54 2c a0 46 41 43 |0?. ;iF.|NOT,.FAC|
|00003430| 45 a0 49 53 a0 49 4e 56 | 49 53 49 42 4c 45 0d 20 |E.IS.INV|ISIBLE. |
|00003440| 62 76 63 20 3a 64 72 61 | 77 31 20 3b 62 55 54 a0 |bvc :dra|w1 ;bUT.|
|00003450| 57 45 a0 4d 49 47 48 54 | a0 48 41 56 45 a0 4f 56 |WE.MIGHT|.HAVE.OV|
|00003460| 45 52 46 4c 4f 57 0d 20 | 6c 64 61 20 70 35 7a 20 |ERFLOW. |lda p5z |
|00003470| 3b 77 41 53 a0 4f 56 45 | 52 46 4c 4f 57 a0 50 4f |;wAS.OVE|RFLOW.PO|
|00003480| 53 a0 4f 52 a0 4e 45 47 | 3f 0d 3a 64 72 61 77 31 |S.OR.NEG|?.:draw1|
|00003490| 20 62 70 6c 20 3a 66 61 | 63 65 36 20 3b 69 46 a0 | bpl :fa|ce6 ;iF.|
|000034a0| 50 4f 53 a0 54 48 45 4e | a0 4b 2d 56 31 5a a0 3e |POS.THEN|.K-V1Z.>|
|000034b0| a0 30 0d 0d 20 6c 64 61 | 20 23 24 30 31 20 3b 6f |.0.. lda| #$01 ;o|
|000034c0| 54 48 45 52 57 49 53 45 | 2c a0 44 52 41 57 a0 54 |THERWISE|,.DRAW.T|
|000034d0| 48 45 0d 20 73 74 61 20 | 66 61 63 65 73 20 3b 46 |HE. sta |faces ;F|
|000034e0| 41 43 45 21 0d 0d 20 6c | 64 61 20 70 31 78 0d 20 |ACE!.. l|da p1x. |
|000034f0| 73 74 61 20 74 78 31 0d | 20 6c 64 61 20 70 31 79 |sta tx1.| lda p1y|
|00003500| 0d 20 73 74 61 20 74 79 | 31 0d 20 6c 64 61 20 70 |. sta ty|1. lda p|
|00003510| 32 78 0d 20 73 74 61 20 | 74 78 32 0d 20 6c 64 61 |2x. sta |tx2. lda|
|00003520| 20 70 32 79 0d 20 73 74 | 61 20 74 79 32 0d 20 6a | p2y. st|a ty2. j|
|00003530| 73 72 20 64 72 61 77 20 | 3b 70 31 2d 70 32 0d 0d |sr draw |;p1-p2..|
|00003540| 20 6c 64 61 20 70 33 78 | 0d 20 73 74 61 20 74 78 | lda p3x|. sta tx|
|00003550| 31 0d 20 6c 64 61 20 70 | 33 79 0d 20 73 74 61 20 |1. lda p|3y. sta |
|00003560| 74 79 31 0d 20 6a 73 72 | 20 64 72 61 77 20 3b 70 |ty1. jsr| draw ;p|
|00003570| 32 2d 70 33 0d 0d 20 6c | 64 61 20 70 34 78 0d 20 |2-p3.. l|da p4x. |
|00003580| 73 74 61 20 74 78 32 0d | 20 6c 64 61 20 70 34 79 |sta tx2.| lda p4y|
|00003590| 0d 20 73 74 61 20 74 79 | 32 0d 20 6a 73 72 20 64 |. sta ty|2. jsr d|
|000035a0| 72 61 77 20 3b 70 33 2d | 70 34 0d 0d 20 6c 64 61 |raw ;p3-|p4.. lda|
|000035b0| 20 70 31 78 0d 20 73 74 | 61 20 74 78 31 0d 20 6c | p1x. st|a tx1. l|
|000035c0| 64 61 20 70 31 79 0d 20 | 73 74 61 20 74 79 31 0d |da p1y. |sta ty1.|
|000035d0| 20 6a 73 72 20 64 72 61 | 77 20 3b 70 34 2d 70 31 | jsr dra|w ;p4-p1|
|000035e0| a0 a0 66 41 43 45 a0 31 | a0 44 4f 4e 45 2e 0d 20 |..fACE.1|.DONE.. |
|000035f0| 6a 6d 70 20 3a 66 61 63 | 65 32 20 3b 69 46 a0 4f |jmp :fac|e2 ;iF.O|
|00003600| 4e 45 a0 49 53 a0 56 49 | 53 49 42 4c 45 2c a0 54 |NE.IS.VI|SIBLE,.T|
|00003610| 48 45 a0 4f 54 48 45 52 | 0d 20 20 20 3b 49 53 4e |HE.OTHER|.   ;ISN|
|00003620| 27 54 2e 0d 3a 66 61 63 | 65 36 20 6c 64 61 20 6b |'T..:fac|e6 lda k|
|00003630| 0d 20 73 65 63 0d 20 73 | 62 63 20 70 35 7a 0d 20 |. sec. s|bc p5z. |
|00003640| 62 76 73 20 3a 66 61 63 | 65 32 0d 20 63 6c 63 0d |bvs :fac|e2. clc.|
|00003650| 20 61 64 63 20 70 31 7a | 20 3b 6e 4f 57 a0 43 48 | adc p1z| ;nOW.CH|
|00003660| 45 43 4b a0 49 46 a0 6b | 2d 56 36 5a a0 3c a0 30 |ECK.IF.k|-V6Z.<.0|
|00003670| 0d 20 62 76 63 20 3a 64 | 72 61 77 36 20 3b 6c 4f |. bvc :d|raw6 ;lO|
|00003680| 56 45 a0 54 48 41 54 a0 | 4f 56 45 52 46 4c 4f 57 |VE.THAT.|OVERFLOW|
|00003690| 0d 20 6c 64 61 20 70 31 | 7a 0d 3a 64 72 61 77 36 |. lda p1|z.:draw6|
|000036a0| 20 62 70 6c 20 3a 66 61 | 63 65 32 20 3b 69 46 a0 | bpl :fa|ce2 ;iF.|
|000036b0| 4e 4f 54 2c a0 47 4f a0 | 4f 4e 0d 0d 20 6c 64 61 |NOT,.GO.|ON.. lda|
|000036c0| 20 23 24 32 30 0d 20 73 | 74 61 20 66 61 63 65 73 | #$20. s|ta faces|
|000036d0| 20 3b 6f 54 48 45 52 57 | 49 53 45 2c a0 44 52 41 | ;oTHERW|ISE,.DRA|
|000036e0| 57 a0 49 54 0d 0d 20 6c | 64 61 20 70 35 78 0d 20 |W.IT.. l|da p5x. |
|000036f0| 73 74 61 20 74 78 32 0d | 20 6c 64 61 20 70 35 79 |sta tx2.| lda p5y|
|00003700| 0d 20 73 74 61 20 74 79 | 32 0d 20 6c 64 61 20 70 |. sta ty|2. lda p|
|00003710| 36 78 0d 20 73 74 61 20 | 74 78 31 0d 20 6c 64 61 |6x. sta |tx1. lda|
|00003720| 20 70 36 79 0d 20 73 74 | 61 20 74 79 31 0d 20 6a | p6y. st|a ty1. j|
|00003730| 73 72 20 64 72 61 77 20 | 3b 70 35 2d 70 36 0d 0d |sr draw |;p5-p6..|
|00003740| 20 6c 64 61 20 70 37 78 | 0d 20 73 74 61 20 74 78 | lda p7x|. sta tx|
|00003750| 32 0d 20 6c 64 61 20 70 | 37 79 0d 20 73 74 61 20 |2. lda p|7y. sta |
|00003760| 74 79 32 0d 20 6a 73 72 | 20 64 72 61 77 20 3b 70 |ty2. jsr| draw ;p|
|00003770| 36 2d 70 37 0d 0d 20 6c | 64 61 20 70 38 78 0d 20 |6-p7.. l|da p8x. |
|00003780| 73 74 61 20 74 78 31 0d | 20 6c 64 61 20 70 38 79 |sta tx1.| lda p8y|
|00003790| 0d 20 73 74 61 20 74 79 | 31 0d 20 6a 73 72 20 64 |. sta ty|1. jsr d|
|000037a0| 72 61 77 20 3b 70 37 2d | 70 38 0d 0d 20 6c 64 61 |raw ;p7-|p8.. lda|
|000037b0| 20 70 35 78 0d 20 73 74 | 61 20 74 78 32 0d 20 6c | p5x. st|a tx2. l|
|000037c0| 64 61 20 70 35 79 0d 20 | 73 74 61 20 74 79 32 0d |da p5y. |sta ty2.|
|000037d0| 20 6a 73 72 20 64 72 61 | 77 20 3b 70 38 2d 70 35 | jsr dra|w ;p8-p5|
|000037e0| 0d 0d 3a 66 61 63 65 32 | 20 6c 64 61 20 6b 0d 20 |..:face2| lda k. |
|000037f0| 73 65 63 0d 20 73 62 63 | 20 70 31 7a 0d 20 62 76 |sec. sbc| p1z. bv|
|00003800| 73 20 3a 66 61 63 65 35 | 0d 20 63 6c 63 0d 20 61 |s :face5|. clc. a|
|00003810| 64 63 20 70 34 7a 20 3b | 6b 2d 56 32 5a a0 3c a0 |dc p4z ;|k-V2Z.<.|
|00003820| 30 3f 0d 20 62 76 63 20 | 3a 64 72 61 77 32 0d 20 |0?. bvc |:draw2. |
|00003830| 6c 64 61 20 70 34 7a 0d | 3a 64 72 61 77 32 20 62 |lda p4z.|:draw2 b|
|00003840| 70 6c 20 3a 66 61 63 65 | 35 0d 20 6c 64 61 20 23 |pl :face|5. lda #|
|00003850| 24 30 32 20 3b 69 46 a0 | 53 4f 2c a0 44 52 41 57 |$02 ;iF.|SO,.DRAW|
|00003860| a0 49 54 21 0d 20 6f 72 | 61 20 66 61 63 65 73 0d |.IT!. or|a faces.|
|00003870| 20 73 74 61 20 66 61 63 | 65 73 0d 0d 20 6c 64 78 | sta fac|es.. ldx|
|00003880| 20 70 31 78 20 3b 77 45 | 27 52 45 a0 44 4f 49 4e | p1x ;wE|'RE.DOIN|
|00003890| 47 a0 54 48 49 53 a0 54 | 48 49 53 a0 57 41 59 0d |G.THIS.T|HIS.WAY.|
|000038a0| 20 73 74 78 20 74 78 31 | 20 3b 54 4f a0 53 41 56 | stx tx1| ;TO.SAV|
|000038b0| 45 a0 41 a0 46 45 57 a0 | 43 59 43 4c 45 53 0d 20 |E.A.FEW.|CYCLES. |
|000038c0| 6c 64 78 20 70 31 79 0d | 20 73 74 78 20 74 79 31 |ldx p1y.| stx ty1|
|000038d0| 0d 0d 20 61 6e 64 20 23 | 24 30 31 20 3b 73 48 41 |.. and #|$01 ;sHA|
|000038e0| 52 45 53 a0 41 4e a0 45 | 44 47 45 a0 57 49 54 48 |RES.AN.E|DGE.WITH|
|000038f0| a0 46 41 43 45 a0 31 0d | 20 62 6e 65 20 3a 66 32 |.FACE.1.| bne :f2|
|00003900| 73 32 20 3b 73 4b 49 50 | a0 54 4f a0 4e 45 58 54 |s2 ;sKIP|.TO.NEXT|
|00003910| a0 45 44 47 45 a0 49 46 | a0 50 52 45 53 45 4e 54 |.EDGE.IF|.PRESENT|
|00003920| 0d 0d 20 6c 64 61 20 70 | 32 78 0d 20 73 74 61 20 |.. lda p|2x. sta |
|00003930| 74 78 32 0d 20 6c 64 61 | 20 70 32 79 0d 20 73 74 |tx2. lda| p2y. st|
|00003940| 61 20 74 79 32 0d 20 6a | 73 72 20 64 72 61 77 20 |a ty2. j|sr draw |
|00003950| 3b 70 31 2d 70 32 0d 0d | 3a 66 32 73 32 20 6c 64 |;p1-p2..|:f2s2 ld|
|00003960| 78 20 70 35 78 0d 20 73 | 74 78 20 74 78 32 0d 20 |x p5x. s|tx tx2. |
|00003970| 6c 64 78 20 70 35 79 0d | 20 73 74 78 20 74 79 32 |ldx p5y.| stx ty2|
|00003980| 0d 20 6a 73 72 20 64 72 | 61 77 20 3b 70 31 2d 70 |. jsr dr|aw ;p1-p|
|00003990| 35 0d 0d 20 6c 64 78 20 | 70 36 78 0d 20 73 74 78 |5.. ldx |p6x. stx|
|000039a0| 20 74 78 31 0d 20 6c 64 | 78 20 70 36 79 0d 20 73 | tx1. ld|x p6y. s|
|000039b0| 74 78 20 74 79 31 0d 0d | 20 6c 64 61 20 66 61 63 |tx ty1..| lda fac|
|000039c0| 65 73 0d 20 61 6e 64 20 | 23 24 32 30 20 3b 61 4c |es. and |#$20 ;aL|
|000039d0| 53 4f a0 53 48 41 52 45 | 53 a0 41 4e a0 45 44 47 |SO.SHARE|S.AN.EDG|
|000039e0| 45 a0 57 49 54 48 a0 36 | 0d 20 62 6e 65 20 3a 66 |E.WITH.6|. bne :f|
|000039f0| 32 73 34 0d 0d 20 6a 73 | 72 20 64 72 61 77 20 3b |2s4.. js|r draw ;|
|00003a00| 70 35 2d 70 36 0d 0d 3a | 66 32 73 34 20 6c 64 61 |p5-p6..:|f2s4 lda|
|00003a10| 20 70 32 78 0d 20 73 74 | 61 20 74 78 32 0d 20 6c | p2x. st|a tx2. l|
|00003a20| 64 61 20 70 32 79 0d 20 | 73 74 61 20 74 79 32 20 |da p2y. |sta ty2 |
|00003a30| 3b 73 55 43 48 a0 49 53 | a0 46 41 43 45 a0 32 0d |;sUCH.IS|.FACE.2.|
|00003a40| 20 6a 73 72 20 64 72 61 | 77 20 3b 70 36 2d 70 32 | jsr dra|w ;p6-p2|
|00003a50| 0d 20 6a 6d 70 20 3a 66 | 61 63 65 33 20 3b 73 4b |. jmp :f|ace3 ;sK|
|00003a60| 49 50 a0 35 0d 0d 3a 66 | 61 63 65 35 20 6c 64 61 |IP.5..:f|ace5 lda|
|00003a70| 20 6b 0d 20 73 65 63 0d | 20 73 62 63 20 70 34 7a | k. sec.| sbc p4z|
|00003a80| 0d 20 62 76 73 20 3a 66 | 61 63 65 33 0d 20 63 6c |. bvs :f|ace3. cl|
|00003a90| 63 0d 20 61 64 63 20 70 | 31 7a 20 3b 73 41 4d 45 |c. adc p|1z ;sAME|
|00003aa0| a0 54 48 49 4e 47 a0 41 | 47 41 49 4e 2e 2e 2e 0d |.THING.A|GAIN....|
|00003ab0| 20 62 76 63 20 3a 64 72 | 61 77 35 0d 20 6c 64 61 | bvc :dr|aw5. lda|
|00003ac0| 20 70 31 7a 0d 3a 64 72 | 61 77 35 20 62 70 6c 20 | p1z.:dr|aw5 bpl |
|00003ad0| 3a 66 61 63 65 33 0d 20 | 6c 64 61 20 23 24 31 30 |:face3. |lda #$10|
|00003ae0| 0d 20 6f 72 61 20 66 61 | 63 65 73 0d 20 73 74 61 |. ora fa|ces. sta|
|00003af0| 20 66 61 63 65 73 0d 0d | 20 6c 64 78 20 70 33 78 | faces..| ldx p3x|
|00003b00| 0d 20 73 74 78 20 74 78 | 31 0d 20 6c 64 78 20 70 |. stx tx|1. ldx p|
|00003b10| 33 79 0d 20 73 74 78 20 | 74 79 31 0d 0d 20 61 6e |3y. stx |ty1.. an|
|00003b20| 64 20 23 24 30 31 20 3b | 73 48 41 52 45 53 a0 57 |d #$01 ;|sHARES.W|
|00003b30| 49 54 48 a0 31 0d 20 62 | 6e 65 20 3a 66 35 73 32 |ITH.1. b|ne :f5s2|
|00003b40| 0d 0d 20 6c 64 61 20 70 | 34 78 0d 20 73 74 61 20 |.. lda p|4x. sta |
|00003b50| 74 78 32 0d 20 6c 64 61 | 20 70 34 79 0d 20 73 74 |tx2. lda| p4y. st|
|00003b60| 61 20 74 79 32 0d 20 6a | 73 72 20 64 72 61 77 20 |a ty2. j|sr draw |
|00003b70| 3b 70 33 2d 70 34 0d 0d | 3a 66 35 73 32 20 6c 64 |;p3-p4..|:f5s2 ld|
|00003b80| 61 20 70 37 78 0d 20 73 | 74 61 20 74 78 32 0d 20 |a p7x. s|ta tx2. |
|00003b90| 6c 64 61 20 70 37 79 0d | 20 73 74 61 20 74 79 32 |lda p7y.| sta ty2|
|00003ba0| 0d 20 6a 73 72 20 64 72 | 61 77 20 3b 70 33 2d 70 |. jsr dr|aw ;p3-p|
|00003bb0| 37 0d 0d 20 6c 64 61 20 | 70 38 78 0d 20 73 74 61 |7.. lda |p8x. sta|
|00003bc0| 20 74 78 31 0d 20 6c 64 | 61 20 70 38 79 0d 20 73 | tx1. ld|a p8y. s|
|00003bd0| 74 61 20 74 79 31 0d 0d | 20 6c 64 61 20 66 61 63 |ta ty1..| lda fac|
|00003be0| 65 73 0d 20 61 6e 64 20 | 23 24 32 30 20 3b 73 48 |es. and |#$20 ;sH|
|00003bf0| 41 52 45 53 a0 57 49 54 | 48 a0 36 0d 20 62 6e 65 |ARES.WIT|H.6. bne|
|00003c00| 20 3a 66 35 73 34 0d 0d | 20 6a 73 72 20 64 72 61 | :f5s4..| jsr dra|
|00003c10| 77 20 3b 70 37 2d 70 38 | 0d 3a 66 35 73 34 20 6c |w ;p7-p8|.:f5s4 l|
|00003c20| 64 61 20 70 34 78 0d 20 | 73 74 61 20 74 78 32 0d |da p4x. |sta tx2.|
|00003c30| 20 6c 64 61 20 70 34 79 | 0d 20 73 74 61 20 74 79 | lda p4y|. sta ty|
|00003c40| 32 20 3b 70 38 2d 70 34 | 0d 20 6a 73 72 20 64 72 |2 ;p8-p4|. jsr dr|
|00003c50| 61 77 20 3b 74 57 4f a0 | 4d 4f 52 45 a0 54 4f a0 |aw ;tWO.|MORE.TO.|
|00003c60| 47 4f 21 0d 0d 3a 66 61 | 63 65 33 20 6c 64 61 20 |GO!..:fa|ce3 lda |
|00003c70| 6b 0d 20 73 65 63 0d 20 | 73 62 63 20 70 31 7a 0d |k. sec. |sbc p1z.|
|00003c80| 20 62 76 73 20 3a 66 61 | 63 65 34 0d 20 63 6c 63 | bvs :fa|ce4. clc|
|00003c90| 0d 20 61 64 63 20 70 32 | 7a 0d 20 62 76 63 20 3a |. adc p2|z. bvc :|
|00003ca0| 64 72 61 77 33 0d 20 6c | 64 61 20 70 32 7a 0d 3a |draw3. l|da p2z.:|
|00003cb0| 64 72 61 77 33 20 62 70 | 6c 20 3a 66 61 63 65 34 |draw3 bp|l :face4|
|00003cc0| 20 3b 61 48 a0 52 45 43 | 4b 4f 4e a0 49 54 27 53 | ;aH.REC|KON.IT'S|
|00003cd0| a0 41 27 48 49 44 44 45 | 4e 2c a0 59 55 50 0d 20 |.A'HIDDE|N,.YUP. |
|00003ce0| 6c 64 61 20 23 24 30 34 | 0d 20 6f 72 61 20 66 61 |lda #$04|. ora fa|
|00003cf0| 63 65 73 0d 20 73 74 61 | 20 66 61 63 65 73 0d 0d |ces. sta| faces..|
|00003d00| 20 6c 64 78 20 70 31 78 | 0d 20 73 74 78 20 74 78 | ldx p1x|. stx tx|
|00003d10| 31 0d 20 6c 64 78 20 70 | 31 79 0d 20 73 74 78 20 |1. ldx p|1y. stx |
|00003d20| 74 79 31 0d 0d 20 61 6e | 64 20 23 24 30 31 20 3b |ty1.. an|d #$01 ;|
|00003d30| 73 48 41 52 45 53 a0 57 | 49 54 48 a0 31 0d 20 62 |sHARES.W|ITH.1. b|
|00003d40| 6e 65 20 3a 66 33 73 32 | 0d 0d 20 6c 64 61 20 70 |ne :f3s2|.. lda p|
|00003d50| 34 78 0d 20 73 74 61 20 | 74 78 32 0d 20 6c 64 61 |4x. sta |tx2. lda|
|00003d60| 20 70 34 79 0d 20 73 74 | 61 20 74 79 32 0d 20 6a | p4y. st|a ty2. j|
|00003d70| 73 72 20 64 72 61 77 20 | 3b 70 31 2d 70 34 0d 0d |sr draw |;p1-p4..|
|00003d80| 3a 66 33 73 32 20 6c 64 | 78 20 70 35 78 0d 20 73 |:f3s2 ld|x p5x. s|
|00003d90| 74 78 20 74 78 32 0d 20 | 6c 64 78 20 70 35 79 0d |tx tx2. |ldx p5y.|
|00003da0| 20 73 74 78 20 74 79 32 | 0d 0d 20 6c 64 61 20 66 | stx ty2|.. lda f|
|00003db0| 61 63 65 73 0d 20 61 6e | 64 20 23 24 30 32 20 3b |aces. an|d #$02 ;|
|00003dc0| 73 48 41 52 45 53 a0 57 | 49 54 48 a0 32 0d 20 62 |sHARES.W|ITH.2. b|
|00003dd0| 6e 65 20 3a 66 33 73 33 | 0d 0d 20 6a 73 72 20 64 |ne :f3s3|.. jsr d|
|00003de0| 72 61 77 20 3b 70 31 2d | 70 35 0d 3a 66 33 73 33 |raw ;p1-|p5.:f3s3|
|00003df0| 20 6c 64 78 20 70 38 78 | 0d 20 73 74 78 20 74 78 | ldx p8x|. stx tx|
|00003e00| 31 0d 20 6c 64 78 20 70 | 38 79 0d 20 73 74 78 20 |1. ldx p|8y. stx |
|00003e10| 74 79 31 0d 0d 20 6c 64 | 61 20 66 61 63 65 73 0d |ty1.. ld|a faces.|
|00003e20| 20 61 6e 64 20 23 24 32 | 30 20 3b 73 48 41 52 45 | and #$2|0 ;sHARE|
|00003e30| 53 a0 57 49 54 48 a0 36 | 0d 20 62 6e 65 20 3a 66 |S.WITH.6|. bne :f|
|00003e40| 33 73 34 0d 0d 20 6a 73 | 72 20 64 72 61 77 20 3b |3s4.. js|r draw ;|
|00003e50| 70 35 2d 70 38 0d 3a 66 | 33 73 34 20 6c 64 78 20 |p5-p8.:f|3s4 ldx |
|00003e60| 70 34 78 0d 20 73 74 78 | 20 74 78 32 0d 20 6c 64 |p4x. stx| tx2. ld|
|00003e70| 78 20 70 34 79 0d 20 73 | 74 78 20 74 79 32 0d 0d |x p4y. s|tx ty2..|
|00003e80| 20 6c 64 61 20 66 61 63 | 65 73 0d 20 61 6e 64 20 | lda fac|es. and |
|00003e90| 23 24 31 30 20 3b 73 48 | 41 52 45 53 a0 57 49 54 |#$10 ;sH|ARES.WIT|
|00003ea0| 48 a0 35 0d 20 62 6e 65 | 20 66 61 63 65 64 6f 6e |H.5. bne| facedon|
|00003eb0| 65 0d 0d 20 6a 73 72 20 | 64 72 61 77 20 3b 70 38 |e.. jsr |draw ;p8|
|00003ec0| 2d 70 34 0d 20 6a 6d 70 | 20 66 61 63 65 64 6f 6e |-p4. jmp| facedon|
|00003ed0| 65 0d 0d 3a 66 61 63 65 | 34 20 6c 64 61 20 6b 0d |e..:face|4 lda k.|
|00003ee0| 20 73 65 63 0d 20 73 62 | 63 20 70 32 7a 0d 20 62 | sec. sb|c p2z. b|
|00003ef0| 76 73 20 66 61 63 65 64 | 6f 6e 65 0d 20 63 6c 63 |vs faced|one. clc|
|00003f00| 0d 20 61 64 63 20 70 31 | 7a 0d 20 62 76 63 20 3a |. adc p1|z. bvc :|
|00003f10| 64 72 61 77 34 0d 20 6c | 64 61 20 70 31 7a 0d 3a |draw4. l|da p1z.:|
|00003f20| 64 72 61 77 34 20 62 70 | 6c 20 66 61 63 65 64 6f |draw4 bp|l facedo|
|00003f30| 6e 65 0d 0d 20 6c 64 61 | 20 70 32 78 0d 20 73 74 |ne.. lda| p2x. st|
|00003f40| 61 20 74 78 31 0d 20 6c | 64 61 20 70 32 79 0d 20 |a tx1. l|da p2y. |
|00003f50| 73 74 61 20 74 79 31 0d | 0d 20 6c 64 61 20 66 61 |sta ty1.|. lda fa|
|00003f60| 63 65 73 0d 20 61 6e 64 | 20 23 24 30 31 20 3b 73 |ces. and| #$01 ;s|
|00003f70| 48 41 52 45 53 a0 57 49 | 54 48 a0 31 0d 20 62 6e |HARES.WI|TH.1. bn|
|00003f80| 65 20 3a 66 34 73 32 0d | 0d 20 6c 64 61 20 70 33 |e :f4s2.|. lda p3|
|00003f90| 78 0d 20 73 74 61 20 74 | 78 32 0d 20 6c 64 61 20 |x. sta t|x2. lda |
|00003fa0| 70 33 79 0d 20 73 74 61 | 20 74 79 32 0d 20 6a 73 |p3y. sta| ty2. js|
|00003fb0| 72 20 64 72 61 77 20 3b | 70 32 2d 70 33 0d 0d 3a |r draw ;|p2-p3..:|
|00003fc0| 66 34 73 32 20 6c 64 61 | 20 70 36 78 0d 20 73 74 |f4s2 lda| p6x. st|
|00003fd0| 61 20 74 78 32 0d 20 6c | 64 61 20 70 36 79 0d 20 |a tx2. l|da p6y. |
|00003fe0| 73 74 61 20 74 79 32 0d | 0d 20 6c 64 61 20 66 61 |sta ty2.|. lda fa|
|00003ff0| 63 65 73 0d 20 61 6e 64 | 20 23 24 30 32 20 3b 73 |ces. and| #$02 ;s|
|00004000| 48 41 52 45 53 a0 57 49 | 54 48 a0 32 0d 20 62 6e |HARES.WI|TH.2. bn|
|00004010| 65 20 3a 66 34 73 33 0d | 0d 20 6a 73 72 20 64 72 |e :f4s3.|. jsr dr|
|00004020| 61 77 20 3b 70 32 2d 70 | 36 0d 3a 66 34 73 33 20 |aw ;p2-p|6.:f4s3 |
|00004030| 6c 64 61 20 70 37 78 0d | 20 73 74 61 20 74 78 31 |lda p7x.| sta tx1|
|00004040| 0d 20 6c 64 61 20 70 37 | 79 0d 20 73 74 61 20 74 |. lda p7|y. sta t|
|00004050| 79 31 0d 0d 20 6c 64 61 | 20 66 61 63 65 73 0d 20 |y1.. lda| faces. |
|00004060| 61 6e 64 20 23 24 32 30 | 20 3b 73 48 41 52 45 53 |and #$20| ;sHARES|
|00004070| a0 57 49 54 48 a0 36 0d | 20 62 6e 65 20 3a 66 34 |.WITH.6.| bne :f4|
|00004080| 73 34 0d 0d 20 6a 73 72 | 20 64 72 61 77 20 3b 70 |s4.. jsr| draw ;p|
|00004090| 36 2d 70 37 0d 3a 66 34 | 73 34 20 6c 64 61 20 70 |6-p7.:f4|s4 lda p|
|000040a0| 33 78 0d 20 73 74 61 20 | 74 78 32 0d 20 6c 64 61 |3x. sta |tx2. lda|
|000040b0| 20 70 33 79 0d 20 73 74 | 61 20 74 79 32 0d 0d 20 | p3y. st|a ty2.. |
|000040c0| 6c 64 61 20 66 61 63 65 | 73 0d 20 61 6e 64 20 23 |lda face|s. and #|
|000040d0| 24 31 30 20 3b 73 48 41 | 52 45 53 a0 57 49 54 48 |$10 ;sHA|RES.WITH|
|000040e0| a0 35 0d 20 62 6e 65 20 | 66 61 63 65 64 6f 6e 65 |.5. bne |facedone|
|000040f0| 0d 0d 20 6a 73 72 20 64 | 72 61 77 20 3b 70 37 2d |.. jsr d|raw ;p7-|
|00004100| 70 33 0d 66 61 63 65 64 | 6f 6e 65 20 20 20 3b 77 |p3.faced|one   ;w|
|00004110| 48 45 57 21 a0 a0 74 49 | 4d 45 a0 46 4f 52 a0 41 |HEW!..tI|ME.FOR.A|
|00004120| a0 42 45 45 52 2e 0d 0d | 2a 2a 2a 2a a0 6e 4f 57 |.BEER...|****.nOW|
|00004130| a0 57 45 a0 4e 45 45 44 | a0 54 4f a0 55 4e 46 49 |.WE.NEED|.TO.UNFI|
|00004140| 4c 4c a0 54 48 45 a0 4f | 55 54 53 49 44 45 a0 46 |LL.THE.O|UTSIDE.F|
|00004150| 52 4f 4d a0 54 48 45 a0 | 46 41 43 45 53 0d 75 6e |ROM.THE.|FACES.un|
|00004160| 66 69 6c 6c 20 6c 64 79 | 20 79 6d 69 6e 0d 3a 6c |fill ldy| ymin.:l|
|00004170| 6f 6f 70 20 3e 3e 3e 20 | 73 65 74 62 75 66 0d 20 |oop >>> |setbuf. |
|00004180| 6c 64 78 20 23 30 38 0d | 3a 6c 31 20 6c 64 61 20 |ldx #08.|:l1 lda |
|00004190| 28 62 75 66 66 65 72 29 | 2c 79 0d 20 65 6f 72 20 |(buffer)|,y. eor |
|000041a0| 23 24 66 66 20 3b 67 4f | a0 54 49 4c 4c a0 57 45 |#$ff ;gO|.TILL.WE|
|000041b0| a0 46 49 4e 44 a0 41 a0 | 50 4c 4f 54 54 45 44 0d |.FIND.A.|PLOTTED.|
|000041c0| 20 62 6e 65 20 3a 67 6f | 74 63 68 61 20 3b 50 4f | bne :go|tcha ;PO|
|000041d0| 49 4e 54 a0 28 49 2e 45 | 2e a0 61 a0 3c 3e a0 24 |INT.(I.E|..a.<>.$|
|000041e0| 66 66 29 0d 2a a0 6c 64 | 61 a0 23 30 30 a0 3b 75 |ff).*.ld|a.#00.;u|
|000041f0| 4e 46 49 4c 4c 49 4e 47 | a0 41 53 a0 57 45 a0 47 |NFILLING|.AS.WE.G|
|00004200| 4f 2e 2e 2e 0d 20 73 74 | 61 20 28 62 75 66 66 65 |O.... st|a (buffe|
|00004210| 72 29 2c 79 0d 20 6c 64 | 61 20 23 24 38 30 0d 20 |r),y. ld|a #$80. |
|00004220| 73 74 61 20 62 75 66 66 | 65 72 0d 20 6c 64 61 20 |sta buff|er. lda |
|00004230| 28 62 75 66 66 65 72 29 | 2c 79 0d 20 65 6f 72 20 |(buffer)|,y. eor |
|00004240| 23 24 66 66 0d 20 62 6e | 65 20 3a 67 6f 74 63 68 |#$ff. bn|e :gotch|
|00004250| 61 0d 2a a0 6c 64 61 a0 | 23 30 30 0d 20 73 74 61 |a.*.lda.|#00. sta|
|00004260| 20 28 62 75 66 66 65 72 | 29 2c 79 0d 20 73 74 61 | (buffer|),y. sta|
|00004270| 20 62 75 66 66 65 72 0d | 20 69 6e 63 20 62 75 66 | buffer.| inc buf|
|00004280| 66 65 72 2b 31 0d 20 64 | 65 78 20 20 3b 74 48 49 |fer+1. d|ex  ;tHI|
|00004290| 53 a0 49 53 a0 4f 55 52 | a0 53 41 46 45 54 59 a0 |S.IS.OUR|.SAFETY.|
|000042a0| 56 41 4c 56 45 0d 20 62 | 6e 65 20 3a 6c 31 20 3b |VALVE. b|ne :l1 ;|
|000042b0| 72 45 41 4c 4c 59 a0 53 | 48 4f 55 4c 44 4e 27 54 |rEALLY.S|HOULDN'T|
|000042c0| a0 4e 45 45 44 a0 49 54 | 0d 20 6a 73 72 20 63 68 |.NEED.IT|. jsr ch|
|000042d0| 6f 6b 65 0d 20 6a 6d 70 | 20 73 77 61 70 62 75 66 |oke. jmp| swapbuf|
|000042e0| 0d 0d 3a 67 6f 74 63 68 | 61 20 3b 61 a0 43 4f 4e |..:gotch|a ;a.CON|
|000042f0| 54 41 49 4e 53 a0 54 48 | 45 a0 65 6f 72 a0 50 4c |TAINS.TH|E.eor.PL|
|00004300| 4f 54 a0 56 41 4c 55 45 | 0d 20 73 74 61 20 74 65 |OT.VALUE|. sta te|
|00004310| 6d 70 31 20 3b 6e 4f 57 | a0 46 49 4e 44 a0 54 48 |mp1 ;nOW|.FIND.TH|
|00004320| 45 a0 48 49 47 48 a0 42 | 49 54 0d 20 6c 64 61 20 |E.HIGH.B|IT. lda |
|00004330| 23 30 30 0d 3a 6c 32 20 | 73 65 63 0d 20 72 6f 6c |#00.:l2 |sec. rol|
|00004340| 0d 20 6c 73 72 20 74 65 | 6d 70 31 20 3b 73 48 4f |. lsr te|mp1 ;sHO|
|00004350| 55 4c 44 a0 52 45 41 4c | 4c 59 a0 55 53 45 a0 41 |ULD.REAL|LY.USE.A|
|00004360| a0 54 41 42 4c 45 0d 20 | 62 6e 65 20 3a 6c 32 20 |.TABLE. |bne :l2 |
|00004370| 3b 46 4f 52 a0 54 48 49 | 53 21 0d 20 61 6e 64 20 |;FOR.THI|S!. and |
|00004380| 28 62 75 66 66 65 72 29 | 2c 79 0d 20 73 74 61 20 |(buffer)|,y. sta |
|00004390| 28 62 75 66 66 65 72 29 | 2c 79 0d 0d 20 6c 64 61 |(buffer)|,y.. lda|
|000043a0| 20 7a 74 65 6d 70 20 3b | 6e 4f 57 a0 47 4f a0 54 | ztemp ;|nOW.GO.T|
|000043b0| 4f a0 54 48 45 a0 45 4e | 44 0d 20 20 20 3b 63 41 |O.THE.EN|D.   ;cA|
|000043c0| 52 52 59 a0 49 53 a0 43 | 4c 45 41 52 0d 20 20 20 |RRY.IS.C|LEAR.   |
|000043d0| 3b 61 43 54 55 41 4c 4c | 59 a0 57 45 a0 41 44 44 |;aCTUALL|Y.WE.ADD|
|000043e0| a0 37 0d 20 61 64 63 20 | 23 24 30 36 20 3b 31 36 |.7. adc |#$06 ;16|
|000043f0| a0 43 4f 4c 55 4d 4e 53 | a0 4f 46 a0 31 32 38 a0 |.COLUMNS|.OF.128.|
|00004400| 42 59 54 45 53 0d 20 73 | 74 61 20 62 75 66 66 65 |BYTES. s|ta buffe|
|00004410| 72 2b 31 0d 20 6c 64 61 | 20 23 24 38 30 0d 20 73 |r+1. lda| #$80. s|
|00004420| 74 61 20 62 75 66 66 65 | 72 0d 3a 6c 6f 6f 70 32 |ta buffe|r.:loop2|
|00004430| 20 6c 64 61 20 28 62 75 | 66 66 65 72 29 2c 79 20 | lda (bu|ffer),y |
|00004440| 3b 61 4e 44 a0 57 4f 52 | 4b a0 42 41 43 4b 57 41 |;aND.WOR|K.BACKWA|
|00004450| 52 44 53 21 0d 20 65 6f | 72 20 23 24 66 66 0d 20 |RDS!. eo|r #$ff. |
|00004460| 62 6e 65 20 3a 67 6f 74 | 63 68 61 32 0d 20 73 74 |bne :got|cha2. st|
|00004470| 61 20 28 62 75 66 66 65 | 72 29 2c 79 0d 20 73 74 |a (buffe|r),y. st|
|00004480| 61 20 62 75 66 66 65 72 | 20 3b 73 54 49 43 4b a0 |a buffer| ;sTICK.|
|00004490| 41 a0 5a 45 52 4f a0 49 | 4e 54 4f a0 42 55 46 46 |A.ZERO.I|NTO.BUFF|
|000044a0| 45 52 0d 20 6c 64 61 20 | 28 62 75 66 66 65 72 29 |ER. lda |(buffer)|
|000044b0| 2c 79 0d 20 65 6f 72 20 | 23 24 66 66 0d 20 62 6e |,y. eor |#$ff. bn|
|000044c0| 65 20 3a 67 6f 74 63 68 | 61 32 0d 20 73 74 61 20 |e :gotch|a2. sta |
|000044d0| 28 62 75 66 66 65 72 29 | 2c 79 0d 20 6c 64 61 20 |(buffer)|,y. lda |
|000044e0| 23 24 38 30 0d 20 73 74 | 61 20 62 75 66 66 65 72 |#$80. st|a buffer|
|000044f0| 0d 20 64 65 63 20 62 75 | 66 66 65 72 2b 31 0d 20 |. dec bu|ffer+1. |
|00004500| 62 6e 65 20 3a 6c 6f 6f | 70 32 0d 0d 3a 67 6f 74 |bne :loo|p2..:got|
|00004510| 63 68 61 32 20 73 74 61 | 20 74 65 6d 70 31 20 3b |cha2 sta| temp1 ;|
|00004520| 61 47 41 49 4e a0 46 49 | 4e 44 a0 54 48 45 a0 48 |aGAIN.FI|ND.THE.H|
|00004530| 49 47 48 a0 42 49 54 0d | 20 6c 64 61 20 23 30 30 |IGH.BIT.| lda #00|
|00004540| 0d 3a 6c 33 20 73 65 63 | 0d 20 72 6f 72 0d 20 61 |.:l3 sec|. ror. a|
|00004550| 73 6c 20 74 65 6d 70 31 | 0d 20 62 6e 65 20 3a 6c |sl temp1|. bne :l|
|00004560| 33 0d 20 61 6e 64 20 28 | 62 75 66 66 65 72 29 2c |3. and (|buffer),|
|00004570| 79 0d 20 73 74 61 20 28 | 62 75 66 66 65 72 29 2c |y. sta (|buffer),|
|00004580| 79 0d 0d 20 69 6e 79 20 | 20 3b 6e 4f 57 a0 4b 45 |y.. iny | ;nOW.KE|
|00004590| 45 50 a0 47 4f 49 4e 47 | 0d 20 63 70 79 20 79 6d |EP.GOING|. cpy ym|
|000045a0| 61 78 0d 20 62 63 63 20 | 3a 6c 6f 6f 70 20 3b 75 |ax. bcc |:loop ;u|
|000045b0| 4e 54 49 4c a0 57 45 a0 | 48 49 54 a0 59 4d 41 58 |NTIL.WE.|HIT.YMAX|
|000045c0| 21 0d 20 62 65 71 20 3a | 6c 6f 6f 70 20 3b 77 45 |!. beq :|loop ;wE|
|000045d0| a0 4e 45 45 44 a0 54 48 | 45 a0 4c 41 53 54 a0 4f |.NEED.TH|E.LAST.O|
|000045e0| 4e 45 a0 54 4f 4f 2e 0d | 0d 2a 2a 2a 2a a0 73 57 |NE.TOO..|.****.sW|
|000045f0| 41 50 a0 42 55 46 46 45 | 52 53 0d 0d 73 77 61 70 |AP.BUFFE|RS..swap|
|00004600| 62 75 66 20 6c 64 61 20 | 76 6d 63 73 62 0d 20 65 |buf lda |vmcsb. e|
|00004610| 6f 72 20 23 24 30 32 20 | 3b 70 52 45 54 54 59 a0 |or #$02 |;pRETTY.|
|00004620| 54 52 49 43 4b 59 2c a0 | 45 48 3f 0d 20 73 74 61 |TRICKY,.|EH?. sta|
|00004630| 20 76 6d 63 73 62 0d 20 | 6c 64 61 20 23 24 30 38 | vmcsb. |lda #$08|
|00004640| 0d 20 65 6f 72 20 7a 74 | 65 6d 70 20 3b 5a 54 45 |. eor zt|emp ;ZTE|
|00004650| 4d 50 3d 48 49 47 48 a0 | 42 59 54 45 a0 4a 55 53 |MP=HIGH.|BYTE.JUS|
|00004660| 54 a0 46 4c 49 50 53 0d | 20 73 74 61 20 7a 74 65 |T.FLIPS.| sta zte|
|00004670| 6d 70 20 3b 42 45 54 57 | 45 45 4e a0 24 33 30 a0 |mp ;BETW|EEN.$30.|
|00004680| 41 4e 44 a0 24 33 38 0d | 0d 20 6a 6d 70 20 6d 61 |AND.$38.|. jmp ma|
|00004690| 69 6e 20 3b 61 52 4f 55 | 4e 44 a0 41 4e 44 a0 41 |in ;aROU|ND.AND.A|
|000046a0| 52 4f 55 4e 44 a0 57 45 | a0 47 4f 2e 2e 2e 0d 0d |ROUND.WE|.GO.....|
|000046b0| 20 74 78 74 20 27 73 41 | 4d 45 a0 54 48 49 4e 47 | txt 'sA|ME.THING|
|000046c0| a0 57 45 a0 44 4f a0 45 | 56 45 52 59 a0 4e 49 47 |.WE.DO.E|VERY.NIG|
|000046d0| 48 54 2c a0 70 49 4e 4b | 59 3a a0 27 0d 20 74 78 |HT,.pINK|Y:.'. tx|
|000046e0| 74 20 27 54 52 59 a0 54 | 4f a0 54 41 4b 45 a0 4f |t 'TRY.T|O.TAKE.O|
|000046f0| 56 45 52 a0 54 48 45 a0 | 57 4f 52 4c 44 21 27 0d |VER.THE.|WORLD!'.|
|00004700| 0d 0d 2a 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..*-----|--------|
|00004710| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004720| 2d 2d 0d 2a a0 67 45 4e | 45 52 41 4c a0 51 55 45 |--.*.gEN|ERAL.QUE|
|00004730| 53 54 49 4f 4e 41 42 4c | 45 2d 56 41 4c 55 45 a0 |STIONABL|E-VALUE.|
|00004740| 45 52 52 4f 52 a0 50 52 | 4f 43 45 44 55 52 45 0d |ERROR.PR|OCEDURE.|
|00004750| 0d 63 68 6f 6b 65 20 6c | 64 78 20 23 30 30 0d 3a |.choke l|dx #00.:|
|00004760| 6c 6f 6f 70 20 6c 64 61 | 20 3a 63 74 65 78 74 2c |loop lda| :ctext,|
|00004770| 78 0d 20 62 65 71 20 3a | 64 6f 6e 65 0d 20 6a 73 |x. beq :|done. js|
|00004780| 72 20 63 68 72 6f 75 74 | 0d 20 69 6e 78 0d 20 6a |r chrout|. inx. j|
|00004790| 6d 70 20 3a 6c 6f 6f 70 | 0d 3a 64 6f 6e 65 20 72 |mp :loop|.:done r|
|000047a0| 74 73 0d 3a 63 74 65 78 | 74 20 68 65 78 20 30 64 |ts.:ctex|t hex 0d|
|000047b0| 20 3b 63 72 0d 20 74 78 | 74 20 27 53 4f 4d 45 54 | ;cr. tx|t 'SOMET|
|000047c0| 48 49 4e 47 a0 43 48 4f | 4b 45 44 a0 3a 28 27 0d |HING.CHO|KED.:('.|
|000047d0| 20 68 65 78 20 30 64 30 | 30 0d 0d 20 74 78 74 20 | hex 0d0|0.. txt |
|000047e0| 27 6e 41 52 46 21 27 0d | 0d 2a 2d 2d 2d 2d 2d 2d |'nARF!'.|.*------|
|000047f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004800| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 2a a0 64 52 41 57 |--------|-.*.dRAW|
|00004810| 49 4e 27 a0 41 a0 4c 49 | 4e 45 2e a0 a0 61 a0 46 |IN'.A.LI|NE...a.F|
|00004820| 41 48 4e a0 4c 41 48 4e | 2e 0d 0d 2a 2a 2a a0 73 |AHN.LAHN|...***.s|
|00004830| 4f 4d 45 a0 55 53 45 46 | 55 4c a0 4d 41 43 52 4f |OME.USEF|UL.MACRO|
|00004840| 53 0d 0d 70 6c 6f 74 70 | 78 20 6d 61 63 20 20 3b |S..plotp|x mac  ;|
|00004850| 50 4c 4f 54 a0 41 a0 50 | 4f 49 4e 54 a0 49 4e a0 |PLOT.A.P|OINT.IN.|
|00004860| 58 0d 20 70 68 61 20 20 | 3b 75 53 45 a0 54 48 49 |X. pha  |;uSE.THI|
|00004870| 53 a0 4f 4e 45 a0 45 56 | 45 52 59 a0 54 49 4d 45 |S.ONE.EV|ERY.TIME|
|00004880| 0d 20 6c 64 61 20 62 69 | 74 70 2c 78 20 3b 78 a0 |. lda bi|tp,x ;x.|
|00004890| 49 53 a0 49 4e 43 52 45 | 41 53 45 44 0d 20 62 6d |IS.INCRE|ASED. bm|
|000048a0| 69 20 63 31 0d 20 6c 64 | 61 20 23 24 38 30 20 3b |i c1. ld|a #$80 ;|
|000048b0| 74 41 42 4c 45 a0 48 41 | 53 a0 42 45 45 4e a0 52 |tABLE.HA|S.BEEN.R|
|000048c0| 45 41 52 52 41 4e 47 45 | 44 0d 20 65 6f 72 20 62 |EARRANGE|D. eor b|
|000048d0| 75 66 66 65 72 20 3b 46 | 4f 52 a0 46 49 4c 4c 49 |uffer ;F|OR.FILLI|
|000048e0| 4e 47 a0 46 41 43 45 53 | 0d 20 73 74 61 20 62 75 |NG.FACES|. sta bu|
|000048f0| 66 66 65 72 0d 20 62 6d | 69 20 63 32 0d 20 69 6e |ffer. bm|i c2. in|
|00004900| 63 20 62 75 66 66 65 72 | 2b 31 0d 63 32 20 6c 64 |c buffer|+1.c2 ld|
|00004910| 61 20 23 25 30 31 31 31 | 31 31 31 31 20 3b 6e 4f |a #%0111|1111 ;nO|
|00004920| 54 45 a0 54 48 41 54 a0 | 54 48 49 53 a0 49 53 a0 |TE.THAT.|THIS.IS.|
|00004930| 43 48 41 4e 47 45 44 0d | 63 31 20 61 6e 64 20 28 |CHANGED.|c1 and (|
|00004940| 62 75 66 66 65 72 29 2c | 79 20 3b 46 4f 52 a0 50 |buffer),|y ;FOR.P|
|00004950| 4c 4f 54 54 49 4e 47 a0 | 46 49 4c 4c 45 44 a0 46 |LOTTING.|FILLED.F|
|00004960| 41 43 45 53 0d 20 73 74 | 61 20 28 62 75 66 66 65 |ACES. st|a (buffe|
|00004970| 72 29 2c 79 0d 20 70 6c | 61 20 20 3b 6e 45 45 44 |r),y. pl|a  ;nEED|
|00004980| a0 54 4f a0 53 41 56 45 | a0 61 21 0d 20 3c 3c 3c |.TO.SAVE|.a!. <<<|
|00004990| 0d 0d 70 6c 6f 74 70 79 | 20 6d 61 63 20 20 3b 70 |..plotpy| mac  ;p|
|000049a0| 4c 4f 54 a0 41 a0 50 4f | 49 4e 54 a0 49 4e a0 59 |LOT.A.PO|INT.IN.Y|
|000049b0| 3a a0 53 49 4d 50 4c 45 | 52 a0 41 4e 44 a0 4e 45 |:.SIMPLE|R.AND.NE|
|000049c0| 43 45 53 53 41 52 59 21 | 0d 20 70 68 61 20 20 3b |CESSARY!|. pha  ;|
|000049d0| 75 53 45 a0 54 48 49 53 | a0 4f 4e 45 a0 57 48 45 |uSE.THIS|.ONE.WHE|
|000049e0| 4e a0 59 4f 55 a0 4a 55 | 53 54 a0 49 4e 43 52 45 |N.YOU.JU|ST.INCRE|
|000049f0| 41 53 45 a0 79 0d 20 6c | 64 61 20 62 69 74 70 2c |ASE.y. l|da bitp,|
|00004a00| 78 20 3b 42 55 54 a0 78 | a0 44 4f 45 53 4e 27 54 |x ;BUT.x|.DOESN'T|
|00004a10| a0 43 48 41 4e 47 45 0d | 20 61 6e 64 20 28 62 75 |.CHANGE.| and (bu|
|00004a20| 66 66 65 72 29 2c 79 0d | 20 73 74 61 20 28 62 75 |ffer),y.| sta (bu|
|00004a30| 66 66 65 72 29 2c 79 0d | 20 70 6c 61 0d 20 3c 3c |ffer),y.| pla. <<|
|00004a40| 3c 0d 0d 63 69 6e 69 74 | 20 6d 61 63 20 20 3b 6d |<..cinit| mac  ;m|
|00004a50| 41 43 52 4f a0 54 4f a0 | 49 4e 49 54 49 41 4c 49 |ACRO.TO.|INITIALI|
|00004a60| 5a 45 a0 54 48 45 a0 43 | 4f 55 4e 54 45 52 0d 20 |ZE.THE.C|OUNTER. |
|00004a70| 6c 64 61 20 5d 31 20 3b | 44 58 a0 4f 52 a0 44 59 |lda ]1 ;|DX.OR.DY|
|00004a80| 0d 20 6c 73 72 0d 20 65 | 6f 72 20 23 24 66 66 20 |. lsr. e|or #$ff |
|00004a90| 3b 28 6e 4f 54 a0 52 45 | 41 4c 4c 59 a0 54 57 4f |;(nOT.RE|ALLY.TWO|
|00004aa0| 27 53 a0 43 4f 4d 50 4c | 45 4d 45 4e 54 29 0d 20 |'S.COMPL|EMENT). |
|00004ab0| 61 64 63 20 23 24 30 31 | 20 3b 61 a0 3d a0 32 35 |adc #$01| ;a.=.25|
|00004ac0| 36 2d 44 58 2f 32 a0 4f | 52 a0 32 35 36 2d 44 59 |6-DX/2.O|R.256-DY|
|00004ad0| 2f 32 0d 20 3c 3c 3c 20 | 20 3b 74 48 45 a0 44 58 |/2. <<< | ;tHE.DX|
|00004ae0| 2f 32 a0 4d 41 4b 45 53 | a0 41 a0 4e 49 43 45 52 |/2.MAKES|.A.NICER|
|00004af0| a0 4c 4f 4f 4b 49 4e 47 | a0 4c 49 4e 45 0d 0d 78 |.LOOKING|.LINE..x|
|00004b00| 73 74 65 70 20 6d 61 63 | 20 20 3b 6d 41 43 52 4f |step mac|  ;mACRO|
|00004b10| a0 54 4f a0 54 41 4b 45 | a0 41 a0 53 54 45 50 a0 |.TO.TAKE|.A.STEP.|
|00004b20| 49 4e a0 78 0d 78 6c 6f | 6f 70 20 69 6e 78 0d 20 |IN.x.xlo|op inx. |
|00004b30| 61 64 63 20 64 79 0d 20 | 62 63 63 20 6c 31 0d 2a |adc dy. |bcc l1.*|
|00004b40| a0 64 4f a0 57 45 a0 55 | 53 45 a0 69 6e 79 a0 4f |.dO.WE.U|SE.iny.O|
|00004b50| 52 a0 64 65 79 a0 48 45 | 52 45 3f 0d 20 69 66 20 |R.dey.HE|RE?. if |
|00004b60| 69 2c 5d 31 20 3b 69 46 | a0 54 48 45 a0 46 49 52 |i,]1 ;iF|.THE.FIR|
|00004b70| 53 54 a0 43 48 41 52 41 | 43 54 45 52 a0 49 53 a0 |ST.CHARA|CTER.IS.|
|00004b80| 41 4e a0 27 69 27 0d 20 | 69 6e 79 0d 20 65 6c 73 |AN.'i'. |iny. els|
|00004b90| 65 0d 20 64 65 79 0d 20 | 66 69 6e 0d 20 73 62 63 |e. dey. |fin. sbc|
|00004ba0| 20 64 78 0d 6c 31 20 3e | 3e 3e 20 70 6c 6f 74 70 | dx.l1 >|>> plotp|
|00004bb0| 78 20 3b 61 4c 57 41 59 | 53 a0 54 41 4b 45 a0 41 |x ;aLWAY|S.TAKE.A|
|00004bc0| a0 53 54 45 50 a0 49 4e | a0 78 0d 20 63 70 78 20 |.STEP.IN|.x. cpx |
|00004bd0| 78 32 0d 20 62 6e 65 20 | 78 6c 6f 6f 70 0d 20 3c |x2. bne |xloop. <|
|00004be0| 3c 3c 0d 0d 79 73 74 65 | 70 20 6d 61 63 20 20 3b |<<..yste|p mac  ;|
|00004bf0| 73 41 4d 45 a0 54 48 49 | 4e 47 2c a0 42 55 54 a0 |sAME.THI|NG,.BUT.|
|00004c00| 46 4f 52 a0 79 0d 79 6c | 6f 6f 70 20 69 66 20 69 |FOR.y.yl|oop if i|
|00004c10| 2c 5d 31 0d 20 69 6e 79 | 0d 20 65 6c 73 65 0d 20 |,]1. iny|. else. |
|00004c20| 64 65 79 0d 20 63 6c 63 | 20 20 3b 76 45 52 59 a0 |dey. clc|  ;vERY.|
|00004c30| 49 4d 50 4f 52 54 41 4e | 54 21 0d 20 66 69 6e 0d |IMPORTAN|T!. fin.|
|00004c40| 20 61 64 63 20 64 78 0d | 20 62 63 63 20 6c 32 0d | adc dx.| bcc l2.|
|00004c50| 20 69 6e 78 20 20 3b 61 | 4c 57 41 59 53 a0 49 4e | inx  ;a|LWAYS.IN|
|00004c60| 43 52 45 41 53 45 a0 78 | 0d 20 73 62 63 20 64 79 |CREASE.x|. sbc dy|
|00004c70| 0d 20 3e 3e 3e 20 70 6c | 6f 74 70 78 0d 20 6a 6d |. >>> pl|otpx. jm|
|00004c80| 70 20 6c 33 0d 6c 32 20 | 3e 3e 3e 20 70 6c 6f 74 |p l3.l2 |>>> plot|
|00004c90| 70 79 20 3b 77 45 a0 4f | 4e 4c 59 a0 49 4e 43 52 |py ;wE.O|NLY.INCR|
|00004ca0| 45 41 53 45 44 a0 79 0d | 6c 33 20 63 70 79 20 79 |EASED.y.|l3 cpy y|
|00004cb0| 32 0d 20 62 6e 65 20 79 | 6c 6f 6f 70 0d 20 3c 3c |2. bne y|loop. <<|
|00004cc0| 3c 0d 0d 2a 2a 2a 2a a0 | 69 4e 49 54 49 41 4c a0 |<..****.|iNITIAL.|
|00004cd0| 4c 49 4e 45 a0 53 45 54 | 55 50 0d 0d 64 72 61 77 |LINE.SET|UP..draw|
|00004ce0| 20 3e 3e 3e 20 6d 6f 76 | 65 2c 74 78 31 3b 78 31 | >>> mov|e,tx1;x1|
|00004cf0| 20 20 3b 6d 4f 56 45 a0 | 53 54 55 46 46 a0 49 4e |  ;mOVE.|STUFF.IN|
|00004d00| 54 4f a0 5a 45 52 4f a0 | 50 41 47 45 0d 20 3e 3e |TO.ZERO.|PAGE. >>|
|00004d10| 3e 20 6d 6f 76 65 2c 74 | 78 32 3b 78 32 20 20 3b |> move,t|x2;x2  ;|
|00004d20| 77 48 45 52 45 a0 49 54 | a0 43 41 4e a0 42 45 a0 |wHERE.IT|.CAN.BE.|
|00004d30| 4d 4f 44 49 46 49 45 44 | 0d 20 3e 3e 3e 20 6d 6f |MODIFIED|. >>> mo|
|00004d40| 76 65 2c 74 79 31 3b 79 | 31 0d 20 3e 3e 3e 20 6d |ve,ty1;y|1. >>> m|
|00004d50| 6f 76 65 2c 74 79 32 3b | 79 32 0d 20 3e 3e 3e 20 |ove,ty2;|y2. >>> |
|00004d60| 73 65 74 62 75 66 20 3b | 6e 4f 57 a0 57 45 a0 43 |setbuf ;|nOW.WE.C|
|00004d70| 41 4e a0 43 4c 4f 42 42 | 45 52 a0 54 48 45 a0 42 |AN.CLOBB|ER.THE.B|
|00004d80| 55 46 46 45 52 0d 0d 20 | 73 65 63 20 20 3b 6d 41 |UFFER.. |sec  ;mA|
|00004d90| 4b 45 a0 53 55 52 45 a0 | 58 31 3c 58 32 0d 20 6c |KE.SURE.|X1<X2. l|
|00004da0| 64 61 20 78 32 0d 20 73 | 62 63 20 78 31 0d 20 62 |da x2. s|bc x1. b|
|00004db0| 63 73 20 3a 63 6f 6e 74 | 0d 20 6c 64 61 20 79 32 |cs :cont|. lda y2|
|00004dc0| 20 3b 69 46 a0 4e 4f 54 | 2c a0 53 57 41 50 a0 70 | ;iF.NOT|,.SWAP.p|
|00004dd0| 31 a0 41 4e 44 a0 70 32 | 0d 20 6c 64 79 20 79 31 |1.AND.p2|. ldy y1|
|00004de0| 0d 20 73 74 61 20 79 31 | 0d 20 73 74 79 20 79 32 |. sta y1|. sty y2|
|00004df0| 0d 20 6c 64 61 20 78 31 | 0d 20 6c 64 79 20 78 32 |. lda x1|. ldy x2|
|00004e00| 0d 20 73 74 79 20 78 31 | 0d 20 73 74 61 20 78 32 |. sty x1|. sta x2|
|00004e10| 0d 0d 20 73 65 63 0d 20 | 73 62 63 20 78 31 20 3b |.. sec. |sbc x1 ;|
|00004e20| 6e 4f 57 a0 61 3d 44 58 | 0d 3a 63 6f 6e 74 20 73 |nOW.a=DX|.:cont s|
|00004e30| 74 61 20 64 78 0d 20 6c | 64 78 20 78 31 20 3b 70 |ta dx. l|dx x1 ;p|
|00004e40| 55 54 a0 58 31 a0 49 4e | 54 4f a0 78 2c a0 4e 4f |UT.X1.IN|TO.x,.NO|
|00004e50| 57 a0 57 45 a0 43 41 4e | a0 54 52 41 53 48 a0 78 |W.WE.CAN|.TRASH.x|
|00004e60| 31 0d 0d 63 6f 6c 75 6d | 6e 20 6c 64 61 20 78 31 |1..colum|n lda x1|
|00004e70| 20 3b 66 49 4e 44 a0 54 | 48 45 a0 46 49 52 53 54 | ;fIND.T|HE.FIRST|
|00004e80| a0 43 4f 4c 55 4d 4e a0 | 46 4f 52 a0 78 0d 20 6c |.COLUMN.|FOR.x. l|
|00004e90| 73 72 20 20 3b 28 74 48 | 49 53 a0 43 41 4e a0 42 |sr  ;(tH|IS.CAN.B|
|00004ea0| 45 a0 4d 41 44 45 a0 4d | 55 43 48 a0 46 41 53 54 |E.MADE.M|UCH.FAST|
|00004eb0| 45 52 21 29 0d 20 6c 73 | 72 20 20 3b 74 48 45 52 |ER!). ls|r  ;tHER|
|00004ec0| 45 a0 41 52 45 a0 58 31 | 2f 38 a0 31 32 38 a0 42 |E.ARE.X1|/8.128.B|
|00004ed0| 59 54 45 a0 42 4c 4f 43 | 4b 53 0d 20 6c 73 72 20 |YTE.BLOC|KS. lsr |
|00004ee0| 20 3b 77 48 49 43 48 a0 | 4d 45 41 4e 53 a0 58 31 | ;wHICH.|MEANS.X1|
|00004ef0| 2f 31 36 a0 32 35 36 a0 | 42 59 54 45 a0 42 4c 4f |/16.256.|BYTE.BLO|
|00004f00| 43 4b 53 0d 20 6c 73 72 | 0d 20 62 63 63 20 3a 65 |CKS. lsr|. bcc :e|
|00004f10| 76 65 6e 20 3b 77 49 54 | 48 a0 41 a0 50 4f 53 53 |ven ;wIT|H.A.POSS|
|00004f20| 49 42 4c 45 a0 45 58 54 | 52 41 a0 31 32 38 a0 42 |IBLE.EXT|RA.128.B|
|00004f30| 59 54 45 a0 42 4c 4f 43 | 4b 0d 20 6c 64 79 20 23 |YTE.BLOC|K. ldy #|
|00004f40| 24 38 30 20 3b 49 46 a0 | 53 4f 2c a0 53 45 54 a0 |$80 ;IF.|SO,.SET.|
|00004f50| 54 48 45 a0 48 49 47 48 | a0 42 49 54 0d 20 73 74 |THE.HIGH|.BIT. st|
|00004f60| 79 20 62 75 66 66 65 72 | 0d 20 63 6c 63 0d 3a 65 |y buffer|. clc.:e|
|00004f70| 76 65 6e 20 61 64 63 20 | 62 75 66 66 65 72 2b 31 |ven adc |buffer+1|
|00004f80| 20 3b 61 44 44 a0 49 4e | a0 54 48 45 a0 4e 55 4d | ;aDD.IN|.THE.NUM|
|00004f90| 42 45 52 a0 4f 46 a0 32 | 35 36 a0 42 59 54 45 a0 |BER.OF.2|56.BYTE.|
|00004fa0| 42 4c 4f 43 4b 53 0d 20 | 73 74 61 20 62 75 66 66 |BLOCKS. |sta buff|
|00004fb0| 65 72 2b 31 20 3b 61 4e | 44 a0 53 54 4f 52 45 a0 |er+1 ;aN|D.STORE.|
|00004fc0| 49 54 21 0d 0d 20 73 65 | 63 0d 20 6c 64 61 20 79 |IT!.. se|c. lda y|
|00004fd0| 32 20 3b 63 41 4c 43 55 | 4c 41 54 45 a0 44 59 0d |2 ;cALCU|LATE.DY.|
|00004fe0| 20 73 62 63 20 79 31 0d | 20 62 63 73 20 3a 63 6f | sbc y1.| bcs :co|
|00004ff0| 6e 74 32 20 3b 69 53 a0 | 59 32 3e 59 31 3f 0d 20 |nt2 ;iS.|Y2>Y1?. |
|00005000| 65 6f 72 20 23 24 66 66 | 20 3b 6f 54 48 45 52 57 |eor #$ff| ;oTHERW|
|00005010| 49 53 45 a0 44 59 3d 59 | 31 2d 59 32 0d 20 61 64 |ISE.DY=Y|1-Y2. ad|
|00005020| 63 20 23 24 30 31 0d 3a | 63 6f 6e 74 32 20 73 74 |c #$01.:|cont2 st|
|00005030| 61 20 64 79 0d 20 63 6d | 70 20 64 78 20 3b 77 48 |a dy. cm|p dx ;wH|
|00005040| 4f 27 53 a0 42 49 47 47 | 45 52 3a a0 44 59 a0 4f |O'S.BIGG|ER:.DY.O|
|00005050| 52 a0 44 58 3f 0d 20 62 | 63 73 20 73 74 65 70 69 |R.DX?. b|cs stepi|
|00005060| 6e 79 20 3b 69 46 a0 44 | 59 2c a0 57 45 a0 4e 45 |ny ;iF.D|Y,.WE.NE|
|00005070| 45 44 a0 54 4f a0 54 41 | 4b 45 a0 42 49 47 a0 53 |ED.TO.TA|KE.BIG.S|
|00005080| 54 45 50 53 a0 49 4e a0 | 59 0d 0d 73 74 65 70 69 |TEPS.IN.|Y..stepi|
|00005090| 6e 78 20 6c 64 79 20 79 | 31 20 3b 78 a0 49 53 a0 |nx ldy y|1 ;x.IS.|
|000050a0| 41 4c 52 45 41 44 59 a0 | 53 45 54 a0 54 4f a0 58 |ALREADY.|SET.TO.X|
|000050b0| 31 0d 20 6c 64 61 20 62 | 69 74 70 2c 78 20 3b 70 |1. lda b|itp,x ;p|
|000050c0| 4c 4f 54 a0 54 48 45 a0 | 46 49 52 53 54 a0 50 4f |LOT.THE.|FIRST.PO|
|000050d0| 49 4e 54 0d 2a a0 65 6f | 72 a0 23 24 66 66 0d 20 |INT.*.eo|r.#$ff. |
|000050e0| 61 6e 64 20 28 62 75 66 | 66 65 72 29 2c 79 0d 20 |and (buf|fer),y. |
|000050f0| 73 74 61 20 28 62 75 66 | 66 65 72 29 2c 79 0d 20 |sta (buf|fer),y. |
|00005100| 3e 3e 3e 20 63 69 6e 69 | 74 2c 64 78 20 3b 69 4e |>>> cini|t,dx ;iN|
|00005110| 49 54 49 41 4c 49 5a 45 | a0 54 48 45 a0 43 4f 55 |ITIALIZE|.THE.COU|
|00005120| 4e 54 45 52 0d 20 63 70 | 79 20 79 32 0d 20 62 63 |NTER. cp|y y2. bc|
|00005130| 73 20 78 64 65 63 79 20 | 3b 64 4f a0 57 45 a0 53 |s xdecy |;dO.WE.S|
|00005140| 54 45 50 a0 46 4f 52 57 | 41 52 44 53 a0 4f 52 a0 |TEP.FORW|ARDS.OR.|
|00005150| 42 41 43 4b 57 41 52 44 | 53 a0 49 4e a0 79 3f 0d |BACKWARD|S.IN.y?.|
|00005160| 0d 78 69 6e 63 79 20 3e | 3e 3e 20 78 73 74 65 70 |.xincy >|>> xstep|
|00005170| 2c 69 6e 79 0d 20 72 74 | 73 0d 0d 73 74 65 70 69 |,iny. rt|s..stepi|
|00005180| 6e 79 20 6c 64 79 20 79 | 31 20 3b 77 45 4c 4c 2c |ny ldy y|1 ;wELL,|
|00005190| a0 41 a0 4c 49 54 54 4c | 45 a0 52 45 50 45 54 49 |.A.LITTL|E.REPETI|
|000051a0| 54 49 4f 4e a0 4e 45 56 | 45 52 a0 48 55 52 54 a0 |TION.NEV|ER.HURT.|
|000051b0| 41 4e 59 4f 4e 45 0d 20 | 6c 64 61 20 62 69 74 70 |ANYONE. |lda bitp|
|000051c0| 2c 78 0d 2a a0 65 6f 72 | a0 23 24 66 66 0d 20 61 |,x.*.eor|.#$ff. a|
|000051d0| 6e 64 20 28 62 75 66 66 | 65 72 29 2c 79 0d 20 73 |nd (buff|er),y. s|
|000051e0| 74 61 20 28 62 75 66 66 | 65 72 29 2c 79 0d 20 3e |ta (buff|er),y. >|
|000051f0| 3e 3e 20 63 69 6e 69 74 | 2c 64 79 0d 20 63 70 79 |>> cinit|,dy. cpy|
|00005200| 20 79 32 0d 20 62 63 73 | 20 79 64 65 63 79 0d 0d | y2. bcs| ydecy..|
|00005210| 79 69 6e 63 79 20 3e 3e | 3e 20 79 73 74 65 70 2c |yincy >>|> ystep,|
|00005220| 69 6e 79 0d 20 72 74 73 | 0d 0d 78 64 65 63 79 20 |iny. rts|..xdecy |
|00005230| 3e 3e 3e 20 78 73 74 65 | 70 2c 64 65 79 20 3b 74 |>>> xste|p,dey ;t|
|00005240| 48 49 53 a0 49 53 a0 50 | 55 54 a0 48 45 52 45 a0 |HIS.IS.P|UT.HERE.|
|00005250| 53 4f a0 54 48 41 54 0d | 20 72 74 73 20 20 3b 62 |SO.THAT.| rts  ;b|
|00005260| 52 41 4e 43 48 45 53 a0 | 41 52 45 a0 4c 45 47 41 |RANCHES.|ARE.LEGA|
|00005270| 4c 0d 0d 79 64 65 63 79 | 20 3e 3e 3e 20 79 73 74 |L..ydecy| >>> yst|
|00005280| 65 70 2c 64 65 79 0d 20 | 72 74 73 0d 0d 0d 2a 2d |ep,dey. |rts...*-|
|00005290| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000052a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 2a |--------|------.*|
|000052b0| a0 63 4c 45 41 4e a0 55 | 50 0d 0d 63 6c 65 61 6e |.cLEAN.U|P..clean|
|000052c0| 75 70 20 6c 64 61 20 76 | 6d 63 73 62 20 3b 73 57 |up lda v|mcsb ;sW|
|000052d0| 49 54 43 48 a0 43 48 41 | 52 a0 52 4f 4d a0 42 41 |ITCH.CHA|R.ROM.BA|
|000052e0| 43 4b a0 49 4e 0d 20 61 | 6e 64 20 23 25 31 31 31 |CK.IN. a|nd #%111|
|000052f0| 31 30 31 30 31 20 3b 44 | 45 46 41 55 4c 54 0d 20 |10101 ;D|EFAULT. |
|00005300| 73 74 61 20 76 6d 63 73 | 62 0d 0d 20 72 74 73 20 |sta vmcs|b.. rts |
|00005310| 20 3b 42 59 45 21 0d 0d | 20 74 78 74 20 27 68 41 | ;BYE!..| txt 'hA|
|00005320| 50 50 59 a0 68 4f 4c 49 | 44 41 59 53 21 a0 27 0d |PPY.hOLI|DAYS!.'.|
|00005330| 20 74 78 74 20 27 53 4c | 4a a0 31 32 2f 39 34 27 | txt 'SL|J.12/94'|
|00005340| 0d 0d 2a 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..*-----|--------|
|00005350| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005360| 2d 2d 0d 2a a0 73 45 54 | a0 55 50 a0 42 49 54 a0 |--.*.sET|.UP.BIT.|
|00005370| 54 41 42 4c 45 0d 0d 20 | 64 73 20 5e 20 3b 63 4c |TABLE.. |ds ^ ;cL|
|00005380| 45 41 52 a0 54 4f a0 45 | 4e 44 a0 4f 46 a0 50 41 |EAR.TO.E|ND.OF.PA|
|00005390| 47 45 0d 20 20 20 3b 73 | 4f a0 54 48 41 54 a0 54 |GE.   ;s|O.THAT.T|
|000053a0| 41 42 4c 45 53 a0 53 54 | 41 52 54 a0 4f 4e a0 41 |ABLES.ST|ART.ON.A|
|000053b0| a0 50 41 47 45 a0 42 4f | 55 4e 44 41 52 59 0d 62 |.PAGE.BO|UNDARY.b|
|000053c0| 69 74 70 20 6c 75 70 20 | 31 36 20 3b 31 32 38 a0 |itp lup |16 ;128.|
|000053d0| 65 4e 54 52 49 45 53 a0 | 46 4f 52 a0 78 0d 20 64 |eNTRIES.|FOR.x. d|
|000053e0| 66 62 20 25 30 31 31 31 | 31 31 31 31 0d 20 64 66 |fb %0111|1111. df|
|000053f0| 62 20 25 31 30 31 31 31 | 31 31 31 0d 20 64 66 62 |b %10111|111. dfb|
|00005400| 20 25 31 31 30 31 31 31 | 31 31 0d 20 64 66 62 20 | %110111|11. dfb |
|00005410| 25 31 31 31 30 31 31 31 | 31 0d 20 64 66 62 20 25 |%1110111|1. dfb %|
|00005420| 31 31 31 31 30 31 31 31 | 0d 20 64 66 62 20 25 31 |11110111|. dfb %1|
|00005430| 31 31 31 31 30 31 31 0d | 20 64 66 62 20 25 31 31 |1111011.| dfb %11|
|00005440| 31 31 31 31 30 31 0d 20 | 64 66 62 20 25 31 31 31 |111101. |dfb %111|
|00005450| 31 31 31 31 30 0d 20 2d | 2d 5e 0d 0d 73 69 6e 20 |11110. -|-^..sin |
|00005460| 3b 74 41 42 4c 45 a0 4f | 46 a0 53 49 4e 45 53 2c |;tABLE.O|F.SINES,|
|00005470| a0 31 32 30 a0 42 59 54 | 45 53 0d 63 6f 73 20 65 |.120.BYT|ES.cos e|
|00005480| 71 75 20 73 69 6e 2b 31 | 32 38 20 3b 74 41 42 4c |qu sin+1|28 ;tABL|
|00005490| 45 a0 4f 46 a0 43 4f 53 | 49 4e 45 53 0d 20 20 20 |E.OF.COS|INES.   |
|000054a0| 3b 62 4f 54 48 a0 4f 46 | a0 54 48 45 53 45 a0 54 |;bOTH.OF|.THESE.T|
|000054b0| 52 49 47 a0 54 41 42 4c | 45 53 a0 41 52 45 0d 20 |RIG.TABL|ES.ARE. |
|000054c0| 20 20 3b 43 55 52 52 45 | 4e 54 4c 59 a0 53 45 54 |  ;CURRE|NTLY.SET|
|000054d0| a0 55 50 a0 46 52 4f 4d | a0 62 61 73 69 63 0d 7a |.UP.FROM|.basic.z|
|000054e0| 64 69 76 20 65 71 75 20 | 63 6f 73 2b 31 32 38 20 |div equ |cos+128 |
|000054f0| 3b 64 49 56 49 53 49 4f | 4e a0 54 41 42 4c 45 0d |;dIVISIO|N.TABLE.|
|00005500| 74 6d 61 74 68 20 65 71 | 75 20 7a 64 69 76 2b 33 |tmath eq|u zdiv+3|
|00005510| 38 34 20 3b 6d 41 54 48 | a0 54 41 42 4c 45 a0 4f |84 ;mATH|.TABLE.O|
|00005520| 46 a0 46 28 58 29 3d 58 | 2a 58 2f 32 35 36 0d    |F.F(X)=X|*X/256. |
+--------+-------------------------+-------------------------+--------+--------+