Mon Dec 7 09:20:40 PST 2009 UPLOAD MD md00.txt md01.txt md02.txt md03.txt md04.txt md05.txt md06.txt md07.txt Mon Dec 7 09:20:44 PST 2009 4VSEL 45 Mon Dec 7 09:24:07 PST 2009 UPLOAD MD md00.txt READ P24> OK< reDef * reDef / reDef 0 4085 P24> P24> md01.txt READ P24> OK 1 6660 MDA> MDA> md02.txt READ MDA> OK 155 2 7345 MDA> MDA> md03.txt READ MDA> OK 3 24625 MDA> MDA> md04.txt READ MDA> OK 4 27648 MDA> MDA> md05.txt READ MDA> OK 5 29527 MDA> MDA> md06.txt READ MDA> OK 6 31887 MDA> MDA> md07.txt READ MDA> OK 7 32183 MDA> MDA> Mon Dec 7 09:25:18 PST 2009 4VSEL 45 45 4VSEL ! 09:25:23 MDA> CMD! 09:25:23 MDA> Mon Dec 7 09:25:28 PST 2009 GLOBALDC Mon Dec 7 09:27:38 PST 2009 SCOPE_TEST Mon Dec 7 09:28:29 PST 2009 CALON save bin data to ./data/p08/p08_1_pls.BIN Mon Dec 7 10:03:00 PST 2009 UPLOAD MD md00.txt Mon Dec 7 10:06:04 PST 2009 UPLOAD MD md00.txt AD AD? P24> ( FORTH extensions, improvements ) P24> P24> ECIMAL ECIMAL? P24> P24> CODE ZFILL zero com add push sta anew zero stp times nop ret ; P24> RE $18000 OVER - ZFILL ( zero memory to make post-compile checksums reproduc RE? P24> ible ) ible? P24> $800000 ' 1- 1 - @ OR ' 1- 1 - ! ( make 1- an immediate word ) P24> + sta ldp lda ; P24> !1+ sta stp lda ; !1+? P24> : MOVE 1- FOR OVER @ OVER ! 1+ >R 1+ R> NEXT DROP DROP ; ( src dest cnt -- ) P24> MOVE 1- FOR OVER @ OVER @ AND st 1+ >R 1+ R> NEXT DROP DROP ; ( src dest cnt -- _____md01.txt md02.txt Mon Dec 7 10:07:57 PST 2009 UPLOAD MD md00.txt READ P24> OK< reDef * reDef / reDef 0 4085 P24> P24> md01.txt READ P24> OK 1 6660 MDA> MDA> md02.txt READ MDA> OK 155 2 7345 MDA> MDA> md03.txt READ MDA> OK 3 24625 MDA> MDA> md04.txt READ MDA> OK 4 27648 MDA> MDA> md05.txt READ MDA> OK 5 29527 MDA> MDA> md06.txt READ MDA> OK 6 31887 MDA> MDA> md07.txt READ MDA> OK 7 32183 MDA> MDA> Mon Dec 7 10:09:08 PST 2009 4VSEL 45 45 4VSEL ! 10:09:13 MDA> CMD! 10:09:13 MDA> Mon Dec 7 10:09:18 PST 2009 GLOBALDC Mon Dec 7 10:11:28 PST 2009 SCOPE_TEST Mon Dec 7 10:12:16 PST 2009 CALON save bin data to ./data/p08/p08_1_pls.BIN Mon Dec 7 10:23:46 PST 2009 UPLOAD MD md00.txt READ P24> OK< reDef * reDef / reDef 0 4085 P24> P24> md01.txt READ P24> OK 1 6660 MDA> MDA> md02.txt READ MDA> OK 155 2 7345 MDA> MDA> md03.txt READ MDA> OK 3 24625 MDA> MDA> md04.txt READ MDA> OK 4 27648 MDA> MDA> md05.txt READ MDA> OK 5 29527 MDA> MDA> md06.txt READ MDA> OK 6 31887 MDA> MDA> md07.txt READ MDA> OK 7 32183 MDA> MDA> Mon Dec 7 10:24:57 PST 2009 4VSEL 45 45 4VSEL ! 10:25:02 MDA> CMD! 10:25:02 MDA> Mon Dec 7 10:25:07 PST 2009 GLOBALDC Mon Dec 7 10:27:17 PST 2009 SCOPE_TEST Mon Dec 7 10:28:08 PST 2009 CALON save bin data to ./data/p08/p08_1_pls.BIN