Trailing-Edge
-
PDP-10 Archives
-
bb-d549g-sb
-
wtboot.mac
There are 8 other files named wtboot.mac in the archive. Click here to see a list.
TITLE WTBOOT - WRITE BOOTS ON ALL DISK PACKS BLOCKS 4-7 IN STRS - V007
SUBTTL T. HASTINGS/TW/JMF/DBD 16 OCT 78
VWBOOT==7
VWHO==0
VMINOR==0
VEDIT==12
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;
;COPYRIGHT (C) 1978,1979 BY DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
LOC 137
.JBVER: BYTE (3)VWHO(9)VWBOOT(6)VMINOR(18)VEDIT
RELOC
IFNDEF TEST,<TEST=0> ;DEFINE TEST TO BE 1 TO READ INSTEAD OF WRITE
IFNDEF STDWTB,<STDWTB==1>;DEFINE STDWTB TO BE 0 IF NON-STANDARD WTBOOT
IFNDEF FTKL10,<FTKL10==0> ;DEFINE FTKL10 TO BE 1 IF RH10 OR RH20 BOOTS
IFNDEF FTKS10,<FTKS10==0> ;DEFINE FTKS10 TO BE 1 IF RH11 BOOTS
EXTERN MBOOTL
IFN STDWTB,<EXTERN BOOTSA>
T=1 ;TEMP AC
T1=2 ;ANOTHER AC
T2=3 ;SOME ACS FOR THE BOOT READER (LIFTED FROM COMMON)
T3=4
T4=5
P2=6
D=7
CH=10
CH2=11
KL=12
P=17
AP.NXM==1B23
IP.NXM==1B29
C=0 ;CHANNEL
BOOTLB==4 ;FIRST LOGICAL BLOCK FOR BOOTS
IFN FTKS10,<
OPDEF APRID [700000,,0] ;READ MICROCODE VERSION AND CPU SERIAL NU
OPDEF WRAPR [700200,,0] ;WRITE APR
OPDEF RDAPR [700240,,0] ;READ APR
OPDEF WRPI [700600,,0] ;WRITE PI
OPDEF PIOFF [700600,,400]
OPDEF PION [700600,,200]
OPDEF RDPI [700640,,0] ;READ PI
OPDEF WRUBR [701140,,0] ;WRITE USER BASE REGISTER
OPDEF CLRPT [701100,,0] ;CLEAR PAGE TABLE
OPDEF RDUBR [701040,,0] ;READ USER BASE REGISTER
OPDEF WREBR [701200,,0] ;WRITE
OPDEF RDEBR [701240,,0] ;READ
OPDEF TIOE [710000,,0] ;TEST UNIBUS, SKIP EQUAL
OPDEF TIOEB [720000,,0] ;TEST UNIBUS, SKIP EQUAL
OPDEF TION [711000,,0] ;TEST UNIBUS, SKIP NOT EQUAL
OPDEF TIONB [721000,,0] ;TEST UNIBUS, SKIP NOT EQUAL
OPDEF RDIO [712000,,0] ;READ UNIBUS
OPDEF RDIOB [722000,,0] ;READ UNIBUS BYTE
OPDEF WRIO [713000,,0] ;WRITE UNIBUS
OPDEF WRIOB [723000,,0] ;WRITE UNIBUS BYTE
OPDEF BSIO [714000,,0] ;BIT SET TO UNIBUS
OPDEF BSIOB [724000,,0] ;BIT SET TO UNIBUS BYTE
OPDEF BCIO [715000,,0] ;BIT CLEAR TO UNIBUS
OPDEF BCIOB [725000,,0] ;BIT CLEAR TO UNIBUS BYTE
OPDEF WRSPB [702400,,0] ;WRITE SPT BASE REGISTER
OPDEF RDSPB [702000,,0] ;READ SPT BASE REGISTER
OPDEF WRCSB [702440,,0] ;WRITE CORE STATUS TABLE BASE REGISTER
OPDEF RDCSB [702040,,0] ;READ CORE STATUS TABLE BASE REGISTER
OPDEF WRPUR [702500,,0] ;WRITE PROCESS USE REGISTER
OPDEF RDPUR [702100,,0] ;READ PROCESS USE REGISTER
OPDEF WRCSTM [702540,,0] ;WRITE CST MASK REGISTER
OPDEF RDCSTM [702140,,0] ;READ CST MASK REGISTER
OPDEF WRTIME [702600,,0] ;WRITE TIME BASE
OPDEF RDTIME [702200,,0] ;READ TIME BASE
OPDEF WRINT [702640,,0] ;WRITE INTERVAL TIMER
OPDEF RDINT [702240,,0] ;READ THE INTERVAL REGISTER
OPDEF UMOVE [704000,,0] ;MOVE FROM PREVIOUS CONTEXT
OPDEF UMOVEM [705000,,0] ;MOVE TO PREVIOUS CONTEXT
OPDEF RDHSB [702300,,0] ;READ HALT STATUS BLOCK
OPDEF WRHSB [702700,,0] ;WRITE HALT STATUS BLOCK
;UNIBUS ADAPTER
UBAMAP=763000 ;MAPPING REGISTERS
UBA.SR=763100 ;STATUS REGISTER
UBA.IR=763200 ;VECTOR REGISTER
UBA.MR=763300 ;MAINTENANCE REGISTER
;PHYSICAL CORE DEFINITIONS FOR KS10 CTY AND KLINIK SERVICE
; AND PHYSICAL CORE LOCATIONS FOR OTHER FRONT-END FUNCTIONS
RLWORD==:31 ;RELOAD WORD
KSRLD==1B4 ;RELOAD REQUEST
KPACT==1B5 ;KEEP ALIVE ACTIVE
KLACT==1B6 ;KLINIK ACTIVE
PAREN==1B7 ;PARITY ERROR DETECT ENABLED
CRMPAR==1B8 ;CRAM PAR ERR DETECT ENABLED
DRMPAR==1B9 ;DRAM PAR ERR DETECT ENABLED
CASHEN==1B10 ;CACHE ENABLED
MILSEN==1B11 ;1MSEC ENABLED
KPALIV==377B28 ;KEEP ALIVE WORD
PWRFAL==1B33 ;POWER FAIL
FORREL==1B34 ;FORCED RELOAD
KEPFAL==1B35 ;KEEP ALIVE FAILURE
CTYIWD==:32 ;CTY INPUT WORD
CTYICH==377B35 ;CTY INPUT CHARACTER
CTYIVL==1B27 ;INPUT VALID BIT
CTYOWD=33 ;CTY OUTPUT WORD
CTYOCH==377B35 ;CTY OUTPUT CHARACTER
CTYOVL==1B27 ;OUTPUT VALID FLAG
KLIIWD==:34 ;KLINIK INPUT WORD
KLIICH==377B35 ;KLINIK INPUT CHARACTER
KLIIVL==1B27 ;KLINIK INPUT VALID
KLICHR==:1B27 ;KLINIK CHARACTER
KLIINI==:2B27 ;KLINIK INITED
KLICAR==:3B27 ;CARRIER LOST
KLIOWD==:35 ;KLINIK OUTPUT WORD
KLIOCH==377B35 ;KLINIK OUTPUT CHARACTER
KLIOVL==1B27 ;KLINIK OUTPUT VALID
KLOCHR==:1B27 ;KLINIK CHARACTER AVAILABLE
KLIHUP==:2B27 ;KLINIK HANGUP REQUEST
;RJP04
RPCS1==776700
RPWC==776702
RPBA==776704
RPDA==776706
RPCS2==776710
RPDS==776712
RPER1==776714
RPAS==776716
RPLA==776720
RPDB==776722
RPMR==776724
RPDT==776726
RPSN==776730
RPOF==776732
RPDC==776734
RPCC==776736
RPER2==776740
RPER3==776742
RPEC1==776744
RPEC2==776746
>;IFN FTKS10
MLON ;MULTI LINE LITERALS
BEG: RESET
MOVE P,[-10,,PDL]
MOVE T,[XWD 17,11] ;GETTAB FOR STATES WORD
GETTAB T, ;GET STATES WORD
JRST NOTFIV ;ERROR RETURN, MUST BE OLD MONITOR
TLNN T,3400 ;IS THIS 5.01 OR LATER?
JRST NOTFIV ;NO, MUST BE OLD MONITOR
MOVEI D,0 ;START AT FIRST DISK UNIT IN SYSTEM
MOVEI KL,0 ;SET KL=0 IF NOT A KL10 OR KS10
BLT KL,0 ; NON-0 IF A KL10 OR KS10
IFE STDWTB,<
SETOM SHUTUP ;ASSUME NO DIALOGUE
OUTSTR [ASCIZ /TYPE "HELP" FOR HELP
/]
JRST GO
HELP: OUTSTR HELPTX
IFN FTKL10,<
OUTSTR HELPT2
>
OUTSTR HELPT3
OUTSTR HELPT4
OUTSTR HELPT5
GO: OUTSTR [ASCIZ /SELECT UNITS? /]
PUSHJ P,GETCHR ;GET AN ANSWER
CAIE CH,"N" ;DEFAULT?
CAIN CH,12 ;OR JUST DOESN'T CARE
JRST LOOP ;YES, DO THE DEFAULT THING
CAIE CH,"Y" ;AFFIRMITAVE?
JRST HELP ;NO OTHER ANSWER IMPLEMENTED
SETZM SHUTUP ;DO IT QUITELY
JUMPN D,LOOP0 ;DON'T START OVER JUST BECAUSE OF A MISTAKE
>
LOOP: SYSPHY D,
JRST ESYSPH ;ERROR RETURN FOR SYSPHY UUO
JUMPE D,FINISH ;0 VALUE MEANS DONE ALL UNITS IN SYSTEM
MOVEM D,DSKTAB ;SAVE FOR DSKCHR UUO
MOVEM D,DSKNM ;SAVE FOR OPEN UUO
LOOP0: MOVE T,[XWD .DSLEN,DSKTAB]
DSKCHR T, ;GET CHARACTERISTICS FOR THIS DISK UNIT
JRST EDSKCH ;ERROR RETURN, PRINT MESSAGE
TLNN T,200000 ;OFFLINE?
TLNE T,3000 ;NO, NOT MOUNTED, OR BEING MOUNTED?
JRST LOOP ;YES, GO LOOK AT NEXT UNIT IN SYSTEM
LDB T,[POINT 6,T,26];NO, GET CONTROLLER TYPE
IFE FTKS10,<
CAIN T,4 ;RS04?
JRST LOOP0A ;YES, OPEN IT (TO WRITE READ-IN LOADER)
>;END IFE FTKS10
IFN FTKS10,<
CAIN T,4 ;RS04?
JRST LOOP ;YES, IGNORE IT
>;END IFN FTKS10
CAIE T,5 ;IS THIS AN RP04
CAIN T,2 ; OR THIS AN RP03
SKIPN DSKTAB+.DCSNM ;YES, IS IT IN A FILE STR?
JRST LOOP ;NO, GO LOOK AT NEXT UNIT IN SYSTEM
MOVE T3,T ;SAVE DEFAULTS
CAIE T3,5 ;RP04?
JRST LOOP0A ;NO
SOS T3 ;YES. T3=DEFAULT BOOTS FOR RP04
IFN FTKL10,<
PUSHJ P,WHATRH ;SET T1=0 IF RH10, =2 IF RH20
IFE STDWTB,<
ADD T3,T1 ;T3=6 IF RH20/RP0X
>
IFN STDWTB,<
MOVE T3,T1 ;T3=0 OR 2 IF RH10 OR RH20
>
>
LOOP0A:
IFE STDWTB,<
IFN FTKS10,<
MOVEI T3,2 ;DEFAULT IS RH11 BOOTS
>;END IFN FTKS10
SKIPE SHUTUP ;VERBOSITY?
JRST LOOP1 ;NO
OUTSTR [ASCIZ /UNIT /] ;TELL HIM WHAT WE'RE ASKING
PUSHJ P,OUTSIX ; AND THE UNIT NAME
OUTSTR [ASCIZ /(/]
MOVE T2,DSKTAB+.DCULN ;LOGICAL NAME
PUSHJ P,OUTSX1 ; TELL HIM
CAIN T,4 ;AN RS04?
JRST [OUTSTR [ASCIZ /):
/]
JRST LOOP1] ;YES, ONLY ASK ABOUT THE READIN LOADER
OUTSTR [ASCIZ /): /]
PUSHJ P,GETCHR ;GET HIS RESPONSE
CAIN CH,"S" ;SKIP?
JRST LOOP ;YES, WRITE NOTHING
CAIN CH,12 ;<CR>?
JRST LOOP1 ;YES, WRITE DEFAULT
SETO T3, ;ASSUME SYNTAX ERROR
IFE FTKS10,<
CAIN CH,"D" ;DPC BOOTS?
MOVEI T3,2 ;YES, REMEMBER THAT
CAIE CH,"R" ;RP0X BOOTS?
JRST LOOP0B ;NO
MOVEI T3,4 ;YES, REMEMBER THAT
IFN FTKL10,<
CAIN CH2,"2" ;RH20?
MOVEI T3,6 ;YES, REMEMBER THAT
>
>
IFN FTKS10,<
CAIN CH,"R" ;RH11 BOOTS?
MOVEI T3,2 ;YES; REMEMBER THAT
>
LOOP0B: CAIN CH,"Z" ;WRITE ZEROES?
MOVEI T3,0 ;YEAH, REMEMBER THAT
JUMPL T3,HELP ;IF NONE OF THE ABOVE, COACH THE GUY
>
LOOP1: OPEN C,OPENDT ;YES, OPEN THIS UNIT FOR BUSINESS
JRST EOPEN ;ERROR RETURN FROM OPEN
IFE TEST,<
CAIN T,4 ;RS04?
JRST WRTLDR ;YES, ONLY WRITE READ-IN LOADER
MOVEI T1,BOOTLB ;START AT FIRST LOGICAL BLOCK FOR BOOTS
PUSHJ P,UUSET ;POSITION THE DEVICE
STATZ C,760000 ;SUPER USETO SUCCESSFUL?
JRST NOT12 ;NO, PROBABLY NOT UNDER [1,2]
IFN STDWTB,<
IFE FTKL10,<
OUT C,BOOTCL ;YES, WRITE OUT BOOTS
>
IFN FTKL10,<
OUT BOOTCL(T3) ;YES, WRITE OUT BOOTS
>
>
IFE STDWTB,<
OUT C,BOOTCL(T3) ;YES, WRITE OUT BOOTS
>
SKIPA
JRST ERRWRT ;ERROR WRITING
CAIE T,5 ;WROTE OK. RP04?
JRST LOOP ;NO, TRY NEXT UNIT
WRTLDR:
IFN STDWTB,<
JUMPN KL,LOOP ;IF ON A KL10 DONT WRITE IN BLOCK 0
; (FRONT END MIGHT NEED IT)
>
IFN FTKS10,<
JRST LOOP ;WE DON'T USE BLOCK 0 ON KS10
>
MOVEI T1,0 ;YES, SET TO WRITE READIN LOADER
PUSHJ P,UUSET ;POSITION THE DEVICE
STATZ C,760000 ;OK?
JRST NORDIN ;LOSE, TELL USER AND LOOP
MOVSI T,-REDLEN+3 ;SET LH OF IOWD TO -200 IN 18-BIT MODE
IFE STDWTB,<
SKIPE SHUTUP ;VERBOSITY?
JRST LOOP2 ;NO, SKIP QUESTIONS
OUTSTR [ASCIZ /READ-IN LOADER FOR 18 OR 22 BIT CHANNEL OR NONE?/]
PUSHJ P,GETCHR ;GET THE RESPONSE
CAIN CH,12 ;CR TYPED?
JRST LOOP2 ;YES, DO THE DEFAULT THING
CAIN CH,"N" ;NO LOADER?
JRST LOOP ;NO, PROBABLY A KL10
CAIE CH,"1" ;18?
CAIN CH,"2" ;OR 22?
CAIA ;YES
JRST HELP ;NO, GIVE HIM SOME HELP
CAIE CH,"2" ;22 BIT MODE LOADER?
JRST LOOP3 ;NO, 18 BIT
JRST LOOP2A
LOOP2:>
JUMPN KL,LOOP ;NO LOADER IF A KL10 (RSX20F USES BLOCK 0)
TRNE D,10000 ; -200_4 (FOR DF10C) ON ALTERNATE UNITS
LOOP2A: LSH T,4 ;READIN FROM AN EVEN UNIT IF 18-BIT DF10
LOOP3: HLLM T,REDATA ;READIN FROM AN ODD UNIT IF 22-BIT DF10
OUT C,REDCL ;OK, WRITE IT
>;END IFE TEST
IFN TEST,<
MOVE T,[C_5,,BOOTLB]
SUSET. T, ;POSITION THE DEVICE
JRST [CAME T,[C_5,,BOOTLB]
JRST NOT12
USETI C,[BOOTLB] ;START AT FIRST LOGICAL BLOCK FOR BOOTS
JRST .+1] ;AND CONTINUE
STATZ C,760000 ;SUPER USETI SUCCESSFUL?
JRST NOT12 ;NO, PROBABLY NOT UNDER [1,2]
IN C,BOOTCL ;YES, READ BOOTS BLOCKS - ANY ERRORS?
>
JRST LOOP ;NO, GO LOOK AT NEXT UNIT IN SYSTEM
ERRWRT: TTCALL 3,[ASCIZ /DEVICE OR DATA ERROR - CONTINUING ON NEXT UNIT
/]
JRST LOOP
FINISH: EXIT ;DONE ALL UNITS IN SYSTEM, EXIT TO MONITOR
IFE STDWTB,<
OUTSIX: MOVE T2,D ;SIXBIT TO BE TYPED
OUTSX1: MOVEI T1,0 ;ZERO RESULT
LSHC T1,6 ;SHIFT NUMBER INTO T1
JUMPE T1,CPOPJ ;DONE IF NO CHARACTERS LEFT
ADDI T1,40 ;CONVERT TO ASCII
OUTCHR T1 ;PRINT THE RESULT
JRST OUTSX1 ;GET THE NEXT CHARACTER
GETCHR: INCHWL CH
CAIN CH,32
EXIT
CAIN CH,15
JRST GETCHR
CAIN CH,33
MOVEI CH,12
CAIN CH,12
POPJ P,
INCHWL T1 ;GET 2ND CHAR
SKIPA CH2,T1 ;SAVE IT IN CH2
GETCH1: INCHWL T1
CAIN T1,32
EXIT
CAIE T1,12
CAIN T1,33
CPOPJ: POPJ P,
JRST GETCH1
>
UUSET: PUSH P,T1
HRLI T1,<4000+C>_5 ;OUTPUT ON CHANNEL C
PUSH P,T1
SUSET. T1, ;POSITION THE DEVICE
JRST [CAME T1,(P)
JRST NOT12 ;IF IMPLIMENTED, MUST NOT BE PRIVILEDGED
USETO C,-1(P) ;SUSET LOST, IT MUST NOT BE IMPLIMENTED
JRST .+1]
POP P,(P)
POP P,T1
POPJ P,
IFN FTKL10,<
;SUBROUTINE TO DETERMINE IF AN RP0X PACK IS ON AN RH10 OR RH20
OPDEF DIAG. [CALLI 163]
WHATRH: MOVE T4,[2,,T1]
MOVEI T1,7 ;DIAG FUNCTION TO GET KONTROLLER
MOVE T2,DSKNM
DIAG. T4,
JRST NODIAG ;DIAG. NOT IMPL'D
CAMGE T4,[540,,] ;RH20?
GUESS: TDZA T1,T1 ;NO, T1=0
MOVEI T1,2 ;YES, T1=2
POPJ P,
NODIAG: MOVE T1,[7,,16] ;SYSUNI
GETTAB T1,
JRST GUESS ;CANT FIND START OF CHAIN
WHATR1: HLRZS T2,T1
JUMPE T2,GUESS ;LOSE IF END OF CHAIN
PEEK T1, ;UNINAM
CAME T1,DSKNM
JRST WHATR2 ;NOT THIS ONE
MOVEI T1,6(T2) ;POINT AT UNIKON
PEEK T1,
MOVEI T1,113(T1) ;RPXDI2
PEEK T1,
TDZ T1,[DATAI 7]
TDNE T1,[700077,,-1] ;DATAI T2, OR DATAO T1, ?
JRST GUESS ;NO, WHO KNOWS?
CAMGE T1,[54000,,]
TDZA T1,T1 ;RH10
MOVEI T1,2 ;RH20
POPJ P,
WHATR2: MOVEI T1,3(T2) ;POINT TO NEXT UNIT
PEEK T1,
JRST WHATR1 ;TRY IT
>
ESYSPH: TTCALL 3,[ASCIZ /SYSPHY UUO ERROR RETURN - TRY LATER MONITOR
/]
EXIT
EDSKCH: TTCALL 3,[ASCIZ /DSKCHR UUO ERROR RETURN - TRY LATER MONITOR
/]
EXIT
EOPEN: TTCALL 3,[ASCIZ /OPEN UUO ERROR RETURN
/]
EXIT
NOT12: TTCALL 3,[ASCIZ /SUPER USETO FAILURE - LOGIN UNDER 1,2
/]
EXIT
NOTFIV: TTCALL 3,[ASCIZ /NOT A 5 SERIES MONITOR OR LATER
/]
EXIT
NORDIN: TTCALL 3,[ASCIZ /CANT WRITE READIN BLOCK - CONTINUING
/]
JRST LOOP
IFE STDWTB,<
HELPTX:ASCII \WTBOOT WILL ASK THE QUESTIONS "SELECT UNITS?"
IF THE ANSWER IS YES, WTBOOT WILL ASK YOU WHICH TYPE OF BOOTS TO
WRITE ON EACH UNIT IN THE SYSTEM BY TYPING "UNIT" FOLLOWED BY THE
UNIT NAME (NOTE THAT "RP0X" MEANS RP04, RP05, OR RP06). RESPOND WITH
\
IFE FTKS10,<
ASCIZ \ "DP" IF YOU WANT WTBOOT TO WRITE RP02/RP03 BOOTS ON THE
PACK MOUNTED ON THAT UNIT
"RP" IF YOU WANT WTBOOT TO WRITE RH10/RP0X BOOTS ON THE PACK
MOUNTED ON THAT UNIT
\
>
IFN FTKS10,<
ASCIZ \ "RH" IF YOU WANT WTBOOT TO WRITE RH11/RP06/RM03 BOOTS ON THE
PACK MOUNTED ON THAT UNIT
\
>
IFN FTKL10,<
HELPT2:ASCIZ \ "R2" IF YOU WANT WTBOOT TO WRITE RH20/RP0X BOOTS ON THE PACK
MOUNTED ON THAT UNIT
\
>
HELPT3:ASCIZ \ "ZERO" IF YOU WANT THE MONITOR NEVER TO READ BOOTS FROM THAT
PACK
"SKIP" IF YOU DON'T WANT WTBOOT TO CHANGE THAT PACK
OR CARRIAGE RETURN IF YOU WANT WTBOOT TO WRITE THE DEFAULT BOOTS
\
HELPT4:IFE FTKL10!FTKS10,<
ASCIZ \(RP02/RP03 BOOTS ON RP02/RP03 PACKS, RP0X BOOTS ON RP0X PACKS).
\
>
IFN FTKL10,<
ASCIZ \(RP02/RP03 BOOTS ON RP02/RP03 PACKS, RH10/RP0X BOOTS ON RP0X PACKS
WHICH ARE ON RH10'S, RH20/RP0X BOOTS ON PACKS WHICH ARE ON RH20'S).
\
>
IFN FTKS10,<
ASCIZ \(RH11/RP06/RM03 BOOTS ON RP06/RM03 PACKS).
\
>
HELPT5:
IFE FTKS10,<
ASCII \FOR EACH RS04 OR RP0X, WTBOOT WILL ASK IF THE READIN LOADER SHOULD
BE WRITTEN IN 18 OR 22 BIT MODE FORMAT. RESPOND WITH
"NONE" IF NO READIN LOADER SHOULD BE WRITTEN ON BLOCK 0 (KL10)
"18" IF THE UNIT IS NOT ON A CONTROLLER CONNECTED TO A DF10C,
OR IF THE DF10C IS NORMALLY IN 18 BIT MODE.
"22" IF THE DF10C IS NORMALLY IN 22 BIT MODE
OR CARRIAGE RETURN FOR THE DEFAULT (18 BIT ON EVEN UNITS, 22 ON ODD).
\
ASCIZ \
IF THE ANSWER TO "SELECT UNITS" IS NO, WTBOOT WILL WRITE THE
DEFAULT BOOTS ON ALL PACKS. IF WTBOOT IS BEING RUN ON A KL10
IT WILL NOT WRITE READIN LOADERS, IF NOT BEING RUN ON A KL10
WTBOOT WILL WRITE THE DEFAULT READIN LOADER ON ALL RS04'S AND RP0X'S.
\
>
IFN FTKS10,<
ASCIZ \
IF THE ANSWER TO "SELECT UNITS" IS NO, WTBOOT WILL WRITE THE
DEFAULT BOOTS ON ALL PACKS.
\
>
>
BOOTCL:
IFN STDWTB,<
XWD MBOOTL,BOOTSA-1 ;IO LIST FOR BOOTS CORE IMAGE
IFN FTKL10,<
0
XWD MBOOTL,BOOTS2##-1
>
0
>
IFE STDWTB,<
IFE FTKS10,<
XWD MBOOTL,NULL-1
0
XWD MBOOTL,BTDPSA##-1
0
XWD MBOOTL,BTDHSA##-1
0
IFN FTKL10,<
XWD MBOOTL,BTD2SA##-1
0
>;END IFN FTKL10
>;END IFE FTKS10
IFN FTKS10,<
XWD MBOOTL,NULL-1
0
XWD MBOOTL,BTRHSA##-1
0
>;END IFN FTKS10
SHUTUP: 0
>;END IFE STDWTB
OPENDT: XWD 0,17 ;DUMP MODE
DSKNM: 0 ;DEVICE NAME
0 ;BUFER HEADERS
.DCSNM==4 ;STR NAME FOR DSKCHR UUO
.DCULN==14 ;UNIT LOGICAL NAME
.DSLEN==24 ;NO. OF VALUES FOR DSKCHR
DSKTAB: BLOCK .DSLEN ;DSKCHR VALUES
IFE STDWTB,<
NULL: BLOCK 1000
>
PDL: BLOCK 10
LIT
REDCL: XWD -REDLEN,REDATA-1
0
REDATA:
PHASE 175600 ;READ INTO TOP OF 63K
;(LAST WORD EXECUTED, NOT STORED IN CORE)
RDSTRT:
BOOTWD==22 ;LOW CORE IOWD ADDRESS
DHX==270 ;FIRST RH10 DEVICE CODE
DHX2==274 ;SECOND RH10
DHX3==360 ;3RD RH10
XWD -REDLEN+3,. ;IOWD FOR THE HARDWARE TO USE
RDBOOT: MOVSI T1,-BTBLEN ;BEFORE A CONO 2000 IS DONE WE MUST
GETUNI: MOVE T4,BTABLE(T1) ; DO DATAI'S ON ALL RH10'S TO FIND
XCT 2(T4) ; WHICH UNIT THE RH10 IS CURRENTLY TALKING TO
TLZ T3,777770 ;UNIT
HLLM T3,BTABLE(T1) ;SAVE UNIT NUMBER IN TABLE
AOBJN T1,GETUNI
HRLOI T,010500
IBP T
TLNE T,77 ;KA OR KI?
TROA T,AP.NXM ;KA
MOVEI T,IP.NXM ;KI
MOVEI P2,776777 ;FIND HIGHEST CORE IN MACHINE
NXMLUP: CONO APR,200000(T)
MOVS (P2) ;REFERENCE 2 PAGES
MOVS 1(P2) ; FOR BOOTS CODE AND DATA
CONSO APR,(T) ;NXM?
JRST INHERE ;THIS MUST BE THE PLACE
SUBI P2,1000 ;NXM, TRY NEXT LOWER PAGE
JRST NXMLUP
INHERE: HRRM P2,BOOTWD ;ADDRESS TO READ BOOTS
MOVSI T1,-BTBLEN
KONLUP: HLRZ T2,BTABLE(T1) ;START WITH UNIT LOADER WAS READ FROM
UNILUP: CONO APR,200000 ;CLEAR THE WORLD
MOVE T4,BTABLE(T1)
MOVEI T,MBOOTL
XCT 4(T4) ;CONI T3
TLNE T3,4000 ;DF10C?
LSH T,4 ;YES, 22 BITS OF ADDRESS
HRLM T,BOOTWD ;SAVE LH(IOWD)
SETZM BOOTWD+1 ;SO WE WILL TERMINATE RIGHT
TRNN T2,10 ;AN ARTIFACT IN CASE LOADER WAS READ FROM DRIVE 7
JSR RPREAD ;START THE READ
JRST UNINXT ;NOT AN RP04
MOVEI T3,40000
XCT (T4) ;WAIT TILL DONE
SOJG T3,.-1
MOVE T,UNILUP
CAMN T,1(P2) ;READ BOOTS?
JUMPG T3,UNICHK ;YES, IF DIDN'T TIME OUT
UNINXT: AOBJN T2,UNILUP ;NO, TRY NEXT UNIT
CAIN T2,11 ;IF DONE AOBJN LOOP,
JRST KONNXT ; TRY NEXT CONTROLLER
MOVSI T2,-11 ;ONLY TRIED UNIT LOADER WAS READ FROM,
JRST UNINXT ;GO TRY ALL UNITS ON CONTROLLER
KONNXT: AOBJN T1,KONLUP ;TRY NEXT KONTROLLER
HALT 10 ;COULDNT FIND BOOTS
UNICHK: JSR RPCHEK ;BOOTS WAS READ, ANY ERRORS?
JRST UNINXT ;YES, TRY NEXT UNIT
MOVE T1,[POINT 8,BOOTXT] ;TYPE "BOOTS" ON CTY
TYPLUP: ILDB T2,T1
JUMPE T2,1(P2) ;START BOOTS IF DONE
DATAO TTY,T2
CONSZ TTY,20
JRST .-1
JRST TYPLUP
;"BOOTS <CR><LF> " IN EVEN PARITY
BOOTXT: BYTE (8)102,317,317,324,123,215,12
RPREAD: 0
MOVSI T3,4000(T2) ;DATAO DRIVE CONTROL REGISTER
HRRI T3,21
XCT 1(T4) ;READIN PRESET
MOVSI T3,60000(T2)
XCT 1(T4) ;DATAO DRIVE-TYPE
IMULI 1
XCT 2(T4) ;READ STATUS
TLNN T3,2000 ;CBTO?
ANDI T3,777 ;NO, GET TYPE
CAIL T3,20 ;IS IT AN RP04?
CAILE T3,22 ; OR AN RP06?
JRST @RPREAD ;NO
AOS RPREAD ;YES, SET FOR SKIP-RETURN
MOVSI T3,54000(T2)
HRRI T3,4
XCT 1(T4) ;DESIRED SECTOR = 4
TDC T3,[450000,,200075!BOOTWD_6]
XCT 1(T4) ;READ, DXES
JRST @RPREAD ;AND RETURN
RPCHEK: 0
MOVSI T3,10000(T2)
XCT 1(T4) ;DATAO STATUS
IMULI 1
XCT 2(T4) ;DATAI STATUS
XCT 3(T4) ;CONSO
TRNE T3,40000 ;ERROR?
JRST @RPCHEK ;YES, RETURN
AOS RPCHEK ;NO, SKIP
JRST @RPCHEK
BTABLE: EXP RPINST
EXP R2INST
EXP R3INST
BTBLEN==.-BTABLE
RPINST: CONSO DHX,10
DATAO DHX,T3
DATAI DHX,T3
CONSO DHX,736320
CONI DHX,T3
R2INST: CONSO DHX2,10
DATAO DHX2,T3
DATAI DHX2,T3
CONSO DHX2,736320
CONI DHX2,T3
R3INST: CONSO DHX3,10
DATAO DHX3,T3
DATAI DHX3,T3
CONSO DHX3,736320
CONI DHX3,T3
LIT
XWD -1,. ;FUNNY IOWD FOR READIN TO USE
JRST RDBOOT ;THIS INSTR EXECUTED AT END OF READIN
REDLEN==.-RDSTRT
DEPHASE
END BEG