|
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: 3072 (0xc00) Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03c8f4
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 05c8 | | .CONST 0x05c8 ; 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 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 00e7 | | .CONST 0x00e7 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 002e | . | .CONST 0x002e ; Number of locals 000b INIT_0008: 000b 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated 000d 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated 000f 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated 0011 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated 0013 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated 0015 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated 0017 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated 0019 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated 001b 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated 001d 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated 001f 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated 0021 029a 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Visible,Unelaborated 0023 029a 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call,Visible,Unelaborated 0025 029a 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call,Visible,Unelaborated 0027 029a 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call,Visible,Unelaborated 0029 029a 0373 | s| Declare_Subprogram INIT_0370,For_Outer_Call,Visible,Unelaborated 002b 029a 03a3 | | Declare_Subprogram INIT_03a0,For_Outer_Call,Visible,Unelaborated 002d 029a 0443 | C| Declare_Subprogram INIT_0440,For_Outer_Call,Visible,Unelaborated 002f 029a 0473 | s| Declare_Subprogram INIT_0470,For_Outer_Call,Visible,Unelaborated 0031 029a 04b3 | | Declare_Subprogram INIT_04b0,For_Outer_Call,Visible,Unelaborated 0033 029a 04c3 | | Declare_Subprogram INIT_04c0,For_Outer_Call,Visible,Unelaborated 0035 029a 04d3 | | Declare_Subprogram INIT_04d0,For_Outer_Call,Visible,Unelaborated 0037 029a 04e3 | | Declare_Subprogram INIT_04e0,For_Outer_Call,Visible,Unelaborated 0039 00bf | | Action Accept_Activation 003a 00e8 | | Load_Encached Character_Cache 003b 0266 | f | Execute Discrete,Bounds 003c 00e8 | | Load_Encached Character_Cache 003d 02a0 | | Declare_Subprogram Null_Subprogram 003e 4801 |H | Short_Literal 0x1 003f 035d | ] | Declare_Type Array,Defined 0040 00e8 | | Load_Encached Character_Cache 0041 0266 | f | Execute Discrete,Bounds 0042 00e8 | | Load_Encached Character_Cache 0043 0266 | f | Execute Discrete,Bounds 0044 00e1 | | Load_Encached Boolean_Cache 0045 02a0 | | Declare_Subprogram Null_Subprogram 0046 4802 |H | Short_Literal 0x2 0047 035d | ] | Declare_Type Array,Defined 0048 00d9 | | Load_Top At_Offset_1 0049 0337 | 7 | Declare_Variable Array 004a 00da | | Load_Top At_Offset_2 004b 0337 | 7 | Declare_Variable Array 004c 00da | | Load_Top At_Offset_2 004d 0337 | 7 | Declare_Variable Array 004e 00d8 | | Load_Top At_Offset_0 004f 0335 | 5 | Declare_Variable Array,Duplicate 0050 00cd | | Action Spare6_Action 0051 487f |H | Short_Literal 0x7f 0052 4800 |H | Short_Literal 0x0 0053 487f |H | Short_Literal 0x7f 0054 4800 |H | Short_Literal 0x0 0055 4800 |H | Short_Literal 0x0 0056 00d9 | | Load_Top At_Offset_1 0057 e22b | + | Load 0x1,0x2b 0058 e229 | ) | Load 0x1,0x29 0059 01a6 | | Execute Matrix,Field_Write 005a 3ffa |? | Loop_Increasing 0x55 005b 3ff7 |? | Loop_Increasing 0x53 005c 00d9 | | Load_Top At_Offset_1 005d 01a4 | | Execute Matrix,Structure_Write 005e 4800 |H | Short_Literal 0x0 005f 48ff |H | Short_Literal 0xff 0060 00e2 | | Load_Encached Integer_Cache 0061 03f8 | | Declare_Type Discrete,Constrained 0062 4800 |H | Short_Literal 0x0 0063 48ff |H | Short_Literal 0xff 0064 00da | | Load_Top At_Offset_2 0065 02a0 | | Declare_Subprogram Null_Subprogram 0066 4801 |H | Short_Literal 0x1 0067 035d | ] | Declare_Type Array,Defined 0068 00d8 | | Load_Top At_Offset_0 0069 0337 | 7 | Declare_Variable Array 006a 4800 |H | Short_Literal 0x0 006b 480f |H | Short_Literal 0xf 006c 00e8 | | Load_Encached Character_Cache 006d 02a0 | | Declare_Subprogram Null_Subprogram 006e 4801 |H | Short_Literal 0x1 006f 035d | ] | Declare_Type Array,Defined 0070 00d8 | | Load_Top At_Offset_0 0071 0337 | 7 | Declare_Variable Array 0072 00d8 | | Load_Top At_Offset_0 0073 0335 | 5 | Declare_Variable Array,Duplicate 0074 00cd | | Action Spare6_Action 0075 4830 |H0 | Short_Literal 0x30 0076 4800 |H | Short_Literal 0x0 0077 00da | | Load_Top At_Offset_2 0078 01d6 | | Execute Vector,Field_Write 0079 4831 |H1 | Short_Literal 0x31 007a 4801 |H | Short_Literal 0x1 007b 00da | | Load_Top At_Offset_2 007c 01d6 | | Execute Vector,Field_Write 007d 4832 |H2 | Short_Literal 0x32 007e 4802 |H | Short_Literal 0x2 007f 00da | | Load_Top At_Offset_2 0080 01d6 | | Execute Vector,Field_Write 0081 4833 |H3 | Short_Literal 0x33 0082 4803 |H | Short_Literal 0x3 0083 00da | | Load_Top At_Offset_2 0084 01d6 | | Execute Vector,Field_Write 0085 4834 |H4 | Short_Literal 0x34 0086 4804 |H | Short_Literal 0x4 0087 00da | | Load_Top At_Offset_2 0088 01d6 | | Execute Vector,Field_Write 0089 4835 |H5 | Short_Literal 0x35 008a 4805 |H | Short_Literal 0x5 008b 00da | | Load_Top At_Offset_2 008c 01d6 | | Execute Vector,Field_Write 008d 4836 |H6 | Short_Literal 0x36 008e 4806 |H | Short_Literal 0x6 008f 00da | | Load_Top At_Offset_2 0090 01d6 | | Execute Vector,Field_Write 0091 4837 |H7 | Short_Literal 0x37 0092 4807 |H | Short_Literal 0x7 0093 00da | | Load_Top At_Offset_2 0094 01d6 | | Execute Vector,Field_Write 0095 4838 |H8 | Short_Literal 0x38 0096 4808 |H | Short_Literal 0x8 0097 00da | | Load_Top At_Offset_2 0098 01d6 | | Execute Vector,Field_Write 0099 4839 |H9 | Short_Literal 0x39 009a 4809 |H | Short_Literal 0x9 009b 00da | | Load_Top At_Offset_2 009c 01d6 | | Execute Vector,Field_Write 009d 4841 |HA | Short_Literal 0x41 009e 480a |H | Short_Literal 0xa 009f 00da | | Load_Top At_Offset_2 00a0 01d6 | | Execute Vector,Field_Write 00a1 4842 |HB | Short_Literal 0x42 00a2 480b |H | Short_Literal 0xb 00a3 00da | | Load_Top At_Offset_2 00a4 01d6 | | Execute Vector,Field_Write 00a5 4843 |HC | Short_Literal 0x43 00a6 480c |H | Short_Literal 0xc 00a7 00da | | Load_Top At_Offset_2 00a8 01d6 | | Execute Vector,Field_Write 00a9 4844 |HD | Short_Literal 0x44 00aa 480d |H | Short_Literal 0xd 00ab 00da | | Load_Top At_Offset_2 00ac 01d6 | | Execute Vector,Field_Write 00ad 4845 |HE | Short_Literal 0x45 00ae 480e |H | Short_Literal 0xe 00af 00da | | Load_Top At_Offset_2 00b0 01d6 | | Execute Vector,Field_Write 00b1 4846 |HF | Short_Literal 0x46 00b2 480f |H | Short_Literal 0xf 00b3 00da | | Load_Top At_Offset_2 00b4 01d6 | | Execute Vector,Field_Write 00b5 00d9 | | Load_Top At_Offset_1 00b6 01d4 | | Execute Vector,Structure_Write 00b7 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 00b8 00c7 | | Action Elaborate_Subprogram 00b9 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 00ba 00c7 | | Action Elaborate_Subprogram 00bb 1d10 | | Execute_Immediate Reference_Lex_1,0x10 00bc 00c7 | | Action Elaborate_Subprogram 00bd 1d11 | | Execute_Immediate Reference_Lex_1,0x11 00be 00c7 | | Action Elaborate_Subprogram 00bf 1d0e | | Execute_Immediate Reference_Lex_1,0xe 00c0 00c7 | | Action Elaborate_Subprogram 00c1 1d0f | | Execute_Immediate Reference_Lex_1,0xf 00c2 00c7 | | Action Elaborate_Subprogram 00c3 1d12 | | Execute_Immediate Reference_Lex_1,0x12 00c4 00c7 | | Action Elaborate_Subprogram 00c5 1d13 | | Execute_Immediate Reference_Lex_1,0x13 00c6 00c7 | | Action Elaborate_Subprogram 00c7 1d14 | | Execute_Immediate Reference_Lex_1,0x14 00c8 00c7 | | Action Elaborate_Subprogram 00c9 1d15 | | Execute_Immediate Reference_Lex_1,0x15 00ca 00c7 | | Action Elaborate_Subprogram 00cb 1d0d | | Execute_Immediate Reference_Lex_1,0xd 00cc 00c7 | | Action Elaborate_Subprogram 00cd 1d16 | | Execute_Immediate Reference_Lex_1,0x16 00ce 00c7 | | Action Elaborate_Subprogram 00cf 1d17 | | Execute_Immediate Reference_Lex_1,0x17 00d0 00c7 | | Action Elaborate_Subprogram 00d1 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 00d2 00c7 | | Action Elaborate_Subprogram 00d3 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 00d4 00c7 | | Action Elaborate_Subprogram 00d5 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 00d6 00c7 | | Action Elaborate_Subprogram 00d7 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 00d8 00c7 | | Action Elaborate_Subprogram 00d9 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 00da 00c7 | | Action Elaborate_Subprogram 00db 1d20 | | Execute_Immediate Reference_Lex_1,0x20 00dc 00c7 | | Action Elaborate_Subprogram 00dd 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 00de 00c7 | | Action Elaborate_Subprogram 00df 1d18 | | Execute_Immediate Reference_Lex_1,0x18 00e0 00c7 | | Action Elaborate_Subprogram 00e1 1d19 | | Execute_Immediate Reference_Lex_1,0x19 00e2 00c7 | | Action Elaborate_Subprogram 00e3 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 00e4 00c7 | | Action Elaborate_Subprogram 00e5 029f 0503 | | Declare_Subprogram INIT_0500,For_Call 00e7 BODY_0008: 00e7 00cf | | Action Mark_Auxiliary 00e8 00e8 | | Load_Encached Character_Cache 00e9 0265 | e | Execute Discrete,Reverse_Bounds 00ea 0007 | | Action Break_Optional 00eb 00d8 | | Load_Top At_Offset_0 00ec 00d9 | | Load_Top At_Offset_1 00ed e226 | & | Load 0x1,0x26 00ee 01d6 | | Execute Vector,Field_Write 00ef 4801 |H | Short_Literal 0x1 00f0 00d9 | | Load_Top At_Offset_1 00f1 00da | | Load_Top At_Offset_2 00f2 e228 | ( | Load 0x1,0x28 00f3 01a6 | | Execute Matrix,Field_Write 00f4 00c8 | | Action Pop_Auxiliary_Range 00f5 3ff5 |? | Loop_Increasing 0xeb 00f6 00ce | | Action Pop_Auxiliary 00f7 e226 | & | Load 0x1,0x26 00f8 e227 | ' | Load 0x1,0x27 00f9 01d4 | | Execute Vector,Structure_Write 00fa 00cf | | Action Mark_Auxiliary 00fb 485a |HZ | Short_Literal 0x5a 00fc 4841 |HA | Short_Literal 0x41 00fd 0007 | | Action Break_Optional 00fe 00d8 | | Load_Top At_Offset_0 00ff 0a20 | | Execute_Immediate Plus,0x20 0100 00d8 | | Load_Top At_Offset_0 0101 00e8 | | Load_Encached Character_Cache 0102 0260 | ` | Execute Discrete,In_Type 0103 7001 |p | Jump_Nonzero 0x105 0104 0801 | | Execute_Immediate Raise,0x1 0105 00d9 | | Load_Top At_Offset_1 0106 e227 | ' | Load 0x1,0x27 0107 01d6 | | Execute Vector,Field_Write 0108 4801 |H | Short_Literal 0x1 0109 00d9 | | Load_Top At_Offset_1 010a e227 | ' | Load 0x1,0x27 010b 01d7 | | Execute Vector,Field_Read 010c 00da | | Load_Top At_Offset_2 010d e228 | ( | Load 0x1,0x28 010e 01a6 | | Execute Matrix,Field_Write 010f 00c8 | | Action Pop_Auxiliary_Range 0110 3fed |? | Loop_Increasing 0xfe 0111 00c9 | | Action Pop_Auxiliary_Loop 0112 487a |Hz | Short_Literal 0x7a 0113 4861 |Ha | Short_Literal 0x61 0114 0007 | | Action Break_Optional 0115 00d8 | | Load_Top At_Offset_0 0116 0ae0 | | Execute_Immediate Plus,-0x20 0117 00d8 | | Load_Top At_Offset_0 0118 00e8 | | Load_Encached Character_Cache 0119 0260 | ` | Execute Discrete,In_Type 011a 7001 |p | Jump_Nonzero 0x11c 011b 0801 | | Execute_Immediate Raise,0x1 011c 00d9 | | Load_Top At_Offset_1 011d e226 | & | Load 0x1,0x26 011e 01d6 | | Execute Vector,Field_Write 011f 4801 |H | Short_Literal 0x1 0120 00d9 | | Load_Top At_Offset_1 0121 e226 | & | Load 0x1,0x26 0122 01d7 | | Execute Vector,Field_Read 0123 00da | | Load_Top At_Offset_2 0124 e228 | ( | Load 0x1,0x28 0125 01a6 | | Execute Matrix,Field_Write 0126 00c8 | | Action Pop_Auxiliary_Range 0127 3fed |? | Loop_Increasing 0x115 0128 00ce | | Action Pop_Auxiliary 0129 822e | . | Call 0x1,0x2e 012a 00bc | | Action Signal_Activated 012b 00bb | | Action Signal_Completion 012c 0000 0000 | | .BLANK 0000[0x4] 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 013a | : | .CONST 0x013a ; Address of begin 0131 0004 | | .CONST 0x0004 ; Address of exception handler 0132 0003 | | .CONST 0x0003 ; Number of locals 0133 INIT_0130: 0133 00da | | Load_Top At_Offset_2 0134 01db | | Execute Vector,Length 0135 00e2 | | Load_Encached Integer_Cache 0136 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0137 00d8 | | Load_Top At_Offset_0 0138 00e2 | | Load_Encached Integer_Cache 0139 03f1 | | Declare_Variable Discrete,With_Value 013a BODY_0130: 013a 00d9 | | Load_Top At_Offset_1 013b 0c01 | | Execute_Immediate Greater_Equal,0x1 013c 6821 |h! | Jump_Zero 0x15e 013d 00d8 | | Load_Top At_Offset_0 013e e5ff | | Load 0x2,-0x1 013f 01dd | | Execute Vector,First 0140 e5ff | | Load 0x2,-0x1 0141 01d7 | | Execute Vector,Field_Read 0142 e226 | & | Load 0x1,0x26 0143 01d7 | | Execute Vector,Field_Read 0144 0905 | | Execute_Immediate Binary_Scale,0x5 0145 0273 | s | Execute Discrete,Plus 0146 e5ff | | Load 0x2,-0x1 0147 01dd | | Execute Vector,First 0148 e5ff | | Load 0x2,-0x1 0149 01dc | | Execute Vector,Last 014a 0a01 | | Execute_Immediate Plus,0x1 014b e5ff | | Load 0x2,-0x1 014c 01dd | | Execute Vector,First 014d 0272 | r | Execute Discrete,Minus 014e 09ff | | Execute_Immediate Binary_Scale,-0x1 014f 0273 | s | Execute Discrete,Plus 0150 e5ff | | Load 0x2,-0x1 0151 01d7 | | Execute Vector,Field_Read 0152 e226 | & | Load 0x1,0x26 0153 01d7 | | Execute Vector,Field_Read 0154 0273 | s | Execute Discrete,Plus 0155 e5ff | | Load 0x2,-0x1 0156 01dc | | Execute Vector,Last 0157 e5ff | | Load 0x2,-0x1 0158 01d7 | | Execute Vector,Field_Read 0159 e226 | & | Load 0x1,0x26 015a 01d7 | | Execute Vector,Field_Read 015b 0903 | | Execute_Immediate Binary_Scale,0x3 015c 0273 | s | Execute Discrete,Plus 015d 0059 | Y | Store_Top Discrete,At_Offset_1 015e 00d8 | | Load_Top At_Offset_0 015f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 0163 | c | .CONST 0x0163 ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0001 | | .CONST 0x0001 ; Number of locals 0163 BODY_0160: 0163 INIT_0160: 0163 00da | | Load_Top At_Offset_2 0164 e226 | & | Load 0x1,0x26 0165 01d7 | | Execute Vector,Field_Read 0166 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0167 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 016b | k | .CONST 0x016b ; Address of begin 0169 0004 | | .CONST 0x0004 ; Address of exception handler 016a 0001 | | .CONST 0x0001 ; Number of locals 016b BODY_0168: 016b INIT_0168: 016b 00da | | Load_Top At_Offset_2 016c e227 | ' | Load 0x1,0x27 016d 01d7 | | Execute Vector,Field_Read 016e 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 016f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0173 | s | .CONST 0x0173 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0001 | | .CONST 0x0001 ; Number of locals 0173 BODY_0170: 0173 INIT_0170: 0173 00da | | Load_Top At_Offset_2 0174 e226 | & | Load 0x1,0x26 0175 01d7 | | Execute Vector,Field_Read 0176 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0177 0000 | | .XXX[0x1] 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 017b | { | .CONST 0x017b ; Address of begin 0179 0004 | | .CONST 0x0004 ; Address of exception handler 017a 0001 | | .CONST 0x0001 ; Number of locals 017b BODY_0178: 017b INIT_0178: 017b 00da | | Load_Top At_Offset_2 017c e227 | ' | Load 0x1,0x27 017d 01d7 | | Execute Vector,Field_Read 017e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 017f 0000 | | .XXX[0x1] 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0183 | | .CONST 0x0183 ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0001 | | .CONST 0x0001 ; Number of locals 0183 BODY_0180: 0183 INIT_0180: 0183 00cf | | Action Mark_Auxiliary 0184 00db | | Load_Top At_Offset_3 0185 01d9 | | Execute Vector,Reverse_Bounds 0186 0263 | c | Execute Discrete,Above_Bound 0187 700a |p | Jump_Nonzero 0x192 0188 00d8 | | Load_Top At_Offset_0 0189 e5ff | | Load 0x2,-0x1 018a 01d7 | | Execute Vector,Field_Read 018b e226 | & | Load 0x1,0x26 018c 01d7 | | Execute Vector,Field_Read 018d 00d9 | | Load_Top At_Offset_1 018e e5ff | | Load 0x2,-0x1 018f 01d6 | | Execute Vector,Field_Write 0190 00c8 | | Action Pop_Auxiliary_Range 0191 3ff6 |? | Loop_Increasing 0x188 0192 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0193 0000 0000 | | .BLANK 0000[0x5] 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 019b | | .CONST 0x019b ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0001 | | .CONST 0x0001 ; Number of locals 019b BODY_0198: 019b INIT_0198: 019b 00cf | | Action Mark_Auxiliary 019c 00db | | Load_Top At_Offset_3 019d 01d9 | | Execute Vector,Reverse_Bounds 019e 0263 | c | Execute Discrete,Above_Bound 019f 700a |p | Jump_Nonzero 0x1aa 01a0 00d8 | | Load_Top At_Offset_0 01a1 e5ff | | Load 0x2,-0x1 01a2 01d7 | | Execute Vector,Field_Read 01a3 e227 | ' | Load 0x1,0x27 01a4 01d7 | | Execute Vector,Field_Read 01a5 00d9 | | Load_Top At_Offset_1 01a6 e5ff | | Load 0x2,-0x1 01a7 01d6 | | Execute Vector,Field_Write 01a8 00c8 | | Action Pop_Auxiliary_Range 01a9 3ff6 |? | Loop_Increasing 0x1a0 01aa 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01ab 0000 0000 | | .BLANK 0000[0x5] 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01ba | | .CONST 0x01ba ; Address of begin 01b1 0004 | | .CONST 0x0004 ; Address of exception handler 01b2 0002 | | .CONST 0x0002 ; Number of locals 01b3 INIT_01b0: 01b3 00da | | Load_Top At_Offset_2 01b4 01dd | | Execute Vector,First 01b5 00db | | Load_Top At_Offset_3 01b6 01dc | | Execute Vector,Last 01b7 00e9 | | Load_Encached String_Cache 01b8 035b | [ | Declare_Type Array,Constrained 01b9 0337 | 7 | Declare_Variable Array 01ba BODY_01b0: 01ba 00cf | | Action Mark_Auxiliary 01bb e5ff | | Load 0x2,-0x1 01bc 01d9 | | Execute Vector,Reverse_Bounds 01bd 0263 | c | Execute Discrete,Above_Bound 01be 700a |p | Jump_Nonzero 0x1c9 01bf 00d8 | | Load_Top At_Offset_0 01c0 e5ff | | Load 0x2,-0x1 01c1 01d7 | | Execute Vector,Field_Read 01c2 e226 | & | Load 0x1,0x26 01c3 01d7 | | Execute Vector,Field_Read 01c4 00d9 | | Load_Top At_Offset_1 01c5 e402 | | Load 0x2,0x2 01c6 01d6 | | Execute Vector,Field_Write 01c7 00c8 | | Action Pop_Auxiliary_Range 01c8 3ff6 |? | Loop_Increasing 0x1bf 01c9 00ce | | Action Pop_Auxiliary 01ca 00d8 | | Load_Top At_Offset_0 01cb 00e9 | | Load_Encached String_Cache 01cc 01c6 | | Execute Vector,Convert_To_Formal 01cd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01ce 0000 0000 | | .XXX[0x2] 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01da | | .CONST 0x01da ; Address of begin 01d1 0004 | | .CONST 0x0004 ; Address of exception handler 01d2 0002 | | .CONST 0x0002 ; Number of locals 01d3 INIT_01d0: 01d3 00da | | Load_Top At_Offset_2 01d4 01dd | | Execute Vector,First 01d5 00db | | Load_Top At_Offset_3 01d6 01dc | | Execute Vector,Last 01d7 00e9 | | Load_Encached String_Cache 01d8 035b | [ | Declare_Type Array,Constrained 01d9 0337 | 7 | Declare_Variable Array 01da BODY_01d0: 01da 00cf | | Action Mark_Auxiliary 01db e5ff | | Load 0x2,-0x1 01dc 01d9 | | Execute Vector,Reverse_Bounds 01dd 0263 | c | Execute Discrete,Above_Bound 01de 700a |p | Jump_Nonzero 0x1e9 01df 00d8 | | Load_Top At_Offset_0 01e0 e5ff | | Load 0x2,-0x1 01e1 01d7 | | Execute Vector,Field_Read 01e2 e227 | ' | Load 0x1,0x27 01e3 01d7 | | Execute Vector,Field_Read 01e4 00d9 | | Load_Top At_Offset_1 01e5 e402 | | Load 0x2,0x2 01e6 01d6 | | Execute Vector,Field_Write 01e7 00c8 | | Action Pop_Auxiliary_Range 01e8 3ff6 |? | Loop_Increasing 0x1df 01e9 00ce | | Action Pop_Auxiliary 01ea 00d8 | | Load_Top At_Offset_0 01eb 00e9 | | Load_Encached String_Cache 01ec 01c6 | | Execute Vector,Convert_To_Formal 01ed 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01ee 0000 0000 | | .XXX[0x2] 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01fd | | .CONST 0x01fd ; Address of begin 01f1 0004 | | .CONST 0x0004 ; Address of exception handler 01f2 0005 | | .CONST 0x0005 ; Number of locals 01f3 INIT_01f0: 01f3 00e1 | | Load_Encached Boolean_Cache 01f4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 01f5 4850 |HP | Short_Literal 0x50 01f6 e002 | | Load 0x0,0x2 01f7 1c08 | | Execute_Immediate Run_Utility,0x8 01f8 00d8 | | Load_Top At_Offset_0 01f9 1c00 | | Execute_Immediate Run_Utility,0x0 01fa 00e2 | | Load_Encached Integer_Cache 01fb 029f 0533 | 3| Declare_Subprogram INIT_0530,For_Call 01fd BODY_01f0: 01fd 00da | | Load_Top At_Offset_2 01fe 4820 |H | Short_Literal 0x20 01ff 4800 |H | Short_Literal 0x0 0200 8003 | | Call 0x0,0x3 0201 00d1 | | Pop_Control Pop_Count_1 0202 e5ff | | Load 0x2,-0x1 0203 0d00 | | Execute_Immediate Less,0x0 0204 6807 |h | Jump_Zero 0x20c 0205 4801 |H | Short_Literal 0x1 0206 a402 | | Store_Unchecked 0x2,0x2 0207 e5fd | | Load 0x2,-0x3 0208 0aff | | Execute_Immediate Plus,-0x1 0209 e5ff | | Load 0x2,-0x1 020a 8405 | | Call 0x2,0x5 020b 7803 |x | Jump 0x20f 020c e5fd | | Load 0x2,-0x3 020d e5ff | | Load 0x2,-0x1 020e 8405 | | Call 0x2,0x5 020f 00da | | Load_Top At_Offset_2 0210 8004 | | Call 0x0,0x4 0211 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0212 0000 0000 | | .BLANK 0000[0x6] 0218 ; -------------------------------------------------------------------------------------- 0218 ; SUBPROGRAM 0218 ; -------------------------------------------------------------------------------------- 0218 0221 | ! | .CONST 0x0221 ; Address of begin 0219 0278 | x | .CONST 0x0278 ; Address of exception handler 021a 0006 | | .CONST 0x0006 ; Number of locals 021b INIT_0218: 021b 00e2 | | Load_Encached Integer_Cache 021c 00e2 | | Load_Encached Integer_Cache 021d 00e8 | | Load_Encached Character_Cache 021e 00e2 | | Load_Encached Integer_Cache 021f 00e1 | | Load_Encached Boolean_Cache 0220 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0221 BODY_0218: 0221 4800 |H | Short_Literal 0x0 0222 a5fc | | Store_Unchecked 0x2,-0x4 0223 4800 |H | Short_Literal 0x0 0224 a5fd | | Store_Unchecked 0x2,-0x3 0225 4800 |H | Short_Literal 0x0 0226 a403 | | Store_Unchecked 0x2,0x3 0227 4801 |H | Short_Literal 0x1 0228 a402 | | Store_Unchecked 0x2,0x2 0229 00cf | | Action Mark_Auxiliary 022a e5ff | | Load 0x2,-0x1 022b 01d9 | | Execute Vector,Reverse_Bounds 022c 0263 | c | Execute Discrete,Above_Bound 022d 7038 |p8 | Jump_Nonzero 0x266 022e 00d8 | | Load_Top At_Offset_0 022f e5ff | | Load 0x2,-0x1 0230 01d7 | | Execute Vector,Field_Read 0231 a404 | | Store_Unchecked 0x2,0x4 0232 e404 | | Load 0x2,0x4 0233 0f20 | | Execute_Immediate Equal,0x20 0234 6803 |h | Jump_Zero 0x238 0235 00db | | Load_Top At_Offset_3 0236 702d |p- | Jump_Nonzero 0x264 0237 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0238 00db | | Load_Top At_Offset_3 0239 e404 | | Load 0x2,0x4 023a 0f2d | - | Execute_Immediate Equal,0x2d 023b 0279 | y | Execute Discrete,And 023c 6803 |h | Jump_Zero 0x240 023d 4fff |O | Short_Literal -0x1 023e a402 | | Store_Unchecked 0x2,0x2 023f 7822 |x" | Jump 0x262 0240 e404 | | Load 0x2,0x4 0241 4830 |H0 | Short_Literal 0x30 0242 4839 |H9 | Short_Literal 0x39 0243 0262 | b | Execute Discrete,In_Range 0244 6804 |h | Jump_Zero 0x249 0245 e404 | | Load 0x2,0x4 0246 0ad0 | | Execute_Immediate Plus,-0x30 0247 c405 | | Store 0x2,0x5 0248 780e |x | Jump 0x257 0249 e404 | | Load 0x2,0x4 024a 820e | | Call 0x1,0xe 024b c404 | | Store 0x2,0x4 024c e404 | | Load 0x2,0x4 024d 4841 |HA | Short_Literal 0x41 024e 4846 |HF | Short_Literal 0x46 024f 0262 | b | Execute Discrete,In_Range 0250 6804 |h | Jump_Zero 0x255 0251 e404 | | Load 0x2,0x4 0252 0ac9 | | Execute_Immediate Plus,-0x37 0253 c405 | | Store 0x2,0x5 0254 7802 |x | Jump 0x257 0255 49f4 |I | Short_Literal 0x1f4 0256 a405 | | Store_Unchecked 0x2,0x5 0257 e405 | | Load 0x2,0x5 0258 e5fe | | Load 0x2,-0x2 0259 027b | { | Execute Discrete,Greater_Equal 025a 6801 |h | Jump_Zero 0x25c 025b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 025c e403 | | Load 0x2,0x3 025d e5fe | | Load 0x2,-0x2 025e 0271 | q | Execute Discrete,Times 025f e405 | | Load 0x2,0x5 0260 0273 | s | Execute Discrete,Plus 0261 c403 | | Store 0x2,0x3 0262 4800 |H | Short_Literal 0x0 0263 a406 | | Store_Unchecked 0x2,0x6 0264 00c8 | | Action Pop_Auxiliary_Range 0265 3fc8 |? | Loop_Increasing 0x22e 0266 00ce | | Action Pop_Auxiliary 0267 e5ff | | Load 0x2,-0x1 0268 01db | | Execute Vector,Length 0269 680d |h | Jump_Zero 0x277 026a e5ff | | Load 0x2,-0x1 026b 01db | | Execute Vector,Length 026c 0c02 | | Execute_Immediate Greater_Equal,0x2 026d 7003 |p | Jump_Nonzero 0x271 026e e402 | | Load 0x2,0x2 026f 0f01 | | Execute_Immediate Equal,0x1 0270 6806 |h | Jump_Zero 0x277 0271 00db | | Load_Top At_Offset_3 0272 e402 | | Load 0x2,0x2 0273 0271 | q | Execute Discrete,Times 0274 c5fd | | Store 0x2,-0x3 0275 4801 |H | Short_Literal 0x1 0276 a5fc | | Store_Unchecked 0x2,-0x4 0277 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0278 TRAP_0218: 0278 0007 | | Action Break_Optional 0279 4800 |H | Short_Literal 0x0 027a a5fc | | Store_Unchecked 0x2,-0x4 027b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 027c 0000 0000 | | .BLANK 0000[0x4] 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; -------------------------------------------------------------------------------------- 0280 0283 | | .CONST 0x0283 ; Address of begin 0281 0004 | | .CONST 0x0004 ; Address of exception handler 0282 0001 | | .CONST 0x0001 ; Number of locals 0283 BODY_0280: 0283 INIT_0280: 0283 00cf | | Action Mark_Auxiliary 0284 00db | | Load_Top At_Offset_3 0285 01dc | | Execute Vector,Last 0286 e5ff | | Load 0x2,-0x1 0287 01dd | | Execute Vector,First 0288 0263 | c | Execute Discrete,Above_Bound 0289 7010 |p | Jump_Nonzero 0x29a 028a 00d8 | | Load_Top At_Offset_0 028b e5ff | | Load 0x2,-0x1 028c 01d7 | | Execute Vector,Field_Read 028d e5fe | | Load 0x2,-0x2 028e 027e | ~ | Execute Discrete,Not_Equal 028f 6808 |h | Jump_Zero 0x298 0290 00d8 | | Load_Top At_Offset_0 0291 e5ff | | Load 0x2,-0x1 0292 01dc | | Execute Vector,Last 0293 e5ff | | Load 0x2,-0x1 0294 01cf | | Execute Vector,Slice_Read 0295 0335 | 5 | Declare_Variable Array,Duplicate 0296 00cd | | Action Spare6_Action 0297 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0298 00c8 | | Action Pop_Auxiliary_Range 0299 3ff0 |? | Loop_Increasing 0x28a 029a 00ce | | Action Pop_Auxiliary 029b 00ea | | Load_Encached Null_String_Cache 029c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 029d 0000 0000 | | .XXX[0x3] 029f 0000 | | 02a0 ; -------------------------------------------------------------------------------------- 02a0 ; SUBPROGRAM 02a0 ; -------------------------------------------------------------------------------------- 02a0 02a3 | | .CONST 0x02a3 ; Address of begin 02a1 0004 | | .CONST 0x0004 ; Address of exception handler 02a2 0001 | | .CONST 0x0001 ; Number of locals 02a3 BODY_02a0: 02a3 INIT_02a0: 02a3 00cf | | Action Mark_Auxiliary 02a4 00db | | Load_Top At_Offset_3 02a5 01dd | | Execute Vector,First 02a6 e5ff | | Load 0x2,-0x1 02a7 01dc | | Execute Vector,Last 02a8 0264 | d | Execute Discrete,Below_Bound 02a9 7010 |p | Jump_Nonzero 0x2ba 02aa 00d8 | | Load_Top At_Offset_0 02ab e5ff | | Load 0x2,-0x1 02ac 01d7 | | Execute Vector,Field_Read 02ad e5fe | | Load 0x2,-0x2 02ae 027e | ~ | Execute Discrete,Not_Equal 02af 6808 |h | Jump_Zero 0x2b8 02b0 e5ff | | Load 0x2,-0x1 02b1 01dd | | Execute Vector,First 02b2 00d9 | | Load_Top At_Offset_1 02b3 e5ff | | Load 0x2,-0x1 02b4 01cf | | Execute Vector,Slice_Read 02b5 0335 | 5 | Declare_Variable Array,Duplicate 02b6 00cd | | Action Spare6_Action 02b7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02b8 00c8 | | Action Pop_Auxiliary_Range 02b9 37f0 |7 | Loop_Decreasing 0x2aa 02ba 00ce | | Action Pop_Auxiliary 02bb 00ea | | Load_Encached Null_String_Cache 02bc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02bd 0000 0000 | | .XXX[0x3] 02bf 0000 | | 02c0 ; -------------------------------------------------------------------------------------- 02c0 ; SUBPROGRAM 02c0 ; -------------------------------------------------------------------------------------- 02c0 02c3 | | .CONST 0x02c3 ; Address of begin 02c1 0004 | | .CONST 0x0004 ; Address of exception handler 02c2 0001 | | .CONST 0x0001 ; Number of locals 02c3 BODY_02c0: 02c3 INIT_02c0: 02c3 00db | | Load_Top At_Offset_3 02c4 e5fe | | Load 0x2,-0x2 02c5 e5ff | | Load 0x2,-0x1 02c6 8219 | | Call 0x1,0x19 02c7 8218 | | Call 0x1,0x18 02c8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 02c9 0000 0000 | | .BLANK 0000[0x7] 02d0 ; -------------------------------------------------------------------------------------- 02d0 ; SUBPROGRAM 02d0 ; -------------------------------------------------------------------------------------- 02d0 02dd | | .CONST 0x02dd ; Address of begin 02d1 0004 | | .CONST 0x0004 ; Address of exception handler 02d2 0004 | | .CONST 0x0004 ; Number of locals 02d3 INIT_02d0: 02d3 00da | | Load_Top At_Offset_2 02d4 01db | | Execute Vector,Length 02d5 0aff | | Execute_Immediate Plus,-0x1 02d6 00e2 | | Load_Encached Integer_Cache 02d7 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 02d8 00db | | Load_Top At_Offset_3 02d9 01dd | | Execute Vector,First 02da 00e4 | | Load_Encached Positive_Cache 02db 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 02dc 00e8 | | Load_Encached Character_Cache 02dd BODY_02d0: 02dd 00da | | Load_Top At_Offset_2 02de 0c01 | | Execute_Immediate Greater_Equal,0x1 02df 6879 |hy | Jump_Zero 0x359 02e0 00d9 | | Load_Top At_Offset_1 02e1 e5ff | | Load 0x2,-0x1 02e2 01d7 | | Execute Vector,Field_Read 02e3 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 02e4 e5fd | | Load 0x2,-0x3 02e5 683a |h: | Jump_Zero 0x320 02e6 00cf | | Action Mark_Auxiliary 02e7 e5fe | | Load 0x2,-0x2 02e8 01dc | | Execute Vector,Last 02e9 e402 | | Load 0x2,0x2 02ea 0272 | r | Execute Discrete,Minus 02eb 00d8 | | Load_Top At_Offset_0 02ec 00e2 | | Load_Encached Integer_Cache 02ed 0260 | ` | Execute Discrete,In_Type 02ee 7001 |p | Jump_Nonzero 0x2f0 02ef 0801 | | Execute_Immediate Raise,0x1 02f0 e5fe | | Load 0x2,-0x2 02f1 01dd | | Execute Vector,First 02f2 0263 | c | Execute Discrete,Above_Bound 02f3 702a |p* | Jump_Nonzero 0x31e 02f4 00db | | Load_Top At_Offset_3 02f5 00d9 | | Load_Top At_Offset_1 02f6 e5fe | | Load 0x2,-0x2 02f7 01d7 | | Execute Vector,Field_Read 02f8 e228 | ( | Load 0x1,0x28 02f9 01a7 | | Execute Matrix,Field_Read 02fa 6821 |h! | Jump_Zero 0x31c 02fb 00cf | | Action Mark_Auxiliary 02fc 4801 |H | Short_Literal 0x1 02fd e402 | | Load 0x2,0x2 02fe 0264 | d | Execute Discrete,Below_Bound 02ff 701b |p | Jump_Nonzero 0x31b 0300 00db | | Load_Top At_Offset_3 0301 00d9 | | Load_Top At_Offset_1 0302 0273 | s | Execute Discrete,Plus 0303 e5fe | | Load 0x2,-0x2 0304 01d7 | | Execute Vector,Field_Read 0305 e403 | | Load 0x2,0x3 0306 00da | | Load_Top At_Offset_2 0307 0273 | s | Execute Discrete,Plus 0308 e5ff | | Load 0x2,-0x1 0309 01d7 | | Execute Vector,Field_Read 030a e228 | ( | Load 0x1,0x28 030b 01a7 | | Execute Matrix,Field_Read 030c 7002 |p | Jump_Nonzero 0x30f 030d 00d2 | | Pop_Control Pop_Count_2 030e 780c |x | Jump 0x31b 030f 00d8 | | Load_Top At_Offset_0 0310 0f01 | | Execute_Immediate Equal,0x1 0311 6807 |h | Jump_Zero 0x319 0312 00db | | Load_Top At_Offset_3 0313 00d8 | | Load_Top At_Offset_0 0314 00e3 | | Load_Encached Natural_Cache 0315 0260 | ` | Execute Discrete,In_Type 0316 7001 |p | Jump_Nonzero 0x318 0317 0801 | | Execute_Immediate Raise,0x1 0318 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0319 00c8 | | Action Pop_Auxiliary_Range 031a 37e5 |7 | Loop_Decreasing 0x300 031b 00ce | | Action Pop_Auxiliary 031c 00c8 | | Action Pop_Auxiliary_Range 031d 3fd6 |? | Loop_Increasing 0x2f4 031e 00ce | | Action Pop_Auxiliary 031f 7837 |x7 | Jump 0x357 0320 00cf | | Action Mark_Auxiliary 0321 e5fe | | Load 0x2,-0x2 0322 01dc | | Execute Vector,Last 0323 e402 | | Load 0x2,0x2 0324 0272 | r | Execute Discrete,Minus 0325 00d8 | | Load_Top At_Offset_0 0326 00e2 | | Load_Encached Integer_Cache 0327 0260 | ` | Execute Discrete,In_Type 0328 7001 |p | Jump_Nonzero 0x32a 0329 0801 | | Execute_Immediate Raise,0x1 032a e5fe | | Load 0x2,-0x2 032b 01dd | | Execute Vector,First 032c 0263 | c | Execute Discrete,Above_Bound 032d 7028 |p( | Jump_Nonzero 0x356 032e 00d8 | | Load_Top At_Offset_0 032f e5fe | | Load 0x2,-0x2 0330 01d7 | | Execute Vector,Field_Read 0331 e404 | | Load 0x2,0x4 0332 027f | | Execute Discrete,Equal 0333 6820 |h | Jump_Zero 0x354 0334 00cf | | Action Mark_Auxiliary 0335 4801 |H | Short_Literal 0x1 0336 e402 | | Load 0x2,0x2 0337 0264 | d | Execute Discrete,Below_Bound 0338 701a |p | Jump_Nonzero 0x353 0339 e403 | | Load 0x2,0x3 033a 00d9 | | Load_Top At_Offset_1 033b 0273 | s | Execute Discrete,Plus 033c e5ff | | Load 0x2,-0x1 033d 01d7 | | Execute Vector,Field_Read 033e e407 | | Load 0x2,0x7 033f 00da | | Load_Top At_Offset_2 0340 0273 | s | Execute Discrete,Plus 0341 e5fe | | Load 0x2,-0x2 0342 01d7 | | Execute Vector,Field_Read 0343 027e | ~ | Execute Discrete,Not_Equal 0344 6802 |h | Jump_Zero 0x347 0345 00d2 | | Pop_Control Pop_Count_2 0346 780c |x | Jump 0x353 0347 00d8 | | Load_Top At_Offset_0 0348 0f01 | | Execute_Immediate Equal,0x1 0349 6807 |h | Jump_Zero 0x351 034a 00db | | Load_Top At_Offset_3 034b 00d8 | | Load_Top At_Offset_0 034c 00e3 | | Load_Encached Natural_Cache 034d 0260 | ` | Execute Discrete,In_Type 034e 7001 |p | Jump_Nonzero 0x350 034f 0801 | | Execute_Immediate Raise,0x1 0350 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0351 00c8 | | Action Pop_Auxiliary_Range 0352 37e6 |7 | Loop_Decreasing 0x339 0353 00ce | | Action Pop_Auxiliary 0354 00c8 | | Action Pop_Auxiliary_Range 0355 3fd8 |? | Loop_Increasing 0x32e 0356 00ce | | Action Pop_Auxiliary 0357 4800 |H | Short_Literal 0x0 0358 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0359 00da | | Load_Top At_Offset_2 035a 7007 |p | Jump_Nonzero 0x362 035b e5fd | | Load 0x2,-0x3 035c e5fe | | Load 0x2,-0x2 035d 00db | | Load_Top At_Offset_3 035e e5ff | | Load 0x2,-0x1 035f 01d7 | | Execute Vector,Field_Read 0360 821c | | Call 0x1,0x1c 0361 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0362 e5fe | | Load 0x2,-0x2 0363 01dd | | Execute Vector,First 0364 00d8 | | Load_Top At_Offset_0 0365 00e3 | | Load_Encached Natural_Cache 0366 0260 | ` | Execute Discrete,In_Type 0367 7001 |p | Jump_Nonzero 0x369 0368 0801 | | Execute_Immediate Raise,0x1 0369 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 036a 0000 0000 | | .BLANK 0000[0x6] 0370 ; -------------------------------------------------------------------------------------- 0370 ; SUBPROGRAM 0370 ; -------------------------------------------------------------------------------------- 0370 0373 | s | .CONST 0x0373 ; Address of begin 0371 0004 | | .CONST 0x0004 ; Address of exception handler 0372 0001 | | .CONST 0x0001 ; Number of locals 0373 BODY_0370: 0373 INIT_0370: 0373 e5fd | | Load 0x2,-0x3 0374 6812 |h | Jump_Zero 0x387 0375 00cf | | Action Mark_Auxiliary 0376 e5fe | | Load 0x2,-0x2 0377 01d9 | | Execute Vector,Reverse_Bounds 0378 0263 | c | Execute Discrete,Above_Bound 0379 700b |p | Jump_Nonzero 0x385 037a 00d8 | | Load_Top At_Offset_0 037b e5fe | | Load 0x2,-0x2 037c 01d7 | | Execute Vector,Field_Read 037d e5ff | | Load 0x2,-0x1 037e e228 | ( | Load 0x1,0x28 037f 01a7 | | Execute Matrix,Field_Read 0380 6802 |h | Jump_Zero 0x383 0381 00d8 | | Load_Top At_Offset_0 0382 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0383 00c8 | | Action Pop_Auxiliary_Range 0384 3ff5 |? | Loop_Increasing 0x37a 0385 00ce | | Action Pop_Auxiliary 0386 7810 |x | Jump 0x397 0387 00cf | | Action Mark_Auxiliary 0388 e5fe | | Load 0x2,-0x2 0389 01d9 | | Execute Vector,Reverse_Bounds 038a 0263 | c | Execute Discrete,Above_Bound 038b 700a |p | Jump_Nonzero 0x396 038c e5ff | | Load 0x2,-0x1 038d 00d9 | | Load_Top At_Offset_1 038e e5fe | | Load 0x2,-0x2 038f 01d7 | | Execute Vector,Field_Read 0390 027f | | Execute Discrete,Equal 0391 6802 |h | Jump_Zero 0x394 0392 00d8 | | Load_Top At_Offset_0 0393 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0394 00c8 | | Action Pop_Auxiliary_Range 0395 3ff6 |? | Loop_Increasing 0x38c 0396 00ce | | Action Pop_Auxiliary 0397 4800 |H | Short_Literal 0x0 0398 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0399 0000 0000 | | .BLANK 0000[0x7] 03a0 ; -------------------------------------------------------------------------------------- 03a0 ; SUBPROGRAM 03a0 ; -------------------------------------------------------------------------------------- 03a0 03ad | | .CONST 0x03ad ; Address of begin 03a1 0004 | | .CONST 0x0004 ; Address of exception handler 03a2 0004 | | .CONST 0x0004 ; Number of locals 03a3 INIT_03a0: 03a3 00da | | Load_Top At_Offset_2 03a4 01db | | Execute Vector,Length 03a5 0aff | | Execute_Immediate Plus,-0x1 03a6 00e2 | | Load_Encached Integer_Cache 03a7 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 03a8 00db | | Load_Top At_Offset_3 03a9 01dd | | Execute Vector,First 03aa 00e4 | | Load_Encached Positive_Cache 03ab 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 03ac 00e8 | | Load_Encached Character_Cache 03ad BODY_03a0: 03ad 00da | | Load_Top At_Offset_2 03ae 0c01 | | Execute_Immediate Greater_Equal,0x1 03af 687d |h} | Jump_Zero 0x42d 03b0 00d9 | | Load_Top At_Offset_1 03b1 e5ff | | Load 0x2,-0x1 03b2 01d7 | | Execute Vector,Field_Read 03b3 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 03b4 e5fd | | Load 0x2,-0x3 03b5 683c |h< | Jump_Zero 0x3f2 03b6 00cf | | Action Mark_Auxiliary 03b7 e5fe | | Load 0x2,-0x2 03b8 01dd | | Execute Vector,First 03b9 e5fe | | Load 0x2,-0x2 03ba 01dc | | Execute Vector,Last 03bb e402 | | Load 0x2,0x2 03bc 0272 | r | Execute Discrete,Minus 03bd 00d8 | | Load_Top At_Offset_0 03be 00e2 | | Load_Encached Integer_Cache 03bf 0260 | ` | Execute Discrete,In_Type 03c0 7001 |p | Jump_Nonzero 0x3c2 03c1 0801 | | Execute_Immediate Raise,0x1 03c2 0264 | d | Execute Discrete,Below_Bound 03c3 702c |p, | Jump_Nonzero 0x3f0 03c4 00db | | Load_Top At_Offset_3 03c5 00d9 | | Load_Top At_Offset_1 03c6 e5fe | | Load 0x2,-0x2 03c7 01d7 | | Execute Vector,Field_Read 03c8 e228 | ( | Load 0x1,0x28 03c9 01a7 | | Execute Matrix,Field_Read 03ca 6823 |h# | Jump_Zero 0x3ee 03cb 00cf | | Action Mark_Auxiliary 03cc 4801 |H | Short_Literal 0x1 03cd e402 | | Load 0x2,0x2 03ce 0264 | d | Execute Discrete,Below_Bound 03cf 701d |p | Jump_Nonzero 0x3ed 03d0 00db | | Load_Top At_Offset_3 03d1 00d9 | | Load_Top At_Offset_1 03d2 0273 | s | Execute Discrete,Plus 03d3 e5fe | | Load 0x2,-0x2 03d4 01d7 | | Execute Vector,Field_Read 03d5 e403 | | Load 0x2,0x3 03d6 00da | | Load_Top At_Offset_2 03d7 0273 | s | Execute Discrete,Plus 03d8 e5ff | | Load 0x2,-0x1 03d9 01d7 | | Execute Vector,Field_Read 03da e228 | ( | Load 0x1,0x28 03db 01a7 | | Execute Matrix,Field_Read 03dc 7002 |p | Jump_Nonzero 0x3df 03dd 00d2 | | Pop_Control Pop_Count_2 03de 780e |x | Jump 0x3ed 03df 00d8 | | Load_Top At_Offset_0 03e0 0f01 | | Execute_Immediate Equal,0x1 03e1 6809 |h | Jump_Zero 0x3eb 03e2 00db | | Load_Top At_Offset_3 03e3 e402 | | Load 0x2,0x2 03e4 0273 | s | Execute Discrete,Plus 03e5 00d8 | | Load_Top At_Offset_0 03e6 00e3 | | Load_Encached Natural_Cache 03e7 0260 | ` | Execute Discrete,In_Type 03e8 7001 |p | Jump_Nonzero 0x3ea 03e9 0801 | | Execute_Immediate Raise,0x1 03ea 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 03eb 00c8 | | Action Pop_Auxiliary_Range 03ec 37e3 |7 | Loop_Decreasing 0x3d0 03ed 00ce | | Action Pop_Auxiliary 03ee 00c8 | | Action Pop_Auxiliary_Range 03ef 37d4 |7 | Loop_Decreasing 0x3c4 03f0 00ce | | Action Pop_Auxiliary 03f1 7839 |x9 | Jump 0x42b 03f2 00cf | | Action Mark_Auxiliary 03f3 e5fe | | Load 0x2,-0x2 03f4 01dd | | Execute Vector,First 03f5 e5fe | | Load 0x2,-0x2 03f6 01dc | | Execute Vector,Last 03f7 e402 | | Load 0x2,0x2 03f8 0272 | r | Execute Discrete,Minus 03f9 00d8 | | Load_Top At_Offset_0 03fa 00e2 | | Load_Encached Integer_Cache 03fb 0260 | ` | Execute Discrete,In_Type 03fc 7001 |p | Jump_Nonzero 0x3fe 03fd 0801 | | Execute_Immediate Raise,0x1 03fe 0264 | d | Execute Discrete,Below_Bound 03ff 702a |p* | Jump_Nonzero 0x42a 0400 00d8 | | Load_Top At_Offset_0 0401 e5fe | | Load 0x2,-0x2 0402 01d7 | | Execute Vector,Field_Read 0403 e404 | | Load 0x2,0x4 0404 027f | | Execute Discrete,Equal 0405 6822 |h" | Jump_Zero 0x428 0406 00cf | | Action Mark_Auxiliary 0407 4801 |H | Short_Literal 0x1 0408 e402 | | Load 0x2,0x2 0409 0264 | d | Execute Discrete,Below_Bound 040a 701c |p | Jump_Nonzero 0x427 040b e403 | | Load 0x2,0x3 040c 00d9 | | Load_Top At_Offset_1 040d 0273 | s | Execute Discrete,Plus 040e e5ff | | Load 0x2,-0x1 040f 01d7 | | Execute Vector,Field_Read 0410 e407 | | Load 0x2,0x7 0411 00da | | Load_Top At_Offset_2 0412 0273 | s | Execute Discrete,Plus 0413 e5fe | | Load 0x2,-0x2 0414 01d7 | | Execute Vector,Field_Read 0415 027e | ~ | Execute Discrete,Not_Equal 0416 6802 |h | Jump_Zero 0x419 0417 00d2 | | Pop_Control Pop_Count_2 0418 780e |x | Jump 0x427 0419 00d8 | | Load_Top At_Offset_0 041a 0f01 | | Execute_Immediate Equal,0x1 041b 6809 |h | Jump_Zero 0x425 041c 00db | | Load_Top At_Offset_3 041d e402 | | Load 0x2,0x2 041e 0273 | s | Execute Discrete,Plus 041f 00d8 | | Load_Top At_Offset_0 0420 00e3 | | Load_Encached Natural_Cache 0421 0260 | ` | Execute Discrete,In_Type 0422 7001 |p | Jump_Nonzero 0x424 0423 0801 | | Execute_Immediate Raise,0x1 0424 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0425 00c8 | | Action Pop_Auxiliary_Range 0426 37e4 |7 | Loop_Decreasing 0x40b 0427 00ce | | Action Pop_Auxiliary 0428 00c8 | | Action Pop_Auxiliary_Range 0429 37d6 |7 | Loop_Decreasing 0x400 042a 00ce | | Action Pop_Auxiliary 042b 4800 |H | Short_Literal 0x0 042c 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 042d 00da | | Load_Top At_Offset_2 042e 7007 |p | Jump_Nonzero 0x436 042f e5fd | | Load 0x2,-0x3 0430 e5fe | | Load 0x2,-0x2 0431 00db | | Load_Top At_Offset_3 0432 e5ff | | Load 0x2,-0x1 0433 01d7 | | Execute Vector,Field_Read 0434 821e | | Call 0x1,0x1e 0435 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0436 e5fe | | Load 0x2,-0x2 0437 01dc | | Execute Vector,Last 0438 00d8 | | Load_Top At_Offset_0 0439 00e3 | | Load_Encached Natural_Cache 043a 0260 | ` | Execute Discrete,In_Type 043b 7001 |p | Jump_Nonzero 0x43d 043c 0801 | | Execute_Immediate Raise,0x1 043d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 043e 0000 0000 | | .XXX[0x2] 0440 ; -------------------------------------------------------------------------------------- 0440 ; SUBPROGRAM 0440 ; -------------------------------------------------------------------------------------- 0440 0443 | C | .CONST 0x0443 ; Address of begin 0441 0004 | | .CONST 0x0004 ; Address of exception handler 0442 0001 | | .CONST 0x0001 ; Number of locals 0443 BODY_0440: 0443 INIT_0440: 0443 e5fd | | Load 0x2,-0x3 0444 6812 |h | Jump_Zero 0x457 0445 00cf | | Action Mark_Auxiliary 0446 e5fe | | Load 0x2,-0x2 0447 01da | | Execute Vector,Bounds 0448 0264 | d | Execute Discrete,Below_Bound 0449 700b |p | Jump_Nonzero 0x455 044a 00d8 | | Load_Top At_Offset_0 044b e5fe | | Load 0x2,-0x2 044c 01d7 | | Execute Vector,Field_Read 044d e5ff | | Load 0x2,-0x1 044e e228 | ( | Load 0x1,0x28 044f 01a7 | | Execute Matrix,Field_Read 0450 6802 |h | Jump_Zero 0x453 0451 00d8 | | Load_Top At_Offset_0 0452 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0453 00c8 | | Action Pop_Auxiliary_Range 0454 37f5 |7 | Loop_Decreasing 0x44a 0455 00ce | | Action Pop_Auxiliary 0456 7810 |x | Jump 0x467 0457 00cf | | Action Mark_Auxiliary 0458 e5fe | | Load 0x2,-0x2 0459 01da | | Execute Vector,Bounds 045a 0264 | d | Execute Discrete,Below_Bound 045b 700a |p | Jump_Nonzero 0x466 045c e5ff | | Load 0x2,-0x1 045d 00d9 | | Load_Top At_Offset_1 045e e5fe | | Load 0x2,-0x2 045f 01d7 | | Execute Vector,Field_Read 0460 027f | | Execute Discrete,Equal 0461 6802 |h | Jump_Zero 0x464 0462 00d8 | | Load_Top At_Offset_0 0463 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0464 00c8 | | Action Pop_Auxiliary_Range 0465 37f6 |7 | Loop_Decreasing 0x45c 0466 00ce | | Action Pop_Auxiliary 0467 4800 |H | Short_Literal 0x0 0468 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0469 0000 0000 | | .BLANK 0000[0x7] 0470 ; -------------------------------------------------------------------------------------- 0470 ; SUBPROGRAM 0470 ; -------------------------------------------------------------------------------------- 0470 047f | | .CONST 0x047f ; Address of begin 0471 0004 | | .CONST 0x0004 ; Address of exception handler 0472 0004 | | .CONST 0x0004 ; Number of locals 0473 INIT_0470: 0473 00da | | Load_Top At_Offset_2 0474 01db | | Execute Vector,Length 0475 00e2 | | Load_Encached Integer_Cache 0476 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0477 00db | | Load_Top At_Offset_3 0478 01dd | | Execute Vector,First 0479 00e4 | | Load_Encached Positive_Cache 047a 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 047b e5fe | | Load 0x2,-0x2 047c 01dd | | Execute Vector,First 047d 00e4 | | Load_Encached Positive_Cache 047e 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 047f BODY_0470: 047f 00da | | Load_Top At_Offset_2 0480 e5fe | | Load 0x2,-0x2 0481 01db | | Execute Vector,Length 0482 027f | | Execute Discrete,Equal 0483 6825 |h% | Jump_Zero 0x4a9 0484 e5fd | | Load 0x2,-0x3 0485 681f |h | Jump_Zero 0x4a5 0486 00cf | | Action Mark_Auxiliary 0487 00db | | Load_Top At_Offset_3 0488 0aff | | Execute_Immediate Plus,-0x1 0489 00d8 | | Load_Top At_Offset_0 048a 00e2 | | Load_Encached Integer_Cache 048b 0260 | ` | Execute Discrete,In_Type 048c 7001 |p | Jump_Nonzero 0x48e 048d 0801 | | Execute_Immediate Raise,0x1 048e 4800 |H | Short_Literal 0x0 048f 0263 | c | Execute Discrete,Above_Bound 0490 7011 |p | Jump_Nonzero 0x4a2 0491 00db | | Load_Top At_Offset_3 0492 00d9 | | Load_Top At_Offset_1 0493 0273 | s | Execute Discrete,Plus 0494 e5fe | | Load 0x2,-0x2 0495 01d7 | | Execute Vector,Field_Read 0496 e403 | | Load 0x2,0x3 0497 00da | | Load_Top At_Offset_2 0498 0273 | s | Execute Discrete,Plus 0499 e5ff | | Load 0x2,-0x1 049a 01d7 | | Execute Vector,Field_Read 049b e228 | ( | Load 0x1,0x28 049c 01a7 | | Execute Matrix,Field_Read 049d 7002 |p | Jump_Nonzero 0x4a0 049e 4800 |H | Short_Literal 0x0 049f 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 04a0 00c8 | | Action Pop_Auxiliary_Range 04a1 3fef |? | Loop_Increasing 0x491 04a2 00ce | | Action Pop_Auxiliary 04a3 4801 |H | Short_Literal 0x1 04a4 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 04a5 e5ff | | Load 0x2,-0x1 04a6 e5fe | | Load 0x2,-0x2 04a7 01df | | Execute Vector,Equal 04a8 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 04a9 4800 |H | Short_Literal 0x0 04aa 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 04ab 0000 0000 | | .BLANK 0000[0x5] 04b0 ; -------------------------------------------------------------------------------------- 04b0 ; SUBPROGRAM 04b0 ; -------------------------------------------------------------------------------------- 04b0 04b3 | | .CONST 0x04b3 ; Address of begin 04b1 0004 | | .CONST 0x0004 ; Address of exception handler 04b2 0001 | | .CONST 0x0001 ; Number of locals 04b3 BODY_04b0: 04b3 INIT_04b0: 04b3 e5fd | | Load 0x2,-0x3 04b4 6806 |h | Jump_Zero 0x4bb 04b5 00da | | Load_Top At_Offset_2 04b6 8215 | | Call 0x1,0x15 04b7 e5fe | | Load 0x2,-0x2 04b8 8215 | | Call 0x1,0x15 04b9 01c1 | | Execute Vector,Less 04ba 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 04bb 00da | | Load_Top At_Offset_2 04bc e5fe | | Load 0x2,-0x2 04bd 01c1 | | Execute Vector,Less 04be 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 04bf 0000 | | .XXX[0x1] 04c0 ; -------------------------------------------------------------------------------------- 04c0 ; SUBPROGRAM 04c0 ; -------------------------------------------------------------------------------------- 04c0 04c3 | | .CONST 0x04c3 ; Address of begin 04c1 0004 | | .CONST 0x0004 ; Address of exception handler 04c2 0001 | | .CONST 0x0001 ; Number of locals 04c3 BODY_04c0: 04c3 INIT_04c0: 04c3 e5fd | | Load 0x2,-0x3 04c4 6806 |h | Jump_Zero 0x4cb 04c5 00db | | Load_Top At_Offset_3 04c6 8215 | | Call 0x1,0x15 04c7 00db | | Load_Top At_Offset_3 04c8 8215 | | Call 0x1,0x15 04c9 01c1 | | Execute Vector,Less 04ca 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 04cb 00db | | Load_Top At_Offset_3 04cc 00db | | Load_Top At_Offset_3 04cd 01c1 | | Execute Vector,Less 04ce 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 04cf 0000 | | .XXX[0x1] 04d0 ; -------------------------------------------------------------------------------------- 04d0 ; SUBPROGRAM 04d0 ; -------------------------------------------------------------------------------------- 04d0 04d7 | | .CONST 0x04d7 ; Address of begin 04d1 0004 | | .CONST 0x0004 ; Address of exception handler 04d2 0003 | | .CONST 0x0003 ; Number of locals 04d3 INIT_04d0: 04d3 e229 | ) | Load 0x1,0x29 04d4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 04d5 029f 058b | | Declare_Subprogram INIT_0588,For_Call 04d7 BODY_04d0: 04d7 00cf | | Action Mark_Auxiliary 04d8 e5ff | | Load 0x2,-0x1 04d9 01d9 | | Execute Vector,Reverse_Bounds 04da 0263 | c | Execute Discrete,Above_Bound 04db 7003 |p | Jump_Nonzero 0x4df 04dc 8403 | | Call 0x2,0x3 04dd 00c8 | | Action Pop_Auxiliary_Range 04de 3ffd |? | Loop_Increasing 0x4dc 04df 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04e0 ; -------------------------------------------------------------------------------------- 04e0 ; SUBPROGRAM 04e0 ; -------------------------------------------------------------------------------------- 04e0 04ef | | .CONST 0x04ef ; Address of begin 04e1 0004 | | .CONST 0x0004 ; Address of exception handler 04e2 0004 | | .CONST 0x0004 ; Number of locals 04e3 INIT_04e0: 04e3 e229 | ) | Load 0x1,0x29 04e4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 04e5 00db | | Load_Top At_Offset_3 04e6 01da | | Execute Vector,Bounds 04e7 00e9 | | Load_Encached String_Cache 04e8 035b | [ | Declare_Type Array,Constrained 04e9 0337 | 7 | Declare_Variable Array 04ea e5ff | | Load 0x2,-0x1 04eb 00d9 | | Load_Top At_Offset_1 04ec 01d4 | | Execute Vector,Structure_Write 04ed 029f 05ab | | Declare_Subprogram INIT_05a8,For_Call 04ef BODY_04e0: 04ef 00cf | | Action Mark_Auxiliary 04f0 00da | | Load_Top At_Offset_2 04f1 01d9 | | Execute Vector,Reverse_Bounds 04f2 0263 | c | Execute Discrete,Above_Bound 04f3 7003 |p | Jump_Nonzero 0x4f7 04f4 8404 | | Call 0x2,0x4 04f5 00c8 | | Action Pop_Auxiliary_Range 04f6 3ffd |? | Loop_Increasing 0x4f4 04f7 00ce | | Action Pop_Auxiliary 04f8 00d9 | | Load_Top At_Offset_1 04f9 00e9 | | Load_Encached String_Cache 04fa 01c6 | | Execute Vector,Convert_To_Formal 04fb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 04fc 0000 0000 | | .BLANK 0000[0x4] 0500 ; -------------------------------------------------------------------------------------- 0500 ; SUBPROGRAM 0500 ; -------------------------------------------------------------------------------------- 0500 0506 | | .CONST 0x0506 ; Address of begin 0501 0004 | | .CONST 0x0004 ; Address of exception handler 0502 0004 | | .CONST 0x0004 ; Number of locals 0503 INIT_0500: 0503 00e2 | | Load_Encached Integer_Cache 0504 00e8 | | Load_Encached Character_Cache 0505 00e8 | | Load_Encached Character_Cache 0506 BODY_0500: 0506 00cf | | Action Mark_Auxiliary 0507 00e8 | | Load_Encached Character_Cache 0508 0265 | e | Execute Discrete,Reverse_Bounds 0509 0007 | | Action Break_Optional 050a 00d8 | | Load_Top At_Offset_0 050b e226 | & | Load 0x1,0x26 050c 01d7 | | Execute Vector,Field_Read 050d a403 | | Store_Unchecked 0x2,0x3 050e 00d8 | | Load_Top At_Offset_0 050f e227 | ' | Load 0x1,0x27 0510 01d7 | | Execute Vector,Field_Read 0511 a404 | | Store_Unchecked 0x2,0x4 0512 e403 | | Load 0x2,0x3 0513 e404 | | Load 0x2,0x4 0514 027e | ~ | Execute Discrete,Not_Equal 0515 7005 |p | Jump_Nonzero 0x51b 0516 00d8 | | Load_Top At_Offset_0 0517 4830 |H0 | Short_Literal 0x30 0518 4839 |H9 | Short_Literal 0x39 0519 0262 | b | Execute Discrete,In_Range 051a 7801 |x | Jump 0x51c 051b 4801 |H | Short_Literal 0x1 051c 0907 | | Execute_Immediate Binary_Scale,0x7 051d c402 | | Store 0x2,0x2 051e e402 | | Load 0x2,0x2 051f e403 | | Load 0x2,0x3 0520 0273 | s | Execute Discrete,Plus 0521 00d9 | | Load_Top At_Offset_1 0522 e22b | + | Load 0x1,0x2b 0523 01d6 | | Execute Vector,Field_Write 0524 e402 | | Load 0x2,0x2 0525 e404 | | Load 0x2,0x4 0526 0273 | s | Execute Discrete,Plus 0527 00d9 | | Load_Top At_Offset_1 0528 4880 |H | Short_Literal 0x80 0529 0273 | s | Execute Discrete,Plus 052a e22b | + | Load 0x1,0x2b 052b 01d6 | | Execute Vector,Field_Write 052c 00c8 | | Action Pop_Auxiliary_Range 052d 3fdc |? | Loop_Increasing 0x50a 052e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 052f 0000 | | .XXX[0x1] 0530 ; -------------------------------------------------------------------------------------- 0530 ; SUBPROGRAM 0530 ; -------------------------------------------------------------------------------------- 0530 0533 | 3 | .CONST 0x0533 ; Address of begin 0531 0004 | | .CONST 0x0004 ; Address of exception handler 0532 0001 | | .CONST 0x0001 ; Number of locals 0533 BODY_0530: 0533 INIT_0530: 0533 00da | | Load_Top At_Offset_2 0534 7028 |p( | Jump_Nonzero 0x55d 0535 00cf | | Action Mark_Auxiliary 0536 e7fe | | Load 0x3,-0x2 0537 4801 |H | Short_Literal 0x1 0538 0263 | c | Execute Discrete,Above_Bound 0539 7006 |p | Jump_Nonzero 0x540 053a e403 | | Load 0x2,0x3 053b e5fc | | Load 0x2,-0x4 053c 8005 | | Call 0x0,0x5 053d 00d1 | | Pop_Control Pop_Count_1 053e 00c8 | | Action Pop_Auxiliary_Range 053f 3ffa |? | Loop_Increasing 0x53a 0540 00ce | | Action Pop_Auxiliary 0541 e402 | | Load 0x2,0x2 0542 6804 |h | Jump_Zero 0x547 0543 e403 | | Load 0x2,0x3 0544 482d |H- | Short_Literal 0x2d 0545 8005 | | Call 0x0,0x5 0546 00d1 | | Pop_Control Pop_Count_1 0547 e5ff | | Load 0x2,-0x1 0548 7013 |p | Jump_Nonzero 0x55c 0549 00db | | Load_Top At_Offset_3 054a 0c01 | | Execute_Immediate Greater_Equal,0x1 054b 680c |h | Jump_Zero 0x558 054c e403 | | Load 0x2,0x3 054d 4830 |H0 | Short_Literal 0x30 054e e403 | | Load 0x2,0x3 054f 8006 | | Call 0x0,0x6 0550 00d8 | | Load_Top At_Offset_0 0551 00e4 | | Load_Encached Positive_Cache 0552 0260 | ` | Execute Discrete,In_Type 0553 7001 |p | Jump_Nonzero 0x555 0554 0801 | | Execute_Immediate Raise,0x1 0555 8007 | | Call 0x0,0x7 0556 00d1 | | Pop_Control Pop_Count_1 0557 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0558 e403 | | Load 0x2,0x3 0559 4830 |H0 | Short_Literal 0x30 055a 8005 | | Call 0x0,0x5 055b 00d1 | | Pop_Control Pop_Count_1 055c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 055d 00db | | Load_Top At_Offset_3 055e 0aff | | Execute_Immediate Plus,-0x1 055f 00d8 | | Load_Top At_Offset_0 0560 00e2 | | Load_Encached Integer_Cache 0561 0260 | ` | Execute Discrete,In_Type 0562 7001 |p | Jump_Nonzero 0x564 0563 0801 | | Execute_Immediate Raise,0x1 0564 00db | | Load_Top At_Offset_3 0565 e5fe | | Load 0x2,-0x2 0566 0270 | p | Execute Discrete,Divide 0567 8405 | | Call 0x2,0x5 0568 e402 | | Load 0x2,0x2 0569 7005 |p | Jump_Nonzero 0x56f 056a 00da | | Load_Top At_Offset_2 056b e5fe | | Load 0x2,-0x2 056c 026e | n | Execute Discrete,Modulo 056d a404 | | Store_Unchecked 0x2,0x4 056e 780c |x | Jump 0x57b 056f e5fe | | Load 0x2,-0x2 0570 00db | | Load_Top At_Offset_3 0571 e5fe | | Load 0x2,-0x2 0572 026e | n | Execute Discrete,Modulo 0573 0272 | r | Execute Discrete,Minus 0574 c404 | | Store 0x2,0x4 0575 e404 | | Load 0x2,0x4 0576 e5fe | | Load 0x2,-0x2 0577 027f | | Execute Discrete,Equal 0578 6802 |h | Jump_Zero 0x57b 0579 4800 |H | Short_Literal 0x0 057a a404 | | Store_Unchecked 0x2,0x4 057b e403 | | Load 0x2,0x3 057c e404 | | Load 0x2,0x4 057d e22d | - | Load 0x1,0x2d 057e 01d7 | | Execute Vector,Field_Read 057f 8005 | | Call 0x0,0x5 0580 00d1 | | Pop_Control Pop_Count_1 0581 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0582 0000 0000 | | .BLANK 0000[0x6] 0588 ; -------------------------------------------------------------------------------------- 0588 ; SUBPROGRAM 0588 ; -------------------------------------------------------------------------------------- 0588 0595 | | .CONST 0x0595 ; Address of begin 0589 0004 | | .CONST 0x0004 ; Address of exception handler 058a 0003 | | .CONST 0x0003 ; Number of locals 058b INIT_0588: 058b e406 | | Load 0x2,0x6 058c e5ff | | Load 0x2,-0x1 058d 01d5 | | Execute Vector,Field_Reference 058e 0007 | | Action Break_Optional 058f 00d8 | | Load_Top At_Offset_0 0590 e402 | | Load 0x2,0x2 0591 0273 | s | Execute Discrete,Plus 0592 e22b | + | Load 0x1,0x2b 0593 01d5 | | Execute Vector,Field_Reference 0594 0007 | | Action Break_Optional 0595 BODY_0588: 0595 00d8 | | Load_Top At_Offset_0 0596 487f |H | Short_Literal 0x7f 0597 0279 | y | Execute Discrete,And 0598 00d8 | | Load_Top At_Offset_0 0599 00e8 | | Load_Encached Character_Cache 059a 0260 | ` | Execute Discrete,In_Type 059b 7001 |p | Jump_Nonzero 0x59d 059c 0801 | | Execute_Immediate Raise,0x1 059d a602 | | Store_Unchecked 0x3,0x2 059e 00d8 | | Load_Top At_Offset_0 059f 00da | | Load_Top At_Offset_2 05a0 0272 | r | Execute Discrete,Minus 05a1 c402 | | Store 0x2,0x2 05a2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 05a3 0000 0000 | | .BLANK 0000[0x5] 05a8 ; -------------------------------------------------------------------------------------- 05a8 ; SUBPROGRAM 05a8 ; -------------------------------------------------------------------------------------- 05a8 05b5 | | .CONST 0x05b5 ; Address of begin 05a9 0004 | | .CONST 0x0004 ; Address of exception handler 05aa 0003 | | .CONST 0x0003 ; Number of locals 05ab INIT_05a8: 05ab e407 | | Load 0x2,0x7 05ac e403 | | Load 0x2,0x3 05ad 01d5 | | Execute Vector,Field_Reference 05ae 0007 | | Action Break_Optional 05af 00d8 | | Load_Top At_Offset_0 05b0 e402 | | Load 0x2,0x2 05b1 0273 | s | Execute Discrete,Plus 05b2 e22b | + | Load 0x1,0x2b 05b3 01d5 | | Execute Vector,Field_Reference 05b4 0007 | | Action Break_Optional 05b5 BODY_05a8: 05b5 00d8 | | Load_Top At_Offset_0 05b6 487f |H | Short_Literal 0x7f 05b7 0279 | y | Execute Discrete,And 05b8 00d8 | | Load_Top At_Offset_0 05b9 00e8 | | Load_Encached Character_Cache 05ba 0260 | ` | Execute Discrete,In_Type 05bb 7001 |p | Jump_Nonzero 0x5bd 05bc 0801 | | Execute_Immediate Raise,0x1 05bd a602 | | Store_Unchecked 0x3,0x2 05be 00d8 | | Load_Top At_Offset_0 05bf 00da | | Load_Top At_Offset_2 05c0 0272 | r | Execute Discrete,Minus 05c1 c402 | | Store 0x2,0x2 05c2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 05c3 0000 0000 | | .BLANK 0000[0x5] 05c8 ; -------------------------------------------------------------------------------------- 05c8 ; Debug Table 05c8 ; -------------------------------------------------------------------------------------- 05c8 0004 0002 | | .DEBUG4 0x0004,0x0002,0x2e85,0x0000,0x0001,0x0000 05ce 0000 0000 | | .BLANK 0000[0x8] 05d6 0080 0547 | G| .XXX[0x3] 05d8 9c80 | | 05d9 0000 0000 | | .BLANK 0000[0x27]