home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
club100
/
utl
/
ram100.ba
< prev
next >
Wrap
Text File
|
2006-10-19
|
889b
|
11 lines
0 'RAM100.BA Bill Templeton 10/15/86
1 'CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE
2 'Based on information from the book, `Inside the M100' by Carl Oppedahl.
3 'Pgs 277-279, RAM Variable Map.
4 'Change the DIM, DEF and INIT commands in line 10 and follow the results!
5 CLS:DIMA(5,5):DEFINTB:B=10:CALL17001:PRINT@0,"--Important M100 RAM Memory Locations---":CALL17006
6 PRINT@42,"Start of CO files:";PEEK(64432)+256*PEEK(64433):PRINT@82,"Start of variable table:";PEEK(64434)+256*PEEK(64435)
7 PRINT@122,"Start of array table:";PEEK(64436)+256*PEEK(64437):PRINT@162,"Start unused memory:";PEEK(64438)+256*PEEK(64439)
8 PRINT@202,"Start of HIMEM:";PEEK(62964)+256*PEEK(62965):PRINT@242,"MAXRAM-HIMEM:";MAXRAM-(PEEK(62964)+256*PEEK(62965));
9 CALL17001:PRINT@290," Edit line 10 (Y/N?):";:CALL17006:Q$=INPUT$(1):IFINSTR("yY",Q$)THENEDIT10ELSEMENU