1
0
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:
Lars Brinkhoff 2018-04-23 16:10:04 +01:00 committed by Adam Sampson
parent 6a4633dcc0
commit ecc2c2ef42
10 changed files with 23 additions and 8 deletions

View File

@ -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

View File

@ -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:

View File

@ -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

View File

@ -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

View File

@ -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
/]

View File

@ -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)

View File

@ -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

View File

@ -1359,7 +1359,7 @@ IFE ITS,[
IMGOK: MOVE B,IMAGFL
EXCH A,B
BOUT
]
IMGEXT: MOVSI A,TFIX
JRST MPOPJ

View File

@ -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

View File

@ -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