|
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_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 01f8 | | .CONST 0x01f8 ; 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 001c | | .CONST 0x001c ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0010 | | .CONST 0x0010 ; Number of locals
000b INIT_0008:
000b 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated
000d 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated
000f 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
0011 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated
0013 00bf | | Action Accept_Activation
0014 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0015 00c7 | | Action Elaborate_Subprogram
0016 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0017 00c7 | | Action Elaborate_Subprogram
0018 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0019 00c7 | | Action Elaborate_Subprogram
001a 1d10 | | Execute_Immediate Reference_Lex_1,0x10
001b 00c7 | | Action Elaborate_Subprogram
001c BODY_0008:
001c 00bc | | Action Signal_Activated
001d 00bb | | Action Signal_Completion
001e 0000 0000 | | .XXX[0x2]
0020 ; --------------------------------------------------------------------------------------
0020 ; SUBPROGRAM
0020 ; --------------------------------------------------------------------------------------
0020 003d | = | .CONST 0x003d ; Address of begin
0021 0004 | | .CONST 0x0004 ; Address of exception handler
0022 0006 | | .CONST 0x0006 ; Number of locals
0023 INIT_0020:
0023 e001 | | Load 0x0,0x1
0024 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0025 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0026 e002 | | Load 0x0,0x2
0027 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0028 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0029 e001 | | Load 0x0,0x1
002a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
002b 1b18 | | Execute Package,Field_Read,Field_Number 0x18
002c 02c7 | | Declare_Variable Any
002d e5fc | | Load 0x2,-0x4
002e 4800 |H | Short_Literal 0x0
002f e5fd | | Load 0x2,-0x3
0030 e003 | | Load 0x0,0x3
0031 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0032 a404 | | Store_Unchecked 0x2,0x4
0033 e001 | | Load 0x0,0x1
0034 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0035 02c7 | | Declare_Variable Any
0036 00d8 | | Load_Top At_Offset_0
0037 1c00 | | Execute_Immediate Run_Utility,0x0
0038 e001 | | Load 0x0,0x1
0039 1b0f | | Execute Package,Field_Read,Field_Number 0xf
003a 02c7 | | Declare_Variable Any
003b 00d8 | | Load_Top At_Offset_0
003c 1c00 | | Execute_Immediate Run_Utility,0x0
003d BODY_0020:
003d 4800 |H | Short_Literal 0x0
003e a5fb | | Store_Unchecked 0x2,-0x5
003f 00da | | Load_Top At_Offset_2
0040 e001 | | Load 0x0,0x1
0041 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0042 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0043 6815 |h | Jump_Zero 0x59
0044 e004 | | Load 0x0,0x4
0045 180e | | Execute Package,Field_Execute,Field_Number 0xe
0046 4801 |H | Short_Literal 0x1
0047 4801 |H | Short_Literal 0x1
0048 e005 | | Load 0x0,0x5
0049 1b0f | | Execute Package,Field_Read,Field_Number 0xf
004a 035b | [ | Declare_Type Array,Constrained
004b 0337 | 7 | Declare_Variable Array
004c e5fd | | Load 0x2,-0x3
004d e005 | | Load 0x0,0x5
004e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
004f e005 | | Load 0x0,0x5
0050 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0051 0119 | | Execute Any,Check_In_Formal_Type
0052 4801 |H | Short_Literal 0x1
0053 00da | | Load_Top At_Offset_2
0054 01d6 | | Execute Vector,Field_Write
0055 603e |`> | Indirect_Literal Discrete,0x94,{0x00000000, 0x0000882b}
0056 e002 | | Load 0x0,0x2
0057 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0058 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0059 00cf | | Action Mark_Auxiliary
005a 7830 |x0 | Jump 0x8b
005b e5fc | | Load 0x2,-0x4
005c 4801 |H | Short_Literal 0x1
005d e404 | | Load 0x2,0x4
005e e003 | | Load 0x0,0x3
005f 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0060 c406 | | Store 0x2,0x6
0061 e5fc | | Load 0x2,-0x4
0062 4801 |H | Short_Literal 0x1
0063 00db | | Load_Top At_Offset_3
0064 e003 | | Load 0x0,0x3
0065 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0066 c405 | | Store 0x2,0x5
0067 e5fc | | Load 0x2,-0x4
0068 00db | | Load_Top At_Offset_3
0069 e006 | | Load 0x0,0x6
006a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
006b e5fc | | Load 0x2,-0x4
006c 00db | | Load_Top At_Offset_3
006d e006 | | Load 0x0,0x6
006e 1815 | | Execute Package,Field_Execute,Field_Number 0x15
006f e002 | | Load 0x0,0x2
0070 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0071 e5fc | | Load 0x2,-0x4
0072 e5fe | | Load 0x2,-0x2
0073 e5ff | | Load 0x2,-0x1
0074 e406 | | Load 0x2,0x6
0075 e405 | | Load 0x2,0x5
0076 e007 | | Load 0x0,0x7
0077 1880 | | Execute Package,Field_Execute,Field_Number 0x80
0078 c403 | | Store 0x2,0x3
0079 4800 |H | Short_Literal 0x0
007a e403 | | Load 0x2,0x3
007b e002 | | Load 0x0,0x2
007c 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
007d 7007 |p | Jump_Nonzero 0x85
007e e004 | | Load 0x0,0x4
007f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0080 e403 | | Load 0x2,0x3
0081 e002 | | Load 0x0,0x2
0082 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0083 4800 |H | Short_Literal 0x0
0084 a403 | | Store_Unchecked 0x2,0x3
0085 00db | | Load_Top At_Offset_3
0086 e001 | | Load 0x0,0x1
0087 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0088 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0089 c404 | | Store 0x2,0x4
008a 00c9 | | Action Pop_Auxiliary_Loop
008b 00db | | Load_Top At_Offset_3
008c e001 | | Load 0x0,0x1
008d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
008e 181e | | Execute Package,Field_Execute,Field_Number 0x1e
008f 6fcb |o | Jump_Zero 0x5b
0090 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0091 0000 0000 | | .XXX[0x3]
0093 0000 | |
0094 0000 0000 | | .LITERAL {0x00000000, 0x0000882b}
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 00b5 | | .CONST 0x00b5 ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0006 | | .CONST 0x0006 ; Number of locals
009b INIT_0098:
009b e001 | | Load 0x0,0x1
009c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
009d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
009e e002 | | Load 0x0,0x2
009f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00a0 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00a1 e001 | | Load 0x0,0x1
00a2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00a3 1b18 | | Execute Package,Field_Read,Field_Number 0x18
00a4 02c7 | | Declare_Variable Any
00a5 e5fc | | Load 0x2,-0x4
00a6 4800 |H | Short_Literal 0x0
00a7 e5fd | | Load 0x2,-0x3
00a8 e003 | | Load 0x0,0x3
00a9 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
00aa a404 | | Store_Unchecked 0x2,0x4
00ab e001 | | Load 0x0,0x1
00ac 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00ad 02c7 | | Declare_Variable Any
00ae 00d8 | | Load_Top At_Offset_0
00af 1c00 | | Execute_Immediate Run_Utility,0x0
00b0 e001 | | Load 0x0,0x1
00b1 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00b2 02c7 | | Declare_Variable Any
00b3 00d8 | | Load_Top At_Offset_0
00b4 1c00 | | Execute_Immediate Run_Utility,0x0
00b5 BODY_0098:
00b5 4800 |H | Short_Literal 0x0
00b6 a5fb | | Store_Unchecked 0x2,-0x5
00b7 00da | | Load_Top At_Offset_2
00b8 e001 | | Load 0x0,0x1
00b9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00ba 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00bb 6815 |h | Jump_Zero 0xd1
00bc e004 | | Load 0x0,0x4
00bd 180e | | Execute Package,Field_Execute,Field_Number 0xe
00be 4801 |H | Short_Literal 0x1
00bf 4801 |H | Short_Literal 0x1
00c0 e005 | | Load 0x0,0x5
00c1 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00c2 035b | [ | Declare_Type Array,Constrained
00c3 0337 | 7 | Declare_Variable Array
00c4 e5fd | | Load 0x2,-0x3
00c5 e005 | | Load 0x0,0x5
00c6 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00c7 e005 | | Load 0x0,0x5
00c8 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00c9 0119 | | Execute Any,Check_In_Formal_Type
00ca 4801 |H | Short_Literal 0x1
00cb 00da | | Load_Top At_Offset_2
00cc 01d6 | | Execute Vector,Field_Write
00cd 67c6 |g | Indirect_Literal Discrete,0x94,{0x00000000, 0x0000882b}
00ce e002 | | Load 0x0,0x2
00cf 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
00d0 4505 |E | Exit_Suprogram New_Top_Offset 0x5
00d1 00cf | | Action Mark_Auxiliary
00d2 7830 |x0 | Jump 0x103
00d3 e5fc | | Load 0x2,-0x4
00d4 4801 |H | Short_Literal 0x1
00d5 e404 | | Load 0x2,0x4
00d6 e003 | | Load 0x0,0x3
00d7 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
00d8 c406 | | Store 0x2,0x6
00d9 e5fc | | Load 0x2,-0x4
00da 4801 |H | Short_Literal 0x1
00db 00db | | Load_Top At_Offset_3
00dc e003 | | Load 0x0,0x3
00dd 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00de c405 | | Store 0x2,0x5
00df e5fc | | Load 0x2,-0x4
00e0 00db | | Load_Top At_Offset_3
00e1 e006 | | Load 0x0,0x6
00e2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00e3 e5fc | | Load 0x2,-0x4
00e4 00db | | Load_Top At_Offset_3
00e5 e006 | | Load 0x0,0x6
00e6 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00e7 e002 | | Load 0x0,0x2
00e8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00e9 e5fc | | Load 0x2,-0x4
00ea e5fe | | Load 0x2,-0x2
00eb e5ff | | Load 0x2,-0x1
00ec e406 | | Load 0x2,0x6
00ed e405 | | Load 0x2,0x5
00ee e007 | | Load 0x0,0x7
00ef 187f | | Execute Package,Field_Execute,Field_Number 0x7f
00f0 c403 | | Store 0x2,0x3
00f1 4800 |H | Short_Literal 0x0
00f2 e403 | | Load 0x2,0x3
00f3 e002 | | Load 0x0,0x2
00f4 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
00f5 7007 |p | Jump_Nonzero 0xfd
00f6 e004 | | Load 0x0,0x4
00f7 180e | | Execute Package,Field_Execute,Field_Number 0xe
00f8 e403 | | Load 0x2,0x3
00f9 e002 | | Load 0x0,0x2
00fa 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
00fb 4800 |H | Short_Literal 0x0
00fc a403 | | Store_Unchecked 0x2,0x3
00fd 00db | | Load_Top At_Offset_3
00fe e001 | | Load 0x0,0x1
00ff 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0100 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0101 c404 | | Store 0x2,0x4
0102 00c9 | | Action Pop_Auxiliary_Loop
0103 00db | | Load_Top At_Offset_3
0104 e001 | | Load 0x0,0x1
0105 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0106 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0107 6fcb |o | Jump_Zero 0xd3
0108 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0109 0000 0000 | | .BLANK 0000[0x7]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 012d | - | .CONST 0x012d ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0006 | | .CONST 0x0006 ; Number of locals
0113 INIT_0110:
0113 e001 | | Load 0x0,0x1
0114 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0115 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0116 e002 | | Load 0x0,0x2
0117 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0118 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0119 e001 | | Load 0x0,0x1
011a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
011b 1b18 | | Execute Package,Field_Read,Field_Number 0x18
011c 02c7 | | Declare_Variable Any
011d e5fe | | Load 0x2,-0x2
011e 4800 |H | Short_Literal 0x0
011f e5ff | | Load 0x2,-0x1
0120 e003 | | Load 0x0,0x3
0121 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0122 a404 | | Store_Unchecked 0x2,0x4
0123 e001 | | Load 0x0,0x1
0124 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0125 02c7 | | Declare_Variable Any
0126 00d8 | | Load_Top At_Offset_0
0127 1c00 | | Execute_Immediate Run_Utility,0x0
0128 e001 | | Load 0x0,0x1
0129 1b0f | | Execute Package,Field_Read,Field_Number 0xf
012a 02c7 | | Declare_Variable Any
012b 00d8 | | Load_Top At_Offset_0
012c 1c00 | | Execute_Immediate Run_Utility,0x0
012d BODY_0110:
012d 4800 |H | Short_Literal 0x0
012e a5fd | | Store_Unchecked 0x2,-0x3
012f 00da | | Load_Top At_Offset_2
0130 e001 | | Load 0x0,0x1
0131 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0132 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0133 6815 |h | Jump_Zero 0x149
0134 e004 | | Load 0x0,0x4
0135 180e | | Execute Package,Field_Execute,Field_Number 0xe
0136 4801 |H | Short_Literal 0x1
0137 4801 |H | Short_Literal 0x1
0138 e005 | | Load 0x0,0x5
0139 1b0f | | Execute Package,Field_Read,Field_Number 0xf
013a 035b | [ | Declare_Type Array,Constrained
013b 0337 | 7 | Declare_Variable Array
013c e5ff | | Load 0x2,-0x1
013d e005 | | Load 0x0,0x5
013e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
013f e005 | | Load 0x0,0x5
0140 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0141 0119 | | Execute Any,Check_In_Formal_Type
0142 4801 |H | Short_Literal 0x1
0143 00da | | Load_Top At_Offset_2
0144 01d6 | | Execute Vector,Field_Write
0145 603a |`: | Indirect_Literal Discrete,0x180,{0x00000000, 0x0000882b}
0146 e002 | | Load 0x0,0x2
0147 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0148 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0149 00cf | | Action Mark_Auxiliary
014a 782e |x. | Jump 0x179
014b e5fe | | Load 0x2,-0x2
014c 4801 |H | Short_Literal 0x1
014d e404 | | Load 0x2,0x4
014e e003 | | Load 0x0,0x3
014f 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0150 c406 | | Store 0x2,0x6
0151 e5fe | | Load 0x2,-0x2
0152 4801 |H | Short_Literal 0x1
0153 00db | | Load_Top At_Offset_3
0154 e003 | | Load 0x0,0x3
0155 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0156 c405 | | Store 0x2,0x5
0157 e5fe | | Load 0x2,-0x2
0158 00db | | Load_Top At_Offset_3
0159 e006 | | Load 0x0,0x6
015a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
015b e5fe | | Load 0x2,-0x2
015c 00db | | Load_Top At_Offset_3
015d e006 | | Load 0x0,0x6
015e 1815 | | Execute Package,Field_Execute,Field_Number 0x15
015f e002 | | Load 0x0,0x2
0160 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0161 e5fe | | Load 0x2,-0x2
0162 00db | | Load_Top At_Offset_3
0163 e405 | | Load 0x2,0x5
0164 e007 | | Load 0x0,0x7
0165 187e | ~ | Execute Package,Field_Execute,Field_Number 0x7e
0166 c403 | | Store 0x2,0x3
0167 4800 |H | Short_Literal 0x0
0168 e403 | | Load 0x2,0x3
0169 e002 | | Load 0x0,0x2
016a 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
016b 7007 |p | Jump_Nonzero 0x173
016c e004 | | Load 0x0,0x4
016d 180e | | Execute Package,Field_Execute,Field_Number 0xe
016e e403 | | Load 0x2,0x3
016f e002 | | Load 0x0,0x2
0170 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0171 4800 |H | Short_Literal 0x0
0172 a403 | | Store_Unchecked 0x2,0x3
0173 00db | | Load_Top At_Offset_3
0174 e001 | | Load 0x0,0x1
0175 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0176 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0177 c404 | | Store 0x2,0x4
0178 00c9 | | Action Pop_Auxiliary_Loop
0179 00db | | Load_Top At_Offset_3
017a e001 | | Load 0x0,0x1
017b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
017c 181e | | Execute Package,Field_Execute,Field_Number 0x1e
017d 6fcd |o | Jump_Zero 0x14b
017e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
017f 0000 | | .XXX[0x1]
0180 0000 0000 | | .LITERAL {0x00000000, 0x0000882b}
0184 0000 0000 | | .BLANK 0000[0x4]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 01a5 | | .CONST 0x01a5 ; Address of begin
0189 0004 | | .CONST 0x0004 ; Address of exception handler
018a 0006 | | .CONST 0x0006 ; Number of locals
018b INIT_0188:
018b e001 | | Load 0x0,0x1
018c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
018d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
018e e002 | | Load 0x0,0x2
018f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0190 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0191 e001 | | Load 0x0,0x1
0192 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0193 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0194 02c7 | | Declare_Variable Any
0195 e5fd | | Load 0x2,-0x3
0196 4800 |H | Short_Literal 0x0
0197 e5fe | | Load 0x2,-0x2
0198 e003 | | Load 0x0,0x3
0199 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
019a a404 | | Store_Unchecked 0x2,0x4
019b e001 | | Load 0x0,0x1
019c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
019d 02c7 | | Declare_Variable Any
019e 00d8 | | Load_Top At_Offset_0
019f 1c00 | | Execute_Immediate Run_Utility,0x0
01a0 e001 | | Load 0x0,0x1
01a1 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01a2 02c7 | | Declare_Variable Any
01a3 00d8 | | Load_Top At_Offset_0
01a4 1c00 | | Execute_Immediate Run_Utility,0x0
01a5 BODY_0188:
01a5 4800 |H | Short_Literal 0x0
01a6 a5fc | | Store_Unchecked 0x2,-0x4
01a7 00da | | Load_Top At_Offset_2
01a8 e001 | | Load 0x0,0x1
01a9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01aa 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01ab 6815 |h | Jump_Zero 0x1c1
01ac e004 | | Load 0x0,0x4
01ad 180e | | Execute Package,Field_Execute,Field_Number 0xe
01ae 4801 |H | Short_Literal 0x1
01af 4801 |H | Short_Literal 0x1
01b0 e005 | | Load 0x0,0x5
01b1 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01b2 035b | [ | Declare_Type Array,Constrained
01b3 0337 | 7 | Declare_Variable Array
01b4 e5fe | | Load 0x2,-0x2
01b5 e005 | | Load 0x0,0x5
01b6 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01b7 e005 | | Load 0x0,0x5
01b8 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01b9 0119 | | Execute Any,Check_In_Formal_Type
01ba 4801 |H | Short_Literal 0x1
01bb 00da | | Load_Top At_Offset_2
01bc 01d6 | | Execute Vector,Field_Write
01bd 67c2 |g | Indirect_Literal Discrete,0x180,{0x00000000, 0x0000882b}
01be e002 | | Load 0x0,0x2
01bf 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
01c0 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01c1 00cf | | Action Mark_Auxiliary
01c2 782f |x/ | Jump 0x1f2
01c3 e5fd | | Load 0x2,-0x3
01c4 4801 |H | Short_Literal 0x1
01c5 e404 | | Load 0x2,0x4
01c6 e003 | | Load 0x0,0x3
01c7 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
01c8 c406 | | Store 0x2,0x6
01c9 e5fd | | Load 0x2,-0x3
01ca 4801 |H | Short_Literal 0x1
01cb 00db | | Load_Top At_Offset_3
01cc e003 | | Load 0x0,0x3
01cd 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01ce c405 | | Store 0x2,0x5
01cf e5fd | | Load 0x2,-0x3
01d0 00db | | Load_Top At_Offset_3
01d1 e006 | | Load 0x0,0x6
01d2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01d3 e5fd | | Load 0x2,-0x3
01d4 00db | | Load_Top At_Offset_3
01d5 e006 | | Load 0x0,0x6
01d6 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01d7 e002 | | Load 0x0,0x2
01d8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01d9 e5fd | | Load 0x2,-0x3
01da e5ff | | Load 0x2,-0x1
01db e406 | | Load 0x2,0x6
01dc e405 | | Load 0x2,0x5
01dd e007 | | Load 0x0,0x7
01de 1881 | | Execute Package,Field_Execute,Field_Number 0x81
01df c403 | | Store 0x2,0x3
01e0 4800 |H | Short_Literal 0x0
01e1 e403 | | Load 0x2,0x3
01e2 e002 | | Load 0x0,0x2
01e3 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
01e4 7007 |p | Jump_Nonzero 0x1ec
01e5 e004 | | Load 0x0,0x4
01e6 180e | | Execute Package,Field_Execute,Field_Number 0xe
01e7 e403 | | Load 0x2,0x3
01e8 e002 | | Load 0x0,0x2
01e9 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
01ea 4800 |H | Short_Literal 0x0
01eb a403 | | Store_Unchecked 0x2,0x3
01ec 00db | | Load_Top At_Offset_3
01ed e001 | | Load 0x0,0x1
01ee 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01ef 181d | | Execute Package,Field_Execute,Field_Number 0x1d
01f0 c404 | | Store 0x2,0x4
01f1 00c9 | | Action Pop_Auxiliary_Loop
01f2 00db | | Load_Top At_Offset_3
01f3 e001 | | Load 0x0,0x1
01f4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01f5 181e | | Execute Package,Field_Execute,Field_Number 0x1e
01f6 6fcc |o | Jump_Zero 0x1c3
01f7 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01f8 ; --------------------------------------------------------------------------------------
01f8 ; Debug Table
01f8 ; --------------------------------------------------------------------------------------
01f8 0004 000e | | .DEBUG4 0x0004,0x000e,0xe49c,0x0000,0x0001,0x0000
01fe 0000 0000 | | .XXX[0x2]