Trailing-Edge
-
PDP-10 Archives
-
ALGOL-20_1-29-82
-
algol-binary/algsys.unv
There are 6 other files named algsys.unv in the archive. Click here to see a list.
x
,5!@P C2<J9 5%
Q=-1
58
PORTAL INITIA 5X; [234] 0- INITIA5xLIZATION
PORTAL6 PARAM ; [234] 168- PROCEDURE PARAM6XETER ORGANIZATION6x
PORTAL PAR0 ;7 [234] 2- DITTO, 78VARIABLE LENGTH
7X PORTAL GOLAB ; 7x[234] 3- GOTO LAB8EL
PORTAL ARRAY88 ; [234] 4- ARRA8XY LAYOUT
PORTAL8x OARRAY ; [234] 95- OWN ARRAY LAYO98UT
PORTAL CHKAR9XR ; [234] 6- CHE9xCK ARRAY SUBSCRIP:TS
PORTAL COMPA:8R ; [234] 7- COM:XPARE STRINGS
PO:xRTAL PBYTE ; [23;4] 10-BYTE POINTE;8R
PORTAL BLKBEG;X ; [234] 11-BLOC;xK BEGIN
PORTAL <BLKEND ; [234] 1<82-BLOCK END
POR<XTAL CPYSTR ; [23<x4] 13-COPY STRING=
PORTAL CPYARR =8 ; [234] 14-COPY =XARRAY
PORTAL GE=xTOWN ; [234] 15->GET OWN SPACE
P>8ORTAL GETCLR ; [>X234] 16-GET OWN S>xPACE - ZEROED
P?ORTAL MONIT ; [2?834] 17-MONITOR
?XPORTAL MONIT0 ; ?x[234] 20-MONITOR @WITH BREAK
PORT@8AL RDOCT ; [234]@X 21-READ OCTAL WO@xRD
PORTAL PROCTA ; [234] 22-PRINA8T OCTAL HALFWORD
PORTAL INBYTE Ax; [234] 23-INPUT BBYTE
PORTAL OUBB8YTE ; [234] 24-OBXUTPUT BYTE
PORTBxAL NXTBYT ; [234C] 25-NEXT INPUT BC8YTE (LOOK AHEAD)
PORTAL BRKBYT Cx; [234] 26-BREAK DOUTPUT
PORTAL ID8NCHAR ; [234] 27DX-READ CHARACTER
Dx PORTAL OUCHAR ;E [234] 30-OUTPUT E8CHARACTER
PORTAEXL BRKCHR ; [234]Ex 31-BREAKCHARACTEFR
PORTAL READ. F8 ; [234] 32-READ
PORTAL PRINT. Fx; [234] 33-PRINT
PORTAL SELIN ;G8 [234] 34-SELECT GXINPUT
PORTAL SEGxLOUT ; [234] 35-HSELECT OUTPUT
PH8ORTAL INPT ; [23HX4] 36-INPUT
PORHxTAL OUTPT ; [234I] 37-OUTPUT
PORI8TAL RELESE ; [23IX4] 40-RELEASE
PIxORTAL OPFILE ; [J234] 41-OPEN FILEJ8
PORTAL CLFILE JX ; [234] 42-CLOSEJx FILE
PORTAL XFKILE ; [234] 43-TK8RANSFER FILE
POKXRTAL BSPACE ; [2Kx34] 44-BACKSPACE
PORTAL ENFILE L8; [234] 45-ENDFILLXE
PORTAL REWND.Lx ; [234] 46-REWIMND
PORTAL STRASM8S ; [234] 47-STRMXING ASSIGNMENT
MxPORTAL FUNCT ; [N234] 50-OVERLAY HN8ANDLER
PORTAL TNXRLPRT ; [234] 51Nx-PRINT TRACE LISTO
PORTAL TRLAB O8; [234] 52-TRACE OXLABEL ENTRY
POROxTAL TRSTD ; [234P] 53-TRACE STANDAP8RD FUNCTION
PORPXTAL STRDEC ; [23Px4] 54-DECLARE STRQINGS
PORTAL DDDQ8UMP ; [234] 55-DQXDT DUMP ROUTINE.
PORTAL INCHR0 R; [234] [E145] 56R8-READ CHARACTER WRXITH EOF LEGAL
H EOF LEGAL
CK %&%ALGDR+4E2\)3 V@%4%ALGDR+116%ALGDR+11E2\[R W%8%ALGDR+12:%ALGDR+12EJ\.: ]%h%ALGDR+26j%ALGDR+26EJ\: ^@%t%ALGDR+31v%ALGDR+31EOr d& %ALGDR+44"%ALGDR+44G"\Y %*%ALGDR+6G25 c&%ALGDR+42%ALGDR+42G>n9 %,%ALGDR+7GCLY X%@%ALGDR+14B%ALGDR+14GCN= W@%<%ALGDR+13>%ALGDR+13I&[8 h@&D%ALGDR+55F%ALGDR+55K:5 d@&$%ALGDR+45&%ALGDR+45Kc%H1 3X#
IRP A,<EXTERN %AL>A,MVt= f&0%ALGDR+502%ALGDR+50O$; Y%H%ALGDR+16J%ALGDR+16O%}w X@%D%ALGDR+15F%ALGDR+15O>d@ %$%ALGDR+3S: [@%\%ALGDR+23^%ALGDR+23S:9 ]@%l%ALGDR+27n%ALGDR+27S:
H i&H%ALGDR+56J%ALGDR+56S:NJ0 &P%ALGDR+0S;@ a&%ALGDR+36
%ALGDR+36Y[ #%AL*|Y&[Z *"u
ENTRY %)8AL
IFNDEF %ALG*8DR,<
EXTERNAL %*XALGDR
SALL
%S*xUBTTL(ALGLIB,ALGO+L LIBRARY)
>
d+8: Z
ZZZ==1 +X
IRPC B,<ZZZ=+x=ZZZ+1>
XWD <ZZ,Z/6+1>,ZZZ
SIX,8BIT\B*\
IFE <<,XZZZ/6>*6-ZZZ>,<
,x Z
>
IFNB -<C>, <
XWD DL,-8C
B:
LA-XBEL(A): JSP AX,P-xAR0>
IFB <C>, .<
B:
LABEL.8(A): JSP AX,PARA.XM>
EXP d
PURGE B
P[>u&Y@%L%ALGDR+17N%ALGDR+17[>u Z%P%ALGDR+20R%ALGDR+20]c$.: \@%d%ALGDR+25f%ALGDR+25(< %(%ALGDR+5B5 b@&%ALGDR+41%ALGDR+41V \%`%ALGDR+24b%ALGDR+24V9 ^%p%ALGDR+30r%ALGDR+30W&
%ALGDR+37%ALGDR+37a %"%ALGDR+2a % %ALGDR+1aNI V%0%ALGDR+102%ALGDR+10aJMm @%|%ALGDR+33~%ALGDR+33aJ|= [%X%ALGDR+22Z%ALGDR+22b@ d 4#!DEFINE B
<%ALGDR+A>B%ALGDR+21V%ALGDR+21e
C@ _%x%ALGDR+32z%ALGDR+32ed\r b&%ALGDR+40%ALGDR+40e=i e&(%ALGDR+46*%ALGDR+46ge@ `&%ALGDR+34%ALGDR+34ge}: `@&%ALGDR+35%ALGDR+35gR$[Z /#
ENTRY %/8AL
IFNDEF %A/XLGDR,<
EXTERNAL/x %ALGDR
SALL
0%SUBTTL(ALGLIB,AL08GOL LIBRARY)
>
0X
c: Z
ZZZ=0x=1
IRPC B,<ZZZ1==ZZZ+1>
XWD <Z18ZZ/6+1>,ZZZ
SI1XXBIT\B*\
IFE <1x<ZZZ/6>*6-ZZZ>,<
Z
>
B: 28
LABEL(A): 2X
PUSHJ SP,TRST2xD
EXP c
PURGE B
c
PURGgSy e@&,%ALGDR+47.%ALGDR+47gSI1 h&@%ALGDR+54B%ALGDR+54iJd@ g&8%ALGDR+52:%ALGDR+52iJf
Z f@&4%ALGDR+516%ALGDR+51iKI g@&<%ALGDR+53>%ALGDR+53qMI c@&%ALGDR+43%ALGDR+43tH<P uyP uZ7P u[wP v91P w9P vI9 )X"M
IRP A,<ENTRY %AL>A,VuR @ JUNIVERSAL `A - B, 1.2(310) , EUROPEAN SOFTWA RE ENGINEERING, SEP-74
ERING, SS@P $;SP >}{woP