ADAM Memory Test Routine.
Posted: Sun Jan 25, 2026 6:28 pm
by dhe
I have three memory cards 64K, 256K and 1MB.
Is there a routine that will tell me how much memory is seen, and then proceed to test said memory?
Re: ADAM Memory Test Routine.
Posted: Fri Jul 31, 2026 2:28 am
by JimN
There are numerous Memory Expander RAM Testers available that will report the size of the Memory Expander as well as test every bit. The latest and greatest was developed by Eric Pearson and is called RAMTEST v2.0 (2018).
Also, you can load a program like File Manager and it will report what is available as a Copy Buffer.
Any program filename in the Archive that requires Expansion RAM is identified with [ExpRAM] at the end of the filename.
In SmartBASIC, Digital Express released an Expansion RAM Check program called... for the life of me, I can't remember. It's in one of the earlier Nibbles & Bits newsletter that are available in PDF format and on one of the N&B public domain disks. Here is a slightly modified version that I included with my SmartBASIC v1.99 Rev. 1-BCES upgrade to SmartBASIC v1.0... it's available on the Archive a well as documentation and full program listings. If Expansion RAM is found, you can use Digital Express' "shortdisk" or "fulldisk" to create a RAMdrive.
299 REM --- EXP RAM TEST ---
300 DATA 33,0,0,175,211,66,60,211
305 DATA 127,119,60,211,127,119,58,0,0
310 DATA 183,32,10,62,255,50,95,253,62,1,211,127,201
315 DATA 61,211,66,119,61,211,66,126,254,2,40,3
320 DATA 175,24,233
325 DATA 61,50,95,253
330 DATA 58,95,253,60,14,66,237,121,62,2,211,127,50,0,0,58,0,0
335 DATA 254,2,32,210,33,95,253,52,126,254,4,48,2,24,223,62,7,119,24,191
340 DATA -1
345 st=135*256: tt=0
350 READ mc:IF mc=-1 GOTO 360
355 POKE st,mc: st=st+1: tt=tt+mc:GOTO 350
360 IF st=34647 AND tt=8659 GOTO 370
365 ?:? "incorrect data entry!!":END
370 TEXT:INVERSE:? " SmartBASIC+ v1.99 - Rev. 1.0 ":NORMAL
375 VTAB 4:? " Your system's Expansion RAM":? " is ";
380 CALL 34560: k=PEEK(64863)+1
385 IF k=256 THEN ? "0K - No ExpRAM detected.":? " RamDisk CAN NOT be created.":POKE 1135,0:GOTO 395
390 ? k*64;"K. The max addressable":? " in SmartBASIC+ v1.99 is 512K.":POKE 1135,1
395 VTAB 24:HTAB 4:INVERSE:? " Press a Key to Continue ";:NORMAL:GET k$