|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6148f2
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
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 0358 | X | .CONST 0x0358 ; 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 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 005a | Z | .CONST 0x005a ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 000f | | .CONST 0x000f ; Number of locals
000b INIT_0008:
000b 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated
000d 00bf | | Action Accept_Activation
000e 4800 |H | Short_Literal 0x0
000f 4810 |H | Short_Literal 0x10
0010 e002 | | Load 0x0,0x2
0011 0334 | 4 | Declare_Variable Array,With_Constraint
0012 4801 |H | Short_Literal 0x1
0013 4800 |H | Short_Literal 0x0
0014 00da | | Load_Top At_Offset_2
0015 01d6 | | Execute Vector,Field_Write
0016 4802 |H | Short_Literal 0x2
0017 4801 |H | Short_Literal 0x1
0018 00da | | Load_Top At_Offset_2
0019 01d6 | | Execute Vector,Field_Write
001a 4901 |I | Short_Literal 0x101
001b 4802 |H | Short_Literal 0x2
001c 00da | | Load_Top At_Offset_2
001d 01d6 | | Execute Vector,Field_Write
001e 62d9 |b | Indirect_Literal Discrete,0x2f8,{0x00000000, 0x00000666}
001f 4803 |H | Short_Literal 0x3
0020 00da | | Load_Top At_Offset_2
0021 01d6 | | Execute Vector,Field_Write
0022 62d1 |b | Indirect_Literal Discrete,0x2f4,{0x00000000, 0x11111111}
0023 4804 |H | Short_Literal 0x4
0024 00da | | Load_Top At_Offset_2
0025 01d6 | | Execute Vector,Field_Write
0026 62c9 |b | Indirect_Literal Discrete,0x2f0,{0x00000000, 0x12121212}
0027 4805 |H | Short_Literal 0x5
0028 00da | | Load_Top At_Offset_2
0029 01d6 | | Execute Vector,Field_Write
002a 62c1 |b | Indirect_Literal Discrete,0x2ec,{0x00000000, 0x12491249}
002b 4806 |H | Short_Literal 0x6
002c 00da | | Load_Top At_Offset_2
002d 01d6 | | Execute Vector,Field_Write
002e 62b9 |b | Indirect_Literal Discrete,0x2e8,{0x00000000, 0x22222222}
002f 4807 |H | Short_Literal 0x7
0030 00da | | Load_Top At_Offset_2
0031 01d6 | | Execute Vector,Field_Write
0032 62b1 |b | Indirect_Literal Discrete,0x2e4,{0x00000000, 0x33333333}
0033 4808 |H | Short_Literal 0x8
0034 00da | | Load_Top At_Offset_2
0035 01d6 | | Execute Vector,Field_Write
0036 62a9 |b | Indirect_Literal Discrete,0x2e0,{0x00000000, 0x00004001}
0037 4809 |H | Short_Literal 0x9
0038 00da | | Load_Top At_Offset_2
0039 01d6 | | Execute Vector,Field_Write
003a 62a1 |b | Indirect_Literal Discrete,0x2dc,{0x00000000, 0x04444444}
003b 480a |H | Short_Literal 0xa
003c 00da | | Load_Top At_Offset_2
003d 01d6 | | Execute Vector,Field_Write
003e 6299 |b | Indirect_Literal Discrete,0x2d8,{0x00000000, 0x12525252}
003f 480b |H | Short_Literal 0xb
0040 00da | | Load_Top At_Offset_2
0041 01d6 | | Execute Vector,Field_Write
0042 6291 |b | Indirect_Literal Discrete,0x2d4,{0x00000000, 0x15555555}
0043 480c |H | Short_Literal 0xc
0044 00da | | Load_Top At_Offset_2
0045 01d6 | | Execute Vector,Field_Write
0046 6289 |b | Indirect_Literal Discrete,0x2d0,{0x00000000, 0x00006666}
0047 480d |H | Short_Literal 0xd
0048 00da | | Load_Top At_Offset_2
0049 01d6 | | Execute Vector,Field_Write
004a 6281 |b | Indirect_Literal Discrete,0x2cc,{0x00000000, 0x00008001}
004b 480e |H | Short_Literal 0xe
004c 00da | | Load_Top At_Offset_2
004d 01d6 | | Execute Vector,Field_Write
004e 6279 |by | Indirect_Literal Discrete,0x2c8,{0x00000000, 0x00008010}
004f 480f |H | Short_Literal 0xf
0050 00da | | Load_Top At_Offset_2
0051 01d6 | | Execute Vector,Field_Write
0052 6271 |bq | Indirect_Literal Discrete,0x2c4,{0x00000000, 0x0000d431}
0053 4810 |H | Short_Literal 0x10
0054 00da | | Load_Top At_Offset_2
0055 01d6 | | Execute Vector,Field_Write
0056 e003 | | Load 0x0,0x3
0057 0610 | | Execute_Immediate Set_Value_Unchecked,0x10
0058 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0059 00c7 | | Action Elaborate_Subprogram
005a BODY_0008:
005a 00bc | | Action Signal_Activated
005b 00bb | | Action Signal_Completion
005c 0000 0000 | | .BLANK 0000[0x4]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 009b | | .CONST 0x009b ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 0018 | | .CONST 0x0018 ; Number of locals
0063 INIT_0060:
0063 e5fc | | Load 0x2,-0x4
0064 e004 | | Load 0x0,0x4
0065 03f1 | | Declare_Variable Discrete,With_Value
0066 e005 | | Load 0x0,0x5
0067 0322 | " | Declare_Variable Record
0068 e006 | | Load 0x0,0x6
0069 0007 | | Action Break_Optional
006a e006 | | Load 0x0,0x6
006b 0007 | | Action Break_Optional
006c e007 | | Load 0x0,0x7
006d 0007 | | Action Break_Optional
006e e007 | | Load 0x0,0x7
006f 0007 | | Action Break_Optional
0070 e008 | | Load 0x0,0x8
0071 0322 | " | Declare_Variable Record
0072 00d8 | | Load_Top At_Offset_0
0073 1c00 | | Execute_Immediate Run_Utility,0x0
0074 e009 | | Load 0x0,0x9
0075 0007 | | Action Break_Optional
0076 e00a | | Load 0x0,0xa
0077 0007 | | Action Break_Optional
0078 e00b | | Load 0x0,0xb
0079 0007 | | Action Break_Optional
007a e00c | | Load 0x0,0xc
007b 02ff | | Declare_Variable Variant_Record
007c 00d8 | | Load_Top At_Offset_0
007d 1c00 | | Execute_Immediate Run_Utility,0x0
007e 0007 | | Action Break_Optional
007f 4800 |H | Short_Literal 0x0
0080 498f |I | Short_Literal 0x18f
0081 e00d | | Load 0x0,0xd
0082 035b | [ | Declare_Type Array,Constrained
0083 0337 | 7 | Declare_Variable Array
0084 e004 | | Load 0x0,0x4
0085 0007 | | Action Break_Optional
0086 00e3 | | Load_Encached Natural_Cache
0087 e004 | | Load 0x0,0x4
0088 0007 | | Action Break_Optional
0089 e004 | | Load 0x0,0x4
008a 0007 | | Action Break_Optional
008b e006 | | Load 0x0,0x6
008c 0007 | | Action Break_Optional
008d e006 | | Load 0x0,0x6
008e 0007 | | Action Break_Optional
008f e006 | | Load 0x0,0x6
0090 0007 | | Action Break_Optional
0091 e006 | | Load 0x0,0x6
0092 0007 | | Action Break_Optional
0093 e5ff | | Load 0x2,-0x1
0094 800e | | Call 0x0,0xe
0095 e00f | | Load 0x0,0xf
0096 0322 | " | Declare_Variable Record
0097 00d8 | | Load_Top At_Offset_0
0098 1c00 | | Execute_Immediate Run_Utility,0x0
0099 029f 0303 | | Declare_Subprogram INIT_0300,For_Call
009b BODY_0060:
009b 00d9 | | Load_Top At_Offset_1
009c e009 | | Load 0x0,0x9
009d e416 | | Load 0x2,0x16
009e 8010 | | Call 0x0,0x10
009f c409 | | Store 0x2,0x9
00a0 00d1 | | Pop_Control Pop_Count_1
00a1 e409 | | Load 0x2,0x9
00a2 e009 | | Load 0x0,0x9
00a3 022f | / | Execute Access,Equal
00a4 6809 |h | Jump_Zero 0xae
00a5 0092 0340 | @| Action Push_String_Extended,0x340 ; "Cannot open display: "
00a7 00da | | Load_Top At_Offset_2
00a8 8011 | | Call 0x0,0x11
00a9 8012 | | Call 0x0,0x12
00aa 01cc | | Execute Vector,Catenate
00ab e013 | | Load 0x0,0x13
00ac 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00ad 08e2 | | Execute_Immediate Raise,0xe2
00ae e409 | | Load 0x2,0x9
00af 8014 | | Call 0x0,0x14
00b0 a40a | | Store_Unchecked 0x2,0xa
00b1 e5fd | | Load 0x2,-0x3
00b2 6813 |h | Jump_Zero 0xc6
00b3 e409 | | Load 0x2,0x9
00b4 8015 | | Call 0x0,0x15
00b5 e403 | | Load 0x2,0x3
00b6 017d | } | Execute Record,Structure_Write
00b7 4800 |H | Short_Literal 0x0
00b8 a404 | | Store_Unchecked 0x2,0x4
00b9 4800 |H | Short_Literal 0x0
00ba a405 | | Store_Unchecked 0x2,0x5
00bb e409 | | Load 0x2,0x9
00bc 8016 | | Call 0x0,0x16
00bd e409 | | Load 0x2,0x9
00be 8017 | | Call 0x0,0x17
00bf a406 | | Store_Unchecked 0x2,0x6
00c0 e409 | | Load 0x2,0x9
00c1 8016 | | Call 0x0,0x16
00c2 e409 | | Load 0x2,0x9
00c3 8018 | | Call 0x0,0x18
00c4 a407 | | Store_Unchecked 0x2,0x7
00c5 78a3 |x | Jump 0x169
00c6 4900 |I | Short_Literal 0x100
00c7 a406 | | Store_Unchecked 0x2,0x6
00c8 4900 |I | Short_Literal 0x100
00c9 a407 | | Store_Unchecked 0x2,0x7
00ca e40a | | Load 0x2,0xa
00cb 8019 | | Call 0x0,0x19
00cc 00d8 | | Load_Top At_Offset_0
00cd e006 | | Load 0x0,0x6
00ce 0260 | ` | Execute Discrete,In_Type
00cf 7001 |p | Jump_Nonzero 0xd1
00d0 0801 | | Execute_Immediate Raise,0x1
00d1 e406 | | Load 0x2,0x6
00d2 00d8 | | Load_Top At_Offset_0
00d3 e006 | | Load 0x0,0x6
00d4 0260 | ` | Execute Discrete,In_Type
00d5 7001 |p | Jump_Nonzero 0xd7
00d6 0801 | | Execute_Immediate Raise,0x1
00d7 0272 | r | Execute Discrete,Minus
00d8 09ff | | Execute_Immediate Binary_Scale,-0x1
00d9 c404 | | Store 0x2,0x4
00da e40a | | Load 0x2,0xa
00db 801a | | Call 0x0,0x1a
00dc 00d8 | | Load_Top At_Offset_0
00dd e006 | | Load 0x0,0x6
00de 0260 | ` | Execute Discrete,In_Type
00df 7001 |p | Jump_Nonzero 0xe1
00e0 0801 | | Execute_Immediate Raise,0x1
00e1 e407 | | Load 0x2,0x7
00e2 00d8 | | Load_Top At_Offset_0
00e3 e006 | | Load 0x0,0x6
00e4 0260 | ` | Execute Discrete,In_Type
00e5 7001 |p | Jump_Nonzero 0xe7
00e6 0801 | | Execute_Immediate Raise,0x1
00e7 0272 | r | Execute Discrete,Minus
00e8 09ff | | Execute_Immediate Binary_Scale,-0x1
00e9 c405 | | Store 0x2,0x5
00ea e5fe | | Load 0x2,-0x2
00eb 4800 |H | Short_Literal 0x0
00ec 00e5 | | Load_Encached Long_Integer_Cache
00ed 00d9 | | Load_Top At_Offset_1
00ee 0267 | g | Execute Discrete,Predecessor
00ef e01b | | Load 0x0,0x1b
00f0 0334 | 4 | Declare_Variable Array,With_Constraint
00f1 01de | | Execute Vector,Not_Equal
00f2 6801 |h | Jump_Zero 0xf4
00f3 8418 | | Call 0x2,0x18
00f4 e01c | | Load 0x0,0x1c
00f5 0337 | 7 | Declare_Variable Array
00f6 4801 |H | Short_Literal 0x1
00f7 481d |H | Short_Literal 0x1d
00f8 00da | | Load_Top At_Offset_2
00f9 01d6 | | Execute Vector,Field_Write
00fa 4801 |H | Short_Literal 0x1
00fb 4810 |H | Short_Literal 0x10
00fc 00da | | Load_Top At_Offset_2
00fd 01d6 | | Execute Vector,Field_Write
00fe 4801 |H | Short_Literal 0x1
00ff 480e |H | Short_Literal 0xe
0100 00da | | Load_Top At_Offset_2
0101 01d6 | | Execute Vector,Field_Write
0102 480d |H | Short_Literal 0xd
0103 4800 |H | Short_Literal 0x0
0104 4800 |H | Short_Literal 0x0
0105 00d9 | | Load_Top At_Offset_1
0106 e419 | | Load 0x2,0x19
0107 01d6 | | Execute Vector,Field_Write
0108 3ffb |? | Loop_Increasing 0x104
0109 4800 |H | Short_Literal 0x0
010a 480f |H | Short_Literal 0xf
010b 00da | | Load_Top At_Offset_2
010c 01d6 | | Execute Vector,Field_Write
010d 481c |H | Short_Literal 0x1c
010e 4811 |H | Short_Literal 0x11
010f 4800 |H | Short_Literal 0x0
0110 00d9 | | Load_Top At_Offset_1
0111 e419 | | Load 0x2,0x19
0112 01d6 | | Execute Vector,Field_Write
0113 3ffb |? | Loop_Increasing 0x10f
0114 4800 |H | Short_Literal 0x0
0115 481e |H | Short_Literal 0x1e
0116 00da | | Load_Top At_Offset_2
0117 01d6 | | Execute Vector,Field_Write
0118 4800 |H | Short_Literal 0x0
0119 481f |H | Short_Literal 0x1f
011a 00da | | Load_Top At_Offset_2
011b 01d6 | | Execute Vector,Field_Write
011c e01c | | Load 0x0,0x1c
011d 01c3 | | Execute Vector,Check_In_Type
011e e408 | | Load 0x2,0x8
011f 380b |8 | Execute Record,Field_Write,Field_Number 0xb
0120 e40a | | Load 0x2,0xa
0121 801d | | Call 0x0,0x1d
0122 e408 | | Load 0x2,0x8
0123 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0124 e408 | | Load 0x2,0x8
0125 e01e | | Load 0x0,0x1e
0126 0337 | 7 | Declare_Variable Array
0127 4801 |H | Short_Literal 0x1
0128 4814 |H | Short_Literal 0x14
0129 00da | | Load_Top At_Offset_2
012a 01d6 | | Execute Vector,Field_Write
012b 4801 |H | Short_Literal 0x1
012c 481e |H | Short_Literal 0x1e
012d 00da | | Load_Top At_Offset_2
012e 01d6 | | Execute Vector,Field_Write
012f 4813 |H | Short_Literal 0x13
0130 4800 |H | Short_Literal 0x0
0131 4800 |H | Short_Literal 0x0
0132 00d9 | | Load_Top At_Offset_1
0133 e41a | | Load 0x2,0x1a
0134 01d6 | | Execute Vector,Field_Write
0135 3ffb |? | Loop_Increasing 0x131
0136 481d |H | Short_Literal 0x1d
0137 4815 |H | Short_Literal 0x15
0138 4800 |H | Short_Literal 0x0
0139 00d9 | | Load_Top At_Offset_1
013a e41a | | Load 0x2,0x1a
013b 01d6 | | Execute Vector,Field_Write
013c 3ffb |? | Loop_Increasing 0x138
013d 4800 |H | Short_Literal 0x0
013e 481f |H | Short_Literal 0x1f
013f 00da | | Load_Top At_Offset_2
0140 01d6 | | Execute Vector,Field_Write
0141 e01e | | Load 0x0,0x1e
0142 01c3 | | Execute Vector,Check_In_Type
0143 e40a | | Load 0x2,0xa
0144 801f | | Call 0x0,0x1f
0145 4801 |H | Short_Literal 0x1
0146 e40a | | Load 0x2,0xa
0147 8020 | | Call 0x0,0x20
0148 4800 |H | Short_Literal 0x0
0149 e407 | | Load 0x2,0x7
014a 00d8 | | Load_Top At_Offset_0
014b e021 | ! | Load 0x0,0x21
014c 0260 | ` | Execute Discrete,In_Type
014d 7001 |p | Jump_Nonzero 0x14f
014e 0801 | | Execute_Immediate Raise,0x1
014f e406 | | Load 0x2,0x6
0150 00d8 | | Load_Top At_Offset_0
0151 e021 | ! | Load 0x0,0x21
0152 0260 | ` | Execute Discrete,In_Type
0153 7001 |p | Jump_Nonzero 0x155
0154 0801 | | Execute_Immediate Raise,0x1
0155 e405 | | Load 0x2,0x5
0156 e404 | | Load 0x2,0x4
0157 e40a | | Load 0x2,0xa
0158 8022 | " | Call 0x0,0x22
0159 e409 | | Load 0x2,0x9
015a 8023 | # | Call 0x0,0x23
015b e403 | | Load 0x2,0x3
015c 017d | } | Execute Record,Structure_Write
015d e024 | $ | Load 0x0,0x24
015e 4800 |H | Short_Literal 0x0
015f 4806 |H | Short_Literal 0x6
0160 e01b | | Load 0x0,0x1b
0161 0334 | 4 | Declare_Variable Array,With_Constraint
0162 5199 |Q | Indirect_Literal Any,0x2fc,{0x4d756e63, 0x68657200}
0163 e403 | | Load 0x2,0x3
0164 e409 | | Load 0x2,0x9
0165 8025 | % | Call 0x0,0x25
0166 e403 | | Load 0x2,0x3
0167 e409 | | Load 0x2,0x9
0168 8026 | & | Call 0x0,0x26
0169 e027 | ' | Load 0x0,0x27
016a e028 | ( | Load 0x0,0x28
016b e403 | | Load 0x2,0x3
016c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
016d e409 | | Load 0x2,0x9
016e 8029 | ) | Call 0x0,0x29
016f a40b | | Store_Unchecked 0x2,0xb
0170 e40a | | Load 0x2,0xa
0171 801d | | Call 0x0,0x1d
0172 e40a | | Load 0x2,0xa
0173 802a | * | Call 0x0,0x2a
0174 802b | + | Call 0x0,0x2b
0175 e40b | | Load 0x2,0xb
0176 e409 | | Load 0x2,0x9
0177 802c | , | Call 0x0,0x2c
0178 4806 |H | Short_Literal 0x6
0179 e40b | | Load 0x2,0xb
017a e409 | | Load 0x2,0x9
017b 802d | - | Call 0x0,0x2d
017c e402 | | Load 0x2,0x2
017d 7013 |p | Jump_Nonzero 0x191
017e e02e | . | Load 0x0,0x2e
017f 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0180 e02e | . | Load 0x0,0x2e
0181 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0182 00d8 | | Load_Top At_Offset_0
0183 0c00 | | Execute_Immediate Greater_Equal,0x0
0184 7002 |p | Jump_Nonzero 0x187
0185 613a |a: | Indirect_Literal Discrete,0x2c0,{0xffffffff, 0xffffc000}
0186 7801 |x | Jump 0x188
0187 6134 |a4 | Indirect_Literal Discrete,0x2bc,{0x00000000, 0x00004000}
0188 0273 | s | Execute Discrete,Plus
0189 09f1 | | Execute_Immediate Binary_Scale,-0xf
018a 4811 |H | Short_Literal 0x11
018b 026f | o | Execute Discrete,Remainder
018c c20f | | Store 0x1,0xf
018d e20f | | Load 0x1,0xf
018e e20e | | Load 0x1,0xe
018f 01d7 | | Execute Vector,Field_Read
0190 a402 | | Store_Unchecked 0x2,0x2
0191 0008 | | Action Idle
0192 0007 | | Action Break_Optional
0193 e406 | | Load 0x2,0x6
0194 e407 | | Load 0x2,0x7
0195 027d | } | Execute Discrete,Greater
0196 6803 |h | Jump_Zero 0x19a
0197 e406 | | Load 0x2,0x6
0198 a40e | | Store_Unchecked 0x2,0xe
0199 7802 |x | Jump 0x19c
019a e407 | | Load 0x2,0x7
019b a40e | | Store_Unchecked 0x2,0xe
019c e40e | | Load 0x2,0xe
019d 0d01 | | Execute_Immediate Less,0x1
019e 6802 |h | Jump_Zero 0x1a1
019f 4801 |H | Short_Literal 0x1
01a0 a40e | | Store_Unchecked 0x2,0xe
01a1 481e |H | Short_Literal 0x1e
01a2 a40f | | Store_Unchecked 0x2,0xf
01a3 6114 |a | Indirect_Literal Discrete,0x2b8,{0x00000000, 0x40000000}
01a4 a410 | | Store_Unchecked 0x2,0x10
01a5 00cf | | Action Mark_Auxiliary
01a6 0007 | | Action Break_Optional
01a7 e410 | | Load 0x2,0x10
01a8 e40e | | Load 0x2,0xe
01a9 802f | / | Call 0x0,0x2f
01aa 6801 |h | Jump_Zero 0x1ac
01ab 780b |x | Jump 0x1b7
01ac e40f | | Load 0x2,0xf
01ad 7001 |p | Jump_Nonzero 0x1af
01ae 7808 |x | Jump 0x1b7
01af e40f | | Load 0x2,0xf
01b0 0aff | | Execute_Immediate Plus,-0x1
01b1 c40f | | Store 0x2,0xf
01b2 e410 | | Load 0x2,0x10
01b3 09ff | | Execute_Immediate Binary_Scale,-0x1
01b4 c410 | | Store 0x2,0x10
01b5 00c9 | | Action Pop_Auxiliary_Loop
01b6 7ff0 | | Jump 0x1a7
01b7 00ce | | Action Pop_Auxiliary
01b8 e40f | | Load 0x2,0xf
01b9 4801 |H | Short_Literal 0x1
01ba 8030 | 0 | Call 0x0,0x30
01bb a410 | | Store_Unchecked 0x2,0x10
01bc e410 | | Load 0x2,0x10
01bd e40e | | Load 0x2,0xe
01be 027c | | | Execute Discrete,Less
01bf 6803 |h | Jump_Zero 0x1c3
01c0 e410 | | Load 0x2,0x10
01c1 0901 | | Execute_Immediate Binary_Scale,0x1
01c2 c410 | | Store 0x2,0x10
01c3 e410 | | Load 0x2,0x10
01c4 a40e | | Store_Unchecked 0x2,0xe
01c5 e410 | | Load 0x2,0x10
01c6 0aff | | Execute_Immediate Plus,-0x1
01c7 c410 | | Store 0x2,0x10
01c8 e406 | | Load 0x2,0x6
01c9 00d8 | | Load_Top At_Offset_0
01ca e006 | | Load 0x0,0x6
01cb 0260 | ` | Execute Discrete,In_Type
01cc 7001 |p | Jump_Nonzero 0x1ce
01cd 0801 | | Execute_Immediate Raise,0x1
01ce e40e | | Load 0x2,0xe
01cf 00d8 | | Load_Top At_Offset_0
01d0 e006 | | Load 0x0,0x6
01d1 0260 | ` | Execute Discrete,In_Type
01d2 7001 |p | Jump_Nonzero 0x1d4
01d3 0801 | | Execute_Immediate Raise,0x1
01d4 0272 | r | Execute Discrete,Minus
01d5 09ff | | Execute_Immediate Binary_Scale,-0x1
01d6 c414 | | Store 0x2,0x14
01d7 e407 | | Load 0x2,0x7
01d8 00d8 | | Load_Top At_Offset_0
01d9 e006 | | Load 0x0,0x6
01da 0260 | ` | Execute Discrete,In_Type
01db 7001 |p | Jump_Nonzero 0x1dd
01dc 0801 | | Execute_Immediate Raise,0x1
01dd e40e | | Load 0x2,0xe
01de 00d8 | | Load_Top At_Offset_0
01df e006 | | Load 0x0,0x6
01e0 0260 | ` | Execute Discrete,In_Type
01e1 7001 |p | Jump_Nonzero 0x1e3
01e2 0801 | | Execute_Immediate Raise,0x1
01e3 0272 | r | Execute Discrete,Minus
01e4 09ff | | Execute_Immediate Binary_Scale,-0x1
01e5 c415 | | Store 0x2,0x15
01e6 e5fb | | Load 0x2,-0x5
01e7 6817 |h | Jump_Zero 0x1ff
01e8 0092 0341 | A| Action Push_String_Extended,0x341 ; "size := "
01ea e013 | | Load 0x0,0x13
01eb 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
01ec e031 | 1 | Load 0x0,0x31
01ed 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01ee e031 | 1 | Load 0x0,0x31
01ef 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01f0 e40e | | Load 0x2,0xe
01f1 e031 | 1 | Load 0x0,0x31
01f2 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01f3 0092 0342 | B| Action Push_String_Extended,0x342 ; ", seed := "
01f5 e013 | | Load 0x0,0x13
01f6 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
01f7 4810 |H | Short_Literal 0x10
01f8 4800 |H | Short_Literal 0x0
01f9 e402 | | Load 0x2,0x2
01fa e031 | 1 | Load 0x0,0x31
01fb 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01fc 4801 |H | Short_Literal 0x1
01fd e013 | | Load 0x0,0x13
01fe 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
01ff 4800 |H | Short_Literal 0x0
0200 a411 | | Store_Unchecked 0x2,0x11
0201 e403 | | Load 0x2,0x3
0202 e409 | | Load 0x2,0x9
0203 8032 | 2 | Call 0x0,0x32
0204 00cf | | Action Mark_Auxiliary
0205 0007 | | Action Break_Optional
0206 e409 | | Load 0x2,0x9
0207 8033 | 3 | Call 0x0,0x33
0208 6866 |hf | Jump_Zero 0x26f
0209 e40c | | Load 0x2,0xc
020a e409 | | Load 0x2,0x9
020b 8034 | 4 | Call 0x0,0x34
020c 00d1 | | Pop_Control Pop_Count_1
020d e40c | | Load 0x2,0xc
020e 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
020f 0f16 | | Execute_Immediate Equal,0x16
0210 6816 |h | Jump_Zero 0x227
0211 e406 | | Load 0x2,0x6
0212 e40c | | Load 0x2,0xc
0213 2616 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x16
0214 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0215 027e | ~ | Execute Discrete,Not_Equal
0216 7006 |p | Jump_Nonzero 0x21d
0217 e407 | | Load 0x2,0x7
0218 e40c | | Load 0x2,0xc
0219 2616 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x16
021a 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
021b 027e | ~ | Execute Discrete,Not_Equal
021c 6852 |hR | Jump_Zero 0x26f
021d e40c | | Load 0x2,0xc
021e 2616 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x16
021f 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0220 a406 | | Store_Unchecked 0x2,0x6
0221 e40c | | Load 0x2,0xc
0222 2616 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x16
0223 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
0224 a407 | | Store_Unchecked 0x2,0x7
0225 00ce | | Action Pop_Auxiliary
0226 7f6a | j | Jump 0x191
0227 e40c | | Load 0x2,0xc
0228 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0229 0f0c | | Execute_Immediate Equal,0xc
022a 6810 |h | Jump_Zero 0x23b
022b 00cf | | Action Mark_Auxiliary
022c 7805 |x | Jump 0x232
022d e40c | | Load 0x2,0xc
022e e409 | | Load 0x2,0x9
022f 8034 | 4 | Call 0x0,0x34
0230 00d1 | | Pop_Control Pop_Count_1
0231 00c9 | | Action Pop_Auxiliary_Loop
0232 e40c | | Load 0x2,0xc
0233 260c |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xc
0234 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0235 77f7 |w | Jump_Nonzero 0x22d
0236 00ce | | Action Pop_Auxiliary
0237 e403 | | Load 0x2,0x3
0238 e409 | | Load 0x2,0x9
0239 8032 | 2 | Call 0x0,0x32
023a 7834 |x4 | Jump 0x26f
023b e40c | | Load 0x2,0xc
023c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
023d 0f04 | | Execute_Immediate Equal,0x4
023e 6830 |h0 | Jump_Zero 0x26f
023f e40c | | Load 0x2,0xc
0240 2607 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x7
0241 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0242 0f02 | | Execute_Immediate Equal,0x2
0243 6801 |h | Jump_Zero 0x245
0244 786a |xj | Jump 0x2af
0245 e40c | | Load 0x2,0xc
0246 2607 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x7
0247 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0248 0f03 | | Execute_Immediate Equal,0x3
0249 6825 |h% | Jump_Zero 0x26f
024a e20f | | Load 0x1,0xf
024b 0a01 | | Execute_Immediate Plus,0x1
024c 4811 |H | Short_Literal 0x11
024d 026f | o | Execute Discrete,Remainder
024e c20f | | Store 0x1,0xf
024f e20f | | Load 0x1,0xf
0250 e20e | | Load 0x1,0xe
0251 01d7 | | Execute Vector,Field_Read
0252 a402 | | Store_Unchecked 0x2,0x2
0253 e5fb | | Load 0x2,-0x5
0254 6817 |h | Jump_Zero 0x26c
0255 0092 0341 | A| Action Push_String_Extended,0x341 ; "size := "
0257 e013 | | Load 0x0,0x13
0258 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0259 e031 | 1 | Load 0x0,0x31
025a 1b11 | | Execute Package,Field_Read,Field_Number 0x11
025b e031 | 1 | Load 0x0,0x31
025c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
025d e40e | | Load 0x2,0xe
025e e031 | 1 | Load 0x0,0x31
025f 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0260 0092 0342 | B| Action Push_String_Extended,0x342 ; ", seed := "
0262 e013 | | Load 0x0,0x13
0263 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0264 4810 |H | Short_Literal 0x10
0265 4800 |H | Short_Literal 0x0
0266 e402 | | Load 0x2,0x2
0267 e031 | 1 | Load 0x0,0x31
0268 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0269 4801 |H | Short_Literal 0x1
026a e013 | | Load 0x0,0x13
026b 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
026c e403 | | Load 0x2,0x3
026d e409 | | Load 0x2,0x9
026e 8032 | 2 | Call 0x0,0x32
026f 00cf | | Action Mark_Auxiliary
0270 498f |I | Short_Literal 0x18f
0271 4800 |H | Short_Literal 0x0
0272 0007 | | Action Break_Optional
0273 e410 | | Load 0x2,0x10
0274 e411 | | Load 0x2,0x11
0275 802f | / | Call 0x0,0x2f
0276 00d8 | | Load_Top At_Offset_0
0277 e006 | | Load 0x0,0x6
0278 0260 | ` | Execute Discrete,In_Type
0279 7001 |p | Jump_Nonzero 0x27b
027a 0801 | | Execute_Immediate Raise,0x1
027b a412 | | Store_Unchecked 0x2,0x12
027c e412 | | Load 0x2,0x12
027d e410 | | Load 0x2,0x10
027e e40f | | Load 0x2,0xf
027f 0275 | u | Execute Discrete,Unary_Minus
0280 e411 | | Load 0x2,0x11
0281 8030 | 0 | Call 0x0,0x30
0282 802f | / | Call 0x0,0x2f
0283 802b | + | Call 0x0,0x2b
0284 00d8 | | Load_Top At_Offset_0
0285 e006 | | Load 0x0,0x6
0286 0260 | ` | Execute Discrete,In_Type
0287 7001 |p | Jump_Nonzero 0x289
0288 0801 | | Execute_Immediate Raise,0x1
0289 a413 | | Store_Unchecked 0x2,0x13
028a e412 | | Load 0x2,0x12
028b e414 | | Load 0x2,0x14
028c 0273 | s | Execute Discrete,Plus
028d 00d9 | | Load_Top At_Offset_1
028e e40d | | Load 0x2,0xd
028f 01d5 | | Execute Vector,Field_Reference
0290 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0291 e413 | | Load 0x2,0x13
0292 e415 | | Load 0x2,0x15
0293 0273 | s | Execute Discrete,Plus
0294 00d9 | | Load_Top At_Offset_1
0295 e40d | | Load 0x2,0xd
0296 01d5 | | Execute Vector,Field_Reference
0297 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0298 601b |` | Indirect_Literal Discrete,0x2b4,{0x00000000, 0x3fffffff}
0299 e411 | | Load 0x2,0x11
029a e402 | | Load 0x2,0x2
029b 0273 | s | Execute Discrete,Plus
029c 00d8 | | Load_Top At_Offset_0
029d e004 | | Load 0x0,0x4
029e 0260 | ` | Execute Discrete,In_Type
029f 7001 |p | Jump_Nonzero 0x2a1
02a0 0801 | | Execute_Immediate Raise,0x1
02a1 802f | / | Call 0x0,0x2f
02a2 a411 | | Store_Unchecked 0x2,0x11
02a3 00c8 | | Action Pop_Auxiliary_Range
02a4 3fce |? | Loop_Increasing 0x273
02a5 00ce | | Action Pop_Auxiliary
02a6 4800 |H | Short_Literal 0x0
02a7 e40d | | Load 0x2,0xd
02a8 e40b | | Load 0x2,0xb
02a9 e403 | | Load 0x2,0x3
02aa 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02ab e409 | | Load 0x2,0x9
02ac 8035 | 5 | Call 0x0,0x35
02ad 00c9 | | Action Pop_Auxiliary_Loop
02ae 7f57 | W | Jump 0x206
02af 00ce | | Action Pop_Auxiliary
02b0 e409 | | Load 0x2,0x9
02b1 8036 | 6 | Call 0x0,0x36
02b2 c409 | | Store 0x2,0x9
02b3 4506 |E | Exit_Suprogram New_Top_Offset 0x6
02b4 0000 0000 | | .LITERAL {0x00000000, 0x3fffffff}
02b8 0000 0000 | | .LITERAL {0x00000000, 0x40000000}
02bc 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
02c0 ffff ffff | | .LITERAL {0xffffffff, 0xffffc000}
02c4 0000 0000 | | .LITERAL {0x00000000, 0x0000d431}
02c8 0000 0000 | | .LITERAL {0x00000000, 0x00008010}
02cc 0000 0000 | | .LITERAL {0x00000000, 0x00008001}
02d0 0000 0000 | | .LITERAL {0x00000000, 0x00006666}
02d4 0000 0000 | | .LITERAL {0x00000000, 0x15555555}
02d8 0000 0000 | | .LITERAL {0x00000000, 0x12525252}
02dc 0000 0000 | | .LITERAL {0x00000000, 0x04444444}
02e0 0000 0000 | | .LITERAL {0x00000000, 0x00004001}
02e4 0000 0000 | | .LITERAL {0x00000000, 0x33333333}
02e8 0000 0000 | | .LITERAL {0x00000000, 0x22222222}
02ec 0000 0000 | | .LITERAL {0x00000000, 0x12491249}
02f0 0000 0000 | | .LITERAL {0x00000000, 0x12121212}
02f4 0000 0000 | | .LITERAL {0x00000000, 0x11111111}
02f8 0000 0000 | | .LITERAL {0x00000000, 0x00000666}
02fc 4d75 6e63 |Munc| .LITERAL {0x4d756e63, 0x68657200}
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0305 | | .CONST 0x0305 ; Address of begin
0301 0004 | | .CONST 0x0004 ; Address of exception handler
0302 0002 | | .CONST 0x0002 ; Number of locals
0303 INIT_0300:
0303 e037 | 7 | Load 0x0,0x37
0304 0337 | 7 | Declare_Variable Array
0305 BODY_0300:
0305 00d8 | | Load_Top At_Offset_0
0306 e407 | | Load 0x2,0x7
0307 e406 | | Load 0x2,0x6
0308 e405 | | Load 0x2,0x5
0309 e404 | | Load 0x2,0x4
030a e5fe | | Load 0x2,-0x2
030b 8038 | 8 | Call 0x0,0x38
030c c404 | | Store 0x2,0x4
030d c405 | | Store 0x2,0x5
030e c406 | | Store 0x2,0x6
030f c407 | | Store 0x2,0x7
0310 00d1 | | Pop_Control Pop_Count_1
0311 481b |H | Short_Literal 0x1b
0312 00d9 | | Load_Top At_Offset_1
0313 01d7 | | Execute Vector,Field_Read
0314 6813 |h | Jump_Zero 0x328
0315 e409 | | Load 0x2,0x9
0316 8016 | | Call 0x0,0x16
0317 e409 | | Load 0x2,0x9
0318 8017 | | Call 0x0,0x17
0319 00d8 | | Load_Top At_Offset_0
031a e006 | | Load 0x0,0x6
031b 0260 | ` | Execute Discrete,In_Type
031c 7001 |p | Jump_Nonzero 0x31e
031d 0801 | | Execute_Immediate Raise,0x1
031e e404 | | Load 0x2,0x4
031f 0272 | r | Execute Discrete,Minus
0320 e406 | | Load 0x2,0x6
0321 00d8 | | Load_Top At_Offset_0
0322 e006 | | Load 0x0,0x6
0323 0260 | ` | Execute Discrete,In_Type
0324 7001 |p | Jump_Nonzero 0x326
0325 0801 | | Execute_Immediate Raise,0x1
0326 0272 | r | Execute Discrete,Minus
0327 c404 | | Store 0x2,0x4
0328 481a |H | Short_Literal 0x1a
0329 00d9 | | Load_Top At_Offset_1
032a 01d7 | | Execute Vector,Field_Read
032b 6813 |h | Jump_Zero 0x33f
032c e409 | | Load 0x2,0x9
032d 8016 | | Call 0x0,0x16
032e e409 | | Load 0x2,0x9
032f 8018 | | Call 0x0,0x18
0330 00d8 | | Load_Top At_Offset_0
0331 e006 | | Load 0x0,0x6
0332 0260 | ` | Execute Discrete,In_Type
0333 7001 |p | Jump_Nonzero 0x335
0334 0801 | | Execute_Immediate Raise,0x1
0335 e405 | | Load 0x2,0x5
0336 0272 | r | Execute Discrete,Minus
0337 e407 | | Load 0x2,0x7
0338 00d8 | | Load_Top At_Offset_0
0339 e006 | | Load 0x0,0x6
033a 0260 | ` | Execute Discrete,In_Type
033b 7001 |p | Jump_Nonzero 0x33d
033c 0801 | | Execute_Immediate Raise,0x1
033d 0272 | r | Execute Discrete,Minus
033e c405 | | Store 0x2,0x5
033f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0340 ; --------------------------------------------------------------------------------------
0340 ; STRING TABLE
0340 ; --------------------------------------------------------------------------------------
0340 0008 | | .STRTAB 0x0008->0x0344 ; "Cannot open display: "
0341 001b | | .STRTAB 0x001b->0x034e ; "size := "
0342 0021 | ! | .STRTAB 0x0021->0x0352 ; ", seed := "
0343 0029 | ) | .STREND 0x0029->0x0357
0344 4361 6e6e |Cann| .STRTAB_STRINGS
0358 ; --------------------------------------------------------------------------------------
0358 ; Debug Table
0358 ; --------------------------------------------------------------------------------------
0358 0004 0000 | | .DEBUG4 0x0004,0x0000,0x6888,0x0000,0x0001,0x0004
035e 000b 036e | n| .DBG4T 0x000b,0x036e,0x8000,0x0000
0362 000e 0371 | q| .DBG4T 0x000e,0x0371,0x8000,0x0000
0366 0063 0376 | c v| .DBG4T 0x0063,0x0376,0x0001,0x4000
036a 0303 0445 | E| .DBG4T 0x0303,0x0445,0x0004,0x0000
036e ; --------------------------------------------------------------------------------------
036e ; Debug chain
036e ; --------------------------------------------------------------------------------------
036e 0001 0000 | | .DBGLEN 0x0001,0x0000
0370 000b | | .DBGLNO 0x000b
0371 ; --------------------------------------------------------------------------------------
0371 ; Debug chain
0371 ; --------------------------------------------------------------------------------------
0371 0003 0000 | | .DBGLEN 0x0003,0x0000
0373 000e 0056 | V| .DBGLNO 0x000e,0x0056,0x0058
0376 ; --------------------------------------------------------------------------------------
0376 ; Debug chain
0376 ; --------------------------------------------------------------------------------------
0376 0017 005b | [| .DBGLEN 0x0017,0x005b
0378 0063 0066 | c f| .DBGLNO 0x0063,0x0066,0x0068,0x006a,0x006c,0x006e,0x0070,0x0074,0x0076,0x0078,0x007a,0x007e,0x007f,0x0084,0x0086,0x0087,0x0089,0x008b,0x008d,0x008f,0x0091,0x0093,0x0095,0x009b,0x00a1,0x00a5,0x00ad,0x00ae,0x00b1,0x00b3,0x00b7,0x00b9,0x00bb,0x00c0,0x00c6,0x00c8,0x00ca,0x00da,0x00ea,0x00f3,0x00f4,0x0120,0x0124,0x015d,0x0166,0x0169,0x0170,0x0178,0x017c,0x017e,0x018d,0x0191,0x0193,0x0197,0x019a,0x019c,0x019f,0x01a1,0x01a3,0x01a6,0x01a7,0x01ab,0x01ac,0x01ae,0x01af,0x01b2,0x01b8,0x01bc,0x01c0,0x01c3,0x01c5,0x01c8,0x01d7,0x01e6,0x01e8,0x01ec,0x01f3,0x01f7,0x01fc,0x01ff,0x0201,0x0205,0x0206,0x0209,0x020d,0x0211,0x021d,0x0221,0x0225,0x0227,0x022d,0x0232,0x0237,0x023b,0x023f,0x0244,0x0245,0x024a,0x024f,0x0253,0x0255,0x0259,0x0260,0x0264,0x0269,0x026c,0x0270,0x0273,0x027c,0x028a,0x0291,0x0298,0x02a6,0x02b0
03ea 0001 0002 | | .XXX[0x5b]
03ec 0003 0004 | |
03ee 0005 0006 | |
03f0 0007 0008 | |
03f2 0009 000a | |
03f4 000b 000c | |
03f6 000d 000e | |
03f8 000f 0010 | |
03fa 0011 0012 | |
03fc 0013 0014 | |
03fe 0015 0016 | |
0400 0017 0018 | |
0402 0019 001a | |
0404 001b 001c | |
0406 001d 001e | |
0408 001f 0020 | |
040a 0021 0022 | ! "|
040c 0023 0024 | # $|
040e 0025 0026 | % &|
0410 0027 0028 | ' (|
0412 0029 002a | ) *|
0414 002b 002c | + ,|
0416 002d 002e | - .|
0418 002f 0030 | / 0|
041a 0031 0032 | 1 2|
041c 0033 0034 | 3 4|
041e 0035 0036 | 5 6|
0420 0037 0038 | 7 8|
0422 0039 003a | 9 :|
0424 003b 003c | ; <|
0426 003d 003e | = >|
0428 003f 0040 | ? @|
042a 0041 0042 | A B|
042c 0043 0045 | C E|
042e 0044 0046 | D F|
0430 0047 0048 | G H|
0432 0049 004a | I J|
0434 004b 004c | K L|
0436 004d 004e | M N|
0438 004f 0050 | O P|
043a 0051 0052 | Q R|
043c 0053 0054 | S T|
043e 0055 0056 | U V|
0440 0057 0058 | W X|
0442 0059 005a | Y Z|
0444 005b | [ |
0445 ; --------------------------------------------------------------------------------------
0445 ; Debug chain
0445 ; --------------------------------------------------------------------------------------
0445 0001 0005 | | .DBGLEN 0x0001,0x0005
0447 0303 0305 | | .DBGLNO 0x0303,0x0305,0x0311,0x0315,0x0328,0x032c
044d 0000 0000 | | .BLANK 0000[0x1b3]