I did a rudimentary BASIC routine which will list the ROM-link packages and identify the "next" available one based on the information held in page 5.
I don't have Inter-Base so it doesn't cater for that at the moment.
The next step will be to do a *NEXTIW <fsp> type command which will work out the next available package and invoke it with the filename specified.
I don't have Inter-Base so it doesn't cater for that at the moment.
Code:
100REM Packages 200REM List Active ROM-Link Packages 300REM Info held in memory from &500 400REM (C) Ian Wolstenholme 2024 500REM Version 1.0 11/viii/2024 600REM Done on Station 201 700REM WIP 11/8/24 800romlinkbase=&500 900DIM iw 4,ic 4,is 4 1000!iw=0:!ic=0:!is=0 1100total=?romlinkbase 1150nextiw=0:nextic=0:nextis=0 1200IFtotal=&FF OR total=0 AND romlinkbase?17=0 THEN PRINT"No ROM-Link Packages":GOTO3000 1300PRINT"Total packages: ";total+1 1400IFtotal>15 PRINT"Error":END 1500FORB%=0TOtotal 1600PRINT"Package ";B%;": "; 1700num=(?(romlinkbase+B%+1)AND&F0) DIV16 1800type=?(romlinkbase+B%+1)AND&F 1900IFtype=0 PRINT"Inter-Sheet ";:!is=!is OR 2^num 2000IFtype=2 PRINT"Inter-Word ";:!iw=!iw OR 2^num 2100IFtype=&DPRINT"Inter-Chart ";:!ic=!ic OR 2^num 2200PRINT;num;" mem: &";~?(romlinkbase+B%+17) 2300NEXT 2400nextiw=&FF:nextic=&FF:nextis=&FF 2500FORB%=0TO15 2600IF(!iw AND2^B%)=0 THEN IFnextiw=&FF nextiw=B% 2700IF(!ic AND2^B%)=0 THEN IFnextic=&FF nextic=B% 2800IF(!is AND2^B%)=0 THEN IFnextis=&FF nextis=B% 2900NEXT 3000PRINT"Next IWord: ";:IFnextiw=&FF PRINT"None" ELSE PRINT;nextiw 3100PRINT"Next IChart: ";:IFnextic=&FF PRINT"None" ELSE PRINT;nextic 3200PRINT"Next ISheet: ";:IFnextis=&FF PRINT"None" ELSE PRINT;nextisStatistics: Posted by BeebMaster — Sun Aug 11, 2024 2:55 pm