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

⟦7e36e1b4e⟧

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

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦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 0250       | P  |		.CONST	0x0250								; 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 01aa       |    |		.CONST	0x01aa								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 003f       | ?  |		.CONST	0x003f								; Number of locals
000b			INIT_0008:
000b e20f       |    |		Load	0x1,0xf
000c 0266       | f  |		Execute	Discrete,Bounds
000d 00e1       |    |		Load_Encached	Boolean_Cache
000e 02a0       |    |		Declare_Subprogram	Null_Subprogram
000f 4801       |H   |		Short_Literal	0x1
0010 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
0011 e20f       |    |		Load	0x1,0xf
0012 0266       | f  |		Execute	Discrete,Bounds
0013 00da       |    |		Load_Top	At_Offset_2
0014 035b       | [  |		Declare_Type	Array,Constrained
0015 0337       | 7  |		Declare_Variable	Array
0016 00d8       |    |		Load_Top	At_Offset_0
0017 01d9       |    |		Execute	Vector,Reverse_Bounds
0018 0263       | c  |		Execute	Discrete,Above_Bound
0019 7005       |p   |		Jump_Nonzero	0x1f
001a 4801       |H   |		Short_Literal	0x1
001b 00d9       |    |		Load_Top	At_Offset_1
001c e21d       |    |		Load	0x1,0x1d
001d 01d6       |    |		Execute	Vector,Field_Write
001e 3ffb       |?   |		Loop_Increasing	0x1a
001f 0129       | )  |		Execute	Any,Make_Visible
0020 e210       |    |		Load	0x1,0x10
0021 0266       | f  |		Execute	Discrete,Bounds
0022 00e1       |    |		Load_Encached	Boolean_Cache
0023 02a0       |    |		Declare_Subprogram	Null_Subprogram
0024 4801       |H   |		Short_Literal	0x1
0025 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
0026 e210       |    |		Load	0x1,0x10
0027 0266       | f  |		Execute	Discrete,Bounds
0028 00da       |    |		Load_Top	At_Offset_2
0029 035b       | [  |		Declare_Type	Array,Constrained
002a 0337       | 7  |		Declare_Variable	Array
002b 00d8       |    |		Load_Top	At_Offset_0
002c 01d9       |    |		Execute	Vector,Reverse_Bounds
002d 0263       | c  |		Execute	Discrete,Above_Bound
002e 7005       |p   |		Jump_Nonzero	0x34
002f 4801       |H   |		Short_Literal	0x1
0030 00d9       |    |		Load_Top	At_Offset_1
0031 e21f       |    |		Load	0x1,0x1f
0032 01d6       |    |		Execute	Vector,Field_Write
0033 3ffb       |?   |		Loop_Increasing	0x2f
0034 0129       | )  |		Execute	Any,Make_Visible
0035 4800       |H   |		Short_Literal	0x0
0036 e001       |    |		Load	0x0,0x1
0037 02a0       |    |		Declare_Subprogram	Null_Subprogram
0038 038f       |    |		Declare_Type	Package,Defined,Visible
0039 e002       |    |		Load	0x0,0x2
003a e003       |    |		Load	0x0,0x3
003b 4802       |H   |		Short_Literal	0x2
003c 00db       |    |		Load_Top	At_Offset_3
003d 020e       |    |		Execute	Module,Augment_Imports
003e 0386       |    |		Declare_Variable	Package,Visible
003f 4800       |H   |		Short_Literal	0x0
0040 e004       |    |		Load	0x0,0x4
0041 02a0       |    |		Declare_Subprogram	Null_Subprogram
0042 038f       |    |		Declare_Type	Package,Defined,Visible
0043 e002       |    |		Load	0x0,0x2
0044 e005       |    |		Load	0x0,0x5
0045 e003       |    |		Load	0x0,0x3
0046 4803       |H   |		Short_Literal	0x3
0047 e221       | !  |		Load	0x1,0x21
0048 020e       |    |		Execute	Module,Augment_Imports
0049 0386       |    |		Declare_Variable	Package,Visible
004a 4800       |H   |		Short_Literal	0x0
004b e006       |    |		Load	0x0,0x6
004c 02a0       |    |		Declare_Subprogram	Null_Subprogram
004d 038f       |    |		Declare_Type	Package,Defined,Visible
004e e002       |    |		Load	0x0,0x2
004f e003       |    |		Load	0x0,0x3
0050 e005       |    |		Load	0x0,0x5
0051 e007       |    |		Load	0x0,0x7
0052 4804       |H   |		Short_Literal	0x4
0053 e222       | "  |		Load	0x1,0x22
0054 020e       |    |		Execute	Module,Augment_Imports
0055 0386       |    |		Declare_Variable	Package,Visible
0056 4800       |H   |		Short_Literal	0x0
0057 e008       |    |		Load	0x0,0x8
0058 02a0       |    |		Declare_Subprogram	Null_Subprogram
0059 038f       |    |		Declare_Type	Package,Defined,Visible
005a e002       |    |		Load	0x0,0x2
005b e005       |    |		Load	0x0,0x5
005c e003       |    |		Load	0x0,0x3
005d 4803       |H   |		Short_Literal	0x3
005e e223       | #  |		Load	0x1,0x23
005f 020e       |    |		Execute	Module,Augment_Imports
0060 0386       |    |		Declare_Variable	Package,Visible
0061 4800       |H   |		Short_Literal	0x0
0062 e009       |    |		Load	0x0,0x9
0063 02a0       |    |		Declare_Subprogram	Null_Subprogram
0064 038f       |    |		Declare_Type	Package,Defined,Visible
0065 e002       |    |		Load	0x0,0x2
0066 e003       |    |		Load	0x0,0x3
0067 4802       |H   |		Short_Literal	0x2
0068 00db       |    |		Load_Top	At_Offset_3
0069 020e       |    |		Execute	Module,Augment_Imports
006a 0386       |    |		Declare_Variable	Package,Visible
006b 4800       |H   |		Short_Literal	0x0
006c e00a       |    |		Load	0x0,0xa
006d 02a0       |    |		Declare_Subprogram	Null_Subprogram
006e 038f       |    |		Declare_Type	Package,Defined,Visible
006f e007       |    |		Load	0x0,0x7
0070 4801       |H   |		Short_Literal	0x1
0071 00da       |    |		Load_Top	At_Offset_2
0072 020e       |    |		Execute	Module,Augment_Imports
0073 0386       |    |		Declare_Variable	Package,Visible
0074 4800       |H   |		Short_Literal	0x0
0075 e00b       |    |		Load	0x0,0xb
0076 02a0       |    |		Declare_Subprogram	Null_Subprogram
0077 038f       |    |		Declare_Type	Package,Defined,Visible
0078 0386       |    |		Declare_Variable	Package,Visible
0079 4800       |H   |		Short_Literal	0x0
007a e00c       |    |		Load	0x0,0xc
007b 02a0       |    |		Declare_Subprogram	Null_Subprogram
007c 038f       |    |		Declare_Type	Package,Defined,Visible
007d 0386       |    |		Declare_Variable	Package,Visible
007e 00bf       |    |		Action	Accept_Activation
007f e00d       |    |		Load	0x0,0xd
0080 e00e       |    |		Load	0x0,0xe
0081 e21e       |    |		Load	0x1,0x1e
0082 e00f       |    |		Load	0x0,0xf
0083 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0084 e010       |    |		Load	0x0,0x10
0085 0387       |    |		Declare_Variable	Package
0086 00d8       |    |		Load_Top	At_Offset_0
0087 020f       |    |		Execute	Module,Activate
0088 e011       |    |		Load	0x0,0x11
0089 e012       |    |		Load	0x0,0x12
008a e00f       |    |		Load	0x0,0xf
008b 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
008c e21e       |    |		Load	0x1,0x1e
008d e010       |    |		Load	0x0,0x10
008e 0387       |    |		Declare_Variable	Package
008f 00d8       |    |		Load_Top	At_Offset_0
0090 020f       |    |		Execute	Module,Activate
0091 e013       |    |		Load	0x0,0x13
0092 e014       |    |		Load	0x0,0x14
0093 e222       | "  |		Load	0x1,0x22
0094 1b1f       |    |		Execute	Package,Field_Read,Field_Number 0x1f
0095 e015       |    |		Load	0x0,0x15
0096 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0097 1b1f       |    |		Execute	Package,Field_Read,Field_Number 0x1f
0098 e010       |    |		Load	0x0,0x10
0099 0387       |    |		Declare_Variable	Package
009a 00d8       |    |		Load_Top	At_Offset_0
009b 020f       |    |		Execute	Module,Activate
009c e016       |    |		Load	0x0,0x16
009d e017       |    |		Load	0x0,0x17
009e e015       |    |		Load	0x0,0x15
009f 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
00a0 1b1f       |    |		Execute	Package,Field_Read,Field_Number 0x1f
00a1 e222       | "  |		Load	0x1,0x22
00a2 1b1f       |    |		Execute	Package,Field_Read,Field_Number 0x1f
00a3 e010       |    |		Load	0x0,0x10
00a4 0387       |    |		Declare_Variable	Package
00a5 00d8       |    |		Load_Top	At_Offset_0
00a6 020f       |    |		Execute	Module,Activate
00a7 e018       |    |		Load	0x0,0x18
00a8 e019       |    |		Load	0x0,0x19
00a9 e221       | !  |		Load	0x1,0x21
00aa 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
00ab e015       |    |		Load	0x0,0x15
00ac 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
00ad 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
00ae e010       |    |		Load	0x0,0x10
00af 0387       |    |		Declare_Variable	Package
00b0 00d8       |    |		Load_Top	At_Offset_0
00b1 020f       |    |		Execute	Module,Activate
00b2 e01a       |    |		Load	0x0,0x1a
00b3 e01b       |    |		Load	0x0,0x1b
00b4 e015       |    |		Load	0x0,0x15
00b5 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
00b6 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
00b7 e221       | !  |		Load	0x1,0x21
00b8 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
00b9 e010       |    |		Load	0x0,0x10
00ba 0387       |    |		Declare_Variable	Package
00bb 00d8       |    |		Load_Top	At_Offset_0
00bc 020f       |    |		Execute	Module,Activate
00bd e01c       |    |		Load	0x0,0x1c
00be e01d       |    |		Load	0x0,0x1d
00bf e223       | #  |		Load	0x1,0x23
00c0 1b29       | )  |		Execute	Package,Field_Read,Field_Number 0x29
00c1 e015       |    |		Load	0x0,0x15
00c2 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
00c3 1b2a       | *  |		Execute	Package,Field_Read,Field_Number 0x2a
00c4 e010       |    |		Load	0x0,0x10
00c5 0387       |    |		Declare_Variable	Package
00c6 00d8       |    |		Load_Top	At_Offset_0
00c7 020f       |    |		Execute	Module,Activate
00c8 e01e       |    |		Load	0x0,0x1e
00c9 e01f       |    |		Load	0x0,0x1f
00ca e015       |    |		Load	0x0,0x15
00cb 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
00cc 1b2a       | *  |		Execute	Package,Field_Read,Field_Number 0x2a
00cd e223       | #  |		Load	0x1,0x23
00ce 1b29       | )  |		Execute	Package,Field_Read,Field_Number 0x29
00cf e010       |    |		Load	0x0,0x10
00d0 0387       |    |		Declare_Variable	Package
00d1 00d8       |    |		Load_Top	At_Offset_0
00d2 020f       |    |		Execute	Module,Activate
00d3 e020       |    |		Load	0x0,0x20
00d4 e021       | !  |		Load	0x0,0x21
00d5 e223       | #  |		Load	0x1,0x23
00d6 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
00d7 e015       |    |		Load	0x0,0x15
00d8 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
00d9 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
00da e010       |    |		Load	0x0,0x10
00db 0387       |    |		Declare_Variable	Package
00dc 00d8       |    |		Load_Top	At_Offset_0
00dd 020f       |    |		Execute	Module,Activate
00de e022       | "  |		Load	0x0,0x22
00df e023       | #  |		Load	0x0,0x23
00e0 e015       |    |		Load	0x0,0x15
00e1 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
00e2 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
00e3 e223       | #  |		Load	0x1,0x23
00e4 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
00e5 e010       |    |		Load	0x0,0x10
00e6 0387       |    |		Declare_Variable	Package
00e7 00d8       |    |		Load_Top	At_Offset_0
00e8 020f       |    |		Execute	Module,Activate
00e9 e024       | $  |		Load	0x0,0x24
00ea e025       | %  |		Load	0x0,0x25
00eb e220       |    |		Load	0x1,0x20
00ec 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00ed e026       | &  |		Load	0x0,0x26
00ee 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00ef e010       |    |		Load	0x0,0x10
00f0 0387       |    |		Declare_Variable	Package
00f1 00d8       |    |		Load_Top	At_Offset_0
00f2 020f       |    |		Execute	Module,Activate
00f3 e027       | '  |		Load	0x0,0x27
00f4 e028       | (  |		Load	0x0,0x28
00f5 e026       | &  |		Load	0x0,0x26
00f6 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00f7 e220       |    |		Load	0x1,0x20
00f8 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00f9 e010       |    |		Load	0x0,0x10
00fa 0387       |    |		Declare_Variable	Package
00fb 00d8       |    |		Load_Top	At_Offset_0
00fc 020f       |    |		Execute	Module,Activate
00fd e029       | )  |		Load	0x0,0x29
00fe e02a       | *  |		Load	0x0,0x2a
00ff e220       |    |		Load	0x1,0x20
0100 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0101 e026       | &  |		Load	0x0,0x26
0102 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0103 e010       |    |		Load	0x0,0x10
0104 0387       |    |		Declare_Variable	Package
0105 00d8       |    |		Load_Top	At_Offset_0
0106 020f       |    |		Execute	Module,Activate
0107 e02b       | +  |		Load	0x0,0x2b
0108 e02c       | ,  |		Load	0x0,0x2c
0109 e026       | &  |		Load	0x0,0x26
010a 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
010b e220       |    |		Load	0x1,0x20
010c 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
010d e010       |    |		Load	0x0,0x10
010e 0387       |    |		Declare_Variable	Package
010f 00d8       |    |		Load_Top	At_Offset_0
0110 020f       |    |		Execute	Module,Activate
0111 e02d       | -  |		Load	0x0,0x2d
0112 e02e       | .  |		Load	0x0,0x2e
0113 e222       | "  |		Load	0x1,0x22
0114 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
0115 e015       |    |		Load	0x0,0x15
0116 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0117 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
0118 e010       |    |		Load	0x0,0x10
0119 0387       |    |		Declare_Variable	Package
011a 00d8       |    |		Load_Top	At_Offset_0
011b 020f       |    |		Execute	Module,Activate
011c e02f       | /  |		Load	0x0,0x2f
011d e030       | 0  |		Load	0x0,0x30
011e e015       |    |		Load	0x0,0x15
011f 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0120 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
0121 e222       | "  |		Load	0x1,0x22
0122 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
0123 e010       |    |		Load	0x0,0x10
0124 0387       |    |		Declare_Variable	Package
0125 00d8       |    |		Load_Top	At_Offset_0
0126 020f       |    |		Execute	Module,Activate
0127 029d 01cb  |    |		Declare_Subprogram	INIT_01c8,For_Outer_Call
0129 029d 01e3  |    |		Declare_Subprogram	INIT_01e0,For_Outer_Call
012b 029d 01fb  |    |		Declare_Subprogram	INIT_01f8,For_Outer_Call
012d 029d 0213  |    |		Declare_Subprogram	INIT_0210,For_Outer_Call
012f 029d 022b  |   +|		Declare_Subprogram	INIT_0228,For_Outer_Call
0131 029d 0243  |   C|		Declare_Subprogram	INIT_0240,For_Outer_Call
0133 029d 024b  |   K|		Declare_Subprogram	INIT_0248,For_Outer_Call
0135 e031       | 1  |		Load	0x0,0x31
0136 e032       | 2  |		Load	0x0,0x32
0137 1d38       | 8  |		Execute_Immediate	Reference_Lex_1,0x38
0138 1d39       | 9  |		Execute_Immediate	Reference_Lex_1,0x39
0139 1d3a       | :  |		Execute_Immediate	Reference_Lex_1,0x3a
013a 1d3b       | ;  |		Execute_Immediate	Reference_Lex_1,0x3b
013b 1d3c       | <  |		Execute_Immediate	Reference_Lex_1,0x3c
013c 1d3d       | =  |		Execute_Immediate	Reference_Lex_1,0x3d
013d 1d3e       | >  |		Execute_Immediate	Reference_Lex_1,0x3e
013e e00f       |    |		Load	0x0,0xf
013f 1b1f       |    |		Execute	Package,Field_Read,Field_Number 0x1f
0140 0387       |    |		Declare_Variable	Package
0141 00d8       |    |		Load_Top	At_Offset_0
0142 020f       |    |		Execute	Module,Activate
0143 e026       | &  |		Load	0x0,0x26
0144 e00f       |    |		Load	0x0,0xf
0145 00b6       |    |		Action	Make_Scope
0146 e233       | 3  |		Load	0x1,0x33
0147 4804       |H   |		Short_Literal	0x4
0148 e220       |    |		Load	0x1,0x20
0149 020e       |    |		Execute	Module,Augment_Imports
014a e220       |    |		Load	0x1,0x20
014b 020f       |    |		Execute	Module,Activate
014c e033       | 3  |		Load	0x0,0x33
014d e22d       | -  |		Load	0x1,0x2d
014e e22c       | ,  |		Load	0x1,0x2c
014f e026       | &  |		Load	0x0,0x26
0150 e228       | (  |		Load	0x1,0x28
0151 e034       | 4  |		Load	0x0,0x34
0152 e035       | 5  |		Load	0x0,0x35
0153 e005       |    |		Load	0x0,0x5
0154 e234       | 4  |		Load	0x1,0x34
0155 4809       |H   |		Short_Literal	0x9
0156 e225       | %  |		Load	0x1,0x25
0157 020e       |    |		Execute	Module,Augment_Imports
0158 e225       | %  |		Load	0x1,0x25
0159 020f       |    |		Execute	Module,Activate
015a e036       | 6  |		Load	0x0,0x36
015b e037       | 7  |		Load	0x0,0x37
015c e038       | 8  |		Load	0x0,0x38
015d e039       | 9  |		Load	0x0,0x39
015e e00f       |    |		Load	0x0,0xf
015f 00b6       |    |		Action	Make_Scope
0160 e005       |    |		Load	0x0,0x5
0161 e03a       | :  |		Load	0x0,0x3a
0162 e03b       | ;  |		Load	0x0,0x3b
0163 e03c       | <  |		Load	0x0,0x3c
0164 e03d       | =  |		Load	0x0,0x3d
0165 e03e       | >  |		Load	0x0,0x3e
0166 e03f       | ?  |		Load	0x0,0x3f
0167 e040       | @  |		Load	0x0,0x40
0168 e041       | A  |		Load	0x0,0x41
0169 480f       |H   |		Short_Literal	0xf
016a e226       | &  |		Load	0x1,0x26
016b 020e       |    |		Execute	Module,Augment_Imports
016c e226       | &  |		Load	0x1,0x26
016d 020f       |    |		Execute	Module,Activate
016e e042       | B  |		Load	0x0,0x42
016f e005       |    |		Load	0x0,0x5
0170 e00f       |    |		Load	0x0,0xf
0171 e22c       | ,  |		Load	0x1,0x2c
0172 4804       |H   |		Short_Literal	0x4
0173 e227       | '  |		Load	0x1,0x27
0174 020e       |    |		Execute	Module,Augment_Imports
0175 e227       | '  |		Load	0x1,0x27
0176 020f       |    |		Execute	Module,Activate
0177 e015       |    |		Load	0x0,0x15
0178 e22d       | -  |		Load	0x1,0x2d
0179 e236       | 6  |		Load	0x1,0x36
017a e22b       | +  |		Load	0x1,0x2b
017b 4804       |H   |		Short_Literal	0x4
017c e222       | "  |		Load	0x1,0x22
017d 020e       |    |		Execute	Module,Augment_Imports
017e e222       | "  |		Load	0x1,0x22
017f 020f       |    |		Execute	Module,Activate
0180 e043       | C  |		Load	0x0,0x43
0181 e044       | D  |		Load	0x0,0x44
0182 e00f       |    |		Load	0x0,0xf
0183 e015       |    |		Load	0x0,0x15
0184 e22d       | -  |		Load	0x1,0x2d
0185 e22c       | ,  |		Load	0x1,0x2c
0186 e007       |    |		Load	0x0,0x7
0187 4807       |H   |		Short_Literal	0x7
0188 e221       | !  |		Load	0x1,0x21
0189 020e       |    |		Execute	Module,Augment_Imports
018a e221       | !  |		Load	0x1,0x21
018b 020f       |    |		Execute	Module,Activate
018c e045       | E  |		Load	0x0,0x45
018d e046       | F  |		Load	0x0,0x46
018e e00f       |    |		Load	0x0,0xf
018f e015       |    |		Load	0x0,0x15
0190 e228       | (  |		Load	0x1,0x28
0191 e007       |    |		Load	0x0,0x7
0192 e22d       | -  |		Load	0x1,0x2d
0193 e22c       | ,  |		Load	0x1,0x2c
0194 00b6       |    |		Action	Make_Scope
0195 e22f       | /  |		Load	0x1,0x2f
0196 e22b       | +  |		Load	0x1,0x2b
0197 e229       | )  |		Load	0x1,0x29
0198 480c       |H   |		Short_Literal	0xc
0199 e223       | #  |		Load	0x1,0x23
019a 020e       |    |		Execute	Module,Augment_Imports
019b e223       | #  |		Load	0x1,0x23
019c 020f       |    |		Execute	Module,Activate
019d e047       | G  |		Load	0x0,0x47
019e e048       | H  |		Load	0x0,0x48
019f e049       | I  |		Load	0x0,0x49
01a0 e00f       |    |		Load	0x0,0xf
01a1 00b6       |    |		Action	Make_Scope
01a2 e22d       | -  |		Load	0x1,0x2d
01a3 e231       | 1  |		Load	0x1,0x31
01a4 e22a       | *  |		Load	0x1,0x2a
01a5 4808       |H   |		Short_Literal	0x8
01a6 e224       | $  |		Load	0x1,0x24
01a7 020e       |    |		Execute	Module,Augment_Imports
01a8 e224       | $  |		Load	0x1,0x24
01a9 020f       |    |		Execute	Module,Activate
01aa			BODY_0008:
01aa e210       |    |		Load	0x1,0x10
01ab 0269       | i  |		Execute	Discrete,Last
01ac e00f       |    |		Load	0x0,0xf
01ad 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01ae 00d9       |    |		Load_Top	At_Offset_1
01af 00d0       |    |		Action	Swap_Control
01b0 0260       | `  |		Execute	Discrete,In_Type
01b1 7001       |p   |		Jump_Nonzero	0x1b3
01b2 0801       |    |		Execute_Immediate	Raise,0x1
01b3 e20f       |    |		Load	0x1,0xf
01b4 0269       | i  |		Execute	Discrete,Last
01b5 e00f       |    |		Load	0x0,0xf
01b6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01b7 00d9       |    |		Load_Top	At_Offset_1
01b8 00d0       |    |		Action	Swap_Control
01b9 0260       | `  |		Execute	Discrete,In_Type
01ba 7001       |p   |		Jump_Nonzero	0x1bc
01bb 0801       |    |		Execute_Immediate	Raise,0x1
01bc 00da       |    |		Load_Top	At_Offset_2
01bd 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
01be e00f       |    |		Load	0x0,0xf
01bf 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
01c0 e21a       |    |		Load	0x1,0x1a
01c1 e005       |    |		Load	0x0,0x5
01c2 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
01c3 e21b       |    |		Load	0x1,0x1b
01c4 e005       |    |		Load	0x0,0x5
01c5 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
01c6 00bc       |    |		Action	Signal_Activated
01c7 00bb       |    |		Action	Signal_Completion
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb       |    |		.CONST	0x01cb								; Address of begin
01c9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ca 0001       |    |		.CONST	0x0001								; Number of locals
01cb			BODY_01c8:
01cb			INIT_01c8:
01cb 00da       |    |		Load_Top	At_Offset_2
01cc 00d8       |    |		Load_Top	At_Offset_0
01cd e20f       |    |		Load	0x1,0xf
01ce 0122       | "  |		Execute	Any,Make_Root_Type
01cf 0260       | `  |		Execute	Discrete,In_Type
01d0 7001       |p   |		Jump_Nonzero	0x1d2
01d1 0801       |    |		Execute_Immediate	Raise,0x1
01d2 00d8       |    |		Load_Top	At_Offset_0
01d3 e20f       |    |		Load	0x1,0xf
01d4 0260       | `  |		Execute	Discrete,In_Type
01d5 7001       |p   |		Jump_Nonzero	0x1d7
01d6 0801       |    |		Execute_Immediate	Raise,0x1
01d7 8213       |    |		Call	0x1,0x13
01d8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01d9 0000 0000  |    |		.BLANK	0000[0x7]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3       |    |		.CONST	0x01e3								; Address of begin
01e1 0004       |    |		.CONST	0x0004								; Address of exception handler
01e2 0001       |    |		.CONST	0x0001								; Number of locals
01e3			BODY_01e0:
01e3			INIT_01e0:
01e3 00da       |    |		Load_Top	At_Offset_2
01e4 00d8       |    |		Load_Top	At_Offset_0
01e5 e20f       |    |		Load	0x1,0xf
01e6 0122       | "  |		Execute	Any,Make_Root_Type
01e7 0260       | `  |		Execute	Discrete,In_Type
01e8 7001       |p   |		Jump_Nonzero	0x1ea
01e9 0801       |    |		Execute_Immediate	Raise,0x1
01ea 00d8       |    |		Load_Top	At_Offset_0
01eb e20f       |    |		Load	0x1,0xf
01ec 0260       | `  |		Execute	Discrete,In_Type
01ed 7001       |p   |		Jump_Nonzero	0x1ef
01ee 0801       |    |		Execute_Immediate	Raise,0x1
01ef 8214       |    |		Call	0x1,0x14
01f0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01f1 0000 0000  |    |		.BLANK	0000[0x7]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb       |    |		.CONST	0x01fb								; Address of begin
01f9 0004       |    |		.CONST	0x0004								; Address of exception handler
01fa 0001       |    |		.CONST	0x0001								; Number of locals
01fb			BODY_01f8:
01fb			INIT_01f8:
01fb 00da       |    |		Load_Top	At_Offset_2
01fc 00d8       |    |		Load_Top	At_Offset_0
01fd e20f       |    |		Load	0x1,0xf
01fe 0122       | "  |		Execute	Any,Make_Root_Type
01ff 0260       | `  |		Execute	Discrete,In_Type
0200 7001       |p   |		Jump_Nonzero	0x202
0201 0801       |    |		Execute_Immediate	Raise,0x1
0202 00d8       |    |		Load_Top	At_Offset_0
0203 e20f       |    |		Load	0x1,0xf
0204 0260       | `  |		Execute	Discrete,In_Type
0205 7001       |p   |		Jump_Nonzero	0x207
0206 0801       |    |		Execute_Immediate	Raise,0x1
0207 8215       |    |		Call	0x1,0x15
0208 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0209 0000 0000  |    |		.BLANK	0000[0x7]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213       |    |		.CONST	0x0213								; Address of begin
0211 0004       |    |		.CONST	0x0004								; Address of exception handler
0212 0001       |    |		.CONST	0x0001								; Number of locals
0213			BODY_0210:
0213			INIT_0210:
0213 00da       |    |		Load_Top	At_Offset_2
0214 00d8       |    |		Load_Top	At_Offset_0
0215 e210       |    |		Load	0x1,0x10
0216 0122       | "  |		Execute	Any,Make_Root_Type
0217 0260       | `  |		Execute	Discrete,In_Type
0218 7001       |p   |		Jump_Nonzero	0x21a
0219 0801       |    |		Execute_Immediate	Raise,0x1
021a 00d8       |    |		Load_Top	At_Offset_0
021b e210       |    |		Load	0x1,0x10
021c 0260       | `  |		Execute	Discrete,In_Type
021d 7001       |p   |		Jump_Nonzero	0x21f
021e 0801       |    |		Execute_Immediate	Raise,0x1
021f 8216       |    |		Call	0x1,0x16
0220 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0221 0000 0000  |    |		.BLANK	0000[0x7]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022b       | +  |		.CONST	0x022b								; Address of begin
0229 0004       |    |		.CONST	0x0004								; Address of exception handler
022a 0001       |    |		.CONST	0x0001								; Number of locals
022b			BODY_0228:
022b			INIT_0228:
022b 00da       |    |		Load_Top	At_Offset_2
022c 00d8       |    |		Load_Top	At_Offset_0
022d e20f       |    |		Load	0x1,0xf
022e 0122       | "  |		Execute	Any,Make_Root_Type
022f 0260       | `  |		Execute	Discrete,In_Type
0230 7001       |p   |		Jump_Nonzero	0x232
0231 0801       |    |		Execute_Immediate	Raise,0x1
0232 00d8       |    |		Load_Top	At_Offset_0
0233 e20f       |    |		Load	0x1,0xf
0234 0260       | `  |		Execute	Discrete,In_Type
0235 7001       |p   |		Jump_Nonzero	0x237
0236 0801       |    |		Execute_Immediate	Raise,0x1
0237 8217       |    |		Call	0x1,0x17
0238 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0239 0000 0000  |    |		.BLANK	0000[0x7]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243       | C  |		.CONST	0x0243								; Address of begin
0241 0004       |    |		.CONST	0x0004								; Address of exception handler
0242 0001       |    |		.CONST	0x0001								; Number of locals
0243			BODY_0240:
0243			INIT_0240:
0243 e218       |    |		Load	0x1,0x18
0244 0335       | 5  |		Declare_Variable	Array,Duplicate
0245 00cd       |    |		Action	Spare6_Action
0246 00ca       |    |		Action	Exit_Nullary_Function
0247 0000       |    |		.XXX[0x1]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024b       | K  |		.CONST	0x024b								; Address of begin
0249 0004       |    |		.CONST	0x0004								; Address of exception handler
024a 0001       |    |		.CONST	0x0001								; Number of locals
024b			BODY_0248:
024b			INIT_0248:
024b e219       |    |		Load	0x1,0x19
024c 0335       | 5  |		Declare_Variable	Array,Duplicate
024d 00cd       |    |		Action	Spare6_Action
024e 00ca       |    |		Action	Exit_Nullary_Function
024f 0000       |    |		.XXX[0x1]
0250 ; --------------------------------------------------------------------------------------
0250 ; Debug Table
0250 ; --------------------------------------------------------------------------------------
0250 0004 000d  |    |		.DEBUG4	0x0004,0x000d,0xd94f,0x0000,0x0001,0x0000
0256 0000 00da  |    |		.XXX[0x3e]
0258 0059 3cda  | Y< |
025a 0000 0880  |    |
025c 0059 44da  | YD |
025e 0000 0000  |    |
0260 1b86 e000  |    |
0262 0000 5d80  |  ] |
0264 0000 0000  |    |
0266 0000 0001  |    |
0268 0000 0000  |    |
026a 0000 08bf  |    |
026c 0000 0000  |    |
026e 0000 0001  |    |
0270 0000 0000  |    |
0272 fc00 0001  |    |
0274 0059 44da  | YD |
0276 0000 0180  |    |
0278 fecf 037e  |   ~|
027a 0800 0001  |    |
027c 0000 0000  |    |
027e 006e 0000  | n  |
0280 1b86 e000  |    |
0282 0000 5d90  |  ] |
0284 0001 9804  |    |
0286 0000 3244  |  2D|
0288 0059 3cda  | Y< |
028a 0000 0821  |   !|
028c 0059 02c3  | Y  |
028e 0000 0801  |    |
0290 0d05 0000  |    |
0292 0000 38a9  |  8 |
0294 0000 0000  |    |		.BLANK	0000[0x4]
0298 7044 cb57  |pD W|		.XXX[0x2a]
029a c5e5 c622  |   "|
029c fd3c fd3d  | < =|
029e 3970 fadc  |9p  |
02a0 f970 c622  | p "|
02a2 d093 d094  |    |
02a4 234c 2350  |#L#P|
02a6 234e c9e2  |#N  |
02a8 029d 0ceb  |    |
02aa 029d 0d03  |    |
02ac 029d 0d1b  |    |
02ae 029d 0dc3  |    |
02b0 029d 0e13  |    |
02b2 029d 0e5b  |   [|
02b4 029d 0e83  |    |
02b6 1d0d 00c7  |    |
02b8 029d 0eab  |    |
02ba 029d 0ecb  |    |
02bc 029d 0f13  |    |
02be 1d18 00c7  |    |
02c0 00bc 00bb  |    |
02c2 0000 0000  |    |		.BLANK	0000[0x6]
02c8 00cb 00db  |    |		.XXX[0x38]
02ca 0001 e5fd  |    |
02cc 00db 0217  |    |
02ce 3c07 027c  |<  ||
02d0 6805 e5fd  |h   |
02d2 e5fe e5ff  |    |
02d4 8239 4403  | 9D |
02d6 e5fd e5fe  |    |
02d8 e5ff 8248  |   H|
02da 4403 00a2  |D   |
02dc 049c 010f  |    |
02de 6808 0092  |h   |
02e0 0f4a 0092  | J  |
02e2 0f4b e002  | K  |
02e4 181d 00ea  |    |
02e6 4403 e003  |D   |
02e8 180d 0092  |    |
02ea 0f4b e002  | K  |
02ec 181d 00ea  |    |
02ee 4403 0000  |D   |
02f0 00f4 0004  |    |
02f2 0002 00e2  |    |
02f4 e5fe 4fff  |  O |
02f6 027f 6804  |  h |
02f8 00a2 0498  |    |
02fa 0051 7802  | Qx |
02fc e5fe 0051  |   Q|
02fe 00db e004  |    |
0300 0000 0000  |    |		.BLANK	0000[0x7]
0307 0001 01cc  |    |		.XXX[0xe1]
0309 4801 00db  |H   |
030b 00db 01db  |    |
030d 0272 0248  | r H|
030f 0aff 00e3  |    |
0311 025b e5ff  | [  |
0313 e005 180d  |    |
0315 01cc 4402  |  D |
0317 0007 e5ff  |    |
0319 0007 0145  |   E|
031b 0007 0007  |    |
031d 0b00 700c  |  p |
031f 0ba1 700c  |  p |
0321 0ba8 7066  |  pf|
0323 4801 00da  |H   |
0325 00e3 025b  |   [|
0327 e5ff e005  |    |
0329 180d 4402  |  D |
032b 00ea 4402  |  D |
032d e5ff 00eb  |    |
032f 18ec 00eb  |    |
0331 1888 00d8  |    |
0333 7002 00ec  |p   |
0335 782c 00d8  |x,  |
0337 0217 3c00  |  < |
0339 6804 00d8  |h   |
033b 0217 3c02  |  < |
033d 7824 00d8  |x$  |
033f 0007 e405  |    |
0341 0007 0148  |   H|
0343 0007 00d0  |    |
0345 00d1 49bb  |  I |
0347 00eb 0098  |    |
0349 012c e006  | ,  |
034b 1b17 025b  |   [|
034d 0273 00d9  | s  |
034f 0007 e406  |    |
0351 0007 0210  |    |
0353 0007 00d0  |    |
0355 00d1 49c8  |  I |
0357 00eb 0098  |    |
0359 49c9 00eb  |I   |
035b 0098 49ca  |  I |
035d 00eb 0095  |    |
035f e007 1819  |    |
0361 7800 00d0  |x   |
0363 00d1 e5ff  |    |
0365 021f 6811  |  h |
0367 0092 0f4d  |   M|
0369 4801 00db  |H   |
036b 0af8 00e3  |    |
036d 025b e5ff  | [  |
036f 00eb 18ca  |    |
0371 e005 180d  |    |
0373 01cc 0092  |    |
0375 0f4e 01cc  | N  |
0377 4402 0092  |D   |
0379 0f4f 4801  | OH |
037b 00db 0af5  |    |
037d 00e3 025b  |   [|
037f e5ff 00eb  |    |
0381 18ca e005  |    |
0383 180d 01cc  |    |
0385 0092 0f4e  |   N|
0387 01cc 4402  |  D |
0389 0007 e5ff  |    |
038b e001 1b35  |   5|
038d 183d 00d8  | =  |
038f 01db 00db  |    |
0391 027a 6802  | zh |
0393 00d8 4402  |  D |
0395 00d8 01dc  |    |
0397 00db 0272  |   r|
0399 0a01 0248  |   H|
039b 00d9 01dc  |    |
039d 00da 01cf  |    |
039f 4402 01a4  |D   |
03a1 0004 0002  |    |
03a3 00ec 00db  |    |
03a5 e004 1819  |    |
03a7 6804 e5fe  |h   |
03a9 e5ff 820e  |    |
03ab 4402 0007  |D   |
03ad e5ff 0007  |    |
03af 0145 0007  | E  |
03b1 0007 0b45  |   E|
03b3 701b 0b44  |p  D|
03b5 7019 0b42  |p  B|
03b7 7017 0b43  |p  C|
03b9 7015 0b40  |p  @|
03bb 7017 4801  |p H |
03bd e5ff 4976  |  Iv|
03bf 00eb 0098  |    |
03c1 1815 0032  |   2|
03c3 0007 00d9  |    |
03c5 021d 6804  |  h |
03c7 e5fe e5ff  |    |
03c9 820e 4402  |  D |
03cb e5fe 00da  |    |
03cd 820e 4402  |  D |
03cf e5fe e5ff  |    |
03d1 820e 4402  |  D |
03d3 e5ff 49a1  |  I |
03d5 00eb 0096  |    |
03d7 6803 0092  |h   |
03d9 0f50 4402  | PD |
03db e5fe e5ff  |    |
03dd 820e 4402  |  D |
03df 0000 01e6  |    |
03e1 0004 0002  |    |
03e3 e001 1b38  |   8|
03e5 1b16 00db  |    |
03e7 2c01       |,   |
03e8 0000 0000  |    |		.BLANK	0000[0x4]
03ec 0059 44da  | YD |		.XXX[0x14]
03ee 0000 0000  |    |
03f0 0001 0404  |    |
03f2 0000 0700  |    |
03f4 0000 0000  |    |
03f6 0000 0024  |   $|
03f8 ff87 003e  |   >|
03fa 0800 0001  |    |
03fc 0000 0000  |    |
03fe 0000 000e  |    |