From 4b8dfa2df7d384f50041da911f55f9f1df2ef66e Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Wed, 7 Dec 2022 08:26:39 +0100
Subject: [PATCH] Add PUSHJ and POPJ to one-proceed test.

---
 src/maint/1proc.test | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/maint/1proc.test b/src/maint/1proc.test
index 4ec5e37a..7dcfeddc 100644
--- a/src/maint/1proc.test
+++ b/src/maint/1proc.test
@@ -56,6 +56,9 @@ UPC:	START+1
 START:					;INFERIOR CODE
 	JFCL
 	JRST 2,@[.+1]
+	MOVE A,[-1,,PDL]
+	POPJ A,
+NEXT:	PUSHJ A,.+1
 	MOVE B,[440700,,STRING]
 	ILDB A,B
 	DPB A,B
@@ -63,6 +66,7 @@ START:					;INFERIOR CODE
 	IDPB A,B
 STOP:
 STRING:	ASCIZ /FOOBAR/
+PDL:	NEXT
 CONSTANTS
 LEN=.-START