|
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_03bcfe
└─⟦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 0380 | | .CONST 0x0380 ; 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 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated 000f 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated 0011 029a 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call,Visible,Unelaborated 0013 00bf | | Action Accept_Activation 0014 029d 034b | K| Declare_Subprogram INIT_0348,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 0028 | ( | .CONST 0x0028 ; Address of begin 0021 0004 | | .CONST 0x0004 ; Address of exception handler 0022 0004 | | .CONST 0x0004 ; Number of locals 0023 INIT_0020: 0023 e002 | | Load 0x0,0x2 0024 0337 | 7 | Declare_Variable Array 0025 00e2 | | Load_Encached Integer_Cache 0026 e003 | | Load 0x0,0x3 0027 0007 | | Action Break_Optional 0028 BODY_0020: 0028 4801 |H | Short_Literal 0x1 0029 a5fb | | Store_Unchecked 0x2,-0x5 002a 00d8 | | Load_Top At_Offset_0 002b 00db | | Load_Top At_Offset_3 002c 4801 |H | Short_Literal 0x1 002d e5ff | | Load 0x2,-0x1 002e 8004 | | Call 0x0,0x4 002f 00d1 | | Pop_Control Pop_Count_1 0030 0059 | Y | Store_Top Discrete,At_Offset_1 0031 00d8 | | Load_Top At_Offset_0 0032 6803 |h | Jump_Zero 0x36 0033 4800 |H | Short_Literal 0x0 0034 a5fb | | Store_Unchecked 0x2,-0x5 0035 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0036 e5fd | | Load 0x2,-0x3 0037 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0038 e5fe | | Load 0x2,-0x2 0039 e402 | | Load 0x2,0x2 003a 01d5 | | Execute Vector,Field_Reference 003b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 003c e5fd | | Load 0x2,-0x3 003d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 003e e5fe | | Load 0x2,-0x2 003f e402 | | Load 0x2,0x2 0040 01d5 | | Execute Vector,Field_Reference 0041 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0042 e5fd | | Load 0x2,-0x3 0043 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0044 e5fe | | Load 0x2,-0x2 0045 e402 | | Load 0x2,0x2 0046 01d5 | | Execute Vector,Field_Reference 0047 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0048 00d8 | | Load_Top At_Offset_0 0049 00db | | Load_Top At_Offset_3 004a 4801 |H | Short_Literal 0x1 004b e5ff | | Load 0x2,-0x1 004c 8005 | | Call 0x0,0x5 004d 0059 | Y | Store_Top Discrete,At_Offset_1 004e 4505 |E | Exit_Suprogram New_Top_Offset 0x5 004f 0000 | | .XXX[0x1] 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 0068 | h | .CONST 0x0068 ; Address of begin 0051 0004 | | .CONST 0x0004 ; Address of exception handler 0052 000c | | .CONST 0x000c ; Number of locals 0053 INIT_0050: 0053 e006 | | Load 0x0,0x6 0054 0322 | " | Declare_Variable Record 0055 e007 | | Load 0x0,0x7 0056 0337 | 7 | Declare_Variable Array 0057 e008 | | Load 0x0,0x8 0058 0007 | | Action Break_Optional 0059 00d8 | | Load_Top At_Offset_0 005a 0007 | | Action Break_Optional 005b e009 | | Load 0x0,0x9 005c 0007 | | Action Break_Optional 005d e003 | | Load 0x0,0x3 005e 0007 | | Action Break_Optional 005f e008 | | Load 0x0,0x8 0060 0007 | | Action Break_Optional 0061 00d8 | | Load_Top At_Offset_0 0062 0007 | | Action Break_Optional 0063 e009 | | Load 0x0,0x9 0064 0007 | | Action Break_Optional 0065 e006 | | Load 0x0,0x6 0066 0322 | " | Declare_Variable Record 0067 00e2 | | Load_Encached Integer_Cache 0068 BODY_0050: 0068 4800 |H | Short_Literal 0x0 0069 a5fe | | Store_Unchecked 0x2,-0x2 006a e00a | | Load 0x0,0xa 006b 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 006c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 006d 7001 |p | Jump_Nonzero 0x6f 006e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 006f e00a | | Load 0x0,0xa 0070 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 0071 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0072 e402 | | Load 0x2,0x2 0073 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0074 4800 |H | Short_Literal 0x0 0075 e402 | | Load 0x2,0x2 0076 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0077 4800 |H | Short_Literal 0x0 0078 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0079 4800 |H | Short_Literal 0x0 007a 00da | | Load_Top At_Offset_2 007b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 007c 00cf | | Action Mark_Auxiliary 007d 784f |xO | Jump 0xcd 007e e402 | | Load 0x2,0x2 007f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0080 00d8 | | Load_Top At_Offset_0 0081 e009 | | Load 0x0,0x9 0082 0260 | ` | Execute Discrete,In_Type 0083 7001 |p | Jump_Nonzero 0x85 0084 0801 | | Execute_Immediate Raise,0x1 0085 a406 | | Store_Unchecked 0x2,0x6 0086 e404 | | Load 0x2,0x4 0087 a405 | | Store_Unchecked 0x2,0x5 0088 e402 | | Load 0x2,0x2 0089 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 008a a404 | | Store_Unchecked 0x2,0x4 008b e407 | | Load 0x2,0x7 008c e403 | | Load 0x2,0x3 008d 4801 |H | Short_Literal 0x1 008e e404 | | Load 0x2,0x4 008f 800b | | Call 0x0,0xb 0090 00d1 | | Pop_Control Pop_Count_1 0091 c407 | | Store 0x2,0x7 0092 e407 | | Load 0x2,0x7 0093 6801 |h | Jump_Zero 0x95 0094 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0095 4800 |H | Short_Literal 0x0 0096 e403 | | Load 0x2,0x3 0097 01d7 | | Execute Vector,Field_Read 0098 0908 | | Execute_Immediate Binary_Scale,0x8 0099 4801 |H | Short_Literal 0x1 009a e403 | | Load 0x2,0x3 009b 01d7 | | Execute Vector,Field_Read 009c 0273 | s | Execute Discrete,Plus 009d e402 | | Load 0x2,0x2 009e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 009f 4802 |H | Short_Literal 0x2 00a0 e403 | | Load 0x2,0x3 00a1 01d7 | | Execute Vector,Field_Read 00a2 0908 | | Execute_Immediate Binary_Scale,0x8 00a3 4803 |H | Short_Literal 0x3 00a4 e403 | | Load 0x2,0x3 00a5 01d7 | | Execute Vector,Field_Read 00a6 0273 | s | Execute Discrete,Plus 00a7 00d8 | | Load_Top At_Offset_0 00a8 e008 | | Load 0x0,0x8 00a9 0260 | ` | Execute Discrete,In_Type 00aa 7001 |p | Jump_Nonzero 0xac 00ab 0801 | | Execute_Immediate Raise,0x1 00ac e402 | | Load 0x2,0x2 00ad 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00ae e402 | | Load 0x2,0x2 00af 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00b0 7001 |p | Jump_Nonzero 0xb2 00b1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00b2 e402 | | Load 0x2,0x2 00b3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00b4 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 00b5 e404 | | Load 0x2,0x4 00b6 e00a | | Load 0x0,0xa 00b7 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 00b8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00b9 027f | | Execute Discrete,Equal 00ba 6803 |h | Jump_Zero 0xbe 00bb 00d9 | | Load_Top At_Offset_1 00bc 0aff | | Execute_Immediate Plus,-0x1 00bd 005a | Z | Store_Top Discrete,At_Offset_2 00be 00d9 | | Load_Top At_Offset_1 00bf 00db | | Load_Top At_Offset_3 00c0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00c1 027d | } | Execute Discrete,Greater 00c2 6809 |h | Jump_Zero 0xcc 00c3 e404 | | Load 0x2,0x4 00c4 a409 | | Store_Unchecked 0x2,0x9 00c5 e402 | | Load 0x2,0x2 00c6 00db | | Load_Top At_Offset_3 00c7 017d | } | Execute Record,Structure_Write 00c8 e405 | | Load 0x2,0x5 00c9 a408 | | Store_Unchecked 0x2,0x8 00ca e406 | | Load 0x2,0x6 00cb a40a | | Store_Unchecked 0x2,0xa 00cc 00c9 | | Action Pop_Auxiliary_Loop 00cd 00d9 | | Load_Top At_Offset_1 00ce e5ff | | Load 0x2,-0x1 00cf 027c | | | Execute Discrete,Less 00d0 e402 | | Load 0x2,0x2 00d1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00d2 0e00 | | Execute_Immediate Not_Equal,0x0 00d3 0279 | y | Execute Discrete,And 00d4 77a9 |w | Jump_Nonzero 0x7e 00d5 00ce | | Action Pop_Auxiliary 00d6 e402 | | Load 0x2,0x2 00d7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00d8 e5ff | | Load 0x2,-0x1 00d9 027d | } | Execute Discrete,Greater 00da 685b |h[ | Jump_Zero 0x136 00db e402 | | Load 0x2,0x2 00dc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00dd e5ff | | Load 0x2,-0x1 00de 0272 | r | Execute Discrete,Minus 00df e402 | | Load 0x2,0x2 00e0 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00e1 e404 | | Load 0x2,0x4 00e2 e402 | | Load 0x2,0x2 00e3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00e4 0273 | s | Execute Discrete,Plus 00e5 00d8 | | Load_Top At_Offset_0 00e6 e008 | | Load 0x0,0x8 00e7 0260 | ` | Execute Discrete,In_Type 00e8 7001 |p | Jump_Nonzero 0xea 00e9 0801 | | Execute_Immediate Raise,0x1 00ea a5fd | | Store_Unchecked 0x2,-0x3 00eb e402 | | Load 0x2,0x2 00ec 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00ed 09f8 | | Execute_Immediate Binary_Scale,-0x8 00ee 00d8 | | Load_Top At_Offset_0 00ef e00c | | Load 0x0,0xc 00f0 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00f1 0260 | ` | Execute Discrete,In_Type 00f2 7001 |p | Jump_Nonzero 0xf4 00f3 0801 | | Execute_Immediate Raise,0x1 00f4 4800 |H | Short_Literal 0x0 00f5 e403 | | Load 0x2,0x3 00f6 01d6 | | Execute Vector,Field_Write 00f7 e402 | | Load 0x2,0x2 00f8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00f9 e402 | | Load 0x2,0x2 00fa 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00fb 09f8 | | Execute_Immediate Binary_Scale,-0x8 00fc 0908 | | Execute_Immediate Binary_Scale,0x8 00fd 0272 | r | Execute Discrete,Minus 00fe 00d8 | | Load_Top At_Offset_0 00ff e00c | | Load 0x0,0xc 0100 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0101 0260 | ` | Execute Discrete,In_Type 0102 7001 |p | Jump_Nonzero 0x104 0103 0801 | | Execute_Immediate Raise,0x1 0104 4801 |H | Short_Literal 0x1 0105 e403 | | Load 0x2,0x3 0106 01d6 | | Execute Vector,Field_Write 0107 e402 | | Load 0x2,0x2 0108 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0109 09f8 | | Execute_Immediate Binary_Scale,-0x8 010a 00d8 | | Load_Top At_Offset_0 010b e00c | | Load 0x0,0xc 010c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 010d 0260 | ` | Execute Discrete,In_Type 010e 7001 |p | Jump_Nonzero 0x110 010f 0801 | | Execute_Immediate Raise,0x1 0110 4802 |H | Short_Literal 0x2 0111 e403 | | Load 0x2,0x3 0112 01d6 | | Execute Vector,Field_Write 0113 e402 | | Load 0x2,0x2 0114 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0115 e402 | | Load 0x2,0x2 0116 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0117 09f8 | | Execute_Immediate Binary_Scale,-0x8 0118 00d8 | | Load_Top At_Offset_0 0119 00e2 | | Load_Encached Integer_Cache 011a 0260 | ` | Execute Discrete,In_Type 011b 7001 |p | Jump_Nonzero 0x11d 011c 0801 | | Execute_Immediate Raise,0x1 011d 0908 | | Execute_Immediate Binary_Scale,0x8 011e 0272 | r | Execute Discrete,Minus 011f 00d8 | | Load_Top At_Offset_0 0120 e00c | | Load 0x0,0xc 0121 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0122 0260 | ` | Execute Discrete,In_Type 0123 7001 |p | Jump_Nonzero 0x125 0124 0801 | | Execute_Immediate Raise,0x1 0125 4803 |H | Short_Literal 0x3 0126 e403 | | Load 0x2,0x3 0127 01d6 | | Execute Vector,Field_Write 0128 e407 | | Load 0x2,0x7 0129 e403 | | Load 0x2,0x3 012a 4801 |H | Short_Literal 0x1 012b e404 | | Load 0x2,0x4 012c 800d | | Call 0x0,0xd 012d c407 | | Store 0x2,0x7 012e e407 | | Load 0x2,0x7 012f 6803 |h | Jump_Zero 0x133 0130 4800 |H | Short_Literal 0x0 0131 a5fe | | Store_Unchecked 0x2,-0x2 0132 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0133 e5ff | | Load 0x2,-0x1 0134 a5fe | | Store_Unchecked 0x2,-0x2 0135 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0136 e402 | | Load 0x2,0x2 0137 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0138 00da | | Load_Top At_Offset_2 0139 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 013a 027c | | | Execute Discrete,Less 013b 6809 |h | Jump_Zero 0x145 013c 00d9 | | Load_Top At_Offset_1 013d e402 | | Load 0x2,0x2 013e 017d | } | Execute Record,Structure_Write 013f 00db | | Load_Top At_Offset_3 0140 a404 | | Store_Unchecked 0x2,0x4 0141 00da | | Load_Top At_Offset_2 0142 a406 | | Store_Unchecked 0x2,0x6 0143 e408 | | Load 0x2,0x8 0144 a405 | | Store_Unchecked 0x2,0x5 0145 e402 | | Load 0x2,0x2 0146 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0147 00d8 | | Load_Top At_Offset_0 0148 e009 | | Load 0x0,0x9 0149 0260 | ` | Execute Discrete,In_Type 014a 7001 |p | Jump_Nonzero 0x14c 014b 0801 | | Execute_Immediate Raise,0x1 014c a5fe | | Store_Unchecked 0x2,-0x2 014d e404 | | Load 0x2,0x4 014e a5fd | | Store_Unchecked 0x2,-0x3 014f e404 | | Load 0x2,0x4 0150 e00a | | Load 0x0,0xa 0151 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 0152 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0153 027f | | Execute Discrete,Equal 0154 6816 |h | Jump_Zero 0x16b 0155 e5fe | | Load 0x2,-0x2 0156 0aff | | Execute_Immediate Plus,-0x1 0157 c5fe | | Store 0x2,-0x2 0158 4801 |H | Short_Literal 0x1 0159 e00a | | Load 0x0,0xa 015a 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 015b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 015c 4801 |H | Short_Literal 0x1 015d e402 | | Load 0x2,0x2 015e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 015f e404 | | Load 0x2,0x4 0160 e402 | | Load 0x2,0x2 0161 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0162 0273 | s | Execute Discrete,Plus 0163 00d8 | | Load_Top At_Offset_0 0164 e008 | | Load 0x0,0x8 0165 0260 | ` | Execute Discrete,In_Type 0166 7001 |p | Jump_Nonzero 0x168 0167 0801 | | Execute_Immediate Raise,0x1 0168 a5fd | | Store_Unchecked 0x2,-0x3 0169 800e | | Call 0x0,0xe 016a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 016b e406 | | Load 0x2,0x6 016c e402 | | Load 0x2,0x2 016d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 016e e402 | | Load 0x2,0x2 016f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0170 09f8 | | Execute_Immediate Binary_Scale,-0x8 0171 00d8 | | Load_Top At_Offset_0 0172 e00c | | Load 0x0,0xc 0173 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0174 0260 | ` | Execute Discrete,In_Type 0175 7001 |p | Jump_Nonzero 0x177 0176 0801 | | Execute_Immediate Raise,0x1 0177 4800 |H | Short_Literal 0x0 0178 e403 | | Load 0x2,0x3 0179 01d6 | | Execute Vector,Field_Write 017a e402 | | Load 0x2,0x2 017b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 017c e402 | | Load 0x2,0x2 017d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 017e 09f8 | | Execute_Immediate Binary_Scale,-0x8 017f 0908 | | Execute_Immediate Binary_Scale,0x8 0180 0272 | r | Execute Discrete,Minus 0181 00d8 | | Load_Top At_Offset_0 0182 e00c | | Load 0x0,0xc 0183 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0184 0260 | ` | Execute Discrete,In_Type 0185 7001 |p | Jump_Nonzero 0x187 0186 0801 | | Execute_Immediate Raise,0x1 0187 4801 |H | Short_Literal 0x1 0188 e403 | | Load 0x2,0x3 0189 01d6 | | Execute Vector,Field_Write 018a e402 | | Load 0x2,0x2 018b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 018c 09f8 | | Execute_Immediate Binary_Scale,-0x8 018d 00d8 | | Load_Top At_Offset_0 018e e00c | | Load 0x0,0xc 018f 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0190 0260 | ` | Execute Discrete,In_Type 0191 7001 |p | Jump_Nonzero 0x193 0192 0801 | | Execute_Immediate Raise,0x1 0193 4802 |H | Short_Literal 0x2 0194 e403 | | Load 0x2,0x3 0195 01d6 | | Execute Vector,Field_Write 0196 e402 | | Load 0x2,0x2 0197 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0198 e402 | | Load 0x2,0x2 0199 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 019a 09f8 | | Execute_Immediate Binary_Scale,-0x8 019b 00d8 | | Load_Top At_Offset_0 019c 00e2 | | Load_Encached Integer_Cache 019d 0260 | ` | Execute Discrete,In_Type 019e 7001 |p | Jump_Nonzero 0x1a0 019f 0801 | | Execute_Immediate Raise,0x1 01a0 0908 | | Execute_Immediate Binary_Scale,0x8 01a1 0272 | r | Execute Discrete,Minus 01a2 00d8 | | Load_Top At_Offset_0 01a3 e00c | | Load 0x0,0xc 01a4 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01a5 0260 | ` | Execute Discrete,In_Type 01a6 7001 |p | Jump_Nonzero 0x1a8 01a7 0801 | | Execute_Immediate Raise,0x1 01a8 4803 |H | Short_Literal 0x3 01a9 e403 | | Load 0x2,0x3 01aa 01d6 | | Execute Vector,Field_Write 01ab e407 | | Load 0x2,0x7 01ac e403 | | Load 0x2,0x3 01ad 4801 |H | Short_Literal 0x1 01ae e405 | | Load 0x2,0x5 01af 800d | | Call 0x0,0xd 01b0 c407 | | Store 0x2,0x7 01b1 e407 | | Load 0x2,0x7 01b2 6803 |h | Jump_Zero 0x1b6 01b3 4800 |H | Short_Literal 0x0 01b4 a5fe | | Store_Unchecked 0x2,-0x2 01b5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01b6 e405 | | Load 0x2,0x5 01b7 e00a | | Load 0x0,0xa 01b8 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 01b9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01ba 027f | | Execute Discrete,Equal 01bb 6806 |h | Jump_Zero 0x1c2 01bc e402 | | Load 0x2,0x2 01bd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01be e00a | | Load 0x0,0xa 01bf 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 01c0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01c1 800e | | Call 0x0,0xe 01c2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01c3 0000 0000 | | .BLANK 0000[0x5] 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01d4 | | .CONST 0x01d4 ; Address of begin 01c9 0004 | | .CONST 0x0004 ; Address of exception handler 01ca 0006 | | .CONST 0x0006 ; Number of locals 01cb INIT_01c8: 01cb 00e2 | | Load_Encached Integer_Cache 01cc e003 | | Load 0x0,0x3 01cd 0007 | | Action Break_Optional 01ce e009 | | Load 0x0,0x9 01cf 0007 | | Action Break_Optional 01d0 e006 | | Load 0x0,0x6 01d1 0322 | " | Declare_Variable Record 01d2 e007 | | Load 0x0,0x7 01d3 0337 | 7 | Declare_Variable Array 01d4 BODY_01c8: 01d4 4800 |H | Short_Literal 0x0 01d5 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 01d6 00cf | | Action Mark_Auxiliary 01d7 4805 |H | Short_Literal 0x5 01d8 4800 |H | Short_Literal 0x0 01d9 0007 | | Action Break_Optional 01da 00d8 | | Load_Top At_Offset_0 01db e5ff | | Load 0x2,-0x1 01dc 0227 | ' | Execute Access,All_Reference 01dd 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 01de 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 01df 01d5 | | Execute Vector,Field_Reference 01e0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01e1 68ca |h | Jump_Zero 0x2ac 01e2 00d8 | | Load_Top At_Offset_0 01e3 e5ff | | Load 0x2,-0x1 01e4 0227 | ' | Execute Access,All_Reference 01e5 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 01e6 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 01e7 01d5 | | Execute Vector,Field_Reference 01e8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01e9 e404 | | Load 0x2,0x4 01ea 0272 | r | Execute Discrete,Minus 01eb e405 | | Load 0x2,0x5 01ec 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01ed e00a | | Load 0x0,0xa 01ee 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 01ef 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01f0 e405 | | Load 0x2,0x5 01f1 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01f2 00d8 | | Load_Top At_Offset_0 01f3 e5ff | | Load 0x2,-0x1 01f4 0227 | ' | Execute Access,All_Reference 01f5 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 01f6 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 01f7 01d5 | | Execute Vector,Field_Reference 01f8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01f9 e00a | | Load 0x0,0xa 01fa 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 01fb 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 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 00d8 | | Load_Top At_Offset_0 0204 e009 | | Load 0x0,0x9 0205 0260 | ` | Execute Discrete,In_Type 0206 7001 |p | Jump_Nonzero 0x208 0207 0801 | | Execute_Immediate Raise,0x1 0208 a404 | | Store_Unchecked 0x2,0x4 0209 4800 |H | Short_Literal 0x0 020a 00d9 | | Load_Top At_Offset_1 020b e5ff | | Load 0x2,-0x1 020c 0227 | ' | Execute Access,All_Reference 020d 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 020e 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 020f 01d5 | | Execute Vector,Field_Reference 0210 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0211 4800 |H | Short_Literal 0x0 0212 00d9 | | Load_Top At_Offset_1 0213 e5ff | | Load 0x2,-0x1 0214 0227 | ' | Execute Access,All_Reference 0215 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0216 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0217 01d5 | | Execute Vector,Field_Reference 0218 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0219 e00a | | Load 0x0,0xa 021a 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 021b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 021c 09f8 | | Execute_Immediate Binary_Scale,-0x8 021d 00d8 | | Load_Top At_Offset_0 021e e00c | | Load 0x0,0xc 021f 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0220 0260 | ` | Execute Discrete,In_Type 0221 7001 |p | Jump_Nonzero 0x223 0222 0801 | | Execute_Immediate Raise,0x1 0223 4800 |H | Short_Literal 0x0 0224 e406 | | Load 0x2,0x6 0225 01d6 | | Execute Vector,Field_Write 0226 e00a | | Load 0x0,0xa 0227 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 0228 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0229 e00a | | Load 0x0,0xa 022a 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 022b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 022c 09f8 | | Execute_Immediate Binary_Scale,-0x8 022d 0908 | | Execute_Immediate Binary_Scale,0x8 022e 0272 | r | Execute Discrete,Minus 022f 00d8 | | Load_Top At_Offset_0 0230 e00c | | Load 0x0,0xc 0231 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0232 0260 | ` | Execute Discrete,In_Type 0233 7001 |p | Jump_Nonzero 0x235 0234 0801 | | Execute_Immediate Raise,0x1 0235 4801 |H | Short_Literal 0x1 0236 e406 | | Load 0x2,0x6 0237 01d6 | | Execute Vector,Field_Write 0238 e00a | | Load 0x0,0xa 0239 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 023a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 023b 09f8 | | Execute_Immediate Binary_Scale,-0x8 023c 00d8 | | Load_Top At_Offset_0 023d e00c | | Load 0x0,0xc 023e 1b11 | | Execute Package,Field_Read,Field_Number 0x11 023f 0260 | ` | Execute Discrete,In_Type 0240 7001 |p | Jump_Nonzero 0x242 0241 0801 | | Execute_Immediate Raise,0x1 0242 4802 |H | Short_Literal 0x2 0243 e406 | | Load 0x2,0x6 0244 01d6 | | Execute Vector,Field_Write 0245 e00a | | Load 0x0,0xa 0246 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 0247 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0248 e00a | | Load 0x0,0xa 0249 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 024a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 024b 09f8 | | Execute_Immediate Binary_Scale,-0x8 024c 00d8 | | Load_Top At_Offset_0 024d 00e2 | | Load_Encached Integer_Cache 024e 0260 | ` | Execute Discrete,In_Type 024f 7001 |p | Jump_Nonzero 0x251 0250 0801 | | Execute_Immediate Raise,0x1 0251 0908 | | Execute_Immediate Binary_Scale,0x8 0252 0272 | r | Execute Discrete,Minus 0253 00d8 | | Load_Top At_Offset_0 0254 e00c | | Load 0x0,0xc 0255 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0256 0260 | ` | Execute Discrete,In_Type 0257 7001 |p | Jump_Nonzero 0x259 0258 0801 | | Execute_Immediate Raise,0x1 0259 4803 |H | Short_Literal 0x3 025a e406 | | Load 0x2,0x6 025b 01d6 | | Execute Vector,Field_Write 025c e403 | | Load 0x2,0x3 025d e406 | | Load 0x2,0x6 025e 4801 |H | Short_Literal 0x1 025f e00a | | Load 0x0,0xa 0260 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 0261 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0262 800d | | Call 0x0,0xd 0263 c403 | | Store 0x2,0x3 0264 e405 | | Load 0x2,0x5 0265 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0266 09f8 | | Execute_Immediate Binary_Scale,-0x8 0267 00d8 | | Load_Top At_Offset_0 0268 e00c | | Load 0x0,0xc 0269 1b11 | | Execute Package,Field_Read,Field_Number 0x11 026a 0260 | ` | Execute Discrete,In_Type 026b 7001 |p | Jump_Nonzero 0x26d 026c 0801 | | Execute_Immediate Raise,0x1 026d 4800 |H | Short_Literal 0x0 026e e406 | | Load 0x2,0x6 026f 01d6 | | Execute Vector,Field_Write 0270 e405 | | Load 0x2,0x5 0271 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0272 e405 | | Load 0x2,0x5 0273 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0274 09f8 | | Execute_Immediate Binary_Scale,-0x8 0275 0908 | | Execute_Immediate Binary_Scale,0x8 0276 0272 | r | Execute Discrete,Minus 0277 00d8 | | Load_Top At_Offset_0 0278 e00c | | Load 0x0,0xc 0279 1b11 | | Execute Package,Field_Read,Field_Number 0x11 027a 0260 | ` | Execute Discrete,In_Type 027b 7001 |p | Jump_Nonzero 0x27d 027c 0801 | | Execute_Immediate Raise,0x1 027d 4801 |H | Short_Literal 0x1 027e e406 | | Load 0x2,0x6 027f 01d6 | | Execute Vector,Field_Write 0280 e405 | | Load 0x2,0x5 0281 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0282 09f8 | | Execute_Immediate Binary_Scale,-0x8 0283 00d8 | | Load_Top At_Offset_0 0284 e00c | | Load 0x0,0xc 0285 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0286 0260 | ` | Execute Discrete,In_Type 0287 7001 |p | Jump_Nonzero 0x289 0288 0801 | | Execute_Immediate Raise,0x1 0289 4802 |H | Short_Literal 0x2 028a e406 | | Load 0x2,0x6 028b 01d6 | | Execute Vector,Field_Write 028c e405 | | Load 0x2,0x5 028d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 028e e405 | | Load 0x2,0x5 028f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0290 09f8 | | Execute_Immediate Binary_Scale,-0x8 0291 00d8 | | Load_Top At_Offset_0 0292 00e2 | | Load_Encached Integer_Cache 0293 0260 | ` | Execute Discrete,In_Type 0294 7001 |p | Jump_Nonzero 0x296 0295 0801 | | Execute_Immediate Raise,0x1 0296 0908 | | Execute_Immediate Binary_Scale,0x8 0297 0272 | r | Execute Discrete,Minus 0298 00d8 | | Load_Top At_Offset_0 0299 e00c | | Load 0x0,0xc 029a 1b11 | | Execute Package,Field_Read,Field_Number 0x11 029b 0260 | ` | Execute Discrete,In_Type 029c 7001 |p | Jump_Nonzero 0x29e 029d 0801 | | Execute_Immediate Raise,0x1 029e 4803 |H | Short_Literal 0x3 029f e406 | | Load 0x2,0x6 02a0 01d6 | | Execute Vector,Field_Write 02a1 e403 | | Load 0x2,0x3 02a2 e406 | | Load 0x2,0x6 02a3 4801 |H | Short_Literal 0x1 02a4 e00a | | Load 0x0,0xa 02a5 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 02a6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02a7 800d | | Call 0x0,0xd 02a8 c403 | | Store 0x2,0x3 02a9 e403 | | Load 0x2,0x3 02aa 6801 |h | Jump_Zero 0x2ac 02ab 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02ac 00c8 | | Action Pop_Auxiliary_Range 02ad 3f2c |?, | Loop_Increasing 0x1da 02ae 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02af 0000 | | .XXX[0x1] 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; SUBPROGRAM 02b0 ; -------------------------------------------------------------------------------------- 02b0 02bc | | .CONST 0x02bc ; Address of begin 02b1 0004 | | .CONST 0x0004 ; Address of exception handler 02b2 0006 | | .CONST 0x0006 ; Number of locals 02b3 INIT_02b0: 02b3 e008 | | Load 0x0,0x8 02b4 0007 | | Action Break_Optional 02b5 00d8 | | Load_Top At_Offset_0 02b6 0007 | | Action Break_Optional 02b7 e008 | | Load 0x0,0x8 02b8 0007 | | Action Break_Optional 02b9 e009 | | Load 0x0,0x9 02ba 0007 | | Action Break_Optional 02bb 00e2 | | Load_Encached Integer_Cache 02bc BODY_02b0: 02bc 4800 |H | Short_Literal 0x0 02bd a5fd | | Store_Unchecked 0x2,-0x3 02be e5ff | | Load 0x2,-0x1 02bf 0227 | ' | Execute Access,All_Reference 02c0 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 02c1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02c2 7005 |p | Jump_Nonzero 0x2c8 02c3 4801 |H | Short_Literal 0x1 02c4 e5ff | | Load 0x2,-0x1 02c5 0227 | ' | Execute Access,All_Reference 02c6 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 02c7 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02c8 e00a | | Load 0x0,0xa 02c9 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 02ca 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02cb 7007 |p | Jump_Nonzero 0x2d3 02cc 4801 |H | Short_Literal 0x1 02cd a5fd | | Store_Unchecked 0x2,-0x3 02ce 4801 |H | Short_Literal 0x1 02cf e5ff | | Load 0x2,-0x1 02d0 0227 | ' | Execute Access,All_Reference 02d1 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 02d2 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02d3 e5ff | | Load 0x2,-0x1 02d4 0227 | ' | Execute Access,All_Reference 02d5 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 02d6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02d7 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 02d8 4800 |H | Short_Literal 0x0 02d9 a403 | | Store_Unchecked 0x2,0x3 02da 00cf | | Action Mark_Auxiliary 02db 4805 |H | Short_Literal 0x5 02dc 4800 |H | Short_Literal 0x0 02dd 0007 | | Action Break_Optional 02de e00a | | Load 0x0,0xa 02df 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 02e0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02e1 e404 | | Load 0x2,0x4 02e2 027a | z | Execute Discrete,Less_Equal 02e3 680c |h | Jump_Zero 0x2f0 02e4 e402 | | Load 0x2,0x2 02e5 e405 | | Load 0x2,0x5 02e6 e404 | | Load 0x2,0x4 02e7 00d8 | | Load_Top At_Offset_0 02e8 e009 | | Load 0x0,0x9 02e9 0260 | ` | Execute Discrete,In_Type 02ea 7001 |p | Jump_Nonzero 0x2ec 02eb 0801 | | Execute_Immediate Raise,0x1 02ec 820e | | Call 0x1,0xe 02ed c405 | | Store 0x2,0x5 02ee c402 | | Store 0x2,0x2 02ef 781d |x | Jump 0x30d 02f0 e404 | | Load 0x2,0x4 02f1 00d8 | | Load_Top At_Offset_0 02f2 e009 | | Load 0x0,0x9 02f3 0260 | ` | Execute Discrete,In_Type 02f4 7001 |p | Jump_Nonzero 0x2f6 02f5 0801 | | Execute_Immediate Raise,0x1 02f6 a405 | | Store_Unchecked 0x2,0x5 02f7 e00a | | Load 0x0,0xa 02f8 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 02f9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02fa e404 | | Load 0x2,0x4 02fb 0272 | r | Execute Discrete,Minus 02fc e00a | | Load 0x0,0xa 02fd 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 02fe 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 02ff e00a | | Load 0x0,0xa 0300 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 0301 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0302 e00a | | Load 0x0,0xa 0303 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 0304 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0305 0273 | s | Execute Discrete,Plus 0306 00d8 | | Load_Top At_Offset_0 0307 e008 | | Load 0x0,0x8 0308 0260 | ` | Execute Discrete,In_Type 0309 7001 |p | Jump_Nonzero 0x30b 030a 0801 | | Execute_Immediate Raise,0x1 030b a402 | | Store_Unchecked 0x2,0x2 030c 800e | | Call 0x0,0xe 030d e404 | | Load 0x2,0x4 030e e405 | | Load 0x2,0x5 030f 0272 | r | Execute Discrete,Minus 0310 00d8 | | Load_Top At_Offset_0 0311 e008 | | Load 0x0,0x8 0312 0260 | ` | Execute Discrete,In_Type 0313 7001 |p | Jump_Nonzero 0x315 0314 0801 | | Execute_Immediate Raise,0x1 0315 a404 | | Store_Unchecked 0x2,0x4 0316 e403 | | Load 0x2,0x3 0317 e405 | | Load 0x2,0x5 0318 0273 | s | Execute Discrete,Plus 0319 00d8 | | Load_Top At_Offset_0 031a e008 | | Load 0x0,0x8 031b 0260 | ` | Execute Discrete,In_Type 031c 7001 |p | Jump_Nonzero 0x31e 031d 0801 | | Execute_Immediate Raise,0x1 031e a403 | | Store_Unchecked 0x2,0x3 031f e405 | | Load 0x2,0x5 0320 6810 |h | Jump_Zero 0x331 0321 e402 | | Load 0x2,0x2 0322 00d9 | | Load_Top At_Offset_1 0323 e5ff | | Load 0x2,-0x1 0324 0227 | ' | Execute Access,All_Reference 0325 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0326 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0327 01d5 | | Execute Vector,Field_Reference 0328 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0329 e403 | | Load 0x2,0x3 032a 00d9 | | Load_Top At_Offset_1 032b e5ff | | Load 0x2,-0x1 032c 0227 | ' | Execute Access,All_Reference 032d 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 032e 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 032f 01d5 | | Execute Vector,Field_Reference 0330 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0331 e404 | | Load 0x2,0x4 0332 7005 |p | Jump_Nonzero 0x338 0333 4801 |H | Short_Literal 0x1 0334 e5ff | | Load 0x2,-0x1 0335 0227 | ' | Execute Access,All_Reference 0336 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 0337 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0338 e5fe | | Load 0x2,-0x2 0339 6802 |h | Jump_Zero 0x33c 033a 00d2 | | Pop_Control Pop_Count_2 033b 7802 |x | Jump 0x33e 033c 00c8 | | Action Pop_Auxiliary_Range 033d 3fa0 |? | Loop_Increasing 0x2de 033e 00ce | | Action Pop_Auxiliary 033f 4801 |H | Short_Literal 0x1 0340 a5fd | | Store_Unchecked 0x2,-0x3 0341 e5ff | | Load 0x2,-0x1 0342 820f | | Call 0x1,0xf 0343 4801 |H | Short_Literal 0x1 0344 e5ff | | Load 0x2,-0x1 0345 0227 | ' | Execute Access,All_Reference 0346 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 0347 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0348 ; -------------------------------------------------------------------------------------- 0348 ; SUBPROGRAM 0348 ; -------------------------------------------------------------------------------------- 0348 0350 | P | .CONST 0x0350 ; Address of begin 0349 0004 | | .CONST 0x0004 ; Address of exception handler 034a 0004 | | .CONST 0x0004 ; Number of locals 034b INIT_0348: 034b e007 | | Load 0x0,0x7 034c 0337 | 7 | Declare_Variable Array 034d 00e2 | | Load_Encached Integer_Cache 034e e003 | | Load 0x0,0x3 034f 0007 | | Action Break_Optional 0350 BODY_0348: 0350 4800 |H | Short_Literal 0x0 0351 a5fb | | Store_Unchecked 0x2,-0x5 0352 00d8 | | Load_Top At_Offset_0 0353 00db | | Load_Top At_Offset_3 0354 4801 |H | Short_Literal 0x1 0355 e5ff | | Load 0x2,-0x1 0356 800b | | Call 0x0,0xb 0357 00d1 | | Pop_Control Pop_Count_1 0358 0059 | Y | Store_Top Discrete,At_Offset_1 0359 00d8 | | Load_Top At_Offset_0 035a 6803 |h | Jump_Zero 0x35e 035b 4800 |H | Short_Literal 0x0 035c a5fb | | Store_Unchecked 0x2,-0x5 035d 4504 |E | Exit_Suprogram New_Top_Offset 0x4 035e e5fd | | Load 0x2,-0x3 035f 4a00 |J | Short_Literal 0x200 0360 027e | ~ | Execute Discrete,Not_Equal 0361 6818 |h | Jump_Zero 0x37a 0362 00cf | | Action Mark_Auxiliary 0363 e5fe | | Load 0x2,-0x2 0364 e5fd | | Load 0x2,-0x3 0365 0273 | s | Execute Discrete,Plus 0366 0aff | | Execute_Immediate Plus,-0x1 0367 00d8 | | Load_Top At_Offset_0 0368 00e2 | | Load_Encached Integer_Cache 0369 0260 | ` | Execute Discrete,In_Type 036a 7001 |p | Jump_Nonzero 0x36c 036b 0801 | | Execute_Immediate Raise,0x1 036c e5fe | | Load 0x2,-0x2 036d 0263 | c | Execute Discrete,Above_Bound 036e 700a |p | Jump_Nonzero 0x379 036f 00d8 | | Load_Top At_Offset_0 0370 e402 | | Load 0x2,0x2 0371 01d7 | | Execute Vector,Field_Read 0372 00d9 | | Load_Top At_Offset_1 0373 e5fe | | Load 0x2,-0x2 0374 0272 | r | Execute Discrete,Minus 0375 e5fc | | Load 0x2,-0x4 0376 01d6 | | Execute Vector,Field_Write 0377 00c8 | | Action Pop_Auxiliary_Range 0378 3ff6 |? | Loop_Increasing 0x36f 0379 00ce | | Action Pop_Auxiliary 037a 4504 |E | Exit_Suprogram New_Top_Offset 0x4 037b 0000 0000 | | .BLANK 0000[0x5] 0380 ; -------------------------------------------------------------------------------------- 0380 ; Debug Table 0380 ; -------------------------------------------------------------------------------------- 0380 0004 0011 | | .DEBUG4 0x0004,0x0011,0x349d,0x0000,0x0001,0x0000 0386 0000 0000 | | .BLANK 0000[0x27] 03ad 1002 8000 | | .XXX[0xb] 03af 0000 0000 | | 03b1 0020 0000 | | 03b3 0110 0000 | | 03b5 0000 8000 | | 03b7 0005 | | 03b8 0000 0000 | | .BLANK 0000[0x48]