Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-02 - decus/20-0046/abacus.scm
There is 1 other file named abacus.scm in the archive. Click here to see a list.
File 1)	DSK:ABACUS.OLD[4,376]	created: 1900 16-Aug-1972
File 2)	DSK:ABACUS.MAC[4,376]	created: 1518 26-Jun-1980

1)1	SETLST:	T ' I',3,0,1,0,0,0
1)		T ' N',4,0,2,0,0,0
1)		T ' +',1,0,3,12,14,0
1)		T ' -',2,0,3,12,15,1
1)		T '+ ',0,0,3,9,1,0
1)		T '- ',0,0,3,9,5,1
1)		T '* ',0,0,4,10,2,0
1)		T '/ ',0,0,4,10,6,0
1)		T '^ ',0,0,4,11,7,0
1)		T '& ',0,0,4,7,3,0
1)		T '! ',0,0,4,7,4,0
1)		T '< ',0,0,9,8,12,0
1)		T '> ',0,0,9,8,13,0
1)		T '= ',0,0,9,8,8,0
1)		T '<=',0,0,9,8,9,0
1)		T '>=',0,0,9,8,10,0
1)		T '<>',0,0,9,8,11,0
1)		T '] ',0,0,8,12,16,0
1)		T '_ ',0,0,5,4,17,0
1)		T '( ',0,0,6,0,19,0
1)		T ') ',0,0,7,0,20,0
1)		T ^O3300,0,0,10,3,21,0
1)		T '\ ',0,0,10,3,23,0
1)		T ^O1400,0,0,4,6,24,0
1)		T ': ',0,0,12,3,25,0
1)	V.INST==.-SETLST
1)	SETLSS:	F 'SIN',SIN
1)		F 'COS',COS
1)		F 'ABS',ABS
1)		F 'ATN',ATAN
1)		F 'ASN',ASIN
1)		F 'ACS',ACOS
1)		F 'INT',AINT
1)		F 'LOG',ALOG10
1)		F 'EXP',EXP
1)		F 'SQR',SQRT
1)		F 'LN ',ALOG
1)		F 'HLP',HELP
1)		F 'SYM',SYMBOL
1)		F 'STP',STOP
1)		F 'IF ',IF
1)		F 'GET',GETTY
1)		F 'TRU',TRUTH
1)		F 'MOD',AMOD
1)	V.FUNC==.-SETLSS
****
2)1	SETLST:	T (' I',3,0,1,0,0,0)
2)		T (' N',4,0,2,0,0,0)
2)		T (' +',1,0,3,12,14,0)
2)		T (' -',2,0,3,12,15,1)
2)		T ('+ ',0,0,3,9,1,0)
2)		T ('- ',0,0,3,9,5,1)
2)		T ('* ',0,0,4,10,2,0)
2)		T ('/ ',0,0,4,10,6,0)
2)		T ('^ ',0,0,4,11,7,0)
2)		T ('& ',0,0,4,7,3,0)
File 1)	DSK:ABACUS.OLD[4,376]	created: 1900 16-Aug-1972
File 2)	DSK:ABACUS.MAC[4,376]	created: 1518 26-Jun-1980

2)		T ('! ',0,0,4,7,4,0)
2)		T ('< ',0,0,9,8,12,0)
2)		T ('> ',0,0,9,8,13,0)
2)		T ('= ',0,0,9,8,8,0)
2)		T ('<=',0,0,9,8,9,0)
2)		T ('>=',0,0,9,8,10,0)
2)		T ('<>',0,0,9,8,11,0)
2)		T ('] ',0,0,8,12,16,0)
2)		T ('_ ',0,0,5,4,17,0)
2)	ZZ='( '
2)		T (ZZ,0,0,6,0,19,0)
2)	ZZ=') '
2)		T (ZZ,0,0,7,0,20,0)
2)		T ('; ',0,0,10,3,21,0)
2)		T ('\ ',0,0,10,3,23,0)
2)	ZZ=', '
2)		T (ZZ,0,0,4,6,24,0)
2)		T (': ',0,0,12,3,25,0)
2)	V.INST==.-SETLST
2)	SETLSS:	F ('SIN',SIN)
2)		F ('COS',COS)
2)		F ('ABS',ABS)
2)		F ('ATN',ATAN)
2)		F ('ASN',ASIN)
2)		F ('ACS',ACOS)
2)		F ('INT',AINT)
2)		F ('LOG',ALOG10)
2)		F ('EXP',EXP)
2)		F ('SQR',SQRT)
2)		F ('LN ',ALOG)
2)		F ('HLP',HELP)
2)		F ('SYM',SYMBOL)
2)		F ('STP',STOP)
2)		F ('IF ',IF)
2)		F ('GET',GETTY)
2)		F ('TRU',TRUTH)
2)		F ('MOD',AMOD)
2)	V.FUNC==.-SETLSS
**************