00:00:00 --- log: started forth/17.10.21 01:07:19 --- quit: Keshl (Quit: Konversation terminated!) 01:22:44 --- join: Keshl (~Purple@24.115.185.149.res-cmts.gld.ptd.net) joined #forth 01:48:52 --- quit: proteusguy (Remote host closed the connection) 02:13:39 --- join: mnemnion (~mnemnion@cpc73658-dals20-2-0-cust586.20-2.cable.virginm.net) joined #forth 02:44:12 --- join: smokeink (~smoke@221.7.252.112) joined #forth 03:27:59 --- quit: mnemnion (Remote host closed the connection) 03:40:24 --- join: proteus-guy (~proteusgu@183.88.189.92) joined #forth 04:38:44 --- quit: smokeink (Ping timeout: 260 seconds) 05:18:33 --- join: smokeink (~smoke@221.7.252.116) joined #forth 05:51:40 --- join: proteusguy (~proteus-g@183.88.189.92) joined #forth 05:51:40 --- mode: ChanServ set +v proteusguy 05:52:05 --- quit: nighty- (Ping timeout: 248 seconds) 05:55:18 --- join: mnemnion (~mnemnion@cpc130658-camd16-2-0-cust176.know.cable.virginm.net) joined #forth 06:03:19 --- quit: smokeink (Ping timeout: 240 seconds) 06:35:42 --- join: mtsd (~mtsd@h-158-174-23-206.NA.cust.bahnhof.se) joined #forth 06:41:11 --- quit: proteusguy (Ping timeout: 248 seconds) 07:33:34 --- join: proteusguy (~proteus-g@183.88.189.92) joined #forth 07:33:35 --- mode: ChanServ set +v proteusguy 07:39:03 --- quit: proteusguy (Ping timeout: 240 seconds) 07:39:24 --- quit: proteus-guy (Ping timeout: 246 seconds) 07:43:29 --- quit: ZombieChicken (Remote host closed the connection) 07:45:11 --- join: ZombieChicken (~weechat@gateway/tor-sasl/forgottenwizard) joined #forth 07:54:04 --- join: nighty- (~nighty@s229123.ppp.asahi-net.or.jp) joined #forth 08:03:03 --- quit: nighty- (Ping timeout: 240 seconds) 08:12:07 --- join: proteusguy (~proteus-g@61-91-169-98.static.asianet.co.th) joined #forth 08:12:08 --- mode: ChanServ set +v proteusguy 08:36:14 --- join: justaname (54c7446b@gateway/web/cgi-irc/kiwiirc.com/ip.84.199.68.107) joined #forth 08:37:47 Hi all. Does anyone have any hints on how to implement U< without using U If U< one of those things that just need to be implemented in assembly then how do Mr. Moore's chips handle this? Is the argument that U< isn't really needed? 08:50:39 justaname: minus sets the two numbers to be relative to zero. 2/ centers the two numbers over zero. 0< checks the sign. 08:54:45 with the stack machines (or machine forth) forth is the assembly syntax. 08:56:35 pointfree: Thanks for the hint. I'm not sure I quite understand "2/ centers the two numbers over zero". How would that be translated to e.g. gforth, so i could experiment with it? I tried `: U< - 2/ 0< ;` there but it didn't work as expected (or I screwed up somewhere) 08:58:27 : MYU< - 2/ 0< ; ok 08:58:27 5 -1 MYU< . 0 ok 08:58:27 5 -1 U< . -1 ok 08:58:27 https://pastebin.com/t44cxd6j 08:59:05 Sorry for that. I don't often use IRC. pastebin URL has the same thing in it. 09:00:27 justaname: It works for me: -2 1 - 2/ 0< . -1 ok 09:00:33 1 -2 - 2/ 0< . 0 ok 09:01:00 justaname: Maybe you redefined a word by mistake? 09:01:06 --- quit: proteusguy (Read error: Connection reset by peer) 09:03:17 You're right! I don't know what I did there, but it's working now. 09:04:00 You restarted gforth? 09:04:23 Thanks a lot pointfree... that was confusing. In the future I'll try restarting gforth when the world stops making sense. 09:04:53 np 09:05:10 Yeah. I tried your code, which behaved as expected, so I restarted gforth and now it works. I must have broken something. 09:15:06 --- join: proteusguy (~proteus-g@184.22.251.87) joined #forth 09:15:06 --- mode: ChanServ set +v proteusguy 09:34:36 --- quit: proteusguy (Remote host closed the connection) 09:35:37 --- join: proteusguy (~proteus-g@2405:9800:bc10:1ca:fc57:68d4:8f67:6325) joined #forth 09:35:37 --- mode: ChanServ set +v proteusguy 09:37:29 pointfree: maybe I'm confusing myself here but it seems that `- 2/ 0<` implements U>, as the arguments seem to be reversed. Is that expected? 09:40:25 what is mod vs. remainder in sm/rem (symmetric mixed divide and remainder) and fm/mod (floored mixed divide and modulo)? 09:40:46 The definition in CMFORTH is `: U< ( u u - t) - 2/ 0< ; ( 3)` so it's clearly supposed to be U< but maybe Mr. Moore just decided the order wasn't important to the idea of an "unsigned comparison" 09:48:21 https://github.com/ForthHub/cmFORTH/blob/master/cmforth.fth 09:49:22 For reference. It seems the code is inconsistent. U< is used like it should be U< but the definition of U< appears to be U> 09:55:45 --- quit: justaname (Quit: http://www.kiwiirc.com/ - A hand crafted IRC client) 11:59:37 --- join: Gromboli (~Gromboli@static-72-88-80-103.bflony.fios.verizon.net) joined #forth 13:27:03 Floored: 3mod3=0 2mod3=2 1mod3=1 0mod3=0 -1mod3=2 -2mod3=1 -3mod3=0 13:27:03 symmetric: 6%3=0, 5%3=2, 4%3=1, 3%3=0, 2%3=2, 1%3=1, 0%3=0, -1%3=-1, -2%3=-2, -3%3=0, -4=-1, -5%3=-2, -6%3=0 13:31:48 --- quit: mtsd (Quit: Leaving) 15:19:40 --- join: reepca (~user@208.89.170.230) joined #forth 15:23:07 hm, trying to use gforth's libc.fs and errno isn't changing when it should. 15:36:42 Someone was asking about a book on Forth. There is a newer revision of this book buy you can get an idea of what he writes about. https://www.disavowed.jp/ti/docs/fbForth_2.0_Manual_20150620.pdf 15:37:26 The newer revision can be fond here: https://www.amazon.com/fbForth-2-0-File-Based-Cartridge-Implementation/dp/1973932679 18:28:24 --- quit: mnemnion (Remote host closed the connection) 19:46:35 --- join: mnemnion (~mnemnion@cpc130658-camd16-2-0-cust176.know.cable.virginm.net) joined #forth 19:51:30 --- quit: mnemnion (Ping timeout: 252 seconds) 21:12:06 --- join: smokeink (~smoke@221.7.252.116) joined #forth 21:21:35 --- quit: smokeink (Ping timeout: 255 seconds) 21:23:34 --- join: smokeink (~smoke@171.36.225.56) joined #forth 21:41:23 --- join: nighty- (~nighty@s229123.ppp.asahi-net.or.jp) joined #forth 22:41:49 --- quit: smokeink (Ping timeout: 240 seconds) 22:51:09 --- quit: Gromboli (Quit: Leaving) 23:27:05 --- join: smokeink (~smoke@171.36.225.56) joined #forth 23:40:57 --- quit: Uniju (Remote host closed the connection) 23:45:12 --- join: Uniju (~frog_styl@cpe-74-78-4-232.mass.res.rr.com) joined #forth 23:49:01 --- join: MrBismuth (~ArcMrBism@104-50-90-48.lightspeed.brhmal.sbcglobal.net) joined #forth 23:51:51 --- quit: MrBusiness (Ping timeout: 252 seconds) 23:51:51 --- quit: MrBusiness3 (Ping timeout: 252 seconds) 23:52:21 --- join: MrBusiness3 (~ArcMrBism@2602:306:8325:a300:c801:d7f:77e1:92be) joined #forth 23:57:05 --- join: mtsd (~mtsd@h-158-174-23-206.NA.cust.bahnhof.se) joined #forth 23:59:59 --- log: ended forth/17.10.21