Fixed some typos and added COPY and DTBOOT.

[retro-software/dec/tops10/v4.5.git] / src / onceb.mac

diff --git a/src/onceb.mac b/src/onceb.mac
index 0ad5215..89b786d 100644 (file)
--- a/src/onceb.mac
+++ b/src/onceb.mac
@@ -58,6 +58,7 @@ IFN FT2REL,<
        CONSO APR,NXM           ;NON-EXISTENT?\r
        SOJG TAC, .-3           ;NO,KEEP LOOKING AS LONG AS NOT TOP OF MEMORY\r
        SUBI    DAT,700         ;MAKE ROOM FOR TENDUMP AT TOP OF CORE\r
+       JSR MOVSTP              ;MOVE DDT SYMBOL TABLE POINTER TO LOWER CORE\r
                                ; (DDTSYM=36) WHERE EXEC DDT EXPECTS IT.\r
                                ; IF NOT ALREADY MOVED THERE. RETURN POINTER IN UUO\r
        HLRE TAC1,UUO           ;-LENGTH OF S. T.\r
@@ -112,7 +113,6 @@ IFN FTDISK,<
 ;INITIALIZE DISK\r
 \r
        EXTERN NULPDL,DSKINI\r
-\r
        MOVEI PDP,NULPDL\r
        PUSHJ PDP,DSKINI        ;INITIALIZE THE DISK\r
                                ; AFTER SETTING UP CHANNEL LOC\r
@@ -150,6 +150,7 @@ UUOTRP:     JSR UUO0                ;TO UUO HANDLER
        0               ;LOC 60/61 TRAPPED TO FOR UNIMPLEMENTED OP CODES ON PDP-10\r
                        ;OP CODE 100 IS USED TO DISMISS USER MODE INTERRUPTS(SEE TRPSET UUO)\r
        JSR UUO2        ;GO SEE IF OP CODE 100 OR SOME OTHER ONE\r
+\r
 \fIFN FT2REL,<\r
 ;SET LOC TWOREG TO -1 IF MACHINE HAS TWO RELOC REG,0 IF ONLY ONE RELOC REG\r
        EXTERN TWOREG,SEGN,SEGPTR,AND2RG,JOBN\r
@@ -184,6 +185,7 @@ TSTAPR:     0                       ;PLACE TO SIDE JSR PC
        MOVNI TAC,SEGN          ;SET LH OF POINTER TO FIRST SEG IN JBTXX TABLES\r
        HRLI TAC,JOBN           ;SET RH OF POINTER TO FIRST HIGH SEG\r
                                ;THIS MUST BE DONE HERE BECAUSE SEGPTR APPEARS IN FIRST\r
+\r
                                ; WHICH BUILD FORBITS FROM HAVING EXTERNALS\r
        MOVSM TAC,SEGPTR        ;POINTER USED FOR AOBJN LOOPS\r
        CONO PI,10000           ;CLEAR PI SYSTEM\r
@@ -202,14 +204,14 @@ TSTAPR:   0                       ;PLACE TO SIDE JSR PC
 ;  2.  JUNK            JUNK(NON-NEG)   S.T.PTR\r
 ;  3.  S.T.PTR         S.T.PTR         JUNK\r
 \r
-;CALL: JSP MOVSTR\r
+;CALL: JSP MOVSTP\r
 ;      RETURN WITH AC UUO SET TO SYMBOL TABLE POINTER\r
 ;CALLED FROM MANDATORY ONCE ONLY CODE AND 141 START CODE(WHICHEVER OCCURS FIRST)\r
 \r
-       INTERN MOVSTR\r
+       INTERN MOVSTP\r
        EXTERN T30SYM,JOBSYM,DDTSYM,DDTX,SYSDDT\r
 \r
-MOVSTR:        0                       ;JSR HERE FROM MANDATORY ONCE ONLY CODE AND\r
+MOVSTP:        0                       ;JSR HERE FROM MANDATORY ONCE ONLY CODE AND\r
                                ; FIRST JUMP TO EXEC DDT IF BEFORE MONITOR STARTED\r
 MOVJMP:        JRST .+1                ;PATCHED TO SETUUO AFTER FIRST EXECUTION\r
        MOVE UUO,T30SYM         ;ASSUME LOADED BY REGULAR 10/30\r
@@ -228,14 +230,14 @@ REGT30:   MOVEM UUO,DDTSYM        ;STORE THE SYMBOL TABLE POINTER FOR EXEC DDT
 SETUUO:        MOVE UUO,DDTSYM         ;RETURN THE CORRECT(MAYBEUPDATED IF\r
                                ; EXEC DDT PATCHES MADE BEFORE MONITOR SAVED OR\r
                                ; STARTED) SYMBOL TABLE POINTER\r
-       JRST @MOVSTR            ;RETURN\r
+       JRST @MOVSTP            ;RETURN\r
 \r
 ;HERE IF EXEC DDT IS STARTED UP BEFORE MONITOR(TO MAKE A PATCH FOR EXAMPLE)\r
 \r
        INTERN PATSYM\r
        EXTERN DDTX\r
 \r
