|
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_03c0fe
└─⟦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 002c | , | .CONST 0x002c ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0010 | | .CONST 0x0010 ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 602f |`/ | Indirect_Literal Discrete,0x3c,{0x00000000, 0xffffffff}
000d 00e5 | | Load_Encached Long_Integer_Cache
000e 03f9 | | Declare_Type Discrete,Constrained,Visible
000f 029a 0033 | 3| Declare_Subprogram INIT_0030,For_Outer_Call,Visible,Unelaborated
0011 4800 |H | Short_Literal 0x0
0012 0093 0053 | S| push_full_address INIT_0050
0014 02a0 | | Declare_Subprogram Null_Subprogram
0015 038f | | Declare_Type Package,Defined,Visible
0016 0386 | | Declare_Variable Package,Visible
0017 00bf | | Action Accept_Activation
0018 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0019 00c7 | | Action Elaborate_Subprogram
001a 029d 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call
001c e002 | | Load 0x0,0x2
001d e003 | | Load 0x0,0x3
001e e004 | | Load 0x0,0x4
001f e005 | | Load 0x0,0x5
0020 e006 | | Load 0x0,0x6
0021 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0022 e007 | | Load 0x0,0x7
0023 e008 | | Load 0x0,0x8
0024 e009 | | Load 0x0,0x9
0025 e20d | | Load 0x1,0xd
0026 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0027 480b |H | Short_Literal 0xb
0028 e20f | | Load 0x1,0xf
0029 020e | | Execute Module,Augment_Imports
002a e20f | | Load 0x1,0xf
002b 020f | | Execute Module,Activate
002c BODY_0008:
002c 00bc | | Action Signal_Activated
002d 00bb | | Action Signal_Completion
002e 0000 0000 | | .XXX[0x2]
0030 ; --------------------------------------------------------------------------------------
0030 ; SUBPROGRAM
0030 ; --------------------------------------------------------------------------------------
0030 0033 | 3 | .CONST 0x0033 ; Address of begin
0031 0004 | | .CONST 0x0004 ; Address of exception handler
0032 0001 | | .CONST 0x0001 ; Number of locals
0033 BODY_0030:
0033 INIT_0030:
0033 00db | | Load_Top At_Offset_3
0034 00db | | Load_Top At_Offset_3
0035 4820 |H | Short_Literal 0x20
0036 0251 | Q | Execute Discrete,Logical_Shift
0037 0278 | x | Execute Discrete,Or
0038 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0039 0831 0000 | 1 | .XXX[0x3]
003b 0000 | |
003c 0000 0000 | | .LITERAL {0x00000000, 0xffffffff}
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0043 | C | .CONST 0x0043 ; Address of begin
0041 0004 | | .CONST 0x0004 ; Address of exception handler
0042 0001 | | .CONST 0x0001 ; Number of locals
0043 BODY_0040:
0043 INIT_0040:
0043 00dd | | Load_Top At_Offset_5
0044 00dd | | Load_Top At_Offset_5
0045 00dd | | Load_Top At_Offset_5
0046 00dd | | Load_Top At_Offset_5
0047 024e | N | Execute Discrete,Extract_Bits
0048 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0049 0831 | 1 | .XXX[0x1]
004a 0000 0000 | | .BLANK 0000[0x6]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 007c | | | .CONST 0x007c ; Address of begin
0051 0004 | | .CONST 0x0004 ; Address of exception handler
0052 0018 | | .CONST 0x0018 ; Number of locals
0053 INIT_0050:
0053 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated
0055 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated
0057 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated
0059 00bf | | Action Accept_Activation
005a 4801 |H | Short_Literal 0x1
005b 6034 |`4 | Indirect_Literal Discrete,0x90,{0x00000000, 0x00006000}
005c 00e1 | | Load_Encached Boolean_Cache
005d 02a0 | | Declare_Subprogram Null_Subprogram
005e 4801 |H | Short_Literal 0x1
005f 035d | ] | Declare_Type Array,Defined
0060 00d8 | | Load_Top At_Offset_0
0061 0337 | 7 | Declare_Variable Array
0062 00d8 | | Load_Top At_Offset_0
0063 012d | - | Execute Any,Address
0064 e001 | | Load 0x0,0x1
0065 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0066 03f1 | | Declare_Variable Discrete,With_Value
0067 6024 |`$ | Indirect_Literal Discrete,0x8c,{0x00000000, 0x00002000}
0068 00e5 | | Load_Encached Long_Integer_Cache
0069 03f1 | | Declare_Variable Discrete,With_Value
006a 029d 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call
006c 029d 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call
006e 029d 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call
0070 029d 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call
0072 00e2 | | Load_Encached Integer_Cache
0073 00d1 | | Pop_Control Pop_Count_1
0074 e002 | | Load 0x0,0x2
0075 0007 | | Action Break_Optional
0076 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0077 00c7 | | Action Elaborate_Subprogram
0078 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0079 00c7 | | Action Elaborate_Subprogram
007a 1d0f | | Execute_Immediate Reference_Lex_1,0xf
007b 00c7 | | Action Elaborate_Subprogram
007c BODY_0050:
007c 00bc | | Action Signal_Activated
007d 00bb | | Action Signal_Completion
007e 0000 0000 | | .XXX[0x2]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083 | | .CONST 0x0083 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0001 | | .CONST 0x0001 ; Number of locals
0083 BODY_0080:
0083 INIT_0080:
0083 00db | | Load_Top At_Offset_3
0084 00dd | | Load_Top At_Offset_5
0085 e218 | | Load 0x1,0x18
0086 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0087 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0088 0831 0000 | 1 | .XXX[0x4]
008a 0000 0000 | |
008c 0000 0000 | | .LITERAL {0x00000000, 0x00002000}
0090 0000 0000 | | .LITERAL {0x00000000, 0x00006000}
0094 0000 0000 | | .BLANK 0000[0x4]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 00d2 | | .CONST 0x00d2 ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0010 | | .CONST 0x0010 ; Number of locals
009b INIT_0098:
009b e5fd | | Load 0x2,-0x3
009c e001 | | Load 0x0,0x1
009d 181b | | Execute Package,Field_Execute,Field_Number 0x1b
009e 00e5 | | Load_Encached Long_Integer_Cache
009f 03f1 | | Declare_Variable Discrete,With_Value
00a0 e5fd | | Load 0x2,-0x3
00a1 e001 | | Load 0x0,0x1
00a2 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00a3 00e5 | | Load_Encached Long_Integer_Cache
00a4 03f1 | | Declare_Variable Discrete,With_Value
00a5 00e5 | | Load_Encached Long_Integer_Cache
00a6 e003 | | Load 0x0,0x3
00a7 1950 | P | Execute Package,Field_Reference,Field_Number 0x50
00a8 00c6 | | Action Check_Subprogram_Elaborated
00a9 e5fe | | Load 0x2,-0x2
00aa e004 | | Load 0x0,0x4
00ab e005 | | Load 0x0,0x5
00ac 4808 |H | Short_Literal 0x8
00ad 0007 | | Action Break_Optional
00ae e003 | | Load 0x0,0x3
00af 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00b0 0322 | " | Declare_Variable Record
00b1 e5fc | | Load 0x2,-0x4
00b2 e403 | | Load 0x2,0x3
00b3 e402 | | Load 0x2,0x2
00b4 8214 | | Call 0x1,0x14
00b5 e409 | | Load 0x2,0x9
00b6 017d | } | Execute Record,Structure_Write
00b7 e003 | | Load 0x0,0x3
00b8 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00b9 0322 | " | Declare_Variable Record
00ba e003 | | Load 0x0,0x3
00bb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00bc e5fe | | Load 0x2,-0x2
00bd 012c | , | Execute Any,Size
00be 00e5 | | Load_Encached Long_Integer_Cache
00bf 03f1 | | Declare_Variable Discrete,With_Value
00c0 e5fe | | Load 0x2,-0x2
00c1 02c7 | | Declare_Variable Any
00c2 00d8 | | Load_Top At_Offset_0
00c3 1c00 | | Execute_Immediate Run_Utility,0x0
00c4 e003 | | Load 0x0,0x3
00c5 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00c6 0322 | " | Declare_Variable Record
00c7 4804 |H | Short_Literal 0x4
00c8 e212 | | Load 0x1,0x12
00c9 e003 | | Load 0x0,0x3
00ca 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00cb e40e | | Load 0x2,0xe
00cc 017d | } | Execute Record,Structure_Write
00cd e003 | | Load 0x0,0x3
00ce 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00cf 0322 | " | Declare_Variable Record
00d0 029f 01c3 | | Declare_Subprogram INIT_01c0,For_Call
00d2 BODY_0098:
00d2 e40c | | Load 0x2,0xc
00d3 e213 | | Load 0x1,0x13
00d4 027a | z | Execute Discrete,Less_Equal
00d5 7001 |p | Jump_Nonzero 0xd7
00d6 0887 | | Execute_Immediate Raise,0x87
00d7 e40e | | Load 0x2,0xe
00d8 8216 | | Call 0x1,0x16
00d9 e40e | | Load 0x2,0xe
00da 017d | } | Execute Record,Structure_Write
00db e40e | | Load 0x2,0xe
00dc e409 | | Load 0x2,0x9
00dd 8215 | | Call 0x1,0x15
00de e403 | | Load 0x2,0x3
00df 4833 |H3 | Short_Literal 0x33
00e0 480d |H | Short_Literal 0xd
00e1 4800 |H | Short_Literal 0x0
00e2 8006 | | Call 0x0,0x6
00e3 a404 | | Store_Unchecked 0x2,0x4
00e4 e404 | | Load 0x2,0x4
00e5 e40c | | Load 0x2,0xc
00e6 0273 | s | Execute Discrete,Plus
00e7 e213 | | Load 0x1,0x13
00e8 027d | } | Execute Discrete,Greater
00e9 6809 |h | Jump_Zero 0xf3
00ea e409 | | Load 0x2,0x9
00eb 8216 | | Call 0x1,0x16
00ec e40a | | Load 0x2,0xa
00ed 017d | } | Execute Record,Structure_Write
00ee e40e | | Load 0x2,0xe
00ef 8216 | | Call 0x1,0x16
00f0 e40f | | Load 0x2,0xf
00f1 017d | } | Execute Record,Structure_Write
00f2 8410 | | Call 0x2,0x10
00f3 e40e | | Load 0x2,0xe
00f4 e003 | | Load 0x0,0x3
00f5 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00f6 a40b | | Store_Unchecked 0x2,0xb
00f7 e40b | | Load 0x2,0xb
00f8 e404 | | Load 0x2,0x4
00f9 8217 | | Call 0x1,0x17
00fa c40b | | Store 0x2,0xb
00fb e40b | | Load 0x2,0xb
00fc e405 | | Load 0x2,0x5
00fd 4806 |H | Short_Literal 0x6
00fe 4802 |H | Short_Literal 0x2
00ff 0099 | | Action Reference_Dynamic
0100 e003 | | Load 0x0,0x3
0101 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
0102 c40d | | Store 0x2,0xd
0103 e40d | | Load 0x2,0xd
0104 e5fe | | Load 0x2,-0x2
0105 0119 | | Execute Any,Check_In_Formal_Type
0106 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0107 0000 | | .XXX[0x1]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 0134 | 4 | .CONST 0x0134 ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0005 | | .CONST 0x0005 ; Number of locals
010b INIT_0108:
010b 1d0d | | Execute_Immediate Reference_Lex_1,0xd
010c 00c6 | | Action Check_Subprogram_Elaborated
010d e5fe | | Load 0x2,-0x2
010e 0093 0000 | | push_full_address 0x0
0110 602b |`+ | Indirect_Literal Discrete,0x13c,{0x80000000, 0x00010000}
0111 0273 | s | Execute Discrete,Plus
0112 e5ff | | Load 0x2,-0x1
0113 6024 |`$ | Indirect_Literal Discrete,0x138,{0x00000000, 0x0000ffff}
0114 0279 | y | Execute Discrete,And
0115 0273 | s | Execute Discrete,Plus
0116 e007 | | Load 0x0,0x7
0117 0273 | s | Execute Discrete,Plus
0118 4804 |H | Short_Literal 0x4
0119 0007 | | Action Break_Optional
011a 4ffc |O | Short_Literal -0x4
011b 4802 |H | Short_Literal 0x2
011c 0099 | | Action Reference_Dynamic
011d 012d | - | Execute Any,Address
011e e402 | | Load 0x2,0x2
011f 4803 |H | Short_Literal 0x3
0120 4802 |H | Short_Literal 0x2
0121 0099 | | Action Reference_Dynamic
0122 820d | | Call 0x1,0xd
0123 00d8 | | Load_Top At_Offset_0
0124 011f | | Execute Any,Is_Scalar
0125 6802 |h | Jump_Zero 0x128
0126 e5fe | | Load 0x2,-0x2
0127 7801 |x | Jump 0x129
0128 00d8 | | Load_Top At_Offset_0
0129 012c | , | Execute Any,Size
012a e5fc | | Load 0x2,-0x4
012b 011f | | Execute Any,Is_Scalar
012c 6802 |h | Jump_Zero 0x12f
012d e5fd | | Load 0x2,-0x3
012e 7801 |x | Jump 0x130
012f e5fc | | Load 0x2,-0x4
0130 012c | , | Execute Any,Size
0131 027a | z | Execute Discrete,Less_Equal
0132 7001 |p | Jump_Nonzero BODY_0108
0133 0887 | | Execute_Immediate Raise,0x87
0134 BODY_0108:
0134 00d8 | | Load_Top At_Offset_0
0135 e5fe | | Load 0x2,-0x2
0136 0119 | | Execute Any,Check_In_Formal_Type
0137 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0138 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
013c 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
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 0801 | | Execute_Immediate Raise,0x1
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 0801 | | Execute_Immediate Raise,0x1
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 0801 | | Execute_Immediate Raise,0x1
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 e008 | | Load 0x0,0x8
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 e009 | | Load 0x0,0x9
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 e009 | | Load 0x0,0x9
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 01b2 | | .CONST 0x01b2 ; 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 e00a | | Load 0x0,0xa
01a7 03f1 | | Declare_Variable Discrete,With_Value
01a8 00d8 | | Load_Top At_Offset_0
01a9 e5ff | | Load 0x2,-0x1
01aa 00d8 | | Load_Top At_Offset_0
01ab e00a | | Load 0x0,0xa
01ac 0260 | ` | Execute Discrete,In_Type
01ad 7001 |p | Jump_Nonzero 0x1af
01ae 0801 | | Execute_Immediate Raise,0x1
01af 0273 | s | Execute Discrete,Plus
01b0 e00a | | Load 0x0,0xa
01b1 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
01b2 BODY_01a0:
01b2 00d8 | | Load_Top At_Offset_0
01b3 e5fe | | Load 0x2,-0x2
01b4 e001 | | Load 0x0,0x1
01b5 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01b6 800b | | Call 0x0,0xb
01b7 a5fe | | Store_Unchecked 0x2,-0x2
01b8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01b9 0000 0000 | | .BLANK 0000[0x7]
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 8215 | | Call 0x1,0x15
01c6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01c7 TRAP_01c0:
01c7 4884 |H | Short_Literal 0x84
01c8 010f | | Execute Exception,Equal
01c9 6801 |h | Jump_Zero 0x1cb
01ca 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01cb 00d8 | | Load_Top At_Offset_0
01cc 0101 | | Execute Exception,Reraise
01cd 0000 0000 | | .XXX[0x3]
01cf 0000 | |
01d0 ; --------------------------------------------------------------------------------------
01d0 ; Debug Table
01d0 ; --------------------------------------------------------------------------------------
01d0 0004 0011 | | .DEBUG4 0x0004,0x0011,0x976a,0x0000,0x0001,0x0000
01d6 0000 0000 | | .BLANK 0000[0x2a]