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

⟦1657ebb90⟧

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

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 a03b a03c  | ; <|		.XXX[0x3b]
0468 a03d a03e  | = >|
046a a03f 1d15  | ?  |
046c 1d14 1d16  |    |
046e 1d17 1d18  |    |
0470 1d19 e040  |   @|
0472 194b e040  | K @|
0474 194c e040  | L @|
0476 1945 e040  | E @|
0478 1946 e040  | F @|
047a 194a a041  | J A|
047c e040 1944  | @ D|
047e 1d1a 1d1b  |    |
0480 e040 1932  | @ 2|
0482 e040 1933  | @ 3|
0484 e040 1934  | @ 4|
0486 e040 1935  | @ 5|
0488 e040 1936  | @ 6|
048a e040 1937  | @ 7|
048c e040 1938  | @ 8|
048e a042 e043  | B C|
0490 0387 00d8  |    |
0492 020f 1d0d  |    |
0494 00c7 1d0e  |    |
0496 00c7 1d0f  |    |
0498 00c7 1d10  |    |
049a 00c7 1d11  |    |
049c 00c7 1d12  |    |
049e 00c7 00bc  |    |
04a0 00bb       |    |
04a1 0000 0000  |    |		.BLANK	0000[0x7]
04a8 00ab 0004  |    |		.XXX[0x12]
04aa 0001 e5f8  |    |
04ac e5f9 00e3  |    |
04ae e5fb e5fc  |    |
04b0 4800 e5fd  |H   |
04b2 e5fe e5ff  |    |
04b4 e21d 1863  |   c|
04b6 c5fa 00d1  |    |
04b8 c5f8 4506  |  E |
04ba 0000 0000  |    |		.BLANK	0000[0x6]
04c0 00c3 0004  |    |		.XXX[0x12]
04c2 0001 e5f8  |    |
04c4 e5f9 00e3  |    |
04c6 e5fb e5fc  |    |
04c8 4801 e5fd  |H   |
04ca e5fe e5ff  |    |
04cc e21d 1863  |   c|
04ce c5fa 00d1  |    |
04d0 c5f8 4506  |  E |
04d2 0000 0000  |    |		.BLANK	0000[0x6]
04d8 00db 0004  |    |		.XXX[0x2b]
04da 0001 e5fb  |    |
04dc e5fc 0120  |    |
04de 6803 e21d  |h   |
04e0 1b0f 7801  |  x |
04e2 e5fc 00ec  |    |
04e4 00e2 e5ff  |    |
04e6 e21d 1864  |   d|
04e8 c5fe c5fd  |    |
04ea c5fc c5fb  |    |
04ec 4502 0000  |E   |
04ee 0000 0000  |    |
04f0 00f3 0004  |    |
04f2 0001 e5fc  |    |
04f4 00e3 e5fe  |    |
04f6 0120 6803  |  h |
04f8 e21d 1b1e  |    |
04fa 7801 e5fe  |x   |
04fc e5ff e21d  |    |
04fe 1865 c5fe  | e  |
0500 c5fd c5fc  |    |
0502 4502       |E   |
0503 0000 0000  |    |		.BLANK	0000[0x5]
0508 010b 0004  |    |		.XXX[0x2b]
050a 0001 e5f9  |    |
050c e5fa 0120  |    |
050e 6803 e21d  |h   |
0510 1b0f 7801  |  x |
0512 e5fa e5fb  |    |
0514 0120 6803  |  h |
0516 e21d 1b11  |    |
0518 7801 e5fb  |x   |
051a 00ec 00ec  |    |
051c 00e2 e5ff  |    |
051e e21d 1866  |   f|
0520 c5fe c5fd  |    |
0522 c5fc c5fb  |    |
0524 c5fa c5f9  |    |
0526 4502 0000  |E   |
0528 012b 0004  | +  |
052a 0001 e5fd  |    |
052c e5fe e5ff  |    |
052e e21d 1867  |   g|
0530 00d2 c5fd  |    |
0532 4501       |E   |
0533 0000 0000  |    |		.BLANK	0000[0x5]
0538 013d 0004  | =  |		.XXX[0x42]
053a 0003 00e2  |    |
053c 00e1 4800  |  H |
053e a5fd e5fe  |    |
0540 7007 e5fc  |p   |
0542 0092 02bc  |    |
0544 e044 1815  | D  |
0546 c5fc 4503  |  E |
0548 e5fe 0d00  |    |
054a 6829 e5fc  |h)  |
054c 00e1 00e2  |    |
054e 4800 e5ff  |H   |
0550 8045 c402  | E  |
0552 005a c5fc  | Z  |
0554 4802 e5fc  |H   |
0556 e044 1810  | D  |
0558 6801 4503  |h E |
055a 00d8 7007  |  p |
055c e5fc 0092  |    |
055e 02bd e044  |   D|
0560 1815 c5fc  |    |
0562 4503 00d9  |E   |
0564 e5fe 0273  |   s|
0566 0d00 6806  |  h |
0568 0092 02be  |    |
056a e044 1811  | D  |
056c c5fc 4503  |  E |
056e 00d9 e5fe  |    |
0570 0273 0a01  | s  |
0572 c5fd 4503  |  E |
0574 e5fe c5fd  |    |
0576 e044 1819  | D  |
0578 c5fc 4503  |  E |
057a 0000 0000  |    |		.BLANK	0000[0x6]
0580 0188 0004  |    |		.XXX[0x80]
0582 0003 e046  |   F|
0584 0322 00d8  | "  |
0586 1c00 00e3  |    |
0588 0092 02bf  |    |
058a e5ff 8015  |    |
058c 0f00 e047  |   G|
058e 180e e005  |    |
0590 c5fd e00f  |    |
0592 c5fc e007  |    |
0594 c5fb 8048  |   H|
0596 6807 e5fa  |h   |
0598 0092 02c0  |    |
059a e044 1815  | D  |
059c c5fa 4503  |  E |
059e e5ff 8049  |   I|
05a0 7007 e5fa  |p   |
05a2 0092 02c1  |    |
05a4 e044 1815  | D  |
05a6 c5fa 4503  |  E |
05a8 e5fa 00e3  |    |
05aa e5fe e5ff  |    |
05ac 8213 005a  |   Z|
05ae c5fa 4802  |  H |
05b0 e5fa e044  |   D|
05b2 1810 6801  |  h |
05b4 4503 e5fa  |E   |
05b6 00da 00da  |    |
05b8 e5ff 804a  |   J|
05ba 00d1 c5fa  |    |
05bc 00d9 3c02  |  < |
05be c5fd 00d9  |    |
05c0 3c03 c5fc  |<   |
05c2 00d9 3c05  |  < |
05c4 c5fb 4503  |  E |
05c6 0000 0000  |    |
05c8 01ce 0004  |    |
05ca 0003 00e3  |    |
05cc 029f 02b3  |    |
05ce e5fb 00e3  |    |
05d0 e5ff e5fc  |    |
05d2 8019 8213  |    |
05d4 005b c5fb  | [  |
05d6 4802 e5fb  |H   |
05d8 e044 1810  | D  |
05da 6801 4504  |h E |
05dc 8403 4504  |  E |
05de 0000 0000  |    |
05e0 01ea 0004  |    |
05e2 0002 e013  |    |
05e4 02c7 00db  |    |
05e6 e04b 1813  | K  |
05e8 804c a402  | L  |
05ea 00d8 8015  |    |
05ec 680a 00db  |h   |
05ee e04b 1813  | K  |
05f0 0092 02c2  |    |
05f2 01cc e044  |   D|
05f4 1811 c5fd  |    |
05f6 7803 e044  |x  D|
05f8 1819 c5fd  |    |
05fa 00d8 c5fe  |    |
05fc 4502 0000  |E   |
05fe 0000 0000  |    |