Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

(FILECREATED "20-FEB-78 16:04:10" <LISPUSERS>SEE16.;6
 2261   

     changes to:  SEE16COMS

     previous date: "27-JAN-78 12:55:27" <LISPUSERS>SEE16.;5)


(PRETTYCOMPRINT SEE16COMS)

(RPAQQ SEE16COMS
 [(FNS SEE16)
		  (P (OR (GETD (QUOTE PRINTFIXED))
			 (LOADFNS (QUOTE PRINTFIXED)
				  (QUOTE <LISPUSERS>PRINTOUT.COM)
				  LDFLG)))
		  (DECLARE: DOEVAL@COMPILE DONTCOPY (PROP MACRO BIN)
			    (P (LOAD? (QUOTE <IDL>FASTARITH.COM)
				      (QUOTE SYSLOAD])
(DEFINEQ

(SEE16

  [LAMBDA (FILE OFILE)
    [CLISP:(BLOCKRECORD INT16 ((NIL BITS 20)
			 (LH BITS 8)
			 (RH BITS 8)))
      (BLOCKRECORD FNUM ((FLH BITS 16)
		    (FRH BITS 16]                      (* rmk: "27-JAN-78 12:55")

    [RESETLST [if
 OFILE
		  then
 (RESETSAVE (OUTFILE OFILE)
				  '(PROGN (CLOSEF (OUTPUT OLDVALUE]
	      OFILE_(OUTPUT)
	      (RESETSAVE FILE_(OPENFILE FILE 'INPUT 'OLD 16)
			 '(PROGN (CLOSEF OLDVALUE)))
	      (printout
 NIL " WORD" -9 "BITS" -8 "CHARS" -4 "BYTES" ,,, "INTEGER" -5 "OCTAL" ,,, 
			"FLOATING"
			T T)
	      (for
 I W OLDW TEMP (EOF _(GETEOFPTR FILE))
		   (F _(FBOX))
		   (JFN _(OPNJFN FILE 'INPUT)) from
 1 to
 EOF
		 do
 (W_(IBOX (BIN JFN)))
		    (printout
 NIL .I5 I ,,, .I8.-2.T W:LH , .I8.-2.T W:RH ,,,
			      (if
 (OR (TEMP_W:LH
					LT
 32)
				      (TEMP GT
 126))
				  then
 '.
				else
 (FCHARACTER TEMP))
			      (if
 (OR (TEMP_W:RH
					LT
 32)
				      (TEMP GT
 126))
				  then
 '.
				else
 (FCHARACTER TEMP))
			      ,,, .I3 W:LH , .I3 W:RH -4 .I6 W ,,, .I7.-8 W ,,, #
			      (if
 OLDW
				  then
 (replace
 FLH of
 F with
 OLDW)
				       (replace
 FRH of
 F with
 W) 
                                                       (* FPLUS to guarantee normalization)

				       (PRIN1 (FBOX F+0.0)))
			      T)
		    (OLDW_(IBOX W]
    <FILE OFILE>])
)
(OR (GETD (QUOTE PRINTFIXED))
    (LOADFNS (QUOTE PRINTFIXED)
	     (QUOTE <LISPUSERS>PRINTOUT.COM)
	     LDFLG))
(DECLARE: DOEVAL@COMPILE DONTCOPY 

(PUTPROPS BIN MACRO
 ((FILEJFN)
		     (JSYS 40 FILEJFN 0 0 2)))

(LOAD? (QUOTE <IDL>FASTARITH.COM)
       (QUOTE SYSLOAD))
)
(DECLARE: DONTCOPY
  (FILEMAP (NIL (487 1946 (SEE16 499 . 1943)))))
STOP