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

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 12 f4 20 3e 20 | 52 65 66 6c 65 63 74 69 |..... > |Reflecti|
|00000010| 6f 6e 0d 00 14 05 3a 0d | 00 1e 10 ee 20 85 20 f2 |on....:.|.... . .|
|00000020| 65 72 72 6f 72 3a e0 0d | 00 28 0f f2 69 6e 69 74 |error:..|.(..init|
|00000030| 69 61 6c 69 73 65 0d 00 | 32 0d f2 61 73 73 65 6d |ialise..|2..assem|
|00000040| 62 6c 65 0d 00 3c 0b e7 | 20 a6 20 31 35 30 0d 00 |ble..<..| . 150..|
|00000050| 46 05 f5 0d 00 50 11 e3 | 20 49 25 3d 30 20 b8 20 |F....P..| I%=0 . |
|00000060| 6e 75 6d 25 0d 00 5a 0c | e6 20 63 25 28 49 25 29 |num%..Z.|. c%(I%)|
|00000070| 0d 00 64 1e c8 8f 20 c8 | 90 20 78 25 28 49 25 29 |..d... .|. x%(I%)|
|00000080| 2c 79 25 28 49 25 29 2c | 73 25 28 49 25 29 0d 00 |,y%(I%),|s%(I%)..|
|00000090| 6e 23 e7 20 94 20 78 25 | 28 49 25 29 3e 36 34 30 |n#. . x%|(I%)>640|
|000000a0| 20 64 78 25 28 49 25 29 | 3d 2d 64 78 25 28 49 25 | dx%(I%)|=-dx%(I%|
|000000b0| 29 0d 00 78 23 e7 20 94 | 20 79 25 28 49 25 29 3e |)..x#. .| y%(I%)>|
|000000c0| 35 31 32 20 64 79 25 28 | 49 25 29 3d 2d 64 79 25 |512 dy%(|I%)=-dy%|
|000000d0| 28 49 25 29 0d 00 82 05 | ed 0d 00 8c 13 78 25 28 |(I%)....|.....x%(|
|000000e0| 29 3d 78 25 28 29 2b 64 | 78 25 28 29 0d 00 96 13 |)=x%()+d|x%()....|
|000000f0| 79 25 28 29 3d 79 25 28 | 29 2b 64 79 25 28 29 0d |y%()=y%(|)+dy%().|
|00000100| 00 a0 0e 46 25 3d ba 20 | 63 6f 64 65 25 0d 00 aa |...F%=. |code%...|
|00000110| 07 fd 20 a3 0d 00 b4 05 | e0 0d 00 be 05 3a 0d 00 |.. .....|.....:..|
|00000120| c8 0c dd 20 f2 65 72 72 | 6f 72 0d 00 d2 08 eb 20 |... .err|or..... |
|00000130| 31 32 0d 00 dc 18 e7 20 | 9f 3c 3e 31 37 20 f1 20 |12..... |.<>17 . |
|00000140| f6 24 20 22 20 40 20 22 | 3b 9e 0d 00 e6 05 e1 0d |.$ " @ "|;.......|
|00000150| 00 f0 05 3a 0d 00 fa 11 | dd 20 f2 69 6e 69 74 69 |...:....|. .initi|
|00000160| 61 6c 69 73 65 0d 01 04 | 08 eb 20 31 35 0d 01 0e |alise...|.. 15...|
|00000170| 08 eb 20 31 33 0d 01 18 | 05 87 0d 01 22 4e f1 20 |.. 13...|...."N. |
|00000180| 8a 39 2c 39 29 20 22 53 | 63 72 65 65 6e 20 52 65 |.9,9) "S|creen Re|
|00000190| 66 6c 65 63 74 69 6f 6e | 22 20 8a 31 32 2c 31 33 |flection|" .12,13|
|000001a0| 29 20 22 50 6c 65 61 73 | 65 20 77 61 69 74 22 20 |) "Pleas|e wait" |
|000001b0| 8a 31 31 2c 31 37 29 20 | 22 45 73 63 61 70 65 20 |.11,17) |"Escape |
|000001c0| 74 6f 20 73 74 6f 70 22 | 0d 01 2c 11 fb 20 31 32 |to stop"|..,.. 12|
|000001d0| 38 2b 25 31 30 30 30 30 | 30 0d 01 36 0f de 20 62 |8+%10000|0..6.. b|
|000001e0| 6c 6f 63 6b 25 20 32 37 | 0d 01 40 2e 62 6c 6f 63 |lock% 27|..@.bloc|
|000001f0| 6b 25 21 30 3d 31 34 39 | 3a 20 20 20 20 20 20 20 |k%!0=149|:       |
|00000200| 20 f4 20 73 63 72 65 65 | 6e 20 62 61 73 65 20 61 | . scree|n base a|
|00000210| 64 64 72 65 73 73 0d 01 | 4a 26 62 6c 6f 63 6b 25 |ddress..|J&block%|
|00000220| 21 34 3d 36 3a 20 20 20 | 20 20 20 20 20 20 20 f4 |!4=6:   |       .|
|00000230| 20 6c 69 6e 65 20 6c 65 | 6e 67 74 68 0d 01 54 26 | line le|ngth..T&|
|00000240| 62 6c 6f 63 6b 25 21 38 | 3d 37 3a 20 20 20 20 20 |block%!8|=7:     |
|00000250| 20 20 20 20 20 f4 20 73 | 63 72 65 65 6e 20 73 69 |     . s|creen si|
|00000260| 7a 65 0d 01 5e 10 62 6c | 6f 63 6b 25 21 31 32 3d |ze..^.bl|ock%!12=|
|00000270| 2d 31 0d 01 68 2d c8 99 | 20 22 4f 53 5f 52 65 61 |-1..h-..| "OS_Rea|
|00000280| 64 56 64 75 56 61 72 69 | 61 62 6c 65 73 22 2c 62 |dVduVari|ables",b|
|00000290| 6c 6f 63 6b 25 2c 62 6c | 6f 63 6b 25 2b 31 36 0d |lock%,bl|ock%+16.|
|000002a0| 01 72 10 41 25 3d 62 6c | 6f 63 6b 25 21 32 30 0d |.r.A%=bl|ock%!20.|
|000002b0| 01 7c 26 42 25 3d 41 25 | 2a 34 3a 20 20 20 20 20 |.|&B%=A%|*4:     |
|000002c0| 20 20 20 20 20 20 20 20 | f4 20 34 20 6c 69 6e 65 |        |. 4 line|
|000002d0| 20 73 74 65 70 0d 01 86 | 26 47 25 3d 62 6c 6f 63 | step...|&G%=bloc|
|000002e0| 6b 25 21 32 34 3a 20 20 | 20 20 20 20 20 20 f4 20 |k%!24:  |      . |
|000002f0| 73 63 72 65 65 6e 20 73 | 69 7a 65 0d 01 90 28 43 |screen s|ize...(C|
|00000300| 25 3d 47 25 2b 62 6c 6f | 63 6b 25 21 31 36 3a 20 |%=G%+blo|ck%!16: |
|00000310| 20 20 20 20 f4 20 65 6e | 64 20 6f 66 20 73 63 72 |    . en|d of scr|
|00000320| 65 65 6e 0d 01 9a 2c 44 | 25 3d 42 25 2b 43 25 2d |een...,D|%=B%+C%-|
|00000330| 47 25 20 81 20 34 3a 20 | 20 20 f4 20 6c 61 73 74 |G% . 4: |  . last|
|00000340| 20 71 75 61 72 74 65 72 | 20 73 63 72 65 65 6e 0d | quarter| screen.|
|00000350| 01 a4 2a 45 25 3d 26 31 | 30 31 30 31 30 31 30 3a |..*E%=&1|0101010:|
|00000360| 20 20 20 20 20 20 20 20 | f4 20 72 65 66 6c 65 63 |        |. reflec|
|00000370| 74 69 6f 6e 20 6d 61 73 | 6b 0d 01 ae 26 46 25 3d |tion mas|k...&F%=|
|00000380| 31 3a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |1:      |        |
|00000390| 20 20 f4 20 73 63 72 65 | 65 6e 20 62 61 6e 6b 0d |  . scre|en bank.|
|000003a0| 01 b8 0a 6e 75 6d 25 3d | 35 0d 01 c2 17 de 20 78 |...num%=|5..... x|
|000003b0| 25 28 6e 75 6d 25 29 2c | 79 25 28 6e 75 6d 25 29 |%(num%),|y%(num%)|
|000003c0| 0d 01 cc 19 de 20 64 78 | 25 28 6e 75 6d 25 29 2c |..... dx|%(num%),|
|000003d0| 64 79 25 28 6e 75 6d 25 | 29 0d 01 d6 17 de 20 73 |dy%(num%|)..... s|
|000003e0| 25 28 6e 75 6d 25 29 2c | 63 25 28 6e 75 6d 25 29 |%(num%),|c%(num%)|
|000003f0| 0d 01 e0 11 e3 20 49 25 | 3d 30 20 b8 20 6e 75 6d |..... I%|=0 . num|
|00000400| 25 0d 01 ea 13 63 25 28 | 49 25 29 3d b3 28 33 31 |%....c%(|I%)=.(31|
|00000410| 29 2b 33 31 0d 01 f4 13 | 73 25 28 49 25 29 3d b3 |)+31....|s%(I%)=.|
|00000420| 28 33 32 29 2b 31 36 0d | 01 fe 16 78 25 28 49 25 |(32)+16.|...x%(I%|
|00000430| 29 3d b3 28 31 32 37 39 | 29 2d 36 34 30 0d 02 08 |)=.(1279|)-640...|
|00000440| 16 79 25 28 49 25 29 3d | b3 28 31 30 32 33 29 2d |.y%(I%)=|.(1023)-|
|00000450| 35 31 32 0d 02 12 12 64 | 78 25 28 49 25 29 3d b3 |512....d|x%(I%)=.|
|00000460| 28 32 29 2a 34 0d 02 1c | 12 64 79 25 28 49 25 29 |(2)*4...|.dy%(I%)|
|00000470| 3d b3 28 32 29 2a 34 0d | 02 26 05 ed 0d 02 30 0e |=.(2)*4.|.&....0.|
|00000480| c8 91 20 36 34 30 2c 35 | 31 32 0d 02 3a 05 e1 0d |.. 640,5|12..:...|
|00000490| 02 44 05 3a 0d 02 4e 0f | dd 20 f2 61 73 73 65 6d |.D.:..N.|. .assem|
|000004a0| 62 6c 65 0d 02 58 10 de | 20 63 6f 64 65 25 20 26 |ble..X..| code% &|
|000004b0| 31 30 30 0d 02 62 0a 6c | 69 6e 65 3d 30 0d 02 6c |100..b.l|ine=0..l|
|000004c0| 0e 66 6f 75 72 6c 69 6e | 65 3d 31 0d 02 76 09 65 |.fourlin|e=1..v.e|
|000004d0| 6e 64 3d 32 0d 02 80 0d | 72 65 66 6c 65 63 74 3d |nd=2....|reflect=|
|000004e0| 33 0d 02 8a 0a 6d 61 73 | 6b 3d 34 0d 02 94 0a 62 |3....mas|k=4....b|
|000004f0| 61 6e 6b 3d 35 0d 02 9e | 0a 73 69 7a 65 3d 36 0d |ank=5...|.size=6.|
|00000500| 02 a8 0c 6c 69 6e 65 6e | 64 3d 37 0d 02 b2 0c 73 |...linen|d=7....s|
|00000510| 63 72 65 65 6e 3d 38 0d | 02 bc 0b 6c 69 6e 6b 3d |creen=8.|...link=|
|00000520| 31 34 0d 02 c6 12 e3 20 | 49 25 3d 30 20 b8 20 32 |14..... |I%=0 . 2|
|00000530| 20 88 20 32 0d 02 d0 0c | 50 25 3d 63 6f 64 65 25 | . 2....|P%=code%|
|00000540| 0d 02 da 0c 5b 20 4f 50 | 54 20 49 25 0d 02 e4 35 |....[ OP|T I%...5|
|00000550| 43 4d 50 20 62 61 6e 6b | 2c 23 32 20 20 20 20 20 |CMP bank|,#2     |
|00000560| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 20 |        |      ; |
|00000570| 63 68 65 63 6b 20 73 63 | 72 65 65 6e 20 62 61 6e |check sc|reen ban|
|00000580| 6b 0d 02 ee 1e 41 44 44 | 45 51 20 72 65 66 6c 65 |k....ADD|EQ refle|
|00000590| 63 74 2c 72 65 66 6c 65 | 63 74 2c 73 69 7a 65 0d |ct,refle|ct,size.|
|000005a0| 02 f8 16 41 44 44 45 51 | 20 65 6e 64 2c 65 6e 64 |...ADDEQ| end,end|
|000005b0| 2c 73 69 7a 65 0d 03 02 | 16 4d 4f 56 20 73 63 72 |,size...|.MOV scr|
|000005c0| 65 65 6e 2c 72 65 66 6c | 65 63 74 0d 03 03 05 3b |een,refl|ect....;|
|000005d0| 0d 03 0c 0e 2e 66 72 61 | 6d 65 6c 6f 6f 70 0d 03 |.....fra|meloop..|
|000005e0| 16 38 53 55 42 20 73 63 | 72 65 65 6e 2c 73 63 72 |.8SUB sc|reen,scr|
|000005f0| 65 65 6e 2c 66 6f 75 72 | 6c 69 6e 65 20 20 20 20 |een,four|line    |
|00000600| 3b 20 73 74 65 70 20 62 | 61 63 6b 20 66 6f 75 72 |; step b|ack four|
|00000610| 20 6c 69 6e 65 73 0d 03 | 20 3a 41 44 44 20 6c 69 | lines..| :ADD li|
|00000620| 6e 65 6e 64 2c 73 63 72 | 65 65 6e 2c 6c 69 6e 65 |nend,scr|een,line|
|00000630| 20 20 20 20 20 20 20 20 | 3b 20 73 65 74 20 65 6e |        |; set en|
|00000640| 64 20 6f 66 20 6c 69 6e | 65 20 6d 61 72 6b 65 72 |d of lin|e marker|
|00000650| 0d 03 21 05 3b 0d 03 2a | 0d 2e 6c 69 6e 65 6c 6f |..!.;..*|..linelo|
|00000660| 6f 70 0d 03 34 35 4c 44 | 4d 49 41 20 28 73 63 72 |op..45LD|MIA (scr|
|00000670| 65 65 6e 29 21 2c 7b 39 | 2c 31 32 7d 20 20 20 20 |een)!,{9|,12}    |
|00000680| 20 20 20 20 3b 20 67 72 | 61 62 20 34 20 72 65 67 |    ; gr|ab 4 reg|
|00000690| 20 62 6c 6f 63 6b 73 0d | 03 3e 2c 84 52 20 39 2c | blocks.|.>,.R 9,|
|000006a0| 39 2c 6d 61 73 6b 20 20 | 20 20 20 20 20 20 20 20 |9,mask  |        |
|000006b0| 20 20 20 20 20 20 20 20 | 3b 20 6d 61 73 6b 20 74 |        |; mask t|
|000006c0| 68 65 6d 0d 03 48 11 84 | 52 20 31 30 2c 31 30 2c |hem..H..|R 10,10,|
|000006d0| 6d 61 73 6b 0d 03 52 11 | 84 52 20 31 31 2c 31 31 |mask..R.|.R 11,11|
|000006e0| 2c 6d 61 73 6b 0d 03 5c | 11 84 52 20 31 32 2c 31 |,mask..\|..R 12,1|
|000006f0| 32 2c 6d 61 73 6b 0d 03 | 66 32 53 54 4d 49 41 20 |2,mask..|f2STMIA |
|00000700| 28 72 65 66 6c 65 63 74 | 29 21 2c 7b 39 2c 31 32 |(reflect|)!,{9,12|
|00000710| 7d 20 20 20 20 20 20 20 | 3b 20 73 6c 6f 70 20 74 |}       |; slop t|
|00000720| 68 65 6d 20 62 61 63 6b | 0d 03 70 15 43 4d 50 20 |hem back|..p.CMP |
|00000730| 73 63 72 65 65 6e 2c 6c | 69 6e 65 6e 64 0d 03 7a |screen,l|inend..z|
|00000740| 10 42 4c 54 20 6c 69 6e | 65 6c 6f 6f 70 0d 03 84 |.BLT lin|eloop...|
|00000750| 2e 43 4d 50 20 72 65 66 | 6c 65 63 74 2c 65 6e 64 |.CMP ref|lect,end|
|00000760| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b |        |       ;|
|00000770| 20 61 6c 6c 20 64 6f 6e | 65 20 3f 0d 03 8e 11 42 | all don|e ?....B|
|00000780| 4c 54 20 66 72 61 6d 65 | 6c 6f 6f 70 0d 03 8f 05 |LT frame|loop....|
|00000790| 3b 0d 03 98 0e 4d 4f 56 | 20 52 30 2c 23 31 39 0d |;....MOV| R0,#19.|
|000007a0| 03 a2 28 53 57 49 20 22 | 4f 53 5f 42 79 74 65 22 |..(SWI "|OS_Byte"|
|000007b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000007c0| 20 3b 20 77 61 69 74 0d | 03 ac 0f 4d 4f 56 20 52 | ; wait.|...MOV R|
|000007d0| 30 2c 23 31 31 33 0d 03 | b6 0f 4d 4f 56 20 52 31 |0,#113..|..MOV R1|
|000007e0| 2c 62 61 6e 6b 0d 03 c0 | 2c 82 20 62 61 6e 6b 2c |,bank...|,. bank,|
|000007f0| 62 61 6e 6b 2c 23 33 20 | 20 20 20 20 20 20 20 20 |bank,#3 |        |
|00000800| 20 20 20 20 20 3b 20 73 | 77 61 70 20 62 61 6e 6b |     ; s|wap bank|
|00000810| 73 0d 03 ca 11 53 57 49 | 20 22 4f 53 5f 42 79 74 |s....SWI| "OS_Byt|
|00000820| 65 22 0d 03 d4 0f 4d 4f | 56 20 52 30 2c 23 31 31 |e"....MO|V R0,#11|
|00000830| 32 0d 03 de 0f 4d 4f 56 | 20 52 31 2c 62 61 6e 6b |2....MOV| R1,bank|
|00000840| 0d 03 e8 11 53 57 49 20 | 22 4f 53 5f 42 79 74 65 |....SWI |"OS_Byte|
|00000850| 22 0d 03 f2 30 4d 4f 56 | 20 52 30 2c 62 61 6e 6b |"...0MOV| R0,bank|
|00000860| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000870| 20 20 20 3b 20 63 6c 65 | 61 72 20 73 63 72 65 65 |   ; cle|ar scree|
|00000880| 6e 0d 03 fc 0c 53 57 49 | 20 26 31 30 43 0d 04 06 |n....SWI| &10C...|
|00000890| 0f 4d 4f 56 20 50 43 2c | 6c 69 6e 6b 0d 04 1a 05 |.MOV PC,|link....|
|000008a0| 5d 0d 04 24 05 ed 0d 04 | 2e 05 e1 0d ff          |]..$....|.....   |
+--------+-------------------------+-------------------------+--------+--------+