Trailing-Edge
-
PDP-10 Archives
-
BB-L014C-BM
-
autopatch/t20bw4.003
There are no other files named t20bw4.003 in the archive.
BEWARE INFORMATION FOR TOPS-20-V4
BEWARE INFORMATION FOR EDIT 1930 IN MONITO
Edit 1930 changes MONSYM, so new MAC, REL and UNV files are provided.
********************************************************************************
BEWARE INFORMATION FOR EDIT 1939 IN MONITO
Edit 1939 in this patch set has a change which will be reflected in a future
Software Dispatch article.
Edit 1939 requires the following patch to be installed in CHECKD.MAC
1)2 PRGEDT==^D27 ;EDIT NUMBER
1) ENTVEC: JRST START ;MAIN START
****
2)2 PRGEDT==^D28 ;EDIT NUMBER
2) ENTVEC: JRST START ;MAIN START
**************
1)54 IDIV T1,SECPAG ;ROUND DOWN ADDRESS TO A PAGE BOUNDARY
****
2)54 ;**;[28] Add 5 lines at NXTPR:+7L PED 5-AUG-81
2) MOVE T2,SECCYL ;[28] GET NUMBER OF PHYSICAL SECTORS
2) ADD T2,LPPCYL ;[28] IN A CYLINDER
2) IDIV T1,T2 ;[28] FIND NUMBER OF SECTORS
2) IMUL T1,LPPCYL ;[28] FIND NUMBER OF LOST SECTORS
2) SUBB T4,T1 ;[28] ACCOUNT FOR LOST SECTORS
2) IDIV T1,SECPAG ;ROUND DOWN ADDRESS TO A PAGE BOUNDARY
**************
1)83 PUSH P,T2
1) IDIV T1,SECCYL ;FIND THE NUMBER OF CYL'S
1) IMUL T1,LPPCYL ;FIND OFFSET
1) POP P,T2 ;RESTORE T2
1) ADD T1,0(P) ;GET THE REAL DISK ADDRESS
1) MOVEI T3,BPRBLK ;START OF THE PAIRS
****
2)83 ;**;[28] Delete 5 lines at SEEADR:+3L PED 5-AUG-81
2) ; PUSH P,T2
2) ; IDIV T1,SECCYL ;FIND THE NUMBER OF CYL'S
2) ; IMUL T1,LPPCYL ;FIND OFFSET
2) ; POP P,T2 ;RESTORE T2
2) ; ADD T1,0(P) ;GET THE REAL DISK ADDRESS
2) MOVEI T3,BPRBLK ;START OF THE PAIRS
**************
********************************************************************************
BEWARE INFORMATION FOR EDIT 1942 IN MONITO
Edit 1942 requires the following patch to be installed in CHKPNT.MAC
**************
1)2 VEDIT==115 ;EDIT NUMBER
1) VWHO==0 ;GROUP WHO LAST EDITED PROGRAM (0=DEC DEVELOPMENT)
****
2)2 VEDIT==116 ;EDIT NUMBER
2) VWHO==0 ;GROUP WHO LAST EDITED PROGRAM (0=DEC DEVELOPMENT)
**************
1)51 USMUP. <MOVEI T1,0> ;MONITOR UPTIME
1) USCPN. <MOVEI T1,1> ;NUMBER OF CPU'S
1) USCP0. <MOVE T1,2(P1)> ;SERIAL NUMBER OF CPU0
1) USCP1. <MOVEI T1,0> ;SERIAL NUMBER OF CPU1
****
2)51 ;**;[116] Change one line at UFRSTT: +3L RAS 15-SEP-81
2) USMUP. <MOVEI T1,2(P1)> ;MONITOR UPTIME
2) USCPN. <MOVEI T1,1> ;NUMBER OF CPU'S
2) ;**;[116] Change one line at UFRSTT: +5L RAS 15-SEP-81
2) USCP0. <MOVE T1,3(P1)> ;SERIAL NUMBER OF CPU0
2) USCP1. <MOVEI T1,0> ;SERIAL NUMBER OF CPU1
**************
1)51 USLCK. <MOVE T1,3(P1)> ;LAST CHECKPOINT DATE/TIME
1) UFRSTL==.-UFRSTT
****
2)51 ;**;[116] Change one line at UFRSTT: +11L RAS 15-SEP-81
2) USLCK. <MOVE T1,4(P1)> ;LAST CHECKPOINT DATE/TIME
2) UFRSTL==.-UFRSTT
**************
********************************************************************************
BEWARE INFORMATION FOR EDIT 1956 IN MONITO
Edit 1956 has been witheld.
********************************************************************************