X-Git-Url: http://git.subgeniuskitty.com/vvhitespace/.git/blobdiff_plain/e5b4dad90ea7fbc4cbe1be5ac7f5c7b77b433b29..519b6ab41c6a7c2abd44c9dcffb2a9b63c762442:/tests/4006_flowcontrol_return_from_subroutine.pvvs?ds=inline

diff --git a/tests/4006_flowcontrol_return_from_subroutine.pvvs b/tests/4006_flowcontrol_return_from_subroutine.pvvs
new file mode 100644
index 0000000..749ca17
--- /dev/null
+++ b/tests/4006_flowcontrol_return_from_subroutine.pvvs
@@ -0,0 +1,8 @@
+# This test verifies the flow control IMP rts.
+
+NSTTSTSTSN      | FC: JSR -> '42'
+TNSS            | IO: Output character
+NNN             | FC: Terminate program
+NSSVTSTSTSN     | FC: Mark label '42'
+SSSTSSSSSTN     | ST: Push +65 (ASCII A)
+NTN             | FC: RTS