Baseline, with the license notices in README.TXT and BIFDOC.TXT.

[bif-6809/bif-6809.git] / junkbox / SCR33.ARR

diff --git a/junkbox/SCR33.ARR b/junkbox/SCR33.ARR
new file mode 100644 (file)
index 0000000..1dec5f3
--- /dev/null
+++ b/junkbox/SCR33.ARR
@@ -0,0 +1 @@
+\rSCR # 33 \r  0 ( [& ,& ]& )\r  1                 ( JMR-93MAR20 )\r  2  BIF DEFINITIONS HEX\r  3 \r  4 : [& ( START ARRAY INDEX LIST )\r  5   0 0 4152 ;\r  6 \r  7 : ,& ( ACCUMULATE INDEX LIST )\r  8   ROT 4152 - 35 ?ERROR ( SPAN?)\r  9   OVER - DUP F000 AND 33 ?ERROR\r 10   1+ SWAP >R ( SAVE LO )\r 11   DUP ROT * R> + ( NEW RELOC )\r 12   ROT 1+ DUP 7 > 34 ?ERROR\r 13   SWAP 4152 ;\r 14 \r 15 : ]& ( COMPLETE THE ARRAY DEF )\r 16   DUP 1- FF00 AND 33 ?ERROR\r 17   <BUILDS >R ,& DROP ( AR FLAG)\r 18   R * ( NEW REL ) R> SWAP >R\r 19   SWAP DUP , ( STORE COUNT )\r 20   0 DO DUP , * LOOP ( SIZES )\r 21   DUP , ( ARR SZ ) R> , ( REL )\r 22   ALLOT ?STACK DOES>\r 23   0 ( SUM ) SWAP\r 24   DUP 2+ SWAP @ ( COUNT )\r 25   2* OVER + DUP >R ( SAVE END )\r 26   SWAP DO ( SUM OF PRODUCTS )\r 27     SWAP I @ * + 2 +LOOP\r 28   R 2+ @ ( RELOCATE ) - DUP 0<\r 29   OVER R @ < 0= ( BOUNDS? )\r 30   OR 0C ?ERROR\r 31   R> 4 + + ;\r
\ No newline at end of file