/ RISCWORLD 3 / RISCWORLD_VOL3.iso / SOFTWARE / AGM / Circles

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0f f4 20 3e 20 | 43 69 72 63 6c 65 73 0d |..... > |Circles.|
|00000010| 00 14 05 3a 0d 00 1e 21 | f4 20 41 25 20 3d 20 58 |...:...!|. A% = X|
|00000020| 20 63 6f 2d 6f 72 64 69 | 6e 61 74 65 20 69 6e 20 | co-ordi|nate in |
|00000030| 62 79 74 65 73 0d 00 28 | 21 f4 20 42 25 20 3d 20 |bytes..(|!. B% = |
|00000040| 59 20 63 6f 2d 6f 72 64 | 69 6e 61 74 65 20 69 6e |Y co-ord|inate in|
|00000050| 20 6c 69 6e 65 73 0d 00 | 32 1a f4 20 43 25 20 3d | lines..|2.. C% =|
|00000060| 20 72 61 64 69 75 73 20 | 69 6e 20 62 79 74 65 73 | radius |in bytes|
|00000070| 0d 00 3c 1a f4 20 44 25 | 20 3d 20 61 62 73 6f 6c |..<.. D%| = absol|
|00000080| 75 74 65 20 63 6f 6c 6f | 75 72 0d 00 46 05 3a 0d |ute colo|ur..F.:.|
|00000090| 00 50 10 ee 20 85 20 f2 | 65 72 72 6f 72 3a e0 0d |.P.. . .|error:..|
|000000a0| 00 5a 0f f2 69 6e 69 74 | 69 61 6c 69 73 65 0d 00 |.Z..init|ialise..|
|000000b0| 64 0d f2 61 73 73 65 6d | 62 6c 65 0d 00 6e 05 f5 |d..assem|ble..n..|
|000000c0| 0d 00 78 11 44 25 3d 31 | 35 2b b3 28 34 37 29 2a |..x.D%=1|5+.(47)*|
|000000d0| 34 0d 00 82 0f 43 25 3d | 35 2b b3 28 31 32 38 29 |4....C%=|5+.(128)|
|000000e0| 0d 00 8c 14 41 25 3d 43 | 25 81 32 2b b3 28 46 25 |....A%=C|%.2+.(F%|
|000000f0| 2d 43 25 29 0d 00 96 14 | 42 25 3d 43 25 81 32 2b |-C%)....|B%=C%.2+|
|00000100| b3 28 47 25 2d 43 25 29 | 0d 00 a0 0c e7 a6 2d 39 |.(G%-C%)|......-9|
|00000110| 39 20 c8 96 0d 00 aa 0b | d6 20 63 6f 64 65 25 0d |9 ......|. code%.|
|00000120| 00 b4 07 fd 20 a3 0d 00 | be 05 3a 0d 00 c8 0c dd |.... ...|..:.....|
|00000130| 20 f2 65 72 72 6f 72 0d | 00 d2 08 eb 20 31 32 0d | .error.|.... 12.|
|00000140| 00 dc 18 e7 20 9f 3c 3e | 31 37 20 f1 20 f6 24 20 |.... .<>|17 . .$ |
|00000150| 22 20 40 20 22 3b 9e 0d | 00 e6 05 e1 0d 00 f0 05 |" @ ";..|........|
|00000160| 3a 0d 00 fa 11 dd 20 f2 | 69 6e 69 74 69 61 6c 69 |:..... .|initiali|
|00000170| 73 65 0d 01 04 08 eb 20 | 31 33 0d 01 0e 05 87 0d |se..... |13......|
|00000180| 01 18 78 f1 20 8a 31 33 | 2c 36 29 20 22 46 61 73 |..x. .13|,6) "Fas|
|00000190| 74 20 43 69 72 63 6c 65 | 73 22 20 8a 38 2c 31 32 |t Circle|s" .8,12|
|000001a0| 29 20 22 50 72 65 73 73 | 20 61 6e 79 20 6b 65 79 |) "Press| any key|
|000001b0| 20 74 6f 20 73 74 61 72 | 74 22 20 8a 36 2c 31 34 | to star|t" .6,14|
|000001c0| 29 20 22 48 6f 6c 64 20 | 53 70 61 63 65 62 61 72 |) "Hold |Spacebar|
|000001d0| 20 74 6f 20 73 6c 6f 77 | 20 64 6f 77 6e 22 20 8a | to slow| down" .|
|000001e0| 31 32 2c 31 36 29 20 22 | 45 73 63 61 70 65 20 74 |12,16) "|Escape t|
|000001f0| 6f 20 73 74 6f 70 22 0d | 01 22 07 e7 20 a5 0d 01 |o stop".|.".. ...|
|00000200| 2c 05 e1 0d 01 36 05 3a | 0d 01 40 0f dd 20 f2 61 |,....6.:|..@.. .a|
|00000210| 73 73 65 6d 62 6c 65 0d | 01 4a 0f de 20 62 6c 6f |ssemble.|.J.. blo|
|00000220| 63 6b 25 20 32 37 0d 01 | 54 0f 21 62 6c 6f 63 6b |ck% 27..|T.!block|
|00000230| 25 3d 31 34 39 0d 01 5e | 0e 62 6c 6f 63 6b 25 21 |%=149..^|.block%!|
|00000240| 34 3d 36 0d 01 68 0e 62 | 6c 6f 63 6b 25 21 38 3d |4=6..h.b|lock%!8=|
|00000250| 37 0d 01 72 10 62 6c 6f | 63 6b 25 21 31 32 3d 2d |7..r.blo|ck%!12=-|
|00000260| 31 0d 01 7c 2d c8 99 20 | 22 4f 53 5f 52 65 61 64 |1..|-.. |"OS_Read|
|00000270| 56 64 75 56 61 72 69 61 | 62 6c 65 73 22 2c 62 6c |VduVaria|bles",bl|
|00000280| 6f 63 6b 25 2c 62 6c 6f | 63 6b 25 2b 31 36 0d 01 |ock%,blo|ck%+16..|
|00000290| 86 28 45 25 3d 62 6c 6f | 63 6b 25 21 31 36 20 20 |.(E%=blo|ck%!16  |
|000002a0| 20 20 20 20 20 20 20 3a | 20 f4 20 73 63 72 65 65 |       :| . scree|
|000002b0| 6e 20 62 61 73 65 0d 01 | 90 2b 46 25 3d 62 6c 6f |n base..|.+F%=blo|
|000002c0| 63 6b 25 21 32 30 20 20 | 20 20 20 20 20 20 20 3a |ck%!20  |       :|
|000002d0| 20 f4 20 62 79 74 65 73 | 20 70 65 72 20 6c 69 6e | . bytes| per lin|
|000002e0| 65 0d 01 9a 2a 47 25 3d | 28 62 6c 6f 63 6b 25 21 |e...*G%=|(block%!|
|000002f0| 32 34 29 81 20 46 25 20 | 3a 20 f4 20 6e 75 6d 62 |24). F% |: . numb|
|00000300| 65 72 20 6f 66 20 6c 69 | 6e 65 73 0d 01 a4 10 de |er of li|nes.....|
|00000310| 20 63 6f 64 65 25 20 26 | 31 38 30 0d 01 ae 0b 68 | code% &|180....h|
|00000320| 6f 72 69 7a 3d 30 0d 01 | b8 0b 63 6f 75 6e 74 3d |oriz=0..|..count=|
|00000330| 30 0d 01 c2 0a 76 65 72 | 74 3d 31 0d 01 cc 0d 6c |0....ver|t=1....l|
|00000340| 69 6e 65 73 71 72 3d 31 | 0d 01 d6 0c 72 61 64 69 |inesqr=1|....radi|
|00000350| 75 73 3d 32 0d 01 e0 0c | 63 6f 6c 6f 75 72 3d 33 |us=2....|colour=3|
|00000360| 0d 01 ea 0f 73 63 72 65 | 65 6e 61 64 64 3d 34 0d |....scre|enadd=4.|
|00000370| 01 f4 0b 6c 69 6e 65 73 | 3d 34 0d 01 fe 10 73 63 |...lines|=4....sc|
|00000380| 72 65 65 6e 6c 69 6e 65 | 3d 35 0d 02 08 0c 72 61 |reenline|=5....ra|
|00000390| 64 73 71 72 3d 36 0d 02 | 12 0b 75 70 70 65 72 3d |dsqr=6..|..upper=|
|000003a0| 37 0d 02 1c 0b 6c 6f 77 | 65 72 3d 38 0d 02 26 0a |7....low|er=8..&.|
|000003b0| 64 69 66 66 3d 39 0d 02 | 30 0c 73 68 69 66 74 3d |diff=9..|0.shift=|
|000003c0| 31 30 0d 02 3a 10 75 70 | 70 65 72 6c 65 66 74 3d |10..:.up|perleft=|
|000003d0| 31 31 0d 02 44 0f 6c 6f | 77 65 72 6c 65 66 74 3d |11..D.lo|werleft=|
|000003e0| 30 0d 02 4e 11 62 6c 6f | 63 6b 72 69 67 68 74 3d |0..N.blo|ckright=|
|000003f0| 31 32 0d 02 58 0b 72 69 | 67 68 74 3d 31 0d 02 62 |12..X.ri|ght=1..b|
|00000400| 0b 6c 69 6e 6b 3d 31 34 | 0d 02 6c 12 e3 20 49 25 |.link=14|..l.. I%|
|00000410| 3d 30 20 b8 20 32 20 88 | 20 32 0d 02 76 0c 50 25 |=0 . 2 .| 2..v.P%|
|00000420| 3d 63 6f 64 65 25 0d 02 | 80 0c 5b 20 4f 50 54 20 |=code%..|..[ OPT |
|00000430| 49 25 0d 02 8a 22 41 44 | 44 20 63 6f 6c 6f 75 72 |I%..."AD|D colour|
|00000440| 2c 63 6f 6c 6f 75 72 2c | 63 6f 6c 6f 75 72 2c 4c |,colour,|colour,L|
|00000450| 53 4c 23 38 0d 02 94 23 | 41 44 44 20 63 6f 6c 6f |SL#8...#|ADD colo|
|00000460| 75 72 2c 63 6f 6c 6f 75 | 72 2c 63 6f 6c 6f 75 72 |ur,colou|r,colour|
|00000470| 2c 4c 53 4c 23 31 36 0d | 02 9e 1d 41 44 44 20 75 |,LSL#16.|...ADD u|
|00000480| 70 70 65 72 2c 73 63 72 | 65 65 6e 61 64 64 2c 68 |pper,scr|eenadd,h|
|00000490| 6f 72 69 7a 0d 02 a8 1c | 4d 55 4c 20 76 65 72 74 |oriz....|MUL vert|
|000004a0| 2c 73 63 72 65 65 6e 6c | 69 6e 65 2c 76 65 72 74 |,screenl|ine,vert|
|000004b0| 0d 02 b2 18 41 44 44 20 | 75 70 70 65 72 2c 75 70 |....ADD |upper,up|
|000004c0| 70 65 72 2c 76 65 72 74 | 0d 02 bc 1e 53 55 42 20 |per,vert|....SUB |
|000004d0| 6c 6f 77 65 72 2c 75 70 | 70 65 72 2c 73 63 72 65 |lower,up|per,scre|
|000004e0| 65 6e 6c 69 6e 65 0d 02 | c6 10 4d 4f 56 20 6c 69 |enline..|..MOV li|
|000004f0| 6e 65 73 2c 23 30 0d 02 | d0 1c 4d 55 4c 20 72 61 |nes,#0..|..MUL ra|
|00000500| 64 73 71 72 2c 72 61 64 | 69 75 73 2c 72 61 64 69 |dsqr,rad|ius,radi|
|00000510| 75 73 0d 02 da 05 3b 0d | 02 e4 0d 2e 76 65 72 74 |us....;.|....vert|
|00000520| 6c 6f 6f 70 0d 02 ee 1b | 4d 55 4c 20 6c 69 6e 65 |loop....|MUL line|
|00000530| 73 71 72 2c 6c 69 6e 65 | 73 2c 6c 69 6e 65 73 0d |sqr,line|s,lines.|
|00000540| 02 f8 1c 53 55 42 20 63 | 6f 75 6e 74 2c 72 61 64 |...SUB c|ount,rad|
|00000550| 73 71 72 2c 6c 69 6e 65 | 73 71 72 0d 03 02 0f 4d |sqr,line|sqr....M|
|00000560| 4f 56 20 64 69 66 66 2c | 23 31 0d 03 0c 05 3b 0d |OV diff,|#1....;.|
|00000570| 03 16 0e 2e 77 69 64 74 | 68 6c 6f 6f 70 0d 03 20 |....widt|hloop.. |
|00000580| 14 41 44 44 20 64 69 66 | 66 2c 64 69 66 66 2c 23 |.ADD dif|f,diff,#|
|00000590| 31 0d 03 2a 34 53 55 42 | 53 20 63 6f 75 6e 74 2c |1..*4SUB|S count,|
|000005a0| 63 6f 75 6e 74 2c 64 69 | 66 66 2c 4c 53 4c 20 23 |count,di|ff,LSL #|
|000005b0| 35 20 20 3b 20 61 64 6a | 75 73 74 20 66 6f 72 20 |5  ; adj|ust for |
|000005c0| 77 69 64 74 68 0d 03 34 | 11 42 47 54 20 77 69 64 |width..4|.BGT wid|
|000005d0| 74 68 6c 6f 6f 70 0d 03 | 3e 18 41 44 44 20 72 69 |thloop..|>.ADD ri|
|000005e0| 67 68 74 2c 6c 6f 77 65 | 72 2c 64 69 66 66 0d 03 |ght,lowe|r,diff..|
|000005f0| 48 1c 53 55 42 20 75 70 | 70 65 72 6c 65 66 74 2c |H.SUB up|perleft,|
|00000600| 75 70 70 65 72 2c 64 69 | 66 66 0d 03 52 1c 53 55 |upper,di|ff..R.SU|
|00000610| 42 20 6c 6f 77 65 72 6c | 65 66 74 2c 6c 6f 77 65 |B lowerl|eft,lowe|
|00000620| 72 2c 64 69 66 66 0d 03 | 5c 19 80 53 20 73 68 69 |r,diff..|\..S shi|
|00000630| 66 74 2c 6c 6f 77 65 72 | 6c 65 66 74 2c 23 33 0d |ft,lower|left,#3.|
|00000640| 03 66 0d 42 45 51 20 62 | 6c 6f 63 6b 0d 03 70 16 |.f.BEQ b|lock..p.|
|00000650| 52 53 42 20 73 68 69 66 | 74 2c 73 68 69 66 74 2c |RSB shif|t,shift,|
|00000660| 23 34 0d 03 7a 1c 53 55 | 42 20 64 69 66 66 2c 72 |#4..z.SU|B diff,r|
|00000670| 69 67 68 74 2c 6c 6f 77 | 65 72 6c 65 66 74 0d 03 |ight,low|erleft..|
|00000680| 84 12 43 4d 50 20 64 69 | 66 66 2c 73 68 69 66 74 |..CMP di|ff,shift|
|00000690| 0d 03 8e 14 4d 4f 56 4c | 54 20 73 68 69 66 74 2c |....MOVL|T shift,|
|000006a0| 64 69 66 66 0d 03 98 05 | 3b 0d 03 a2 0d 2e 6c 65 |diff....|;.....le|
|000006b0| 66 74 6c 6f 6f 70 0d 03 | ac 1e 53 54 52 42 20 63 |ftloop..|..STRB c|
|000006c0| 6f 6c 6f 75 72 2c 5b 6c | 6f 77 65 72 6c 65 66 74 |olour,[l|owerleft|
|000006d0| 5d 2c 23 31 0d 03 b6 1e | 53 54 52 42 20 63 6f 6c |],#1....|STRB col|
|000006e0| 6f 75 72 2c 5b 75 70 70 | 65 72 6c 65 66 74 5d 2c |our,[upp|erleft],|
|000006f0| 23 31 0d 03 c0 17 53 55 | 42 53 20 73 68 69 66 74 |#1....SU|BS shift|
|00000700| 2c 73 68 69 66 74 2c 23 | 31 0d 03 ca 10 42 4e 45 |,shift,#|1....BNE|
|00000710| 20 6c 65 66 74 6c 6f 6f | 70 0d 03 d4 0f 43 4d 50 | leftloo|p....CMP|
|00000720| 20 64 69 66 66 2c 23 34 | 0d 03 de 0e 42 4c 54 20 | diff,#4|....BLT |
|00000730| 6e 6f 6d 6f 72 65 0d 03 | e8 05 3b 0d 03 f2 0a 2e |nomore..|..;.....|
|00000740| 62 6c 6f 63 6b 0d 03 fc | 1b 53 55 42 20 62 6c 6f |block...|.SUB blo|
|00000750| 63 6b 72 69 67 68 74 2c | 72 69 67 68 74 2c 23 34 |ckright,|right,#4|
|00000760| 0d 04 06 1c 43 4d 50 20 | 6c 6f 77 65 72 6c 65 66 |....CMP |lowerlef|
|00000770| 74 2c 62 6c 6f 63 6b 72 | 69 67 68 74 0d 04 10 11 |t,blockr|ight....|
|00000780| 42 47 45 20 72 69 67 68 | 74 6c 6f 6f 70 0d 04 1a |BGE righ|tloop...|
|00000790| 05 3b 0d 04 24 0d 2e 6d | 61 69 6e 6c 6f 6f 70 0d |.;..$..m|ainloop.|
|000007a0| 04 2e 1d 53 54 52 20 63 | 6f 6c 6f 75 72 2c 5b 6c |...STR c|olour,[l|
|000007b0| 6f 77 65 72 6c 65 66 74 | 5d 2c 23 34 0d 04 38 1d |owerleft|],#4..8.|
|000007c0| 53 54 52 20 63 6f 6c 6f | 75 72 2c 5b 75 70 70 65 |STR colo|ur,[uppe|
|000007d0| 72 6c 65 66 74 5d 2c 23 | 34 0d 04 42 1c 43 4d 50 |rleft],#|4..B.CMP|
|000007e0| 20 6c 6f 77 65 72 6c 65 | 66 74 2c 62 6c 6f 63 6b | lowerle|ft,block|
|000007f0| 72 69 67 68 74 0d 04 4c | 10 42 4c 54 20 6d 61 69 |right..L|.BLT mai|
|00000800| 6e 6c 6f 6f 70 0d 04 56 | 05 3b 0d 04 60 0e 2e 72 |nloop..V|.;..`..r|
|00000810| 69 67 68 74 6c 6f 6f 70 | 0d 04 6a 1e 53 54 52 42 |ightloop|..j.STRB|
|00000820| 20 63 6f 6c 6f 75 72 2c | 5b 6c 6f 77 65 72 6c 65 | colour,|[lowerle|
|00000830| 66 74 5d 2c 23 31 0d 04 | 74 1e 53 54 52 42 20 63 |ft],#1..|t.STRB c|
|00000840| 6f 6c 6f 75 72 2c 5b 75 | 70 70 65 72 6c 65 66 74 |olour,[u|pperleft|
|00000850| 5d 2c 23 31 0d 04 7e 17 | 43 4d 50 20 6c 6f 77 65 |],#1..~.|CMP lowe|
|00000860| 72 6c 65 66 74 2c 72 69 | 67 68 74 0d 04 88 11 42 |rleft,ri|ght....B|
|00000870| 4c 54 20 72 69 67 68 74 | 6c 6f 6f 70 0d 04 92 05 |LT right|loop....|
|00000880| 3b 0d 04 9c 0b 2e 6e 6f | 6d 6f 72 65 0d 04 a6 1e |;.....no|more....|
|00000890| 41 44 44 20 75 70 70 65 | 72 2c 75 70 70 65 72 2c |ADD uppe|r,upper,|
|000008a0| 73 63 72 65 65 6e 6c 69 | 6e 65 0d 04 b0 1e 53 55 |screenli|ne....SU|
|000008b0| 42 20 6c 6f 77 65 72 2c | 6c 6f 77 65 72 2c 73 63 |B lower,|lower,sc|
|000008c0| 72 65 65 6e 6c 69 6e 65 | 0d 04 ba 05 3b 0d 04 c4 |reenline|....;...|
|000008d0| 16 41 44 44 20 6c 69 6e | 65 73 2c 6c 69 6e 65 73 |.ADD lin|es,lines|
|000008e0| 2c 23 34 0d 04 ce 14 43 | 4d 50 20 6c 69 6e 65 73 |,#4....C|MP lines|
|000008f0| 2c 72 61 64 69 75 73 0d | 04 d8 10 42 4c 45 20 76 |,radius.|...BLE v|
|00000900| 65 72 74 6c 6f 6f 70 0d | 04 e2 0f 4d 4f 56 20 50 |ertloop.|...MOV P|
|00000910| 43 2c 6c 69 6e 6b 0d 04 | ec 05 5d 0d 04 f6 05 ed |C,link..|..].....|
|00000920| 0d 05 00 05 e1 0d ff    |                         |....... |        |
+--------+-------------------------+-------------------------+--------+--------+