00:00:00 --- log: started retro/11.11.15 01:07:22 --- quit: retro_commits (Ping timeout: 258 seconds) 01:52:56 crc: ah 03:36:27 --- join: luptenschteiner (~User@unaffiliated/probonono) joined #retro 03:37:49 --- quit: probonono (Ping timeout: 244 seconds) 04:31:06 --- quit: crc (Read error: Connection reset by peer) 04:31:34 --- join: crc (~quassel@li125-93.members.linode.com) joined #retro 04:39:02 --- join: Kumul (~Kumul@adsl-64-237-143-114.prtc.net) joined #retro 04:40:13 C-Keen: try http://rx-core.org/testImage 04:41:07 this is a smaller thing for debugging; it has a jump to the main entry point, then pushes (in this order) 1 2 3 -1 -2 -3 to the stack, before exiting 04:46:55 ah thanks 05:37:23 try this for the normalize function: 05:37:23 (define (normalize val) 05:37:23 (if (< 2147483647 val) 05:37:23 (inexact->exact (sub1 (- val 4294967295))) 05:37:23 val)) 05:50:07 ah this will only work for the big number tower 05:55:13 ok the negative number test image seems to work now 05:55:24 with that normalize procedure 05:55:54 I had another bug in there, when requesting -9 on port 5 as I set the instruction pointer one too far ahead 05:58:45 still when I type ".s" I see the starting <, then the RetroForth banner again: .s -> but I guess my string procedures are wrong 07:04:22 I had a problem in the loop opcode description 07:04:47 --- join: retro_commits (~retro_com@li125-93.members.linode.com) joined #retro 07:04:56 do tell 07:10:52 it should decrement TOS each time it's used, before doing the comparison 07:11:14 ah 07:13:17 heh I still seem to have problems with arithmetic :) 1 2 + -> -3 07:58:04 --- quit: Kumul (Ping timeout: 256 seconds) 08:42:12 --- join: Kumul (~Kumul@adsl-207-204-133-224.prtc.net) joined #retro 09:44:58 apart from the negative number issue, this lets .s work: 09:44:59 ((7) 09:44:59 (fprintf (current-error-port) "LOOP~%") 09:44:59 (pushd (normalize (sub1 (popd)))) 09:44:59 (ip+) 09:44:59 (if (< 0 (tos)) 09:45:01 (set! *ip* (sub1 (ip))) (popd))) ; LOOP 09:45:37 --- join: roarde (~roarde@pdpc/supporter/active/roarde) joined #retro 09:53:16 --- join: roarde_ (~roarde@pdpc/supporter/active/roarde) joined #retro 09:53:21 --- quit: roarde (Read error: Connection reset by peer) 09:53:27 --- nick: roarde_ -> roarde 10:00:40 --- quit: roarde (Read error: Connection reset by peer) 10:00:48 --- join: roarde (~roarde@pdpc/supporter/active/roarde) joined #retro 10:05:09 --- quit: roarde (Ping timeout: 240 seconds) 10:35:29 --- quit: Kumul (Quit: gone) 10:40:52 --- join: roarde (~roarde@pdpc/supporter/active/roarde) joined #retro 10:48:12 --- quit: roarde (Ping timeout: 245 seconds) 13:42:18 --- join: Kumul (~Kumul@adsl-207-204-133-224.prtc.net) joined #retro 18:53:02 * crc has the scheme code fixed enough to at least start running the core test suite :) 18:56:02 dies on the test for "or" 18:57:34 --- nick: luptenschteiner -> probonono 18:57:46 http://sprunge.us/cFPP 19:04:25 --- quit: scj (Quit: peas out) 19:06:08 --- join: scj (scj@shells.mycrosoft.us) joined #retro 20:01:32 bitwise-or should be bitwise-ior; continuing the tests 20:14:29 and the core tests pass :) 20:18:38 vocab tests also pass 20:22:21 http://sprunge.us/XJJg for my latest code 20:22:38 now time for bed :) 20:42:44 --- quit: Kumul (Quit: gone) 21:07:48 --- quit: probonono (Ping timeout: 244 seconds) 23:59:59 --- log: ended retro/11.11.15