Home » Archimedes archive » Acorn User » AU 1998-09.adf » Features » DesktopPD/Director/!Director/Menus/Internal/Memory
DesktopPD/Director/!Director/Menus/Internal/Memory
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Acorn User » AU 1998-09.adf » Features |
| Filename: | DesktopPD/Director/!Director/Menus/Internal/Memory |
| Read OK: | ✔ |
| File size: | 04D1 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Archimedes archive » Acorn User » AU 1995-10.adf » !Direct » Director/!Director/Menus/Internal/Memory
- Archimedes archive » Acorn User » AU 1998-09.adf » Features » DesktopPD/Director/!Director/Menus/Internal/Memory
File contents
1REM >Director:Menus.Memory
2ON ERROR ERROR EXT ERR,REPORT$+" at line "+STR$ERL:END
3
4menu=FNswi_number("Director_Menu")
5endmenu=FNswi_number("Director_EndMenu")
6option=FNswi_number("Director_Option")
7command=FNswi_number("Director_Command")
8dash=FNswi_number("Director_Dash")
9memory=FNswi_number("Director_Memory")
10
11*Set Director$Menu memory
12SYS menu,"Memory <Director$Menu> -temp"
13
14SYS memory TO module%,workspace%,malloc%,blocks%,dynamic%,free%,largest%
15
16SYS option,"Module -fg 4"
17SYS option,FNnum(module%)
18
19SYS option,"Workspace -fg 4"
20SYS option,FNnum(workspace%)
21
22SYS option,"Heap -fg 4"
23SYS option,FNnum(malloc%)
24
25SYS option,"Total -fg 11"
26SYS option,FNnum(module%+workspace%+malloc%)
27
28SYS dash
29
30SYS option,"""Heap blocks"" -fg 4"
31SYS option,FNnum(blocks%)
32
33IF dynamic% THEN
34
35SYS dash
36
37SYS option,"""Dynamic area"" -fg 4"
38SYS option,FNnum(dynamic%)
39
40SYS option,"Free -fg 4"
41SYS option,FNnum(free%)
42
43SYS option,"Largest -fg 4"
44SYS option,FNnum(largest%)
45
46ENDIF
47
48SYS endmenu
49
50END
51
52DEF FNnum(a%)
53a$=STR$a%
54IF LENa$>4 THEN a$=LEFT$(a$,LENa$-3)+","+RIGHT$(a$,3)
55=RIGHT$("�����������"+a$,12)
56
57DEF FNswi_number(swi$)
58SYS "OS_SWINumberFromString",,swi$ TO swi%
59=swi%
� >Director:Menus.Memory
!� � � � �,�$+" at line "+Þ:�
%menu=�swi_number("Director_Menu")
+endmenu=�swi_number("Director_EndMenu")
)option=�swi_number("Director_Option")
+command=�swi_number("Director_Command")
%dash=�swi_number("Director_Dash")
)memory=�swi_number("Director_Memory")
*Set Director$Menu memory
*ș menu,"Memory <Director$Menu> -temp"
Jș memory � module%,workspace%,malloc%,blocks%,dynamic%,free%,largest%
ș option,"Module -fg 4"
ș option,�num(module%)
ș option,"Workspace -fg 4"
ș option,�num(workspace%)
ș option,"Heap -fg 4"
ș option,�num(malloc%)
ș option,"Total -fg 11"
.ș option,�num(module%+workspace%+malloc%)
ș dash
%ș option,"""Heap blocks"" -fg 4"
ș option,�num(blocks%)
!� dynamic% �
"
# ș dash
$
%&ș option,"""Dynamic area"" -fg 4"
& ș option,�num(dynamic%)
'
(ș option,"Free -fg 4"
)ș option,�num(free%)
*
+ ș option,"Largest -fg 4"
, ș option,�num(largest%)
-
.�
/
0ș endmenu
1
2�
3
4� �num(a%)
5
a$=�a%
6&� �a$>4 � a$=�a$,�a$-3)+","+�a$,3)
7=�"�����������"+a$,12)
8
9� �swi_number(swi$)
:,ș "OS_SWINumberFromString",,swi$ � swi%
; =swi%
� 00000000 0d 00 01 1c f4 20 3e 44 69 72 65 63 74 6f 72 3a |..... >Director:|
00000010 4d 65 6e 75 73 2e 4d 65 6d 6f 72 79 0d 00 02 21 |Menus.Memory...!|
00000020 ee 20 85 20 85 20 a2 20 9f 2c f6 24 2b 22 20 61 |. . . . .,.$+" a|
00000030 74 20 6c 69 6e 65 20 22 2b c3 9e 3a e0 0d 00 03 |t line "+..:....|
00000040 04 0d 00 04 25 6d 65 6e 75 3d a4 73 77 69 5f 6e |....%menu=.swi_n|
00000050 75 6d 62 65 72 28 22 44 69 72 65 63 74 6f 72 5f |umber("Director_|
00000060 4d 65 6e 75 22 29 0d 00 05 2b 65 6e 64 6d 65 6e |Menu")...+endmen|
00000070 75 3d a4 73 77 69 5f 6e 75 6d 62 65 72 28 22 44 |u=.swi_number("D|
00000080 69 72 65 63 74 6f 72 5f 45 6e 64 4d 65 6e 75 22 |irector_EndMenu"|
00000090 29 0d 00 06 29 6f 70 74 69 6f 6e 3d a4 73 77 69 |)...)option=.swi|
000000a0 5f 6e 75 6d 62 65 72 28 22 44 69 72 65 63 74 6f |_number("Directo|
000000b0 72 5f 4f 70 74 69 6f 6e 22 29 0d 00 07 2b 63 6f |r_Option")...+co|
000000c0 6d 6d 61 6e 64 3d a4 73 77 69 5f 6e 75 6d 62 65 |mmand=.swi_numbe|
000000d0 72 28 22 44 69 72 65 63 74 6f 72 5f 43 6f 6d 6d |r("Director_Comm|
000000e0 61 6e 64 22 29 0d 00 08 25 64 61 73 68 3d a4 73 |and")...%dash=.s|
000000f0 77 69 5f 6e 75 6d 62 65 72 28 22 44 69 72 65 63 |wi_number("Direc|
00000100 74 6f 72 5f 44 61 73 68 22 29 0d 00 09 29 6d 65 |tor_Dash")...)me|
00000110 6d 6f 72 79 3d a4 73 77 69 5f 6e 75 6d 62 65 72 |mory=.swi_number|
00000120 28 22 44 69 72 65 63 74 6f 72 5f 4d 65 6d 6f 72 |("Director_Memor|
00000130 79 22 29 0d 00 0a 04 0d 00 0b 1d 2a 53 65 74 20 |y")........*Set |
00000140 44 69 72 65 63 74 6f 72 24 4d 65 6e 75 20 6d 65 |Director$Menu me|
00000150 6d 6f 72 79 0d 00 0c 2a c8 99 20 6d 65 6e 75 2c |mory...*.. menu,|
00000160 22 4d 65 6d 6f 72 79 20 3c 44 69 72 65 63 74 6f |"Memory <Directo|
00000170 72 24 4d 65 6e 75 3e 20 2d 74 65 6d 70 22 0d 00 |r$Menu> -temp"..|
00000180 0d 04 0d 00 0e 4a c8 99 20 6d 65 6d 6f 72 79 20 |.....J.. memory |
00000190 b8 20 6d 6f 64 75 6c 65 25 2c 77 6f 72 6b 73 70 |. module%,worksp|
000001a0 61 63 65 25 2c 6d 61 6c 6c 6f 63 25 2c 62 6c 6f |ace%,malloc%,blo|
000001b0 63 6b 73 25 2c 64 79 6e 61 6d 69 63 25 2c 66 72 |cks%,dynamic%,fr|
000001c0 65 65 25 2c 6c 61 72 67 65 73 74 25 0d 00 0f 04 |ee%,largest%....|
000001d0 0d 00 10 1c c8 99 20 6f 70 74 69 6f 6e 2c 22 4d |...... option,"M|
000001e0 6f 64 75 6c 65 20 2d 66 67 20 34 22 0d 00 11 1b |odule -fg 4"....|
000001f0 c8 99 20 6f 70 74 69 6f 6e 2c a4 6e 75 6d 28 6d |.. option,.num(m|
00000200 6f 64 75 6c 65 25 29 0d 00 12 04 0d 00 13 1f c8 |odule%).........|
00000210 99 20 6f 70 74 69 6f 6e 2c 22 57 6f 72 6b 73 70 |. option,"Worksp|
00000220 61 63 65 20 2d 66 67 20 34 22 0d 00 14 1e c8 99 |ace -fg 4"......|
00000230 20 6f 70 74 69 6f 6e 2c a4 6e 75 6d 28 77 6f 72 | option,.num(wor|
00000240 6b 73 70 61 63 65 25 29 0d 00 15 04 0d 00 16 1a |kspace%)........|
00000250 c8 99 20 6f 70 74 69 6f 6e 2c 22 48 65 61 70 20 |.. option,"Heap |
00000260 2d 66 67 20 34 22 0d 00 17 1b c8 99 20 6f 70 74 |-fg 4"...... opt|
00000270 69 6f 6e 2c a4 6e 75 6d 28 6d 61 6c 6c 6f 63 25 |ion,.num(malloc%|
00000280 29 0d 00 18 04 0d 00 19 1c c8 99 20 6f 70 74 69 |).......... opti|
00000290 6f 6e 2c 22 54 6f 74 61 6c 20 2d 66 67 20 31 31 |on,"Total -fg 11|
000002a0 22 0d 00 1a 2e c8 99 20 6f 70 74 69 6f 6e 2c a4 |"...... option,.|
000002b0 6e 75 6d 28 6d 6f 64 75 6c 65 25 2b 77 6f 72 6b |num(module%+work|
000002c0 73 70 61 63 65 25 2b 6d 61 6c 6c 6f 63 25 29 0d |space%+malloc%).|
000002d0 00 1b 04 0d 00 1c 0b c8 99 20 64 61 73 68 0d 00 |......... dash..|
000002e0 1d 04 0d 00 1e 25 c8 99 20 6f 70 74 69 6f 6e 2c |.....%.. option,|
000002f0 22 22 22 48 65 61 70 20 62 6c 6f 63 6b 73 22 22 |"""Heap blocks""|
00000300 20 2d 66 67 20 34 22 0d 00 1f 1b c8 99 20 6f 70 | -fg 4"...... op|
00000310 74 69 6f 6e 2c a4 6e 75 6d 28 62 6c 6f 63 6b 73 |tion,.num(blocks|
00000320 25 29 0d 00 20 04 0d 00 21 10 e7 20 64 79 6e 61 |%).. ...!.. dyna|
00000330 6d 69 63 25 20 8c 0d 00 22 04 0d 00 23 0b c8 99 |mic% ..."...#...|
00000340 20 64 61 73 68 0d 00 24 04 0d 00 25 26 c8 99 20 | dash..$...%&.. |
00000350 6f 70 74 69 6f 6e 2c 22 22 22 44 79 6e 61 6d 69 |option,"""Dynami|
00000360 63 20 61 72 65 61 22 22 20 2d 66 67 20 34 22 0d |c area"" -fg 4".|
00000370 00 26 1c c8 99 20 6f 70 74 69 6f 6e 2c a4 6e 75 |.&... option,.nu|
00000380 6d 28 64 79 6e 61 6d 69 63 25 29 0d 00 27 04 0d |m(dynamic%)..'..|
00000390 00 28 1a c8 99 20 6f 70 74 69 6f 6e 2c 22 46 72 |.(... option,"Fr|
000003a0 65 65 20 2d 66 67 20 34 22 0d 00 29 19 c8 99 20 |ee -fg 4"..)... |
000003b0 6f 70 74 69 6f 6e 2c a4 6e 75 6d 28 66 72 65 65 |option,.num(free|
000003c0 25 29 0d 00 2a 04 0d 00 2b 1d c8 99 20 6f 70 74 |%)..*...+... opt|
000003d0 69 6f 6e 2c 22 4c 61 72 67 65 73 74 20 2d 66 67 |ion,"Largest -fg|
000003e0 20 34 22 0d 00 2c 1c c8 99 20 6f 70 74 69 6f 6e | 4"..,... option|
000003f0 2c a4 6e 75 6d 28 6c 61 72 67 65 73 74 25 29 0d |,.num(largest%).|
00000400 00 2d 04 0d 00 2e 05 cd 0d 00 2f 04 0d 00 30 0e |.-......../...0.|
00000410 c8 99 20 65 6e 64 6d 65 6e 75 0d 00 31 04 0d 00 |.. endmenu..1...|
00000420 32 05 e0 0d 00 33 04 0d 00 34 0e dd 20 a4 6e 75 |2....3...4.. .nu|
00000430 6d 28 61 25 29 0d 00 35 0a 61 24 3d c3 61 25 0d |m(a%)..5.a$=.a%.|
00000440 00 36 26 e7 20 a9 61 24 3e 34 20 8c 20 61 24 3d |.6&. .a$>4 . a$=|
00000450 c0 61 24 2c a9 61 24 2d 33 29 2b 22 2c 22 2b c2 |.a$,.a$-3)+","+.|
00000460 61 24 2c 33 29 0d 00 37 1a 3d c2 22 a0 a0 a0 a0 |a$,3)..7.=."....|
00000470 a0 a0 a0 a0 a0 a0 a0 22 2b 61 24 2c 31 32 29 0d |......."+a$,12).|
00000480 00 38 04 0d 00 39 17 dd 20 a4 73 77 69 5f 6e 75 |.8...9.. .swi_nu|
00000490 6d 62 65 72 28 73 77 69 24 29 0d 00 3a 2c c8 99 |mber(swi$)..:,..|
000004a0 20 22 4f 53 5f 53 57 49 4e 75 6d 62 65 72 46 72 | "OS_SWINumberFr|
000004b0 6f 6d 53 74 72 69 6e 67 22 2c 2c 73 77 69 24 20 |omString",,swi$ |
000004c0 b8 20 73 77 69 25 0d 00 3b 09 3d 73 77 69 25 0d |. swi%..;.=swi%.|
000004d0 ff |.|
000004d1 
.