/ APDL Public Domain 2 / APDL_PD2A.iso / demos / demo_1 / armless1 / !ARMless1 / !RunImage

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 10 20 f4 3e 21 | 52 75 6e 49 6d 61 67 65 |.... .>!|RunImage|
|00000010| 0d 00 14 06 20 f4 0d 00 | 1e 38 20 f4 20 20 20 20 |.... ...|.8 .    |
|00000020| 20 20 20 20 54 69 74 6c | 65 20 20 20 3a 20 20 20 |    Titl|e   :   |
|00000030| 20 44 65 6d 6f 20 69 6e | 20 22 46 69 76 65 22 20 | Demo in| "Five" |
|00000040| 20 20 20 20 20 28 41 52 | 4d 6c 65 73 73 29 0d 00 |     (AR|Mless)..|
|00000050| 28 06 20 f4 0d 00 32 48 | 20 f4 20 20 20 20 20 20 |(. ...2H| .      |
|00000060| 20 20 50 75 72 70 6f 73 | 65 20 3a 20 20 20 20 48 |  Purpos|e :    H|
|00000070| 6f 77 20 74 6f 20 77 72 | 69 74 65 20 61 20 56 45 |ow to wr|ite a VE|
|00000080| 52 59 20 66 61 73 74 20 | 73 63 72 6f 6c 6c 20 74 |RY fast |scroll t|
|00000090| 65 78 74 20 72 6f 75 74 | 69 6e 65 2e 0d 00 3c 06 |ext rout|ine...<.|
|000000a0| 20 f4 0d 00 46 27 20 f4 | 20 20 20 20 20 20 20 20 | ...F' .|        |
|000000b0| 41 75 74 68 6f 72 20 20 | 3a 20 20 20 20 57 61 79 |Author  |:    Way|
|000000c0| 6e 65 20 4b 65 65 6e 61 | 6e 0d 00 50 06 20 f4 0d |ne Keena|n..P. ..|
|000000d0| 00 5a 3f 20 f4 20 20 20 | 20 20 20 20 20 56 65 72 |.Z? .   |     Ver|
|000000e0| 73 69 6f 6e 20 3a 20 20 | 20 20 32 2e 30 33 62 20 |sion :  |  2.03b |
|000000f0| 20 20 28 32 39 74 68 20 | 4d 61 79 20 31 39 39 32 |  (29th |May 1992|
|00000100| 29 20 20 20 7b 53 71 75 | 61 73 68 65 64 7d 0d 00 |)   {Squ|ashed}..|
|00000110| 64 06 20 f4 0d 00 6e 06 | 20 f4 0d 00 78 0f 20 f4 |d. ...n.| ...x. .|
|00000120| 20 20 4e 6f 74 65 2e 2e | 2e 0d 00 82 06 20 f4 0d |  Note..|..... ..|
|00000130| 00 8c 47 20 f4 20 20 41 | 6c 6c 20 74 68 65 20 63 |..G .  A|ll the c|
|00000140| 6f 64 65 20 63 6f 6e 74 | 61 69 6e 65 64 20 69 6e |ode cont|ained in|
|00000150| 20 74 68 69 73 20 70 72 | 6f 67 72 61 6d 20 69 73 | this pr|ogram is|
|00000160| 20 6d 79 20 6f 77 6e 2c | 20 61 6e 64 20 73 6f 20 | my own,| and so |
|00000170| 49 20 68 6f 6c 64 0d 00 | 96 47 20 f4 20 20 74 68 |I hold..|.G .  th|
|00000180| 65 20 63 6f 70 79 72 69 | 67 68 74 2c 20 20 49 20 |e copyri|ght,  I |
|00000190| 64 6f 20 68 6f 77 65 76 | 65 72 20 2c 20 64 6f 6e |do howev|er , don|
|000001a0| 74 20 6d 69 6e 64 20 69 | 66 20 79 6f 75 20 75 73 |t mind i|f you us|
|000001b0| 65 20 74 68 65 20 72 6f | 75 74 69 6e 65 0d 00 a0 |e the ro|utine...|
|000001c0| 47 20 f4 20 20 69 6e 20 | 79 6f 75 72 20 6f 77 6e |G .  in |your own|
|000001d0| 20 63 6f 64 65 2c 20 61 | 73 20 6c 6f 6e 67 20 61 | code, a|s long a|
|000001e0| 73 20 69 74 20 69 73 20 | 6e 6f 74 20 73 6f 6c 64 |s it is |not sold|
|000001f0| 20 66 6f 72 20 70 72 6f | 66 69 74 2e 20 20 49 66 | for pro|fit.  If|
|00000200| 20 79 6f 75 0d 00 aa 47 | 20 f4 20 20 64 65 63 69 | you...G| .  deci|
|00000210| 64 65 20 20 74 6f 20 75 | 73 65 20 74 68 65 20 20 |de  to u|se the  |
|00000220| 72 6f 75 74 69 6e 65 20 | 74 65 6c 6c 20 6d 65 20 |routine |tell me |
|00000230| 20 61 6e 64 20 73 65 6e | 64 20 6d 65 20 20 61 20 | and sen|d me  a |
|00000240| 63 6f 70 79 20 6f 66 20 | 74 68 65 0d 00 b4 10 20 |copy of |the.... |
|00000250| f4 20 20 70 72 6f 67 72 | 61 6d 2e 0d 00 be 06 20 |.  progr|am..... |
|00000260| f4 0d 00 c8 06 20 f4 0d | 00 d2 47 20 f4 20 20 2d |..... ..|..G .  -|
|00000270| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000280| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000290| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000002a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 00 |--------|------..|
|000002b0| dc 04 0d 00 e6 05 20 0d | 00 f0 3a ee 85 eb 30 3a |...... .|..:...0:|
|000002c0| f1 f6 24 2c 9e 3a f1 3a | c8 99 22 4f 53 5f 43 4c |..$,.:.:|.."OS_CL|
|000002d0| 49 22 2c 22 46 58 20 34 | 22 3a c8 99 22 4f 53 5f |I","FX 4|":.."OS_|
|000002e0| 43 4c 49 22 2c 22 50 4c | 41 59 53 54 4f 50 22 3a |CLI","PL|AYSTOP":|
|000002f0| e0 0d 00 fa 07 eb 31 32 | 0d 01 04 07 c8 a0 34 0d |......12|......4.|
|00000300| 01 0e 3c f1 8a 32 2c 34 | 29 22 4c 6f 61 64 69 6e |..<..2,4|)"Loadin|
|00000310| 67 20 74 68 65 20 50 6f | 72 63 68 65 20 6f 66 20 |g the Po|rche of |
|00000320| 61 6c 6c 20 42 41 53 49 | 43 20 73 63 72 6f 6c 6c |all BASI|C scroll|
|00000330| 20 72 6f 75 74 69 6e 65 | 73 2e 22 0d 01 18 3c f1 | routine|s."...<.|
|00000340| 8a 32 2c 36 29 22 42 79 | 20 57 61 79 6e 65 20 4b |.2,6)"By| Wayne K|
|00000350| 65 65 6e 61 6e 20 20 20 | 20 20 2e 2e 2e 20 20 20 |eenan   |  ...   |
|00000360| 20 20 20 20 20 20 20 20 | 32 39 74 68 20 4d 61 79 |        |29th May|
|00000370| 20 31 39 39 32 2e 22 0d | 01 22 4b f1 8a 32 2c 39 | 1992.".|."K..2,9|
|00000380| 29 22 4e 6f 74 65 20 3a | 20 20 4e 6f 74 68 69 6e |)"Note :|  Nothin|
|00000390| 67 20 69 73 20 69 6e 20 | 41 52 4d 20 63 6f 64 65 |g is in |ARM code|
|000003a0| 2c 20 73 6f 20 6a 75 73 | 74 20 73 69 74 20 62 61 |, so jus|t sit ba|
|000003b0| 63 6b 20 61 6e 64 20 62 | 65 20 61 6d 61 7a 65 64 |ck and b|e amazed|
|000003c0| 21 22 0d 01 2c 05 f1 0d | 01 36 32 f4 20 4e 6f 74 |!"..,...|.62. Not|
|000003d0| 20 69 6e 20 52 69 73 63 | 4f 53 20 33 20 21 21 21 | in Risc|OS 3 !!!|
|000003e0| 20 53 59 53 22 4f 53 5f | 55 70 64 61 74 65 4d 45 | SYS"OS_|UpdateME|
|000003f0| 4d 43 22 2c 36 34 2c 36 | 34 0d 01 40 2b c8 99 22 |MC",64,6|4..@+.."|
|00000400| 4f 53 5f 46 69 6c 65 22 | 2c 35 2c 22 3c 44 65 6d |OS_File"|,5,"<Dem|
|00000410| 6f 24 44 69 72 3e 2e 46 | 6f 6e 74 20 22 b8 2c 2c |o$Dir>.F|ont ".,,|
|00000420| 2c 2c 61 25 0d 01 4a 2b | c8 99 22 4f 53 5f 46 69 |,,a%..J+|.."OS_Fi|
|00000430| 6c 65 22 2c 35 2c 22 3c | 44 65 6d 6f 24 44 69 72 |le",5,"<|Demo$Dir|
|00000440| 3e 2e 54 65 78 74 31 22 | b8 2c 2c 2c 2c 62 25 0d |>.Text1"|.,,,,b%.|
|00000450| 01 54 2b c8 99 22 4f 53 | 5f 46 69 6c 65 22 2c 35 |.T+.."OS|_File",5|
|00000460| 2c 22 3c 44 65 6d 6f 24 | 44 69 72 3e 2e 54 65 78 |,"<Demo$|Dir>.Tex|
|00000470| 74 32 22 b8 2c 2c 2c 2c | 63 25 0d 01 5e 17 c8 99 |t2".,,,,|c%..^...|
|00000480| 22 4f 53 5f 43 4c 49 22 | 2c 22 46 58 20 34 2c 31 |"OS_CLI"|,"FX 4,1|
|00000490| 22 0d 01 68 97 e7 62 25 | 3e 63 25 eb 30 3a f1 22 |"..h..b%|>c%.0:."|
|000004a0| 53 63 72 6f 6c 6c 20 74 | 65 78 74 20 31 20 6c 65 |Scroll t|ext 1 le|
|000004b0| 6e 67 74 68 20 3a 20 22 | 62 25 3a f1 22 53 63 72 |ngth : "|b%:."Scr|
|000004c0| 6f 6c 6c 20 74 65 78 74 | 20 32 20 6c 65 6e 67 74 |oll text| 2 lengt|
|000004d0| 68 20 3a 20 22 63 25 3a | f1 27 22 73 63 72 6f 6c |h : "c%:|.'"scrol|
|000004e0| 6c 20 74 65 78 74 20 32 | 20 6d 75 73 74 20 62 65 |l text 2| must be|
|000004f0| 20 61 20 6c 61 72 67 65 | 72 20 74 68 61 6e 20 31 | a large|r than 1|
|00000500| 2e 20 28 66 69 6c 6c 20 | 6f 6e 65 20 77 69 74 68 |. (fill |one with|
|00000510| 20 73 70 61 63 65 73 20 | 69 66 20 6e 65 65 64 73 | spaces |if needs|
|00000520| 20 62 65 29 2e 22 3a e0 | 0d 01 72 0e de 53 25 61 | be).":.|..r..S%a|
|00000530| 25 2b 32 30 34 38 0d 01 | 7c 0b de 64 25 31 30 32 |%+2048..||..d%102|
|00000540| 34 0d 01 86 09 de 65 25 | 62 25 0d 01 90 09 de 66 |4.....e%|b%.....f|
|00000550| 25 63 25 0d 01 9a 0a de | 67 25 31 32 38 0d 01 a4 |%c%.....|g%128...|
|00000560| 0a de 68 25 31 32 38 0d | 01 ae 0a de 69 25 31 32 |..h%128.|....i%12|
|00000570| 38 0d 01 b8 08 41 25 3d | 31 0d 01 c2 08 6a 25 3d |8....A%=|1....j%=|
|00000580| 30 0d 01 cc 0f 21 53 25 | 3d 61 25 2b 32 30 34 38 |0....!S%|=a%+2048|
|00000590| 0d 01 d6 0a 53 25 21 34 | 3d 30 0d 01 e0 0b 53 25 |....S%!4|=0....S%|
|000005a0| 21 38 3d 31 36 0d 01 ea | 0c 53 25 21 31 32 3d 31 |!8=16...|.S%!12=1|
|000005b0| 36 0d 01 f4 09 6b 25 3d | 36 34 0d 01 fe 0a 6c 25 |6....k%=|64....l%|
|000005c0| 3d 32 32 34 0d 02 08 08 | 73 25 3d 30 0d 02 12 25 |=224....|s%=0...%|
|000005d0| c8 99 26 32 45 2c 32 35 | 36 2b 31 30 2c 53 25 2c |..&2E,25|6+10,S%,|
|000005e0| 22 3c 44 65 6d 6f 24 44 | 69 72 3e 2e 46 6f 6e 74 |"<Demo$D|ir>.Font|
|000005f0| 22 0d 02 1c 2c c8 99 22 | 4f 53 5f 43 4c 49 22 2c |"...,.."|OS_CLI",|
|00000600| 22 4c 4f 41 44 20 3c 44 | 65 6d 6f 24 44 69 72 3e |"LOAD <D|emo$Dir>|
|00000610| 2e 54 65 78 74 31 20 22 | 2b c3 7e 65 25 0d 02 26 |.Text1 "|+.~e%..&|
|00000620| 2c c8 99 22 4f 53 5f 43 | 4c 49 22 2c 22 4c 4f 41 |,.."OS_C|LI","LOA|
|00000630| 44 20 3c 44 65 6d 6f 24 | 44 69 72 3e 2e 54 65 78 |D <Demo$|Dir>.Tex|
|00000640| 74 32 20 22 2b c3 7e 66 | 25 0d 02 30 0d e3 6d 25 |t2 "+.~f|%..0..m%|
|00000650| 3d 30 b8 32 35 35 0d 02 | 3a 10 f2 70 6f 69 6e 74 |=0.255..|:..point|
|00000660| 65 72 28 6d 25 29 0d 02 | 44 05 ed 0d 02 4e 0e e3 |er(m%)..|D....N..|
|00000670| 6e 25 3d 30 b8 33 32 88 | 34 0d 02 58 11 67 25 21 |n%=0.32.|4..X.g%!|
|00000680| 6e 25 3d b3 28 31 32 37 | 39 29 0d 02 62 14 68 25 |n%=.(127|9)..b.h%|
|00000690| 21 6e 25 3d b3 28 36 30 | 30 29 2b 32 30 30 0d 02 |!n%=.(60|0)+200..|
|000006a0| 6c 10 69 25 21 6e 25 3d | b3 28 34 29 2a 34 0d 02 |l.i%!n%=|.(4)*4..|
|000006b0| 76 05 ed 0d 02 80 1c 20 | f1 20 8a 33 36 2c 31 35 |v...... |. .36,15|
|000006c0| 29 22 50 72 65 73 73 20 | 61 20 4b 65 79 2e 22 0d |)"Press |a Key.".|
|000006d0| 02 8a 09 20 41 24 3d be | 0d 02 94 0a eb 39 2b 31 |... A$=.|.....9+1|
|000006e0| 32 38 0d 02 9e 05 87 0d | 02 a8 0c e3 43 25 3d 30 |28......|....C%=0|
|000006f0| b8 31 35 0d 02 b2 19 fb | 43 25 2c 43 25 2a 31 32 |.15.....|C%,C%*12|
|00000700| 2c 43 25 2a 31 36 2c 43 | 25 2a 31 34 0d 02 bc 05 |,C%*16,C|%*14....|
|00000710| ed 0d 02 c6 0f c8 99 36 | 2c 31 31 32 2c 32 3a db |.......6|,112,2:.|
|00000720| 0d 02 d0 0f c8 99 36 2c | 31 31 32 2c 31 3a db 0d |......6,|112,1:..|
|00000730| 02 da 07 e6 31 32 0d 02 | e4 05 f5 0d 02 ee 0c e3 |....12..|........|
|00000740| 6f 25 3d 30 b8 63 25 0d | 02 f8 0f e3 70 25 3d 30 |o%=0.c%.|....p%=0|
|00000750| b8 6c 25 88 6b 25 0d 03 | 02 26 c8 96 3a c8 99 36 |.l%.k%..|.&..:..6|
|00000760| 2c 31 31 33 2c 41 25 3a | 41 25 3d 41 25 82 33 3a |,113,A%:|A%=A%.3:|
|00000770| c8 99 36 2c 31 31 32 2c | 41 25 3a db 0d 03 0c 1e |..6,112,|A%:.....|
|00000780| c8 99 26 32 45 2c 35 34 | 36 2c 53 25 2c 64 25 21 |..&2E,54|6,S%,d%!|
|00000790| 36 35 36 2c 73 25 2c 34 | 38 30 0d 03 16 0e e7 ac |656,s%,4|80......|
|000007a0| a6 2d 30 f2 6b 65 79 73 | 0d 03 20 0b e3 71 25 3d |.-0.keys|.. ..q%=|
|000007b0| 30 b8 36 0d 03 2a 0c 72 | 25 3d 71 25 3c 3c 32 0d |0.6..*.r|%=q%<<2.|
|000007c0| 03 34 0c 73 25 3d 67 25 | 21 72 25 0d 03 3e 0e c8 |.4.s%=g%|!r%..>..|
|000007d0| 92 73 25 2c 68 25 21 72 | 25 0d 03 48 23 67 25 21 |.s%,h%!r|%..H#g%!|
|000007e0| 72 25 2b 3d 69 25 21 72 | 25 3a e7 73 25 3e 31 32 |r%+=i%!r|%:.s%>12|
|000007f0| 37 39 67 25 21 72 25 3d | 2d 33 30 30 0d 03 52 11 |79g%!r%=|-300..R.|
|00000800| 58 25 3d 28 71 25 3c 3c | 38 29 2d 70 25 0d 03 5c |X%=(q%<<|8)-p%..\|
|00000810| 2c c8 99 26 32 45 2c 35 | 34 36 2c 53 25 2c 64 25 |,..&2E,5|46,S%,d%|
|00000820| 21 28 28 65 25 3f 28 71 | 25 2b 6f 25 29 29 3c 3c |!((e%?(q|%+o%))<<|
|00000830| 32 29 2c 58 25 2c 39 34 | 30 0d 03 66 28 c8 99 26 |2),X%,94|0..f(..&|
|00000840| 32 45 2c 35 34 36 2c 53 | 25 2c 64 25 21 28 28 66 |2E,546,S|%,d%!((f|
|00000850| 25 3f 28 71 25 2b 6f 25 | 29 29 3c 3c 32 29 2c 58 |%?(q%+o%|))<<2),X|
|00000860| 25 0d 03 70 07 ed 2c 2c | 0d 03 7a 06 fd 2e 0d 03 |%..p..,,|..z.....|
|00000870| 84 08 eb 30 3a e0 0d 03 | 8e 10 dd f2 70 6f 69 6e |...0:...|....poin|
|00000880| 74 65 72 28 41 29 0d 03 | 98 0a ea 74 25 2c 75 25 |ter(A)..|...t%,u%|
|00000890| 0d 03 a2 06 ea 85 0d 03 | ac 0a 74 25 3d 41 2a 34 |........|..t%=A*4|
|000008a0| 0d 03 b6 34 ee 85 ea e7 | 9f 3d 31 33 34 41 3d 32 |...4....|.=134A=2|
|000008b0| 35 35 3a c8 99 26 32 45 | 2c 32 38 30 2c 53 25 2c |55:..&2E|,280,S%,|
|000008c0| bd 28 41 29 b8 2c 2c 75 | 25 3a 64 25 21 74 25 3d |.(A).,,u|%:d%!t%=|
|000008d0| 75 25 3a e1 0d 03 c0 1a | c8 99 26 32 45 2c 32 38 |u%:.....|..&2E,28|
|000008e0| 30 2c 53 25 2c bd 28 41 | 29 b8 2c 2c 75 25 0d 03 |0,S%,.(A|).,,u%..|
|000008f0| ca 0c 64 25 21 74 25 3d | 75 25 0d 03 d4 05 e1 0d |..d%!t%=|u%......|
|00000900| 03 de 10 dd f2 73 68 6f | 77 5f 74 61 62 6c 65 0d |.....sho|w_table.|
|00000910| 03 e8 0c e3 41 3d 30 b8 | 32 35 35 0d 03 f2 0a 74 |....A=0.|255....t|
|00000920| 25 3d 41 2a 34 0d 03 fc | 2c f1 22 41 53 43 49 49 |%=A*4...|,."ASCII|
|00000930| 20 63 6f 64 65 20 3a 20 | 22 41 22 20 20 20 20 20 | code : |"A"     |
|00000940| 20 41 64 64 72 65 73 73 | 20 3a 20 22 64 25 21 74 | Address| : "d%!t|
|00000950| 25 0d 04 06 05 ed 0d 04 | 10 05 f1 0d 04 1a 05 e1 |%.......|........|
|00000960| 0d 04 24 0a dd f2 6b 65 | 79 73 0d 04 2e 16 e7 a6 |..$...ke|ys......|
|00000970| 2d 34 39 6b 25 3d 34 3a | 6c 25 3d 32 35 32 3a e1 |-49k%=4:|l%=252:.|
|00000980| 0d 04 38 16 e7 a6 2d 35 | 30 6b 25 3d 38 3a 6c 25 |..8...-5|0k%=8:l%|
|00000990| 3d 32 35 32 3a e1 0d 04 | 42 17 e7 a6 2d 31 38 6b |=252:...|B...-18k|
|000009a0| 25 3d 31 36 3a 6c 25 3d | 32 34 38 3a e1 0d 04 4c |%=16:l%=|248:...L|
|000009b0| 17 e7 a6 2d 31 39 6b 25 | 3d 33 32 3a 6c 25 3d 32 |...-19k%|=32:l%=2|
|000009c0| 32 34 3a e1 0d 04 56 17 | e7 a6 2d 32 30 6b 25 3d |24:...V.|..-20k%=|
|000009d0| 36 34 3a 6c 25 3d 32 32 | 34 3a e1 0d 04 60 17 e7 |64:l%=22|4:...`..|
|000009e0| a6 2d 35 33 6b 25 3d 36 | 34 3a 6c 25 3d 32 32 34 |.-53k%=6|4:l%=224|
|000009f0| 3a e1 0d 04 6a 18 e7 a6 | 2d 33 37 6b 25 3d 31 32 |:...j...|-37k%=12|
|00000a00| 38 3a 6c 25 3d 31 32 38 | 3a e1 0d 04 74 05 e1 0d |8:l%=128|:...t...|
|00000a10| ff                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+