mirror of
https://github.com/pkimpel/retro-b5500.git
synced 2026-02-12 03:07:30 +00:00
7c9cab76ba
2. Debug Processor for multi-processor operation (not working yet). 3. Further refinements to Processor.schedule() and throttling management. 4. Correct Processor fetch of Initiate Control Word for IP1 and IP2. 5. Enable second Disk File Control Unit (DKB) -- works. 6. Fix minor P1 bug in cc.clearInterrupt(). 7. Reset file selector control in B5500CardReader to allow same deck to be reloaded under Google Chrome. 8. Fix (finally) creation of SYSTEM/LOG and DIRCTRY/DISK in B5500ColdLoader. 9. Implement tools/B5500DiskDirFixer.html and tools/B5500DiskSystemLogFixer.html utilities to correct bad directory entries due to improper log creation in B5500ColdLoader. 10. Correct tools/LOG-MAKER.job to create SYSTEM/LOG on systems that do not have one. 11. Do not output zero-length lines (mem inhibit) with zero spacing in B5500DummyPrinter. 12. Implement separate setTimeout() tokens for input and output in B5500SPOUnit. 13. Additional de-anonymization of functions.
42 lines
1.2 KiB
Plaintext
42 lines
1.2 KiB
Plaintext
?COMPILE LOG/MAKER ALGOL GO
|
|
?DATA CARD
|
|
$ CARD LIST SINGLE
|
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
%% LOG/MAKER %%
|
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
% THIS PROGRAM WILL INITIALIZE THE B5500 MCP SYSTEM/LOG FILE.
|
|
% CAUTION: THIS PROGRAM SHOULD NOT BE USED IF THE LOG ALREADY EXISTS.
|
|
% IT MAY REMOVE THE EXISTING LOG. YOU MAY WISH TO USE AN
|
|
% "LN" MESSAGE FIRST.
|
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
% 2013-07-05 P.KIMPEL
|
|
% ORIGINAL VERSION.
|
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
|
|
BEGIN
|
|
DEFINE
|
|
WORDSPERREC = 5 #,
|
|
WORDSPERSEG = 30 #,
|
|
LOGRECS = 30000 #;
|
|
SAVE FILE OUT
|
|
LOG DISK RANDOM [1:LOGRECS]
|
|
"SYSTEM" "LOG" (1, WORDSPERREC, WORDSPERSEG, SAVE 365);
|
|
ARRAY
|
|
BUF [0:WORDSPERSEG-1];
|
|
|
|
BUF[0] ~ 0;
|
|
BUF[1] ~ LOGRECS-1;
|
|
BUF[2] ~ 0;
|
|
BUF[3] ~ 0;
|
|
BUF[4] ~ "DISKLOG";
|
|
WRITE(LOG[0], WORDSPERREC, BUF[*]);
|
|
|
|
BUF[0] ~ 4;
|
|
BUF[1] ~ BUF[4] ~ 0;
|
|
WRITE(LOG[1], WORDSPERREC, BUF[*]);
|
|
|
|
WRITE(LOG[LOGRECS-1], WORDSPERREC, BUF[*]);
|
|
LOCK(LOG);
|
|
END.
|
|
?END
|