From 4acf23f7fc3f7b3ffc5f72395368ce9c21f598b3 Mon Sep 17 00:00:00 2001 From: wa1tnr Date: Sun, 2 Jan 2022 18:37:39 +0000 Subject: [PATCH] stable multicore demo modified: core.fs modified: libtnr.fs modified: main.fs modified: memory.h modified: sketch.cpp modified: tags On branch rp2040-multicore-a --- core.fs | 3 +- libtnr.fs | 2 +- main.fs | 10 ++ memory.h | 302 ++++++++++++++++++++++++++--------------------------- sketch.cpp | 23 ++-- tags | 170 +++++++++++++++--------------- 6 files changed, 261 insertions(+), 249 deletions(-) diff --git a/core.fs b/core.fs index 2fb04a3..468a2be 100644 --- a/core.fs +++ b/core.fs @@ -111,7 +111,8 @@ code on 74 , code off 75 , code fl@ 76 , code fl! 77 , --code /branch 78 , +code cpl 78 , +-code /branch 79 , :m begin ( - a) here m; :m again ( a) branch [ 2/ ] , m; diff --git a/libtnr.fs b/libtnr.fs index eee17a9..1fe9a94 100644 --- a/libtnr.fs +++ b/libtnr.fs @@ -28,4 +28,4 @@ 1- for blik next ." ok " ; : stop -77 #, fl! ." blinking " led off ; -: start -22 #, fl! ." blinking " ; +: start -22 #, fl! 2 #, ms ." blinking " ; diff --git a/main.fs b/main.fs index 5769c14..be9acc2 100644 --- a/main.fs +++ b/main.fs @@ -11,4 +11,14 @@ turnkey : id ." 2 Jan Sunday 17:11z" cr ." rp2040-dvlp-dd-multc-a"cr ; +: demob stop 8000 #, ms + start 2000 #, ms + stop 8000 #, ms + start 2000 #, ms + stop 8000 #, ms + start 2000 #, ms + stop + ." demo complete. " +; + turnkey decimal initGPIO interpret diff --git a/memory.h b/memory.h index f7fc8f7..fd7aabd 100644 --- a/memory.h +++ b/memory.h @@ -1,7 +1,7 @@ // memory.h const uint16_t memory[] = { - 969, + 1025, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, @@ -11,119 +11,126 @@ const uint16_t memory[] = { 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 72, 73, 74, - 75, 76, 77, 78, 0, 6, 1, 0, - 22, 1, 0, 6, 65535, 65535, 22, 1, - 0, 20, 41, 83, 11, 37, 4, 10, - 94, 1, 14, 0, 14, 34, 0, 11, - 20, 12, 20, 1, 0, 18, 77, 20, - 34, 1, 0, 6, 32, 0, 4, 1, - 0, 83, 11, 109, 4, 10, 124, 19, - 1, 0, 53, 19, 1, 0, 6, 0, - 0, 20, 54, 20, 19, 1, 0, 6, - 0, 0, 20, 54, 19, 1, 0, 11, - 6, 0, 0, 13, 54, 12, 20, 11, - 54, 12, 1, 0, 11, 53, 12, 54, - 1, 0, 164, 59, 1, 14, 68, 0, - 174, 55, 83, 18, 174, 56, 44, 1, - 0, 9, 192, 6, 45, 0, 176, 19, - 1, 0, 101, 174, 56, 1, 0, 19, - 19, 174, 55, 101, 21, 23, 1, 14, - 70, 0, 6, 10, 0, 208, 44, 1, - 0, 6, 16, 0, 208, 44, 1, 0, - 208, 34, 151, 103, 6, 9, 0, 21, - 23, 9, 242, 19, 6, 7, 0, 22, - 18, 19, 6, 48, 0, 22, 176, 1, - 0, 224, 21, 21, 27, 8, 259, 19, - 7, 250, 19, 1, 0, 194, 249, 199, - 121, 115, 1, 0, 6, 0, 0, 261, - 1, 0, 9, 278, 57, 1, 0, 18, - 11, 274, 194, 249, 12, 185, 199, 121, - 115, 1, 0, 9, 299, 19, 6, 65535, - 65535, 1, 19, 6, 0, 0, 1, 0, - 18, 291, 279, 1, 0, 6, 0, 0, - 1, 0, 6, 65535, 65535, 1, 0, 6, - 32, 0, 1, 0, 21, 21, 23, 9, - 334, 19, 20, 19, 1, 19, 19, 1, - 0, 208, 34, 11, 217, 6, 0, 0, - 194, 224, 224, 224, 224, 224, 224, 224, - 224, 199, 121, 115, 12, 208, 44, 1, - 0, 208, 34, 11, 217, 6, 0, 0, - 194, 224, 224, 224, 224, 199, 121, 115, - 12, 208, 44, 1, 0, 208, 34, 11, - 217, 6, 0, 0, 194, 224, 224, 199, - 121, 115, 12, 208, 44, 1, 0, 18, - 361, 41, 115, 6, 7, 0, 11, 37, - 361, 10, 408, 40, 1, 0, 18, 361, - 39, 115, 6, 15, 0, 11, 51, 381, - 10, 423, 38, 1, 0, 101, 39, 40, - 43, 6, 255, 0, 26, 33, 11, 37, - 42, 10, 440, 101, 109, 121, 115, 37, - 361, 1, 0, 6, 3592, 0, 41, 1, - 0, 25, 451, 40, 43, 8, 469, 19, - 429, 25, 7, 460, 19, 1, 0, 99, - 18, 34, 77, 21, 44, 18, 34, 22, - 44, 1, 0, 18, 4, 1, 0, 309, - 99, 45, 309, 19, 5, 319, 324, 319, - 28, 8, 492, 319, 28, 483, 471, 5, - 319, 324, 319, 28, 8, 517, 319, 28, - 483, 471, 7, 504, 19, 319, 99, 18, - 34, 22, 77, 44, 1, 0, 99, 39, - 309, 40, 43, 6, 255, 0, 26, 33, - 11, 52, 37, 23, 27, 10, 538, 37, - 20, 8, 552, 19, 19, 309, 1, 19, - 1, 0, 451, 40, 43, 8, 568, 19, - 526, 8, 565, 1, 19, 7, 556, 1, - 0, 6, 58, 0, 23, 9, 581, 6, - 10, 0, 22, 1, 6, 29, 0, 23, - 1, 0, 6, 0, 0, 5, 483, 319, - 324, 319, 28, 8, 609, 319, 28, 569, - 20, 32, 32, 32, 32, 27, 7, 590, - 19, 1, 0, 487, 554, 1, 0, 35, - 337, 1, 0, 8, 625, 19, 309, 1, - 19, 314, 1, 0, 23, 619, 1, 0, - 208, 34, 6, 16, 0, 23, 8, 644, - 19, 304, 1, 19, 268, 1, 0, 48, - 619, 8, 667, 19, 58, 10, 45, 45, - 62, 32, 101, 109, 112, 116, 121, 32, - 89, 1, 19, 48, 6, 1, 0, 628, - 8, 687, 19, 18, 58, 4, 45, 45, - 62, 32, 89, 632, 115, 1, 19, 58, - 4, 45, 45, 62, 32, 89, 48, 18, - 39, 20, 11, 83, 8, 705, 7, 698, - 19, 38, 13, 632, 12, 20, 83, 8, - 716, 7, 707, 19, 115, 1, 0, 487, - 115, 554, 8, 733, 49, 48, 9, 730, - 50, 19, 7, 720, 99, 109, 121, 50, - 0, 6, 43, 0, 1, 0, 6, 0, - 0, 77, 5, 18, 737, 19, 19, 18, - 737, 628, 19, 18, 737, 628, 9, 765, - 6, 32, 0, 4, 19, 18, 737, 628, - 29, 9, 774, 21, 4, 19, 18, 319, - 324, 737, 28, 8, 786, 19, 19, 7, - 746, 19, 19, 83, 19, 1, 0, 70, - 70, 70, 70, 70, 1, 0, 18, 77, - 1, 0, 798, 798, 20, 23, 1, 0, - 802, 22, 483, 1, 0, 6, 25, 0, - 1, 0, 813, 72, 6, 100, 0, 24, - 813, 73, 6, 800, 0, 24, 1, 0, - 83, 11, 818, 10, 835, 58, 3, 111, - 107, 32, 89, 1, 0, 6, 65459, 65535, - 75, 58, 9, 98, 108, 105, 110, 107, - 105, 110, 103, 32, 89, 813, 73, 1, - 0, 6, 65514, 65535, 75, 58, 9, 98, - 108, 105, 110, 107, 105, 110, 103, 32, - 89, 1, 210, 62, 0, 58, 25, 116, - 104, 105, 115, 32, 105, 115, 32, 103, - 111, 105, 110, 103, 32, 116, 111, 32, - 98, 101, 32, 103, 111, 111, 100, 32, - 89, 1, 0, 58, 22, 32, 50, 32, - 74, 97, 110, 32, 83, 117, 110, 100, - 97, 121, 32, 32, 32, 49, 55, 58, - 49, 49, 122, 89, 25, 58, 22, 114, - 112, 50, 48, 52, 48, 45, 100, 118, - 108, 112, 45, 100, 100, 45, 109, 117, - 108, 116, 99, 45, 97, 89, 25, 1, - 210, 62, 719, 65535, 65535, 65535, 65535, 65535, + 75, 76, 77, 78, 79, 0, 6, 1, + 0, 22, 1, 0, 6, 65535, 65535, 22, + 1, 0, 20, 41, 84, 11, 37, 4, + 10, 95, 1, 14, 0, 14, 34, 0, + 11, 20, 12, 20, 1, 0, 18, 78, + 20, 34, 1, 0, 6, 32, 0, 4, + 1, 0, 84, 11, 110, 4, 10, 125, + 19, 1, 0, 53, 19, 1, 0, 6, + 0, 0, 20, 54, 20, 19, 1, 0, + 6, 0, 0, 20, 54, 19, 1, 0, + 11, 6, 0, 0, 13, 54, 12, 20, + 11, 54, 12, 1, 0, 11, 53, 12, + 54, 1, 0, 165, 59, 1, 14, 68, + 0, 175, 55, 84, 18, 175, 56, 44, + 1, 0, 9, 193, 6, 45, 0, 177, + 19, 1, 0, 102, 175, 56, 1, 0, + 19, 19, 175, 55, 102, 21, 23, 1, + 14, 70, 0, 6, 10, 0, 209, 44, + 1, 0, 6, 16, 0, 209, 44, 1, + 0, 209, 34, 152, 104, 6, 9, 0, + 21, 23, 9, 243, 19, 6, 7, 0, + 22, 18, 19, 6, 48, 0, 22, 177, + 1, 0, 225, 21, 21, 27, 8, 260, + 19, 7, 251, 19, 1, 0, 195, 250, + 200, 122, 116, 1, 0, 6, 0, 0, + 262, 1, 0, 9, 279, 57, 1, 0, + 18, 11, 275, 195, 250, 12, 186, 200, + 122, 116, 1, 0, 9, 300, 19, 6, + 65535, 65535, 1, 19, 6, 0, 0, 1, + 0, 18, 292, 280, 1, 0, 6, 0, + 0, 1, 0, 6, 65535, 65535, 1, 0, + 6, 32, 0, 1, 0, 21, 21, 23, + 9, 335, 19, 20, 19, 1, 19, 19, + 1, 0, 209, 34, 11, 218, 6, 0, + 0, 195, 225, 225, 225, 225, 225, 225, + 225, 225, 200, 122, 116, 12, 209, 44, + 1, 0, 209, 34, 11, 218, 6, 0, + 0, 195, 225, 225, 225, 225, 200, 122, + 116, 12, 209, 44, 1, 0, 209, 34, + 11, 218, 6, 0, 0, 195, 225, 225, + 200, 122, 116, 12, 209, 44, 1, 0, + 18, 362, 41, 116, 6, 7, 0, 11, + 37, 362, 10, 409, 40, 1, 0, 18, + 362, 39, 116, 6, 15, 0, 11, 51, + 382, 10, 424, 38, 1, 0, 102, 39, + 40, 43, 6, 255, 0, 26, 33, 11, + 37, 42, 10, 441, 102, 110, 122, 116, + 37, 362, 1, 0, 6, 3585, 0, 41, + 1, 0, 25, 452, 40, 43, 8, 470, + 19, 430, 25, 7, 461, 19, 1, 0, + 100, 18, 34, 78, 21, 44, 18, 34, + 22, 44, 1, 0, 18, 4, 1, 0, + 310, 100, 45, 310, 19, 5, 320, 325, + 320, 28, 8, 493, 320, 28, 484, 472, + 5, 320, 325, 320, 28, 8, 518, 320, + 28, 484, 472, 7, 505, 19, 320, 100, + 18, 34, 22, 78, 44, 1, 0, 100, + 39, 310, 40, 43, 6, 255, 0, 26, + 33, 11, 52, 37, 23, 27, 10, 539, + 37, 20, 8, 553, 19, 19, 310, 1, + 19, 1, 0, 452, 40, 43, 8, 569, + 19, 527, 8, 566, 1, 19, 7, 557, + 1, 0, 6, 58, 0, 23, 9, 582, + 6, 10, 0, 22, 1, 6, 29, 0, + 23, 1, 0, 6, 0, 0, 5, 484, + 320, 325, 320, 28, 8, 610, 320, 28, + 570, 20, 32, 32, 32, 32, 27, 7, + 591, 19, 1, 0, 488, 555, 1, 0, + 35, 338, 1, 0, 8, 626, 19, 310, + 1, 19, 315, 1, 0, 23, 620, 1, + 0, 209, 34, 6, 16, 0, 23, 8, + 645, 19, 305, 1, 19, 269, 1, 0, + 48, 620, 8, 668, 19, 58, 10, 45, + 45, 62, 32, 101, 109, 112, 116, 121, + 32, 90, 1, 19, 48, 6, 1, 0, + 629, 8, 688, 19, 18, 58, 4, 45, + 45, 62, 32, 90, 633, 116, 1, 19, + 58, 4, 45, 45, 62, 32, 90, 48, + 18, 39, 20, 11, 84, 8, 706, 7, + 699, 19, 38, 13, 633, 12, 20, 84, + 8, 717, 7, 708, 19, 116, 1, 0, + 488, 116, 555, 8, 734, 49, 48, 9, + 731, 50, 19, 7, 721, 100, 110, 122, + 50, 0, 6, 43, 0, 1, 0, 6, + 0, 0, 78, 5, 18, 738, 19, 19, + 18, 738, 629, 19, 18, 738, 629, 9, + 766, 6, 32, 0, 4, 19, 18, 738, + 629, 29, 9, 775, 21, 4, 19, 18, + 320, 325, 738, 28, 8, 787, 19, 19, + 7, 747, 19, 19, 84, 19, 1, 0, + 70, 70, 70, 70, 70, 1, 0, 18, + 78, 1, 0, 799, 799, 20, 23, 1, + 0, 803, 22, 484, 1, 0, 6, 25, + 0, 1, 0, 814, 72, 6, 100, 0, + 24, 814, 73, 6, 800, 0, 24, 1, + 0, 84, 11, 819, 10, 836, 58, 3, + 111, 107, 32, 90, 1, 0, 6, 65459, + 65535, 75, 58, 9, 98, 108, 105, 110, + 107, 105, 110, 103, 32, 90, 814, 73, + 1, 0, 6, 65514, 65535, 75, 6, 2, + 0, 24, 58, 9, 98, 108, 105, 110, + 107, 105, 110, 103, 32, 90, 1, 211, + 62, 0, 58, 25, 116, 104, 105, 115, + 32, 105, 115, 32, 103, 111, 105, 110, + 103, 32, 116, 111, 32, 98, 101, 32, + 103, 111, 111, 100, 32, 90, 1, 0, + 58, 22, 32, 50, 32, 74, 97, 110, + 32, 83, 117, 110, 100, 97, 121, 32, + 32, 32, 49, 55, 58, 49, 49, 122, + 90, 25, 58, 22, 114, 112, 50, 48, + 52, 48, 45, 100, 118, 108, 112, 45, + 100, 100, 45, 109, 117, 108, 116, 99, + 45, 97, 90, 25, 1, 0, 846, 6, + 8000, 0, 24, 866, 6, 2000, 0, 24, + 846, 6, 8000, 0, 24, 866, 6, 2000, + 0, 24, 846, 6, 8000, 0, 24, 866, + 6, 2000, 0, 24, 846, 58, 15, 100, + 101, 109, 111, 32, 99, 111, 109, 112, + 108, 101, 116, 101, 46, 32, 90, 1, + 211, 62, 720, 65535, 65535, 65535, 65535, 65535, 65535, 65535, 65535, 65535, 65535, 65535, 65535, 65535, 65535, 65535, 65535, 65535, 65535, 65535, 65535, 65535, 65535, 65535, 65535, 65535, 65535, 65535, 65535, 65535, @@ -443,43 +450,36 @@ const uint16_t memory[] = { 65535, 65535, 65535, 65535, 65535, 65535, 65535, 65535, 65535, 65535, 65535, 65535, 65535, 65535, 65535, 65535, 65535, 65535, 65535, 65535, 65535, 65535, 65535, 65535, - 65535, 65535, 65535, 65535, 65535, 65535, 65535, 65535, - 65535, 65535, 65535, 65535, 65535, 65535, 65535, 65535, - 65535, 65535, 65535, 65535, 65535, 65535, 65535, 65535, - 65535, 65535, 65535, 65535, 65535, 65535, 65535, 65535, - 65535, 65535, 65535, 65535, 65535, 65535, 65535, 65535, - 65535, 65535, 65535, 65535, 65535, 65535, 65535, 65535, - 65535, 65535, 65535, 65535, 65535, 65535, 65535, 65535, - 65535, 65535, 65535, 65535, 65535, 65535, 65535, 26882, - 8292, 915, 29700, 29541, 8308, 885, 29445, 24948, - 29810, 865, 29444, 28532, 8304, 845, 25094, 26988, - 27502, 8307, 832, 25092, 26988, 8299, 818, 27651, - 25701, 813, 28163, 29816, 808, 27140, 26988, 8308, - 802, 25604, 26988, 8308, 798, 30470, 26473, 27751, - 8293, 791, 23554, 8284, 742, 23556, 21317, 8259, - 737, 26889, 29806, 29285, 29296, 29797, 719, 11778, - 8307, 647, 15617, 628, 12290, 8253, 619, 16129, - 615, 9985, 611, 26626, 8227, 586, 26116, 28265, - 8292, 554, 27909, 29793, 26723, 526, 28933, 25973, - 31090, 487, 25860, 26723, 8303, 483, 29700, 25193, - 8225, 471, 30469, 29295, 29540, 457, 25610, 25449, - 26996, 28271, 29281, 8313, 451, 29185, 414, 25601, - 399, 26627, 11875, 381, 26627, 11895, 361, 26626, - 8238, 337, 27907, 30817, 324, 16898, 8268, 319, - 29700, 30066, 8293, 314, 26117, 27745, 25971, 309, - 11777, 304, 12290, 8252, 291, 25602, 8238, 279, - 25604, 25185, 8307, 274, 29954, 8238, 268, 29955, - 11876, 261, 8962, 8307, 249, 8961, 224, 26627, - 30821, 217, 25607, 25445, 28009, 27745, 210, 25092, - 29537, 8293, 208, 8962, 8254, 199, 15362, 8227, - 194, 29444, 26473, 8302, 185, 26628, 27759, 8292, - 176, 26630, 27759, 25956, 8306, 174, 10754, 8239, - 170, 10757, 27951, 25711, 164, 29958, 12132, 28525, - 8292, 151, 27907, 25711, 143, 12033, 134, 10753, - 130, 29700, 28793, 8293, 121, 29445, 24944, 25955, - 115, 25349, 30063, 29806, 109, 29187, 29807, 103, - 28675, 25697, 101, 29699, 25193, 99, 28677, 31092, - 25968, 89, 12546, 8237, 83, 12546, 8235, 77, + 25605, 28005, 25199, 974, 26882, 8292, 920, 29700, + 29541, 8308, 890, 29445, 24948, 29810, 866, 29444, + 28532, 8304, 846, 25094, 26988, 27502, 8307, 833, + 25092, 26988, 8299, 819, 27651, 25701, 814, 28163, + 29816, 809, 27140, 26988, 8308, 803, 25604, 26988, + 8308, 799, 30470, 26473, 27751, 8293, 792, 23554, + 8284, 743, 23556, 21317, 8259, 738, 26889, 29806, + 29285, 29296, 29797, 720, 11778, 8307, 648, 15617, + 629, 12290, 8253, 620, 16129, 616, 9985, 612, + 26626, 8227, 587, 26116, 28265, 8292, 555, 27909, + 29793, 26723, 527, 28933, 25973, 31090, 488, 25860, + 26723, 8303, 484, 29700, 25193, 8225, 472, 30469, + 29295, 29540, 458, 25610, 25449, 26996, 28271, 29281, + 8313, 452, 29185, 415, 25601, 400, 26627, 11875, + 382, 26627, 11895, 362, 26626, 8238, 338, 27907, + 30817, 325, 16898, 8268, 320, 29700, 30066, 8293, + 315, 26117, 27745, 25971, 310, 11777, 305, 12290, + 8252, 292, 25602, 8238, 280, 25604, 25185, 8307, + 275, 29954, 8238, 269, 29955, 11876, 262, 8962, + 8307, 250, 8961, 225, 26627, 30821, 218, 25607, + 25445, 28009, 27745, 211, 25092, 29537, 8293, 209, + 8962, 8254, 200, 15362, 8227, 195, 29444, 26473, + 8302, 186, 26628, 27759, 8292, 177, 26630, 27759, + 25956, 8306, 175, 10754, 8239, 171, 10757, 27951, + 25711, 165, 29958, 12132, 28525, 8292, 152, 27907, + 25711, 144, 12033, 135, 10753, 131, 29700, 28793, + 8293, 122, 29445, 24944, 25955, 116, 25349, 30063, + 29806, 110, 29187, 29807, 104, 28675, 25697, 102, + 29699, 25193, 100, 28677, 31092, 25968, 90, 12546, + 8237, 84, 12546, 8235, 78, 25347, 27760, 76, 26115, 8556, 75, 26115, 16492, 74, 28419, 26214, 73, 28418, 8302, 72, 29191, 26213, 24940, 26739, 71, 25093, 26988, 27502, 70, 19219, 31077, 28514, diff --git a/sketch.cpp b/sketch.cpp index b80d2ae..8264781 100644 --- a/sketch.cpp +++ b/sketch.cpp @@ -549,6 +549,12 @@ void _flfetch(){ T=FL; } +void _cpl() { + bool state = digitalRead(T); + state = !state; + digitalWrite(T, state); +} + void _execute(); void (*function[])()={ @@ -573,13 +579,12 @@ void (*function[])()={ _Keyboard_release , _Keyboard_releaseAll , _Keyboard_end , // 71 _blink_led , // 72 simple integer count _reflashing , // 73 - _on , // 74 _off , // 75 _flfetch, // 76 _flstore, // 77 - _dropzbranch , // 78 - + _cpl, // 78 + _dropzbranch , // 79 }; void _execute(){ @@ -588,19 +593,13 @@ void _execute(){ (*function[memory[W++]])(); } -void cpl(int ledpin) { - bool state = digitalRead(ledpin); - state = !state; - digitalWrite(ledpin, state); -} - #define PRE_LAUNCH_T 27000 void blink_core_1(void) { if( (millis() >= PRE_LAUNCH_T) // initial system delay ) { if ((millis() - elapsed) > 1000) { - cpl(LED_BUILTIN); + DUP ; T=LED_BUILTIN ; _cpl(); DROP ; elapsed = millis(); } } @@ -630,9 +629,9 @@ void setup(){ void setup1(){ delay(1); for (volatile int pq = (3 + 2); pq > 0; pq--) { - cpl(LED_BUILTIN); + DUP ; T=LED_BUILTIN ; _cpl(); DROP ; time_out_blinker(); - cpl(LED_BUILTIN); // and off + DUP ; T=LED_BUILTIN ; _cpl(); DROP ; time_out_blinker(); time_out_blinker(); time_out_blinker(); diff --git a/tags b/tags index 9c34591..54c0784 100644 --- a/tags +++ b/tags @@ -122,90 +122,91 @@ on core.fs +110 off core.fs +111 fl@ core.fs +112 fl! core.fs +113 -/branch core.fs +114 -begin core.fs +116 -again core.fs +117 -until core.fs +119 --until core.fs +120 -/until core.fs +121 -then core.fs +122 -if core.fs +123 --if core.fs +124 -/if core.fs +125 -while core.fs +126 --while core.fs +127 -/while core.fs +128 -repeat core.fs +129 -for core.fs +130 -next core.fs +131 --: core.fs +132 -: core.fs +133 -; core.fs +134 -cvariable core.fs +135 -wvariable core.fs +136 -variable core.fs +137 -#, core.fs +140 -['] core.fs +141 -s" core.fs +142 -1+ core.fs +145 -1- core.fs +146 -ptype core.fs +147 -." core.fs +148 -tib core.fs +150 -pad core.fs +151 -rot core.fs +152 -count core.fs +153 -space core.fs +154 -type core.fs +155 -* core.fs +157 -/ core.fs +159 -mod core.fs +160 -ud/mod core.fs +161 -*/mod core.fs +164 -*/ core.fs +165 -holder core.fs +166 -hold core.fs +167 -sign core.fs +168 -<# core.fs +169 -#> core.fs +170 -base core.fs +171 -decimal core.fs +172 -hex core.fs +173 -# core.fs +174 -#s core.fs +177 -ud. core.fs +179 -u. core.fs +180 -dabs core.fs +181 -d. core.fs +182 -0< core.fs +183 -. core.fs +184 -false core.fs +186 -true core.fs +187 -BL core.fs +188 -max core.fs +189 -h. core.fs +212 -hw. core.fs +214 -hc. core.fs +216 -d core.fs +219 -r core.fs +220 -.word core.fs +221 -dict core.fs +226 -dictionary core.fs +227 -words core.fs +228 -tib! core.fs +229 -echo core.fs +231 -query core.fs +232 -match core.fs +237 -find core.fs +241 -digit core.fs +246 -h# core.fs +247 -' core.fs +253 -? core.fs +254 -0= core.fs +255 -= core.fs +257 -?. core.fs +258 -.s core.fs +259 -interpret core.fs +263 +cpl core.fs +114 +/branch core.fs +115 +begin core.fs +117 +again core.fs +118 +until core.fs +120 +-until core.fs +121 +/until core.fs +122 +then core.fs +123 +if core.fs +124 +-if core.fs +125 +/if core.fs +126 +while core.fs +127 +-while core.fs +128 +/while core.fs +129 +repeat core.fs +130 +for core.fs +131 +next core.fs +132 +-: core.fs +133 +: core.fs +134 +; core.fs +135 +cvariable core.fs +136 +wvariable core.fs +137 +variable core.fs +138 +#, core.fs +141 +['] core.fs +142 +s" core.fs +143 +1+ core.fs +146 +1- core.fs +147 +ptype core.fs +148 +." core.fs +149 +tib core.fs +151 +pad core.fs +152 +rot core.fs +153 +count core.fs +154 +space core.fs +155 +type core.fs +156 +* core.fs +158 +/ core.fs +160 +mod core.fs +161 +ud/mod core.fs +162 +*/mod core.fs +165 +*/ core.fs +166 +holder core.fs +167 +hold core.fs +168 +sign core.fs +169 +<# core.fs +170 +#> core.fs +171 +base core.fs +172 +decimal core.fs +173 +hex core.fs +174 +# core.fs +175 +#s core.fs +178 +ud. core.fs +180 +u. core.fs +181 +dabs core.fs +182 +d. core.fs +183 +0< core.fs +184 +. core.fs +185 +false core.fs +187 +true core.fs +188 +BL core.fs +189 +max core.fs +190 +h. core.fs +213 +hw. core.fs +215 +hc. core.fs +217 +d core.fs +220 +r core.fs +221 +.word core.fs +222 +dict core.fs +227 +dictionary core.fs +228 +words core.fs +229 +tib! core.fs +230 +echo core.fs +232 +query core.fs +233 +match core.fs +238 +find core.fs +242 +digit core.fs +247 +h# core.fs +248 +' core.fs +254 +? core.fs +255 +0= core.fs +256 += core.fs +258 +?. core.fs +259 +.s core.fs +260 +interpret core.fs +264 \ESC libtnr.fs +1 \\ libtnr.fs +2 wiggle libtnr.fs +15 @@ -219,5 +220,6 @@ stop libtnr.fs +30 start libtnr.fs +31 test main.fs +9 id main.fs +11 +demob main.fs +14 .stack job.fs +57 check job.fs +58