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

Add TVFIX and 6FIX to LOCK aliases.

Browse Source 
TVFIX stuffs the TV-11 and then tells ITS to start using it.  6FIX
tells ITS to start using the PDP-6.

They are intended to be used by linking CHANNA; RAHASH TVFIX or 6FIX
to SYS; TS LOCK.
This commit is contained in:
Lars Brinkhoff 2018-08-16 16:21:54 +02:00
parent 0ea380eabd
commit b35f12cdb2
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
src/syseng/lock.154 → src/syseng/lock.155
View File

@ -52,6 +52,10 @@ BEG: MOVEI P,PDL
.SUSET [.RXJNAME,,C]
CAMN C,[SIXBIT /VTFIX/]
JRST VTFIXR
CAMN C,[SIXBIT /TVFIX/]
JRST TVFIXR
CAMN C,[SIXBIT /6FIX/]
JRST 6FIXR
PUSHJ P,REGIO
MOVEI C,INMESG
PUSHJ P,TITYOT
@ -1190,6 +1194,21 @@ VTFIXR: .CALL [ SETZ ;FIX A VT52 IN ALTERNATE CHAR SET MODE.
.BREAK 16,160000
TVFIXR: .VALUE [ASCIZ /:STUFF TV P/] ;BRING UP TV-11
MOVE E,[SQUOZE 0,TT11P]
.EVAL E,
.VALUE [ASCIZ /:ITS NOT CONFIGURED WITH TV-11./]
HRLI E,[1]
.SETLOC E,
.BREAK 16,160000
6FIXR: MOVE E,[SQUOZE 0,PDP6UP] ;BRING UP PDP-6
.EVAL E,
.VALUE [ASCIZ /:ITS NOT CONFIGURED WITH PDP-6./]
HRLI E,[-1]
.SETLOC E,
.BREAK 16,160000
PAT:
PATCH: BLOCK 40
EPATCH: -1