|
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_1884fe
└─⟦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 0220 | | .CONST 0x0220 ; 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 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0075 | u | .CONST 0x0075 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0031 | 1 | .CONST 0x0031 ; Number of locals
000b INIT_0008:
000b 029a 007b | {| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0078
000d 029a 00a3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00a0
000f 029a 00d3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00d0
0011 029a 010b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0108
0013 029a 0123 | #| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0120
0015 029a 012b | +| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0128
0017 029a 013b | ;| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0138
0019 029a 014b | K| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0148
001b 029a 017b | {| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0178
001d 029a 01db | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01d8
001f 029a 01eb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01e8
0021 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0022 0129 | ) | Execute Any,Make_Visible
0023 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0024 0129 | ) | Execute Any,Make_Visible
0025 00bf | | Action Accept_Activation
0026 e001 | | Load 0x0,0x1
0027 e002 | | Load 0x0,0x2
0028 00e6 | | Load_Encached Float_Cache
0029 e003 | | Load 0x0,0x3
002a 1b79 | y | Execute Package,Field_Read,Field_Number 0x79
002b 0387 | | Declare_Variable Package
002c 00d8 | | Load_Top At_Offset_0
002d 020f | | Execute Module,Activate
002e e004 | | Load 0x0,0x4
002f e005 | | Load 0x0,0x5
0030 00e2 | | Load_Encached Integer_Cache
0031 e003 | | Load 0x0,0x3
0032 1b78 | x | Execute Package,Field_Read,Field_Number 0x78
0033 0387 | | Declare_Variable Package
0034 00d8 | | Load_Top At_Offset_0
0035 020f | | Execute Module,Activate
0036 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0037 00c7 | | Action Elaborate_Subprogram
0038 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0039 00c7 | | Action Elaborate_Subprogram
003a 1d0f | | Execute_Immediate Reference_Lex_1,0xf
003b 00c7 | | Action Elaborate_Subprogram
003c 1d10 | | Execute_Immediate Reference_Lex_1,0x10
003d 00c7 | | Action Elaborate_Subprogram
003e 1d11 | | Execute_Immediate Reference_Lex_1,0x11
003f 00c7 | | Action Elaborate_Subprogram
0040 e006 | | Load 0x0,0x6
0041 02a9 | | Declare_Subprogram For_Call,Unelaborated,With_Address
0042 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0043 00c7 | | Action Elaborate_Subprogram
0044 029d 01f3 | | Declare_Subprogram For_Outer_Call,INIT_01f0
0046 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0047 00c6 | | Action Check_Subprogram_Elaborated
0048 00e6 | | Load_Encached Float_Cache
0049 584e |XN | Indirect_Literal Float,0x98,0.0
004a 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
004b 00e0 | | Load_Encached Standard_Cache
004c 1941 | A | Execute Package,Field_Reference,Field_Number 0x41
004d 00e0 | | Load_Encached Standard_Cache
004e 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
004f 00e0 | | Load_Encached Standard_Cache
0050 1943 | C | Execute Package,Field_Reference,Field_Number 0x43
0051 00e0 | | Load_Encached Standard_Cache
0052 1944 | D | Execute Package,Field_Reference,Field_Number 0x44
0053 e007 | | Load 0x0,0x7
0054 e008 | | Load 0x0,0x8
0055 4800 |H | Short_Literal 0x0
0056 0007 | | Action Break_Optional
0057 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0058 00c6 | | Action Check_Subprogram_Elaborated
0059 00e2 | | Load_Encached Integer_Cache
005a 4800 |H | Short_Literal 0x0
005b e21b | | Load 0x1,0x1b
005c 1916 | | Execute Package,Field_Reference,Field_Number 0x16
005d 00e0 | | Load_Encached Standard_Cache
005e 1931 | 1 | Execute Package,Field_Reference,Field_Number 0x31
005f 00e0 | | Load_Encached Standard_Cache
0060 1932 | 2 | Execute Package,Field_Reference,Field_Number 0x32
0061 00e0 | | Load_Encached Standard_Cache
0062 1933 | 3 | Execute Package,Field_Reference,Field_Number 0x33
0063 00e0 | | Load_Encached Standard_Cache
0064 1934 | 4 | Execute Package,Field_Reference,Field_Number 0x34
0065 e009 | | Load 0x0,0x9
0066 e00a | | Load 0x0,0xa
0067 4800 |H | Short_Literal 0x0
0068 0007 | | Action Break_Optional
0069 1d13 | | Execute_Immediate Reference_Lex_1,0x13
006a 00c7 | | Action Elaborate_Subprogram
006b 1d12 | | Execute_Immediate Reference_Lex_1,0x12
006c 00c7 | | Action Elaborate_Subprogram
006d 1d14 | | Execute_Immediate Reference_Lex_1,0x14
006e 00c7 | | Action Elaborate_Subprogram
006f 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0070 00c7 | | Action Elaborate_Subprogram
0071 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0072 00c7 | | Action Elaborate_Subprogram
0073 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0074 00c7 | | Action Elaborate_Subprogram
0075 BODY_0008:
0075 00bc | | Action Signal_Activated
0076 00bb | | Action Signal_Completion
0077 0000 | | .XXX[0x1]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 0091 | | .CONST 0x0091 ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0002 | | .CONST 0x0002 ; Number of locals
007b INIT_0078:
007b 4801 |H | Short_Literal 0x1
007c 00db | | Load_Top At_Offset_3
007d 00e9 | | Load_Encached String_Cache
007e 035b | [ | Declare_Type Array,Constrained
007f 0337 | 7 | Declare_Variable Array
0080 4801 |H | Short_Literal 0x1
0081 e5ff | | Load 0x2,-0x1
0082 00e9 | | Load_Encached String_Cache
0083 035b | [ | Declare_Type Array,Constrained
0084 0337 | 7 | Declare_Variable Array
0085 00d8 | | Load_Top At_Offset_0
0086 01dc | | Execute Vector,Last
0087 4801 |H | Short_Literal 0x1
0088 0263 | c | Execute Discrete,Above_Bound
0089 7005 |p | Jump_Nonzero 0x8f
008a e5fe | | Load 0x2,-0x2
008b 00d9 | | Load_Top At_Offset_1
008c e403 | | Load 0x2,0x3
008d 01d6 | | Execute Vector,Field_Write
008e 3ffb |? | Loop_Increasing 0x8a
008f 00d9 | | Load_Top At_Offset_1
0090 01d4 | | Execute Vector,Structure_Write
0091 BODY_0078:
0091 00d8 | | Load_Top At_Offset_0
0092 00e9 | | Load_Encached String_Cache
0093 01c6 | | Execute Vector,Convert_To_Formal
0094 4402 |D | Exit_Subprogram With_Result,0x2
0095 0000 0000 | | .XXX[0x3]
0097 0000 | |
0098 0000 0000 | | .DBL 0.0
009a 0000 0000 | |
009c 0000 0000 | | .BLANK 0000[0x4]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00c3 | | .CONST 0x00c3 ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0002 | | .CONST 0x0002 ; Number of locals
00a3 INIT_00a0:
00a3 4801 |H | Short_Literal 0x1
00a4 00db | | Load_Top At_Offset_3
00a5 01db | | Execute Vector,Length
00a6 e5fe | | Load 0x2,-0x2
00a7 0273 | s | Execute Discrete,Plus
00a8 00d8 | | Load_Top At_Offset_0
00a9 00e2 | | Load_Encached Integer_Cache
00aa 0260 | ` | Execute Discrete,In_Type
00ab 7001 |p | Jump_Nonzero 0xad
00ac 0801 | | Execute_Immediate Raise,0x1
00ad 00e9 | | Load_Encached String_Cache
00ae 035b | [ | Declare_Type Array,Constrained
00af 0337 | 7 | Declare_Variable Array
00b0 00db | | Load_Top At_Offset_3
00b1 4801 |H | Short_Literal 0x1
00b2 e5fe | | Load 0x2,-0x2
00b3 00e9 | | Load_Encached String_Cache
00b4 035b | [ | Declare_Type Array,Constrained
00b5 0337 | 7 | Declare_Variable Array
00b6 00d8 | | Load_Top At_Offset_0
00b7 01dc | | Execute Vector,Last
00b8 4801 |H | Short_Literal 0x1
00b9 0263 | c | Execute Discrete,Above_Bound
00ba 7005 |p | Jump_Nonzero 0xc0
00bb 4820 |H | Short_Literal 0x20
00bc 00d9 | | Load_Top At_Offset_1
00bd e404 | | Load 0x2,0x4
00be 01d6 | | Execute Vector,Field_Write
00bf 3ffb |? | Loop_Increasing 0xbb
00c0 01cc | | Execute Vector,Catenate
00c1 00d9 | | Load_Top At_Offset_1
00c2 01d4 | | Execute Vector,Structure_Write
00c3 BODY_00a0:
00c3 4801 |H | Short_Literal 0x1
00c4 e5fe | | Load 0x2,-0x2
00c5 00da | | Load_Top At_Offset_2
00c6 01cf | | Execute Vector,Slice_Read
00c7 00e9 | | Load_Encached String_Cache
00c8 01c6 | | Execute Vector,Convert_To_Formal
00c9 4402 |D | Exit_Subprogram With_Result,0x2
00ca 0000 0000 | | .BLANK 0000[0x6]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00f3 | | .CONST 0x00f3 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0002 | | .CONST 0x0002 ; Number of locals
00d3 INIT_00d0:
00d3 4801 |H | Short_Literal 0x1
00d4 00db | | Load_Top At_Offset_3
00d5 01db | | Execute Vector,Length
00d6 e5fe | | Load 0x2,-0x2
00d7 0273 | s | Execute Discrete,Plus
00d8 00d8 | | Load_Top At_Offset_0
00d9 00e2 | | Load_Encached Integer_Cache
00da 0260 | ` | Execute Discrete,In_Type
00db 7001 |p | Jump_Nonzero 0xdd
00dc 0801 | | Execute_Immediate Raise,0x1
00dd 00e9 | | Load_Encached String_Cache
00de 035b | [ | Declare_Type Array,Constrained
00df 0337 | 7 | Declare_Variable Array
00e0 4801 |H | Short_Literal 0x1
00e1 e5fe | | Load 0x2,-0x2
00e2 00e9 | | Load_Encached String_Cache
00e3 035b | [ | Declare_Type Array,Constrained
00e4 0337 | 7 | Declare_Variable Array
00e5 00d8 | | Load_Top At_Offset_0
00e6 01dc | | Execute Vector,Last
00e7 4801 |H | Short_Literal 0x1
00e8 0263 | c | Execute Discrete,Above_Bound
00e9 7005 |p | Jump_Nonzero 0xef
00ea 4820 |H | Short_Literal 0x20
00eb 00d9 | | Load_Top At_Offset_1
00ec e403 | | Load 0x2,0x3
00ed 01d6 | | Execute Vector,Field_Write
00ee 3ffb |? | Loop_Increasing 0xea
00ef e5ff | | Load 0x2,-0x1
00f0 01cc | | Execute Vector,Catenate
00f1 00d9 | | Load_Top At_Offset_1
00f2 01d4 | | Execute Vector,Structure_Write
00f3 BODY_00d0:
00f3 00d8 | | Load_Top At_Offset_0
00f4 01dc | | Execute Vector,Last
00f5 e5fe | | Load 0x2,-0x2
00f6 0272 | r | Execute Discrete,Minus
00f7 0a01 | | Execute_Immediate Plus,0x1
00f8 00d8 | | Load_Top At_Offset_0
00f9 00e2 | | Load_Encached Integer_Cache
00fa 0260 | ` | Execute Discrete,In_Type
00fb 7001 |p | Jump_Nonzero 0xfd
00fc 0801 | | Execute_Immediate Raise,0x1
00fd 00d9 | | Load_Top At_Offset_1
00fe 01dc | | Execute Vector,Last
00ff 00da | | Load_Top At_Offset_2
0100 01cf | | Execute Vector,Slice_Read
0101 00e9 | | Load_Encached String_Cache
0102 01c6 | | Execute Vector,Convert_To_Formal
0103 4402 |D | Exit_Subprogram With_Result,0x2
0104 0000 0000 | | .BLANK 0000[0x4]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010f | | .CONST 0x010f ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0002 | | .CONST 0x0002 ; Number of locals
010b INIT_0108:
010b 4820 |H | Short_Literal 0x20
010c 00db | | Load_Top At_Offset_3
010d e00b | | Load 0x0,0xb
010e 181c | | Execute Package,Field_Execute,Field_Number 0x1c
010f BODY_0108:
010f e5fe | | Load 0x2,-0x2
0110 4820 |H | Short_Literal 0x20
0111 e5fe | | Load 0x2,-0x2
0112 00db | | Load_Top At_Offset_3
0113 01db | | Execute Vector,Length
0114 0272 | r | Execute Discrete,Minus
0115 09ff | | Execute_Immediate Binary_Scale,-0x1
0116 00d8 | | Load_Top At_Offset_0
0117 00e2 | | Load_Encached Integer_Cache
0118 0260 | ` | Execute Discrete,In_Type
0119 7001 |p | Jump_Nonzero 0x11b
011a 0801 | | Execute_Immediate Raise,0x1
011b 820d | | Call 0x1,0xd
011c 00da | | Load_Top At_Offset_2
011d 01cc | | Execute Vector,Catenate
011e 820e | | Call 0x1,0xe
011f 4402 |D | Exit_Subprogram With_Result,0x2
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123 | # | .CONST 0x0123 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0001 | | .CONST 0x0001 ; Number of locals
0123 BODY_0120:
0123 INIT_0120:
0123 00da | | Load_Top At_Offset_2
0124 e00b | | Load 0x0,0xb
0125 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0126 4401 |D | Exit_Subprogram With_Result,0x1
0127 0000 | | .XXX[0x1]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b | + | .CONST 0x012b ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0001 | | .CONST 0x0001 ; Number of locals
012b BODY_0128:
012b INIT_0128:
012b 00da | | Load_Top At_Offset_2
012c e228 | ( | Load 0x1,0x28
012d e229 | ) | Load 0x1,0x29
012e 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
012f 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
0130 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
0131 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
0132 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e
0133 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
0134 821c | | Call 0x1,0x1c
0135 4401 |D | Exit_Subprogram With_Result,0x1
0136 0000 0000 | | .XXX[0x2]
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 00da | | Load_Top At_Offset_2
013c e21e | | Load 0x1,0x1e
013d e21f | | Load 0x1,0x1f
013e 1d20 | | Execute_Immediate Reference_Lex_1,0x20
013f 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
0140 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
0141 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0142 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
0143 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
0144 821c | | Call 0x1,0x1c
0145 4401 |D | Exit_Subprogram With_Result,0x1
0146 0000 0000 | | .XXX[0x2]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 0150 | P | .CONST 0x0150 ; Address of begin
0149 0166 | f | .CONST 0x0166 ; Address of exception handler
014a 0002 | | .CONST 0x0002 ; Number of locals
014b INIT_0148:
014b 4801 |H | Short_Literal 0x1
014c e5fe | | Load 0x2,-0x2
014d 00e9 | | Load_Encached String_Cache
014e 035b | [ | Declare_Type Array,Constrained
014f 0337 | 7 | Declare_Variable Array
0150 BODY_0148:
0150 e5fb | | Load 0x2,-0x5
0151 6809 |h | Jump_Zero 0x15b
0152 00db | | Load_Top At_Offset_3
0153 023e | > | Execute Float,Absolute_Value
0154 581b |X | Indirect_Literal Float,0x170,8.881784197001252e-16
0155 0242 | B | Execute Float,Less_Equal
0156 6804 |h | Jump_Zero 0x15b
0157 4820 |H | Short_Literal 0x20
0158 e5fe | | Load 0x2,-0x2
0159 820d | | Call 0x1,0xd
015a 4405 |D | Exit_Subprogram With_Result,0x5
015b 00d8 | | Load_Top At_Offset_0
015c e5fc | | Load 0x2,-0x4
015d e5fd | | Load 0x2,-0x3
015e e5ff | | Load 0x2,-0x1
015f e21a | | Load 0x1,0x1a
0160 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0161 00d1 | | Pop_Control Pop_Count_1
0162 00d8 | | Load_Top At_Offset_0
0163 00e9 | | Load_Encached String_Cache
0164 01c6 | | Execute Vector,Convert_To_Formal
0165 4405 |D | Exit_Subprogram With_Result,0x5
0166 TRAP_0148:
0166 0007 | | Action Break_Optional
0167 4820 |H | Short_Literal 0x20
0168 482a |H* | Short_Literal 0x2a
0169 e5fe | | Load 0x2,-0x2
016a 0aff | | Execute_Immediate Plus,-0x1
016b 820d | | Call 0x1,0xd
016c 01ca | | Execute Vector,Prepend
016d 4405 |D | Exit_Subprogram With_Result,0x5
016e 0000 0000 | | .XXX[0x2]
0170 3cd0 0000 |< | .DBL 8.881784197001252e-16
0172 0000 0000 | |
0174 0000 0000 | | .BLANK 0000[0x4]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 0180 | | .CONST 0x0180 ; Address of begin
0179 0193 | | .CONST 0x0193 ; Address of exception handler
017a 0002 | | .CONST 0x0002 ; Number of locals
017b INIT_0178:
017b 4801 |H | Short_Literal 0x1
017c e5fe | | Load 0x2,-0x2
017d 00e9 | | Load_Encached String_Cache
017e 035b | [ | Declare_Type Array,Constrained
017f 0337 | 7 | Declare_Variable Array
0180 BODY_0178:
0180 e5fc | | Load 0x2,-0x4
0181 6806 |h | Jump_Zero 0x188
0182 00db | | Load_Top At_Offset_3
0183 7004 |p | Jump_Nonzero 0x188
0184 4820 |H | Short_Literal 0x20
0185 e5fe | | Load 0x2,-0x2
0186 820d | | Call 0x1,0xd
0187 4404 |D | Exit_Subprogram With_Result,0x4
0188 00d8 | | Load_Top At_Offset_0
0189 e21b | | Load 0x1,0x1b
018a 1b11 | | Execute Package,Field_Read,Field_Number 0x11
018b e5ff | | Load 0x2,-0x1
018c e21b | | Load 0x1,0x1b
018d 1817 | | Execute Package,Field_Execute,Field_Number 0x17
018e 00d1 | | Pop_Control Pop_Count_1
018f 00d8 | | Load_Top At_Offset_0
0190 00e9 | | Load_Encached String_Cache
0191 01c6 | | Execute Vector,Convert_To_Formal
0192 4404 |D | Exit_Subprogram With_Result,0x4
0193 TRAP_0178:
0193 0007 | | Action Break_Optional
0194 482a |H* | Short_Literal 0x2a
0195 e5fe | | Load 0x2,-0x2
0196 820d | | Call 0x1,0xd
0197 00da | | Load_Top At_Offset_2
0198 01d4 | | Execute Vector,Structure_Write
0199 e5fd | | Load 0x2,-0x3
019a 6835 |h5 | Jump_Zero 0x1d0
019b e5ff | | Load 0x2,-0x1
019c 6037 |`7 | Indirect_Literal Discrete,0x1d4,{0x00000000, 0x000f4240}
019d 027d | } | Execute Discrete,Greater
019e 6817 |h | Jump_Zero 0x1b6
019f 00d9 | | Load_Top At_Offset_1
01a0 4801 |H | Short_Literal 0x1
01a1 e5fe | | Load 0x2,-0x2
01a2 0aff | | Execute_Immediate Plus,-0x1
01a3 00da | | Load_Top At_Offset_2
01a4 035b | [ | Declare_Type Array,Constrained
01a5 00d0 | | Action Swap_Control
01a6 01cd | | Execute Vector,Slice_Reference
01a7 00d8 | | Load_Top At_Offset_0
01a8 e21b | | Load 0x1,0x1b
01a9 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01aa e5ff | | Load 0x2,-0x1
01ab 6028 |`( | Indirect_Literal Discrete,0x1d4,{0x00000000, 0x000f4240}
01ac 0270 | p | Execute Discrete,Divide
01ad e21b | | Load 0x1,0x1b
01ae 1817 | | Execute Package,Field_Execute,Field_Number 0x17
01af 00d2 | | Pop_Control Pop_Count_2
01b0 484d |HM | Short_Literal 0x4d
01b1 00da | | Load_Top At_Offset_2
01b2 01dc | | Execute Vector,Last
01b3 00db | | Load_Top At_Offset_3
01b4 01d6 | | Execute Vector,Field_Write
01b5 781a |x | Jump 0x1d0
01b6 e5ff | | Load 0x2,-0x1
01b7 4be8 |K | Short_Literal 0x3e8
01b8 027d | } | Execute Discrete,Greater
01b9 6816 |h | Jump_Zero 0x1d0
01ba 00d9 | | Load_Top At_Offset_1
01bb 4801 |H | Short_Literal 0x1
01bc e5fe | | Load 0x2,-0x2
01bd 0aff | | Execute_Immediate Plus,-0x1
01be 00da | | Load_Top At_Offset_2
01bf 035b | [ | Declare_Type Array,Constrained
01c0 00d0 | | Action Swap_Control
01c1 01cd | | Execute Vector,Slice_Reference
01c2 00d8 | | Load_Top At_Offset_0
01c3 e21b | | Load 0x1,0x1b
01c4 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01c5 e5ff | | Load 0x2,-0x1
01c6 4be8 |K | Short_Literal 0x3e8
01c7 0270 | p | Execute Discrete,Divide
01c8 e21b | | Load 0x1,0x1b
01c9 1817 | | Execute Package,Field_Execute,Field_Number 0x17
01ca 00d2 | | Pop_Control Pop_Count_2
01cb 484b |HK | Short_Literal 0x4b
01cc 00da | | Load_Top At_Offset_2
01cd 01dc | | Execute Vector,Last
01ce 00db | | Load_Top At_Offset_3
01cf 01d6 | | Execute Vector,Field_Write
01d0 00d9 | | Load_Top At_Offset_1
01d1 00e9 | | Load_Encached String_Cache
01d2 01c6 | | Execute Vector,Convert_To_Formal
01d3 4404 |D | Exit_Subprogram With_Result,0x4
01d4 0000 0000 | | .LITERAL {0x00000000, 0x000f4240}
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 00da | | Load_Top At_Offset_2
01dc e003 | | Load 0x0,0x3
01dd 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
01de e003 | | Load 0x0,0x3
01df 1867 | g | Execute Package,Field_Execute,Field_Number 0x67
01e0 4401 |D | Exit_Subprogram With_Result,0x1
01e1 0000 0000 | | .BLANK 0000[0x7]
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 00db | | Load_Top At_Offset_3
01ed e00c | | Load 0x0,0xc
01ee 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01ef 4503 |E | Exit_Subprogram 0x3
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f5 | | .CONST 0x01f5 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0003 | | .CONST 0x0003 ; Number of locals
01f3 INIT_01f0:
01f3 00e2 | | Load_Encached Integer_Cache
01f4 00e2 | | Load_Encached Integer_Cache
01f5 BODY_01f0:
01f5 00e4 | | Load_Encached Positive_Cache
01f6 e21b | | Load 0x1,0x1b
01f7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01f8 e5ff | | Load 0x2,-0x1
01f9 e21b | | Load 0x1,0x1b
01fa 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01fb 005b | [ | Store_Top Discrete,At_Offset_3
01fc 0059 | Y | Store_Top Discrete,At_Offset_1
01fd 00d8 | | Load_Top At_Offset_0
01fe 0a01 | | Execute_Immediate Plus,0x1
01ff e5ff | | Load 0x2,-0x1
0200 01d7 | | Execute Vector,Field_Read
0201 00d8 | | Load_Top At_Offset_0
0202 0d45 | E | Execute_Immediate Less,0x45
0203 7010 |p | Jump_Nonzero 0x214
0204 00d8 | | Load_Top At_Offset_0
0205 0c46 | F | Execute_Immediate Greater_Equal,0x46
0206 700a |p | Jump_Nonzero 0x211
0207 00d1 | | Pop_Control Pop_Count_1
0208 00e4 | | Load_Encached Positive_Cache
0209 e21a | | Load 0x1,0x1a
020a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
020b e5ff | | Load 0x2,-0x1
020c e21a | | Load 0x1,0x1a
020d 1817 | | Execute Package,Field_Execute,Field_Number 0x17
020e c5fe | | Store 0x2,-0x2
020f c5fd | | Store 0x2,-0x3
0210 4502 |E | Exit_Subprogram 0x2
0211 0f65 | e | Execute_Immediate Equal,0x65
0212 77f5 |w | Jump_Nonzero 0x208
0213 7803 |x | Jump 0x217
0214 0f2e | . | Execute_Immediate Equal,0x2e
0215 77f2 |w | Jump_Nonzero 0x208
0216 7800 |x | Jump 0x217
0217 00d9 | | Load_Top At_Offset_1
0218 0237 | 7 | Execute Float,Convert_From_Discrete
0219 a5fe | | Store_Unchecked 0x2,-0x2
021a 00d8 | | Load_Top At_Offset_0
021b a5fd | | Store_Unchecked 0x2,-0x3
021c 4502 |E | Exit_Subprogram 0x2
021d 0000 0000 | | .XXX[0x3]
021f 0000 | |
0220 ; --------------------------------------------------------------------------------------
0220 ; Debug Table
0220 ; --------------------------------------------------------------------------------------
0220 0004 0001 | | .DEBUG4 0x0004,0x0001,0x715f,0x0000,0x0001,0x000e
0226 000b 025e | ^| .DBG4T 0x000b,0x025e,0x0000,0x0000
022a 0026 026d | & m| .DBG4T 0x0026,0x026d,0x0000,0x8000
022e 007b 0293 | { | .DBG4T 0x007b,0x0293,0x0002,0x0000
0232 00a3 0297 | | .DBG4T 0x00a3,0x0297,0x0002,0x0000
0236 00d3 029b | | .DBG4T 0x00d3,0x029b,0x0002,0x0000
023a 010b 029f | | .DBG4T 0x010b,0x029f,0x0002,0x0000
023e 0123 02a3 | # | .DBG4T 0x0123,0x02a3,0x0002,0x0000
0242 012b 02a6 | + | .DBG4T 0x012b,0x02a6,0x0002,0x0000
0246 013b 02a9 | ; | .DBG4T 0x013b,0x02a9,0x0002,0x0000
024a 014b 02ac | K | .DBG4T 0x014b,0x02ac,0x0002,0x0000
024e 017b 02b4 | { | .DBG4T 0x017b,0x02b4,0x0002,0x0000
0252 01db 02c4 | | .DBG4T 0x01db,0x02c4,0x0002,0x0000
0256 01eb 02c8 | | .DBG4T 0x01eb,0x02c8,0x0001,0x0000
025a 01f3 02cb | | .DBG4T 0x01f3,0x02cb,0x0001,0x0000
025e ; --------------------------------------------------------------------------------------
025e ; Debug chain
025e ; --------------------------------------------------------------------------------------
025e 000d 0000 | | .DBGLEN 0x000d,0x0000
0260 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023
026d ; --------------------------------------------------------------------------------------
026d ; Debug chain
026d ; --------------------------------------------------------------------------------------
026d 0012 0000 | | .DBGLEN 0x0012,0x0000
026f 0026 002e | & .| .DBGLNO 0x0026,0x002e,0x0036,0x0038,0x003a,0x003c,0x003e,0x0040,0x0042,0x0044,0x0046,0x0057,0x0069,0x006b,0x006d,0x006f,0x0071,0x0073
0281 0002 0003 | | .XXX[0x12]
0283 0004 0005 | |
0285 0006 0007 | |
0287 0008 0009 | |
0289 000a 000b | |
028b 000c 000d | |
028d 000e 000f | |
028f 0010 0011 | |
0291 0012 0013 | |
0293 ; --------------------------------------------------------------------------------------
0293 ; Debug chain
0293 ; --------------------------------------------------------------------------------------
0293 0001 0001 | | .DBGLEN 0x0001,0x0001
0295 007b 0091 | { | .DBGLNO 0x007b,0x0091
0297 ; --------------------------------------------------------------------------------------
0297 ; Debug chain
0297 ; --------------------------------------------------------------------------------------
0297 0001 0001 | | .DBGLEN 0x0001,0x0001
0299 00a3 00c3 | | .DBGLNO 0x00a3,0x00c3
029b ; --------------------------------------------------------------------------------------
029b ; Debug chain
029b ; --------------------------------------------------------------------------------------
029b 0001 0001 | | .DBGLEN 0x0001,0x0001
029d 00d3 00f3 | | .DBGLNO 0x00d3,0x00f3
029f ; --------------------------------------------------------------------------------------
029f ; Debug chain
029f ; --------------------------------------------------------------------------------------
029f 0001 0001 | | .DBGLEN 0x0001,0x0001
02a1 010b 010f | | .DBGLNO 0x010b,0x010f
02a3 ; --------------------------------------------------------------------------------------
02a3 ; Debug chain
02a3 ; --------------------------------------------------------------------------------------
02a3 0000 0001 | | .DBGLEN 0x0000,0x0001
02a5 0123 | # | .DBGLNO 0x0123
02a6 ; --------------------------------------------------------------------------------------
02a6 ; Debug chain
02a6 ; --------------------------------------------------------------------------------------
02a6 0000 0001 | | .DBGLEN 0x0000,0x0001
02a8 012b | + | .DBGLNO 0x012b
02a9 ; --------------------------------------------------------------------------------------
02a9 ; Debug chain
02a9 ; --------------------------------------------------------------------------------------
02a9 0000 0001 | | .DBGLEN 0x0000,0x0001
02ab 013b | ; | .DBGLNO 0x013b
02ac ; --------------------------------------------------------------------------------------
02ac ; Debug chain
02ac ; --------------------------------------------------------------------------------------
02ac 0001 0005 | | .DBGLEN 0x0001,0x0005
02ae 014b 0150 | K P| .DBGLNO 0x014b,0x0150,0x0157,0x015b,0x0162,0x0167
02b4 ; --------------------------------------------------------------------------------------
02b4 ; Debug chain
02b4 ; --------------------------------------------------------------------------------------
02b4 0001 000d | | .DBGLEN 0x0001,0x000d
02b6 017b 0180 | { | .DBGLNO 0x017b,0x0180,0x0184,0x0188,0x018f,0x0194,0x0199,0x019b,0x019f,0x01b0,0x01b6,0x01ba,0x01cb,0x01d0
02c4 ; --------------------------------------------------------------------------------------
02c4 ; Debug chain
02c4 ; --------------------------------------------------------------------------------------
02c4 0000 0002 | | .DBGLEN 0x0000,0x0002
02c6 01db 01de | | .DBGLNO 0x01db,0x01de
02c8 ; --------------------------------------------------------------------------------------
02c8 ; Debug chain
02c8 ; --------------------------------------------------------------------------------------
02c8 0000 0001 | | .DBGLEN 0x0000,0x0001
02ca 01eb | | .DBGLNO 0x01eb
02cb ; --------------------------------------------------------------------------------------
02cb ; Debug chain
02cb ; --------------------------------------------------------------------------------------
02cb 0002 0005 | | .DBGLEN 0x0002,0x0005
02cd 01f3 01f4 | | .DBGLNO 0x01f3,0x01f4,0x01f5,0x01fd,0x0208,0x0217,0x021a
02d4 0000 0000 | | .BLANK 0000[0x12c]