/ APDL Public Domain 1 / APDL_PD1A.iso / fileutils / openfiles / Source

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 2a f4 20 3e 41 | 44 46 53 3a 3a 50 72 6f |...*. >A|DFS::Pro|
|00000010| 67 2e 24 2e 55 74 69 6c | 73 2e 4f 70 65 6e 46 69 |g.$.Util|s.OpenFi|
|00000020| 6c 65 73 2e 53 6f 75 72 | 63 65 0d 00 14 15 f4 20 |les.Sour|ce..... |
|00000030| 42 79 20 41 6e 64 72 65 | 77 20 42 6f 77 65 72 0d |By Andre|w Bower.|
|00000040| 00 1e 14 f4 20 33 20 4f | 63 74 6f 62 65 72 20 31 |.... 3 O|ctober 1|
|00000050| 39 39 34 0d 00 28 27 f4 | 20 56 65 72 73 69 6f 6e |994..('.| Version|
|00000060| 3a 20 20 20 20 20 20 20 | 30 2e 30 32 20 28 31 32 |:       |0.02 (12|
|00000070| 20 4f 63 74 20 31 39 39 | 34 29 0d 00 32 05 3a 0d | Oct 199|4)..2.:.|
|00000080| 00 3c 0a 2a 46 58 31 2c | 33 0d 00 46 26 2a 52 4d |.<.*FX1,|3..F&*RM|
|00000090| 45 6e 73 75 72 65 20 55 | 74 69 6c 69 74 79 4d 6f |Ensure U|tilityMo|
|000000a0| 64 75 6c 65 20 33 2e 30 | 30 20 46 58 31 2c 32 0d |dule 3.0|0 FX1,2.|
|000000b0| 00 50 1c c8 99 20 22 4f | 53 5f 42 79 74 65 22 2c |.P... "O|S_Byte",|
|000000c0| 31 20 b8 20 2c 6f 73 76 | 65 72 25 0d 00 5a 05 3a |1 . ,osv|er%..Z.:|
|000000d0| 0d 00 64 10 de 20 63 6f | 64 65 20 32 30 34 38 30 |..d.. co|de 20480|
|000000e0| 0d 00 6e 11 4c 25 3d 63 | 6f 64 65 2b 32 30 34 36 |..n.L%=c|ode+2046|
|000000f0| 30 0d 00 78 1e e3 20 70 | 61 73 73 3d 25 31 31 30 |0..x.. p|ass=%110|
|00000100| 30 20 b8 20 25 31 31 31 | 30 20 88 20 25 31 30 0d |0 . %111|0 . %10.|
|00000110| 00 82 0b 4f 25 3d 63 6f | 64 65 0d 00 8c 08 50 25 |...O%=co|de....P%|
|00000120| 3d 30 0d 00 96 09 f2 63 | 6f 64 65 0d 00 a0 0a ed |=0.....c|ode.....|
|00000130| 20 70 61 73 73 0d 00 aa | 4a c8 99 20 22 4f 53 5f | pass...|J.. "OS_|
|00000140| 46 69 6c 65 22 2c 31 30 | 2c 22 41 44 46 53 3a 3a |File",10|,"ADFS::|
|00000150| 50 72 6f 67 2e 24 2e 55 | 74 69 6c 73 2e 4f 70 65 |Prog.$.U|tils.Ope|
|00000160| 6e 46 69 6c 65 73 2e 4f | 70 65 6e 46 69 6c 65 73 |nFiles.O|penFiles|
|00000170| 22 2c 26 46 46 43 2c 2c | 63 6f 64 65 2c 4f 25 0d |",&FFC,,|code,O%.|
|00000180| 00 b4 05 e0 0d 00 be 05 | 3a 0d 00 c8 0b dd 20 f2 |........|:..... .|
|00000190| 63 6f 64 65 0d 00 d2 0d | 5b 4f 50 54 20 70 61 73 |code....|[OPT pas|
|000001a0| 73 0d 00 dc 2a 4d 4f 56 | 20 52 31 31 2c 52 31 34 |s...*MOV| R11,R14|
|000001b0| 20 20 20 20 20 20 3b 20 | 73 61 76 65 20 72 65 74 |      ; |save ret|
|000001c0| 75 72 6e 20 61 64 64 72 | 65 73 73 0d 00 e6 29 4d |urn addr|ess...)M|
|000001d0| 4f 56 20 52 31 30 2c 52 | 31 33 20 20 20 20 20 20 |OV R10,R|13      |
|000001e0| 3b 20 73 61 76 65 20 73 | 74 61 63 6b 20 61 64 64 |; save s|tack add|
|000001f0| 72 65 73 73 0d 00 f0 04 | 0d 00 fa 0a 2e 73 74 61 |ress....|.....sta|
|00000200| 72 74 0d 01 04 2a 4d 4f | 56 20 52 38 2c 23 30 20 |rt...*MO|V R8,#0 |
|00000210| 20 20 20 20 20 20 3b 20 | 6e 75 6d 62 65 72 20 6f |      ; |number o|
|00000220| 66 20 66 69 6c 65 73 20 | 6f 70 65 6e 0d 01 0e 23 |f files |open...#|
|00000230| 4d 4f 56 20 52 31 2c 23 | 30 20 20 20 20 20 20 20 |MOV R1,#|0       |
|00000240| 3b 20 66 69 6c 65 20 68 | 61 6e 64 6c 65 2d 31 0d |; file h|andle-1.|
|00000250| 01 18 0d 2e 6e 65 78 74 | 66 69 6c 65 0d 01 22 25 |....next|file.."%|
|00000260| 41 44 44 20 52 31 2c 52 | 31 2c 23 31 20 20 20 20 |ADD R1,R|1,#1    |
|00000270| 3b 20 69 6e 63 20 66 69 | 6c 65 20 68 61 6e 64 6c |; inc fi|le handl|
|00000280| 65 0d 01 2c 0f 43 4d 50 | 20 52 31 2c 23 32 35 36 |e..,.CMP| R1,#256|
|00000290| 0d 01 36 11 42 48 53 20 | 64 6f 6e 65 66 69 6c 65 |..6.BHS |donefile|
|000002a0| 73 0d 01 40 21 4d 4f 56 | 20 52 30 2c 23 32 35 34 |s..@!MOV| R0,#254|
|000002b0| 20 20 20 20 20 3b 20 72 | 65 61 73 6f 6e 20 63 6f |     ; r|eason co|
|000002c0| 64 65 0d 01 4a 12 53 57 | 49 20 22 58 4f 53 5f 41 |de..J.SW|I "XOS_A|
|000002d0| 72 67 73 22 0d 01 54 0d | 42 56 53 20 65 72 72 6f |rgs"..T.|BVS erro|
|000002e0| 72 0d 01 5e 2d 54 53 54 | 20 52 30 2c 23 31 3c 3c |r..^-TST| R0,#1<<|
|000002f0| 31 31 20 20 20 3b 20 72 | 65 61 64 20 27 75 6e 61 |11   ; r|ead 'una|
|00000300| 6c 6c 6f 63 61 74 65 64 | 27 20 66 6c 61 67 0d 01 |llocated|' flag..|
|00000310| 68 10 42 4e 45 20 6e 65 | 78 74 66 69 6c 65 0d 01 |h.BNE ne|xtfile..|
|00000320| 72 2a 41 44 44 20 52 38 | 2c 52 38 2c 23 31 20 20 |r*ADD R8|,R8,#1  |
|00000330| 20 20 3b 20 69 6e 63 72 | 65 6d 65 6e 74 20 6f 70 |  ; incr|ement op|
|00000340| 65 6e 20 63 6f 75 6e 74 | 0d 01 7c 2e 4d 4f 56 20 |en count|..|.MOV |
|00000350| 52 37 2c 52 30 20 20 20 | 20 20 20 20 3b 20 73 61 |R7,R0   |    ; sa|
|00000360| 76 65 20 66 6c 61 67 20 | 77 6f 72 64 20 66 6f 72 |ve flag |word for|
|00000370| 20 6c 61 74 65 72 0d 01 | 86 26 4d 4f 56 20 52 36 | later..|.&MOV R6|
|00000380| 2c 52 31 20 20 20 20 20 | 20 20 3b 20 73 61 76 65 |,R1     |  ; save|
|00000390| 20 66 69 6c 65 20 68 61 | 6e 64 6c 65 0d 01 90 11 | file ha|ndle....|
|000003a0| 4c 44 52 20 52 33 2c 73 | 70 61 63 65 73 0d 01 9a |LDR R3,s|paces...|
|000003b0| 10 53 54 52 20 52 33 2c | 5b 52 31 32 5d 0d 01 a4 |.STR R3,|[R12]...|
|000003c0| 21 4d 4f 56 20 52 30 2c | 52 31 20 20 20 20 20 20 |!MOV R0,|R1      |
|000003d0| 20 3b 20 66 69 6c 65 20 | 68 61 6e 64 6c 65 0d 01 | ; file |handle..|
|000003e0| ae 1c 4d 4f 56 20 52 31 | 2c 52 31 32 20 20 20 20 |..MOV R1|,R12    |
|000003f0| 20 20 3b 20 62 75 66 66 | 65 72 0d 01 b8 21 4d 4f |  ; buff|er...!MO|
|00000400| 56 20 52 32 2c 23 34 30 | 30 20 20 20 20 20 3b 20 |V R2,#40|0     ; |
|00000410| 62 75 66 66 65 72 20 73 | 69 7a 65 0d 01 c2 1e 53 |buffer s|ize....S|
|00000420| 57 49 20 22 58 4f 53 5f | 43 6f 6e 76 65 72 74 43 |WI "XOS_|ConvertC|
|00000430| 61 72 64 69 6e 61 6c 31 | 22 0d 01 cc 0d 42 56 53 |ardinal1|"....BVS|
|00000440| 20 65 72 72 6f 72 0d 01 | d6 10 53 54 52 42 20 52 | error..|..STRB R|
|00000450| 33 2c 5b 52 31 5d 0d 01 | e0 0d 4d 4f 56 20 52 31 |3,[R1]..|..MOV R1|
|00000460| 2c 23 34 0d 01 ea 14 53 | 57 49 20 22 58 4f 53 5f |,#4....S|WI "XOS_|
|00000470| 57 72 69 74 65 4e 22 0d | 01 f4 0d 42 56 53 20 65 |WriteN".|...BVS e|
|00000480| 72 72 6f 72 0d 01 fe 0e | 4d 4f 56 20 52 31 2c 52 |rror....|MOV R1,R|
|00000490| 31 32 0d 02 08 24 54 53 | 54 20 52 37 2c 23 31 3c |12...$TS|T R7,#1<|
|000004a0| 3c 35 20 20 20 20 20 20 | 20 20 3b 20 44 69 72 65 |<5      |  ; Dire|
|000004b0| 63 74 6f 72 79 3f 0d 02 | 12 12 4d 4f 56 4e 45 20 |ctory?..|..MOVNE |
|000004c0| 52 30 2c 23 97 22 44 22 | 0d 02 1c 15 53 54 52 4e |R0,#."D"|....STRN|
|000004d0| 45 42 20 52 30 2c 5b 52 | 31 5d 2c 23 31 0d 02 26 |EB R0,[R|1],#1..&|
|000004e0| 20 54 53 54 20 52 37 2c | 23 31 3c 3c 37 20 20 20 | TST R7,|#1<<7   |
|000004f0| 20 20 20 20 20 3b 20 57 | 72 69 74 65 3f 0d 02 30 |     ; W|rite?..0|
|00000500| 12 4d 4f 56 4e 45 20 52 | 30 2c 23 97 22 57 22 0d |.MOVNE R|0,#."W".|
|00000510| 02 3a 15 53 54 52 4e 45 | 42 20 52 30 2c 5b 52 31 |.:.STRNE|B R0,[R1|
|00000520| 5d 2c 23 31 0d 02 44 1f | 54 53 54 20 52 37 2c 23 |],#1..D.|TST R7,#|
|00000530| 31 3c 3c 36 20 20 20 20 | 20 20 20 20 3b 20 52 65 |1<<6    |    ; Re|
|00000540| 61 64 3f 0d 02 4e 12 4d | 4f 56 4e 45 20 52 30 2c |ad?..N.M|OVNE R0,|
|00000550| 23 97 22 52 22 0d 02 58 | 15 53 54 52 4e 45 42 20 |#."R"..X|.STRNEB |
|00000560| 52 30 2c 5b 52 31 5d 2c | 23 31 0d 02 62 22 54 53 |R0,[R1],|#1..b"TS|
|00000570| 54 20 52 37 2c 23 31 3c | 3c 38 20 20 20 20 20 20 |T R7,#1<|<8      |
|00000580| 20 20 3b 20 43 68 61 6e | 67 65 64 3f 0d 02 6c 13 |  ; Chan|ged?..l.|
|00000590| 5c 4d 4f 56 4e 45 20 52 | 30 2c 23 97 22 20 22 0d |\MOVNE R|0,#." ".|
|000005a0| 02 76 16 5c 53 54 52 4e | 45 42 20 52 30 2c 5b 52 |.v.\STRN|EB R0,[R|
|000005b0| 31 5d 2c 23 31 0d 02 80 | 12 4d 4f 56 4e 45 20 52 |1],#1...|.MOVNE R|
|000005c0| 30 2c 23 97 22 2a 22 0d | 02 8a 15 53 54 52 4e 45 |0,#."*".|...STRNE|
|000005d0| 42 20 52 30 2c 5b 52 31 | 5d 2c 23 31 0d 02 94 0d |B R0,[R1|],#1....|
|000005e0| 4d 4f 56 20 52 30 2c 23 | 39 0d 02 9e 13 53 54 52 |MOV R0,#|9....STR|
|000005f0| 42 20 52 30 2c 5b 52 31 | 5d 2c 23 31 0d 02 a8 21 |B R0,[R1|],#1...!|
|00000600| 4d 4f 56 20 52 30 2c 23 | 37 20 20 20 20 20 20 20 |MOV R0,#|7       |
|00000610| 3b 20 72 65 61 73 6f 6e | 20 63 6f 64 65 0d 02 b2 |; reason| code...|
|00000620| 1c 4d 4f 56 20 52 32 2c | 52 31 20 20 20 20 20 20 |.MOV R2,|R1      |
|00000630| 20 3b 20 62 75 66 66 65 | 72 0d 02 bc 0d 4d 4f 56 | ; buffe|r....MOV|
|00000640| 20 52 31 2c 52 36 0d 02 | c6 0f 4d 4f 56 20 52 35 | R1,R6..|..MOV R5|
|00000650| 2c 23 34 34 38 0d 02 d0 | 12 53 57 49 20 22 58 4f |,#448...|.SWI "XO|
|00000660| 53 5f 41 72 67 73 22 0d | 02 da 0d 42 56 53 20 65 |S_Args".|...BVS e|
|00000670| 72 72 6f 72 0d 02 e4 0d | 43 4d 50 20 52 35 2c 23 |rror....|CMP R5,#|
|00000680| 30 0d 02 ee 16 41 44 52 | 45 51 20 52 30 2c 62 75 |0....ADR|EQ R0,bu|
|00000690| 66 66 6f 66 6c 6f 77 0d | 02 f8 15 53 57 49 45 51 |ffoflow.|...SWIEQ|
|000006a0| 20 22 4f 53 5f 57 72 69 | 74 65 30 22 0d 03 02 10 | "OS_Wri|te0"....|
|000006b0| 4d 4f 56 4e 45 20 52 30 | 2c 52 31 32 0d 03 0c 0f |MOVNE R0|,R12....|
|000006c0| 4d 4f 56 4e 45 20 52 31 | 2c 23 30 0d 03 16 0f 4d |MOVNE R1|,#0....M|
|000006d0| 4f 56 4e 45 20 52 32 2c | 23 30 0d 03 20 1b 53 57 |OVNE R2,|#0.. .SW|
|000006e0| 49 4e 45 20 22 58 4f 53 | 5f 50 72 65 74 74 79 50 |INE "XOS|_PrettyP|
|000006f0| 72 69 6e 74 22 0d 03 2a | 15 53 57 49 20 22 58 4f |rint"..*|.SWI "XO|
|00000700| 53 5f 4e 65 77 4c 69 6e | 65 22 0d 03 34 0d 42 56 |S_NewLin|e"..4.BV|
|00000710| 53 20 65 72 72 6f 72 0d | 03 3e 0d 4d 4f 56 20 52 |S error.|.>.MOV R|
|00000720| 31 2c 52 36 0d 03 48 0e | 42 20 6e 65 78 74 66 69 |1,R6..H.|B nextfi|
|00000730| 6c 65 0d 03 52 08 2e 65 | 6e 64 0d 03 5c 0f 4d 4f |le..R..e|nd..\.MO|
|00000740| 56 20 52 31 33 2c 52 31 | 30 0d 03 66 0e 4d 4f 56 |V R13,R1|0..f.MOV|
|00000750| 20 50 43 2c 52 31 31 0d | 03 70 0a 2e 65 72 72 6f | PC,R11.|.p..erro|
|00000760| 72 0d 03 7a 0f 4d 4f 56 | 20 52 31 33 2c 52 31 30 |r..z.MOV| R13,R10|
|00000770| 0d 03 84 19 84 52 53 20 | 50 43 2c 52 31 31 2c 23 |.....RS |PC,R11,#|
|00000780| 26 31 30 30 30 30 30 30 | 30 0d 03 8e 04 0d 03 98 |&1000000|0.......|
|00000790| 0e 2e 62 75 66 66 6f 66 | 6c 6f 77 0d 03 a2 25 45 |..buffof|low...%E|
|000007a0| 51 55 53 20 22 2a 2a 20 | 42 75 66 66 65 72 20 6f |QUS "** |Buffer o|
|000007b0| 76 65 72 66 6c 6f 77 65 | 64 20 2a 2a 22 2b bd 30 |verflowe|d **"+.0|
|000007c0| 0d 03 ac 0d 2e 6e 6f 6e | 65 6f 70 65 6e 0d 03 b6 |.....non|eopen...|
|000007d0| 1b 45 51 55 53 20 22 4e | 6f 20 66 69 6c 65 73 20 |.EQUS "N|o files |
|000007e0| 6f 70 65 6e 22 2b bd 30 | 0d 03 c0 09 41 4c 49 47 |open"+.0|....ALIG|
|000007f0| 4e 0d 03 ca 0b 2e 73 70 | 61 63 65 73 0d 03 d4 0f |N.....sp|aces....|
|00000800| 45 51 55 53 20 22 20 20 | 20 20 22 0d 03 de 04 0d |EQUS "  |  ".....|
|00000810| 03 e8 0e 2e 64 6f 6e 65 | 66 69 6c 65 73 0d 03 f2 |....done|files...|
|00000820| 0d 43 4d 50 20 52 38 2c | 23 30 0d 03 fc 15 41 44 |.CMP R8,|#0....AD|
|00000830| 52 45 51 20 52 30 2c 6e | 6f 6e 65 6f 70 65 6e 0d |REQ R0,n|oneopen.|
|00000840| 04 06 15 53 57 49 45 51 | 20 22 4f 53 5f 57 72 69 |...SWIEQ| "OS_Wri|
|00000850| 74 65 30 22 0d 04 10 0b | 42 45 51 20 65 6e 64 0d |te0"....|BEQ end.|
|00000860| 04 1a 15 53 57 49 20 22 | 58 4f 53 5f 4e 65 77 4c |...SWI "|XOS_NewL|
|00000870| 69 6e 65 22 0d 04 24 0d | 42 56 53 20 65 72 72 6f |ine"..$.|BVS erro|
|00000880| 72 0d 04 2e 13 53 57 49 | 20 22 4f 53 5f 57 72 69 |r....SWI| "OS_Wri|
|00000890| 74 65 53 22 0d 04 38 1a | 45 51 55 53 20 22 43 6c |teS"..8.|EQUS "Cl|
|000008a0| 6f 73 65 20 66 69 6c 65 | 20 23 22 2b bd 30 0d 04 |ose file| #"+.0..|
|000008b0| 42 09 41 4c 49 47 4e 0d | 04 4c 41 84 52 20 52 30 |B.ALIGN.|.LA.R R0|
|000008c0| 2c 52 31 32 2c 23 30 20 | 3b 20 77 61 73 20 23 31 |,R12,#0 |; was #1|
|000008d0| 3c 3c 33 31 2c 20 62 75 | 74 20 66 61 69 6c 73 20 |<<31, bu|t fails |
|000008e0| 77 69 74 68 20 27 4c 69 | 6e 65 45 64 69 74 6f 72 |with 'Li|neEditor|
|000008f0| 27 20 6d 6f 64 75 6c 65 | 0d 04 56 0f 4d 4f 56 20 |' module|..V.MOV |
|00000900| 52 31 2c 23 31 32 38 0d | 04 60 10 4d 4f 56 20 52 |R1,#128.|.`.MOV R|
|00000910| 32 2c 23 97 22 30 22 0d | 04 6a 10 4d 4f 56 20 52 |2,#."0".|.j.MOV R|
|00000920| 33 2c 23 97 22 39 22 0d | 04 74 16 53 57 49 20 22 |3,#."9".|.t.SWI "|
|00000930| 58 4f 53 5f 52 65 61 64 | 4c 69 6e 65 22 0d 04 7e |XOS_Read|Line"..~|
|00000940| 0d 42 56 53 20 65 72 72 | 6f 72 0d 04 88 0b 42 43 |.BVS err|or....BC|
|00000950| 53 20 65 6e 64 0d 04 92 | 0d 43 4d 50 20 52 31 2c |S end...|.CMP R1,|
|00000960| 23 30 0d 04 9c 0b 42 45 | 51 20 65 6e 64 0d 04 a6 |#0....BE|Q end...|
|00000970| 0d 4d 4f 56 20 52 30 2c | 23 30 0d 04 b0 14 53 54 |.MOV R0,|#0....ST|
|00000980| 52 42 20 52 30 2c 5b 52 | 31 32 2c 52 31 5d 0d 04 |RB R0,[R|12,R1]..|
|00000990| ba 2b 3b 20 62 61 73 65 | 20 31 30 20 69 6d 70 6c |.+; base| 10 impl|
|000009a0| 69 65 64 20 62 65 63 61 | 75 73 65 20 52 30 20 69 |ied beca|use R0 i|
|000009b0| 73 20 69 6e 76 61 6c 69 | 64 0d 04 c4 0e 4d 4f 56 |s invali|d....MOV|
|000009c0| 20 52 31 2c 52 31 32 0d | 04 ce 1a 53 57 49 20 22 | R1,R12.|...SWI "|
|000009d0| 58 4f 53 5f 52 65 61 64 | 55 6e 73 69 67 6e 65 64 |XOS_Read|Unsigned|
|000009e0| 22 0d 04 d8 0d 42 56 53 | 20 65 72 72 6f 72 0d 04 |"....BVS| error..|
|000009f0| e2 0d 4d 4f 56 20 52 31 | 2c 52 32 0d 04 ec 0d 4d |..MOV R1|,R2....M|
|00000a00| 4f 56 20 52 30 2c 23 30 | 0d 04 f6 0d 43 4d 50 20 |OV R0,#0|....CMP |
|00000a10| 52 31 2c 23 30 0d 05 00 | 13 53 57 49 4e 45 20 22 |R1,#0...|.SWINE "|
|00000a20| 4f 53 5f 46 69 6e 64 22 | 0d 05 0a 14 53 57 49 20 |OS_Find"|....SWI |
|00000a30| 22 4f 53 5f 4e 65 77 4c | 69 6e 65 22 0d 05 14 0b |"OS_NewL|ine"....|
|00000a40| 42 20 73 74 61 72 74 0d | 05 15 0f 45 51 55 53 20 |B start.|...EQUS |
|00000a50| 22 a9 41 4a 42 22 0d 05 | 16 0f 45 51 55 53 20 22 |".AJB"..|..EQUS "|
|00000a60| 30 76 30 32 22 0d 05 17 | 13 45 51 55 53 20 22 4f |0v02"...|.EQUS "O|
|00000a70| 63 74 20 31 39 39 34 22 | 0d 05 1e 05 5d 0d 05 28 |ct 1994"|....]..(|
|00000a80| 05 e1 0d ff             |                         |....    |        |
+--------+-------------------------+-------------------------+--------+--------+