Trailing-Edge
-
PDP-10 Archives
-
decuslib20-03
-
decus/20-0078/comp/lowseg.mac
There are 2 other files named lowseg.mac in the archive. Click here to see a list.
00010 ;<ENDERIN>LOWSEG.MAC.6, 9-Dec-76 12:15:48, Edit by ENDERIN
00020
00030 Comment;
00040 Author: Claes Wihlborg
00050 Version: [030406,130012,43,144,203,225,243,247,306]
00060 Contents: Compiler data areas
00070 ;
00080
00090 SEARCH SIMMAC
00100 SALL
00110 CTITLE LOWSEG
00010 SUBTTL GLOBAL DATA AREAS
00020
00030 ;The following data areas are not present in production version
00040
00050 IFN QDEBUG,<
00060 LOC 7000 ; To accommodate DDT for other passes
00070 ; Set breaks here for DDT control after segment switches
00080 YP1IN:: RETURN
00090 YP2IN:: RETURN
00100 YP3IN:: RETURN
00110 >
00120 ; Debug switches
00130 IFN QDEBUG,<DEFINE x(a),<IRP a,<a::Z>>>;;[247]
00140 IFE QDEBUG,<DEFINE x(a),<IRP a,<a=:0>>>;;[247]
00150 x<YCADB,YCGDB,YM2DB,YDBRTA,YDBRTC,YO2DB,YO2DBZ>;;[247]
00160 ;YO2DBZ Saves ZQU from GETAD to GENOP for debug output
00170
00180 YTIMER:: BLOCK 1 ;???
00190
00200 IFN QTRACE,<
00210 ;*************** Trace data *************
00220 YTRSAV:: BLOCK 2
00230 YTRPAS:: EXP 0,0,0,0
00240 YTRLC:: BLOCK 1
00250 YTRJLC:: BLOCK 1
00260 YTRINS:: BLOCK 1
00270 YTRTP:: BLOCK 1
00280 QTRTAB==52000
00290 YTRACC=:.+0+QTRTAB
00300 YTRLOW=:.+1+QTRTAB
00310 YTRHGH=:.+2+QTRTAB
00320 YTRSIM=:.+3+QTRTAB
00330 YTRTAB=:.+3+400+QTRTAB
00340 ;*************** End trace **************
00350 >
00010 ; The following data areas are not reset between compilations:
00020
00030 YCBBH:: BLOCK 3 ;Command buffer header
00040 YCBUF:: BLOCK QBUFS ;Command buffer
00050 YI1CB:: BLOCK ^D27 ;Command line buffer
00060 ;Room for 135 characters
00070 YI1CBE::
00080 YI1P:: BLOCK 1 ;Pointer to YI1CB
00090 YI1P1:: BLOCK 2 ;Contains pointer and delimiter to switches after source
00100 YSWITCH:: BLOCK 1 ;Word containing global switches
00110 YSWDEF:: BLOCK 1 ;Contains default values of certain switches
00120 YSWCHA:: BLOCK 1 ;Contains value of changed switches
00130 IFE QDEC20,<;[225]
00140 YP1PPN:: BLOCK 1 ;[144] PPN from where PASS1 was taken
00150 YP1DEV:: BLOCK 1 ;[144] Device of PASS1
00160 >
00170
00180 ;I/O buffers
00190
00200 YBRBUF:: BLOCK 1
00210 YBRSRC:: BLOCK 1
00220 YBRZSE:: BLOCK 1
00230
00240 DEFINE ELBH(X,F)<;;[225]
00250 IRP F,<
00260 IFG X,<IFN QDEC20,<
00270 Y'F'LI:: BLOCK ZLF%S
00280 Y'F'SZ:: BLOCK 1;;File size
00290 Y'F'JFN:: BLOCK 1;;Job File Number
00300 Y'F'MP:: BLOCK 1;;First page,,number of pages of map area
00310 Y'F'DV:: BLOCK 1;;Device name
00320 >>
00330 YEL'F:: BLOCK 4 ;;ENTER/LOOKUP block
00340 YBH'F:: BLOCK 3 ;;Buffer header
00350 >
00360 >
00370 ELBH(0,<IC1,DF1,LS1,ZSE,XRF,SRC,ATR,IC2,REL,LS3>);;[225]
00380 IFN QDEC20,<
00390 YFILSP::BLOCK ^D140/5 ;Space for file spec
00400 YJFNTB::BLOCK 16 ;Space for JFN info (long form)
00410 YEXTAD::BLOCK 1
00420 YEXTLX::BLOCK ZLF%S>;[225]
00430 ELBH(1,EXT)
00440
00450 DEFINE BUFFER(no)<
00460 IRP no,<
00470 Y'no'BUF:: BLOCK QBUFS+1>
00480 >
00490
00500 BUFFER(<1,2,33,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18>)
00510
00520 IFG QDEBUG,<
00530 YDEBH::YDEBH::YO2DBB::YO1DBB::
00540 YBHDEB:: BLOCK 3
00550 YO1DBL::YELDEB::BLOCK 4
00560 YBUF1::
00570 YBUFR7:: BLOCK 2*<QBUFS+1>
00580 >
00590
00600 IFN QDEC20,<;[225] Areas for high seg data
00610 YHILIM=:600 ;Leave this page untouched
00620 YHIFP1::BLOCK 1 ;First free hiseg page after hiseg break
00630 YHIFP:: BLOCK 1 ;Currently first free hiseg page
00640 >
00010 YZEROB::
00020
00030 ; Start of data area that is reset between compilations
00040 ; YZEROB should always be the first item in this area
00050
00060
00070 YJOB:: BLOCK 1 ;Job number
00080 YRELBL:: BLOCK 1 ;[030406] Last filled block for rel file [RH],
00090 ;left half negative for global class/proc
00100
00110 YMAXFX:: ;Index of highest fixup allocated
00120 YSRFIX:: BLOCK 1
00130 YMAXID:: ;Number of differently spelled identifiers
00140 YSHNID:: BLOCK 1
00150 YREL::
00160 YBREAK:: BLOCK 1 ;Amount of code output on the rel file
00170 YO1CNB::
00180 YO2CNB:: BLOCK 1 ;Block counter in code item
00190 YO1ACN::
00200 YO2ACN:: BLOCK 1 ;Address of code item counter
00210 YSIMNAME:: BLOCK 1 ;[130012] Radix50 SIMULA name of global module
00220 YATRFIL:: BLOCK 1 ;[130012] Radix50 ATR file name - " -
00230 YATRFN:: BLOCK 1 ;[144] Name of ATR file (SIXBIT). Only if old
00240 YATRPPN:: BLOCK 1 ;[144] file exists. YATRPPN=ppn of that file.
00250 YATRDEV:: BLOCK 1 ;[144] Device of the old ATR file.
00260 YATROFS:: BLOCK 1 ;[144] Offset of ATR module within ATR file
00270 ;[144] (word offset,,block number)
00280 IFN QDEC20,<;[225]
00290 YATRJFN:: BLOCK 1
00300 YATRSZ:: BLOCK 1
00310 >
00320 YPASSNO:: BLOCK 1 ;[225] Pass number
00330 q==^D30 ;[144] Size of space for swapping code
00340 Y3SW:!
00350 Y3SWAP:: ;Space for swapping code starts here
00355 DEFINE bl(n) <
00356 BLOCK n
00357 q==q-n>
00360 YZQUGL:: bl 8 ;[144] Space for global ZQU-ZHB (Pass1)
00370 QSFDN=: 6 ;[144] Max number of SFD names in path
00380 YSFDN:: bl 1 ;[144] Count of SFD names in path
00390 YSFDP:: bl 1 ;[144] Pointer word for YSFD
00400 YSFD:: bl 1 ;[144] Temporary SFD list
00410 YSFDSW:: bl 1 ;[144] -1 when SFD is being parsed in SR
00420 YSFDPPN:: bl 1 ;[144] ppn of SFD path
00430 YSFD1:: bl QSFDN+1 ;[144] SFD list starts here
00450 BLOCK q ;[144] Rest of area for swapping code
00460 YERRCT:: BLOCK 1 ;Number of errors encountered
00470 YWARCT:: BLOCK 1 ;Number of warnings encountered
00480 YOLINE::
00490 YELIN1:: BLOCK 1 ;Number of first line in error message
00500 YLINE::
00510 YELIN2:: BLOCK 1 ;Number of last line in error message
00520 YSTATM::
00530 YESEM:: BLOCK 1 ;Number of semicolons on current line
00540 YECHDM:: BLOCK 1 ;Start of chain of errors with last line missing
00550 BLOCK 3 ;Dummy header ZDM
00560 ZDM:: BLOCK QLDM
00570 BLOCK 3 ;Dummy tail ZDM
00580 YDMEND:: BLOCK 1 ;Index to first free word in DM
00590 YPROCI:: BLOCK 1 ;??PASS2
00600 YTEXTI:: BLOCK 1 ;??PASS2
00610 YSIMUI:: BLOCK 1 ;??PASS2
00620 YSYSI:: BLOCK 1 ;??PASS2
00630 YSYSO:: BLOCK 1 ;??PASS2
00640 YEXTS:: BLOCK 12
00650 YEXENT:: BLOCK 1 ;Entry of external MACRO-10/FORTRAN procedure
00660 YSWRF:: BLOCK 8
00670 YSWCCL:: BLOCK 1
00680 YBEGNO:: BLOCK 1 ;Number of BEGIN in sourcecode
00690 YENDNO:: BLOCK 1
00700 ZLEREC:: BLOCK 1 ;Prototype for type 4 record in LS1
00710 ;Used by pass 1 and pass 3
00720 YMPSIZ:: BLOCK 1 ;Size of main program if
00730 ;outermost block is reduced
00740 YLCSTA:: BLOCK 1
00750 YLTIND:: BLOCK 1 ;Pointer to YLTAB
00760 YLTAB:: BLOCK ^D40 ;Table with LOOKUP blocks and device name
00770 YRLSFD=: YLTAB ;[144] REL file SFD info copied here at Pass1 end
00780 YLSSFD=: YLTAB+QSFDN+3 ;[144] LST file SFD
00790 YATSFD=: YLSSFD+QSFDN+3 ;[144] ATR file SFD
00800 IFG <YATSFD+2*<QSFDN+3>-.>,<PRINTX No space for /R SFD> ;[144]
00810 YRSSFD=: YATSFD+QSFDN+3 ;[144] /R switch file spec SFD
00820 YSTK:: BLOCK QSTSIZ ;Pushdown stack
00830 Y1MASK:: BLOCK 1 ;Switches in X1MASK saved to Pass 3
00840 Y3OPEN:: BLOCK 1 ;Switches for status of files
00850
00860 QLOC=.
00010 SUBTTL PASS1 DATA AREAS
00020
00030 ;O1 module
00040
00050 YO1RBP:: BLOCK 1 ;Byte pointer to relocation bits
00060 YO1DFC:: BLOCK 1 ;Initial size of DF1 core file
00070 YO1ASB:: BLOCK 2 ;[306] Block no, byte ptr to word where
00080 ; last part of an ASCII string was put
00090 ; in REL file buffer
00100 YO1ASC:: BLOCK 1 ;[306] Last word of this string before
00110 ; zero fill
00120
00130 ;SM module
00140
00150 YSMLIN:: BLOCK 1 ;Line no where current statement starts
00160 YSMSEM:: BLOCK 1 ;Semicolon preceding current statement
00170
00180 ;SD & DP modules
00190
00200 YRQHEAD:: BLOCK 1 ;[13] Head of ZRQ chain (file def's)
00210 YBSTP:: BLOCK 1 ;Current stack level (pointer to YDPD)
00220 YEXZQU:: BLOCK 1 ;[144] XWD last ZQU for external,first such ZQU
00230 YASTR:: BLOCK 1 ;Pointer to array segment start
00240 YDLV:: BLOCK 1 ;Compilation level of this module
00250 YRFLAG:: BLOCK 1 ;???
00260 YSDENL:: BLOCK 6 ;Linkage list used by SDEND
00270 YDPD:: BLOCK 100*QSTLL ;Block stack
00280 YC1DC:: BLOCK 1 ;Pointer to next free DC record
00290 YDPATH:: ;Temp storage of attribute-file header
00300 YSRIN:: BLOCK 1 ;Name of external module
00310 YDPZQQ:: ;Start of ZQQ records
00320 YSRDEV:: BLOCK 1 ;Device of ATR file
00330 YSREN:: ;Name of ATR file
00340 YDPSOL:: BLOCK 1 ;Source level of external module
00350 YSRPPN:: ;PPN of ATR file
00360 YDPLIN:: BLOCK 1 ;Line of declaration of external module
00370 YDPZUC:: BLOCK 1 ;Start link of ZUC records
00380 YDPFUN:: BLOCK 1 ;First unique no in current external
00390 YDPLUN:: BLOCK 1 ;Last unique no in current external
00400 YDPUNR:: BLOCK 1 ;Start link of requested externals
00410
00420 ;LS module
00430
00440 YLSVAL:: BLOCK 2 ;Value of constant
00450 YLSNPM:: BLOCK 1 ;Decimal point marker
00460 YLSNSD:: BLOCK 2 ;Number of digits after overflow
00470 YLSNLS:: BLOCK 1 ;Next counter:Line & semicolon
00480 YLSCLS:: BLOCK 1 ;Current -"-
00490 YLSLLS:: BLOCK 1 ;Last -"-
00500
00510 ;P1DUMP module
00520
00530 IFG QDEBUG,<
00540 P1PAGE:: BLOCK 1 ;Page count
00550 P1LINE:: BLOCK 1 ;Line count
00560 P1TAB:: BLOCK 1 ;Position on current line (no of tabs left)
00570 P1HEAD:: BLOCK 1 ;Pointer to page header
00580 P1Z:: BLOCK 5 ;Temporary storage of DF1 record
00590 >
00600
00610 ;LC module
00620
00630 YLCLB:: BLOCK 34 ;Source line buffer
00640 YLCLBE:: BLOCK 1 ;End of YLCLB
00650 YLCRT4:: BLOCK 1 ;LS1 type 4 record buffer
00660 YLCBEG:: BLOCK 1 ;Total no of BEGIN's so far
00670 YLCEND:: BLOCK 1 ;Total no of END's so far
00680 YLCADR:: BLOCK 1 ;Relative address to CR in YLCLB
00690 YLCLBS:: BLOCK 1 ;Pointer to first byte in current line
00700 YLCLN:: BLOCK 1 ;Switch word
00710 YLCLNO:: BLOCK 1 ;Line number from source
00720
00730 ;I1 module
00740
00750 YI1SNN:: BLOCK 1 ;Number preceding compiler switch
00760 YI1SWF:: BLOCK 1 ;First source switch
00770 YI1SWP:: BLOCK 1 ;Byte pointer to YI1SNN
00780 YI1SWN:: BLOCK 4 ;Switch name used in error messages
00790 YI1CRC:: BLOCK 1 ;Control record to LS1
00800 YI1FN:: BLOCK 6 ;File specification record
00810 YI1PS:: BLOCK 1 ;Switch word
00820
00830 YRQDEV=: YI1FN ;[13]
00840 YRQFIL=: YI1FN+1 ;[13]
00850 YRQPPN=: YI1FN+4 ;[13]
00860 YEXNAM=: YI1FN+2 ;[13]
00870
00880 YZEROE::
00890
00900 ;SH module
00910
00920 ZHT:: BLOCK 200 ;Hash table
00930 ZSE1:: BLOCK QNRESW+QZSELE ;Identifier table: First six chars
00940 ZSE2:: BLOCK QNRESW+QZSELE ; " : Last six chars
00950 ZSE3:: BLOCK QNRESW+QZSELE ; " : Link higher,,link lower
00960
00970 ;Start dynamic data area
00980
00990 DC1:: BLOCK QDC1LE ;Declaration table
01000 Y1LOWE:: ;End of Pass 1 initial
00010 SUBTTL Pass 2 and Pass 3 variables
00020
00030 IFG QDEBUG,<LOC QLOC>
00040 IFE QDEBUG,<RELOC QLOC>
00050 Y2START=:QLOC
00060
00070 ; The components of the relocation counter.
00080 ; Table must not be reordered without changes to QREL?? (relocation bytes in MC2)
00090 ;
00100 YNOREL=:.-1 ; Start of relocation counter table
00110 YRELNO=YNOREL
00120 YRELCN:: BLOCK 1 ; Number of words output on the rel file
00130 YRELCD:: BLOCK 1 ; Number of words output to instruction code stream
00140 YRELPT:: BLOCK 1 ; Number of words output to prototype stream
00150 YRELLT:: BLOCK 1 ; Number of words output to line number tables
00160 YRELST:: BLOCK 1 ; Number of words output to symbol tables
00170 ;
00180 ; End of relocation counter table
00190 ;
00200 YDCSTP:: BLOCK 1 ; Pointer to first free word after declaration stack
00210 YDCSTO:: BLOCK 1 ; Pointer to word following declaration stack space
00220 YRDSTO:: ; Word following redeclaration stack and
00230 YDCSTB:: BLOCK 1 ; Pointer to base of declaration stack
00240 YCANTRY:: BLOCK 1 ; Program entry point relative rel origin
00250 YCADLV:: BLOCK 1 ; Level of Simulation/Simset
00260
00270 QLOC2=.
00010 SUBTTL Pass 2 variables
00020
00030 YCABKB:: BLOCK 1 ; Base offset in obj code of outermost block
00040 YCALID:: BLOCK 1 ; Lexical id no used in CA
00050 YCAMTC:: BLOCK 1 ; Points to matching virtual ZQU or is zero
00060 YCAPLE:: BLOCK 1 ; Prefix level
00070 YCAQND:: BLOCK 1 ; Used to point to end of ZQU list
00080 YCASM:: BLOCK 1
00090 YCATYE:: BLOCK 1 ; Holds flag for type error in CARL
00100 YCAVRT:: BLOCK 1 ; Number of virtuals
00110 YCAZHE:: BLOCK 1 ; Value of XZHE at start of CAEB actions
00120 YCAZMP:: BLOCK 4 ; Map of subblock in CA
00130 YCA1SC:: BLOCK 1 ; Location for SCAN1 switch in CARL
00140 YCERFL:: BLOCK 1 ; Expression error flag (local error)
00150 YCGACT:: BLOCK 1 ; Value of top accumulator shifted to ac position.
00160 ; Set after CGG2 etc.
00170 YCGDBL:: BLOCK 1 ; =1 if two words to be moved to formal parameter loc.
00180 YCGFOX:: BLOCK 1 ; Variable used in FOR statement generation
00190 YCGFX1:: BLOCK 1 ; Used to save a fixup number
00200 YCGFX2:: BLOCK 1 ; Used to save a fixup number
00210 YCGICR:: BLOCK 1 ; Relad of FOR statmt increment computing routine
00220 YCGINS:: BLOCK 1 ; Used to build an instruction
00230 YCGISG:: BLOCK 1 ; Sign of FOR incr: +1-pos, -1-neg,
00240 ; 0- not known at compile time
00250 YCGNAC:: BLOCK 1
00260 YCGPAF:: BLOCK 1 ; Used in parameter handling
00270 YCGSK:: BLOCK 1
00280 YCGSWC:: BLOCK 1 ; Left half: Current switch fixup, right half: Element count
00290 YCGXAC:: BLOCK 1
00300 YFORSI:: BLOCK 1 ; Non-zero if %FORSI was part of current FOR list
00310 YO2ADF:: BLOCK 1 ; Signifies if YO2ADI is a fixup type instr (-1)
00320 ; absolute instr (0) or relocated (1)
00330 YO2ADI:: BLOCK 1 ; Instruction built up by O2AD (except opcode)
00340 YO2IQI:: BLOCK 1 ; Current index of YO2IQB, first free place
00350 YO2LAS:: BLOCK 1 ; Chain start for last and redefinable fixup
00360 BLOCK 1 ; Value for last and redefinable fixup
00370 YO2FIX:: BLOCK 1 ; Negative left half means right half is
00380 ; address of redefinable fixup entry
00390 YO2DFW:: BLOCK 1 ; Buffers current word of DF1
00400 YO2CDP:: BLOCK 4 ; Parameter blocks for the different code streams
00410 YO2PTP:: BLOCK 4
00420 YO2LTP:: BLOCK 4
00430 YO2STP:: BLOCK 4
00440 YO2STS:: BLOCK 1 ; Status of i/o channel after error
00450 YO2CNC:: BLOCK 1
00460 YO2LII:: BLOCK 1 ; Literal table index
00470 YO2LIR:: BLOCK 1 ; Relad of current literal table start
00480 YO2LIT:: BLOCK 1 ; Number of literals following symbol in IC1
00490 YO2LIB:: BLOCK QO2LIS ; Literal table
00500
00510 ; Buffers for code output
00520
00530 YO2CDB:: BLOCK QBUFS-3
00540 YO2IQB:: BLOCK QBUFS-3
00550 YO2PTB:: BLOCK QBUFS-3
00560 YO2LTB:: BLOCK QBUFS-3
00570 YO2STB:: BLOCK QBUFS-3
00580 YO2ITB:: BLOCK QBUFS-3 ; Buffers fixup requests
00590
00600 YORDLV:: BLOCK 1 ; Display level
00610 YORFOR:: BLOCK 1 ; Copy of ZID of control variable in FOR loop
00620 BLOCK 1 ; - " - ,Second word
00630 YELEV:: BLOCK 1 ; Effective level of XCB at run time
00640 YEXPL:: BLOCK 1 ; Address of word following tree area
00650 YEXPP:: BLOCK 1 ; Address of first used word in tree area
00660 YFOP:: BLOCK 1 ; Address of first operand in operand stack (used in OR)
00670 YFXCH:: BLOCK 1 ; Start of chain of available fixups used in O2
00680 YFXTAB:: BLOCK 1 ; Address of fixup table
00690 YGAP:: BLOCK 1 ; Target relocation counter for O2GA
00700 YLINK:: BLOCK 1 ; Start of chain through CGVA/CGAD calls to the root
00710 YLXIAC:: BLOCK 1 ; Effective level of display loaded to XIAC at run time
00720 IFN <QDEBUG>,<
00730 YMESS:: BLOCK 1 ; Message is saved here by M2UU
00740 YM2DBC:: BLOCK 1 ; YRELCD is kept here to see if code has been
00750 ; output between two line symbols
00760 YM2DADR:: BLOCK 6 ; DAEMON parameter list>
00770 YM2EWS:: BLOCK 1 ; Sum of warning and error messages at start of statement
00780 YNOPD:: BLOCK 1 ; Number of operands processed in OR
00790 YNZCN:: BLOCK 1 ; Number of ZCN operands
00800 YNZID:: BLOCK 1 ; Number of ZID operands
00810 YNZNS:: BLOCK 1 ; Number of ZNS operands
00820 YOPCOD:: BLOCK 1 ; Opcode to be output by O2GI
00830 YOPSTB:: BLOCK 1 ; Address of first word of operand stack
00840 YOPSTP:: BLOCK 1 ; Operand stack pointer (pushdown pointer with
00850 ; overflow check)
00860 YORACT:: BLOCK 1 ; ACTIVATE code mask saved in OREN
00870 YORFX:: BLOCK 1 ; Fixup saved in OREN
00880 YORLID:: BLOCK 1 ; Holds LID for diagnostics
00890 YORZHB:: BLOCK 1 ; ZHB pointer for inspection and prefixed block
00900 YORZQU:: BLOCK 1 ; ZQU pointer saved in OREN
00910 YORPAR:: BLOCK 1 ; Switch used to decide if the outermost
00920 ; expression was enclosed by parentheses
00930 YPAFIX:: BLOCK 1 ; Used by CGPA for saving fixup for address
00940 ; after a thunk
00950 YQREL:: BLOCK 1 ; Parameter to O2
00960 YQRELL:: BLOCK 1 ; Left relocation byte for O2GR (GENREL)
00970 YQRELR:: BLOCK 1 ; Right halfword relocation
00980 YQRELT:: BLOCK 1 ; Target relocation
00990 YRDSTB:: BLOCK 1 ; Address of first word of redeclaration stack
01000 YRDSTP:: BLOCK 1 ; Redeclaration stack pointer. updated by CADS and CAUD.
01010 YSTEPP:: BLOCK 1 ; Right half: YFOP, left half: -(numberopds*2-1)
01020 YSTKNU:: BLOCK 1 ; Controls stacking in ORRP
01030 YTAC:: BLOCK 1 ; Address to the descriptor of the top accumulator
01040 YTENT:: BLOCK 1 ; Flag used for O2 communication (O2DF, O2RF)
01050 YZHBXC:: BLOCK 1 ; Pointer to ZHB corresponding to XCB contents at run time
01060 YZHET:: BLOCK 1 ; Pointer to currently innermost ZHB or ZHE record
01070 YUNDEC:: BLOCK 4 ; Undeclared id ZQU pointer
01080 YACTAB:: BLOCK 2*QNAC
01090 YACTAE=:.
01100 ; Statically allocated areas
01110 YBKST:: BLOCK 100 ; Block stack
01120 QBKSTZ=:YBKST-.
01130 YOPST:: BLOCK 700 ; Operand stack
01140 QOPSTZ=:YOPST-.
01150 BLOCK 63 ;[43]This can be used for patches in pass 2
01160 YO2CIQ:: BLOCK 1 ;[43] Current IQ buffer pointer
01170 YO2ZSD:: BLOCK 1 ;Link to symbol table communicated between O2SM and CAMM
01180 YLSLIN:: BLOCK 1 ;Last line for which a line table entry has been output (O2LN2)
01190 YO2LNB:: BLOCK 1 ; Offset of last ZLN entry of block type in line table
01200 YBKSTP:: BLOCK 1 ; Block stack ptr (pushdown ptr with oflow chk)
01210 YDICT:: BLOCK 700 ; Dictionary start
01220 YDICTB=:<YDICT-QLOWID> ; Dictionary base
01230 YPAS2E=:.
00010 SUBTTL Pass 3 data areas
00020
00030 IFG QDEBUG,<LOC QLOC2>
00040 IFE QDEBUG,<RELOC QLOC2>
00050
00060
00070
00080 Y3ERRL:: BLOCK 4 ;Lookup arg SIMERR.ERR
00090
00100 YE3SW:: BLOCK 1 ;Word containing switches
00110
00120 ;Data module E3
00130
00140 YZDM:: BLOCK QLDM ;Buffer used when sorting ZDM
00150 YZDMI:: BLOCK QLDM/3 ;Buffer used when sorting ZDM
00160 Y3LINH:: BLOCK 3 ;Buffer to start address of line used if error on line
00170 YE3PGH:: BLOCK 20 ;Buffer first part of standard text page header
00180 YE3PNM:: BLOCK 13 ;Buffer second part of text page header
00190 Y3BUF:: BLOCK ^D19 ;Buffer to store intermediate data
00200 YE3ERR:: BLOCK ^D30 ;Buffer errormessage
00210 YE3LIN:: BLOCK ^D30 ;Line buffer
00220 YE3LIP:: BLOCK 1 ;Byte pointer YE3LIN 7 bit byte
00230 YE3LNO:: BLOCK 1 ;Current line number
00240 YE3RUB:: BLOCK 14 ;Page heading given in PAGE switch
00250 YE3NRU:: BLOCK 1 ;Rh= number of words in YE3RUB,
00260 ;lh=-1 after a page switch
00270 YBEGST:: BLOCK QBEG ;Stack begin number
00280 YBEGSP:: BLOCK 1 ;Stack pointer YBEGST
00290 YE3BEG:: BLOCK 1 ;Number of BEGIN's generated
00300 YE3END:: BLOCK 1 ;END number of current line
00310 YE3PNN:: BLOCK 1 ;Number of bytes in second part of header in list
00320 YE3LS3:: BLOCK 1 ;Number of bytes that are to be output to LS3,
00330 ;usually number of bytes in YE3LIN
00340 YE3PAG:: BLOCK 1 ;Number of lines per page
00350 YE3PNO:: BLOCK 1 ;Number of lines left on current page to print
00360 YE3PGN:: BLOCK 1 ;Lh= main number of page
00370 ;Rh= secondary number of page
00380 YDMB2:: BLOCK 1 ;For sorting ZDM
00390 YDMPT3:: BLOCK 1
00400 YSIXB:: BLOCK 1
00410 Y3DEV:: BLOCK 1 ;Device of source in sixbit format
00420
00430
00440 ;Data module M3
00450
00460 Y3REL:: BLOCK 7 ;Initial start addr of different streams
00470 Y3PLTE:: BLOCK 1 ;Pointer end of line number table
00480 Y3PLTS:: BLOCK 1 ;Pointer start of line number table
00490 ;Word 1=0 followed by addr of
00500 ;code,const,prot line,symb
00510 YM3B:: BLOCK QBUFS-3+^D18 ;Local buffer for the different streams
00520 ;Max 18 data words terminate the buffer
00530 YM3BI:: BLOCK 1 ;Index of YM3B
00540 YM3BRP:: BLOCK 1 ;Pointer rel word in YM3B
00550 Y3ATE2:: BLOCK 1 ;Pointer ATR file in core
00560 Y3ATRE:: BLOCK 1 ;Pointer ATR file in core
00570 Y3SIEN:: BLOCK 1 ;Number of words in block defined in M3ATR
00580 Y3UNRA:: BLOCK 1 ;[243] Part of unique number
00590 Y3UNRD:: BLOCK 1 ;[243] Part of unique number
00600 Y3UNRE:: BLOCK 1 ;[243] Part of unique number
00610 Y3UNRF:: BLOCK 1 ;[243] Part of unique number
00620
00630 ;Edit [6] (pass 3) start
00640 Q1==1+QSFDN+4 ;[43] [144]
00650 Q==QSTSIZ-Q1 ;Use top of pdl for pass 3 data (stack is too big)
00660 IFL <Q-200>,<PRINTX PASS3 stack too small>
00670 IFG <Q-200-1>,< ;Go on, use the area, lots more where it came from
00680 Q3STSZ=:Q ;This size will do for pass 3
00690 Q==. ;Remember this point
00700 IFG QDEBUG,< LOC YSTK+Q3STSZ> ;[203]
00710 IFE QDEBUG,< RELOC YSTK+Q3STSZ> ;[203]
00720 Y3ENTRY:: BLOCK 1 ;Name of entry in case of global class/proc
00730 IFN QDEC20,<
00740 Y3LKU:: ;LOOKUP block space + overhead to be used in T3I
00750 >
00760 Y3SFD:: BLOCK QSFDN+4 ;[144] Space for SFD path block
00770 ;**** NOTE !!!! **** Q1 above must reflect size from Y3ENTRY to here !!!! ****
00780 IFG <Y3ENTRY+Q1-.>,<PRINTX Allocation error for Pass3 data>
00790
00800
00810 IFG QDEBUG,< LOC Q> ;[203]
00820 IFE QDEBUG,< RELOC Q> ;[203]
00830 PURGE Q
00840 >;End [6]
00850
00860 ;Tables for creating error messages
00870
00880 ;The order between the tables must not be changed
00890 ; without changing O3ERR in module O3
00900 Y3BUFS:: BLOCK 4 ;Buffer length of error tables
00910 YE3DL:: BLOCK ^D16
00920 YE3D:: BLOCK QE3D
00930 YE3M:: BLOCK QE3M
00940 YE3MI:: BLOCK 300 ;600 error messages
00950
00960
00970 Y3INBU:: BLOCK 2 ;Command list for unbuffered input of error tables
00980 Y3INZS:: BLOCK 2 ;Command list for input of ZSE.TMP
00990 Y3INER:: BLOCK 4 ;Command list for input from SIMERR.ERR
01000
01010 ZSE:: BLOCK 14000 ;Symbol table
01020
01030 ;Tables used to
01040 ;-Hold intermediate data from IC2.TMP for creating line number table
01050 ;-Hold data from ATR.TMP
01060 ;-Create cross reference listing
01070 ZINA:: BLOCK 1
01080 IDL:: ;BLOCK 6000 ;Hash link
01090 IDLA=:IDL+20 ;[12] Start of space for ATR info from ATR.TMP
01100 IDR=:IDL+6000 ;BLOCK 6000 ;Link bin tree
01110 REF=:IDR+6000 ;BLOCK 1000 ;References
01120
01130 Y3LOWE=:REF+1000 ;End of Pass3 varibles
00010 ;[203] Generate a word at max used loc + 1 if QDEBUG is on
00020 IFN QDEBUG,<;;[203]
00030 Y123MX=Y1LOWE
00040 IFG <YPAS2E-Y123MX>,<Y123MX=YPAS2E>
00050 IFG <Y3LOWE-Y123MX>,<Y123MX=Y3LOWE>
00060 LOC Y123MX+1
00070 EXP Y123MX
00080 >;[203]
00090 REPEAT 0,<;[225] Define hiseg end
00100 RELOC 400K
00110 YHIEND::BLOCK 1
00120 >
00130 END