Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]
Groups > comp.lang.forth > #18324
| Path | csiph.com!v102.xanadu-bbs.net!xanadu-bbs.net!feeder.erje.net!eu.feeder.erje.net!newsfeed.freenet.ag!news2.euro.net!postnews2.euro.net!news.wanadoo.nl!not-for-mail |
|---|---|
| From | mhx@iae.nl (Marcel Hendrix) |
| Subject | Re: Opinions on googl's go language? |
| Newsgroups | comp.lang.forth |
| Message-ID | <81871207918435@frunobulax.edu> (permalink) |
| Date | Fri, 28 Dec 2012 23:48:54 +0200 |
| References | <2012Dec28.182354@mips.complang.tuwien.ac.at> |
| X-Newsreader | iForth 2.0 console (October 21, 2006) |
| Lines | 183 |
| Organization | Wanadoo |
| NNTP-Posting-Date | 28 Dec 2012 22:48:22 GMT |
| NNTP-Posting-Host | s529d937f.adsl.online.nl |
| X-Trace | 1356734902 dr5.euro.net 237 82.157.147.127:61364 |
| X-Complaints-To | abuse@wanadoo.nl |
| Xref | csiph.com comp.lang.forth:18324 |
Show key headers only | View raw
anton@mips.complang.tuwien.ac.at (Anton Ertl) writes Re: Opinions on googl's go language?
[..]
>>Donald E. Knuth apparently thought the concept important
>>enough to create MIX.
>> [ _The Art of Computer Programming_ , Vol 1 - Fundamental
>>Algorithms, 2nd Edition , c1973, p xi]
>
>One might say that this was long ago, but more recently he created
>MMIX for reworking TAoCP.
Around 1994 I wrote an assembler/disassembler/emulator for MIX.
Checking it just now, I found two bugs. The program used iForth's
VSAVE/VRESTORE feature to scroll the screen. Unfortunately, CELLS
was coded where "4" was really appropriate. Another 64-bit error
was the conversion of MIX's 30 bits to bytes. That used host CPU
roll's which are 64 bits by now.
-marcel
-- Easter Source --------------------------------------------------------
(* ************************************************************ *
* *
* Find the date of EASTER *
* *
* Knuth, Fundamental Algorithms, Exercise 1.3.2.14 *
* *
* ************************************************************ *)
\ View the output written to ans with "ans TO dumploc start GO".
MIXAL
FWD eastx
FWD Y
FWD G
FWD N
FWD Xplus12
FWD Dplus3
ORIG 1000
| march ALF MARCH
| april ALF APRIL
| ans ALF
| day ALF DD \ Note the invisible 3 spaces here!
| month ALF MMMMM
ALF \ Note the invisible 3 spaces here!
| year ALF YYYYY
ORIG * 20 +
| C CON 0 \ C times byte size
| easter STJ eastx
STX Y
| G ENTA 0 \ _E1._
DIV =19=
INCX 1
STX G(0:2)
LDA Y \ _E2._
MUL =1 100 // 1+= \ see
INCA 1 \ below
STA C(1:4)
MUL =3 4 // 1+= \ _E3._
STA Xplus12(0:2)
\ MIXAL: LDA =8(1:1)=
LDA =8 /bits 4 ** LSHIFT=
MUL C \ rA=8C
INCA 680 \ 680=5+27*25
MUL =1 25 // 1+= \ rA=Z+32
| Xplus12 DECA 0
STA 1F(0:2) \ Z+20-X
LDA Y \ _E4._
MUL =1 4 // 1+=
ADD Y
SUB Xplus12(0:2)
INCA 5
STA Dplus3
ENTA 0 \ _E5._
MUL =11=
| 1H INCX 0
DIV =30=
JXNN * 2+ \ See exercise 15
INCX 30
CMPX =24=
JE 1F
CMPX =25=
JNE 2F
LDA G(0:2)
DECA 11
JANP 2F
| 1H INCX 1
| 2H DECX 20 \ _E6._ (24-N)
CMPX =3=
JLE * 2+
DECX 30
STX N(0:2)
LDAN N(0:2) \ _E7._
ADD Dplus3
SRAX 5
DIV =7=
SLAX 5
| N INCA 0 \ 31-N
JANN 1F
CHAR
LDA april
JMP 2F
| 1H DECA 31
CHAR
LDA march
| 2H JBUS *(18)
STA month
STX day(1:2)
LDA Y
CHAR
STX year
OUT ans(18) \ print
| eastx JMP * \ Return to main program
| start LDX =1950=
JMP easter
LDX Y
INCX 1
CMPX =2000=
JLE easter 1+ \ we already linked once :-)
HLT
END start \ wrap up assembly
(* End of File *)
-- output ---------------------------------------------------------------
IP = 1098 breakpoint = -1 dumploc = 0 eusecs = 59727 ovf cmp G int N
-------------------------------------------------------------------------
rA = [+30|30|30|30|30] "00000" value: 511305630
rX = [+00|00|00|31|17] " 1P" value: 2001
rI1 = [+0000] +---------------------------------------------------...
rI2 = [+0000] | 0000 : [+00|00|00|00|00] " " value: 0
rI3 = [+0000] | 0001 : [+00|00|00|00|00] " " value: 0
rI4 = [+0000] | 0002 : [+00|00|00|00|00] " " value: 0
rI5 = [+0000] | 0003 : [+00|00|00|00|00] " " value: 0
rI6 = [+0000] | 0004 : [+00|00|00|00|00] " " value: 0
rJ = [+1092] : 0005 : [+00|00|00|00|00] " " value: 0
28 MARCH 01964
27 MARCH 01965
02 APRIL 01966
01 APRIL 01967
30 MARCH 01968
29 MARCH 01969
28 MARCH 01970
27 MARCH 01971
01 APRIL 01972
31 MARCH 01973
30 MARCH 01974
29 MARCH 01975
27 MARCH 01976
02 APRIL 01977
01 APRIL 01978
31 MARCH 01979
29 MARCH 01980
28 MARCH 01981
27 MARCH 01982
02 APRIL 01983
31 MARCH 01984
30 MARCH 01985
29 MARCH 01986
28 MARCH 01987
02 APRIL 01988
01 APRIL 01989
31 MARCH 01990
30 MARCH 01991
28 MARCH 01992
27 MARCH 01993
02 APRIL 01994
01 APRIL 01995
30 MARCH 01996
29 MARCH 01997
28 MARCH 01998
27 MARCH 01999
01 APRIL 02000
MIX halted.
Back to comp.lang.forth | Previous | Next — Previous in thread | Next in thread | Find similar | Unroll thread
Opinions on googl's go language? the_gavino_himself <visphatesjava@gmail.com> - 2012-12-26 02:13 -0800
Re: Opinions on googl's go language? Hugh Aguilar <hughaguilar96@yahoo.com> - 2012-12-27 16:53 -0800
Re: Opinions on googl's go language? The Beez <the.beez.speaks@gmail.com> - 2012-12-28 02:49 -0800
Re: Opinions on googl's go language? Andrew Haley <andrew29@littlepinkcloud.invalid> - 2012-12-28 07:59 -0600
Re: Opinions on googl's go language? "A. K." <akk@nospam.org> - 2012-12-28 16:26 +0100
Re: Opinions on googl's go language? Richard Owlett <rowlett@pcnetinc.com> - 2012-12-28 11:21 -0600
Re: Opinions on googl's go language? anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2012-12-28 17:23 +0000
Re: Opinions on googl's go language? Richard Owlett <rowlett@pcnetinc.com> - 2012-12-28 16:20 -0600
Re: Opinions on googl's go language? anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2013-01-08 17:55 +0000
Re: Opinions on googl's go language? mhx@iae.nl (Marcel Hendrix) - 2012-12-28 23:48 +0200
Re: Opinions on googl's go language? Bernd Paysan <bernd.paysan@gmx.de> - 2012-12-28 23:56 +0100
Re: Opinions on googl's go language? gavino_himself <visploveslisp@gmail.com> - 2013-01-06 03:53 -0800
Re: Opinions on googl's go language? anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2013-01-08 16:22 +0000
Re: Opinions on googl's go language? Andrew Haley <andrew29@littlepinkcloud.invalid> - 2013-01-08 12:34 -0600
Re: Opinions on googl's go language? anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2013-01-23 16:40 +0000
Re: Opinions on googl's go language? Andrew Haley <andrew29@littlepinkcloud.invalid> - 2013-01-23 11:36 -0600
Re: Opinions on googl's go language? anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2013-01-24 12:46 +0000
Re: Opinions on googl's go language? Andrew Haley <andrew29@littlepinkcloud.invalid> - 2013-01-24 09:17 -0600
Re: Opinions on googl's go language? anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2013-01-24 17:23 +0000
Re: Opinions on googl's go language? Andrew Haley <andrew29@littlepinkcloud.invalid> - 2013-01-24 13:16 -0600
Re: Opinions on googl's go language? anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2013-02-05 17:59 +0000
Re: Opinions on googl's go language? Andrew Haley <andrew29@littlepinkcloud.invalid> - 2013-02-05 12:38 -0600
Re: Opinions on googl's go language? Andrew Haley <andrew29@littlepinkcloud.invalid> - 2012-12-30 03:24 -0600
Re: Opinions on googl's go language? Richard Owlett <rowlett@pcnetinc.com> - 2012-12-30 12:14 -0600
Re: Opinions on googl's go language? Bernd Paysan <bernd.paysan@gmx.de> - 2012-12-30 22:17 +0100
Re: Opinions on googl's go language? Andrew Haley <andrew29@littlepinkcloud.invalid> - 2012-12-30 03:22 -0600
Re: Opinions on googl's go language? Bernd Paysan <bernd.paysan@gmx.de> - 2012-12-30 14:25 +0100
Re: Opinions on googl's go language? Hugh Aguilar <hughaguilar96@yahoo.com> - 2012-12-28 20:55 -0800
Re: Opinions on googl's go language? The Beez <the.beez.speaks@gmail.com> - 2012-12-29 03:35 -0800
Re: Opinions on googl's go language? Doug Hoffman <glidedog@gmail.com> - 2012-12-29 11:49 -0500
Re: Opinions on googl's go language? The Beez <the.beez.speaks@gmail.com> - 2012-12-30 01:57 -0800
Re: Opinions on googl's go language? Doug Hoffman <glidedog@gmail.com> - 2012-12-30 07:01 -0500
Re: Opinions on googl's go language? The Beez <the.beez.speaks@gmail.com> - 2012-12-31 00:29 -0800
Re: Opinions on googl's go language? Doug Hoffman <glidedog@gmail.com> - 2013-01-02 09:18 -0500
Re: Opinions on googl's go language? Hugh Aguilar <hughaguilar96@yahoo.com> - 2013-01-02 20:32 -0800
Re: Opinions on googl's go language? Doug Hoffman <glidedog@gmail.com> - 2013-01-03 06:56 -0500
Re: Opinions on googl's go language? anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2013-01-08 15:50 +0000
Re: Opinions on googl's go language? Doug Hoffman <glidedog@gmail.com> - 2013-01-08 21:41 -0500
Re: Opinions on googl's go language? anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2013-01-23 16:55 +0000
Re: Opinions on googl's go language? Bernd Paysan <bernd.paysan@gmx.de> - 2013-01-23 20:23 +0100
Re: Opinions on googl's go language? Doug Hoffman <glidedog@gmail.com> - 2013-01-24 09:46 -0500
Re: Opinions on googl's go language? Alex McDonald <blog@rivadpm.com> - 2012-12-29 07:41 -0800
Re: Opinions on googl's go language? gavino_himself <visploveslisp@gmail.com> - 2012-12-29 19:29 -0800
Re: Opinions on googl's go language? tcholoka@gmail.com - 2013-01-03 09:36 -0800
Re: Opinions on googl's go language? Hugh Aguilar <hughaguilar96@yahoo.com> - 2013-01-06 00:32 -0800
Re: Opinions on googl's go language? Mark Wills <forthfreak@gmail.com> - 2013-01-06 01:26 -0800
Re: Opinions on googl's go language? gavino_himself <visploveslisp@gmail.com> - 2013-01-06 03:57 -0800
Re: Opinions on googl's go language? tcholoka@gmail.com - 2013-01-06 06:02 -0800
Re: Opinions on googl's go language? Hugh Aguilar <hughaguilar96@yahoo.com> - 2013-01-07 23:41 -0800
Re: Opinions on googl's go language? tcholoka@gmail.com - 2013-01-08 00:15 -0800
Re: Opinions on googl's go language? gavino_himself <visploveslisp@gmail.com> - 2013-01-06 03:56 -0800
csiph-web