github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-05-03 06:39:17 +00:00
Code Issues Releases Wiki Activity

Build STINK for ITS, fixing broken ITS/TENEX conditionals.

Browse Source
This commit is contained in:
Adam Sampson
2018-04-23 16:07:32 +01:00
committed by Adam Sampson
parent f5e54fd700
commit f5dfd38f16
1 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/mudsys/stink.1 → src/mudsys/stink.2
View File

@@ -1,6 +1,6 @@
TITLE TSTINKING ODOR 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 > IFE ITS,.INSRT MUDSYS;STENEX >
@@ -1832,6 +1832,7 @@ IFN T-1,[
IFN T-1,[ IFN T-1,[
MOVE T,1 MOVE T,1
MOVE 1,JSYS1 MOVE 1,JSYS1
]
] ]
CAIE T,15 CAIE T,15
CAIN T,12 CAIN T,12
@@ -2056,7 +2057,7 @@ IFN T-1,[
] ]
PBOUT PBOUT
IFN T-1, MOVE 1,JSYS1 IFN T-1, MOVE 1,JSYS1
]
C.12: POPJ P,12 C.12: POPJ P,12
CRLS1: MOVEI T,"* CRLS1: MOVEI T,"*
@@ -2350,7 +2351,7 @@ IFE ITS,[
]
LOADN: SKIPA C,SYMFLG LOADN: SKIPA C,SYMFLG
LOADG: MOVEI C,DDSYMS LOADG: MOVEI C,DDSYMS
PUSHJ P,OPNPTR ;DO THE REAL OPEN (AND FIRST READ) PUSHJ P,OPNPTR ;DO THE REAL OPEN (AND FIRST READ)
@@ -2985,6 +2986,7 @@ TWNTY4: MOVE B,T
MOVEI B,0 MOVEI B,0
PUSHJ P,OUTWRD PUSHJ P,OUTWRD
JRST TWNTY6 JRST TWNTY6
]
;SUBROUTINE TO PUT OUT ONE WORD ;SUBROUTINE TO PUT OUT ONE WORD