/ APDL Public Domain 1 / APDL_PD1A.iso / art_draw / 3d_tutor / FinalEx

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0f f4 20 3e 20 | 46 69 6e 61 6c 45 78 0d |..... > |FinalEx.|
|00000010| 00 14 1f f4 20 33 44 20 | 65 78 61 6d 70 6c 65 2c |.... 3D |example,|
|00000020| 20 75 73 69 6e 67 20 33 | 44 4c 69 6e 65 73 0d 00 | using 3|DLines..|
|00000030| 1e 13 f4 20 62 79 20 50 | 61 75 6c 20 4d 61 73 6f |... by P|aul Maso|
|00000040| 6e 0d 00 1f 18 f4 20 a9 | 20 50 61 75 6c 20 4d 61 |n..... .| Paul Ma|
|00000050| 73 6f 6e 2c 20 31 39 39 | 34 0d 00 32 04 0d 00 3c |son, 199|4..2...<|
|00000060| 45 2a 52 4d 45 6e 73 75 | 72 65 20 33 44 4c 69 6e |E*RMEnsu|re 3DLin|
|00000070| 65 73 20 31 2e 30 20 45 | 72 72 6f 72 20 59 6f 75 |es 1.0 E|rror You|
|00000080| 20 6d 75 73 74 20 68 61 | 76 65 20 6d 6f 64 75 6c | must ha|ve modul|
|00000090| 65 20 27 33 44 4c 69 6e | 65 73 27 20 6c 6f 61 64 |e '3DLin|es' load|
|000000a0| 65 64 0d 00 46 04 0d 00 | 50 1c c8 99 20 22 58 4f |ed..F...|P... "XO|
|000000b0| 53 5f 43 4c 49 22 2c 22 | 43 61 63 68 65 20 4f 66 |S_CLI","|Cache Of|
|000000c0| 66 22 0d 00 5a 08 eb 20 | 31 32 0d 00 64 07 eb 20 |f"..Z.. |12..d.. |
|000000d0| 38 0d 00 6e 0e c8 91 20 | 36 34 30 2c 35 31 32 0d |8..n... |640,512.|
|000000e0| 00 78 05 87 0d 00 82 04 | 0d 00 8c 17 72 31 25 3d |.x......|....r1%=|
|000000f0| 31 30 30 3a 67 31 25 3d | 30 3a 62 31 25 3d 30 0d |100:g1%=|0:b1%=0.|
|00000100| 00 96 17 72 32 25 3d 30 | 3a 67 32 25 3d 30 3a 62 |...r2%=0|:g2%=0:b|
|00000110| 32 25 3d 31 32 38 0d 00 | a0 0c f2 67 65 74 63 6f |2%=128..|...getco|
|00000120| 6c 73 0d 00 aa 13 fb 20 | 31 2c 72 31 25 2c 67 31 |ls..... |1,r1%,g1|
|00000130| 25 2c 62 31 25 0d 00 b4 | 13 fb 20 32 2c 72 32 25 |%,b1%...|.. 2,r2%|
|00000140| 2c 67 32 25 2c 62 32 25 | 0d 00 be 1f fb 20 33 2c |,g2%,b2%|..... 3,|
|00000150| 72 31 25 84 72 32 25 2c | 67 31 25 84 67 32 25 2c |r1%.r2%,|g1%.g2%,|
|00000160| 62 31 25 84 62 32 25 0d | 00 c8 04 0d 00 d2 25 de |b1%.b2%.|......%.|
|00000170| 20 63 6f 64 65 25 20 38 | 31 39 32 2c 4c 25 2d 31 | code% 8|192,L%-1|
|00000180| 2c 64 61 74 61 25 20 34 | 2a 34 2a 34 2a 33 36 30 |,data% 4|*4*4*360|
|00000190| 0d 00 dc 12 e3 20 61 6e | 67 25 3d 30 20 b8 20 33 |..... an|g%=0 . 3|
|000001a0| 35 39 0d 00 e6 17 20 f2 | 73 65 74 28 61 6e 67 25 |59.... .|set(ang%|
|000001b0| 2c 30 2c 30 2c 30 2c 30 | 29 0d 00 f0 31 20 f2 73 |,0,0,0,0|)...1 .s|
|000001c0| 65 74 28 61 6e 67 25 2c | 31 2c 28 b5 b2 61 6e 67 |et(ang%,|1,(..ang|
|000001d0| 25 29 2a 33 32 30 2c 2d | 32 30 30 2c 2d 28 9b b2 |%)*320,-|200,-(..|
|000001e0| 61 6e 67 25 29 2a 33 32 | 30 29 0d 00 fa 3d 20 f2 |ang%)*32|0)...= .|
|000001f0| 73 65 74 28 61 6e 67 25 | 2c 32 2c 28 b5 b2 28 61 |set(ang%|,2,(..(a|
|00000200| 6e 67 25 2b 31 32 30 29 | 29 2a 33 32 30 2c 2d 32 |ng%+120)|)*320,-2|
|00000210| 30 30 2c 2d 28 9b b2 28 | 61 6e 67 25 2b 31 32 30 |00,-(..(|ang%+120|
|00000220| 29 29 2a 33 32 30 29 0d | 01 04 3d 20 f2 73 65 74 |))*320).|..= .set|
|00000230| 28 61 6e 67 25 2c 33 2c | 28 b5 b2 28 61 6e 67 25 |(ang%,3,|(..(ang%|
|00000240| 2b 32 34 30 29 29 2a 33 | 32 30 2c 2d 32 30 30 2c |+240))*3|20,-200,|
|00000250| 2d 28 9b b2 28 61 6e 67 | 25 2b 32 34 30 29 29 2a |-(..(ang|%+240))*|
|00000260| 33 32 30 29 0d 01 0e 05 | ed 0d 01 18 0e f2 73 74 |320)....|......st|
|00000270| 61 72 5f 69 6e 69 74 0d | 01 22 04 0d 01 2c 15 e3 |ar_init.|."...,..|
|00000280| 20 6f 70 74 25 3d 38 20 | b8 20 31 30 20 88 20 32 | opt%=8 |. 10 . 2|
|00000290| 0d 01 36 09 20 20 62 3d | 30 0d 01 40 0e 20 20 50 |..6.  b=|0..@.  P|
|000002a0| 25 3d 63 6f 64 65 25 0d | 01 4a 0f 20 20 5b 4f 50 |%=code%.|.J.  [OP|
|000002b0| 54 20 6f 70 74 25 0d 01 | 54 19 20 20 3b 20 3e 20 |T opt%..|T.  ; > |
|000002c0| 52 30 20 3d 20 64 61 74 | 61 20 74 61 62 6c 65 0d |R0 = dat|a table.|
|000002d0| 01 5e 15 20 20 3b 20 20 | 20 52 31 20 3d 20 64 65 |.^.  ;  | R1 = de|
|000002e0| 67 72 65 65 0d 01 68 15 | 20 20 3b 20 52 38 20 3d |gree..h.|  ; R8 =|
|000002f0| 20 64 69 73 74 61 6e 63 | 65 0d 01 72 1b 20 20 3b | distanc|e..r.  ;|
|00000300| 20 52 39 20 3d 20 64 65 | 67 72 65 65 20 6f 66 20 | R9 = de|gree of |
|00000310| 74 75 72 6e 0d 01 7c 16 | 20 20 3b 20 52 31 30 20 |turn..|.|  ; R10 |
|00000320| 3d 20 64 69 73 74 20 69 | 6e 63 0d 01 86 11 20 20 |= dist i|nc....  |
|00000330| 4d 4f 56 20 52 38 2c 23 | 33 32 30 0d 01 90 11 20 |MOV R8,#|320.... |
|00000340| 20 4d 4f 56 20 52 39 2c | 23 33 36 30 0d 01 9a 12 | MOV R9,|#360....|
|00000350| 20 20 53 55 42 20 52 39 | 2c 52 39 2c 23 33 0d 01 |  SUB R9|,R9,#3..|
|00000360| a4 12 20 20 4d 4f 56 20 | 52 31 30 2c 23 31 30 30 |..  MOV |R10,#100|
|00000370| 0d 01 ae 10 20 20 4d 4f | 56 20 52 31 32 2c 52 30 |....  MO|V R12,R0|
|00000380| 0d 01 b8 0b 20 20 2e 6c | 6f 6f 70 0d 01 c2 1f 20 |....  .l|oop.... |
|00000390| 20 53 57 49 20 22 58 4f | 53 5f 52 65 61 64 45 73 | SWI "XO|S_ReadEs|
|000003a0| 63 61 70 65 53 74 61 74 | 65 22 0d 01 cc 12 20 20 |capeStat|e"....  |
|000003b0| 4d 4f 56 43 53 20 50 43 | 2c 52 31 34 0d 01 d6 10 |MOVCS PC|,R14....|
|000003c0| 20 20 4d 4f 56 20 52 30 | 2c 23 31 39 0d 01 e0 14 |  MOV R0|,#19....|
|000003d0| 20 20 53 57 49 20 22 58 | 4f 53 5f 42 79 74 65 22 |  SWI "X|OS_Byte"|
|000003e0| 0d 01 ea 11 20 20 4d 4f | 56 20 52 30 2c 23 31 31 |....  MO|V R0,#11|
|000003f0| 32 0d 01 f4 10 20 20 80 | 20 52 31 2c 52 39 2c 23 |2....  .| R1,R9,#|
|00000400| 31 0d 01 fe 12 20 20 41 | 44 44 20 52 31 2c 52 31 |1....  A|DD R1,R1|
|00000410| 2c 23 31 0d 02 08 14 20 | 20 53 57 49 20 22 58 4f |,#1.... | SWI "XO|
|00000420| 53 5f 42 79 74 65 22 0d | 02 12 11 20 20 4d 4f 56 |S_Byte".|...  MOV|
|00000430| 20 52 30 2c 23 31 31 33 | 0d 02 1c 10 20 20 80 20 | R0,#113|....  . |
|00000440| 52 31 2c 52 39 2c 23 31 | 0d 02 26 12 20 20 52 53 |R1,R9,#1|..&.  RS|
|00000450| 42 20 52 31 2c 52 31 2c | 23 32 0d 02 30 14 20 20 |B R1,R1,|#2..0.  |
|00000460| 53 57 49 20 22 58 4f 53 | 5f 42 79 74 65 22 0d 02 |SWI "XOS|_Byte"..|
|00000470| 3a 10 20 20 53 57 49 20 | 32 35 36 2b 31 32 0d 02 |:.  SWI |256+12..|
|00000480| 44 19 20 20 41 44 44 20 | 52 34 2c 52 31 32 2c 52 |D.  ADD |R4,R12,R|
|00000490| 39 2c 4c 53 4c 23 36 0d | 02 4e 13 20 20 41 44 44 |9,LSL#6.|.N.  ADD|
|000004a0| 20 52 35 2c 52 34 2c 23 | 31 36 0d 02 58 13 20 20 | R5,R4,#|16..X.  |
|000004b0| 41 44 44 20 52 36 2c 52 | 35 2c 23 31 36 0d 02 62 |ADD R6,R|5,#16..b|
|000004c0| 13 20 20 41 44 44 20 52 | 37 2c 52 36 2c 23 31 36 |.  ADD R|7,R6,#16|
|000004d0| 0d 02 6c 0c 20 20 a4 6c | 64 28 34 29 0d 02 76 0f |..l.  .l|d(4)..v.|
|000004e0| 20 20 4d 4f 56 20 52 30 | 2c 23 34 0d 02 80 13 20 |  MOV R0|,#4.... |
|000004f0| 20 53 57 49 20 22 33 44 | 5f 50 6c 6f 74 22 0d 02 | SWI "3D|_Plot"..|
|00000500| 8a 0c 20 20 a4 6c 64 28 | 35 29 0d 02 94 0f 20 20 |..  .ld(|5)....  |
|00000510| 4d 4f 56 20 52 30 2c 23 | 35 0d 02 9e 13 20 20 53 |MOV R0,#|5....  S|
|00000520| 57 49 20 22 33 44 5f 50 | 6c 6f 74 22 0d 02 a8 0c |WI "3D_P|lot"....|
|00000530| 20 20 a4 6c 64 28 36 29 | 0d 02 b2 13 20 20 53 57 |  .ld(6)|....  SW|
|00000540| 49 20 22 33 44 5f 50 6c | 6f 74 22 0d 02 bc 0c 20 |I "3D_Pl|ot".... |
|00000550| 20 a4 6c 64 28 34 29 0d | 02 c6 13 20 20 53 57 49 | .ld(4).|...  SWI|
|00000560| 20 22 33 44 5f 50 6c 6f | 74 22 0d 02 d0 0c 20 20 | "3D_Plo|t"....  |
|00000570| a4 6c 64 28 37 29 0d 02 | da 13 20 20 53 57 49 20 |.ld(7)..|..  SWI |
|00000580| 22 33 44 5f 50 6c 6f 74 | 22 0d 02 e4 0c 20 20 a4 |"3D_Plot|"....  .|
|00000590| 6c 64 28 35 29 0d 02 ee | 13 20 20 53 57 49 20 22 |ld(5)...|.  SWI "|
|000005a0| 33 44 5f 50 6c 6f 74 22 | 0d 02 f8 0c 20 20 a4 6c |3D_Plot"|....  .l|
|000005b0| 64 28 36 29 0d 03 02 0f | 20 20 4d 4f 56 20 52 30 |d(6)....|  MOV R0|
|000005c0| 2c 23 34 0d 03 0c 13 20 | 20 53 57 49 20 22 33 44 |,#4.... | SWI "3D|
|000005d0| 5f 50 6c 6f 74 22 0d 03 | 16 0c 20 20 a4 6c 64 28 |_Plot"..|..  .ld(|
|000005e0| 37 29 0d 03 20 0f 20 20 | 4d 4f 56 20 52 30 2c 23 |7).. .  |MOV R0,#|
|000005f0| 35 0d 03 2a 13 20 20 53 | 57 49 20 22 33 44 5f 50 |5..*.  S|WI "3D_P|
|00000600| 6c 6f 74 22 0d 03 34 13 | 20 20 41 44 44 20 52 38 |lot"..4.|  ADD R8|
|00000610| 2c 52 38 2c 52 31 30 0d | 03 3e 11 20 20 43 4d 50 |,R8,R10.|.>.  CMP|
|00000620| 20 52 38 2c 23 33 32 30 | 0d 03 48 14 20 20 4d 4f | R8,#320|..H.  MO|
|00000630| 56 4c 54 20 52 31 30 2c | 23 31 30 30 0d 03 52 0e |VLT R10,|#100..R.|
|00000640| 20 20 4c 44 52 20 52 30 | 2c 74 0d 03 5c 0f 20 20 |  LDR R0|,t..\.  |
|00000650| 43 4d 50 20 52 38 2c 52 | 30 0d 03 66 14 20 20 4d |CMP R8,R|0..f.  M|
|00000660| 56 4e 47 54 20 52 31 30 | 2c 23 31 30 30 0d 03 70 |VNGT R10|,#100..p|
|00000670| 13 20 20 53 55 42 53 20 | 52 39 2c 52 39 2c 23 33 |.  SUBS |R9,R9,#3|
|00000680| 0d 03 7a 13 20 20 4d 4f | 56 4c 54 20 52 39 2c 23 |..z.  MO|VLT R9,#|
|00000690| 33 36 30 0d 03 84 14 20 | 20 53 55 42 4c 54 20 52 |360.... | SUBLT R|
|000006a0| 39 2c 52 39 2c 23 33 0d | 03 8e 16 20 20 53 54 4d |9,R9,#3.|...  STM|
|000006b0| 46 44 20 52 31 33 21 2c | 7b 52 31 34 7d 0d 03 98 |FD R13!,|{R14}...|
|000006c0| 0d 20 20 42 4c 20 63 61 | 6c 6c 0d 03 a2 16 20 20 |.  BL ca|ll....  |
|000006d0| 4c 44 4d 46 44 20 52 31 | 33 21 2c 7b 52 31 34 7d |LDMFD R1|3!,{R14}|
|000006e0| 0d 03 ac 0c 20 20 42 20 | 6c 6f 6f 70 0d 03 b6 10 |....  B |loop....|
|000006f0| 20 20 4d 4f 56 20 50 43 | 2c 52 31 34 0d 03 c0 08 |  MOV PC|,R14....|
|00000700| 20 20 2e 74 0d 03 ca 0e | 20 20 44 43 44 20 36 30 |  .t....|  DCD 60|
|00000710| 30 30 0d 03 d4 07 20 20 | 5d 0d 03 de 05 ed 0d 03 |00....  |].......|
|00000720| e8 1a e7 20 62 3e 30 20 | ff 22 42 72 65 61 6b 53 |... b>0 |."BreakS|
|00000730| 65 74 20 22 2b c3 7e 62 | 0d 03 f2 0c 41 25 3d 64 |et "+.~b|....A%=d|
|00000740| 61 74 61 25 0d 03 fc 10 | e3 20 42 25 3d 30 20 b8 |ata%....|. B%=0 .|
|00000750| 20 31 30 30 0d 04 06 0b | d6 20 63 6f 64 65 25 0d | 100....|. code%.|
|00000760| 04 10 09 f5 20 fd 20 a5 | 0d 04 1a 05 ed 0d 04 24 |.... . .|.......$|
|00000770| 05 e0 0d 04 2e 04 0d 04 | 38 0e dd a4 6c 64 28 72 |........|8...ld(r|
|00000780| 65 67 25 29 0d 04 42 0e | 20 5b 4f 50 54 20 6f 70 |eg%)..B.| [OPT op|
|00000790| 74 25 0d 04 4c 1a 20 4c | 44 4d 49 41 20 72 65 67 |t%..L. L|DMIA reg|
|000007a0| 25 2c 7b 52 31 2c 52 32 | 2c 52 33 7d 0d 04 56 11 |%,{R1,R2|,R3}..V.|
|000007b0| 20 41 44 44 20 52 33 2c | 52 33 2c 52 38 0d 04 60 | ADD R3,|R3,R8..`|
|000007c0| 06 20 5d 0d 04 6a 06 3d | 30 0d 04 74 04 0d 04 7e |. ]..j.=|0..t...~|
|000007d0| 19 dd f2 73 65 74 28 61 | 25 2c 63 25 2c 78 25 2c |...set(a|%,c%,x%,|
|000007e0| 79 25 2c 7a 25 29 0d 04 | 88 1d 20 64 61 74 61 25 |y%,z%)..|.. data%|
|000007f0| 21 28 61 25 2a 36 34 2b | 63 25 2a 31 36 2b 30 29 |!(a%*64+|c%*16+0)|
|00000800| 3d 78 25 0d 04 92 1d 20 | 64 61 74 61 25 21 28 61 |=x%.... |data%!(a|
|00000810| 25 2a 36 34 2b 63 25 2a | 31 36 2b 34 29 3d 79 25 |%*64+c%*|16+4)=y%|
|00000820| 0d 04 9c 1d 20 64 61 74 | 61 25 21 28 61 25 2a 36 |.... dat|a%!(a%*6|
|00000830| 34 2b 63 25 2a 31 36 2b | 38 29 3d 7a 25 0d 04 a6 |4+c%*16+|8)=z%...|
|00000840| 39 20 f4 20 49 46 20 63 | 25 3e 30 20 4c 49 4e 45 |9 . IF c|%>0 LINE|
|00000850| 20 64 61 74 61 25 21 28 | 61 25 2a 36 34 2b 30 29 | data%!(|a%*64+0)|
|00000860| 2c 64 61 74 61 25 21 28 | 61 25 2a 36 34 2b 34 29 |,data%!(|a%*64+4)|
|00000870| 2c 78 25 2c 79 25 0d 04 | b0 05 e1 0d 04 ba 04 0d |,x%,y%..|........|
|00000880| 04 c4 0f dd f2 73 74 61 | 72 5f 69 6e 69 74 0d 04 |.....sta|r_init..|
|00000890| ce 0e 6d 61 78 73 25 3d | 31 30 30 30 0d 04 d8 1a |..maxs%=|1000....|
|000008a0| de 20 6d 63 6f 64 65 25 | 20 32 35 36 2b 6d 61 78 |. mcode%| 256+max|
|000008b0| 73 25 2a 33 32 30 0d 04 | e2 17 c8 99 36 2c 31 31 |s%*320..|....6,11|
|000008c0| 32 2c 31 3a c8 99 36 2c | 31 31 33 2c 32 0d 04 ec |2,1:..6,|113,2...|
|000008d0| 28 21 6d 63 6f 64 65 25 | 3d 31 34 39 3a 6d 63 6f |(!mcode%|=149:mco|
|000008e0| 64 65 25 21 34 3d 31 34 | 38 3a 6d 63 6f 64 65 25 |de%!4=14|8:mcode%|
|000008f0| 21 38 3d 2d 31 0d 04 f6 | 17 c8 99 26 33 31 2c 6d |!8=-1...|...&31,m|
|00000900| 63 6f 64 65 25 2c 6d 63 | 6f 64 65 25 0d 05 00 0d |code%,mc|ode%....|
|00000910| c8 99 36 2c 31 31 33 2c | 31 0d 05 0a 26 73 63 72 |..6,113,|1...&scr|
|00000920| 65 65 6e 30 25 3d 21 6d | 63 6f 64 65 25 3a 73 63 |een0%=!m|code%:sc|
|00000930| 72 65 65 6e 31 25 3d 6d | 63 6f 64 65 25 21 34 0d |reen1%=m|code%!4.|
|00000940| 05 14 08 f2 61 73 73 0d | 05 1e 11 e3 20 44 73 25 |....ass.|.... Ds%|
|00000950| 3d 30 20 b8 20 39 39 39 | 0d 05 28 23 78 25 3d b3 |=0 . 999|..(#x%=.|
|00000960| 28 36 34 30 29 2d 31 3a | 79 25 3d b3 28 32 35 34 |(640)-1:|y%=.(254|
|00000970| 29 3a 73 25 3d b3 28 36 | 2a 38 29 0d 05 32 23 78 |):s%=.(6|*8)..2#x|
|00000980| 32 25 3d 28 78 25 2d 28 | 2d 73 25 29 2b 36 34 30 |2%=(x%-(|-s%)+640|
|00000990| 29 83 36 34 30 3a 73 25 | 3d 34 38 2d 73 25 0d 05 |).640:s%|=48-s%..|
|000009a0| 3c 0d c8 8e 20 b3 28 35 | 29 20 ca 0d 05 46 2e c9 |<... .(5|) ...F..|
|000009b0| 20 31 2c 33 20 3a 20 f2 | 73 28 78 25 2c 79 25 2c | 1,3 : .|s(x%,y%,|
|000009c0| 31 2c 73 25 2f 38 29 3a | f2 73 28 78 32 25 2c 79 |1,s%/8):|.s(x2%,y|
|000009d0| 25 2c 32 2c 73 25 2f 38 | 29 0d 05 50 30 c9 20 32 |%,2,s%/8|)..P0. 2|
|000009e0| 2c 34 20 3a 20 f2 73 32 | 28 78 25 2c 79 25 2c 31 |,4 : .s2|(x%,y%,1|
|000009f0| 2c 73 25 2f 38 29 3a f2 | 73 32 28 78 32 25 2c 79 |,s%/8):.|s2(x2%,y|
|00000a00| 25 2c 32 2c 73 25 2f 38 | 29 0d 05 5a 2e c9 20 35 |%,2,s%/8|)..Z.. 5|
|00000a10| 20 3a 20 f2 73 33 28 78 | 25 2c 79 25 2c 31 2c 73 | : .s3(x|%,y%,1,s|
|00000a20| 25 2f 38 29 3a f2 73 33 | 28 78 32 25 2c 79 25 2c |%/8):.s3|(x2%,y%,|
|00000a30| 32 2c 73 25 2f 38 29 0d | 05 64 05 cb 0d 05 6e 05 |2,s%/8).|.d....n.|
|00000a40| ed 0d 05 78 27 78 70 6f | 73 25 3d b3 28 36 34 30 |...x'xpo|s%=.(640|
|00000a50| 29 2d 31 3a 79 70 6f 73 | 25 3d 28 b3 28 32 35 36 |)-1:ypos|%=(.(256|
|00000a60| 29 2d 31 29 2a 31 36 30 | 0d 05 82 11 73 70 64 25 |)-1)*160|....spd%|
|00000a70| 3d 31 3a 63 6f 6c 25 3d | 33 0d 05 8c 05 e1 0d 05 |=1:col%=|3.......|
|00000a80| 96 05 f5 0d 05 a0 08 c8 | 96 3a db 0d 05 aa 16 43 |........|.:.....C|
|00000a90| 25 3d 73 63 72 65 65 6e | 30 25 3a d6 20 63 61 6c |%=screen|0%:. cal|
|00000aa0| 6c 0d 05 b4 07 fd 20 30 | 0d 05 be 04 0d 05 c8 09 |l..... 0|........|
|00000ab0| dd f2 61 73 73 0d 05 d2 | 15 20 e3 20 6f 70 74 25 |..ass...|. . opt%|
|00000ac0| 3d 30 20 b8 20 32 20 88 | 20 32 0d 05 dc 0e 20 50 |=0 . 2 .| 2.... P|
|00000ad0| 25 3d 6d 63 6f 64 65 25 | 0d 05 e6 36 20 63 6f 6c |%=mcode%|...6 col|
|00000ae0| 25 3d 33 3a 78 70 6f 73 | 25 3d 34 3a 79 70 6f 73 |%=3:xpos|%=4:ypos|
|00000af0| 25 3d 35 3a 73 70 64 25 | 3d 36 3a 61 64 25 3d 37 |%=5:spd%|=6:ad%=7|
|00000b00| 3a 72 6f 6c 25 3d 38 3a | 6f 6c 64 25 3d 39 0d 05 |:rol%=8:|old%=9..|
|00000b10| f0 0e 20 5b 4f 50 54 20 | 6f 70 74 25 0d 05 fa 0b |.. [OPT |opt%....|
|00000b20| 20 2e 73 63 72 6e 31 0d | 06 04 11 20 44 43 44 20 | .scrn1.|... DCD |
|00000b30| 73 63 72 65 65 6e 30 25 | 0d 06 0e 0b 20 2e 73 63 |screen0%|.... .sc|
|00000b40| 72 6e 32 0d 06 18 11 20 | 44 43 44 20 73 63 72 65 |rn2.... |DCD scre|
|00000b50| 65 6e 31 25 0d 06 22 0b | 20 2e 73 74 61 72 73 0d |en1%..".| .stars.|
|00000b60| 06 2c 0a 20 44 43 44 20 | 30 0d 06 36 0a 20 2e 63 |.,. DCD |0..6. .c|
|00000b70| 61 6c 6c 0d 06 40 11 20 | 4c 44 52 20 52 32 2c 73 |all..@. |LDR R2,s|
|00000b80| 63 72 6e 31 0d 06 4a 11 | 20 4c 44 52 20 52 33 2c |crn1..J.| LDR R3,|
|00000b90| 73 63 72 6e 32 0d 06 54 | 11 20 53 54 52 20 52 32 |scrn2..T|. STR R2|
|00000ba0| 2c 73 63 72 6e 32 0d 06 | 5e 11 20 53 54 52 20 52 |,scrn2..|^. STR R|
|00000bb0| 33 2c 73 63 72 6e 31 0d | 06 68 18 20 53 54 4d 46 |3,scrn1.|.h. STMF|
|00000bc0| 44 20 52 31 33 21 2c 7b | 52 30 2d 52 31 32 7d 0d |D R13!,{|R0-R12}.|
|00000bd0| 06 72 15 20 41 44 52 20 | 52 30 2c 73 74 61 72 5f |.r. ADR |R0,star_|
|00000be0| 64 61 74 61 0d 06 7c 11 | 20 4c 44 52 20 52 31 2c |data..|.| LDR R1,|
|00000bf0| 73 74 61 72 73 0d 06 86 | 08 20 2e 6c 70 0d 06 90 |stars...|. .lp...|
|00000c00| 26 20 4c 44 4d 49 41 20 | 52 30 21 2c 7b 63 6f 6c |& LDMIA |R0!,{col|
|00000c10| 25 2c 78 70 6f 73 25 2c | 79 70 6f 73 25 2c 73 70 |%,xpos%,|ypos%,sp|
|00000c20| 64 25 7d 0d 06 9a 1e 20 | 41 44 44 20 61 64 25 2c |d%}.... |ADD ad%,|
|00000c30| 79 70 6f 73 25 2c 78 70 | 6f 73 25 2c 4c 53 52 23 |ypos%,xp|os%,LSR#|
|00000c40| 32 0d 06 a4 14 20 80 20 | 72 6f 6c 25 2c 78 70 6f |2.... . |rol%,xpo|
|00000c50| 73 25 2c 23 33 0d 06 ae | 18 20 4d 4f 56 20 72 6f |s%,#3...|. MOV ro|
|00000c60| 6c 25 2c 72 6f 6c 25 2c | 4c 53 4c 23 31 0d 06 b8 |l%,rol%,|LSL#1...|
|00000c70| 17 20 4c 44 52 42 20 6f | 6c 64 25 2c 5b 52 32 2c |. LDRB o|ld%,[R2,|
|00000c80| 61 64 25 5d 0d 06 c2 0f | 20 4d 4f 56 20 52 31 32 |ad%]....| MOV R12|
|00000c90| 2c 23 33 0d 06 cc 20 20 | 3b 42 49 43 20 6f 6c 64 |,#3...  |;BIC old|
|00000ca0| 25 2c 6f 6c 64 25 2c 52 | 31 32 2c 4c 53 4c 20 72 |%,old%,R|12,LSL r|
|00000cb0| 6f 6c 25 0d 06 d6 1f 20 | 84 52 20 6f 6c 64 25 2c |ol%.... |.R old%,|
|00000cc0| 6f 6c 64 25 2c 63 6f 6c | 25 2c 4c 53 4c 20 72 6f |old%,col|%,LSL ro|
|00000cd0| 6c 25 0d 06 e0 17 20 53 | 54 52 42 20 6f 6c 64 25 |l%.... S|TRB old%|
|00000ce0| 2c 5b 52 32 2c 61 64 25 | 5d 0d 06 ea 1a 20 53 55 |,[R2,ad%|].... SU|
|00000cf0| 42 53 20 78 70 6f 73 25 | 2c 78 70 6f 73 25 2c 73 |BS xpos%|,xpos%,s|
|00000d00| 70 64 25 0d 06 f4 1b 20 | 41 44 44 4c 54 20 78 70 |pd%.... |ADDLT xp|
|00000d10| 6f 73 25 2c 78 70 6f 73 | 25 2c 23 36 34 30 0d 06 |os%,xpos|%,#640..|
|00000d20| fe 18 20 53 54 52 20 78 | 70 6f 73 25 2c 5b 52 30 |.. STR x|pos%,[R0|
|00000d30| 2c 23 2d 31 32 5d 0d 07 | 08 12 20 53 55 42 53 20 |,#-12]..|.. SUBS |
|00000d40| 52 31 2c 52 31 2c 23 31 | 0d 07 12 0b 20 42 47 54 |R1,R1,#1|.... BGT|
|00000d50| 20 6c 70 0d 07 1c 18 20 | 4c 44 4d 46 44 20 52 31 | lp.... |LDMFD R1|
|00000d60| 33 21 2c 7b 52 30 2d 52 | 31 32 7d 0d 07 26 10 20 |3!,{R0-R|12}..&. |
|00000d70| 4d 4f 56 53 20 50 43 2c | 52 31 34 0d 07 30 0f 20 |MOVS PC,|R14..0. |
|00000d80| 2e 73 74 61 72 5f 64 61 | 74 61 0d 07 3a 08 20 5d |.star_da|ta..:. ]|
|00000d90| 3a ed 0d 07 44 05 e1 0d | 07 4e 04 0d 07 58 18 dd |:...D...|.N...X..|
|00000da0| f2 73 28 78 25 2c 79 25 | 2c 63 6f 6c 25 2c 73 70 |.s(x%,y%|,col%,sp|
|00000db0| 64 25 29 0d 07 62 13 20 | ea 20 6e 25 3a 6e 25 3d |d%)..b. |. n%:n%=|
|00000dc0| 21 73 74 61 72 73 0d 07 | 6c 14 20 e7 20 73 70 64 |!stars..|l. . spd|
|00000dd0| 25 3c 31 20 73 70 64 25 | 3d 31 0d 07 76 14 20 78 |%<1 spd%|=1..v. x|
|00000de0| 25 3d 28 78 25 2b 36 34 | 30 29 83 36 34 30 0d 07 |%=(x%+64|0).640..|
|00000df0| 80 1b 20 6e 25 3d 6e 25 | 2a 31 36 3a 6e 25 2b 3d |.. n%=n%|*16:n%+=|
|00000e00| 73 74 61 72 5f 64 61 74 | 61 0d 07 8a 2d 20 6e 25 |star_dat|a...- n%|
|00000e10| 21 30 3d 63 6f 6c 25 3a | 6e 25 21 34 3d 78 25 3a |!0=col%:|n%!4=x%:|
|00000e20| 6e 25 21 38 3d 79 25 2a | 31 36 30 3a 6e 25 21 31 |n%!8=y%*|160:n%!1|
|00000e30| 32 3d 73 70 64 25 0d 07 | 94 14 20 21 73 74 61 72 |2=spd%..|.. !star|
|00000e40| 73 3d 21 73 74 61 72 73 | 2b 31 0d 07 9e 05 e1 0d |s=!stars|+1......|
|00000e50| 07 a8 04 0d 07 b2 19 dd | f2 73 32 28 78 25 2c 79 |........|.s2(x%,y|
|00000e60| 25 2c 63 6f 6c 25 2c 73 | 70 64 25 29 0d 07 bc 2e |%,col%,s|pd%)....|
|00000e70| 20 f2 73 28 78 25 2c 79 | 25 2c 63 6f 6c 25 2c 73 | .s(x%,y|%,col%,s|
|00000e80| 70 64 25 29 3a f2 73 28 | 78 25 2b 31 2c 79 25 2c |pd%):.s(|x%+1,y%,|
|00000e90| 63 6f 6c 25 2c 73 70 64 | 25 29 0d 07 c6 05 e1 0d |col%,spd|%)......|
|00000ea0| 07 d0 04 0d 07 da 19 dd | f2 73 33 28 78 25 2c 79 |........|.s3(x%,y|
|00000eb0| 25 2c 63 6f 6c 25 2c 73 | 70 64 25 29 0d 07 e4 2e |%,col%,s|pd%)....|
|00000ec0| 20 f2 73 28 78 25 2c 79 | 25 2c 63 6f 6c 25 2c 73 | .s(x%,y|%,col%,s|
|00000ed0| 70 64 25 29 3a f2 73 28 | 78 25 2b 31 2c 79 25 2c |pd%):.s(|x%+1,y%,|
|00000ee0| 63 6f 6c 25 2c 73 70 64 | 25 29 0d 07 ee 30 20 f2 |col%,spd|%)...0 .|
|00000ef0| 73 28 78 25 2d 31 2c 79 | 25 2c 63 6f 6c 25 2c 73 |s(x%-1,y|%,col%,s|
|00000f00| 70 64 25 29 3a f2 73 28 | 78 25 2c 79 25 2b 31 2c |pd%):.s(|x%,y%+1,|
|00000f10| 63 6f 6c 25 2c 73 70 64 | 25 29 0d 07 f8 1a 20 f2 |col%,spd|%).... .|
|00000f20| 73 28 78 25 2c 79 25 2d | 31 2c 63 6f 6c 25 2c 73 |s(x%,y%-|1,col%,s|
|00000f30| 70 64 25 29 0d 08 02 05 | e1 0d 08 0c 04 0d 08 16 |pd%)....|........|
|00000f40| 0d dd f2 67 65 74 63 6f | 6c 73 0d 08 20 08 20 ea |...getco|ls.. . .|
|00000f50| 20 85 0d 08 2a 0c 20 ee | 20 85 20 ea 20 e1 0d 08 | ...*. .| . . ...|
|00000f60| 34 12 20 de 20 63 6f 6c | 63 6f 64 65 25 20 31 32 |4. . col|code% 12|
|00000f70| 0d 08 3e 27 20 c8 99 26 | 32 33 2c 22 33 44 45 79 |..>' ..&|23,"3DEy|
|00000f80| 65 24 4c 65 66 74 22 2c | 63 6f 6c 63 6f 64 65 25 |e$Left",|colcode%|
|00000f90| 2c 31 32 2c 30 2c 30 0d | 08 48 19 20 72 31 25 3d |,12,0,0.|.H. r1%=|
|00000fa0| 31 36 2a a4 63 63 28 30 | 29 2b a4 63 63 28 31 29 |16*.cc(0|)+.cc(1)|
|00000fb0| 0d 08 52 19 20 67 31 25 | 3d 31 36 2a a4 63 63 28 |..R. g1%|=16*.cc(|
|00000fc0| 32 29 2b a4 63 63 28 33 | 29 0d 08 5c 19 20 62 31 |2)+.cc(3|)..\. b1|
|00000fd0| 25 3d 31 36 2a a4 63 63 | 28 34 29 2b a4 63 63 28 |%=16*.cc|(4)+.cc(|
|00000fe0| 35 29 0d 08 66 27 c8 99 | 26 32 33 2c 22 33 44 45 |5)..f'..|&23,"3DE|
|00000ff0| 79 65 24 52 69 67 68 74 | 22 2c 63 6f 6c 63 6f 64 |ye$Right|",colcod|
|00001000| 65 25 2c 31 32 2c 30 2c | 30 0d 08 70 19 20 72 32 |e%,12,0,|0..p. r2|
|00001010| 25 3d 31 36 2a a4 63 63 | 28 30 29 2b a4 63 63 28 |%=16*.cc|(0)+.cc(|
|00001020| 31 29 0d 08 7a 19 20 67 | 32 25 3d 31 36 2a a4 63 |1)..z. g|2%=16*.c|
|00001030| 63 28 32 29 2b a4 63 63 | 28 33 29 0d 08 84 19 20 |c(2)+.cc|(3).... |
|00001040| 62 32 25 3d 31 36 2a a4 | 63 63 28 34 29 2b a4 63 |b2%=16*.|cc(4)+.c|
|00001050| 63 28 35 29 0d 08 8e 05 | e1 0d 08 98 04 0d 08 a2 |c(5)....|........|
|00001060| 0e dd a4 63 63 28 70 6f | 73 25 29 0d 08 ac 2a 20 |...cc(po|s%)...* |
|00001070| e7 20 63 6f 6c 63 6f 64 | 65 25 3f 70 6f 73 25 3e |. colcod|e%?pos%>|
|00001080| 3d 36 35 20 3d 63 6f 6c | 63 6f 64 65 25 3f 70 6f |=65 =col|code%?po|
|00001090| 73 25 2d 35 35 0d 08 b6 | 15 3d 63 6f 6c 63 6f 64 |s%-55...|.=colcod|
|000010a0| 65 25 3f 70 6f 73 25 2d | 34 38 0d ff             |e%?pos%-|48..    |
+--------+-------------------------+-------------------------+--------+--------+