mirror of
https://github.com/pkimpel/retro-b5500.git
synced 2026-02-12 11:17:29 +00:00
ef566d4447
2. Implement differential read vs. write memory cycle timing (2us vs 4us). 3. Implement setImmediate() instead of SetTimeout() for I/O forking in IOUnit. 4. Time I/Os from initiation in IOUnit instead of peripheral device driver. 5. Accumulate Control and Normal state clocks separately for use in UI displays. 6. Rework Processor.schedule() delay management for use with setImmediate() 7. Accumulate average processor delay delta for use in UI displays. 8. Enable third I/O unit and all eight memory modules in B5500SystemConfiguration. 9. Clone B5500LibMaintDir.html from B5500LibMaintMapper.html to list files on a tape image. 10. Implement multiple-file selection in B5500CardReader; fix markup for Firefox 22. 11. Implement more granular Control/Normal State light intensity and PA Delay delta in B5500Console. 12. Attempt (again) to fix creation of SYSTEM/LOG file in B5500ColdLoader. 13. Create tools/LOG-MAKER.job deck to create SYSTEM/LOG on a running emulator instance.
36 lines
1.0 KiB
Plaintext
36 lines
1.0 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
|
|
LOGSEGS = 20000 #;
|
|
SAVE FILE OUT
|
|
LOG DISK SERIAL [1:LOGSEGS] "SYSTEM" "LOG" (1, 5, 30, SAVE 365);
|
|
ARRAY
|
|
BUF [0:29];
|
|
|
|
BUF[0] ~ 0;
|
|
BUF[1] ~ LOGSEGS;
|
|
BUF[4] ~ "DISKLOG";
|
|
WRITE(LOG, 5, BUF[*]);
|
|
|
|
BUF[0] ~ 4;
|
|
BUF[1] ~ BUF[4] ~ 0;
|
|
WRITE(LOG, 5, BUF[*]);
|
|
|
|
LOCK(LOG);
|
|
END.
|
|
?END
|