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

⟦93b9cef07⟧

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

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦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 0450       | P  |		.CONST	0x0450								; 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 036d  |   m|		Action	Push_String_Extended,0x36d					; "DDB"
001d e002       |    |		Load	0x0,0x2
001e 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
001f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0020 e003       |    |		Load	0x0,0x3
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 028b  |    |		Declare_Subprogram	INIT_0288,For_Call
003a 029f 029b  |    |		Declare_Subprogram	INIT_0298,For_Call
003c			BODY_0018:
003c e004       |    |		Load	0x0,0x4
003d 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
003e 6805       |h   |		Jump_Zero	0x44
003f e005       |    |		Load	0x0,0x5
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 036e  |   n|		Action	Push_String_Extended,0x36e					; "Operator Capability is required to use this command."
0046 e006       |    |		Load	0x0,0x6
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 0065       | e  |		.CONST	0x0065								; Address of begin
0051 0094       |    |		.CONST	0x0094								; Address of exception handler
0052 0007       |    |		.CONST	0x0007								; Number of locals
0053			INIT_0050:
0053 e7ff       |    |		Load	0x3,-0x1
0054 e003       |    |		Load	0x0,0x3
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 e007       |    |		Load	0x0,0x7
005a 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
005b e007       |    |		Load	0x0,0x7
005c 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
005d 00ec       |    |		Load_Encached	Diana_Tree_Cache
005e e008       |    |		Load	0x0,0x8
005f 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0060 02ff       |    |		Declare_Variable	Variant_Record
0061 00d8       |    |		Load_Top	At_Offset_0
0062 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0063 029f 032b  |   +|		Declare_Subprogram	INIT_0328,For_Call
0065			BODY_0050:
0065 e602       |    |		Load	0x3,0x2
0066 e7fd       |    |		Load	0x3,-0x3
0067 e7fe       |    |		Load	0x3,-0x2
0068 e003       |    |		Load	0x0,0x3
0069 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
006a 00d1       |    |		Pop_Control	Pop_Count_1
006b e602       |    |		Load	0x3,0x2
006c e606       |    |		Load	0x3,0x6
006d 016d       | m  |		Execute	Variant_Record,Structure_Write
006e e7ff       |    |		Load	0x3,-0x1
006f e402       |    |		Load	0x2,0x2
0070 027e       | ~  |		Execute	Discrete,Not_Equal
0071 6806       |h   |		Jump_Zero	0x78
0072 8607       |    |		Call	0x3,0x7
0073 e606       |    |		Load	0x3,0x6
0074 e009       |    |		Load	0x0,0x9
0075 1857       | W  |		Execute	Package,Field_Execute,Field_Number 0x57
0076 01cc       |    |		Execute	Vector,Catenate
0077 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0078 e007       |    |		Load	0x0,0x7
0079 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
007a e007       |    |		Load	0x0,0x7
007b 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
007c e606       |    |		Load	0x3,0x6
007d e003       |    |		Load	0x0,0x3
007e 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
007f c603       |    |		Store	0x3,0x3
0080 c604       |    |		Store	0x3,0x4
0081 e604       |    |		Load	0x3,0x4
0082 e603       |    |		Load	0x3,0x3
0083 497d       |I}  |		Short_Literal	0x17d
0084 00eb       |    |		Load_Encached	Diana_Cache
0085 0096       |    |		Execute	Package,Entry
0086 a605       |    |		Store_Unchecked	0x3,0x5
0087 8607       |    |		Call	0x3,0x7
0088 0092 036f  |   o|		Action	Push_String_Extended,0x36f					; "[DDB obj for:"
008a 01cc       |    |		Execute	Vector,Catenate
008b e605       |    |		Load	0x3,0x5
008c e008       |    |		Load	0x0,0x8
008d 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
008e 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
008f 01cc       |    |		Execute	Vector,Catenate
0090 0092 0370  |   p|		Action	Push_String_Extended,0x370					; "]"
0092 01cc       |    |		Execute	Vector,Catenate
0093 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0094			TRAP_0050:
0094 0007       |    |		Action	Break_Optional
0095 8607       |    |		Call	0x3,0x7
0096 0092 0371  |   q|		Action	Push_String_Extended,0x371					; "[Name unknown due to: "
0098 01cc       |    |		Execute	Vector,Catenate
0099 4800       |H   |		Short_Literal	0x0
009a 4801       |H   |		Short_Literal	0x1
009b e00a       |    |		Load	0x0,0xa
009c 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
009d 01cc       |    |		Execute	Vector,Catenate
009e 0092 0370  |   p|		Action	Push_String_Extended,0x370					; "]"
00a0 01cc       |    |		Execute	Vector,Catenate
00a1 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
00a2 0000 0000  |    |		.BLANK	0000[0x6]
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 e00b       |    |		Load	0x0,0xb
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 0372  |   r|		Action	Push_String_Extended,0x372					; "#"
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 0801       |    |		Execute_Immediate	Raise,0x1
00c6 e00b       |    |		Load	0x0,0xb
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 e00b       |    |		Load	0x0,0xb
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 e007       |    |		Load	0x0,0x7
00e0 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
00e1 0260       | `  |		Execute	Discrete,In_Type
00e2 7001       |p   |		Jump_Nonzero	0xe4
00e3 0801       |    |		Execute_Immediate	Raise,0x1
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 0373  |   s|		Action	Push_String_Extended,0x373					; "Update"
00fd 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00fe 0092 0374  |   t|		Action	Push_String_Extended,0x374					; "None"
0100 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0101 0092 0375  |   u|		Action	Push_String_Extended,0x375					; "Read"
0103 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0104 0092 0376  |   v|		Action	Push_String_Extended,0x376					; "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 e00c       |    |		Load	0x0,0xc
011a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
011b e00c       |    |		Load	0x0,0xc
011c 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
011d 00e1       |    |		Load_Encached	Boolean_Cache
011e 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
011f e003       |    |		Load	0x0,0x3
0120 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0121 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0122 e003       |    |		Load	0x0,0x3
0123 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0124 e00c       |    |		Load	0x0,0xc
0125 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0126 00e2       |    |		Load_Encached	Integer_Cache
0127 e00c       |    |		Load	0x0,0xc
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 034b  |   K|		Declare_Subprogram	INIT_0348,For_Call
012e			BODY_0110:
012e 00cf       |    |		Action	Mark_Auxiliary
012f 794d       |yM  |		Jump	0x27d
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 6942       |iB  |		Jump_Zero	0x27a
0138 0ad0       |    |		Execute_Immediate	Plus,-0x30
0139 4623       |F#  |		Jump_Case	0x24
013a 78de       |x   |		Jump	0x219								; case 0x0
013b 78dd       |x   |		Jump	0x219								; case 0x1
013c 78dc       |x   |		Jump	0x219								; case 0x2
013d 78db       |x   |		Jump	0x219								; case 0x3
013e 78da       |x   |		Jump	0x219								; case 0x4
013f 78d9       |x   |		Jump	0x219								; case 0x5
0140 78d8       |x   |		Jump	0x219								; case 0x6
0141 78d7       |x   |		Jump	0x219								; case 0x7
0142 78d6       |x   |		Jump	0x219								; case 0x8
0143 78d5       |x   |		Jump	0x219								; case 0x9
0144 7936       |y6  |		Jump	0x27b								; case 0xa
0145 7935       |y5  |		Jump	0x27b								; case 0xb
0146 7934       |y4  |		Jump	0x27b								; case 0xc
0147 7933       |y3  |		Jump	0x27b								; case 0xd
0148 7932       |y2  |		Jump	0x27b								; case 0xe
0149 7931       |y1  |		Jump	0x27b								; case 0xf
014a 7930       |y0  |		Jump	0x27b								; case 0x10
014b 792f       |y/  |		Jump	0x27b								; case 0x11
014c 792e       |y.  |		Jump	0x27b								; case 0x12
014d 792d       |y-  |		Jump	0x27b								; case 0x13
014e 792c       |y,  |		Jump	0x27b								; case 0x14
014f 7839       |x9  |		Jump	0x189								; case 0x15
0150 792a       |y*  |		Jump	0x27b								; case 0x16
0151 7929       |y)  |		Jump	0x27b								; case 0x17
0152 7928       |y(  |		Jump	0x27b								; case 0x18
0153 7927       |y'  |		Jump	0x27b								; case 0x19
0154 7926       |y&  |		Jump	0x27b								; case 0x1a
0155 7925       |y%  |		Jump	0x27b								; case 0x1b
0156 7924       |y$  |		Jump	0x27b								; case 0x1c
0157 78a3       |x   |		Jump	0x1fb								; case 0x1d
0158 7922       |y"  |		Jump	0x27b								; case 0x1e
0159 7921       |y!  |		Jump	0x27b								; case 0x1f
015a 7920       |y   |		Jump	0x27b								; case 0x20
015b 7876       |xv  |		Jump	0x1d2								; case 0x21
015c 791e       |y   |		Jump	0x27b								; 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 00e2       |    |		Load_Encached	Integer_Cache
0163 00e0       |    |		Load_Encached	Standard_Cache
0164 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0165 c608       |    |		Store	0x3,0x8
0166 860f       |    |		Call	0x3,0xf
0167 00e2       |    |		Load_Encached	Integer_Cache
0168 00e0       |    |		Load_Encached	Standard_Cache
0169 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
016a c609       |    |		Store	0x3,0x9
016b 860f       |    |		Call	0x3,0xf
016c 00e5       |    |		Load_Encached	Long_Integer_Cache
016d 00e0       |    |		Load_Encached	Standard_Cache
016e 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
016f c60a       |    |		Store	0x3,0xa
0170 e602       |    |		Load	0x3,0x2
0171 e7ff       |    |		Load	0x3,-0x1
0172 01d7       |    |		Execute	Vector,Field_Read
0173 a60d       |    |		Store_Unchecked	0x3,0xd
0174 e602       |    |		Load	0x3,0x2
0175 0a02       |    |		Execute_Immediate	Plus,0x2
0176 c602       |    |		Store	0x3,0x2
0177 e60e       |    |		Load	0x3,0xe
0178 6903       |i   |		Jump_Zero	0x27c
0179 0092 0377  |   w|		Action	Push_String_Extended,0x377					; "    Shared: "
017b e60a       |    |		Load	0x3,0xa
017c e609       |    |		Load	0x3,0x9
017d e608       |    |		Load	0x3,0x8
017e 8405       |    |		Call	0x2,0x5
017f 01cc       |    |		Execute	Vector,Catenate
0180 0092 0378  |   x|		Action	Push_String_Extended,0x378					; " "
0182 01cc       |    |		Execute	Vector,Catenate
0183 e60d       |    |		Load	0x3,0xd
0184 8409       |    |		Call	0x2,0x9
0185 01cc       |    |		Execute	Vector,Catenate
0186 e006       |    |		Load	0x0,0x6
0187 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0188 78f3       |x   |		Jump	0x27c
0189 e602       |    |		Load	0x3,0x2
018a 0a02       |    |		Execute_Immediate	Plus,0x2
018b c602       |    |		Store	0x3,0x2
018c 860f       |    |		Call	0x3,0xf
018d 00e2       |    |		Load_Encached	Integer_Cache
018e 00e0       |    |		Load_Encached	Standard_Cache
018f 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0190 c608       |    |		Store	0x3,0x8
0191 860f       |    |		Call	0x3,0xf
0192 00e2       |    |		Load_Encached	Integer_Cache
0193 00e0       |    |		Load_Encached	Standard_Cache
0194 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0195 c609       |    |		Store	0x3,0x9
0196 860f       |    |		Call	0x3,0xf
0197 00e5       |    |		Load_Encached	Long_Integer_Cache
0198 00e0       |    |		Load_Encached	Standard_Cache
0199 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
019a c60a       |    |		Store	0x3,0xa
019b e602       |    |		Load	0x3,0x2
019c e7ff       |    |		Load	0x3,-0x1
019d 01d7       |    |		Execute	Vector,Field_Read
019e a60d       |    |		Store_Unchecked	0x3,0xd
019f e602       |    |		Load	0x3,0x2
01a0 0a02       |    |		Execute_Immediate	Plus,0x2
01a1 c602       |    |		Store	0x3,0x2
01a2 860f       |    |		Call	0x3,0xf
01a3 00e2       |    |		Load_Encached	Integer_Cache
01a4 00e0       |    |		Load_Encached	Standard_Cache
01a5 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
01a6 a60b       |    |		Store_Unchecked	0x3,0xb
01a7 e60e       |    |		Load	0x3,0xe
01a8 68d3       |h   |		Jump_Zero	0x27c
01a9 e60b       |    |		Load	0x3,0xb
01aa 6817       |h   |		Jump_Zero	0x1c2
01ab 0092 0379  |   y|		Action	Push_String_Extended,0x379					; "    "
01ad e60d       |    |		Load	0x3,0xd
01ae 8409       |    |		Call	0x2,0x9
01af 01cc       |    |		Execute	Vector,Catenate
01b0 0092 037a  |   z|		Action	Push_String_Extended,0x37a					; ": "
01b2 01cc       |    |		Execute	Vector,Catenate
01b3 e60a       |    |		Load	0x3,0xa
01b4 e609       |    |		Load	0x3,0x9
01b5 e608       |    |		Load	0x3,0x8
01b6 8405       |    |		Call	0x2,0x5
01b7 01cc       |    |		Execute	Vector,Catenate
01b8 0092 037b  |   {|		Action	Push_String_Extended,0x37b					; "  Readers="
01ba 01cc       |    |		Execute	Vector,Catenate
01bb e60b       |    |		Load	0x3,0xb
01bc 00e0       |    |		Load_Encached	Standard_Cache
01bd 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01be 01cc       |    |		Execute	Vector,Catenate
01bf e006       |    |		Load	0x0,0x6
01c0 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
01c1 78ba       |x   |		Jump	0x27c
01c2 0092 0379  |   y|		Action	Push_String_Extended,0x379					; "    "
01c4 e60d       |    |		Load	0x3,0xd
01c5 8409       |    |		Call	0x2,0x9
01c6 01cc       |    |		Execute	Vector,Catenate
01c7 0092 037a  |   z|		Action	Push_String_Extended,0x37a					; ": "
01c9 01cc       |    |		Execute	Vector,Catenate
01ca e60a       |    |		Load	0x3,0xa
01cb e609       |    |		Load	0x3,0x9
01cc e608       |    |		Load	0x3,0x8
01cd 8405       |    |		Call	0x2,0x5
01ce 01cc       |    |		Execute	Vector,Catenate
01cf e006       |    |		Load	0x0,0x6
01d0 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
01d1 78aa       |x   |		Jump	0x27c
01d2 e602       |    |		Load	0x3,0x2
01d3 0a02       |    |		Execute_Immediate	Plus,0x2
01d4 c602       |    |		Store	0x3,0x2
01d5 860f       |    |		Call	0x3,0xf
01d6 8408       |    |		Call	0x2,0x8
01d7 a60c       |    |		Store_Unchecked	0x3,0xc
01d8 860f       |    |		Call	0x3,0xf
01d9 00e5       |    |		Load_Encached	Long_Integer_Cache
01da 00e0       |    |		Load_Encached	Standard_Cache
01db 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
01dc a603       |    |		Store_Unchecked	0x3,0x3
01dd e602       |    |		Load	0x3,0x2
01de e7ff       |    |		Load	0x3,-0x1
01df 01d7       |    |		Execute	Vector,Field_Read
01e0 a60d       |    |		Store_Unchecked	0x3,0xd
01e1 e602       |    |		Load	0x3,0x2
01e2 0a02       |    |		Execute_Immediate	Plus,0x2
01e3 c602       |    |		Store	0x3,0x2
01e4 e60e       |    |		Load	0x3,0xe
01e5 6896       |h   |		Jump_Zero	0x27c
01e6 0092 037c  |   ||		Action	Push_String_Extended,0x37c					; "      Queued: Task="
01e8 e60c       |    |		Load	0x3,0xc
01e9 8407       |    |		Call	0x2,0x7
01ea 01cc       |    |		Execute	Vector,Catenate
01eb 0092 037d  |   }|		Action	Push_String_Extended,0x37d					; " on action "
01ed 01cc       |    |		Execute	Vector,Catenate
01ee e603       |    |		Load	0x3,0x3
01ef 00e0       |    |		Load_Encached	Standard_Cache
01f0 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01f1 01cc       |    |		Execute	Vector,Catenate
01f2 0092 037e  |   ~|		Action	Push_String_Extended,0x37e					; ", "
01f4 01cc       |    |		Execute	Vector,Catenate
01f5 e60d       |    |		Load	0x3,0xd
01f6 8409       |    |		Call	0x2,0x9
01f7 01cc       |    |		Execute	Vector,Catenate
01f8 e006       |    |		Load	0x0,0x6
01f9 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
01fa 7881       |x   |		Jump	0x27c
01fb e602       |    |		Load	0x3,0x2
01fc 0a02       |    |		Execute_Immediate	Plus,0x2
01fd c602       |    |		Store	0x3,0x2
01fe 860f       |    |		Call	0x3,0xf
01ff 00e2       |    |		Load_Encached	Integer_Cache
0200 00e0       |    |		Load_Encached	Standard_Cache
0201 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0202 c608       |    |		Store	0x3,0x8
0203 860f       |    |		Call	0x3,0xf
0204 00e2       |    |		Load_Encached	Integer_Cache
0205 00e0       |    |		Load_Encached	Standard_Cache
0206 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0207 c609       |    |		Store	0x3,0x9
0208 860f       |    |		Call	0x3,0xf
0209 00e5       |    |		Load_Encached	Long_Integer_Cache
020a 00e0       |    |		Load_Encached	Standard_Cache
020b 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
020c c60a       |    |		Store	0x3,0xa
020d e60e       |    |		Load	0x3,0xe
020e 686d       |hm  |		Jump_Zero	0x27c
020f 0092 037f  |    |		Action	Push_String_Extended,0x37f					; "    Modified: "
0211 e60a       |    |		Load	0x3,0xa
0212 e609       |    |		Load	0x3,0x9
0213 e608       |    |		Load	0x3,0x8
0214 8405       |    |		Call	0x2,0x5
0215 01cc       |    |		Execute	Vector,Catenate
0216 e006       |    |		Load	0x0,0x6
0217 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0218 7863       |xc  |		Jump	0x27c
0219 860f       |    |		Call	0x3,0xf
021a 00e5       |    |		Load_Encached	Long_Integer_Cache
021b 00e0       |    |		Load_Encached	Standard_Cache
021c 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
021d a604       |    |		Store_Unchecked	0x3,0x4
021e 860f       |    |		Call	0x3,0xf
021f 8408       |    |		Call	0x2,0x8
0220 a605       |    |		Store_Unchecked	0x3,0x5
0221 e602       |    |		Load	0x3,0x2
0222 e7ff       |    |		Load	0x3,-0x1
0223 01dc       |    |		Execute	Vector,Last
0224 027c       | |  |		Execute	Discrete,Less
0225 680a       |h   |		Jump_Zero	0x230
0226 e602       |    |		Load	0x3,0x2
0227 e7ff       |    |		Load	0x3,-0x1
0228 01d7       |    |		Execute	Vector,Field_Read
0229 0f50       | P  |		Execute_Immediate	Equal,0x50
022a 6805       |h   |		Jump_Zero	0x230
022b 4801       |H   |		Short_Literal	0x1
022c a607       |    |		Store_Unchecked	0x3,0x7
022d e602       |    |		Load	0x3,0x2
022e 0a02       |    |		Execute_Immediate	Plus,0x2
022f c602       |    |		Store	0x3,0x2
0230 e605       |    |		Load	0x3,0x5
0231 e00c       |    |		Load	0x0,0xc
0232 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0233 c606       |    |		Store	0x3,0x6
0234 e606       |    |		Load	0x3,0x6
0235 e404       |    |		Load	0x2,0x4
0236 01d7       |    |		Execute	Vector,Field_Read
0237 0a01       |    |		Execute_Immediate	Plus,0x1
0238 e606       |    |		Load	0x3,0x6
0239 e404       |    |		Load	0x2,0x4
023a 01d6       |    |		Execute	Vector,Field_Write
023b 4800       |H   |		Short_Literal	0x0
023c a60e       |    |		Store_Unchecked	0x3,0xe
023d e5fe       |    |		Load	0x2,-0x2
023e 6807       |h   |		Jump_Zero	0x246
023f e5fd       |    |		Load	0x2,-0x3
0240 7005       |p   |		Jump_Nonzero	0x246
0241 e5fc       |    |		Load	0x2,-0x4
0242 7003       |p   |		Jump_Nonzero	0x246
0243 4801       |H   |		Short_Literal	0x1
0244 a60e       |    |		Store_Unchecked	0x3,0xe
0245 7815       |x   |		Jump	0x25b
0246 e5fe       |    |		Load	0x2,-0x2
0247 680d       |h   |		Jump_Zero	0x255
0248 e606       |    |		Load	0x3,0x6
0249 e5fd       |    |		Load	0x2,-0x3
024a 00d8       |    |		Load_Top	At_Offset_0
024b e00d       |    |		Load	0x0,0xd
024c 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
024d 0260       | `  |		Execute	Discrete,In_Type
024e 7001       |p   |		Jump_Nonzero	0x250
024f 0801       |    |		Execute_Immediate	Raise,0x1
0250 027f       |    |		Execute	Discrete,Equal
0251 6803       |h   |		Jump_Zero	0x255
0252 4801       |H   |		Short_Literal	0x1
0253 a60e       |    |		Store_Unchecked	0x3,0xe
0254 7806       |x   |		Jump	0x25b
0255 e604       |    |		Load	0x3,0x4
0256 e5fc       |    |		Load	0x2,-0x4
0257 027f       |    |		Execute	Discrete,Equal
0258 6802       |h   |		Jump_Zero	0x25b
0259 4801       |H   |		Short_Literal	0x1
025a a60e       |    |		Store_Unchecked	0x3,0xe
025b e60e       |    |		Load	0x3,0xe
025c 681f       |h   |		Jump_Zero	0x27c
025d e5fb       |    |		Load	0x2,-0x5
025e 6806       |h   |		Jump_Zero	0x265
025f e7ff       |    |		Load	0x3,-0x1
0260 e006       |    |		Load	0x0,0x6
0261 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0262 4801       |H   |		Short_Literal	0x1
0263 e006       |    |		Load	0x0,0x6
0264 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
0265 0092 0380  |    |		Action	Push_String_Extended,0x380					; "Action Id"
0267 e604       |    |		Load	0x3,0x4
0268 00e0       |    |		Load_Encached	Standard_Cache
0269 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
026a 01cc       |    |		Execute	Vector,Catenate
026b 0092 0381  |    |		Action	Push_String_Extended,0x381					; "; Owner = "
026d 01cc       |    |		Execute	Vector,Catenate
026e e605       |    |		Load	0x3,0x5
026f 8407       |    |		Call	0x2,0x7
0270 01cc       |    |		Execute	Vector,Catenate
0271 e006       |    |		Load	0x0,0x6
0272 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0273 e607       |    |		Load	0x3,0x7
0274 6807       |h   |		Jump_Zero	0x27c
0275 0092 0382  |    |		Action	Push_String_Extended,0x382					; "    Prevent_Commit"
0277 e006       |    |		Load	0x0,0x6
0278 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0279 7802       |x   |		Jump	0x27c
027a 00d1       |    |		Pop_Control	Pop_Count_1
027b 08e2       |    |		Execute_Immediate	Raise,0xe2
027c 00c9       |    |		Action	Pop_Auxiliary_Loop
027d e602       |    |		Load	0x3,0x2
027e e7ff       |    |		Load	0x3,-0x1
027f 01dc       |    |		Execute	Vector,Last
0280 027c       | |  |		Execute	Discrete,Less
0281 76ae       |v   |		Jump_Nonzero	0x130
0282 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0283 0000 0000  |    |		.BLANK	0000[0x5]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028b       |    |		.CONST	0x028b								; Address of begin
0289 028f       |    |		.CONST	0x028f								; Address of exception handler
028a 0001       |    |		.CONST	0x0001								; Number of locals
028b			BODY_0288:
028b			INIT_0288:
028b e7ff       |    |		Load	0x3,-0x1
028c e00e       |    |		Load	0x0,0xe
028d 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
028e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
028f			TRAP_0288:
028f 0007       |    |		Action	Break_Optional
0290 0092 0383  |    |		Action	Push_String_Extended,0x383					; "<dead job>"
0292 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0293 0000 0000  |    |		.BLANK	0000[0x5]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 02a2       |    |		.CONST	0x02a2								; Address of begin
0299 0004       |    |		.CONST	0x0004								; Address of exception handler
029a 0003       |    |		.CONST	0x0003								; Number of locals
029b			INIT_0298:
029b e005       |    |		Load	0x0,0x5
029c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
029d 02c7       |    |		Declare_Variable	Any
029e 00d8       |    |		Load_Top	At_Offset_0
029f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02a0 00e1       |    |		Load_Encached	Boolean_Cache
02a1 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
02a2			BODY_0298:
02a2 00cf       |    |		Action	Mark_Auxiliary
02a3 e404       |    |		Load	0x2,0x4
02a4 01d9       |    |		Execute	Vector,Reverse_Bounds
02a5 0007       |    |		Action	Break_Optional
02a6 4800       |H   |		Short_Literal	0x0
02a7 e606       |    |		Load	0x3,0x6
02a8 e404       |    |		Load	0x2,0x4
02a9 01d6       |    |		Execute	Vector,Field_Write
02aa 00c8       |    |		Action	Pop_Auxiliary_Range
02ab 3ffa       |?   |		Loop_Increasing	0x2a6
02ac 00ce       |    |		Action	Pop_Auxiliary
02ad 0092 0384  |    |		Action	Push_String_Extended,0x384					; "Actions in progress = "
02af e7ff       |    |		Load	0x3,-0x1
02b0 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
02b1 00e0       |    |		Load_Encached	Standard_Cache
02b2 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
02b3 01cc       |    |		Execute	Vector,Catenate
02b4 e006       |    |		Load	0x0,0x6
02b5 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
02b6 0092 0385  |    |		Action	Push_String_Extended,0x385					; "Actions abandoned   = "
02b8 e7ff       |    |		Load	0x3,-0x1
02b9 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
02ba 00e0       |    |		Load_Encached	Standard_Cache
02bb 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
02bc 01cc       |    |		Execute	Vector,Catenate
02bd e006       |    |		Load	0x0,0x6
02be 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
02bf 0092 0386  |    |		Action	Push_String_Extended,0x386					; "Next Action Id      = "
02c1 e7ff       |    |		Load	0x3,-0x1
02c2 2c03       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
02c3 e005       |    |		Load	0x0,0x5
02c4 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
02c5 00e0       |    |		Load_Encached	Standard_Cache
02c6 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
02c7 01cc       |    |		Execute	Vector,Catenate
02c8 e006       |    |		Load	0x0,0x6
02c9 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
02ca 00cf       |    |		Action	Mark_Auxiliary
02cb e7ff       |    |		Load	0x3,-0x1
02cc 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
02cd 4801       |H   |		Short_Literal	0x1
02ce 0263       | c  |		Execute	Discrete,Above_Bound
02cf 7014       |p   |		Jump_Nonzero	0x2e4
02d0 00d8       |    |		Load_Top	At_Offset_0
02d1 e7ff       |    |		Load	0x3,-0x1
02d2 2504       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x4
02d3 01d7       |    |		Execute	Vector,Field_Read
02d4 c602       |    |		Store	0x3,0x2
02d5 e602       |    |		Load	0x3,0x2
02d6 e005       |    |		Load	0x0,0x5
02d7 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02d8 6809       |h   |		Jump_Zero	0x2e2
02d9 4800       |H   |		Short_Literal	0x0
02da 4801       |H   |		Short_Literal	0x1
02db 4801       |H   |		Short_Literal	0x1
02dc 4801       |H   |		Short_Literal	0x1
02dd e602       |    |		Load	0x3,0x2
02de e005       |    |		Load	0x0,0x5
02df 1b1f       |    |		Execute	Package,Field_Read,Field_Number 0x1f
02e0 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
02e1 840a       |    |		Call	0x2,0xa
02e2 00c8       |    |		Action	Pop_Auxiliary_Range
02e3 3fec       |?   |		Loop_Increasing	0x2d0
02e4 00c9       |    |		Action	Pop_Auxiliary_Loop
02e5 e404       |    |		Load	0x2,0x4
02e6 01d9       |    |		Execute	Vector,Reverse_Bounds
02e7 0007       |    |		Action	Break_Optional
02e8 00d8       |    |		Load_Top	At_Offset_0
02e9 e404       |    |		Load	0x2,0x4
02ea 01d7       |    |		Execute	Vector,Field_Read
02eb 6837       |h7  |		Jump_Zero	0x323
02ec e5ff       |    |		Load	0x2,-0x1
02ed 6802       |h   |		Jump_Zero	0x2f0
02ee e5fd       |    |		Load	0x2,-0x3
02ef 680a       |h   |		Jump_Zero	0x2fa
02f0 e5fd       |    |		Load	0x2,-0x3
02f1 00d8       |    |		Load_Top	At_Offset_0
02f2 e00d       |    |		Load	0x0,0xd
02f3 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
02f4 0260       | `  |		Execute	Discrete,In_Type
02f5 7001       |p   |		Jump_Nonzero	0x2f7
02f6 0801       |    |		Execute_Immediate	Raise,0x1
02f7 e606       |    |		Load	0x3,0x6
02f8 027f       |    |		Execute	Discrete,Equal
02f9 6829       |h)  |		Jump_Zero	0x323
02fa e603       |    |		Load	0x3,0x3
02fb 700d       |p   |		Jump_Nonzero	0x309
02fc 4801       |H   |		Short_Literal	0x1
02fd e006       |    |		Load	0x0,0x6
02fe 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
02ff 0092 0387  |    |		Action	Push_String_Extended,0x387					; "Job  #Actions      Job name"
0301 e006       |    |		Load	0x0,0x6
0302 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0303 0092 0388  |    |		Action	Push_String_Extended,0x388					; "---- -------- --------------------"
0305 e006       |    |		Load	0x0,0x6
0306 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0307 4801       |H   |		Short_Literal	0x1
0308 a603       |    |		Store_Unchecked	0x3,0x3
0309 4820       |H   |		Short_Literal	0x20
030a 4804       |H   |		Short_Literal	0x4
030b 480a       |H   |		Short_Literal	0xa
030c e606       |    |		Load	0x3,0x6
030d e00b       |    |		Load	0x0,0xb
030e 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
030f 0092 0389  |    |		Action	Push_String_Extended,0x389					; "  "
0311 01cc       |    |		Execute	Vector,Catenate
0312 4820       |H   |		Short_Literal	0x20
0313 4806       |H   |		Short_Literal	0x6
0314 480a       |H   |		Short_Literal	0xa
0315 e606       |    |		Load	0x3,0x6
0316 e404       |    |		Load	0x2,0x4
0317 01d7       |    |		Execute	Vector,Field_Read
0318 e00b       |    |		Load	0x0,0xb
0319 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
031a 01cc       |    |		Execute	Vector,Catenate
031b 0092 038a  |    |		Action	Push_String_Extended,0x38a					; "     "
031d 01cc       |    |		Execute	Vector,Catenate
031e e606       |    |		Load	0x3,0x6
031f 840b       |    |		Call	0x2,0xb
0320 01cc       |    |		Execute	Vector,Catenate
0321 e006       |    |		Load	0x0,0x6
0322 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0323 00c8       |    |		Action	Pop_Auxiliary_Range
0324 3fc3       |?   |		Loop_Increasing	0x2e8
0325 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0326 0000 0000  |    |		.XXX[0x2]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 032b       | +  |		.CONST	0x032b								; Address of begin
0329 0004       |    |		.CONST	0x0004								; Address of exception handler
032a 0001       |    |		.CONST	0x0001								; Number of locals
032b			BODY_0328:
032b			INIT_0328:
032b 0092 038b  |    |		Action	Push_String_Extended,0x38b					; "("
032d e7ff       |    |		Load	0x3,-0x1
032e e002       |    |		Load	0x0,0x2
032f 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
0330 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0331 01cc       |    |		Execute	Vector,Catenate
0332 0092 0378  |   x|		Action	Push_String_Extended,0x378					; " "
0334 01cc       |    |		Execute	Vector,Catenate
0335 e7ff       |    |		Load	0x3,-0x1
0336 00e0       |    |		Load_Encached	Standard_Cache
0337 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0338 01cc       |    |		Execute	Vector,Catenate
0339 e7fe       |    |		Load	0x3,-0x2
033a 00e0       |    |		Load_Encached	Standard_Cache
033b 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
033c 01cc       |    |		Execute	Vector,Catenate
033d e7fd       |    |		Load	0x3,-0x3
033e 00e0       |    |		Load_Encached	Standard_Cache
033f 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0340 01cc       |    |		Execute	Vector,Catenate
0341 0092 038c  |    |		Action	Push_String_Extended,0x38c					; ") "
0343 01cc       |    |		Execute	Vector,Catenate
0344 00ca       |    |		Action	Exit_Nullary_Function
0345 0000 0000  |    |		.XXX[0x3]
0347 0000       |    |
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 034c       | L  |		.CONST	0x034c								; Address of begin
0349 0004       |    |		.CONST	0x0004								; Address of exception handler
034a 0002       |    |		.CONST	0x0002								; Number of locals
034b			INIT_0348:
034b e602       |    |		Load	0x3,0x2
034c			BODY_0348:
034c 00cf       |    |		Action	Mark_Auxiliary
034d e602       |    |		Load	0x3,0x2
034e e7ff       |    |		Load	0x3,-0x1
034f 01dc       |    |		Execute	Vector,Last
0350 027d       | }  |		Execute	Discrete,Greater
0351 700f       |p   |		Jump_Nonzero	0x361
0352 e602       |    |		Load	0x3,0x2
0353 e7ff       |    |		Load	0x3,-0x1
0354 01d7       |    |		Execute	Vector,Field_Read
0355 0f0a       |    |		Execute_Immediate	Equal,0xa
0356 700a       |p   |		Jump_Nonzero	0x361
0357 e602       |    |		Load	0x3,0x2
0358 e7ff       |    |		Load	0x3,-0x1
0359 01d7       |    |		Execute	Vector,Field_Read
035a 0f20       |    |		Execute_Immediate	Equal,0x20
035b 7005       |p   |		Jump_Nonzero	0x361
035c e602       |    |		Load	0x3,0x2
035d 0a01       |    |		Execute_Immediate	Plus,0x1
035e c602       |    |		Store	0x3,0x2
035f 00c9       |    |		Action	Pop_Auxiliary_Loop
0360 7fec       |    |		Jump	0x34d
0361 00ce       |    |		Action	Pop_Auxiliary
0362 e602       |    |		Load	0x3,0x2
0363 0a01       |    |		Execute_Immediate	Plus,0x1
0364 c602       |    |		Store	0x3,0x2
0365 00d8       |    |		Load_Top	At_Offset_0
0366 e602       |    |		Load	0x3,0x2
0367 0afe       |    |		Execute_Immediate	Plus,-0x2
0368 e7ff       |    |		Load	0x3,-0x1
0369 01cf       |    |		Execute	Vector,Slice_Read
036a 0335       | 5  |		Declare_Variable	Array,Duplicate
036b 00cd       |    |		Action	Spare6_Action
036c 00ca       |    |		Action	Exit_Nullary_Function
036d ; --------------------------------------------------------------------------------------
036d ; STRING TABLE
036d ; --------------------------------------------------------------------------------------
036d 0042       | B  |		.STRTAB	0x0042->0x038e							; "DDB"
036e 0043       | C  |		.STRTAB	0x0043->0x038f							; "Operator Capability is required to use this command."
036f 0075       | u  |		.STRTAB	0x0075->0x03a9							; "[DDB obj for:"
0370 0080       |    |		.STRTAB	0x0080->0x03b0							; "]"
0371 007f       |    |		.STRTAB	0x007f->0x03b0							; "[Name unknown due to: "
0372 0093       |    |		.STRTAB	0x0093->0x03bb							; "#"
0373 0092       |    |		.STRTAB	0x0092->0x03bc							; "Update"
0374 0096       |    |		.STRTAB	0x0096->0x03bf							; "None"
0375 0098       |    |		.STRTAB	0x0098->0x03c1							; "Read"
0376 009a       |    |		.STRTAB	0x009a->0x03c3							; "Overwrite"
0377 00a1       |    |		.STRTAB	0x00a1->0x03c7							; "    Shared: "
0378 00ab       |    |		.STRTAB	0x00ab->0x03cd							; " "
0379 00aa       |    |		.STRTAB	0x00aa->0x03ce							; "    "
037a 00ac       |    |		.STRTAB	0x00ac->0x03d0							; ": "
037b 00ac       |    |		.STRTAB	0x00ac->0x03d1							; "  Readers="
037c 00b4       |    |		.STRTAB	0x00b4->0x03d6							; "      Queued: Task="
037d 00c5       |    |		.STRTAB	0x00c5->0x03df							; " on action "
037e 00ce       |    |		.STRTAB	0x00ce->0x03e5							; ", "
037f 00ce       |    |		.STRTAB	0x00ce->0x03e6							; "    Modified: "
0380 00da       |    |		.STRTAB	0x00da->0x03ed							; "Action Id"
0381 00e1       |    |		.STRTAB	0x00e1->0x03f1							; "; Owner = "
0382 00e9       |    |		.STRTAB	0x00e9->0x03f6							; "    Prevent_Commit"
0383 00f9       |    |		.STRTAB	0x00f9->0x03ff							; "<dead job>"
0384 0101       |    |		.STRTAB	0x0101->0x0404							; "Actions in progress = "
0385 0115       |    |		.STRTAB	0x0115->0x040f							; "Actions abandoned   = "
0386 0129       | )  |		.STRTAB	0x0129->0x041a							; "Next Action Id      = "
0387 013d       | =  |		.STRTAB	0x013d->0x0425							; "Job  #Actions      Job name"
0388 0156       | V  |		.STRTAB	0x0156->0x0433							; "---- -------- --------------------"
0389 0176       | v  |		.STRTAB	0x0176->0x0444							; "  "
038a 0176       | v  |		.STRTAB	0x0176->0x0445							; "     "
038b 0179       | y  |		.STRTAB	0x0179->0x0447							; "("
038c 0178       | x  |		.STRTAB	0x0178->0x0448							; ") "
038d 0178       | x  |		.STREND 0x0178->0x0449
038e 4444 424f  |DDBO|		.STRTAB_STRINGS
0449 0000 0000  |    |		.BLANK	0000[0x7]
0450 ; --------------------------------------------------------------------------------------
0450 ; Debug Table
0450 ; --------------------------------------------------------------------------------------
0450 0004 0010  |    |		.DEBUG4	0x0004,0x0010,0xd9ce,0x0000,0x0001,0x0000
0456 00c9 7fe1  |    |		.XXX[0x12d]
0458 025d 0004  | ]  |
045a 0002 00e1  |    |
045c 0600 00cf  |    |
045e 4804 4800  |H H |
0460 0007 e001  |    |
0462 1b10 e5fb  |    |
0464 e5fc e5fd  |    |
0466 e5fe e5ff  |    |
0468 e001 181f  |    |
046a c5fa e5fa  |    |
046c 4607 7816  |F x |
046e 7815 7814  |x x |
0470 7813 7812  |x x |
0472 7802 7805  |x x |
0474 780f e5ff  |x   |
0476 e001 1826  |   &|
0478 780d e5ff  |x   |
047a e001 1826  |   &|
047c e00a 180e  |    |
047e e5ff e001  |    |
0480 1824 4801  | $H |
0482 a402 7802  |  x |
0484 00d2 7802  |  x |
0486 00c8 3fd9  |  ? |
0488 00ce 00d8  |    |
048a 6803 00db  |h   |
048c e001 1826  |   &|
048e 4506 0000  |E   |
0490 0295 0004  |    |
0492 0002 00e1  |    |
0494 0600 00cf  |    |
0496 4804 4800  |H H |
0498 0007 00e3  |    |
049a 00e3 e5fa  |    |
049c e5fb e001  |    |
049e 1b10 e5fd  |    |
04a0 e5fe e5ff  |    |
04a2 e001 1821  |   !|
04a4 c5fc 00d2  |    |
04a6 c5f9 c5f8  |    |
04a8 e5fc 4607  |  F |
04aa 7816 7815  |x x |
04ac 7814 7813  |x x |
04ae 7812 7802  |x x |
04b0 7805 780f  |x x |
04b2 e5ff e001  |    |
04b4 1827 780d  | 'x |
04b6 e5ff e001  |    |
04b8 1827 e00a  | '  |
04ba 180e e5ff  |    |
04bc e001 1825  |   %|
04be 4801 a402  |H   |
04c0 7802 00d2  |x   |
04c2 7802 00c8  |x   |
04c4 3fd4 00ce  |?   |
04c6 00d8 6803  |  h |
04c8 00db e001  |    |
04ca 1827 4504  | 'E |
04cc ffff ffff  |    |
04ce 8000 0001  |    |
04d0 000a 0c13  |    |
04d2 0003 7930  |  y0|
04d4 000a 0c13  |    |
04d6 0003 d1b0  |    |
04d8 000a 0c13  |    |
04da 0000 6830  |  h0|
04dc 000a 0c13  |    |
04de 0003 13b0  |    |
04e0 02e3 0004  |    |
04e2 0001 e5fa  |    |
04e4 e5fd e21b  |    |
04e6 1b2b e21b  | +  |
04e8 1820 00d1  |    |
04ea e5fa e5fc  |    |
04ec e21b 1b2d  |   -|
04ee e21b 1820  |    |
04f0 00d1 e5fa  |    |
04f2 e5fb e21b  |    |
04f4 1b2e e21b  | .  |
04f6 1820 00d1  |    |
04f8 e5fa e21b  |    |
04fa 1b32 3c00  | 2< |
04fc e5fa 01db  |    |
04fe 0273 e21b  | s  |
0500 1b13 025b  |   [|
0502 e21b 1b2f  |   /|
0504 e21b 1821  |   !|
0506 00d1 e5fa  |    |
0508 00db e21b  |    |
050a 1b30 e21b  | 0  |
050c 1820 00d1  |    |
050e e5fa e5fe  |    |
0510 e21b 1b31  |   1|
0512 e21b 1820  |    |
0514 4506 0000  |E   |
0516 0000 0000  |    |
0518 0334 0004  | 4  |
051a 0005 0007  |    |
051c 00e3 03e9  |    |
051e 4801 e21b  |H   |
0520 1b32 3c01  | 2< |
0522 4805 e21b  |H   |
0524 1b34 01d7  | 4  |
0526 0273 e5fc  | s  |
0528 01db 0273  |   s|
052a 0248 0a01  | H  |
052c 00e3 025b  |   [|
052e e21b 1816  |    |
0530 e212 0334  |   4|
0532 029f 05e3  |    |
0534 e5fa 6802  |  h |
0536 e5ff 8222  |   "|
0538 4800 a5f7  |H   |
053a e001 1b10  |    |
053c e5f9 e5fb  |    |
053e e5fd 8405  |    |
0540 e5ff 8223  |   #|
0542 c5f8 e5fa  |    |
0544 682f 00cf  |h/  |
0546 782a 00e3  |x*  |
0548 00e3 e5f6  |    |
054a e404 e001  |    |
054c 1b10 e5f9  |    |
054e 4800 e5ff  |H   |
0550 8224 c5f8  | $  |
0552 00d2 c402  |    |
0554 c403 e402  |    |
0556 00db 01db  |    |
0558 027f 6816  |  h |
055a e21b 1b31  |   1|
055c 00db e21b  |    |
055e 181c 0f05  |    |
0560 680f e21b  |h   |
0562 1b36 00db  | 6  |
0564 e21b 181d  |    |
0566 e5fe 027f  |    |
0568 6807 e21b  |h   |
056a 1b2e 00db  | .  |
056c e21b 181c  |    |
056e a5f7 7803  |  x |
0570 00c9 e5f8  |    |
0572 6fd4 00ce  |o   |
0574 4508 0000  |E   |
0576 0000 0000  |    |
0578 037b 0004  | {  |
057a 0001 00da  |    |
057c e5fe 027d  |   }|
057e 6802 00da  |h   |
0580 4402 00db  |D   |
0582 4402       |D   |
0583 0000 0000  |    |		.BLANK	0000[0x5]
0588 038b 0004  |    |		.XXX[0xb]
058a 0001 00da  |    |
058c e5fe 027c  |   ||
058e 6802 00da  |h   |
0590 4402 00db  |D   |
0592 4402       |D   |
0593 0000 0000  |    |		.BLANK	0000[0x5]
0598 039b 0004  |    |		.XXX[0x21]
059a 0001 00da  |    |
059c 6804 4801  |h H |
059e e21b 1814  |    |
05a0 4401 4800  |D H |
05a2 e21b 1814  |    |
05a4 4401 0000  |D   |
05a6 0000 0000  |    |
05a8 03ab 0004  |    |
05aa 0001 00da  |    |
05ac 00d8 0c00  |    |
05ae 7003 61c0  |p a |
05b0 0273 7802  | sx |
05b2 61b9 0273  |a  s|
05b4 09f1 e21b  |    |
05b6 1b13 025e  |   ^|
05b8 4401       |D   |
05b9 0000 0000  |    |		.BLANK	0000[0x7]
05c0 03c3 0004  |    |		.XXX[0xc]
05c2 0001 00da  |    |
05c4 0f04 6802  |  h |
05c6 4804 4401  |H D |
05c8 00da e21a  |    |
05ca 01d7 4401  |  D |
05cc 0000 0000  |    |		.BLANK	0000[0x4]
05d0 03d3 0004  |    |		.XXX[0x30]
05d2 0001 00da  |    |
05d4 6804 00da  |h   |
05d6 e21a 01d7  |    |
05d8 4402 00db  |D   |
05da e21b 1b24  |   $|
05dc 01d7 4402  |  D |
05de 0000 0000  |    |
05e0 03ea 0004  |    |
05e2 0002 4801  |  H |
05e4 e5fd 01db  |    |
05e6 0a08 0248  |   H|
05e8 e212 0334  |   4|
05ea 00d8 e5fe  |    |
05ec e21b 1b55  |   U|
05ee e21b 1821  |   !|
05f0 00d1 00d8  |    |
05f2 e5fd 01db  |    |
05f4 e21b 1b13  |    |
05f6 025b e21b  | [  |
05f8 1b56 e21b  | V  |
05fa 1821 00d1  | !  |
05fc 00d8 e5fd  |    |
05fe e21b 1b18  |    |