Trailing-Edge
-
PDP-10 Archives
-
bb-d868c-bm_tops20_v4_2020_distr
-
language-sources/syserd.mac
There are 16 other files named syserd.mac in the archive. Click here to see a list.
TITLE SYSERD -- SYSTEM ERROR FILE PROCESSOR -- MAINLINE CODE
SUBTTL VERSION 14(1270) K. COYE/ RLD/ PJB/ ES/ TJW/ LWE/ SRL/ GSK
;COPYRIGHT (C) 1972,1975,1977,1978,1979 BY
;DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
;
;
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
;ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE
;INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER
;COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
;OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY
;TRANSFERED.
;
;THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
;AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
;CORPORATION.
;
;DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
;SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
SEARCH SYRUNV
SEARCH SYRLOW
.REQUIRE SYRLIB
;DUMALL -- DUMMY MACRO LEVEL 3
;SUBMACRO DUMXXX
;ARGS
;NONE USED TO HOUSE LEVEL 2 SUBMACRO DUMXXX
;THOSE DEFINED HERE ARE THOSE FULLY PROCESSED BY
;THIS SEGMENT. PART OF EDIT #120.
DEFINE DUMALL<
DUM101
DUM102
DUM111
DUM112
DUM115 ;[1204]
DUM116
DUM130
DUM131
DUM133 ;[756]
DUM160
DUM161
DUM162 ; [614]
DUM163 ;[740]
DUM164 ;[1255]
>
;EXTERNALS DEFINED HERE ARE IN SYRLIB.MAC, THE LIBRARY
;OF COMMON ROUTINES FOR ALL PARTS OF THE SYSERR PACKAGE.
; THIS TABLE CLEANED UP WITH EDIT [1217]
EXTERNAL ABORT,PTSTRG,BADNAM,DEVCHK,ERRINT,SKIPIT,IDCHK
EXTERNAL STRCHK,DETCHK,DMPENT,HDRLST,CHROUT,MN2VER,SBUSFN
EXTERNAL GETNBS,.OCTLE,.DECML,.ASCIE,.SIXBT,ENTRST,NOTRAN
EXTERNAL .HAFWD,.SPECL,.ODECW,.UDATE,.TASCI,.PPNWT,.TDIRW
EXTERNAL ACLST,SAVE4P,RET4P,HWDUMP,LSTEB,CNIDCD,R5VSIX
EXTERNAL .MXBLK,.TRBLK,.SUBLK,.SECBK,TITLST,ADVBFF,NEWCMD
EXTERNAL .TVERW,T11ACI,BLKTRN,DRVTYP,COLOUT,SBDOUT,DSERCD
EXTERNAL FE.KLI,KR%ECD,FE%DEV,DUMPOS,DSKPOS,TAPPOS,GTBF00
EXTERNAL REMDAT,BYTE.8,NDVCHK,.TYOCH,DYNSUM
;INTERNALS DEFINED HERE ARE FOR USE BY SYRLIB
INTERNAL KONMSK,MINERB,ALLTBL,PDLPNT
INTERNAL TYPMES,LINE,ALLLTH,DUMDAY
INTERNAL DEVTYP,ERINDX,PCSTBL,BITCHK,ERRLTH
INTERNAL ERRTBL,MDE000,BLTTAB,FE$NAM
INTERNAL MASLTH,NAMLTH
.JBVER==137
LOC .JBVER
BYTE (3)VWHO(9)VSYSER(6)VMINOR(18)VEDIT
SALL
TWOSEG
RELOC 400000
;DUMMY LABELS FOR SYRLIB
MASLTH==0
NAMLTH==0
NAMTBL::
SUMUPD::
DEVDSP::
MASNAM:: Z ;GIVE IT SOME SPACE
;PROCSD -- STANDARD ENTRY PROCESSOR #1
;CALL JRST PROCSD
;
;RETURN JRST ABORT WHEN ENTRY IS PROCESSED OR ABORTED
;OPERATION IS CONTROLLED BY ENTRY IN CONTROL TABLE
;ROUTINE GETS AOB POINTER TO DESIRED WORD IN BUFFER
;IF THERE IS ONE PRESENT
;THEN DISPATCHES TO WORD PROCESSOR LEVEL
;VIA PUSHJ P,SUBTAB(MODE)
;PASSES BUFFER WORD IN P2 TO WORD PROCESSOR
PROCSD: TRNE F,F.BRF ;/BRIEF ? - EDIT [724]
JRST NEWCMD ;YES! - DO IT THAT WAY
SETZM OFFSET ;CLEAR WORD OFFSET COUNT
MOVE P1,(CTINDX) ;PICKUP FIRST WORD IN CONTROL TABLE
JUMPE P1,ABORT ;ABORT WHEN END OF CTL TABLE SEEN
TLNE P1,770000 ;DO WE NEED TO GET AN AOB POINTER
PUSHJ P,GETAOB ;YES-WORD IS IN A RELOCATABLE SUBTABLE IN ENTRY
LDB T2,[POINT 6,P1,11] ;PICKUP WORD LOCATION IN ENTRY
ADD T2,OFFSET ;OFFSET CONTAINS AOB BLOCK STARTING LOCATION
CAML T2,ENTRWC ;DONT TRY EDIT 153 TO ACCESS WORDS OUTSIDE OF ENTRY
AOJA CTINDX,PROCSD ;GET NEXT WORD IN CTL TABLE
CAILE T2,WKSIZE ;MAKE SURE THE WORD ASKED FOR IS IN WORK BUFFER
AOJA CTINDX,PROCSD ;IGNORE AND GET NEXT WORD
MOVE P2,WKBUFF(T2) ;PICKUP DATA WORD IN WORK BUFF
LDB T3,[POINT 6,P1,17] ;PICKUP WORD PROCESSES MODE
CAIG T3,SUBMAX ;IS IT AND UNKNOWN MODE
PUSHJ P,SUBTAB(T3) ;ITS RECOGINIZED
AOJA CTINDX,PROCSD ;EITHER NOT KNOWN OR FALL HERE
GETAOB: LDB T2,[POINT 6,P1,5] ;PICKUP AOBJN POINTER ADDRESS IN ENTRY
;AOB GIVEN IS WITH REF TO WKBUFF
SKIPL T2,WKBUFF(T2) ;PICKUP THE ACTUAL POINTER AND SKIP IF LEGAL
JRST AOBQIT ;AOBJN POINTER = 0 CLEAN UP PDL AND GO TO PROCSD
;[763] SUB T2,HEADWC ;CORRECT AOB POINTER FOR HEADER SIZE
HRRZM T2,OFFSET ;SAVE IT IN OFFSET
MOVEM T2,AOBPNT ;SAVE POINTER FOR SPECL ROUTINE USAGE
POPJ P, ;VAMOOSE
;HERE WHEN AOBJN POINTER = POS IN LH
;NORMALLY SHOULD NOT HAPPEN
AOBQIT: POP P,T2 ;DUMMY POP TO FIX PDP
AOJA CTINDX,PROCSD ;BUMP CTINDX AND BACK TO START
SUBTTL DIALOG RELATED SUBROUTINES
;HERE IS THE DUMMY PROCSA FOR THIS HIGH SEG
;IT SAVES THE AC'S AND THEN CALLS OVRLAY FOR REPLACEMENT
;WITH SYSERA.HGH
PROCSA: MOVE T1,[SIXBIT/SYSERA/]
MOVEM T1,OVRBLK+1 ;INTO THE SPEC AREA
SETZ 15,
MOVEM 17,SAVEAC+17
MOVEI 17,SAVEAC
BLT 17,SAVEAC+16 ;TUCK AWAY OUR AC'S
JRST OVRLAY ;NOW PLEASE OVERLAY US WITH PROCSA
;HERE IS THE DUMMY PROCSB FOR THIS HIGH SEG
;IT SAVES THE AC'S AND THEN CALLS OVRLAY FOR REPLACEMENT
;WITH SYSERB.HGH
PROCSB: MOVE T1,[SIXBIT/SYSERB/]
MOVEM T1,OVRBLK+1 ;INTO THE SPEC AREA
SETZ 15,
MOVEM 17,SAVEAC+17
MOVEI 17,SAVEAC
BLT 17,SAVEAC+16 ;TUCK AWAY OUR AC'S
JRST OVRLAY ;NOW PLEASE OVERLAY US WITH PROCSB
;HERE IS THE DUMMY PROCSC FOR THIS HIGH SEG
;IT SAVES THE AC'S AND THEN CALLS OVRLAY FOR REPLACEMENT
;WITH SYSERC.HGH
PROCSC: MOVE T1,[SIXBIT/SYSERC/]
MOVEM T1,OVRBLK+1 ;INTO THE SPEC AREA
SETZ 15,
MOVEM 17,SAVEAC+17
MOVEI 17,SAVEAC
BLT 17,SAVEAC+16 ;TUCK AWAY OUR AC'S
JRST OVRLAY ;NOW PLEASE OVERLAY US WITH PROCSC
;HERE IS THE DUMMY PROCSN FOR THIS HIGH SEG
;IT SAVES THE AC'S AND THEN CALLS OVRLAY FOR REPLACEMENT
;WITH SYSERN.HGH
PROCSN: MOVE T1,[SIXBIT/SYSERN/]
MOVEM T1,OVRBLK+1 ;INTO THE SPEC AREA
SETZ 15,
MOVEM 17,SAVEAC+17
MOVEI 17,SAVEAC
BLT 17,SAVEAC+16 ;TUCK AWAY OUR AC'S
JRST OVRLAY ;NOW PLEASE OVERLAY US WITH PROCSN
;STARTD-- ROUTINE TO START AT WHEN OVERLAYED
;TO CORRECTLY PROCESS CURRENT ENTRY.
STARTD: MOVEI T1,CHROUT ;OUR TYPO ROUTINE
PUSHJ P,.TYOCH ;INIT SCAN
MOVE T1,ERTYPE ;CURRENT TYPE
PUSHJ P,ERRINT ;GET OUR INDEX VALUE
MOVE T1,ERTYPE ;CORRECT INDEX TO ENTCHR TABLE
MOVE T2,ENTCHR(T1) ;PICKUP ENTRY CHAR WORD
TRNN F,F.ENT ;DOING /ENTRY? [572]
TRNE F,F.SEQ ;SAID /SEQ? [532]
JRST START1 ;YES,FORCE LISTING
TLZ F,F.BTCK ;CLEAR EXAMINE ENTRY FLAG
TLNN T2,E.LALL!E.LNXM!E.LPAR!E.LPER!E.LSUM ;ANY LISTING DESIRED
JRST SKIPIT ;SKIP THIS ENTRY
TLNE T2,E.LNXM!E.LPAR!E.LPER!E.LSUM ;ANY REASON TO DO BIT CHECKING?
TLO F,F.BTCK ;YES-SET FLAG TO DO IT LATER
START1: MOVE T3,ERTYPE ;GET CORRECT INDEX
AOS ENTCHR(T3) ;NO- BUMP COUNTER
SETZ WKINDX, ;CLEAR INDEX INTO BUFFER
SKIPG T1,ENTRWC ;PICKUP ENTRY LENGTH AND CHECK FOR LEGALITY
JRST ENTRST ;OPP, TRY TO RESYNC
MOVE P4,ERRIND
TLNE F,F.BTCK ;ANY TO DO?
PUSHJ P,@BITCHK(P4) ;GO DO IT
TRNE F,F.REM ;[417]/REMOTE?
JRST REMDAT ;YES-DO IMAGE BINARY DUMP
PUSHJ P,HDRLST
MOVE T2,ALLIND
HRRZ T1,PCSTBL(T2)
HLRZ CTINDX,PCSTBL(T2) ;CONTROL TABLE ADDRESS
JRST (T1)
SUBTTL WORD LEVEL SUBROUTINES
;SUBTAB -- SUBROUTINES TO OUTPUT ENTRY WORD IN DESIRED FORMAT
;SETUP P1=ADDRESS OF TEXT TO BE OUTPUT AS DESCRIPTOR
; FOR THIS DATA WORD.
; P2= WORD TO BE OUTPUT.
;CALL PUSHJ P,SUBTAB(MODE)
;
;RETURN CALL+1
;DISPATCHES TO APPROPIATE ROUTINE INTERNALLY TO DO WORD CONVERSION AND OUTPUT
SUBTAB: SINDEX <OCTLE>
SINDEX <DECML>
SINDEX <ASCIE>
SINDEX <SIXBT>
SINDEX <HAFWD>
SINDEX <SPECL>
SINDEX <UDATE>
SINDEX <TASCI>
SINDEX <PPNWT>
;SPECIAL LISTING ROUTINES START HERE.
PT%001: TYPEIT <
STATUS AT ERROR:
BAD DATA DETECTED BY: > ;EDIT [737]
LDB T2,[POINT 5,P2,5] ;GET PAGE FAIL CODE
CAIN T2,25 ;PAGE TABLE?
MOVEI T1,[ASCIZ/PAGE TABLE/]
CAIN T2,36 ;AR/
MOVEI T1,[ASCIZ/AR/]
CAIN T2,37 ;ARX?
MOVEI T1,[ASCIZ/ARX/]
PUSHJ P,.TSTRG
TYPEIT <
PAGE FAIL WD AT TRAP: >
MOVE T1,P2 ;SHOULD STILL BE THERE
PUSHJ P,.TXWDW
TYPEIT <
BAD DATA WORD: >
MOVE P1,WKBUFF+PT%BDW ;GET IT
MOVE T1,P1
PUSHJ P,.TXWDW
TYPEIT <
GOOD DATA WORD: >
MOVE P2,WKBUFF+PT%GDW ;GOOD CONTENTS,MAYBE
MOVE T1,P2
PUSHJ P,.TXWDW
XOR P1,P2 ;CREATE DIFFERENCE
TYPEIT <
DIFFERENCE: >
MOVE T1,P1
PUSHJ P,.TXWDW
TYPEIT <
PHYSICAL MEM ADDR.
AT FAILURE: >
MOVE T1,WKBUFF+PT%PMA
PUSHJ P,.TXWDW
TYPEIT <
RECOVERY: >
MOVE P1,WKBUFF+PT%TRY ;RETRY WORD
MOVE T1,[SIXBIT/CONT./] ;ASSUME GOODNESS
TLNE P1,ERRHRD ;BETTER CHECK
MOVE T1,[SIXBIT/CRASH/]
PUSHJ P,.TSIXN
TYPEIT < USER
RETRY COUNT: >
HRRZ T1,P1
PUSHJ P,.ODECW
TLNE P1,1B20
PUSHJ P,[TYPEIT (
CACHE ERROR,)
POPJ P,0]
TLNE P1,1B21
PUSHJ P,[TYPEIT (
CACHE IN USE,)
POPJ P,0]
TLNE P1,1B22
PUSHJ P,[TYPEIT (
ERROR ON SWEEP TO CORE,)
POPJ P,0]
POPJ P,0 ;BACK TO PROCSD
;SPECIAL ROUTINES FORTOPS20 RELOAD AND BUGHLT/BUGCHK
;ARE HERE
RL%001: TYPEIT <
RELOAD BREAKDOWN:
>
SKIPN P2 ;WAS IT BUGHLT?
JRST RL%002 ;NO
TYPEIT < BUGHLT ADDRESS: >
MOVE T1,P2 ;GET THE ADDR
PUSHJ P,.TOCTW
RL%002: SKIPN P1,WKBUFF+RL%OPR ;OFFSET FROM WKBUFF
POPJ P,0 ;NONE THERE
TYPEIT < WHY RELOAD: >
HRRZI T1,WKBUFF(P1) ;ADDR OF ASCIZ
PJRST .TSTRG ;TO OPR COMMENTS
;HERE FOR 102
BG%001: TYPEIT <
ERROR: >
MOVE T1,[SIXBIT/BUGCHK/]
CAIN P2,BG%INF ;BUGINF?
MOVE T1,[SIXBIT/BUGINF/]
CAIN P2,BG%HLT ;BUGHLT?
MOVE T1,[SIXBIT/BUGHLT/] ;EDIT 213
PUSHJ P,.TSIXN ;SAY EITHER
PUSHJ P,.TCRLF
TYPEIT < ADDRESS OF ERROR: >
MOVE T1,WKBUFF+BG%ADR
PUSHJ P,.TOCTW ;IN OCTAL
TYPEIT <
NAME: >
MOVE T1,WKBUFF+BG%NAM ;GET NAME
PUSHJ P,.TSIXN
PUSHJ P,.TCRLF
TYPEIT < DESCRIPTION: >
HRRZ T1,WKBUFF+BG%MSG
ADDI T1,WKBUFF ;ANOTHER ASCIZ POINTER
PUSHJ P,.TSTRG
PUSH P,P1
SETZ P1,
PUSHJ P,DETCHK ;SAID /DETAIL?
POP P,P1
;START [711-RLD]
TYPEIT <
CONI APR: >
MOVE T1,WKBUFF+BG%APS ;GET THE VALUE
PUSHJ P,.TXWDW ;IN HALF WORD
TYPEIT < = >
MOVE P1,WKBUFF+BG%APS
MOVEI T1,12 ;OFFSET FOR KL10 APR
SKIPE KSMON ;KS10 ENTRY ?
MOVEI T1,15 ;YES! - CHANGE TO KS10 APR OFFSET
MOVEM T1,KONTYP ;[722]FINISH THE SETUP
PUSHJ P,CNIDCD ;DO TRANSLATION
TYPEIT <
CONI PAG: >
MOVE T1,WKBUFF+BG%PGS
PUSHJ P,.TXWDW
TYPEIT <
DATAI PAG: >
MOVE T1,WKBUFF+BG%PGD
PUSHJ P,.TXWDW
;END [711-RLD]
TYPEIT <
CONTENTS OF AC'S:> ;YES
MOVEI P1,BG%ACS ;OFFSET OF 1ST
HRLI P1,-20 ;# TO DUMP
PUSHJ P,ACLST
TYPEIT <
PI STATUS: >
MOVE T1,WKBUFF+BG%PIS ;GET THE WORD
PUSHJ P,.TXWDW ;IN HALF WORD
MOVE P1,WKBUFF+BG%RCT ;# OF REGISTERS
SKIPN P1 ;BUT IF NONE
POPJ P,0 ;LEAVE NOW [763]
TYPEIT <
ADDITIONAL DATA ITEMS: >
MOVE T1,P1
PUSHJ P,.TOCTW
MOVNS P1,P1 ;MAKE NEGATIVE
HRLZ P2,P1 ;# TO DUMP [526]
HRRI P2,WKBUFF+BG%REG
PUSHJ P,.TCRLF
PUSHJ P,.TTABC
MOVE T1,0(P2) ;SOMETHING TO DUMP
PUSHJ P,.TXWDW
PUSHJ P,.TCRLF
AOBJN P2,.-4 ;GO BACK IF MORE TO DO
POPJ P,0
MP%001: ; [614]
PI%001: TYPEIT <
CONI APR: >
MOVE P1,WKBUFF+PI%CNI ;GET THE APR CONI
MOVE T1,P1
PUSHJ P,.TXWDW
TYPEIT < = >
MOVEI T1,12 ;OFFSET FOR CONI APR KL10
SKIPE KSMON ;KS10 ENTRY ?
MOVEI T1,15 ;YES! - CHANGE TO KS10 APR OFFSET
MOVEM T1,KONTYP
PJRST CNIDCD ;GO TRANSLATE [763]
BG%002: ; [763]
MP%01A: ;NOW FOR ERA [763]
PI%01A: SKIPE KSMON ;KS10 ENTRY ? [763]
POPJ P,0 ;YES! - LEAVE NOW
TYPEIT <
ERA: >
MOVE T1,P2
PUSHJ P,.TXWDW
TYPEIT < = WD #>
LDB T1,[POINT 2,P2,1] ;GET WORD #
PUSHJ P,.TOCTW
PUSHJ P,.TSPAC
TLNE P2,1B20 ;SWEEP?
PUSHJ P,[TYPEIT <, SWEEP REF, >
POPJ P,0]
TLNE P2,1B21 ;CHAN?
PUSHJ P,[TYPEIT <, CHAN REF, >
POPJ P,0]
LDB T2,[POINT 3,P2,6] ;GET DATA SOURCE & WRITE BIT
MOVE T1,ERAMES(T2) ;ADDR OF SOME ASCIZ
PUSHJ P,.TSTRG
;NOW FOR MEM ADDR [763]
TYPEIT <
BASE PHY. MEM ADDR.
AT FAILURE: >
LDB T1,[POINT 22,P2,35] ;22 BITS OF ADDR
PUSHJ P,.TOCTW ;NOT HALF WORD
PJRST .TCRLF ; [763]
ERAMES: [ASCIZ/MEMORY READ/]
[ASCIZ/CHAN STORE STATUS/]
[ASCIZ/INVALID/]
[ASCIZ/CHAN DATA/]
[ASCIZ/INVALID/]
[ASCIZ/E-BOX STORE/]
[ASCIZ/CACHE READ/]
[ASCIZ/CACHE WRITE/]
;SET UP POINTERS FOR 162 ENTRY [614]
MP%002: HRRZI P1,WKBUFF+MP%ADD ;POINTER TO BAD ADDRESSES
HRRZI P2,WKBUFF+MP%DAT ;POINTER TO BAD DATA WORDS
HRRZI P3,WKBUFF+MP%CDA ;POINTER TO GOOD DATA WORDS
JRST MP%02A ;NOW USE EXISTING CODE FOR 161
;P2 HAS PI%DAT
PI%002: HRRZI P1,WKBUFF+PI%ADD ;POINTER TO BAD ADDRESSES
HRRZI P2,WKBUFF+PI%DAT ;POINTER TO BAD DATA WORDS
HRRZI P3,WKBUFF+PI%CDA ;POINTER TO GOOD DATA WORDS [420]
MP%02A: HRLI P1,-^D10
HRLI P2,-^D10 ;# OF WORDS TO DUMP
HRLI P3,-^D10
TYPEIT <
ERRORS DETECTED DURING SWEEP:
ADDRESS BAD DATA GOOD DATA DIFFERENCE
>
PI%003: MOVE T1,0(P1) ;GET ADDRESS
SKIPN T1 ;ANYTHING THERE?
JRST PI%004 ;NO
TLZE T1,1B18 ;[717] IS GOOD DATA VALID?
SETOM P4 ;[717]NO,SET FLAG
PUSHJ P,.TOCTW ;NOT HAFWD
PUSHJ P,.TTABC
MOVE T1,0(P2) ;GET DATA
PUSHJ P,.TXWDW
PUSHJ P,.TSPAC ;[1258] SO TABS WORK RITE
PUSHJ P,.TSPAC ;[1258]
PUSHJ P,.TSPAC ;[1258]
PUSHJ P,.TSPAC ;[1258]
PUSHJ P,.TSPAC ;[1258]
PUSHJ P,.TTABC ;[420]LIST GOOD DATA AND XOR DIFFERENCE
SKIPE P4 ;[717]FLAG SET?
JRST PI%006 ;[717]YES, SAY NO GOOD DATA
MOVE T1,0(P3) ;GET GOOD DATA
PUSHJ P,.TXWDW
PUSHJ P,.TSPAC ;[1258] SO TABS WORK RITE
PUSHJ P,.TSPAC ;[1258]
PUSHJ P,.TSPAC ;[1258]
PUSHJ P,.TSPAC ;[1258]
PUSHJ P,.TSPAC ;[1258]
PUSHJ P,.TTABC
MOVE T1,0(P2) ;BAD
MOVE T2,0(P3) ;GOOD
XOR T1,T2 ;DIFFERENCE TO T1
PUSHJ P,.TXWDW ;LIST IT
;END [420]
PUSHJ P,.TCRLF
PI%004: AOBJN P1,.+1
AOBJN P3,.+1
AOBJN P2,PI%003 ;GO DO NEXT OR
PUSHJ P,TITLST ;START ON NEXT PAGE AND
POPJ P,0 ;LEAVE
PI%005: HRLZI P2,-^D8 ;BUILD A POINTER
HRRI P2,WKBUFF+PI%SBD ;FOR SBDLST AND THEN
JRST SBDLST ;CALL THE RIGHT ROUTINE
;[717]
PI%006: MOVEI T1,[ASCIZ/GOOD DATA NOT FOUND
/]
PUSHJ P,.TSTRG ;SAY THAT
SETZ P4, ;CLEAR THE FLAG
JRST PI%004 ;GET NEXT WORDS
;[717] END
;HERE WE LIST SYSTEM ME CONFIG BASED ON RESULTS OF
;SBUS DIAG FUNCTIONS STORED IN WKBUFF
;FIRST IS INTERLEAVE MODE
;POINTER TO SUBTABLE IS IN P2
SBDLST: PUSH P,P1
SETZ P1,
PUSHJ P,DETCHK ;SAID /DETAIL?
POP P,P1
TYPEIT <
SYSTEM MEMORY CONFIGURATION:
>
MOVE P1,P2
; SKIPN P2,0(P1) ;DMA PRESENT?
JRST SBDLS1 ;NO
TYPEIT <
INTERLEAVE MODE: >
LDB T2,[POINT 2,P2,7] ;GET INTERLEAVE MODE
MOVE T1,[SIXBIT/4 WAY/] ;ASSUME THE BEST
CAIN T2,2
MOVE T1,[SIXBIT/2 WAY/]
CAIN T2,1
MOVE T1,[SIXBIT/NONE/] ;WE TRIED
PUSHJ P,.TSIXN
TYPEIT <
DMA:
LAST ADDR HELD: >
LDB T1,[POINT 22,P2,35] ;A FEW ADDR BITS
PUSHJ P,.TOCTW
TYPEIT <
ERRORS DETECTED: >
MOVE P2,0(P1)
LDB P3,[POINT 6,P2,5] ;6 ERROR BITS
SKIPN P3 ;ANY SET?
PUSHJ P,[TYPEIT (NONE)
POPJ P,0]
TRNE P3,1B32 ;NXM?
PUSHJ P,[TYPEIT (INC. CYCLE) ;[435]
POPJ P,0]
TRNE P3,1B33 ;READ PARITY
PUSHJ P,[TYPEIT (READ PARITY)
POPJ P,0]
TRNE P3,1B34
PUSHJ P,[TYPEIT (WRITE PARITY)
POPJ P,0]
TRNE P3,1B35
PUSHJ P,[TYPEIT (ADDR PARITY)
POPJ P,0]
SBDLS1:; AOBJN P1,.+1 ;UPDATE POINTER
; AOBJN P1,.+1
SETZ P3,
SBDLS2: SKIPN P2,1(P1) ;GET FUNCTION 1
JRST SBDLS3 ;SETUP FOR NEXT
TYPEIT <
CONTROLLER: >
MOVE T1,SBDNAM(P3) ;CONTROLLER #
PUSHJ P,.TSIXN
PUSHJ P,.TSPAC
PUSHJ P,.TSPAC
LDB T2,[POINT 4,P2,11] ;GET TYPE
PUSH P,T2 ;SAVE IT
MOVE T1,SBDTYP(T2)
PUSHJ P,.TSIXN
PUSHJ P,.TSPAC
PUSHJ P,.TSPAC
POP P,T3 ;GET MEMORY TYPE BACK
LDB T2,[POINT 4,P2,7] ;# OF MODULES
SETZ T1,
TRNE T2,1B35 ;SM0 PRESENT?
ADDI T1,1
TRNE T2,1B34 ;SM1?
ADDI T1,1
TRNE T2,1B33 ;SM2?
ADDI T1,1
TRNE T2,1B32 ;SM3?
ADDI T1,1
MUL T1,SBDSIZ(T3) ;TIMES UNIT SIZE
MOVE T1,T2 ;ANSWER TO T1
PUSHJ P,.TDECW
TYPEIT < K>
TYPEIT <
F0: >
MOVE T1,0(P1) ;GET FUNCTION 0
PUSHJ P,.TXWDW
TYPEIT < F1: >
MOVE T1,1(P1) ;GET FUNCTOON 1
PUSHJ P,.TXWDW
TYPEIT <
INTERLEAVE MODE: >
MOVE T2,0(P1) ;GETFINCTION0
LDB T3,[POINT 2,T2,7]
MOVE T1,SBDINT(T3) ;POINTER TO ASCIZ OF INT. MODE
PUSHJ P,.TSTRG
TYPEIT <
REQ ENABLED: >
MOVE P2,1(P1) ;GET FUNCTION 1
TRNN P2,1B32 ;0?
JRST .+3
TYPEIT <0 >
TRNN P2,1B33
JRST .+3
TYPEIT <1 >
TRNN P2,1B34
JRST .+3
TYPEIT <2 >
TRNN P2,1B35
JRST .+3
TYPEIT (3)
TYPEIT <
LOWER ADDRESS BOUNDARY: >
MOVE P2,1(P1) ;GET FUNCTION 1
LDB T1,[POINT 8,P2,21] ;GETS ADDRESS BITDS
LSH T1,^D14 ;MOVED OVER TO CONVERT TO BETTER FORMAT
PUSHJ P,.TOCTW
TYPEIT <
UPPER ADDRESS BOUNDARY: >
LDB T1,[POINT 4,P2,25] ;GETS 18-21
LSH T1,^D14 ;MOVED TO CORRECT PLACE
LDB T2,[POINT 4,P2,17] ;GET 14-17
HRL T1,T2 ;SETSUP 14-21 FOR UPPER ADDR
TRO T1,37777 ;SET THE OTHER BITS
PUSHJ P,.TOCTW
TYPEIT <
ERRORS DETECTED: >
MOVE P2,0(P1)
LDB P4,[POINT 6,P2,5] ;6 ERROR BITS
SKIPN P4 ;ANY SET?
PUSHJ P,[TYPEIT (NONE)
POPJ P,0]
TRNE P4,1B32 ;INC CYCLE?
PUSHJ P,[TYPEIT (INC CYCLE)
POPJ P,0]
TRNE P4,1B33 ;READ PARITY
PUSHJ P,[TYPEIT (READ PARITY)
POPJ P,0]
TRNE P4,1B34
PUSHJ P,[TYPEIT (WRITE PARITY)
POPJ P,0]
TRNE P4,1B35
PUSHJ P,[TYPEIT (ADDR PARITY)
POPJ P,0]
SBDLS3: AOJ P3,
AOBJN P1,.+1 ;UPDATE POINTER TWICE
AOBJN P1,SBDLS2 ;DO NEXT CONTROLLER YX
POPJ P,0 ;ALL DONE
SBDNAM: SIXBIT/#0/
SIXBIT/#1/
SIXBIT/#2/
SIXBIT/#3/
SBDTYP: SIXBIT/CUST/
SIXBIT/MA20/
SIXBIT/DMA20/
SIXBIT/MB20/
SIXBIT/UNKN/
SBDSIZ: 0
^D16
0
^D32
0
SBDINT: [ASCIZ/OFF-LINE/]
[ASCIZ/NONE/]
[ASCIZ/2-WAY/]
[ASCIZ/4-WAY/]
SUBTTL CONFIGURATION CHANGE ROUTINES
;START EDIT [1204]
CS%001: PUSHJ P,.TCRLF
LDB P2,[CS.OPR+WKBUFF] ;OUTPUT CORRECT OPERATION CODE
CAIN P2,CS%ADV
JRST [TYPEIT < ATTACH >
JRST CS%01A]
CAIN P2,CS%DDV
JRST [TYPEIT < DETACH >
JRST CS%01A]
WARN < UNKNOWN CONFIGURATION CHANGE OPERATION!>
JRST ABORT
CS%01A: LDB P2,[CS.UTP+WKBUFF] ;OUTPUT DRIVE TYPE
PUSHJ P,DRVTYP
TYPEIT < S/N:> ;OUTPUT DRIVE SERIAL #
LDB T1,[CS.DSN+WKBUFF] ; [1215]
PJRST .TDECW ; & RETURN TO CONTROL TABLE
CS%002: TYPEIT < AT CHANNEL #> ;OUTPUT CHANNEL # [1215]
LDB T1,[CS.CHN+WKBUFF]
PUSHJ P,.TOCTW
TYPEIT < CONTROLLER #> ;OUTPUT CONTROLLER #
LDB T1,[CS.CON+WKBUFF]
PUSHJ P,.TOCTW
TYPEIT < UNIT #> ;OUTPUT UNIT #
LDB T1,[CS.UNI+WKBUFF]
PJRST .TOCTW ; & RETURN TO CONTROL TABLE
;DISPATCH TABLE OF DEVICE SERIAL NUMBER DECODING ROUTINES IN RH OF LIST
;THIS TABLE MUST BE KEPT IN LINE WITH THE UNIT TYPE TABLE IN THE UNIVERSAL
; FILE. IN PARTICULAR THERE MUST BE AT LEAST ".UTMAX" ITEMS IN THE TABLE.
SN.LST: [JRST ABORT] ;ILLEGAL DEVICE
XWD 0,DSERCD ;RP04
XWD 0,DSERCD ;RS04
XWD 0,DSERCD ;TU45
XWD 0,DSERCD ;TU16
XWD 0,DSERCD ;RP05
XWD 0,DSERCD ;RP06
XWD 0,DSERCD ;RP07
XWD 0,.ODECW ;RP08
XWD 0,DSERCD ;RM03
XWD 0,DSERCD ;TM03
XWD 0,DSERCD ;TU77
XWD 0,DSERCD ;TM78
XWD 0,DSERCD ;TU78
XWD 0,.ODECW ;DX20
XWD 0,.ODECW ;TU70
XWD 0,.ODECW ;TU71
XWD 0,.ODECW ;TU72
XWD 0,.ODECW ;TU73
;DISPATCH ROUTINE TO DO DRIVE SERIAL NUMBER CORRECTLY (S/N IN P2)
DRV$SN: LDB T2,[CS.UTP+WKBUFF] ;GET DEVICE TYPE
HRRZ T2,SN.LST(T2) ;GET S/N ROUTINE
MOVE T1,P2 ; .ODECW NEEDS S/N IN T1
PJRST @T2 ;PRINT S/N
;ROUTINE TO OUTPUT CHANNEL TYPE (CHANNEL TYPE IN P2)
CHNTYP: MOVE T1,RHTYP(P2) ;GET CHANNEL TYPE OUT OF TABLE [1204]
PJRST .TSIXN ;TYPE IT OUT AND RETURN
;END EDIT [1204]
SUBTTL FRONT-END ROUTINES
;FE%DEV CODE MOVED TO LIB FOR ENTRY 21 USE [1006]
;HERE FOR FRONT END DEVICE REPORTING
;P2 HAS FE%COD
FE%001: TYPEIT <
DEVICE: >
HRRZ T1,P2 ;GET DEV TYPE ALONE
CAIG T1,0 ;LEGAL TYPE? START EDIT [514]
JRST FE$UNK ;NO! - UNKNOWN
CAIG T1,11 ;HARDWARE DEVICE?
JRST FE%HRD ;YES!
CAIGE T1,200 ;LEGAL PSEUDO TYPE?
JRST FE$UNK ;NO! - UNKNOWN
CAILE T1,211 ;OVER RANGE?
JRST FE$UNK ;YES! - UNKNOWN
JRST FE%004 ;NOPE
FE%HRD: MOVE T1,FE$NAM(P2) ;GET DEVICE NAME END EDIT [514]
PUSHJ P,.TSIXN ;IN SIXBIT
TYPEIT < # >
HLRZ T1,P2 ;GET DEV #
TRZ T1,1B18 ;CLR THE I DON'T KNOW BIT
PUSHJ P,.TOCTW ;OUTPUT # [730]
PUSHJ P,.TCRLF
TLNN P2,1B18 ;"I DON'T KNOW"?
JRST FE%002 ;NO
TYPEIT < **DEVICE UNKNOWN TO TOPS**
>
;NOW GO TO DEVICE DEPENDENT ROUTINES WITH POINTERIN P1
FE%002: HRRZ P1,WKBUFF+FE%OFF
PUSHJ P,@FE%003(P2)
POPJ P,0
FE$NAM: SIXBIT/UNK/ ; [1200]
SIXBIT/CTY/
SIXBIT/DL11C/
SIXBIT/DH11/
SIXBIT/DLSCAN/
SIXBIT/LP20/
SIXBIT/CD20/
SIXBIT/CLOCK/
SIXBIT/FE DEV/
SIXBIT/UNK/
FEHNAM: SIXBIT/KLCPU/ ;200
SIXBIT/KLERR/ ;201
SIXBIT/UNK/ ;202
SIXBIT/UNK/ ;203
SIXBIT/UNK/ ;204
SIXBIT/UNK/ ;205 START EDIT [514]
SIXBIT/UNK/ ;206
SIXBIT/UNK/ ;207
SIXBIT/KLINIK/ ;210
SIXBIT/UNK/ ;211 END EDIT [514]
FE%005: 0,,FE$KLS ;KL RELOAD REPORT FROM FRONT END
0,,FE$KLF ;KLERROR FILE DUMP
0,,FE$UNK ;202
0,,FE$UNK ;203
0,,FE$UNK ;204
0,,FE$UNK ;205 START EDIT [514]
0,,FE$UNK ;206
0,,FE$UNK ;207
0,,FE%KLI ;KLINIK EVENT - SHOULD NEVER COME HERE
0,,FE$UNK ;211 END EDIT [514]
FE%003: 0,,FE$UNK
0,,FE$UNK
0,,FE$UNK
0,,FE$DH1
0,,FE$UNK
0,,FE$LP0 ;LP20 ROUTINE
0,,FE$CD0 ;CD20 ROUTINE
0,,FE$UNK
0,,FE$UNK
0,,FE$UNK
FE$UNK: TYPEIT < - DEVICE IS UNKNOWN TO SYSERR
>
TYPEIT <
DEVICE CODE: >
HRRZ T1,WKBUFF+FE%COD ;GET DEV CODE
PUSHJ P,.TOCTW ;IN OCTAL
UN$KLI: TYPEIT <
DATA IN ERROR BLOCK IN 8 BIT:
>
MOVE P2,WKBUFF+FE%OFF ;GET OFFSET
ADDI P2,WKBUFF ;CORRECT IT
FE$UN1: PUSHJ P,.TTABC
MOVE T1,0(P2) ;GET VALUE
PUSHJ P,BYTE.8 ;IN 8 BIT FORMAT
PUSHJ P,.TCRLF
AOBJN P2,FE$UN1 ;MORE TO DO
POPJ P,0
FE%004: SUBI T1,200 ;REMOVE OFFSET
MOVE P3,T1 ;SAVE IT
MOVE T1,FEHNAM(P3) ;GET A NAME
PUSHJ P,.TSIXN
HRRZ P1,WKBUFF+FE%OFF ;SETUP OFFSET
PUSHJ P,@FE%005(P3) ;GO TO DEVICE ROUTINES
POPJ P,0 ;THEN BACK TO PROCSD
COMMENT \ I THINK THIS ROUTINE CAN BE REMOVED [PJB]
;ROUTINE TO UNPACK 3 WORDS FROM KLEFIL INTO ONE
;PDP-10 WORD IN T1. P1 HOLDS POINTER TO 1ST
;WORD AND IS UPDATED IN THIS ROUTINE.
FE$BWD: MOVE T2,KLEFIL(P1) ;GET 1ST PORTION
DPB T2,[POINT 16,T1,35]
ADDI P1,1 ;UPDATE
MOVE T2,KLEFIL(P1) ;GET 2ND
DPB T2,[POINT 16,T1,19]
ADDI P1,1 ;UPDATE AGAIN
MOVE T2,KLEFIL(P1) ;GET 3RD
DPB T2,[POINT 4,T1,3] ;LAST BITS
POPJ P,0 ;WORD IN T1 SO RETURN
\
FE$LP0: TYPEIT <
STD. STATUS: >
MOVE P1,WKBUFF+FE%OFF ;GET FUL OFFSETWORD
ADDI P1,WKBUFF ;CORRECT TO POINT INTO WKBUFF
LDB T1,[POINT 16,(P1),15] ;GET DV.XXX
PUSH P,P1 ;SAVE A POINTER
PUSH P,T1 ;SAVE THE WORD
PUSHJ P,.TOCTW
MOVEI T1,36 ;CORRECTOFFSET
MOVEM T1,KONTYP
TYPEIT < = >
POP P,P1 ;GET THE WORD BACK
PUSHJ P,CNIDCD ;1 FOR ONE XLATION
;NOW FOR 2ND STATUS BYTE
TYPEIT <
LP20 GEN STATUS: >
POP P,P1 ;GET POINTER BACK
PUSH P,P1 ;SAVE IT STILL
LDB T1,[POINT 16,(P1),31] ;GET DD.LP20
PUSH P,T1 ;SAVEIT
PUSHJ P,.TOCTW
POP P,P1 ;GET IT BACK
MOVEI T1,37 ;OFFSET
MOVEM T1,KONTYP ;SETUP
TYPEIT < = >
PUSHJ P,CNIDCD
POP P,P1 ;GET POINTER BACK
AOBJN P1,.+1 ;SKIP 2 11-WORDS FOR NOW
AOBJN P1,.+1 ;POINT AT NEXT TWO
HRLI P1,-^D8 ;# OF REGISTERS TO LIST
HRLI P2,LP$REG ;ADDR OF REG NAMES
HRRI P2,LP$CON ;ADDR OF CONTROL TABLE
TYPEIT <
LP20 DEVICE REGISTERS
>
PUSHJ P,LSTEB ;LIST DEVICE REGISTERS
PUSHJ P,TITLST ;START ON NEXT PAGE
POPJ P,0
;TABLES FOR LP20 LISTINGS
LP$REG: SIXBIT/LPCSRA/
SIXBIT/LPCSRB/
SIXBIT/LPBSAD/
SIXBIT/LPBCTR/
SIXBIT/LPPCTR/
SIXBIT/LPRAMD/
SIXBIT/LPCCTR/
SIXBIT/LPTDAT/
LP$CON: 40,,0
41,,0
-1,,NOTRAN
-1,,NOTRAN
-1,,NOTRAN
-1,,NOTRAN
-1,,LPCLST
-1,,LPDLST
;DH11 ROUTINES (UPDATED WITH EDIT 1210)
FE$DH1: TYPEIT <
STD. STATUS: >
MOVE P1,WKBUFF+FE%OFF ;GET OFFSET WORD
ADDI P1,WKBUFF ; & POINT INTO WKBUFF
LDB T1,[STD.ST(P1)] ;GET STANDARD STATUS WORD
PUSH P,P1 ;SAVE A POINTER
PUSH P,T1 ;SAVE THE WORD
PUSHJ P,.TOCTW
TYPEIT < = >
; POP P,P1 ;GET THE WORD BACK
; PUSH P,P1 ;AND SAVE IT STILL
MOVE P1,0(P) ;[1247] REPLACES ABOVE 2 INSTS.
MOVEI T1,36 ;CORRECT OFFSET
MOVEM T1,KONTYP
PUSHJ P,CNIDCD ;1 FOR ONE XLATION
POP P,P2 ;GET THE WORD BACK
POP P,P1 ;AND THE POINTER
TRNE P2,1B26 ;IF HUNG DEVICE
JRST FE$DHB ; DUMP 4 COUNTERS
;START EDIT [1223]
TYPEIT <
DH11 UNIBUS ADDRESS: >
LDB T1,[DH.ADR(P1)] ;GET ADDRESS WORD
PUSHJ P,.TOCTW ;DUMP IN OCTAL
TYPEIT < = DH11 #>
LDB T1,[DH.RHN(P1)] ;GET DH11 #+1
SOS T1 ;MAKE IT REAL DH11 #
PUSHJ P,.TOCTW ;DUMP IN OCTAL
LDB P2,[DH.SCR(P1)] ;GET SYSTEM CONTROL REGISTER
JUMPE P2,FE$DHA ; & SKIP IF 0
TYPEIT <
SYSTEM CONTROL REG: >
MOVE T1,P2
PUSH P,P1 ;SAVE A POINTER
PUSH P,T1 ;SAVE THE WORD
PUSHJ P,.TOCTW
TYPEIT < = >
POP P,P1 ;GET THE WORD BACK
MOVEI T1,57 ;CORRECT OFFSET
MOVEM T1,KONTYP
PUSHJ P,CNIDCD ;1 FOR ONE XLATION
TYPEIT <LINE #>
POP P,P1 ;GET THE POINTER
LDB T1,[DH.LIN(P1)] ;GET LINE NUMBER
PUSHJ P,.TOCTW
FE$DHA: LDB P2,[DH.NRC(P1)] ;GET RECEIVED CHARACTER REGISTER
SKIPN P2 ; & QUIT IF 0
POPJ P,0
TYPEIT <
RECEIVED CHAR REG: >
MOVE T1,P2
PUSH P,P1 ;SAVE A POINTER
PUSH P,T1 ;SAVE THE WORD
PUSHJ P,.TOCTW
TYPEIT < = >
POP P,P1 ;GET THE WORD BACK
MOVEI T1,60 ;CORRECT OFFSET
MOVEM T1,KONTYP
PUSHJ P,CNIDCD ;1 FOR ONE XLATION
TYPEIT <LINE #> ;[1247]
POP P,P1 ;GET THE POINTER
LDB T1,[DH.NLN(P1)] ;GET NEXT LINE NUMBER
PUSHJ P,.TOCTW
TYPEIT <,CHAR=> ;[1247]
LDB T1,[DH.NCH(P1)] ;GET NEXT CHARACTER
PJRST .TOCTW ;THAT'S ALL TO LIST
;END EDIT [1223]
FE$DHB: TYPEIT <
CONTENTS OF COUNTERS: >
LDB T1,[DH.CT1(P1)] ;GET FIRST
PUSHJ P,.TOCTW ;LIST IT
PUSHJ P,.TCRLF
PUSHJ P,.TTABC
LDB T1,[DH.CT2(P1)] ;GET SECOND
PUSHJ P,.TOCTW
PUSHJ P,.TCRLF
PUSHJ P,.TTABC
LDB T1,[DH.CT3(P1)] ;GET THIRD
PUSHJ P,.TOCTW
PUSHJ P,.TCRLF
PUSHJ P,.TTABC
LDB T1,[DH.CT4(P1)] ;GET FOURTH
PJRST .TOCTW ;THAT'S ALL TO LIST
FE$CD0: TYPEIT <
STD. STATUS: >
MOVE P1,WKBUFF+FE%OFF ;GET FUL OFFSETWORD
ADDI P1,WKBUFF ;CORRECT TO POINT INTO WKBUFF
LDB T1,[POINT 16,(P1),15] ;GET DV.XXX
PUSH P,P1 ;SAVE A POINTER
PUSH P,T1 ;SAVE THE WORD
PUSHJ P,.TOCTW
MOVEI T1,36 ;CORRECTOFFSET
MOVEM T1,KONTYP
TYPEIT < = >
POP P,P1 ;GET THE WORD BACK
PUSHJ P,CNIDCD ;1 FOR ONE XLATION
;NOW FOR 2ND STATUS BYTE
TYPEIT <
CD20 GEN STATUS: >
; POP P,P1 ;GET POINTER BACK
; PUSH P,P1 ;SAVE IT STILL
MOVE P1,0(P) ;[1247]REPLACES ABOVE 2 INSTS.
LDB T1,[POINT 16,(P1),31] ;GET DD.CD11
PUSH P,T1 ;SAVEIT
PUSHJ P,.TOCTW
PUSHJ P,.TTABC
POP P,P1 ;GET IT BACK
MOVEI T1,42 ;OFFSET
MOVEM T1,KONTYP ;SETUP
TYPEIT < = >
PUSHJ P,CNIDCD
POP P,P1 ;GET POINTER BACK
AOBJN P1,.+1 ;SKIP 2 BYTES FOR NOW
TYPEIT <
CD20 DEVICE REGISTERS
>
MOVE T1,[SIXBIT/CD11ST/]
PUSHJ P,.TSIXN ;INSIXBIT
PUSHJ P,.TTABC
LDB T1,[POINT 16,(P1),31]
PUSH P,T1 ;SAVE IT
PUSHJ P,.TOCTW ;IN OCTAL
MOVEI T1,43 ;OFFSET FOR THIS REG
MOVEM T1,KONTYP
PUSHJ P,.TTABC ;SOME SPACE
POP P,T1 ;GETWORD BACK
PUSHJ P,SAVE4P ;SAVE AC'S
MOVE P1,T1 ;SETUP
TYPEIT < = >
PUSHJ P,CNIDCD ;GO DECODE
PUSHJ P,RET4P ;RETURN THOSE AC'S
PUSHJ P,.TCRLF
AOBJN P1,.+1 ;ADJUST FOR WORDS WE JUST DID
HRLI P1,-^D3 ;# OF REGISTERS TO LIST
HRLI P2,CD$REG ;ADDR OF REG NAMES
HRRI P2,CD$CON ;ADDR OF CONTROL TABLE
PUSHJ P,LSTEB ;LIST DEVICE REGISTERS
PUSHJ P,TITLST ;START ON NEXT PAGE
POPJ P,0
;TABLES FOR CD11 LISTINGS
CD$REG: SIXBIT/CD11CC/
SIXBIT/CD11BA/
SIXBIT/CD11DB/
CD$CON: -1,,NOTRAN
-1,,NOTRAN
-1,,NOTRAN
;KLCPU
FE$KLS: TYPEIT <
STD. STATUS: >
MOVE P1,WKBUFF+FE%OFF ;GET FUL OFFSETWORD
ADDI P1,WKBUFF ;CORRECT TO POINT INTO WKBUFF
LDB T1,[POINT 16,(P1),15] ;GET DV.XXX
PUSH P,P1 ;SAVE A POINTER
PUSH P,T1 ;SAVE THE WORD
PUSHJ P,.TOCTW
MOVEI T1,36 ;CORRECTOFFSET
MOVEM T1,KONTYP
TYPEIT < = >
POP P,P1 ;GET THE WORD BACK
PUSHJ P,CNIDCD ;1 FOR ONE XLATION
;NOW FOR 2ND STATUS BYTE
TYPEIT <
KL RELOAD STATUS FROM FRONT END: >
; POP P,P1 ;GET POINTER BACK
; PUSH P,P1 ;SAVE IT STILL
MOVE P1,0(P) ;[1247]REPLACES ABOVE 2 INSTS.
LDB T1,[POINT 16,(P1),31] ;GET DD.KLWD
PUSH P,T1 ;SAVEIT
PUSHJ P,.TOCTW
PUSHJ P,.TTABC
POP P,P1 ;GET IT BACK
MOVEI T1,46 ;OFFSET
MOVEM T1,KONTYP ;SETUP
TYPEIT < = >
PUSHJ P,CNIDCD
POP P,P1 ;GET POINTER BACK
POPJ P,0 ;THAT'S ALL
;FE.KLI (FE$KLI) CODE MOVED TO LIB FOR USE BY 21 ENTRY [1006]
;CHECK FOR KLINIK EVENT
FE%KLI: HRRZ T1,P2 ;GET TYPE ALONE (FE%COD)
CAIE T1,.KLINK ;IS THIS KLINIK EVENT?
POPJ P,0 ;NO! - OK - LEAVE
TYPEIT <
!!!! KLINIK EVENT: > ;YES!
;FIND MESSAGE TYPE
MOVE P1,WKBUFF+FE%OFF ;GET PACKET OFFSET
ADDI P1,WKBUFF ;CREATE POINTER
LDB T1,[K.LTYP(P1)] ;GET EVENT TYPE
CAIN T1,K.LCKL ;CLEAR KLINIK?
PJRST K%LCKL ;YES! - LIST
CAIL T1,0 ;NO! - GOOD MESSAGE TYPE?
CAILE T1,K.LRBA ;MAYBE! - HIGH SIDE GOOD?
PJRST KLI$UN ;NO! - REPORT ERROR
LDB T2,[K.LCOD(P1)] ;YES! - PASS EVENT CODE IN T2
PJRST @KLI%TY(T1) ;REPORT EVENT
KLI$UN: TYPEIT <BAD KLINIK MESSAGE TYPE !!!!
>
WARN <*BAD KLINIK MESSAGE TYPE*
>
PUSHJ P,UN$KLI ;OUTPUT IN OCTAL
JRST ABORT ;GIVE UP
;MESSAGE TYPE DISPATCH TABLE
; DOES NOT INCLUDE 'CLEAR KLINIK' (-1 IN 8BIT IS 377)
KLI%TY: 0,,KLI$UN ;(0) UNKNOWN
0,,K%LSKL ;(1) SET KLINIK
0,,K%LRNG ;(2) KLINIK LINE RING
0,,K%LDSC ;(3) KLINIK LINE DISCONNECT
0,,K%LCON ;(4) KLINIK LINE CONNECT
0,,K%LBPW ;(5) KLINIK BAD PASSWORD
0,,K%LLTO ;(6) KLINIK UNSUCCESSFUL LOGON
0,,K%LRBA ;(7) KLINIK ACTIVE ON REBOOT
;CLEAR KLINIK (-1)(377)
K%LCKL: TYPEIT <CLEAR - WINDOW CLOSED !!!!
>
JRST ABORT ;THAT'S ALL
;SET KLINIK (1)
K%LSKL: TYPEIT <SET !!!!
>
;KLINIK PARAMETERS (-1,1)
K%LSCK: TYPEIT <WINDOW OPENED FROM >
LDB T1,[POINT 16,1(P1),15] ;GET OPEN TIME
IMULI T1,^D2000 ;CHANGE TO MILLISEC
PUSHJ P,.TTIME ;OUTPUT HH:MM:SS
PUSHJ P,.TSPAC ;OUTPUT SPACE
LDB P2,[POINT 8,1(P1),23] ;GET OPEN MONTH
LDB P3,[POINT 8,1(P1),31] ;GET OPEN YEAR
LDB T1,[POINT 8,2(P1),15] ;GET OPEN DAY
PUSHJ P,K.DATE ;OUTPUT DD-MMM-YY
TYPEIT < TO >
LDB T1,[POINT 16,2(P1),31] ;GET CLOSE TIME
IMULI T1,^D2000 ;CHANGE TO MILLISEC
PUSHJ P,.TTIME ;OUTPUT HH:MM:SS
PUSHJ P,.TSPAC ;OUTPUT SPACE
LDB P2,[POINT 8,3(P1),7] ;GET CLOSE MONTH
LDB P3,[POINT 8,3(P1),15] ;GET CLOSE YEAR
LDB T1,[POINT 8,3(P1),31] ;GET CLOSE DAY
PUSHJ P,K.DATE ;OUTPUT DD-MMM-YY
TYPEIT <
FOR >
LDB T1,[POINT 8,4(P1),15] ;GET MODE
CAIN T1,377 ;USER MODE?
PJRST K%LUSR ;YES!
LDB T2,[POINT 8,4(P1),7] ;NO! - GET LIMIT [605]
;TRANSLATE 11 LIMIT WORD TO AGREE WITH THOSE FOR
; MODE IN RING ACCEPTED
IDIVI T2,3 ;1,3,7 TO 0,1,2 [605]
ADDI T2,1 ;0,1,2 TO 1,2,3 [605]
PJRST K.CON ;USE ROUTINE FOR RING
;K.DATE -- KLINIK DATE ROUTINE
;OUTPUTS DATE WITH ALPHA MONTH: "DD-MMM-YY"
;CALL: MOVEI T1,DAY OF MONTH (1-31)
; MOVEI P2,MONTH (1-12)
; MOVEI P3,YEAR (BASE DATE 1900)
; PUSHJ P,K.DATE
;USES: T1,T2,T3,P2,P3
K.DATE: PUSHJ P,.TDECW ;OUTPUT DAY
MOVE T1,.MONTH(P2) ;GET SIXBIT MONTH
PUSHJ P,.TSIXN ;OUTPUT MONTH
MOVE T1,P3 ;GET YEAR
PUSHJ P,.TDECW ;OUTPUT YEAR
POPJ P,0 ;RETURN
.MONTH: 0
SIXBIT/-JAN-/
SIXBIT/-FEB-/
SIXBIT/-MAR-/
SIXBIT/-APR-/
SIXBIT/-MAY-/
SIXBIT/-JUN-/
SIXBIT/-JUL-/
SIXBIT/-AUG-/
SIXBIT/-SEP-/
SIXBIT/-OCT-/
SIXBIT/-NOV-/
SIXBIT/-DEC-/
;KLINIK LINE RING (2)
K%LRNG: TYPEIT <RING >
CAIN T2,1 ;ACCEPTED?
PJRST K%LRAC ;YES!
CAIN T2,377 ;NO! - REJECTED? (-1)
PJRST K%LRRJ ;YES!
K$LERR: TYPEIT <ILLEGAL MODE ERROR !!!!> ;NO! - HUH! [605]
JRST ABORT ;GIVE UP
K%LRAC: TYPEIT <ACCEPTED !!!!> ;WINDOW OPEN (1)
JRST ABORT ;THAT'S ALL
K%LRRJ: TYPEIT <REJECTED !!!!> ;WINDOW CLOSED (-1)
JRST ABORT ;THAT'S ALL
;KLINIK LINE DISCONNECT (3)
K%LDSC: TYPEIT <DISCONNECTED >
CAIN T2,1 ;ON PURPOSE?
PJRST K%LDCM ;YES!
CAIN T2,377 ;NO! - LINE DROP? (-1)
PJRST K%LDRP ;YES!
PJRST K$LERR ;NO! - HELP!
K%LDCM: TYPEIT <BY CTY OR TIMEOUT !!!!>
JRST ABORT ;THAT'S ALL
K%LDRP: TYPEIT <- LINE DROP DETECTED !!!!>
JRST ABORT ;THAT'S ALL
;KLINIK LINE CONNECT (4)
K%LCON: TYPEIT <CONNECTED IN >
K%CON: CAIN T2,377 ;USER MODE?
PJRST K%LUSR ;YES!
K.CON: TYPEIT <REMOTE > ;NO!
CAILE T2,0 ;MODE IN RANGE?
CAILE T2,3 ;MAYBE! - HIGH SIDE GOOD?
PJRST K$LERR ;NO! - BAD MODE
PJRST @K$LCON(T2) ;YES!
K$LCON: 0,,K$LERR ;BAD MODE
0,,K%LROP ;(1) REMOTE OPERATOR (1)
0,,K%LRPR ;(2) REMOTE PROGRAMMER (3)
0,,K%LRMN ;(3) REMOTE MAINTENANCE (7)
K%LUSR: TYPEIT <USER> ;(-1) (377)
JRST K$MODE
K%LROP: TYPEIT <OPERATOR> ;(1)
JRST K$MODE
K%LRPR: TYPEIT <PROGRAMMER> ;(2)
JRST K$MODE
K%LRMN: TYPEIT <MAINTENANCE> ;(3)
K$MODE: TYPEIT < CONSOLE MODE !!!!>
JRST ABORT ;THAT'S ALL
;KLINIK BAD PASSWORD (5)
K%LBPW: TYPEIT <BAD PASSWORD #>
MOVE T1,T2 ;GET # IN 'T1'
PUSHJ P,.TDECW ;OUTPUT IT
TYPEIT < IS: >
LDB T1,[K.BPW1(P1)] ;GET FIRST CHARACTER
PUSHJ P,.TCHAR ;TYPE IT
LDB T1,[K.BPW2(P1)] ;SECOND
PUSHJ P,.TCHAR
LDB T1,[K.BPW3(P1)] ;THIRD
PUSHJ P,.TCHAR
LDB T1,[K.BPW4(P1)] ;FOURTH
PUSHJ P,.TCHAR
LDB T1,[K.BPW5(P1)] ;FIFTH
PUSHJ P,.TCHAR
LDB T1,[K.BPW6(P1)] ;SIXTH
PUSHJ P,.TCHAR
TYPEIT < !!!!>
JRST ABORT ;THAT'S ALL
;KLINIK UNSUCCESSFUL LOGON (6)
K%LLTO: TYPEIT <UNSUCCESSFUL LOGON - >
MOVE T1,T2 ;GET # OF GOOD PASSWORDS
PUSHJ P,.TDECW ;OUTPUT IT
TYPEIT < PASSWORDS ATTEMPTED !!!!>
JRST ABORT ;THAT'S ALL
;KLINIK ACTIVE ON REBOOT (7)
K%LRBA: TYPEIT <ACTIVE IN >
PJRST K%CON ;SAME AS 'KLINIK CONNECT'
;THIS IS A MAP OF TE FORMAT OF TE KLERROR FILE AFTER
;IT IS REBUILT INTO SYSER'S LOW SEGMENT. THE DEFINED
;VALUES ARE THE OFFSETS TO THHE START OF THE FILE.
KR.FTY==0 ;KLERROR FORMAT VERSION
KR.RLC==1 ;RECORD LENGTH IN BYTES
KR.TMYR==2 ;TIME OF DAY - YEAR
KR.TMMO==3 ; - MONTH
KR.TMDA==4 ; - DAY
KR.TMHR==5 ; - HOUR
KR.TMMI==6 ; - MINUTE
KR.TMSE==7 ; - SECOND
KR.KSN==12 ;KL SER #
KR.ESN==13 ;FE SER #
KR.UVN==14 ;MICRO CODE VERSION
KR.MVN==15 ;MONITOR VERSION
KR.RVN==21 ;FE SOFT VER #
KR.ECD==23 ;ERROR CODE
KR.DG1==24 ;DTE DIAG 1
KR.DG2==25 ;DTE DIAG 2
KR.DGS==26 ;DTE DIAG STATUS
KR.DG3==27 ;DTE DIAG 3
KR.FNR==30 ;START OF FUNCTION READ VALUES
KR.IPE==330 ;-11 RAD 50 ERROR WROD
KR.CHK==337 ;CHECKSUM FOR ABOVE DATA
;HERE ARE ROUTINES TO DUMP KLEFIL
FE$KLF: TYPEIT <
CONTENTS OF KLERROR FILE:
>
TYPEIT <CONTENTS OF RECORD #1 SEEN AT FIRST ERROR
>
KLFCON: TYPEIT < CREATED: >
MOVEI P1,KR.TMYR ;OFFSET TO START OF DATE/TIME
MOVE T1,KLEFIL+1(P1) ;GET MONTH FIRST
PUSHJ P,.TDECW ;IN DECIMAL
PUSHJ P,.TCOLN
MOVE T1,KLEFIL+2(P1) ;NOW DAY
PUSHJ P,.TDECW
PUSHJ P,.TCOLN
MOVE T1,KLEFIL(P1) ;YEAR
PUSHJ P,.TDECW
TYPEIT < AT: >
MOVE T1,KLEFIL+3(P1) ;NOW HOUR
PUSHJ P,.TDECW
PUSHJ P,.TCOLN
MOVE T1,KLEFIL+4(P1) ;MINUTES
PUSHJ P,.TDECW
PUSHJ P,.TCOLN
MOVE T1,KLEFIL+5(P1) ;SECONDS
PUSHJ P,.TDECW
TYPEIT < FILE FORMAT VERSION: >
MOVE T1,KLEFIL ;1ST WORD IS VERSION #
PUSHJ P,.TOCTW
TYPEIT < RECORD LENGTH: >
MOVEI P1,KR.RLC ;OFFSET TO VALUE
MOVE T1,KLEFIL(P1) ;GET THAT VALUE
PUSHJ P,.TOCTW
TYPEIT < BYTES
>
; TYPEIT < BYTES
; U-CODE VER: >
; MOVEI P1,KR.UVN
; MOVE T1,KLEFIL(P1) ;GET THAT VALUE
; PUSHJ P,.ODECW ;IN DECIMAL
; TYPEIT < FE SER #: >
; MOVEI P1,KR.ESN
; MOVE T1,KLEFIL(P1) ;GET THAT VALUE
; PUSHJ P,.ODECW ;IN DECIMAL
; TYPEIT < KL SER #: >
; MOVEI P1,KR.KSN
; MOVE T1,KLEFIL(P1) ;GET THAT VALUE
; PUSHJ P,.ODECW ;IN DECIMAL
; TYPEIT <
; MONITOR VER: >
; MOVEI P1,KR.MVN
; PUSHJ P,FE$BWD ;GET 3 WORDS
; PUSHJ P,.ODECW
;ABOVE 17 LINES REMOVED WITH EDIT 517
; TYPEIT < FE SOFTWARE VER: >
; MOVEI P1,KR.RVN
; MOVE T1,KLEFIL(P1) ;GET THAT VALUE
; PUSHJ P,.ODECW ;IN DECIMAL
MOVEI P1,KR.ECD
MOVE T1,KLEFIL(P1) ;GET THAT VALUE
MOVE P2,T1 ;SAVE IT FOR TRANSLATION
SKIPN T1 ;[517] IF ZERO,
JRST KLFCN1 ;DON'T LIST IT
TYPEIT <
EXCEPTION CODE: >
MOVE T1,KLEFIL(P1) ;GET THAT VALUE
PUSHJ P,.TOCTW ;IN DECIMAL
TYPEIT < = >
PUSHJ P,KR%ECD ;DECODE ERROR CODE
;KR%ECD CODE MOVED TO LIB FOR ENTRY 21 USE [1006]
KLFCN1: PUSHJ P,.TCRLF
TYPEIT < DTE DIAG STATUS: >
MOVEI P1,KR.DGS
MOVE T1,KLEFIL(P1) ;GET THAT VALUE
PUSHJ P,.TOCTW ;IN DECIMAL
TYPEIT <
DTE DIAG 1: >
MOVEI P1,KR.DG1
MOVE T1,KLEFIL(P1) ;GET THAT VALUE
PUSHJ P,.TOCTW ;IN DECIMAL
TYPEIT < DTE DIAG 2: >
MOVEI P1,KR.DG2
MOVE T1,KLEFIL(P1) ;GET THAT VALUE
PUSHJ P,.TOCTW ;IN DECIMAL
TYPEIT < DTE DIAG 3: >
MOVEI P1,KR.DG3
MOVE T1,KLEFIL(P1) ;GET THAT VALUE
PUSHJ P,.TOCTW ;IN DECIMAL
;NOW DUMP FUNCTION READS
HRLI P1,-100 ;NUMBER TO DO
HRRI P1,KR.FNR ;STARTING OFFSET
MOVEI P2,0 ;WHERE TO PUT THE WORDS
FE$KL1: MOVE T2,KLEFIL(P1) ;GET 1ST PORTION
DPB T2,[POINT 16,T1,35]
ADDI P1,1 ;UPDATE
MOVE T2,KLEFIL(P1) ;GET 2ND
DPB T2,[POINT 16,T1,19]
ADDI P1,1 ;UPDATE AGAIN
MOVE T2,KLEFIL(P1) ;GET 3RD
DPB T2,[POINT 4,T1,3] ;LAST BITS
MOVEM T1,KLEFIL(P2) ;PUT AWAY THE WORD
AOS P2
AOBJN P1,FE$KL1 ;UPDATE & DO NEXT
;HERE SETUP TO CALL SYSERK TO LIST CONTENTS
SETZ 15, ;CLEAR OLD STARTING ADDRESS
MOVEI 14,FE$KLA ;SETUP RETURN ADDRESS
MOVE T1,[SIXBIT/SYSERK/]
MOVEM T1,OVRBLK+1 ;HIS NAME
MOVE 16,[SIXBIT/SYSERD/] ;OUR NAME FOR PROPER RETURN
MOVEM 17,SAVEAC+17
MOVEI 17,SAVEAC
BLT 17,SAVEAC+16 ;STORE AC'S
JRST OVRLAY ;GO REPLACE US
;WHEN SYSERK IS FINISHED IT WILL CALL SYSERD BACK AND
;THE OVERLAY WILL USE THE NEXT LINE AS THE STARTING ADDRESS INSTEAD
;OF THAT STORED BY LINK
FE$KLA: MOVEI 15,0 ;CLEAR RETURN ADDRESS
MOVEI T1,CHROUT
PUSHJ P,.TYOCH ;RE-INIT SCAN ROUTINES
PUSHJ P,.TCRLF ;NEXT LINE PLEASE
MOVEI P1,KR.IPE ;MIGHT BE LOCATION 330??
SKIPN P2,KLEFIL(P1) ;ANY ERRORS DETECTED
JRST FE$KLB ;NOPE
TYPEIT <**** DATA MAY NOT BE VALID ****>
PUSHJ P,.TCRLF
TYPEIT < ERROR DETECTED: >
MOVE T1,P2
PUSHJ P,R5VSIX ;CONVERT IT TO SIXBIT
HRLZ T1,T1 ;MOVE IT OVER
PUSHJ P,.TSIXN ;NOW DUMP IT
FE$KLB: SKIPE KLEFL1 ;-1 NOW SAYS WE JUST LISTED 2ND RECORD
JRST FE$KLC ;SO RETURN TO PROCSD
HRRZ T1,KLEPNT ;GET LAST ADDR USED TO BUILD THIS FILE
CAIG T1,KLE1FL ;USED SECOND RECORD?
JRST FE$KLC ;NO-RETURN NOE
CAIL T1,KLEFIL ;ANY WORDS IN 2ND RECORD?
JRST FE$KLC ;NO SO DON'T GO ANY FURTHER
SETOM KLEFL1 ;YES, WE MUST LIST THEM TOO
;*******
;IF DEBUGGING, BETTER PUT A BREAKPOINT HERE IF YOU WANT TO
;SEE THE CONTENTS OF THE 1ST RECORD. IT WON'T BE AROUND MUCH
;LONGER!!!!!
;********
SETZM KLEFIL ;CLEAR
MOVE T1,[XWD KLEFIL,KLEFIL+1] ;THE FIRST
BLT T1,KLEEND-1 ;FILE AREA
MOVE T1,[XWD KLE1FL,KLEFIL] ;THEN COPY THE 2ND RECORD
BLT T1,KLEEND-1 ;TO THE 1ST RECORD AREA.
PUSHJ P,TITLST ;START ON NEXT PAGE
TYPEIT <
LISTING 2ND RECORD, THE LAST ERROR SEEN
>
JRST KLFCON ;USE ALL THE SAME CODE AGAIN
FE$KLC: PUSHJ P,TITLST
SETZM KLEFL2 ;NO MORE BUILDING OF KLEFIL
SETZM KLEFL3 ;OR LISTING EITHER
SETZM KLEFL1 ;CLEAR THAT ONE TOO
POPJ P,0
;SPECIAL TRANSLATION FOR LP20 REGISTERS
LPCLST: MOVE P1,T1 ;GET WORD
TYPEIT <COL. CNTR. = >
LDB T1,[POINT 8,P1,27] ;UPPER BYTE
PUSHJ P,.TOCTW
TYPEIT < CHAR. BUF = >
LDB T1,[POINT 8,P1,35] ;LOWER BYTE
PUSHJ P,.TOCTW
PUSHJ P,.TCRLF
POPJ P,0
LPDLST: MOVE P1,T1 ;GET THE WORD
TYPEIT <CHKSUM = >
LDB T1,[POINT 8,P1,27] ;UPPER BYTE
PUSHJ P,.TOCTW
TYPEIT < LPT DATA = >
LDB T1,[POINT 8,P1,35] ;LOWER BYTE
PUSHJ P,.TOCTW
PUSHJ P,.TCRLF
POPJ P,0
;SPECIAL ROUTINE FOR CODE 131 FRONT END RELOAD
;P2 HAS R1%NUM
R1%000: TYPEIT <
FRONT END #: >
MOVEI T1,[ASCIZ/PRIVILEGED /]
TLZE P2,1B18 ;IS IT?
PUSHJ P,.TSTRG ;YUP
MOVE T1,P2
PUSHJ P,.TOCTW
MOVE P3,WKBUFF+R1%STS ;GET STATUS WORD
TYPEIT <
STATUS AT RELOAD: >
MOVE P1,P3
MOVEI T1,45 ;OFFSET
MOVEM T1,KONTYP
PUSH P,P3 ;SAVE THE STATUS WORD
PUSHJ P,CNIDCD
TYPEIT <
RETRIES: >
POP P,P3 ;GET STATUS BACK
LDB T1,[POINT 6,P3,35]
PUSHJ P,.TDECW
;[534]
;[543]
LDB P1,[POINT 16,WKBUFF+R1%ERW,17]
CAIN P1,1 ;NOTHING TO LIST?
POPJ P,0 ;YES, GO BACK
PUSH P,P1 ;SAVE P1
TYPEIT <
REASON FOR RELOAD: >
POP P,P1 ;RESTORE P1
LDB T1,[POINT 7,P1,35]
PUSHJ P,.TCHAR
LDB T1,[POINT 7,P1,27]
PUSHJ P,.TCHAR
LDB P1,[POINT 16,WKBUFF+R1%ERW,35]
LDB T1,[POINT 7,P1,35]
PUSHJ P,.TCHAR
LDB P1,[POINT 7,P1,27] ;[544]
SKIPN P1 ;IF ZERO, DONT LIST IT
POPJ P,0 ;RETURN NOW
PUSH P,P1 ;SAVE P1
TYPEIT <
HIGH 7 BITS OF ADDRESS OF PARITY ERROR: > ;[544]
POP P,T1 ;GET ADDRESS TO LIST BACK FROM STACK
PUSHJ P,.TOCTW ;[544]
POPJ P,0
;END[543]
SKIPN P1 ;IF ZERO, DONT BOTHER
POPJ P,0
TYPEIT <
11'S MEMORY STATUS REG: >
MOVE T1,P1
PUSHJ P,.TOCTW ;IN OCTAL
TYPEIT < = >
TRNN P1,1B20 ;PARITY ERROR?
JRST R1%001 ;NO
TYPEIT < PARITY ERROR >
R1%001: TRNN P1,1B35 ;ENABLED?
JRST R1%002 ;NO?
TYPEIT < ENABLED >
R1%002: TYPEIT < ADDR:(HIGH 7 BITS) >
LDB T1,[POINT 7,P1,30] ;GET IT
PUSHJ P,.TOCTW
POPJ P,0
;END [534]
POPJ P,0
;CHNSTS--ROUTINE TO LIST CHANNEL STATUS
;P2 HOLDS FIRST WORD, DEPENDS ON IDENTICAL OFFSETS TO
;INFO AS ARE USED IN SEC%MB ENTRY FORMAT
CHNSTS: TYPEIT <
CHANNEL INFORMATION:
CHAN STATUS WD 0: >
MOVE T1,P2
PUSHJ P,.TXWDW
TYPEIT < CW1: >
MOVE T1,WKBUFF+MB%CC1 ;1ST CCW
PUSHJ P,.TXWDW
TYPEIT < CW2: >
MOVE T1,WKBUFF+MB%CC2 ;2ND CCW
PUSHJ P,.TXWDW
TYPEIT <
CHN STATUS WD 1: >
MOVE T1,WKBUFF+MB%CS1
MOVE P1,T1 ;SAVE IT
PUSHJ P,.TXWDW
MOVEI T1,44 ;CORRECT OFFSET
MOVEM T1,KONTYP ;FINISH SETUP
TYPEIT < = >
PUSHJ P,CNIDCD
TYPEIT <
CHN STATUS WD 2: >
MOVE T1,WKBUFF+MB%CS2
PUSHJ P,.TXWDW
POPJ P,0 ;RETURN TO CALLER
SUBTTL MASBUSS SUBROUTINES
;MB%000 ETC-- ROUTINES TO DO MOST OF THE WORK TO LIST
;CODE 111 ENTRIES, MASSBUS DEVICE ERRORS.
;DEVICE TYPE WORD IS IN P2 WHEN WE GET HERE
;CALLED VIA PUSHJ FROM PROCSD RETURNS POPJ SEVERAL
;PAGES FROM HERE.
;CHANGED WITH [315] TO SUPPORT RP05 & RP06
MDE000: SIXBIT/UNK/ ; [1200]
SIXBIT/RP04/ ;THIS DEVICE NAME TABLE MUST BE KEPT
SIXBIT/RS04/ ; IN LINE WITH THE UNIT TYPE TABLE IN
SIXBIT/TU45/ ; THE UNIVERSAL FILE. IN PARTICULAR
SIXBIT/TU16/ ; THERE MUST BE AT LEAST ".UTMAX" ITEMS
SIXBIT/RP05/ ; IN THE TABLE.
SIXBIT/RP06/
SIXBIT/RP07/ ;RP07???
SIXBIT/RP08/ ;RP08???
SIXBIT/RM03/ ; [601]
SIXBIT/TM03/
SIXBIT/TU77/
SIXBIT/TM78/
SIXBIT/TU78/
SIXBIT/DX20/ ;[704]
SIXBIT/TU70/
SIXBIT/TU71/
SIXBIT/TU72/ ;END [704]
SIXBIT/TU73/ ;[1204]
RHTYP: SIXBIT /RH??/
SIXBIT /RH10/
SIXBIT /RH20/
SIXBIT /RH11/
;DISPATCH TABLE TO ROUTINES TO DECODE SURF/CYL/SECT OR FILE/RECORD
; LH = OFFSET IN TABLES FOR DSKPOS
; RH = TAPPOS FOR TAPES // DSKPOS FOR DISKS
;
;THIS TABLE MUST BE KEPT IN LINE WITH THE UNIT TYPE TABLE IN THE UNIVERSAL
; FILE. IN PARTICULAR THERE MUST BE AT LEAST ".UTMAX" ITEMS IN THE TABLE.
BLTTAB: 0,,DUMPOS ;NONEXISTANT DEVICE [1007]
5,,DSKPOS ;RP04
4,,DSKPOS ;RS04
0,,TAPPOS ;TU45
0,,TAPPOS ;TU16(TM02)
6,,DSKPOS ;RP05
7,,DSKPOS ;RP06
0,,DSKPOS ;RP07
0,,DSKPOS ;RP08
10,,DSKPOS ;RM03
0,,TAPPOS ;TM03
0,,TAPPOS ;TU77
0,,TAPPOS ;TM78
0,,TAPPOS ;TU78
0,,TAPPOS ;DX20
0,,TAPPOS ;TU70
0,,TAPPOS ;TU71
0,,TAPPOS ;TU72
0,,TAPPOS ;TU73
;TYPE UNIT TYPE & S/N IF IT EXISTS
MB%000: TYPEIT <
UNIT TYPE: >
MOVE P3,MDEDTP ;GET TYPE BACK
MOVE T1,MDE000(P3) ;GET IT IN SIXBIT
PUSHJ P,.TSIXN
;NOW FOR SERIAL #
MOVE P2,WKBUFF+MB%REG+10 ;LOCATION FOR RP04
SKIPN P2 ;ANYTHING THERE?
POPJ P,0 ;NO-LEAVE NOW
TYPEIT <
UNIT SERIAL #: >
PJRST DSERCD
;HERE TO OUTPUT FAILURE LOCATION
MB%001: MOVE T1,MDEDTP ;GET DEV TYPE BACK
CAIN T1,3 ;MAGTAPE? - TU45?
JRST .+3
CAIE T1,4 ;TU16?
CAIN T1,13 ;TU77?
JRST MB%01C ;YUP
;HERE FOR LBN (DISK)
TYPEIT <
LBN AT START OF XFR: >
MOVE T1,WKBUFF+MB%LOC ;GET LBN
PUSHJ P,.TOCTW ;TYPE IN DECIMAL [527]
TYPEIT < =
>
MOVE T1,MDEDTP ;GET TYPE AGAIN
CAIN T1,2 ;RS04?
JRST MB%01B ;YES! - BRANCH TO ROUTINE
SETZ P1, ;NO! - CLEAR INDEX POINTER [600]
CAIN T1,1 ;RP04?
MOVEI P1,5 ;YES! - SET UP INDEX
CAIN T1,5 ;RP05?
MOVEI P1,6 ;YES! - SET UP FOR RP05
CAIN T1,6 ;RP06?
MOVEI P1,7 ;YES! - SET UP FOR RP06
CAIN T1,.UTRM3 ;RM03? [601]
MOVEI P1,10 ;YES!
JUMPE MB%01D ;RECOGNIZED DEVICE? [600]
MOVE P3,WKBUFF+MB%LOC ;YES! - GET LBN
CAMGE P3,.MXBLK(P1) ;1ST UNIT OF STR? [144]
JRST MB%01A ;NO!
SUB P3,.MXBLK(P1) ;- 1 UNITS WORTH
JRST .-3 ;AND TRY AGAIN
MB%01A: TYPEIT <CYL: >
IDIV P3,.TRBLK(P1) ;GET CYL #
MOVE T1,P3
PUSHJ P,.ODECW ;SAY IT IN DECIMAL
MOVE P3,P4 ;REMAINDER
TYPEIT < SURF: >
IDIV P3,.SUBLK(P1) ;SURFACE #
MOVE T1,P3
PUSHJ P,.ODECW ;AGAIN WITH ".".
TYPEIT < SECT: >
MOVE P3,P4 ;REMAINDER
IMUL P3,.SECBK(P1) ;X SECTORS/BLOCK
MOVE T1,P3
PUSHJ P,.ODECW
JRST MB%01D ;GO AROUND MAGTAPE
;HERE FOR LBN FOR RS04
MB%01B: MOVE P3,WKBUFF+MB%LOC ;GET LBN
CAMGE P3,.MXBLK+4 ;[144]1ST UNIT IN STR?
JRST .+3 ;YES-OK
SUB P3,.MXBLK+4 ;-1 UNITS WORTH
JRST .-3 ;TRY AGAIN
TYPEIT <TRACK: >
IDIV P3,.TRBLK+4 ;GET TRK #
MOVE T1,P3
PUSHJ P,.ODECW ;SAY IT WITH FLOWERS
MOVE P3,P4 ;REMAINDER
TYPEIT < SECT: >
IMUL P3,.SECBK+4 ;GET SECTOR #
MOVE T1,P3
PUSHJ P,.ODECW
JRST MB%01D ;GO AROUND MAGTAPE
;HERE FOR MAGTAPE FAILURE LOCATION
MB%01C: TYPEIT <
LOCATION: RECORD # >
HRRZ T1,WKBUFF+MB%LOC
PUSHJ P,.ODECW
TYPEIT < OF FILE # >
HLRZ T1,WKBUFF+MB%LOC
PUSHJ P,.ODECW
;NOW LIST USERS DIR AND PGM BUT ONLY FOT MAGTAPE
MOVE P2,WKBUFF+MB%USR
MOVEI P1,[ASCIZ/
USER'S LOGGED IN DIR: /]
PUSHJ P,.PPNWT ;DO TRANS
PUSHJ P,.TCRLF
MOVE P2,WKBUFF+MB%PGM
MOVEI P1,[ASCIZ/ USER'S PGM: /]
PUSHJ P,.SIXBT
;HERE AFTER DUMPING FAILURE LOCATION - NOW TO DUMP
;OPERATION ISSUED TO DEVICE
MB%01D: TYPEIT <
OPERATION AT ERROR: >
HRLZ T1,WKBUFF+MB%ICR ;GET ISSUED CONTROL REG.
MOVE T2,MDEDTP ;SET UP INDEX
PUSHJ P,@MDE011(T2) ; LET ROUTINE DO WORK
POPJ P,0 ;BACK TO PROCSD FOR A WHILE
;USE SAME ROUTINE FOR BOTH 111 & 112, VALUE IS IN P2
DX%004:
MB%004: TYPEIT <
RETRIES PERFORMED: >
HRRZ T1,P2 ;MB%FEC / DX%FEC HAS RETRIES(?)
PUSHJ P,.ODECW
POPJ P,0
;MB%CNI IS IN P2
MB%002: TYPEIT <
ERROR: >
MOVEI T1,[ASCIZ/RECOVERABLE /];ASSUME LUCK
MOVE T2,WKBUFF+MB%IRS ;GET STATUS WORD
TLNE T2,1B20 ;HARD ERROR?
MOVEI T1,[ASCIZ/NON-RECOVERABLE /] ;OPPS
PUSHJ P,.TSTRG
MOVE T1,MASKON ;KONTROLLER TYPE
MOVEM T1,KONTYP
MOVE P1,P2 ;FINISH SETUP
PUSHJ P,CNIDCD ;GO DECODE
MOVE T1,MASKON ;GET CONTROLLER TYPE BACK
CAIN T1,..RH11 ;RH11? [600]
JRST MB%02 ;YES! - NO CONI - SKIP
TYPEIT < IN CONTROLLER CONI
>
JRST MB%02A
MB%02: TYPEIT < IN CONTROLLER STATUS 1
>
MB%02A: HRLZ P1,WKBUFF+MB%REG+2 ;GET DEVICE'S ERROR REGISTER
MOVEI T1,21 ;ASSUME RP04,5,6, OR RM03
MOVE T2,MDEDTP ;BUT CHECK
CAIN T2,3 ;FOR TU45 OR
MOVEI T1,27
CAIN T2,4 ;OR TU16
MOVEI T1,27
CAIN T2,13 ;OR TU77
MOVEI T1,27
CAIN T2,2 ;OR RS04
MOVEI T1,25
MOVEM T1,KONTYP ;FINISH SETUP
PUSHJ P,CNIDCD ;GO TRANSLATE
TYPEIT < IN DEVICE ERROR REGISTER>
PUSHJ P,.TCRLF
PUSH P,P1
SETZ P1,
PUSHJ P,DETCHK ;SAID /DETAIL?
POP P,P1
TYPEIT <CONTROLLER INFORMATION:
CONTROLLER: >
MOVE T2,MASKON ;GET CONTROLLER TYPE
MOVE T1,[SIXBIT/RH20 #/] ;ASSUME RH20
CAIN T2,..RH10 ;BETTER CHECK - RH10?
MOVE T1,[SIXBIT/RH10 #/] ;YES! - CHANGE TEXT
CAIN T2,..RH11 ;RH11? [600]
MOVE T1,[SIXBIT/RH11 #/] ;YES! - CHANGE TEXT
PUSHJ P,.TSIXN
PUSHJ P,.TSPAC
MOVE T1,WKBUFF+MB%CAD ;GET PHY ADDR
PUSHJ P,.TOCTW ;DUMP IN OCTAL
MOVE T1,MDEDTP ;GET DEVICE TYPE
CAIE T1,3 ;MAGTAPE? - TU45?
CAIN T1,4 ;NO! - TU16?
PUSHJ P,MB%02B ;YES! - LIST TM02/3 #
MOVE T1,MASKON ;GET CONTROLLER TYPE
CAIN T1,..RH11 ;RH11?
JRST MB%02C ;YES! - NO CONI - BRANCH
;NOW DO CONI'S
TYPEIT <
CONI AT ERROR: >
MOVE T1,MASKON ;GET CONTROLLER TYPE
MOVEM T1,KONTYP
MOVE T1,WKBUFF+MB%CNI
MOVE P1,T1 ;FINISH SETUP
PUSHJ P,.TXWDW ;IN HALF WORD FORMAT
TYPEIT < = >
PUSHJ P,CNIDCD ;GO DECODE
TYPEIT <
CONI AT END: >
MOVE T1,WKBUFF+MB%CIF
MOVE P1,T1
PUSHJ P,.TXWDW
TYPEIT < = >
PUSHJ P,CNIDCD
POPJ P,0 ;BACK TO PROCSD
;TM?? TYPE CHECKING IMPROVED WITH EDIT [1227]
MB%02B: HRRZ T2,WKBUFF+MB%REG+6 ;GET HDWR UNIT TYPE
ANDI T2,070 ;ALONE
MOVEI T1,[ASCIZ/ TM?? #: /] ;ASSUME WE DON'T KNOW TYPE
CAIN T2,10 ;CHECK FOR TM02
MOVEI T1,[ASCIZ/ TM02 #: /]
CAIN T2,50 ;CHECK FOR TM03
MOVEI T1,[ASCIZ/ TM03 #: /]
PUSHJ P,.TSTRG ;NOW LIST IT [536]
HRRZ T1,WKBUFF+MB%UAD ;GET LOGICAL ADDRESS
PUSHJ P,.TOCTW ;LIST IN OCTAL
POPJ P,0 ;RETURN
;HANDLE RH11/UBA FOR 2020 - START EDIT [600]
MB%02C: MOVEI T1,53 ;C&S2 OFFSET
MOVEM T1,KONTYP ;SAVE IT
TYPEIT <
RH11 STATUS 2 AT ERROR: >
MOVE T1,WKBUFF+MB%S2I ;GET INITIAL RH11 STATUS 2
MOVE P1,T1
PUSHJ P,.TXWDW ;OUTPUT IN HALF WORDS
TYPEIT < = >
PUSHJ P,CNIDCD ;DECODE BITS
TYPEIT <
RH11 STATUS 2 AT END: >
MOVE T1,WKBUFF+MB%S2F ;GET FINAL RH11 STATUS 2
MOVE P1,T1
PUSHJ P,.TXWDW ;OUTPUT IN HALF WORDS
TYPEIT < = >
PUSHJ P,CNIDCD ;DECODE BITS
MOVEI T1,..UBA ;SET UP TO DECODE UBA STATUS
MOVEM T1,KONTYP
TYPEIT <
UBA STATUS,MAP AT ERR: >
MOVE T1,WKBUFF+MB%UBI ;GET INITIAL UBA STATUS
MOVE P1,T1
PUSHJ P,.TXWDW ;OUTPUT IN HALF WORDS
TYPEIT < = >
PUSHJ P,CNIDCD ;DECODE BITS
TYPEIT <
UBA STATUS,MAP AT END: >
MOVE T1,WKBUFF+MB%UBF ;GET FINAL UBA STATUS
MOVE P1,T1
PUSHJ P,.TXWDW ;OUTPUT IN HALF WORDS
TYPEIT < = >
PUSHJ P,CNIDCD ;DECODE BITS
;NOW TO STOP USING PROCESS TABLE AND TAKE CONTROL OURSELF
MOVE P2,MB%CS0 ;SET UP FOR CHANNEL STATUS
PUSHJ P,MB%003 ;FINISH ENTRY
JRST ABORT ;DON'T GO BACK TO PROCESS TABLE!
; END EDIT [600]
;MB%CS0 IS IN P2
MB%003: PUSHJ P,CHNSTS ;GO LIST CHANNEL STATUS INFO,P2
;IS ALREADY SET UP
;SETUP AND CALL ROUTINES TO DUMP 16 DEVICE REGISTERS
TYPEIT <
DEVICE REGISTER INFORMATION:
AT ERROR AT END DIFF. TEXT
>
MOVE T1,MDEDTP ;GET UNIT TYPE
MOVE P1,[XWD 1,20] ;SETUP P1 FOR MODE 1 AND 20 ITEMS
CAIN T1,3 ;MAGTAPE? - TU45?
JRST .+3
CAIE T1,4 ; TU16?
CAIN T1,13 ; TU77?
HRRI P1,12 ;CHANGE # OF ITEMS
HRLZI P2,MASREG ;STARTING ADDR OF TABLE
; OF SIXBIT REG NAMES
CAIN T1,3 ;MAGTAPE? - TU45? [1243]
JRST .+3
CAIE T1,4 ; TU16?
CAIN T1,13 ; TU77?
HRLI P2,TU6REG ;CHANGE REGISTER NAMES
CAIN T1,.UTRM3 ;RM03? [601]
HRLI P2,RM03RG ;YES! - SETUP FOR RM03 REGISTERS
HRR P2,MSCNTL(T1) ;SETUP P2
MOVE P3,[XWD MB%REG,MB%REG] ;WHERE TO FIND WORDS.
PUSHJ P,HWDUMP ;IF ALL GOES WELL
PJRST DEVSTS ;NOW GO LIST DEVICE STATISTICS
;[EDIT 215]
;NOW LIST DEVICE STATS AT TIME OF ERROR
;DEVSTS IS CALLED FOR BOTH CODE 111 & 112 ENTRIES AND DEPENDS
;ON IDENTICAL FORMATS AND LOCATIONS IN THE ERROR FILE ENTRY!!!
;***********************
DEVSTS: TYPEIT <DEVICE STATISTICS AT TIME OF ERROR:
# OF READS: >
MOVE T1,WKBUFF+MB%RED
PUSHJ P,.ODECW
TYPEIT < # OF WRITES: >
MOVE T1,WKBUFF+MB%WRT
PUSHJ P,.ODECW
TYPEIT < # OF SEEKS: >
MOVE T1,WKBUFF+MB%SEK
PUSHJ P,.ODECW
TYPEIT <
# SOFT READ ERRORS: >
MOVE T1,WKBUFF+MB%SRE
PUSHJ P,.ODECW
TYPEIT < # SOFT WRITE ERRORS: >
MOVE T1,WKBUFF+MB%SWE
PUSHJ P,.ODECW
TYPEIT <
# HARD READ ERRORS: >
MOVE T1,WKBUFF+MB%HRE
PUSHJ P,.ODECW
TYPEIT < # HARD WRITE ERRORS: >
MOVE T1,WKBUFF+MB%HWE
PUSHJ P,.ODECW
TYPEIT <
# SOFT POSITIONING ERRORS: >
MOVE T1,WKBUFF+MB%SPE
PUSHJ P,.ODECW
TYPEIT < # HARD POSITIONING ERRORS: >
MOVE T1,WKBUFF+MB%HPE
PUSHJ P,.ODECW
TYPEIT <
# OF MPE: >
MOVE T1,WKBUFF+MB%MPE
PUSHJ P,.ODECW
TYPEIT < # OF NXM: >
MOVE T1,MB%NXM
PUSHJ P,.ODECW
TYPEIT < # OF OVERRUNS: >
MOVE T1,WKBUFF+MB%OVR
PUSHJ P,.ODECW
;END EDIT 215
PUSHJ P,TITLST ;EDIT 116 START ON NEXT PAGE
POPJ P,0 ;WE'RE DONE!
;EDIT [510]
;DX%000 ETC-- ROUTINES TO DO MOST OF THE WORK TO LIST
;CODE 112 ENTRIES, DX20 DEVICE ERRORS.
;DEVICE TYPE WORD IS IN P2 WHEN WE GET HERE
;CALLED VIA PUSHJ FROM PROCSD RETURNS POPJ SEVERAL
;PAGES FROM HERE.
;SETUP FOR SUB-BLOCK INDEX POINTERS
DX%000: HRRZ T3,WKBUFF+DX%MBR ;MASBUSS REG SUB-BLOCK POINTER
ADDI T3,WKBUFF ;CREATE BUFFER POINTER
MOVEM T3,SUBLK1 ;SAVE IT
HRRZ T4,WKBUFF+DX%DVL ;DEVICE VALUE SUB-BLOCK POINTER
ADDI T4,WKBUFF ;CREATE BUFFER POINTER
MOVEM T4,SUBLK2 ;SAVE IT
;TYPE UNIT TYPE & S/N
TYPEIT <
UNIT TYPE: >
MOVE P3,MDEDTP ;GET TYPE BACK
MOVE T1,MDE000(P3) ;GET IT IN SIXBIT
PUSHJ P,.TSIXN
;NOW FOR SERIAL #
LDB T1,[POINT 8,DT%SBE(T4),9] ;LOW PART
LDB T2,[POINT 8,DT%SBD(T4),35] ;HIGH PART
DPB T2,[POINT 8,T1,27] ;COMBINE HIGH & LOW PARTS
SKIPN T1 ;ANYTHING THERE?
POPJ P,0 ;NO! - LEAVE
PUSH P,T1 ;SAVE WHAT TO LIST
TYPEIT <
UNIT SERIAL #: >
POP P,T1 ;RESTORE WHAT TO LIST
PJRST .ODECW ;OUTPUT IN DECIMAL
;ROUTINE TO OUTPUT FAILURE LOCATION
DX%001: MOVE T1,MDEDTP ;GET DEV TYPE BACK
;[704]
CAIGE T1,.UTDX2 ;IN RANGE?
POPJ P,0
CAILE T1,.UTT72
POPJ P,0
;END [704]
TYPEIT <
LOCATION: RECORD # >
HRRZ T1,WKBUFF+DX%LOC ;GET LOCATION WORD
PUSHJ P,.ODECW ;OUTPUT IN DECIMAL
TYPEIT < OF FILE # >
HLRZ T1,WKBUFF+DX%LOC ;GET FILE # PART
PUSHJ P,.ODECW ;OUTPUT IN DECIMAL
;NOW DUMP OPERATION ISSUED TO DEVICE
TYPEIT <
OPERATION AT ERROR: >
HRLZ T1,WKBUFF+DX%ICR ;GET ISSUED CONTROL REGISTER
MOVE T2,MDEDTP ;SETUP INDEX
PJRST @MDE011(T2) ; LET ROUTINE DO WORK
;MORE EDIT [510]
;ROUTINE TO TYPE OUT ERROR INFORMATION
;ALSO OUTPUTS CONTROLLER CONI INFO IF /DETAIL IS SET
DX%002: TYPEIT <
ERROR: >
MOVEI T1,[ASCIZ/RECOVERABLE /] ;ASSUME LUCK
MOVE T2,WKBUFF+DX%IRS ;GET STATUS WORD
TLNE T2,1B20 ;HARD ERROR?
MOVEI T1,[ASCIZ/NON-RECOVERABLE /] ;OPPS
PUSHJ P,.TSTRG
MOVE T1,MASKON ;KONTROLLER TYPE (RH20)
MOVEM T1,KONTYP
MOVE P1,P2 ;FINISH SETUP
PUSHJ P,CNIDCD ;GO DECODE
TYPEIT < IN CONTROLLER CONI
>
MOVE T3,SUBLK1 ;GET SUB-BLOCK POINTER
HRLZ P1,DM%ER(T3) ;GET DEVICE ERROR REGISTER
MOVEI T1,51 ;BETTER BE TU70!!!
MOVEM T1,KONTYP ;FINISH SETUP
PUSHJ P,CNIDCD ;GO TRANSLATE
TYPEIT < IN DEVICE ERROR REGISTER>
PUSHJ P,.TCRLF
PUSH P,P1
SETZ P1,
PUSHJ P,DETCHK ;SAID /DETAIL?
POP P,P1
TYPEIT <CONTROLLER INFORMATION:
CONTROLLER: >
MOVE T2,MASKON ;GET CONTROLLER TYPE
MOVE T1,[SIXBIT/RH20 #/] ;ASSUME RH20
PUSHJ P,.TSIXN
PUSHJ P,.TSPAC
MOVE T1,WKBUFF+DX%CAD ;GET PHY ADDR
PUSHJ P,.TOCTW ;DUMP IN OCTAL
TYPEIT < DX20/>
;START [716-RLD]
HRRZ T1,WKBUFF+DX%DVL ;GET PNTR
MOVE T2,WKBUFF+DT%SBC(T1) ;[721]GET SENSE BYTES 8-11
MOVEI T1,[ASCIZ/TX02 #: /] ;ASSUME TX02
TLNN T2,1B32 ;[721]REALLY BIT 14 SB.-9,B4
MOVEI T1,[ASCIZ/TX01 #: /] ;BETTER CHANGE
PUSHJ P,.TSTRG ;PRINT SOMETHING
;END[716]
HRRZ T1,WKBUFF+DX%UAD ;GET LOGICAL ADDRESS
PUSHJ P,.TOCTW ;LIST IN OCTAL
;START [716-RLD]
TYPEIT <
DX20 U-CODE VERSION: >
LDB T1,[POINT 6,WKBUFF+DX%VER,25] ;[720]GET VERSION #
PUSHJ P,.TOCTW
TYPEIT <(>
LDB T1,[POINT ^D10,WKBUFF+DX%VER,35] ;[720]AND EDIT #
PUSHJ P,.TOCTW
TYPEIT <)>
;END [716-RLD]
;NOW DO CONI'S
TYPEIT <
CONI AT ERROR: >
MOVE T1,MASKON ;GET CONTROLLER TYPE
MOVEM T1,KONTYP
MOVE T1,WKBUFF+DX%CNI
MOVE P1,T1 ;FINISH SETUP
PUSHJ P,.TXWDW ;IN HALF WORD FORMAT
TYPEIT < = >
PUSHJ P,CNIDCD ;GO DECODE
TYPEIT <
CONI AT END: >
MOVE T1,WKBUFF+DX%CIF
MOVE P1,T1
PUSHJ P,.TXWDW
TYPEIT < = >
PUSHJ P,CNIDCD
POPJ P,0 ;BACK TO PROCSD
;END EDIT [510]
;HERE LIST CHANNEL STATUS,MASSBUS INFO AND A WHOLE
;LOT OF DEVICE INFO.
DX%003: PUSHJ P,CHNSTS ;LIST CHANNEL TYPE, ETC
;NOW LIST MASSBUS REGISTER VALUES
TYPEIT <
MASSBUS REGISTER INFORMATION:
AT ERROR AT END DIFF. TEXT
>
MOVE P1,[XWD 1,7] ;MODE 1,7 ITEMS TO LIST
MOVE P2,[XWD DX2REG,DX20CT] ;TABLE OF REGISTER NAMES,,CONTROL
;TABLE ADDRESSES
HRRZ P3,WKBUFF+DX%MBR ;GET OFFSET TO BLOCK OF DATA
HRL P3,P3 ;AT END & AT ERROR ARE AT SAME PLACE
PUSHJ P,HWDUMP ;GO DO THE LISTING
MOVE P1,[XWD 1,17] ;NOW DO SECOND HALF[714]
MOVE P2,[XWD DX2RG1,DX20C1] ;ADJUSTED CONTROL TABLES
HRRZ P3,WKBUFF+DX%MBR ;WHERE TO START
ADDI P3,DM%SI ;ADJUSTED FOR THOSE WE DID
HRL P3,P3
PUSHJ P,HWDUMP ;LIST THE REST OF 'EM
;NOW LIST THE DEVICE INFO, SENSE BYTES ETC
;FIRST RE-PACKAGE THE BYTES IN PLACE
HRRZ P1,WKBUFF+DX%DVL ;GET THE OFFSET
ADDI P1,WKBUFF
MOVEI T1,24 ;A PASS COUNTER
DX%03A: LDB T2,[POINT 16,@P1,17] ;EXTRACT A 16 BIT BYTE [1207]
DPB T2,[POINT 16,@P1,15] ;REPLACE IT
LDB T2,[POINT 16,@P1,35] ;EXTRACT ANOTHER 16 BIT BYTE
DPB T2,[POINT 16,@P1,31] ;REPLACE IT (BITS 32-35 CONTAIN JUNK)
AOS P1 ;BUMP THE POINTER
SOJN T1,DX%03A ;GET NEXT IF ANY
;NOW USE HWDUMP TO LIST ALL THESE VALUES
TYPEIT <
DEVICE INFORMATION RECORDED AT TIME OF ERROR
REGISTER CONTENTS TEXT
>
MOVE P1,[XWD 4,24] ;PRINT MODE 4,24 ITEMS
MOVE P2,[XWD DX2NAM,DX2CTL]
HRLZ P3,WKBUFF+DX%DVL ;OFFSET TO AT ERROR VALUES
PUSHJ P,HWDUMP
;NOW FINALLY LIST DEVICE STATISTICS
PJRST DEVSTS ;WILL RETURN TO PROCSD
;HERE ARE REGISTER NAMES AND CONTROL TABLES FOR HWDUMP
;USED WITH DX20 ENTRIES
DX2REG: SIXBIT/CR(00)/
SIXBIT/SR(01)/
SIXBIT/ER(02)/
SIXBIT/MR(03)/
SIXBIT/AS(04)/
SIXBIT/SB(05)/
SIXBIT/DT(06)/
DX2RG1: SIXBIT/SI(20)/
SIXBIT/DN(21)/
SIXBIT/ES(22)/
SIXBIT/TE(23)/
SIXBIT/AY(24)/
;;;;; SIXBIT/BC(25)/;;;;REMOVED BY EDIT 714[RLD]
SIXBIT/E0(26)/
SIXBIT/E1(27)/
SIXBIT/IR(30)/
SIXBIT/PC(31)/
SIXBIT/AL(32)/
SIXBIT/SD(33)/
SIXBIT/FP(34)/
SIXBIT/BW(35)/
SIXBIT/IB(36)/
SIXBIT/MA(37)/
;NOW THE CONTROL TABLE FOR THE MASSBUS VALUES
DX20CT: XWD -1,DX20CR
XWD 50,DXSRDV
XWD -1,DX20ER
XWD 52,DXMRDV
XWD -1,NOTRAN
XWD -1,NOTRAN
XWD -1,DX20DT
DX20C1: XWD -1,NOTRAN
XWD -1,NOTRAN
XWD -1,NOTRAN
XWD -1,NOTRAN
XWD -1,NOTRAN
XWD -1,NOTRAN
XWD -1,NOTRAN
XWD -1,NOTRAN
XWD -1,NOTRAN
XWD -1,NOTRAN
XWD -1,NOTRAN
XWD -1,NOTRAN
XWD -1,NOTRAN
XWD -1,NOTRAN
XWD -1,NOTRAN
XWD -1,NOTRAN
;NOW THE SECOND SET
DX2NAM: SIXBIT/SB 0-3/
SIXBIT/ 4-7/
SIXBIT/ 8-11/
SIXBIT/ 12-15/
SIXBIT/ 16-19/
SIXBIT/ 20-23/
SIXBIT/ MCV /
SIXBIT/ MRA /
SIXBIT/ MRB /
SIXBIT/ MRC /
SIXBIT/ MRD /
SIXBIT/ MRE /
SIXBIT/ MRF /
SIXBIT/ CB0 /
SIXBIT/ CB1 /
SIXBIT/ DP0 /
SIXBIT/ DP1 /
SIXBIT/ DP2 /
SIXBIT/ DP3 /
SIXBIT/ LAS /
;NOW THE CONTROL TABLE
;FOR NOW ALL ARE "NOTRAN"
DX2CTL: XWD -1,T7SB0S
XWD -1,DXSB4S
XWD 36,SB81DV
XWD -1,NOTRAN
XWD -1,NOTRAN
XWD -1,NOTRAN
XWD -1,NOTRAN
XWD -1,NOTRAN
XWD -1,NOTRAN
XWD -1,NOTRAN
XWD -1,NOTRAN
XWD -1,NOTRAN
XWD -1,NOTRAN
XWD -1,NOTRAN
XWD -1,NOTRAN
XWD -1,NOTRAN
XWD -1,NOTRAN
XWD -1,NOTRAN
XWD -1,NOTRAN
XWD -1,NOTRAN
DX2FUN: [ASCIZ/ NO OPERATION(00)/]
[ASCIZ/ REWIND & UNLOAD(02)/]
[ASCIZ/ ILLEGAL04)/]
[ASCIZ/ REWIND(06)/]
[ASCIZ/ DRIVE CLEAR(10)/]
[ASCIZ/ SENSE RELEASE(12)/]
[ASCIZ/ ILLEGAL(14)/]
[ASCIZ/ ILLEGAL(16)/]
[ASCIZ/ ILLEGAL(20)/]
[ASCIZ/ ILLEGAL(22)/]
[ASCIZ/ ERASE GAP(24)/]
[ASCIZ/ WRITE TAPE MARK(26)/]
[ASCIZ/ SPACE REC FORWARD(30)/]
[ASCIZ/ SPACE REC BACK(32)/]
[ASCIZ/ SPACE BLOCK FORWARD(34)/]
[ASCIZ/ SPACE BLOCK BACK(36)/]
[ASCIZ/ TEST I-O(40)/]
[ASCIZ/ DATA SEC ERASE(42)/]
[ASCIZ/ SENSE(44)/]
[ASCIZ/ SENSE RESERVE(46)/]
[ASCIZ/ ILLEGAL(50)/]
[ASCIZ/ ILLEGAL(52)/]
[ASCIZ/ ILLEGAL(54)/]
[ASCIZ/ ILLEGAL(56)/]
[ASCIZ/ WRITE DATA(60)/]
[ASCIZ/ WRITE DIAGNOSTIC(62)/]
[ASCIZ/ LOOP WRITE TO READ(64)/]
[ASCIZ/ ILLEGAL(66)/]
[ASCIZ/ READ DATA(70)/]
[ASCIZ/ ILLEGAL(72)/]
[ASCIZ/ READ EXTENDED STATUS(74)/]
[ASCIZ/ READ REVERSE(76)/]
;NOW THE SPECIAL DECODING ROUTINES CALLED FROM THE CONTROL TABLES
;T1 HAS WORD TO TRANSLATE AND P1 MUST BE PRESERVED*****
DX20CR: PUSH P,P1 ;SAVE P1
HLRZ P1,T1 ;ONLY WORRY ABOUT 'AT ERROR' VALUE
TRNN P1,1B35 ;GO?
JRST .+3
TYPEIT < GO + >
ANDI P1,76 ;GET FUNCTION BITS ALONE
LSH P1,-1 ;RIGHT JUSTIF FOR AN INDEX
HRRZ T1,DX2FUN(P1) ;GET THE ADDR OF THE ASCIZ
PUSHJ P,.TSTRG
POP P,P1 ;RESTORE P1
POPJ P,0
DX20ER: PUSH P,P1
MOVE P1,T1
PUSH P,P1 ;NOW SAVE THE ERROR WORD
MOVEI T1,51 ;OFFSET INTO TABLES
MOVEM T1,KONTYP
PUSHJ P,CNIDCD ;DO 1 FOR 1 X-LATION FIRST
POP P,P1 ;RESTORE ERROR WORD
TLNE P1,1B28 ;IF NOT SET, LEAVE NOW
JRST .+3 ;SET, MORE LISTING REQ'D
POP P,P1 ;RESTORE P1
POPJ P,0 ;AND LEAVE
TYPEIT <MPERR CLASS: >
LDB P2,[POINT 4,P1,9] ;GET CLASS CODE
MOVE T1,P2
PUSHJ P,.TOCTW
TYPEIT < ,SUB-CLASS: >
LDB P3,[POINT 4,P1,5] ;AND SUB-CLASS
MOVE T1,P3
PUSHJ P,.TOCTW
PUSHJ P,.TCRLF
PUSHJ P,.TTABC
TYPEIT < = >
CAMLE P2,MPCLS ;CHECK FOR MAX # OF CLASSES WE RECOGNIZE
JRST DX2ER0 ;OUT OF RANGE
;NOW CHECK FOR SUB-CLASS RANGE
MOVE T1,MPCLS(P2) ;T1 GETS BASE ADDR OF SUB-CLASS TABLE
MOVE T2,-1(T1) ;RANGE FOR THIS SUB-CLASS
CAMLE P3,T2 ;OK?
JRST DX2ER1 ;NOPE
ADD T1,P3 ;OK-GET ADDR OF ASCIZ TEXT
MOVE T1,0(T1) ;AND ADDRESS
PUSHJ P,.TSTRG
POP P,P1 ;NOW RESTORE P1
POPJ P,0
DX2ER0: TYPEIT < UNKNOWN MPERR CLASS >
POP P,P1
POPJ P,0
DX2ER1: TYPEIT < UNKNOWN MPERR SUB-CLASS>
POP P,P1
POPJ P,0
;HERE ARE SUB TABLES AND TEXT ADDRS
;FIRST IS TABLE OF CLASSES,EACH ITEM POINTS TO SUB-CLASS TABLE
MPCLS: ^D8 ;CURRENT # OF CLASSES RECOGNIZED
XWD 0,MPCLS1
XWD 0,MPCLS2
XWD 0,MPCLS3
XWD 0,MPCLS4
XWD 0,MPCLS5
XWD 0,MPCLS6
XWD 0,MPCLS7
XWD 0,MPCL10
XWD 0,1 ;CURRENT # OF SUB-CLASS ARGUEMENTS
MPCLS1: [ASCIZ/ UNUSUAL DEVICE STATUS FROM FINAL STATUS SEQUENCE/]
[ASCIZ/ UNUSUAL DEVICE STATUS FROM INITIAL STATUS SEQUENCE/]
XWD 0,0 ;CURRENT #
MPCLS2: [ASCIZ/ SHORT RECORD/]
XWD 0,0
MPCLS3: [ASCIZ/ LONG RECORD/]
XWD 0,0
MPCLS4: [ASCIZ/ DRIVE SELECTION ERROR, NON-EXISTENT/]
XWD 0,0
MPCLS5: [ASCIZ/ RECOVERABLE ERROR-TAPE MOTION- DATA PARITY ERROR/]
XWD 0,2
MPCLS6: [ASCIZ/ RECOVERABLE ERROR-NO TAPE MOTION- DRIVE ADDR. MISMATCH/]
[ASCIZ/ RECOVERABLE ERROR-NO TAPE MOTION- BUS IN PAR ERR WHILE RECEIVING DRIVE ADDR/]
[ASCIZ/ RECOVERABLE ERROR-NO TAPE MOTION- BUS IN PAR ERR WHILE RECEIVING INITIAL STATUS/]
XWD 0,1
MPCLS7: [ASCIZ/ NON-RECOVERABLE ERROR, DATA PATH DETECTED U-BUS PAR ERR/]
[ASCIZ/ NON-RECOVERABLE ERROR, CHANNEL BUS DETECTED U-BUS PAR ERR/]
XWD 0,2
MPCL10: [ASCIZ/ FATAL ERROR, DRIVE TYPE MISMATCH/]
[ASCIZ/ FATAL ERROR, PAR ERR RECEIVING DRIVE ADDR DURING C.U. INIT SEQ/]
[ASCIZ/ FATAL ERROR, PAR ERR RECEIVING DRIVE STATUS DURING C.U. INIT SEQ/]
;HERE DECODE DX20 DRIVE TYPE REGISTER
DX20DT: PUSH P,P1
MOVE P1,T1 ;SAVE WORD TO TRANSLATE
TYPEIT < DRIVE TYPE: >
LDB T1,[POINT 9,P1,17] ;EXTRACT DRIVE TYPE
PUSHJ P,.TOCTW
;ADD CODE HERE TO TRANSLATE TO TYPE
TYPEIT <, HDWR VER: >
LDB T1,[POINT 7,P1,8] ;EXTRACT VERSION #
PUSHJ P,.TOCTW
POP P,P1
POPJ P,0
;SOME TABLES AND ROUTINES USED WITH MASBUSS ENTRIES
;FIRST THE TABLE OF SIXBIT REGISTER NAMES
;CHANGED TO FIT TRAINING'S REQUIREMENTS WITH VER 3C.
MASREG: SIXBIT/CR(00)/ ;CONTROL & STATUS #1
SIXBIT/SR(01)/ ;DRIVE STATUS
SIXBIT/ER(02)/ ;ERROR REGISTER #1
SIXBIT/MR(03)/ ;MAINTENANCE REGISTER
SIXBIT/AS(04)/ ;ATTENTION SUMMARY
SIXBIT/DA(05)/ ;DESIRED SECTOR/TRACK ADDRESS
SIXBIT/DT(06)/ ;DRIVE TYPE
SIXBIT/LA(07)/ ;LOOK-AHEAD
SIXBIT/SN(10)/ ;SERIAL NUMBER
SIXBIT/OF(11)/ ;OFFSET
SIXBIT/DC(12)/ ;DESIRED CYLINDER
SIXBIT/CC(13)/ ;CURRENT CYLINDER
SIXBIT/E2(14)/ ;ERROR REGISTER #2
SIXBIT/E3(15)/ ;ERROR REGISTER #3
SIXBIT/EP(16)/ ;ECC POSITION REGISTER
SIXBIT/PL(17)/ ;ECC PATTERN REGISTER
RM03RG: SIXBIT/CS1 00/ ;CONTROL & STATUS #1
SIXBIT/DS 01/ ;DRIVE STATUS
SIXBIT/ER1 02/ ;ERROR REGISTER #1
SIXBIT/MR1 03/ ;MAINTENANCE REGISTER #1
SIXBIT/AS 04/ ;ATTENTION SUMMARY
SIXBIT/DA 05/ ;DESIRED SECTOR/TRACK ADDRESS
SIXBIT/DT 06/ ;DRIVE TYPE
SIXBIT/LA 07/ ;LOOK AHEAD
SIXBIT/SN 10/ ;SERIAL NUMBER
SIXBIT/OF 11/ ;OFFSET
SIXBIT/DC 12/ ;DESIRED CYLINDER
SIXBIT/HR 13/ ;**HOLDING REGISTER**
SIXBIT/MR2 14/ ;MAINTENANCE REGISTER #2
SIXBIT/ER2 15/ ;ERROR REGISTER #2
SIXBIT/EC1 16/ ;ECC POSITION REGISTER
SIXBIT/EC2 17/ ;ECC PATTERN REGISTER
;NOW THE CONTROL TABLE ADDRESSES
;THIS TABLE MUST BE KEPT IN LINE WITH THE UNIT TYPE TABLE IN THE UNIVERSAL
; FILE. IN PARTICULAR THERE MUST BE AT LEAST ".UTMAX" ITEMS IN THE TABLE.
MSCNTL: 0
XWD 0,RP04CT ;RP04
XWD 0,RS04CT ;RS04
XWD 0,TU16CT ;TU45
XWD 0,TU16CT ;TU16
XWD 0,RP05CT ;RP05
XWD 0,RP05CT ;RP06 [315]
XWD 0,DX20CT ;TU70 (REG. 0-6)
XWD 0,DX20C1 ; TU70 (REG. 20-37)
XWD 0,RM03CT ;RM03 [601]
0
XWD 0,TU16CT ;TU77 [1243]
;SIXBIT REGISTER NAMES FOR TU16
TU6REG: SIXBIT/CR(00)/
SIXBIT/SR(01)/
SIXBIT/ER(02)/
SIXBIT/MR(03)/
SIXBIT/AS(04)/
SIXBIT/FC(05)/
SIXBIT/DT(06)/
SIXBIT/CK(07)/
SIXBIT/SN(10)/
SIXBIT/TC(11)/
;SPECIAL ROUTINES TO DECODE TU70 SENSE BYTES, COPIED FROM
;SYSERB.MAC
T7SB0S: PUSH P,P1 ;SAVE OUR INDEX
MOVEI T1,32 ;OFFSET FOR SENSE BYTES 0-3
MOVEM T1,KONTYP
MOVE P1,P2 ;WORD TO DECODE
PUSH P,P2
PUSHJ P,CNIDCD
POP P,P2 ;RESTORE WORD TO TRANSLATE
TYPEIT < TIE = >
LDB P3,[POINT 8,P2,23] ;TRACK IN ERROR
SETZ T1,
TRNE P3,1B28
MOVEI T1,1
PUSHJ P,.TOCTW
SETZ T1,
TRNE P3,1B29
MOVEI T1,1
PUSHJ P,.TOCTW
SETZ T1,
TRNE P3,1B30
MOVEI T1,1
PUSHJ P,.TOCTW
SETZ T1,
TRNE P3,1B31
MOVEI T1,1
PUSHJ P,.TOCTW
SETZ T1,
TRNE P3,1B32
MOVEI T1,1
PUSHJ P,.TOCTW
SETZ T1,
TRNE P3,1B33
MOVEI T1,1
PUSHJ P,.TOCTW
SETZ T1,
TRNE P3,1B34
MOVEI T1,1
PUSHJ P,.TOCTW
SETZ T1,
TRNE P3,1B35
MOVEI T1,1
PUSHJ P,.TOCTW
POP P,P1 ;GET INDEX BBACK
POPJ P,0 ;GO HOME
;HERE SPECIAL DECODING FOR TU70/72 SENSE BYTES 4-7
DXSB4S: PUSH P,P1 ;SAVE INDEX
MOVEI T1,33 ;OFFSET TO TABLES
MOVEM T1,KONTYP
MOVE P1,P2 ;WOD TO TRANSLATE
PUSH P,P2 ;SAVE IT
PUSHJ P,CNIDCD ;TRANSLATE IT
POP P,P2 ;GET WORD BACK
LDB P3,[POINT 3,P2,26] ;COLUMN FAILURES
SKIPE P3 ;ANY THERE?
JRST DXSB4A ;YES
POP P,P1
POPJ P,0
DXSB4A: PUSHJ P,.TSPAC
MOVE P2,P3
ANDI P3,3 ;GET COL BITS ALONE
CAIN P3,1
MOVEI T1,[ASCIZ/RIGHT/]
CAIN P3,2
MOVEI T1,[ASCIZ/LEFT/]
CAIN P3,3
MOVEI T1,[ASCIZ/BOTH/]
PUSHJ P,.TSTRG
TYPEIT < COL.FAIL >
MOVEI T1,[ASCIZ/TOP/]
TRNE P2,4 ;TOP OR BOTTOM?
MOVEI T1,[ASCIZ/BOTTOM/]
PUSHJ P,.TSTRG
POP P,P1 ;GET INDEX BACK
POPJ P,0
;ROUTINES TO TRANSLATE MASSBUS DEVICE REG. AS SPECIAL ROUTINES
;T1 HAS WORD TO TRANSLATE
;THIS TABLE MUST BE KEPT IN LINE WITH THE UNIT TYPE TABLE IN THE UNIVERSAL
; FILE. IN PARTICULAR THERE MUST BE AT LEAST ".UTMAX" ITEMS IN THE TABLE.
;MODIFIED WITH [704] TO SUPPORT .UTDX20-.UTT72
MDE011: XWD 0,DUMCR ;NOT USED
XWD 0,RP04CR ;RP04
XWD 0,RS04CR ;RS04
XWD 0,TU16CR ;TU45
XWD 0,TU16CR ;TU16 (TM02)
XWD 0,RP04CR ;RP05
XWD 0,RP04CR ;RP06
XWD 0,DUMCR ;RP07
XWD 0,DUMCR ;RP08
XWD 0,RP04CR ;RM03
XWD 0,DUMCR ;TM03
XWD 0,TU16CR ;TU77
XWD 0,DUMCR ;TM78
XWD 0,DUMCR ;TU78
XWD 0,DX20CR ;DX20
XWD 0,DX20CR ;TU70
XWD 0,DX20CR ;TU71
XWD 0,DX20CR ;TU72
XWD 0,DX20CR ;TU73
RS04CR: HLRZ P4,T1 ;SAVE ERROR WORD
TRNN P4,1B24 ;AVAIL?
JRST .+3 ;NO
TYPEIT <DEV.AVAIL.,>
TRNN P4,1B35 ;GO?
JRST .+3 ;NO
TYPEIT < GO + >
ANDI P4,70 ;GET FUNCTION
LSH P4,-3 ;MOVE IT OVER FOR INDEX
HRRZ T1,RS4FUN(P4) ;GET FUNCTION ASCIZ ADDR
PJRST .TSTRG ;DUMP IT
RP04CR: HLRZ P4,T1 ;GET WORD
TRNN P4,1B24 ;AVAIL?
JRST .+3 ;NO
TYPEIT < DEV.AVAIL.,>
TRNN P4,1B35 ;GO?
JRST .+3
TYPEIT < GO + >
ANDI P4,76 ;GET FUNCTION
LSH P4,-1 ;STRIP GO BIT
HRRZ T1,RP4FUN(P4) ;SETUP FUNCT.ASCIZ ADDR
PJRST .TSTRG ;SAY IT
TU16CR: HLRZ P4,T1
TRNN P4,1B24 ;AVAIL?
JRST .+3 ;NO
TYPEIT < DEV.AVAIL. >
TRNN P4,1B35 ;GO?
JRST .+3
TYPEIT < GO + >
ANDI P4,76 ;GET FUNCTION
LSH P4,-1 ;SETUP INDEX
HRRZ T1,TU6FUN(P4) ;USE IT
PJRST .TSTRG
DUMCR: POPJ P,0 ;FILLER FOR HOLES IN TABLE
;SOME TABLES
RS4FUN: [ASCIZ/ NO OPERATION(00)/]
[ASCIZ/ DRIVE CLEAR(02)/]
[ASCIZ/ ILLEGAL(04)/]
[ASCIZ/ SEARCH(06)/]
[ASCIZ/ ILLEGAL(10)/]
[ASCIZ/ ILLEGAL(12)/]
[ASCIZ/ WRITE(14)/]
[ASCIZ/ READ(16)/]
RP4FUN: [ASCIZ/ NO OPERATION(00)/]
[ASCIZ/ STAND BY(02)/]
[ASCIZ/ SEEK(04)/]
[ASCIZ/ RECALIBRATE(06)/]
[ASCIZ/ DRIVE CLEAR(10)/]
[ASCIZ/ RELEASE(12)/]
[ASCIZ/ OFFSET(14)/]
[ASCIZ/ RETURN CENTERLINE(16)/]
[ASCIZ/ READ-IN(20)/]
[ASCIZ/ PACK ACK.(22)/]
[ASCIZ/ ILLEGAL(24)/]
[ASCIZ/ ILLEGAL(26)/]
[ASCIZ/ SEARCH(30)/]
[ASCIZ/ ILLEGAL(32)/]
[ASCIZ/ ILLEGAL(34)/]
[ASCIZ/ ILLEGAL(36)/]
[ASCIZ/ ILLEGAL(40)/]
[ASCIZ/ ILLEGAL(42)/]
[ASCIZ/ ILLEGAL(44)/]
[ASCIZ/ ILLEGAL(46)/]
[ASCIZ/ WRITE CHECK DATA(50)/]
[ASCIZ/ WRITE CHECK HEADER & DATA(52)/]
[ASCIZ/ ILLEGAL(54)/]
[ASCIZ/ ILLEGAL(56)/]
[ASCIZ/ WRITE DATA(60)/]
[ASCIZ/ WRITE HEADER & DATA(62)/]
[ASCIZ/ ILLEGAL(64)/]
[ASCIZ/ ILLEGAL(66)/]
[ASCIZ/ READ DATA(70)/]
[ASCIZ/ READ HEADER&DATA(72)/]
[ASCIZ/ ILLEGAL(74)/]
[ASCIZ/ ILLEGAL(76)/]
TU6FUN: [ASCIZ/ NO OPERATION(00)/]
[ASCIZ/ REWIND,OFFLINE(02)/]
[ASCIZ/ ILLEGAL(04)/]
[ASCIZ/ REWIND(06)/]
[ASCIZ/ DRIVE CLEAR(10)/]
[ASCIZ/ ILLEGAL(12)/]
[ASCIZ/ ILLEGAL(14)/]
[ASCIZ/ ILLEGAL(16)/]
[ASCIZ/ READIN(20)/]
[ASCIZ/ ILLEGAL(22)/]
[ASCIZ/ ERASE(24)/]
[ASCIZ/ WRITE FILEMARK(26)/]
[ASCIZ/ SPACE FWD.(30)/]
[ASCIZ/ SPACE REV.(32)/]
[ASCIZ/ ILLEGAL(34)/]
[ASCIZ/ ILLEGAL(36)/]
[ASCIZ/ ILLEGAL(40)/]
[ASCIZ/ ILLEGAL(42)/]
[ASCIZ/ ILLEGAL(44)/]
[ASCIZ/ ILLEGAL(46)/]
[ASCIZ/ WRITE CHECK FWD.(50)/]
[ASCIZ/ ILLEGAL(52)/]
[ASCIZ/ ILLEGAL(54)/]
[ASCIZ/ WRITE CHECK REV.(56)/]
[ASCIZ/ WRITE FWD.(60)/]
[ASCIZ/ ILLEGAL(62)/]
[ASCIZ/ ILLEGAL(64)/]
[ASCIZ/ ILLEGAL(66)/]
[ASCIZ/ READ FWD.(70)/]
[ASCIZ/ ILLEGAL(72)/]
[ASCIZ/ ILLEGAL(74)/]
[ASCIZ/ READ REV.(76)/]
;SOME ROUTINES TO DUMP SOME PARTICULAR REGISTERS.
;CALLED FROM HWDUMP FIRST TO OUTPUT DESIRED
;SECTOR/TRACK FOR RP04
RP04BA: HLRZ P4,T1 ;GET ERROR WORD ALONE
MOVE P3,P4
ANDI P3,17400 ;MASK TO GET TRACK ALONE
LSH P3,-^D8 ;MOVE IT OVER
TYPEIT <D. TRK = >
MOVE T1,P3
PUSHJ P,.TOCTW ;PRINT IT
TYPEIT <, D.SECT. = >
ANDI P4,37 ;GET SECTOR
MOVE T1,P4
PJRST .TOCTW ;DO IT
;TO DUMP RM03 OFFSET REG.
RM03MO: HRRZ P4,T1
TYPEIT <AT END:>
TRNE P4,1B23 ;FORMAT BIT ?
JRST [ TYPEIT <FMT16,>
JRST .+1 ]
TRNE P4,1B24 ;ECI ON?
PUSHJ P,RPMO02
TRNE P4,1B25 ;HCI?
PUSHJ P,RPMO03
TRNE P4,1B28 ;OFD ON?
JRST [ TYPEIT <OFD>
JRST .+1 ]
POPJ P,0
;TO DUMP RP04 OFFSET REG.
RP04MO: HRRZ P4,T1
TYPEIT <AT END:>
TRNN P4,1B20 ;SIGN CHANGE?
PUSHJ P,RPMO00 ;YUP SAY SO
TRNE P4,1B23 ;FORMAT BIT ?
PUSHJ P,RPMO01
TRNE P4,1B24 ;ECI ON?
PUSHJ P,RPMO02
TRNE P4,1B25 ;HCI?
PUSHJ P,RPMO03
TYPEIT < OFFSET = >
TRNE P4,1B28 ;NEGATIVE DIR.?
PUSHJ P,RPMO04 ;YES
SETZ P3, ;ZERO COUNTER
TRNE P4,1B30 ;800?
ADDI P3,^D800
TRNE P4,1B31 ;400?
ADDI P3,^D400
TRNE P4,1B32 ;200?
ADDI P3,^D200
TRNE P4,1B33 ;100?
ADDI P3,^D100
TRNE P4,1B34 ;50?
ADDI P3,^D50
TRNE P4,1B35 ;25?
ADDI P3,^D25
MOVE T1,P3 ;TOTAL IN T1 NOW
MOVE T2,MDETYP ;[525]GET DEVICE TYPE
CAIN T2,6 ;RP06?
IDIVI T1,2 ;OFFSETS ARE HALF AS BIG[525]
SKIPN T1 ;NO OFFSET?
PJRST RP04M1 ;YUP-NONE
PUSHJ P,.ODECW ;PRINT WITH A "."
TYPEIT < U IN.>
POPJ P,0 ;GO HOME
RP04M1: TYPEIT <NONE>
POPJ P,0
RPMO00: TYPEIT <SIGN CHANGE OFF,>
POPJ P,0
RPMO01: TYPEIT <FMT22,>
POPJ P,0
RPMO02: TYPEIT <ECI,>
POPJ P,0
RPMO03: TYPEIT <HCI,>
POPJ P,0
RPMO04: TYPEIT < - >
POPJ P,0
;NOW FOR RP04 DESIRED OR CURRENT CYL
RP04DC: HLRZ T1,T1 ;GET ERROR ALONE
ANDI T1,1777 ;[505]ONLY CYL BITS WANTED
MOVE T2,MDEDTP ;[527][315]GET DEVICE TYPE
CAIN T2,6 ;RP06?
JRST RP4DC1 ;[1270] YES
CAIN T2,11 ;[1270] RM03 ?
JRST RP4DC1 ;[1270] YES
TRZ T1,1000 ;[505]NO-CLEAR EXTRA BIT
RP4DC1: PJRST .ODECW ;[1270]
;RS04 DESIRED SECTOR/TRACK ADDRESS
RS04BA: HLRZ P4,T1
MOVE P3,P4
ANDI P3,7700 ;TRACK BITS ONLY
LSH P3,-6 ;MOVE IT OVER
TYPEIT <D. TRK = >
MOVE T1,P3
PUSHJ P,.TOCTW
TYPEIT <, D.SECT = >
ANDI P4,77 ;SECTOR BITS
MOVE T1,P4
PJRST .TOCTW
;NOW FOR TU16 REGISTERS
TU16TC: HLRZ P4,T1
TRNN P4,1B20
JRST .+3
TYPEIT <ACCL,>
TRNN P4,1B21
JRST .+3
TYPEIT < FCS,> ; [1153]
TRNN P4,1B22
JRST .+3
TYPEIT < TCW,> ; [1153]
TRNN P4,1B23
JRST .+3
TYPEIT < EAO/DTE,>
MOVE P3,P4
ANDI P3,3400 ;GET DENSITY
LSH P3,-10
MOVE T1,TU6DEN(P3)
PUSHJ P,.TSTRG
MOVE P3,P4
ANDI P3,360 ;GET FORMAT
LSH P3,-4
MOVE T1,TU6FOR(P3)
PUSHJ P,.TSTRG
TRNN P4,1B32
JRST .+3
TYPEIT < EVEN PARITY>
ANDI P4,7 ;GET SLAVE #
TYPEIT < SLAVE #>
MOVE T1,P4
PJRST .TOCTW
TU6DEN: [ASCIZ/ 200BPI NRZ/]
[ASCIZ/ 556BPI NRZ/]
[ASCIZ/ 800BPI NRZ/]
[ASCIZ/ 800BPI NRZ/]
[ASCIZ/ 1600BPI PE/]
[ASCIZ/ 1600BPI PE/]
[ASCIZ/ 1600BPI PE/]
[ASCIZ/ 1600BPI PE/]
TU6FOR: [ASCIZ/ 10 CORE-DUMP/]
[ASCIZ/ 10 7-TRACK/]
[ASCIZ/ 10 ASCII/] ; [1153]
[ASCIZ/ 10 COMPATIBLE/]
[ASCIZ/ UNKNOWN/]
[ASCIZ/ UNKNOWN/]
[ASCIZ/ UNKNOWN/]
[ASCIZ/ UNKNOWN/]
[ASCIZ/ UNKNOWN/]
[ASCIZ/ UNKNOWN/]
[ASCIZ/ UNKNOWN/]
[ASCIZ/ UNKNOWN/]
[ASCIZ/ UNKNOWN/]
[ASCIZ/ UNKNOWN/]
[ASCIZ/ UNKNOWN/]
[ASCIZ/ UNKNOWN/]
;CONTROL TABLES FOR USE WITH HWDUMP ROUTINE
;LH = KONTYP TABLE INDEX FOR THIS REG IF SINGLE BIT
; TRANSLATION OR -1 FOR SPECIAL ROUTINE
;RH = ADDR TO ENGLISH BIT TABLES (XXXXDV) FOR JFLOOP
; OR ADDR OF SPEC ROUTINE.
RP04CT: XWD -1,RP04CR
XWD 20,RP04SR
XWD 21,RP04ER
XWD 47,RPMRDV
XWD -1,NOTRAN
XWD -1,RP04BA
XWD -1,NOTRAN
XWD -1,NOTRAN
XWD -1,NOTRAN
XWD -1,RP04MO
XWD -1,RP04DC
XWD -1,RP04DC
XWD 22,RP04CB
XWD 23,RP04DA
XWD -1,NOTRAN
XWD -1,NOTRAN
RS04CT: XWD -1,RS04CR
XWD 24,RS04SR
XWD 25,RS04ER
XWD -1,NOTRAN
XWD -1,NOTRAN
XWD -1,RS04BA
XWD -1,NOTRAN
XWD -1,NOTRAN
XWD -1,NOTRAN
XWD -1,NOTRAN
XWD -1,NOTRAN
XWD -1,NOTRAN
XWD -1,NOTRAN
XWD -1,NOTRAN
XWD -1,NOTRAN
XWD -1,NOTRAN
TU16CT: XWD -1,TU16CR
XWD 26,TU16SR
XWD 27,TU16ER
XWD -1,NOTRAN
XWD -1,NOTRAN
XWD -1,NOTRAN
XWD -1,NOTRAN
XWD -1,NOTRAN
XWD -1,NOTRAN
XWD -1,TU16TC
XWD -1,NOTRAN
XWD -1,NOTRAN
XWD -1,NOTRAN
XWD -1,NOTRAN
XWD -1,NOTRAN
XWD -1,NOTRAN
;TABLE USED FOR BOTH RP05&RP06
RP05CT: XWD -1,RP04CR
XWD 20,RP04SR
XWD 21,RP04ER
XWD 47,RPMRDV
XWD -1,NOTRAN
XWD -1,RP04BA
XWD -1,NOTRAN
XWD -1,NOTRAN
XWD -1,NOTRAN
XWD -1,RP04MO
XWD -1,RP04DC
XWD -1,RP04DC
XWD 34,RP05DV
XWD 35,RP06DV
XWD -1,NOTRAN
XWD -1,NOTRAN
RM03CT: XWD -1,RP04CR ; [601]
XWD 20,RP04SR
XWD 21,RP04ER
XWD 54,RM3MR1
XWD -1,NOTRAN
XWD -1,RP04BA
XWD -1,NOTRAN
XWD -1,NOTRAN
XWD -1,NOTRAN
XWD -1,RM03MO
XWD -1,RP04DC
XWD -1,NOTRAN
XWD 55,RM3MR2
XWD 56,RM3ER2
XWD -1,NOTRAN
XWD -1,NOTRAN
DEVTYP: 0
0
SOFTDV
TM10DV
RH10DV
RH20DV
DX10DV
TC10DV
DL10DV
DL11DV
KL1ADV
RH11DV
UBADV
KS1ADV
0
0
RP04SR ;20
RP04ER
RP04CB
RP04DA
RS04SR
RS04ER
TU16SR
TU16ER
ICPCX1
DXTAGB
DXSB03
DXSB47
RP05DV
RP06DV
FESTDV
FELPDV
LPSADV ;40
LPSBDV
FECDDV
CDSTDV
RHSWDV
RLD1DV
FEKLDV
RPMRDV
DXSRDV
DXERDV
DXMRDV
CS2DV
RM3MR1
RM3MR2
RM3ER2
SCRDV
NRCDV ;60
SUBTTL KL CPU STATUS BLOCK ENTRY
;ADDED BY EDIT 740
SB000A: PUSHJ P,.TCRLF ;[754]
TYPEIT <CONI RH0 THRU RH7 >
PUSHJ P,.TCRLF
MOVE P2,[XWD -8,SB%RHC]
PUSHJ P,COLOUT
TYPEIT <CONI DTE0 THRU DTE3 >
PUSHJ P,.TCRLF
MOVE P2,[XWD -4,SB%DTC]
PUSHJ P,COLOUT
TYPEIT <EPT LOCATIONS 0 THRU 37 (CHANNEL LOGOUT AREA)>
PUSHJ P,.TCRLF
MOVE P2,[XWD -40,SB%EP0]
PUSHJ P,COLOUT
TYPEIT <EPT LOCATIONS 140 THRU 177 (DTE CONTROL BLOCKS)>
PUSHJ P,.TCRLF
MOVE P2,[XWD -40,SB%EP1]
PUSHJ P,COLOUT
TYPEIT <UPT LOCATIONS 424 THRU 427 (UUO AREA)>
PUSHJ P,.TCRLF
MOVE P2,[XWD -4,SB%UP0]
PUSHJ P,COLOUT
TYPEIT <UPT LOCATIONS 500 THRU 503 (PAGE FAIL AREA)>
PUSHJ P,.TCRLF
MOVE P2,[XWD -4,SB%UP1]
PUSHJ P,COLOUT
TYPEIT <AC BLOCK 6 LOCATIONS 0 THRU 3 AND 12>
PUSHJ P,.TCRLF
MOVE P2,[XWD -5,SB%6]
PUSHJ P,COLOUT
PUSHJ P,.TCRLF ;[754]
TYPEIT <AC BLOCK 7 LOCATIONS 0 THRU 2>
PUSHJ P,.TCRLF
MOVE P2,[XWD -3,SB%7]
PUSHJ P,COLOUT
POPJ P,0
SB000B: PUSHJ P,.TCRLF
PUSHJ P,.TCRLF
TYPEIT <SBDIAG FUNCTIONS>
PUSHJ P,.TCRLF
TYPEIT < CTRLR FUNCTION 0 FUNCTION 1>
MOVE P2,WKBUFF+SB%SBD ;OFFSET > 77 -- PROCESSOR CAN'T GET IT [753]
PUSHJ P,SBDOUT
POPJ P,0
;MOVED KLE200 & KLE201 TO SYRLIB WITH EDIT [1226]
SUBTTL BIT CHECKING ROUTINES
;BCKXXX -- SUBROUTINES TO DETERMINE LISTING AND SUMMATION
; ELIGIBILITY BASED ON BITS IN ENTCHR TABLE
;CALL PUSHJ P,@BITCHK(ERROR CODE)
;
;RETURN CALL+1 TO LIST
; JRST ABORT TO GO TO NEXT ENTRY
;CHANGED WITH EDIT 211 TO SUPPORT USING ONLY /DEV:SWITCH
BCK101: MOVE P1,ERTYPE
MOVE P2,ENTCHR(P1) ;CHARACTERISTICS OF ENTRY
PUSH P,P2 ;SAVE P2
TLNE P2,E.LSUM ;WANT SUMMARY?
PUSHJ P,SUM101 ;GO DO IT
POP P,P2 ;RESTORE P2
TLNN F,F.DEV ;EDIT 211-SAID /DEV:?
JRST BC101A ;NO GO AROUND
MOVE T1,[SIXBIT/KLCPU/]
CAME T1,DEV ;MATCH?
JRST ABORT ;NOPE!
TLNE F,F.OSUM ;ANY TYPE SWITCH SPECIFIED?
TLO P2,E.LALL ;NO FORCE LISTING
BC101A: TLNE P2,E.LALL ;LIST ALL?
POPJ P,0 ;YES
TLNE P2,E.LPER ;LIST PERFORMANCE
POPJ P,0 ;YES
JRST ABORT ;THAT'S ALL TO CHECK
BCK102: MOVE P1,ERTYPE
MOVE P2,ENTCHR(P1) ;CHARACTERISTICS OF ENTRY
PUSH P,P2 ;SAVE P2
TLNE P2,E.LSUM ;WANT SUMMARY?
PUSHJ P,SUM102 ;GO DO IT
POP P,P2 ;RESTORE P2
TLNN F,F.DEV ;EDIT 211-SAID /DEV:?
JRST BC102A ;NO GO AROUND
MOVE T1,[SIXBIT/KLCPU/]
CAME T1,DEV ;MATCH?
JRST ABORT ;NOPE!
TLNE F,F.OSUM ;ANY TYPE SWITCH SPECIFIED?
TLO P2,E.LALL ;NO FORCE LISTING
BC102A: TLNE P2,E.LALL ;LIST ALL?
POPJ P,0 ;YES
TLNE P2,E.LPER ;LIST PERFORMANCE
POPJ P,0 ;YES
JRST ABORT ;THAT'S ALL TO CHECK
BCK111: MOVE P1,ERTYPE
MOVE P4,ENTCHR(P1) ;GET CHAR WORD
PUSH P,P4 ;SAVE CHARACTERISTICS
TLNE P4,E.LSUM ;SUMMARY?
PUSHJ P,SUM111
TLNN F,F.TRY ;SAID /RETRY? [126]
JRST BC111A ;NO
HRRZ T1,WKBUFF+MB%FEC ;[707]GET # RETRIES
CAMG T1,RETRY ;ENTRY VALUE GREATER
JRST ABORT ;NO-DON'T LIST
BC111A: TLNN F,F.DEV ;SAID /DEV:?
JRST BK111B ;NO! - SKIP THIS SECTION
MOVE T1,DEV ;YES! - GET SPECIFIED NAME
MOVE T2,MDEDTP ;GET THIS ENTRIES DEVICE TYPE
CAMN T1,MDE000(T2) ;ARE THEY THE SAME? [606]
JRST .+3 ;YES! - FORCE LISTING
MOVEI P3,MB%NAM ;NO! - TRY GENERAL TYPE
PUSHJ P,DEVCHK
POP P,P4 ;GET CHARACTERISTICS BACK
TLNE F,F.OSUM ;ANY TYPE SWITCH CALLED LIKE /MASALL?
TLO P4,E.LALL ;NO-FORCE LISTING
PUSH P,P4 ;SAVE CHARACTERISTICS
BK111B: TRNN F,F.NDEV ;/NDEV:?
JRST BC111B ;NOPE
MOVEI P3,MB%NAM
PUSHJ P,NDVCHK ;GO CHECK
BC111B: TLNN F,F.ID ;SAID /ID:?
JRST BC111C
MOVEI P3,MB%VID
PUSHJ P,IDCHK
BC111C: TLNN F,F.STR ;SAID /STR?
JRST BC111X ;NO
MOVEI P3,MB%VID ;OFFSET TO STR ID(USES VID,REALLY)
PUSHJ P,STRCHK ;GO CHECK IT
BC111X: POP P,P4 ;GET CHARACTERISTICS BACK
TLNE P4,E.LALL ;WANTS ALL?
POPJ P,0 ;OK
TLNN P4,E.LNXM ;HOW ABOUT NXM
JRST BC111E ;NO-CHECK PARITY
HRRZ T1,MASKON ;GET CONTROLLER TYPE
CAIE T1,..RH10 ;RH10?
JRST BC111D ;NO
MOVE T2,WKBUFF+MB%CNI ;YES-GET CONI WORD
TLNE T2,1B35 ;NXM ON? (BIT 17)
POPJ P,0 ;YES;LIST IT
JRST BC111E ;NO-CHECK PARITY
BC111D: CAIN T1,..RH11 ;RH11? [600]
JRST [ MOVE T2,WKBUFF+MB%S2I ;RH11 CONTROL & STATUS 2
TRNE T2,1B24 ;NXM?
POPJ P,0 ;YES! - LIST IT
JRST .+1 ] ;NO! - CONTINUE
MOVE T2,WKBUFF+MB%CS1 ;GET CHAN STATUS 1 [547]
TLNE T2,1B22 ;NXM? [547]
POPJ P,0 ;YES! - LIST IT
BC111E: TLNN P4,E.LPAR ;CARE ABOUT PARITY ERRORS?
JRST ABORT ;NO THAT'S ALL I COVER
MOVE T1,MDEDTP ;GET DEVICE TYPE
HLRZ T1,PAR111(T1) ;GET DISPATCH ADDRESS
PJRST @T1 ;DISPATCH TO ROUTINE [607]
BC111F: HRRZ T2,WKBUFF+MB%REG+2 ;ERROR REG
TRNE T2,1B32 ;PARITY SET?
POPJ P,0 ;LIST IT
JRST BC111J ;NO-CHECK CONTROLLER
BC111G: HRRZ T2,WKBUFF+MB%REG+2 ;ERROR REG
TRNE T2,1B29!1B30!1B32 ;THESE ARE POSSIBLE
POPJ P,0
JRST BC111J ;NO
BC111H: HRRZ T2,WKBUFF+MB%REG+2 ;ERROR REG
TRNE T2,1B20!1B27!1B29!1B32 ;CHOICES [601]
POPJ P,0 ;SET-LIST IT
;OR FALL INTO
;HERE TO CHECK PARITY ERRORS DET BY THE CONTROLLER
BC111J: HRRZ T2,WKBUFF+MB%REG ;CONTROL & STATUS 1 [600]
TRNE T2,1B22 ;MCPE?
POPJ P,0 ;YEP! - GO LIST
MOVE T1,MASKON ;KONTROLLER TYPE
CAIE T1,..RH10 ;RH10?
JRST BC111K ;NO
MOVE T2,WKBUFF+MB%CNI
TDNE T2,[1B15!1B16!1B18] ;CHOICES
POPJ P,0 ;LIST IT
JRST ABORT ;FORGET IT
BC111K: TRNE T1,..RH20 ;RH20? [600]
JRST BC111L ;NO!
MOVE T2,WKBUFF+MB%CNI
TDNE T2,[1B18!1B22] ;OTHER CHOICES
POPJ P,0 ;LIST
JRST ABORT ;FORGET IT
BC111L: TRNE T1,..RH11 ;RH11? - HOPE SO! [600]
JRST ABORT ;NO!! - HELP!!!
MOVE T2,WKBUFF+MB%S2I ;CONTROL & STATUS 2
TRNE T2,1B22 ;UPE?
POPJ P,0 ;YES! - LIST
MOVE T2,WKBUFF+MB%UBI ;UBA STATUS
TRNE T2,1B20 ;BUS PARITY ERR?
POPJ P,0 ;YUP! - LIST
JRST ABORT ;NO! - FORGET IT
;PAR111 - DISPATCH TABLE FOR PARITY BIT-CHECK ROUTINES AND FOR
; ERROR BIT SUMMARY ROUTINES FOR DEVICES IN A 111 ENTRY
; PARITY CHECK,,BIT SUMMARY (EDITS [607] & [1217]
;THIS TABLE MUST BE KEPT IN LINE WITH THE UNIT TYPE TABLE IN THE UNIVERSAL
; FILE. IN PARTICULAR THERE MUST BE AT LEAST ".UTMAX" ITEMS IN THE TABLE.
PAR111: XWD ABORT,SUMDUM ;UNKNOWN
XWD BC111H,S111H ;RP04
XWD BC111F,S111I ;RS04
XWD BC111G,S111J ;TU45
XWD BC111G,S111J ;TU16
XWD BC111H,S111H ;RP05
XWD BC111H,S111H ;RP06
XWD ABORT,SUMDUM ;RP07
XWD ABORT,SUMDUM ;RP08
XWD BC111H,S111K ;RM03
XWD ABORT,SUMDUM ;TM03
XWD BC111G,S111J ;TU77
XWD ABORT,SUMDUM ;TM78
XWD ABORT,SUMDUM ;TU78
XWD ABORT,SUMDUM ;DX20
XWD BC111G,S111L ;TU70
XWD BC111G,S111L ;TU71
XWD BC111G,S111L ;TU72
XWD BC111G,S111L ;TU73
BCK112: MOVE P1,ERTYPE
MOVE P2,ENTCHR(P1) ;CHARACTERISTICS OF ENTRY
PUSH P,P2 ;SAVE P2
TLNE P2,E.LSUM ;WANT SUMMARY?
PUSHJ P,SUM112 ;GO DO IT
TLNN F,F.TRY ;RETRY? [510]
JRST BC112A ;NO! - SKIP [510]
HRRZ T1,WKBUFF+DX%FEC;[707]GET # OF RETRIES [510]
CAMG T1,RETRY ;ENTRY VALUE GREATER? [510]
JRST ABORT ;NO! - DON'T LIST [510]
BC112A: TLNN F,F.DEV ;SAID /DEV:?
JRST BK112B ;NO! - SKIP THIS SECTION
MOVE T1,DEV ;YES! - GET SPECIFIED NAME
MOVE T2,MDEDTP ;GET THIS ENTRIES DEVICE TYPE
CAMN T1,MDE000(T2) ;ARE THEY THE SAME? [606]
JRST .+3 ;YES! - FORCE LISTING
MOVEI P3,MB%NAM ;NO! - TRY GENERAL TYPE
PUSHJ P,DEVCHK
POP P,P4 ;GET CHARACTERISTICS BACK
TLNE F,F.OSUM ;ANY TYPE SWITCH CALLED LIKE /MASALL?
TLO P4,E.LALL ;NO-FORCE LISTING
PUSH P,P4 ;SAVE CHARACTERISTICS
BK112B: TRNN F,F.NDEV ;/NDEV:?
JRST BC112B ;NOPE
MOVEI P3,MB%NAM
PUSHJ P,NDVCHK ;GO CHECK
BC112B: TLNN F,F.ID ;SAID /ID:?
JRST BC112C
MOVEI P3,MB%VID
PUSHJ P,IDCHK
BC112C: POP P,P2 ;GET ENTCHR BACK
TLNE P2,E.LALL ;LIST ALL?
POPJ P,0 ;YES
TLNE P2,E.LPER ;LIST PERFORMANCE
POPJ P,0 ;YES
JRST ABORT ;THAT'S ALL TO CHECK
BCK115: MOVE P1,ERTYPE
MOVE P2,ENTCHR(P1) ;CHARACTERISTICS OF ENTRY
PUSH P,P2 ;SAVE P2
TLNE P2,E.LSUM ;WANT SUMMARY?
PUSHJ P,SUM115 ;GO DO IT
POP P,P2 ;RESTORE P2
TLNN F,F.DEV ;EDIT 211-SAID /DEV:?
JRST BC115A ;NO GO AROUND
MOVE T1,DEV ;GET NAME SPECIFIED
LDB T2,[CS.UTP+WKBUFF] ;GET DEVICE TYPE
CAMN T1,MDE000(T2) ;IF THEY MATCH
POPJ P,0 ; FORCE LISTING
CAMN T1,CS%DNM+WKBUFF ;TRY LOGICAL NAME
POPJ P,0
BC115A: TLNE P2,E.LALL ;LIST ALL?
POPJ P,0 ;YES
JRST ABORT ;THAT'S ALL TO CHECK
;SUPPORT FOR ER.SLM AND BIT CHECKING, CHECKS FOR /DEV AND/OR /ID
BCK116: MOVE P1,ERTYPE
MOVE P2,ENTCHR(P1) ;PICKUP CHAR WORD
PUSH P,P2 ;SAVE ENTCHR
TLNE P2,E.LSUM ;SUMMARY DESIRED
PUSHJ P,SUM116
TLNN F,F.DEV ;USER SAY /DEV?
JRST BC16.1 ;NO GO AROUND
MOVEI P3,SLMDEV ;SET UP
PUSHJ P,DEVCHK ;AND CHECK IT
POP P,P2 ;RETURN ENTCHR
TLNE F,F.OSUM ;/DEV ALONE?
TLO P2,E.LALL ;YES, FORCE /ALL
PUSH P,P2 ;SAVE IT AGAIN
BC16.1: TLNN F,F.ID ;/ID? = "WHO"
JRST BC16.2 ;NO
MOVEI P3,SLMWHO ;SETUP
PUSHJ P,IDCHK ;MAKE CHECK
BC16.2: POP P,P2 ;RESTORE ENTCHR
TLNN P2,E.LALL!E.LPER ;WANT ALL OR PER?
JRST ABORT ;LOSE
POPJ P,0 ;WIN
;MORE FIXES FOR KLERR WITH EDIT [1235]
BCK130: MOVE P1,ERTYPE
MOVE P2,ENTCHR(P1) ;CHARACTERISTICS OF ENTRY
TLNE P2,E.LSUM ;WANTS SUMMARY?
PUSHJ P,SUM130 ;DO IT
HRRZ T1,WKBUFF+FE%COD ;GET DEVICE CODE
CAIE T1,.KLERR ;IF NOT KLERR
JRST BC130X ; SKIP KLERR CHECK
HRRZ T2,WKBUFF+FE%OFF ;GET STD. STATUS WORD
ADDI T2,WKBUFF
LDB T2,[STD.ST(T2)]
TRNE T2,1B30 ;IF EOF IS SET
JRST BC130X ; PROCEED NORMALLY
TRNN F,F.REM ;IF NOT REMOTE
JRST ABORT ; ABORT
;[1266] REMOVED TO KEEP 130-201 ENTRIES FROM /REMOTE FILE UNLESS ASKED FOR.
; POPJ P,0 ; ELSE FORCE TRANSFER
BC130X: TLNN F,F.DEV ;SAID /DEV:?
JRST BC130A ;NOPE [1200]
HRRZ T1,WKBUFF+FE%COD ;GET DEVICE CODE
CAIL T1,200 ;IF NOT HARDWARE DEVICE
JRST BC130C ; TRY PSEUDO DEVICE
MOVE T1,FE$NAM(T1) ;NOW IN SIXBIT
CAME T1,DEV
JRST ABORT ;NO MATCH
TLNE F,F.OSUM ;ANY TYPE SWITCH CALLED?
TLO P2,E.LALL ;NO-FORCE LISTING
BC130A: TLNE P2,E.LALL ;LIST ALL?
POPJ P,0 ;YES! - LIST IT!
TLNE P2,E.LPER ;LIST PERFORMANCE
POPJ P,0 ;YES! - LIST IT!
HRRZ T2,WKBUFF+FE%COD
CAIE T2,200 ;RELOAD?
JRST ABORT ;NOPE
MOVE T1,SWITCH ;GET ADDR OF COMMAND USED
CAIE T1,CPUPER ;"/CPUPER"?
JRST ABORT ;NOPE
POPJ P,0 ;YES! - LIST IT!
BC130C: SUBI T1,200 ;REMOVE OFFSET
MOVE T1,FEHNAM(T1) ;A HIGHER NAME
CAME T1,DEV ;MATCH?
JRST BC130D ;CHECK FURTHER
TLNE F,F.OSUM ;ANY LISTING CALLED FOR?
TLO P2,E.LALL ;NO-FORCE LISTING
JRST BC130A ;AND CONTINUE
BC130D: HRRZ T2,WKBUFF+FE%COD
CAIE T2,201 ;KLERR?
JRST ABORT ;NOPE
MOVE T1,FEHNAM ;GET SIXBIT "KLCPU"
CAME T1,DEV ;MATCH
JRST ABORT
TLNE F,F.OSUM
TLO P2,E.LALL ;FORCE AS ABOVE
JRST BC130A ;AND CONTINUE
BCK131: MOVE P1,ERTYPE
MOVE P2,ENTCHR(P1) ;CHARACTERISTICS OF ENTRY
PUSH P,P2 ;SAVE P2
TLNE P2,E.LSUM ;WANT SUMMARY?
PUSHJ P,SUM131 ;GO DO IT
POP P,P2 ;RESTORE P2
TLNN F,F.DEV ;EDIT 211-SAID /DEV:?
JRST BC131A ;NO GO AROUND
MOVE T1,[SIXBIT/11CPU/]
CAME T1,DEV ;MATCH?
JRST ABORT ;NOPE!
TLNE F,F.OSUM ;ANY TYPE SWITCH SPECIFIED?
TLO P2,E.LALL ;NO FORCE LISTING
BC131A: TLNE P2,E.LALL ;LIST ALL?
POPJ P,0 ;YES
TLNE P2,E.LPER ;LIST PERFORMANCE
POPJ P,0 ;YES
JRST ABORT ;THAT'S ALL TO CHECK
BCK160: MOVE P1,ERTYPE
MOVE P2,ENTCHR(P1) ;CHARACTERISTICS OF ENTRY
PUSH P,P2 ;SAVE P2
TLNE P2,E.LSUM ;WANT SUMMARY?
PUSHJ P,SUM160 ;GO DO IT
POP P,P2 ;RESTORE P2
TLNN F,F.DEV ;EDIT 211-SAID /DEV:?
JRST BC160A ;NO GO AROUND
MOVE T1,[SIXBIT/CPU/]
CAME T1,DEV ;MATCH?
JRST ABORT ;NOPE!
TLNE F,F.OSUM ;ANY TYPE SWITCH SPECIFIED?
TLO P2,E.LALL ;NO FORCE LISTING
BC160A: TLNE P2,E.LALL ;LIST ALL?
POPJ P,0 ;YES
TLNE P2,E.LPER ;LIST PERFORMANCE
POPJ P,0 ;YES
JRST ABORT ;THAT'S ALL TO CHECK
BCK161: ; [614]
BCK162: MOVE P1,ERTYPE
MOVE P2,ENTCHR(P1) ;CHARACTERISTICS OF ENTRY
PUSH P,P2 ;SAVE P2
TLNE P2,E.LSUM ;WANT SUMMARY?
PUSHJ P,SUM161 ;GO DO IT
POP P,P2 ;RESTORE P2
TLNN F,F.DEV ;EDIT 211-SAID /DEV:?
JRST BC161A ;NO GO AROUND
MOVE T1,[SIXBIT/KLCPU/]
CAME T1,DEV ;MATCH?
JRST ABORT ;NOPE!
TLNE F,F.OSUM ;ANY TYPE SWITCH SPECIFIED?
TLO P2,E.LALL ;NO FORCE LISTING
BC161A: TLNE P2,E.LALL ;LIST ALL?
POPJ P,0 ;YES
TLNE P2,E.LPER ;LIST PERFORMANCE
POPJ P,0 ;YES
JRST ABORT ;THAT'S ALL TO CHECK
BCK133:
BCK163: MOVE P1,ERTYPE
MOVE P2,ENTCHR(P1) ;CHARACTERISTICS OF ENTRY
PUSH P,P2 ;SAVE P2
TLNE P2,E.LSUM ;WANT SUMMARY?
PUSHJ P,SUM163 ;GO DO IT
POP P,P2 ;RESTORE P2
TLNN F,F.DEV ;EDIT 211-SAID /DEV:?
JRST BC163A ;NO GO AROUND
MOVE T1,[SIXBIT/KLCPU/]
CAME T1,DEV ;MATCH?
JRST ABORT ;NOPE!
TLNE F,F.OSUM ;ANY TYPE SWITCH SPECIFIED?
TLO P2,E.LALL ;NO FORCE LISTING
BC163A: TLNE P2,E.LALL ;LIST ALL?
POPJ P,0 ;YES
TLNE P2,E.LPAR ;LIST PARITY
POPJ P,0 ;YES
TLNE P2,E.LNXM ;LIST NXM
POPJ P,0 ;YES
JRST ABORT ;THAT'S ALL TO CHECK
BCK164: MOVE P1,ERTYPE
MOVE P2,ENTCHR(P1) ;CHARACTERISTICS OF ENTRY
PUSH P,P2 ;SAVE P2
TLNE P2,E.LSUM ;WANT SUMMARY?
PUSHJ P,SUM164 ;GO DO IT
POP P,P2 ;RESTORE P2
TLNN F,F.DEV ;EDIT 211-SAID /DEV:?
JRST BC164A ;NO GO AROUND
MOVE T1,[SIXBIT/MF20/]
CAME T1,DEV ;MATCH?
JRST ABORT ;NOPE!
TLNE F,F.OSUM ;ANY TYPE SWITCH SPECIFIED?
TLO P2,E.LALL ;NO FORCE LISTING
BC164A: TLNE P2,E.LALL ;LIST ALL?
POPJ P,0 ;YES
TLNE P2,E.LPAR ;LIST PARITY
POPJ P,0 ;YES
JRST ABORT ;THAT'S ALL TO CHECK
SUBTTL SUMMARY ROUTINES
SUM101:
SUM115:
SUM131:
SUM133:
SUM160:
SUM161:
SUM162:
SUM163: ; [740]
SUM164:
SUMDUM: POPJ P,0 ;DUMMY SUMMARY ROUTINE
;START OF EDIT 1200
SUM102: MOVE T1,[NEGINF] ;[1260] MAKE SURE IT FIRST IN LIST
MOVEM T1,KEYBUF ;[1260] COUNT BUG TYPE
MOVE T1,WKBUFF+BG%FLG
SKIPL T1 ;IF BUG TYPE OUT OF RANGE
CAILE T1,BG%MAX ;[1260]
SETZ T1, ; MAKE IT 'BUG???'
MOVEM T1,KEYBUF+1
MOVE T1,[1,,BUGLST]
MOVE T2,[2,,KEYBUF]
GETBF
FATAL <ERROR AT SUM102 - GETBF 1>
AOS (T1)
MOVE T1,KEYBUF+1 ;COUNT BUG REASON
MOVEM T1,KEYBUF
MOVE T1,WKBUFF+BG%NAM
MOVEM T1,KEYBUF+1
MOVE T1,[1,,BUGLST]
MOVE T2,[2,,KEYBUF]
GETBF
FATAL <ERROR AT SUM102 - GETBF 2>
AOS (T1)
POPJ P,0 ;DONE - RETURN
;REWRITTEN TO ALLOW FOR MORE THAN ONE WORD TO BE SUMMED FOR RH11 [600]
;REDONE FOR DYNAMIC TABLE ALLOCATION WITH EDITS [1200] & [1217]
;DO CHANNEL TOTAL
SUM111:
SUM112: LDB T1,[MB.CHN+WKBUFF] ;GET CONTROLLER TYPE
MOVEM T1,KEYBUF
MOVE T1,WKBUFF+MB%CAD ;GET CHANNEL #
MOVEM T1,KEYBUF+1
MOVE T1,[1,,CHNTOT]
MOVE T2,[2,,KEYBUF]
GETBF
FATAL <ERROR AT SUM111 - GETBF CHNTOT>
MOVEI P3,1 ;SET UP FOR SOFT ERROR
MOVE T2,WKBUFF+MB%IRS ;GET IORB STATUS WORD
TLNE T2,HRDERR ;IF IT'S HARD
MOVSS P3 ; ADD TO LEFT HALF
ADDM P3,(T1)
;NOW CHANNEL ERROR BIT SUMMARY
; (HAVE CONTROLLER TYPE IN KEYBUF FROM ABOVE)
MOVE T1,WKBUFF+MB%NAM ;GET PHYSICAL DEVICE NAME IN SIXBIT
MOVEM T1,KEYBUF+1
MOVE T1,[17,,CHNLST]
MOVE T2,[2,,KEYBUF]
GETBF
FATAL <ERROR AT SUM111 - GETBF CHNLST>
MOVE P1,MASKON ;TYPE CONTROLLER SAVED BY MDECHR
MOVE P2,T1 ;SAVE ERROR COUNTER BASE ADDRESS
MOVE T1,WKBUFF+MB%CNI ;CONI WORD (C & S #1 FOR RH11)
PUSHJ P,DYNSUM ;GO DO THE BIT COUNTING
CAIE P1,..RH11 ;RH11? (USES 3 WORDS)
JRST S111B ;NO! - NO MORE
MOVEI P1,53 ;OFFSET FOR C&S2
ADDI P2,NUMR11 ;ADVANCE POINTER FOR 2ND WORD
MOVE T1,WKBUFF+MB%S2I ;RH11 C & S #2
PUSHJ P,DYNSUM ;GO DO THE BIT COUNTING
MOVEI P1,14 ;OFFSET FOR UBA STATUS REGISTER
ADDI P2,NUMCS2 ;ADVANCE POINTER FOR 3RD WORD
MOVE T1,WKBUFF+MB%UBI ;UBA STATUS REG.
PUSHJ P,DYNSUM ;GO DO THE BIT COUNTING
;NOW FOR DEVICE TOTAL
S111B: LDB T1,[MB.DEV+WKBUFF] ;GET DEVICE TYPE
CAIL T1,.UTMIN ;IF NOT A LEGAL DEVICE
CAILE T1,.UTMAX
SETZ T1, ; MAKE IT UNKNOWN
MOVEM T1,KEYBUF
MOVE T1,KEYBUF+1 ;PUT DRIVE NAME FROM CHNLST IN KEY 2
MOVEM T1,KEYBUF+2
MOVE T1,ERTYPE ;IF NOT DX20 ERROR [START 1206]
CAIE T1,SEC%DX ; (ERROR TYPE 112)
JRST S111A ; GET S/N FROM MB REG 10
HRRZ T4,WKBUFF+DX%DVL ;DEVICE VALUE SUB-BLOCK POINTER
ADDI T4,WKBUFF ;CREATE BUFFER POINTER
LDB T1,[POINT 8,DT%SBE(T4),9] ;LOW PART
LDB T2,[POINT 8,DT%SBD(T4),35] ;HIGH PART
DPB T2,[POINT 8,T1,27] ;COMBINE HIGH & LOW PARTS
SKIPA ;SKIP OVER NON-DX20 STYLE [END 1206]
S111A: HRRZ T1,WKBUFF+MB%REG+10 ;S/N IN BCD FOR NORMAL MASBUSS DEVICES
MOVEM T1,KEYBUF+1
MOVE T1,[50,,MASLST]
MOVE T2,[3,,KEYBUF]
GETBF
FATAL <ERROR AT SUM111 - GETBF MASLST>
ADDM P3,(T1) ;HARD/SOFT FLAG SHOULD STILL BE SET UP
AOS P2,T1 ;SETUP BASE POINTER FOR DEVICE REGISTERS
;START SUMMING DEVICE ERROR REGISTERS
MOVE T1,MDEDTP ;GET DEVICE TYPE
HRRZ T1,PAR111(T1) ;GET DISPATCH ADDRESS
PJRST @T1 ;DISPATCH TO ROUTINE [607]
;HERE FOR RP04, RP05, RP06
S111H: MOVEI P1,21 ;OFFSET FOR RP04 ERROR REG #1
HRLZ T1,WKBUFF+MB%REG+2 ;WORD TO SUMMATE
PUSHJ P,DYNSUM ;GO DO THE BIT COUNTING
MOVEI P1,22 ;OFFSET FOR RP04 ERROR REG #2
ADDI P2,NURP02 ;ADVANCE POINTER FOR 2ND WORD
HRLZ T1,WKBUFF+MB%REG+14 ;2ND WORD - RP04 ERROR REG #2
PUSHJ P,DYNSUM ;GO DO THE BIT COUNTING
MOVEI P1,23 ;OFFSET FOR RP04 ERROR REG #3
ADDI P2,NURP10 ;ADVANCE POINTER FOR 3RD WORD
HRLZ T1,WKBUFF+MB%REG+15 ;3RD WORD - RP04 ERROR REG #3
PJRST DYNSUM ;GO DO THE BIT COUNTING
;HERE FOR RS04
S111I: MOVEI P1,25 ;OFFSET FOR RS04 ERROR REGISTER
HRLZ T1,WKBUFF+MB%REG+2 ;WORD TO SUMMATE
PJRST DYNSUM ;GO DO THE BIT COUNTING
;HERE FOR TU16, TU45, TU77
S111J: MOVEI P1,27 ;OFFSET FOR TU16 ERROR REGISTER
HRLZ T1,WKBUFF+MB%REG+2 ;WORD TO SUMMATE
PJRST DYNSUM ;GO DO THE BIT COUNTING
;HERE FOR RM03 [601]
S111K: MOVEI P1,21 ;OFFSET FOR RM03 ERROR REG #1
HRLZ T1,WKBUFF+MB%REG+2 ;WORD TO SUMMATE
PUSHJ P,DYNSUM ;GO DO THE BIT COUNTING
MOVEI P1,56 ;OFFSET FOR RP04 ERROR REG #2
ADDI P2,NURP02 ;ADVANCE POINTER FOR 2ND WORD
HRLZ T1,WKBUFF+MB%REG+15 ;WORD TO SUMMATE
PJRST DYNSUM ;GO DO THE BIT COUNTING
;HERE FOR TU70, TU71, TU72, TU73
S111L: MOVEI P1,51 ;OFFSET FOR TU70 ERROR REG #1
HRRZ T1,WKBUFF+DX%MBR ;MASBUSS REG SUB-BLOCK POINTER
HRLZ T1,WKBUFF+2(T1) ;WORD TO SUMMATE
PJRST DYNSUM ;GO DO THE BIT COUNTING
;END OFF EDIT [1217]
SUM116: MOVE T2,WKBUFF+SLMWHO ;SAME AS SUM1 BASICALLY
MOVEI T1,WHOSLM ;INIT POINTER
WHOFND: HLRZ T3,(T1) ;GET POINTER TO NEXT
JUMPE T3,WHONEW ;EXIT IF NO REASON
MOVEI T1,(T3) ;SETUP POINTER
CAME T2,1(T1) ;IS THIS THE ENTRY?
JRST WHOFND ;NO,GET NEXT
AOS T3,(T1) ;BUMP
TRNN T3,-1 ;BUT
SOS (T1) ;NOT TOO MUCH(OVERFLOW)
PJRST SM116A
WHONEW: AOS T3,.JBFF ;NEXT POSITION
AOS .JBFF ;CLEAN HOUSE
CAMG T3,.JBREL ;IS THERE ROOM?
JRST WHOINS ;YES INSERT REASON
MOVE T4,T3 ;DIFFERENT AC
CORE T4, ;GET MORE CORE
FATAL <SYRNCA: NO CORE AVAILABLE> ;OPPS
WHOINS: MOVEM T2,(T3) ;SAVE REASON
ADDI T3,-1 ;INITIAL COUNT AND ADDRESS
HLRZM T3,(T3) ;SET COUNT TO ONE
HRLM T3,(T1) ;POINT TO THIS BLOCK
PJRST SM116A ;DO SECON HALF
SM116A: MOVE T2,WKBUFF+SLMDEV ;SAME AS SUM1 BASICALLY
MOVEI T1,DEVWHY ;INIT POINTER
DEVFND: HLRZ T3,(T1) ;GET POINTER TO NEXT
JUMPE T3,DEVNEW ;EXIT IF NO REASON
MOVEI T1,(T3) ;SETUP POINTER
CAME T2,1(T1) ;IS THIS THE ENTRY?
JRST DEVFND ;NO,GET NEXT
AOS T3,(T1) ;BUMP
TRNN T3,-1 ;BUT
SOS (T1) ;NOT TOO MUCH(OVERFLOW)
POPJ P,0
DEVNEW: AOS T3,.JBFF ;NEXT POSITION
AOS .JBFF ;CLEAN HOUSE
CAMG T3,.JBREL ;IS THERE ROOM?
JRST DEVINS ;YES INSERT REASON
MOVE T4,T3 ;DIFFERENT AC
CORE T4, ;GET MORE CORE
FATAL <SYRNCA: NO CORE AVAILABLE> ;OPPS
DEVINS: MOVEM T2,(T3) ;SAVE REASON
ADDI T3,-1 ;INITIAL COUNT AND ADDRESS
HLRZM T3,(T3) ;SET COUNT TO ONE
HRLM T3,(T1) ;POINT TO THIS BLOCK
POPJ P,0 ;AND LEAVE
;START EDIT 1200
SUM130: LDB T1,[FE.DEV+WKBUFF] ;GET DEVICE CODE
CAIL T1,200 ;IF IN PSEUDO RANGE
JRST SM130B ; CHECK LEGALITY
CAILE T1,.FEMAX ;IF OUT OF CURRENT REAL RANGE
SM130A: SETZ T1, ; MAKE IT UNKNOWN
MOVE T1,FE$NAM(T1) ;GET SIXBIT DEVICE NAME
JRST SM130G ; AND COUNT IT
SM130B: CAILE T1,.KLMAX ;IF OUT OF CURRENT PSEUDO RANGE
JRST SM130A ; MAKE IT UNKNOWN
CAIE T1,.KLERR ;IF NOT KLERR
JRST SM130C ; JUST COUNT ENTRY
HRRZ T2,WKBUFF+FE%OFF ;GET STD. STATUS WORD
ADDI T2,WKBUFF
LDB T2,[STD.ST(T2)]
TRNE T2,1B30 ;IF EOF IS SET
JRST SM130K ; COUNT REPORT
SM130C: SUBI T1,200 ;REMOVE OFFSET
MOVE T1,FEHNAM(T1) ;GET SIXBIT DEVICE NAME
SM130G: MOVEM T1,KEYBUF ;COUNT ENTRY
MOVE T1,[1,,FE.LST]
MOVE T2,[1,,KEYBUF]
GETBF
FATAL <ERROR AT SM130G - GETBF>
AOS (T1)
POPJ P,0 ;RETURN
SM130K: SUBI T1,200 ;REMOVE OFFSET
MOVE T1,FEHNAM(T1) ;GET SIXBIT DEVICE NAME
MOVEM T1,KEYBUF ;COUNT ENTRY & REPORT
MOVE T1,[1,,FE.LST]
MOVE T2,[1,,KEYBUF]
GETBF
FATAL <ERROR AT SM130K - GETBF>
MOVE T2,[1,,1]
ADDM T2,(T1)
POPJ P,0 ;RETURN
;END EDIT 1200
COMMENT \ I DON'T THINK WE NEED THIS CODE [PJB]
;SUMUPD -- SUBROUTINE TO AUTOMATICALLY UPDATE ALL PERMANENT
;SUMMARY COUNTERS PRIOR TO SUMMARY LISTING
;A DUMMY MACRO DUMFLG IS USED TO GENERATE
;THE NECESSARY CODE AS FOLLOWS
;SKIPE T1,XXXTMP ;PICKUP TEMP COUNTER
;ADDM T1,XXXPER ;INCREMENT PERM COUNTER
;DO NEXT COUNTER SAME.......
;modified by edit #110
DEFINE TBLFLG(A)<
setz t1,
exch t1,a'tmp
ADDM T1,A'PER
>
;NOW THE ACTUAL CODE GENERATION
; XLIST
SUMUPD: DUMFLG
LIST
;NOW GENERATE THE SOFTWARE SUMMARY COUNTERS UPDATE
;also modified by edit #110
DEFINE DUMDV(A)<
ZZ==0
REPEAT NUMSFB,<
setz t1,
exch t1,a'st+zz
ADDM T1,A'SP+ZZ
ZZ==ZZ+1
>>
XLIST
DUMDP
DUMFH
DUMRP
LIST
POPJ P, ;RETURN
\
SUBTTL STORAGE LOCATIONS
DUMDAY: 121165 ;DUMMY NBS DAY FOR USE BY SCAN
KONMSK: 0 ;MASK FOR ERROR BITS IN RC10 TYPE DEVICE
0 ;MASK FOR ERROR BITS IN RP10 TYPE DEVICE
SFMASK ;SOFTWARE DETECTED ERROR MASK
TMMASK
RHMASK
RH20SK
DXMASK
TCMASK
DL1MSK
DL2MSK
KLAMSK ;KL10 CONI APR
RH11SK ;RH11 CONTROL & STATUS 1 [600]
UBAMSK ;UBA STATUS [600]
KSAMSK ;KS10 CONI APR
0
0
P4SRSK
P4ERSK
P4CBSK
P4DASK
S4SRSK
S4ERSK
T6SRSK
T6ERSK
ICPCSK
DXTBSK
SB03SK
SB47SK
RP05SK
RP06SK
FESTSK
FELPSK
LPSASK
LPSBSK
FECDSK
CDSTSK
RHSWSK
RLD1SK
FEKLSK
RPMRSK
DXSRSK
DXERSK
DXMRSK
CS2MSK ;RH11 CONTROL & STATUS #2 [600]
RMM1SK ;RM03 MAINT REG 1 [601]
RMM2SK ;RM03 MAINT REG 2 [601]
RME2SK ;RM03 ERROR REG 2 (15) [601]
SCRMSK ;DH11 SYSTEM CONTROL REGISTER [1223]
NRCMSK ;DH11 NEXT RECEIVED CHARACTER REGISTER [1223]
MINERB: 0
0
MINSFB
MINTMB
MINRHB
MINRH2
MINDXB
MINTCB
MINDL1
MINDL2
MINKLA
MINR11
MINUBA
MINKSA
0
0
MIRP01
MIRP02
MIRP10
MIRP15
MIRS01
MIRS02
MIT601
MIT602
MIICPC
MIDXTB
MISB03
MISB47
MIRP05
MIRP06
MIFEST
MIFELP
MILPSA
MILPSB
MIFECD
MICDST
MIRHSW
MIRLD1
MIFEKL
MIRPMR
MIDXSR
MIDXER
MIDXMR
MINCS2
MINMR1
MINMR2
MINER2
MINSCR ;DH11 SYSTEM CONTROL REGISTER [1223]
MINNRC ;DH11 NEXT RECEIVED CHARACTER REGISTER [1223]
ERINDX: 0
0
0 ;SFINDX
0 ;TMINDX
RHINDX
RH20DX
0 ;DXINDX
0 ;TCINDX
0 ;DL1IND
0 ;DL2IND
KLAIND
RH11DX
UBADX
KSAIND
0 ;0
0 ;0
RP01DX
RP02DX
RP10DX
RP15DX
RS01DX
RS02DX
T601DX
T602DX
0 ;ICPCDX
0 ;DXTBDX
SB03DX
SB47DX
RP05DX
RP06DX
FESTDX
FELPDX
LPSADX
LPSBDX
FECDDX
CDSTDX
RHSWDX
RLD1DX
FEKLDX
RPMRDX
DXSRDX
DXERDX
DXMRDX
CS2DX
RMR1DX
RMR2DX
RME2DX
SCRIND ;DH11 SYSTEM CONTROL REGISTER [1223]
NRCIND ;DH11 NEXT RECEIVED CHARACTER REGISTER [1223]
COMMENT \ I THINK THIS CAN BE REMOVED [PJB]
IDVFLT: SIXBIT/SYS/ ;DEFAULT FILE SPECIFICATIONS
IFLFLT: SIXBIT/ERROR/
IEXFLT: SIXBIT/SYS/
ODVFLT: SIXBIT/DSK/
OFLFLT: SIXBIT/ERROR/
OEXFLT: SIXBIT/LST/
\
PDLPNT: IOWD LPDL,PDLST
SUBTTL DUMMY MACRO EXPANSION AREA
;THE FOLLOWING MACRO CODE UTILIZES THE PRINCIPLE OF THE DUMMY MACRO USED EARLIER
; AND REDEFINES TBLENT TO GENERATE VARIOUS NECESSARY DISPATCH TABLES
;DUMENT -- DUMMY MACRO LEVEL 2
;SUBMACRO TBLENT
;ARGS
;A - ERROR CODE (xxx)
;B - ERROR DESCRIPTION (text)
;C - DETAIL CONTROL TABLE ADDRESS (.CTxxx)
;D - ENTRY LEVEL PROCESSOR ADDRESS (PROCSx)
;E - # OF LINES OF OUTPUT GENERATED BY THIS ENTRY EXCLUDING HEADER
;F - BRIEF CONTROL TABLE ADDRESS (.BRxxx)
;THIS TABLE CONTAINS ALL THE ERROR TYPES KNOWN TO ALL SYSERR PARTS.
; IT IS USED TO FIND THE OFFSET INTO THE "PCSTBL" TABLE (OFFSET SAVED IN ALLIND)
DEFINE TBLENT(A,B,C,D,E)<
XWD 0,A
>
ALLTBL: DUMENT
ALLLTH==.-ALLTBL ;LENGTH OF ERROR INDEX TABLE
;THIS TABLE CONTAINS THE ERROR TYPES PROCESSED BY THIS SEGMENT IN THE RIGHT HALF
; AND THE POINTER TO THE BRIEF PROCESS TABLE FOR EACH ENTRY IN THE LEFT HALF
; IT IS USED TO FIND THE OFFSET INTO THE "TYPMES", "BITCHK, AND "LINE" TABLES
; INDEX IS SAVED IN ERRIND
DEFINE TBLENT(A,B,C,D,E,F)<
IFIDN<D><PROCSD><
XWD F,A
>
>
ERRTBL: 0 ;FIRST FOUND MUST NOT BE 0
DUMENT
ERRLTH==.-ERRTBL ;LENGTH OF ERROR INDEX TABLE
;THIS TABLE CONTAINS THE ADDRESS OF EACH ENTRY'S PROCESSOR IN THE RIGHT HALF
; AND THE ADDRESS OF THE DETAIL CONTROL TABLE FOR THE ENTRIES PROCESSED
; BY THIS SEGMENT IN THE LEFT HALF (TABLE IS INDEXED BY ALLIND)
DEFINE TBLENT(A,B,C,D,E)<
IFIDN<D><PROCSD><
XWD C,D
TYPMAX==A
>
IFDIF<D><PROCSD><
XWD 0,D
TYPMAX==A
>
>
PCSTBL: DUMENT
;THIS TABLE CONTAINS THE POINTERS TO THE ERROR DESCRIPTION TEXT FOR
; EACH ENTRY PROCESSED BY THIS SEGMENT (TABLE IS INDEXED BY ERRIND)
DEFINE TBLENT(A,B,C,D,E)<
IFIDN<D><PROCSD><
[ASCIZ/B/]
>
>
TYPMES: 0
DUMENT
;THIS TABLE CONTAINS THE ADDRESSES OF THE BIT CHECK ROUTINES FOR EACH OF THE
; ENTRIES PROCESSED BY THIS SEGMENT (TABLE IS INDEXED BY ERRIND)
DEFINE TBLENT(A,B,C,D,E)<
IFIDN<D><PROCSD><
IFDIF<B><UNKNOWN TYPE>,<XWD 0,BCK'A>
IFIDN<B><UNKNOWN TYPE>,<XWD 0,[POPJ P,0]>
>
>
BITCHK: 0
DUMENT
;THIS TABLE CONTAINS THE ENRTY LENGTHS FOR EACH OF THE ENTRIES PROCESSED
; BY THIS SEGMENT (TABLE IS INDEXED BY ERRIND)
DEFINE TBLENT(A,B,C,D,E)<
IFIDN<D><PROCSD><
XWD 0,E
>
>
RADIX 10
LINE: 0
DUMENT
RADIX 8
SUBTTL CONTROL TABLES
;GENERATE THE VARIOUS ENTRY CONTROL TABLES USING THE MACRO TBLWRD FOR DETAIL
; AND THE MACRO CMDWRD FOR BRIEF
DEFINE TBLWRD(A,B,C,D,E,F)<
IFDIF<D><SPECL>,<BYTE (6)B,C,D(18)T'A'E>
IFIDN<D><SPECL>,<BYTE (6)B,C,D(18)F>
>
.BR101: BRF101
.CT101: DUM101
Z
.BR102: BRF102
.CT102: DUM102
Z
.BR111: BRF111
.CT111: DUM111
Z
.BR112: BRF112
.CT112: DUM112
Z
.BR115: BRF115
.CT115: DUM115
Z
.BR116: BRF116
.CT116: DUM116
Z
.BR130: BRF130
.CT130: DUM130
Z
.BR131: BRF131
.CT131: DUM131
Z
.BR133: BRF133
.CT133: DUM133
Z
.BR160: BRF160
.CT160: DUM160
Z
.BR161: BRF161
.CT161: DUM161
Z
.BR162: BRF162
.CT162: DUM162
Z
.BR163: BRF163
.CT163: DUM163
Z
.BR164: BRF164
.CT164: DUM164
Z
SUBTTL MORE MACRO EXPANSIONS
;GENERATE THE NECESSARY ASCIZ TEXT FOR NON-SPECIAL ROUTINES
DEFINE TBLWRD(A,B,C,D,E,F)<
IFDIF <D><SPECL>,<
T'A'E: ASCIZ/
F/ >
>
;WHAT IS XLISTED IS THE DUMALL CALL AND FOLOWING CODE.
XLIST
DUMALL
LIST
COMMENT \ I THINK THIS STUFF CAN BE REMOVED TOO [PJB]
;SWITCH TABLES
;THE FOLLOWING TABLES WILL BE GENERATED VIA THE DUMMY MACRO
;DUMCH1
;THE FIRST IS A DISPATCH TABLE TO BYTES REPRESENTING BITS TO SET
;IN THE ENTCHR TABLE
;NEXT IS THE ACTUAL BYTES THEMSELVES
;TABLE FOR DISPATCH TO THE BYTE OPERANDS
DEFINE TBLCH1(A,B,C,D,E,F,G)<
XWD 0,BYT'G
>
;MAKE DISPATCH TABLE
BYTDSP: DUMCH1
;NOW THE BYTES THEMSELVES
DEFINE TBLCH1(A,B,C,D,E,F,G)<
BYT'G: BYTE (6) B,77,C,77,D,77,E,77,F,77
>
DUMCH1
;SWITCH MACRO EXPANSION NEXT
;DEFINE THE SWITCHES WE RECOGNIZE
DEFINE TBLCH1(A,B,C,D,E,F,G)<
SS (A,A,0)
>
DEFINE TBLCH2(A,B,C)<
SP (A,A,B,C)
>
;CALL A MACRO TO SETUP DEFAULTS
DEFVAL
;NOW MAKE SWTCHS MACRO FOR USE WITH DOSCAN LATER
DEFINE SWTCHS<
DUMCH1
DUMCH2
>
;DOSCAN(SWTAB) EXPANSION IS XLISTED
XLIST
DOSCAN(SWTAB)
LIST
\
;GENERATE THE CONI BIT TEXT AND ADDRESS DISPATCHER
RADIX 10 ;****** NOTE WELL *****
SALL
DEFINE TBLDEV(A,B)<
[ASCIZ\B',\]
>
SOFTDV: DUMSF1
TM10DV: DUMTM1
RH10DV: DUMRH1
RH20DV: DUMRH2
DX10DV: DUMDX1
TC10DV: DUMTC1
DL10DV: DUMDL1
DL11DV: DUMDL2
KL1ADV: DUMKLA
RH11DV: DUMR11
UBADV: DUMUBA
KS1ADV: DUMKSA
;16
;17
RP04SR: DURP01
RP04ER: DURP02
RP04CB: DURP10
RP04DA: DURP15
RS04SR: DURS01
RS04ER: DURS02
TU16SR: DUT601
TU16ER: DUT602
ICPCX1: DUICPC
DXTAGB: DUDXTB
DXSB03: DUSB03
DXSB47: DUSB47
RP05DV: DURP05
RP06DV: DURP06
FESTDV: DUFEST
SCRDV: DUMSCR
NRCDV: DUMNRC
FELPDV: DUFELP
LPSADV: DULPSA
LPSBDV: DULPSB
FECDDV: DUFECD
CDSTDV: DUCDST
RHSWDV: DURHSW
RLD1DV: DURLD1
FEKLDV: DUFEKL
RPMRDV: DURPMR
DXSRDV: DUDXSR
DXERDV: DUDXER
DXMRDV: DUDXMR
CS2DV: DUMCS2
RM3MR1: DURMR1
RM3MR2: DURMR2
RM3ER2: DURER2
;57
;60
SB81DV: DUSB81
;NOW GENERATE THE ERROR BIT VS INDEX BIT TABLES
;USING THE TBLDEV MACRO
DEFINE TBLDEV(A,B)<
ZZP==.
RELOC RHINDX+A-MINRHB
ZZ
ZZ==ZZ+1
RELOC ZZP
>
RHINDX: BLOCK MAXRHB-MINRHB+1 ;[1224]
ZZ==0
DUMRH1
DEFINE TBLDEV(A,B)<
ZZP==.
RELOC RH20DX+A-MINRH2
ZZ
ZZ==ZZ+1
RELOC ZZP
>
RH20DX: BLOCK MAXRH2-MINRH2+1 ;[1224]
ZZ==0
DUMRH2
DEFINE TBLDEV(A,B)<
ZZP==.
RELOC KLAIND+A-MINKLA
ZZ
ZZ==ZZ+1
RELOC ZZP
>
KLAIND: BLOCK MAXKLA-MINKLA+1 ;[1224]
ZZ==0
DUMKLA
DEFINE TBLDEV(A,B)<
ZZP==.
RELOC RH11DX+A-MINR11
ZZ
ZZ==ZZ+1
RELOC ZZP
>
RH11DX: BLOCK MAXR11-MINR11+1 ;[1224]
ZZ==0
DUMR11
DEFINE TBLDEV(A,B)<
ZZP==.
RELOC UBADX+A-MINUBA
ZZ
ZZ==ZZ+1
RELOC ZZP
>
UBADX: BLOCK MAXUBA-MINUBA+1 ;[1224]
ZZ==0
DUMUBA
DEFINE TBLDEV(A,B)<
ZZP==.
RELOC KSAIND+A-MINKSA
ZZ
ZZ==ZZ+1
RELOC ZZP
>
KSAIND: BLOCK MAXKSA-MINKSA+1 ;[1224]
ZZ==0
DUMKSA
;16
;17
DEFINE TBLDEV(A,B)<
ZZP==.
RELOC RP01DX+A-MIRP01
ZZ
ZZ==ZZ+1
RELOC ZZP
>
RP01DX: BLOCK MARP01-MIRP01+1 ;[1224]
ZZ==0
DURP01
DEFINE TBLDEV(A,B)<
ZZP==.
RELOC RP02DX+A-MIRP02
ZZ
ZZ==ZZ+1
RELOC ZZP
>
RP02DX: BLOCK MARP02-MIRP02+1 ;[1224]
ZZ==0
DURP02
DEFINE TBLDEV(A,B)<
ZZP==.
RELOC RP10DX+A-MIRP10
ZZ
ZZ==ZZ+1
RELOC ZZP
>
RP10DX: BLOCK MARP10-MIRP10+1 ;[1224]
ZZ==0
DURP10
DEFINE TBLDEV(A,B)<
ZZP==.
RELOC RP15DX+A-MIRP15
ZZ
ZZ==ZZ+1
RELOC ZZP
>
RP15DX: BLOCK MARP15-MIRP15+1 ;[1224]
ZZ==0
DURP15
DEFINE TBLDEV(A,B)<
ZZP==.
RELOC RS01DX+A-MIRS01
ZZ
ZZ==ZZ+1
RELOC ZZP
>
RS01DX: BLOCK MARS01-MIRS01+1 ;[1224]
ZZ==0
DURS01
DEFINE TBLDEV(A,B)<
ZZP==.
RELOC RS02DX+A-MIRS02
ZZ
ZZ==ZZ+1
RELOC ZZP
>
RS02DX: BLOCK MARS02-MIRS02+1 ;[1224]
ZZ==0
DURS02
DEFINE TBLDEV(A,B)<
ZZP==.
RELOC T601DX+A-MIT601
ZZ
ZZ==ZZ+1
RELOC ZZP
>
T601DX: BLOCK MAT601-MIT601+1 ;[1224]
ZZ==0
DUT601
DEFINE TBLDEV(A,B)<
ZZP==.
RELOC T602DX+A-MIT602
ZZ
ZZ==ZZ+1
RELOC ZZP
>
T602DX: BLOCK MAT602-MIT602+1 ;[1224]
ZZ==0
DUT602
DEFINE TBLDEV(A,B)<
ZZP==.
RELOC SB03DX+A-MISB03
ZZ
ZZ==ZZ+1
RELOC ZZP
>
SB03DX: BLOCK MASB03-MISB03+1 ;[1224]
ZZ==0
DUSB03
DEFINE TBLDEV(A,B)<
ZZP==.
RELOC SB47DX+A-MISB47
ZZ
ZZ==ZZ+1
RELOC ZZP
>
SB47DX: BLOCK MASB47-MISB47+1 ;[1224]
ZZ==0
DUSB47
DEFINE TBLDEV(A,B)<
ZZP==.
RELOC RP05DX+A-MIRP05
ZZ
ZZ==ZZ+1
RELOC ZZP
>
RP05DX: BLOCK MARP05-MIRP05+1 ;[1224]
ZZ==0
DURP05
DEFINE TBLDEV(A,B)<
ZZP==.
RELOC RP06DX+A-MIRP06
ZZ
ZZ==ZZ+1
RELOC ZZP
>
RP06DX: BLOCK MARP06-MIRP06+1 ;[1224]
ZZ==0
DURP06
DEFINE TBLDEV(A,B)<
ZZP==.
RELOC FESTDX+A-MIFEST
ZZ
ZZ==ZZ+1
RELOC ZZP
>
FESTDX: BLOCK MAFEST-MIFEST+1 ;[1224]
ZZ==0
DUFEST
DEFINE TBLDEV(A,B)<
ZZP==.
RELOC FELPDX+A-MIFELP
ZZ
ZZ==ZZ+1
RELOC ZZP
>
FELPDX: BLOCK MAFELP-MIFELP+1 ;[1224]
ZZ==0
DUFELP
DEFINE TBLDEV(A,B)<
ZZP==.
RELOC SCRIND+A-MINSCR
ZZ
ZZ==ZZ+1
RELOC ZZP
>
SCRIND: BLOCK MAXSCR-MINSCR+1 ;[1224]
ZZ==0
DUMSCR
DEFINE TBLDEV(A,B)<
ZZP==.
RELOC NRCIND+A-MINNRC
ZZ
ZZ==ZZ+1
RELOC ZZP
>
NRCIND: BLOCK MAXNRC-MINNRC+1 ;[1224]
ZZ==0
DUMNRC
DEFINE TBLDEV(A,B)<
ZZP==.
RELOC LPSADX+A-MILPSA
ZZ
ZZ==ZZ+1
RELOC ZZP
>
LPSADX: BLOCK MALPSA-MILPSA+1 ;[1224]
ZZ==0
DULPSA
DEFINE TBLDEV(A,B)<
ZZP==.
RELOC LPSBDX+A-MILPSB
ZZ
ZZ==ZZ+1
RELOC ZZP
>
LPSBDX: BLOCK MALPSB-MILPSB+1 ;[1224]
ZZ==0
DULPSB
DEFINE TBLDEV(A,B)<
ZZP==.
RELOC FECDDX+A-MIFECD
ZZ
ZZ==ZZ+1
RELOC ZZP
>
FECDDX: BLOCK MAFECD-MIFECD+1 ;[1224]
ZZ==0
DUFECD
DEFINE TBLDEV(A,B)<
ZZP==.
RELOC CDSTDX+A-MICDST
ZZ
ZZ==ZZ+1
RELOC ZZP
>
CDSTDX: BLOCK MACDST-MICDST+1 ;[1224]
ZZ==0
DUCDST
DEFINE TBLDEV(A,B)<
ZZP==.
RELOC RHSWDX+A-MIRHSW
ZZ
ZZ==ZZ+1
RELOC ZZP
>
RHSWDX: BLOCK MARHSW-MIRHSW+1 ;[1224]
ZZ==0
DURHSW
DEFINE TBLDEV(A,B)<
ZZP==.
RELOC RLD1DX+A-MIRLD1
ZZ
ZZ==ZZ+1
RELOC ZZP
>
RLD1DX: BLOCK MARLD1-MIRLD1+1 ;[1224]
ZZ==0
DURLD1
DEFINE TBLDEV(A,B)<
ZZP==.
RELOC FEKLDX+A-MIFEKL
ZZ
ZZ==ZZ+1
RELOC ZZP
>
FEKLDX: BLOCK MAFEKL-MIFEKL+1 ;[1224]
ZZ==0
DUFEKL
DEFINE TBLDEV(A,B)<
ZZP==.
RELOC RPMRDX+A-MIRPMR
ZZ
ZZ==ZZ+1
RELOC ZZP
>
RPMRDX: BLOCK MARPMR-MIRPMR+1 ;[1224]
ZZ==0
DURPMR
DEFINE TBLDEV(A,B)<
ZZP==.
RELOC DXSRDX+A-MIDXSR
ZZ
ZZ==ZZ+1
RELOC ZZP
>
DXSRDX: BLOCK MADXSR-MIDXSR+1 ;[1224]
ZZ==0
DUDXSR
DEFINE TBLDEV(A,B)<
ZZP==.
RELOC DXERDX+A-MIDXER
ZZ
ZZ==ZZ+1
RELOC ZZP
>
DXERDX: BLOCK MADXER-MIDXER+1 ;[1224]
ZZ==0
DUDXER
DEFINE TBLDEV(A,B)<
ZZP==.
RELOC DXMRDX+A-MIDXMR
ZZ
ZZ==ZZ+1
RELOC ZZP
>
DXMRDX: BLOCK MADXMR-MIDXMR+1 ;[1224]
ZZ==0
DUDXMR
DEFINE TBLDEV(A,B)<
ZZP==.
RELOC CS2DX+A-MINCS2
ZZ
ZZ==ZZ+1
RELOC ZZP
>
CS2DX: BLOCK MAXCS2-MINCS2+1 ;[1224]
ZZ==0
DUMCS2
DEFINE TBLDEV(A,B)<
ZZP==.
RELOC RMR1DX+A-MINMR1
ZZ
ZZ==ZZ+1
RELOC ZZP
>
RMR1DX: BLOCK MAXMR1-MINMR1+1 ;[1224]
ZZ==0
DURMR1
DEFINE TBLDEV(A,B)<
ZZP==.
RELOC RMR2DX+A-MINMR2
ZZ
ZZ==ZZ+1
RELOC ZZP
>
RMR2DX: BLOCK MAXMR2-MINMR2+1 ;[1224]
ZZ==0
DURMR2
DEFINE TBLDEV(A,B)<
ZZP==.
RELOC RME2DX+A-MINER2
ZZ
ZZ==ZZ+1
RELOC ZZP
>
RME2DX: BLOCK MAXER2-MINER2+1 ;[1224]
ZZ==0
DURER2
;57
;60
RADIX 8 ; ***** DONE WITH RADIX 10 *****
;NAMTB2, MASNA2, DEVDS2, SOFDS2, & MASDS2 TABLES REMOVED WITH EDIT [1217]
END STARTD