|
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: 2048 (0x800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_5850da
└─⟦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 02a0 | | .CONST 0x02a0 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00a9 | | .CONST 0x00a9 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 002b | + | .CONST 0x002b ; Number of locals
000b INIT_0008:
000b 00c4 | | Action Make_Default
000c 00c4 | | Action Make_Default
000d 00c4 | | Action Make_Default
000e 00c4 | | Action Make_Default
000f 00c4 | | Action Make_Default
0010 00c4 | | Action Make_Default
0011 00c4 | | Action Make_Default
0012 00c4 | | Action Make_Default
0013 00c4 | | Action Make_Default
0014 00c4 | | Action Make_Default
0015 00c4 | | Action Make_Default
0016 00c4 | | Action Make_Default
0017 00c4 | | Action Make_Default
0018 00c4 | | Action Make_Default
0019 00c4 | | Action Make_Default
001a 00c4 | | Action Make_Default
001b 00c4 | | Action Make_Default
001c 00c4 | | Action Make_Default
001d 00c4 | | Action Make_Default
001e 00c4 | | Action Make_Default
001f 00c4 | | Action Make_Default
0020 00c4 | | Action Make_Default
0021 00c4 | | Action Make_Default
0022 00c4 | | Action Make_Default
0023 00c4 | | Action Make_Default
0024 00c4 | | Action Make_Default
0025 00c4 | | Action Make_Default
0026 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated
0028 c212 | | Store 0x1,0x12
0029 e001 | | Load 0x0,0x1
002a 0129 | ) | Execute Any,Make_Visible
002b c213 | | Store 0x1,0x13
002c 00e4 | | Load_Encached Positive_Cache
002d 0266 | f | Execute Discrete,Bounds
002e e20f | | Load 0x1,0xf
002f 02a0 | | Declare_Subprogram Null_Subprogram
0030 4801 |H | Short_Literal 0x1
0031 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
0032 c214 | | Store 0x1,0x14
0033 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated
0035 c21b | | Store 0x1,0x1b
0036 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated
0038 c215 | | Store 0x1,0x15
0039 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
003b c216 | | Store 0x1,0x16
003c 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated
003e c21c | | Store 0x1,0x1c
003f 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated
0041 c21d | | Store 0x1,0x1d
0042 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated
0044 c21e | | Store 0x1,0x1e
0045 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated
0047 c21f | | Store 0x1,0x1f
0048 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated
004a c217 | | Store 0x1,0x17
004b 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated
004d c218 | | Store 0x1,0x18
004e 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated
0050 c219 | | Store 0x1,0x19
0051 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated
0053 c21a | | Store 0x1,0x1a
0054 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated
0056 c220 | | Store 0x1,0x20
0057 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated
0059 c221 | ! | Store 0x1,0x21
005a 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated
005c c222 | " | Store 0x1,0x22
005d 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated
005f c223 | # | Store 0x1,0x23
0060 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated
0062 c224 | $ | Store 0x1,0x24
0063 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated
0065 c225 | % | Store 0x1,0x25
0066 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated
0068 c226 | & | Store 0x1,0x26
0069 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated
006b c227 | ' | Store 0x1,0x27
006c 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated
006e c228 | ( | Store 0x1,0x28
006f 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated
0071 c229 | ) | Store 0x1,0x29
0072 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated
0074 c22a | * | Store 0x1,0x2a
0075 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated
0077 c22b | + | Store 0x1,0x2b
0078 00bf | | Action Accept_Activation
0079 1d12 | | Execute_Immediate Reference_Lex_1,0x12
007a 00c7 | | Action Elaborate_Subprogram
007b 1d16 | | Execute_Immediate Reference_Lex_1,0x16
007c 00c7 | | Action Elaborate_Subprogram
007d 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
007e 00c7 | | Action Elaborate_Subprogram
007f 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0080 00c7 | | Action Elaborate_Subprogram
0081 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0082 00c7 | | Action Elaborate_Subprogram
0083 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0084 00c7 | | Action Elaborate_Subprogram
0085 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0086 00c7 | | Action Elaborate_Subprogram
0087 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0088 00c7 | | Action Elaborate_Subprogram
0089 1d17 | | Execute_Immediate Reference_Lex_1,0x17
008a 00c7 | | Action Elaborate_Subprogram
008b 1d18 | | Execute_Immediate Reference_Lex_1,0x18
008c 00c7 | | Action Elaborate_Subprogram
008d 1d19 | | Execute_Immediate Reference_Lex_1,0x19
008e 00c7 | | Action Elaborate_Subprogram
008f 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0090 00c7 | | Action Elaborate_Subprogram
0091 1d20 | | Execute_Immediate Reference_Lex_1,0x20
0092 00c7 | | Action Elaborate_Subprogram
0093 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
0094 00c7 | | Action Elaborate_Subprogram
0095 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
0096 00c7 | | Action Elaborate_Subprogram
0097 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0098 00c7 | | Action Elaborate_Subprogram
0099 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
009a 00c7 | | Action Elaborate_Subprogram
009b 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
009c 00c7 | | Action Elaborate_Subprogram
009d 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
009e 00c7 | | Action Elaborate_Subprogram
009f 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
00a0 00c7 | | Action Elaborate_Subprogram
00a1 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
00a2 00c7 | | Action Elaborate_Subprogram
00a3 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
00a4 00c7 | | Action Elaborate_Subprogram
00a5 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
00a6 00c7 | | Action Elaborate_Subprogram
00a7 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
00a8 00c7 | | Action Elaborate_Subprogram
00a9 BODY_0008:
00a9 00bc | | Action Signal_Activated
00aa 00bb | | Action Signal_Completion
00ab 0000 0000 | | .BLANK 0000[0x5]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3 | | .CONST 0x00b3 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0001 | | .CONST 0x0001 ; Number of locals
00b3 BODY_00b0:
00b3 INIT_00b0:
00b3 00cf | | Action Mark_Auxiliary
00b4 e20f | | Load 0x1,0xf
00b5 0265 | e | Execute Discrete,Reverse_Bounds
00b6 0263 | c | Execute Discrete,Above_Bound
00b7 7014 |p | Jump_Nonzero 0xcc
00b8 00d8 | | Load_Top At_Offset_0
00b9 00d8 | | Load_Top At_Offset_0
00ba e20f | | Load 0x1,0xf
00bb 0260 | ` | Execute Discrete,In_Type
00bc 7001 |p | Jump_Nonzero 0xbe
00bd 0801 | | Execute_Immediate Raise,0x1
00be 8210 | | Call 0x1,0x10
00bf e5ff | | Load 0x2,-0x1
00c0 e002 | | Load 0x0,0x2
00c1 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
00c2 6807 |h | Jump_Zero 0xca
00c3 00d8 | | Load_Top At_Offset_0
00c4 00d8 | | Load_Top At_Offset_0
00c5 e20f | | Load 0x1,0xf
00c6 0260 | ` | Execute Discrete,In_Type
00c7 7001 |p | Jump_Nonzero 0xc9
00c8 0801 | | Execute_Immediate Raise,0x1
00c9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00ca 00c8 | | Action Pop_Auxiliary_Range
00cb 3fec |? | Loop_Increasing 0xb8
00cc 00ce | | Action Pop_Auxiliary
00cd e213 | | Load 0x1,0x13
00ce 0257 | W | Execute Discrete,Raise
00cf 0000 | | .XXX[0x1]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00e4 | | .CONST 0x00e4 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0003 | | .CONST 0x0003 ; Number of locals
00d3 INIT_00d0:
00d3 4801 |H | Short_Literal 0x1
00d4 e20f | | Load 0x1,0xf
00d5 0269 | i | Execute Discrete,Last
00d6 e20f | | Load 0x1,0xf
00d7 026a | j | Execute Discrete,First
00d8 0272 | r | Execute Discrete,Minus
00d9 0a01 | | Execute_Immediate Plus,0x1
00da 00d8 | | Load_Top At_Offset_0
00db 00e2 | | Load_Encached Integer_Cache
00dc 0260 | ` | Execute Discrete,In_Type
00dd 7001 |p | Jump_Nonzero 0xdf
00de 0801 | | Execute_Immediate Raise,0x1
00df e214 | | Load 0x1,0x14
00e0 035b | [ | Declare_Type Array,Constrained
00e1 0337 | 7 | Declare_Variable Array
00e2 00e4 | | Load_Encached Positive_Cache
00e3 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
00e4 BODY_00d0:
00e4 00cf | | Action Mark_Auxiliary
00e5 e20f | | Load 0x1,0xf
00e6 0265 | e | Execute Discrete,Reverse_Bounds
00e7 0263 | c | Execute Discrete,Above_Bound
00e8 7009 |p | Jump_Nonzero 0xf2
00e9 00d8 | | Load_Top At_Offset_0
00ea e403 | | Load 0x2,0x3
00eb e402 | | Load 0x2,0x2
00ec 01d6 | | Execute Vector,Field_Write
00ed 00db | | Load_Top At_Offset_3
00ee 0a01 | | Execute_Immediate Plus,0x1
00ef c403 | | Store 0x2,0x3
00f0 00c8 | | Action Pop_Auxiliary_Range
00f1 3ff7 |? | Loop_Increasing 0xe9
00f2 00ce | | Action Pop_Auxiliary
00f3 00d9 | | Load_Top At_Offset_1
00f4 e214 | | Load 0x1,0x14
00f5 01c6 | | Execute Vector,Convert_To_Formal
00f6 00ca | | Action Exit_Nullary_Function
00f7 0000 | | .XXX[0x1]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fd | | .CONST 0x00fd ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0002 | | .CONST 0x0002 ; Number of locals
00fb INIT_00f8:
00fb 029f 027b | {| Declare_Subprogram INIT_0278,For_Call
00fd BODY_00f8:
00fd 00db | | Load_Top At_Offset_3
00fe 01db | | Execute Vector,Length
00ff 0d01 | | Execute_Immediate Less,0x1
0100 6803 |h | Jump_Zero 0x104
0101 e002 | | Load 0x0,0x2
0102 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0103 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0104 00db | | Load_Top At_Offset_3
0105 01dd | | Execute Vector,First
0106 00d8 | | Load_Top At_Offset_0
0107 00e4 | | Load_Encached Positive_Cache
0108 0260 | ` | Execute Discrete,In_Type
0109 7001 |p | Jump_Nonzero 0x10b
010a 0801 | | Execute_Immediate Raise,0x1
010b 8402 | | Call 0x2,0x2
010c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
010d 0000 0000 | | .XXX[0x3]
010f 0000 | |
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113 | | .CONST 0x0113 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0001 | | .CONST 0x0001 ; Number of locals
0113 BODY_0110:
0113 INIT_0110:
0113 00cf | | Action Mark_Auxiliary
0114 e5fe | | Load 0x2,-0x2
0115 01d9 | | Execute Vector,Reverse_Bounds
0116 0263 | c | Execute Discrete,Above_Bound
0117 7018 |p | Jump_Nonzero 0x130
0118 00d8 | | Load_Top At_Offset_0
0119 e5fe | | Load 0x2,-0x2
011a 01d7 | | Execute Vector,Field_Read
011b 00d8 | | Load_Top At_Offset_0
011c e20f | | Load 0x1,0xf
011d 0260 | ` | Execute Discrete,In_Type
011e 7001 |p | Jump_Nonzero 0x120
011f 0801 | | Execute_Immediate Raise,0x1
0120 8210 | | Call 0x1,0x10
0121 e5ff | | Load 0x2,-0x1
0122 e002 | | Load 0x0,0x2
0123 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0124 6809 |h | Jump_Zero 0x12e
0125 00d8 | | Load_Top At_Offset_0
0126 e5fe | | Load 0x2,-0x2
0127 01d7 | | Execute Vector,Field_Read
0128 00d8 | | Load_Top At_Offset_0
0129 e20f | | Load 0x1,0xf
012a 0260 | ` | Execute Discrete,In_Type
012b 7001 |p | Jump_Nonzero 0x12d
012c 0801 | | Execute_Immediate Raise,0x1
012d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
012e 00c8 | | Action Pop_Auxiliary_Range
012f 3fe8 |? | Loop_Increasing 0x118
0130 00ce | | Action Pop_Auxiliary
0131 e213 | | Load 0x1,0x13
0132 0257 | W | Execute Discrete,Raise
0133 0000 0000 | | .BLANK 0000[0x5]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b | ; | .CONST 0x013b ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0001 | | .CONST 0x0001 ; Number of locals
013b BODY_0138:
013b INIT_0138:
013b 00db | | Load_Top At_Offset_3
013c 00db | | Load_Top At_Offset_3
013d 00d8 | | Load_Top At_Offset_0
013e e20f | | Load 0x1,0xf
013f 0260 | ` | Execute Discrete,In_Type
0140 7001 |p | Jump_Nonzero 0x142
0141 0801 | | Execute_Immediate Raise,0x1
0142 8210 | | Call 0x1,0x10
0143 e002 | | Load 0x0,0x2
0144 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0145 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0146 0000 0000 | | .XXX[0x2]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b | K | .CONST 0x014b ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0001 | | .CONST 0x0001 ; Number of locals
014b BODY_0148:
014b INIT_0148:
014b 00db | | Load_Top At_Offset_3
014c 00db | | Load_Top At_Offset_3
014d 8215 | | Call 0x1,0x15
014e e002 | | Load 0x0,0x2
014f 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0150 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0151 0000 0000 | | .BLANK 0000[0x7]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b | [ | .CONST 0x015b ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0001 | | .CONST 0x0001 ; Number of locals
015b BODY_0158:
015b INIT_0158:
015b 00db | | Load_Top At_Offset_3
015c 00db | | Load_Top At_Offset_3
015d 00d8 | | Load_Top At_Offset_0
015e e20f | | Load 0x1,0xf
015f 0260 | ` | Execute Discrete,In_Type
0160 7001 |p | Jump_Nonzero 0x162
0161 0801 | | Execute_Immediate Raise,0x1
0162 8210 | | Call 0x1,0x10
0163 e002 | | Load 0x0,0x2
0164 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0165 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0166 0000 0000 | | .XXX[0x2]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b | k | .CONST 0x016b ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0001 | | .CONST 0x0001 ; Number of locals
016b BODY_0168:
016b INIT_0168:
016b 00db | | Load_Top At_Offset_3
016c 00db | | Load_Top At_Offset_3
016d 8215 | | Call 0x1,0x15
016e e002 | | Load 0x0,0x2
016f 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0170 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0171 0000 0000 | | .BLANK 0000[0x7]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b | { | .CONST 0x017b ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0001 | | .CONST 0x0001 ; Number of locals
017b BODY_0178:
017b INIT_0178:
017b 00db | | Load_Top At_Offset_3
017c 00db | | Load_Top At_Offset_3
017d 00d8 | | Load_Top At_Offset_0
017e e20f | | Load 0x1,0xf
017f 0260 | ` | Execute Discrete,In_Type
0180 7001 |p | Jump_Nonzero 0x182
0181 0801 | | Execute_Immediate Raise,0x1
0182 8210 | | Call 0x1,0x10
0183 e002 | | Load 0x0,0x2
0184 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0185 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0186 0000 0000 | | .XXX[0x2]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b | | .CONST 0x018b ; Address of begin
0189 0004 | | .CONST 0x0004 ; Address of exception handler
018a 0001 | | .CONST 0x0001 ; Number of locals
018b BODY_0188:
018b INIT_0188:
018b 00db | | Load_Top At_Offset_3
018c 00db | | Load_Top At_Offset_3
018d 8215 | | Call 0x1,0x15
018e e002 | | Load 0x0,0x2
018f 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0190 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0191 0000 0000 | | .BLANK 0000[0x7]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b | | .CONST 0x019b ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0001 | | .CONST 0x0001 ; Number of locals
019b BODY_0198:
019b INIT_0198:
019b 00db | | Load_Top At_Offset_3
019c 00db | | Load_Top At_Offset_3
019d e002 | | Load 0x0,0x2
019e 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
019f 8212 | | Call 0x1,0x12
01a0 00d8 | | Load_Top At_Offset_0
01a1 e20f | | Load 0x1,0xf
01a2 0260 | ` | Execute Discrete,In_Type
01a3 7001 |p | Jump_Nonzero 0x1a5
01a4 0801 | | Execute_Immediate Raise,0x1
01a5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01a6 0000 0000 | | .XXX[0x2]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab | | .CONST 0x01ab ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0001 | | .CONST 0x0001 ; Number of locals
01ab BODY_01a8:
01ab INIT_01a8:
01ab 00da | | Load_Top At_Offset_2
01ac e5fe | | Load 0x2,-0x2
01ad e5ff | | Load 0x2,-0x1
01ae 8218 | | Call 0x1,0x18
01af 8216 | | Call 0x1,0x16
01b0 00d8 | | Load_Top At_Offset_0
01b1 e20f | | Load 0x1,0xf
01b2 0260 | ` | Execute Discrete,In_Type
01b3 7001 |p | Jump_Nonzero 0x1b5
01b4 0801 | | Execute_Immediate Raise,0x1
01b5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01b6 0000 0000 | | .XXX[0x2]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb | | .CONST 0x01bb ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0001 | | .CONST 0x0001 ; Number of locals
01bb BODY_01b8:
01bb INIT_01b8:
01bb 00db | | Load_Top At_Offset_3
01bc 00db | | Load_Top At_Offset_3
01bd 00d8 | | Load_Top At_Offset_0
01be e20f | | Load 0x1,0xf
01bf 0260 | ` | Execute Discrete,In_Type
01c0 7001 |p | Jump_Nonzero 0x1c2
01c1 0801 | | Execute_Immediate Raise,0x1
01c2 8210 | | Call 0x1,0x10
01c3 e002 | | Load 0x0,0x2
01c4 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
01c5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01c6 0000 0000 | | .XXX[0x2]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb | | .CONST 0x01cb ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0001 | | .CONST 0x0001 ; Number of locals
01cb BODY_01c8:
01cb INIT_01c8:
01cb 00db | | Load_Top At_Offset_3
01cc 00db | | Load_Top At_Offset_3
01cd 8215 | | Call 0x1,0x15
01ce e002 | | Load 0x0,0x2
01cf 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
01d0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01d1 0000 0000 | | .BLANK 0000[0x7]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db | | .CONST 0x01db ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0001 | | .CONST 0x0001 ; Number of locals
01db BODY_01d8:
01db INIT_01d8:
01db 00db | | Load_Top At_Offset_3
01dc 00d8 | | Load_Top At_Offset_0
01dd e20f | | Load 0x1,0xf
01de 0260 | ` | Execute Discrete,In_Type
01df 7001 |p | Jump_Nonzero 0x1e1
01e0 0801 | | Execute_Immediate Raise,0x1
01e1 8210 | | Call 0x1,0x10
01e2 00db | | Load_Top At_Offset_3
01e3 e002 | | Load 0x0,0x2
01e4 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
01e5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01e6 0000 0000 | | .XXX[0x2]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb | | .CONST 0x01eb ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0001 | | .CONST 0x0001 ; Number of locals
01eb BODY_01e8:
01eb INIT_01e8:
01eb 00db | | Load_Top At_Offset_3
01ec 8215 | | Call 0x1,0x15
01ed 00db | | Load_Top At_Offset_3
01ee e002 | | Load 0x0,0x2
01ef 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
01f0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01f1 0000 0000 | | .BLANK 0000[0x7]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb | | .CONST 0x01fb ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0001 | | .CONST 0x0001 ; Number of locals
01fb BODY_01f8:
01fb INIT_01f8:
01fb 00db | | Load_Top At_Offset_3
01fc 00db | | Load_Top At_Offset_3
01fd 00d8 | | Load_Top At_Offset_0
01fe e20f | | Load 0x1,0xf
01ff 0260 | ` | Execute Discrete,In_Type
0200 7001 |p | Jump_Nonzero 0x202
0201 0801 | | Execute_Immediate Raise,0x1
0202 8210 | | Call 0x1,0x10
0203 e002 | | Load 0x0,0x2
0204 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0205 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0206 0000 0000 | | .XXX[0x2]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b | | .CONST 0x020b ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0001 | | .CONST 0x0001 ; Number of locals
020b BODY_0208:
020b INIT_0208:
020b 00db | | Load_Top At_Offset_3
020c 00db | | Load_Top At_Offset_3
020d 8215 | | Call 0x1,0x15
020e e002 | | Load 0x0,0x2
020f 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0210 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0211 0000 0000 | | .BLANK 0000[0x7]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b | | .CONST 0x021b ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0001 | | .CONST 0x0001 ; Number of locals
021b BODY_0218:
021b INIT_0218:
021b 00db | | Load_Top At_Offset_3
021c 00d8 | | Load_Top At_Offset_0
021d e20f | | Load 0x1,0xf
021e 0260 | ` | Execute Discrete,In_Type
021f 7001 |p | Jump_Nonzero 0x221
0220 0801 | | Execute_Immediate Raise,0x1
0221 8210 | | Call 0x1,0x10
0222 00db | | Load_Top At_Offset_3
0223 e002 | | Load 0x0,0x2
0224 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0225 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0226 0000 0000 | | .XXX[0x2]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022b | + | .CONST 0x022b ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0001 | | .CONST 0x0001 ; Number of locals
022b BODY_0228:
022b INIT_0228:
022b 00db | | Load_Top At_Offset_3
022c 8215 | | Call 0x1,0x15
022d 00db | | Load_Top At_Offset_3
022e e002 | | Load 0x0,0x2
022f 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0230 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0231 0000 0000 | | .BLANK 0000[0x7]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023b | ; | .CONST 0x023b ; Address of begin
0239 0004 | | .CONST 0x0004 ; Address of exception handler
023a 0001 | | .CONST 0x0001 ; Number of locals
023b BODY_0238:
023b INIT_0238:
023b 00db | | Load_Top At_Offset_3
023c 00db | | Load_Top At_Offset_3
023d 00d8 | | Load_Top At_Offset_0
023e e20f | | Load 0x1,0xf
023f 0260 | ` | Execute Discrete,In_Type
0240 7001 |p | Jump_Nonzero 0x242
0241 0801 | | Execute_Immediate Raise,0x1
0242 8210 | | Call 0x1,0x10
0243 e002 | | Load 0x0,0x2
0244 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0245 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0246 0000 0000 | | .XXX[0x2]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024b | K | .CONST 0x024b ; Address of begin
0249 0004 | | .CONST 0x0004 ; Address of exception handler
024a 0001 | | .CONST 0x0001 ; Number of locals
024b BODY_0248:
024b INIT_0248:
024b 00db | | Load_Top At_Offset_3
024c 00db | | Load_Top At_Offset_3
024d 8215 | | Call 0x1,0x15
024e e002 | | Load 0x0,0x2
024f 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0250 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0251 0000 0000 | | .BLANK 0000[0x7]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b | [ | .CONST 0x025b ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0001 | | .CONST 0x0001 ; Number of locals
025b BODY_0258:
025b INIT_0258:
025b 00db | | Load_Top At_Offset_3
025c 00d8 | | Load_Top At_Offset_0
025d e20f | | Load 0x1,0xf
025e 0260 | ` | Execute Discrete,In_Type
025f 7001 |p | Jump_Nonzero 0x261
0260 0801 | | Execute_Immediate Raise,0x1
0261 8210 | | Call 0x1,0x10
0262 00db | | Load_Top At_Offset_3
0263 e002 | | Load 0x0,0x2
0264 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0265 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0266 0000 0000 | | .XXX[0x2]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026b | k | .CONST 0x026b ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 0001 | | .CONST 0x0001 ; Number of locals
026b BODY_0268:
026b INIT_0268:
026b 00db | | Load_Top At_Offset_3
026c 8215 | | Call 0x1,0x15
026d 00db | | Load_Top At_Offset_3
026e e002 | | Load 0x0,0x2
026f 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0270 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0271 0000 0000 | | .BLANK 0000[0x7]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027b | { | .CONST 0x027b ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0001 | | .CONST 0x0001 ; Number of locals
027b BODY_0278:
027b INIT_0278:
027b 00da | | Load_Top At_Offset_2
027c e5ff | | Load 0x2,-0x1
027d 01dc | | Execute Vector,Last
027e 027f | | Execute Discrete,Equal
027f 680a |h | Jump_Zero 0x28a
0280 00da | | Load_Top At_Offset_2
0281 e5ff | | Load 0x2,-0x1
0282 01d7 | | Execute Vector,Field_Read
0283 00d8 | | Load_Top At_Offset_0
0284 e20f | | Load 0x1,0xf
0285 0260 | ` | Execute Discrete,In_Type
0286 7001 |p | Jump_Nonzero 0x288
0287 0801 | | Execute_Immediate Raise,0x1
0288 8210 | | Call 0x1,0x10
0289 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
028a 00da | | Load_Top At_Offset_2
028b 0a01 | | Execute_Immediate Plus,0x1
028c 00d8 | | Load_Top At_Offset_0
028d 00e4 | | Load_Encached Positive_Cache
028e 0260 | ` | Execute Discrete,In_Type
028f 7001 |p | Jump_Nonzero 0x291
0290 0801 | | Execute_Immediate Raise,0x1
0291 8402 | | Call 0x2,0x2
0292 00db | | Load_Top At_Offset_3
0293 e5ff | | Load 0x2,-0x1
0294 01d7 | | Execute Vector,Field_Read
0295 00d8 | | Load_Top At_Offset_0
0296 e20f | | Load 0x1,0xf
0297 0260 | ` | Execute Discrete,In_Type
0298 7001 |p | Jump_Nonzero 0x29a
0299 0801 | | Execute_Immediate Raise,0x1
029a 8210 | | Call 0x1,0x10
029b e002 | | Load 0x0,0x2
029c 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
029d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
029e 0000 0000 | | .XXX[0x2]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; Debug Table
02a0 ; --------------------------------------------------------------------------------------
02a0 0004 000a | | .DEBUG4 0x0004,0x000a,0x7e41,0x0000,0x0001,0x0000
02a6 3849 3972 |8I9r| .XXX[0x2]
02a8 0000 0000 | | .BLANK 0000[0xe]
02b6 0100 0000 | | .XXX[0x2d]
02b8 0000 8000 | |
02ba 0000 0000 | |
02bc 0011 8000 | |
02be 0000 0000 | |
02c0 57e7 8000 |W |
02c2 0000 0000 | |
02c4 0000 0e89 | |
02c6 d885 0000 | |
02c8 0040 0e89 | @ |
02ca da85 0000 | |
02cc 0040 1061 | @ a|
02ce 6d9e 27d6 |m ' |
02d0 8000 0f08 | |
02d2 30b6 cf15 |0 |
02d4 1c10 0007 | |
02d6 8418 5b67 | [g|
02d8 8a58 f800 | X |
02da 03c0 0000 | |
02dc 0048 000b | H |
02de 2c20 0000 |, |
02e0 0010 0000 | |
02e2 0010 | |
02e3 0000 0000 | | .BLANK 0000[0x7]
02ea 10a8 774b | wK| .XXX[0x6]
02ec d418 93e0 | |
02ee d275 9000 | u |
02f0 0000 0000 | | .BLANK 0000[0x10]
0300 000d 08d1 | | .XXX[0x74]
0302 0000 0026 | &|
0304 0001 b013 | |
0306 0000 1b32 | 2|
0308 000d 08d1 | |
030a 0000 0026 | &|
030c 0001 b013 | |
030e 0000 1c32 | 2|
0310 000d 08d1 | |
0312 8000 04c4 | |
0314 0000 0000 | |
0316 0000 0004 | |
0318 000d 08d1 | |
031a 0000 0026 | &|
031c 0001 b013 | |
031e 0000 1e32 | 2|
0320 000d 08d1 | |
0322 0000 0026 | &|
0324 0001 b013 | |
0326 0000 2132 | !2|
0328 000d 08d1 | |
032a 0000 0026 | &|
032c 0001 b013 | |
032e 0000 23b2 | # |
0330 000d 08d1 | |
0332 0000 0026 | &|
0334 0001 b013 | |
0336 0000 24b2 | $ |
0338 0000 0000 | |
033a 8000 0000 | |
033c 0000 0000 | |
033e 35cc f401 |5 |
0340 0000 0000 | |
0342 8000 0000 | |
0344 0000 0000 | |
0346 35cc f402 |5 |
0348 000d 08d1 | |
034a 0000 0026 | &|
034c 0001 b013 | |
034e 0000 2532 | %2|
0350 000d 08d1 | |
0352 0000 0026 | &|
0354 0001 b013 | |
0356 0000 25b2 | % |
0358 000d 08d1 | |
035a 0000 0026 | &|
035c 0001 b013 | |
035e 0000 2632 | &2|
0360 000d 08d1 | |
0362 0000 07c4 | |
0364 0000 0000 | |
0366 0000 0002 | |
0368 000d 08d1 | |
036a 0000 07c4 | |
036c 0000 0000 | |
036e 0000 0002 | |
0370 0000 0000 | |
0372 0000 0076 | v|
0374 0000 0000 | | .BLANK 0000[0xb]
037f 0018 | | .XXX[0x1]
0380 0000 0000 | | .BLANK 0000[0x49]
03c9 0004 2a00 | * | .XXX[0x5]
03cb 0884 6206 | b |
03cd 0003 | |
03ce 0000 0000 | | .BLANK 0000[0x1e]
03ec 1dd5 310a | 1 | .XXX[0x14]
03ee 0007 4004 | @ |
03f0 0001 0404 | |
03f2 0000 0700 | |
03f4 1dd5 310a | 1 |
03f6 0007 5260 | R`|
03f8 fedf 0008 | |
03fa 0000 0001 | |
03fc 0000 0000 | |
03fe 0000 0008 | |