github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-14 15:45:47 +00:00
Code Issues Releases Wiki Activity

Fix PEEK "K" mode when ITS doesn't have Chaosnet.

Browse Source
This commit is contained in:
Lars Brinkhoff 2018-12-10 13:30:56 +01:00
parent bfa4937eca
commit edb85af24b
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/sysen2/peek.630
View File

@ -3624,9 +3624,15 @@ ERRDV4: CAME X,[SIXBIT /DSK/]
SUBTTL Mode "K" - Chaosnet connections
KAOS: SKIPN JHFLAG
ATYPE KTOP
SETZM RNDFLG
KAOS: SKIPE JHFLAG
JRST KAOS1
SKIPE CHUSR
JRST KAOS2
ATYPE [ASCIZ /
This machine has no Chaosnet./]
POPJ P,
KAOS2: ATYPE KTOP
KAOS1: SETZM RNDFLG
MOVE C,NINDX
KAOS0: SOJL C,KAOS10
SKIPGE @CHSUSR