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

Reinstate features in PEEK.

Browse Source 
DECtape, 340, PDP-6, paper tape reader, and punch.
This commit is contained in:
Lars Brinkhoff 2020-01-25 20:52:44 +01:00
parent 6932b5b34e
commit 51b01312ff
1 changed files with 10 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
src/sysen2/peek.631
View File

@ -474,9 +474,10 @@ CHNPI:CHNPO:CHNPF:CHNSTS:CHNSNS:CHNRTR:CHNPFL:CHNPD:
CHNABT:CHNCRC:CHNCR2:CHNWLE:CHNPLE:CHNLOS:CHNSPZ:
CHTTBF:CHFRBF:CHQRFC:CHQLSN:CHNIPI:CHNIPO:
TCPUP:PKBNT:PKBNF:OVHTB2:
PKEQHF:IPOUTQ:IPOBLQ:PKETBL:]
PKEQHF:IPOUTQ:IPOBLQ:PKETBL:
DISUSR:LPTUSR:PDPUSR:PTPUSR:PTRUSR:]
;No longer used: DISUSR:LPTUSR:NVDUSR:PDPUSR:PLTUSR:PTPUSR:PTRUSR:TABUSR:
;No longer used: NVDUSR:PLTUSR:TABUSR:
; MSUSER:MSREAD:MSRED2:MSWRIT:MSWRT2:IMPBPQ:
; IMNOSH:IMNISH:IMPNPE:IMNSRF:IMNSRC:IMNRFN:IMPNIH:
@ -495,10 +496,11 @@ XBRWND:XBSAVW:MTRCNT:MTRNAM:
CHSUSR:CHSSTA:CHSNBF:CHSNOS:CHSFRN:CHSACK:CHSPKN:CHSWIN:CHSIBP:CHSOBP:
IPGWTN:IPGWTG:IPGWTI:IPGWTM:SBNRUT:
PGIHTB:SWPHTB:OVHTB1:
IPUQHD:IPFDPE:XBITQH:XBORTQ:XBOCOS:]
IPUQHD:IPFDPE:XBITQH:XBORTQ:XBOCOS:
DG2:DRTM:EUPOS:UDIR:UDIRO:UGOAL:ULCTM:UTASS:UTBFS:
UTTNO:UTUSR:UMNTR:]
;No longer used: DG2:DRTM:EUPOS:UDIR:UDIRO:UGOAL:ULCTM:UTASS:UTBFS:
; UTTNO:UTUSR:UMNTR:MPXBUF:
;No longer used: MPXBUF:
; IMSOC1:IMSOC2:IMSOC3:IMSOC4:IMSOC5:IMSOC6:IMSOC7:IMSOC8:
;+SYSBEG(U)
@ -1234,7 +1236,7 @@ IFN 0,[
MODEF "R,RNABLE,%MFERO, "Running jobs"
%MDS:: MODEF "S,SPEEK,, "Single Tree (job#)"
MODEF "T,TRANPK,, "Translations"
IFN 0, MODEF "U,UTPEEK,%MFERO, "Utape??"
MODEF "U,UTPEEK,%MFERO, "Utape"
MODEF "V,DOUSER,, "job Variables (job#)"
; ULOOK checks MODE to hack this one (swap vars)
MODEF "W,WROUTE,, "Internet, Chaosnet routing tables (1W is Chaos only)"
@ -6096,7 +6098,6 @@ RESR2: MOVEI T,"%
HRRZ B,@UREALT
CAMN U,B
JSP A,RESCHO ;real time user
IFN 0,[
SKIPE PDPUSR
CAME U,@PDPUSR
JRST RESR4
@ -6106,7 +6107,6 @@ IFN 0,[
CONI 130,A
SKIPN A
JSP A,RESCHO ;340 display user
];IFN 0
RESR4: MOVSI B,RESTAB-RESTBE
RESR3A: HRRZ T,RESTAB(B)
SKIPN (T)
@ -6142,12 +6142,12 @@ RESOR3: JFCL
ODEVER RESOR3
RESTAB: "C_11.,,@CUSER ;core alocator user
IFN 0,[ ;Remove stuff that no longer exists
"D_11.,,@DISUSR ;340 display user
"L_11.,,@LPTUSR ;line printer user
"R_11.,,@PTRUSR ;paper tape reader user
"P_11.,,@PLTUSR ;plotter user
"T_11.,,@PTPUSR ;paper tape punch user
IFN 0,[ ;Remove stuff that no longer exists
"P_11.,,@PLTUSR ;plotter user
"V_11.,,@NVDUSR ;tv camera user
"S_11.,,@TABUSR ;tablet user
];IFN 0
@ -7268,8 +7268,6 @@ LOVHMT==.-OVHMTN
SUBTTL Mode "U" - DECtape status display
IFN 0,[
UTPEEK: ATYPE UTTOP
MOVN C,NUNITS
HRLZS C
@ -7339,7 +7337,6 @@ UTTOP: ASCIZ /Dirc Goal Pos Dg2 Dir Umntr Utass
/
UTMID: ASCIZ /Cn Tn Uname Jname Dir Bufs
/
];IFN 0
SUBTTL Misc constants