/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / impression / progs / chkspr / !ChkSpr / Source

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 10 de 20 63 6f | 64 65 25 20 31 30 32 34 |..... co|de% 1024|
|00000010| 0d 00 14 17 e3 20 70 61 | 73 73 25 20 3d 20 30 20 |..... pa|ss% = 0 |
|00000020| b8 20 33 20 88 20 33 0d | 00 1e 0c 50 25 3d 63 6f |. 3 . 3.|...P%=co|
|00000030| 64 65 25 0d 00 28 0d 68 | 61 6e 64 6c 65 3d 31 30 |de%..(.h|andle=10|
|00000040| 0d 00 32 0b 6c 65 61 66 | 3d 31 31 0d 00 3c 0e 6c |..2.leaf|=11..<.l|
|00000050| 65 61 66 65 6e 64 3d 31 | 32 0d 00 46 0f 5b 20 4f |eafend=1|2..F.[ O|
|00000060| 50 54 20 70 61 73 73 25 | 0d 00 50 2a 73 74 6d 66 |PT pass%|..P*stmf|
|00000070| 64 20 72 31 33 21 2c 7b | 72 31 34 7d 20 20 20 3b |d r13!,{|r14}   ;|
|00000080| 20 70 75 74 20 6c 69 6e | 6b 20 6f 6e 20 73 74 61 | put lin|k on sta|
|00000090| 63 6b 0d 00 5a 18 3a 20 | 20 20 20 20 20 20 20 20 |ck..Z.: |        |
|000000a0| 20 20 20 20 20 20 20 20 | 20 3b 0d 00 64 28 61 64 |        | ;..d(ad|
|000000b0| 72 20 72 30 2c 6f 73 76 | 61 72 20 20 20 20 20 20 |r r0,osv|ar      |
|000000c0| 20 3b 20 70 74 72 20 74 | 6f 20 76 61 72 20 6e 61 | ; ptr t|o var na|
|000000d0| 6d 65 0d 00 6e 2d 61 64 | 72 20 72 31 2c 70 61 74 |me..n-ad|r r1,pat|
|000000e0| 68 20 20 20 20 20 20 20 | 20 3b 20 70 74 72 20 74 |h       | ; ptr t|
|000000f0| 6f 20 73 74 72 69 6e 67 | 20 62 75 66 66 65 72 0d |o string| buffer.|
|00000100| 00 78 24 6d 6f 76 20 72 | 32 2c 23 32 30 30 20 20 |.x$mov r|2,#200  |
|00000110| 20 20 20 20 20 20 3b 20 | 62 75 66 66 65 72 20 73 |      ; |buffer s|
|00000120| 69 7a 65 0d 00 82 32 6d | 6f 76 20 72 33 2c 23 30 |ize...2m|ov r3,#0|
|00000130| 20 20 20 20 20 20 20 20 | 20 20 3b 20 6e 61 6d 65 |        |  ; name|
|00000140| 20 70 74 72 20 28 30 20 | 66 6f 72 20 31 73 74 20 | ptr (0 |for 1st |
|00000150| 63 61 6c 6c 29 0d 00 8c | 28 6d 6f 76 20 72 34 2c |call)...|(mov r4,|
|00000160| 23 30 20 20 20 20 20 20 | 20 20 20 20 3b 20 28 3d |#0      |    ; (=|
|00000170| 33 20 66 6f 72 20 65 78 | 70 61 6e 64 29 0d 00 96 |3 for ex|pand)...|
|00000180| 19 73 77 69 20 22 58 4f | 53 5f 52 65 61 64 56 61 |.swi "XO|S_ReadVa|
|00000190| 72 56 61 6c 22 3b 0d 00 | a0 18 3a 20 20 20 20 20 |rVal";..|..:     |
|000001a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 0d 00 |        |     ;..|
|000001b0| aa 20 6c 64 6d 76 73 66 | 64 20 72 31 33 21 2c 7b |. ldmvsf|d r13!,{|
|000001c0| 72 31 35 7d 20 3b 20 63 | 68 65 65 72 69 6f 0d 00 |r15} ; c|heerio..|
|000001d0| b4 18 3a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..:     |        |
|000001e0| 20 20 20 20 20 3b 0d 00 | be 3c 61 64 64 20 6c 65 |     ;..|.<add le|
|000001f0| 61 66 65 6e 64 2c 72 31 | 2c 72 32 20 20 3b 20 65 |afend,r1|,r2  ; e|
|00000200| 6e 64 20 6f 66 20 73 74 | 72 20 3d 20 62 65 67 69 |nd of st|r = begi|
|00000210| 6e 20 6f 66 20 73 74 72 | 20 2b 20 73 74 72 20 6c |n of str| + str l|
|00000220| 65 6e 0d 00 c8 18 6d 6f | 76 20 6c 65 61 66 2c 6c |en....mo|v leaf,l|
|00000230| 65 61 66 65 6e 64 20 20 | 20 3b 0d 00 d2 1a 41 44 |eafend  | ;....AD|
|00000240| 44 20 6c 65 61 66 65 6e | 64 2c 6c 65 61 66 65 6e |D leafen|d,leafen|
|00000250| 64 2c 23 31 0d 00 dc 18 | 2e 6c 65 61 66 6c 6f 6f |d,#1....|.leafloo|
|00000260| 70 20 20 20 20 20 20 20 | 20 20 20 3b 0d 00 e6 35 |p       |   ;...5|
|00000270| 6c 64 72 62 20 72 30 2c | 5b 6c 65 61 66 2c 23 2d |ldrb r0,|[leaf,#-|
|00000280| 31 5d 21 3b 20 72 65 61 | 64 20 62 79 74 65 20 6f |1]!; rea|d byte o|
|00000290| 6e 65 20 6c 65 73 73 20 | 74 68 61 6e 20 6c 65 61 |ne less |than lea|
|000002a0| 66 0d 00 f0 1e 63 6d 70 | 20 72 30 2c 23 97 22 2e |f....cmp| r0,#.".|
|000002b0| 22 20 20 20 20 20 3b 20 | 69 73 20 69 74 20 2e 0d |"     ; |is it ..|
|000002c0| 00 fa 29 62 6e 65 20 6c | 65 61 66 6c 6f 6f 70 20 |..)bne l|eafloop |
|000002d0| 20 20 20 20 20 20 3b 20 | 69 66 20 6e 6f 74 20 74 |      ; |if not t|
|000002e0| 72 79 20 61 67 61 69 6e | 0d 01 04 3b 61 64 64 20 |ry again|...;add |
|000002f0| 6c 65 61 66 2c 6c 65 61 | 66 2c 23 31 20 20 20 3b |leaf,lea|f,#1   ;|
|00000300| 20 6c 65 61 66 20 2b 3d | 20 31 20 63 6f 73 20 77 | leaf +=| 1 cos w|
|00000310| 65 20 6f 76 65 72 73 74 | 65 70 65 64 20 62 79 20 |e overst|eped by |
|00000320| 6f 6e 65 0d 01 0e 18 3a | 20 20 20 20 20 20 20 20 |one....:|        |
|00000330| 20 20 20 20 20 20 20 20 | 20 20 3b 0d 01 18 18 6d |        |  ;....m|
|00000340| 6f 76 20 72 31 2c 6c 65 | 61 66 20 20 20 20 20 20 |ov r1,le|af      |
|00000350| 20 20 3b 0d 01 22 18 3b | 6d 6f 76 20 72 32 2c 6c |  ;..".;|mov r2,l|
|00000360| 65 61 66 65 6e 64 20 20 | 20 20 3b 0d 01 2c 18 73 |eafend  |  ;..,.s|
|00000370| 75 62 20 72 31 2c 72 31 | 2c 23 31 20 20 20 20 20 |ub r1,r1|,#1     |
|00000380| 20 20 3b 0d 01 36 18 2e | 6c 6f 77 65 72 6c 6f 6f |  ;..6..|lowerloo|
|00000390| 70 20 20 20 20 20 20 20 | 20 20 3b 0d 01 40 18 6c |p       |  ;..@.l|
|000003a0| 64 72 62 20 72 30 2c 5b | 72 31 2c 23 31 5d 21 20 |drb r0,[|r1,#1]! |
|000003b0| 20 20 3b 0d 01 4a 0d 63 | 6d 70 20 52 30 2c 23 30 |  ;..J.c|mp R0,#0|
|000003c0| 0d 01 54 1a 6f 72 72 6e | 65 20 72 30 2c 72 30 2c |..T.orrn|e r0,r0,|
|000003d0| 23 25 31 30 30 30 30 30 | 20 3b 0d 01 5e 1a 73 74 |#%100000| ;..^.st|
|000003e0| 72 6e 65 62 20 72 30 2c | 5b 72 31 5d 20 20 20 20 |rneb r0,|[r1]    |
|000003f0| 20 20 20 3b 0d 01 68 18 | 62 6e 65 20 6c 6f 77 65 |   ;..h.|bne lowe|
|00000400| 72 6c 6f 6f 70 20 20 20 | 20 20 20 3b 0d 01 72 18 |rloop   |   ;..r.|
|00000410| 3a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |:       |        |
|00000420| 20 20 20 3b 0d 01 7c 18 | 2e 6f 70 65 6e 75 70 20 |   ;..|.|.openup |
|00000430| 20 20 20 20 20 20 20 20 | 20 20 20 3b 0d 01 86 43 |        |   ;...C|
|00000440| 6d 6f 76 20 72 30 2c 23 | 28 31 39 32 2b 30 29 20 |mov r0,#|(192+0) |
|00000450| 20 20 20 3b 20 6f 70 65 | 6e 75 70 20 66 69 6c 65 |   ; ope|nup file|
|00000460| 6e 61 6d 65 20 77 69 74 | 68 6f 75 74 20 70 61 74 |name wit|hout pat|
|00000470| 68 20 76 61 72 69 61 62 | 6c 65 20 6e 61 6d 65 0d |h variab|le name.|
|00000480| 01 90 28 61 64 72 20 72 | 31 2c 66 69 6c 65 6e 61 |..(adr r|1,filena|
|00000490| 6d 65 20 20 20 20 3b 20 | 70 74 72 20 74 6f 20 66 |me    ; |ptr to f|
|000004a0| 69 6c 65 6e 61 6d 65 0d | 01 9a 18 6d 6f 76 20 72 |ilename.|...mov r|
|000004b0| 33 2c 23 30 20 20 20 20 | 20 20 20 20 20 20 3b 0d |3,#0    |      ;.|
|000004c0| 01 a4 18 73 77 69 20 22 | 58 4f 53 5f 46 69 6e 64 |...swi "|XOS_Find|
|000004d0| 22 20 20 20 20 20 3b 0d | 01 ae 18 3a 20 20 20 20 |"     ;.|...:    |
|000004e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 0d |        |      ;.|
|000004f0| 01 b8 2c 6d 6f 76 20 68 | 61 6e 64 6c 65 2c 72 30 |..,mov h|andle,r0|
|00000500| 20 20 20 20 20 20 3b 20 | 73 74 6f 72 65 20 68 61 |      ; |store ha|
|00000510| 6e 64 6c 65 20 73 61 66 | 65 6c 79 0d 01 c2 29 63 |ndle saf|ely...)c|
|00000520| 6d 70 20 72 30 2c 23 30 | 20 20 20 20 20 20 20 20 |mp r0,#0|        |
|00000530| 20 20 3b 20 64 6f 65 73 | 20 66 69 6c 65 20 65 78 |  ; does| file ex|
|00000540| 69 73 74 3f 0d 01 cc 18 | 62 65 71 20 65 6e 64 20 |ist?....|beq end |
|00000550| 20 20 20 20 20 20 20 20 | 20 20 20 3b 0d 01 d6 18 |        |   ;....|
|00000560| 3a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |:       |        |
|00000570| 20 20 20 3b 0d 01 e0 3d | 6d 6f 76 20 72 30 2c 23 |   ;...=|mov r0,#|
|00000580| 33 20 20 20 20 20 20 20 | 20 20 20 3b 20 72 65 61 |3       |   ; rea|
|00000590| 64 20 62 79 74 65 73 20 | 66 72 6f 6d 20 61 20 73 |d bytes |from a s|
|000005a0| 70 65 63 69 66 69 65 64 | 20 70 6f 73 69 74 69 6f |pecified| positio|
|000005b0| 6e 0d 01 ea 24 6d 6f 76 | 20 72 31 2c 68 61 6e 64 |n...$mov| r1,hand|
|000005c0| 6c 65 20 20 20 20 20 20 | 3b 20 66 69 6c 65 20 68 |le      |; file h|
|000005d0| 61 6e 64 6c 65 0d 01 f4 | 2c 61 64 72 20 72 32 2c |andle...|,adr r2,|
|000005e0| 73 74 6f 72 65 20 20 20 | 20 20 20 20 3b 20 73 74 |store   |    ; st|
|000005f0| 6f 72 65 20 64 61 74 61 | 20 61 74 20 73 74 6f 72 |ore data| at stor|
|00000600| 65 0d 01 fe 2e 6d 6f 76 | 20 72 33 2c 23 31 30 20 |e....mov| r3,#10 |
|00000610| 20 20 20 20 20 20 20 20 | 3b 20 64 61 74 61 20 69 |        |; data i|
|00000620| 73 20 31 30 20 62 79 74 | 65 73 20 6c 6f 6e 67 0d |s 10 byt|es long.|
|00000630| 02 08 37 6d 6f 76 20 72 | 34 2c 23 26 31 30 20 20 |..7mov r|4,#&10  |
|00000640| 20 20 20 20 20 20 3b 20 | 66 69 6c 65 20 70 6f 69 |      ; |file poi|
|00000650| 6e 74 65 72 20 74 6f 20 | 73 74 61 72 74 20 6f 66 |nter to |start of|
|00000660| 20 62 6c 6f 63 6b 0d 02 | 12 18 73 77 69 20 22 58 | block..|..swi "X|
|00000670| 4f 53 5f 47 42 50 42 22 | 20 20 20 20 20 3b 0d 02 |OS_GBPB"|     ;..|
|00000680| 1c 18 3a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..:     |        |
|00000690| 20 20 20 20 20 3b 0d 02 | 26 18 6d 6f 76 20 72 32 |     ;..|&.mov r2|
|000006a0| 2c 6c 65 61 66 20 20 20 | 20 20 20 20 20 3b 0d 02 |,leaf   |     ;..|
|000006b0| 30 18 61 64 72 20 72 33 | 2c 73 74 6f 72 65 20 20 |0.adr r3|,store  |
|000006c0| 20 20 20 20 20 3b 0d 02 | 3a 18 2e 63 6d 70 6c 6f |     ;..|:..cmplo|
|000006d0| 6f 70 20 20 20 20 20 20 | 20 20 20 20 20 3b 0d 02 |op      |     ;..|
|000006e0| 44 18 6c 64 72 62 20 72 | 30 2c 5b 72 32 2c 23 31 |D.ldrb r|0,[r2,#1|
|000006f0| 5d 21 20 20 20 3b 0d 02 | 4e 18 6c 64 72 62 20 72 |]!   ;..|N.ldrb r|
|00000700| 31 2c 5b 72 33 2c 23 31 | 5d 21 20 20 20 3b 0d 02 |1,[r3,#1|]!   ;..|
|00000710| 58 18 63 6d 70 20 72 30 | 2c 72 31 20 20 20 20 20 |X.cmp r0|,r1     |
|00000720| 20 20 20 20 20 3b 0d 02 | 62 18 62 65 71 20 63 6d |     ;..|b.beq cm|
|00000730| 70 6c 6f 6f 70 20 20 20 | 20 20 20 20 20 3b 0d 02 |ploop   |     ;..|
|00000740| 6c 19 3b 61 64 64 20 72 | 32 2c 72 32 2c 23 31 20 |l.;add r|2,r2,#1 |
|00000750| 20 20 20 20 20 20 3b 0d | 02 76 18 63 6d 70 20 72 |      ;.|.v.cmp r|
|00000760| 32 2c 6c 65 61 66 65 6e | 64 20 20 20 20 20 3b 0d |2,leafen|d     ;.|
|00000770| 02 80 18 62 67 65 20 65 | 6e 64 20 20 20 20 20 20 |...bge e|nd      |
|00000780| 20 20 20 20 20 20 3b 0d | 02 8a 18 3a 20 20 20 20 |      ;.|...:    |
|00000790| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 0d |        |      ;.|
|000007a0| 02 94 18 6d 6f 76 20 72 | 30 2c 23 31 20 20 20 20 |...mov r|0,#1    |
|000007b0| 20 20 20 20 20 20 3b 0d | 02 9e 18 6d 6f 76 20 72 |      ;.|...mov r|
|000007c0| 31 2c 68 61 6e 64 6c 65 | 20 20 20 20 20 20 3b 0d |1,handle|      ;.|
|000007d0| 02 a8 18 6d 6f 76 20 72 | 32 2c 6c 65 61 66 20 20 |...mov r|2,leaf  |
|000007e0| 20 20 20 20 20 20 3b 0d | 02 b2 18 6d 6f 76 20 72 |      ;.|...mov r|
|000007f0| 33 2c 23 31 32 20 20 20 | 20 20 20 20 20 20 3b 0d |3,#12   |      ;.|
|00000800| 02 bc 0f 6d 6f 76 20 72 | 34 2c 23 26 31 30 0d 02 |...mov r|4,#&10..|
|00000810| c6 18 73 77 69 20 22 58 | 4f 53 5f 47 42 50 42 22 |..swi "X|OS_GBPB"|
|00000820| 20 20 20 20 20 3b 0d 02 | d0 18 3a 20 20 20 20 20 |     ;..|..:     |
|00000830| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 0d 02 |        |     ;..|
|00000840| da 18 2e 65 6e 64 20 20 | 20 20 20 20 20 20 20 20 |...end  |        |
|00000850| 20 20 20 20 20 3b 0d 02 | e4 25 6d 6f 76 20 72 31 |     ;..|.%mov r1|
|00000860| 2c 68 61 6e 64 6c 65 20 | 20 20 20 20 20 3b 20 68 |,handle |     ; h|
|00000870| 61 6e 64 6c 65 20 74 6f | 20 72 31 0d 02 ee 23 6d |andle to| r1...#m|
|00000880| 6f 76 20 72 30 2c 23 30 | 20 20 20 20 20 20 20 20 |ov r0,#0|        |
|00000890| 20 20 3b 20 63 6c 6f 73 | 65 20 66 69 6c 65 0d 02 |  ; clos|e file..|
|000008a0| f8 18 73 77 69 20 22 58 | 4f 53 5f 46 69 6e 64 22 |..swi "X|OS_Find"|
|000008b0| 20 20 20 20 20 3b 0d 03 | 02 25 6c 64 6d 66 64 20 |     ;..|.%ldmfd |
|000008c0| 72 31 33 21 2c 7b 72 31 | 35 7d 20 20 20 3b 20 73 |r13!,{r1|5}   ; s|
|000008d0| 65 65 20 79 61 20 72 6f | 75 6e 64 0d 03 0c 05 3a |ee ya ro|und....:|
|000008e0| 0d 03 16 10 2e 62 79 74 | 65 20 45 51 55 44 20 30 |.....byt|e EQUD 0|
|000008f0| 0d 03 20 0d 2e 66 69 6c | 65 6e 61 6d 65 0d 03 2a |.. ..fil|ename..*|
|00000900| 22 65 71 75 73 20 22 3c | 4f 62 65 79 24 44 69 72 |"equs "<|Obey$Dir|
|00000910| 3e 2e 21 53 70 72 69 74 | 65 73 22 2b bd 31 33 0d |>.!Sprit|es"+.13.|
|00000920| 03 34 0a 2e 6f 73 76 61 | 72 0d 03 3e 17 65 71 75 |.4..osva|r..>.equ|
|00000930| 73 20 22 4f 62 65 79 24 | 44 69 72 22 2b bd 31 33 |s "Obey$|Dir"+.13|
|00000940| 0d 03 48 0a 2e 73 74 6f | 72 65 0d 03 52 10 65 71 |..H..sto|re..R.eq|
|00000950| 75 73 20 c4 31 32 2c bd | 30 29 0d 03 5c 09 2e 70 |us .12,.|0)..\..p|
|00000960| 61 74 68 0d 03 66 11 65 | 71 75 73 20 c4 32 30 30 |ath..f.e|qus .200|
|00000970| 2c bd 30 29 0d 03 70 05 | 5d 0d 03 7a 05 ed 0d 03 |,.0)..p.|]..z....|
|00000980| 84 25 f1 20 22 53 41 56 | 45 20 63 68 6b 73 70 72 |.%. "SAV|E chkspr|
|00000990| 20 22 2b c3 7e 63 6f 64 | 65 25 2b 22 20 22 2b c3 | "+.~cod|e%+" "+.|
|000009a0| 7e 50 25 0d 03 8e 1d f1 | 22 53 65 74 54 79 70 65 |~P%.....|"SetType|
|000009b0| 20 63 68 6b 73 70 72 20 | 55 74 69 6c 69 74 79 22 | chkspr |Utility"|
|000009c0| 0d ff                   |                         |..      |        |
+--------+-------------------------+-------------------------+--------+--------+