|
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 - metrics - download
Length: 2048 (0x800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_ccb0b3
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦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 For_Outer_Call,Visible,Unelaborated,INIT_00b0
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 For_Outer_Call,Visible,Unelaborated,INIT_00d0
0035 c21b | | Store 0x1,0x1b
0036 029a 00fb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00f8
0038 c215 | | Store 0x1,0x15
0039 029a 0113 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0110
003b c216 | | Store 0x1,0x16
003c 029a 013b | ;| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0138
003e c21c | | Store 0x1,0x1c
003f 029a 014b | K| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0148
0041 c21d | | Store 0x1,0x1d
0042 029a 015b | [| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0158
0044 c21e | | Store 0x1,0x1e
0045 029a 016b | k| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0168
0047 c21f | | Store 0x1,0x1f
0048 029a 017b | {| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0178
004a c217 | | Store 0x1,0x17
004b 029a 018b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0188
004d c218 | | Store 0x1,0x18
004e 029a 019b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0198
0050 c219 | | Store 0x1,0x19
0051 029a 01ab | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01a8
0053 c21a | | Store 0x1,0x1a
0054 029a 01bb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01b8
0056 c220 | | Store 0x1,0x20
0057 029a 01cb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01c8
0059 c221 | ! | Store 0x1,0x21
005a 029a 01db | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01d8
005c c222 | " | Store 0x1,0x22
005d 029a 01eb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01e8
005f c223 | # | Store 0x1,0x23
0060 029a 01fb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01f8
0062 c224 | $ | Store 0x1,0x24
0063 029a 020b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0208
0065 c225 | % | Store 0x1,0x25
0066 029a 021b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0218
0068 c226 | & | Store 0x1,0x26
0069 029a 022b | +| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0228
006b c227 | ' | Store 0x1,0x27
006c 029a 023b | ;| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0238
006e c228 | ( | Store 0x1,0x28
006f 029a 024b | K| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0248
0071 c229 | ) | Store 0x1,0x29
0072 029a 025b | [| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0258
0074 c22a | * | Store 0x1,0x2a
0075 029a 026b | k| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0268
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_Result,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 For_Call,INIT_0278
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_Result,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_Result,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_Result,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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,0x1
029e 0000 0000 | | .XXX[0x2]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; Debug Table
02a0 ; --------------------------------------------------------------------------------------
02a0 0004 000a | | .DEBUG4 0x0004,0x000a,0x7e41,0x0000,0x0001,0x0000
02a6 3849 7972 |8Iyr| .XXX[0x33]
02a8 ff07 605a | `Z|
02aa 0152 913f | R ?|
02ac ff60 2003 | ` |
02ae a000 0000 | |
02b0 0c01 853d | =|
02b2 80aa 5300 | S |
02b4 2a1c d419 |* |
02b6 2008 0931 | 1|
02b8 0154 9080 | T |
02ba 54bf 9015 |T |
02bc 33a0 054e |3 N|
02be 6800 0346 |h F|
02c0 0840 54b5 | @T |
02c2 5000 0000 |P |
02c4 05e8 0c01 | |
02c6 8ac4 0000 | |
02c8 a9cd 0000 | |
02ca 0000 0006 | |
02cc 00c4 bf80 | |
02ce 0081 bd00 | |
02d0 a96a a000 | j |
02d2 0000 0a9a | |
02d4 c202 a6f8 | |
02d6 c325 0054 | % T|
02d8 ce80 | |
02d9 0000 0000 | | .BLANK 0000[0x6]
02df 4ec5 c054 |N T| .XXX[0x15]
02e1 ce80 0000 | |
02e3 0000 700c | p |
02e5 00e0 6d83 | m |
02e7 2700 a96a |' j|
02e9 a02a 8ff8 | * |
02eb 0a9e 1802 | |
02ed a88f 80aa | |
02ef 31e0 0058 |1 X|
02f1 6488 0a9c |d |
02f3 d000 | |
02f4 0000 0000 | | .BLANK 0000[0x7]
02fb 0102 5d01 | ] | .XXX[0x8c]
02fd 5447 c055 |TG U|
02ff 0c90 0001 | |
0301 b004 0800 | |
0303 0284 0011 | |
0305 f4eb 0000 | |
0307 0848 000e | H |
0309 3c04 0000 |< |
030b 007f 0048 | H|
030d d00e 0000 | |
030f 4252 000e |BR |
0311 3c04 0000 |< |
0313 003f 0000 | ? |
0315 0067 0000 | g |
0317 0848 000e | H |
0319 3c04 0800 |< |
031b 1c10 0000 | |
031d 0000 0000 | |
031f 0631 0011 | 1 |
0321 f4eb 0000 | |
0323 1196 000b | |
0325 a413 0000 | |
0327 7c33 0011 ||3 |
0329 f4eb 0000 | |
032b 11ff 000b | |
032d a413 0000 | |
032f 3593 000e |5 |
0331 3c04 0000 |< |
0333 003f 0002 | ? |
0335 30f8 0000 |0 |
0337 0848 0001 | H |
0339 9804 0800 | |
033b 1380 0000 | |
033d 0000 0000 | |
033f 00eb 09d7 | |
0341 9c04 0000 | |
0343 007f 000b | |
0345 a413 0000 | |
0347 7d02 09d7 |} |
0349 9c04 0000 | |
034b 003f 0002 | ? |
034d 7149 0000 |qI |
034f 0848 000e | H |
0351 5004 0000 |P |
0353 0100 8000 | |
0355 0000 0000 | |
0357 0000 000e | |
0359 5004 0000 |P |
035b 0100 0000 | |
035d 0000 0000 | |
035f 00eb 0011 | |
0361 5804 0000 |X |
0363 003f 000d | ? |
0365 c195 0000 | |
0367 26bf 0011 |& |
0369 5804 0800 |X |
036b 02b8 3155 | 1U|
036d 710b 0000 |q |
036f cec6 0011 | |
0371 3c04 0000 |< |
0373 0e80 3154 | 1T|
0375 e10b 0000 | |
0377 a715 0011 | |
0379 5804 0800 |X |
037b 0100 3154 | 1T|
037d 650b 0003 |e |
037f 5828 80c0 |X( |
0381 0000 0000 | |
0383 0000 0020 | |
0385 0055 88c0 | U |
0387 0000 0000 | | .BLANK 0000[0x6]
038d 0055 8ec0 | U | .XXX[0x5b]
038f 000a aadc | |
0391 0000 0041 | A|
0393 9380 552c | U,|
0395 d015 7de4 | } |
0397 055b 5a01 | [Z |
0399 5795 8055 |W U|
039b ec60 0034 | ` 4|
039d ec5c 055a | \ Z|
039f ea01 5691 | V |
03a1 0014 0080 | |
03a3 0d08 7808 | x |
03a5 00e8 0000 | |
03a7 0002 0034 | 4|
03a9 7260 0000 |r` |
03ab 000a b39a | |
03ad 0000 0021 | !|
03af 28a0 2ada |( * |
03b1 d000 0000 | |
03b3 02ad 4d00 | M |
03b5 0061 9220 | a |
03b7 2ac9 4800 |* H |
03b9 0000 02ad | |
03bb 6780 0000 |g |
03bd 0000 0040 | @|
03bf 0000 0419 | |
03c1 6c05 5e56 |l ^V|
03c3 0000 0000 | |
03c5 55ca 9015 |U |
03c7 77dc 08ca |w |
03c9 3300 00ce |3 |
03cb c5c0 55c0 | U |
03cd 5000 0000 |P |
03cf 0100 0800 | |
03d1 d72f 9d0b | / |
03d3 00ab bee0 | |
03d5 0000 0006 | |
03d7 1018 031e | |
03d9 e003 0037 | 7|
03db 4e80 2000 |N |
03dd 0000 0aba | |
03df 4108 9301 |A |
03e1 5701 4000 |W @ |
03e3 0000 1577 | w|
03e5 0a13 2e02 | . |
03e7 ac94 | |
03e8 0000 0000 | | .BLANK 0000[0x4]
03ec 09d7 9c04 | | .XXX[0x14]
03ee 0000 2004 | |
03f0 0001 0404 | |
03f2 0000 0700 | |
03f4 09d7 9c04 | |
03f6 0000 3270 | 2p|
03f8 fec7 0028 | (|
03fa 4000 0001 |@ |
03fc 0000 0000 | |
03fe 0000 0008 | |