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,2 0,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
**************