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

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 11 f4 20 3e 20 | 41 52 4d 73 63 72 6f 6c |..... > |ARMscrol|
|00000010| 6c 0d 00 14 05 3a 0d 00 | 1e 2a f4 20 41 25 20 3d |l....:..|.*. A% =|
|00000020| 20 73 74 61 72 74 20 70 | 6f 73 69 74 69 6f 6e 20 | start p|osition |
|00000030| 69 6e 20 73 74 6f 72 65 | 64 20 73 63 72 65 65 6e |in store|d screen|
|00000040| 0d 00 28 18 f4 20 42 25 | 20 3d 20 64 69 73 70 6c |..(.. B%| = displ|
|00000050| 61 79 20 73 74 61 72 74 | 0d 00 32 18 f4 20 43 25 |ay start|..2.. C%|
|00000060| 20 3d 20 64 69 73 70 6c | 61 79 20 77 69 64 74 68 | = displ|ay width|
|00000070| 0d 00 3c 19 f4 20 44 25 | 20 3d 20 64 69 73 70 6c |..<.. D%| = displ|
|00000080| 61 79 20 68 65 69 67 68 | 74 0d 00 46 16 f4 20 45 |ay heigh|t..F.. E|
|00000090| 25 20 3d 20 73 63 72 65 | 65 6e 20 62 61 73 65 0d |% = scre|en base.|
|000000a0| 00 50 16 f4 20 46 25 20 | 3d 20 73 63 72 65 65 6e |.P.. F% |= screen|
|000000b0| 20 73 69 7a 65 0d 00 5a | 16 f4 20 47 25 20 3d 20 | size..Z|.. G% = |
|000000c0| 6c 69 6e 65 20 6c 65 6e | 67 74 68 0d 00 64 05 3a |line len|gth..d.:|
|000000d0| 0d 00 6e 10 ee 20 85 20 | f2 65 72 72 6f 72 3a e0 |..n.. . |.error:.|
|000000e0| 0d 00 78 0f f2 69 6e 69 | 74 69 61 6c 69 73 65 0d |..x..ini|tialise.|
|000000f0| 00 82 0d f2 61 73 73 65 | 6d 62 6c 65 0d 00 8c 09 |....asse|mble....|
|00000100| f2 64 72 61 77 0d 00 96 | 05 f5 0d 00 a0 22 e7 20 |.draw...|.....". |
|00000110| a6 2d 39 38 20 58 25 2b | 3d 34 3a e7 20 58 25 3e |.-98 X%+|=4:. X%>|
|00000120| 65 64 67 65 25 20 58 25 | 2d 3d 47 25 0d 00 aa 1e |edge% X%|-=G%....|
|00000130| e7 20 a6 2d 36 37 20 58 | 25 2d 3d 34 3a e7 20 58 |. .-67 X|%-=4:. X|
|00000140| 25 3c 30 20 58 25 2b 3d | 47 25 0d 00 b4 25 e7 20 |%<0 X%+=|G%...%. |
|00000150| a6 2d 38 30 20 59 25 2b | 3d 76 65 72 74 25 3a e7 |.-80 Y%+|=vert%:.|
|00000160| 20 59 25 3e 74 6f 70 25 | 20 59 25 2d 3d 46 25 0d | Y%>top%| Y%-=F%.|
|00000170| 00 be 23 e7 20 a6 2d 31 | 30 35 20 59 25 2d 3d 76 |..#. .-1|05 Y%-=v|
|00000180| 65 72 74 25 3a e7 20 59 | 25 3c 30 20 59 25 2b 3d |ert%:. Y|%<0 Y%+=|
|00000190| 46 25 0d 00 c8 16 e7 20 | a6 2d 31 32 32 20 f2 73 |F%..... |.-122 .s|
|000001a0| 68 69 66 74 78 28 34 29 | 0d 00 d2 16 e7 20 a6 2d |hiftx(4)|..... .-|
|000001b0| 32 36 20 f2 73 68 69 66 | 74 78 28 2d 34 29 0d 00 |26 .shif|tx(-4)..|
|000001c0| dc 19 e7 20 a6 2d 34 32 | 20 f2 73 68 69 66 74 79 |... .-42| .shifty|
|000001d0| 28 76 65 72 74 25 29 0d | 00 e6 1a e7 20 a6 2d 35 |(vert%).|.... .-5|
|000001e0| 38 20 f2 73 68 69 66 74 | 79 28 2d 76 65 72 74 25 |8 .shift|y(-vert%|
|000001f0| 29 0d 00 f0 27 61 75 74 | 6f 31 25 2b 3d 47 25 3a |)...'aut|o1%+=G%:|
|00000200| e7 20 61 75 74 6f 31 25 | 3e 74 6f 70 25 20 61 75 |. auto1%|>top% au|
|00000210| 74 6f 31 25 2d 3d 46 25 | 0d 00 fa 26 61 75 74 6f |to1%-=F%|...&auto|
|00000220| 32 25 2b 3d 34 3a e7 20 | 61 75 74 6f 32 25 3e 74 |2%+=4:. |auto2%>t|
|00000230| 6f 70 25 20 61 75 74 6f | 32 25 2d 3d 46 25 0d 01 |op% auto|2%-=F%..|
|00000240| 04 06 c8 96 0d 01 0e 2b | f2 73 63 72 6f 6c 6c 28 |.......+|.scroll(|
|00000250| 58 25 2b 59 25 2c 66 72 | 61 6d 65 30 25 2c 77 69 |X%+Y%,fr|ame0%,wi|
|00000260| 64 74 68 30 25 2c 68 65 | 69 67 68 74 30 25 29 0d |dth0%,he|ight0%).|
|00000270| 01 18 2c f2 73 63 72 6f | 6c 6c 28 61 75 74 6f 31 |..,.scro|ll(auto1|
|00000280| 25 2c 66 72 61 6d 65 31 | 25 2c 77 69 64 74 68 31 |%,frame1|%,width1|
|00000290| 25 2c 68 65 69 67 68 74 | 31 25 29 0d 01 22 2c f2 |%,height|1%)..",.|
|000002a0| 73 63 72 6f 6c 6c 28 61 | 75 74 6f 32 25 2c 66 72 |scroll(a|uto2%,fr|
|000002b0| 61 6d 65 32 25 2c 77 69 | 64 74 68 32 25 2c 68 65 |ame2%,wi|dth2%,he|
|000002c0| 69 67 68 74 32 25 29 0d | 01 2c 07 fd 20 a3 0d 01 |ight2%).|.,.. ...|
|000002d0| 36 05 e0 0d 01 40 05 3a | 0d 01 4a 0c dd 20 f2 65 |6....@.:|..J.. .e|
|000002e0| 72 72 6f 72 0d 01 54 08 | eb 20 31 32 0d 01 5e 18 |rror..T.|. 12..^.|
|000002f0| e7 20 9f 3c 3e 31 37 20 | f1 20 f6 24 20 22 20 40 |. .<>17 |. .$ " @|
|00000300| 20 22 3b 9e 0d 01 68 05 | e1 0d 01 72 05 3a 0d 01 | ";...h.|...r.:..|
|00000310| 7c 11 dd 20 f2 69 6e 69 | 74 69 61 6c 69 73 65 0d ||.. .ini|tialise.|
|00000320| 01 86 42 6d 6f 64 65 25 | 3d 31 33 20 20 20 20 20 |..Bmode%|=13     |
|00000330| 20 20 20 20 20 20 3a f4 | 20 6f 6e 6c 79 20 74 68 |      :.| only th|
|00000340| 69 6e 67 20 74 6f 20 63 | 68 61 6e 67 65 20 66 6f |ing to c|hange fo|
|00000350| 72 20 64 69 66 66 65 72 | 65 6e 74 20 6d 6f 64 65 |r differ|ent mode|
|00000360| 73 0d 01 90 40 c8 99 22 | 4f 53 5f 52 65 61 64 4d |s...@.."|OS_ReadM|
|00000370| 6f 64 65 56 61 72 69 61 | 62 6c 65 22 2c 6d 6f 64 |odeVaria|ble",mod|
|00000380| 65 25 2c 37 20 b8 20 2c | 2c 46 25 20 20 20 20 3a |e%,7 . ,|,F%    :|
|00000390| f4 20 63 68 65 63 6b 73 | 20 74 68 65 20 6d 6f 64 |. checks| the mod|
|000003a0| 65 0d 01 9a 40 c8 99 22 | 4f 53 5f 52 65 61 64 4d |e...@.."|OS_ReadM|
|000003b0| 6f 64 65 56 61 72 69 61 | 62 6c 65 22 2c 6d 6f 64 |odeVaria|ble",mod|
|000003c0| 65 25 2c 33 20 b8 20 2c | 2c 63 6f 6c 25 20 20 3a |e%,3 . ,|,col%  :|
|000003d0| f4 20 77 65 20 77 61 6e | 74 20 6e 6f 74 20 74 68 |. we wan|t not th|
|000003e0| 65 0d 01 a4 39 e7 20 63 | 6f 6c 25 3c 36 33 20 85 |e...9. c|ol%<63 .|
|000003f0| 20 30 2c 22 4e 6f 74 20 | 61 20 32 35 36 20 63 6f | 0,"Not |a 256 co|
|00000400| 6c 6f 75 72 20 4d 6f 64 | 65 22 20 20 3a f4 20 63 |lour Mod|e"  :. c|
|00000410| 75 72 72 65 6e 74 20 6f | 6e 65 0d 01 ae 0f de 20 |urrent o|ne..... |
|00000420| 62 6c 6f 63 6b 25 20 31 | 39 0d 01 b8 10 62 6c 6f |block% 1|9....blo|
|00000430| 63 6b 25 21 30 3d 31 35 | 30 0d 01 c2 0f 62 6c 6f |ck%!0=15|0....blo|
|00000440| 63 6b 25 21 34 3d 2d 31 | 0d 01 cc 2c c8 99 20 22 |ck%!4=-1|...,.. "|
|00000450| 4f 53 5f 52 65 61 64 56 | 64 75 56 61 72 69 61 62 |OS_ReadV|duVariab|
|00000460| 6c 65 73 22 2c 62 6c 6f | 63 6b 25 2c 62 6c 6f 63 |les",blo|ck%,bloc|
|00000470| 6b 25 2b 38 0d 01 d6 37 | e7 20 62 6c 6f 63 6b 25 |k%+8...7|. block%|
|00000480| 21 38 3c 32 2a 46 25 20 | 85 20 30 2c c3 28 46 25 |!8<2*F% |. 0,.(F%|
|00000490| 81 35 31 32 29 2b 22 6b | 20 6e 65 65 64 65 64 20 |.512)+"k| needed |
|000004a0| 66 6f 72 20 73 63 72 65 | 65 6e 22 0d 01 e0 05 3a |for scre|en"....:|
|000004b0| 0d 01 ea 0b eb 20 6d 6f | 64 65 25 0d 01 f4 05 87 |..... mo|de%.....|
|000004c0| 0d 01 fe 29 62 6c 6f 63 | 6b 25 21 30 3d 31 34 39 |...)bloc|k%!0=149|
|000004d0| 20 20 3a f4 20 4e 6f 77 | 20 77 65 20 77 61 6e 74 |  :. Now| we want|
|000004e0| 20 69 6e 66 6f 20 66 6f | 72 0d 02 08 25 62 6c 6f | info fo|r...%blo|
|000004f0| 63 6b 25 21 34 3d 36 20 | 20 20 20 3a f4 20 74 68 |ck%!4=6 |   :. th|
|00000500| 65 20 63 75 72 72 65 6e | 74 20 6d 6f 64 65 0d 02 |e curren|t mode..|
|00000510| 12 0f 62 6c 6f 63 6b 25 | 21 38 3d 2d 31 0d 02 1c |..block%|!8=-1...|
|00000520| 2d c8 99 20 22 4f 53 5f | 52 65 61 64 56 64 75 56 |-.. "OS_|ReadVduV|
|00000530| 61 72 69 61 62 6c 65 73 | 22 2c 62 6c 6f 63 6b 25 |ariables|",block%|
|00000540| 2c 62 6c 6f 63 6b 25 2b | 31 32 0d 02 26 10 45 25 |,block%+|12..&.E%|
|00000550| 3d 62 6c 6f 63 6b 25 21 | 31 32 0d 02 30 10 47 25 |=block%!|12..0.G%|
|00000560| 3d 62 6c 6f 63 6b 25 21 | 31 36 0d 02 3a 09 fb 20 |=block%!|16..:.. |
|00000570| 31 33 31 0d 02 44 05 db | 0d 02 4e 20 f1 20 8a 39 |131..D..|..N . .9|
|00000580| 2c 32 29 20 22 57 69 6e | 64 6f 77 65 64 20 53 63 |,2) "Win|dowed Sc|
|00000590| 72 6f 6c 6c 69 6e 67 22 | 0d 02 58 26 f1 20 8a 35 |rolling"|..X&. .5|
|000005a0| 2c 31 33 29 20 22 53 63 | 72 6f 6c 6c 22 20 89 33 |,13) "Sc|roll" .3|
|000005b0| 20 20 22 5a 20 20 58 20 | 20 27 20 20 2f 22 0d 02 |  "Z  X | '  /"..|
|000005c0| 62 3e f1 20 8a 35 2c 31 | 34 29 20 22 4d 6f 76 65 |b>. .5,1|4) "Move|
|000005d0| 22 20 8a 31 33 2c 31 34 | 29 20 bd 31 33 36 20 22 |" .13,14|) .136 "|
|000005e0| 20 20 22 20 bd 31 33 37 | 20 22 20 20 22 20 bd 31 |  " .137| "  " .1|
|000005f0| 33 39 20 22 20 20 22 20 | bd 31 33 38 0d 02 6c 1d |39 "  " |.138..l.|
|00000600| f1 20 8a 35 2c 31 35 29 | 20 22 45 73 63 61 70 65 |. .5,15)| "Escape|
|00000610| 20 74 6f 20 53 74 6f 70 | 22 0d 02 76 14 78 6d 75 | to Stop|"..v.xmu|
|00000620| 6c 74 25 3d 31 32 38 30 | 20 81 20 47 25 0d 02 80 |lt%=1280| . G%...|
|00000630| 38 79 6d 61 78 25 3d 46 | 25 20 81 20 47 25 20 20 |8ymax%=F|% . G%  |
|00000640| 20 20 20 20 20 3a f4 20 | 65 76 65 72 79 74 68 69 |     :. |everythi|
|00000650| 6e 67 20 68 61 6e 67 73 | 20 6f 6e 20 47 25 20 61 |ng hangs| on G% a|
|00000660| 6e 64 20 46 25 0d 02 8a | 17 79 6d 75 6c 74 25 3d |nd F%...|.ymult%=|
|00000670| 31 30 32 34 20 81 20 79 | 6d 61 78 25 0d 02 94 0f |1024 . y|max%....|
|00000680| 76 65 72 74 25 3d 47 25 | 3c 3c 32 0d 02 9e 0e 65 |vert%=G%|<<2....e|
|00000690| 64 67 65 25 3d 47 25 2d | 31 0d 02 a8 0d 74 6f 70 |dge%=G%-|1....top|
|000006a0| 25 3d 46 25 2d 31 0d 02 | b2 08 58 25 3d 30 0d 02 |%=F%-1..|..X%=0..|
|000006b0| bc 08 59 25 3d 30 0d 02 | c6 0c 61 75 74 6f 31 25 |..Y%=0..|..auto1%|
|000006c0| 3d 30 0d 02 d0 0c 61 75 | 74 6f 32 25 3d 30 0d 02 |=0....au|to2%=0..|
|000006d0| da 18 66 72 61 6d 65 32 | 25 3d 47 25 2a 33 32 2b |..frame2|%=G%*32+|
|000006e0| 47 25 20 81 20 38 0d 02 | e4 18 66 72 61 6d 65 31 |G% . 8..|..frame1|
|000006f0| 25 3d 47 25 2a 33 32 2b | 47 25 20 81 20 32 0d 02 |%=G%*32+|G% . 2..|
|00000700| ee 19 66 72 61 6d 65 30 | 25 3d 47 25 2a 31 33 36 |..frame0|%=G%*136|
|00000710| 2b 47 25 20 81 20 38 0d | 02 f8 12 77 69 64 74 68 |+G% . 8.|...width|
|00000720| 32 25 3d 47 25 20 81 20 | 34 0d 03 02 12 77 69 64 |2%=G% . |4....wid|
|00000730| 74 68 31 25 3d 47 25 20 | 81 20 34 0d 03 0c 12 77 |th1%=G% |. 4....w|
|00000740| 69 64 74 68 30 25 3d 47 | 25 20 81 20 32 0d 03 16 |idth0%=G|% . 2...|
|00000750| 12 68 65 69 67 68 74 32 | 25 3d 47 25 3c 3c 36 0d |.height2|%=G%<<6.|
|00000760| 03 20 12 68 65 69 67 68 | 74 31 25 3d 47 25 3c 3c |. .heigh|t1%=G%<<|
|00000770| 36 0d 03 2a 12 68 65 69 | 67 68 74 30 25 3d 47 25 |6..*.hei|ght0%=G%|
|00000780| 3c 3c 36 0d 03 34 05 e1 | 0d 03 3e 05 3a 0d 03 48 |<<6..4..|..>.:..H|
|00000790| 0b dd 20 f2 64 72 61 77 | 0d 03 52 0d 2a 46 58 20 |.. .draw|..R.*FX |
|000007a0| 31 31 32 20 32 0d 03 5c | 05 da 0d 03 66 0f e3 20 |112 2..\|....f.. |
|000007b0| 49 25 3d 30 20 b8 20 39 | 39 0d 03 70 0e e6 20 31 |I%=0 . 9|9..p.. 1|
|000007c0| 35 2b b3 28 34 37 29 0d | 03 7a 0f 52 25 3d 38 2b |5+.(47).|.z.R%=8+|
|000007d0| b3 28 31 30 30 29 0d 03 | 84 14 78 25 3d 52 25 2b |.(100)..|..x%=R%+|
|000007e0| b3 28 31 32 37 39 2d 52 | 25 29 0d 03 8e 14 79 25 |.(1279-R|%)....y%|
|000007f0| 3d 52 25 2b b3 28 31 30 | 32 33 2d 52 25 29 0d 03 |=R%+.(10|23-R%)..|
|00000800| 98 12 c8 8f 20 c8 90 20 | 78 25 2c 79 25 2c 52 25 |.... .. |x%,y%,R%|
|00000810| 0d 03 a2 26 e7 20 79 25 | 2b 52 25 2a 32 3e 31 30 |...&. y%|+R%*2>10|
|00000820| 32 33 20 c8 8f 20 c8 90 | 20 78 25 2c 79 25 2d 31 |23 .. ..| x%,y%-1|
|00000830| 30 32 34 2c 52 25 0d 03 | ac 14 e7 20 78 25 2b 52 |024,R%..|... x%+R|
|00000840| 25 2a 32 3e 31 32 37 39 | 20 8c 0d 03 b6 17 c8 8f |%*2>1279| .......|
|00000850| 20 c8 90 20 78 25 2d 31 | 32 38 30 2c 79 25 2c 52 | .. x%-1|280,y%,R|
|00000860| 25 0d 03 c0 2b e7 20 79 | 25 2b 52 25 2a 32 3e 31 |%...+. y|%+R%*2>1|
|00000870| 30 32 34 20 c8 8f 20 c8 | 90 20 78 25 2d 31 32 38 |024 .. .|. x%-128|
|00000880| 30 2c 79 25 2d 31 30 32 | 34 2c 52 25 0d 03 ca 05 |0,y%-102|4,R%....|
|00000890| cd 0d 03 d4 05 ed 0d 03 | de 0d 2a 46 58 20 31 31 |........|..*FX 11|
|000008a0| 32 20 31 0d 03 e8 0c e6 | 20 33 20 c8 9c 20 30 0d |2 1.....| 3 .. 0.|
|000008b0| 03 f2 05 e1 0d 03 fc 05 | 3a 0d 04 06 0f dd 20 f2 |........|:..... .|
|000008c0| 61 73 73 65 6d 62 6c 65 | 0d 04 10 10 de 20 63 6f |assemble|..... co|
|000008d0| 64 65 25 20 26 31 30 30 | 0d 04 1a 10 73 74 6f 72 |de% &100|....stor|
|000008e0| 65 73 74 61 72 74 3d 30 | 0d 04 24 10 73 74 6f 72 |estart=0|..$.stor|
|000008f0| 65 69 6e 64 65 78 3d 30 | 0d 04 2e 0f 64 69 73 70 |eindex=0|....disp|
|00000900| 73 74 61 72 74 3d 31 0d | 04 38 0f 64 69 73 70 69 |start=1.|.8.dispi|
|00000910| 6e 64 65 78 3d 31 0d 04 | 42 0f 64 69 73 70 77 69 |ndex=1..|B.dispwi|
|00000920| 64 74 68 3d 32 0d 04 4c | 09 69 6e 63 3d 32 0d 04 |dth=2..L|.inc=2..|
|00000930| 56 10 64 69 73 70 68 65 | 69 67 68 74 3d 33 0d 04 |V.disphe|ight=3..|
|00000940| 60 0d 64 69 73 70 65 6e | 64 3d 33 0d 04 6a 10 73 |`.dispen|d=3..j.s|
|00000950| 63 72 65 65 6e 62 61 73 | 65 3d 34 0d 04 74 0e 73 |creenbas|e=4..t.s|
|00000960| 74 6f 72 65 65 6e 64 3d | 34 0d 04 7e 10 73 63 72 |toreend=|4..~.scr|
|00000970| 65 65 6e 73 69 7a 65 3d | 35 0d 04 88 10 6c 69 6e |eensize=|5....lin|
|00000980| 65 6c 65 6e 67 74 68 3d | 36 0d 04 92 0f 65 6e 64 |elength=|6....end|
|00000990| 6f 66 6c 69 6e 65 3d 37 | 0d 04 9c 0f 73 74 6f 72 |ofline=7|....stor|
|000009a0| 65 62 61 73 65 3d 38 0d | 04 a6 0c 6c 6f 77 72 65 |ebase=8.|...lowre|
|000009b0| 67 3d 39 0d 04 b0 10 73 | 74 65 70 63 6f 75 6e 74 |g=9....s|tepcount|
|000009c0| 3d 31 30 0d 04 ba 0e 68 | 69 67 68 72 65 67 3d 31 |=10....h|ighreg=1|
|000009d0| 32 0d 04 c4 0b 6c 69 6e | 6b 3d 31 34 0d 04 ce 12 |2....lin|k=14....|
|000009e0| e3 20 49 25 3d 30 20 b8 | 20 32 20 88 20 32 0d 04 |. I%=0 .| 2 . 2..|
|000009f0| d8 0c 50 25 3d 63 6f 64 | 65 25 0d 04 e2 0c 5b 20 |..P%=cod|e%....[ |
|00000a00| 4f 50 54 20 49 25 0d 04 | ec 26 41 44 44 20 64 69 |OPT I%..|.&ADD di|
|00000a10| 73 70 69 6e 64 65 78 2c | 73 63 72 65 65 6e 62 61 |spindex,|screenba|
|00000a20| 73 65 2c 64 69 73 70 73 | 74 61 72 74 0d 04 f6 24 |se,disps|tart...$|
|00000a30| 41 44 44 20 64 69 73 70 | 65 6e 64 2c 64 69 73 70 |ADD disp|end,disp|
|00000a40| 69 6e 64 65 78 2c 64 69 | 73 70 68 65 69 67 68 74 |index,di|spheight|
|00000a50| 0d 05 00 25 41 44 44 20 | 65 6e 64 6f 66 6c 69 6e |...%ADD |endoflin|
|00000a60| 65 2c 64 69 73 70 69 6e | 64 65 78 2c 64 69 73 70 |e,dispin|dex,disp|
|00000a70| 77 69 64 74 68 0d 05 0a | 20 53 55 42 20 69 6e 63 |width...| SUB inc|
|00000a80| 2c 6c 69 6e 65 6c 65 6e | 67 74 68 2c 64 69 73 70 |,linelen|gth,disp|
|00000a90| 77 69 64 74 68 0d 05 14 | 27 41 44 44 20 73 74 6f |width...|'ADD sto|
|00000aa0| 72 65 62 61 73 65 2c 73 | 63 72 65 65 6e 62 61 73 |rebase,s|creenbas|
|00000ab0| 65 2c 73 63 72 65 65 6e | 73 69 7a 65 0d 05 1e 27 |e,screen|size...'|
|00000ac0| 41 44 44 20 73 74 6f 72 | 65 69 6e 64 65 78 2c 73 |ADD stor|eindex,s|
|00000ad0| 74 6f 72 65 62 61 73 65 | 2c 73 74 6f 72 65 73 74 |torebase|,storest|
|00000ae0| 61 72 74 0d 05 28 25 41 | 44 44 20 73 74 6f 72 65 |art..(%A|DD store|
|00000af0| 65 6e 64 2c 73 74 6f 72 | 65 62 61 73 65 2c 73 63 |end,stor|ebase,sc|
|00000b00| 72 65 65 6e 73 69 7a 65 | 0d 05 32 1d 53 55 42 20 |reensize|..2.SUB |
|00000b10| 73 74 6f 72 65 65 6e 64 | 2c 73 74 6f 72 65 65 6e |storeend|,storeen|
|00000b20| 64 2c 23 31 36 0d 05 3c | 05 3b 0d 05 46 09 2e 6c |d,#16..<|.;..F..l|
|00000b30| 6f 6f 70 0d 05 50 42 43 | 4d 50 20 73 74 6f 72 65 |oop..PBC|MP store|
|00000b40| 69 6e 64 65 78 2c 73 74 | 6f 72 65 65 6e 64 20 20 |index,st|oreend  |
|00000b50| 20 20 20 20 3b 20 63 6f | 75 6c 64 20 65 6e 74 65 |    ; co|uld ente|
|00000b60| 72 20 77 69 74 68 20 73 | 63 72 65 65 6e 20 61 64 |r with s|creen ad|
|00000b70| 64 72 65 73 73 0d 05 5a | 38 42 47 45 20 66 75 64 |dress..Z|8BGE fud|
|00000b80| 67 65 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ge      |        |
|00000b90| 20 20 20 20 20 20 3b 20 | 72 69 67 68 74 20 6f 6e |      ; |right on|
|00000ba0| 20 74 68 65 20 62 6f 75 | 6e 64 61 72 79 0d 05 64 | the bou|ndary..d|
|00000bb0| 27 4c 44 4d 49 41 28 73 | 74 6f 72 65 69 6e 64 65 |'LDMIA(s|toreinde|
|00000bc0| 78 29 21 2c 7b 6c 6f 77 | 72 65 67 2d 68 69 67 68 |x)!,{low|reg-high|
|00000bd0| 72 65 67 7d 0d 05 6e 39 | 53 54 4d 49 41 28 64 69 |reg}..n9|STMIA(di|
|00000be0| 73 70 69 6e 64 65 78 29 | 21 2c 7b 6c 6f 77 72 65 |spindex)|!,{lowre|
|00000bf0| 67 2d 68 69 67 68 72 65 | 67 7d 20 3b 20 73 6c 6f |g-highre|g} ; slo|
|00000c00| 70 20 34 20 72 65 67 73 | 20 6f 76 65 72 0d 05 78 |p 4 regs| over..x|
|00000c10| 05 3b 0d 05 82 0e 2e 73 | 74 6f 70 66 75 64 67 65 |.;.....s|topfudge|
|00000c20| 0d 05 8c 1b 43 4d 50 20 | 64 69 73 70 69 6e 64 65 |....CMP |dispinde|
|00000c30| 78 2c 65 6e 64 6f 66 6c | 69 6e 65 0d 05 96 23 41 |x,endofl|ine...#A|
|00000c40| 44 44 47 45 20 73 74 6f | 72 65 69 6e 64 65 78 2c |DDGE sto|reindex,|
|00000c50| 73 74 6f 72 65 69 6e 64 | 65 78 2c 69 6e 63 0d 05 |storeind|ex,inc..|
|00000c60| a0 21 41 44 44 47 45 20 | 64 69 73 70 69 6e 64 65 |.!ADDGE |dispinde|
|00000c70| 78 2c 64 69 73 70 69 6e | 64 65 78 2c 69 6e 63 0d |x,dispin|dex,inc.|
|00000c80| 05 aa 28 41 44 44 47 45 | 20 65 6e 64 6f 66 6c 69 |..(ADDGE| endofli|
|00000c90| 6e 65 2c 65 6e 64 6f 66 | 6c 69 6e 65 2c 6c 69 6e |ne,endof|line,lin|
|00000ca0| 65 6c 65 6e 67 74 68 0d | 05 b4 19 43 4d 50 20 64 |elength.|...CMP d|
|00000cb0| 69 73 70 69 6e 64 65 78 | 2c 64 69 73 70 65 6e 64 |ispindex|,dispend|
|00000cc0| 0d 05 be 0c 42 4c 54 20 | 6c 6f 6f 70 0d 05 c8 05 |....BLT |loop....|
|00000cd0| 3b 0d 05 d2 08 2e 65 6e | 64 0d 05 dc 0f 4d 4f 56 |;.....en|d....MOV|
|00000ce0| 20 50 43 2c 6c 69 6e 6b | 0d 05 e6 05 3b 0d 05 f0 | PC,link|....;...|
|00000cf0| 37 2e 66 75 64 67 65 20 | 20 20 20 20 20 20 20 20 |7.fudge |        |
|00000d00| 20 20 20 20 20 20 20 20 | 20 20 20 3b 20 64 65 61 |        |   ; dea|
|00000d10| 6c 73 20 77 69 74 68 20 | 6c 61 73 74 20 26 20 66 |ls with |last & f|
|00000d20| 69 72 73 74 0d 05 fa 35 | 41 44 44 20 73 74 6f 72 |irst...5|ADD stor|
|00000d30| 65 65 6e 64 2c 73 74 6f | 72 65 65 6e 64 2c 23 31 |eend,sto|reend,#1|
|00000d40| 36 20 3b 20 34 20 72 65 | 67 73 20 61 74 20 73 63 |6 ; 4 re|gs at sc|
|00000d50| 72 65 65 6e 20 65 6e 64 | 73 0d 06 04 31 4d 4f 56 |reen end|s...1MOV|
|00000d60| 20 73 74 65 70 63 6f 75 | 6e 74 2c 23 38 20 20 20 | stepcou|nt,#8   |
|00000d70| 20 20 20 20 20 20 20 3b | 20 63 6f 75 6c 64 20 62 |       ;| could b|
|00000d80| 65 20 31 2c 32 20 6f 72 | 20 33 0d 06 0e 05 3b 0d |e 1,2 or| 3....;.|
|00000d90| 06 18 0e 2e 66 75 64 67 | 65 6c 6f 6f 70 0d 06 22 |....fudg|eloop.."|
|00000da0| 1b 43 4d 50 20 73 74 6f | 72 65 69 6e 64 65 78 2c |.CMP sto|reindex,|
|00000db0| 73 74 6f 72 65 65 6e 64 | 0d 06 2c 2a 53 55 42 47 |storeend|..,*SUBG|
|00000dc0| 45 20 73 74 6f 72 65 69 | 6e 64 65 78 2c 73 74 6f |E storei|ndex,sto|
|00000dd0| 72 65 69 6e 64 65 78 2c | 73 63 72 65 65 6e 73 69 |reindex,|screensi|
|00000de0| 7a 65 0d 06 36 1b 43 4d | 50 20 64 69 73 70 69 6e |ze..6.CM|P dispin|
|00000df0| 64 65 78 2c 65 6e 64 6f | 66 6c 69 6e 65 0d 06 40 |dex,endo|fline..@|
|00000e00| 23 41 44 44 47 45 20 73 | 74 6f 72 65 69 6e 64 65 |#ADDGE s|toreinde|
|00000e10| 78 2c 73 74 6f 72 65 69 | 6e 64 65 78 2c 69 6e 63 |x,storei|ndex,inc|
|00000e20| 0d 06 4a 21 41 44 44 47 | 45 20 64 69 73 70 69 6e |..J!ADDG|E dispin|
|00000e30| 64 65 78 2c 64 69 73 70 | 69 6e 64 65 78 2c 69 6e |dex,disp|index,in|
|00000e40| 63 0d 06 54 28 41 44 44 | 47 45 20 65 6e 64 6f 66 |c..T(ADD|GE endof|
|00000e50| 6c 69 6e 65 2c 65 6e 64 | 6f 66 6c 69 6e 65 2c 6c |line,end|ofline,l|
|00000e60| 69 6e 65 6c 65 6e 67 74 | 68 0d 06 5e 19 43 4d 50 |inelengt|h..^.CMP|
|00000e70| 20 64 69 73 70 69 6e 64 | 65 78 2c 64 69 73 70 65 | dispind|ex,dispe|
|00000e80| 6e 64 0d 06 68 0b 42 47 | 45 20 65 6e 64 0d 06 72 |nd..h.BG|E end..r|
|00000e90| 32 4c 44 52 20 6c 6f 77 | 72 65 67 2c 5b 73 74 6f |2LDR low|reg,[sto|
|00000ea0| 72 65 69 6e 64 65 78 5d | 2c 23 34 20 20 20 20 20 |reindex]|,#4     |
|00000eb0| 20 20 20 20 3b 20 6f 6e | 6c 79 20 6d 6f 76 65 0d |    ; on|ly move.|
|00000ec0| 06 7c 33 53 54 52 20 6c | 6f 77 72 65 67 2c 5b 64 |.|3STR l|owreg,[d|
|00000ed0| 69 73 70 69 6e 64 65 78 | 5d 2c 23 34 20 20 20 20 |ispindex|],#4    |
|00000ee0| 20 20 20 20 20 20 3b 20 | 31 20 72 65 67 20 6f 76 |      ; |1 reg ov|
|00000ef0| 65 72 0d 06 86 1f 53 55 | 42 53 20 73 74 65 70 63 |er....SU|BS stepc|
|00000f00| 6f 75 6e 74 2c 73 74 65 | 70 63 6f 75 6e 74 2c 23 |ount,ste|pcount,#|
|00000f10| 31 0d 06 90 11 42 4e 45 | 20 66 75 64 67 65 6c 6f |1....BNE| fudgelo|
|00000f20| 6f 70 0d 06 9a 0f 42 20 | 73 74 6f 70 66 75 64 67 |op....B |stopfudg|
|00000f30| 65 0d 06 a4 05 5d 0d 06 | ae 05 ed 0d 06 b8 05 e1 |e....]..|........|
|00000f40| 0d 06 c2 05 3a 0d 06 cc | 11 dd 20 f2 73 68 69 66 |....:...|.. .shif|
|00000f50| 74 78 28 78 25 29 0d 06 | d6 1d 6c 65 25 3d 28 66 |tx(x%)..|..le%=(f|
|00000f60| 72 61 6d 65 30 25 20 83 | 20 47 25 29 2a 78 6d 75 |rame0% .| G%)*xmu|
|00000f70| 6c 74 25 0d 06 e0 26 72 | 69 25 3d 28 28 66 72 61 |lt%...&r|i%=((fra|
|00000f80| 6d 65 30 25 2b 77 69 64 | 74 68 30 25 29 83 20 47 |me0%+wid|th0%). G|
|00000f90| 25 29 2a 78 6d 75 6c 74 | 25 0d 06 ea 23 e7 20 78 |%)*xmult|%...#. x|
|00000fa0| 25 3c 30 20 80 20 6c 65 | 25 3d 30 20 84 20 78 25 |%<0 . le|%=0 . x%|
|00000fb0| 3e 30 20 80 20 72 69 25 | 3d 30 20 e1 0d 06 f4 2f |>0 . ri%|=0 ..../|
|00000fc0| 6c 6f 25 3d 28 79 6d 61 | 78 25 2d 28 28 66 72 61 |lo%=(yma|x%-((fra|
|00000fd0| 6d 65 30 25 2b 68 65 69 | 67 68 74 30 25 29 81 20 |me0%+hei|ght0%). |
|00000fe0| 47 25 29 29 2a 79 6d 75 | 6c 74 25 0d 06 fe 1e 68 |G%))*ymu|lt%....h|
|00000ff0| 69 25 3d 28 68 65 69 67 | 68 74 30 25 20 81 20 47 |i%=(heig|ht0% . G|
|00001000| 25 29 2a 79 6d 75 6c 74 | 25 0d 07 08 4b e7 20 78 |%)*ymult|%...K. x|
|00001010| 25 3e 30 20 c8 93 20 c8 | 90 20 6c 65 25 2c 6c 6f |%>0 .. .|. le%,lo|
|00001020| 25 2c 34 2a 78 6d 75 6c | 74 25 2c 68 69 25 20 8b |%,4*xmul|t%,hi% .|
|00001030| 20 c8 93 20 c8 90 20 72 | 69 25 2d 34 2a 78 6d 75 | .. .. r|i%-4*xmu|
|00001040| 6c 74 25 2c 6c 6f 25 2c | 38 2a 78 6d 75 6c 74 25 |lt%,lo%,|8*xmult%|
|00001050| 2c 68 69 25 0d 07 12 0f | 66 72 61 6d 65 30 25 2b |,hi%....|frame0%+|
|00001060| 3d 78 25 0d 07 1c 05 e1 | 0d 07 26 05 3a 0d 07 30 |=x%.....|..&.:..0|
|00001070| 11 dd 20 f2 73 68 69 66 | 74 79 28 79 25 29 0d 07 |.. .shif|ty(y%)..|
|00001080| 3a 2f 6c 6f 25 3d 28 79 | 6d 61 78 25 2d 28 28 66 |:/lo%=(y|max%-((f|
|00001090| 72 61 6d 65 30 25 2b 68 | 65 69 67 68 74 30 25 29 |rame0%+h|eight0%)|
|000010a0| 81 20 47 25 29 29 2a 79 | 6d 75 6c 74 25 0d 07 44 |. G%))*y|mult%..D|
|000010b0| 25 68 69 25 3d 28 79 6d | 61 78 25 2d 28 66 72 61 |%hi%=(ym|ax%-(fra|
|000010c0| 6d 65 30 25 20 81 20 47 | 25 29 29 2a 79 6d 75 6c |me0% . G|%))*ymul|
|000010d0| 74 25 0d 07 4e 2a e7 20 | 79 25 3e 30 20 80 20 6c |t%..N*. |y%>0 . l|
|000010e0| 6f 25 3d 30 20 84 20 79 | 25 3c 30 20 80 20 68 69 |o%=0 . y|%<0 . hi|
|000010f0| 25 3e 3d 79 6d 61 78 25 | 2a 32 20 e1 0d 07 58 1d |%>=ymax%|*2 ...X.|
|00001100| 6c 65 25 3d 28 66 72 61 | 6d 65 30 25 20 83 20 47 |le%=(fra|me0% . G|
|00001110| 25 29 2a 78 6d 75 6c 74 | 25 0d 07 62 1d 72 69 25 |%)*xmult|%..b.ri%|
|00001120| 3d 28 77 69 64 74 68 30 | 25 20 83 20 47 25 29 2a |=(width0|% . G%)*|
|00001130| 78 6d 75 6c 74 25 0d 07 | 6c 4b e7 20 79 25 3c 30 |xmult%..|lK. y%<0|
|00001140| 20 c8 93 20 c8 90 20 6c | 65 25 2c 6c 6f 25 2c 72 | .. .. l|e%,lo%,r|
|00001150| 69 25 2c 34 2a 79 6d 75 | 6c 74 25 20 8b 20 c8 93 |i%,4*ymu|lt% . ..|
|00001160| 20 c8 90 20 6c 65 25 2c | 68 69 25 2d 34 2a 79 6d | .. le%,|hi%-4*ym|
|00001170| 75 6c 74 25 2c 72 69 25 | 2c 34 2a 79 6d 75 6c 74 |ult%,ri%|,4*ymult|
|00001180| 25 0d 07 76 0f 66 72 61 | 6d 65 30 25 2b 3d 79 25 |%..v.fra|me0%+=y%|
|00001190| 0d 07 80 05 e1 0d 07 8a | 05 3a 0d 07 94 1a dd 20 |........|.:..... |
|000011a0| f2 73 63 72 6f 6c 6c 28 | 41 25 2c 42 25 2c 43 25 |.scroll(|A%,B%,C%|
|000011b0| 2c 44 25 29 0d 07 9e 0b | d6 20 63 6f 64 65 25 0d |,D%)....|. code%.|
|000011c0| 07 a8 05 e1 0d ff       |                         |......  |        |
+--------+-------------------------+-------------------------+--------+--------+