|
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_779ce4
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0240 | @ | .CONST 0x0240 ; Offset of debug table 0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction 0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion 0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments) 0007 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0010 | | .CONST 0x0010 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0001 | | .CONST 0x0001 ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 000f 00c7 | | Action Elaborate_Subprogram 0010 BODY_0008: 0010 00bc | | Action Signal_Activated 0011 00bb | | Action Signal_Completion 0012 0000 0000 | | .BLANK 0000[0x6] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 00b6 | | .CONST 0x00b6 ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0015 | | .CONST 0x0015 ; Number of locals 001b INIT_0018: 001b e002 | | Load 0x0,0x2 001c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 001d e003 | | Load 0x0,0x3 001e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 001f 8004 | | Call 0x0,0x4 0020 e002 | | Load 0x0,0x2 0021 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0022 e003 | | Load 0x0,0x3 0023 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0024 8005 | | Call 0x0,0x5 0025 e006 | | Load 0x0,0x6 0026 e002 | | Load 0x0,0x2 0027 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0028 e003 | | Load 0x0,0x3 0029 1811 | | Execute Package,Field_Execute,Field_Number 0x11 002a e5ff | | Load 0x2,-0x1 002b 8007 | | Call 0x0,0x7 002c 0031 | 1 | Store_Top Heap_Access,At_Offset_1 002d e006 | | Load 0x0,0x6 002e e002 | | Load 0x0,0x2 002f 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0030 e003 | | Load 0x0,0x3 0031 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0032 e5fe | | Load 0x2,-0x2 0033 8007 | | Call 0x0,0x7 0034 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0035 e008 | | Load 0x0,0x8 0036 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0037 02c7 | | Declare_Variable Any 0038 00d8 | | Load_Top At_Offset_0 0039 1c00 | | Execute_Immediate Run_Utility,0x0 003a e009 | | Load 0x0,0x9 003b 0007 | | Action Break_Optional 003c e00a | | Load 0x0,0xa 003d 0007 | | Action Break_Optional 003e 00e1 | | Load_Encached Boolean_Cache 003f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0040 e00b | | Load 0x0,0xb 0041 0266 | f | Execute Discrete,Bounds 0042 e00c | | Load 0x0,0xc 0043 02a0 | | Declare_Subprogram Null_Subprogram 0044 4801 |H | Short_Literal 0x1 0045 035d | ] | Declare_Type Array,Defined 0046 00d8 | | Load_Top At_Offset_0 0047 0337 | 7 | Declare_Variable Array 0048 00d8 | | Load_Top At_Offset_0 0049 0335 | 5 | Declare_Variable Array,Duplicate 004a 00cd | | Action Spare6_Action 004b 4800 |H | Short_Literal 0x0 004c 4800 |H | Short_Literal 0x0 004d 00da | | Load_Top At_Offset_2 004e 01d6 | | Execute Vector,Field_Write 004f 4809 |H | Short_Literal 0x9 0050 4801 |H | Short_Literal 0x1 0051 00da | | Load_Top At_Offset_2 0052 01d6 | | Execute Vector,Field_Write 0053 4800 |H | Short_Literal 0x0 0054 4802 |H | Short_Literal 0x2 0055 00da | | Load_Top At_Offset_2 0056 01d6 | | Execute Vector,Field_Write 0057 480a |H | Short_Literal 0xa 0058 4803 |H | Short_Literal 0x3 0059 00da | | Load_Top At_Offset_2 005a 01d6 | | Execute Vector,Field_Write 005b 4803 |H | Short_Literal 0x3 005c 4804 |H | Short_Literal 0x4 005d 00da | | Load_Top At_Offset_2 005e 01d6 | | Execute Vector,Field_Write 005f 4801 |H | Short_Literal 0x1 0060 4805 |H | Short_Literal 0x5 0061 00da | | Load_Top At_Offset_2 0062 01d6 | | Execute Vector,Field_Write 0063 4801 |H | Short_Literal 0x1 0064 4806 |H | Short_Literal 0x6 0065 00da | | Load_Top At_Offset_2 0066 01d6 | | Execute Vector,Field_Write 0067 00d9 | | Load_Top At_Offset_1 0068 01d4 | | Execute Vector,Structure_Write 0069 e00d | | Load 0x0,0xd 006a 0266 | f | Execute Discrete,Bounds 006b e00c | | Load 0x0,0xc 006c 02a0 | | Declare_Subprogram Null_Subprogram 006d 4801 |H | Short_Literal 0x1 006e 035d | ] | Declare_Type Array,Defined 006f 00d8 | | Load_Top At_Offset_0 0070 0337 | 7 | Declare_Variable Array 0071 00d8 | | Load_Top At_Offset_0 0072 0335 | 5 | Declare_Variable Array,Duplicate 0073 00cd | | Action Spare6_Action 0074 4800 |H | Short_Literal 0x0 0075 4800 |H | Short_Literal 0x0 0076 00da | | Load_Top At_Offset_2 0077 01d6 | | Execute Vector,Field_Write 0078 4802 |H | Short_Literal 0x2 0079 4801 |H | Short_Literal 0x1 007a 00da | | Load_Top At_Offset_2 007b 01d6 | | Execute Vector,Field_Write 007c 4804 |H | Short_Literal 0x4 007d 4802 |H | Short_Literal 0x2 007e 00da | | Load_Top At_Offset_2 007f 01d6 | | Execute Vector,Field_Write 0080 4805 |H | Short_Literal 0x5 0081 4803 |H | Short_Literal 0x3 0082 00da | | Load_Top At_Offset_2 0083 01d6 | | Execute Vector,Field_Write 0084 4806 |H | Short_Literal 0x6 0085 4804 |H | Short_Literal 0x4 0086 00da | | Load_Top At_Offset_2 0087 01d6 | | Execute Vector,Field_Write 0088 4808 |H | Short_Literal 0x8 0089 4805 |H | Short_Literal 0x5 008a 00da | | Load_Top At_Offset_2 008b 01d6 | | Execute Vector,Field_Write 008c 4807 |H | Short_Literal 0x7 008d 4806 |H | Short_Literal 0x6 008e 00da | | Load_Top At_Offset_2 008f 01d6 | | Execute Vector,Field_Write 0090 4808 |H | Short_Literal 0x8 0091 4807 |H | Short_Literal 0x7 0092 00da | | Load_Top At_Offset_2 0093 01d6 | | Execute Vector,Field_Write 0094 00d9 | | Load_Top At_Offset_1 0095 01d4 | | Execute Vector,Structure_Write 0096 e00c | | Load 0x0,0xc 0097 0266 | f | Execute Discrete,Bounds 0098 00e1 | | Load_Encached Boolean_Cache 0099 02a0 | | Declare_Subprogram Null_Subprogram 009a 4801 |H | Short_Literal 0x1 009b 035d | ] | Declare_Type Array,Defined 009c 00d8 | | Load_Top At_Offset_0 009d 0337 | 7 | Declare_Variable Array 009e 00d8 | | Load_Top At_Offset_0 009f 0335 | 5 | Declare_Variable Array,Duplicate 00a0 00cd | | Action Spare6_Action 00a1 480a |H | Short_Literal 0xa 00a2 4800 |H | Short_Literal 0x0 00a3 4800 |H | Short_Literal 0x0 00a4 00d9 | | Load_Top At_Offset_1 00a5 e410 | | Load 0x2,0x10 00a6 01d6 | | Execute Vector,Field_Write 00a7 3ffb |? | Loop_Increasing 0xa3 00a8 00d9 | | Load_Top At_Offset_1 00a9 01d4 | | Execute Vector,Structure_Write 00aa 029f 011b | | Declare_Subprogram INIT_0118,For_Call 00ac 029f 0133 | 3| Declare_Subprogram INIT_0130,For_Call 00ae 029f 015b | [| Declare_Subprogram INIT_0158,For_Call 00b0 029f 0173 | s| Declare_Subprogram INIT_0170,For_Call 00b2 029f 0193 | | Declare_Subprogram INIT_0190,For_Call 00b4 029f 01b3 | | Declare_Subprogram INIT_01b0,For_Call 00b6 BODY_0018: 00b6 e402 | | Load 0x2,0x2 00b7 e404 | | Load 0x2,0x4 00b8 4801 |H | Short_Literal 0x1 00b9 800e | | Call 0x0,0xe 00ba c402 | | Store 0x2,0x2 00bb e406 | | Load 0x2,0x6 00bc e402 | | Load 0x2,0x2 00bd 800f | | Call 0x0,0xf 00be c406 | | Store 0x2,0x6 00bf 4802 |H | Short_Literal 0x2 00c0 e404 | | Load 0x2,0x4 00c1 e406 | | Load 0x2,0x6 00c2 8010 | | Call 0x0,0x10 00c3 e403 | | Load 0x2,0x3 00c4 e405 | | Load 0x2,0x5 00c5 4800 |H | Short_Literal 0x0 00c6 8011 | | Call 0x0,0x11 00c7 c403 | | Store 0x2,0x3 00c8 e406 | | Load 0x2,0x6 00c9 e403 | | Load 0x2,0x3 00ca 8012 | | Call 0x0,0x12 00cb c406 | | Store 0x2,0x6 00cc 4802 |H | Short_Literal 0x2 00cd e405 | | Load 0x2,0x5 00ce e406 | | Load 0x2,0x6 00cf 8010 | | Call 0x0,0x10 00d0 00cf | | Action Mark_Auxiliary 00d1 e00c | | Load 0x0,0xc 00d2 0265 | e | Execute Discrete,Reverse_Bounds 00d3 0007 | | Action Break_Optional 00d4 8412 | | Call 0x2,0x12 00d5 00c8 | | Action Pop_Auxiliary_Range 00d6 3ffd |? | Loop_Increasing 0xd4 00d7 00c9 | | Action Pop_Auxiliary_Loop 00d8 e00b | | Load 0x0,0xb 00d9 0265 | e | Execute Discrete,Reverse_Bounds 00da 0007 | | Action Break_Optional 00db 00d8 | | Load_Top At_Offset_0 00dc 0f02 | | Execute_Immediate Equal,0x2 00dd 6806 |h | Jump_Zero 0xe4 00de e402 | | Load 0x2,0x2 00df e405 | | Load 0x2,0x5 00e0 4802 |H | Short_Literal 0x2 00e1 8013 | | Call 0x0,0x13 00e2 c402 | | Store 0x2,0x2 00e3 7801 |x | Jump 0xe5 00e4 8413 | | Call 0x2,0x13 00e5 00c8 | | Action Pop_Auxiliary_Range 00e6 3ff4 |? | Loop_Increasing 0xdb 00e7 00ce | | Action Pop_Auxiliary 00e8 e009 | | Load 0x0,0x9 00e9 e402 | | Load 0x2,0x2 00ea 8014 | | Call 0x0,0x14 00eb c407 | | Store 0x2,0x7 00ec 00cf | | Action Mark_Auxiliary 00ed 7805 |x | Jump 0xf3 00ee 8414 | | Call 0x2,0x14 00ef e407 | | Load 0x2,0x7 00f0 8015 | | Call 0x0,0x15 00f1 c407 | | Store 0x2,0x7 00f2 00c9 | | Action Pop_Auxiliary_Loop 00f3 e407 | | Load 0x2,0x7 00f4 8016 | | Call 0x0,0x16 00f5 6ff8 |o | Jump_Zero 0xee 00f6 00c9 | | Action Pop_Auxiliary_Loop 00f7 e00c | | Load 0x0,0xc 00f8 0265 | e | Execute Discrete,Reverse_Bounds 00f9 0007 | | Action Break_Optional 00fa 00d8 | | Load_Top At_Offset_0 00fb e40f | | Load 0x2,0xf 00fc 01d7 | | Execute Vector,Field_Read 00fd 6801 |h | Jump_Zero 0xff 00fe 8415 | | Call 0x2,0x15 00ff 00c8 | | Action Pop_Auxiliary_Range 0100 3ff9 |? | Loop_Increasing 0xfa 0101 00ce | | Action Pop_Auxiliary 0102 e403 | | Load 0x2,0x3 0103 4800 |H | Short_Literal 0x0 0104 8017 | | Call 0x0,0x17 0105 c403 | | Store 0x2,0x3 0106 e402 | | Load 0x2,0x2 0107 e409 | | Load 0x2,0x9 0108 0f00 | | Execute_Immediate Equal,0x0 0109 8018 | | Call 0x0,0x18 010a c402 | | Store 0x2,0x2 010b e406 | | Load 0x2,0x6 010c e402 | | Load 0x2,0x2 010d 800f | | Call 0x0,0xf 010e c406 | | Store 0x2,0x6 010f 4802 |H | Short_Literal 0x2 0110 e404 | | Load 0x2,0x4 0111 e406 | | Load 0x2,0x6 0112 8010 | | Call 0x0,0x10 0113 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0114 0000 0000 | | .BLANK 0000[0x4] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011f | | .CONST 0x011f ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0003 | | .CONST 0x0003 ; Number of locals 011b INIT_0118: 011b 00db | | Load_Top At_Offset_3 011c 8019 | | Call 0x0,0x19 011d 029f 01cb | | Declare_Subprogram INIT_01c8,For_Call 011f BODY_0118: 011f 00d9 | | Load_Top At_Offset_1 0120 01db | | Execute Vector,Length 0121 7003 |p | Jump_Nonzero 0x125 0122 4800 |H | Short_Literal 0x0 0123 a7fd | | Store_Unchecked 0x3,-0x3 0124 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0125 e7ff | | Load 0x3,-0x1 0126 e40f | | Load 0x2,0xf 0127 01d7 | | Execute Vector,Field_Read 0128 6802 |h | Jump_Zero 0x12b 0129 8603 | | Call 0x3,0x3 012a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 012b 4800 |H | Short_Literal 0x0 012c a7fd | | Store_Unchecked 0x3,-0x3 012d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 012e 0000 0000 | | .XXX[0x2] 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 013d | = | .CONST 0x013d ; Address of begin 0131 0004 | | .CONST 0x0004 ; Address of exception handler 0132 0006 | | .CONST 0x0006 ; Number of locals 0133 INIT_0130: 0133 00e1 | | Load_Encached Boolean_Cache 0134 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0135 e00a | | Load 0x0,0xa 0136 0007 | | Action Break_Optional 0137 00e1 | | Load_Encached Boolean_Cache 0138 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0139 029f 01eb | | Declare_Subprogram INIT_01e8,For_Call 013b 029f 0203 | | Declare_Subprogram INIT_0200,For_Call 013d BODY_0130: 013d 4802 |H | Short_Literal 0x2 013e e40f | | Load 0x2,0xf 013f 01d7 | | Execute Vector,Field_Read 0140 6804 |h | Jump_Zero 0x145 0141 4801 |H | Short_Literal 0x1 0142 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0143 8605 | | Call 0x3,0x5 0144 7802 |x | Jump 0x147 0145 e7ff | | Load 0x3,-0x1 0146 a603 | | Store_Unchecked 0x3,0x3 0147 00cf | | Action Mark_Auxiliary 0148 e00d | | Load 0x0,0xd 0149 0265 | e | Execute Discrete,Reverse_Bounds 014a 0007 | | Action Break_Optional 014b 8606 | | Call 0x3,0x6 014c 00c8 | | Action Pop_Auxiliary_Range 014d 3ffd |? | Loop_Increasing 0x14b 014e 00ce | | Action Pop_Auxiliary 014f e602 | | Load 0x3,0x2 0150 a7fe | | Store_Unchecked 0x3,-0x2 0151 00db | | Load_Top At_Offset_3 0152 a7ff | | Store_Unchecked 0x3,-0x1 0153 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0154 0000 0000 | | .BLANK 0000[0x4] 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 0160 | ` | .CONST 0x0160 ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0002 | | .CONST 0x0002 ; Number of locals 015b INIT_0158: 015b e403 | | Load 0x2,0x3 015c e418 | | Load 0x2,0x18 015d 801a | | Call 0x0,0x1a 015e e01b | | Load 0x0,0x1b 015f 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0160 BODY_0158: 0160 e402 | | Load 0x2,0x2 0161 e418 | | Load 0x2,0x18 0162 801c | | Call 0x0,0x1c 0163 8019 | | Call 0x0,0x19 0164 e01b | | Load 0x0,0x1b 0165 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0166 00d9 | | Load_Top At_Offset_1 0167 01de | | Execute Vector,Not_Equal 0168 6806 |h | Jump_Zero 0x16f 0169 4801 |H | Short_Literal 0x1 016a e418 | | Load 0x2,0x18 016b e40f | | Load 0x2,0xf 016c 01d6 | | Execute Vector,Field_Write 016d 4801 |H | Short_Literal 0x1 016e a409 | | Store_Unchecked 0x2,0x9 016f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 017a | z | .CONST 0x017a ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0003 | | .CONST 0x0003 ; Number of locals 0173 INIT_0170: 0173 e006 | | Load 0x0,0x6 0174 e402 | | Load 0x2,0x2 0175 e418 | | Load 0x2,0x18 0176 801d | | Call 0x0,0x1d 0177 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0178 00e1 | | Load_Encached Boolean_Cache 0179 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 017a BODY_0170: 017a 00e1 | | Load_Encached Boolean_Cache 017b 00da | | Load_Top At_Offset_2 017c e418 | | Load 0x2,0x18 017d e40b | | Load 0x2,0xb 017e 01d7 | | Execute Vector,Field_Read 017f 8410 | | Call 0x2,0x10 0180 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0181 0059 | Y | Store_Top Discrete,At_Offset_1 0182 00d8 | | Load_Top At_Offset_0 0183 6807 |h | Jump_Zero 0x18b 0184 e402 | | Load 0x2,0x2 0185 00da | | Load_Top At_Offset_2 0186 e418 | | Load 0x2,0x18 0187 8013 | | Call 0x0,0x13 0188 c402 | | Store 0x2,0x2 0189 4801 |H | Short_Literal 0x1 018a a409 | | Store_Unchecked 0x2,0x9 018b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 018c 0000 0000 | | .BLANK 0000[0x4] 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 0199 | | .CONST 0x0199 ; Address of begin 0191 0004 | | .CONST 0x0004 ; Address of exception handler 0192 0003 | | .CONST 0x0003 ; Number of locals 0193 INIT_0190: 0193 e006 | | Load 0x0,0x6 0194 e407 | | Load 0x2,0x7 0195 801e | | Call 0x0,0x1e 0196 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0197 00e1 | | Load_Encached Boolean_Cache 0198 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0199 BODY_0190: 0199 00d9 | | Load_Top At_Offset_1 019a e402 | | Load 0x2,0x2 019b 801f | | Call 0x0,0x1f 019c a408 | | Store_Unchecked 0x2,0x8 019d 00e1 | | Load_Encached Boolean_Cache 019e e408 | | Load 0x2,0x8 019f 8411 | | Call 0x2,0x11 01a0 c408 | | Store 0x2,0x8 01a1 0059 | Y | Store_Top Discrete,At_Offset_1 01a2 00d8 | | Load_Top At_Offset_0 01a3 6807 |h | Jump_Zero 0x1ab 01a4 e402 | | Load 0x2,0x2 01a5 e408 | | Load 0x2,0x8 01a6 00db | | Load_Top At_Offset_3 01a7 8020 | | Call 0x0,0x20 01a8 c402 | | Store 0x2,0x2 01a9 4801 |H | Short_Literal 0x1 01aa a409 | | Store_Unchecked 0x2,0x9 01ab 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01ac 0000 0000 | | .BLANK 0000[0x4] 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01b8 | | .CONST 0x01b8 ; Address of begin 01b1 0004 | | .CONST 0x0004 ; Address of exception handler 01b2 0002 | | .CONST 0x0002 ; Number of locals 01b3 INIT_01b0: 01b3 e403 | | Load 0x2,0x3 01b4 e418 | | Load 0x2,0x18 01b5 801a | | Call 0x0,0x1a 01b6 e01b | | Load 0x0,0x1b 01b7 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01b8 BODY_01b0: 01b8 e402 | | Load 0x2,0x2 01b9 e002 | | Load 0x0,0x2 01ba 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01bb e003 | | Load 0x0,0x3 01bc 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01bd 00da | | Load_Top At_Offset_2 01be 8007 | | Call 0x0,0x7 01bf e418 | | Load 0x2,0x18 01c0 8021 | ! | Call 0x0,0x21 01c1 c402 | | Store 0x2,0x2 01c2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01c3 0000 0000 | | .BLANK 0000[0x5] 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01da | | .CONST 0x01da ; Address of begin 01c9 0004 | | .CONST 0x0004 ; Address of exception handler 01ca 0005 | | .CONST 0x0005 ; Number of locals 01cb INIT_01c8: 01cb e7fe | | Load 0x3,-0x2 01cc 8019 | | Call 0x0,0x19 01cd e402 | | Load 0x2,0x2 01ce e7ff | | Load 0x3,-0x1 01cf 801c | | Call 0x0,0x1c 01d0 8019 | | Call 0x0,0x19 01d1 4801 |H | Short_Literal 0x1 01d2 00da | | Load_Top At_Offset_2 01d3 00da | | Load_Top At_Offset_2 01d4 e01b | | Load 0x0,0x1b 01d5 181d | | Execute Package,Field_Execute,Field_Number 0x1d 01d6 00e3 | | Load_Encached Natural_Cache 01d7 03f1 | | Declare_Variable Discrete,With_Value 01d8 029f 0223 | #| Declare_Subprogram INIT_0220,For_Call 01da BODY_01c8: 01da 00d9 | | Load_Top At_Offset_1 01db 6802 |h | Jump_Zero 0x1de 01dc 8805 | | Call 0x4,0x5 01dd 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01de 4800 |H | Short_Literal 0x0 01df a7fd | | Store_Unchecked 0x3,-0x3 01e0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01e1 0000 0000 | | .BLANK 0000[0x7] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01f1 | | .CONST 0x01f1 ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0003 | | .CONST 0x0003 ; Number of locals 01eb INIT_01e8: 01eb e006 | | Load 0x0,0x6 01ec e7ff | | Load 0x3,-0x1 01ed 4801 |H | Short_Literal 0x1 01ee 8022 | " | Call 0x0,0x22 01ef 0031 | 1 | Store_Top Heap_Access,At_Offset_1 01f0 00e1 | | Load_Encached Boolean_Cache 01f1 BODY_01e8: 01f1 00e1 | | Load_Encached Boolean_Cache 01f2 00da | | Load_Top At_Offset_2 01f3 4802 |H | Short_Literal 0x2 01f4 8410 | | Call 0x2,0x10 01f5 0033 | 3 | Store_Top Heap_Access,At_Offset_3 01f6 0059 | Y | Store_Top Discrete,At_Offset_1 01f7 e002 | | Load 0x0,0x2 01f8 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01f9 e003 | | Load 0x0,0x3 01fa 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01fb 00da | | Load_Top At_Offset_2 01fc 8023 | # | Call 0x0,0x23 01fd a603 | | Store_Unchecked 0x3,0x3 01fe 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01ff 0000 | | .XXX[0x1] 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 020a | | .CONST 0x020a ; Address of begin 0201 0004 | | .CONST 0x0004 ; Address of exception handler 0202 0003 | | .CONST 0x0003 ; Number of locals 0203 INIT_0200: 0203 e006 | | Load 0x0,0x6 0204 e7ff | | Load 0x3,-0x1 0205 e609 | | Load 0x3,0x9 0206 8022 | " | Call 0x0,0x22 0207 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0208 00e1 | | Load_Encached Boolean_Cache 0209 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 020a BODY_0200: 020a 00e1 | | Load_Encached Boolean_Cache 020b 00da | | Load_Top At_Offset_2 020c e609 | | Load 0x3,0x9 020d e40d | | Load 0x2,0xd 020e 01d7 | | Execute Vector,Field_Read 020f 8410 | | Call 0x2,0x10 0210 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0211 0059 | Y | Store_Top Discrete,At_Offset_1 0212 00d8 | | Load_Top At_Offset_0 0213 e604 | | Load 0x3,0x4 0214 0278 | x | Execute Discrete,Or 0215 6807 |h | Jump_Zero 0x21d 0216 e603 | | Load 0x3,0x3 0217 00da | | Load_Top At_Offset_2 0218 e609 | | Load 0x3,0x9 0219 8024 | $ | Call 0x0,0x24 021a c603 | | Store 0x3,0x3 021b 4801 |H | Short_Literal 0x1 021c a602 | | Store_Unchecked 0x3,0x2 021d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 021e 0000 0000 | | .XXX[0x2] 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 0234 | 4 | .CONST 0x0234 ; Address of begin 0221 0004 | | .CONST 0x0004 ; Address of exception handler 0222 0002 | | .CONST 0x0002 ; Number of locals 0223 INIT_0220: 0223 e403 | | Load 0x2,0x3 0224 e7ff | | Load 0x3,-0x1 0225 e804 | | Load 0x4,0x4 0226 e803 | | Load 0x4,0x3 0227 01db | | Execute Vector,Length 0228 0273 | s | Execute Discrete,Plus 0229 0a01 | | Execute_Immediate Plus,0x1 022a 00d8 | | Load_Top At_Offset_0 022b 00e2 | | Load_Encached Integer_Cache 022c 0260 | ` | Execute Discrete,In_Type 022d 7001 |p | Jump_Nonzero 0x22f 022e 0801 | | Execute_Immediate Raise,0x1 022f e802 | | Load 0x4,0x2 0230 01dc | | Execute Vector,Last 0231 e802 | | Load 0x4,0x2 0232 01cf | | Execute Vector,Slice_Read 0233 8025 | % | Call 0x0,0x25 0234 BODY_0220: 0234 e002 | | Load 0x0,0x2 0235 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0236 e003 | | Load 0x0,0x3 0237 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0238 00d9 | | Load_Top At_Offset_1 0239 8007 | | Call 0x0,0x7 023a a7fe | | Store_Unchecked 0x3,-0x2 023b 4801 |H | Short_Literal 0x1 023c a7fd | | Store_Unchecked 0x3,-0x3 023d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 023e 0000 0000 | | .XXX[0x2] 0240 ; -------------------------------------------------------------------------------------- 0240 ; Debug Table 0240 ; -------------------------------------------------------------------------------------- 0240 0004 000a | | .DEBUG4 0x0004,0x000a,0x4f3e,0x0000,0x0001,0x0000 0246 0000 0000 | | .BLANK 0000[0x1ba]