|
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: 2048 (0x800) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0d2ce3
└─⟦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 03b8 | | .CONST 0x03b8 ; 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 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 001e | | .CONST 0x001e ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0011 | | .CONST 0x0011 ; Number of locals 000b INIT_0008: 000b 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated 000d 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated 000f 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated 0011 029a 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call,Visible,Unelaborated 0013 00bf | | Action Accept_Activation 0014 029d 0383 | | Declare_Subprogram INIT_0380,For_Outer_Call 0016 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0017 00c7 | | Action Elaborate_Subprogram 0018 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0019 00c7 | | Action Elaborate_Subprogram 001a 1d0f | | Execute_Immediate Reference_Lex_1,0xf 001b 00c7 | | Action Elaborate_Subprogram 001c 1d10 | | Execute_Immediate Reference_Lex_1,0x10 001d 00c7 | | Action Elaborate_Subprogram 001e BODY_0008: 001e 00bc | | Action Signal_Activated 001f 00bb | | Action Signal_Completion 0020 ; -------------------------------------------------------------------------------------- 0020 ; SUBPROGRAM 0020 ; -------------------------------------------------------------------------------------- 0020 0029 | ) | .CONST 0x0029 ; Address of begin 0021 0004 | | .CONST 0x0004 ; Address of exception handler 0022 0004 | | .CONST 0x0004 ; Number of locals 0023 INIT_0020: 0023 e001 | | Load 0x0,0x1 0024 1b26 | & | Execute Package,Field_Read,Field_Number 0x26 0025 0337 | 7 | Declare_Variable Array 0026 00e2 | | Load_Encached Integer_Cache 0027 e002 | | Load 0x0,0x2 0028 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0029 BODY_0020: 0029 4801 |H | Short_Literal 0x1 002a a5fb | | Store_Unchecked 0x2,-0x5 002b 00d8 | | Load_Top At_Offset_0 002c 00db | | Load_Top At_Offset_3 002d 4801 |H | Short_Literal 0x1 002e e5ff | | Load 0x2,-0x1 002f e003 | | Load 0x0,0x3 0030 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0031 00d1 | | Pop_Control Pop_Count_1 0032 0059 | Y | Store_Top Discrete,At_Offset_1 0033 00d8 | | Load_Top At_Offset_0 0034 6803 |h | Jump_Zero 0x38 0035 4800 |H | Short_Literal 0x0 0036 a5fb | | Store_Unchecked 0x2,-0x5 0037 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0038 e5fd | | Load 0x2,-0x3 0039 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 003a e5fe | | Load 0x2,-0x2 003b e402 | | Load 0x2,0x2 003c 01d5 | | Execute Vector,Field_Reference 003d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 003e e5fd | | Load 0x2,-0x3 003f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0040 e5fe | | Load 0x2,-0x2 0041 e402 | | Load 0x2,0x2 0042 01d5 | | Execute Vector,Field_Reference 0043 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0044 e5fd | | Load 0x2,-0x3 0045 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0046 e5fe | | Load 0x2,-0x2 0047 e402 | | Load 0x2,0x2 0048 01d5 | | Execute Vector,Field_Reference 0049 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 004a 00d8 | | Load_Top At_Offset_0 004b 00db | | Load_Top At_Offset_3 004c 4801 |H | Short_Literal 0x1 004d e5ff | | Load 0x2,-0x1 004e e003 | | Load 0x0,0x3 004f 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0050 0059 | Y | Store_Top Discrete,At_Offset_1 0051 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0052 0000 0000 | | .BLANK 0000[0x6] 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 0073 | s | .CONST 0x0073 ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 000c | | .CONST 0x000c ; Number of locals 005b INIT_0058: 005b e001 | | Load 0x0,0x1 005c 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 005d 0322 | " | Declare_Variable Record 005e e002 | | Load 0x0,0x2 005f 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0060 0337 | 7 | Declare_Variable Array 0061 e001 | | Load 0x0,0x1 0062 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0063 e001 | | Load 0x0,0x1 0064 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0065 e001 | | Load 0x0,0x1 0066 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0067 e002 | | Load 0x0,0x2 0068 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0069 e001 | | Load 0x0,0x1 006a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 006b e001 | | Load 0x0,0x1 006c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 006d e001 | | Load 0x0,0x1 006e 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 006f e001 | | Load 0x0,0x1 0070 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0071 0322 | " | Declare_Variable Record 0072 00e2 | | Load_Encached Integer_Cache 0073 BODY_0058: 0073 4800 |H | Short_Literal 0x0 0074 a5fe | | Store_Unchecked 0x2,-0x2 0075 e004 | | Load 0x0,0x4 0076 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0077 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 0078 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0079 7001 |p | Jump_Nonzero 0x7b 007a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 007b e004 | | Load 0x0,0x4 007c 1b16 | | Execute Package,Field_Read,Field_Number 0x16 007d 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 007e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 007f e402 | | Load 0x2,0x2 0080 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0081 4800 |H | Short_Literal 0x0 0082 e402 | | Load 0x2,0x2 0083 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0084 4800 |H | Short_Literal 0x0 0085 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0086 4800 |H | Short_Literal 0x0 0087 00da | | Load_Top At_Offset_2 0088 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0089 00cf | | Action Mark_Auxiliary 008a 7853 |xS | Jump 0xde 008b e402 | | Load 0x2,0x2 008c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 008d 00d8 | | Load_Top At_Offset_0 008e e001 | | Load 0x0,0x1 008f 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0090 0260 | ` | Execute Discrete,In_Type 0091 7001 |p | Jump_Nonzero 0x93 0092 0801 | | Execute_Immediate Raise,0x1 0093 a406 | | Store_Unchecked 0x2,0x6 0094 e404 | | Load 0x2,0x4 0095 a405 | | Store_Unchecked 0x2,0x5 0096 e402 | | Load 0x2,0x2 0097 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0098 a404 | | Store_Unchecked 0x2,0x4 0099 e407 | | Load 0x2,0x7 009a e403 | | Load 0x2,0x3 009b 4801 |H | Short_Literal 0x1 009c e404 | | Load 0x2,0x4 009d e003 | | Load 0x0,0x3 009e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 009f 00d1 | | Pop_Control Pop_Count_1 00a0 c407 | | Store 0x2,0x7 00a1 e407 | | Load 0x2,0x7 00a2 6801 |h | Jump_Zero 0xa4 00a3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00a4 4800 |H | Short_Literal 0x0 00a5 e403 | | Load 0x2,0x3 00a6 01d7 | | Execute Vector,Field_Read 00a7 0908 | | Execute_Immediate Binary_Scale,0x8 00a8 4801 |H | Short_Literal 0x1 00a9 e403 | | Load 0x2,0x3 00aa 01d7 | | Execute Vector,Field_Read 00ab 0273 | s | Execute Discrete,Plus 00ac e402 | | Load 0x2,0x2 00ad 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00ae 4802 |H | Short_Literal 0x2 00af e403 | | Load 0x2,0x3 00b0 01d7 | | Execute Vector,Field_Read 00b1 0908 | | Execute_Immediate Binary_Scale,0x8 00b2 4803 |H | Short_Literal 0x3 00b3 e403 | | Load 0x2,0x3 00b4 01d7 | | Execute Vector,Field_Read 00b5 0273 | s | Execute Discrete,Plus 00b6 00d8 | | Load_Top At_Offset_0 00b7 e001 | | Load 0x0,0x1 00b8 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00b9 0260 | ` | Execute Discrete,In_Type 00ba 7001 |p | Jump_Nonzero 0xbc 00bb 0801 | | Execute_Immediate Raise,0x1 00bc e402 | | Load 0x2,0x2 00bd 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00be e402 | | Load 0x2,0x2 00bf 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00c0 7001 |p | Jump_Nonzero 0xc2 00c1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00c2 e402 | | Load 0x2,0x2 00c3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00c4 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 00c5 e404 | | Load 0x2,0x4 00c6 e004 | | Load 0x0,0x4 00c7 1b16 | | Execute Package,Field_Read,Field_Number 0x16 00c8 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 00c9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00ca 027f | | Execute Discrete,Equal 00cb 6803 |h | Jump_Zero 0xcf 00cc 00d9 | | Load_Top At_Offset_1 00cd 0aff | | Execute_Immediate Plus,-0x1 00ce 005a | Z | Store_Top Discrete,At_Offset_2 00cf 00d9 | | Load_Top At_Offset_1 00d0 00db | | Load_Top At_Offset_3 00d1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00d2 027d | } | Execute Discrete,Greater 00d3 6809 |h | Jump_Zero 0xdd 00d4 e404 | | Load 0x2,0x4 00d5 a409 | | Store_Unchecked 0x2,0x9 00d6 e402 | | Load 0x2,0x2 00d7 00db | | Load_Top At_Offset_3 00d8 017d | } | Execute Record,Structure_Write 00d9 e405 | | Load 0x2,0x5 00da a408 | | Store_Unchecked 0x2,0x8 00db e406 | | Load 0x2,0x6 00dc a40a | | Store_Unchecked 0x2,0xa 00dd 00c9 | | Action Pop_Auxiliary_Loop 00de 00d9 | | Load_Top At_Offset_1 00df e5ff | | Load 0x2,-0x1 00e0 027c | | | Execute Discrete,Less 00e1 e402 | | Load 0x2,0x2 00e2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00e3 0e00 | | Execute_Immediate Not_Equal,0x0 00e4 0279 | y | Execute Discrete,And 00e5 77a5 |w | Jump_Nonzero 0x8b 00e6 00ce | | Action Pop_Auxiliary 00e7 e402 | | Load 0x2,0x2 00e8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00e9 e5ff | | Load 0x2,-0x1 00ea 027d | } | Execute Discrete,Greater 00eb 685d |h] | Jump_Zero 0x149 00ec e402 | | Load 0x2,0x2 00ed 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00ee e5ff | | Load 0x2,-0x1 00ef 0272 | r | Execute Discrete,Minus 00f0 e402 | | Load 0x2,0x2 00f1 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00f2 e404 | | Load 0x2,0x4 00f3 e402 | | Load 0x2,0x2 00f4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00f5 0273 | s | Execute Discrete,Plus 00f6 00d8 | | Load_Top At_Offset_0 00f7 e001 | | Load 0x0,0x1 00f8 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00f9 0260 | ` | Execute Discrete,In_Type 00fa 7001 |p | Jump_Nonzero 0xfc 00fb 0801 | | Execute_Immediate Raise,0x1 00fc a5fd | | Store_Unchecked 0x2,-0x3 00fd e402 | | Load 0x2,0x2 00fe 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00ff 09f8 | | Execute_Immediate Binary_Scale,-0x8 0100 00d8 | | Load_Top At_Offset_0 0101 e005 | | Load 0x0,0x5 0102 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0103 0260 | ` | Execute Discrete,In_Type 0104 7001 |p | Jump_Nonzero 0x106 0105 0801 | | Execute_Immediate Raise,0x1 0106 4800 |H | Short_Literal 0x0 0107 e403 | | Load 0x2,0x3 0108 01d6 | | Execute Vector,Field_Write 0109 e402 | | Load 0x2,0x2 010a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 010b e402 | | Load 0x2,0x2 010c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 010d 09f8 | | Execute_Immediate Binary_Scale,-0x8 010e 0908 | | Execute_Immediate Binary_Scale,0x8 010f 0272 | r | Execute Discrete,Minus 0110 00d8 | | Load_Top At_Offset_0 0111 e005 | | Load 0x0,0x5 0112 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0113 0260 | ` | Execute Discrete,In_Type 0114 7001 |p | Jump_Nonzero 0x116 0115 0801 | | Execute_Immediate Raise,0x1 0116 4801 |H | Short_Literal 0x1 0117 e403 | | Load 0x2,0x3 0118 01d6 | | Execute Vector,Field_Write 0119 e402 | | Load 0x2,0x2 011a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 011b 09f8 | | Execute_Immediate Binary_Scale,-0x8 011c 00d8 | | Load_Top At_Offset_0 011d e005 | | Load 0x0,0x5 011e 1b11 | | Execute Package,Field_Read,Field_Number 0x11 011f 0260 | ` | Execute Discrete,In_Type 0120 7001 |p | Jump_Nonzero 0x122 0121 0801 | | Execute_Immediate Raise,0x1 0122 4802 |H | Short_Literal 0x2 0123 e403 | | Load 0x2,0x3 0124 01d6 | | Execute Vector,Field_Write 0125 e402 | | Load 0x2,0x2 0126 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0127 e402 | | Load 0x2,0x2 0128 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0129 09f8 | | Execute_Immediate Binary_Scale,-0x8 012a 00d8 | | Load_Top At_Offset_0 012b 00e2 | | Load_Encached Integer_Cache 012c 0260 | ` | Execute Discrete,In_Type 012d 7001 |p | Jump_Nonzero 0x12f 012e 0801 | | Execute_Immediate Raise,0x1 012f 0908 | | Execute_Immediate Binary_Scale,0x8 0130 0272 | r | Execute Discrete,Minus 0131 00d8 | | Load_Top At_Offset_0 0132 e005 | | Load 0x0,0x5 0133 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0134 0260 | ` | Execute Discrete,In_Type 0135 7001 |p | Jump_Nonzero 0x137 0136 0801 | | Execute_Immediate Raise,0x1 0137 4803 |H | Short_Literal 0x3 0138 e403 | | Load 0x2,0x3 0139 01d6 | | Execute Vector,Field_Write 013a e407 | | Load 0x2,0x7 013b e403 | | Load 0x2,0x3 013c 4801 |H | Short_Literal 0x1 013d e404 | | Load 0x2,0x4 013e e003 | | Load 0x0,0x3 013f 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0140 c407 | | Store 0x2,0x7 0141 e407 | | Load 0x2,0x7 0142 6803 |h | Jump_Zero 0x146 0143 4800 |H | Short_Literal 0x0 0144 a5fe | | Store_Unchecked 0x2,-0x2 0145 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0146 e5ff | | Load 0x2,-0x1 0147 a5fe | | Store_Unchecked 0x2,-0x2 0148 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0149 e402 | | Load 0x2,0x2 014a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 014b 00da | | Load_Top At_Offset_2 014c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 014d 027c | | | Execute Discrete,Less 014e 6809 |h | Jump_Zero 0x158 014f 00d9 | | Load_Top At_Offset_1 0150 e402 | | Load 0x2,0x2 0151 017d | } | Execute Record,Structure_Write 0152 00db | | Load_Top At_Offset_3 0153 a404 | | Store_Unchecked 0x2,0x4 0154 00da | | Load_Top At_Offset_2 0155 a406 | | Store_Unchecked 0x2,0x6 0156 e408 | | Load 0x2,0x8 0157 a405 | | Store_Unchecked 0x2,0x5 0158 e402 | | Load 0x2,0x2 0159 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 015a 00d8 | | Load_Top At_Offset_0 015b e001 | | Load 0x0,0x1 015c 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 015d 0260 | ` | Execute Discrete,In_Type 015e 7001 |p | Jump_Nonzero 0x160 015f 0801 | | Execute_Immediate Raise,0x1 0160 a5fe | | Store_Unchecked 0x2,-0x2 0161 e404 | | Load 0x2,0x4 0162 a5fd | | Store_Unchecked 0x2,-0x3 0163 e404 | | Load 0x2,0x4 0164 e004 | | Load 0x0,0x4 0165 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0166 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 0167 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0168 027f | | Execute Discrete,Equal 0169 6819 |h | Jump_Zero 0x183 016a e5fe | | Load 0x2,-0x2 016b 0aff | | Execute_Immediate Plus,-0x1 016c c5fe | | Store 0x2,-0x2 016d 4801 |H | Short_Literal 0x1 016e e004 | | Load 0x0,0x4 016f 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0170 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 0171 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0172 4801 |H | Short_Literal 0x1 0173 e402 | | Load 0x2,0x2 0174 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0175 e404 | | Load 0x2,0x4 0176 e402 | | Load 0x2,0x2 0177 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0178 0273 | s | Execute Discrete,Plus 0179 00d8 | | Load_Top At_Offset_0 017a e001 | | Load 0x0,0x1 017b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 017c 0260 | ` | Execute Discrete,In_Type 017d 7001 |p | Jump_Nonzero 0x17f 017e 0801 | | Execute_Immediate Raise,0x1 017f a5fd | | Store_Unchecked 0x2,-0x3 0180 e006 | | Load 0x0,0x6 0181 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0182 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0183 e406 | | Load 0x2,0x6 0184 e402 | | Load 0x2,0x2 0185 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0186 e402 | | Load 0x2,0x2 0187 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0188 09f8 | | Execute_Immediate Binary_Scale,-0x8 0189 00d8 | | Load_Top At_Offset_0 018a e005 | | Load 0x0,0x5 018b 1b11 | | Execute Package,Field_Read,Field_Number 0x11 018c 0260 | ` | Execute Discrete,In_Type 018d 7001 |p | Jump_Nonzero 0x18f 018e 0801 | | Execute_Immediate Raise,0x1 018f 4800 |H | Short_Literal 0x0 0190 e403 | | Load 0x2,0x3 0191 01d6 | | Execute Vector,Field_Write 0192 e402 | | Load 0x2,0x2 0193 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0194 e402 | | Load 0x2,0x2 0195 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0196 09f8 | | Execute_Immediate Binary_Scale,-0x8 0197 0908 | | Execute_Immediate Binary_Scale,0x8 0198 0272 | r | Execute Discrete,Minus 0199 00d8 | | Load_Top At_Offset_0 019a e005 | | Load 0x0,0x5 019b 1b11 | | Execute Package,Field_Read,Field_Number 0x11 019c 0260 | ` | Execute Discrete,In_Type 019d 7001 |p | Jump_Nonzero 0x19f 019e 0801 | | Execute_Immediate Raise,0x1 019f 4801 |H | Short_Literal 0x1 01a0 e403 | | Load 0x2,0x3 01a1 01d6 | | Execute Vector,Field_Write 01a2 e402 | | Load 0x2,0x2 01a3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01a4 09f8 | | Execute_Immediate Binary_Scale,-0x8 01a5 00d8 | | Load_Top At_Offset_0 01a6 e005 | | Load 0x0,0x5 01a7 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01a8 0260 | ` | Execute Discrete,In_Type 01a9 7001 |p | Jump_Nonzero 0x1ab 01aa 0801 | | Execute_Immediate Raise,0x1 01ab 4802 |H | Short_Literal 0x2 01ac e403 | | Load 0x2,0x3 01ad 01d6 | | Execute Vector,Field_Write 01ae e402 | | Load 0x2,0x2 01af 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01b0 e402 | | Load 0x2,0x2 01b1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01b2 09f8 | | Execute_Immediate Binary_Scale,-0x8 01b3 00d8 | | Load_Top At_Offset_0 01b4 00e2 | | Load_Encached Integer_Cache 01b5 0260 | ` | Execute Discrete,In_Type 01b6 7001 |p | Jump_Nonzero 0x1b8 01b7 0801 | | Execute_Immediate Raise,0x1 01b8 0908 | | Execute_Immediate Binary_Scale,0x8 01b9 0272 | r | Execute Discrete,Minus 01ba 00d8 | | Load_Top At_Offset_0 01bb e005 | | Load 0x0,0x5 01bc 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01bd 0260 | ` | Execute Discrete,In_Type 01be 7001 |p | Jump_Nonzero 0x1c0 01bf 0801 | | Execute_Immediate Raise,0x1 01c0 4803 |H | Short_Literal 0x3 01c1 e403 | | Load 0x2,0x3 01c2 01d6 | | Execute Vector,Field_Write 01c3 e407 | | Load 0x2,0x7 01c4 e403 | | Load 0x2,0x3 01c5 4801 |H | Short_Literal 0x1 01c6 e405 | | Load 0x2,0x5 01c7 e003 | | Load 0x0,0x3 01c8 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01c9 c407 | | Store 0x2,0x7 01ca e407 | | Load 0x2,0x7 01cb 6803 |h | Jump_Zero 0x1cf 01cc 4800 |H | Short_Literal 0x0 01cd a5fe | | Store_Unchecked 0x2,-0x2 01ce 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01cf e405 | | Load 0x2,0x5 01d0 e004 | | Load 0x0,0x4 01d1 1b16 | | Execute Package,Field_Read,Field_Number 0x16 01d2 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 01d3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01d4 027f | | Execute Discrete,Equal 01d5 6808 |h | Jump_Zero 0x1de 01d6 e402 | | Load 0x2,0x2 01d7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01d8 e004 | | Load 0x0,0x4 01d9 1b16 | | Execute Package,Field_Read,Field_Number 0x16 01da 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 01db 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01dc e006 | | Load 0x0,0x6 01dd 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01de 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01df 0000 | | .XXX[0x1] 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01ee | | .CONST 0x01ee ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0006 | | .CONST 0x0006 ; Number of locals 01e3 INIT_01e0: 01e3 00e2 | | Load_Encached Integer_Cache 01e4 e002 | | Load 0x0,0x2 01e5 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01e6 e001 | | Load 0x0,0x1 01e7 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 01e8 e001 | | Load 0x0,0x1 01e9 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 01ea 0322 | " | Declare_Variable Record 01eb e002 | | Load 0x0,0x2 01ec 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01ed 0337 | 7 | Declare_Variable Array 01ee BODY_01e0: 01ee 4800 |H | Short_Literal 0x0 01ef 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 01f0 00cf | | Action Mark_Auxiliary 01f1 4805 |H | Short_Literal 0x5 01f2 4800 |H | Short_Literal 0x0 01f3 0007 | | Action Break_Optional 01f4 00d8 | | Load_Top At_Offset_0 01f5 e5ff | | Load 0x2,-0x1 01f6 0227 | ' | Execute Access,All_Reference 01f7 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 01f8 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 01f9 01d5 | | Execute Vector,Field_Reference 01fa 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01fb 68d7 |h | Jump_Zero 0x2d3 01fc 00d8 | | Load_Top At_Offset_0 01fd e5ff | | Load 0x2,-0x1 01fe 0227 | ' | Execute Access,All_Reference 01ff 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0200 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0201 01d5 | | Execute Vector,Field_Reference 0202 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0203 e404 | | Load 0x2,0x4 0204 0272 | r | Execute Discrete,Minus 0205 e405 | | Load 0x2,0x5 0206 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0207 e004 | | Load 0x0,0x4 0208 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0209 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 020a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 020b e405 | | Load 0x2,0x5 020c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 020d 00d8 | | Load_Top At_Offset_0 020e e5ff | | Load 0x2,-0x1 020f 0227 | ' | Execute Access,All_Reference 0210 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0211 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0212 01d5 | | Execute Vector,Field_Reference 0213 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0214 e004 | | Load 0x0,0x4 0215 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0216 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 0217 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0218 00d8 | | Load_Top At_Offset_0 0219 e5ff | | Load 0x2,-0x1 021a 0227 | ' | Execute Access,All_Reference 021b 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 021c 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 021d 01d5 | | Execute Vector,Field_Reference 021e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 021f 00d8 | | Load_Top At_Offset_0 0220 e001 | | Load 0x0,0x1 0221 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0222 0260 | ` | Execute Discrete,In_Type 0223 7001 |p | Jump_Nonzero 0x225 0224 0801 | | Execute_Immediate Raise,0x1 0225 a404 | | Store_Unchecked 0x2,0x4 0226 4800 |H | Short_Literal 0x0 0227 00d9 | | Load_Top At_Offset_1 0228 e5ff | | Load 0x2,-0x1 0229 0227 | ' | Execute Access,All_Reference 022a 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 022b 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 022c 01d5 | | Execute Vector,Field_Reference 022d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 022e 4800 |H | Short_Literal 0x0 022f 00d9 | | Load_Top At_Offset_1 0230 e5ff | | Load 0x2,-0x1 0231 0227 | ' | Execute Access,All_Reference 0232 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0233 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0234 01d5 | | Execute Vector,Field_Reference 0235 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0236 e004 | | Load 0x0,0x4 0237 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0238 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 0239 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 023a 09f8 | | Execute_Immediate Binary_Scale,-0x8 023b 00d8 | | Load_Top At_Offset_0 023c e005 | | Load 0x0,0x5 023d 1b11 | | Execute Package,Field_Read,Field_Number 0x11 023e 0260 | ` | Execute Discrete,In_Type 023f 7001 |p | Jump_Nonzero 0x241 0240 0801 | | Execute_Immediate Raise,0x1 0241 4800 |H | Short_Literal 0x0 0242 e406 | | Load 0x2,0x6 0243 01d6 | | Execute Vector,Field_Write 0244 e004 | | Load 0x0,0x4 0245 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0246 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 0247 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0248 e004 | | Load 0x0,0x4 0249 1b16 | | Execute Package,Field_Read,Field_Number 0x16 024a 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 024b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 024c 09f8 | | Execute_Immediate Binary_Scale,-0x8 024d 0908 | | Execute_Immediate Binary_Scale,0x8 024e 0272 | r | Execute Discrete,Minus 024f 00d8 | | Load_Top At_Offset_0 0250 e005 | | Load 0x0,0x5 0251 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0252 0260 | ` | Execute Discrete,In_Type 0253 7001 |p | Jump_Nonzero 0x255 0254 0801 | | Execute_Immediate Raise,0x1 0255 4801 |H | Short_Literal 0x1 0256 e406 | | Load 0x2,0x6 0257 01d6 | | Execute Vector,Field_Write 0258 e004 | | Load 0x0,0x4 0259 1b16 | | Execute Package,Field_Read,Field_Number 0x16 025a 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 025b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 025c 09f8 | | Execute_Immediate Binary_Scale,-0x8 025d 00d8 | | Load_Top At_Offset_0 025e e005 | | Load 0x0,0x5 025f 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0260 0260 | ` | Execute Discrete,In_Type 0261 7001 |p | Jump_Nonzero 0x263 0262 0801 | | Execute_Immediate Raise,0x1 0263 4802 |H | Short_Literal 0x2 0264 e406 | | Load 0x2,0x6 0265 01d6 | | Execute Vector,Field_Write 0266 e004 | | Load 0x0,0x4 0267 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0268 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 0269 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 026a e004 | | Load 0x0,0x4 026b 1b16 | | Execute Package,Field_Read,Field_Number 0x16 026c 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 026d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 026e 09f8 | | Execute_Immediate Binary_Scale,-0x8 026f 00d8 | | Load_Top At_Offset_0 0270 00e2 | | Load_Encached Integer_Cache 0271 0260 | ` | Execute Discrete,In_Type 0272 7001 |p | Jump_Nonzero 0x274 0273 0801 | | Execute_Immediate Raise,0x1 0274 0908 | | Execute_Immediate Binary_Scale,0x8 0275 0272 | r | Execute Discrete,Minus 0276 00d8 | | Load_Top At_Offset_0 0277 e005 | | Load 0x0,0x5 0278 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0279 0260 | ` | Execute Discrete,In_Type 027a 7001 |p | Jump_Nonzero 0x27c 027b 0801 | | Execute_Immediate Raise,0x1 027c 4803 |H | Short_Literal 0x3 027d e406 | | Load 0x2,0x6 027e 01d6 | | Execute Vector,Field_Write 027f e403 | | Load 0x2,0x3 0280 e406 | | Load 0x2,0x6 0281 4801 |H | Short_Literal 0x1 0282 e004 | | Load 0x0,0x4 0283 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0284 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 0285 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0286 e003 | | Load 0x0,0x3 0287 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0288 c403 | | Store 0x2,0x3 0289 e405 | | Load 0x2,0x5 028a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 028b 09f8 | | Execute_Immediate Binary_Scale,-0x8 028c 00d8 | | Load_Top At_Offset_0 028d e005 | | Load 0x0,0x5 028e 1b11 | | Execute Package,Field_Read,Field_Number 0x11 028f 0260 | ` | Execute Discrete,In_Type 0290 7001 |p | Jump_Nonzero 0x292 0291 0801 | | Execute_Immediate Raise,0x1 0292 4800 |H | Short_Literal 0x0 0293 e406 | | Load 0x2,0x6 0294 01d6 | | Execute Vector,Field_Write 0295 e405 | | Load 0x2,0x5 0296 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0297 e405 | | Load 0x2,0x5 0298 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0299 09f8 | | Execute_Immediate Binary_Scale,-0x8 029a 0908 | | Execute_Immediate Binary_Scale,0x8 029b 0272 | r | Execute Discrete,Minus 029c 00d8 | | Load_Top At_Offset_0 029d e005 | | Load 0x0,0x5 029e 1b11 | | Execute Package,Field_Read,Field_Number 0x11 029f 0260 | ` | Execute Discrete,In_Type 02a0 7001 |p | Jump_Nonzero 0x2a2 02a1 0801 | | Execute_Immediate Raise,0x1 02a2 4801 |H | Short_Literal 0x1 02a3 e406 | | Load 0x2,0x6 02a4 01d6 | | Execute Vector,Field_Write 02a5 e405 | | Load 0x2,0x5 02a6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02a7 09f8 | | Execute_Immediate Binary_Scale,-0x8 02a8 00d8 | | Load_Top At_Offset_0 02a9 e005 | | Load 0x0,0x5 02aa 1b11 | | Execute Package,Field_Read,Field_Number 0x11 02ab 0260 | ` | Execute Discrete,In_Type 02ac 7001 |p | Jump_Nonzero 0x2ae 02ad 0801 | | Execute_Immediate Raise,0x1 02ae 4802 |H | Short_Literal 0x2 02af e406 | | Load 0x2,0x6 02b0 01d6 | | Execute Vector,Field_Write 02b1 e405 | | Load 0x2,0x5 02b2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02b3 e405 | | Load 0x2,0x5 02b4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02b5 09f8 | | Execute_Immediate Binary_Scale,-0x8 02b6 00d8 | | Load_Top At_Offset_0 02b7 00e2 | | Load_Encached Integer_Cache 02b8 0260 | ` | Execute Discrete,In_Type 02b9 7001 |p | Jump_Nonzero 0x2bb 02ba 0801 | | Execute_Immediate Raise,0x1 02bb 0908 | | Execute_Immediate Binary_Scale,0x8 02bc 0272 | r | Execute Discrete,Minus 02bd 00d8 | | Load_Top At_Offset_0 02be e005 | | Load 0x0,0x5 02bf 1b11 | | Execute Package,Field_Read,Field_Number 0x11 02c0 0260 | ` | Execute Discrete,In_Type 02c1 7001 |p | Jump_Nonzero 0x2c3 02c2 0801 | | Execute_Immediate Raise,0x1 02c3 4803 |H | Short_Literal 0x3 02c4 e406 | | Load 0x2,0x6 02c5 01d6 | | Execute Vector,Field_Write 02c6 e403 | | Load 0x2,0x3 02c7 e406 | | Load 0x2,0x6 02c8 4801 |H | Short_Literal 0x1 02c9 e004 | | Load 0x0,0x4 02ca 1b16 | | Execute Package,Field_Read,Field_Number 0x16 02cb 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 02cc 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02cd e003 | | Load 0x0,0x3 02ce 1816 | | Execute Package,Field_Execute,Field_Number 0x16 02cf c403 | | Store 0x2,0x3 02d0 e403 | | Load 0x2,0x3 02d1 6801 |h | Jump_Zero 0x2d3 02d2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02d3 00c8 | | Action Pop_Auxiliary_Range 02d4 3f1f |? | Loop_Increasing 0x1f4 02d5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02d6 0000 0000 | | .XXX[0x2] 02d8 ; -------------------------------------------------------------------------------------- 02d8 ; SUBPROGRAM 02d8 ; -------------------------------------------------------------------------------------- 02d8 02e4 | | .CONST 0x02e4 ; Address of begin 02d9 0004 | | .CONST 0x0004 ; Address of exception handler 02da 0006 | | .CONST 0x0006 ; Number of locals 02db INIT_02d8: 02db e001 | | Load 0x0,0x1 02dc 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02dd e001 | | Load 0x0,0x1 02de 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02df e001 | | Load 0x0,0x1 02e0 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02e1 e001 | | Load 0x0,0x1 02e2 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 02e3 00e2 | | Load_Encached Integer_Cache 02e4 BODY_02d8: 02e4 4800 |H | Short_Literal 0x0 02e5 a5fd | | Store_Unchecked 0x2,-0x3 02e6 e5ff | | Load 0x2,-0x1 02e7 0227 | ' | Execute Access,All_Reference 02e8 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 02e9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02ea 7005 |p | Jump_Nonzero 0x2f0 02eb 4801 |H | Short_Literal 0x1 02ec e5ff | | Load 0x2,-0x1 02ed 0227 | ' | Execute Access,All_Reference 02ee 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 02ef 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02f0 e004 | | Load 0x0,0x4 02f1 1b16 | | Execute Package,Field_Read,Field_Number 0x16 02f2 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 02f3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02f4 7007 |p | Jump_Nonzero 0x2fc 02f5 4801 |H | Short_Literal 0x1 02f6 a5fd | | Store_Unchecked 0x2,-0x3 02f7 4801 |H | Short_Literal 0x1 02f8 e5ff | | Load 0x2,-0x1 02f9 0227 | ' | Execute Access,All_Reference 02fa 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 02fb 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02fc e5ff | | Load 0x2,-0x1 02fd 0227 | ' | Execute Access,All_Reference 02fe 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 02ff 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0300 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0301 4800 |H | Short_Literal 0x0 0302 a403 | | Store_Unchecked 0x2,0x3 0303 00cf | | Action Mark_Auxiliary 0304 4805 |H | Short_Literal 0x5 0305 4800 |H | Short_Literal 0x0 0306 0007 | | Action Break_Optional 0307 e004 | | Load 0x0,0x4 0308 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0309 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 030a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 030b e404 | | Load 0x2,0x4 030c 027a | z | Execute Discrete,Less_Equal 030d 680d |h | Jump_Zero 0x31b 030e e402 | | Load 0x2,0x2 030f e405 | | Load 0x2,0x5 0310 e404 | | Load 0x2,0x4 0311 00d8 | | Load_Top At_Offset_0 0312 e001 | | Load 0x0,0x1 0313 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0314 0260 | ` | Execute Discrete,In_Type 0315 7001 |p | Jump_Nonzero 0x317 0316 0801 | | Execute_Immediate Raise,0x1 0317 820e | | Call 0x1,0xe 0318 c405 | | Store 0x2,0x5 0319 c402 | | Store 0x2,0x2 031a 7824 |x$ | Jump 0x33f 031b e404 | | Load 0x2,0x4 031c 00d8 | | Load_Top At_Offset_0 031d e001 | | Load 0x0,0x1 031e 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 031f 0260 | ` | Execute Discrete,In_Type 0320 7001 |p | Jump_Nonzero 0x322 0321 0801 | | Execute_Immediate Raise,0x1 0322 a405 | | Store_Unchecked 0x2,0x5 0323 e004 | | Load 0x0,0x4 0324 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0325 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 0326 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0327 e404 | | Load 0x2,0x4 0328 0272 | r | Execute Discrete,Minus 0329 e004 | | Load 0x0,0x4 032a 1b16 | | Execute Package,Field_Read,Field_Number 0x16 032b 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 032c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 032d e004 | | Load 0x0,0x4 032e 1b16 | | Execute Package,Field_Read,Field_Number 0x16 032f 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 0330 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0331 e004 | | Load 0x0,0x4 0332 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0333 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 0334 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0335 0273 | s | Execute Discrete,Plus 0336 00d8 | | Load_Top At_Offset_0 0337 e001 | | Load 0x0,0x1 0338 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0339 0260 | ` | Execute Discrete,In_Type 033a 7001 |p | Jump_Nonzero 0x33c 033b 0801 | | Execute_Immediate Raise,0x1 033c a402 | | Store_Unchecked 0x2,0x2 033d e006 | | Load 0x0,0x6 033e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 033f e404 | | Load 0x2,0x4 0340 e405 | | Load 0x2,0x5 0341 0272 | r | Execute Discrete,Minus 0342 00d8 | | Load_Top At_Offset_0 0343 e001 | | Load 0x0,0x1 0344 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0345 0260 | ` | Execute Discrete,In_Type 0346 7001 |p | Jump_Nonzero 0x348 0347 0801 | | Execute_Immediate Raise,0x1 0348 a404 | | Store_Unchecked 0x2,0x4 0349 e403 | | Load 0x2,0x3 034a e405 | | Load 0x2,0x5 034b 0273 | s | Execute Discrete,Plus 034c 00d8 | | Load_Top At_Offset_0 034d e001 | | Load 0x0,0x1 034e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 034f 0260 | ` | Execute Discrete,In_Type 0350 7001 |p | Jump_Nonzero 0x352 0351 0801 | | Execute_Immediate Raise,0x1 0352 a403 | | Store_Unchecked 0x2,0x3 0353 e405 | | Load 0x2,0x5 0354 6810 |h | Jump_Zero 0x365 0355 e402 | | Load 0x2,0x2 0356 00d9 | | Load_Top At_Offset_1 0357 e5ff | | Load 0x2,-0x1 0358 0227 | ' | Execute Access,All_Reference 0359 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 035a 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 035b 01d5 | | Execute Vector,Field_Reference 035c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 035d e403 | | Load 0x2,0x3 035e 00d9 | | Load_Top At_Offset_1 035f e5ff | | Load 0x2,-0x1 0360 0227 | ' | Execute Access,All_Reference 0361 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0362 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0363 01d5 | | Execute Vector,Field_Reference 0364 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0365 e404 | | Load 0x2,0x4 0366 7005 |p | Jump_Nonzero 0x36c 0367 4801 |H | Short_Literal 0x1 0368 e5ff | | Load 0x2,-0x1 0369 0227 | ' | Execute Access,All_Reference 036a 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 036b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 036c e5fe | | Load 0x2,-0x2 036d 6802 |h | Jump_Zero 0x370 036e 00d2 | | Pop_Control Pop_Count_2 036f 7802 |x | Jump 0x372 0370 00c8 | | Action Pop_Auxiliary_Range 0371 3f95 |? | Loop_Increasing 0x307 0372 00ce | | Action Pop_Auxiliary 0373 4801 |H | Short_Literal 0x1 0374 a5fd | | Store_Unchecked 0x2,-0x3 0375 e5ff | | Load 0x2,-0x1 0376 820f | | Call 0x1,0xf 0377 4801 |H | Short_Literal 0x1 0378 e5ff | | Load 0x2,-0x1 0379 0227 | ' | Execute Access,All_Reference 037a 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 037b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 037c 0000 0000 | | .BLANK 0000[0x4] 0380 ; -------------------------------------------------------------------------------------- 0380 ; SUBPROGRAM 0380 ; -------------------------------------------------------------------------------------- 0380 0389 | | .CONST 0x0389 ; Address of begin 0381 0004 | | .CONST 0x0004 ; Address of exception handler 0382 0004 | | .CONST 0x0004 ; Number of locals 0383 INIT_0380: 0383 e002 | | Load 0x0,0x2 0384 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0385 0337 | 7 | Declare_Variable Array 0386 00e2 | | Load_Encached Integer_Cache 0387 e002 | | Load 0x0,0x2 0388 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0389 BODY_0380: 0389 4800 |H | Short_Literal 0x0 038a a5fb | | Store_Unchecked 0x2,-0x5 038b 00d8 | | Load_Top At_Offset_0 038c 00db | | Load_Top At_Offset_3 038d 4801 |H | Short_Literal 0x1 038e e5ff | | Load 0x2,-0x1 038f e003 | | Load 0x0,0x3 0390 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0391 00d1 | | Pop_Control Pop_Count_1 0392 0059 | Y | Store_Top Discrete,At_Offset_1 0393 00d8 | | Load_Top At_Offset_0 0394 6803 |h | Jump_Zero 0x398 0395 4800 |H | Short_Literal 0x0 0396 a5fb | | Store_Unchecked 0x2,-0x5 0397 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0398 e5fd | | Load 0x2,-0x3 0399 4a00 |J | Short_Literal 0x200 039a 027e | ~ | Execute Discrete,Not_Equal 039b 6818 |h | Jump_Zero 0x3b4 039c 00cf | | Action Mark_Auxiliary 039d e5fe | | Load 0x2,-0x2 039e e5fd | | Load 0x2,-0x3 039f 0273 | s | Execute Discrete,Plus 03a0 0aff | | Execute_Immediate Plus,-0x1 03a1 00d8 | | Load_Top At_Offset_0 03a2 00e2 | | Load_Encached Integer_Cache 03a3 0260 | ` | Execute Discrete,In_Type 03a4 7001 |p | Jump_Nonzero 0x3a6 03a5 0801 | | Execute_Immediate Raise,0x1 03a6 e5fe | | Load 0x2,-0x2 03a7 0263 | c | Execute Discrete,Above_Bound 03a8 700a |p | Jump_Nonzero 0x3b3 03a9 00d8 | | Load_Top At_Offset_0 03aa e402 | | Load 0x2,0x2 03ab 01d7 | | Execute Vector,Field_Read 03ac 00d9 | | Load_Top At_Offset_1 03ad e5fe | | Load 0x2,-0x2 03ae 0272 | r | Execute Discrete,Minus 03af e5fc | | Load 0x2,-0x4 03b0 01d6 | | Execute Vector,Field_Write 03b1 00c8 | | Action Pop_Auxiliary_Range 03b2 3ff6 |? | Loop_Increasing 0x3a9 03b3 00ce | | Action Pop_Auxiliary 03b4 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03b5 0000 0000 | | .XXX[0x3] 03b7 0000 | | 03b8 ; -------------------------------------------------------------------------------------- 03b8 ; Debug Table 03b8 ; -------------------------------------------------------------------------------------- 03b8 0004 0010 | | .DEBUG4 0x0004,0x0010,0x8b4f,0x0000,0x0001,0x0000 03be 0000 0000 | | .BLANK 0000[0x12] 03d0 0080 | | .XXX[0x1] 03d1 0000 0000 | | .BLANK 0000[0x9] 03da 0480 0000 | | .XXX[0x5] 03dc 0000 0000 | | 03de 0100 | | 03df 0000 0000 | | .BLANK 0000[0x17] 03f6 0008 | | .XXX[0x1] 03f7 0000 0000 | | .BLANK 0000[0x9]