00:00:00 --- log: started forth/13.07.26 00:48:45 --- join: newcup (newcup@peruna.fi) joined #forth 00:56:12 --- quit: Kumool (Quit: Divided by 0) 01:07:08 --- join: josvuk (~josef@p54ABFF09.dip0.t-ipconnect.de) joined #forth 01:09:56 Hello, I have a lot of forth code in which is something like ^ff86.48b5 01:10:19 but don't know what it is how it works .... 01:11:00 looks to me like some kind of hex number. 01:11:34 is your program a lisp interpreter written in 16-bit forth? :) 01:12:10 hm, no it isn't a lisp interpreter 01:12:25 it is openfirmware forth 01:12:34 ah 01:13:06 for example if I type see type-device 01:13:07 i was imagining a cons cell with two 16-bit words stuck together 01:13:23 maybe the . is just to make it easier to read? 01:14:04 I get the first line : ^ff86.4a36 but normally on the first line is the name of the word ... :-( 01:15:04 hrm 01:15:11 perhaps it is a memory address 01:15:15 hm so ^ff864a36 is a addres 01:15:31 it's a 32-bit machine? 01:15:40 can I evaluate the code starting from that address 01:15:58 yes it is 32bit maching ppc750 01:16:20 i guess the code has been processed for confusing people like what they usually do for js code 01:18:05 josvuk: what happens if you type ^0000.0001 . 01:18:25 my hypothesis is that it'll print the number 1 01:18:38 hm can I do ff864a36 (see) 01:18:45 wait please ... 01:19:54 it prints me unknown word ... :-( 01:21:51 without carret if I type ff864a36 it is recognized as a number and put on the stack 01:22:20 hmm 01:22:48 seems it is an address to code 01:23:09 can I evaluate this code ? 01:23:22 dunno 01:23:32 : trythis ^ff864a36 ; 01:24:17 i'm having a hard time locating any docs for openfirmware 01:24:44 odd because it's supposedly an ieee spec 01:25:10 oh wikipedia says it was withdrawn from the 01:25:13 them in 1998 01:31:06 hm I think it is a proprietarie openfirmware ..... but found a ps from IEEE 01:31:50 the ^ notation may also just be something the SEE command is producing. 01:43:16 --- join: epicmonkey (~epicmonke@host-224-51.dataart.net) joined #forth 02:04:28 --- join: true-grue (~quassel@37-144-112-235.broadband.corbina.ru) joined #forth 02:13:25 --- join: Bahman (~bahman@92.98.205.6) joined #forth 02:21:00 --- quit: Eth|cal (Ping timeout: 240 seconds) 02:22:41 --- join: Eth|cal (~sam@ppp59-167-172-238.static.internode.on.net) joined #forth 02:28:44 --- quit: tathi (Quit: leaving) 02:31:07 --- quit: kludge` (Ping timeout: 248 seconds) 02:37:16 --- join: kludge` (~comet@unaffiliated/espiral) joined #forth 02:43:17 Yes. That's what I think. 03:43:17 --- quit: tp (Remote host closed the connection) 03:45:24 --- join: tp (~tp@ppp59-167-172-238.static.internode.on.net) joined #forth 03:57:16 --- quit: tp (Remote host closed the connection) 04:02:21 --- join: tp (~tp@ppp59-167-172-238.static.internode.on.net) joined #forth 04:09:55 --- quit: Bahman (Quit: Ave atque vale) 04:59:49 --- join: protist (~protist@100.173.69.111.dynamic.snap.net.nz) joined #forth 05:54:34 josvuk: Are you going to pursue that cube problem in Forth? Or use some other language? Python or C could make pretty quick work of it, and in either one you could probably find a Gaussian elimination routine pre-written. 06:17:28 Hm, not sure but first I have to read good introductory textbooks about gaussian elimination and doing some exercises. 06:17:52 would be great if I can do it in forth (openfirmware) 06:19:02 have an old ibook which is intendet to be used as networkanalyser so openfirmware boots in 3sec ... 06:19:34 but this is far away lot to do ...... 06:21:28 Found a paper it says embedded periods in a number are ignored by openfirmware they are only included for better readability 06:23:01 also this paper claims numbers that and with a period are treadted as double numbers but ..... 06:23:28 doing 5. 2 / .s I can't see 2.5 :-( 06:24:09 the stack shows 5 0 06:25:05 no floating point 06:26:27 5. puts 5 and 0 on stack...then 2 / divides 0 by 2 06:27:20 josvuk: ^ 06:27:47 josvuk: FORTH doesn't typically/traditionally have floating point 06:29:33 crazy :-( all must be done by hand ... 06:29:43 josvuk: you may find this greatest common divisor word useful 06:29:52 josvuk: : gcd begin tuck mod dup 0= until drop ; 06:31:53 josvuk: also might like this : array create cells allot does> swap cells + ; 06:32:09 josvuk: then you can make an array of 4 elements like 4 array this 06:32:30 josvuk: 0 this ? 1 0 this ! 0 this ? 06:33:45 josvuk: but really floating point is asking for trouble with elimination i think....you are better off with a fraction system....and simplifying by gcd 06:36:28 hm, ok 4 8 12 gcd . gives 2 isnt't that wrong? 06:37:04 8 12 gcd gives 4 for me 06:37:18 but this gcd is only for two numbers....not 3 06:37:37 ah .. 06:37:54 yep 06:37:57 but 06:38:05 you can just 4 8 12 gcd gcd 06:39:02 hm strange 8 12 gcd . gives 2 :-( 06:39:13 --- quit: tp (Remote host closed the connection) 06:39:29 josvuk: show me exactly what you defined gcd as 06:40:31 see gcd : gcd begin tuck mod dup 0= until drop ; 06:40:49 yeah that looks right 06:40:54 what forth are you using? 06:41:51 Apple PowerBook4,1 4.2.7f1 BootROM 06:42:36 you should check that 3 2 mod gives 1 .....and that 1 2 tuck .s gives 2 1 2 06:42:55 that is the euclidean algorithm that i gave you 06:43:10 --- join: tp (~tp@ppp59-167-172-238.static.internode.on.net) joined #forth 06:44:25 yes 3 2 mod gives me 1 and 1 2 tuck .s gives me 2 1 2 :-( 06:44:40 what does the whole stack look like after 8 12 gcd 06:44:41 I just tried protist's definition in gforth and it works fine. 06:44:42 ? 06:47:03 started gforth and defined the gcd works also 8 12 gcd gives 4 :-( 06:47:16 josvuk: really gaussian elimination sounds like a hefty project in FORTH 06:47:28 hm what's wrong in openfirmwareforth ? 06:47:57 Maybe it's got an off-by-one error in until? 06:47:58 :) 06:48:18 that would be gross hahaha 06:48:57 but that still shouldn't give 2 06:50:27 Hm, ge in forth is really hefty .... but controlling my networkanalyzer is much more hefty ....... 06:50:34 http://sdr-kits.net/VNWA3_Description.html 06:52:06 so I have to draw a smith chart with openfirmware forth :-( 06:53:13 http://en.wikipedia.org/wiki/File:Smith_chart_gen.svg 06:53:15 --- join: RodgerTheGreat (~rodger@c-98-202-115-133.hsd1.ut.comcast.net) joined #forth 06:56:18 ah, ok now gcd works of-forth has per default the numberbase in hex so I switched it to decimal ... 06:56:40 now I have 8 12 gcd . 4 .... :-) 07:04:50 haha nice 07:05:07 --- join: spoofer3 (~spoofer3@2600:100f:b01a:1d1e:f756:2871:af34:e5fb) joined #forth 07:19:05 Ah, yes. 07:19:06 Base. 07:19:09 I hate that word. 07:28:26 hm what's that about here does it returns me an addres so for example gcd here ? 07:31:00 josvuk: here gives the current address in the big memory chunk thing....i forget the term 07:31:25 josvuk: all memory you allocate is just moving the here pointer so that you don't overwrite old stuff 07:31:30 josvuk: see , 07:32:07 josvuk: see allot 07:32:25 josvuk: see here ....dp is data pointer 07:35:02 hm how to find at which memory adress gcd is? 07:43:53 ' gcd . should print a memory address for gcd. 07:44:21 but is it the memory address of the dictionary entry or the code? 07:44:48 the answer is part of the standard i just don't know it 07:46:05 it returns the xt according to http://lars.nocrew.org/dpans/dpans6.htm#6.1.0070 07:46:21 hm wehre is the sign ' on an en keyboard ? 07:48:08 it's an apostrophe 07:48:33 the second key from the enter key on base row IIRC 07:48:34 on my keyboard it's right below the number 1 where most people expect a Q to be ;) 07:50:18 https://en.wikipedia.org/wiki/File:KB_United_States-NoAltGr.svg 07:50:53 it's the key next to the enter key on an US layout 07:52:44 hm, there is only a backtick ´ but that doesnt work 07:52:55 it's an apostrophe 07:53:07 should be on the same key as " 07:53:34 also called single quote 07:54:22 are you trying to figure out the scan code or something? 07:54:58 --- join: Tod-Work (~thansmann@50-202-143-210-static.hfc.comcastbusiness.net) joined #forth 07:55:37 hm, no I have the double quote " but on that key is only this one ´ no single quote :-( 07:55:43 or you have a non-english keyboard and it's booting to qwerty 07:56:38 yes I have a non-eglisch keyboard 07:57:19 I want to disasemble the code of gcd so makeing ' gcd dis 08:01:37 protist & josvuk: "hefty" is a fair word, but it's still straightforward. Like I said, the hard part would be building a floating point scaffold for it. It's definitely easier in other languages where there's a math library. It won't be pretty in forth, because you'll be doing a lot of array index calculations that would be "behind the scenes" in C or Python, say, but it's still a very straightforward process. 08:01:58 josvuk: this might be helpful: http://www.netbsd.org/ports/macppc/faq.html#ofw-backslash 08:46:21 --- join: ncv (~quassel@79.114.115.190) joined #forth 08:46:21 --- quit: ncv (Changing host) 08:46:21 --- join: ncv (~quassel@unaffiliated/neceve) joined #forth 08:49:58 --- join: Nisstyre-laptop (~yours@oftn/member/Nisstyre) joined #forth 09:01:32 --- quit: Nisstyre-laptop (Ping timeout: 265 seconds) 09:07:43 --- quit: tp (Ping timeout: 264 seconds) 09:13:15 --- quit: Eth|cal (Ping timeout: 248 seconds) 09:14:14 --- join: Mat2 (~claude@91-65-144-133-dynip.superkabel.de) joined #forth 09:14:18 hi @ all 09:14:37 --- join: Kumul (~nmz@adsl-64-237-237-61.prtc.net) joined #forth 09:25:13 --- quit: epicmonkey (Ping timeout: 260 seconds) 10:02:58 --- quit: josvuk (Quit: Konversation terminated!) 10:11:06 --- join: Nisstyre-laptop (~yours@oftn/member/Nisstyre) joined #forth 10:47:35 --- join: epicmonkey (~epicmonke@188.134.41.113) joined #forth 10:49:38 --- quit: tangentstorm (Quit: WeeChat 0.3.2) 11:25:19 --- join: mtm (~mtm@c-76-102-52-34.hsd1.ca.comcast.net) joined #forth 11:59:34 --- quit: protist (Ping timeout: 256 seconds) 12:12:52 --- quit: spoofer3 (Ping timeout: 245 seconds) 12:20:59 --- quit: epicmonkey (Ping timeout: 248 seconds) 13:10:32 --- part: dessos left #forth 13:29:19 --- quit: Nisstyre-laptop (Ping timeout: 264 seconds) 13:34:23 --- quit: true-grue (Read error: Connection reset by peer) 14:19:23 --- join: spoofer3 (~spoofer3@233.sub-70-199-226.myvzw.com) joined #forth 14:37:00 ciao 14:37:04 --- quit: Mat2 (Quit: Verlassend) 14:50:01 --- quit: Nisstyre (Quit: Leaving) 15:19:00 --- join: spoofer3_ (~spoofer3@6.sub-174-252-2.myvzw.com) joined #forth 15:21:18 --- quit: spoofer3 (Ping timeout: 256 seconds) 15:50:37 --- join: Nisstyre (~yours@oftn/member/Nisstyre) joined #forth 15:50:49 --- quit: Tod-Work (Quit: Leaving) 15:54:02 --- quit: spoofer3_ (Ping timeout: 246 seconds)