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

⟦9e6ded3d9⟧

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

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 0308       |    |		.CONST	0x0308								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 02f0       |    |		.CONST	0x02f0								; 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 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
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 01ef       |    |		.CONST	0x01ef								; Address of begin
0021 0004       |    |		.CONST	0x0004								; Address of exception handler
0022 0032       | 2  |		.CONST	0x0032								; Number of locals
0023			INIT_0020:
0023 7801       |x   |		Jump	0x25
0024 0002       |    |		.XXX[0x1]
0025 006f       | o  |		Action	Break_Unconditional
0026 79c1       |y   |		Jump	0x1e8
0027 4800       |H   |		Short_Literal	0x0
0028 62c3       |b   |		Indirect_Literal	Discrete,0x2ec,{0x003fe10b, 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 62b9       |b   |		Indirect_Literal	Discrete,0x2e8,{0x00000000, 0x00374804}
002f e002       |    |		Load	0x0,0x2
0030 e001       |    |		Load	0x0,0x1
0031 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0032 62b1       |b   |		Indirect_Literal	Discrete,0x2e4,{0x00000000, 0x003e8804}
0033 e002       |    |		Load	0x0,0x2
0034 e001       |    |		Load	0x0,0x1
0035 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0036 62a9       |b   |		Indirect_Literal	Discrete,0x2e0,{0x00000000, 0x00375004}
0037 e002       |    |		Load	0x0,0x2
0038 e001       |    |		Load	0x0,0x1
0039 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
003a 62a1       |b   |		Indirect_Literal	Discrete,0x2dc,{0x00000000, 0x003e9404}
003b e002       |    |		Load	0x0,0x2
003c e001       |    |		Load	0x0,0x1
003d 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
003e 6299       |b   |		Indirect_Literal	Discrete,0x2d8,{0x00000000, 0x00229c04}
003f e002       |    |		Load	0x0,0x2
0040 e001       |    |		Load	0x0,0x1
0041 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0042 6291       |b   |		Indirect_Literal	Discrete,0x2d4,{0x00000000, 0x00227404}
0043 e002       |    |		Load	0x0,0x2
0044 e001       |    |		Load	0x0,0x1
0045 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0046 6289       |b   |		Indirect_Literal	Discrete,0x2d0,{0x00000000, 0x00324804}
0047 e002       |    |		Load	0x0,0x2
0048 e001       |    |		Load	0x0,0x1
0049 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
004a 6281       |b   |		Indirect_Literal	Discrete,0x2cc,{0x00000000, 0x0036c804}
004b e002       |    |		Load	0x0,0x2
004c e001       |    |		Load	0x0,0x1
004d 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
004e 6279       |by  |		Indirect_Literal	Discrete,0x2c8,{0x00000000, 0x00320404}
004f e002       |    |		Load	0x0,0x2
0050 e001       |    |		Load	0x0,0x1
0051 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0052 6271       |bq  |		Indirect_Literal	Discrete,0x2c4,{0x00000000, 0x00324c04}
0053 e002       |    |		Load	0x0,0x2
0054 e001       |    |		Load	0x0,0x1
0055 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0056 4800       |H   |		Short_Literal	0x0
0057 6268       |bh  |		Indirect_Literal	Discrete,0x2c0,{0x003fd90b, 0x000000b0}
0058 02a0       |    |		Declare_Subprogram	Null_Subprogram
0059 038e       |    |		Declare_Type	Package,Defined
005a 0387       |    |		Declare_Variable	Package
005b 00d8       |    |		Load_Top	At_Offset_0
005c 190d       |    |		Execute	Package,Field_Reference,Field_Number 0xd
005d 625e       |b^  |		Indirect_Literal	Discrete,0x2bc,{0x00000000, 0x0022ac04}
005e e002       |    |		Load	0x0,0x2
005f e001       |    |		Load	0x0,0x1
0060 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0061 4800       |H   |		Short_Literal	0x0
0062 6255       |bU  |		Indirect_Literal	Discrete,0x2b8,{0x003fd50b, 0x000000b0}
0063 02a0       |    |		Declare_Subprogram	Null_Subprogram
0064 038e       |    |		Declare_Type	Package,Defined
0065 0387       |    |		Declare_Variable	Package
0066 624d       |bM  |		Indirect_Literal	Discrete,0x2b4,{0x00000000, 0x003b6804}
0067 e002       |    |		Load	0x0,0x2
0068 e001       |    |		Load	0x0,0x1
0069 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
006a 6245       |bE  |		Indirect_Literal	Discrete,0x2b0,{0x00000000, 0x001a9404}
006b e002       |    |		Load	0x0,0x2
006c e001       |    |		Load	0x0,0x1
006d 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
006e 623d       |b=  |		Indirect_Literal	Discrete,0x2ac,{0x00000000, 0x00371404}
006f e002       |    |		Load	0x0,0x2
0070 e001       |    |		Load	0x0,0x1
0071 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0072 6235       |b5  |		Indirect_Literal	Discrete,0x2a8,{0x00000000, 0x00322004}
0073 e002       |    |		Load	0x0,0x2
0074 e001       |    |		Load	0x0,0x1
0075 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0076 622d       |b-  |		Indirect_Literal	Discrete,0x2a4,{0x00000000, 0x000e1804}
0077 e002       |    |		Load	0x0,0x2
0078 e001       |    |		Load	0x0,0x1
0079 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
007a 6225       |b%  |		Indirect_Literal	Discrete,0x2a0,{0x00000000, 0x001aa004}
007b e002       |    |		Load	0x0,0x2
007c e001       |    |		Load	0x0,0x1
007d 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
007e 4803       |H   |		Short_Literal	0x3
007f 621c       |b   |		Indirect_Literal	Discrete,0x29c,{0x003f950b, 0x000000b0}
0080 02a0       |    |		Declare_Subprogram	Null_Subprogram
0081 038c       |    |		Declare_Type	Package,Defined,Not_Elaborated
0082 6215       |b   |		Indirect_Literal	Discrete,0x298,{0x00000000, 0x000e3804}
0083 e002       |    |		Load	0x0,0x2
0084 e001       |    |		Load	0x0,0x1
0085 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0086 620d       |b   |		Indirect_Literal	Discrete,0x294,{0x00000000, 0x001aa804}
0087 e002       |    |		Load	0x0,0x2
0088 e001       |    |		Load	0x0,0x1
0089 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
008a 6205       |b   |		Indirect_Literal	Discrete,0x290,{0x00000000, 0x0036e004}
008b e002       |    |		Load	0x0,0x2
008c e001       |    |		Load	0x0,0x1
008d 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
008e 61fd       |a   |		Indirect_Literal	Discrete,0x28c,{0x00000000, 0x000ca804}
008f e002       |    |		Load	0x0,0x2
0090 e001       |    |		Load	0x0,0x1
0091 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0092 61f5       |a   |		Indirect_Literal	Discrete,0x288,{0x00000000, 0x0004bc04}
0093 e002       |    |		Load	0x0,0x2
0094 e001       |    |		Load	0x0,0x1
0095 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0096 61ed       |a   |		Indirect_Literal	Discrete,0x284,{0x00000000, 0x003e1404}
0097 e002       |    |		Load	0x0,0x2
0098 e001       |    |		Load	0x0,0x1
0099 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
009a e617       |    |		Load	0x3,0x17
009b e60d       |    |		Load	0x3,0xd
009c e616       |    |		Load	0x3,0x16
009d e613       |    |		Load	0x3,0x13
009e e61a       |    |		Load	0x3,0x1a
009f e619       |    |		Load	0x3,0x19
00a0 e61c       |    |		Load	0x3,0x1c
00a1 e61d       |    |		Load	0x3,0x1d
00a2 e61e       |    |		Load	0x3,0x1e
00a3 e61b       |    |		Load	0x3,0x1b
00a4 480a       |H   |		Short_Literal	0xa
00a5 e618       |    |		Load	0x3,0x18
00a6 020e       |    |		Execute	Module,Augment_Imports
00a7 e618       |    |		Load	0x3,0x18
00a8 020d       |    |		Execute	Module,Elaborate
00a9 4800       |H   |		Short_Literal	0x0
00aa 61d5       |a   |		Indirect_Literal	Discrete,0x280,{0x003fd10b, 0x000000b0}
00ab 02a0       |    |		Declare_Subprogram	Null_Subprogram
00ac 038e       |    |		Declare_Type	Package,Defined
00ad 0387       |    |		Declare_Variable	Package
00ae 00d8       |    |		Load_Top	At_Offset_0
00af 190d       |    |		Execute	Package,Field_Reference,Field_Number 0xd
00b0 61cb       |a   |		Indirect_Literal	Discrete,0x27c,{0x00000000, 0x00274004}
00b1 e002       |    |		Load	0x0,0x2
00b2 e001       |    |		Load	0x0,0x1
00b3 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
00b4 61c3       |a   |		Indirect_Literal	Discrete,0x278,{0x00000000, 0x00273404}
00b5 e002       |    |		Load	0x0,0x2
00b6 e001       |    |		Load	0x0,0x1
00b7 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
00b8 61bb       |a   |		Indirect_Literal	Discrete,0x274,{0x00000000, 0x00273004}
00b9 e002       |    |		Load	0x0,0x2
00ba e001       |    |		Load	0x0,0x1
00bb 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
00bc 61b3       |a   |		Indirect_Literal	Discrete,0x270,{0x00000000, 0x00373c04}
00bd e002       |    |		Load	0x0,0x2
00be e001       |    |		Load	0x0,0x1
00bf 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
00c0 4800       |H   |		Short_Literal	0x0
00c1 61aa       |a   |		Indirect_Literal	Discrete,0x26c,{0x003f990b, 0x000000b0}
00c2 02a0       |    |		Declare_Subprogram	Null_Subprogram
00c3 038e       |    |		Declare_Type	Package,Defined
00c4 e615       |    |		Load	0x3,0x15
00c5 4801       |H   |		Short_Literal	0x1
00c6 00da       |    |		Load_Top	At_Offset_2
00c7 020e       |    |		Execute	Module,Augment_Imports
00c8 0387       |    |		Declare_Variable	Package
00c9 00d8       |    |		Load_Top	At_Offset_0
00ca 020f       |    |		Execute	Module,Activate
00cb 4800       |H   |		Short_Literal	0x0
00cc 619b       |a   |		Indirect_Literal	Discrete,0x268,{0x003f9d0b, 0x000000b0}
00cd 02a0       |    |		Declare_Subprogram	Null_Subprogram
00ce 038e       |    |		Declare_Type	Package,Defined
00cf e60d       |    |		Load	0x3,0xd
00d0 4801       |H   |		Short_Literal	0x1
00d1 00da       |    |		Load_Top	At_Offset_2
00d2 020e       |    |		Execute	Module,Augment_Imports
00d3 0387       |    |		Declare_Variable	Package
00d4 e60a       |    |		Load	0x3,0xa
00d5 4801       |H   |		Short_Literal	0x1
00d6 00da       |    |		Load_Top	At_Offset_2
00d7 020e       |    |		Execute	Module,Augment_Imports
00d8 00d8       |    |		Load_Top	At_Offset_0
00d9 020f       |    |		Execute	Module,Activate
00da 480d       |H   |		Short_Literal	0xd
00db 6188       |a   |		Indirect_Literal	Discrete,0x264,{0x003fa10b, 0x000000b0}
00dc 02a0       |    |		Declare_Subprogram	Null_Subprogram
00dd 038c       |    |		Declare_Type	Package,Defined,Not_Elaborated
00de e610       |    |		Load	0x3,0x10
00df 6180       |a   |		Indirect_Literal	Discrete,0x260,{0x003fa50b, 0x000000b0}
00e0 617b       |a{  |		Indirect_Literal	Discrete,0x25c,{0x00007ef2, 0x75000081}
00e1 6176       |av  |		Indirect_Literal	Discrete,0x258,{0x00007ef2, 0x75000082}
00e2 4804       |H   |		Short_Literal	0x4
00e3 e627       | '  |		Load	0x3,0x27
00e4 020e       |    |		Execute	Module,Augment_Imports
00e5 616e       |an  |		Indirect_Literal	Discrete,0x254,{0x003fa90b, 0x000000b0}
00e6 e61d       |    |		Load	0x3,0x1d
00e7 6168       |ah  |		Indirect_Literal	Discrete,0x250,{0x00007ef4, 0xc5000081}
00e8 e60d       |    |		Load	0x3,0xd
00e9 e60a       |    |		Load	0x3,0xa
00ea e609       |    |		Load	0x3,0x9
00eb 4806       |H   |		Short_Literal	0x6
00ec e627       | '  |		Load	0x3,0x27
00ed 020e       |    |		Execute	Module,Augment_Imports
00ee 00d8       |    |		Load_Top	At_Offset_0
00ef 020d       |    |		Execute	Module,Elaborate
00f0 4800       |H   |		Short_Literal	0x0
00f1 615a       |aZ  |		Indirect_Literal	Discrete,0x24c,{0x003fad0b, 0x000000b0}
00f2 02a0       |    |		Declare_Subprogram	Null_Subprogram
00f3 038e       |    |		Declare_Type	Package,Defined
00f4 6153       |aS  |		Indirect_Literal	Discrete,0x248,{0x00000001, 0x000d919e}
00f5 4801       |H   |		Short_Literal	0x1
00f6 00db       |    |		Load_Top	At_Offset_3
00f7 4803       |H   |		Short_Literal	0x3
00f8 e628       | (  |		Load	0x3,0x28
00f9 020e       |    |		Execute	Module,Augment_Imports
00fa 0387       |    |		Declare_Variable	Package
00fb 00d8       |    |		Load_Top	At_Offset_0
00fc 020f       |    |		Execute	Module,Activate
00fd 190d       |    |		Execute	Package,Field_Reference,Field_Number 0xd
00fe 4800       |H   |		Short_Literal	0x0
00ff 6144       |aD  |		Indirect_Literal	Discrete,0x244,{0x003fb90b, 0x000000b0}
0100 02a0       |    |		Declare_Subprogram	Null_Subprogram
0101 038e       |    |		Declare_Type	Package,Defined
0102 00d9       |    |		Load_Top	At_Offset_1
0103 e610       |    |		Load	0x3,0x10
0104 4802       |H   |		Short_Literal	0x2
0105 00db       |    |		Load_Top	At_Offset_3
0106 020e       |    |		Execute	Module,Augment_Imports
0107 0387       |    |		Declare_Variable	Package
0108 4800       |H   |		Short_Literal	0x0
0109 6136       |a6  |		Indirect_Literal	Discrete,0x240,{0x003fb10b, 0x000000b0}
010a 02a0       |    |		Declare_Subprogram	Null_Subprogram
010b 038e       |    |		Declare_Type	Package,Defined
010c e621       | !  |		Load	0x3,0x21
010d 4801       |H   |		Short_Literal	0x1
010e 00da       |    |		Load_Top	At_Offset_2
010f 020e       |    |		Execute	Module,Augment_Imports
0110 0387       |    |		Declare_Variable	Package
0111 612a       |a*  |		Indirect_Literal	Discrete,0x23c,{0x00000000, 0x0037ac04}
0112 e002       |    |		Load	0x0,0x2
0113 e001       |    |		Load	0x0,0x1
0114 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0115 6122       |a"  |		Indirect_Literal	Discrete,0x238,{0x00000000, 0x00010804}
0116 e002       |    |		Load	0x0,0x2
0117 e001       |    |		Load	0x0,0x1
0118 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0119 e615       |    |		Load	0x3,0x15
011a e623       | #  |		Load	0x3,0x23
011b 00da       |    |		Load_Top	At_Offset_2
011c e62b       | +  |		Load	0x3,0x2b
011d e614       |    |		Load	0x3,0x14
011e e60d       |    |		Load	0x3,0xd
011f e61d       |    |		Load	0x3,0x1d
0120 e613       |    |		Load	0x3,0x13
0121 e612       |    |		Load	0x3,0x12
0122 4809       |H   |		Short_Literal	0x9
0123 e62a       | *  |		Load	0x3,0x2a
0124 020e       |    |		Execute	Module,Augment_Imports
0125 00da       |    |		Load_Top	At_Offset_2
0126 020f       |    |		Execute	Module,Activate
0127 4800       |H   |		Short_Literal	0x0
0128 610b       |a   |		Indirect_Literal	Discrete,0x234,{0x003fb50b, 0x000000b0}
0129 02a0       |    |		Declare_Subprogram	Null_Subprogram
012a 038e       |    |		Declare_Type	Package,Defined
012b 6104       |a   |		Indirect_Literal	Discrete,0x230,{0x000081a7, 0x6d000081}
012c 4801       |H   |		Short_Literal	0x1
012d 00da       |    |		Load_Top	At_Offset_2
012e 020e       |    |		Execute	Module,Augment_Imports
012f 0387       |    |		Declare_Variable	Package
0130 e624       | $  |		Load	0x3,0x24
0131 e623       | #  |		Load	0x3,0x23
0132 e622       | "  |		Load	0x3,0x22
0133 e62a       | *  |		Load	0x3,0x2a
0134 4804       |H   |		Short_Literal	0x4
0135 e62d       | -  |		Load	0x3,0x2d
0136 020e       |    |		Execute	Module,Augment_Imports
0137 00d8       |    |		Load_Top	At_Offset_0
0138 020f       |    |		Execute	Module,Activate
0139 e622       | "  |		Load	0x3,0x22
013a 60f1       |`   |		Indirect_Literal	Discrete,0x22c,{0x00000001, 0x000ddd46}
013b 4801       |H   |		Short_Literal	0x1
013c e623       | #  |		Load	0x3,0x23
013d e62a       | *  |		Load	0x3,0x2a
013e e62d       | -  |		Load	0x3,0x2d
013f 4806       |H   |		Short_Literal	0x6
0140 e629       | )  |		Load	0x3,0x29
0141 020e       |    |		Execute	Module,Augment_Imports
0142 e629       | )  |		Load	0x3,0x29
0143 020f       |    |		Execute	Module,Activate
0144 4800       |H   |		Short_Literal	0x0
0145 60e2       |`   |		Indirect_Literal	Discrete,0x228,{0x003fbd0b, 0x000000b0}
0146 02a0       |    |		Declare_Subprogram	Null_Subprogram
0147 038e       |    |		Declare_Type	Package,Defined
0148 e610       |    |		Load	0x3,0x10
0149 4801       |H   |		Short_Literal	0x1
014a 00da       |    |		Load_Top	At_Offset_2
014b 020e       |    |		Execute	Module,Augment_Imports
014c 0387       |    |		Declare_Variable	Package
014d 00d8       |    |		Load_Top	At_Offset_0
014e 020f       |    |		Execute	Module,Activate
014f 4804       |H   |		Short_Literal	0x4
0150 60d3       |`   |		Indirect_Literal	Discrete,0x224,{0x003fc10b, 0x000000b0}
0151 02a0       |    |		Declare_Subprogram	Null_Subprogram
0152 038c       |    |		Declare_Type	Package,Defined,Not_Elaborated
0153 e625       | %  |		Load	0x3,0x25
0154 00da       |    |		Load_Top	At_Offset_2
0155 e629       | )  |		Load	0x3,0x29
0156 e626       | &  |		Load	0x3,0x26
0157 4804       |H   |		Short_Literal	0x4
0158 e62f       | /  |		Load	0x3,0x2f
0159 020e       |    |		Execute	Module,Augment_Imports
015a e62a       | *  |		Load	0x3,0x2a
015b 4801       |H   |		Short_Literal	0x1
015c 00da       |    |		Load_Top	At_Offset_2
015d 020e       |    |		Execute	Module,Augment_Imports
015e 00d8       |    |		Load_Top	At_Offset_0
015f 020d       |    |		Execute	Module,Elaborate
0160 4800       |H   |		Short_Literal	0x0
0161 60be       |`   |		Indirect_Literal	Discrete,0x220,{0x003fc50b, 0x000000b0}
0162 02a0       |    |		Declare_Subprogram	Null_Subprogram
0163 038e       |    |		Declare_Type	Package,Defined
0164 e62c       | ,  |		Load	0x3,0x2c
0165 4801       |H   |		Short_Literal	0x1
0166 00da       |    |		Load_Top	At_Offset_2
0167 020e       |    |		Execute	Module,Augment_Imports
0168 0387       |    |		Declare_Variable	Package
0169 00d8       |    |		Load_Top	At_Offset_0
016a 020f       |    |		Execute	Module,Activate
016b 4800       |H   |		Short_Literal	0x0
016c 60af       |`   |		Indirect_Literal	Discrete,0x21c,{0x003fcd0b, 0x000000b0}
016d 02a0       |    |		Declare_Subprogram	Null_Subprogram
016e 038e       |    |		Declare_Type	Package,Defined
016f 0387       |    |		Declare_Variable	Package
0170 4800       |H   |		Short_Literal	0x0
0171 60a6       |`   |		Indirect_Literal	Discrete,0x218,{0x003fc90b, 0x000000b0}
0172 02a0       |    |		Declare_Subprogram	Null_Subprogram
0173 038e       |    |		Declare_Type	Package,Defined
0174 e610       |    |		Load	0x3,0x10
0175 4801       |H   |		Short_Literal	0x1
0176 00da       |    |		Load_Top	At_Offset_2
0177 020e       |    |		Execute	Module,Augment_Imports
0178 0387       |    |		Declare_Variable	Package
0179 e61d       |    |		Load	0x3,0x1d
017a e61e       |    |		Load	0x3,0x1e
017b 4802       |H   |		Short_Literal	0x2
017c 00db       |    |		Load_Top	At_Offset_3
017d 020e       |    |		Execute	Module,Augment_Imports
017e 00d8       |    |		Load_Top	At_Offset_0
017f 020f       |    |		Execute	Module,Activate
0180 e621       | !  |		Load	0x3,0x21
0181 e610       |    |		Load	0x3,0x10
0182 e62d       | -  |		Load	0x3,0x2d
0183 e623       | #  |		Load	0x3,0x23
0184 e62c       | ,  |		Load	0x3,0x2c
0185 e632       | 2  |		Load	0x3,0x32
0186 4806       |H   |		Short_Literal	0x6
0187 e631       | 1  |		Load	0x3,0x31
0188 020e       |    |		Execute	Module,Augment_Imports
0189 00d9       |    |		Load_Top	At_Offset_1
018a 020f       |    |		Execute	Module,Activate
018b e621       | !  |		Load	0x3,0x21
018c e62a       | *  |		Load	0x3,0x2a
018d e622       | "  |		Load	0x3,0x22
018e e615       |    |		Load	0x3,0x15
018f 6084       |`   |		Indirect_Literal	Discrete,0x214,{0x00000001, 0x000fa881}
0190 4801       |H   |		Short_Literal	0x1
0191 e62f       | /  |		Load	0x3,0x2f
0192 e629       | )  |		Load	0x3,0x29
0193 e623       | #  |		Load	0x3,0x23
0194 607b       |`{  |		Indirect_Literal	Discrete,0x210,{0x000099ed, 0xd5000082}
0195 e612       |    |		Load	0x3,0x12
0196 e62d       | -  |		Load	0x3,0x2d
0197 e610       |    |		Load	0x3,0x10
0198 e631       | 1  |		Load	0x3,0x31
0199 e628       | (  |		Load	0x3,0x28
019a e61e       |    |		Load	0x3,0x1e
019b e624       | $  |		Load	0x3,0x24
019c e60d       |    |		Load	0x3,0xd
019d e60a       |    |		Load	0x3,0xa
019e e61d       |    |		Load	0x3,0x1d
019f e609       |    |		Load	0x3,0x9
01a0 606b       |`k  |		Indirect_Literal	Discrete,0x20c,{0x000099ed, 0xd5000083}
01a1 6066       |`f  |		Indirect_Literal	Discrete,0x208,{0x000099ed, 0xd5000081}
01a2 e630       | 0  |		Load	0x3,0x30
01a3 4818       |H   |		Short_Literal	0x18
01a4 e61f       |    |		Load	0x3,0x1f
01a5 020e       |    |		Execute	Module,Augment_Imports
01a6 e61f       |    |		Load	0x3,0x1f
01a7 020f       |    |		Execute	Module,Activate
01a8 e615       |    |		Load	0x3,0x15
01a9 605a       |`Z  |		Indirect_Literal	Discrete,0x204,{0x00000001, 0x000fa4e8}
01aa 4802       |H   |		Short_Literal	0x2
01ab e618       |    |		Load	0x3,0x18
01ac e620       |    |		Load	0x3,0x20
01ad 6056       |`V  |		Indirect_Literal	Discrete,0x204,{0x00000001, 0x000fa4e8}
01ae 4801       |H   |		Short_Literal	0x1
01af e60d       |    |		Load	0x3,0xd
01b0 604f       |`O  |		Indirect_Literal	Discrete,0x200,{0x00009987, 0x45000081}
01b1 e62a       | *  |		Load	0x3,0x2a
01b2 e612       |    |		Load	0x3,0x12
01b3 e60a       |    |		Load	0x3,0xa
01b4 e61c       |    |		Load	0x3,0x1c
01b5 e617       |    |		Load	0x3,0x17
01b6 e614       |    |		Load	0x3,0x14
01b7 e613       |    |		Load	0x3,0x13
01b8 e616       |    |		Load	0x3,0x16
01b9 e61d       |    |		Load	0x3,0x1d
01ba 4812       |H   |		Short_Literal	0x12
01bb e611       |    |		Load	0x3,0x11
01bc 020e       |    |		Execute	Module,Augment_Imports
01bd e611       |    |		Load	0x3,0x11
01be 020f       |    |		Execute	Module,Activate
01bf 4801       |H   |		Short_Literal	0x1
01c0 4800       |H   |		Short_Literal	0x0
01c1 00e5       |    |		Load_Encached	Long_Integer_Cache
01c2 02a0       |    |		Declare_Subprogram	Null_Subprogram
01c3 4801       |H   |		Short_Literal	0x1
01c4 035d       | ]  |		Declare_Type	Array,Defined
01c5 0337       | 7  |		Declare_Variable	Array
01c6 e60d       |    |		Load	0x3,0xd
01c7 e611       |    |		Load	0x3,0x11
01c8 4803       |H   |		Short_Literal	0x3
01c9 e60e       |    |		Load	0x3,0xe
01ca 020e       |    |		Execute	Module,Augment_Imports
01cb e60e       |    |		Load	0x3,0xe
01cc 020f       |    |		Execute	Module,Activate
01cd 4801       |H   |		Short_Literal	0x1
01ce 4800       |H   |		Short_Literal	0x0
01cf 00e5       |    |		Load_Encached	Long_Integer_Cache
01d0 02a0       |    |		Declare_Subprogram	Null_Subprogram
01d1 4801       |H   |		Short_Literal	0x1
01d2 035d       | ]  |		Declare_Type	Array,Defined
01d3 0337       | 7  |		Declare_Variable	Array
01d4 e624       | $  |		Load	0x3,0x24
01d5 e61d       |    |		Load	0x3,0x1d
01d6 e61e       |    |		Load	0x3,0x1e
01d7 e608       |    |		Load	0x3,0x8
01d8 e609       |    |		Load	0x3,0x9
01d9 e60d       |    |		Load	0x3,0xd
01da e60a       |    |		Load	0x3,0xa
01db e60f       |    |		Load	0x3,0xf
01dc e60b       |    |		Load	0x3,0xb
01dd e604       |    |		Load	0x3,0x4
01de e607       |    |		Load	0x3,0x7
01df e605       |    |		Load	0x3,0x5
01e0 e60c       |    |		Load	0x3,0xc
01e1 e606       |    |		Load	0x3,0x6
01e2 480f       |H   |		Short_Literal	0xf
01e3 e602       |    |		Load	0x3,0x2
01e4 020e       |    |		Execute	Module,Augment_Imports
01e5 e602       |    |		Load	0x3,0x2
01e6 020f       |    |		Execute	Module,Activate
01e7 7807       |x   |		Jump	BODY_0020
01e8 6013       |`   |		Indirect_Literal	Discrete,0x1fc,{0x00000000, 0x00001f40}
01e9 600e       |`   |		Indirect_Literal	Discrete,0x1f8,{0x00000000, 0x00190c04}
01ea e002       |    |		Load	0x0,0x2
01eb e001       |    |		Load	0x0,0x1
01ec 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
01ed 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
01ee 7e38       |~8  |		Jump	0x27
01ef			BODY_0020:
01ef e5fc       |    |		Load	0x2,-0x4
01f0 e5fd       |    |		Load	0x2,-0x3
01f1 e5fe       |    |		Load	0x2,-0x2
01f2 e5ff       |    |		Load	0x2,-0x1
01f3 8603       |    |		Call	0x3,0x3
01f4 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01f5 0000 0000  |    |		.XXX[0x3]
01f7 0000       |    |
01f8 0000 0000  |    |		.LITERAL	{0x00000000, 0x00190c04}
01fc 0000 0000  |    |		.LITERAL	{0x00000000, 0x00001f40}
0200 0000 9987  |    |		.LITERAL	{0x00009987, 0x45000081}
0204 0000 0001  |    |		.LITERAL	{0x00000001, 0x000fa4e8}
0208 0000 99ed  |    |		.LITERAL	{0x000099ed, 0xd5000081}
020c 0000 99ed  |    |		.LITERAL	{0x000099ed, 0xd5000083}
0210 0000 99ed  |    |		.LITERAL	{0x000099ed, 0xd5000082}
0214 0000 0001  |    |		.LITERAL	{0x00000001, 0x000fa881}
0218 003f c90b  | ?  |		.LITERAL	{0x003fc90b, 0x000000b0}
021c 003f cd0b  | ?  |		.LITERAL	{0x003fcd0b, 0x000000b0}
0220 003f c50b  | ?  |		.LITERAL	{0x003fc50b, 0x000000b0}
0224 003f c10b  | ?  |		.LITERAL	{0x003fc10b, 0x000000b0}
0228 003f bd0b  | ?  |		.LITERAL	{0x003fbd0b, 0x000000b0}
022c 0000 0001  |    |		.LITERAL	{0x00000001, 0x000ddd46}
0230 0000 81a7  |    |		.LITERAL	{0x000081a7, 0x6d000081}
0234 003f b50b  | ?  |		.LITERAL	{0x003fb50b, 0x000000b0}
0238 0000 0000  |    |		.LITERAL	{0x00000000, 0x00010804}
023c 0000 0000  |    |		.LITERAL	{0x00000000, 0x0037ac04}
0240 003f b10b  | ?  |		.LITERAL	{0x003fb10b, 0x000000b0}
0244 003f b90b  | ?  |		.LITERAL	{0x003fb90b, 0x000000b0}
0248 0000 0001  |    |		.LITERAL	{0x00000001, 0x000d919e}
024c 003f ad0b  | ?  |		.LITERAL	{0x003fad0b, 0x000000b0}
0250 0000 7ef4  |  ~ |		.LITERAL	{0x00007ef4, 0xc5000081}
0254 003f a90b  | ?  |		.LITERAL	{0x003fa90b, 0x000000b0}
0258 0000 7ef2  |  ~ |		.LITERAL	{0x00007ef2, 0x75000082}
025c 0000 7ef2  |  ~ |		.LITERAL	{0x00007ef2, 0x75000081}
0260 003f a50b  | ?  |		.LITERAL	{0x003fa50b, 0x000000b0}
0264 003f a10b  | ?  |		.LITERAL	{0x003fa10b, 0x000000b0}
0268 003f 9d0b  | ?  |		.LITERAL	{0x003f9d0b, 0x000000b0}
026c 003f 990b  | ?  |		.LITERAL	{0x003f990b, 0x000000b0}
0270 0000 0000  |    |		.LITERAL	{0x00000000, 0x00373c04}
0274 0000 0000  |    |		.LITERAL	{0x00000000, 0x00273004}
0278 0000 0000  |    |		.LITERAL	{0x00000000, 0x00273404}
027c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00274004}
0280 003f d10b  | ?  |		.LITERAL	{0x003fd10b, 0x000000b0}
0284 0000 0000  |    |		.LITERAL	{0x00000000, 0x003e1404}
0288 0000 0000  |    |		.LITERAL	{0x00000000, 0x0004bc04}
028c 0000 0000  |    |		.LITERAL	{0x00000000, 0x000ca804}
0290 0000 0000  |    |		.LITERAL	{0x00000000, 0x0036e004}
0294 0000 0000  |    |		.LITERAL	{0x00000000, 0x001aa804}
0298 0000 0000  |    |		.LITERAL	{0x00000000, 0x000e3804}
029c 003f 950b  | ?  |		.LITERAL	{0x003f950b, 0x000000b0}
02a0 0000 0000  |    |		.LITERAL	{0x00000000, 0x001aa004}
02a4 0000 0000  |    |		.LITERAL	{0x00000000, 0x000e1804}
02a8 0000 0000  |    |		.LITERAL	{0x00000000, 0x00322004}
02ac 0000 0000  |    |		.LITERAL	{0x00000000, 0x00371404}
02b0 0000 0000  |    |		.LITERAL	{0x00000000, 0x001a9404}
02b4 0000 0000  |    |		.LITERAL	{0x00000000, 0x003b6804}
02b8 003f d50b  | ?  |		.LITERAL	{0x003fd50b, 0x000000b0}
02bc 0000 0000  |    |		.LITERAL	{0x00000000, 0x0022ac04}
02c0 003f d90b  | ?  |		.LITERAL	{0x003fd90b, 0x000000b0}
02c4 0000 0000  |    |		.LITERAL	{0x00000000, 0x00324c04}
02c8 0000 0000  |    |		.LITERAL	{0x00000000, 0x00320404}
02cc 0000 0000  |    |		.LITERAL	{0x00000000, 0x0036c804}
02d0 0000 0000  |    |		.LITERAL	{0x00000000, 0x00324804}
02d4 0000 0000  |    |		.LITERAL	{0x00000000, 0x00227404}
02d8 0000 0000  |    |		.LITERAL	{0x00000000, 0x00229c04}
02dc 0000 0000  |    |		.LITERAL	{0x00000000, 0x003e9404}
02e0 0000 0000  |    |		.LITERAL	{0x00000000, 0x00375004}
02e4 0000 0000  |    |		.LITERAL	{0x00000000, 0x003e8804}
02e8 0000 0000  |    |		.LITERAL	{0x00000000, 0x00374804}
02ec 003f e10b  | ?  |		.LITERAL	{0x003fe10b, 0x000000b0}
02f0 ; --------------------------------------------------------------------------------------
02f0 ; Segment Table
02f0 ; --------------------------------------------------------------------------------------
02f0 0145 0028  | E (|		.XXX[0x13]
02f2 0150 0161  | P a|
02f4 016c 0171  | l q|
02f6 0057 0062  | W b|
02f8 007f 00aa  |    |
02fa 00c1 00cc  |    |
02fc 00db 00df  |    |
02fe 00e5 00f1  |    |
0300 00ff 0109  |    |
0302 0128       | (  |
0303 0000 0000  |    |		.BLANK	0000[0x5]
0308 ; --------------------------------------------------------------------------------------
0308 ; Debug Table
0308 ; --------------------------------------------------------------------------------------
0308 0004 0006  |    |		.DEBUG4	0x0004,0x0006,0x47c5,0x0000,0x0001,0x0000
030e 746f 6f6f  |tooo|		.XXX[0xf2]
0310 6e6f 6f6f  |nooo|
0312 6e6f 6f6f  |nooo|
0314 7522 2c17  |u", |
0316 0836 203d  | 6 =|
0318 3e20 2278  |> "x|
031a 2037 2078  | 7 x|
031c 2038 2078  | 8 x|
031e 2039 2078  | 9 x|
0320 222c 1708  |",  |
0322 3720 3d3e  |7 =>|
0324 2022 746f  | "to|
0326 6f6f 6e6f  |oono|
0328 6f6f 6e6f  |oono|
032a 6f6f 7522  |oou"|
032c 2c17 0838  |,  8|
032e 203d 3e20  | => |
0330 2278 202a  |"x *|
0332 2078 2030  | x 0|
0334 2078 2023  | x #|
0336 2078 222c  | x",|
0338 4808 3920  |H 9 |
033a 3d3e 2022  |=> "|
033c 6d6f 6f6f  |mooo|
033e 766f 6f6f  |vooo|
0340 766f 6f6f  |vooo|
0342 6a22 293b  |j");|
0344 202d 2d20  | -- |
0346 5768 656e  |When|
0348 2057 696e  | Win|
034a 646f 7720  |dow |
034c 494f 2067  |IO g|
034e 7261 7068  |raph|
0350 6963 7320  |ics |
0352 6368 6172  |char|
0354 6163 7465  |acte|
0356 7273 2061  |rs a|
0358 7265 2075  |re u|
035a 7365 642c  |sed,|
035c 301f 2d2d  |0 --|
035e 2054 6869  | Thi|
0360 7320 7072  |s pr|
0362 6f64 7563  |oduc|
0364 6573 2061  |es a|
0366 2074 656c  | tel|
0368 6570 686f  |epho|
036a 6e65 206b  |ne k|
036c 6579 626f  |eybo|
036e 6172 6420  |ard |
0370 6469 7370  |disp|
0372 6c61 792e  |lay.|
0374 0200 3404  |  4 |
0376 5561 6c5f  |Ual_|
0378 4d65 7373  |Mess|
037a 6167 655f  |age_|
037c 506f 7369  |Posi|
037e 7469 6f6e  |tion|
0380 203a 2063  | : c|
0382 6f6e 7374  |onst|
0384 616e 7420  |ant |
0386 5363 7265  |Scre|
0388 656e 5f50  |en_P|
038a 6f73 6974  |osit|
038c 696f 6e20  |ion |
038e 3a3d 1d07  |:=  |
0390 284c 696e  |(Lin|
0392 6520 3d3e  |e =>|
0394 2032 302c  | 20,|
0396 2043 6f6c  | Col|
0398 756d 6e20  |umn |
039a 3d3e 2032  |=> 2|
039c 3529 3b42  |5);B|
039e 0455 616c  | Ual|
03a0 5f4d 6573  |_Mes|
03a2 7361 6765  |sage|
03a4 203a 2063  | : c|
03a6 6f6e 7374  |onst|
03a8 616e 7420  |ant |
03aa 5374 7269  |Stri|
03ac 6e67 203a  |ng :|
03ae 3d20 2254  |= "T|
03b0 4841 4e4b  |HANK|
03b2 2059 4f55  | YOU|
03b4 2046 4f52  | FOR|
03b6 2046 4c59  | FLY|
03b8 494e 4720  |ING |
03ba 554e 4954  |UNIT|
03bc 4544 2122  |ED!"|
03be 3b02 004b  |;  K|
03c0 0442 6f6c  | Bol|
03c2 6420 3a20  |d : |
03c4 636f 6e73  |cons|
03c6 7461 6e74  |tant|
03c8 2057 696f  | Wio|
03ca 2e46 6f6e  |.Fon|
03cc 7420 3a3d  |t :=|
03ce 2028 5769  | (Wi|
03d0 6f2e 506c  |o.Pl|
03d2 6169 6e2c  |ain,|
03d4 2028 426f  | (Bo|
03d6 6c64 203d  |ld =|
03d8 3e20 5472  |> Tr|
03da 7565 2c20  |ue, |
03dc 6f74 6865  |othe|
03de 7273 203d  |rs =|
03e0 3e20 4661  |> Fa|
03e2 6c73 6529  |lse)|
03e4 293b 0200  |);  |
03e6 3c04 7061  |< pa|
03e8 636b 6167  |ckag|
03ea 6520 5070  |e Pp|
03ec 2069 7320  | is |
03ee 6e65 7720  |new |
03f0 5061 7261  |Para|
03f2 6d65 7465  |mete|
03f4 725f 5061  |r_Pa|
03f6 7273 6572  |rser|
03f8 2028 4f70  | (Op|
03fa 7469 6f6e  |tion|
03fc 5f49 6420  |_Id |
03fe 3d3e 2042  |=> B|