DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦ed1e0a0cb⟧

    Length: 3072 (0xc00)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03b8fe

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0460       | `  |		.CONST	0x0460								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 8002       |    |		.CONST	0x8002								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0010       |    |		.CONST	0x0010								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0001       |    |		.CONST	0x0001								; Number of locals
000b			INIT_0008:
000b 029a 001b  |    |		Declare_Subprogram	INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 00bf       |    |		Action	Accept_Activation
000e 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
000f 00c7       |    |		Action	Elaborate_Subprogram
0010			BODY_0008:
0010 00bc       |    |		Action	Signal_Activated
0011 00bb       |    |		Action	Signal_Completion
0012 0000 0000  |    |		.BLANK	0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 003c       | <  |		.CONST	0x003c								; Address of begin
0019 0004       |    |		.CONST	0x0004								; Address of exception handler
001a 000c       |    |		.CONST	0x000c								; Number of locals
001b			INIT_0018:
001b 0092 037d  |   }|		Action	Push_String_Extended,0x37d					; "DDB"
001d e001       |    |		Load	0x0,0x1
001e 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
001f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0020 e002       |    |		Load	0x0,0x2
0021 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0022 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0023 03f1       |    |		Declare_Variable	Discrete,With_Value
0024 4800       |H   |		Short_Literal	0x0
0025 48ff       |H   |		Short_Literal	0xff
0026 00e3       |    |		Load_Encached	Natural_Cache
0027 02a0       |    |		Declare_Subprogram	Null_Subprogram
0028 4801       |H   |		Short_Literal	0x1
0029 035d       | ]  |		Declare_Type	Array,Defined
002a 00d8       |    |		Load_Top	At_Offset_0
002b 0337       | 7  |		Declare_Variable	Array
002c 029f 0053  |   S|		Declare_Subprogram	INIT_0050,For_Call
002e 029f 00ab  |    |		Declare_Subprogram	INIT_00a8,For_Call
0030 029f 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Call
0032 029f 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Call
0034 029f 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Call
0036 029f 0113  |    |		Declare_Subprogram	INIT_0110,For_Call
0038 029f 029b  |    |		Declare_Subprogram	INIT_0298,For_Call
003a 029f 02ab  |    |		Declare_Subprogram	INIT_02a8,For_Call
003c			BODY_0018:
003c e003       |    |		Load	0x0,0x3
003d 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
003e 6805       |h   |		Jump_Zero	0x44
003f e004       |    |		Load	0x0,0x4
0040 1b1f       |    |		Execute	Package,Field_Read,Field_Number 0x1f
0041 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0042 840c       |    |		Call	0x2,0xc
0043 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0044 0092 037e  |   ~|		Action	Push_String_Extended,0x37e					; "Operator Capability is required to use this command."
0046 e005       |    |		Load	0x0,0x5
0047 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0048 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
0049 0000 0000  |    |		.BLANK	0000[0x7]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0068       | h  |		.CONST	0x0068								; Address of begin
0051 0097       |    |		.CONST	0x0097								; Address of exception handler
0052 0007       |    |		.CONST	0x0007								; Number of locals
0053			INIT_0050:
0053 e7ff       |    |		Load	0x3,-0x1
0054 e002       |    |		Load	0x0,0x2
0055 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0056 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0057 00d8       |    |		Load_Top	At_Offset_0
0058 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0059 e006       |    |		Load	0x0,0x6
005a 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
005b e006       |    |		Load	0x0,0x6
005c 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
005d 00ec       |    |		Load_Encached	Diana_Tree_Cache
005e 02c7       |    |		Declare_Variable	Any
005f 00d8       |    |		Load_Top	At_Offset_0
0060 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0061 e007       |    |		Load	0x0,0x7
0062 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0063 02ff       |    |		Declare_Variable	Variant_Record
0064 00d8       |    |		Load_Top	At_Offset_0
0065 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0066 029f 033b  |   ;|		Declare_Subprogram	INIT_0338,For_Call
0068			BODY_0050:
0068 e602       |    |		Load	0x3,0x2
0069 e7fd       |    |		Load	0x3,-0x3
006a e7fe       |    |		Load	0x3,-0x2
006b e002       |    |		Load	0x0,0x2
006c 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
006d 00d1       |    |		Pop_Control	Pop_Count_1
006e e602       |    |		Load	0x3,0x2
006f e606       |    |		Load	0x3,0x6
0070 016d       | m  |		Execute	Variant_Record,Structure_Write
0071 e7ff       |    |		Load	0x3,-0x1
0072 e402       |    |		Load	0x2,0x2
0073 027e       | ~  |		Execute	Discrete,Not_Equal
0074 6806       |h   |		Jump_Zero	0x7b
0075 8607       |    |		Call	0x3,0x7
0076 e606       |    |		Load	0x3,0x6
0077 e008       |    |		Load	0x0,0x8
0078 1857       | W  |		Execute	Package,Field_Execute,Field_Number 0x57
0079 01cc       |    |		Execute	Vector,Catenate
007a 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
007b e006       |    |		Load	0x0,0x6
007c 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
007d e006       |    |		Load	0x0,0x6
007e 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
007f e606       |    |		Load	0x3,0x6
0080 e002       |    |		Load	0x0,0x2
0081 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0082 c603       |    |		Store	0x3,0x3
0083 c604       |    |		Store	0x3,0x4
0084 e604       |    |		Load	0x3,0x4
0085 e603       |    |		Load	0x3,0x3
0086 497d       |I}  |		Short_Literal	0x17d
0087 00eb       |    |		Load_Encached	Diana_Cache
0088 0096       |    |		Execute	Package,Entry
0089 c605       |    |		Store	0x3,0x5
008a 8607       |    |		Call	0x3,0x7
008b 0092 037f  |    |		Action	Push_String_Extended,0x37f					; "[DDB obj for:"
008d 01cc       |    |		Execute	Vector,Catenate
008e e605       |    |		Load	0x3,0x5
008f e007       |    |		Load	0x0,0x7
0090 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0091 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
0092 01cc       |    |		Execute	Vector,Catenate
0093 0092 0380  |    |		Action	Push_String_Extended,0x380					; "]"
0095 01cc       |    |		Execute	Vector,Catenate
0096 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0097			TRAP_0050:
0097 0007       |    |		Action	Break_Optional
0098 8607       |    |		Call	0x3,0x7
0099 0092 0381  |    |		Action	Push_String_Extended,0x381					; "[Name unknown due to: "
009b 01cc       |    |		Execute	Vector,Catenate
009c 4800       |H   |		Short_Literal	0x0
009d 4801       |H   |		Short_Literal	0x1
009e e009       |    |		Load	0x0,0x9
009f 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
00a0 01cc       |    |		Execute	Vector,Catenate
00a1 0092 0380  |    |		Action	Push_String_Extended,0x380					; "]"
00a3 01cc       |    |		Execute	Vector,Catenate
00a4 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
00a5 0000 0000  |    |		.XXX[0x3]
00a7 0000       |    |
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ad       |    |		.CONST	0x00ad								; Address of begin
00a9 0004       |    |		.CONST	0x0004								; Address of exception handler
00aa 0003       |    |		.CONST	0x0003								; Number of locals
00ab			INIT_00a8:
00ab 00e5       |    |		Load_Encached	Long_Integer_Cache
00ac 00e1       |    |		Load_Encached	Boolean_Cache
00ad			BODY_00a8:
00ad 00e1       |    |		Load_Encached	Boolean_Cache
00ae 00e5       |    |		Load_Encached	Long_Integer_Cache
00af 480a       |H   |		Short_Literal	0xa
00b0 e7ff       |    |		Load	0x3,-0x1
00b1 e00a       |    |		Load	0x0,0xa
00b2 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
00b3 c602       |    |		Store	0x3,0x2
00b4 c603       |    |		Store	0x3,0x3
00b5 e602       |    |		Load	0x3,0x2
00b6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00b7 0000       |    |		.XXX[0x1]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb       |    |		.CONST	0x00bb								; Address of begin
00b9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ba 0001       |    |		.CONST	0x0001								; Number of locals
00bb			BODY_00b8:
00bb			INIT_00b8:
00bb 0092 0382  |    |		Action	Push_String_Extended,0x382					; "#"
00bd 4820       |H   |		Short_Literal	0x20
00be 4800       |H   |		Short_Literal	0x0
00bf 4810       |H   |		Short_Literal	0x10
00c0 e7ff       |    |		Load	0x3,-0x1
00c1 00d8       |    |		Load_Top	At_Offset_0
00c2 00e2       |    |		Load_Encached	Integer_Cache
00c3 0260       | `  |		Execute	Discrete,In_Type
00c4 7001       |p   |		Jump_Nonzero	0xc6
00c5 08e0       |    |		Execute_Immediate	Raise,0xe0
00c6 e00a       |    |		Load	0x0,0xa
00c7 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00c8 01cc       |    |		Execute	Vector,Catenate
00c9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00ca 0000 0000  |    |		.BLANK	0000[0x6]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d5       |    |		.CONST	0x00d5								; Address of begin
00d1 0004       |    |		.CONST	0x0004								; Address of exception handler
00d2 0003       |    |		.CONST	0x0003								; Number of locals
00d3			INIT_00d0:
00d3 00e2       |    |		Load_Encached	Integer_Cache
00d4 00e1       |    |		Load_Encached	Boolean_Cache
00d5			BODY_00d0:
00d5 00e1       |    |		Load_Encached	Boolean_Cache
00d6 00e2       |    |		Load_Encached	Integer_Cache
00d7 4810       |H   |		Short_Literal	0x10
00d8 e7ff       |    |		Load	0x3,-0x1
00d9 e00a       |    |		Load	0x0,0xa
00da 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00db c602       |    |		Store	0x3,0x2
00dc c603       |    |		Store	0x3,0x3
00dd e602       |    |		Load	0x3,0x2
00de 00d8       |    |		Load_Top	At_Offset_0
00df e006       |    |		Load	0x0,0x6
00e0 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
00e1 0260       | `  |		Execute	Discrete,In_Type
00e2 7001       |p   |		Jump_Nonzero	0xe4
00e3 08e0       |    |		Execute_Immediate	Raise,0xe0
00e4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00e5 0000 0000  |    |		.XXX[0x3]
00e7 0000       |    |
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb       |    |		.CONST	0x00eb								; Address of begin
00e9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ea 0001       |    |		.CONST	0x0001								; Number of locals
00eb			BODY_00e8:
00eb			INIT_00e8:
00eb e7ff       |    |		Load	0x3,-0x1
00ec 00d8       |    |		Load_Top	At_Offset_0
00ed 484e       |HN  |		Short_Literal	0x4e
00ee 4855       |HU  |		Short_Literal	0x55
00ef 0262       | b  |		Execute	Discrete,In_Range
00f0 6816       |h   |		Jump_Zero	0x107
00f1 0ab2       |    |		Execute_Immediate	Plus,-0x4e
00f2 4607       |F   |		Jump_Case	0x8
00f3 780a       |x   |		Jump	0xfe								; case 0x0
00f4 780f       |x   |		Jump	0x104								; case 0x1
00f5 7812       |x   |		Jump	0x108								; case 0x2
00f6 7811       |x   |		Jump	0x108								; case 0x3
00f7 7809       |x   |		Jump	0x101								; case 0x4
00f8 780f       |x   |		Jump	0x108								; case 0x5
00f9 780e       |x   |		Jump	0x108								; case 0x6
00fa 7800       |x   |		Jump	0xfb								; case 0x7
00fb 0092 0383  |    |		Action	Push_String_Extended,0x383					; "Update"
00fd 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00fe 0092 0384  |    |		Action	Push_String_Extended,0x384					; "None"
0100 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0101 0092 0385  |    |		Action	Push_String_Extended,0x385					; "Read"
0103 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0104 0092 0386  |    |		Action	Push_String_Extended,0x386					; "Overwrite"
0106 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0107 00d1       |    |		Pop_Control	Pop_Count_1
0108 e7ff       |    |		Load	0x3,-0x1
0109 00ea       |    |		Load_Encached	Null_String_Cache
010a 01ca       |    |		Execute	Vector,Prepend
010b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
010c 0000 0000  |    |		.BLANK	0000[0x4]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 012e       | .  |		.CONST	0x012e								; Address of begin
0111 0004       |    |		.CONST	0x0004								; Address of exception handler
0112 000f       |    |		.CONST	0x000f								; Number of locals
0113			INIT_0110:
0113 e7ff       |    |		Load	0x3,-0x1
0114 01dd       |    |		Execute	Vector,First
0115 00e3       |    |		Load_Encached	Natural_Cache
0116 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0117 00e5       |    |		Load_Encached	Long_Integer_Cache
0118 03e9       |    |		Declare_Variable	Discrete,Duplicate
0119 e00b       |    |		Load	0x0,0xb
011a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
011b e00b       |    |		Load	0x0,0xb
011c 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
011d 00e1       |    |		Load_Encached	Boolean_Cache
011e 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
011f e002       |    |		Load	0x0,0x2
0120 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0121 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0122 e002       |    |		Load	0x0,0x2
0123 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0124 e00b       |    |		Load	0x0,0xb
0125 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0126 00e2       |    |		Load_Encached	Integer_Cache
0127 e00b       |    |		Load	0x0,0xb
0128 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0129 00e8       |    |		Load_Encached	Character_Cache
012a 00e1       |    |		Load_Encached	Boolean_Cache
012b 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
012c 029f 035b  |   [|		Declare_Subprogram	INIT_0358,For_Call
012e			BODY_0110:
012e 00cf       |    |		Action	Mark_Auxiliary
012f 7962       |yb  |		Jump	0x292
0130 e602       |    |		Load	0x3,0x2
0131 e7ff       |    |		Load	0x3,-0x1
0132 01d7       |    |		Execute	Vector,Field_Read
0133 00d8       |    |		Load_Top	At_Offset_0
0134 4830       |H0  |		Short_Literal	0x30
0135 4853       |HS  |		Short_Literal	0x53
0136 0262       | b  |		Execute	Discrete,In_Range
0137 6957       |iW  |		Jump_Zero	0x28f
0138 0ad0       |    |		Execute_Immediate	Plus,-0x30
0139 4623       |F#  |		Jump_Case	0x24
013a 78f3       |x   |		Jump	0x22e								; case 0x0
013b 78f2       |x   |		Jump	0x22e								; case 0x1
013c 78f1       |x   |		Jump	0x22e								; case 0x2
013d 78f0       |x   |		Jump	0x22e								; case 0x3
013e 78ef       |x   |		Jump	0x22e								; case 0x4
013f 78ee       |x   |		Jump	0x22e								; case 0x5
0140 78ed       |x   |		Jump	0x22e								; case 0x6
0141 78ec       |x   |		Jump	0x22e								; case 0x7
0142 78eb       |x   |		Jump	0x22e								; case 0x8
0143 78ea       |x   |		Jump	0x22e								; case 0x9
0144 794b       |yK  |		Jump	0x290								; case 0xa
0145 794a       |yJ  |		Jump	0x290								; case 0xb
0146 7949       |yI  |		Jump	0x290								; case 0xc
0147 7948       |yH  |		Jump	0x290								; case 0xd
0148 7947       |yG  |		Jump	0x290								; case 0xe
0149 7946       |yF  |		Jump	0x290								; case 0xf
014a 7945       |yE  |		Jump	0x290								; case 0x10
014b 7944       |yD  |		Jump	0x290								; case 0x11
014c 7943       |yC  |		Jump	0x290								; case 0x12
014d 7942       |yB  |		Jump	0x290								; case 0x13
014e 7941       |yA  |		Jump	0x290								; case 0x14
014f 7840       |x@  |		Jump	0x190								; case 0x15
0150 793f       |y?  |		Jump	0x290								; case 0x16
0151 793e       |y>  |		Jump	0x290								; case 0x17
0152 793d       |y=  |		Jump	0x290								; case 0x18
0153 793c       |y<  |		Jump	0x290								; case 0x19
0154 793b       |y;  |		Jump	0x290								; case 0x1a
0155 793a       |y:  |		Jump	0x290								; case 0x1b
0156 7939       |y9  |		Jump	0x290								; case 0x1c
0157 78b1       |x   |		Jump	0x209								; case 0x1d
0158 7937       |y7  |		Jump	0x290								; case 0x1e
0159 7936       |y6  |		Jump	0x290								; case 0x1f
015a 7935       |y5  |		Jump	0x290								; case 0x20
015b 7884       |x   |		Jump	0x1e0								; case 0x21
015c 7933       |y3  |		Jump	0x290								; case 0x22
015d 7800       |x   |		Jump	0x15e								; case 0x23
015e e602       |    |		Load	0x3,0x2
015f 0a02       |    |		Execute_Immediate	Plus,0x2
0160 c602       |    |		Store	0x3,0x2
0161 860f       |    |		Call	0x3,0xf
0162 e002       |    |		Load	0x0,0x2
0163 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0164 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0165 0122       | "  |		Execute	Any,Make_Root_Type
0166 00e0       |    |		Load_Encached	Standard_Cache
0167 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0168 c608       |    |		Store	0x3,0x8
0169 860f       |    |		Call	0x3,0xf
016a e002       |    |		Load	0x0,0x2
016b 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
016c 0122       | "  |		Execute	Any,Make_Root_Type
016d 00e0       |    |		Load_Encached	Standard_Cache
016e 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
016f c609       |    |		Store	0x3,0x9
0170 860f       |    |		Call	0x3,0xf
0171 e00b       |    |		Load	0x0,0xb
0172 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0173 0122       | "  |		Execute	Any,Make_Root_Type
0174 00e0       |    |		Load_Encached	Standard_Cache
0175 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0176 c60a       |    |		Store	0x3,0xa
0177 e602       |    |		Load	0x3,0x2
0178 e7ff       |    |		Load	0x3,-0x1
0179 01d7       |    |		Execute	Vector,Field_Read
017a a60d       |    |		Store_Unchecked	0x3,0xd
017b e602       |    |		Load	0x3,0x2
017c 0a02       |    |		Execute_Immediate	Plus,0x2
017d c602       |    |		Store	0x3,0x2
017e e60e       |    |		Load	0x3,0xe
017f 6911       |i   |		Jump_Zero	0x291
0180 0092 0387  |    |		Action	Push_String_Extended,0x387					; "    Shared: "
0182 e60a       |    |		Load	0x3,0xa
0183 e609       |    |		Load	0x3,0x9
0184 e608       |    |		Load	0x3,0x8
0185 8405       |    |		Call	0x2,0x5
0186 01cc       |    |		Execute	Vector,Catenate
0187 0092 0388  |    |		Action	Push_String_Extended,0x388					; " "
0189 01cc       |    |		Execute	Vector,Catenate
018a e60d       |    |		Load	0x3,0xd
018b 8409       |    |		Call	0x2,0x9
018c 01cc       |    |		Execute	Vector,Catenate
018d e005       |    |		Load	0x0,0x5
018e 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
018f 7901       |y   |		Jump	0x291
0190 e602       |    |		Load	0x3,0x2
0191 0a02       |    |		Execute_Immediate	Plus,0x2
0192 c602       |    |		Store	0x3,0x2
0193 860f       |    |		Call	0x3,0xf
0194 e002       |    |		Load	0x0,0x2
0195 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0196 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0197 0122       | "  |		Execute	Any,Make_Root_Type
0198 00e0       |    |		Load_Encached	Standard_Cache
0199 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
019a c608       |    |		Store	0x3,0x8
019b 860f       |    |		Call	0x3,0xf
019c e002       |    |		Load	0x0,0x2
019d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
019e 0122       | "  |		Execute	Any,Make_Root_Type
019f 00e0       |    |		Load_Encached	Standard_Cache
01a0 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
01a1 c609       |    |		Store	0x3,0x9
01a2 860f       |    |		Call	0x3,0xf
01a3 e00b       |    |		Load	0x0,0xb
01a4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01a5 0122       | "  |		Execute	Any,Make_Root_Type
01a6 00e0       |    |		Load_Encached	Standard_Cache
01a7 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
01a8 c60a       |    |		Store	0x3,0xa
01a9 e602       |    |		Load	0x3,0x2
01aa e7ff       |    |		Load	0x3,-0x1
01ab 01d7       |    |		Execute	Vector,Field_Read
01ac a60d       |    |		Store_Unchecked	0x3,0xd
01ad e602       |    |		Load	0x3,0x2
01ae 0a02       |    |		Execute_Immediate	Plus,0x2
01af c602       |    |		Store	0x3,0x2
01b0 860f       |    |		Call	0x3,0xf
01b1 00e2       |    |		Load_Encached	Integer_Cache
01b2 00e0       |    |		Load_Encached	Standard_Cache
01b3 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
01b4 a60b       |    |		Store_Unchecked	0x3,0xb
01b5 e60e       |    |		Load	0x3,0xe
01b6 68da       |h   |		Jump_Zero	0x291
01b7 e60b       |    |		Load	0x3,0xb
01b8 6817       |h   |		Jump_Zero	0x1d0
01b9 0092 0389  |    |		Action	Push_String_Extended,0x389					; "    "
01bb e60d       |    |		Load	0x3,0xd
01bc 8409       |    |		Call	0x2,0x9
01bd 01cc       |    |		Execute	Vector,Catenate
01be 0092 038a  |    |		Action	Push_String_Extended,0x38a					; ": "
01c0 01cc       |    |		Execute	Vector,Catenate
01c1 e60a       |    |		Load	0x3,0xa
01c2 e609       |    |		Load	0x3,0x9
01c3 e608       |    |		Load	0x3,0x8
01c4 8405       |    |		Call	0x2,0x5
01c5 01cc       |    |		Execute	Vector,Catenate
01c6 0092 038b  |    |		Action	Push_String_Extended,0x38b					; "  Readers="
01c8 01cc       |    |		Execute	Vector,Catenate
01c9 e60b       |    |		Load	0x3,0xb
01ca 00e0       |    |		Load_Encached	Standard_Cache
01cb 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01cc 01cc       |    |		Execute	Vector,Catenate
01cd e005       |    |		Load	0x0,0x5
01ce 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
01cf 78c1       |x   |		Jump	0x291
01d0 0092 0389  |    |		Action	Push_String_Extended,0x389					; "    "
01d2 e60d       |    |		Load	0x3,0xd
01d3 8409       |    |		Call	0x2,0x9
01d4 01cc       |    |		Execute	Vector,Catenate
01d5 0092 038a  |    |		Action	Push_String_Extended,0x38a					; ": "
01d7 01cc       |    |		Execute	Vector,Catenate
01d8 e60a       |    |		Load	0x3,0xa
01d9 e609       |    |		Load	0x3,0x9
01da e608       |    |		Load	0x3,0x8
01db 8405       |    |		Call	0x2,0x5
01dc 01cc       |    |		Execute	Vector,Catenate
01dd e005       |    |		Load	0x0,0x5
01de 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
01df 78b1       |x   |		Jump	0x291
01e0 e602       |    |		Load	0x3,0x2
01e1 0a02       |    |		Execute_Immediate	Plus,0x2
01e2 c602       |    |		Store	0x3,0x2
01e3 860f       |    |		Call	0x3,0xf
01e4 8408       |    |		Call	0x2,0x8
01e5 a60c       |    |		Store_Unchecked	0x3,0xc
01e6 860f       |    |		Call	0x3,0xf
01e7 00e5       |    |		Load_Encached	Long_Integer_Cache
01e8 00e0       |    |		Load_Encached	Standard_Cache
01e9 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
01ea a603       |    |		Store_Unchecked	0x3,0x3
01eb e602       |    |		Load	0x3,0x2
01ec e7ff       |    |		Load	0x3,-0x1
01ed 01d7       |    |		Execute	Vector,Field_Read
01ee a60d       |    |		Store_Unchecked	0x3,0xd
01ef e602       |    |		Load	0x3,0x2
01f0 0a02       |    |		Execute_Immediate	Plus,0x2
01f1 c602       |    |		Store	0x3,0x2
01f2 e60e       |    |		Load	0x3,0xe
01f3 689d       |h   |		Jump_Zero	0x291
01f4 0092 038c  |    |		Action	Push_String_Extended,0x38c					; "      Queued: Task="
01f6 e60c       |    |		Load	0x3,0xc
01f7 8407       |    |		Call	0x2,0x7
01f8 01cc       |    |		Execute	Vector,Catenate
01f9 0092 038d  |    |		Action	Push_String_Extended,0x38d					; " on action "
01fb 01cc       |    |		Execute	Vector,Catenate
01fc e603       |    |		Load	0x3,0x3
01fd 00e0       |    |		Load_Encached	Standard_Cache
01fe 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01ff 01cc       |    |		Execute	Vector,Catenate
0200 0092 038e  |    |		Action	Push_String_Extended,0x38e					; ", "
0202 01cc       |    |		Execute	Vector,Catenate
0203 e60d       |    |		Load	0x3,0xd
0204 8409       |    |		Call	0x2,0x9
0205 01cc       |    |		Execute	Vector,Catenate
0206 e005       |    |		Load	0x0,0x5
0207 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0208 7888       |x   |		Jump	0x291
0209 e602       |    |		Load	0x3,0x2
020a 0a02       |    |		Execute_Immediate	Plus,0x2
020b c602       |    |		Store	0x3,0x2
020c 860f       |    |		Call	0x3,0xf
020d e002       |    |		Load	0x0,0x2
020e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
020f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0210 0122       | "  |		Execute	Any,Make_Root_Type
0211 00e0       |    |		Load_Encached	Standard_Cache
0212 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0213 c608       |    |		Store	0x3,0x8
0214 860f       |    |		Call	0x3,0xf
0215 e002       |    |		Load	0x0,0x2
0216 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0217 0122       | "  |		Execute	Any,Make_Root_Type
0218 00e0       |    |		Load_Encached	Standard_Cache
0219 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
021a c609       |    |		Store	0x3,0x9
021b 860f       |    |		Call	0x3,0xf
021c e00b       |    |		Load	0x0,0xb
021d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
021e 0122       | "  |		Execute	Any,Make_Root_Type
021f 00e0       |    |		Load_Encached	Standard_Cache
0220 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0221 c60a       |    |		Store	0x3,0xa
0222 e60e       |    |		Load	0x3,0xe
0223 686d       |hm  |		Jump_Zero	0x291
0224 0092 038f  |    |		Action	Push_String_Extended,0x38f					; "    Modified: "
0226 e60a       |    |		Load	0x3,0xa
0227 e609       |    |		Load	0x3,0x9
0228 e608       |    |		Load	0x3,0x8
0229 8405       |    |		Call	0x2,0x5
022a 01cc       |    |		Execute	Vector,Catenate
022b e005       |    |		Load	0x0,0x5
022c 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
022d 7863       |xc  |		Jump	0x291
022e 860f       |    |		Call	0x3,0xf
022f 00e5       |    |		Load_Encached	Long_Integer_Cache
0230 00e0       |    |		Load_Encached	Standard_Cache
0231 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0232 a604       |    |		Store_Unchecked	0x3,0x4
0233 860f       |    |		Call	0x3,0xf
0234 8408       |    |		Call	0x2,0x8
0235 a605       |    |		Store_Unchecked	0x3,0x5
0236 e602       |    |		Load	0x3,0x2
0237 e7ff       |    |		Load	0x3,-0x1
0238 01dc       |    |		Execute	Vector,Last
0239 027c       | |  |		Execute	Discrete,Less
023a 680a       |h   |		Jump_Zero	0x245
023b e602       |    |		Load	0x3,0x2
023c e7ff       |    |		Load	0x3,-0x1
023d 01d7       |    |		Execute	Vector,Field_Read
023e 0f50       | P  |		Execute_Immediate	Equal,0x50
023f 6805       |h   |		Jump_Zero	0x245
0240 4801       |H   |		Short_Literal	0x1
0241 a607       |    |		Store_Unchecked	0x3,0x7
0242 e602       |    |		Load	0x3,0x2
0243 0a02       |    |		Execute_Immediate	Plus,0x2
0244 c602       |    |		Store	0x3,0x2
0245 e605       |    |		Load	0x3,0x5
0246 e00b       |    |		Load	0x0,0xb
0247 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0248 c606       |    |		Store	0x3,0x6
0249 e606       |    |		Load	0x3,0x6
024a e404       |    |		Load	0x2,0x4
024b 01d7       |    |		Execute	Vector,Field_Read
024c 0a01       |    |		Execute_Immediate	Plus,0x1
024d e606       |    |		Load	0x3,0x6
024e e404       |    |		Load	0x2,0x4
024f 01d6       |    |		Execute	Vector,Field_Write
0250 4800       |H   |		Short_Literal	0x0
0251 a60e       |    |		Store_Unchecked	0x3,0xe
0252 e5fe       |    |		Load	0x2,-0x2
0253 6807       |h   |		Jump_Zero	0x25b
0254 e5fd       |    |		Load	0x2,-0x3
0255 7005       |p   |		Jump_Nonzero	0x25b
0256 e5fc       |    |		Load	0x2,-0x4
0257 7003       |p   |		Jump_Nonzero	0x25b
0258 4801       |H   |		Short_Literal	0x1
0259 a60e       |    |		Store_Unchecked	0x3,0xe
025a 7815       |x   |		Jump	0x270
025b e5fe       |    |		Load	0x2,-0x2
025c 680d       |h   |		Jump_Zero	0x26a
025d e606       |    |		Load	0x3,0x6
025e e5fd       |    |		Load	0x2,-0x3
025f 00d8       |    |		Load_Top	At_Offset_0
0260 e00c       |    |		Load	0x0,0xc
0261 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
0262 0260       | `  |		Execute	Discrete,In_Type
0263 7001       |p   |		Jump_Nonzero	0x265
0264 08e0       |    |		Execute_Immediate	Raise,0xe0
0265 027f       |    |		Execute	Discrete,Equal
0266 6803       |h   |		Jump_Zero	0x26a
0267 4801       |H   |		Short_Literal	0x1
0268 a60e       |    |		Store_Unchecked	0x3,0xe
0269 7806       |x   |		Jump	0x270
026a e604       |    |		Load	0x3,0x4
026b e5fc       |    |		Load	0x2,-0x4
026c 027f       |    |		Execute	Discrete,Equal
026d 6802       |h   |		Jump_Zero	0x270
026e 4801       |H   |		Short_Literal	0x1
026f a60e       |    |		Store_Unchecked	0x3,0xe
0270 e60e       |    |		Load	0x3,0xe
0271 681f       |h   |		Jump_Zero	0x291
0272 e5fb       |    |		Load	0x2,-0x5
0273 6806       |h   |		Jump_Zero	0x27a
0274 e7ff       |    |		Load	0x3,-0x1
0275 e005       |    |		Load	0x0,0x5
0276 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0277 4801       |H   |		Short_Literal	0x1
0278 e005       |    |		Load	0x0,0x5
0279 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
027a 0092 0390  |    |		Action	Push_String_Extended,0x390					; "Action Id"
027c e604       |    |		Load	0x3,0x4
027d 00e0       |    |		Load_Encached	Standard_Cache
027e 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
027f 01cc       |    |		Execute	Vector,Catenate
0280 0092 0391  |    |		Action	Push_String_Extended,0x391					; "; Owner = "
0282 01cc       |    |		Execute	Vector,Catenate
0283 e605       |    |		Load	0x3,0x5
0284 8407       |    |		Call	0x2,0x7
0285 01cc       |    |		Execute	Vector,Catenate
0286 e005       |    |		Load	0x0,0x5
0287 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0288 e607       |    |		Load	0x3,0x7
0289 6807       |h   |		Jump_Zero	0x291
028a 0092 0392  |    |		Action	Push_String_Extended,0x392					; "    Prevent_Commit"
028c e005       |    |		Load	0x0,0x5
028d 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
028e 7802       |x   |		Jump	0x291
028f 00d1       |    |		Pop_Control	Pop_Count_1
0290 08e2       |    |		Execute_Immediate	Raise,0xe2
0291 00c9       |    |		Action	Pop_Auxiliary_Loop
0292 e602       |    |		Load	0x3,0x2
0293 e7ff       |    |		Load	0x3,-0x1
0294 01dc       |    |		Execute	Vector,Last
0295 027c       | |  |		Execute	Discrete,Less
0296 7699       |v   |		Jump_Nonzero	0x130
0297 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029b       |    |		.CONST	0x029b								; Address of begin
0299 029f       |    |		.CONST	0x029f								; Address of exception handler
029a 0001       |    |		.CONST	0x0001								; Number of locals
029b			BODY_0298:
029b			INIT_0298:
029b e7ff       |    |		Load	0x3,-0x1
029c e00d       |    |		Load	0x0,0xd
029d 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
029e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
029f			TRAP_0298:
029f 0007       |    |		Action	Break_Optional
02a0 0092 0393  |    |		Action	Push_String_Extended,0x393					; "<dead job>"
02a2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02a3 0000 0000  |    |		.BLANK	0000[0x5]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02b2       |    |		.CONST	0x02b2								; Address of begin
02a9 0004       |    |		.CONST	0x0004								; Address of exception handler
02aa 0003       |    |		.CONST	0x0003								; Number of locals
02ab			INIT_02a8:
02ab e004       |    |		Load	0x0,0x4
02ac 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02ad 02c7       |    |		Declare_Variable	Any
02ae 00d8       |    |		Load_Top	At_Offset_0
02af 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02b0 00e1       |    |		Load_Encached	Boolean_Cache
02b1 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
02b2			BODY_02a8:
02b2 00cf       |    |		Action	Mark_Auxiliary
02b3 e404       |    |		Load	0x2,0x4
02b4 01d9       |    |		Execute	Vector,Reverse_Bounds
02b5 0007       |    |		Action	Break_Optional
02b6 4800       |H   |		Short_Literal	0x0
02b7 e606       |    |		Load	0x3,0x6
02b8 e404       |    |		Load	0x2,0x4
02b9 01d6       |    |		Execute	Vector,Field_Write
02ba 00c8       |    |		Action	Pop_Auxiliary_Range
02bb 3ffa       |?   |		Loop_Increasing	0x2b6
02bc 00ce       |    |		Action	Pop_Auxiliary
02bd 0092 0394  |    |		Action	Push_String_Extended,0x394					; "Actions in progress = "
02bf e7ff       |    |		Load	0x3,-0x1
02c0 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
02c1 00e0       |    |		Load_Encached	Standard_Cache
02c2 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
02c3 01cc       |    |		Execute	Vector,Catenate
02c4 e005       |    |		Load	0x0,0x5
02c5 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
02c6 0092 0395  |    |		Action	Push_String_Extended,0x395					; "Actions abandoned   = "
02c8 e7ff       |    |		Load	0x3,-0x1
02c9 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
02ca 00e0       |    |		Load_Encached	Standard_Cache
02cb 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
02cc 01cc       |    |		Execute	Vector,Catenate
02cd e005       |    |		Load	0x0,0x5
02ce 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
02cf 0092 0396  |    |		Action	Push_String_Extended,0x396					; "Next Action Id      = "
02d1 e7ff       |    |		Load	0x3,-0x1
02d2 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
02d3 e004       |    |		Load	0x0,0x4
02d4 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
02d5 00e0       |    |		Load_Encached	Standard_Cache
02d6 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
02d7 01cc       |    |		Execute	Vector,Catenate
02d8 e005       |    |		Load	0x0,0x5
02d9 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
02da 00cf       |    |		Action	Mark_Auxiliary
02db e7ff       |    |		Load	0x3,-0x1
02dc 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
02dd 4801       |H   |		Short_Literal	0x1
02de 0263       | c  |		Execute	Discrete,Above_Bound
02df 7014       |p   |		Jump_Nonzero	0x2f4
02e0 00d8       |    |		Load_Top	At_Offset_0
02e1 e7ff       |    |		Load	0x3,-0x1
02e2 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
02e3 01d7       |    |		Execute	Vector,Field_Read
02e4 c602       |    |		Store	0x3,0x2
02e5 e602       |    |		Load	0x3,0x2
02e6 e004       |    |		Load	0x0,0x4
02e7 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02e8 6809       |h   |		Jump_Zero	0x2f2
02e9 4800       |H   |		Short_Literal	0x0
02ea 4801       |H   |		Short_Literal	0x1
02eb 4801       |H   |		Short_Literal	0x1
02ec 4801       |H   |		Short_Literal	0x1
02ed e602       |    |		Load	0x3,0x2
02ee e004       |    |		Load	0x0,0x4
02ef 1b1f       |    |		Execute	Package,Field_Read,Field_Number 0x1f
02f0 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
02f1 840a       |    |		Call	0x2,0xa
02f2 00c8       |    |		Action	Pop_Auxiliary_Range
02f3 3fec       |?   |		Loop_Increasing	0x2e0
02f4 00ce       |    |		Action	Pop_Auxiliary
02f5 00cf       |    |		Action	Mark_Auxiliary
02f6 e404       |    |		Load	0x2,0x4
02f7 01d9       |    |		Execute	Vector,Reverse_Bounds
02f8 0007       |    |		Action	Break_Optional
02f9 00d8       |    |		Load_Top	At_Offset_0
02fa e404       |    |		Load	0x2,0x4
02fb 01d7       |    |		Execute	Vector,Field_Read
02fc 6837       |h7  |		Jump_Zero	0x334
02fd e5ff       |    |		Load	0x2,-0x1
02fe 6802       |h   |		Jump_Zero	0x301
02ff e5fd       |    |		Load	0x2,-0x3
0300 680a       |h   |		Jump_Zero	0x30b
0301 e5fd       |    |		Load	0x2,-0x3
0302 00d8       |    |		Load_Top	At_Offset_0
0303 e00c       |    |		Load	0x0,0xc
0304 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
0305 0260       | `  |		Execute	Discrete,In_Type
0306 7001       |p   |		Jump_Nonzero	0x308
0307 08e0       |    |		Execute_Immediate	Raise,0xe0
0308 e606       |    |		Load	0x3,0x6
0309 027f       |    |		Execute	Discrete,Equal
030a 6829       |h)  |		Jump_Zero	0x334
030b e603       |    |		Load	0x3,0x3
030c 700d       |p   |		Jump_Nonzero	0x31a
030d 4801       |H   |		Short_Literal	0x1
030e e005       |    |		Load	0x0,0x5
030f 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
0310 0092 0397  |    |		Action	Push_String_Extended,0x397					; "Job  #Actions      Job name"
0312 e005       |    |		Load	0x0,0x5
0313 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0314 0092 0398  |    |		Action	Push_String_Extended,0x398					; "---- -------- --------------------"
0316 e005       |    |		Load	0x0,0x5
0317 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0318 4801       |H   |		Short_Literal	0x1
0319 a603       |    |		Store_Unchecked	0x3,0x3
031a 4820       |H   |		Short_Literal	0x20
031b 4804       |H   |		Short_Literal	0x4
031c 480a       |H   |		Short_Literal	0xa
031d e606       |    |		Load	0x3,0x6
031e e00a       |    |		Load	0x0,0xa
031f 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0320 0092 0399  |    |		Action	Push_String_Extended,0x399					; "  "
0322 01cc       |    |		Execute	Vector,Catenate
0323 4820       |H   |		Short_Literal	0x20
0324 4806       |H   |		Short_Literal	0x6
0325 480a       |H   |		Short_Literal	0xa
0326 e606       |    |		Load	0x3,0x6
0327 e404       |    |		Load	0x2,0x4
0328 01d7       |    |		Execute	Vector,Field_Read
0329 e00a       |    |		Load	0x0,0xa
032a 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
032b 01cc       |    |		Execute	Vector,Catenate
032c 0092 039a  |    |		Action	Push_String_Extended,0x39a					; "     "
032e 01cc       |    |		Execute	Vector,Catenate
032f e606       |    |		Load	0x3,0x6
0330 840b       |    |		Call	0x2,0xb
0331 01cc       |    |		Execute	Vector,Catenate
0332 e005       |    |		Load	0x0,0x5
0333 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0334 00c8       |    |		Action	Pop_Auxiliary_Range
0335 3fc3       |?   |		Loop_Increasing	0x2f9
0336 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0337 0000       |    |		.XXX[0x1]
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 033b       | ;  |		.CONST	0x033b								; Address of begin
0339 0004       |    |		.CONST	0x0004								; Address of exception handler
033a 0001       |    |		.CONST	0x0001								; Number of locals
033b			BODY_0338:
033b			INIT_0338:
033b 0092 039b  |    |		Action	Push_String_Extended,0x39b					; "("
033d e7ff       |    |		Load	0x3,-0x1
033e e001       |    |		Load	0x0,0x1
033f 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
0340 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0341 01cc       |    |		Execute	Vector,Catenate
0342 0092 0388  |    |		Action	Push_String_Extended,0x388					; " "
0344 01cc       |    |		Execute	Vector,Catenate
0345 e7ff       |    |		Load	0x3,-0x1
0346 00e0       |    |		Load_Encached	Standard_Cache
0347 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0348 01cc       |    |		Execute	Vector,Catenate
0349 e7fe       |    |		Load	0x3,-0x2
034a 00e0       |    |		Load_Encached	Standard_Cache
034b 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
034c 01cc       |    |		Execute	Vector,Catenate
034d e7fd       |    |		Load	0x3,-0x3
034e 00e0       |    |		Load_Encached	Standard_Cache
034f 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0350 01cc       |    |		Execute	Vector,Catenate
0351 0092 039c  |    |		Action	Push_String_Extended,0x39c					; ") "
0353 01cc       |    |		Execute	Vector,Catenate
0354 00ca       |    |		Action	Exit_Nullary_Function
0355 0000 0000  |    |		.XXX[0x3]
0357 0000       |    |
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 035c       | \  |		.CONST	0x035c								; Address of begin
0359 0004       |    |		.CONST	0x0004								; Address of exception handler
035a 0002       |    |		.CONST	0x0002								; Number of locals
035b			INIT_0358:
035b e602       |    |		Load	0x3,0x2
035c			BODY_0358:
035c 00cf       |    |		Action	Mark_Auxiliary
035d e602       |    |		Load	0x3,0x2
035e e7ff       |    |		Load	0x3,-0x1
035f 01dc       |    |		Execute	Vector,Last
0360 027d       | }  |		Execute	Discrete,Greater
0361 700f       |p   |		Jump_Nonzero	0x371
0362 e602       |    |		Load	0x3,0x2
0363 e7ff       |    |		Load	0x3,-0x1
0364 01d7       |    |		Execute	Vector,Field_Read
0365 0f0a       |    |		Execute_Immediate	Equal,0xa
0366 700a       |p   |		Jump_Nonzero	0x371
0367 e602       |    |		Load	0x3,0x2
0368 e7ff       |    |		Load	0x3,-0x1
0369 01d7       |    |		Execute	Vector,Field_Read
036a 0f20       |    |		Execute_Immediate	Equal,0x20
036b 7005       |p   |		Jump_Nonzero	0x371
036c e602       |    |		Load	0x3,0x2
036d 0a01       |    |		Execute_Immediate	Plus,0x1
036e c602       |    |		Store	0x3,0x2
036f 00c9       |    |		Action	Pop_Auxiliary_Loop
0370 7fec       |    |		Jump	0x35d
0371 00ce       |    |		Action	Pop_Auxiliary
0372 e602       |    |		Load	0x3,0x2
0373 0a01       |    |		Execute_Immediate	Plus,0x1
0374 c602       |    |		Store	0x3,0x2
0375 00d8       |    |		Load_Top	At_Offset_0
0376 e602       |    |		Load	0x3,0x2
0377 0afe       |    |		Execute_Immediate	Plus,-0x2
0378 e7ff       |    |		Load	0x3,-0x1
0379 01cf       |    |		Execute	Vector,Slice_Read
037a 0335       | 5  |		Declare_Variable	Array,Duplicate
037b 00cd       |    |		Action	Spare6_Action
037c 00ca       |    |		Action	Exit_Nullary_Function
037d ; --------------------------------------------------------------------------------------
037d ; STRING TABLE
037d ; --------------------------------------------------------------------------------------
037d 0042       | B  |		.STRTAB	0x0042->0x039e							; "DDB"
037e 0043       | C  |		.STRTAB	0x0043->0x039f							; "Operator Capability is required to use this command."
037f 0075       | u  |		.STRTAB	0x0075->0x03b9							; "[DDB obj for:"
0380 0080       |    |		.STRTAB	0x0080->0x03c0							; "]"
0381 007f       |    |		.STRTAB	0x007f->0x03c0							; "[Name unknown due to: "
0382 0093       |    |		.STRTAB	0x0093->0x03cb							; "#"
0383 0092       |    |		.STRTAB	0x0092->0x03cc							; "Update"
0384 0096       |    |		.STRTAB	0x0096->0x03cf							; "None"
0385 0098       |    |		.STRTAB	0x0098->0x03d1							; "Read"
0386 009a       |    |		.STRTAB	0x009a->0x03d3							; "Overwrite"
0387 00a1       |    |		.STRTAB	0x00a1->0x03d7							; "    Shared: "
0388 00ab       |    |		.STRTAB	0x00ab->0x03dd							; " "
0389 00aa       |    |		.STRTAB	0x00aa->0x03de							; "    "
038a 00ac       |    |		.STRTAB	0x00ac->0x03e0							; ": "
038b 00ac       |    |		.STRTAB	0x00ac->0x03e1							; "  Readers="
038c 00b4       |    |		.STRTAB	0x00b4->0x03e6							; "      Queued: Task="
038d 00c5       |    |		.STRTAB	0x00c5->0x03ef							; " on action "
038e 00ce       |    |		.STRTAB	0x00ce->0x03f5							; ", "
038f 00ce       |    |		.STRTAB	0x00ce->0x03f6							; "    Modified: "
0390 00da       |    |		.STRTAB	0x00da->0x03fd							; "Action Id"
0391 00e1       |    |		.STRTAB	0x00e1->0x0401							; "; Owner = "
0392 00e9       |    |		.STRTAB	0x00e9->0x0406							; "    Prevent_Commit"
0393 00f9       |    |		.STRTAB	0x00f9->0x040f							; "<dead job>"
0394 0101       |    |		.STRTAB	0x0101->0x0414							; "Actions in progress = "
0395 0115       |    |		.STRTAB	0x0115->0x041f							; "Actions abandoned   = "
0396 0129       | )  |		.STRTAB	0x0129->0x042a							; "Next Action Id      = "
0397 013d       | =  |		.STRTAB	0x013d->0x0435							; "Job  #Actions      Job name"
0398 0156       | V  |		.STRTAB	0x0156->0x0443							; "---- -------- --------------------"
0399 0176       | v  |		.STRTAB	0x0176->0x0454							; "  "
039a 0176       | v  |		.STRTAB	0x0176->0x0455							; "     "
039b 0179       | y  |		.STRTAB	0x0179->0x0457							; "("
039c 0178       | x  |		.STRTAB	0x0178->0x0458							; ") "
039d 0178       | x  |		.STREND 0x0178->0x0459
039e 4444 424f  |DDBO|		.STRTAB_STRINGS
0459 0000 0000  |    |		.BLANK	0000[0x7]
0460 ; --------------------------------------------------------------------------------------
0460 ; Debug Table
0460 ; --------------------------------------------------------------------------------------
0460 0004 000b  |    |		.DEBUG4	0x0004,0x000b,0xbb63,0x0000,0x0001,0x0000
0466 d881 e0a1  |    |		.XXX[0x19a]
0468 dda1 a58d  |    |
046a a0a5 4c80  |  L |
046c c4d8 81e0  |    |
046e a1d1 a194  |    |
0470 a54c 80c4  | L  |
0472 d881 e0a1  |    |
0474 a1e5 c195  |    |
0476 c989 bdb1  |    |
0478 a58c a54c  |   L|
047a 80c4 d881  |    |
047c e028 a1d1  | (  |
047e 85b9 9d95  |    |
0480 b9d0 a54c  |   L|
0482 80c4 d881  |    |
0484 e0a1 bdc8  |    |
0486 a54c 80c4  | L  |
0488 d881 e0a1  |    |
048a 8dbd d185  |    |
048c b99d 95b9  |    |
048e d0a5 4c80  |  L |
0490 c4d8 81e0  |    |
0492 a1bd 98a5  |    |
0494 4c80 c4d8  |L   |
0496 81e0 8118  |    |
0498 d4cc a160  |   `|
049a a54c 80c4  | L  |
049c d881 e080  |    |
049e 2918 d8a1  |)   |
04a0 a5cc a54c  |   L|
04a2 80c4 d881  |    |
04a4 e0a1 95e1  |    |
04a6 858d d1b1  |    |
04a8 e4a5 4c29  |  L)|
04aa 6140 80bd  |a@  |
04ac 18c8 c080  |    |
04ae d0cc 80cc  |    |
04b0 c880 c880  |    |
04b2 b4d0 80c8  |    |
04b4 e480 c8d0  |    |
04b6 80c8 e080  |    |
04b8 ccc8 80c0  |    |
04ba 28f0 c0c0  |(   |
04bc c0d8 c0c0  |    |
04be c0c0 80c0  |    |
04c0 c0c0 d8c0  |    |
04c2 c0c0 c080  |    |
04c4 c0c0 c0d8  |    |
04c6 c0c0 c0c0  |    |
04c8 80c0 c0c0  |    |
04ca d8c0 c0c0  |    |
04cc c080 c0c0  |    |
04ce c0d8 c0c0  |    |
04d0 c0c0 80c0  |    |
04d2 c0c0 d8c0  |    |
04d4 c0c0 c080  |    |
04d6 c0c0 c0d8  |    |
04d8 c0c0 c0c0  |    |
04da 2880 c0c0  |(   |
04dc c0d8 c0c0  |    |
04de c0c0 80c0  |    |
04e0 c0c0 d8c0  |    |
04e2 c0c0 c080  |    |
04e4 c0c0 c0d8  |    |
04e6 c0c0 c0c0  |    |
04e8 80c0 c0c0  |    |
04ea d8c0 c0c0  |    |
04ec c080 c0c0  |    |
04ee c0d8 c0c0  |    |
04f0 c0c0 80c0  |    |
04f2 c0c0 d8c0  |    |
04f4 c0c0 c081  |    |
04f6 1919 1919  |    |
04f8 1919 14c0  |    |
04fa 2881 1919  |(   |
04fc 1919 1919  |    |
04fe 14c0 80c0  |    |
0500 c0c0 d8c0  |    |
0502 c0c0 c080  |    |
0504 c0c0 c0d8  |    |
0506 c0c0 c0c0  |    |
0508 80c0 c0c0  |    |
050a d8c0 c0c0  |    |
050c c080 c0c0  |    |
050e c0d8 c0c0  |    |
0510 c0c0 80c0  |    |
0512 c0c0 d8c0  |    |
0514 c0c0 c080  |    |
0516 c0c0 c0d8  |    |
0518 c0c0 c0c0  |    |
051a 2880 c0c0  |(   |
051c c0d8 c0c0  |    |
051e c0c0 80c0  |    |
0520 c0c0 d8c0  |    |
0522 c0c0 c080  |    |
0524 c0c0 c0d8  |    |
0526 c0c0 c0c0  |    |
0528 80c0 c0c0  |    |
052a d8c0 c0c0  |    |
052c c080 c0c0  |    |
052e c0d8 c0c0  |    |
0530 c0c0 80c0  |    |
0532 c0c0 d8c0  |    |
0534 c0c0 c080  |    |
0536 c0c0 c0d8  |    |
0538 c0c0 c0c0  |    |
053a f829 4161  | )Aa|
053c 310c 8149  |1  I|
053e 4028 c8c4  |@(  |
0540 c8e4 80e0  |    |
0542 c0c0 8161  |   a|
0544 6481 18c8  |d   |
0546 c0a0 aca5  |    |
0548 4c81 18d4  |L   |
054a cca0 c4b8  |    |
054c c0a5 4c80  |  L |
054e c4d4 81e0  |    |
0550 8118 d8a1  |    |
0552 bdc8 a54c  |   L|
0554 2961 4080  |)a@ |
0556 bd18 c8c8  |    |
0558 80c0 80cc  |    |
055a c880 cc80  |    |
055c e480 c8e0  |    |
055e 80c4 c480  |    |
0560 c880 ccc8  |    |
0562 80c0 28f1  |  ( |
0564 1919 1919  |    |
0566 1918 e0c0  |    |
0568 8119 1919  |    |
056a 1919 18e0  |    |
056c c0f8 2941  |  )A|
056e 6131 0c81  |a1  |
0570 4940 28cc  |I@( |
0572 c8dc 80e0  |    |
0574 d4c0 8161  |   a|
0576 6481 18c8  |d   |
0578 c8a1 70c0  |  p |
057a c0c0 a54c  |   L|
057c 8118 d4cc  |    |
057e a0c4 b8c0  |    |
0580 a54c 8118  | L  |
0582 d8a0 b0a5  |    |
0584 4c80 c4d4  |L   |
0586 81e0 a1d1  |    |
0588 a195 cd94  |    |
058a a54c 80c4  | L  |
058c d481 e0a1  |    |
058e d985 b1d5  |    |
0590 95cc a54c  |   L|
0592 8028 c4d4  | (  |
0594 81e0 a1b5  |    |
0596 85e4 a54c  |   L|
0598 80c4 d481  |    |
059a e0a1 8994  |    |
059c a54c 80c4  | L  |
059e d481 e0a1  |    |
05a0 8db1 bdcd  |    |
05a2 95c8 a54c  |   L|
05a4 80c4 d481  |    |
05a6 e0a1 d1bc  |    |
05a8 a54c 80c4  | L  |
05aa d481 e0a1  |    |
05ac d1a1 94a5  |    |
05ae 4c80 c4d4  |L   |
05b0 81e0 28a1  |  ( |
05b2 b585 d1a1  |    |
05b4 95b5 85d1  |    |
05b6 a58d 85b0  |    |
05b8 a54c 80c4  | L  |
05ba d481 e0a1  |    |
05bc c995 cdd5  |    |
05be b1d0 a54c  |   L|
05c0 80c4 d481  |    |
05c2 e0a1 d1a1  |    |
05c4 85b8 a54c  |   L|
05c6 80c4 d481  |    |
05c8 e0a1 85b9  |    |
05ca e4a5 4c80  |  L |
05cc c4d4 81e0  |    |
05ce a1bd d1a1  |    |
05d0 95c8 a54c  |   L|
05d2 8028 c4d4  | (  |
05d4 81e0 a1c9  |    |
05d6 95c1 c995  |    |
05d8 cd95 b9d1  |    |
05da 8589 b194  |    |
05dc a54c 80c4  | L  |
05de d481 e0a1  |    |
05e0 b9d5 b589  |    |
05e2 95c8 b8a5  |    |
05e4 4c80 c4c0  |L   |
05e6 c4c4 8164  |   d|
05e8 80cc c8dc  |    |
05ea 8160 8118  | `  |
05ec d4c8 a15d  |   ]|
05ee a1e4 a54c  |   L|
05f0 80c8 c081  |    |
05f2 e028 a191  | (  |
05f4 bd95 cca5  |    |
05f6 4c80 c8c0  |L   |
05f8 81e0 a0c0  |    |
05fa b8c0 a8a8  |    |
05fc c0b8 c0a5  |    |
05fe 4c80 c8c0  |L   |