github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-13 23:36:30 +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
Show Stats 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
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