mirror of
https://github.com/PDP-10/stacken.git
synced 2026-03-06 11:03:21 +00:00
92 lines
2.1 KiB
Batchfile
92 lines
2.1 KiB
Batchfile
|
|
SET CON MAI
|
|
|
|
! PLEASE NOTE .... CONSOLE IS COLLECTING KL STATUS THIS
|
|
|
|
! PROCESS WILL TAKE ABOUT 2 MINUTES .....> PLEASE WAIT
|
|
|
|
SET OUT LOG
|
|
|
|
E DTE
|
|
|
|
W VER! DEX.CMD V 15-50.1 15 Jan 86
|
|
|
|
WHAT HARDWARE
|
|
|
|
DE ELE 174432=100
|
|
|
|
E CRA
|
|
|
|
REP 10;E CRL! U-CODE LOCATIONS
|
|
|
|
FX 0
|
|
|
|
FREAD 100:177
|
|
|
|
SAVE PC
|
|
|
|
WHAT AC
|
|
|
|
E REG
|
|
|
|
E VMA;E VMAH;E KL
|
|
|
|
SAVE AC-BLOCK
|
|
|
|
RESET IO! ALL IO STATUS WILL BE RESET
|
|
|
|
RESET IO! Done twice
|
|
|
|
RESET
|
|
|
|
ST MIC
|
|
|
|
E 0:17! THIS WILL BE BLOCK 0
|
|
|
|
QSAV 0=0;QSAV 1=1;QSAV 2=2;QSAV 3=3
|
|
|
|
XCT 700400 0;E 0! ERA
|
|
|
|
XCT 701040 1;E 1! DATAI PAG
|
|
|
|
XCT 701240 2;E 2! CONI PAG
|
|
|
|
XCT 700000 3;E 3! BLKI APR (APRID)
|
|
|
|
!
|
|
|
|
! UUO AND PAGE FAIL DATA
|
|
|
|
E UBR 424! FLAGS,,MUUO,A
|
|
|
|
E UBR 425! PC of MUUO
|
|
|
|
E UBR 426! E FIELD OF MUUO
|
|
|
|
E UBR 427! PROCESS CONTEXT WORD
|
|
|
|
E UBR 430! NEW MUUO PC
|
|
|
|
E UBR 500! PAGE FAIL WORD
|
|
|
|
E UBR 501! Flags
|
|
|
|
E UBR 502! PC of Page Fail
|
|
|
|
E UBR 503! New PC
|
|
|
|
!
|
|
|
|
!
|
|
|
|
!CONI OF ALL RH20 SLOTS
|
|
|
|
!NOTE:: RESET IO INST ABOVE WILL INIT THESE
|
|
|
|
XCT 754240 0;XCT 754640 1;XCT 755240 2;XCT 755640 3
|
|
|
|
E 0:3! RH CONI FOR 0 ->3
|
|
|
|
XCT 756240 0;XCT 756640 1;XCT 757240 2;XCT 757640 3
|
|
|
|
E 0:3! RH CONI FOR 4 ->7
|
|
|
|
! CHANNEL LOGOUT DATA
|
|
|
|
E EBR 00;E EBR 01;E EBR 02;E EBR 03
|
|
|
|
E EBR 04;E EBR 05;E EBR 06;E EBR 07
|
|
|
|
E EBR 10;E EBR 11;E EBR 12;E EBR 13
|
|
|
|
E EBR 14;E EBR 15;E EBR 16;E EBR 17
|
|
|
|
E EBR 20;E EBR 21;E EBR 22;E EBR 23
|
|
|
|
E EBR 24;E EBR 25;E EBR 26;E EBR 27
|
|
|
|
E EBR 30;E EBR 31;E EBR 32;E EBR 33
|
|
|
|
E EBR 34;E EBR 35;E EBR 36;E EBR 37
|
|
|
|
!
|
|
|
|
! SBUS DIAGS (CAN BE MADE SITE SPECIFIC)
|
|
|
|
!
|
|
|
|
! FOR DMA-20
|
|
|
|
DE 0=100000 0
|
|
|
|
XCT 700500 0;E 1
|
|
|
|
!
|
|
|
|
! FOR MOS
|
|
|
|
DE 00=200000 0;DE 02=200000 1
|
|
|
|
XCT 700500 0;XCT 700500 2
|
|
|
|
E 1;E 3! DIAG'S 0 AND 1 CONT 10
|
|
|
|
DE 00=200000 2;DE 02=200000 10
|
|
|
|
XCT 700500 0;XCT 700500 2
|
|
|
|
E 1;E 3! DIAG'S 2 AND 10 CONT 10
|
|
|
|
DE 00=220000 0;DE 02=220000 1
|
|
|
|
XCT 700500 0;XCT 700500 2
|
|
|
|
E 1;E 3! DIAG'S 0 AND 1 CONT 11
|
|
|
|
DE 00=220000 2;DE 02=220000 10
|
|
|
|
XCT 700500 0;XCT 700500 2
|
|
|
|
E 1;E 3! DIAG'S 2 AND 10 CONT 11
|
|
|
|
SET AC-BLOCK 6
|
|
|
|
E 0:17
|
|
|
|
SET AC-BLOCK 7
|
|
|
|
E 0:17
|
|
|
|
SET AC-BLOCK 0
|
|
|
|
DE 1=701500 0
|
|
|
|
DE NE=254000 2
|
|
|
|
ST 1
|
|
|
|
ST MIC
|
|
|
|
QRES 0=0;QRES 1=1;QRES 2=2;QRES 3=3
|
|
|
|
RESTORE AC-BLOCK! ORIGINAL BLOCK
|
|
|
|
E 0:17! (E) OF IT
|
|
|
|
CLE OUT LOG
|
|
|
|
!
|
|
|
|
! SNAPSHOT DONE
|
|
|