1
0
mirror of https://github.com/PDP-10/its.git synced 2026-01-29 05:11:14 +00:00

Add %XUNA and %XJNA, which MUDITS uses.

This commit is contained in:
Adam Sampson
2018-04-23 16:10:04 +01:00
committed by Adam Sampson
parent 5a75505e8b
commit 6b0d849f94

View File

@@ -4,7 +4,7 @@ RELOCA
MAIN==1
.GLOBAL TYPVLC,PBASE,TYPBOT,MAINPR,PTIME,IDPROC,ROOT,TTICHN,TTOCHN,TYPVEC
.GLOBAL %UNAM,%JNAM,NOTTY,GCHAPN,INTHLD,PURBOT,PURTOP,N.CHNS,SPCCHK,CURFCN
.GLOBAL %UNAM,%JNAM,%XUNA,%XJNA,NOTTY,GCHAPN,INTHLD,PURBOT,PURTOP,N.CHNS,SPCCHK,CURFCN
.GLOBAL TD.GET,TD.PUT,TD.LNT,NOSHUF,GLOTOP,RSTACK,RCYCHN,START,TVSTRT,REALTV
.GLOBAL IJFNS,IJFNS1,SJFNS,OPSYS,HASHTB,MULTSG,PURBTB,NSEGS,NOATMS,NOSETG,NOSET
@@ -27,7 +27,9 @@ IMPURE
LOC100: JRST START
IFN ITS,[
%UNAM: 0 ; HOLDS UNAME
%XUNA: 0 ; HOLDS XUNAME
%JNAM: 0 ; HOLDS JNAME
%XJNA: 0 ; HOLDS XJNAME
OPSYS: -1 ; MINUS ONE (-1) IF ITS
RLTSAV: -1 ; SAVED ARG TO REALTIMER
]