/ ARM Club 1 / ARM_CLUB_CD.iso / contents / demos / t / teapot / !Teapot / !RunImage

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 18 f4 20 3e 21 | 54 65 61 70 6f 74 2e 21 |..... >!|Teapot.!|
|00000010| 52 75 6e 49 6d 61 67 65 | 0d 00 14 47 f4 20 42 79 |RunImage|...G. By|
|00000020| 20 61 6c 6c 20 61 63 63 | 6f 75 6e 74 73 20 61 20 | all acc|ounts a |
|00000030| 66 61 69 72 6c 79 20 77 | 68 61 63 6b 79 20 74 65 |fairly w|hacky te|
|00000040| 61 70 6f 74 20 64 65 6d | 6f 20 2d 20 63 6f 64 69 |apot dem|o - codi|
|00000050| 6e 67 20 62 79 20 5a 65 | 75 73 20 77 69 74 68 0d |ng by Ze|us with.|
|00000060| 00 1e 2f f4 20 61 70 6f | 6c 6f 67 69 65 73 20 66 |../. apo|logies f|
|00000070| 6f 72 20 74 68 65 20 74 | 61 63 6b 79 20 73 63 72 |or the t|acky scr|
|00000080| 65 65 6e 20 63 6f 6d 70 | 61 63 74 6f 72 2e 0d 00 |een comp|actor...|
|00000090| 28 05 3a 0d 00 32 07 ee | 85 e0 0d 00 3c 0b 6e 75 |(.:..2..|....<.nu|
|000000a0| 6d 25 3d 37 37 0d 00 46 | 09 eb 31 32 3a 87 0d 00 |m%=77..F|..12:...|
|000000b0| 50 10 f2 42 6c 61 6e 6b | 53 63 72 65 65 6e 0d 00 |P..Blank|Screen..|
|000000c0| 5a 0a f2 41 73 73 65 6d | 0d 00 64 09 f2 4c 6f 61 |Z..Assem|..d..Loa|
|000000d0| 64 0d 00 6e 0c f2 50 61 | 6c 65 74 74 65 0d 00 78 |d..n..Pa|lette..x|
|000000e0| 0c f2 49 74 65 72 61 74 | 65 0d 00 82 05 e0 0d 00 |..Iterat|e.......|
|000000f0| 8c 05 3a 0d 00 96 11 dd | f2 42 6c 61 6e 6b 53 63 |..:.....|.BlankSc|
|00000100| 72 65 65 6e 0d 00 a0 18 | e3 6e 25 3d 30 b8 31 35 |reen....|.n%=0.15|
|00000110| 3a fb 6e 25 2c 30 2c 30 | 2c 30 3a ed 0d 00 aa 05 |:.n%,0,0|,0:.....|
|00000120| e1 0d 00 b4 05 3a 0d 00 | be 0a dd f2 4c 6f 61 64 |.....:..|....Load|
|00000130| 0d 00 c8 0e e3 6e 25 3d | 31 b8 6e 75 6d 25 0d 00 |.....n%=|1.num%..|
|00000140| d2 44 66 25 28 6e 25 29 | 3d 21 73 63 61 6e 31 25 |.Df%(n%)|=!scan1%|
|00000150| 3a e7 66 25 28 6e 25 29 | 3e 6c 69 6d 25 20 8c f1 |:.f%(n%)|>lim% ..|
|00000160| 22 49 6e 73 75 66 66 69 | 63 69 65 6e 74 20 73 70 |"Insuffi|cient sp|
|00000170| 61 63 65 20 64 69 6d 65 | 6e 73 69 6f 6e 65 64 22 |ace dime|nsioned"|
|00000180| 3a e0 0d 00 dc 3a ff 22 | 4c 4f 41 44 20 3c 54 65 |:....:."|LOAD <Te|
|00000190| 61 70 6f 74 24 44 69 72 | 3e 2e 46 72 61 6d 65 73 |apot$Dir|>.Frames|
|000001a0| 2e 46 72 61 6d 65 22 2b | c3 28 6e 25 29 2b 22 20 |.Frame"+|.(n%)+" |
|000001b0| 22 2b c3 7e 28 66 25 28 | 6e 25 29 29 0d 00 e6 16 |"+.~(f%(|n%))....|
|000001c0| 41 25 3d 66 25 28 6e 25 | 29 3a d6 20 64 65 63 6f |A%=f%(n%|):. deco|
|000001d0| 64 65 0d 00 f0 05 ed 0d | 00 fa 05 e1 0d 01 04 05 |de......|........|
|000001e0| 3a 0d 01 0e 0d dd f2 49 | 74 65 72 61 74 65 0d 01 |:......I|terate..|
|000001f0| 18 05 f5 0d 01 22 0e e3 | 6e 25 3d 31 b8 6e 75 6d |....."..|n%=1.num|
|00000200| 25 0d 01 2c 12 21 73 63 | 61 6e 31 25 3d 66 25 28 |%..,.!sc|an1%=f%(|
|00000210| 6e 25 29 0d 01 36 18 ff | 22 46 58 20 31 39 22 3a |n%)..6..|"FX 19":|
|00000220| e3 78 25 3d 31 b8 32 30 | 30 3a ed 0d 01 40 0c d6 |.x%=1.20|0:...@..|
|00000230| 20 64 65 63 6f 64 65 0d | 01 4a 05 ed 0d 01 54 06 | decode.|.J....T.|
|00000240| fd 30 0d 01 5e 05 e1 0d | 01 68 05 3a 0d 01 72 0d |.0..^...|.h.:..r.|
|00000250| dd f2 50 61 6c 65 74 74 | 65 0d 01 7c 14 ea 20 70 |..Palett|e..|.. p|
|00000260| 25 2c 63 25 2c 72 25 2c | 62 25 2c 67 25 0d 01 86 |%,c%,r%,|b%,g%...|
|00000270| 0c de 20 70 25 20 26 37 | 38 0d 01 90 26 ff 22 4c |.. p% &7|8...&."L|
|00000280| 4f 41 44 20 3c 54 65 61 | 70 6f 74 24 44 69 72 3e |OAD <Tea|pot$Dir>|
|00000290| 2e 21 47 72 65 79 20 22 | 2b c3 7e 28 70 25 29 0d |.!Grey "|+.~(p%).|
|000002a0| 01 9a 0c e3 63 25 3d 30 | b8 31 35 0d 01 a4 24 72 |....c%=0|.15...$r|
|000002b0| 25 3d 70 25 2b 63 25 2a | 26 30 36 2b 26 30 33 3a |%=p%+c%*|&06+&03:|
|000002c0| 67 25 3d 72 25 2b 31 3a | 62 25 3d 67 25 2b 31 0d |g%=r%+1:|b%=g%+1.|
|000002d0| 01 ae 14 fb 20 63 25 2c | 3f 72 25 2c 3f 67 25 2c |.... c%,|?r%,?g%,|
|000002e0| 3f 62 25 0d 01 b8 05 ed | 0d 01 c2 0d fb 30 3a fb |?b%.....|.....0:.|
|000002f0| 31 33 35 3a db 0d 01 cc | 05 e1 0d 01 d6 05 3a 0d |135:....|......:.|
|00000300| 01 e0 0b dd f2 41 73 73 | 65 6d 0d 01 ea 0f 6c 65 |.....Ass|em....le|
|00000310| 6e 25 3d 26 43 30 30 30 | 30 0d 01 f4 27 de 20 67 |n%=&C000|0...'. g|
|00000320| 61 70 25 20 6c 65 6e 25 | 2c 66 25 28 6e 75 6d 25 |ap% len%|,f%(num%|
|00000330| 29 3a 6c 69 6d 25 3d 67 | 61 70 25 2b 6c 65 6e 25 |):lim%=g|ap%+len%|
|00000340| 0d 01 fe 2e ea 20 73 63 | 61 6e 31 2c 77 6f 72 64 |..... sc|an1,word|
|00000350| 2c 73 63 61 6e 32 2c 63 | 6f 75 6e 74 2c 65 6e 64 |,scan2,c|ount,end|
|00000360| 2c 62 6c 61 63 6b 2c 6c | 69 6e 6b 2c 70 63 0d 02 |,black,l|ink,pc..|
|00000370| 08 38 ea 20 70 61 73 73 | 2c 72 65 70 65 61 74 2c |.8. pass|,repeat,|
|00000380| 67 72 6f 75 6e 64 2c 6c | 6f 6f 70 2c 69 6e 70 75 |ground,l|oop,inpu|
|00000390| 74 25 2c 6f 75 74 70 75 | 74 25 2c 62 6c 61 63 6b |t%,outpu|t%,black|
|000003a0| 25 2c 65 6e 64 25 0d 02 | 12 3e 73 63 61 6e 31 3d |%,end%..|.>scan1=|
|000003b0| 30 3a 73 63 61 6e 32 3d | 31 3a 62 6c 61 63 6b 3d |0:scan2=|1:black=|
|000003c0| 32 3a 65 6e 64 3d 33 3a | 77 6f 72 64 3d 34 3a 63 |2:end=3:|word=4:c|
|000003d0| 6f 75 6e 74 3d 35 3a 6c | 69 6e 6b 3d 31 34 3a 70 |ount=5:l|ink=14:p|
|000003e0| 63 3d 31 35 0d 02 1c 0f | e3 70 61 73 73 3d 30 b8 |c=15....|.pass=0.|
|000003f0| 32 88 32 0d 02 26 17 50 | 25 3d 67 61 70 25 2b 32 |2.2..&.P|%=gap%+2|
|00000400| 30 2d 67 61 70 25 20 83 | 31 36 0d 02 30 0c 5b 4f |0-gap% .|16..0.[O|
|00000410| 50 54 70 61 73 73 0d 02 | 3a 15 2e 69 6e 70 75 74 |PTpass..|:..input|
|00000420| 25 20 20 45 51 55 44 20 | 31 34 38 0d 02 44 14 20 |%  EQUD |148..D. |
|00000430| 20 20 20 20 20 20 20 20 | 45 51 55 44 20 2d 31 0d |        |EQUD -1.|
|00000440| 02 4e 18 2e 73 63 61 6e | 31 25 20 20 45 51 55 44 |.N..scan|1%  EQUD|
|00000450| 20 73 70 61 63 65 25 0d | 02 58 13 2e 6f 75 74 70 | space%.|.X..outp|
|00000460| 75 74 25 20 45 51 55 44 | 20 30 0d 02 62 1b 2e 62 |ut% EQUD| 0..b..b|
|00000470| 6c 61 63 6b 25 20 20 45 | 51 55 44 20 26 37 37 37 |lack%  E|QUD &777|
|00000480| 37 37 37 37 37 0d 02 6c | 1b 2e 65 6e 64 25 20 20 |77777..l|..end%  |
|00000490| 20 20 45 51 55 44 20 38 | 30 2a 31 30 32 34 2d 34 |  EQUD 8|0*1024-4|
|000004a0| 0d 02 76 05 3b 0d 02 80 | 0b 2e 64 65 63 6f 64 65 |..v.;...|..decode|
|000004b0| 0d 02 8a 3a 41 44 52 20 | 52 30 2c 69 6e 70 75 74 |...:ADR |R0,input|
|000004c0| 25 3a 41 44 52 20 52 31 | 2c 6f 75 74 70 75 74 25 |%:ADR R1|,output%|
|000004d0| 3a 53 57 49 20 22 4f 53 | 5f 52 65 61 64 56 64 75 |:SWI "OS|_ReadVdu|
|000004e0| 56 61 72 69 61 62 6c 65 | 73 22 0d 02 94 38 41 44 |Variable|s"...8AD|
|000004f0| 52 20 63 6f 75 6e 74 2c | 73 63 61 6e 31 25 3a 4c |R count,|scan1%:L|
|00000500| 44 4d 49 41 20 63 6f 75 | 6e 74 2c 7b 73 63 61 6e |DMIA cou|nt,{scan|
|00000510| 31 2c 73 63 61 6e 32 2c | 62 6c 61 63 6b 2c 65 6e |1,scan2,|black,en|
|00000520| 64 7d 0d 02 9e 15 41 44 | 44 20 65 6e 64 2c 65 6e |d}....AD|D end,en|
|00000530| 64 2c 73 63 61 6e 32 0d | 02 a8 05 3b 0d 02 b2 30 |d,scan2.|...;...0|
|00000540| 2e 72 65 70 65 61 74 20 | 4c 44 52 20 77 6f 72 64 |.repeat |LDR word|
|00000550| 2c 5b 73 63 61 6e 31 5d | 2c 23 26 30 34 3a 43 4d |,[scan1]|,#&04:CM|
|00000560| 50 20 77 6f 72 64 2c 62 | 6c 61 63 6b 0d 02 bc 24 |P word,b|lack...$|
|00000570| 42 45 51 20 67 72 6f 75 | 6e 64 3a 53 54 52 20 77 |BEQ grou|nd:STR w|
|00000580| 6f 72 64 2c 5b 73 63 61 | 6e 32 5d 2c 23 26 30 34 |ord,[sca|n2],#&04|
|00000590| 0d 02 c6 39 43 4d 50 20 | 73 63 61 6e 32 2c 65 6e |...9CMP |scan2,en|
|000005a0| 64 3a 42 4d 49 20 72 65 | 70 65 61 74 3a 53 54 52 |d:BMI re|peat:STR|
|000005b0| 20 73 63 61 6e 31 2c 73 | 63 61 6e 31 25 3a 4d 4f | scan1,s|can1%:MO|
|000005c0| 56 20 70 63 2c 6c 69 6e | 6b 0d 02 d0 40 2e 67 72 |V pc,lin|k...@.gr|
|000005d0| 6f 75 6e 64 20 4c 44 52 | 20 63 6f 75 6e 74 2c 5b |ound LDR| count,[|
|000005e0| 73 63 61 6e 31 5d 2c 23 | 26 30 34 3a 4d 4f 56 20 |scan1],#|&04:MOV |
|000005f0| 52 30 2c 52 30 3a 4d 4f | 56 20 52 30 2c 52 30 3a |R0,R0:MO|V R0,R0:|
|00000600| 4d 4f 56 20 52 30 2c 52 | 30 0d 02 da 3f 2e 6c 6f |MOV R0,R|0...?.lo|
|00000610| 6f 70 20 53 54 52 20 62 | 6c 61 63 6b 2c 5b 73 63 |op STR b|lack,[sc|
|00000620| 61 6e 32 5d 2c 23 26 30 | 34 3a 53 55 42 53 20 63 |an2],#&0|4:SUBS c|
|00000630| 6f 75 6e 74 2c 63 6f 75 | 6e 74 2c 23 26 30 31 3a |ount,cou|nt,#&01:|
|00000640| 42 50 4c 20 6c 6f 6f 70 | 0d 02 e4 39 43 4d 50 20 |BPL loop|...9CMP |
|00000650| 73 63 61 6e 32 2c 65 6e | 64 3a 42 4d 49 20 72 65 |scan2,en|d:BMI re|
|00000660| 70 65 61 74 3a 53 54 52 | 20 73 63 61 6e 31 2c 73 |peat:STR| scan1,s|
|00000670| 63 61 6e 31 25 3a 4d 4f | 56 20 70 63 2c 6c 69 6e |can1%:MO|V pc,lin|
|00000680| 6b 0d 02 ee 05 5d 0d 02 | f8 0d 73 70 61 63 65 25 |k....]..|..space%|
|00000690| 3d 50 25 0d 03 02 05 ed | 0d 03 0c 05 e1 0d ff    |=P%.....|....... |
+--------+-------------------------+-------------------------+--------+--------+