From 7c28bc7571ad9b03169dff679848bb7a1e6f6759 Mon Sep 17 00:00:00 2001 From: Adam Sampson Date: Sun, 30 Aug 2020 22:38:11 +0100 Subject: [PATCH] Correct ITS conditionals in STINK 121T. It looks like the version hadn't actually been built for ITS. --- src/sysen2/stink.121t | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/sysen2/stink.121t b/src/sysen2/stink.121t index db461a5a..286d8219 100644 --- a/src/sysen2/stink.121t +++ b/src/sysen2/stink.121t @@ -1831,6 +1831,7 @@ IFN T-1,[ IFN T-1,[ MOVE T,1 MOVE 1,JSYS1 +] ] CAIE T,15 CAIN T,12 @@ -2055,7 +2056,7 @@ IFN T-1,[ ] PBOUT IFN T-1, MOVE 1,JSYS1 - +] C.12: POPJ P,12 CRLS1: MOVEI T,"* @@ -2348,7 +2349,7 @@ IFE ITS,[ -] + LOADN: SKIPA C,SYMFLG LOADG: MOVEI C,DDSYMS PUSHJ P,OPNPTR ;DO THE REAL OPEN (AND FIRST READ) @@ -2982,6 +2983,7 @@ TWNTY4: MOVE B,T MOVEI B,0 PUSHJ P,OUTWRD JRST TWNTY6 +] ;SUBROUTINE TO PUT OUT ONE WORD