Prepare for a cleaner build system
authorAlyssa Rosenzweig <alyssa@backtick.town>
Wed, 29 Jun 2016 23:25:21 +0000 (16:25 -0700)
committerAlyssa Rosenzweig <alyssa@backtick.town>
Wed, 29 Jun 2016 23:25:21 +0000 (16:25 -0700)
src/CPU/common.tosh [new file with mode: 0644]
src/meta.tosh [deleted file]

diff --git a/src/CPU/common.tosh b/src/CPU/common.tosh
new file mode 100644 (file)
index 0000000..e2b8d04
--- /dev/null
@@ -0,0 +1,68 @@
+define mapper read (addr)
+if addr < 8192 then
+       set M to item (addr mod 2048 + 1) of RAM
+else
+       if addr > 32767 then
+               set M to (join "0x" (item ((addr - 32768) mod 16384 + 1) of PRG-ROM))
+       end
+end
+
+define mapper write (addr) (value)
+if addr < 8192 then
+       replace item addr mod 2048 + 1 of RAM with value
+else
+       if addr > 8191 and addr < 8200 then
+               ask join join (value) " to PPU " (addr) and wait
+       else
+               if addr > 32768 then
+                       say "Writing to ROM isn't very nice, you know..."
+               end
+       end
+end
+
+define PLP
+set flagN to < (item (join (letter 1 of M) "8")+1 of AND) = 8>
+set flagV to < (item (join (letter 1 of M) "4")+1 of AND) = 4>
+set flagB to < (item (join (letter 1 of M) "1")+1 of AND) = 1>
+set flagD to < (item (join (letter 2 of M) "8")+1 of AND) = 8>
+set flagI to < (item (join (letter 2 of M) "4")+1 of AND) = 4>
+set flagZ to < (item (join (letter 2 of M) "2")+1 of AND) = 2>
+set flagC to < (item (join (letter 2 of M) "1")+1 of AND) = 1>
+
+define interrupt
+
+define compute SR
+set SR to (128*flagN) + (64*flagV) + (32) + (16*flagB) + (8*flagD) + (4*flagI) + (2*flagZ) + (1*flagC)
+
+when flag clicked
+set A to 0
+set X to 0
+set Y to 0
+set S to "0xFD"
+set PC to 49152
+show variable A
+show variable X
+show variable Y
+show variable PC
+show variable M
+show variable flagC
+show variable flagV
+show variable flagN
+show variable flagZ
+show variable flagI
+show variable flagB
+show variable flagD
+show variable S
+set line to 0
+show variable line
+delete all of RAM
+repeat 2048
+       add "0" to RAM
+end
+
+when p key pressed
+mapper read (PC)
+interpret instruction (M)
+change line by 1
+
+define interpret instruction (opcode)
diff --git a/src/meta.tosh b/src/meta.tosh
deleted file mode 100644 (file)
index e2b8d04..0000000
+++ /dev/null
@@ -1,68 +0,0 @@
-define mapper read (addr)
-if addr < 8192 then
-       set M to item (addr mod 2048 + 1) of RAM
-else
-       if addr > 32767 then
-               set M to (join "0x" (item ((addr - 32768) mod 16384 + 1) of PRG-ROM))
-       end
-end
-
-define mapper write (addr) (value)
-if addr < 8192 then
-       replace item addr mod 2048 + 1 of RAM with value
-else
-       if addr > 8191 and addr < 8200 then
-               ask join join (value) " to PPU " (addr) and wait
-       else
-               if addr > 32768 then
-                       say "Writing to ROM isn't very nice, you know..."
-               end
-       end
-end
-
-define PLP
-set flagN to < (item (join (letter 1 of M) "8")+1 of AND) = 8>
-set flagV to < (item (join (letter 1 of M) "4")+1 of AND) = 4>
-set flagB to < (item (join (letter 1 of M) "1")+1 of AND) = 1>
-set flagD to < (item (join (letter 2 of M) "8")+1 of AND) = 8>
-set flagI to < (item (join (letter 2 of M) "4")+1 of AND) = 4>
-set flagZ to < (item (join (letter 2 of M) "2")+1 of AND) = 2>
-set flagC to < (item (join (letter 2 of M) "1")+1 of AND) = 1>
-
-define interrupt
-
-define compute SR
-set SR to (128*flagN) + (64*flagV) + (32) + (16*flagB) + (8*flagD) + (4*flagI) + (2*flagZ) + (1*flagC)
-
-when flag clicked
-set A to 0
-set X to 0
-set Y to 0
-set S to "0xFD"
-set PC to 49152
-show variable A
-show variable X
-show variable Y
-show variable PC
-show variable M
-show variable flagC
-show variable flagV
-show variable flagN
-show variable flagZ
-show variable flagI
-show variable flagB
-show variable flagD
-show variable S
-set line to 0
-show variable line
-delete all of RAM
-repeat 2048
-       add "0" to RAM
-end
-
-when p key pressed
-mapper read (PC)
-interpret instruction (M)
-change line by 1
-
-define interpret instruction (opcode)
This page took 0.028958 seconds and 4 git commands to generate.