PDP-10 Archive: decus/20-0004/dfor10.com from decuslib20-01

Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0004/dfor10.com

There are no other files named dfor10.com in the archive.

(FILECREATED "17-SEP-82 17:24:10" ("compiled on " <BLISP>DFOR10.;1) (2 . 2) tcompl'd in WORK dated 
"24-JUL-82 13:58:35")
(FILECREATED "17-SEP-82 17:24:03" <BLISP>DFOR10.;1 1375 changes to: (VARS DFOR10COMS) (FNS GETSTREAM 
BIN BOUT OPENSTREAM))

GETSTREAM BINARY

-.	Z+,~2B+Z2B
+ 
+ ,<ZD,~/H(VARIABLE-VALUE-CELL FILE . 3)
(VARIABLE-VALUE-CELL ACCESS . 16)
OUTPUT
INPUT
OPNJFN
(KNIL SMALLT ENTERF)H0

BIN BINARY
-.Z,<,<$, ,,~(VARIABLE-VALUE-CELL STREAM . 3)
INPUT
GETSTREAM
(MKN IUNBOX ENTERF)

BOUT BINARY

-.Z,<,<	$
,,>,>  ,^/,~ (VARIABLE-VALUE-CELL STREAM . 3)
(VARIABLE-VALUE-CELL BYTE . 10)
OUTPUT
GETSTREAM
(BHC IUNBOX ENTERF)xH

OPENSTREAM BINARY

-.(Z,<Z,<Z,<Z,<ZJ,<ZD,~ (VARIABLE-VALUE-CELL FILE . 3)
(VARIABLE-VALUE-CELL ACCESS . 14)
(VARIABLE-VALUE-CELL RECOG . 7)
(VARIABLE-VALUE-CELL BYTESIZE . 9)
(VARIABLE-VALUE-CELL MACHINE.DEPENDENT.PARAMETERS . 11)
OPENFILE
OPNJFN
(ENTERF)
(PRETTYCOMPRINT DFOR10COMS)
(RPAQQ DFOR10COMS ((FNS GETSTREAM BIN BOUT OPENSTREAM) (PROP 10MACRO \BIN \BOUT)))
(PUTPROPS \BIN 10MACRO ((JFN) (JS BIN JFN NIL NIL 2)))
(PUTPROPS \BOUT 10MACRO ((JFN BYTE) (JS BOUT JFN BYTE)))
NIL