mirror of
https://github.com/PDP-10/its.git
synced 2026-01-20 01:45:49 +00:00
Build for ITS, and fix broken ITS/TENEX conditionals.
This commit is contained in:
parent
6a4633dcc0
commit
ecc2c2ef42
@ -489,7 +489,7 @@ PURCLS: MOVE P,[-2000,,MRKPDL]
|
||||
MOVE A,INF3 ; GET PTR TO PURIFIED STRUCTURE
|
||||
SKIPN NPRFLG
|
||||
PUSHJ P,%PURIF ; PURIFY
|
||||
PUSHJ P,%PURMD
|
||||
IFE ITS, PUSHJ P,%PURMD
|
||||
|
||||
SETZM GPURFL
|
||||
JRST EPURIF ; FINISH UP
|
||||
@ -1028,6 +1028,7 @@ RETRLT: MOVE A,(AB)
|
||||
TIMERR: MOVNI A,1
|
||||
PUSHJ P,TGFALS
|
||||
JRST FINIS
|
||||
]
|
||||
|
||||
RLTPER: SKIPGE B,RLTSAV
|
||||
JRST IFALSE
|
||||
@ -1583,7 +1584,7 @@ IFE ITS, PUSHJ P,TGFALS
|
||||
|
||||
DIRQ1: SUB TP,[6,,6]
|
||||
JRST DIRQ
|
||||
]
|
||||
|
||||
; HANDLE INFERIOR KNOCKING AT THE DOOR
|
||||
|
||||
HINF:
|
||||
@ -481,6 +481,7 @@ ILDBLK: SIXBIT / &DSK/
|
||||
]
|
||||
|
||||
|
||||
IFE ITS,[
|
||||
NDEBUG: SETZM GCDEBU
|
||||
CAIA
|
||||
DEBUGC: SETOM GCDEBU
|
||||
@ -489,6 +490,7 @@ DEBUGC: SETOM GCDEBU
|
||||
CLOSF
|
||||
JFCL
|
||||
POPJ P,
|
||||
]
|
||||
|
||||
IMPURE
|
||||
GCDEBU: 0
|
||||
@ -337,6 +337,7 @@ FXUPGO: MOVE A,(TP) ; pointer to them
|
||||
IFE ITS,[
|
||||
SKIPN MULTSG
|
||||
JRST FIXMLT
|
||||
]
|
||||
HRRZ D,B ; this codes gets us running in the correct
|
||||
; segment
|
||||
ASH D,PGSHFT
|
||||
@ -559,8 +560,11 @@ IFE ITS,[
|
||||
MOVEM 0,P.TOP
|
||||
POPJ P,
|
||||
|
||||
EPOPJ: SKIPE MULTSG
|
||||
EPOPJ:
|
||||
IFE ITS,[
|
||||
SKIPE MULTSG
|
||||
POP P,E
|
||||
]
|
||||
POPJ P,
|
||||
IFE ITS,[
|
||||
GETPAX: TDZA B,B ; here if other segs ok
|
||||
@ -335,7 +335,7 @@ NIL"=0 ;END OF LIST MARKER
|
||||
|
||||
IF1 [
|
||||
DEFINE SYSQ
|
||||
ITS==0
|
||||
ITS==1
|
||||
; IFE <<<.AFNM1>_-24.>-<SIXBIT / T./>>,ITS==0
|
||||
IFN ITS,[PRINTC /ITS VERSION
|
||||
/]
|
||||
@ -78,6 +78,7 @@ ATOSQ: PUSH P,B
|
||||
IFE ITS,[
|
||||
SKIPE MULTSG
|
||||
PUSHJ P,@[.+1] ; RUN IN 0
|
||||
]
|
||||
MOVE A,SQUPNT ; GET TABLE POINTER
|
||||
MOVE B,[2,,2]
|
||||
CAMN E,1(A)
|
||||
@ -4,6 +4,7 @@ TITLE MODIFIED AFREE FOR MUDDLE
|
||||
RELOCATABLE
|
||||
|
||||
.INSRT MUDDLE >
|
||||
SYSQ
|
||||
|
||||
.GLOBAL CAFREE,CAFRET,PARNEW,AGC,PARBOT,CODTOP,CAFRE1
|
||||
.GLOBAL STOGC,STOSTR,CAFRE,ISTOST,STOLST,SAT,ICONS,BYTDOP
|
||||
@ -139,7 +140,7 @@ CLOOP: CAMG A,(C) ; skip if not big enough
|
||||
|
||||
CHAVIT: MOVE C,CODTOP
|
||||
MOVE E,PARBOT
|
||||
PUSHJ P,%CLNCO ; flush extra pages
|
||||
IFE ITS, PUSHJ P,%CLNCO ; flush extra pages
|
||||
MOVE E,PARBOT ; find amount obtained
|
||||
SUBI E,1 ; dont use a real pair
|
||||
MOVEI C,(E) ; for reset of CODTOP
|
||||
@ -1359,7 +1359,7 @@ IFE ITS,[
|
||||
IMGOK: MOVE B,IMAGFL
|
||||
EXCH A,B
|
||||
BOUT
|
||||
|
||||
]
|
||||
|
||||
IMGEXT: MOVSI A,TFIX
|
||||
JRST MPOPJ
|
||||
@ -416,9 +416,11 @@ AGC1: SKIPE NPWRIT
|
||||
EXCH P,GCPDL
|
||||
SKIPE SWAPGC
|
||||
JRST IAMSGC
|
||||
SKIPN MULTSG
|
||||
JRST IAGC
|
||||
IFE ITS,[
|
||||
SKIPE MULTSG
|
||||
JRST ISECGC
|
||||
]
|
||||
JRST IAGC
|
||||
|
||||
AAGC: SETZM SWAPGC
|
||||
EXCH P,GCPDL
|
||||
@ -927,6 +927,7 @@ IFE ITS,[
|
||||
MOVE 0,UUOH
|
||||
SKIPE MULTSG
|
||||
MOVE 0,MLTPC
|
||||
]
|
||||
PUSH P,0
|
||||
ANDI 0,-1
|
||||
PUSH P,UUOLOC ; SAVE UUO
|
||||
@ -991,8 +992,11 @@ LOPPOP: POP TP,ACSAV-1(B)
|
||||
LOPBAR: SUB TP,C%11
|
||||
LOPFOO: SOJG B,LOPPOP
|
||||
JUMPE R,LOPBLT ; OK, NOT RSUBR
|
||||
IFE ITS,[
|
||||
SKIPL 1(R) ; NOT PURE RSUBR
|
||||
SKIPN MULTSG
|
||||
]
|
||||
IFN ITS, SKIPN 1(R) ; NOT PURE RSUBR
|
||||
JRST LOPBLT
|
||||
|
||||
MOVE B,M
|
||||
Loading…
x
Reference in New Issue
Block a user