Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-02 - 43,50216/bhand1.lap
Click 43,50216/bhand1.lap to see without markup as text/plain
There are 2 other files named bhand1.lap in the archive. Click here to see a list.
 (DEFPROP SYMDEF (LAMBDA(L)(MAPCAR(FUNCTION(LAMBDA(J)(PUTPROP(CAR J)(CADR J)
(QUOTE SYM))))L))FEXPR)

(DEFPROP OPDEF(LAMBDA(L)(MAPCAR(FUNCTION(LAMBDA(J)
(PUTPROP(CAR J)(TIMES(CADR J)1000)(QUOTE SYM))))L))FEXPR)

(SYMDEF(A 1)(B 2)(C 3))

(OPDEF (TRNE 602) (TRNN 606))

(OPDEF (EXCH 250) 
	(MOVMS 217) 
	(JUMPE 322) 
	(IDIV 230))
(OPDEF (IMUL 220) 
	(SOSGE 375)
	(SOJA 364)) 
(OPDEF (HRRM 542)) 
(LAP REV SUBR) 
(MOVEI B NIL) 
REV1 
(JUMPE A REV2) 
(HRRZ C 0 A) 
(HRRM B 0 A) 
(MOVE B A) 
(MOVE A C) 
(JRST 0 REV1) 
REV2 
(MOVE A B) 
(POPJ P) 
NIL 
(OPDEF (SKIPE 332) 
        (CAIG 307))
(LAP STRIPPAREN SUBR) 
(MOVEI B 1)
SP1 
(CAIG A 377777)
(HRRZ B 0 A)
(CAIG A 377777)
(SKIPE 0 B) 
(POPJ P) 
(HLRZ A 0 A) 
(JRST 0 SP1) 
NIL
(LAP ZEROPF SUBR) 
(JUMPE A ZF1) 
(CAIN A (QUOTE 0)) 
(JRST 0 ZF1) 
(TDZA A A) 
ZF1 
(MOVEI A (QUOTE T)) 
(POPJ P) 
NIL 
(OPDEF (TRNE  602) 
	(TRNN 606)) 
(SYMDEF (AR1 4) 
	(AR2A 5))
(OPDEF (ADDI 271) (CAMGE 315) (JUMPN 326)) 
(LAP *POSFACTORS SUBR) 
(CAIE A (QUOTE 0)) 
(CAIN A (QUOTE 1)) 
(JRST 0 TINY) 
(PUSHJ P NUMVAL) 
(MOVMS 0 A) 
(MOVE AR2A A) 
(MOVE B A) 
(MOVEI AR1 1) 
(MOVEI A NIL) 
LOOP1 
(MOVE C A) 
(MOVE A B) 
(PUSHJ P FIX1A) 
(MOVE B C) 
(CALL 1 (E CONS)) 
(MOVE C A) 
(MOVE A AR1) 
(PUSHJ P FIX1A) 
(MOVE B C) 
(CALL 1 (E CONS)) 
LOOP2 
(MOVE B AR2A) 
(ADDI AR1 1) 
(IDIV B AR1) 
(CAMGE B AR1) 
(POPJ P) 
(JUMPN C LOOP2) 
(JRST 0 LOOP1) 
TINY 
(JCALL 1 (E NCONS)) 
NIL