|
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: 1024 (0x400)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03b8fe, seg_06e8fd
└─⟦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 01d0 | | .CONST 0x01d0 ; 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 0034 | 4 | .CONST 0x0034 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0012 | | .CONST 0x0012 ; 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 4800 |H | Short_Literal 0x0
0010 6033 |`3 | Indirect_Literal Discrete,0x44,{0x00000000, 0xffffffff}
0011 00e5 | | Load_Encached Long_Integer_Cache
0012 03f9 | | Declare_Type Discrete,Constrained,Visible
0013 c20f | | Store 0x1,0xf
0014 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated
0016 c210 | | Store 0x1,0x10
0017 4800 |H | Short_Literal 0x0
0018 0093 005b | [| push_full_address INIT_0058
001a 02a0 | | Declare_Subprogram Null_Subprogram
001b 038f | | Declare_Type Package,Defined,Visible
001c 0386 | | Declare_Variable Package,Visible
001d c20d | | Store 0x1,0xd
001e 00bf | | Action Accept_Activation
001f 00e5 | | Load_Encached Long_Integer_Cache
0020 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0021 00c7 | | Action Elaborate_Subprogram
0022 029d 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call
0024 e001 | | Load 0x0,0x1
0025 e002 | | Load 0x0,0x2
0026 e003 | | Load 0x0,0x3
0027 e004 | | Load 0x0,0x4
0028 e005 | | Load 0x0,0x5
0029 1d12 | | Execute_Immediate Reference_Lex_1,0x12
002a e006 | | Load 0x0,0x6
002b e007 | | Load 0x0,0x7
002c e008 | | Load 0x0,0x8
002d e009 | | Load 0x0,0x9
002e 00b6 | | Action Make_Scope
002f 480b |H | Short_Literal 0xb
0030 e20d | | Load 0x1,0xd
0031 020e | | Execute Module,Augment_Imports
0032 e20d | | Load 0x1,0xd
0033 020f | | Execute Module,Activate
0034 BODY_0008:
0034 00bc | | Action Signal_Activated
0035 00bb | | Action Signal_Completion
0036 0000 0000 | | .XXX[0x2]
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 003b | ; | .CONST 0x003b ; Address of begin
0039 0004 | | .CONST 0x0004 ; Address of exception handler
003a 0001 | | .CONST 0x0001 ; Number of locals
003b BODY_0038:
003b INIT_0038:
003b 00db | | Load_Top At_Offset_3
003c 00db | | Load_Top At_Offset_3
003d 4820 |H | Short_Literal 0x20
003e 0251 | Q | Execute Discrete,Logical_Shift
003f 0278 | x | Execute Discrete,Or
0040 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0041 0831 0000 | 1 | .XXX[0x3]
0043 0000 | |
0044 0000 0000 | | .LITERAL {0x00000000, 0xffffffff}
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 004b | K | .CONST 0x004b ; Address of begin
0049 0004 | | .CONST 0x0004 ; Address of exception handler
004a 0001 | | .CONST 0x0001 ; Number of locals
004b BODY_0048:
004b INIT_0048:
004b 00dd | | Load_Top At_Offset_5
004c 00dd | | Load_Top At_Offset_5
004d 00dd | | Load_Top At_Offset_5
004e 00dd | | Load_Top At_Offset_5
004f 024e | N | Execute Discrete,Extract_Bits
0050 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0051 0831 | 1 | .XXX[0x1]
0052 0000 0000 | | .BLANK 0000[0x6]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 008c | | .CONST 0x008c ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 001a | | .CONST 0x001a ; Number of locals
005b INIT_0058:
005b 00c4 | | Action Make_Default
005c 00c4 | | Action Make_Default
005d 00c4 | | Action Make_Default
005e 00c4 | | Action Make_Default
005f 00c4 | | Action Make_Default
0060 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated
0062 c20f | | Store 0x1,0xf
0063 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated
0065 c211 | | Store 0x1,0x11
0066 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated
0068 c210 | | Store 0x1,0x10
0069 00bf | | Action Accept_Activation
006a 4801 |H | Short_Literal 0x1
006b 6034 |`4 | Indirect_Literal Discrete,0xa0,{0x00000000, 0x00006000}
006c 00e1 | | Load_Encached Boolean_Cache
006d 02a0 | | Declare_Subprogram Null_Subprogram
006e 4801 |H | Short_Literal 0x1
006f 035d | ] | Declare_Type Array,Defined
0070 00d8 | | Load_Top At_Offset_0
0071 0337 | 7 | Declare_Variable Array
0072 00d8 | | Load_Top At_Offset_0
0073 012d | - | Execute Any,Address
0074 e001 | | Load 0x0,0x1
0075 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0076 03f1 | | Declare_Variable Discrete,With_Value
0077 6024 |`$ | Indirect_Literal Discrete,0x9c,{0x00000000, 0x00002000}
0078 00e5 | | Load_Encached Long_Integer_Cache
0079 03f1 | | Declare_Variable Discrete,With_Value
007a 029d 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call
007c 029d 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call
007e 029d 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call
0080 029d 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call
0082 00e2 | | Load_Encached Integer_Cache
0083 00d1 | | Pop_Control Pop_Count_1
0084 e002 | | Load 0x0,0x2
0085 0007 | | Action Break_Optional
0086 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0087 00c7 | | Action Elaborate_Subprogram
0088 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0089 00c7 | | Action Elaborate_Subprogram
008a 1d10 | | Execute_Immediate Reference_Lex_1,0x10
008b 00c7 | | Action Elaborate_Subprogram
008c BODY_0058:
008c 00bc | | Action Signal_Activated
008d 00bb | | Action Signal_Completion
008e 0000 0000 | | .XXX[0x2]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093 | | .CONST 0x0093 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0001 | | .CONST 0x0001 ; Number of locals
0093 BODY_0090:
0093 INIT_0090:
0093 00db | | Load_Top At_Offset_3
0094 00dd | | Load_Top At_Offset_5
0095 e21a | | Load 0x1,0x1a
0096 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0097 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0098 0831 0000 | 1 | .XXX[0x4]
009a 0000 0000 | |
009c 0000 0000 | | .LITERAL {0x00000000, 0x00002000}
00a0 0000 0000 | | .LITERAL {0x00000000, 0x00006000}
00a4 0000 0000 | | .BLANK 0000[0x4]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00e2 | | .CONST 0x00e2 ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0010 | | .CONST 0x0010 ; Number of locals
00ab INIT_00a8:
00ab e5fd | | Load 0x2,-0x3
00ac e001 | | Load 0x0,0x1
00ad 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00ae 00e5 | | Load_Encached Long_Integer_Cache
00af 03f1 | | Declare_Variable Discrete,With_Value
00b0 e5fd | | Load 0x2,-0x3
00b1 e001 | | Load 0x0,0x1
00b2 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00b3 00e5 | | Load_Encached Long_Integer_Cache
00b4 03f1 | | Declare_Variable Discrete,With_Value
00b5 00e5 | | Load_Encached Long_Integer_Cache
00b6 e003 | | Load 0x0,0x3
00b7 1950 | P | Execute Package,Field_Reference,Field_Number 0x50
00b8 00c6 | | Action Check_Subprogram_Elaborated
00b9 e5fe | | Load 0x2,-0x2
00ba e004 | | Load 0x0,0x4
00bb e005 | | Load 0x0,0x5
00bc 4808 |H | Short_Literal 0x8
00bd 0007 | | Action Break_Optional
00be e003 | | Load 0x0,0x3
00bf 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00c0 0322 | " | Declare_Variable Record
00c1 e5fc | | Load 0x2,-0x4
00c2 e403 | | Load 0x2,0x3
00c3 e402 | | Load 0x2,0x2
00c4 8216 | | Call 0x1,0x16
00c5 e409 | | Load 0x2,0x9
00c6 017d | } | Execute Record,Structure_Write
00c7 e003 | | Load 0x0,0x3
00c8 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00c9 0322 | " | Declare_Variable Record
00ca e003 | | Load 0x0,0x3
00cb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00cc e5fe | | Load 0x2,-0x2
00cd 012c | , | Execute Any,Size
00ce 00e5 | | Load_Encached Long_Integer_Cache
00cf 03f1 | | Declare_Variable Discrete,With_Value
00d0 e5fe | | Load 0x2,-0x2
00d1 02c7 | | Declare_Variable Any
00d2 00d8 | | Load_Top At_Offset_0
00d3 1c00 | | Execute_Immediate Run_Utility,0x0
00d4 e003 | | Load 0x0,0x3
00d5 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00d6 0322 | " | Declare_Variable Record
00d7 4804 |H | Short_Literal 0x4
00d8 e214 | | Load 0x1,0x14
00d9 e003 | | Load 0x0,0x3
00da 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00db e40e | | Load 0x2,0xe
00dc 017d | } | Execute Record,Structure_Write
00dd e003 | | Load 0x0,0x3
00de 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00df 0322 | " | Declare_Variable Record
00e0 029f 01c3 | | Declare_Subprogram INIT_01c0,For_Call
00e2 BODY_00a8:
00e2 e40c | | Load 0x2,0xc
00e3 e215 | | Load 0x1,0x15
00e4 027a | z | Execute Discrete,Less_Equal
00e5 7001 |p | Jump_Nonzero 0xe7
00e6 0887 | | Execute_Immediate Raise,0x87
00e7 e40e | | Load 0x2,0xe
00e8 8218 | | Call 0x1,0x18
00e9 e40e | | Load 0x2,0xe
00ea 017d | } | Execute Record,Structure_Write
00eb e40e | | Load 0x2,0xe
00ec e409 | | Load 0x2,0x9
00ed 8217 | | Call 0x1,0x17
00ee e403 | | Load 0x2,0x3
00ef 4833 |H3 | Short_Literal 0x33
00f0 480d |H | Short_Literal 0xd
00f1 4800 |H | Short_Literal 0x0
00f2 8006 | | Call 0x0,0x6
00f3 a404 | | Store_Unchecked 0x2,0x4
00f4 e404 | | Load 0x2,0x4
00f5 e40c | | Load 0x2,0xc
00f6 0273 | s | Execute Discrete,Plus
00f7 e215 | | Load 0x1,0x15
00f8 027d | } | Execute Discrete,Greater
00f9 6809 |h | Jump_Zero 0x103
00fa e409 | | Load 0x2,0x9
00fb 8218 | | Call 0x1,0x18
00fc e40a | | Load 0x2,0xa
00fd 017d | } | Execute Record,Structure_Write
00fe e40e | | Load 0x2,0xe
00ff 8218 | | Call 0x1,0x18
0100 e40f | | Load 0x2,0xf
0101 017d | } | Execute Record,Structure_Write
0102 8410 | | Call 0x2,0x10
0103 e40e | | Load 0x2,0xe
0104 e003 | | Load 0x0,0x3
0105 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0106 a40b | | Store_Unchecked 0x2,0xb
0107 e40b | | Load 0x2,0xb
0108 e404 | | Load 0x2,0x4
0109 8219 | | Call 0x1,0x19
010a c40b | | Store 0x2,0xb
010b e40b | | Load 0x2,0xb
010c e405 | | Load 0x2,0x5
010d 4806 |H | Short_Literal 0x6
010e 4802 |H | Short_Literal 0x2
010f 0099 | | Action Reference_Dynamic
0110 e003 | | Load 0x0,0x3
0111 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
0112 c40d | | Store 0x2,0xd
0113 e40d | | Load 0x2,0xd
0114 e5fe | | Load 0x2,-0x2
0115 0119 | | Execute Any,Check_In_Formal_Type
0116 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0117 0000 | | .XXX[0x1]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 013c | < | .CONST 0x013c ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0006 | | .CONST 0x0006 ; Number of locals
011b INIT_0118:
011b 1d0f | | Execute_Immediate Reference_Lex_1,0xf
011c 00c6 | | Action Check_Subprogram_Elaborated
011d e5fe | | Load 0x2,-0x2
011e e007 | | Load 0x0,0x7
011f e008 | | Load 0x0,0x8
0120 4805 |H | Short_Literal 0x5
0121 0007 | | Action Break_Optional
0122 4ffc |O | Short_Literal -0x4
0123 4802 |H | Short_Literal 0x2
0124 0099 | | Action Reference_Dynamic
0125 012d | - | Execute Any,Address
0126 e402 | | Load 0x2,0x2
0127 4803 |H | Short_Literal 0x3
0128 4802 |H | Short_Literal 0x2
0129 0099 | | Action Reference_Dynamic
012a 820f | | Call 0x1,0xf
012b 00d8 | | Load_Top At_Offset_0
012c 011f | | Execute Any,Is_Scalar
012d 6802 |h | Jump_Zero 0x130
012e e5fe | | Load 0x2,-0x2
012f 7801 |x | Jump 0x131
0130 00d8 | | Load_Top At_Offset_0
0131 012c | , | Execute Any,Size
0132 e5fc | | Load 0x2,-0x4
0133 011f | | Execute Any,Is_Scalar
0134 6802 |h | Jump_Zero 0x137
0135 e5fd | | Load 0x2,-0x3
0136 7801 |x | Jump 0x138
0137 e5fc | | Load 0x2,-0x4
0138 012c | , | Execute Any,Size
0139 027a | z | Execute Discrete,Less_Equal
013a 7001 |p | Jump_Nonzero BODY_0118
013b 0887 | | Execute_Immediate Raise,0x87
013c BODY_0118:
013c 00d8 | | Load_Top At_Offset_0
013d e5fe | | Load 0x2,-0x2
013e 0119 | | Execute Any,Check_In_Formal_Type
013f 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0146 | F | .CONST 0x0146 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0002 | | .CONST 0x0002 ; Number of locals
0143 INIT_0140:
0143 e003 | | Load 0x0,0x3
0144 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0145 0322 | " | Declare_Variable Record
0146 BODY_0140:
0146 e5ff | | Load 0x2,-0x1
0147 4820 |H | Short_Literal 0x20
0148 e003 | | Load 0x0,0x3
0149 1b0f | | Execute Package,Field_Read,Field_Number 0xf
014a 012c | , | Execute Any,Size
014b 4800 |H | Short_Literal 0x0
014c 8006 | | Call 0x0,0x6
014d 00d8 | | Load_Top At_Offset_0
014e e001 | | Load 0x0,0x1
014f 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0150 0260 | ` | Execute Discrete,In_Type
0151 7001 |p | Jump_Nonzero 0x153
0152 08e0 | | Execute_Immediate Raise,0xe0
0153 e402 | | Load 0x2,0x2
0154 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0155 e5ff | | Load 0x2,-0x1
0156 4836 |H6 | Short_Literal 0x36
0157 e003 | | Load 0x0,0x3
0158 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0159 012c | , | Execute Any,Size
015a 4800 |H | Short_Literal 0x0
015b 8006 | | Call 0x0,0x6
015c 00d8 | | Load_Top At_Offset_0
015d e001 | | Load 0x0,0x1
015e 1b13 | | Execute Package,Field_Read,Field_Number 0x13
015f 0260 | ` | Execute Discrete,In_Type
0160 7001 |p | Jump_Nonzero 0x162
0161 08e0 | | Execute_Immediate Raise,0xe0
0162 e402 | | Load 0x2,0x2
0163 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0164 e5fe | | Load 0x2,-0x2
0165 4820 |H | Short_Literal 0x20
0166 4813 |H | Short_Literal 0x13
0167 4800 |H | Short_Literal 0x0
0168 8006 | | Call 0x0,0x6
0169 00d8 | | Load_Top At_Offset_0
016a e003 | | Load 0x0,0x3
016b 1b13 | | Execute Package,Field_Read,Field_Number 0x13
016c 0260 | ` | Execute Discrete,In_Type
016d 7001 |p | Jump_Nonzero 0x16f
016e 08e0 | | Execute_Immediate Raise,0xe0
016f e402 | | Load 0x2,0x2
0170 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0171 e5fd | | Load 0x2,-0x3
0172 e402 | | Load 0x2,0x2
0173 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0174 00d8 | | Load_Top At_Offset_0
0175 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0176 0000 0000 | | .XXX[0x2]
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 e5ff | | Load 0x2,-0x1
017c e009 | | Load 0x0,0x9
017d 1b10 | | Execute Package,Field_Read,Field_Number 0x10
017e 1819 | | Execute Package,Field_Execute,Field_Number 0x19
017f 680b |h | Jump_Zero 0x18b
0180 e5ff | | Load 0x2,-0x1
0181 e00a | | Load 0x0,0xa
0182 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0183 7005 |p | Jump_Nonzero 0x189
0184 e5fe | | Load 0x2,-0x2
0185 e5ff | | Load 0x2,-0x1
0186 e00a | | Load 0x0,0xa
0187 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0188 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0189 4884 |H | Short_Literal 0x84
018a 0257 | W | Execute Discrete,Raise
018b 4884 |H | Short_Literal 0x84
018c 0257 | W | Execute Discrete,Raise
018d 0000 0000 | | .XXX[0x3]
018f 0000 | |
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0199 | | .CONST 0x0199 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0002 | | .CONST 0x0002 ; Number of locals
0193 INIT_0190:
0193 e003 | | Load 0x0,0x3
0194 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0195 0322 | " | Declare_Variable Record
0196 e5ff | | Load 0x2,-0x1
0197 e402 | | Load 0x2,0x2
0198 017d | } | Execute Record,Structure_Write
0199 BODY_0190:
0199 e5ff | | Load 0x2,-0x1
019a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
019b 0a01 | | Execute_Immediate Plus,0x1
019c e402 | | Load 0x2,0x2
019d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
019e 00d8 | | Load_Top At_Offset_0
019f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01b5 | | .CONST 0x01b5 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0003 | | .CONST 0x0003 ; Number of locals
01a3 INIT_01a0:
01a3 e5fe | | Load 0x2,-0x2
01a4 e001 | | Load 0x0,0x1
01a5 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01a6 e00b | | Load 0x0,0xb
01a7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01a8 03f1 | | Declare_Variable Discrete,With_Value
01a9 00d8 | | Load_Top At_Offset_0
01aa e5ff | | Load 0x2,-0x1
01ab 00d8 | | Load_Top At_Offset_0
01ac e00b | | Load 0x0,0xb
01ad 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01ae 0260 | ` | Execute Discrete,In_Type
01af 7001 |p | Jump_Nonzero 0x1b1
01b0 08e0 | | Execute_Immediate Raise,0xe0
01b1 0273 | s | Execute Discrete,Plus
01b2 e00b | | Load 0x0,0xb
01b3 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01b4 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
01b5 BODY_01a0:
01b5 00d8 | | Load_Top At_Offset_0
01b6 e5fe | | Load 0x2,-0x2
01b7 e001 | | Load 0x0,0x1
01b8 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01b9 e00b | | Load 0x0,0xb
01ba 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01bb a5fe | | Store_Unchecked 0x2,-0x2
01bc 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01bd 0000 0000 | | .XXX[0x3]
01bf 0000 | |
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3 | | .CONST 0x01c3 ; Address of begin
01c1 01c7 | | .CONST 0x01c7 ; Address of exception handler
01c2 0001 | | .CONST 0x0001 ; Number of locals
01c3 BODY_01c0:
01c3 INIT_01c0:
01c3 e40f | | Load 0x2,0xf
01c4 e40a | | Load 0x2,0xa
01c5 8217 | | Call 0x1,0x17
01c6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01c7 TRAP_01c0:
01c7 4884 |H | Short_Literal 0x84
01c8 010f | | Execute Exception,Equal
01c9 6802 |h | Jump_Zero 0x1cc
01ca 0008 | | Action Idle
01cb 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01cc 00d8 | | Load_Top At_Offset_0
01cd 0101 | | Execute Exception,Reraise
01ce 0000 0000 | | .XXX[0x2]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; Debug Table
01d0 ; --------------------------------------------------------------------------------------
01d0 0004 000b | | .DEBUG4 0x0004,0x000b,0xbb48,0x0000,0x0001,0x0000
01d6 0000 0000 | | .BLANK 0000[0x2a]