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

⟦767226773⟧

    Length: 5120 (0x1400)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_1e5cd8

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 06b0       |    |		.CONST	0x06b0								; 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 0004       |    |		.CONST	0x0004								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 003e       | >  |		.CONST	0x003e								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 001f       |    |		.CONST	0x001f								; Number of locals
000b			INIT_0008:
000b 029a 0043  |   C|		Declare_Subprogram	INIT_0040,For_Outer_Call,Visible,Unelaborated
000d 029a 0093  |    |		Declare_Subprogram	INIT_0090,For_Outer_Call,Visible,Unelaborated
000f 029a 00a3  |    |		Declare_Subprogram	INIT_00a0,For_Outer_Call,Visible,Unelaborated
0011 029a 00b3  |    |		Declare_Subprogram	INIT_00b0,For_Outer_Call,Visible,Unelaborated
0013 029a 00c3  |    |		Declare_Subprogram	INIT_00c0,For_Outer_Call,Visible,Unelaborated
0015 029a 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Outer_Call,Visible,Unelaborated
0017 00bf       |    |		Action	Accept_Activation
0018 0092 0472  |   r|		Action	Push_String_Extended,0x472					; "I386_Unix_Als_Xt"
001a 00e1       |    |		Load_Encached	Boolean_Cache
001b 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
001c 00e1       |    |		Load_Encached	Boolean_Cache
001d 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
001e 029d 00e3  |    |		Declare_Subprogram	INIT_00e0,For_Outer_Call
0020 029d 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Outer_Call
0022 029d 010b  |    |		Declare_Subprogram	INIT_0108,For_Outer_Call
0024 029d 0123  |   #|		Declare_Subprogram	INIT_0120,For_Outer_Call
0026 029d 0153  |   S|		Declare_Subprogram	INIT_0150,For_Outer_Call
0028 029d 017b  |   {|		Declare_Subprogram	INIT_0178,For_Outer_Call
002a 029d 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Outer_Call
002c 029d 0253  |   S|		Declare_Subprogram	INIT_0250,For_Outer_Call
002e 029d 0313  |    |		Declare_Subprogram	INIT_0310,For_Outer_Call
0030 029d 039b  |    |		Declare_Subprogram	INIT_0398,For_Outer_Call
0032 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0033 00c7       |    |		Action	Elaborate_Subprogram
0034 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0035 00c7       |    |		Action	Elaborate_Subprogram
0036 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0037 00c7       |    |		Action	Elaborate_Subprogram
0038 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0039 00c7       |    |		Action	Elaborate_Subprogram
003a 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
003b 00c7       |    |		Action	Elaborate_Subprogram
003c 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
003d 00c7       |    |		Action	Elaborate_Subprogram
003e			BODY_0008:
003e 00bc       |    |		Action	Signal_Activated
003f 00bb       |    |		Action	Signal_Completion
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0043       | C  |		.CONST	0x0043								; Address of begin
0041 0087       |    |		.CONST	0x0087								; Address of exception handler
0042 0001       |    |		.CONST	0x0001								; Number of locals
0043			BODY_0040:
0043			INIT_0040:
0043 e001       |    |		Load	0x0,0x1
0044 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0045 4809       |H   |		Short_Literal	0x9
0046 0092 0473  |   s|		Action	Push_String_Extended,0x473					; "#~~Build_Script_Preprocess (Build_Via_Tape => "
0048 e5fd       |    |		Load	0x2,-0x3
0049 00e1       |    |		Load_Encached	Boolean_Cache
004a 011c       |    |		Execute	Any,Convert_Unchecked
004b 1c01       |    |		Execute_Immediate	Run_Utility,0x1
004c 01cc       |    |		Execute	Vector,Catenate
004d 0092 0474  |   t|		Action	Push_String_Extended,0x474					; ", Link_Main_Units => "
004f 01cc       |    |		Execute	Vector,Catenate
0050 e5fb       |    |		Load	0x2,-0x5
0051 00e1       |    |		Load_Encached	Boolean_Cache
0052 011c       |    |		Execute	Any,Convert_Unchecked
0053 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0054 01cc       |    |		Execute	Vector,Catenate
0055 0092 0475  |   u|		Action	Push_String_Extended,0x475					; ", Remote_Machine => \x22"
0057 01cc       |    |		Execute	Vector,Catenate
0058 e5fa       |    |		Load	0x2,-0x6
0059 01cc       |    |		Execute	Vector,Catenate
005a 0092 0476  |   v|		Action	Push_String_Extended,0x476					; "\x22)"
005c 01cc       |    |		Execute	Vector,Catenate
005d e002       |    |		Load	0x0,0x2
005e 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
005f e215       |    |		Load	0x1,0x15
0060 6801       |h   |		Jump_Zero	0x62
0061 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
0062 e5f8       |    |		Load	0x2,-0x8
0063 e003       |    |		Load	0x0,0x3
0064 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0065 c5f8       |    |		Store	0x2,-0x8
0066 e5f8       |    |		Load	0x2,-0x8
0067 e213       |    |		Load	0x1,0x13
0068 e5fc       |    |		Load	0x2,-0x4
0069 e5ff       |    |		Load	0x2,-0x1
006a 821e       |    |		Call	0x1,0x1e
006b c5f8       |    |		Store	0x2,-0x8
006c 4801       |H   |		Short_Literal	0x1
006d e5f8       |    |		Load	0x2,-0x8
006e e003       |    |		Load	0x0,0x3
006f 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0070 6801       |h   |		Jump_Zero	0x72
0071 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
0072 e5f8       |    |		Load	0x2,-0x8
0073 e213       |    |		Load	0x1,0x13
0074 e5fc       |    |		Load	0x2,-0x4
0075 e5ff       |    |		Load	0x2,-0x1
0076 821d       |    |		Call	0x1,0x1d
0077 c5f8       |    |		Store	0x2,-0x8
0078 4801       |H   |		Short_Literal	0x1
0079 e5f8       |    |		Load	0x2,-0x8
007a e003       |    |		Load	0x0,0x3
007b 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
007c 6801       |h   |		Jump_Zero	0x7e
007d 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
007e e5fb       |    |		Load	0x2,-0x5
007f 6806       |h   |		Jump_Zero	0x86
0080 e5f8       |    |		Load	0x2,-0x8
0081 e213       |    |		Load	0x1,0x13
0082 e5fc       |    |		Load	0x2,-0x4
0083 e5ff       |    |		Load	0x2,-0x1
0084 821f       |    |		Call	0x1,0x1f
0085 c5f8       |    |		Store	0x2,-0x8
0086 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
0087			TRAP_0040:
0087 0007       |    |		Action	Break_Optional
0088 e5f8       |    |		Load	0x2,-0x8
0089 0092 0477  |   w|		Action	Push_String_Extended,0x477					; "Build_Script_Preprocess"
008b 8218       |    |		Call	0x1,0x18
008c c5f8       |    |		Store	0x2,-0x8
008d 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
008e 0000 0000  |    |		.XXX[0x2]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093       |    |		.CONST	0x0093								; Address of begin
0091 0004       |    |		.CONST	0x0004								; Address of exception handler
0092 0001       |    |		.CONST	0x0001								; Number of locals
0093			BODY_0090:
0093			INIT_0090:
0093 e001       |    |		Load	0x0,0x1
0094 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0095 4802       |H   |		Short_Literal	0x2
0096 0092 0478  |   x|		Action	Push_String_Extended,0x478					; "Executing Build_Script_Postprocess"
0098 e002       |    |		Load	0x0,0x2
0099 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
009a e5f8       |    |		Load	0x2,-0x8
009b e003       |    |		Load	0x0,0x3
009c 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
009d c5f8       |    |		Store	0x2,-0x8
009e 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
009f 0000       |    |		.XXX[0x1]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3       |    |		.CONST	0x00a3								; Address of begin
00a1 0004       |    |		.CONST	0x0004								; Address of exception handler
00a2 0001       |    |		.CONST	0x0001								; Number of locals
00a3			BODY_00a0:
00a3			INIT_00a0:
00a3 e001       |    |		Load	0x0,0x1
00a4 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00a5 4802       |H   |		Short_Literal	0x2
00a6 0092 0479  |   y|		Action	Push_String_Extended,0x479					; "Executing Execute_Script_Preprocess"
00a8 e002       |    |		Load	0x0,0x2
00a9 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00aa e5fc       |    |		Load	0x2,-0x4
00ab e003       |    |		Load	0x0,0x3
00ac 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00ad c5fc       |    |		Store	0x2,-0x4
00ae 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
00af 0000       |    |		.XXX[0x1]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3       |    |		.CONST	0x00b3								; Address of begin
00b1 0004       |    |		.CONST	0x0004								; Address of exception handler
00b2 0001       |    |		.CONST	0x0001								; Number of locals
00b3			BODY_00b0:
00b3			INIT_00b0:
00b3 e001       |    |		Load	0x0,0x1
00b4 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00b5 4802       |H   |		Short_Literal	0x2
00b6 0092 047a  |   z|		Action	Push_String_Extended,0x47a					; "Executing Execute_Script_Postprocess"
00b8 e002       |    |		Load	0x0,0x2
00b9 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00ba e5fc       |    |		Load	0x2,-0x4
00bb e003       |    |		Load	0x0,0x3
00bc 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00bd c5fc       |    |		Store	0x2,-0x4
00be 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
00bf 0000       |    |		.XXX[0x1]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3       |    |		.CONST	0x00c3								; Address of begin
00c1 0004       |    |		.CONST	0x0004								; Address of exception handler
00c2 0001       |    |		.CONST	0x0001								; Number of locals
00c3			BODY_00c0:
00c3			INIT_00c0:
00c3 e001       |    |		Load	0x0,0x1
00c4 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00c5 4802       |H   |		Short_Literal	0x2
00c6 0092 047b  |   {|		Action	Push_String_Extended,0x47b					; "Executing Upload_Associated_Files_Preprocess"
00c8 e002       |    |		Load	0x0,0x2
00c9 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00ca e5fc       |    |		Load	0x2,-0x4
00cb e003       |    |		Load	0x0,0x3
00cc 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00cd c5fc       |    |		Store	0x2,-0x4
00ce 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
00cf 0000       |    |		.XXX[0x1]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3       |    |		.CONST	0x00d3								; Address of begin
00d1 0004       |    |		.CONST	0x0004								; Address of exception handler
00d2 0001       |    |		.CONST	0x0001								; Number of locals
00d3			BODY_00d0:
00d3			INIT_00d0:
00d3 e001       |    |		Load	0x0,0x1
00d4 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00d5 4802       |H   |		Short_Literal	0x2
00d6 0092 047c  |   ||		Action	Push_String_Extended,0x47c					; "Executing Upload_Associated_Files_Postprocess"
00d8 e002       |    |		Load	0x0,0x2
00d9 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00da e5fc       |    |		Load	0x2,-0x4
00db e003       |    |		Load	0x0,0x3
00dc 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
00dd c5fc       |    |		Store	0x2,-0x4
00de 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
00df 0000       |    |		.XXX[0x1]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3       |    |		.CONST	0x00e3								; Address of begin
00e1 0004       |    |		.CONST	0x0004								; Address of exception handler
00e2 0001       |    |		.CONST	0x0001								; Number of locals
00e3			BODY_00e0:
00e3			INIT_00e0:
00e3 e214       |    |		Load	0x1,0x14
00e4 680c       |h   |		Jump_Zero	0xf1
00e5 e001       |    |		Load	0x0,0x1
00e6 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00e7 480a       |H   |		Short_Literal	0xa
00e8 0092 047d  |   }|		Action	Push_String_Extended,0x47d					; "Batch file <= \x22"
00ea e5fe       |    |		Load	0x2,-0x2
00eb 01cc       |    |		Execute	Vector,Catenate
00ec 0092 047e  |   ~|		Action	Push_String_Extended,0x47e					; "\x22"
00ee 01cc       |    |		Execute	Vector,Catenate
00ef e002       |    |		Load	0x0,0x2
00f0 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00f1 00db       |    |		Load_Top	At_Offset_3
00f2 00db       |    |		Load_Top	At_Offset_3
00f3 e004       |    |		Load	0x0,0x4
00f4 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
00f5 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00f6 0000 0000  |    |		.XXX[0x2]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb       |    |		.CONST	0x00fb								; Address of begin
00f9 0004       |    |		.CONST	0x0004								; Address of exception handler
00fa 0001       |    |		.CONST	0x0001								; Number of locals
00fb			BODY_00f8:
00fb			INIT_00f8:
00fb e5fc       |    |		Load	0x2,-0x4
00fc e5fd       |    |		Load	0x2,-0x3
00fd e5fe       |    |		Load	0x2,-0x2
00fe e5ff       |    |		Load	0x2,-0x1
00ff e003       |    |		Load	0x0,0x3
0100 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0101 c5fc       |    |		Store	0x2,-0x4
0102 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0103 0000 0000  |    |		.BLANK	0000[0x5]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b       |    |		.CONST	0x010b								; Address of begin
0109 0004       |    |		.CONST	0x0004								; Address of exception handler
010a 0001       |    |		.CONST	0x0001								; Number of locals
010b			BODY_0108:
010b			INIT_0108:
010b 00db       |    |		Load_Top	At_Offset_3
010c 4802       |H   |		Short_Literal	0x2
010d 4800       |H   |		Short_Literal	0x0
010e 4801       |H   |		Short_Literal	0x1
010f e005       |    |		Load	0x0,0x5
0110 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0111 0092 047f  |    |		Action	Push_String_Extended,0x47f					; " caught in "
0113 01cc       |    |		Execute	Vector,Catenate
0114 e5ff       |    |		Load	0x2,-0x1
0115 01cc       |    |		Execute	Vector,Catenate
0116 0092 0480  |    |		Action	Push_String_Extended,0x480					; "Unhandled exception "
0118 8217       |    |		Call	0x1,0x17
0119 c5fe       |    |		Store	0x2,-0x2
011a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
011b 0000 0000  |    |		.BLANK	0000[0x5]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0132       | 2  |		.CONST	0x0132								; Address of begin
0121 0004       |    |		.CONST	0x0004								; Address of exception handler
0122 0003       |    |		.CONST	0x0003								; Number of locals
0123			INIT_0120:
0123 e001       |    |		Load	0x0,0x1
0124 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0125 e001       |    |		Load	0x0,0x1
0126 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0127 e5fe       |    |		Load	0x2,-0x2
0128 e006       |    |		Load	0x0,0x6
0129 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
012a 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
012b e007       |    |		Load	0x0,0x7
012c 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
012d 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
012e e008       |    |		Load	0x0,0x8
012f 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0130 029f 041b  |    |		Declare_Subprogram	INIT_0418,For_Call
0132			BODY_0120:
0132 4801       |H   |		Short_Literal	0x1
0133 00da       |    |		Load_Top	At_Offset_2
0134 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0135 e003       |    |		Load	0x0,0x3
0136 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0137 6810       |h   |		Jump_Zero	0x148
0138 e001       |    |		Load	0x0,0x1
0139 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
013a 4807       |H   |		Short_Literal	0x7
013b 0092 0481  |    |		Action	Push_String_Extended,0x481					; "Error in getting the remote directory name for unit "
013d e5fe       |    |		Load	0x2,-0x2
013e e007       |    |		Load	0x0,0x7
013f 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0140 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
0141 01cc       |    |		Execute	Vector,Catenate
0142 e002       |    |		Load	0x0,0x2
0143 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0144 00d9       |    |		Load_Top	At_Offset_1
0145 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0146 c5fc       |    |		Store	0x2,-0x4
0147 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0148 8403       |    |		Call	0x2,0x3
0149 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
014a 0000 0000  |    |		.BLANK	0000[0x6]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 015d       | ]  |		.CONST	0x015d								; Address of begin
0151 0171       | q  |		.CONST	0x0171								; Address of exception handler
0152 0003       |    |		.CONST	0x0003								; Number of locals
0153			INIT_0150:
0153 00da       |    |		Load_Top	At_Offset_2
0154 e007       |    |		Load	0x0,0x7
0155 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0156 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
0157 e007       |    |		Load	0x0,0x7
0158 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0159 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
015a 02c7       |    |		Declare_Variable	Any
015b 00d8       |    |		Load_Top	At_Offset_0
015c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
015d			BODY_0150:
015d e001       |    |		Load	0x0,0x1
015e 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
015f 00da       |    |		Load_Top	At_Offset_2
0160 0092 0482  |    |		Action	Push_String_Extended,0x482					; "'C(Main_Body)"
0162 01cc       |    |		Execute	Vector,Catenate
0163 e006       |    |		Load	0x0,0x6
0164 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0165 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0166 c403       |    |		Store	0x2,0x3
0167 00d8       |    |		Load_Top	At_Offset_0
0168 e007       |    |		Load	0x0,0x7
0169 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
016a 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
016b 012f       | /  |		Execute	Any,Equal
016c 6802       |h   |		Jump_Zero	0x16f
016d 4800       |H   |		Short_Literal	0x0
016e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
016f 4801       |H   |		Short_Literal	0x1
0170 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0171			TRAP_0150:
0171 0007       |    |		Action	Break_Optional
0172 4800       |H   |		Short_Literal	0x0
0173 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0174 0000 0000  |    |		.BLANK	0000[0x4]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 0191       |    |		.CONST	0x0191								; Address of begin
0179 01b7       |    |		.CONST	0x01b7								; Address of exception handler
017a 0006       |    |		.CONST	0x0006								; Number of locals
017b			INIT_0178:
017b e5fc       |    |		Load	0x2,-0x4
017c e5fe       |    |		Load	0x2,-0x2
017d e5ff       |    |		Load	0x2,-0x1
017e e009       |    |		Load	0x0,0x9
017f 1830       | 0  |		Execute	Package,Field_Execute,Field_Number 0x30
0180 e5fc       |    |		Load	0x2,-0x4
0181 e5fe       |    |		Load	0x2,-0x2
0182 e5ff       |    |		Load	0x2,-0x1
0183 e009       |    |		Load	0x0,0x9
0184 1831       | 1  |		Execute	Package,Field_Execute,Field_Number 0x31
0185 00d8       |    |		Load_Top	At_Offset_0
0186 00da       |    |		Load_Top	At_Offset_2
0187 e5fd       |    |		Load	0x2,-0x3
0188 e5ff       |    |		Load	0x2,-0x1
0189 e009       |    |		Load	0x0,0x9
018a 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
018b 00e3       |    |		Load_Encached	Natural_Cache
018c e003       |    |		Load	0x0,0x3
018d 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
018e 02c7       |    |		Declare_Variable	Any
018f 00d8       |    |		Load_Top	At_Offset_0
0190 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0191			BODY_0178:
0191 4801       |H   |		Short_Literal	0x1
0192 00db       |    |		Load_Top	At_Offset_3
0193 0092 0483  |    |		Action	Push_String_Extended,0x483					; "=adalib"
0195 e00a       |    |		Load	0x0,0xa
0196 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0197 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0198 00d9       |    |		Load_Top	At_Offset_1
0199 700e       |p   |		Jump_Nonzero	0x1a8
019a e001       |    |		Load	0x0,0x1
019b 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
019c 4807       |H   |		Short_Literal	0x7
019d 0092 0484  |    |		Action	Push_String_Extended,0x484					; "Error in parsing the compile command for unit "
019f e5fe       |    |		Load	0x2,-0x2
01a0 e007       |    |		Load	0x0,0x7
01a1 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
01a2 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
01a3 01cc       |    |		Execute	Vector,Catenate
01a4 e002       |    |		Load	0x0,0x2
01a5 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
01a6 00ea       |    |		Load_Encached	Null_String_Cache
01a7 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
01a8 0092 0485  |    |		Action	Push_String_Extended,0x485					; "compile"
01aa 00da       |    |		Load_Top	At_Offset_2
01ab 0a07       |    |		Execute_Immediate	Plus,0x7
01ac 00d8       |    |		Load_Top	At_Offset_0
01ad 00e2       |    |		Load_Encached	Integer_Cache
01ae 0260       | `  |		Execute	Discrete,In_Type
01af 7001       |p   |		Jump_Nonzero	0x1b1
01b0 0801       |    |		Execute_Immediate	Raise,0x1
01b1 e404       |    |		Load	0x2,0x4
01b2 01dc       |    |		Execute	Vector,Last
01b3 e404       |    |		Load	0x2,0x4
01b4 01cf       |    |		Execute	Vector,Slice_Read
01b5 01cc       |    |		Execute	Vector,Catenate
01b6 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
01b7			TRAP_0178:
01b7 0007       |    |		Action	Break_Optional
01b8 00d9       |    |		Load_Top	At_Offset_1
01b9 0092 0486  |    |		Action	Push_String_Extended,0x486					; "Build_Batch_Compile_Command"
01bb 8218       |    |		Call	0x1,0x18
01bc c406       |    |		Store	0x2,0x6
01bd 00ea       |    |		Load_Encached	Null_String_Cache
01be 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
01bf 0000       |    |		.XXX[0x1]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01e8       |    |		.CONST	0x01e8								; Address of begin
01c1 0247       | G  |		.CONST	0x0247								; Address of exception handler
01c2 0006       |    |		.CONST	0x0006								; Number of locals
01c3			INIT_01c0:
01c3 4800       |H   |		Short_Literal	0x0
01c4 e001       |    |		Load	0x0,0x1
01c5 1836       | 6  |		Execute	Package,Field_Execute,Field_Number 0x36
01c6 484d       |HM  |		Short_Literal	0x4d
01c7 e001       |    |		Load	0x0,0x1
01c8 1b45       | E  |		Execute	Package,Field_Read,Field_Number 0x45
01c9 e001       |    |		Load	0x0,0x1
01ca 1b1c       |    |		Execute	Package,Field_Read,Field_Number 0x1c
01cb 4800       |H   |		Short_Literal	0x0
01cc e001       |    |		Load	0x0,0x1
01cd 1846       | F  |		Execute	Package,Field_Execute,Field_Number 0x46
01ce e5fe       |    |		Load	0x2,-0x2
01cf e00b       |    |		Load	0x0,0xb
01d0 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
01d1 e5fe       |    |		Load	0x2,-0x2
01d2 00d9       |    |		Load_Top	At_Offset_1
01d3 e00c       |    |		Load	0x0,0xc
01d4 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
01d5 e007       |    |		Load	0x0,0x7
01d6 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01d7 02c7       |    |		Declare_Variable	Any
01d8 00d8       |    |		Load_Top	At_Offset_0
01d9 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01da e007       |    |		Load	0x0,0x7
01db 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01dc 02c7       |    |		Declare_Variable	Any
01dd e001       |    |		Load	0x0,0x1
01de 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01df e5fe       |    |		Load	0x2,-0x2
01e0 e006       |    |		Load	0x0,0x6
01e1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01e2 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
01e3 a405       |    |		Store_Unchecked	0x2,0x5
01e4 00d8       |    |		Load_Top	At_Offset_0
01e5 e006       |    |		Load	0x0,0x6
01e6 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01e7 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01e8			BODY_01c0:
01e8 e5fe       |    |		Load	0x2,-0x2
01e9 e007       |    |		Load	0x0,0x7
01ea 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
01eb e00d       |    |		Load	0x0,0xd
01ec 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
01ed 012f       | /  |		Execute	Any,Equal
01ee 7001       |p   |		Jump_Nonzero	0x1f0
01ef 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
01f0 00d9       |    |		Load_Top	At_Offset_1
01f1 e006       |    |		Load	0x0,0x6
01f2 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01f3 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
01f4 6808       |h   |		Jump_Zero	0x1fd
01f5 e5fc       |    |		Load	0x2,-0x4
01f6 4800       |H   |		Short_Literal	0x0
01f7 00ea       |    |		Load_Encached	Null_String_Cache
01f8 00ea       |    |		Load_Encached	Null_String_Cache
01f9 e003       |    |		Load	0x0,0x3
01fa 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
01fb c5fc       |    |		Store	0x2,-0x4
01fc 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
01fd 4801       |H   |		Short_Literal	0x1
01fe e402       |    |		Load	0x2,0x2
01ff 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0200 e003       |    |		Load	0x0,0x3
0201 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0202 6804       |h   |		Jump_Zero	0x207
0203 e402       |    |		Load	0x2,0x2
0204 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0205 c5fc       |    |		Store	0x2,-0x4
0206 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0207 e214       |    |		Load	0x1,0x14
0208 6822       |h"  |		Jump_Zero	0x22b
0209 00cf       |    |		Action	Mark_Auxiliary
020a e402       |    |		Load	0x2,0x2
020b 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
020c 01dc       |    |		Execute	Vector,Last
020d 4801       |H   |		Short_Literal	0x1
020e 0263       | c  |		Execute	Discrete,Above_Bound
020f 701a       |p   |		Jump_Nonzero	0x22a
0210 00d8       |    |		Load_Top	At_Offset_0
0211 e402       |    |		Load	0x2,0x2
0212 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0213 01d7       |    |		Execute	Vector,Field_Read
0214 c404       |    |		Store	0x2,0x4
0215 e001       |    |		Load	0x0,0x1
0216 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0217 4802       |H   |		Short_Literal	0x2
0218 0092 0487  |    |		Action	Push_String_Extended,0x487					; "#~~ Prereqs"
021a 00db       |    |		Load_Top	At_Offset_3
021b 00e0       |    |		Load_Encached	Standard_Cache
021c 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
021d 01cc       |    |		Execute	Vector,Catenate
021e 0092 0488  |    |		Action	Push_String_Extended,0x488					; ": "
0220 01cc       |    |		Execute	Vector,Catenate
0221 e404       |    |		Load	0x2,0x4
0222 e007       |    |		Load	0x0,0x7
0223 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0224 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
0225 01cc       |    |		Execute	Vector,Catenate
0226 e002       |    |		Load	0x0,0x2
0227 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0228 00c8       |    |		Action	Pop_Auxiliary_Range
0229 3fe6       |?   |		Loop_Increasing	0x210
022a 00ce       |    |		Action	Pop_Auxiliary
022b 4801       |H   |		Short_Literal	0x1
022c e403       |    |		Load	0x2,0x3
022d 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
022e e003       |    |		Load	0x0,0x3
022f 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0230 6804       |h   |		Jump_Zero	0x235
0231 00db       |    |		Load_Top	At_Offset_3
0232 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0233 c5fc       |    |		Store	0x2,-0x4
0234 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0235 e00e       |    |		Load	0x0,0xe
0236 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0237 e5fe       |    |		Load	0x2,-0x2
0238 e00c       |    |		Load	0x0,0xc
0239 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
023a 00db       |    |		Load_Top	At_Offset_3
023b 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
023c 6809       |h   |		Jump_Zero	0x246
023d e5fc       |    |		Load	0x2,-0x4
023e 00d9       |    |		Load_Top	At_Offset_1
023f e5fd       |    |		Load	0x2,-0x3
0240 e405       |    |		Load	0x2,0x5
0241 e403       |    |		Load	0x2,0x3
0242 e5ff       |    |		Load	0x2,-0x1
0243 e00c       |    |		Load	0x0,0xc
0244 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0245 c5fc       |    |		Store	0x2,-0x4
0246 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0247			TRAP_01c0:
0247 0007       |    |		Action	Break_Optional
0248 e5fc       |    |		Load	0x2,-0x4
0249 0092 0489  |    |		Action	Push_String_Extended,0x489					; "Generate_Acquire_Commands"
024b 8218       |    |		Call	0x1,0x18
024c c5fc       |    |		Store	0x2,-0x4
024d 00d8       |    |		Load_Top	At_Offset_0
024e 0101       |    |		Execute	Exception,Reraise
024f 0000       |    |		.XXX[0x1]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 027a       | z  |		.CONST	0x027a								; Address of begin
0251 0309       |    |		.CONST	0x0309								; Address of exception handler
0252 000b       |    |		.CONST	0x000b								; Number of locals
0253			INIT_0250:
0253 e00f       |    |		Load	0x0,0xf
0254 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0255 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0256 02c7       |    |		Declare_Variable	Any
0257 e5fe       |    |		Load	0x2,-0x2
0258 a402       |    |		Store_Unchecked	0x2,0x2
0259 e007       |    |		Load	0x0,0x7
025a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
025b 02c7       |    |		Declare_Variable	Any
025c 00d8       |    |		Load_Top	At_Offset_0
025d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
025e e007       |    |		Load	0x0,0x7
025f 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0260 02c7       |    |		Declare_Variable	Any
0261 00d8       |    |		Load_Top	At_Offset_0
0262 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0263 e007       |    |		Load	0x0,0x7
0264 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0265 02c7       |    |		Declare_Variable	Any
0266 e007       |    |		Load	0x0,0x7
0267 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0268 a405       |    |		Store_Unchecked	0x2,0x5
0269 00e1       |    |		Load_Encached	Boolean_Cache
026a 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
026b 00e1       |    |		Load_Encached	Boolean_Cache
026c 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
026d e007       |    |		Load	0x0,0x7
026e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
026f e5fd       |    |		Load	0x2,-0x3
0270 e009       |    |		Load	0x0,0x9
0271 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0272 e001       |    |		Load	0x0,0x1
0273 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0274 02c7       |    |		Declare_Variable	Any
0275 e001       |    |		Load	0x0,0x1
0276 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0277 a40a       |    |		Store_Unchecked	0x2,0xa
0278 029f 042b  |   +|		Declare_Subprogram	INIT_0428,For_Call
027a			BODY_0250:
027a e402       |    |		Load	0x2,0x2
027b e00f       |    |		Load	0x0,0xf
027c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
027d 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
027e 00cf       |    |		Action	Mark_Auxiliary
027f 7878       |xx  |		Jump	0x2f8
0280 e007       |    |		Load	0x0,0x7
0281 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0282 e403       |    |		Load	0x2,0x3
0283 0120       |    |		Execute	Any,Is_Value
0284 6803       |h   |		Jump_Zero	0x288
0285 e007       |    |		Load	0x0,0x7
0286 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0287 7801       |x   |		Jump	0x289
0288 e403       |    |		Load	0x2,0x3
0289 e402       |    |		Load	0x2,0x2
028a e00f       |    |		Load	0x0,0xf
028b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
028c 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
028d e00f       |    |		Load	0x0,0xf
028e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
028f 1b56       | V  |		Execute	Package,Field_Read,Field_Number 0x56
0290 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0291 c403       |    |		Store	0x2,0x3
0292 c408       |    |		Store	0x2,0x8
0293 e408       |    |		Load	0x2,0x8
0294 6808       |h   |		Jump_Zero	0x29d
0295 e001       |    |		Load	0x0,0x1
0296 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0297 4807       |H   |		Short_Literal	0x7
0298 0092 048a  |    |		Action	Push_String_Extended,0x48a					; "Error in getting an object from its handle"
029a e002       |    |		Load	0x0,0x2
029b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
029c 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
029d 00da       |    |		Load_Top	At_Offset_2
029e e403       |    |		Load	0x2,0x3
029f e006       |    |		Load	0x0,0x6
02a0 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02a1 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
02a2 c404       |    |		Store	0x2,0x4
02a3 e5fc       |    |		Load	0x2,-0x4
02a4 00e1       |    |		Load_Encached	Boolean_Cache
02a5 e40a       |    |		Load	0x2,0xa
02a6 e403       |    |		Load	0x2,0x3
02a7 e010       |    |		Load	0x0,0x10
02a8 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
02a9 c406       |    |		Store	0x2,0x6
02aa c5fc       |    |		Store	0x2,-0x4
02ab e406       |    |		Load	0x2,0x6
02ac 6812       |h   |		Jump_Zero	0x2bf
02ad 00da       |    |		Load_Top	At_Offset_2
02ae e403       |    |		Load	0x2,0x3
02af e010       |    |		Load	0x0,0x10
02b0 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
02b1 700d       |p   |		Jump_Nonzero	0x2bf
02b2 e001       |    |		Load	0x0,0x1
02b3 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
02b4 4802       |H   |		Short_Literal	0x2
02b5 0092 048b  |    |		Action	Push_String_Extended,0x48b					; "Not generating compile commands for Primary "
02b7 e403       |    |		Load	0x2,0x3
02b8 e007       |    |		Load	0x0,0x7
02b9 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
02ba 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
02bb 01cc       |    |		Execute	Vector,Catenate
02bc e002       |    |		Load	0x0,0x2
02bd 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02be 7833       |x3  |		Jump	0x2f2
02bf e001       |    |		Load	0x0,0x1
02c0 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
02c1 4802       |H   |		Short_Literal	0x2
02c2 0092 048c  |    |		Action	Push_String_Extended,0x48c					; "Generating compile commands for "
02c4 e403       |    |		Load	0x2,0x3
02c5 e007       |    |		Load	0x0,0x7
02c6 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
02c7 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
02c8 01cc       |    |		Execute	Vector,Catenate
02c9 e002       |    |		Load	0x0,0x2
02ca 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02cb e404       |    |		Load	0x2,0x4
02cc e405       |    |		Load	0x2,0x5
02cd 012e       | .  |		Execute	Any,Not_Equal
02ce 6822       |h"  |		Jump_Zero	0x2f1
02cf e407       |    |		Load	0x2,0x7
02d0 7008       |p   |		Jump_Nonzero	0x2d9
02d1 0092 048d  |    |		Action	Push_String_Extended,0x48d					; "quit"
02d3 e5ff       |    |		Load	0x2,-0x1
02d4 8216       |    |		Call	0x1,0x16
02d5 0092 048e  |    |		Action	Push_String_Extended,0x48e					; "!"
02d7 e5ff       |    |		Load	0x2,-0x1
02d8 8216       |    |		Call	0x1,0x16
02d9 e5fc       |    |		Load	0x2,-0x4
02da e5fd       |    |		Load	0x2,-0x3
02db e403       |    |		Load	0x2,0x3
02dc e5ff       |    |		Load	0x2,-0x1
02dd 8219       |    |		Call	0x1,0x19
02de c5fc       |    |		Store	0x2,-0x4
02df 00db       |    |		Load_Top	At_Offset_3
02e0 01db       |    |		Execute	Vector,Length
02e1 6803       |h   |		Jump_Zero	0x2e5
02e2 00db       |    |		Load_Top	At_Offset_3
02e3 e5ff       |    |		Load	0x2,-0x1
02e4 8216       |    |		Call	0x1,0x16
02e5 0092 048f  |    |		Action	Push_String_Extended,0x48f					; "ada <<!"
02e7 e5ff       |    |		Load	0x2,-0x1
02e8 8216       |    |		Call	0x1,0x16
02e9 0092 0490  |    |		Action	Push_String_Extended,0x490					; "default.compile library=adalib"
02eb e5ff       |    |		Load	0x2,-0x1
02ec 8216       |    |		Call	0x1,0x16
02ed 4800       |H   |		Short_Literal	0x0
02ee a407       |    |		Store_Unchecked	0x2,0x7
02ef e404       |    |		Load	0x2,0x4
02f0 c405       |    |		Store	0x2,0x5
02f1 840b       |    |		Call	0x2,0xb
02f2 e402       |    |		Load	0x2,0x2
02f3 e00f       |    |		Load	0x0,0xf
02f4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02f5 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
02f6 c402       |    |		Store	0x2,0x2
02f7 00c9       |    |		Action	Pop_Auxiliary_Loop
02f8 e402       |    |		Load	0x2,0x2
02f9 e00f       |    |		Load	0x0,0xf
02fa 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02fb 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
02fc 6f83       |o   |		Jump_Zero	0x280
02fd 00ce       |    |		Action	Pop_Auxiliary
02fe e407       |    |		Load	0x2,0x7
02ff 7008       |p   |		Jump_Nonzero	0x308
0300 0092 048d  |    |		Action	Push_String_Extended,0x48d					; "quit"
0302 e5ff       |    |		Load	0x2,-0x1
0303 8216       |    |		Call	0x1,0x16
0304 0092 048e  |    |		Action	Push_String_Extended,0x48e					; "!"
0306 e5ff       |    |		Load	0x2,-0x1
0307 8216       |    |		Call	0x1,0x16
0308 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0309			TRAP_0250:
0309 0007       |    |		Action	Break_Optional
030a e5fc       |    |		Load	0x2,-0x4
030b 0092 0491  |    |		Action	Push_String_Extended,0x491					; "Generate_Compile_Commands"
030d 8218       |    |		Call	0x1,0x18
030e c5fc       |    |		Store	0x2,-0x4
030f 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0322       | "  |		.CONST	0x0322								; Address of begin
0311 038f       |    |		.CONST	0x038f								; Address of exception handler
0312 0005       |    |		.CONST	0x0005								; Number of locals
0313			INIT_0310:
0313 e00f       |    |		Load	0x0,0xf
0314 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0315 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0316 02c7       |    |		Declare_Variable	Any
0317 e5fe       |    |		Load	0x2,-0x2
0318 a402       |    |		Store_Unchecked	0x2,0x2
0319 e007       |    |		Load	0x0,0x7
031a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
031b 02c7       |    |		Declare_Variable	Any
031c 00d8       |    |		Load_Top	At_Offset_0
031d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
031e 00e1       |    |		Load_Encached	Boolean_Cache
031f 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0320 e007       |    |		Load	0x0,0x7
0321 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0322			BODY_0310:
0322 00db       |    |		Load_Top	At_Offset_3
0323 e00f       |    |		Load	0x0,0xf
0324 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0325 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
0326 00cf       |    |		Action	Mark_Auxiliary
0327 7861       |xa  |		Jump	0x389
0328 e007       |    |		Load	0x0,0x7
0329 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
032a e403       |    |		Load	0x2,0x3
032b 0120       |    |		Execute	Any,Is_Value
032c 6803       |h   |		Jump_Zero	0x330
032d e007       |    |		Load	0x0,0x7
032e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
032f 7801       |x   |		Jump	0x331
0330 e403       |    |		Load	0x2,0x3
0331 e402       |    |		Load	0x2,0x2
0332 e00f       |    |		Load	0x0,0xf
0333 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0334 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0335 e00f       |    |		Load	0x0,0xf
0336 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0337 1b56       | V  |		Execute	Package,Field_Read,Field_Number 0x56
0338 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0339 c403       |    |		Store	0x2,0x3
033a 005a       | Z  |		Store_Top	Discrete,At_Offset_2
033b 00d9       |    |		Load_Top	At_Offset_1
033c 6808       |h   |		Jump_Zero	0x345
033d e001       |    |		Load	0x0,0x1
033e 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
033f 4807       |H   |		Short_Literal	0x7
0340 0092 048a  |    |		Action	Push_String_Extended,0x48a					; "Error in getting an object from its handle"
0342 e002       |    |		Load	0x0,0x2
0343 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0344 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0345 e5fc       |    |		Load	0x2,-0x4
0346 00e1       |    |		Load_Encached	Boolean_Cache
0347 e001       |    |		Load	0x0,0x1
0348 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0349 e403       |    |		Load	0x2,0x3
034a e010       |    |		Load	0x0,0x10
034b 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
034c c404       |    |		Store	0x2,0x4
034d c5fc       |    |		Store	0x2,-0x4
034e 00da       |    |		Load_Top	At_Offset_2
034f 6833       |h3  |		Jump_Zero	0x383
0350 e001       |    |		Load	0x0,0x1
0351 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0352 4802       |H   |		Short_Literal	0x2
0353 0092 0492  |    |		Action	Push_String_Extended,0x492					; "Generating the secondary commands for "
0355 e403       |    |		Load	0x2,0x3
0356 e007       |    |		Load	0x0,0x7
0357 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0358 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
0359 01cc       |    |		Execute	Vector,Catenate
035a e002       |    |		Load	0x0,0x2
035b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
035c e5fc       |    |		Load	0x2,-0x4
035d e5fd       |    |		Load	0x2,-0x3
035e e403       |    |		Load	0x2,0x3
035f e5ff       |    |		Load	0x2,-0x1
0360 8219       |    |		Call	0x1,0x19
0361 c5fc       |    |		Store	0x2,-0x4
0362 4801       |H   |		Short_Literal	0x1
0363 e5fc       |    |		Load	0x2,-0x4
0364 e003       |    |		Load	0x0,0x3
0365 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0366 6801       |h   |		Jump_Zero	0x368
0367 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0368 e5fc       |    |		Load	0x2,-0x4
0369 e001       |    |		Load	0x0,0x1
036a 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
036b e5fd       |    |		Load	0x2,-0x3
036c e403       |    |		Load	0x2,0x3
036d e5ff       |    |		Load	0x2,-0x1
036e e011       |    |		Load	0x0,0x11
036f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0370 c5fc       |    |		Store	0x2,-0x4
0371 4801       |H   |		Short_Literal	0x1
0372 e5fc       |    |		Load	0x2,-0x4
0373 e003       |    |		Load	0x0,0x3
0374 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0375 680d       |h   |		Jump_Zero	0x383
0376 e001       |    |		Load	0x0,0x1
0377 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0378 4807       |H   |		Short_Literal	0x7
0379 0092 0493  |    |		Action	Push_String_Extended,0x493					; "Error while generating the secondary commands for Primary unit "
037b e403       |    |		Load	0x2,0x3
037c e007       |    |		Load	0x0,0x7
037d 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
037e 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
037f 01cc       |    |		Execute	Vector,Catenate
0380 e002       |    |		Load	0x0,0x2
0381 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0382 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0383 e402       |    |		Load	0x2,0x2
0384 e00f       |    |		Load	0x0,0xf
0385 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0386 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0387 c402       |    |		Store	0x2,0x2
0388 00c9       |    |		Action	Pop_Auxiliary_Loop
0389 e402       |    |		Load	0x2,0x2
038a e00f       |    |		Load	0x0,0xf
038b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
038c 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
038d 6f9a       |o   |		Jump_Zero	0x328
038e 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
038f			TRAP_0310:
038f 0007       |    |		Action	Break_Optional
0390 e5fc       |    |		Load	0x2,-0x4
0391 0092 0494  |    |		Action	Push_String_Extended,0x494					; "Generate_Secondary_Commands"
0393 8218       |    |		Call	0x1,0x18
0394 c5fc       |    |		Store	0x2,-0x4
0395 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0396 0000 0000  |    |		.XXX[0x2]
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 03a8       |    |		.CONST	0x03a8								; Address of begin
0399 040d       |    |		.CONST	0x040d								; Address of exception handler
039a 0004       |    |		.CONST	0x0004								; Number of locals
039b			INIT_0398:
039b e00f       |    |		Load	0x0,0xf
039c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
039d 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
039e 02c7       |    |		Declare_Variable	Any
039f e5fe       |    |		Load	0x2,-0x2
03a0 a402       |    |		Store_Unchecked	0x2,0x2
03a1 e007       |    |		Load	0x0,0x7
03a2 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03a3 02c7       |    |		Declare_Variable	Any
03a4 00d8       |    |		Load_Top	At_Offset_0
03a5 1c00       |    |		Execute_Immediate	Run_Utility,0x0
03a6 e007       |    |		Load	0x0,0x7
03a7 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03a8			BODY_0398:
03a8 00da       |    |		Load_Top	At_Offset_2
03a9 e00f       |    |		Load	0x0,0xf
03aa 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03ab 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
03ac 00cf       |    |		Action	Mark_Auxiliary
03ad 7859       |xY  |		Jump	0x407
03ae e007       |    |		Load	0x0,0x7
03af 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03b0 00db       |    |		Load_Top	At_Offset_3
03b1 0120       |    |		Execute	Any,Is_Value
03b2 6803       |h   |		Jump_Zero	0x3b6
03b3 e007       |    |		Load	0x0,0x7
03b4 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
03b5 7801       |x   |		Jump	0x3b7
03b6 00db       |    |		Load_Top	At_Offset_3
03b7 e402       |    |		Load	0x2,0x2
03b8 e00f       |    |		Load	0x0,0xf
03b9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03ba 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
03bb e00f       |    |		Load	0x0,0xf
03bc 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
03bd 1b56       | V  |		Execute	Package,Field_Read,Field_Number 0x56
03be 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
03bf c403       |    |		Store	0x2,0x3
03c0 005a       | Z  |		Store_Top	Discrete,At_Offset_2
03c1 00d9       |    |		Load_Top	At_Offset_1
03c2 6808       |h   |		Jump_Zero	0x3cb
03c3 e001       |    |		Load	0x0,0x1
03c4 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
03c5 4807       |H   |		Short_Literal	0x7
03c6 0092 048a  |    |		Action	Push_String_Extended,0x48a					; "Error in getting an object from its handle"
03c8 e002       |    |		Load	0x0,0x2
03c9 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03ca 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
03cb 00da       |    |		Load_Top	At_Offset_2
03cc 821a       |    |		Call	0x1,0x1a
03cd 6833       |h3  |		Jump_Zero	0x401
03ce e001       |    |		Load	0x0,0x1
03cf 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
03d0 4802       |H   |		Short_Literal	0x2
03d1 0092 0495  |    |		Action	Push_String_Extended,0x495					; "Generating link commands for "
03d3 e403       |    |		Load	0x2,0x3
03d4 e007       |    |		Load	0x0,0x7
03d5 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
03d6 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
03d7 01cc       |    |		Execute	Vector,Catenate
03d8 e002       |    |		Load	0x0,0x2
03d9 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
03da e5fc       |    |		Load	0x2,-0x4
03db e5fd       |    |		Load	0x2,-0x3
03dc e403       |    |		Load	0x2,0x3
03dd e5ff       |    |		Load	0x2,-0x1
03de 8219       |    |		Call	0x1,0x19
03df c5fc       |    |		Store	0x2,-0x4
03e0 4801       |H   |		Short_Literal	0x1
03e1 e5fc       |    |		Load	0x2,-0x4
03e2 e003       |    |		Load	0x0,0x3
03e3 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
03e4 6801       |h   |		Jump_Zero	0x3e6
03e5 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
03e6 e5fc       |    |		Load	0x2,-0x4
03e7 e001       |    |		Load	0x0,0x1
03e8 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
03e9 e5fd       |    |		Load	0x2,-0x3
03ea e403       |    |		Load	0x2,0x3
03eb e5ff       |    |		Load	0x2,-0x1
03ec e011       |    |		Load	0x0,0x11
03ed 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
03ee c5fc       |    |		Store	0x2,-0x4
03ef 4801       |H   |		Short_Literal	0x1
03f0 e5fc       |    |		Load	0x2,-0x4
03f1 e003       |    |		Load	0x0,0x3
03f2 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
03f3 680d       |h   |		Jump_Zero	0x401
03f4 e001       |    |		Load	0x0,0x1
03f5 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
03f6 4807       |H   |		Short_Literal	0x7
03f7 0092 0496  |    |		Action	Push_String_Extended,0x496					; "Error while generating the link commands for "
03f9 e403       |    |		Load	0x2,0x3
03fa e007       |    |		Load	0x0,0x7
03fb 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
03fc 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
03fd 01cc       |    |		Execute	Vector,Catenate
03fe e002       |    |		Load	0x0,0x2
03ff 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0400 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0401 00db       |    |		Load_Top	At_Offset_3
0402 e00f       |    |		Load	0x0,0xf
0403 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0404 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0405 c402       |    |		Store	0x2,0x2
0406 00c9       |    |		Action	Pop_Auxiliary_Loop
0407 00db       |    |		Load_Top	At_Offset_3
0408 e00f       |    |		Load	0x0,0xf
0409 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
040a 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
040b 6fa2       |o   |		Jump_Zero	0x3ae
040c 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
040d			TRAP_0398:
040d 0007       |    |		Action	Break_Optional
040e e5fc       |    |		Load	0x2,-0x4
040f 0092 0497  |    |		Action	Push_String_Extended,0x497					; "Generate_Link_Commands"
0411 8218       |    |		Call	0x1,0x18
0412 c5fc       |    |		Store	0x2,-0x4
0413 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0414 0000 0000  |    |		.BLANK	0000[0x4]
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 0421       | !  |		.CONST	0x0421								; Address of begin
0419 0004       |    |		.CONST	0x0004								; Address of exception handler
041a 0002       |    |		.CONST	0x0002								; Number of locals
041b			INIT_0418:
041b 00ea       |    |		Load_Encached	Null_String_Cache
041c e402       |    |		Load	0x2,0x2
041d 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
041e e5fd       |    |		Load	0x2,-0x3
041f e009       |    |		Load	0x0,0x9
0420 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0421			BODY_0418:
0421 00d8       |    |		Load_Top	At_Offset_0
0422 01db       |    |		Execute	Vector,Length
0423 6803       |h   |		Jump_Zero	0x427
0424 00d8       |    |		Load_Top	At_Offset_0
0425 e5ff       |    |		Load	0x2,-0x1
0426 8216       |    |		Call	0x1,0x16
0427 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 0439       | 9  |		.CONST	0x0439								; Address of begin
0429 0004       |    |		.CONST	0x0004								; Address of exception handler
042a 0004       |    |		.CONST	0x0004								; Number of locals
042b			INIT_0428:
042b e404       |    |		Load	0x2,0x4
042c e007       |    |		Load	0x0,0x7
042d 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
042e 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
042f e40a       |    |		Load	0x2,0xa
0430 e403       |    |		Load	0x2,0x3
0431 00da       |    |		Load_Top	At_Offset_2
0432 e010       |    |		Load	0x0,0x10
0433 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0434 e001       |    |		Load	0x0,0x1
0435 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0436 00da       |    |		Load_Top	At_Offset_2
0437 e008       |    |		Load	0x0,0x8
0438 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0439			BODY_0428:
0439 4801       |H   |		Short_Literal	0x1
043a 00d9       |    |		Load_Top	At_Offset_1
043b 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
043c e003       |    |		Load	0x0,0x3
043d 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
043e 680d       |h   |		Jump_Zero	0x44c
043f e001       |    |		Load	0x0,0x1
0440 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0441 4807       |H   |		Short_Literal	0x7
0442 0092 0498  |    |		Action	Push_String_Extended,0x498					; "Error in getting the remote directory name for view "
0444 e602       |    |		Load	0x3,0x2
0445 01cc       |    |		Execute	Vector,Catenate
0446 e002       |    |		Load	0x0,0x2
0447 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0448 00d8       |    |		Load_Top	At_Offset_0
0449 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
044a c5fc       |    |		Store	0x2,-0x4
044b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
044c 4801       |H   |		Short_Literal	0x1
044d 00da       |    |		Load_Top	At_Offset_2
044e 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
044f e003       |    |		Load	0x0,0x3
0450 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0451 6810       |h   |		Jump_Zero	0x462
0452 e001       |    |		Load	0x0,0x1
0453 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0454 4807       |H   |		Short_Literal	0x7
0455 0092 0499  |    |		Action	Push_String_Extended,0x499					; "Error in getting the remote name for "
0457 e403       |    |		Load	0x2,0x3
0458 e007       |    |		Load	0x0,0x7
0459 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
045a 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
045b 01cc       |    |		Execute	Vector,Catenate
045c e002       |    |		Load	0x0,0x2
045d 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
045e 00d9       |    |		Load_Top	At_Offset_1
045f 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0460 c5fc       |    |		Store	0x2,-0x4
0461 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0462 e5fc       |    |		Load	0x2,-0x4
0463 00d9       |    |		Load_Top	At_Offset_1
0464 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0465 e403       |    |		Load	0x2,0x3
0466 e5ff       |    |		Load	0x2,-0x1
0467 821c       |    |		Call	0x1,0x1c
0468 c5fc       |    |		Store	0x2,-0x4
0469 e40a       |    |		Load	0x2,0xa
046a 00da       |    |		Load_Top	At_Offset_2
046b 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
046c e403       |    |		Load	0x2,0x3
046d e213       |    |		Load	0x1,0x13
046e 821b       |    |		Call	0x1,0x1b
046f e5ff       |    |		Load	0x2,-0x1
0470 8216       |    |		Call	0x1,0x16
0471 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0472 ; --------------------------------------------------------------------------------------
0472 ; STRING TABLE
0472 ; --------------------------------------------------------------------------------------
0472 0052       | R  |		.STRTAB	0x0052->0x049b							; "I386_Unix_Als_Xt"
0473 0060       | `  |		.STRTAB	0x0060->0x04a3							; "#~~Build_Script_Preprocess (Build_Via_Tape => "
0474 008c       |    |		.STRTAB	0x008c->0x04ba							; ", Link_Main_Units => "
0475 009f       |    |		.STRTAB	0x009f->0x04c4							; ", Remote_Machine => \x22"
0476 00b2       |    |		.STRTAB	0x00b2->0x04cf							; "\x22)"
0477 00b2       |    |		.STRTAB	0x00b2->0x04d0							; "Build_Script_Preprocess"
0478 00c7       |    |		.STRTAB	0x00c7->0x04db							; "Executing Build_Script_Postprocess"
0479 00e7       |    |		.STRTAB	0x00e7->0x04ec							; "Executing Execute_Script_Preprocess"
047a 0108       |    |		.STRTAB	0x0108->0x04fe							; "Executing Execute_Script_Postprocess"
047b 012a       | *  |		.STRTAB	0x012a->0x0510							; "Executing Upload_Associated_Files_Preprocess"
047c 0154       | T  |		.STRTAB	0x0154->0x0526							; "Executing Upload_Associated_Files_Postprocess"
047d 017f       |    |		.STRTAB	0x017f->0x053c							; "Batch file <= \x22"
047e 018c       |    |		.STRTAB	0x018c->0x0544							; "\x22"
047f 018b       |    |		.STRTAB	0x018b->0x0544							; " caught in "
0480 0194       |    |		.STRTAB	0x0194->0x054a							; "Unhandled exception "
0481 01a6       |    |		.STRTAB	0x01a6->0x0554							; "Error in getting the remote directory name for unit "
0482 01d8       |    |		.STRTAB	0x01d8->0x056e							; "'C(Main_Body)"
0483 01e3       |    |		.STRTAB	0x01e3->0x0574							; "=adalib"
0484 01e8       |    |		.STRTAB	0x01e8->0x0578							; "Error in parsing the compile command for unit "
0485 0214       |    |		.STRTAB	0x0214->0x058f							; "compile"
0486 0219       |    |		.STRTAB	0x0219->0x0592							; "Build_Batch_Compile_Command"
0487 0232       | 2  |		.STRTAB	0x0232->0x05a0							; "#~~ Prereqs"
0488 023b       | ;  |		.STRTAB	0x023b->0x05a5							; ": "
0489 023b       | ;  |		.STRTAB	0x023b->0x05a6							; "Generate_Acquire_Commands"
048a 0252       | R  |		.STRTAB	0x0252->0x05b3							; "Error in getting an object from its handle"
048b 027a       | z  |		.STRTAB	0x027a->0x05c8							; "Not generating compile commands for Primary "
048c 02a4       |    |		.STRTAB	0x02a4->0x05de							; "Generating compile commands for "
048d 02c2       |    |		.STRTAB	0x02c2->0x05ee							; "quit"
048e 02c4       |    |		.STRTAB	0x02c4->0x05f0							; "!"
048f 02c3       |    |		.STRTAB	0x02c3->0x05f0							; "ada <<!"
0490 02c8       |    |		.STRTAB	0x02c8->0x05f4							; "default.compile library=adalib"
0491 02e4       |    |		.STRTAB	0x02e4->0x0603							; "Generate_Compile_Commands"
0492 02fb       |    |		.STRTAB	0x02fb->0x060f							; "Generating the secondary commands for "
0493 031f       |    |		.STRTAB	0x031f->0x0622							; "Error while generating the secondary commands for Primary unit "
0494 035c       | \  |		.STRTAB	0x035c->0x0642							; "Generate_Secondary_Commands"
0495 0375       | u  |		.STRTAB	0x0375->0x064f							; "Generating link commands for "
0496 0390       |    |		.STRTAB	0x0390->0x065e							; "Error while generating the link commands for "
0497 03bb       |    |		.STRTAB	0x03bb->0x0674							; "Generate_Link_Commands"
0498 03cf       |    |		.STRTAB	0x03cf->0x067f							; "Error in getting the remote directory name for view "
0499 0401       |    |		.STRTAB	0x0401->0x0699							; "Error in getting the remote name for "
049a 0424       | $  |		.STREND 0x0424->0x06ac
049b 4933 3836  |I386|		.STRTAB_STRINGS
06ac 0000 0000  |    |		.BLANK	0000[0x4]
06b0 ; --------------------------------------------------------------------------------------
06b0 ; Debug Table
06b0 ; --------------------------------------------------------------------------------------
06b0 0004 0003  |    |		.DEBUG4	0x0004,0x0003,0xb8f3,0x0000,0x0001,0x0014
06b6 000b 0706  |    |		.DBG4T	0x000b,0x0706,0x8000,0x0000
06ba 0018 070e  |    |		.DBG4T	0x0018,0x070e,0x8000,0x8000
06be 0043 0736  | C 6|		.DBG4T	0x0043,0x0736,0x0001,0x0000
06c2 0093 0745  |   E|		.DBG4T	0x0093,0x0745,0x0001,0x0000
06c6 00a3 0749  |   I|		.DBG4T	0x00a3,0x0749,0x0001,0x0000
06ca 00b3 074d  |   M|		.DBG4T	0x00b3,0x074d,0x0001,0x0000
06ce 00c3 0751  |   Q|		.DBG4T	0x00c3,0x0751,0x0001,0x0000
06d2 00d3 0755  |   U|		.DBG4T	0x00d3,0x0755,0x0001,0x0000
06d6 00e3 0759  |   Y|		.DBG4T	0x00e3,0x0759,0x0001,0x0000
06da 00fb 075e  |   ^|		.DBG4T	0x00fb,0x075e,0x0001,0x0000
06de 010b 0761  |   a|		.DBG4T	0x010b,0x0761,0x0001,0x0000
06e2 0123 0764  | # d|		.DBG4T	0x0123,0x0764,0x0001,0x0000
06e6 0153 076c  | S l|		.DBG4T	0x0153,0x076c,0x0002,0x0000
06ea 017b 0775  | { u|		.DBG4T	0x017b,0x0775,0x0002,0x0000
06ee 01c3 0783  |    |		.DBG4T	0x01c3,0x0783,0x0001,0x0000
06f2 0253 079e  | S  |		.DBG4T	0x0253,0x079e,0x0001,0x4000
06f6 0313 07e1  |    |		.DBG4T	0x0313,0x07e1,0x0001,0x4000
06fa 039b 080b  |    |		.DBG4T	0x039b,0x080b,0x0001,0x4000
06fe 041b 0832  |   2|		.DBG4T	0x041b,0x0832,0x0004,0x0000
0702 042b 0837  | + 7|		.DBG4T	0x042b,0x0837,0x0004,0x0000
0706 ; --------------------------------------------------------------------------------------
0706 ; Debug chain
0706 ; --------------------------------------------------------------------------------------
0706 0006 0000  |    |		.DBGLEN	0x0006,0x0000
0708 000b 000d  |    |		.DBGLNO	0x000b,0x000d,0x000f,0x0011,0x0013,0x0015
070e ; --------------------------------------------------------------------------------------
070e ; Debug chain
070e ; --------------------------------------------------------------------------------------
070e 0013 0000  |    |		.DBGLEN	0x0013,0x0000
0710 0018 001a  |    |		.DBGLNO	0x0018,0x001a,0x001c,0x001e,0x0020,0x0022,0x0024,0x0026,0x0028,0x002a,0x002c,0x002e,0x0030,0x0032,0x0034,0x0036,0x0038,0x003a,0x003c
0723 000d 000e  |    |		.XXX[0x13]
0725 000f 0010  |    |
0727 0011 0012  |    |
0729 0013 0014  |    |
072b 0015 0016  |    |
072d 0017 0018  |    |
072f 0019 001a  |    |
0731 001b 001c  |    |
0733 001d 001e  |    |
0735 001f       |    |
0736 ; --------------------------------------------------------------------------------------
0736 ; Debug chain
0736 ; --------------------------------------------------------------------------------------
0736 0000 000d  |    |		.DBGLEN	0x0000,0x000d
0738 0043 005f  | C _|		.DBGLNO	0x0043,0x005f,0x0061,0x0062,0x0066,0x006c,0x0071,0x0072,0x0078,0x007d,0x007e,0x0080,0x0088
0745 ; --------------------------------------------------------------------------------------
0745 ; Debug chain
0745 ; --------------------------------------------------------------------------------------
0745 0000 0002  |    |		.DBGLEN	0x0000,0x0002
0747 0093 009a  |    |		.DBGLNO	0x0093,0x009a
0749 ; --------------------------------------------------------------------------------------
0749 ; Debug chain
0749 ; --------------------------------------------------------------------------------------
0749 0000 0002  |    |		.DBGLEN	0x0000,0x0002
074b 00a3 00aa  |    |		.DBGLNO	0x00a3,0x00aa
074d ; --------------------------------------------------------------------------------------
074d ; Debug chain
074d ; --------------------------------------------------------------------------------------
074d 0000 0002  |    |		.DBGLEN	0x0000,0x0002
074f 00b3 00ba  |    |		.DBGLNO	0x00b3,0x00ba
0751 ; --------------------------------------------------------------------------------------
0751 ; Debug chain
0751 ; --------------------------------------------------------------------------------------
0751 0000 0002  |    |		.DBGLEN	0x0000,0x0002
0753 00c3 00ca  |    |		.DBGLNO	0x00c3,0x00ca
0755 ; --------------------------------------------------------------------------------------
0755 ; Debug chain
0755 ; --------------------------------------------------------------------------------------
0755 0000 0002  |    |		.DBGLEN	0x0000,0x0002
0757 00d3 00da  |    |		.DBGLNO	0x00d3,0x00da
0759 ; --------------------------------------------------------------------------------------
0759 ; Debug chain
0759 ; --------------------------------------------------------------------------------------
0759 0000 0003  |    |		.DBGLEN	0x0000,0x0003
075b 00e3 00e5  |    |		.DBGLNO	0x00e3,0x00e5,0x00f1
075e ; --------------------------------------------------------------------------------------
075e ; Debug chain
075e ; --------------------------------------------------------------------------------------
075e 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0760 00fb       |    |		.DBGLNO	0x00fb
0761 ; --------------------------------------------------------------------------------------
0761 ; Debug chain
0761 ; --------------------------------------------------------------------------------------
0761 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0763 010b       |    |		.DBGLNO	0x010b
0764 ; --------------------------------------------------------------------------------------
0764 ; Debug chain
0764 ; --------------------------------------------------------------------------------------
0764 0001 0005  |    |		.DBGLEN	0x0001,0x0005
0766 0123 0132  | # 2|		.DBGLNO	0x0123,0x0132,0x0138,0x0144,0x0147,0x0148
076c ; --------------------------------------------------------------------------------------
076c ; Debug chain
076c ; --------------------------------------------------------------------------------------
076c 0002 0005  |    |		.DBGLEN	0x0002,0x0005
076e 0153 0157  | S W|		.DBGLNO	0x0153,0x0157,0x015d,0x0167,0x016d,0x016f,0x0172
0775 ; --------------------------------------------------------------------------------------
0775 ; Debug chain
0775 ; --------------------------------------------------------------------------------------
0775 0005 0007  |    |		.DBGLEN	0x0005,0x0007
0777 017b 0180  | {  |		.DBGLNO	0x017b,0x0180,0x0185,0x018b,0x018c,0x0191,0x0198,0x019a,0x01a6,0x01a8,0x01b8,0x01bd
0783 ; --------------------------------------------------------------------------------------
0783 ; Debug chain
0783 ; --------------------------------------------------------------------------------------
0783 0005 0014  |    |		.DBGLEN	0x0005,0x0014
0785 01c3 01d1  |    |		.DBGLNO	0x01c3,0x01d1,0x01d5,0x01da,0x01e4,0x01e8,0x01ef,0x01f0,0x01f5,0x01fc,0x01fd,0x0203,0x0206,0x0207,0x020a,0x0210,0x0215,0x022b,0x0231,0x0234,0x0235,0x023a,0x023d,0x0248,0x024d
079e ; --------------------------------------------------------------------------------------
079e ; Debug chain
079e ; --------------------------------------------------------------------------------------
079e 0009 001c  |    |		.DBGLEN	0x0009,0x001c
07a0 0253 0259  | S Y|		.DBGLNO	0x0253,0x0259,0x025e,0x0263,0x0269,0x026b,0x026d,0x026f,0x0272,0x027a,0x0280,0x0293,0x0295,0x029c,0x029d,0x02a3,0x02ab,0x02b2,0x02bf,0x02cb,0x02cf,0x02d1,0x02d5,0x02d9,0x02df,0x02e2,0x02e5,0x02e9,0x02ed,0x02ef,0x02f1,0x02f2,0x02f8,0x02fe,0x0300,0x0304,0x030a
07c5 0001 0003  |    |		.XXX[0x1c]
07c7 0004 0005  |    |
07c9 0006 0007  |    |
07cb 0008 0009  |    |
07cd 000a 000b  |    |
07cf 000c 000d  |    |
07d1 000e 000f  |    |
07d3 0010 0011  |    |
07d5 0012 0013  |    |
07d7 0014 0015  |    |
07d9 0016 0017  |    |
07db 0018 0002  |    |
07dd 0019 001a  |    |
07df 001b 001c  |    |
07e1 ; --------------------------------------------------------------------------------------
07e1 ; Debug chain
07e1 ; --------------------------------------------------------------------------------------
07e1 0004 0012  |    |		.DBGLEN	0x0004,0x0012
07e3 0313 0319  |    |		.DBGLNO	0x0313,0x0319,0x031e,0x0320,0x0322,0x0328,0x033b,0x033d,0x0344,0x0345,0x034e,0x0350,0x035c,0x0362,0x0367,0x0368,0x0371,0x0376,0x0382,0x0383,0x0389,0x0390
07f9 0001 0003  |    |		.XXX[0x12]
07fb 0004 0005  |    |
07fd 0006 0007  |    |
07ff 0008 0009  |    |
0801 000a 000b  |    |
0803 000c 000d  |    |
0805 000e 000f  |    |
0807 0010 0011  |    |
0809 0002 0012  |    |
080b ; --------------------------------------------------------------------------------------
080b ; Debug chain
080b ; --------------------------------------------------------------------------------------
080b 0003 0011  |    |		.DBGLEN	0x0003,0x0011
080d 039b 03a1  |    |		.DBGLNO	0x039b,0x03a1,0x03a6,0x03a8,0x03ae,0x03c1,0x03c3,0x03ca,0x03cb,0x03ce,0x03da,0x03e0,0x03e5,0x03e6,0x03ef,0x03f4,0x0400,0x0401,0x0407,0x040e
0821 0001 0003  |    |		.XXX[0x11]
0823 0004 0005  |    |
0825 0006 0007  |    |
0827 0008 0009  |    |
0829 000a 000b  |    |
082b 000c 000d  |    |
082d 000e 000f  |    |
082f 0010 0002  |    |
0831 0011       |    |
0832 ; --------------------------------------------------------------------------------------
0832 ; Debug chain
0832 ; --------------------------------------------------------------------------------------
0832 0001 0002  |    |		.DBGLEN	0x0001,0x0002
0834 041b 0421  |   !|		.DBGLNO	0x041b,0x0421,0x0424
0837 ; --------------------------------------------------------------------------------------
0837 ; Debug chain
0837 ; --------------------------------------------------------------------------------------
0837 0003 0008  |    |		.DBGLEN	0x0003,0x0008
0839 042b 042f  | + /|		.DBGLNO	0x042b,0x042f,0x0434,0x0439,0x043f,0x0448,0x044c,0x0452,0x045e,0x0462,0x0469
0844 0000 0000  |    |		.BLANK	0000[0x1bc]