|
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_5850da
└─⟦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 01d8 | | .CONST 0x01d8 ; 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 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated
000f 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated
0011 029a 0173 | s| Declare_Subprogram INIT_0170,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 6036 |`6 | Indirect_Literal Discrete,0x8c,{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 7828 |x( | Jump 0x83
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 e002 | | Load 0x0,0x2
0068 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0069 e5fc | | Load 0x2,-0x4
006a e5fe | | Load 0x2,-0x2
006b e5ff | | Load 0x2,-0x1
006c e406 | | Load 0x2,0x6
006d e405 | | Load 0x2,0x5
006e e006 | | Load 0x0,0x6
006f 1880 | | Execute Package,Field_Execute,Field_Number 0x80
0070 c403 | | Store 0x2,0x3
0071 4800 |H | Short_Literal 0x0
0072 e403 | | Load 0x2,0x3
0073 e002 | | Load 0x0,0x2
0074 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0075 7007 |p | Jump_Nonzero 0x7d
0076 e004 | | Load 0x0,0x4
0077 180e | | Execute Package,Field_Execute,Field_Number 0xe
0078 e403 | | Load 0x2,0x3
0079 e002 | | Load 0x0,0x2
007a 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
007b 4800 |H | Short_Literal 0x0
007c a403 | | Store_Unchecked 0x2,0x3
007d 00db | | Load_Top At_Offset_3
007e e001 | | Load 0x0,0x1
007f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0080 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0081 c404 | | Store 0x2,0x4
0082 00c9 | | Action Pop_Auxiliary_Loop
0083 00db | | Load_Top At_Offset_3
0084 e001 | | Load 0x0,0x1
0085 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0086 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0087 6fd3 |o | Jump_Zero 0x5b
0088 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0089 0000 0000 | | .XXX[0x3]
008b 0000 | |
008c 0000 0000 | | .LITERAL {0x00000000, 0x0000882b}
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 00ad | | .CONST 0x00ad ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0006 | | .CONST 0x0006 ; Number of locals
0093 INIT_0090:
0093 e001 | | Load 0x0,0x1
0094 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0095 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0096 e002 | | Load 0x0,0x2
0097 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0098 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0099 e001 | | Load 0x0,0x1
009a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
009b 1b18 | | Execute Package,Field_Read,Field_Number 0x18
009c 02c7 | | Declare_Variable Any
009d e5fc | | Load 0x2,-0x4
009e 4800 |H | Short_Literal 0x0
009f e5fd | | Load 0x2,-0x3
00a0 e003 | | Load 0x0,0x3
00a1 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
00a2 a404 | | Store_Unchecked 0x2,0x4
00a3 e001 | | Load 0x0,0x1
00a4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00a5 02c7 | | Declare_Variable Any
00a6 00d8 | | Load_Top At_Offset_0
00a7 1c00 | | Execute_Immediate Run_Utility,0x0
00a8 e001 | | Load 0x0,0x1
00a9 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00aa 02c7 | | Declare_Variable Any
00ab 00d8 | | Load_Top At_Offset_0
00ac 1c00 | | Execute_Immediate Run_Utility,0x0
00ad BODY_0090:
00ad 4800 |H | Short_Literal 0x0
00ae a5fb | | Store_Unchecked 0x2,-0x5
00af 00da | | Load_Top At_Offset_2
00b0 e001 | | Load 0x0,0x1
00b1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00b2 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00b3 6815 |h | Jump_Zero 0xc9
00b4 e004 | | Load 0x0,0x4
00b5 180e | | Execute Package,Field_Execute,Field_Number 0xe
00b6 4801 |H | Short_Literal 0x1
00b7 4801 |H | Short_Literal 0x1
00b8 e005 | | Load 0x0,0x5
00b9 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00ba 035b | [ | Declare_Type Array,Constrained
00bb 0337 | 7 | Declare_Variable Array
00bc e5fd | | Load 0x2,-0x3
00bd e005 | | Load 0x0,0x5
00be 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00bf e005 | | Load 0x0,0x5
00c0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00c1 0119 | | Execute Any,Check_In_Formal_Type
00c2 4801 |H | Short_Literal 0x1
00c3 00da | | Load_Top At_Offset_2
00c4 01d6 | | Execute Vector,Field_Write
00c5 67c6 |g | Indirect_Literal Discrete,0x8c,{0x00000000, 0x0000882b}
00c6 e002 | | Load 0x0,0x2
00c7 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
00c8 4505 |E | Exit_Suprogram New_Top_Offset 0x5
00c9 00cf | | Action Mark_Auxiliary
00ca 7828 |x( | Jump 0xf3
00cb e5fc | | Load 0x2,-0x4
00cc 4801 |H | Short_Literal 0x1
00cd e404 | | Load 0x2,0x4
00ce e003 | | Load 0x0,0x3
00cf 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
00d0 c406 | | Store 0x2,0x6
00d1 e5fc | | Load 0x2,-0x4
00d2 4801 |H | Short_Literal 0x1
00d3 00db | | Load_Top At_Offset_3
00d4 e003 | | Load 0x0,0x3
00d5 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00d6 c405 | | Store 0x2,0x5
00d7 e002 | | Load 0x0,0x2
00d8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00d9 e5fc | | Load 0x2,-0x4
00da e5fe | | Load 0x2,-0x2
00db e5ff | | Load 0x2,-0x1
00dc e406 | | Load 0x2,0x6
00dd e405 | | Load 0x2,0x5
00de e006 | | Load 0x0,0x6
00df 187f | | Execute Package,Field_Execute,Field_Number 0x7f
00e0 c403 | | Store 0x2,0x3
00e1 4800 |H | Short_Literal 0x0
00e2 e403 | | Load 0x2,0x3
00e3 e002 | | Load 0x0,0x2
00e4 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
00e5 7007 |p | Jump_Nonzero 0xed
00e6 e004 | | Load 0x0,0x4
00e7 180e | | Execute Package,Field_Execute,Field_Number 0xe
00e8 e403 | | Load 0x2,0x3
00e9 e002 | | Load 0x0,0x2
00ea 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
00eb 4800 |H | Short_Literal 0x0
00ec a403 | | Store_Unchecked 0x2,0x3
00ed 00db | | Load_Top At_Offset_3
00ee e001 | | Load 0x0,0x1
00ef 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00f0 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00f1 c404 | | Store 0x2,0x4
00f2 00c9 | | Action Pop_Auxiliary_Loop
00f3 00db | | Load_Top At_Offset_3
00f4 e001 | | Load 0x0,0x1
00f5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00f6 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00f7 6fd3 |o | Jump_Zero 0xcb
00f8 4505 |E | Exit_Suprogram New_Top_Offset 0x5
00f9 0000 0000 | | .BLANK 0000[0x7]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 011d | | .CONST 0x011d ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0006 | | .CONST 0x0006 ; Number of locals
0103 INIT_0100:
0103 e001 | | Load 0x0,0x1
0104 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0105 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0106 e002 | | Load 0x0,0x2
0107 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0108 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0109 e001 | | Load 0x0,0x1
010a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
010b 1b18 | | Execute Package,Field_Read,Field_Number 0x18
010c 02c7 | | Declare_Variable Any
010d e5fe | | Load 0x2,-0x2
010e 4800 |H | Short_Literal 0x0
010f e5ff | | Load 0x2,-0x1
0110 e003 | | Load 0x0,0x3
0111 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0112 a404 | | Store_Unchecked 0x2,0x4
0113 e001 | | Load 0x0,0x1
0114 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0115 02c7 | | Declare_Variable Any
0116 00d8 | | Load_Top At_Offset_0
0117 1c00 | | Execute_Immediate Run_Utility,0x0
0118 e001 | | Load 0x0,0x1
0119 1b0f | | Execute Package,Field_Read,Field_Number 0xf
011a 02c7 | | Declare_Variable Any
011b 00d8 | | Load_Top At_Offset_0
011c 1c00 | | Execute_Immediate Run_Utility,0x0
011d BODY_0100:
011d 4800 |H | Short_Literal 0x0
011e a5fd | | Store_Unchecked 0x2,-0x3
011f 00da | | Load_Top At_Offset_2
0120 e001 | | Load 0x0,0x1
0121 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0122 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0123 6815 |h | Jump_Zero 0x139
0124 e004 | | Load 0x0,0x4
0125 180e | | Execute Package,Field_Execute,Field_Number 0xe
0126 4801 |H | Short_Literal 0x1
0127 4801 |H | Short_Literal 0x1
0128 e005 | | Load 0x0,0x5
0129 1b0f | | Execute Package,Field_Read,Field_Number 0xf
012a 035b | [ | Declare_Type Array,Constrained
012b 0337 | 7 | Declare_Variable Array
012c e5ff | | Load 0x2,-0x1
012d e005 | | Load 0x0,0x5
012e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
012f e005 | | Load 0x0,0x5
0130 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0131 0119 | | Execute Any,Check_In_Formal_Type
0132 4801 |H | Short_Literal 0x1
0133 00da | | Load_Top At_Offset_2
0134 01d6 | | Execute Vector,Field_Write
0135 6032 |`2 | Indirect_Literal Discrete,0x168,{0x00000000, 0x0000882b}
0136 e002 | | Load 0x0,0x2
0137 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0138 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0139 00cf | | Action Mark_Auxiliary
013a 7826 |x& | Jump 0x161
013b e5fe | | Load 0x2,-0x2
013c 4801 |H | Short_Literal 0x1
013d e404 | | Load 0x2,0x4
013e e003 | | Load 0x0,0x3
013f 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0140 c406 | | Store 0x2,0x6
0141 e5fe | | Load 0x2,-0x2
0142 4801 |H | Short_Literal 0x1
0143 00db | | Load_Top At_Offset_3
0144 e003 | | Load 0x0,0x3
0145 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0146 c405 | | Store 0x2,0x5
0147 e002 | | Load 0x0,0x2
0148 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0149 e5fe | | Load 0x2,-0x2
014a 00db | | Load_Top At_Offset_3
014b e405 | | Load 0x2,0x5
014c e006 | | Load 0x0,0x6
014d 187e | ~ | Execute Package,Field_Execute,Field_Number 0x7e
014e c403 | | Store 0x2,0x3
014f 4800 |H | Short_Literal 0x0
0150 e403 | | Load 0x2,0x3
0151 e002 | | Load 0x0,0x2
0152 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0153 7007 |p | Jump_Nonzero 0x15b
0154 e004 | | Load 0x0,0x4
0155 180e | | Execute Package,Field_Execute,Field_Number 0xe
0156 e403 | | Load 0x2,0x3
0157 e002 | | Load 0x0,0x2
0158 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0159 4800 |H | Short_Literal 0x0
015a a403 | | Store_Unchecked 0x2,0x3
015b 00db | | Load_Top At_Offset_3
015c e001 | | Load 0x0,0x1
015d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
015e 181d | | Execute Package,Field_Execute,Field_Number 0x1d
015f c404 | | Store 0x2,0x4
0160 00c9 | | Action Pop_Auxiliary_Loop
0161 00db | | Load_Top At_Offset_3
0162 e001 | | Load 0x0,0x1
0163 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0164 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0165 6fd5 |o | Jump_Zero 0x13b
0166 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0167 0000 | | .XXX[0x1]
0168 0000 0000 | | .LITERAL {0x00000000, 0x0000882b}
016c 0000 0000 | | .BLANK 0000[0x4]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 018d | | .CONST 0x018d ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0006 | | .CONST 0x0006 ; Number of locals
0173 INIT_0170:
0173 e001 | | Load 0x0,0x1
0174 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0175 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0176 e002 | | Load 0x0,0x2
0177 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0178 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0179 e001 | | Load 0x0,0x1
017a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
017b 1b18 | | Execute Package,Field_Read,Field_Number 0x18
017c 02c7 | | Declare_Variable Any
017d e5fd | | Load 0x2,-0x3
017e 4800 |H | Short_Literal 0x0
017f e5fe | | Load 0x2,-0x2
0180 e003 | | Load 0x0,0x3
0181 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0182 a404 | | Store_Unchecked 0x2,0x4
0183 e001 | | Load 0x0,0x1
0184 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0185 02c7 | | Declare_Variable Any
0186 00d8 | | Load_Top At_Offset_0
0187 1c00 | | Execute_Immediate Run_Utility,0x0
0188 e001 | | Load 0x0,0x1
0189 1b0f | | Execute Package,Field_Read,Field_Number 0xf
018a 02c7 | | Declare_Variable Any
018b 00d8 | | Load_Top At_Offset_0
018c 1c00 | | Execute_Immediate Run_Utility,0x0
018d BODY_0170:
018d 4800 |H | Short_Literal 0x0
018e a5fc | | Store_Unchecked 0x2,-0x4
018f 00da | | Load_Top At_Offset_2
0190 e001 | | Load 0x0,0x1
0191 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0192 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0193 6815 |h | Jump_Zero 0x1a9
0194 e004 | | Load 0x0,0x4
0195 180e | | Execute Package,Field_Execute,Field_Number 0xe
0196 4801 |H | Short_Literal 0x1
0197 4801 |H | Short_Literal 0x1
0198 e005 | | Load 0x0,0x5
0199 1b0f | | Execute Package,Field_Read,Field_Number 0xf
019a 035b | [ | Declare_Type Array,Constrained
019b 0337 | 7 | Declare_Variable Array
019c e5fe | | Load 0x2,-0x2
019d e005 | | Load 0x0,0x5
019e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
019f e005 | | Load 0x0,0x5
01a0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01a1 0119 | | Execute Any,Check_In_Formal_Type
01a2 4801 |H | Short_Literal 0x1
01a3 00da | | Load_Top At_Offset_2
01a4 01d6 | | Execute Vector,Field_Write
01a5 67c2 |g | Indirect_Literal Discrete,0x168,{0x00000000, 0x0000882b}
01a6 e002 | | Load 0x0,0x2
01a7 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
01a8 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01a9 00cf | | Action Mark_Auxiliary
01aa 7827 |x' | Jump 0x1d2
01ab e5fd | | Load 0x2,-0x3
01ac 4801 |H | Short_Literal 0x1
01ad e404 | | Load 0x2,0x4
01ae e003 | | Load 0x0,0x3
01af 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
01b0 c406 | | Store 0x2,0x6
01b1 e5fd | | Load 0x2,-0x3
01b2 4801 |H | Short_Literal 0x1
01b3 00db | | Load_Top At_Offset_3
01b4 e003 | | Load 0x0,0x3
01b5 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01b6 c405 | | Store 0x2,0x5
01b7 e002 | | Load 0x0,0x2
01b8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01b9 e5fd | | Load 0x2,-0x3
01ba e5ff | | Load 0x2,-0x1
01bb e406 | | Load 0x2,0x6
01bc e405 | | Load 0x2,0x5
01bd e006 | | Load 0x0,0x6
01be 1881 | | Execute Package,Field_Execute,Field_Number 0x81
01bf c403 | | Store 0x2,0x3
01c0 4800 |H | Short_Literal 0x0
01c1 e403 | | Load 0x2,0x3
01c2 e002 | | Load 0x0,0x2
01c3 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
01c4 7007 |p | Jump_Nonzero 0x1cc
01c5 e004 | | Load 0x0,0x4
01c6 180e | | Execute Package,Field_Execute,Field_Number 0xe
01c7 e403 | | Load 0x2,0x3
01c8 e002 | | Load 0x0,0x2
01c9 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
01ca 4800 |H | Short_Literal 0x0
01cb a403 | | Store_Unchecked 0x2,0x3
01cc 00db | | Load_Top At_Offset_3
01cd e001 | | Load 0x0,0x1
01ce 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01cf 181d | | Execute Package,Field_Execute,Field_Number 0x1d
01d0 c404 | | Store 0x2,0x4
01d1 00c9 | | Action Pop_Auxiliary_Loop
01d2 00db | | Load_Top At_Offset_3
01d3 e001 | | Load 0x0,0x1
01d4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01d5 181e | | Execute Package,Field_Execute,Field_Number 0x1e
01d6 6fd4 |o | Jump_Zero 0x1ab
01d7 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01d8 ; --------------------------------------------------------------------------------------
01d8 ; Debug Table
01d8 ; --------------------------------------------------------------------------------------
01d8 0004 000d | | .DEBUG4 0x0004,0x000d,0xf6b3,0x0000,0x0001,0x0000
01de 0000 0000 | | .BLANK 0000[0x22]