From f5dfd38f16c4f0411f44cbaf44f08f4e7e04d2a7 Mon Sep 17 00:00:00 2001 From: Adam Sampson Date: Mon, 23 Apr 2018 16:07:32 +0100 Subject: [PATCH] Build STINK for ITS, fixing broken ITS/TENEX conditionals. --- src/mudsys/{stink.1 => stink.2} | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) rename src/mudsys/{stink.1 => stink.2} (99%) diff --git a/src/mudsys/stink.1 b/src/mudsys/stink.2 similarity index 99% rename from src/mudsys/stink.1 rename to src/mudsys/stink.2 index 60e72faf..7bdce956 100644 --- a/src/mudsys/stink.1 +++ b/src/mudsys/stink.2 @@ -1,6 +1,6 @@ TITLE TSTINKING ODOR -ITS==0 ; FLAG SAYING WHETHER FOR ITS OR 20 +ITS==1 ; FLAG SAYING WHETHER FOR ITS OR 20 IFE ITS,.INSRT MUDSYS;STENEX > @@ -1832,6 +1832,7 @@ IFN T-1,[ IFN T-1,[ MOVE T,1 MOVE 1,JSYS1 +] ] CAIE T,15 CAIN T,12 @@ -2056,7 +2057,7 @@ IFN T-1,[ ] PBOUT IFN T-1, MOVE 1,JSYS1 - +] C.12: POPJ P,12 CRLS1: MOVEI T,"* @@ -2350,7 +2351,7 @@ IFE ITS,[ -] + LOADN: SKIPA C,SYMFLG LOADG: MOVEI C,DDSYMS PUSHJ P,OPNPTR ;DO THE REAL OPEN (AND FIRST READ) @@ -2985,6 +2986,7 @@ TWNTY4: MOVE B,T MOVEI B,0 PUSHJ P,OUTWRD JRST TWNTY6 +] ;SUBROUTINE TO PUT OUT ONE WORD