-PATSYM:        JSR MOVSTR              ;MOVE DDT SYMBOL TABLE POINTER SO EXEC DDT WILL\r
+PATSYM:        JSR MOVSTP              ;MOVE DDT SYMBOL TABLE POINTER SO EXEC DDT WILL\r
                                ; FIND IT AND PATCH 141 TO GO DIRECTLY TO EXEC DDT\r
        JRST DDTX               ;AND GO DIRECTLY TO EXEC DDT\r
 \f\r
@@ -349,7 +351,6 @@ TIMLOP:     SETZM TIME
        JRST    TIMLOP  ;ILLEGAL CHARACTER\r
        MOVE    TAC,TAC1\r
        IDIVI   TAC,^D100       ;TAC=HRS.TAC1=MINS\r
-\r
        SKIPL   TAC     ;HRS NEGATIVE?\r
        CAILE   TAC,^D23        ;OR .G. 23?\r
        JRST    TIMLOP  ;OUT OF BOUNDS\r
@@ -378,7 +379,7 @@ IFN FT2REL,<
        MOVEI TAC,2\r
        PUSHJ PDP,RADX10        ;NO. SECOND REG EXISTS.\r
        PUSHJ PDP,INLMES\r
-       ASCIZ /RELOC. REG.\r
+       ASCIZ / RELOC. REG.\r
 /\r
        PUSHJ PDP,OPOUT\r
 >\r
@@ -396,7 +397,7 @@ CONFLP:     SKIPN AC1,INTTB1(PROG)  ;INT LOC HAVE DEV DATA BLOCK?
        ASCIZ / /\r
        HLLZ TAC1,DEVNAM(AC1)   ;DEVICE NAME\r
        PUSHJ PDP,PRNAME        ;PRINT IT\r
-       SOJLE UUO,SINGLE                ;IS THIS JUST A SIGNLE DEVICE?\r
+       SOJLE UUO,SINGLE                ;IS THIS JUST A SINGLE DEVICE?\r
        PUSHJ PDP,INLMES        ;NO, APPEND 'S TO DEVICE NAME\r
        ASCIZ /'S/\r
 SINGLE:        PUSHJ PDP,CRLF          ;PRINT CR LF\r
@@ -687,7 +688,7 @@ IFE FTTTYSER,<  MOVE TAC,LINEP              ;RESET BYTE POINTER>
 DELETE:        IFN FTTTYSER,< PUSHJ PDP,DCPUTR\r
        JRST DELET1>\r
 IFE FTTTYSER,<\r
-       JUMPE ITEM,DELET1       ;AT BEGINNING OF LINE?>\r
+       JUMPE ITEM,DELET1       ;AT BEGINNING OF LINE?\r
        ADD TAC,[XWD 070000,0]  ;NO, BACK UP BYTE POINTER\r
        TLNE TAC,400000         ;FINISHED THIS WORD YET?\r
        ADD TAC,[XWD 347777,-1] ;YES, BACK UP ADDRESS>\r
@@ -799,7 +800,7 @@ LINBUF:     BLOCK 30
 \r
 ;MESSAGES\r
 \r
-TSEXEC:        ASCIZ /MONITOR JUST LOADED\r
+TSEXEC:        ASCIZ / MONITOR JUST LOADED\r
 /\r
 TODATE:        ASCIZ /\r
 TYPE TODAY'S DATE AS MM-DD-YY\r
@@ -921,7 +922,7 @@ IFE FTRC10, <
 \r
 IFN    FTRC10, <\r
        HRRZ    TAC,SATPTR\r
-SETS5X:        CAIL TAC,SATTOP\r
+SETS5X:        CAIL    TAC,SATTOP\r
        JRST    SAT05           ;EXIT FROM DFWUNS BACK TO DSKINI IN DSKSER........\r
        ADDI    TAC,SENTSZ\r
        MOVEI   TAC1,411000     ;ON THE NEW PDP-10 DISK SYSTEM SET THE SAT ENTRY\r
@@ -1540,7 +1541,7 @@ CPCT2:    SUBI    TAC,1
        POP     PDP,LBHIGH      ;RESTORE PREVIOUSLY EXISTING VALUE OF THE HIGHEST\r
                                ; LEGAL LOGICAL DISK BLOCK NUMBER.\r
        POPJ    PDP,            ;***SUBROUTINE EXIT***.......\r
-i\r
+\r
 \r
 CPCT3: POP     PDP,TAC\r
        CONSZ   DSK,NRDY        ;NON-EXISTENT DISK?\r
@@ -1594,7 +1595,7 @@ WRLK9:    PUSHJ   PDP,ICONM       ;PRINT ERROR MESSAGE
 WRLKM1:        ASCIZ   /DISK BLOCK 0 WRITE ERROR DURING WRITE-LOCK CHECK.\r
 /\r
 WRLKM2:        ASCIZ   /"MAINTENANCE SEGMENT" SWITCH MUST BE OFF. AND\r
-DIS WRITE PROTECTION SWITCHES MUST BE SET TO 0000 AND "LESS THAN",\r
+DISK WRITE PROTECTION SWITCHES MUST BE SET TO 0000 AND "LESS THAN",\r
 FIX THEM ! !\r
 /\r
 \f\r