diff --git a/src/syseng/lock.154 b/src/syseng/lock.155 similarity index 98% rename from src/syseng/lock.154 rename to src/syseng/lock.155 index 7d493b91..be7261f9 100755 --- a/src/syseng/lock.154 +++ b/src/syseng/lock.155 @@ -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