Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-04 - 43,50322/editst.lap
Click 43,50322/editst.lap to see without markup as text/plain
There are no other files named editst.lap in the archive.
(LAP EDIT* SUBR) 
       (MOVE 2 (SPECIAL L) S) 
       (JSP 6 SPECBIND) 
       (0 2 (SPECIAL L) S) 
       (PUSH P 2) 
       (MOVEM 1 0 P) 
       (PUSHJ P EDUP) 
       (HLRZ@ 1 (SPECIAL L) S) 
       (CALL 1 (E LENGTH) S) 
       (PUSHJ P SPECSTR) 
       (MOVEI 2 (QUOTE NIL)) 
       (MOVE 3 (SPECIAL L) S) 
       (JSP 6 SPECBIND) 
       (0 2 (SPECIAL COM) S) 
       (0 3 (SPECIAL L) S) 
       (PUSH P 1) 
       (MOVE 2 -1 P) 
       (CALL 2 (E *GREAT) S) 
       (JUMPN 1 TAG2) 
       (CALL 1 (E ERR) S) 
 TAG2  (MOVEI 2 (QUOTE NIL)) 
       (MOVEI 1 (QUOTE !0) S) 
       (PUSHJ P EDITCOM) 
       (POP P 2) 
       (POP P 1) 
       (CALL 2 (E *DIF) S) 
       (MOVEI 2 (QUOTE NIL)) 
       (PUSHJ P EDITCOM) 
       (MOVE 1 (SPECIAL L) S) 
       (PUSHJ P SPECSTR) 
       (MOVEM 1 (SPECIAL L) S) 
       (HLRZ@ 1 1) 
       (POPJ P) 
       NIL