Trailing-Edge
-
PDP-10 Archives
-
decuslib20-03
-
decus/20-0091/forth.rel
There are no other files named forth.rel in the archive.
0
a H " 1x *
INX M?>9I M?>9I x x 2 ok
U(U* ;QUESZ .
O@ @@ @@ 6 V VH o +$ C q ~ '( FORSO@ 3 -$ J9h (H NOFO@@ 3 9h ` 34V @@ 0 *U"a L@@ 1 B
++ P@ ,+ P+
& + (x REOP-$ J9h * WOPE *EA0 TX@ 0@@ 0@@ 1 ` /+ X9h
& ? + ; " b
& + V *0 WCLO $ ]9h +8 CONV58 ;
# Z .$ & .6 ,$ 6@ + a 4 7 ,$ "A
e_ / 54 h " ,$ 84 gZ . " F [ T 1d+ m,D T + k , @ n+ " +X COUN` + ( -h TYPE0t B 4 B # ` V =t s 6 V
& ++B v@@ + .
6@
& 3O@ O@ + | .x CR
& 49h /0 QUER : * 7 9h 0v 9h 7@ 9h -$ @@ O@ 9h @ " $
( 1V + V * , =b + ; 6 V 6 V
V 6 V + /P LOAD #+ 1P INTE "*`* G # 4 ,> ,> ,> V T : + 1p ;S ,^ ,^ ,^ 4> ;9h 0 2P OCTA H OCTA @
9h 3 DECI a( DECI + 30 DROP+ *X )*X ) ` 9h 3P SWAP*` T` 9h 4 + "@B $.t` *X )9h *X ) T` 9h 40 DUP ,X T` 9h
& $+ ; 4p WORD, | . *T*D , ' 1 Z 54 04 9 (5T (9 ( . #X .$ @@ D 9h @ A6 26 + @ H*Q N.0 ZPH *r P9h 8 LITE 5v S + ( 0 V PH VH . &9h h *` W9 (, ^+ O : ; "D Y; -0 W,^ 9h : : 6 V *r ^,~ > > @@ ,~ ; a;COD "@ a;COD-0 WZ . ' W + Z < ;: "Q e;: 6 b VH ' VH . &9h <H :< , ^ 6 l VH *r k@@ 9h ,^ $U m+ @ = >: , [ ' VO9h =` CODE, | + t Z H (VuA6 Z (R
U v* X Q@H . &ZR 9h > :Q , | r {, [ '+ c*x 9h ? , "U#* ~ TH *r + ( W *r + ~ @ + ( ?X FORG, | + A Z ; *D"P+ 1 1 1 " 3$ + [ + D =" 9h : : + Q @0 " ' , | ' *U*U" + A
2T 9h V pB FLUS , 6,^ @@X 9h 0
* Dh UPDA
ERAS@@ @@ 9h 1v 16 $6 /6 , > X
& (+ ;1v $6 /6 , > X
;.6 @XV 2 ` 1,~
& *+ ; /& @2 ,~
& -+ ; EH CONS, | r , B C Z H PUSH^4 (+ ( H@ PUT ^4 "+ ( H` BINA^4 %+ ( I POP ^4 + ( 0X, L I COMM^4 ~+ ( I@ ABOR^4 ;+ ( I` BASE^4
+ ( J FORT^4 + ( JX "a( , TFORT^4 4+ ( J@ CPU , | B b-@ (V G (4yG` *X )+ ~ J` ( ( ], | \( *D@H* ] + Z @
"(
1L
P"E n1L
+ q
/, 4, w2, + w+0 s$ +0 u+ uG 0. .( + p D"A# w., 0L + y & + p0L + { ( + p H 1J " D 3L
Z / + ( Op CORE$4 /4 Z . @34 3t + t (@ + ;/ Z
Z / . Q Z
/ Z . *# . . 24 (U, + t + ; @
\@
Z Q@ e+ P GOOD ` H ? H !'FORSYS.DA T' cannot be opened for input. 'FORSYS.DAT' unavailable for output. Will try a A !gain.
H H H Stack underflow! : * -0 , |-0 Block input err *or. Block output error. Block number too high! : @
U 1 HELLO
-$ J
& 8 ; @ " B ] :*" + ;ForthK12-19-77!H 8 :
h3 `|R `DR b 4N D" P + @5L
0wi! %2d V 'flA flA B `NZ P h P? rL}[: l)G@ |L~, { D" )M1 ~M +G O U R M9} BMJ: ^ RW ` Rv )O o @ /<, 4/a |P YM dG
=%
B- ]; 4 ` n#
m * @ #sC
x P ` m*% &&
^\'_
( @ &(X _.M{ 3P *"W +E3 +wJ V +w> S%^ Q D T&@
< T&@[ P , P C ,6 C?& C?)A *P . P
QB pYHZD w]3: iP 0@ 2. J 9 !
u^P, u^v
& 3- !+ D"U.qZ 4) 4) 4< 2 2 3 3 4 $0. / 7,` 'g. / 77C $4zl D* [ ` 7:3 g 7:D Q = 3
?\. 37 2t ? b D" L*r c 72 9'Q . 9'a 0 935 Zxb WP 9K@ ` 9LR 9X) K "Ly J, `
Q 9(
`aj e? }D ) D ;@ LI gp f g <*o qm2m s .7. 6 D" .HG $5)V X AZ3 V AZW +D+ 1P bGOODW g[Qg ag\)7 @ g\)8 4`r'I H @ok/~ ' H A| /~ ' H @J/~ ' H @PgT~ ' H @*.o~ ' H @Aik/~ &x H @9hJ/~ &p H QxVIo~ &h H @9OJ/~ &` H @8y0o~ &X H QQplo~ &P H @^U$~ &H 8 3 (