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

⟦feda37af0⟧

    Length: 1024 (0x400)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6a18da

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 01d8       |    |		.CONST	0x01d8								; 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 8001       |    |		.CONST	0x8001								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0035       | 5  |		.CONST	0x0035								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 001c       |    |		.CONST	0x001c								; Number of locals
000b			INIT_0008:
000b 4800       |H   |		Short_Literal	0x0
000c 4801       |H   |		Short_Literal	0x1
000d 029f 003b  |   ;|		Declare_Subprogram	INIT_0038,For_Call
000f 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0010 4800       |H   |		Short_Literal	0x0
0011 4803       |H   |		Short_Literal	0x3
0012 029f 0063  |   c|		Declare_Subprogram	INIT_0060,For_Call
0014 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0015 00c4       |    |		Action	Make_Default
0016 00c4       |    |		Action	Make_Default
0017 00c4       |    |		Action	Make_Default
0018 00c4       |    |		Action	Make_Default
0019 00c4       |    |		Action	Make_Default
001a 00c4       |    |		Action	Make_Default
001b 00c4       |    |		Action	Make_Default
001c 00c4       |    |		Action	Make_Default
001d 00c4       |    |		Action	Make_Default
001e 00c4       |    |		Action	Make_Default
001f 00c4       |    |		Action	Make_Default
0020 00c4       |    |		Action	Make_Default
0021 029a 008b  |    |		Declare_Subprogram	INIT_0088,For_Outer_Call,Visible,Unelaborated
0023 c218       |    |		Store	0x1,0x18
0024 029a 00ab  |    |		Declare_Subprogram	INIT_00a8,For_Outer_Call,Visible,Unelaborated
0026 c219       |    |		Store	0x1,0x19
0027 029a 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Outer_Call,Visible,Unelaborated
0029 c21a       |    |		Store	0x1,0x1a
002a 00bf       |    |		Action	Accept_Activation
002b 029d 013b  |   ;|		Declare_Subprogram	INIT_0138,For_Outer_Call
002d 029d 014b  |   K|		Declare_Subprogram	INIT_0148,For_Outer_Call
002f 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0030 00c7       |    |		Action	Elaborate_Subprogram
0031 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0032 00c7       |    |		Action	Elaborate_Subprogram
0033 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0034 00c7       |    |		Action	Elaborate_Subprogram
0035			BODY_0008:
0035 00bc       |    |		Action	Signal_Activated
0036 00bb       |    |		Action	Signal_Completion
0037 0000       |    |		.XXX[0x1]
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 003b       | ;  |		.CONST	0x003b								; Address of begin
0039 0004       |    |		.CONST	0x0004								; Address of exception handler
003a 0001       |    |		.CONST	0x0001								; Number of locals
003b			BODY_0038:
003b			INIT_0038:
003b 4607       |F   |		Jump_Case	0x8
003c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
003d 7806       |x   |		Jump	0x44								; case 0x1
003e 7809       |x   |		Jump	0x48								; case 0x2
003f 780d       |x   |		Jump	0x4d								; case 0x3
0040 7810       |x   |		Jump	0x51								; case 0x4
0041 7811       |x   |		Jump	0x53								; case 0x5
0042 7812       |x   |		Jump	0x55								; case 0x6
0043 7815       |x   |		Jump	0x59								; case 0x7
0044 00da       |    |		Load_Top	At_Offset_2
0045 0091 0195  |    |		Action	Push_String_Extended_Indexed,0x195				; "STATUS_COMMAND"
0047 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0048 00db       |    |		Load_Top	At_Offset_3
0049 00db       |    |		Load_Top	At_Offset_3
004a 00e0       |    |		Load_Encached	Standard_Cache
004b 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
004c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
004d 00da       |    |		Load_Top	At_Offset_2
004e 00e0       |    |		Load_Encached	Standard_Cache
004f 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0050 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0051 00db       |    |		Load_Top	At_Offset_3
0052 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0053 00db       |    |		Load_Top	At_Offset_3
0054 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0055 e20d       |    |		Load	0x1,0xd
0056 00dc       |    |		Load_Top	At_Offset_4
0057 0267       | g  |		Execute	Discrete,Predecessor
0058 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0059 e20d       |    |		Load	0x1,0xd
005a 00dc       |    |		Load_Top	At_Offset_4
005b 0268       | h  |		Execute	Discrete,Successor
005c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
005d 0000 0000  |    |		.XXX[0x3]
005f 0000       |    |
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0063       | c  |		.CONST	0x0063								; Address of begin
0061 0004       |    |		.CONST	0x0004								; Address of exception handler
0062 0001       |    |		.CONST	0x0001								; Number of locals
0063			BODY_0060:
0063			INIT_0060:
0063 4607       |F   |		Jump_Case	0x8
0064 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0065 7806       |x   |		Jump	0x6c								; case 0x1
0066 7809       |x   |		Jump	0x70								; case 0x2
0067 780d       |x   |		Jump	0x75								; case 0x3
0068 7810       |x   |		Jump	0x79								; case 0x4
0069 7811       |x   |		Jump	0x7b								; case 0x5
006a 7812       |x   |		Jump	0x7d								; case 0x6
006b 7815       |x   |		Jump	0x81								; case 0x7
006c 00da       |    |		Load_Top	At_Offset_2
006d 0091 0197  |    |		Action	Push_String_Extended_Indexed,0x197				; "SUCCESS"
006f 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0070 00db       |    |		Load_Top	At_Offset_3
0071 00db       |    |		Load_Top	At_Offset_3
0072 00e0       |    |		Load_Encached	Standard_Cache
0073 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0074 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0075 00da       |    |		Load_Top	At_Offset_2
0076 00e0       |    |		Load_Encached	Standard_Cache
0077 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0078 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0079 00db       |    |		Load_Top	At_Offset_3
007a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
007b 00db       |    |		Load_Top	At_Offset_3
007c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
007d e20e       |    |		Load	0x1,0xe
007e 00dc       |    |		Load_Top	At_Offset_4
007f 0267       | g  |		Execute	Discrete,Predecessor
0080 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0081 e20e       |    |		Load	0x1,0xe
0082 00dc       |    |		Load_Top	At_Offset_4
0083 0268       | h  |		Execute	Discrete,Successor
0084 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0085 0000 0000  |    |		.XXX[0x3]
0087 0000       |    |
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 0097       |    |		.CONST	0x0097								; Address of begin
0089 0004       |    |		.CONST	0x0004								; Address of exception handler
008a 0004       |    |		.CONST	0x0004								; Number of locals
008b			INIT_0088:
008b e20e       |    |		Load	0x1,0xe
008c 0007       |    |		Action	Break_Optional
008d 00e3       |    |		Load_Encached	Natural_Cache
008e 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
008f 0092 019b  |    |		Action	Push_String_Extended,0x19b					; " "
0091 4820       |H   |		Short_Literal	0x20
0092 e5ff       |    |		Load	0x2,-0x1
0093 e001       |    |		Load	0x0,0x1
0094 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0095 01cc       |    |		Execute	Vector,Catenate
0096 0007       |    |		Action	Break_Optional
0097			BODY_0088:
0097 e5fd       |    |		Load	0x2,-0x3
0098 e5fe       |    |		Load	0x2,-0x2
0099 e5ff       |    |		Load	0x2,-0x1
009a 821b       |    |		Call	0x1,0x1b
009b 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
009c 00da       |    |		Load_Top	At_Offset_2
009d 7005       |p   |		Jump_Nonzero	0xa3
009e e5fd       |    |		Load	0x2,-0x3
009f e5fe       |    |		Load	0x2,-0x2
00a0 e5ff       |    |		Load	0x2,-0x1
00a1 821c       |    |		Call	0x1,0x1c
00a2 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
00a3 00da       |    |		Load_Top	At_Offset_2
00a4 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
00a5 0000 0000  |    |		.XXX[0x3]
00a7 0000       |    |
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab       |    |		.CONST	0x00ab								; Address of begin
00a9 0004       |    |		.CONST	0x0004								; Address of exception handler
00aa 0001       |    |		.CONST	0x0001								; Number of locals
00ab			BODY_00a8:
00ab			INIT_00a8:
00ab 00db       |    |		Load_Top	At_Offset_3
00ac 0f01       |    |		Execute_Immediate	Equal,0x1
00ad 7005       |p   |		Jump_Nonzero	0xb3
00ae e5fc       |    |		Load	0x2,-0x4
00af e5fd       |    |		Load	0x2,-0x3
00b0 e5ff       |    |		Load	0x2,-0x1
00b1 821a       |    |		Call	0x1,0x1a
00b2 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
00b3 e5fc       |    |		Load	0x2,-0x4
00b4 e5fd       |    |		Load	0x2,-0x3
00b5 e5ff       |    |		Load	0x2,-0x1
00b6 8218       |    |		Call	0x1,0x18
00b7 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00c6       |    |		.CONST	0x00c6								; Address of begin
00b9 0125       | %  |		.CONST	0x0125								; Address of exception handler
00ba 0007       |    |		.CONST	0x0007								; Number of locals
00bb			INIT_00b8:
00bb 00e3       |    |		Load_Encached	Natural_Cache
00bc 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
00bd 480a       |H   |		Short_Literal	0xa
00be e5ff       |    |		Load	0x2,-0x1
00bf e001       |    |		Load	0x0,0x1
00c0 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00c1 00e3       |    |		Load_Encached	Natural_Cache
00c2 00e1       |    |		Load_Encached	Boolean_Cache
00c3 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
00c4 00e2       |    |		Load_Encached	Integer_Cache
00c5 00e2       |    |		Load_Encached	Integer_Cache
00c6			BODY_00b8:
00c6 e5fe       |    |		Load	0x2,-0x2
00c7 e002       |    |		Load	0x0,0x2
00c8 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
00c9 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
00ca e5fe       |    |		Load	0x2,-0x2
00cb e002       |    |		Load	0x0,0x2
00cc 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
00cd 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
00ce 00d8       |    |		Load_Top	At_Offset_0
00cf 7002       |p   |		Jump_Nonzero	0xd2
00d0 4801       |H   |		Short_Literal	0x1
00d1 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
00d2 e403       |    |		Load	0x2,0x3
00d3 01db       |    |		Execute	Vector,Length
00d4 00da       |    |		Load_Top	At_Offset_2
00d5 00da       |    |		Load_Top	At_Offset_2
00d6 0273       | s  |		Execute	Discrete,Plus
00d7 0aff       |    |		Execute_Immediate	Plus,-0x1
00d8 027c       | |  |		Execute	Discrete,Less
00d9 6802       |h   |		Jump_Zero	0xdc
00da 4800       |H   |		Short_Literal	0x0
00db 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
00dc e5fd       |    |		Load	0x2,-0x3
00dd 0f00       |    |		Execute_Immediate	Equal,0x0
00de e5fd       |    |		Load	0x2,-0x3
00df 0e01       |    |		Execute_Immediate	Not_Equal,0x1
00e0 0278       | x  |		Execute	Discrete,Or
00e1 681d       |h   |		Jump_Zero	0xff
00e2 00e1       |    |		Load_Encached	Boolean_Cache
00e3 00e2       |    |		Load_Encached	Integer_Cache
00e4 480a       |H   |		Short_Literal	0xa
00e5 e406       |    |		Load	0x2,0x6
00e6 00d8       |    |		Load_Top	At_Offset_0
00e7 e407       |    |		Load	0x2,0x7
00e8 0273       | s  |		Execute	Discrete,Plus
00e9 0aff       |    |		Execute_Immediate	Plus,-0x1
00ea 00d8       |    |		Load_Top	At_Offset_0
00eb 00e2       |    |		Load_Encached	Integer_Cache
00ec 0260       | `  |		Execute	Discrete,In_Type
00ed 7001       |p   |		Jump_Nonzero	0xef
00ee 0801       |    |		Execute_Immediate	Raise,0x1
00ef e5ff       |    |		Load	0x2,-0x1
00f0 01cf       |    |		Execute	Vector,Slice_Read
00f1 e001       |    |		Load	0x0,0x1
00f2 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00f3 c404       |    |		Store	0x2,0x4
00f4 005b       | [  |		Store_Top	Discrete,At_Offset_3
00f5 00da       |    |		Load_Top	At_Offset_2
00f6 6806       |h   |		Jump_Zero	0xfd
00f7 00db       |    |		Load_Top	At_Offset_3
00f8 7002       |p   |		Jump_Nonzero	0xfb
00f9 4800       |H   |		Short_Literal	0x0
00fa 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
00fb 4802       |H   |		Short_Literal	0x2
00fc 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
00fd 4800       |H   |		Short_Literal	0x0
00fe 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
00ff e5fd       |    |		Load	0x2,-0x3
0100 0f01       |    |		Execute_Immediate	Equal,0x1
0101 6821       |h!  |		Jump_Zero	0x123
0102 00e1       |    |		Load_Encached	Boolean_Cache
0103 00e2       |    |		Load_Encached	Integer_Cache
0104 480a       |H   |		Short_Literal	0xa
0105 e406       |    |		Load	0x2,0x6
0106 00d8       |    |		Load_Top	At_Offset_0
0107 e407       |    |		Load	0x2,0x7
0108 0273       | s  |		Execute	Discrete,Plus
0109 0aff       |    |		Execute_Immediate	Plus,-0x1
010a 00d8       |    |		Load_Top	At_Offset_0
010b 00e2       |    |		Load_Encached	Integer_Cache
010c 0260       | `  |		Execute	Discrete,In_Type
010d 7001       |p   |		Jump_Nonzero	0x10f
010e 0801       |    |		Execute_Immediate	Raise,0x1
010f e5ff       |    |		Load	0x2,-0x1
0110 01cf       |    |		Execute	Vector,Slice_Read
0111 e001       |    |		Load	0x0,0x1
0112 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0113 c404       |    |		Store	0x2,0x4
0114 005b       | [  |		Store_Top	Discrete,At_Offset_3
0115 00da       |    |		Load_Top	At_Offset_2
0116 680a       |h   |		Jump_Zero	0x121
0117 00db       |    |		Load_Top	At_Offset_3
0118 0e02       |    |		Execute_Immediate	Not_Equal,0x2
0119 6805       |h   |		Jump_Zero	0x11f
011a 00db       |    |		Load_Top	At_Offset_3
011b 0e04       |    |		Execute_Immediate	Not_Equal,0x4
011c 6802       |h   |		Jump_Zero	0x11f
011d 4800       |H   |		Short_Literal	0x0
011e 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
011f 4802       |H   |		Short_Literal	0x2
0120 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0121 4800       |H   |		Short_Literal	0x0
0122 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0123 4800       |H   |		Short_Literal	0x0
0124 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0125			TRAP_00b8:
0125 010e       |    |		Execute	Exception,Is_Constraint_Error
0126 6809       |h   |		Jump_Zero	0x130
0127 e003       |    |		Load	0x0,0x3
0128 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0129 4806       |H   |		Short_Literal	0x6
012a 0092 019c  |    |		Action	Push_String_Extended,0x19c					; "Unexpected output for compilation success check"
012c e004       |    |		Load	0x0,0x4
012d 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
012e 4801       |H   |		Short_Literal	0x1
012f 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0130 0100       |    |		Execute	Exception,Raise
0131 0000 0000  |    |		.BLANK	0000[0x7]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013d       | =  |		.CONST	0x013d								; Address of begin
0139 0004       |    |		.CONST	0x0004								; Address of exception handler
013a 0002       |    |		.CONST	0x0002								; Number of locals
013b			INIT_0138:
013b 029f 015b  |   [|		Declare_Subprogram	INIT_0158,For_Call
013d			BODY_0138:
013d e5fe       |    |		Load	0x2,-0x2
013e e002       |    |		Load	0x0,0x2
013f 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0140 6801       |h   |		Jump_Zero	0x142
0141 8402       |    |		Call	0x2,0x2
0142 4800       |H   |		Short_Literal	0x0
0143 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0144 0000 0000  |    |		.BLANK	0000[0x4]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014d       | M  |		.CONST	0x014d								; Address of begin
0149 0004       |    |		.CONST	0x0004								; Address of exception handler
014a 0002       |    |		.CONST	0x0002								; Number of locals
014b			INIT_0148:
014b 029f 017b  |   {|		Declare_Subprogram	INIT_0178,For_Call
014d			BODY_0148:
014d e5fe       |    |		Load	0x2,-0x2
014e e002       |    |		Load	0x0,0x2
014f 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0150 6801       |h   |		Jump_Zero	0x152
0151 8402       |    |		Call	0x2,0x2
0152 4800       |H   |		Short_Literal	0x0
0153 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0154 0000 0000  |    |		.BLANK	0000[0x4]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015e       | ^  |		.CONST	0x015e								; Address of begin
0159 0004       |    |		.CONST	0x0004								; Address of exception handler
015a 0002       |    |		.CONST	0x0002								; Number of locals
015b			INIT_0158:
015b e5fe       |    |		Load	0x2,-0x2
015c e002       |    |		Load	0x0,0x2
015d 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
015e			BODY_0158:
015e 00cf       |    |		Action	Mark_Auxiliary
015f 00d9       |    |		Load_Top	At_Offset_1
0160 01dc       |    |		Execute	Vector,Last
0161 00da       |    |		Load_Top	At_Offset_2
0162 01dd       |    |		Execute	Vector,First
0163 0263       | c  |		Execute	Discrete,Above_Bound
0164 700f       |p   |		Jump_Nonzero	0x174
0165 4801       |H   |		Short_Literal	0x1
0166 e5ff       |    |		Load	0x2,-0x1
0167 00da       |    |		Load_Top	At_Offset_2
0168 e602       |    |		Load	0x3,0x2
0169 01d7       |    |		Execute	Vector,Field_Read
016a e002       |    |		Load	0x0,0x2
016b 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
016c e001       |    |		Load	0x0,0x1
016d 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
016e 6803       |h   |		Jump_Zero	0x172
016f 4802       |H   |		Short_Literal	0x2
0170 00cb       |    |		Action	Pop_Block_With_Result
0171 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0172 00c8       |    |		Action	Pop_Auxiliary_Range
0173 3ff1       |?   |		Loop_Increasing	0x165
0174 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0175 0000 0000  |    |		.XXX[0x3]
0177 0000       |    |
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017e       | ~  |		.CONST	0x017e								; Address of begin
0179 0004       |    |		.CONST	0x0004								; Address of exception handler
017a 0002       |    |		.CONST	0x0002								; Number of locals
017b			INIT_0178:
017b e5fe       |    |		Load	0x2,-0x2
017c e002       |    |		Load	0x0,0x2
017d 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
017e			BODY_0178:
017e 00cf       |    |		Action	Mark_Auxiliary
017f 00d9       |    |		Load_Top	At_Offset_1
0180 01dc       |    |		Execute	Vector,Last
0181 00da       |    |		Load_Top	At_Offset_2
0182 01dd       |    |		Execute	Vector,First
0183 0263       | c  |		Execute	Discrete,Above_Bound
0184 700f       |p   |		Jump_Nonzero	0x194
0185 4801       |H   |		Short_Literal	0x1
0186 e5ff       |    |		Load	0x2,-0x1
0187 00da       |    |		Load_Top	At_Offset_2
0188 e602       |    |		Load	0x3,0x2
0189 01d7       |    |		Execute	Vector,Field_Read
018a e002       |    |		Load	0x0,0x2
018b 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
018c e001       |    |		Load	0x0,0x1
018d 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
018e 6803       |h   |		Jump_Zero	0x192
018f 4801       |H   |		Short_Literal	0x1
0190 00cb       |    |		Action	Pop_Block_With_Result
0191 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0192 00c8       |    |		Action	Pop_Auxiliary_Range
0193 3ff1       |?   |		Loop_Increasing	0x185
0194 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0195 ; --------------------------------------------------------------------------------------
0195 ; STRING TABLE
0195 ; --------------------------------------------------------------------------------------
0195 0012       |    |		.STRTAB	0x0012->0x019e							; "STATUS_COMMAND"
0196 001e       |    |		.STRTAB	0x001e->0x01a5							; "REMOTE_COMMAND"
0197 002a       | *  |		.STRTAB	0x002a->0x01ac							; "SUCCESS"
0198 002f       | /  |		.STRTAB	0x002f->0x01af							; "WARNING"
0199 0034       | 4  |		.STRTAB	0x0034->0x01b3							; "ERROR"
019a 0037       | 7  |		.STRTAB	0x0037->0x01b5							; "FATAL_ERROR"
019b 0040       | @  |		.STRTAB	0x0040->0x01bb							; " "
019c 003f       | ?  |		.STRTAB	0x003f->0x01bb							; "Unexpected output for compilation success check"
019d 006c       | l  |		.STREND 0x006c->0x01d3
019e 5354 4154  |STAT|		.STRTAB_STRINGS
01d3 0000 0000  |    |		.BLANK	0000[0x5]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; Debug Table
01d8 ; --------------------------------------------------------------------------------------
01d8 0004 000c  |    |		.DEBUG4	0x0004,0x000c,0x330c,0x0000,0x0001,0x0000
01de 1000 0000  |    |		.XXX[0x22]
01e0 013b 1700  | ;  |
01e2 3749 4000  |7I@ |
01e4 0000 0160  |   `|
01e6 400b d714  |@   |
01e8 0070 cdc1  | p  |
01ea 0f00 65d3  |  e |
01ec 0003 8560  |   `|
01ee 00df 2300  |  # |
01f0 37ff c000  |7   |
01f2 3282 d003  |2   |
01f4 7a64 00df  |zd  |
01f6 a900 2800  |  ( |
01f8 0037 ffc0  | 7  |
01fa 01c0 4007  |  @ |
01fc 0000 0000  |    |
01fe 0001 a671  |   q|