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

⟦9a0e5af9f⟧

    Length: 2048 (0x800)
    Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0340e4

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 5900       |Y   |		.CONST	0x5900								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0300       |    |		.CONST	0x0300								; 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 0001       |    |		.CONST	0x0001								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0017       |    |		.CONST	0x0017								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 000f       |    |		.CONST	0x000f								; Number of locals
000b			INIT_0008:
000b 029a 0023  |   #|		Declare_Subprogram	INIT_0020,For_Outer_Call,Visible,Unelaborated
000d 00c4       |    |		Action	Make_Default
000e 00c4       |    |		Action	Make_Default
000f 029a 00ab  |    |		Declare_Subprogram	INIT_00a8,For_Outer_Call,Visible,Unelaborated
0011 c20f       |    |		Store	0x1,0xf
0012 00bf       |    |		Action	Accept_Activation
0013 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
0014 00c7       |    |		Action	Elaborate_Subprogram
0015 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0016 00c7       |    |		Action	Elaborate_Subprogram
0017			BODY_0008:
0017 00bc       |    |		Action	Signal_Activated
0018 00bb       |    |		Action	Signal_Completion
0019 0000 0000  |    |		.BLANK	0000[0x7]
0020 ; --------------------------------------------------------------------------------------
0020 ; SUBPROGRAM
0020 ; --------------------------------------------------------------------------------------
0020 0074       | t  |		.CONST	0x0074								; Address of begin
0021 0004       |    |		.CONST	0x0004								; Address of exception handler
0022 0018       |    |		.CONST	0x0018								; Number of locals
0023			INIT_0020:
0023 e001       |    |		Load	0x0,0x1
0024 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0025 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0026 02c7       |    |		Declare_Variable	Any
0027 4801       |H   |		Short_Literal	0x1
0028 e001       |    |		Load	0x0,0x1
0029 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
002a 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
002b e5ff       |    |		Load	0x2,-0x1
002c e001       |    |		Load	0x0,0x1
002d 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
002e 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
002f a402       |    |		Store_Unchecked	0x2,0x2
0030 4800       |H   |		Short_Literal	0x0
0031 4806       |H   |		Short_Literal	0x6
0032 029f 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Call
0034 03fd       |    |		Declare_Type	Discrete,Defined
0035 e001       |    |		Load	0x0,0x1
0036 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0037 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0038 02c7       |    |		Declare_Variable	Any
0039 00d8       |    |		Load_Top	At_Offset_0
003a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
003b e001       |    |		Load	0x0,0x1
003c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
003d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
003e 02c7       |    |		Declare_Variable	Any
003f 00d8       |    |		Load_Top	At_Offset_0
0040 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0041 e001       |    |		Load	0x0,0x1
0042 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0043 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0044 02c7       |    |		Declare_Variable	Any
0045 00d8       |    |		Load_Top	At_Offset_0
0046 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0047 e001       |    |		Load	0x0,0x1
0048 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0049 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
004a 02c7       |    |		Declare_Variable	Any
004b 00d8       |    |		Load_Top	At_Offset_0
004c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
004d 029f 0113  |    |		Declare_Subprogram	INIT_0110,For_Call
004f 029f 0123  |   #|		Declare_Subprogram	INIT_0120,For_Call
0051 029f 0153  |   S|		Declare_Subprogram	INIT_0150,For_Call
0053 029f 0173  |   s|		Declare_Subprogram	INIT_0170,For_Call
0055 029f 01d3  |    |		Declare_Subprogram	INIT_01d0,For_Call
0057 029f 0203  |    |		Declare_Subprogram	INIT_0200,For_Call
0059 a002       |    |		Store_Unchecked	0x0,0x2
005a 00c6       |    |		Action	Check_Subprogram_Elaborated
005b 4809       |H   |		Short_Literal	0x9
005c 4802       |H   |		Short_Literal	0x2
005d 0099       |    |		Action	Reference_Dynamic
005e 480a       |H   |		Short_Literal	0xa
005f 4802       |H   |		Short_Literal	0x2
0060 0099       |    |		Action	Reference_Dynamic
0061 e403       |    |		Load	0x2,0x3
0062 4808       |H   |		Short_Literal	0x8
0063 4802       |H   |		Short_Literal	0x2
0064 0099       |    |		Action	Reference_Dynamic
0065 480b       |H   |		Short_Literal	0xb
0066 4802       |H   |		Short_Literal	0x2
0067 0099       |    |		Action	Reference_Dynamic
0068 480c       |H   |		Short_Literal	0xc
0069 4802       |H   |		Short_Literal	0x2
006a 0099       |    |		Action	Reference_Dynamic
006b 480d       |H   |		Short_Literal	0xd
006c 4802       |H   |		Short_Literal	0x2
006d 0099       |    |		Action	Reference_Dynamic
006e 0092 0230  |   0|		Action	Push_String_Extended,0x230					; "Subsystem Information"
0070 e003       |    |		Load	0x0,0x3
0071 e004       |    |		Load	0x0,0x4
0072 4818       |H   |		Short_Literal	0x18
0073 0007       |    |		Action	Break_Optional
0074			BODY_0020:
0074 e402       |    |		Load	0x2,0x2
0075 e001       |    |		Load	0x0,0x1
0076 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0077 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0078 680a       |h   |		Jump_Zero	0x83
0079 e005       |    |		Load	0x0,0x5
007a 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
007b 4807       |H   |		Short_Literal	0x7
007c e5ff       |    |		Load	0x2,-0x1
007d 0092 0231  |   1|		Action	Push_String_Extended,0x231					; " is not a valid pathname"
007f 01cc       |    |		Execute	Vector,Catenate
0080 e006       |    |		Load	0x0,0x6
0081 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0082 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0083 e5fc       |    |		Load	0x2,-0x4
0084 e402       |    |		Load	0x2,0x2
0085 e5fd       |    |		Load	0x2,-0x3
0086 480e       |H   |		Short_Literal	0xe
0087 4802       |H   |		Short_Literal	0x2
0088 0099       |    |		Action	Reference_Dynamic
0089 480f       |H   |		Short_Literal	0xf
008a 4802       |H   |		Short_Literal	0x2
008b 0099       |    |		Action	Reference_Dynamic
008c e410       |    |		Load	0x2,0x10
008d 4811       |H   |		Short_Literal	0x11
008e 4802       |H   |		Short_Literal	0x2
008f 0099       |    |		Action	Reference_Dynamic
0090 4812       |H   |		Short_Literal	0x12
0091 4802       |H   |		Short_Literal	0x2
0092 0099       |    |		Action	Reference_Dynamic
0093 4813       |H   |		Short_Literal	0x13
0094 4802       |H   |		Short_Literal	0x2
0095 0099       |    |		Action	Reference_Dynamic
0096 4814       |H   |		Short_Literal	0x14
0097 4802       |H   |		Short_Literal	0x2
0098 0099       |    |		Action	Reference_Dynamic
0099 e415       |    |		Load	0x2,0x15
009a 4816       |H   |		Short_Literal	0x16
009b 4802       |H   |		Short_Literal	0x2
009c 0099       |    |		Action	Reference_Dynamic
009d 8002       |    |		Call	0x0,0x2
009e c402       |    |		Store	0x2,0x2
009f c5fc       |    |		Store	0x2,-0x4
00a0 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
00a1 0000 0000  |    |		.BLANK	0000[0x7]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00b5       |    |		.CONST	0x00b5								; Address of begin
00a9 0004       |    |		.CONST	0x0004								; Address of exception handler
00aa 0003       |    |		.CONST	0x0003								; Number of locals
00ab			INIT_00a8:
00ab e007       |    |		Load	0x0,0x7
00ac 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
00ad 02c7       |    |		Declare_Variable	Any
00ae 00d8       |    |		Load_Top	At_Offset_0
00af 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00b0 e008       |    |		Load	0x0,0x8
00b1 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00b2 02c7       |    |		Declare_Variable	Any
00b3 00d8       |    |		Load_Top	At_Offset_0
00b4 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00b5			BODY_00a8:
00b5 00d9       |    |		Load_Top	At_Offset_1
00b6 00d9       |    |		Load_Top	At_Offset_1
00b7 e5fd       |    |		Load	0x2,-0x3
00b8 8009       |    |		Call	0x0,0x9
00b9 c403       |    |		Store	0x2,0x3
00ba c402       |    |		Store	0x2,0x2
00bb 00d8       |    |		Load_Top	At_Offset_0
00bc e008       |    |		Load	0x0,0x8
00bd 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
00be 4802       |H   |		Short_Literal	0x2
00bf 4803       |H   |		Short_Literal	0x3
00c0 0262       | b  |		Execute	Discrete,In_Range
00c1 7010       |p   |		Jump_Nonzero	0xd2
00c2 00d9       |    |		Load_Top	At_Offset_1
00c3 e5fc       |    |		Load	0x2,-0x4
00c4 e5fe       |    |		Load	0x2,-0x2
00c5 e5ff       |    |		Load	0x2,-0x1
00c6 820d       |    |		Call	0x1,0xd
00c7 c402       |    |		Store	0x2,0x2
00c8 00d9       |    |		Load_Top	At_Offset_1
00c9 e007       |    |		Load	0x0,0x7
00ca 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
00cb c402       |    |		Store	0x2,0x2
00cc 4801       |H   |		Short_Literal	0x1
00cd 4800       |H   |		Short_Literal	0x0
00ce e5fd       |    |		Load	0x2,-0x3
00cf e00a       |    |		Load	0x0,0xa
00d0 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
00d1 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
00d2 e005       |    |		Load	0x0,0x5
00d3 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00d4 4807       |H   |		Short_Literal	0x7
00d5 0092 0232  |   2|		Action	Push_String_Extended,0x232					; "Problem creating object "
00d7 e5fd       |    |		Load	0x2,-0x3
00d8 01cc       |    |		Execute	Vector,Catenate
00d9 0092 0233  |   3|		Action	Push_String_Extended,0x233					; ".  "
00db 01cc       |    |		Execute	Vector,Catenate
00dc 00db       |    |		Load_Top	At_Offset_3
00dd e008       |    |		Load	0x0,0x8
00de 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00df 01cc       |    |		Execute	Vector,Catenate
00e0 e006       |    |		Load	0x0,0x6
00e1 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00e2 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
00e3 0000 0000  |    |		.BLANK	0000[0x5]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb       |    |		.CONST	0x00eb								; Address of begin
00e9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ea 0001       |    |		.CONST	0x0001								; Number of locals
00eb			BODY_00e8:
00eb			INIT_00e8:
00eb 4607       |F   |		Jump_Case	0x8
00ec 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
00ed 7806       |x   |		Jump	0xf4								; case 0x1
00ee 7809       |x   |		Jump	0xf8								; case 0x2
00ef 780d       |x   |		Jump	0xfd								; case 0x3
00f0 7810       |x   |		Jump	0x101								; case 0x4
00f1 7811       |x   |		Jump	0x103								; case 0x5
00f2 7812       |x   |		Jump	0x105								; case 0x6
00f3 7815       |x   |		Jump	0x109								; case 0x7
00f4 00da       |    |		Load_Top	At_Offset_2
00f5 0091 0229  |   )|		Action	Push_String_Extended_Indexed,0x229				; "SUBSYSTEM"
00f7 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00f8 00db       |    |		Load_Top	At_Offset_3
00f9 00db       |    |		Load_Top	At_Offset_3
00fa 00e0       |    |		Load_Encached	Standard_Cache
00fb 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00fc 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00fd 00da       |    |		Load_Top	At_Offset_2
00fe 00e0       |    |		Load_Encached	Standard_Cache
00ff 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0100 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0101 00db       |    |		Load_Top	At_Offset_3
0102 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0103 00db       |    |		Load_Top	At_Offset_3
0104 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0105 e403       |    |		Load	0x2,0x3
0106 00dc       |    |		Load_Top	At_Offset_4
0107 0267       | g  |		Execute	Discrete,Predecessor
0108 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0109 e403       |    |		Load	0x2,0x3
010a 00dc       |    |		Load_Top	At_Offset_4
010b 0268       | h  |		Execute	Discrete,Successor
010c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
010d 0000 0000  |    |		.XXX[0x3]
010f 0000       |    |
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113       |    |		.CONST	0x0113								; Address of begin
0111 0004       |    |		.CONST	0x0004								; Address of exception handler
0112 0001       |    |		.CONST	0x0001								; Number of locals
0113			BODY_0110:
0113			INIT_0110:
0113 00da       |    |		Load_Top	At_Offset_2
0114 4803       |H   |		Short_Literal	0x3
0115 4804       |H   |		Short_Literal	0x4
0116 0262       | b  |		Execute	Discrete,In_Range
0117 7003       |p   |		Jump_Nonzero	0x11b
0118 7800       |x   |		Jump	0x119
0119 4800       |H   |		Short_Literal	0x0
011a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
011b 4801       |H   |		Short_Literal	0x1
011c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
011d 0000 0000  |    |		.XXX[0x3]
011f 0000       |    |
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123       | #  |		.CONST	0x0123								; Address of begin
0121 0004       |    |		.CONST	0x0004								; Address of exception handler
0122 0001       |    |		.CONST	0x0001								; Number of locals
0123			BODY_0120:
0123			INIT_0120:
0123 00da       |    |		Load_Top	At_Offset_2
0124 e00b       |    |		Load	0x0,0xb
0125 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0126 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
0127 6822       |h"  |		Jump_Zero	0x14a
0128 00da       |    |		Load_Top	At_Offset_2
0129 e001       |    |		Load	0x0,0x1
012a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
012b 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
012c c404       |    |		Store	0x2,0x4
012d 00da       |    |		Load_Top	At_Offset_2
012e e00b       |    |		Load	0x0,0xb
012f 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0130 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0131 c405       |    |		Store	0x2,0x5
0132 4800       |H   |		Short_Literal	0x0
0133 00db       |    |		Load_Top	At_Offset_3
0134 e00b       |    |		Load	0x0,0xb
0135 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0136 1827       | '  |		Execute	Package,Field_Execute,Field_Number 0x27
0137 c406       |    |		Store	0x2,0x6
0138 00da       |    |		Load_Top	At_Offset_2
0139 e00b       |    |		Load	0x0,0xb
013a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
013b 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
013c 6807       |h   |		Jump_Zero	0x144
013d 4800       |H   |		Short_Literal	0x0
013e 00db       |    |		Load_Top	At_Offset_3
013f e00b       |    |		Load	0x0,0xb
0140 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0141 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
0142 c407       |    |		Store	0x2,0x7
0143 7804       |x   |		Jump	0x148
0144 e001       |    |		Load	0x0,0x1
0145 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0146 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0147 c407       |    |		Store	0x2,0x7
0148 4801       |H   |		Short_Literal	0x1
0149 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
014a 4800       |H   |		Short_Literal	0x0
014b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
014c 0000 0000  |    |		.BLANK	0000[0x4]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 015c       | \  |		.CONST	0x015c								; Address of begin
0151 0004       |    |		.CONST	0x0004								; Address of exception handler
0152 0002       |    |		.CONST	0x0002								; Number of locals
0153			INIT_0150:
0153 e001       |    |		Load	0x0,0x1
0154 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0155 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0156 02c7       |    |		Declare_Variable	Any
0157 00db       |    |		Load_Top	At_Offset_3
0158 e001       |    |		Load	0x0,0x1
0159 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
015a 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
015b a602       |    |		Store_Unchecked	0x3,0x2
015c			BODY_0150:
015c 00d8       |    |		Load_Top	At_Offset_0
015d e00b       |    |		Load	0x0,0xb
015e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
015f 183c       | <  |		Execute	Package,Field_Execute,Field_Number 0x3c
0160 7005       |p   |		Jump_Nonzero	0x166
0161 00d8       |    |		Load_Top	At_Offset_0
0162 e00b       |    |		Load	0x0,0xb
0163 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0164 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
0165 6802       |h   |		Jump_Zero	0x168
0166 4800       |H   |		Short_Literal	0x0
0167 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0168 4801       |H   |		Short_Literal	0x1
0169 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
016a 0000 0000  |    |		.BLANK	0000[0x6]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173       | s  |		.CONST	0x0173								; Address of begin
0171 0004       |    |		.CONST	0x0004								; Address of exception handler
0172 0001       |    |		.CONST	0x0001								; Number of locals
0173			BODY_0170:
0173			INIT_0170:
0173 00da       |    |		Load_Top	At_Offset_2
0174 4606       |F   |		Jump_Case	0x7
0175 7831       |x1  |		Jump	0x1a7								; case 0x0
0176 7835       |x5  |		Jump	0x1ac								; case 0x1
0177 783f       |x?  |		Jump	0x1b7								; case 0x2
0178 7848       |xH  |		Jump	0x1c1								; case 0x3
0179 784d       |xM  |		Jump	0x1c7								; case 0x4
017a 7841       |xA  |		Jump	0x1bc								; case 0x5
017b 7800       |x   |		Jump	0x17c								; case 0x6
017c 00db       |    |		Load_Top	At_Offset_3
017d e00b       |    |		Load	0x0,0xb
017e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
017f 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
0180 6803       |h   |		Jump_Zero	0x184
0181 0092 0234  |   4|		Action	Push_String_Extended,0x234					; "WORKING"
0183 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0184 00db       |    |		Load_Top	At_Offset_3
0185 e00b       |    |		Load	0x0,0xb
0186 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0187 1841       | A  |		Execute	Package,Field_Execute,Field_Number 0x41
0188 6803       |h   |		Jump_Zero	0x18c
0189 0092 0235  |   5|		Action	Push_String_Extended,0x235					; "RELEASED"
018b 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
018c 00db       |    |		Load_Top	At_Offset_3
018d e00b       |    |		Load	0x0,0xb
018e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
018f 1842       | B  |		Execute	Package,Field_Execute,Field_Number 0x42
0190 6803       |h   |		Jump_Zero	0x194
0191 0092 0236  |   6|		Action	Push_String_Extended,0x236					; "CODE"
0193 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0194 00db       |    |		Load_Top	At_Offset_3
0195 e00b       |    |		Load	0x0,0xb
0196 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0197 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
0198 6803       |h   |		Jump_Zero	0x19c
0199 0092 0237  |   7|		Action	Push_String_Extended,0x237					; "SPEC"
019b 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
019c 00db       |    |		Load_Top	At_Offset_3
019d e00b       |    |		Load	0x0,0xb
019e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
019f 1843       | C  |		Execute	Package,Field_Execute,Field_Number 0x43
01a0 6803       |h   |		Jump_Zero	0x1a4
01a1 0092 0238  |   8|		Action	Push_String_Extended,0x238					; "COMBINED"
01a3 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01a4 0092 0239  |   9|		Action	Push_String_Extended,0x239					; "UNKNOWN"
01a6 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01a7 e404       |    |		Load	0x2,0x4
01a8 e001       |    |		Load	0x0,0x1
01a9 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01aa 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
01ab 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01ac e404       |    |		Load	0x2,0x4
01ad e00b       |    |		Load	0x0,0xb
01ae 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
01af 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
01b0 6803       |h   |		Jump_Zero	0x1b4
01b1 0092 023a  |   :|		Action	Push_String_Extended,0x23a					; "Primry"
01b3 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01b4 0092 023b  |   ;|		Action	Push_String_Extended,0x23b					; "Second"
01b6 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01b7 00db       |    |		Load_Top	At_Offset_3
01b8 e001       |    |		Load	0x0,0x1
01b9 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01ba 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
01bb 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01bc e405       |    |		Load	0x2,0x5
01bd e001       |    |		Load	0x0,0x1
01be 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01bf 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
01c0 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01c1 e406       |    |		Load	0x2,0x6
01c2 e00c       |    |		Load	0x0,0xc
01c3 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
01c4 00e0       |    |		Load_Encached	Standard_Cache
01c5 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01c6 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01c7 e407       |    |		Load	0x2,0x7
01c8 e00c       |    |		Load	0x0,0xc
01c9 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
01ca 00e0       |    |		Load_Encached	Standard_Cache
01cb 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01cc 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01cd 0000 0000  |    |		.XXX[0x3]
01cf 0000       |    |
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3       |    |		.CONST	0x01d3								; Address of begin
01d1 0004       |    |		.CONST	0x0004								; Address of exception handler
01d2 0001       |    |		.CONST	0x0001								; Number of locals
01d3			BODY_01d0:
01d3			INIT_01d0:
01d3 00da       |    |		Load_Top	At_Offset_2
01d4 4606       |F   |		Jump_Case	0x7
01d5 7809       |x   |		Jump	0x1df								; case 0x0
01d6 780b       |x   |		Jump	0x1e2								; case 0x1
01d7 780d       |x   |		Jump	0x1e5								; case 0x2
01d8 7812       |x   |		Jump	0x1eb								; case 0x3
01d9 7814       |x   |		Jump	0x1ee								; case 0x4
01da 780d       |x   |		Jump	0x1e8								; case 0x5
01db 7800       |x   |		Jump	0x1dc								; case 0x6
01dc 0092 023c  |   <|		Action	Push_String_Extended,0x23c					; "The Kind of view"
01de 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01df 0092 023d  |   =|		Action	Push_String_Extended,0x23d					; "Susystem Name"
01e1 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01e2 0092 023e  |   >|		Action	Push_String_Extended,0x23e					; "Kind of subsystem; Primary or Secondary"
01e4 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01e5 0092 023f  |   ?|		Action	Push_String_Extended,0x23f					; "View Name"
01e7 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01e8 0092 0240  |   @|		Action	Push_String_Extended,0x240					; "Name of the view's model"
01ea 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01eb 0092 0241  |   A|		Action	Push_String_Extended,0x241					; "Number of imported subsystems"
01ed 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01ee 00db       |    |		Load_Top	At_Offset_3
01ef e00b       |    |		Load	0x0,0xb
01f0 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01f1 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
01f2 6803       |h   |		Jump_Zero	0x1f6
01f3 0092 0242  |   B|		Action	Push_String_Extended,0x242					; "Number of other views referencing this view"
01f5 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01f6 0092 0243  |   C|		Action	Push_String_Extended,0x243					; "Only spec views have referencers"
01f8 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01f9 0000 0000  |    |		.BLANK	0000[0x7]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0203       |    |		.CONST	0x0203								; Address of begin
0201 0004       |    |		.CONST	0x0004								; Address of exception handler
0202 0001       |    |		.CONST	0x0001								; Number of locals
0203			BODY_0200:
0203			INIT_0200:
0203 e001       |    |		Load	0x0,0x1
0204 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0205 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0206 c7fd       |    |		Store	0x3,-0x3
0207 e001       |    |		Load	0x0,0x1
0208 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0209 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
020a c7fc       |    |		Store	0x3,-0x4
020b 00da       |    |		Load_Top	At_Offset_2
020c 4606       |F   |		Jump_Case	0x7
020d 7809       |x   |		Jump	0x217								; case 0x0
020e 780b       |x   |		Jump	0x21a								; case 0x1
020f 780d       |x   |		Jump	0x21d								; case 0x2
0210 7812       |x   |		Jump	0x223								; case 0x3
0211 7814       |x   |		Jump	0x226								; case 0x4
0212 780d       |x   |		Jump	0x220								; case 0x5
0213 7800       |x   |		Jump	0x214								; case 0x6
0214 00db       |    |		Load_Top	At_Offset_3
0215 c7fd       |    |		Store	0x3,-0x3
0216 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0217 e404       |    |		Load	0x2,0x4
0218 c7fd       |    |		Store	0x3,-0x3
0219 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
021a e404       |    |		Load	0x2,0x4
021b c7fd       |    |		Store	0x3,-0x3
021c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
021d 00db       |    |		Load_Top	At_Offset_3
021e c7fd       |    |		Store	0x3,-0x3
021f 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0220 e405       |    |		Load	0x2,0x5
0221 c7fd       |    |		Store	0x3,-0x3
0222 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0223 e406       |    |		Load	0x2,0x6
0224 c7fc       |    |		Store	0x3,-0x4
0225 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0226 e407       |    |		Load	0x2,0x7
0227 c7fc       |    |		Store	0x3,-0x4
0228 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0229 ; --------------------------------------------------------------------------------------
0229 ; STRING TABLE
0229 ; --------------------------------------------------------------------------------------
0229 0038       | 8  |		.STRTAB	0x0038->0x0245							; "SUBSYSTEM"
022a 003f       | ?  |		.STRTAB	0x003f->0x0249							; "S_KIND"
022b 0043       | C  |		.STRTAB	0x0043->0x024c							; "VIEW"
022c 0045       | E  |		.STRTAB	0x0045->0x024e							; "IMP"
022d 0046       | F  |		.STRTAB	0x0046->0x0250							; "REF"
022e 0047       | G  |		.STRTAB	0x0047->0x0251							; "MODEL"
022f 004a       | J  |		.STRTAB	0x004a->0x0254							; "V_KIND"
0230 004e       | N  |		.STRTAB	0x004e->0x0257							; "Subsystem Information"
0231 0061       | a  |		.STRTAB	0x0061->0x0261							; " is not a valid pathname"
0232 0077       | w  |		.STRTAB	0x0077->0x026d							; "Problem creating object "
0233 008d       |    |		.STRTAB	0x008d->0x0279							; ".  "
0234 008e       |    |		.STRTAB	0x008e->0x027b							; "WORKING"
0235 0093       |    |		.STRTAB	0x0093->0x027e							; "RELEASED"
0236 0099       |    |		.STRTAB	0x0099->0x0282							; "CODE"
0237 009b       |    |		.STRTAB	0x009b->0x0284							; "SPEC"
0238 009d       |    |		.STRTAB	0x009d->0x0286							; "COMBINED"
0239 00a3       |    |		.STRTAB	0x00a3->0x028a							; "UNKNOWN"
023a 00a8       |    |		.STRTAB	0x00a8->0x028e							; "Primry"
023b 00ac       |    |		.STRTAB	0x00ac->0x0291							; "Second"
023c 00b0       |    |		.STRTAB	0x00b0->0x0294							; "The Kind of view"
023d 00be       |    |		.STRTAB	0x00be->0x029c							; "Susystem Name"
023e 00c9       |    |		.STRTAB	0x00c9->0x02a2							; "Kind of subsystem; Primary or Secondary"
023f 00ee       |    |		.STRTAB	0x00ee->0x02b6							; "View Name"
0240 00f5       |    |		.STRTAB	0x00f5->0x02ba							; "Name of the view's model"
0241 010b       |    |		.STRTAB	0x010b->0x02c6							; "Number of imported subsystems"
0242 0126       | &  |		.STRTAB	0x0126->0x02d5							; "Number of other views referencing this view"
0243 014f       | O  |		.STRTAB	0x014f->0x02ea							; "Only spec views have referencers"
0244 016d       | m  |		.STREND 0x016d->0x02fa
0245 5355 4253  |SUBS|		.STRTAB_STRINGS
02fb 0000 0000  |    |		.BLANK	0000[0x5]
0300 ; --------------------------------------------------------------------------------------
0300 ; Debug Table
0300 ; --------------------------------------------------------------------------------------
0300 0004 0004  |    |		.DEBUG4	0x0004,0x0004,0x2eff,0x0000,0x0001,0x000b
0306 000b 0332  |   2|		.DBG4T	0x000b,0x0332,0x8000,0x0000
030a 0013 0336  |   6|		.DBG4T	0x0013,0x0336,0x8000,0x8000
030e 0023 033c  | # <|		.DBG4T	0x0023,0x033c,0x0001,0x0000
0312 00ab 034e  |   N|		.DBG4T	0x00ab,0x034e,0x0001,0x4000
0316 00eb 0000  |    |		.DBG4T	0x00eb,0x0000,0x0005,0x0000
031a 0113 035e  |   ^|		.DBG4T	0x0113,0x035e,0x0002,0x0000
031e 0123 0363  | # c|		.DBG4T	0x0123,0x0363,0x0002,0x0000
0322 0153 036e  | S n|		.DBG4T	0x0153,0x036e,0x0002,0x0000
0326 0173 0374  | s t|		.DBG4T	0x0173,0x0374,0x0002,0x4000
032a 01d3 039e  |    |		.DBG4T	0x01d3,0x039e,0x0002,0x4000
032e 0203 03b4  |    |		.DBG4T	0x0203,0x03b4,0x0001,0x4000
0332 ; --------------------------------------------------------------------------------------
0332 ; Debug chain
0332 ; --------------------------------------------------------------------------------------
0332 0002 0000  |    |		.DBGLEN	0x0002,0x0000
0334 000b 000f  |    |		.DBGLNO	0x000b,0x000f
0336 ; --------------------------------------------------------------------------------------
0336 ; Debug chain
0336 ; --------------------------------------------------------------------------------------
0336 0002 0000  |    |		.DBGLEN	0x0002,0x0000
0338 0013 0015  |    |		.DBGLNO	0x0013,0x0015
033a 0002 0003  |    |		.XXX[0x2]
033c ; --------------------------------------------------------------------------------------
033c ; Debug chain
033c ; --------------------------------------------------------------------------------------
033c 000d 0003  |    |		.DBGLEN	0x000d,0x0003
033e 0023 0030  | # 0|		.DBGLNO	0x0023,0x0030,0x0035,0x003b,0x0041,0x0047,0x004d,0x004f,0x0051,0x0053,0x0055,0x0057,0x0059,0x0074,0x0079,0x0083
034e ; --------------------------------------------------------------------------------------
034e ; Debug chain
034e ; --------------------------------------------------------------------------------------
034e 0002 0006  |    |		.DBGLEN	0x0002,0x0006
0350 00ab 00b0  |    |		.DBGLNO	0x00ab,0x00b0,0x00b5,0x00bb,0x00c2,0x00c8,0x00cc,0x00d2
0358 0001 0002  |    |		.XXX[0x6]
035a 0004 0005  |    |
035c 0006 0003  |    |
035e ; --------------------------------------------------------------------------------------
035e ; Debug chain
035e ; --------------------------------------------------------------------------------------
035e 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0360 0113 0119  |    |		.DBGLNO	0x0113,0x0119,0x011b
0363 ; --------------------------------------------------------------------------------------
0363 ; Debug chain
0363 ; --------------------------------------------------------------------------------------
0363 0000 0009  |    |		.DBGLEN	0x0000,0x0009
0365 0123 0128  | # (|		.DBGLNO	0x0123,0x0128,0x012d,0x0132,0x0138,0x013d,0x0144,0x0148,0x014a
036e ; --------------------------------------------------------------------------------------
036e ; Debug chain
036e ; --------------------------------------------------------------------------------------
036e 0001 0003  |    |		.DBGLEN	0x0001,0x0003
0370 0153 015c  | S \|		.DBGLNO	0x0153,0x015c,0x0166,0x0168
0374 ; --------------------------------------------------------------------------------------
0374 ; Debug chain
0374 ; --------------------------------------------------------------------------------------
0374 0000 0014  |    |		.DBGLEN	0x0000,0x0014
0376 0173 017c  | s ||		.DBGLNO	0x0173,0x017c,0x0181,0x0184,0x0189,0x018c,0x0191,0x0194,0x0199,0x019c,0x01a1,0x01a4,0x01a7,0x01ac,0x01b1,0x01b4,0x01b7,0x01bc,0x01c1,0x01c7
038a 0001 0007  |    |		.XXX[0x14]
038c 0008 0009  |    |
038e 000a 000b  |    |
0390 000c 000d  |    |
0392 000e 000f  |    |
0394 0010 0011  |    |
0396 0002 0003  |    |
0398 0004 0005  |    |
039a 0006 0012  |    |
039c 0013 0014  |    |
039e ; --------------------------------------------------------------------------------------
039e ; Debug chain
039e ; --------------------------------------------------------------------------------------
039e 0000 000a  |    |		.DBGLEN	0x0000,0x000a
03a0 01d3 01dc  |    |		.DBGLNO	0x01d3,0x01dc,0x01df,0x01e2,0x01e5,0x01e8,0x01eb,0x01ee,0x01f3,0x01f6
03aa 0001 0005  |    |		.XXX[0xa]
03ac 0002 0003  |    |
03ae 0004 0006  |    |
03b0 0007 0008  |    |
03b2 0009 000a  |    |
03b4 ; --------------------------------------------------------------------------------------
03b4 ; Debug chain
03b4 ; --------------------------------------------------------------------------------------
03b4 0000 000a  |    |		.DBGLEN	0x0000,0x000a
03b6 0203 0207  |    |		.DBGLNO	0x0203,0x0207,0x020b,0x0214,0x0217,0x021a,0x021d,0x0220,0x0223,0x0226
03c0 0001 0002  |    |		.XXX[0xa]
03c2 0003 0007  |    |
03c4 0004 0005  |    |
03c6 0006 0008  |    |
03c8 0009 000a  |    |
03ca 0000 0000  |    |		.BLANK	0000[0x36]