:PREP $OLDPASS,CSTDX;PMAP;CAP=PM,IA

PROGRAM FILE CSTDX.OPERATOR.SYS

OUTER             0
   NAME            STT  CODE ENTRY SEG
   OB'               1     0     0
   GETPRIVMODE      12               ?
   GETUSERMODE      13               ?
   LOAD'SEGMENT     14               1
   PRINT            15               ?
   TERMINATE'       16               ?
   TEST'7            2   622   622
   TARGET           17               1
   ASCII            20               ?
   TEST'6            3  1201  1201
   UNCALLABLE'TARG  21               1
   TEST'5            4  1367  1367
   SETJCW           22               ?
   TEST'4            5  1534  1534
   TEST'3            6  1764  1764
   TEST'2            7  2227  2227
   TEST'1           10  2542  2542
   GET'PL           11  2664  2664
   SEGMENT LENGTH       3074
AUX               1
   NAME            STT  CODE ENTRY SEG
   TARGET            1     0     0
   PRINT             4               ?
   UNCALLABLE'TARG   2    32    32
   LOAD'SEGMENT      3    72    72
   SEGMENT LENGTH        100

PRIMARY DB          4    INITIAL STACK    2570    CAPABILITY        300
SECONDARY DB       50    INITIAL DL          0    TOTAL CODE       3174
TOTAL DB           54    MAXIMUM DATA        ?    TOTAL RECORDS      22
ELAPSED TIME   00:00:02.066                  PROCESSOR TIME   00:01.316

END OF PREPARE

----------

:RUN CSTDX;PARM=0

CST DIAGNOSTIC

:RUN the program with the "PARM=" option to
  select the test to execute:

    1 = STT index > STT size
    2 = Physical label in STT with CS = 0
    3 = Logical label in STT with CS and LSTT = 0
    4 = Label in target STT is external
    5 = NPRV and XBR and CST entry has M bit set
    6 = Label in target STT is uncallable
    7 = NPRV and external label STT index = 0

ALL TESTS END WITH AN EXPECTED PROGRAM ABORT

END OF PROGRAM

----------

:RUN CSTDX;PARM=1

CST DIAGNOSTIC

STT index > STT size

PRV test should abort with #31 STT VIOLATION
End of test 1

END OF PROGRAM

----------

:RUN CSTDX;PARM=2

CST DIAGNOSTIC

External physical label in STT with segment = 0

PBANK 000012 PB 026030 PL 031123 CSTX 012350 SEGNUM 000001
STT # 000022 LABEL 100451

PRV test should abort with #31 STT VIOLATION

ABORT :CSTDX.OPERATOR.SYS.%0.%2514:SYSL.%0.%2514
PROGRAM ERROR #30 :CST VIOLATION

PROGRAM TERMINATED IN AN ERROR STATE.  (CIERR 976)

----------

:RUN CSTDX;PARM=3

CST DIAGNOSTIC

External logical label in STT with segment = 0

PBANK 000012 PB 026030 PL 031123 CSTX 012350 SEGNUM 000001
STT # 000017 LABEL 000402

PRV test should abort with #30 CST VIOLATION

ABORT :CSTDX.OPERATOR.SYS.%0.%2201
PROGRAM ERROR #31 :STT VIOLATION

PROGRAM TERMINATED IN AN ERROR STATE.  (CIERR 976)

----------

:RUN CSTDX;PARM=4

CST DIAGNOSTIC

Label in target STT is external

PBANK 000010 PB 037030 PL 037127 CSTX 012354 SEGNUM 000002
STT # 000004 LABEL 002002

PRV test should abort with #31 STT VIOLATION

ABORT :CSTDX.OPERATOR.SYS.%0.%1737
PROGRAM ERROR #31 :STT VIOLATION

PROGRAM TERMINATED IN AN ERROR STATE.  (CIERR 976)

----------

:RUN CSTDX;PARM=5

CST DIAGNOSTIC

NPRV and XBR and CST entry has M bit set

NPRV test should abort with #6 PRIVILEGED INSTRUCTION

ABORT :CSTDX.OPERATOR.SYS.%0.%1507
PROGRAM ERROR #30 :CST VIOLATION

PROGRAM TERMINATED IN AN ERROR STATE.  (CIERR 976)

----------

:RUN CSTDX;PARM=6

CST DIAGNOSTIC

Label in target STT is uncallable

PRV test should succeed
Uncallable target successfully called

NPRV test should abort with #17 STT UNCALLABLE

ABORT :CSTDX.OPERATOR.SYS.%0.%1342
PROGRAM ERROR #17 :STT UNCALLABLE

PROGRAM TERMINATED IN AN ERROR STATE.  (CIERR 976)

----------

:RUN CSTDX;PARM=7

CST DIAGNOSTIC

NPRV and external label STT index = 0

PRV test should succeed
Target successfully called

NPRV test should abort with #17 STT UNCALLABLE

ABORT :CSTDX.OPERATOR.SYS.%0.%1154
PROGRAM ERROR #17 :STT UNCALLABLE

PROGRAM TERMINATED IN AN ERROR STATE.  (CIERR 976)
: