mirror of
https://github.com/PDP-10/its.git
synced 2026-02-27 09:18:58 +00:00
Add PUSHJ and POPJ to one-proceed test.
This commit is contained in:
@@ -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
|
||||
|
||||
|
||||
Reference in New Issue
Block a user