[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[DEVON: forwarded]



    Date: Sunday, 5 August 1984  20:51-PDT
    From: Alan Bawden <ALAN at MIT-MC>
    To:   GREN at MIT-MC
    Re:   [DEVON: forwarded]

    Perhaps this indicates that Emacs thinks there is some operation every
    device should support, and HS: fails to do so.  I believe I had to make
    DP: support FILLEN, RFDATE, and LNKEDP before Emacs would work acceptably
    with it.

Yeah, EMACS used to die until I supported LNKEDP, but this is something else

    Date: 5 August 1984 23:10-EDT
    From: Devon S. McCullough <DEVON>
    To:   BUG-ITS

    emacs got a .val 0; 35572>>move 1,3 1/17450 3/24
    when I tried to find a file on HS:

The relevant TECO fragment:

TSINT4:	SOS TSINT+1
	CAIL A,HUSED		;MPV INT: CATCH JUMPS TO RANDOMNESS.
	 .VALUE
	CAIN A,QLGET3+1		;IF DECODING A STRING POINTER, GIVE PROPER ERROR.
	 TYPRE [QNS]
	.SUSET [.RMPVA,,C]	;GET ADR START OF MISSING PAGE.
	LSH C,-12
	CAIN A,EJCMD4
	 JRST TSIN4A
	MOVE B,C
	IMULI B,2000*5
;;
;;	This is where it failed, so apparently there's a bug.
;;
	CAMGE B,QRWRT		;ALL OF IMPURE STRING SPACE MARKED AS EXISTING SHOULD
	 .VALUE			;REALLY EXIST, OR THERE'S A BUG.
;;
;;
;;
TSIN4A:	MOVE A,C
	SKIPN GCPTR		;NORMALLY, DON'T ALLOW USE OF LAST PAGE BLW PURE SPACE
	 AOS A			;BUT ALLOW GC TO USE IT FOR RELOCATION DATA.
	CAML A,LHIPAG
	 TYPRE [URK]
	SYSCAL CORBLK,[%CLIMM,,%CBWRT ? %CLIMM,,%JSELF ? C ? %CLIMM,,%JSNEW]
	 .LOSE %LSSYS
	MOVEI A,1(C)
	CAMLE A,MEMT	;IF THIS PAGE IS ABOVE ALL OTHERS, ADJUST MEMT.
	 MOVEM A,MEMT
	JRST TSIL