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

⟦eb03fb003⟧

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

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 01f8       |    |		.CONST	0x01f8								; 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 0056       | V  |		.CONST	0x0056								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 001e       |    |		.CONST	0x001e								; Number of locals
000b			INIT_0008:
000b 4800       |H   |		Short_Literal	0x0
000c 4801       |H   |		Short_Literal	0x1
000d 029f 005b  |   [|		Declare_Subprogram	INIT_0058,For_Call
000f 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0010 4800       |H   |		Short_Literal	0x0
0011 4803       |H   |		Short_Literal	0x3
0012 029f 0083  |    |		Declare_Subprogram	INIT_0080,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 00ab  |    |		Declare_Subprogram	INIT_00a8,For_Outer_Call,Visible,Unelaborated
0023 c218       |    |		Store	0x1,0x18
0024 029a 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Outer_Call,Visible,Unelaborated
0026 c219       |    |		Store	0x1,0x19
0027 029a 00db  |    |		Declare_Subprogram	INIT_00d8,For_Outer_Call,Visible,Unelaborated
0029 c21a       |    |		Store	0x1,0x1a
002a 00bf       |    |		Action	Accept_Activation
002b 4800       |H   |		Short_Literal	0x0
002c 4804       |H   |		Short_Literal	0x4
002d e20e       |    |		Load	0x1,0xe
002e 02a0       |    |		Declare_Subprogram	Null_Subprogram
002f 4801       |H   |		Short_Literal	0x1
0030 035d       | ]  |		Declare_Type	Array,Defined
0031 00d8       |    |		Load_Top	At_Offset_0
0032 0337       | 7  |		Declare_Variable	Array
0033 00d8       |    |		Load_Top	At_Offset_0
0034 0335       | 5  |		Declare_Variable	Array,Duplicate
0035 00cd       |    |		Action	Spare6_Action
0036 4801       |H   |		Short_Literal	0x1
0037 4800       |H   |		Short_Literal	0x0
0038 00da       |    |		Load_Top	At_Offset_2
0039 01d6       |    |		Execute	Vector,Field_Write
003a 4800       |H   |		Short_Literal	0x0
003b 4801       |H   |		Short_Literal	0x1
003c 00da       |    |		Load_Top	At_Offset_2
003d 01d6       |    |		Execute	Vector,Field_Write
003e 4802       |H   |		Short_Literal	0x2
003f 4802       |H   |		Short_Literal	0x2
0040 00da       |    |		Load_Top	At_Offset_2
0041 01d6       |    |		Execute	Vector,Field_Write
0042 4801       |H   |		Short_Literal	0x1
0043 4803       |H   |		Short_Literal	0x3
0044 00da       |    |		Load_Top	At_Offset_2
0045 01d6       |    |		Execute	Vector,Field_Write
0046 4803       |H   |		Short_Literal	0x3
0047 4804       |H   |		Short_Literal	0x4
0048 00da       |    |		Load_Top	At_Offset_2
0049 01d6       |    |		Execute	Vector,Field_Write
004a 00d9       |    |		Load_Top	At_Offset_1
004b 01d4       |    |		Execute	Vector,Structure_Write
004c 029d 015b  |   [|		Declare_Subprogram	INIT_0158,For_Outer_Call
004e 029d 016b  |   k|		Declare_Subprogram	INIT_0168,For_Outer_Call
0050 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0051 00c7       |    |		Action	Elaborate_Subprogram
0052 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0053 00c7       |    |		Action	Elaborate_Subprogram
0054 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0055 00c7       |    |		Action	Elaborate_Subprogram
0056			BODY_0008:
0056 00bc       |    |		Action	Signal_Activated
0057 00bb       |    |		Action	Signal_Completion
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b       | [  |		.CONST	0x005b								; Address of begin
0059 0004       |    |		.CONST	0x0004								; Address of exception handler
005a 0001       |    |		.CONST	0x0001								; Number of locals
005b			BODY_0058:
005b			INIT_0058:
005b 4607       |F   |		Jump_Case	0x8
005c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
005d 7806       |x   |		Jump	0x64								; case 0x1
005e 7809       |x   |		Jump	0x68								; case 0x2
005f 780d       |x   |		Jump	0x6d								; case 0x3
0060 7810       |x   |		Jump	0x71								; case 0x4
0061 7811       |x   |		Jump	0x73								; case 0x5
0062 7812       |x   |		Jump	0x75								; case 0x6
0063 7815       |x   |		Jump	0x79								; case 0x7
0064 00da       |    |		Load_Top	At_Offset_2
0065 0091 01b5  |    |		Action	Push_String_Extended_Indexed,0x1b5				; "STATUS_COMMAND"
0067 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0068 00db       |    |		Load_Top	At_Offset_3
0069 00db       |    |		Load_Top	At_Offset_3
006a 00e0       |    |		Load_Encached	Standard_Cache
006b 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
006c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
006d 00da       |    |		Load_Top	At_Offset_2
006e 00e0       |    |		Load_Encached	Standard_Cache
006f 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0070 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0071 00db       |    |		Load_Top	At_Offset_3
0072 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0073 00db       |    |		Load_Top	At_Offset_3
0074 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0075 e20d       |    |		Load	0x1,0xd
0076 00dc       |    |		Load_Top	At_Offset_4
0077 0267       | g  |		Execute	Discrete,Predecessor
0078 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0079 e20d       |    |		Load	0x1,0xd
007a 00dc       |    |		Load_Top	At_Offset_4
007b 0268       | h  |		Execute	Discrete,Successor
007c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
007d 0000 0000  |    |		.XXX[0x3]
007f 0000       |    |
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083       |    |		.CONST	0x0083								; Address of begin
0081 0004       |    |		.CONST	0x0004								; Address of exception handler
0082 0001       |    |		.CONST	0x0001								; Number of locals
0083			BODY_0080:
0083			INIT_0080:
0083 4607       |F   |		Jump_Case	0x8
0084 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0085 7806       |x   |		Jump	0x8c								; case 0x1
0086 7809       |x   |		Jump	0x90								; case 0x2
0087 780d       |x   |		Jump	0x95								; case 0x3
0088 7810       |x   |		Jump	0x99								; case 0x4
0089 7811       |x   |		Jump	0x9b								; case 0x5
008a 7812       |x   |		Jump	0x9d								; case 0x6
008b 7815       |x   |		Jump	0xa1								; case 0x7
008c 00da       |    |		Load_Top	At_Offset_2
008d 0091 01b7  |    |		Action	Push_String_Extended_Indexed,0x1b7				; "SUCCESS"
008f 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0090 00db       |    |		Load_Top	At_Offset_3
0091 00db       |    |		Load_Top	At_Offset_3
0092 00e0       |    |		Load_Encached	Standard_Cache
0093 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0094 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0095 00da       |    |		Load_Top	At_Offset_2
0096 00e0       |    |		Load_Encached	Standard_Cache
0097 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0098 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0099 00db       |    |		Load_Top	At_Offset_3
009a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
009b 00db       |    |		Load_Top	At_Offset_3
009c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
009d e20e       |    |		Load	0x1,0xe
009e 00dc       |    |		Load_Top	At_Offset_4
009f 0267       | g  |		Execute	Discrete,Predecessor
00a0 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00a1 e20e       |    |		Load	0x1,0xe
00a2 00dc       |    |		Load_Top	At_Offset_4
00a3 0268       | h  |		Execute	Discrete,Successor
00a4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00a5 0000 0000  |    |		.XXX[0x3]
00a7 0000       |    |
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00b7       |    |		.CONST	0x00b7								; Address of begin
00a9 0004       |    |		.CONST	0x0004								; Address of exception handler
00aa 0004       |    |		.CONST	0x0004								; Number of locals
00ab			INIT_00a8:
00ab e20e       |    |		Load	0x1,0xe
00ac 0007       |    |		Action	Break_Optional
00ad 00e3       |    |		Load_Encached	Natural_Cache
00ae 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
00af 0092 01bb  |    |		Action	Push_String_Extended,0x1bb					; " "
00b1 4820       |H   |		Short_Literal	0x20
00b2 e5ff       |    |		Load	0x2,-0x1
00b3 e001       |    |		Load	0x0,0x1
00b4 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00b5 01cc       |    |		Execute	Vector,Catenate
00b6 0007       |    |		Action	Break_Optional
00b7			BODY_00a8:
00b7 e5fd       |    |		Load	0x2,-0x3
00b8 e5fe       |    |		Load	0x2,-0x2
00b9 e5ff       |    |		Load	0x2,-0x1
00ba 821d       |    |		Call	0x1,0x1d
00bb 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
00bc 00da       |    |		Load_Top	At_Offset_2
00bd 7005       |p   |		Jump_Nonzero	0xc3
00be e5fd       |    |		Load	0x2,-0x3
00bf e5fe       |    |		Load	0x2,-0x2
00c0 e5ff       |    |		Load	0x2,-0x1
00c1 821e       |    |		Call	0x1,0x1e
00c2 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
00c3 00da       |    |		Load_Top	At_Offset_2
00c4 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
00c5 0000 0000  |    |		.XXX[0x3]
00c7 0000       |    |
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb       |    |		.CONST	0x00cb								; Address of begin
00c9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ca 0001       |    |		.CONST	0x0001								; Number of locals
00cb			BODY_00c8:
00cb			INIT_00c8:
00cb 00db       |    |		Load_Top	At_Offset_3
00cc 0f01       |    |		Execute_Immediate	Equal,0x1
00cd 7005       |p   |		Jump_Nonzero	0xd3
00ce e5fc       |    |		Load	0x2,-0x4
00cf e5fd       |    |		Load	0x2,-0x3
00d0 e5ff       |    |		Load	0x2,-0x1
00d1 821a       |    |		Call	0x1,0x1a
00d2 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
00d3 e5fc       |    |		Load	0x2,-0x4
00d4 e5fd       |    |		Load	0x2,-0x3
00d5 e5ff       |    |		Load	0x2,-0x1
00d6 8218       |    |		Call	0x1,0x18
00d7 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00e6       |    |		.CONST	0x00e6								; Address of begin
00d9 0147       | G  |		.CONST	0x0147								; Address of exception handler
00da 0007       |    |		.CONST	0x0007								; Number of locals
00db			INIT_00d8:
00db 00e3       |    |		Load_Encached	Natural_Cache
00dc 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
00dd 480a       |H   |		Short_Literal	0xa
00de e5ff       |    |		Load	0x2,-0x1
00df e001       |    |		Load	0x0,0x1
00e0 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00e1 00e3       |    |		Load_Encached	Natural_Cache
00e2 00e1       |    |		Load_Encached	Boolean_Cache
00e3 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
00e4 00e2       |    |		Load_Encached	Integer_Cache
00e5 00e2       |    |		Load_Encached	Integer_Cache
00e6			BODY_00d8:
00e6 e5fe       |    |		Load	0x2,-0x2
00e7 e002       |    |		Load	0x0,0x2
00e8 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
00e9 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
00ea e5fe       |    |		Load	0x2,-0x2
00eb e002       |    |		Load	0x0,0x2
00ec 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
00ed 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
00ee 00d8       |    |		Load_Top	At_Offset_0
00ef 7002       |p   |		Jump_Nonzero	0xf2
00f0 4801       |H   |		Short_Literal	0x1
00f1 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
00f2 e403       |    |		Load	0x2,0x3
00f3 01db       |    |		Execute	Vector,Length
00f4 00da       |    |		Load_Top	At_Offset_2
00f5 00da       |    |		Load_Top	At_Offset_2
00f6 0273       | s  |		Execute	Discrete,Plus
00f7 0aff       |    |		Execute_Immediate	Plus,-0x1
00f8 027c       | |  |		Execute	Discrete,Less
00f9 6802       |h   |		Jump_Zero	0xfc
00fa 4800       |H   |		Short_Literal	0x0
00fb 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
00fc e5fd       |    |		Load	0x2,-0x3
00fd 0f00       |    |		Execute_Immediate	Equal,0x0
00fe e5fd       |    |		Load	0x2,-0x3
00ff 0e01       |    |		Execute_Immediate	Not_Equal,0x1
0100 0278       | x  |		Execute	Discrete,Or
0101 681d       |h   |		Jump_Zero	0x11f
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 6806       |h   |		Jump_Zero	0x11d
0117 00db       |    |		Load_Top	At_Offset_3
0118 7002       |p   |		Jump_Nonzero	0x11b
0119 4800       |H   |		Short_Literal	0x0
011a 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
011b 4802       |H   |		Short_Literal	0x2
011c 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
011d 4800       |H   |		Short_Literal	0x0
011e 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
011f e5fd       |    |		Load	0x2,-0x3
0120 0f01       |    |		Execute_Immediate	Equal,0x1
0121 6823       |h#  |		Jump_Zero	0x145
0122 00e1       |    |		Load_Encached	Boolean_Cache
0123 00e2       |    |		Load_Encached	Integer_Cache
0124 480a       |H   |		Short_Literal	0xa
0125 e406       |    |		Load	0x2,0x6
0126 00d8       |    |		Load_Top	At_Offset_0
0127 e407       |    |		Load	0x2,0x7
0128 0273       | s  |		Execute	Discrete,Plus
0129 0aff       |    |		Execute_Immediate	Plus,-0x1
012a 00d8       |    |		Load_Top	At_Offset_0
012b 00e2       |    |		Load_Encached	Integer_Cache
012c 0260       | `  |		Execute	Discrete,In_Type
012d 7001       |p   |		Jump_Nonzero	0x12f
012e 0801       |    |		Execute_Immediate	Raise,0x1
012f e5ff       |    |		Load	0x2,-0x1
0130 01cf       |    |		Execute	Vector,Slice_Read
0131 e001       |    |		Load	0x0,0x1
0132 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0133 c404       |    |		Store	0x2,0x4
0134 005b       | [  |		Store_Top	Discrete,At_Offset_3
0135 00da       |    |		Load_Top	At_Offset_2
0136 680c       |h   |		Jump_Zero	0x143
0137 00db       |    |		Load_Top	At_Offset_3
0138 0c00       |    |		Execute_Immediate	Greater_Equal,0x0
0139 e404       |    |		Load	0x2,0x4
013a 0d05       |    |		Execute_Immediate	Less,0x5
013b 0279       | y  |		Execute	Discrete,And
013c 6804       |h   |		Jump_Zero	0x141
013d 00db       |    |		Load_Top	At_Offset_3
013e e21c       |    |		Load	0x1,0x1c
013f 01d7       |    |		Execute	Vector,Field_Read
0140 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0141 4802       |H   |		Short_Literal	0x2
0142 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0143 4800       |H   |		Short_Literal	0x0
0144 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0145 4800       |H   |		Short_Literal	0x0
0146 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0147			TRAP_00d8:
0147 010e       |    |		Execute	Exception,Is_Constraint_Error
0148 6809       |h   |		Jump_Zero	0x152
0149 e003       |    |		Load	0x0,0x3
014a 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
014b 4806       |H   |		Short_Literal	0x6
014c 0092 01bc  |    |		Action	Push_String_Extended,0x1bc					; "Unexpected output for compilation success check"
014e e004       |    |		Load	0x0,0x4
014f 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0150 4801       |H   |		Short_Literal	0x1
0151 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0152 0100       |    |		Execute	Exception,Raise
0153 0000 0000  |    |		.BLANK	0000[0x5]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015d       | ]  |		.CONST	0x015d								; Address of begin
0159 0004       |    |		.CONST	0x0004								; Address of exception handler
015a 0002       |    |		.CONST	0x0002								; Number of locals
015b			INIT_0158:
015b 029f 017b  |   {|		Declare_Subprogram	INIT_0178,For_Call
015d			BODY_0158:
015d e5fe       |    |		Load	0x2,-0x2
015e e002       |    |		Load	0x0,0x2
015f 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0160 6801       |h   |		Jump_Zero	0x162
0161 8402       |    |		Call	0x2,0x2
0162 4800       |H   |		Short_Literal	0x0
0163 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0164 0000 0000  |    |		.BLANK	0000[0x4]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016d       | m  |		.CONST	0x016d								; Address of begin
0169 0004       |    |		.CONST	0x0004								; Address of exception handler
016a 0002       |    |		.CONST	0x0002								; Number of locals
016b			INIT_0168:
016b 029f 019b  |    |		Declare_Subprogram	INIT_0198,For_Call
016d			BODY_0168:
016d e5fe       |    |		Load	0x2,-0x2
016e e002       |    |		Load	0x0,0x2
016f 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0170 6801       |h   |		Jump_Zero	0x172
0171 8402       |    |		Call	0x2,0x2
0172 4800       |H   |		Short_Literal	0x0
0173 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0174 0000 0000  |    |		.BLANK	0000[0x4]
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 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
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 4802       |H   |		Short_Literal	0x2
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 0000 0000  |    |		.XXX[0x3]
0197 0000       |    |
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019e       |    |		.CONST	0x019e								; Address of begin
0199 0004       |    |		.CONST	0x0004								; Address of exception handler
019a 0002       |    |		.CONST	0x0002								; Number of locals
019b			INIT_0198:
019b e5fe       |    |		Load	0x2,-0x2
019c e002       |    |		Load	0x0,0x2
019d 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
019e			BODY_0198:
019e 00cf       |    |		Action	Mark_Auxiliary
019f 00d9       |    |		Load_Top	At_Offset_1
01a0 01dc       |    |		Execute	Vector,Last
01a1 00da       |    |		Load_Top	At_Offset_2
01a2 01dd       |    |		Execute	Vector,First
01a3 0263       | c  |		Execute	Discrete,Above_Bound
01a4 700f       |p   |		Jump_Nonzero	0x1b4
01a5 4801       |H   |		Short_Literal	0x1
01a6 e5ff       |    |		Load	0x2,-0x1
01a7 00da       |    |		Load_Top	At_Offset_2
01a8 e602       |    |		Load	0x3,0x2
01a9 01d7       |    |		Execute	Vector,Field_Read
01aa e002       |    |		Load	0x0,0x2
01ab 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
01ac e001       |    |		Load	0x0,0x1
01ad 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
01ae 6803       |h   |		Jump_Zero	0x1b2
01af 4801       |H   |		Short_Literal	0x1
01b0 00cb       |    |		Action	Pop_Block_With_Result
01b1 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
01b2 00c8       |    |		Action	Pop_Auxiliary_Range
01b3 3ff1       |?   |		Loop_Increasing	0x1a5
01b4 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01b5 ; --------------------------------------------------------------------------------------
01b5 ; STRING TABLE
01b5 ; --------------------------------------------------------------------------------------
01b5 0012       |    |		.STRTAB	0x0012->0x01be							; "STATUS_COMMAND"
01b6 001e       |    |		.STRTAB	0x001e->0x01c5							; "REMOTE_COMMAND"
01b7 002a       | *  |		.STRTAB	0x002a->0x01cc							; "SUCCESS"
01b8 002f       | /  |		.STRTAB	0x002f->0x01cf							; "WARNING"
01b9 0034       | 4  |		.STRTAB	0x0034->0x01d3							; "ERROR"
01ba 0037       | 7  |		.STRTAB	0x0037->0x01d5							; "FATAL_ERROR"
01bb 0040       | @  |		.STRTAB	0x0040->0x01db							; " "
01bc 003f       | ?  |		.STRTAB	0x003f->0x01db							; "Unexpected output for compilation success check"
01bd 006c       | l  |		.STREND 0x006c->0x01f3
01be 5354 4154  |STAT|		.STRTAB_STRINGS
01f3 0000 0000  |    |		.BLANK	0000[0x5]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; Debug Table
01f8 ; --------------------------------------------------------------------------------------
01f8 0004 000e  |    |		.DEBUG4	0x0004,0x000e,0x6432,0x0000,0x0001,0x0000
01fe 0000 0000  |    |		.XXX[0x2]