github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-19 01:27:05 +00:00
Code Issues Releases Wiki Activity

Add check to DUMP that KS10P matches NEWCOD.

Browse Source 
On a KS10, DUMP must use the NEWCOD code, and on KA10/KL10 it must not.
This commit is contained in:
Lars Brinkhoff 2019-08-30 08:30:04 +02:00
parent ea13dc31fb
commit c43e056c7c
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/syseng/dump.445 → src/syseng/dump.446
View File

@ -1133,6 +1133,13 @@ START: SKIPN MYNAME ;DON'T CHANGE IF NOT JUST LOADED
.CORE CORSIZ
JRST .-1
.SUSET [.SMASK,,[%PIIOC+%PITYI]] ;ALLOW IOC, TYPEIN
;Check that KS10P matches NEWCOD.
MOVE A,[SQUOZE 0,KS10P]
.EVAL A,
MOVEI A,0
CAIE A,NEWCOD
.VALUE [ASCII /:NEWCOD doesn't match the processor type.
/]
;COPY QPKID AND QRESRV ARRAYS OUT OF ITS
MOVE C,[SQUOZE 0,NQS]
.EVAL C,