perm filename UP[S,AIL] blob
sn#229799 filedate 1976-08-05 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00005 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 HISTORY
C00003 00003 ?SEGS←1
C00005 00004
C00009 00005 SMTAB: XWD 2,0 BLOCK TYPE (SYMBOLS)
C00011 ENDMK
C⊗;
COMMENT ⊗HISTORY
AUTHOR,REASON
021 102100000004 ⊗;
COMMENT ⊗
VERSION 17-1(4) 5-30-74 BY RLS BUG #SL# REMAIN COMPATIBLE WITH TOPS10
VERSION 17-1(3) 1-11-74 BY JRL CMU SWITCHES
VERSION 17-1(2) 12-8-73 BY JRL REMOVE SPECIAL STANFORD CHARACTERS(WHERE POSSIBLE)
VERSION 17-1(1) 11-20-73 BY RFS CHANGE `PRINT' TO `SPRINT' MACRO
VERSION 17-1(0) 7-26-73 BY RHT BY RHT TO KEEP UP THE VERSION NUMBER
VERSION 15-2(1) 12-2-71 BY DCS INSTALL VERSION NUMBER
⊗;
?SEGS←1
?LOWER←0
?UPPER←1
IFNDEF GLOBSW,<?GLOBSW←←0>
CMU <
IFNDEF GASSW,<?GASSW←←0>
GGAS <
DEFINE UPPER <GASSUP>
>;GGAS
>;CMU
TITLE UPPER
EXTERNAL MYFIL,SLOF,LOCSM ;PARAMETERS FOR CREATING SEGMENTS
BEGIN UPPER1
A←1
B←2
C←3
D←4
E←5
↑UPWRT: CALLI ;RESET!
UPGOT: SETZM FIRLOC+11 ;NO 2D SEGMENT SYMBOL TABLE
HLRZ A,JOBSA ;DELETE SYMBOL TABLE
MOVEI A,-FIRLOC-1(A)
HRRZM A,ASIZ ;SIZE OF SEC. SEG. -1
TRO A,400000 ;TURN IT OT.
HRRZM A,FIRLOC+12 ;TOP2 WORD.....
INIT 1,17
SIXBIT /DSK/ ;THE FILE SYSTEM!
0 ;NO BUFFERS.
SPRINT <NO DISK TODAY>
HLLZS MYFIL+1
SETZM MYFIL+2
SETZM MYFIL+3
ENTER 1,MYFIL ;THE VERY SAME.
SPRINT <NO DISK TODAY>
MOVN A,ASIZ
HRLI A,-1(A) ;MAKE UP IOWD.
HRRI A,FIRLOC-1 ;LIKE SO......
MOVEM A,DUMPR
OUTPUT 1,DUMPR
RELEASE 1,
COMMENT ⊗
THE INTERNAL SYMBOLS FROM THIS UPPER SEGMENT WILL NOW BE
COPIED INTO THE LOWER SEGMENT .REL FILE, TO PROVIDE UPPER/LOWER
LINKAGES. THIS ELIMINATES THE NEED FOR THE LOADER TO KNOW ANYTHING
ABOUT STRANGE SAIL UPPER SEGMENTS
⊗
INIT 1,14 ;INPUT
'DSK '
IBUF
SPRINT <NO DISK TODAY>
SETZM SLOF1+2
SETZM SLOF1+3
LOOKUP 1,SLOF1 ;GET SAILOW.REL OR SOMETHING
SPRINT <WHERE IS LOWER?>
INIT 2,14 ;OUTPUT
'DSK '
XWD OBUF,0
SPRINT <NO DISK TODAY>
HLLZS SLOF+1
SETZM SLOF+2
SETZM SLOF+3
ENTER 2,SLOF ;PUT SAME
SPRINT <CAN'T MAKE NEW SAILOW>
HLRE 3,JOBSYM
MOVMS 3
HRRZ 2,JOBSYM
ADD 2,3 ;PNT PAST END OF SYMBOL TABLE
HRRZM 2,JOBFF ;IF NO DDT, LOADER HAS WIPED SYMTAB
INBUF 1,2
OUTBUF 2,2
HLLZS SMTAB ;SOME INITIALIZATION (NOT MUCH)
FOR II←1,4 <
JSP 1,COPY ;COPY FIRST FOUR WORDS (NAME BLOCK)
>
LSH 3,-1 ;#SYMBOLS
NOTYMSHR <
MOVE TEMP,[RADIX50 0,UPPER] ;LOOK FOR THIS PROGRAM
LP1: CAMN TEMP,(2)
JRST LOOP
SUBI 2,2
SOJG 3,LP1
HALT ;DIDN'T FIND IT
>;NOTYMSHR
LOOP: SUBI 2,2 ;BACK UP ONE ENTRY
JSP 6,COPSYM ;COPY ONE ENTRY IF INTERNAL
SOJG 3,LOOP ;GET ALL OF THEM
JSP 6,FORSYM ;FORCE REMAINING OUT
JSP 1,COPY ;COPY REST OF FILE
JRST .-1 ;WILL NOT RETURN ON EOF
COPY: SOSLE IBUF+2 ;INPUT ROUTINE
JRST OKIN
INPUT 1,0 ;SURELY YOU'VE SEEN THESE BEFORE?
STATZ 1,20000 ;EOF?
CALLI 12 ;YES, DONE
STATZ 1,740000 ;ERROR?
SPRINT <INPUT DATA ERROR IN SAILOW UPDATE>
OKIN: ILDB 4,IBUF+1 ;GET ONE
OUTWD: SOSG OBUF+2 ;OUTPUT ROUTINE
OUTPUT 2,
IDPB 4,OBUF+1
JRST (1)
COPSYM: LDB 4,[POINT 4,(2),3] ;SYMBOL TYPE
NOTYMSHR <
JUMPE 4,1(6) ;ANOTHER PROG, QUIT
>;NOTYMSHR
TYMSHR <
JUMPE 4,(6) ;JUST IGNORE PROGRAM
>;TYMSHR
SKIPE LOCSM ;LOAD ALL IF LOCAL SYMBOLS WANTED
JRST ALLTHM
CAIE 4,1 ;INTERNAL?
JRST (6) ;NO
HRRZ 4,1(2)
CAIGE 4,400000 ;SECOND SEGMENT SYMBOL?
JRST (6) ;NO AGAIN
ALLTHM: AOS SMTAB ;MAKE ROOM FOR 2
AOS 5,SMTAB
HRRZS 5 ;INDEX TO SYMBOL BLOCK
MOVE 4,(2)
MOVEM 4,SMTAB(5)
MOVE 4,1(2) ;MAKE THE TRANSFERS
MOVEM 4,SMTAB+1(5)
CAIGE 5,22 ;FULL?
JRST (6) ;NO, DONE
FORSYM: HRRZ 5,SMTAB ;GET COUNT
JUMPE 5,(6) ;RETURN IF EMPTY
MOVNI 5,2(5) ;FOR BLOCK TYPE AND RELOC WORDS
HRLS 5 ;AOBJN PTR
HRRI 5,SMTAB
OLP: MOVE 4,(5) ;WORD TO GO OUT
JSP 1,OUTWD ;OUT IT GOES
AOBJN 5,OLP ;GET ALL
HLLZS SMTAB
JRST (6) ;THAT'S ALL
SMTAB: XWD 2,0 ;BLOCK TYPE (SYMBOLS)
0 ;NEVER RELOCATE THESE
BLOCK 22 ;ROOM FOR SYMBOLS
IBUF: BLOCK 3
OBUF: BLOCK 3
;SLOF, MYFIL ARE NOW IN FILE `TAILOR', LOADED AHEAD OF THIS
SLOF1: SIXBIT /LOWER/ ;ALWAYS
SIXBIT /REL/ ;LOWER FOR INPUT
0
0
DUMPR: BLOCK 2
ASIZ: 0
AONE: XWD FIRLOC,400000
LIT
FIRLOC:
BEND UPPER1
?%FIRLOC:
PHASE 400000 ;MAGIC ....
;;#SL# 5-30-74 RLS REMAIN COMPATIBLE WITH TOPS10
REPEAT 11,<0> ;REMAIN COMPATIBLE (?) WITH DEC -- 10 WORD.
0 ;400011 -- JOBSYM POINTER.
?TOP2: 0 ;400012 -- TOP SEC SEG ADDRESS.
GLOB <
?GLBPNT: 0 ;400013
BLOCK GLBAR ;400014 -- GLOBAL AREA ..... !!!!
>;GLOB
CMU <
GGAS <
?GLBPNT: 0 ;400013
BLOCK GLBAR ;400014
GAS:0
?GAS←GAS
GASS←GAS
INTERNAL GAS,GASS
>;GGAS
>;CMU
INTERNAL %ALLOC