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

⟦c981e094f⟧

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

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 01b8       |    |		.CONST	0x01b8								; 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 006f       | o  |		.CONST	0x006f								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0024       | $  |		.CONST	0x0024								; Number of locals
000b			INIT_0008:
000b e002       |    |		Load	0x0,0x2
000c 0129       | )  |		Execute	Any,Make_Visible
000d e003       |    |		Load	0x0,0x3
000e 0129       | )  |		Execute	Any,Make_Visible
000f 029a 007b  |   {|		Declare_Subprogram	INIT_0078,For_Outer_Call,Visible,Unelaborated
0011 029a 00a3  |    |		Declare_Subprogram	INIT_00a0,For_Outer_Call,Visible,Unelaborated
0013 029a 00ab  |    |		Declare_Subprogram	INIT_00a8,For_Outer_Call,Visible,Unelaborated
0015 029a 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Outer_Call,Visible,Unelaborated
0017 029a 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Outer_Call,Visible,Unelaborated
0019 029a 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Outer_Call,Visible,Unelaborated
001b 029a 00e3  |    |		Declare_Subprogram	INIT_00e0,For_Outer_Call,Visible,Unelaborated
001d 029a 00f3  |    |		Declare_Subprogram	INIT_00f0,For_Outer_Call,Visible,Unelaborated
001f 029a 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Outer_Call,Visible,Unelaborated
0021 029a 010b  |    |		Declare_Subprogram	INIT_0108,For_Outer_Call,Visible,Unelaborated
0023 029a 0113  |    |		Declare_Subprogram	INIT_0110,For_Outer_Call,Visible,Unelaborated
0025 029a 0123  |   #|		Declare_Subprogram	INIT_0120,For_Outer_Call,Visible,Unelaborated
0027 029a 012b  |   +|		Declare_Subprogram	INIT_0128,For_Outer_Call,Visible,Unelaborated
0029 029a 013b  |   ;|		Declare_Subprogram	INIT_0138,For_Outer_Call,Visible,Unelaborated
002b e003       |    |		Load	0x0,0x3
002c 0129       | )  |		Execute	Any,Make_Visible
002d 029a 014b  |   K|		Declare_Subprogram	INIT_0148,For_Outer_Call,Visible,Unelaborated
002f 029a 0153  |   S|		Declare_Subprogram	INIT_0150,For_Outer_Call,Visible,Unelaborated
0031 029a 0163  |   c|		Declare_Subprogram	INIT_0160,For_Outer_Call,Visible,Unelaborated
0033 029a 016b  |   k|		Declare_Subprogram	INIT_0168,For_Outer_Call,Visible,Unelaborated
0035 00bf       |    |		Action	Accept_Activation
0036 4800       |H   |		Short_Literal	0x0
0037 4801       |H   |		Short_Literal	0x1
0038 029f 0173  |   s|		Declare_Subprogram	INIT_0170,For_Call
003a 03fd       |    |		Declare_Type	Discrete,Defined
003b e004       |    |		Load	0x0,0x4
003c e005       |    |		Load	0x0,0x5
003d 00da       |    |		Load_Top	At_Offset_2
003e 4800       |H   |		Short_Literal	0x0
003f 4801       |H   |		Short_Literal	0x1
0040 4801       |H   |		Short_Literal	0x1
0041 0092 0198  |    |		Action	Push_String_Extended,0x198					; "others => Unspecified"
0043 00ea       |    |		Load_Encached	Null_String_Cache
0044 00ea       |    |		Load_Encached	Null_String_Cache
0045 4801       |H   |		Short_Literal	0x1
0046 4801       |H   |		Short_Literal	0x1
0047 e006       |    |		Load	0x0,0x6
0048 0387       |    |		Declare_Variable	Package
0049 00d8       |    |		Load_Top	At_Offset_0
004a 020f       |    |		Execute	Module,Activate
004b 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
004c 00c7       |    |		Action	Elaborate_Subprogram
004d 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
004e 00c7       |    |		Action	Elaborate_Subprogram
004f 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0050 00c7       |    |		Action	Elaborate_Subprogram
0051 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0052 00c7       |    |		Action	Elaborate_Subprogram
0053 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0054 00c7       |    |		Action	Elaborate_Subprogram
0055 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0056 00c7       |    |		Action	Elaborate_Subprogram
0057 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0058 00c7       |    |		Action	Elaborate_Subprogram
0059 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
005a 00c7       |    |		Action	Elaborate_Subprogram
005b 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
005c 00c7       |    |		Action	Elaborate_Subprogram
005d 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
005e 00c7       |    |		Action	Elaborate_Subprogram
005f 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0060 00c7       |    |		Action	Elaborate_Subprogram
0061 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
0062 00c7       |    |		Action	Elaborate_Subprogram
0063 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0064 00c7       |    |		Action	Elaborate_Subprogram
0065 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
0066 00c7       |    |		Action	Elaborate_Subprogram
0067 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
0068 00c7       |    |		Action	Elaborate_Subprogram
0069 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
006a 00c7       |    |		Action	Elaborate_Subprogram
006b 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
006c 00c7       |    |		Action	Elaborate_Subprogram
006d 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
006e 00c7       |    |		Action	Elaborate_Subprogram
006f			BODY_0008:
006f 00bc       |    |		Action	Signal_Activated
0070 00bb       |    |		Action	Signal_Completion
0071 0000 0000  |    |		.BLANK	0000[0x7]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 0080       |    |		.CONST	0x0080								; Address of begin
0079 0004       |    |		.CONST	0x0004								; Address of exception handler
007a 0003       |    |		.CONST	0x0003								; Number of locals
007b			INIT_0078:
007b 00da       |    |		Load_Top	At_Offset_2
007c e224       | $  |		Load	0x1,0x24
007d 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
007e e002       |    |		Load	0x0,0x2
007f 0007       |    |		Action	Break_Optional
0080			BODY_0078:
0080 e5fe       |    |		Load	0x2,-0x2
0081 8007       |    |		Call	0x0,0x7
0082 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0083 00cf       |    |		Action	Mark_Auxiliary
0084 780d       |x   |		Jump	0x92
0085 00d9       |    |		Load_Top	At_Offset_1
0086 00ea       |    |		Load_Encached	Null_String_Cache
0087 4800       |H   |		Short_Literal	0x0
0088 e402       |    |		Load	0x2,0x2
0089 e224       | $  |		Load	0x1,0x24
008a 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
008b 8008       |    |		Call	0x0,0x8
008c 0032       | 2  |		Store_Top	Heap_Access,At_Offset_2
008d 00da       |    |		Load_Top	At_Offset_2
008e e224       | $  |		Load	0x1,0x24
008f 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0090 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
0091 00c9       |    |		Action	Pop_Auxiliary_Loop
0092 00da       |    |		Load_Top	At_Offset_2
0093 e224       | $  |		Load	0x1,0x24
0094 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0095 6fef       |o   |		Jump_Zero	0x85
0096 00ce       |    |		Action	Pop_Auxiliary
0097 00d8       |    |		Load_Top	At_Offset_0
0098 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0099 0000 0000  |    |		.BLANK	0000[0x7]
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 00da       |    |		Load_Top	At_Offset_2
00a4 8007       |    |		Call	0x0,0x7
00a5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00a6 0000 0000  |    |		.XXX[0x2]
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 00da       |    |		Load_Top	At_Offset_2
00ac e002       |    |		Load	0x0,0x2
00ad 0216       |    |		Execute	Heap_Access,Convert
00ae 8009       |    |		Call	0x0,0x9
00af 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
00b0 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00b1 0000 0000  |    |		.BLANK	0000[0x7]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bd       |    |		.CONST	0x00bd								; Address of begin
00b9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ba 0002       |    |		.CONST	0x0002								; Number of locals
00bb			INIT_00b8:
00bb e20f       |    |		Load	0x1,0xf
00bc 0007       |    |		Action	Break_Optional
00bd			BODY_00b8:
00bd e003       |    |		Load	0x0,0x3
00be e5ff       |    |		Load	0x2,-0x1
00bf 800a       |    |		Call	0x0,0xa
00c0 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
00c1 00d8       |    |		Load_Top	At_Offset_0
00c2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00c3 0000 0000  |    |		.BLANK	0000[0x5]
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 00da       |    |		Load_Top	At_Offset_2
00cc 800b       |    |		Call	0x0,0xb
00cd 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00ce 0000 0000  |    |		.XXX[0x2]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d5       |    |		.CONST	0x00d5								; Address of begin
00d1 0004       |    |		.CONST	0x0004								; Address of exception handler
00d2 0002       |    |		.CONST	0x0002								; Number of locals
00d3			INIT_00d0:
00d3 0092 0199  |    |		Action	Push_String_Extended,0x199					; "S=>"
00d5			BODY_00d0:
00d5 0092 019a  |    |		Action	Push_String_Extended,0x19a					; "S=>("
00d7 e5ff       |    |		Load	0x2,-0x1
00d8 800c       |    |		Call	0x0,0xc
00d9 01cc       |    |		Execute	Vector,Catenate
00da 0092 019b  |    |		Action	Push_String_Extended,0x19b					; ")"
00dc 01cc       |    |		Execute	Vector,Catenate
00dd 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00de 0000 0000  |    |		.XXX[0x2]
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 00da       |    |		Load_Top	At_Offset_2
00e4 e003       |    |		Load	0x0,0x3
00e5 0216       |    |		Execute	Heap_Access,Convert
00e6 800d       |    |		Call	0x0,0xd
00e7 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
00e8 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00e9 0000 0000  |    |		.BLANK	0000[0x7]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3       |    |		.CONST	0x00f3								; Address of begin
00f1 0004       |    |		.CONST	0x0004								; Address of exception handler
00f2 0001       |    |		.CONST	0x0001								; Number of locals
00f3			BODY_00f0:
00f3			INIT_00f0:
00f3 00da       |    |		Load_Top	At_Offset_2
00f4 e5fe       |    |		Load	0x2,-0x2
00f5 021f       |    |		Execute	Heap_Access,Equal
00f6 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00f7 0000       |    |		.XXX[0x1]
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 e5fd       |    |		Load	0x2,-0x3
00fc e002       |    |		Load	0x0,0x2
00fd 0216       |    |		Execute	Heap_Access,Convert
00fe e5fe       |    |		Load	0x2,-0x2
00ff e5ff       |    |		Load	0x2,-0x1
0100 800e       |    |		Call	0x0,0xe
0101 c5fd       |    |		Store	0x2,-0x3
0102 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
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 00da       |    |		Load_Top	At_Offset_2
010c 800f       |    |		Call	0x0,0xf
010d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
010e 0000 0000  |    |		.XXX[0x2]
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 e002       |    |		Load	0x0,0x2
0115 0216       |    |		Execute	Heap_Access,Convert
0116 8010       |    |		Call	0x0,0x10
0117 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
0118 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0119 0000 0000  |    |		.BLANK	0000[0x7]
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 00db       |    |		Load_Top	At_Offset_3
0124 00db       |    |		Load_Top	At_Offset_3
0125 8011       |    |		Call	0x0,0x11
0126 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0127 0000       |    |		.XXX[0x1]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b       | +  |		.CONST	0x012b								; Address of begin
0129 0004       |    |		.CONST	0x0004								; Address of exception handler
012a 0001       |    |		.CONST	0x0001								; Number of locals
012b			BODY_0128:
012b			INIT_0128:
012b 00db       |    |		Load_Top	At_Offset_3
012c e002       |    |		Load	0x0,0x2
012d 0216       |    |		Execute	Heap_Access,Convert
012e 00db       |    |		Load_Top	At_Offset_3
012f 8008       |    |		Call	0x0,0x8
0130 c5fe       |    |		Store	0x2,-0x2
0131 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0132 0000 0000  |    |		.BLANK	0000[0x6]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b       | ;  |		.CONST	0x013b								; Address of begin
0139 0004       |    |		.CONST	0x0004								; Address of exception handler
013a 0001       |    |		.CONST	0x0001								; Number of locals
013b			BODY_0138:
013b			INIT_0138:
013b 00db       |    |		Load_Top	At_Offset_3
013c e002       |    |		Load	0x0,0x2
013d 0216       |    |		Execute	Heap_Access,Convert
013e 00db       |    |		Load_Top	At_Offset_3
013f 8012       |    |		Call	0x0,0x12
0140 c5fe       |    |		Store	0x2,-0x2
0141 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0142 0000 0000  |    |		.BLANK	0000[0x6]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b       | K  |		.CONST	0x014b								; Address of begin
0149 0004       |    |		.CONST	0x0004								; Address of exception handler
014a 0001       |    |		.CONST	0x0001								; Number of locals
014b			BODY_0148:
014b			INIT_0148:
014b e003       |    |		Load	0x0,0x3
014c 00db       |    |		Load_Top	At_Offset_3
014d 800a       |    |		Call	0x0,0xa
014e c5fe       |    |		Store	0x2,-0x2
014f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153       | S  |		.CONST	0x0153								; Address of begin
0151 0004       |    |		.CONST	0x0004								; Address of exception handler
0152 0001       |    |		.CONST	0x0001								; Number of locals
0153			BODY_0150:
0153			INIT_0150:
0153 00da       |    |		Load_Top	At_Offset_2
0154 e003       |    |		Load	0x0,0x3
0155 0216       |    |		Execute	Heap_Access,Convert
0156 800d       |    |		Call	0x0,0xd
0157 0033       | 3  |		Store_Top	Heap_Access,At_Offset_3
0158 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0159 0000 0000  |    |		.BLANK	0000[0x7]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163       | c  |		.CONST	0x0163								; Address of begin
0161 0004       |    |		.CONST	0x0004								; Address of exception handler
0162 0001       |    |		.CONST	0x0001								; Number of locals
0163			BODY_0160:
0163			INIT_0160:
0163 00da       |    |		Load_Top	At_Offset_2
0164 800c       |    |		Call	0x0,0xc
0165 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0166 0000 0000  |    |		.XXX[0x2]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b       | k  |		.CONST	0x016b								; Address of begin
0169 0004       |    |		.CONST	0x0004								; Address of exception handler
016a 0001       |    |		.CONST	0x0001								; Number of locals
016b			BODY_0168:
016b			INIT_0168:
016b 00da       |    |		Load_Top	At_Offset_2
016c 800b       |    |		Call	0x0,0xb
016d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
016e 0000 0000  |    |		.XXX[0x2]
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 4607       |F   |		Jump_Case	0x8
0174 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0175 7807       |x   |		Jump	0x17d								; case 0x1
0176 780a       |x   |		Jump	0x181								; case 0x2
0177 780e       |x   |		Jump	0x186								; case 0x3
0178 7811       |x   |		Jump	0x18a								; case 0x4
0179 7812       |x   |		Jump	0x18c								; case 0x5
017a 7813       |x   |		Jump	0x18e								; case 0x6
017b 7816       |x   |		Jump	0x192								; case 0x7
017c 4302       |C   |		.XXX[0x1]
017d 00da       |    |		Load_Top	At_Offset_2
017e 0091 0196  |    |		Action	Push_String_Extended_Indexed,0x196				; "NONE"
0180 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0181 00db       |    |		Load_Top	At_Offset_3
0182 00db       |    |		Load_Top	At_Offset_3
0183 00e0       |    |		Load_Encached	Standard_Cache
0184 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0185 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0186 00da       |    |		Load_Top	At_Offset_2
0187 00e0       |    |		Load_Encached	Standard_Cache
0188 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0189 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
018a 00db       |    |		Load_Top	At_Offset_3
018b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
018c 00db       |    |		Load_Top	At_Offset_3
018d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
018e e223       | #  |		Load	0x1,0x23
018f 00dc       |    |		Load_Top	At_Offset_4
0190 0267       | g  |		Execute	Discrete,Predecessor
0191 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0192 e223       | #  |		Load	0x1,0x23
0193 00dc       |    |		Load_Top	At_Offset_4
0194 0268       | h  |		Execute	Discrete,Successor
0195 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0196 ; --------------------------------------------------------------------------------------
0196 ; STRING TABLE
0196 ; --------------------------------------------------------------------------------------
0196 000e       |    |		.STRTAB	0x000e->0x019d							; "NONE"
0197 0010       |    |		.STRTAB	0x0010->0x019f							; "NO_ELEMENTS"
0198 0019       |    |		.STRTAB	0x0019->0x01a4							; "others => Unspecified"
0199 002c       | ,  |		.STRTAB	0x002c->0x01af							; "S=>"
019a 002d       | -  |		.STRTAB	0x002d->0x01b0							; "S=>("
019b 002f       | /  |		.STRTAB	0x002f->0x01b2							; ")"
019c 002e       | .  |		.STREND 0x002e->0x01b3
019d 4e4f 4e45  |NONE|		.STRTAB_STRINGS
01b3 0000 0000  |    |		.BLANK	0000[0x5]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; Debug Table
01b8 ; --------------------------------------------------------------------------------------
01b8 0004 000a  |    |		.DEBUG4	0x0004,0x000a,0x446b,0x0000,0x0001,0x0000
01be 0000 0000  |    |		.BLANK	0000[0x42]