/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / b / baslib2 / !Yadfs / BasLib / Malloc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 40 f4 20 3e 25 | 2e 42 61 73 6c 69 62 2e |...@. >%|.Baslib.|
|00000010| 4d 61 6c 6c 6f 63 20 31 | 2e 30 20 2d 20 4d 65 6d |Malloc 1|.0 - Mem|
|00000020| 6f 72 79 20 61 6c 6c 6f | 63 61 74 69 6f 6e 20 61 |ory allo|cation a|
|00000030| 6e 64 20 64 65 2d 61 6c | 6c 6f 63 61 74 69 6f 6e |nd de-al|location|
|00000040| 0d 00 14 43 2a 7c 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |...C*|--|--------|
|00000050| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000060| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000070| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000080| 2d 7c 2a 0d 00 1e 28 2a | 7c 20 28 63 29 20 43 6f |-|*...(*|| (c) Co|
|00000090| 70 79 72 69 67 68 74 20 | 31 39 39 31 2c 20 43 68 |pyright |1991, Ch|
|000000a0| 72 69 73 20 43 6f 72 62 | 65 74 74 0d 00 28 40 2a |ris Corb|ett..(@*|
|000000b0| 7c 20 54 68 69 73 20 6d | 6f 64 75 6c 65 20 63 6f || This m|odule co|
|000000c0| 6e 74 61 69 6e 73 20 74 | 68 65 20 66 75 6e 63 74 |ntains t|he funct|
|000000d0| 69 6f 6e 73 20 46 4e 6d | 61 6c 6c 6f 63 2c 20 46 |ions FNm|alloc, F|
|000000e0| 4e 63 61 6c 6c 6f 63 20 | 61 6e 64 0d 00 32 42 2a |Ncalloc |and..2B*|
|000000f0| 7c 20 46 4e 66 72 65 65 | 2e 20 54 68 65 79 20 70 || FNfree|. They p|
|00000100| 72 6f 76 69 64 65 20 65 | 71 75 69 76 61 6c 65 6e |rovide e|quivalen|
|00000110| 74 20 6d 65 6d 6f 72 79 | 20 61 6c 6c 6f 63 61 74 |t memory| allocat|
|00000120| 69 6f 6e 20 66 75 6e 63 | 74 69 6f 6e 73 0d 00 3c |ion func|tions..<|
|00000130| 40 2a 7c 20 61 73 20 70 | 72 6f 76 69 64 65 64 20 |@*| as p|rovided |
|00000140| 69 6e 20 43 20 6c 69 62 | 72 61 72 79 20 65 71 75 |in C lib|rary equ|
|00000150| 69 76 61 6c 65 6e 74 73 | 2e 20 49 6e 74 65 72 6e |ivalents|. Intern|
|00000160| 61 6c 6c 79 2c 20 4f 53 | 5f 48 65 61 70 0d 00 46 |ally, OS|_Heap..F|
|00000170| 40 2a 7c 20 53 57 49 73 | 20 61 72 65 20 75 73 65 |@*| SWIs| are use|
|00000180| 64 20 77 69 74 68 20 74 | 68 65 20 68 65 61 70 20 |d with t|he heap |
|00000190| 61 6c 6c 6f 63 61 74 65 | 64 20 61 62 6f 76 65 20 |allocate|d above |
|000001a0| 42 41 53 49 43 20 70 72 | 6f 67 72 61 6d 0d 00 50 |BASIC pr|ogram..P|
|000001b0| 20 2a 7c 20 73 70 61 63 | 65 20 28 69 2e 65 2e 20 | *| spac|e (i.e. |
|000001c0| 61 62 6f 76 65 20 48 49 | 4d 45 4d 29 2e 0d 00 5a |above HI|MEM)...Z|
|000001d0| 43 2a 7c 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |C*|-----|--------|
|000001e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000001f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000200| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 7c 2a |--------|------|*|
|00000210| 0d 00 64 05 3a 0d 00 6e | 14 dd 20 a4 6d 61 6c 6c |..d.:..n|.. .mall|
|00000220| 6f 63 28 73 69 7a 65 25 | 29 0d 00 78 42 2a 7c 20 |oc(size%|)..xB*| |
|00000230| 72 65 74 75 72 6e 20 70 | 6f 69 6e 74 65 72 20 74 |return p|ointer t|
|00000240| 6f 20 62 6c 6f 63 6b 20 | 6f 66 20 73 69 7a 65 25 |o block |of size%|
|00000250| 20 62 79 74 65 73 2c 20 | 67 75 61 72 61 6e 74 65 | bytes, |guarante|
|00000260| 65 64 20 74 6f 20 73 74 | 61 72 74 0d 00 82 44 2a |ed to st|art...D*|
|00000270| 7c 20 6f 6e 20 61 20 77 | 6f 72 64 20 62 6f 75 6e || on a w|ord boun|
|00000280| 64 61 72 79 2e 20 55 73 | 65 73 20 4f 53 5f 48 65 |dary. Us|es OS_He|
|00000290| 61 70 20 66 75 6e 63 74 | 69 6f 6e 73 20 74 6f 20 |ap funct|ions to |
|000002a0| 61 6c 6c 6f 63 61 74 65 | 20 73 70 61 63 65 2e 0d |allocate| space..|
|000002b0| 00 8c 24 20 20 ea 20 6d | 65 6d 62 6c 6b 25 2c 20 |..$  . m|emblk%, |
|000002c0| 70 74 72 25 2c 20 66 72 | 65 65 25 2c 20 74 6f 74 |ptr%, fr|ee%, tot|
|000002d0| 61 6c 25 0d 00 96 15 20 | 20 e7 20 73 69 7a 65 25 |al%.... | . size%|
|000002e0| 3d 30 20 8c 20 3d 2d 31 | 0d 00 a0 2c 20 20 c8 99 |=0 . =-1|...,  ..|
|000002f0| 20 22 58 4f 53 5f 48 65 | 61 70 22 2c 31 2c 93 20 | "XOS_He|ap",1,. |
|00000300| b8 20 70 74 72 25 2c 2c | 66 72 65 65 25 2c 74 6f |. ptr%,,|free%,to|
|00000310| 74 61 6c 25 0d 00 aa 13 | 20 20 e7 20 70 74 72 25 |tal%....|  . ptr%|
|00000320| 20 3c 3e 20 31 20 8c 0d | 00 b4 2a 2a 7c 20 54 68 | <> 1 ..|..**| Th|
|00000330| 65 20 68 65 61 70 20 68 | 61 73 20 6e 65 76 65 72 |e heap h|as never|
|00000340| 20 62 65 65 6e 20 69 6e | 69 74 69 61 6c 69 73 65 | been in|itialise|
|00000350| 64 0d 00 be 15 20 20 20 | 20 f2 4d 65 6d 5f 61 73 |d....   | .Mem_as|
|00000360| 73 65 6d 62 6c 65 0d 00 | c8 2a 20 20 20 20 c8 99 |semble..|.*    ..|
|00000370| 20 22 57 69 6d 70 5f 53 | 6c 6f 74 53 69 7a 65 22 | "Wimp_S|lotSize"|
|00000380| 2c 2d 31 2c 2d 31 20 b8 | 20 6d 65 6d 62 6c 6b 25 |,-1,-1 .| memblk%|
|00000390| 0d 00 d2 35 20 20 20 20 | c8 99 20 22 57 69 6d 70 |...5    |.. "Wimp|
|000003a0| 5f 53 6c 6f 74 53 69 7a | 65 22 2c 6d 65 6d 62 6c |_SlotSiz|e",membl|
|000003b0| 6b 25 2b 73 69 7a 65 25 | 2b 31 36 2c 2d 31 20 b8 |k%+size%|+16,-1 .|
|000003c0| 20 70 74 72 25 0d 00 dc | 26 20 20 20 20 c8 99 20 | ptr%...|&    .. |
|000003d0| 22 4f 53 5f 48 65 61 70 | 22 2c 30 2c 93 2c 2c 70 |"OS_Heap|",0,.,,p|
|000003e0| 74 72 25 2d 6d 65 6d 62 | 6c 6b 25 0d 00 e6 07 20 |tr%-memb|lk%.... |
|000003f0| 20 cd 0d 00 f0 17 20 20 | e7 20 73 69 7a 65 25 20 | .....  |. size% |
|00000400| 3e 20 66 72 65 65 25 20 | 8c 0d 00 fa 2c 2a 7c 20 |> free% |....,*| |
|00000410| 54 68 65 72 65 20 69 73 | 20 6e 6f 74 20 65 6e 6f |There is| not eno|
|00000420| 75 67 68 20 73 70 61 63 | 65 20 69 6e 20 74 68 65 |ugh spac|e in the|
|00000430| 20 68 65 61 70 0d 01 04 | 2a 20 20 20 20 c8 99 20 | heap...|*    .. |
|00000440| 22 57 69 6d 70 5f 53 6c | 6f 74 53 69 7a 65 22 2c |"Wimp_Sl|otSize",|
|00000450| 2d 31 2c 2d 31 20 b8 20 | 6d 65 6d 62 6c 6b 25 0d |-1,-1 . |memblk%.|
|00000460| 01 0e 35 20 20 20 20 c8 | 99 20 22 57 69 6d 70 5f |..5    .|. "Wimp_|
|00000470| 53 6c 6f 74 53 69 7a 65 | 22 2c 6d 65 6d 62 6c 6b |SlotSize|",memblk|
|00000480| 25 2b 73 69 7a 65 25 2b | 31 36 2c 2d 31 20 b8 20 |%+size%+|16,-1 . |
|00000490| 70 74 72 25 0d 01 18 26 | 20 20 20 20 c8 99 20 22 |ptr%...&|    .. "|
|000004a0| 4f 53 5f 48 65 61 70 22 | 2c 35 2c 93 2c 2c 70 74 |OS_Heap"|,5,.,,pt|
|000004b0| 72 25 2d 6d 65 6d 62 6c | 6b 25 0d 01 22 07 20 20 |r%-membl|k%..".  |
|000004c0| cd 0d 01 2c 3d 2a 7c 20 | 54 68 69 73 20 69 73 20 |...,=*| |This is |
|000004d0| 77 68 65 72 65 20 77 65 | 20 66 69 6e 61 6c 6c 79 |where we| finally|
|000004e0| 20 61 6c 6c 6f 63 61 74 | 65 20 74 68 65 20 6d 65 | allocat|e the me|
|000004f0| 6d 6f 72 79 20 72 65 71 | 75 69 72 65 64 21 0d 01 |mory req|uired!..|
|00000500| 36 2b 20 20 c8 99 20 22 | 58 4f 53 5f 48 65 61 70 |6+  .. "|XOS_Heap|
|00000510| 22 2c 32 2c 93 2c 2c 73 | 69 7a 65 25 20 b8 20 65 |",2,.,,s|ize% . e|
|00000520| 72 72 25 2c 2c 70 74 72 | 25 0d 01 40 15 20 20 e7 |rr%,,ptr|%..@.  .|
|00000530| 20 65 72 72 25 3c 3e 32 | 20 8c 20 3d 2d 31 0d 01 | err%<>2| . =-1..|
|00000540| 4a 0a 3d 20 70 74 72 25 | 0d 01 54 05 3a 0d 01 5e |J.= ptr%|..T.:..^|
|00000550| 14 dd 20 a4 63 61 6c 6c | 6f 63 28 73 69 7a 65 25 |.. .call|oc(size%|
|00000560| 29 0d 01 68 4a 2a 7c 20 | 61 6c 6c 6f 63 61 74 65 |)..hJ*| |allocate|
|00000570| 20 61 20 6d 65 6d 6f 72 | 79 20 62 6c 6f 63 6b 20 | a memor|y block |
|00000580| 61 6e 64 20 63 6c 65 61 | 72 20 63 6f 6e 74 65 6e |and clea|r conten|
|00000590| 74 73 2c 20 72 65 74 75 | 72 6e 20 70 6f 69 6e 74 |ts, retu|rn point|
|000005a0| 65 72 20 74 6f 20 62 6c | 6f 63 6b 0d 01 72 19 20 |er to bl|ock..r. |
|000005b0| 20 41 25 20 3d 20 a4 6d | 61 6c 6c 6f 63 28 73 69 | A% = .m|alloc(si|
|000005c0| 7a 65 25 29 0d 01 7c 12 | 20 20 e7 20 41 25 3d 30 |ze%)..|.|  . A%=0|
|000005d0| 20 8c 20 3d 2d 31 0d 01 | 86 10 20 20 42 25 20 3d | . =-1..|..  B% =|
|000005e0| 20 73 69 7a 65 25 0d 01 | 90 15 20 20 42 25 20 3d | size%..|..  B% =|
|000005f0| 20 ba 28 6d 65 6d 7a 65 | 72 6f 29 0d 01 9a 08 3d | .(memze|ro)....=|
|00000600| 20 41 25 0d 01 a4 05 3a | 0d 01 ae 11 dd 20 a4 66 | A%....:|..... .f|
|00000610| 72 65 65 28 62 6c 6b 25 | 29 0d 01 b8 39 2a 7c 20 |ree(blk%|)...9*| |
|00000620| 66 72 65 65 20 73 70 61 | 63 65 20 70 72 65 76 69 |free spa|ce previ|
|00000630| 6f 75 73 6c 79 20 72 65 | 74 75 72 6e 65 64 20 62 |ously re|turned b|
|00000640| 79 20 6d 61 6c 6c 6f 63 | 20 6f 72 20 63 61 6c 6c |y malloc| or call|
|00000650| 6f 63 0d 01 c2 0a ea 20 | 72 65 74 25 0d 01 cc 23 |oc..... |ret%...#|
|00000660| 20 20 c8 99 20 22 58 4f | 53 5f 48 65 61 70 22 2c |  .. "XO|S_Heap",|
|00000670| 33 2c 93 2c 62 6c 6b 25 | 20 b8 20 72 65 74 25 0d |3,.,blk%| . ret%.|
|00000680| 01 d6 18 20 20 e7 20 72 | 65 74 25 20 3c 3e 20 33 |...  . r|et% <> 3|
|00000690| 20 8c 20 3d 20 2d 31 0d | 01 e0 07 3d 20 30 0d 01 | . = -1.|...= 0..|
|000006a0| ea 05 3a 0d 01 f4 13 dd | 20 f2 4d 65 6d 5f 61 73 |..:.....| .Mem_as|
|000006b0| 73 65 6d 62 6c 65 0d 01 | fe 35 2a 7c 20 52 6f 75 |semble..|.5*| Rou|
|000006c0| 74 69 6e 65 20 66 6f 72 | 20 66 61 73 74 20 63 6c |tine for| fast cl|
|000006d0| 65 61 72 69 6e 67 20 6f | 66 20 61 20 62 6c 6f 63 |earing o|f a bloc|
|000006e0| 6b 20 6f 66 20 6d 65 6d | 6f 72 79 0d 02 08 14 20 |k of mem|ory.... |
|000006f0| 20 de 20 6d 65 6d 5f 63 | 6f 64 65 25 20 34 30 0d | . mem_c|ode% 40.|
|00000700| 02 12 14 20 20 50 25 20 | 3d 20 6d 65 6d 5f 63 6f |...  P% |= mem_co|
|00000710| 64 65 25 0d 02 1c 0d 20 | 20 5b 20 4f 50 54 20 30 |de%.... | [ OPT 0|
|00000720| 0d 02 26 0d 20 2e 6d 65 | 6d 7a 65 72 6f 0d 02 30 |..&. .me|mzero..0|
|00000730| 10 20 20 20 4d 4f 56 20 | 52 32 2c 23 30 0d 02 3a |.   MOV |R2,#0..:|
|00000740| 10 20 20 20 4d 4f 56 20 | 52 33 2c 52 30 0d 02 44 |.   MOV |R3,R0..D|
|00000750| 17 20 20 20 4d 4f 56 20 | 52 31 2c 52 31 2c 4c 53 |.   MOV |R1,R1,LS|
|00000760| 52 20 23 32 0d 02 4e 0a | 20 2e 6d 65 6d 30 0d 02 |R #2..N.| .mem0..|
|00000770| 58 15 20 20 20 53 54 52 | 20 52 32 2c 5b 52 33 5d |X.   STR| R2,[R3]|
|00000780| 2c 23 34 0d 02 62 14 20 | 20 20 53 55 42 53 20 52 |,#4..b. |  SUBS R|
|00000790| 31 2c 52 31 2c 23 31 0d | 02 6c 0f 20 20 20 42 47 |1,R1,#1.|.l.   BG|
|000007a0| 54 20 6d 65 6d 30 0d 02 | 76 11 20 20 20 4d 4f 56 |T mem0..|v.   MOV|
|000007b0| 20 50 43 2c 52 31 34 0d | 02 80 07 20 20 5d 0d 02 | PC,R14.|...  ]..|
|000007c0| 8a 05 e1 0d 02 94 04 0d | ff                      |........|.       |
+--------+-------------------------+-------------------------+--------+--------+