Home » Archimedes archive » Archimedes World » AW-1991-05.adf » May91 » !AWMay91/Goodies/Coconizer/!Coconizer/!Run2
!AWMay91/Goodies/Coconizer/!Coconizer/!Run2
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 » Archimedes World » AW-1991-05.adf » May91 |
| Filename: | !AWMay91/Goodies/Coconizer/!Coconizer/!Run2 |
| Read OK: | ✔ |
| File size: | 017F bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM>!Run2 20REM Coco grabbs all memo it can, so let's try to claim a dynnamic screen 30 40min%=300*1024 50pic%=160*1024 60 70SYS "OS_ReadDynamicArea",2 TO ,size% 80SYS "Wimp_SlotSize",-1,-1 TO ,,free% 90real%=size%+free% :IF real%<pic% THEN END=HIMEM-(pic%-real%) 100 110SYS "Wimp_SlotSize",-1,-1 TO curr% 120IF curr%>=min% THEN END 130ERROR 1,"Coco needs at least 300K plus 160K screen to start up"
�>!Run2 J� Coco grabbs all memo it can, so let's try to claim a dynnamic screen (min%=300*1024 2pic%=160*1024 < F&ș "OS_ReadDynamicArea",2 � ,size% P&ș "Wimp_SlotSize",-1,-1 � ,,free% Z6real%=size%+free% :� real%<pic% � �=�-(pic%-real%) d n$ș "Wimp_SlotSize",-1,-1 � curr% x� curr%>=min% � � �?� 1,"Coco needs at least 300K plus 160K screen to start up" �
00000000 0d 00 0a 0b f4 3e 21 52 75 6e 32 0d 00 14 4a f4 |.....>!Run2...J.| 00000010 20 43 6f 63 6f 20 67 72 61 62 62 73 20 61 6c 6c | Coco grabbs all| 00000020 20 6d 65 6d 6f 20 69 74 20 63 61 6e 2c 20 73 6f | memo it can, so| 00000030 20 6c 65 74 27 73 20 74 72 79 20 74 6f 20 63 6c | let's try to cl| 00000040 61 69 6d 20 61 20 64 79 6e 6e 61 6d 69 63 20 73 |aim a dynnamic s| 00000050 63 72 65 65 6e 0d 00 1e 04 0d 00 28 11 6d 69 6e |creen......(.min| 00000060 25 3d 33 30 30 2a 31 30 32 34 0d 00 32 11 70 69 |%=300*1024..2.pi| 00000070 63 25 3d 31 36 30 2a 31 30 32 34 0d 00 3c 04 0d |c%=160*1024..<..| 00000080 00 46 26 c8 99 20 22 4f 53 5f 52 65 61 64 44 79 |.F&.. "OS_ReadDy| 00000090 6e 61 6d 69 63 41 72 65 61 22 2c 32 20 b8 20 2c |namicArea",2 . ,| 000000a0 73 69 7a 65 25 0d 00 50 26 c8 99 20 22 57 69 6d |size%..P&.. "Wim| 000000b0 70 5f 53 6c 6f 74 53 69 7a 65 22 2c 2d 31 2c 2d |p_SlotSize",-1,-| 000000c0 31 20 b8 20 2c 2c 66 72 65 65 25 0d 00 5a 36 72 |1 . ,,free%..Z6r| 000000d0 65 61 6c 25 3d 73 69 7a 65 25 2b 66 72 65 65 25 |eal%=size%+free%| 000000e0 20 3a e7 20 72 65 61 6c 25 3c 70 69 63 25 20 8c | :. real%<pic% .| 000000f0 20 e0 3d 93 2d 28 70 69 63 25 2d 72 65 61 6c 25 | .=.-(pic%-real%| 00000100 29 0d 00 64 04 0d 00 6e 24 c8 99 20 22 57 69 6d |)..d...n$.. "Wim| 00000110 70 5f 53 6c 6f 74 53 69 7a 65 22 2c 2d 31 2c 2d |p_SlotSize",-1,-| 00000120 31 20 b8 20 63 75 72 72 25 0d 00 78 15 e7 20 63 |1 . curr%..x.. c| 00000130 75 72 72 25 3e 3d 6d 69 6e 25 20 8c 20 e0 0d 00 |urr%>=min% . ...| 00000140 82 3f 85 20 31 2c 22 43 6f 63 6f 20 6e 65 65 64 |.?. 1,"Coco need| 00000150 73 20 61 74 20 6c 65 61 73 74 20 33 30 30 4b 20 |s at least 300K | 00000160 70 6c 75 73 20 31 36 30 4b 20 73 63 72 65 65 6e |plus 160K screen| 00000170 20 74 6f 20 73 74 61 72 74 20 75 70 22 0d ff | to start up"..| 0000017f
.