Trailing-Edge
-
PDP-10 Archives
-
BB-H580C-SB_1981
-
strdcl.unv
There are 17 other files named strdcl.unv in the archive. Click here to see a list.
x
,5*@P C3<9@ C:y@ C;N:=P C@@ CC[R@ E^y@ E@ E:!htP EA@ EA@ EC|`@#a@ECH@#@ECI@#FEg&:=@ FD@ G@ G",:`P G"^Z@ G; @ G>v= ) $2,AGC8@ I ~X(A
IFN A~xNYSIZ,<
SKIPGE C ;THIS IS IMPE8RFECT
JRST [HRLXI C,RMBYTE ;HEREx IF "440700" C
SOJA C,.+1]
8 A B,C
CAML XC,[MAXBP,,0]
JxRST [HRLI C,RMBYTE
SOJA C,.+82]
ADD C,[SIZ2XPF,,0]>
IFE AxNYSIZ,<
IFNDEF SIZ,<SIZ=AP>
IF8NDEF POZ,<POZ=SVPX> ;REGS 15 AND 16x
SAVE <SIZ,POZ>
LDB SIZ,[BPSIZ81,,C]
LDB POZ,X[BPPOS,,C]
CAIxN POZ,44 ;CHARS ASSUMED LEFT ALIG8NED
JRST [IDIV XPOZ,SIZ
MOVE xPOZ,SIZ
LDB SIZ,[BPSIZ1,,C]
8 DPB POZ,[BPPOSX,,C]
SOJA Cx,.+1]
A B,C
ADD POZ,SIZ
C8AIN POZ,44 ;CHARXS ASSUMED LEFT ALxIGNED
JRST [IDIV POZ,SIZ
XDPB8 SIZ,[BPPOS,,C]
xSOJA C,.+2]
DPB POZ,[BPPOS,,C]
RESTOR <POZ,SIZ> >
R <POI$J3 X)
IFN A xNYSIZ,<
HRRZ A
,R1
SUB A,LEN1
8
HRRZ T2,R0
S
XUBI T2,0(BP1) ;GI
xVES WORD DIF OF THE 2 BP
IMULI T82,CPW
ADD A,T2X ;T2 IS NEG
LDBx T1,[BPPOS,,R0]
LDB T2,[BPPOS,,B
8P1]
SUB T2,T1
X IDIVI T2,BYTSIZ
x
ADD A,T2>
FE ANYSIZ,<
IFF SIZ,<SIZ=AP>
SAVE <SIZ>
L SIZ,[BPSIZ1,,BP1]
HRRZ A,R1
SUB A,LEN1
HXRRZ T2,R0
SUBI xT2,0(BP1)
IMUL T2,CPW$##(SIZ)
8ADD A,T2
LDB TX1,[BPPOS,,R0]
LxDB T2,[BPPOS,,BP1]
SUB T2,T1
I8DIV T2,SIZ
ADD XA,T2
RESTOR <SIZ>>
RESTOR <SK;%R@ KF`@ KK|@ X)
IFNB <xB>,<
JRST [PUSH P,[B]
JRST 8A]>
IFB <B>,<
PUSHJ P,A><Kb
=@ MVt= X*
; SALL
x T.....=0
ST....=1
IF2,<IFNDEF8 A,<EXTERNAL A>X>
IFNB <B>,<
x PUSH P,AP
IRP B,<IFIDN <B> <$81>, <ST....=0>
X IFIDN <B> <$x2>, <ST....=-1>
IFDIF <B> <8$1>,<
IFDIF <XB> <$2>,<
x IFG ST....,<PUSH P,B
T...8..=T.....+1
>
X ST....=1>>>
R.....=0
IRP B,<IFIDN <B8> <$1>, <ST....=0X>
IFIDN <Bx> <$2>, <ST....=-1>
IFDIF <8B> <$1>,<
IFDXIF <B> <$2>,<
x IFE ST....,<T......=T......+18
PUSH P,XB>
IFL STx....,<T.....=T.....+1
PUS8H P,[B]>
XIFG ST....,<T....x..=T......+1
R.....=R.....+1 8
HRRZI AP,- XT.....+R.....+1(P x)
PUSH P,AP!
>
ST....!8=1>>>>
MOVEI AP!X,-T.....+R.....+1!x(P)
PUSHJ P,A
IFNB <B>,<
S"8UB P,[T.....,,T.."X...]
POP P,AP>..]
POP P,AP>Q&=P Q&Ep@ SAi @ Su|R@ S:%@ )$1,ASB~:=@$A`YvX@@ Yr@ Yr @ Y>=1 x)#
C.....=0
IFNB <B>,< I8RP B,<C.....=C..X...+1
PUSH Px,B>>
PUSHJ P,A
IFN C.....,<8 SUB P,[C.....,,C.....]>
...,,C[0@ [D,@#P[83P ['E[r@ [1@ [>$P@ [?SH@ ]>5@ _$@ `@ a @ a!ht@ aJ0@ a? %x*3
SUB P,D&13D13##
HRLZ AP&8,P
ADD AP,[1,,2]
BLT AP,16,2a?@ a? @ aN.YP d@@ dD@ dH@ eKy #X*
IRP A,< POP P,A> A,e&XY@ e&\W %8*+
JRST RAX$##
JRST RAe6@ `g4 $*'
HRRZ R0$8,P
ADD R0,[2,,1$X]
BLT R0,16(P)
ADD P,D13D13## ADD P,D13D13##g4P #*
IRP A,< PUSH P,A>A,g&
z &x*G
IFE PSE'UDO,<
SKIPN PSU'8.R0## ;0 MEANS IN'XISTR NOT CALLED
'x POPJ P,
MOVEM (R0,@PSU.R0##
MO(8VEM R1,@PSU.R1##
POPJ P,>
IFN (xPSEUDO,<
POPJ P,>DO,<
POPJ Pg'R,@ pgPuX@ gSk[P gSS x)9
LDB R0,[TYPCOD+B,,A]
8
MOVEI R1,@A(XB)
LOCSUB CANONx$##
IFNB <C>, <MOVEM R0,C>
I8FNB <D>, <HRRZM XR1,D>
IFE BND.xCH,<
IFNB <E>, <HLRZM R1,E>>
HLRZM R1,E>>
g[@ h@@ hD@ i:=@ @i2I @ i<tq@ iJ
9 @ iR X(I
IFE MESxSAG, <TLNN P,STR. NW
TTCALL 3,M.A> TTCALLig;r@"qo"L:@ sj7@ t;@ S@P >}{woP