Jump to content
IGNORED

! FlashROM 99 & FinalGROM 99 - Repository


Recommended Posts

Quick Rexx script to find names in cartridge BINs (updated 10/19).

I want the filenames of my FR99 .BINs to better reflect the cartridge name. I am not concerned about the format as the assumption is that if I have it in my FR99 directory then it will work. I put together a quick-and-dirty A/Rexx script to do this. It currently only shows the first program name in the header.

To execute the script, make sure you have Regina REXX installed with the Rx service running. This might work on ARexx and it is my intention to make it work there but I am not able to immediately test on an Amiga.

To use:

cartname.rexx (filename.bin)

You can feed multiple files like such (from a command prompt):

for /f %c in ('dir *.bin /b') do @cartname.rexx %c

 




/*
   cartname.rexx

   TI-99/4A Catridge binary name extractor
   
   (W) 2016 Alan W. Rateliff, II
   
 $VER: cartname.rexx 0.3 (10.18.2016) 
*/

/* First, some self-discovery */

parse source . . myself

/* Determine A/Rexx environment and set OPTIONS accordingly */

if arexx() then OPTIONS RESULTS
   else OPTIONS AREXX_BIFS AREXX_SEMANTICS RESULTS TRACE

if arg()==0 | arg(1)=='help' then do
   say 'Usage:' myself 'cartridge.bin [detail]'
   say
   say 'NOTE: Cartridge filename cannot contain spaces, even if quoted.'
   say ' "detail" option produces output as:'
   say ' originalfilename,safefilename,programname'
   exit 5
end 

/*
if left(arg(1),1) == '"' then do
   parse arg '"'filename'"' detail
   end */

parse arg filename detail
   
if ~open(filename, filename, 'r') then do
   say 'Cannot open' filename
   return 30
   end

detail = choose(UPPER(detail)=='DETAIL', 1, 0)
   
header =charin(filename,, 6)

prog1 = charin(filename,, 1) /* MSB of program(s) */
prog2 = charin(filename,, 1) /* LSB of program(s) */

throw = charin(filename,, c2d(prog2) - 4) /* throw away what's between header and name */

length = charin(filename,, 1)
name = charin(filename,, c2d(length))

if detail then do
   rename = translate(name,')(- --- -',"><:""/\|?*")
   say filename","rename".BIN,"name
   end
else say name

call close filename

exit

/* Detect ARexx */

arexx:
   parse upper version arch
   return choose(left(arch,5)=='AREXX', 1, 0)
   
choose: return arg(arg()-arg(1))

 

 

Link to comment
Share on other sites

Forgot the picture

 

 

super !!

 

my house and office is cabled with the "successor" of X10, the EIB/KNX (formerly instaBus) :)

 

Was an idea just to "interface" that existing and programmed KNX-functions to the TI (light, aircon, windows, heating bar/disco +++.....)

 

Would be easy because I have digital INs/OUTs for the KNX-Bus to recko X10-functions (or any other),

so no need for any gateway, but have no X10-Hardware at all. Only the cart. but een daag :)

 

xXx

Link to comment
Share on other sites

 

Cool, then you're out of the bidding! :P

I have and still use X10 stuff, so I would love to have one of those boxes.

 

 

ooooh nice manual, thanks. so I can read about :)

 

But, as I have about 190 devices on 5 buses in my hut, this maybe is a bit "heavy".

( Yes, I have a very big XLS-list of that :D )

 

But it would be no problem to control selected/pre-defined devices (addresses) only, via the TI / 99 Home Sentry

Link to comment
Share on other sites

The category shown directly below is still a little 'thin'. Does anyone know if there will be anything new in time for all of us overgrown kids to play with on our new or newly upgraded TI's come Xmas morning? Yeah, I know it's still October, but programming goodies takes time, so one has to think ahead.... right? ;)

 

gallery_35324_1027_11807.jpg

 

After all what good is nostalgia if we cannot relive our youth with a new TI related goodie. Maybe if we knew something was going to be released on Xmas eve we would all relive that feeling of anticipation?

Link to comment
Share on other sites

I think combining the Flashrom 99 with the CF7+/nanoPEB will be the ideal combination in terms of functionality. Not only do we get 32K of RAM but also 3 disk drives, which will allow for the effective use of editors and programming languages in a totally compact form factor. And once Ralph gets the GROM functionality added, then it would be Nirvana :)

  • Like 4
Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...