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

⟦1300b73c7⟧

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

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 0338       | 8  |		.CONST	0x0338								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 031c       |    |		.CONST	0x031c								; Offset to segment table (only in elab segments)
0007 8001       |    |		.CONST	0x8001								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 000e       |    |		.CONST	0x000e								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0001       |    |		.CONST	0x0001								; Number of locals
000b			INIT_0008:
000b 029c 0013  |    |		Declare_Subprogram	INIT_0010,For_Outer_Call,Visible
000d 00bf       |    |		Action	Accept_Activation
000e			BODY_0008:
000e 00bc       |    |		Action	Signal_Activated
000f 00bb       |    |		Action	Signal_Completion
0010 ; --------------------------------------------------------------------------------------
0010 ; SUBPROGRAM
0010 ; --------------------------------------------------------------------------------------
0010 0015       |    |		.CONST	0x0015								; Address of begin
0011 001a       |    |		.CONST	0x001a								; Address of exception handler
0012 0002       |    |		.CONST	0x0002								; Number of locals
0013			INIT_0010:
0013 029f 0023  |   #|		Declare_Subprogram	INIT_0020,For_Call
0015			BODY_0010:
0015 8402       |    |		Call	0x2,0x2
0016 7801       |x   |		Jump	0x18
0017 0003       |    |		.XXX[0x1]
0018 006f       | o  |		Action	Break_Unconditional
0019 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
001a			TRAP_0010:
001a 7801       |x   |		Jump	0x1c
001b 0003       |    |		.XXX[0x1]
001c 006f       | o  |		Action	Break_Unconditional
001d 00d8       |    |		Load_Top	At_Offset_0
001e 0100       |    |		Execute	Exception,Raise
001f 0000       |    |		.XXX[0x1]
0020 ; --------------------------------------------------------------------------------------
0020 ; SUBPROGRAM
0020 ; --------------------------------------------------------------------------------------
0020 01e5       |    |		.CONST	0x01e5								; Address of begin
0021 0004       |    |		.CONST	0x0004								; Address of exception handler
0022 0036       | 6  |		.CONST	0x0036								; Number of locals
0023			INIT_0020:
0023 7801       |x   |		Jump	0x25
0024 0002       |    |		.XXX[0x1]
0025 006f       | o  |		Action	Break_Unconditional
0026 79b7       |y   |		Jump	0x1de
0027 4800       |H   |		Short_Literal	0x0
0028 62ef       |b   |		Indirect_Literal	Discrete,0x318,{0x0000110b, 0x000000b0}
0029 02a0       |    |		Declare_Subprogram	Null_Subprogram
002a 038e       |    |		Declare_Type	Package,Defined
002b 0387       |    |		Declare_Variable	Package
002c 00d8       |    |		Load_Top	At_Offset_0
002d 190d       |    |		Execute	Package,Field_Reference,Field_Number 0xd
002e 4800       |H   |		Short_Literal	0x0
002f 62e4       |b   |		Indirect_Literal	Discrete,0x314,{0x0000190b, 0x000000b0}
0030 02a0       |    |		Declare_Subprogram	Null_Subprogram
0031 038e       |    |		Declare_Type	Package,Defined
0032 0387       |    |		Declare_Variable	Package
0033 00d8       |    |		Load_Top	At_Offset_0
0034 190d       |    |		Execute	Package,Field_Reference,Field_Number 0xd
0035 62da       |b   |		Indirect_Literal	Discrete,0x310,{0x00000000, 0x0036cc04}
0036 e002       |    |		Load	0x0,0x2
0037 e001       |    |		Load	0x0,0x1
0038 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0039 62d2       |b   |		Indirect_Literal	Discrete,0x30c,{0x00000000, 0x003d9004}
003a e002       |    |		Load	0x0,0x2
003b e001       |    |		Load	0x0,0x1
003c 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
003d 62ca       |b   |		Indirect_Literal	Discrete,0x308,{0x00000000, 0x00376804}
003e e002       |    |		Load	0x0,0x2
003f e001       |    |		Load	0x0,0x1
0040 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0041 62c2       |b   |		Indirect_Literal	Discrete,0x304,{0x00000000, 0x0039e004}
0042 e002       |    |		Load	0x0,0x2
0043 e001       |    |		Load	0x0,0x1
0044 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0045 62ba       |b   |		Indirect_Literal	Discrete,0x300,{0x00000000, 0x0039ec04}
0046 e002       |    |		Load	0x0,0x2
0047 e001       |    |		Load	0x0,0x1
0048 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0049 62b2       |b   |		Indirect_Literal	Discrete,0x2fc,{0x00000000, 0x003d8004}
004a e002       |    |		Load	0x0,0x2
004b e001       |    |		Load	0x0,0x1
004c 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
004d 62aa       |b   |		Indirect_Literal	Discrete,0x2f8,{0x00000000, 0x003b6804}
004e e002       |    |		Load	0x0,0x2
004f e001       |    |		Load	0x0,0x1
0050 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0051 62a2       |b   |		Indirect_Literal	Discrete,0x2f4,{0x00000000, 0x00371404}
0052 e002       |    |		Load	0x0,0x2
0053 e001       |    |		Load	0x0,0x1
0054 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0055 629a       |b   |		Indirect_Literal	Discrete,0x2f0,{0x00000000, 0x0036c804}
0056 e002       |    |		Load	0x0,0x2
0057 e001       |    |		Load	0x0,0x1
0058 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0059 6292       |b   |		Indirect_Literal	Discrete,0x2ec,{0x00000000, 0x00324804}
005a e002       |    |		Load	0x0,0x2
005b e001       |    |		Load	0x0,0x1
005c 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
005d 628a       |b   |		Indirect_Literal	Discrete,0x2e8,{0x00000000, 0x003d4404}
005e e002       |    |		Load	0x0,0x2
005f e001       |    |		Load	0x0,0x1
0060 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0061 6282       |b   |		Indirect_Literal	Discrete,0x2e4,{0x00000000, 0x003d8804}
0062 e002       |    |		Load	0x0,0x2
0063 e001       |    |		Load	0x0,0x1
0064 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0065 627a       |bz  |		Indirect_Literal	Discrete,0x2e0,{0x00000000, 0x003d5804}
0066 e002       |    |		Load	0x0,0x2
0067 e001       |    |		Load	0x0,0x1
0068 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0069 6272       |br  |		Indirect_Literal	Discrete,0x2dc,{0x00000000, 0x00372004}
006a e002       |    |		Load	0x0,0x2
006b e001       |    |		Load	0x0,0x1
006c 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
006d 190d       |    |		Execute	Package,Field_Reference,Field_Number 0xd
006e 6269       |bi  |		Indirect_Literal	Discrete,0x2d8,{0x00000000, 0x0037b404}
006f e002       |    |		Load	0x0,0x2
0070 e001       |    |		Load	0x0,0x1
0071 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0072 6261       |ba  |		Indirect_Literal	Discrete,0x2d4,{0x00000000, 0x00324c04}
0073 e002       |    |		Load	0x0,0x2
0074 e001       |    |		Load	0x0,0x1
0075 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0076 6259       |bY  |		Indirect_Literal	Discrete,0x2d0,{0x00000000, 0x0004bc04}
0077 e002       |    |		Load	0x0,0x2
0078 e001       |    |		Load	0x0,0x1
0079 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
007a 6251       |bQ  |		Indirect_Literal	Discrete,0x2cc,{0x00000000, 0x003d7804}
007b e002       |    |		Load	0x0,0x2
007c e001       |    |		Load	0x0,0x1
007d 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
007e 4800       |H   |		Short_Literal	0x0
007f 6248       |bH  |		Indirect_Literal	Discrete,0x2c8,{0x00040d0b, 0x000000b0}
0080 02a0       |    |		Declare_Subprogram	Null_Subprogram
0081 038e       |    |		Declare_Type	Package,Defined
0082 0387       |    |		Declare_Variable	Package
0083 00d8       |    |		Load_Top	At_Offset_0
0084 190d       |    |		Execute	Package,Field_Reference,Field_Number 0xd
0085 623e       |b>  |		Indirect_Literal	Discrete,0x2c4,{0x00000000, 0x000e1804}
0086 e002       |    |		Load	0x0,0x2
0087 e001       |    |		Load	0x0,0x1
0088 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0089 6236       |b6  |		Indirect_Literal	Discrete,0x2c0,{0x00000000, 0x001a9404}
008a e002       |    |		Load	0x0,0x2
008b e001       |    |		Load	0x0,0x1
008c 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
008d 4800       |H   |		Short_Literal	0x0
008e 622d       |b-  |		Indirect_Literal	Discrete,0x2bc,{0x0004110b, 0x000000b0}
008f 02a0       |    |		Declare_Subprogram	Null_Subprogram
0090 038e       |    |		Declare_Type	Package,Defined
0091 6226       |b&  |		Indirect_Literal	Discrete,0x2b8,{0x0004150b, 0x000000b0}
0092 6221       |b!  |		Indirect_Literal	Discrete,0x2b4,{0x0004190b, 0x000000b0}
0093 621c       |b   |		Indirect_Literal	Discrete,0x2b0,{0x00041d0b, 0x000000b0}
0094 6217       |b   |		Indirect_Literal	Discrete,0x2ac,{0x0004210b, 0x000000b0}
0095 4804       |H   |		Short_Literal	0x4
0096 e61c       |    |		Load	0x3,0x1c
0097 020e       |    |		Execute	Module,Augment_Imports
0098 0387       |    |		Declare_Variable	Package
0099 620e       |b   |		Indirect_Literal	Discrete,0x2a8,{0x00000000, 0x00115804}
009a e002       |    |		Load	0x0,0x2
009b e001       |    |		Load	0x0,0x1
009c 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
009d 6206       |b   |		Indirect_Literal	Discrete,0x2a4,{0x00000000, 0x000e4804}
009e e002       |    |		Load	0x0,0x2
009f e001       |    |		Load	0x0,0x1
00a0 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
00a1 4800       |H   |		Short_Literal	0x0
00a2 61fd       |a   |		Indirect_Literal	Discrete,0x2a0,{0x0004250b, 0x000000b0}
00a3 02a0       |    |		Declare_Subprogram	Null_Subprogram
00a4 038e       |    |		Declare_Type	Package,Defined
00a5 0387       |    |		Declare_Variable	Package
00a6 61f5       |a   |		Indirect_Literal	Discrete,0x29c,{0x00000000, 0x000e3804}
00a7 e002       |    |		Load	0x0,0x2
00a8 e001       |    |		Load	0x0,0x1
00a9 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
00aa 61ed       |a   |		Indirect_Literal	Discrete,0x298,{0x00000001, 0x000352e8}
00ab 4801       |H   |		Short_Literal	0x1
00ac e60e       |    |		Load	0x3,0xe
00ad e615       |    |		Load	0x3,0x15
00ae e60f       |    |		Load	0x3,0xf
00af e61b       |    |		Load	0x3,0x1b
00b0 e61a       |    |		Load	0x3,0x1a
00b1 e620       |    |		Load	0x3,0x20
00b2 4808       |H   |		Short_Literal	0x8
00b3 e61f       |    |		Load	0x3,0x1f
00b4 020e       |    |		Execute	Module,Augment_Imports
00b5 00d9       |    |		Load_Top	At_Offset_1
00b6 020f       |    |		Execute	Module,Activate
00b7 61dc       |a   |		Indirect_Literal	Discrete,0x294,{0x00000000, 0x00115404}
00b8 e002       |    |		Load	0x0,0x2
00b9 e001       |    |		Load	0x0,0x1
00ba 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
00bb 61d4       |a   |		Indirect_Literal	Discrete,0x290,{0x00000000, 0x00114804}
00bc e002       |    |		Load	0x0,0x2
00bd e001       |    |		Load	0x0,0x1
00be 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
00bf 61cc       |a   |		Indirect_Literal	Discrete,0x28c,{0x00000000, 0x002d7404}
00c0 e002       |    |		Load	0x0,0x2
00c1 e001       |    |		Load	0x0,0x1
00c2 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
00c3 61c4       |a   |		Indirect_Literal	Discrete,0x288,{0x00000000, 0x003cf004}
00c4 e002       |    |		Load	0x0,0x2
00c5 e001       |    |		Load	0x0,0x1
00c6 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
00c7 190d       |    |		Execute	Package,Field_Reference,Field_Number 0xd
00c8 4800       |H   |		Short_Literal	0x0
00c9 61ba       |a   |		Indirect_Literal	Discrete,0x284,{0x0004290b, 0x000000b0}
00ca 02a0       |    |		Declare_Subprogram	Null_Subprogram
00cb 038e       |    |		Declare_Type	Package,Defined
00cc 61b3       |a   |		Indirect_Literal	Discrete,0x280,{0x000016d7, 0x95020081}
00cd e61b       |    |		Load	0x3,0x1b
00ce 61ad       |a   |		Indirect_Literal	Discrete,0x27c,{0x00000001, 0x000352d7}
00cf 4801       |H   |		Short_Literal	0x1
00d0 e624       | $  |		Load	0x3,0x24
00d1 4805       |H   |		Short_Literal	0x5
00d2 e625       | %  |		Load	0x3,0x25
00d3 020e       |    |		Execute	Module,Augment_Imports
00d4 0387       |    |		Declare_Variable	Package
00d5 61a2       |a   |		Indirect_Literal	Discrete,0x278,{0x00000000, 0x00010804}
00d6 e002       |    |		Load	0x0,0x2
00d7 e001       |    |		Load	0x0,0x1
00d8 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
00d9 619a       |a   |		Indirect_Literal	Discrete,0x274,{0x00000000, 0x001aec04}
00da e002       |    |		Load	0x0,0x2
00db e001       |    |		Load	0x0,0x1
00dc 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
00dd 6192       |a   |		Indirect_Literal	Discrete,0x270,{0x00000000, 0x000ce004}
00de e002       |    |		Load	0x0,0x2
00df e001       |    |		Load	0x0,0x1
00e0 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
00e1 190d       |    |		Execute	Package,Field_Reference,Field_Number 0xd
00e2 6189       |a   |		Indirect_Literal	Discrete,0x26c,{0x00000000, 0x0036fc04}
00e3 e002       |    |		Load	0x0,0x2
00e4 e001       |    |		Load	0x0,0x1
00e5 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
00e6 6181       |a   |		Indirect_Literal	Discrete,0x268,{0x00000000, 0x0001ac04}
00e7 e002       |    |		Load	0x0,0x2
00e8 e001       |    |		Load	0x0,0x1
00e9 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
00ea 6179       |ay  |		Indirect_Literal	Discrete,0x264,{0x00000001, 0x000352e4}
00eb 4805       |H   |		Short_Literal	0x5
00ec 00db       |    |		Load_Top	At_Offset_3
00ed 00db       |    |		Load_Top	At_Offset_3
00ee e628       | (  |		Load	0x3,0x28
00ef 6174       |at  |		Indirect_Literal	Discrete,0x264,{0x00000001, 0x000352e4}
00f0 4804       |H   |		Short_Literal	0x4
00f1 6172       |ar  |		Indirect_Literal	Discrete,0x264,{0x00000001, 0x000352e4}
00f2 4803       |H   |		Short_Literal	0x3
00f3 e627       | '  |		Load	0x3,0x27
00f4 e615       |    |		Load	0x3,0x15
00f5 e60f       |    |		Load	0x3,0xf
00f6 e61a       |    |		Load	0x3,0x1a
00f7 e626       | &  |		Load	0x3,0x26
00f8 616b       |ak  |		Indirect_Literal	Discrete,0x264,{0x00000001, 0x000352e4}
00f9 4802       |H   |		Short_Literal	0x2
00fa e622       | "  |		Load	0x3,0x22
00fb e620       |    |		Load	0x3,0x20
00fc e61e       |    |		Load	0x3,0x1e
00fd 4813       |H   |		Short_Literal	0x13
00fe e625       | %  |		Load	0x3,0x25
00ff 020e       |    |		Execute	Module,Augment_Imports
0100 e625       | %  |		Load	0x3,0x25
0101 020f       |    |		Execute	Module,Activate
0102 615d       |a]  |		Indirect_Literal	Discrete,0x260,{0x00000000, 0x003e2404}
0103 e002       |    |		Load	0x0,0x2
0104 e001       |    |		Load	0x0,0x1
0105 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0106 190d       |    |		Execute	Package,Field_Reference,Field_Number 0xd
0107 4805       |H   |		Short_Literal	0x5
0108 6153       |aS  |		Indirect_Literal	Discrete,0x25c,{0x00042d0b, 0x000000b0}
0109 02a0       |    |		Declare_Subprogram	Null_Subprogram
010a 038c       |    |		Declare_Type	Package,Defined,Not_Elaborated
010b 614c       |aL  |		Indirect_Literal	Discrete,0x258,{0x00000001, 0x000352d9}
010c 4802       |H   |		Short_Literal	0x2
010d e624       | $  |		Load	0x3,0x24
010e 6145       |aE  |		Indirect_Literal	Discrete,0x254,{0x000016d7, 0xb5020081}
010f 6148       |aH  |		Indirect_Literal	Discrete,0x258,{0x00000001, 0x000352d9}
0110 4801       |H   |		Short_Literal	0x1
0111 e62b       | +  |		Load	0x3,0x2b
0112 4807       |H   |		Short_Literal	0x7
0113 e62c       | ,  |		Load	0x3,0x2c
0114 020e       |    |		Execute	Module,Augment_Imports
0115 e620       |    |		Load	0x3,0x20
0116 e61e       |    |		Load	0x3,0x1e
0117 4802       |H   |		Short_Literal	0x2
0118 00db       |    |		Load_Top	At_Offset_3
0119 020e       |    |		Execute	Module,Augment_Imports
011a 00d8       |    |		Load_Top	At_Offset_0
011b 020d       |    |		Execute	Module,Elaborate
011c e61f       |    |		Load	0x3,0x1f
011d 6132       |a2  |		Indirect_Literal	Discrete,0x250,{0x00000001, 0x000352e7}
011e 4802       |H   |		Short_Literal	0x2
011f e61b       |    |		Load	0x3,0x1b
0120 e62c       | ,  |		Load	0x3,0x2c
0121 612e       |a.  |		Indirect_Literal	Discrete,0x250,{0x00000001, 0x000352e7}
0122 4801       |H   |		Short_Literal	0x1
0123 e62b       | +  |		Load	0x3,0x2b
0124 6127       |a'  |		Indirect_Literal	Discrete,0x24c,{0x0004310b, 0x000000b0}
0125 e615       |    |		Load	0x3,0x15
0126 e60f       |    |		Load	0x3,0xf
0127 e61a       |    |		Load	0x3,0x1a
0128 e620       |    |		Load	0x3,0x20
0129 e623       | #  |		Load	0x3,0x23
012a e625       | %  |		Load	0x3,0x25
012b 611c       |a   |		Indirect_Literal	Discrete,0x248,{0x00000001, 0x000352ea}
012c 4801       |H   |		Short_Literal	0x1
012d 6116       |a   |		Indirect_Literal	Discrete,0x244,{0x0000150b, 0x000000b0}
012e 6111       |a   |		Indirect_Literal	Discrete,0x240,{0x00001d0b, 0x000000b0}
012f e61e       |    |		Load	0x3,0x1e
0130 610b       |a   |		Indirect_Literal	Discrete,0x23c,{0x00000001, 0x000352ec}
0131 4801       |H   |		Short_Literal	0x1
0132 6105       |a   |		Indirect_Literal	Discrete,0x238,{0x0000210b, 0x000000b0}
0133 6100       |a   |		Indirect_Literal	Discrete,0x234,{0x0000250b, 0x000000b0}
0134 e60e       |    |		Load	0x3,0xe
0135 e616       |    |		Load	0x3,0x16
0136 e60c       |    |		Load	0x3,0xc
0137 60f8       |`   |		Indirect_Literal	Discrete,0x230,{0x00000001, 0x000352ef}
0138 4802       |H   |		Short_Literal	0x2
0139 60f6       |`   |		Indirect_Literal	Discrete,0x230,{0x00000001, 0x000352ef}
013a 4801       |H   |		Short_Literal	0x1
013b 60f0       |`   |		Indirect_Literal	Discrete,0x22c,{0x00000001, 0x000352f0}
013c 4802       |H   |		Short_Literal	0x2
013d 60ee       |`   |		Indirect_Literal	Discrete,0x22c,{0x00000001, 0x000352f0}
013e 4801       |H   |		Short_Literal	0x1
013f 60e8       |`   |		Indirect_Literal	Discrete,0x228,{0x00000001, 0x000352f1}
0140 4801       |H   |		Short_Literal	0x1
0141 4825       |H%  |		Short_Literal	0x25
0142 e61c       |    |		Load	0x3,0x1c
0143 020e       |    |		Execute	Module,Augment_Imports
0144 e61c       |    |		Load	0x3,0x1c
0145 020f       |    |		Execute	Module,Activate
0146 4800       |H   |		Short_Literal	0x0
0147 60dc       |`   |		Indirect_Literal	Discrete,0x224,{0x0000290b, 0x000000b0}
0148 02a0       |    |		Declare_Subprogram	Null_Subprogram
0149 038e       |    |		Declare_Type	Package,Defined
014a 0387       |    |		Declare_Variable	Package
014b 60d4       |`   |		Indirect_Literal	Discrete,0x220,{0x00002d0b, 0x000000b0}
014c 4801       |H   |		Short_Literal	0x1
014d 00da       |    |		Load_Top	At_Offset_2
014e 020e       |    |		Execute	Module,Augment_Imports
014f 00d8       |    |		Load_Top	At_Offset_0
0150 020f       |    |		Execute	Module,Activate
0151 4800       |H   |		Short_Literal	0x0
0152 60c9       |`   |		Indirect_Literal	Discrete,0x21c,{0x0004010b, 0x000000b0}
0153 02a0       |    |		Declare_Subprogram	Null_Subprogram
0154 038e       |    |		Declare_Type	Package,Defined
0155 0387       |    |		Declare_Variable	Package
0156 00d8       |    |		Load_Top	At_Offset_0
0157 190d       |    |		Execute	Package,Field_Reference,Field_Number 0xd
0158 4800       |H   |		Short_Literal	0x0
0159 60be       |`   |		Indirect_Literal	Discrete,0x218,{0x0004050b, 0x000000b0}
015a 02a0       |    |		Declare_Subprogram	Null_Subprogram
015b 038e       |    |		Declare_Type	Package,Defined
015c 0387       |    |		Declare_Variable	Package
015d 00d8       |    |		Load_Top	At_Offset_0
015e 190d       |    |		Execute	Package,Field_Reference,Field_Number 0xd
015f e61b       |    |		Load	0x3,0x1b
0160 e61a       |    |		Load	0x3,0x1a
0161 e620       |    |		Load	0x3,0x20
0162 4803       |H   |		Short_Literal	0x3
0163 e630       | 0  |		Load	0x3,0x30
0164 020e       |    |		Execute	Module,Augment_Imports
0165 00d9       |    |		Load_Top	At_Offset_1
0166 020f       |    |		Execute	Module,Activate
0167 e61c       |    |		Load	0x3,0x1c
0168 60ab       |`   |		Indirect_Literal	Discrete,0x214,{0x00000001, 0x000352e9}
0169 4801       |H   |		Short_Literal	0x1
016a e61b       |    |		Load	0x3,0x1b
016b e620       |    |		Load	0x3,0x20
016c e631       | 1  |		Load	0x3,0x31
016d e61a       |    |		Load	0x3,0x1a
016e e611       |    |		Load	0x3,0x11
016f e61e       |    |		Load	0x3,0x1e
0170 e615       |    |		Load	0x3,0x15
0171 e60f       |    |		Load	0x3,0xf
0172 480b       |H   |		Short_Literal	0xb
0173 e62e       | .  |		Load	0x3,0x2e
0174 020e       |    |		Execute	Module,Augment_Imports
0175 00db       |    |		Load_Top	At_Offset_3
0176 020f       |    |		Execute	Module,Activate
0177 4800       |H   |		Short_Literal	0x0
0178 6097       |`   |		Indirect_Literal	Discrete,0x210,{0x0004090b, 0x000000b0}
0179 02a0       |    |		Declare_Subprogram	Null_Subprogram
017a 038e       |    |		Declare_Type	Package,Defined
017b 6090       |`   |		Indirect_Literal	Discrete,0x20c,{0x000021d4, 0x01020081}
017c 4801       |H   |		Short_Literal	0x1
017d 00da       |    |		Load_Top	At_Offset_2
017e 020e       |    |		Execute	Module,Augment_Imports
017f 0387       |    |		Declare_Variable	Package
0180 6087       |`   |		Indirect_Literal	Discrete,0x208,{0x00000000, 0x0036d004}
0181 e002       |    |		Load	0x0,0x2
0182 e001       |    |		Load	0x0,0x1
0183 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0184 607f       |`   |		Indirect_Literal	Discrete,0x204,{0x00000000, 0x000ca804}
0185 e002       |    |		Load	0x0,0x2
0186 e001       |    |		Load	0x0,0x1
0187 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0188 6077       |`w  |		Indirect_Literal	Discrete,0x200,{0x00000000, 0x003e1404}
0189 e002       |    |		Load	0x0,0x2
018a e001       |    |		Load	0x0,0x1
018b 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
018c 606f       |`o  |		Indirect_Literal	Discrete,0x1fc,{0x00000000, 0x000ca404}
018d e002       |    |		Load	0x0,0x2
018e e001       |    |		Load	0x0,0x1
018f 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0190 e615       |    |		Load	0x3,0x15
0191 e610       |    |		Load	0x3,0x10
0192 00db       |    |		Load_Top	At_Offset_3
0193 e60f       |    |		Load	0x3,0xf
0194 e60d       |    |		Load	0x3,0xd
0195 e627       | '  |		Load	0x3,0x27
0196 e609       |    |		Load	0x3,0x9
0197 e616       |    |		Load	0x3,0x16
0198 e60e       |    |		Load	0x3,0xe
0199 e61b       |    |		Load	0x3,0x1b
019a e61a       |    |		Load	0x3,0x1a
019b e636       | 6  |		Load	0x3,0x36
019c e620       |    |		Load	0x3,0x20
019d e61e       |    |		Load	0x3,0x1e
019e e633       | 3  |		Load	0x3,0x33
019f e60c       |    |		Load	0x3,0xc
01a0 e60b       |    |		Load	0x3,0xb
01a1 e634       | 4  |		Load	0x3,0x34
01a2 4812       |H   |		Short_Literal	0x12
01a3 e632       | 2  |		Load	0x3,0x32
01a4 020e       |    |		Execute	Module,Augment_Imports
01a5 e632       | 2  |		Load	0x3,0x32
01a6 020f       |    |		Execute	Module,Activate
01a7 6050       |`P  |		Indirect_Literal	Discrete,0x1f8,{0x00000001, 0x00052053}
01a8 4801       |H   |		Short_Literal	0x1
01a9 e613       |    |		Load	0x3,0x13
01aa e62d       | -  |		Load	0x3,0x2d
01ab e616       |    |		Load	0x3,0x16
01ac e607       |    |		Load	0x3,0x7
01ad e632       | 2  |		Load	0x3,0x32
01ae e60f       |    |		Load	0x3,0xf
01af e615       |    |		Load	0x3,0x15
01b0 e610       |    |		Load	0x3,0x10
01b1 e612       |    |		Load	0x3,0x12
01b2 e60b       |    |		Load	0x3,0xb
01b3 e609       |    |		Load	0x3,0x9
01b4 e60c       |    |		Load	0x3,0xc
01b5 e60d       |    |		Load	0x3,0xd
01b6 e61c       |    |		Load	0x3,0x1c
01b7 e617       |    |		Load	0x3,0x17
01b8 4811       |H   |		Short_Literal	0x11
01b9 e618       |    |		Load	0x3,0x18
01ba 020e       |    |		Execute	Module,Augment_Imports
01bb e618       |    |		Load	0x3,0x18
01bc 020f       |    |		Execute	Module,Activate
01bd 6036       |`6  |		Indirect_Literal	Discrete,0x1f4,{0x00000001, 0x00051b30}
01be 4801       |H   |		Short_Literal	0x1
01bf e613       |    |		Load	0x3,0x13
01c0 e62d       | -  |		Load	0x3,0x2d
01c1 e616       |    |		Load	0x3,0x16
01c2 e607       |    |		Load	0x3,0x7
01c3 e632       | 2  |		Load	0x3,0x32
01c4 e60f       |    |		Load	0x3,0xf
01c5 e615       |    |		Load	0x3,0x15
01c6 e610       |    |		Load	0x3,0x10
01c7 e612       |    |		Load	0x3,0x12
01c8 e61c       |    |		Load	0x3,0x1c
01c9 e619       |    |		Load	0x3,0x19
01ca e60b       |    |		Load	0x3,0xb
01cb e62f       | /  |		Load	0x3,0x2f
01cc e614       |    |		Load	0x3,0x14
01cd e60d       |    |		Load	0x3,0xd
01ce e611       |    |		Load	0x3,0x11
01cf e60c       |    |		Load	0x3,0xc
01d0 e608       |    |		Load	0x3,0x8
01d1 e609       |    |		Load	0x3,0x9
01d2 4815       |H   |		Short_Literal	0x15
01d3 e604       |    |		Load	0x3,0x4
01d4 020e       |    |		Execute	Module,Augment_Imports
01d5 e604       |    |		Load	0x3,0x4
01d6 020f       |    |		Execute	Module,Activate
01d7 e605       |    |		Load	0x3,0x5
01d8 4801       |H   |		Short_Literal	0x1
01d9 e602       |    |		Load	0x3,0x2
01da 020e       |    |		Execute	Module,Augment_Imports
01db e602       |    |		Load	0x3,0x2
01dc 020f       |    |		Execute	Module,Activate
01dd 7807       |x   |		Jump	BODY_0020
01de 6011       |`   |		Indirect_Literal	Discrete,0x1f0,{0x00000000, 0x00001f40}
01df 600c       |`   |		Indirect_Literal	Discrete,0x1ec,{0x00000000, 0x00190c04}
01e0 e002       |    |		Load	0x0,0x2
01e1 e001       |    |		Load	0x0,0x1
01e2 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
01e3 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
01e4 7e42       |~B  |		Jump	0x27
01e5			BODY_0020:
01e5 e5fd       |    |		Load	0x2,-0x3
01e6 e5fe       |    |		Load	0x2,-0x2
01e7 e5ff       |    |		Load	0x2,-0x1
01e8 8603       |    |		Call	0x3,0x3
01e9 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01ea 0000 0000  |    |		.XXX[0x2]
01ec 0000 0000  |    |		.LITERAL	{0x00000000, 0x00190c04}
01f0 0000 0000  |    |		.LITERAL	{0x00000000, 0x00001f40}
01f4 0000 0001  |    |		.LITERAL	{0x00000001, 0x00051b30}
01f8 0000 0001  |    |		.LITERAL	{0x00000001, 0x00052053}
01fc 0000 0000  |    |		.LITERAL	{0x00000000, 0x000ca404}
0200 0000 0000  |    |		.LITERAL	{0x00000000, 0x003e1404}
0204 0000 0000  |    |		.LITERAL	{0x00000000, 0x000ca804}
0208 0000 0000  |    |		.LITERAL	{0x00000000, 0x0036d004}
020c 0000 21d4  |  ! |		.LITERAL	{0x000021d4, 0x01020081}
0210 0004 090b  |    |		.LITERAL	{0x0004090b, 0x000000b0}
0214 0000 0001  |    |		.LITERAL	{0x00000001, 0x000352e9}
0218 0004 050b  |    |		.LITERAL	{0x0004050b, 0x000000b0}
021c 0004 010b  |    |		.LITERAL	{0x0004010b, 0x000000b0}
0220 0000 2d0b  |  - |		.LITERAL	{0x00002d0b, 0x000000b0}
0224 0000 290b  |  ) |		.LITERAL	{0x0000290b, 0x000000b0}
0228 0000 0001  |    |		.LITERAL	{0x00000001, 0x000352f1}
022c 0000 0001  |    |		.LITERAL	{0x00000001, 0x000352f0}
0230 0000 0001  |    |		.LITERAL	{0x00000001, 0x000352ef}
0234 0000 250b  |  % |		.LITERAL	{0x0000250b, 0x000000b0}
0238 0000 210b  |  ! |		.LITERAL	{0x0000210b, 0x000000b0}
023c 0000 0001  |    |		.LITERAL	{0x00000001, 0x000352ec}
0240 0000 1d0b  |    |		.LITERAL	{0x00001d0b, 0x000000b0}
0244 0000 150b  |    |		.LITERAL	{0x0000150b, 0x000000b0}
0248 0000 0001  |    |		.LITERAL	{0x00000001, 0x000352ea}
024c 0004 310b  |  1 |		.LITERAL	{0x0004310b, 0x000000b0}
0250 0000 0001  |    |		.LITERAL	{0x00000001, 0x000352e7}
0254 0000 16d7  |    |		.LITERAL	{0x000016d7, 0xb5020081}
0258 0000 0001  |    |		.LITERAL	{0x00000001, 0x000352d9}
025c 0004 2d0b  |  - |		.LITERAL	{0x00042d0b, 0x000000b0}
0260 0000 0000  |    |		.LITERAL	{0x00000000, 0x003e2404}
0264 0000 0001  |    |		.LITERAL	{0x00000001, 0x000352e4}
0268 0000 0000  |    |		.LITERAL	{0x00000000, 0x0001ac04}
026c 0000 0000  |    |		.LITERAL	{0x00000000, 0x0036fc04}
0270 0000 0000  |    |		.LITERAL	{0x00000000, 0x000ce004}
0274 0000 0000  |    |		.LITERAL	{0x00000000, 0x001aec04}
0278 0000 0000  |    |		.LITERAL	{0x00000000, 0x00010804}
027c 0000 0001  |    |		.LITERAL	{0x00000001, 0x000352d7}
0280 0000 16d7  |    |		.LITERAL	{0x000016d7, 0x95020081}
0284 0004 290b  |  ) |		.LITERAL	{0x0004290b, 0x000000b0}
0288 0000 0000  |    |		.LITERAL	{0x00000000, 0x003cf004}
028c 0000 0000  |    |		.LITERAL	{0x00000000, 0x002d7404}
0290 0000 0000  |    |		.LITERAL	{0x00000000, 0x00114804}
0294 0000 0000  |    |		.LITERAL	{0x00000000, 0x00115404}
0298 0000 0001  |    |		.LITERAL	{0x00000001, 0x000352e8}
029c 0000 0000  |    |		.LITERAL	{0x00000000, 0x000e3804}
02a0 0004 250b  |  % |		.LITERAL	{0x0004250b, 0x000000b0}
02a4 0000 0000  |    |		.LITERAL	{0x00000000, 0x000e4804}
02a8 0000 0000  |    |		.LITERAL	{0x00000000, 0x00115804}
02ac 0004 210b  |  ! |		.LITERAL	{0x0004210b, 0x000000b0}
02b0 0004 1d0b  |    |		.LITERAL	{0x00041d0b, 0x000000b0}
02b4 0004 190b  |    |		.LITERAL	{0x0004190b, 0x000000b0}
02b8 0004 150b  |    |		.LITERAL	{0x0004150b, 0x000000b0}
02bc 0004 110b  |    |		.LITERAL	{0x0004110b, 0x000000b0}
02c0 0000 0000  |    |		.LITERAL	{0x00000000, 0x001a9404}
02c4 0000 0000  |    |		.LITERAL	{0x00000000, 0x000e1804}
02c8 0004 0d0b  |    |		.LITERAL	{0x00040d0b, 0x000000b0}
02cc 0000 0000  |    |		.LITERAL	{0x00000000, 0x003d7804}
02d0 0000 0000  |    |		.LITERAL	{0x00000000, 0x0004bc04}
02d4 0000 0000  |    |		.LITERAL	{0x00000000, 0x00324c04}
02d8 0000 0000  |    |		.LITERAL	{0x00000000, 0x0037b404}
02dc 0000 0000  |    |		.LITERAL	{0x00000000, 0x00372004}
02e0 0000 0000  |    |		.LITERAL	{0x00000000, 0x003d5804}
02e4 0000 0000  |    |		.LITERAL	{0x00000000, 0x003d8804}
02e8 0000 0000  |    |		.LITERAL	{0x00000000, 0x003d4404}
02ec 0000 0000  |    |		.LITERAL	{0x00000000, 0x00324804}
02f0 0000 0000  |    |		.LITERAL	{0x00000000, 0x0036c804}
02f4 0000 0000  |    |		.LITERAL	{0x00000000, 0x00371404}
02f8 0000 0000  |    |		.LITERAL	{0x00000000, 0x003b6804}
02fc 0000 0000  |    |		.LITERAL	{0x00000000, 0x003d8004}
0300 0000 0000  |    |		.LITERAL	{0x00000000, 0x0039ec04}
0304 0000 0000  |    |		.LITERAL	{0x00000000, 0x0039e004}
0308 0000 0000  |    |		.LITERAL	{0x00000000, 0x00376804}
030c 0000 0000  |    |		.LITERAL	{0x00000000, 0x003d9004}
0310 0000 0000  |    |		.LITERAL	{0x00000000, 0x0036cc04}
0314 0000 190b  |    |		.LITERAL	{0x0000190b, 0x000000b0}
0318 0000 110b  |    |		.LITERAL	{0x0000110b, 0x000000b0}
031c ; --------------------------------------------------------------------------------------
031c ; Segment Table
031c ; --------------------------------------------------------------------------------------
031c 0028 012d  | ( -|		.XXX[0x15]
031e 002f 012e  | / .|
0320 0132 0133  | 2 3|
0322 0147 014b  | G K|
0324 0152 0159  | R Y|
0326 0178 007f  | x  |
0328 008e 0091  |    |
032a 0092 0093  |    |
032c 0094 00a2  |    |
032e 00c9 0108  |    |
0330 0124       | $  |
0331 0000 0000  |    |		.BLANK	0000[0x7]
0338 ; --------------------------------------------------------------------------------------
0338 ; Debug Table
0338 ; --------------------------------------------------------------------------------------
0338 0004 0004  |    |		.DEBUG4	0x0004,0x0004,0x4e64,0x0000,0x0001,0x0000
033e b8b9 b585  |    |		.XXX[0xc2]
0340 b828 9d58  | ( X|
0342 a0c4 a429  |   )|
0344 11a5 c995  |    |
0346 8dd1 bdc9  |    |
0348 e4e8 8119  |    |
034a 0531 4d14  | 1M |
034c 2925 9db9  |)%  |
034e bdc9 94e8  |    |
0350 8119 0531  |   1|
0352 4d14 2939  |M )9|
0354 95dc e881  |    |
0356 1905 314d  |  1M|
0358 1428 f4f4  | (  |
035a f4f4 294d  |  )M|
035c 3d55 490d  |=UI |
035e 14b9 1149  |   I|
0360 051d 3d38  |  =8|
0362 b911 4905  |  I |
0364 1d3d 397d  | =9}|
0366 48c4 c0c0  |H   |
0368 c09d 093d  |   =|
036a 1164 2991  | d) |
036c c985 9dbd  |    |
036e b8bc 2911  |  ) |
0370 c985 9dbd  |    |
0372 b948 b941  | H A|
0374 4908 289d  |I ( |
0376 58a0 d8a4  |X   |
0378 2911 a5c9  |)   |
037a 958d d1bd  |    |
037c c9e4 e881  |    |
037e 1905 314d  |  1M|
0380 1429 259d  | )% |
0382 b9bd c994  |    |
0384 e881 5149  |  QI|
0386 5514 2939  |U )9|
0388 95dc e881  |    |
038a 1905 314d  |  1M|
038c 1428 f4f4  | (  |
038e f4f4 294d  |  )M|
0390 3d55 490d  |=UI |
0392 14b9 1149  |   I|
0394 051d 3d38  |  =8|
0396 b911 4905  |  I |
0398 1d3d 397d  | =9}|
039a 48c4 c0c0  |H   |
039c c09d 4d41  |  MA|
039e 150c 2991  |  ) |
03a0 c985 9dbd  |    |
03a2 b8bc 2911  |  ) |
03a4 c985 9dbd  |    |
03a6 b948 b941  | H A|
03a8 494c 289d  |IL( |
03aa 58a0 cca4  |X   |
03ac 2911 a5c9  |)   |
03ae 958d d1bd  |    |
03b0 c9e4 e881  |    |
03b2 1905 314d  |  1M|
03b4 1429 259d  | )% |
03b6 b9bd c994  |    |
03b8 e881 5149  |  QI|
03ba 5514 2939  |U )9|
03bc 95dc e881  |    |
03be 1905 314d  |  1M|
03c0 1428 f4f4  | (  |
03c2 f4f4 294d  |  )M|
03c4 3d55 490d  |=UI |
03c6 14b9 1149  |   I|
03c8 051d 3d38  |  =8|
03ca b911 4905  |  I |
03cc 1d3d 397d  | =9}|
03ce 5539 2560  |U9%`|
03d0 9d09 3d11  |  = |
03d2 6429 91c9  |d)  |
03d4 859d bdb8  |    |
03d6 bc29 11c9  | )  |
03d8 859d bdb9  |    |
03da 55b9 a5e0  |U   |
03dc b941 4908  | AI |
03de 289d 58a0  |( X |
03e0 d8a4 2911  |  ) |
03e2 a5c9 958d  |    |
03e4 d1bd c9e4  |    |
03e6 e881 1905  |    |
03e8 314d 1429  |1M )|
03ea 259d b9bd  |%   |
03ec c994 e881  |    |
03ee 1905 314d  |  1M|
03f0 1429 3995  | )9 |
03f2 dce8 8119  |    |
03f4 0531 4d14  | 1M |
03f6 28f4 f4f4  |(   |
03f8 f429 4d3d  | )M=|
03fa 5549 0d14  |UI  |
03fc b911 4905  |  I |
03fe 1d3d 38b9  | =8 |