Trailing-Edge
-
PDP-10 Archives
-
KS10_APT_INSTALL_TAPE
-
uetp/lib/make-red.mic
There is 1 other file named make-red.mic in the archive. Click here to see a list.
;<UETP.LIB>MAKE-RED.MIC.1, 7-Jun-79 14:06:20, EDIT BY EIBEN
;Marlboro only !! makes a RED-pack under TS
@DAYTIME
@terminal no page
@ena
@smou red:,
str ps:
@def mag: 'a
@assign mag:
@skip mag: 7 files
@run mag:
*str red:
*loa mag:
*exit
@run mag:
*tape mag:
*restore <*>*.* red:<*>*.*
*restore <*>*.* red:<*>*.*
*restore <*>*.* red:<*>*.*
*restore <*>*.* red:<*>*.*
*restore <*>*.* red:<*>*.*
*restore <*>*.* red:<*>*.*
*restore <*>*.* red:<*>*.*
*restore <*>*.* red:<*>*.*
*restore <*>*.* red:<*>*.*
*restore <*>*.* red:<*>*.*
*restore <*>*.* red:<*>*.*
*rewind
*exit
@conn red:<diagnostics>
@run red:<diagnostics>smfile.exe
; We want to update the Bootstrap area on red:
*WRI SET red:<ROOT-DIRECTORY>BOOTSTRAP.BIN
; We want to start clean
*WRITE RESET
; We have to read m-code in first
*READ KS10.ULD
; Lets check what m-code we got
*EXAMINE CRAM 137
; We have to specify a DEC-certified SERIAL-NUMBER
*SERIAL 4711
; Now we write m-code to the disk
*WRITE CRAM
; and the boot for the MONITOR
*WRITE BOOT red:<SYSTEM>SMBOOT.EXE
; and our DIAGNOSTIC boot
*WRITE DIAGBT red:<diagnostics>SMMON.EXE
; at last we have to update the HOME-blocks
*WRITE DONE
; Now we write out the same m-code for later use on magtape
*OUTPUT CRAM red:<SYSTEM>KS10.RAM
; We want a new m-code for diagnostics
*OUTPUT CRAM red:<DIAGNOSTICS>SMTAPE.RAM
; We also need the MONITOR-Magtape boot
*OUTPUT MTBOOT RED:<SYSTEM>SMMTBT.EXE red:<SYSTEM>MTBOOT.RDI
;lets check a little bit , what we have done
*WRI SET RED:<ROOT-DIRECTORY>BOOTSTRAP.BIN
; What disk were we using?
*inf disk
; Did we approach boundaries?
*inf free
; Where are we located?
*inf fefile
; Did we go into "future" stuff?
*inf ind
; ..and finally go back to MONITOR-mode
*EXIT
@conn
@checkd
*check bit red:
*y
*ex
DISABLE
@DAYTIME
@terminal page