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

⟦72b9c104e⟧

    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 0188       |    |		.CONST	0x0188								; 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 003b       | ;  |		.CONST	0x003b								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0016       |    |		.CONST	0x0016								; Number of locals
000b			INIT_0008:
000b 00e3       |    |		Load_Encached	Natural_Cache
000c e001       |    |		Load	0x0,0x1
000d 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
000e 00e9       |    |		Load_Encached	String_Cache
000f 029f 0163  |   c|		Declare_Subprogram	INIT_0160,For_Call
0011 4800       |H   |		Short_Literal	0x0
0012 4801       |H   |		Short_Literal	0x1
0013 4801       |H   |		Short_Literal	0x1
0014 4800       |H   |		Short_Literal	0x0
0015 4801       |H   |		Short_Literal	0x1
0016 4801       |H   |		Short_Literal	0x1
0017 031e       |    |		Declare_Type	Variant_Record,Defined,Visible
0018 e002       |    |		Load	0x0,0x2
0019 0129       | )  |		Execute	Any,Make_Visible
001a 029a 0043  |   C|		Declare_Subprogram	INIT_0040,For_Outer_Call,Visible,Unelaborated
001c 029a 006b  |   k|		Declare_Subprogram	INIT_0068,For_Outer_Call,Visible,Unelaborated
001e 029a 008b  |    |		Declare_Subprogram	INIT_0088,For_Outer_Call,Visible,Unelaborated
0020 029a 00ab  |    |		Declare_Subprogram	INIT_00a8,For_Outer_Call,Visible,Unelaborated
0022 029a 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Outer_Call,Visible,Unelaborated
0024 029a 00f3  |    |		Declare_Subprogram	INIT_00f0,For_Outer_Call,Visible,Unelaborated
0026 029a 011b  |    |		Declare_Subprogram	INIT_0118,For_Outer_Call,Visible,Unelaborated
0028 029a 0143  |   C|		Declare_Subprogram	INIT_0140,For_Outer_Call,Visible,Unelaborated
002a 00bf       |    |		Action	Accept_Activation
002b 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
002c 00c7       |    |		Action	Elaborate_Subprogram
002d 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
002e 00c7       |    |		Action	Elaborate_Subprogram
002f 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0030 00c7       |    |		Action	Elaborate_Subprogram
0031 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0032 00c7       |    |		Action	Elaborate_Subprogram
0033 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0034 00c7       |    |		Action	Elaborate_Subprogram
0035 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0036 00c7       |    |		Action	Elaborate_Subprogram
0037 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0038 00c7       |    |		Action	Elaborate_Subprogram
0039 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
003a 00c7       |    |		Action	Elaborate_Subprogram
003b			BODY_0008:
003b 00bc       |    |		Action	Signal_Activated
003c 00bb       |    |		Action	Signal_Completion
003d 0000 0000  |    |		.XXX[0x3]
003f 0000       |    |
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0048       | H  |		.CONST	0x0048								; Address of begin
0041 0004       |    |		.CONST	0x0004								; Address of exception handler
0042 0003       |    |		.CONST	0x0003								; Number of locals
0043			INIT_0040:
0043 00da       |    |		Load_Top	At_Offset_2
0044 e003       |    |		Load	0x0,0x3
0045 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0046 e004       |    |		Load	0x0,0x4
0047 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0048			BODY_0040:
0048 e004       |    |		Load	0x0,0x4
0049 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
004a e5f4       |    |		Load	0x2,-0xc
004b e5f5       |    |		Load	0x2,-0xb
004c e5f6       |    |		Load	0x2,-0xa
004d e5f7       |    |		Load	0x2,-0x9
004e e5f8       |    |		Load	0x2,-0x8
004f e5f9       |    |		Load	0x2,-0x7
0050 e5fa       |    |		Load	0x2,-0x6
0051 4800       |H   |		Short_Literal	0x0
0052 e402       |    |		Load	0x2,0x2
0053 e5fb       |    |		Load	0x2,-0x5
0054 e5fc       |    |		Load	0x2,-0x4
0055 e5fd       |    |		Load	0x2,-0x3
0056 e5fe       |    |		Load	0x2,-0x2
0057 e5f4       |    |		Load	0x2,-0xc
0058 4800       |H   |		Short_Literal	0x0
0059 e5ff       |    |		Load	0x2,-0x1
005a e005       |    |		Load	0x0,0x5
005b 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
005c e006       |    |		Load	0x0,0x6
005d 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
005e 0059       | Y  |		Store_Top	Discrete,At_Offset_1
005f e5f3       |    |		Load	0x2,-0xd
0060 00d9       |    |		Load_Top	At_Offset_1
0061 e007       |    |		Load	0x0,0x7
0062 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0063 c5f3       |    |		Store	0x2,-0xd
0064 450d       |E   |		Exit_Suprogram	New_Top_Offset 0xd
0065 0000 0000  |    |		.XXX[0x3]
0067 0000       |    |
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 0070       | p  |		.CONST	0x0070								; Address of begin
0069 0004       |    |		.CONST	0x0004								; Address of exception handler
006a 0003       |    |		.CONST	0x0003								; Number of locals
006b			INIT_0068:
006b 00da       |    |		Load_Top	At_Offset_2
006c e003       |    |		Load	0x0,0x3
006d 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
006e e004       |    |		Load	0x0,0x4
006f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0070			BODY_0068:
0070 e004       |    |		Load	0x0,0x4
0071 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0072 e5fd       |    |		Load	0x2,-0x3
0073 00db       |    |		Load_Top	At_Offset_3
0074 e5fe       |    |		Load	0x2,-0x2
0075 e5fd       |    |		Load	0x2,-0x3
0076 4800       |H   |		Short_Literal	0x0
0077 e5ff       |    |		Load	0x2,-0x1
0078 e005       |    |		Load	0x0,0x5
0079 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
007a e006       |    |		Load	0x0,0x6
007b 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
007c 0059       | Y  |		Store_Top	Discrete,At_Offset_1
007d e5fc       |    |		Load	0x2,-0x4
007e 00d9       |    |		Load_Top	At_Offset_1
007f e007       |    |		Load	0x0,0x7
0080 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0081 c5fc       |    |		Store	0x2,-0x4
0082 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0083 0000 0000  |    |		.BLANK	0000[0x5]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 0090       |    |		.CONST	0x0090								; Address of begin
0089 0004       |    |		.CONST	0x0004								; Address of exception handler
008a 0003       |    |		.CONST	0x0003								; Number of locals
008b			INIT_0088:
008b 00da       |    |		Load_Top	At_Offset_2
008c e003       |    |		Load	0x0,0x3
008d 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
008e e004       |    |		Load	0x0,0x4
008f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0090			BODY_0088:
0090 e004       |    |		Load	0x0,0x4
0091 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0092 e5fd       |    |		Load	0x2,-0x3
0093 00db       |    |		Load_Top	At_Offset_3
0094 e5fe       |    |		Load	0x2,-0x2
0095 e5fd       |    |		Load	0x2,-0x3
0096 4800       |H   |		Short_Literal	0x0
0097 e5ff       |    |		Load	0x2,-0x1
0098 e005       |    |		Load	0x0,0x5
0099 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
009a e006       |    |		Load	0x0,0x6
009b 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
009c 0059       | Y  |		Store_Top	Discrete,At_Offset_1
009d e5fc       |    |		Load	0x2,-0x4
009e 00d9       |    |		Load_Top	At_Offset_1
009f e007       |    |		Load	0x0,0x7
00a0 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
00a1 c5fc       |    |		Store	0x2,-0x4
00a2 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
00a3 0000 0000  |    |		.BLANK	0000[0x5]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00b0       |    |		.CONST	0x00b0								; Address of begin
00a9 0004       |    |		.CONST	0x0004								; Address of exception handler
00aa 0003       |    |		.CONST	0x0003								; Number of locals
00ab			INIT_00a8:
00ab 00da       |    |		Load_Top	At_Offset_2
00ac e003       |    |		Load	0x0,0x3
00ad 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
00ae e004       |    |		Load	0x0,0x4
00af 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00b0			BODY_00a8:
00b0 e004       |    |		Load	0x0,0x4
00b1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00b2 e5fd       |    |		Load	0x2,-0x3
00b3 00db       |    |		Load_Top	At_Offset_3
00b4 e5fe       |    |		Load	0x2,-0x2
00b5 e5fd       |    |		Load	0x2,-0x3
00b6 4800       |H   |		Short_Literal	0x0
00b7 e5ff       |    |		Load	0x2,-0x1
00b8 e005       |    |		Load	0x0,0x5
00b9 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
00ba e006       |    |		Load	0x0,0x6
00bb 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00bc 0059       | Y  |		Store_Top	Discrete,At_Offset_1
00bd e5fc       |    |		Load	0x2,-0x4
00be 00d9       |    |		Load_Top	At_Offset_1
00bf e007       |    |		Load	0x0,0x7
00c0 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
00c1 c5fc       |    |		Store	0x2,-0x4
00c2 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
00c3 0000 0000  |    |		.BLANK	0000[0x5]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00dd       |    |		.CONST	0x00dd								; Address of begin
00c9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ca 0004       |    |		.CONST	0x0004								; Number of locals
00cb			INIT_00c8:
00cb 00da       |    |		Load_Top	At_Offset_2
00cc e003       |    |		Load	0x0,0x3
00cd 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
00ce e5fe       |    |		Load	0x2,-0x2
00cf 00d9       |    |		Load_Top	At_Offset_1
00d0 e5fe       |    |		Load	0x2,-0x2
00d1 4800       |H   |		Short_Literal	0x0
00d2 e5ff       |    |		Load	0x2,-0x1
00d3 e005       |    |		Load	0x0,0x5
00d4 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
00d5 e006       |    |		Load	0x0,0x6
00d6 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00d7 00d8       |    |		Load_Top	At_Offset_0
00d8 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
00d9 e20d       |    |		Load	0x1,0xd
00da 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00db 00d8       |    |		Load_Top	At_Offset_0
00dc 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00dd			BODY_00c8:
00dd 00d9       |    |		Load_Top	At_Offset_1
00de 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
00df 00d9       |    |		Load_Top	At_Offset_1
00e0 2903       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
00e1 00d8       |    |		Load_Top	At_Offset_0
00e2 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00e3 00da       |    |		Load_Top	At_Offset_2
00e4 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00e5 e007       |    |		Load	0x0,0x7
00e6 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
00e7 00d9       |    |		Load_Top	At_Offset_1
00e8 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00e9 00d8       |    |		Load_Top	At_Offset_0
00ea 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00eb 0000 0000  |    |		.BLANK	0000[0x5]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 0105       |    |		.CONST	0x0105								; Address of begin
00f1 0004       |    |		.CONST	0x0004								; Address of exception handler
00f2 0004       |    |		.CONST	0x0004								; Number of locals
00f3			INIT_00f0:
00f3 00da       |    |		Load_Top	At_Offset_2
00f4 e003       |    |		Load	0x0,0x3
00f5 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
00f6 e5fe       |    |		Load	0x2,-0x2
00f7 00d9       |    |		Load_Top	At_Offset_1
00f8 e5fe       |    |		Load	0x2,-0x2
00f9 4800       |H   |		Short_Literal	0x0
00fa e5ff       |    |		Load	0x2,-0x1
00fb e005       |    |		Load	0x0,0x5
00fc 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
00fd e006       |    |		Load	0x0,0x6
00fe 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
00ff 00d8       |    |		Load_Top	At_Offset_0
0100 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0101 e20d       |    |		Load	0x1,0xd
0102 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0103 00d8       |    |		Load_Top	At_Offset_0
0104 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0105			BODY_00f0:
0105 00d9       |    |		Load_Top	At_Offset_1
0106 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0107 00d9       |    |		Load_Top	At_Offset_1
0108 2903       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
0109 00d8       |    |		Load_Top	At_Offset_0
010a 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
010b 00da       |    |		Load_Top	At_Offset_2
010c 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
010d e007       |    |		Load	0x0,0x7
010e 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
010f 00d9       |    |		Load_Top	At_Offset_1
0110 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0111 00d8       |    |		Load_Top	At_Offset_0
0112 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0113 0000 0000  |    |		.BLANK	0000[0x5]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 012d       | -  |		.CONST	0x012d								; Address of begin
0119 0004       |    |		.CONST	0x0004								; Address of exception handler
011a 0004       |    |		.CONST	0x0004								; Number of locals
011b			INIT_0118:
011b 00da       |    |		Load_Top	At_Offset_2
011c e003       |    |		Load	0x0,0x3
011d 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
011e e5fe       |    |		Load	0x2,-0x2
011f 00d9       |    |		Load_Top	At_Offset_1
0120 e5fe       |    |		Load	0x2,-0x2
0121 4800       |H   |		Short_Literal	0x0
0122 e5ff       |    |		Load	0x2,-0x1
0123 e005       |    |		Load	0x0,0x5
0124 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0125 e006       |    |		Load	0x0,0x6
0126 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0127 00d8       |    |		Load_Top	At_Offset_0
0128 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0129 e20d       |    |		Load	0x1,0xd
012a 1c08       |    |		Execute_Immediate	Run_Utility,0x8
012b 00d8       |    |		Load_Top	At_Offset_0
012c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
012d			BODY_0118:
012d 00d9       |    |		Load_Top	At_Offset_1
012e 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
012f 00d9       |    |		Load_Top	At_Offset_1
0130 2903       |)   |		Execute	Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
0131 00d8       |    |		Load_Top	At_Offset_0
0132 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0133 00da       |    |		Load_Top	At_Offset_2
0134 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0135 e007       |    |		Load	0x0,0x7
0136 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0137 00d9       |    |		Load_Top	At_Offset_1
0138 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0139 00d8       |    |		Load_Top	At_Offset_0
013a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
013b 0000 0000  |    |		.BLANK	0000[0x5]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 014b       | K  |		.CONST	0x014b								; Address of begin
0141 0004       |    |		.CONST	0x0004								; Address of exception handler
0142 0003       |    |		.CONST	0x0003								; Number of locals
0143			INIT_0140:
0143 00da       |    |		Load_Top	At_Offset_2
0144 e008       |    |		Load	0x0,0x8
0145 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0146 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
0147 e003       |    |		Load	0x0,0x3
0148 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0149 e004       |    |		Load	0x0,0x4
014a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
014b			BODY_0140:
014b e004       |    |		Load	0x0,0x4
014c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
014d e5fd       |    |		Load	0x2,-0x3
014e 00db       |    |		Load_Top	At_Offset_3
014f e5fe       |    |		Load	0x2,-0x2
0150 e5ff       |    |		Load	0x2,-0x1
0151 e006       |    |		Load	0x0,0x6
0152 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0153 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0154 e5fc       |    |		Load	0x2,-0x4
0155 00d9       |    |		Load_Top	At_Offset_1
0156 e007       |    |		Load	0x0,0x7
0157 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0158 c5fc       |    |		Store	0x2,-0x4
0159 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
015a 0000 0000  |    |		.BLANK	0000[0x6]
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 4608       |F   |		Jump_Case	0x9
0164 7808       |x   |		Jump	0x16d								; case 0x0
0165 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0166 781f       |x   |		Jump	0x186								; case 0x2
0167 781e       |x   |		Jump	0x186								; case 0x3
0168 781d       |x   |		Jump	0x186								; case 0x4
0169 781c       |x   |		Jump	0x186								; case 0x5
016a 781b       |x   |		Jump	0x186								; case 0x6
016b 7807       |x   |		Jump	0x173								; case 0x7
016c 780f       |x   |		Jump	0x17c								; case 0x8
016d 00da       |    |		Load_Top	At_Offset_2
016e 2202       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x2
016f 00da       |    |		Load_Top	At_Offset_2
0170 2402       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
0171 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0172 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0173 00db       |    |		Load_Top	At_Offset_3
0174 4801       |H   |		Short_Literal	0x1
0175 e5fe       |    |		Load	0x2,-0x2
0176 00e9       |    |		Load_Encached	String_Cache
0177 035b       | [  |		Declare_Type	Array,Constrained
0178 4801       |H   |		Short_Literal	0x1
0179 e5ff       |    |		Load	0x2,-0x1
017a 031b       |    |		Declare_Type	Variant_Record,Constrained
017b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
017c 00db       |    |		Load_Top	At_Offset_3
017d 00db       |    |		Load_Top	At_Offset_3
017e 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
017f 4801       |H   |		Short_Literal	0x1
0180 e5fe       |    |		Load	0x2,-0x2
0181 00e9       |    |		Load_Encached	String_Cache
0182 0334       | 4  |		Declare_Variable	Array,With_Constraint
0183 2d03       |-   |		Execute	Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3
0184 016a       | j  |		QQ_execute	Variant_Record,XXX
0185 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0186 0869       | i  |		Execute_Immediate	Raise,0x69
0187 0000       |    |		.XXX[0x1]
0188 ; --------------------------------------------------------------------------------------
0188 ; Debug Table
0188 ; --------------------------------------------------------------------------------------
0188 0004 000b  |    |		.DEBUG4	0x0004,0x000b,0xcf0f,0x0000,0x0001,0x0000
018e 0000 0000  |    |		.BLANK	0000[0x72]