|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1024 (0x400)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_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 01c0 | | .CONST 0x01c0 ; 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 0046 | F | .CONST 0x0046 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001a | | .CONST 0x001a ; Number of locals 000b INIT_0008: 000b 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated 000d 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated 000f 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated 0011 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated 0013 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 0015 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated 0017 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 0019 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated 001b 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 001d 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated 001f 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated 0021 e002 | | Load 0x0,0x2 0022 00d8 | | Load_Top At_Offset_0 0023 e003 | | Load 0x0,0x3 0024 00d8 | | Load_Top At_Offset_0 0025 e003 | | Load 0x0,0x3 0026 00d8 | | Load_Top At_Offset_0 0027 029f 01ab | | Declare_Subprogram INIT_01a8,For_Call 0029 4806 |H | Short_Literal 0x6 002a 032e | . | Declare_Type Record,Defined,Visible 002b 00bf | | Action Accept_Activation 002c 1d0d | | Execute_Immediate Reference_Lex_1,0xd 002d 00c7 | | Action Elaborate_Subprogram 002e 029d 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call 0030 029d 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call 0032 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0033 00c7 | | Action Elaborate_Subprogram 0034 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0035 00c7 | | Action Elaborate_Subprogram 0036 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0037 00c7 | | Action Elaborate_Subprogram 0038 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0039 00c7 | | Action Elaborate_Subprogram 003a 1d12 | | Execute_Immediate Reference_Lex_1,0x12 003b 00c7 | | Action Elaborate_Subprogram 003c 1d13 | | Execute_Immediate Reference_Lex_1,0x13 003d 00c7 | | Action Elaborate_Subprogram 003e 1d14 | | Execute_Immediate Reference_Lex_1,0x14 003f 00c7 | | Action Elaborate_Subprogram 0040 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0041 00c7 | | Action Elaborate_Subprogram 0042 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0043 00c7 | | Action Elaborate_Subprogram 0044 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0045 00c7 | | Action Elaborate_Subprogram 0046 BODY_0008: 0046 00bc | | Action Signal_Activated 0047 00bb | | Action Signal_Completion 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 004f | O | .CONST 0x004f ; Address of begin 0049 0004 | | .CONST 0x0004 ; Address of exception handler 004a 0002 | | .CONST 0x0002 ; Number of locals 004b INIT_0048: 004b e218 | | Load 0x1,0x18 004c 0322 | " | Declare_Variable Record 004d 00d8 | | Load_Top At_Offset_0 004e 1c00 | | Execute_Immediate Run_Utility,0x0 004f BODY_0048: 004f 00d8 | | Load_Top At_Offset_0 0050 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0051 0000 0000 | | .BLANK 0000[0x7] 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 007f | | .CONST 0x007f ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 000e | | .CONST 0x000e ; Number of locals 005b INIT_0058: 005b e003 | | Load 0x0,0x3 005c 02ff | | Declare_Variable Variant_Record 005d 00d8 | | Load_Top At_Offset_0 005e 1c00 | | Execute_Immediate Run_Utility,0x0 005f e003 | | Load 0x0,0x3 0060 02ff | | Declare_Variable Variant_Record 0061 00d8 | | Load_Top At_Offset_0 0062 1c00 | | Execute_Immediate Run_Utility,0x0 0063 e003 | | Load 0x0,0x3 0064 02ff | | Declare_Variable Variant_Record 0065 00d8 | | Load_Top At_Offset_0 0066 1c00 | | Execute_Immediate Run_Utility,0x0 0067 e003 | | Load 0x0,0x3 0068 02ff | | Declare_Variable Variant_Record 0069 00d8 | | Load_Top At_Offset_0 006a 1c00 | | Execute_Immediate Run_Utility,0x0 006b e004 | | Load 0x0,0x4 006c 0007 | | Action Break_Optional 006d 00d8 | | Load_Top At_Offset_0 006e 0007 | | Action Break_Optional 006f e005 | | Load 0x0,0x5 0070 0007 | | Action Break_Optional 0071 00d8 | | Load_Top At_Offset_0 0072 0007 | | Action Break_Optional 0073 e002 | | Load 0x0,0x2 0074 0007 | | Action Break_Optional 0075 e006 | | Load 0x0,0x6 0076 0007 | | Action Break_Optional 0077 e218 | | Load 0x1,0x18 0078 0322 | " | Declare_Variable Record 0079 00d8 | | Load_Top At_Offset_0 007a 1c00 | | Execute_Immediate Run_Utility,0x0 007b 029f 0163 | c| Declare_Subprogram INIT_0160,For_Call 007d 029f 0193 | | Declare_Subprogram INIT_0190,For_Call 007f BODY_0058: 007f e5ff | | Load 0x2,-0x1 0080 00db | | Load_Top At_Offset_3 0081 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0082 e5fe | | Load 0x2,-0x2 0083 00db | | Load_Top At_Offset_3 0084 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0085 e5fd | | Load 0x2,-0x3 0086 e5ff | | Load 0x2,-0x1 0087 8219 | | Call 0x1,0x19 0088 a406 | | Store_Unchecked 0x2,0x6 0089 e5fd | | Load 0x2,-0x3 008a e5fe | | Load 0x2,-0x2 008b 8219 | | Call 0x1,0x19 008c a407 | | Store_Unchecked 0x2,0x7 008d e5fd | | Load 0x2,-0x3 008e 4800 |H | Short_Literal 0x0 008f e5fe | | Load 0x2,-0x2 0090 8007 | | Call 0x0,0x7 0091 e402 | | Load 0x2,0x2 0092 016d | m | Execute Variant_Record,Structure_Write 0093 e5fd | | Load 0x2,-0x3 0094 4800 |H | Short_Literal 0x0 0095 e5fe | | Load 0x2,-0x2 0096 8007 | | Call 0x0,0x7 0097 e403 | | Load 0x2,0x3 0098 016d | m | Execute Variant_Record,Structure_Write 0099 e5fd | | Load 0x2,-0x3 009a 4800 |H | Short_Literal 0x0 009b e5fe | | Load 0x2,-0x2 009c 8007 | | Call 0x0,0x7 009d e404 | | Load 0x2,0x4 009e 016d | m | Execute Variant_Record,Structure_Write 009f e5fd | | Load 0x2,-0x3 00a0 4800 |H | Short_Literal 0x0 00a1 e5ff | | Load 0x2,-0x1 00a2 8007 | | Call 0x0,0x7 00a3 e405 | | Load 0x2,0x5 00a4 016d | m | Execute Variant_Record,Structure_Write 00a5 e005 | | Load 0x0,0x5 00a6 e406 | | Load 0x2,0x6 00a7 8008 | | Call 0x0,0x8 00a8 c408 | | Store 0x2,0x8 00a9 00cf | | Action Mark_Auxiliary 00aa 780c |x | Jump 0xb7 00ab e408 | | Load 0x2,0x8 00ac 8009 | | Call 0x0,0x9 00ad a40a | | Store_Unchecked 0x2,0xa 00ae e40a | | Load 0x2,0xa 00af e406 | | Load 0x2,0x6 00b0 800a | | Call 0x0,0xa 00b1 a40b | | Store_Unchecked 0x2,0xb 00b2 840d | | Call 0x2,0xd 00b3 e408 | | Load 0x2,0x8 00b4 800b | | Call 0x0,0xb 00b5 c408 | | Store 0x2,0x8 00b6 00c9 | | Action Pop_Auxiliary_Loop 00b7 e408 | | Load 0x2,0x8 00b8 800c | | Call 0x0,0xc 00b9 6ff1 |o | Jump_Zero 0xab 00ba 00ce | | Action Pop_Auxiliary 00bb e005 | | Load 0x0,0x5 00bc e407 | | Load 0x2,0x7 00bd 8008 | | Call 0x0,0x8 00be c409 | | Store 0x2,0x9 00bf 00cf | | Action Mark_Auxiliary 00c0 7805 |x | Jump 0xc6 00c1 840e | | Call 0x2,0xe 00c2 e409 | | Load 0x2,0x9 00c3 800b | | Call 0x0,0xb 00c4 c409 | | Store 0x2,0x9 00c5 00c9 | | Action Pop_Auxiliary_Loop 00c6 e409 | | Load 0x2,0x9 00c7 800c | | Call 0x0,0xc 00c8 6ff8 |o | Jump_Zero 0xc1 00c9 00ce | | Action Pop_Auxiliary 00ca e402 | | Load 0x2,0x2 00cb 00db | | Load_Top At_Offset_3 00cc 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00cd e403 | | Load 0x2,0x3 00ce 00db | | Load_Top At_Offset_3 00cf 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 00d0 e404 | | Load 0x2,0x4 00d1 00db | | Load_Top At_Offset_3 00d2 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 00d3 e405 | | Load 0x2,0x5 00d4 00db | | Load_Top At_Offset_3 00d5 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 00d6 e406 | | Load 0x2,0x6 00d7 e5ff | | Load 0x2,-0x1 00d8 821a | | Call 0x1,0x1a 00d9 c406 | | Store 0x2,0x6 00da e407 | | Load 0x2,0x7 00db e5fe | | Load 0x2,-0x2 00dc 821a | | Call 0x1,0x1a 00dd c407 | | Store 0x2,0x7 00de 00da | | Load_Top At_Offset_2 00df 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e3 | | .CONST 0x00e3 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0001 | | .CONST 0x0001 ; Number of locals 00e3 BODY_00e0: 00e3 INIT_00e0: 00e3 0833 | 3 | Execute_Immediate Raise,0x33 00e4 0000 0000 | | .BLANK 0000[0x4] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00eb | | .CONST 0x00eb ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0001 | | .CONST 0x0001 ; Number of locals 00eb BODY_00e8: 00eb INIT_00e8: 00eb 00da | | Load_Top At_Offset_2 00ec e5fd | | Load 0x2,-0x3 00ed 017d | } | Execute Record,Structure_Write 00ee 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00ef 0000 | | .XXX[0x1] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f3 | | .CONST 0x00f3 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0001 | | .CONST 0x0001 ; Number of locals 00f3 BODY_00f0: 00f3 INIT_00f0: 00f3 0833 | 3 | Execute_Immediate Raise,0x33 00f4 0000 0000 | | .BLANK 0000[0x4] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 00fb | | .CONST 0x00fb ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0001 | | .CONST 0x0001 ; Number of locals 00fb BODY_00f8: 00fb INIT_00f8: 00fb 00da | | Load_Top At_Offset_2 00fc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00fd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00fe 0000 0000 | | .XXX[0x2] 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 00da | | Load_Top At_Offset_2 0104 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0105 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0106 0000 0000 | | .XXX[0x2] 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 010b | | .CONST 0x010b ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0001 | | .CONST 0x0001 ; Number of locals 010b BODY_0108: 010b INIT_0108: 010b 00da | | Load_Top At_Offset_2 010c 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 010d 02fd | | Declare_Variable Variant_Record,Duplicate 010e 00cd | | Action Spare6_Action 010f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0113 | | .CONST 0x0113 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0001 | | .CONST 0x0001 ; Number of locals 0113 BODY_0110: 0113 INIT_0110: 0113 00da | | Load_Top At_Offset_2 0114 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0115 02fd | | Declare_Variable Variant_Record,Duplicate 0116 00cd | | Action Spare6_Action 0117 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011b | | .CONST 0x011b ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0001 | | .CONST 0x0001 ; Number of locals 011b BODY_0118: 011b INIT_0118: 011b 00da | | Load_Top At_Offset_2 011c 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 011d 02fd | | Declare_Variable Variant_Record,Duplicate 011e 00cd | | Action Spare6_Action 011f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0123 | # | .CONST 0x0123 ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0001 | | .CONST 0x0001 ; Number of locals 0123 BODY_0120: 0123 INIT_0120: 0123 00da | | Load_Top At_Offset_2 0124 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 0125 02fd | | Declare_Variable Variant_Record,Duplicate 0126 00cd | | Action Spare6_Action 0127 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 0132 | 2 | .CONST 0x0132 ; Address of begin 0129 0004 | | .CONST 0x0004 ; Address of exception handler 012a 0003 | | .CONST 0x0003 ; Number of locals 012b INIT_0128: 012b 00db | | Load_Top At_Offset_3 012c 800d | | Call 0x0,0xd 012d e00e | | Load 0x0,0xe 012e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 012f 02c7 | | Declare_Variable Any 0130 00d8 | | Load_Top At_Offset_0 0131 1c00 | | Execute_Immediate Run_Utility,0x0 0132 BODY_0128: 0132 00d9 | | Load_Top At_Offset_1 0133 e5ff | | Load 0x2,-0x1 0134 4800 |H | Short_Literal 0x0 0135 800f | | Call 0x0,0xf 0136 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0137 00d8 | | Load_Top At_Offset_0 0138 00da | | Load_Top At_Offset_2 0139 8010 | | Call 0x0,0x10 013a c403 | | Store 0x2,0x3 013b 4802 |H | Short_Literal 0x2 013c e5ff | | Load 0x2,-0x1 013d 00da | | Load_Top At_Offset_2 013e 8011 | | Call 0x0,0x11 013f 00d9 | | Load_Top At_Offset_1 0140 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0141 0000 0000 | | .BLANK 0000[0x7] 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 0150 | P | .CONST 0x0150 ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0002 | | .CONST 0x0002 ; Number of locals 014b INIT_0148: 014b e00e | | Load 0x0,0xe 014c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 014d 02c7 | | Declare_Variable Any 014e 00d8 | | Load_Top At_Offset_0 014f 1c00 | | Execute_Immediate Run_Utility,0x0 0150 BODY_0148: 0150 e5fe | | Load 0x2,-0x2 0151 4800 |H | Short_Literal 0x0 0152 8012 | | Call 0x0,0x12 0153 c5fe | | Store 0x2,-0x2 0154 00d8 | | Load_Top At_Offset_0 0155 e5fe | | Load 0x2,-0x2 0156 8010 | | Call 0x0,0x10 0157 c402 | | Store 0x2,0x2 0158 4802 |H | Short_Literal 0x2 0159 e5ff | | Load 0x2,-0x1 015a 00da | | Load_Top At_Offset_2 015b 8011 | | Call 0x0,0x11 015c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 015d 0000 0000 | | .XXX[0x3] 015f 0000 | | 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 0169 | i | .CONST 0x0169 ; Address of begin 0161 0187 | | .CONST 0x0187 ; Address of exception handler 0162 0004 | | .CONST 0x0004 ; Number of locals 0163 INIT_0160: 0163 e006 | | Load 0x0,0x6 0164 0007 | | Action Break_Optional 0165 e013 | | Load 0x0,0x13 0166 0007 | | Action Break_Optional 0167 00d8 | | Load_Top At_Offset_0 0168 0007 | | Action Break_Optional 0169 BODY_0160: 0169 e40a | | Load 0x2,0xa 016a e407 | | Load 0x2,0x7 016b 800a | | Call 0x0,0xa 016c 0033 | 3 | Store_Top Heap_Access,At_Offset_3 016d e40b | | Load 0x2,0xb 016e 8014 | | Call 0x0,0x14 016f 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0170 00da | | Load_Top At_Offset_2 0171 8014 | | Call 0x0,0x14 0172 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0173 00d9 | | Load_Top At_Offset_1 0174 00d9 | | Load_Top At_Offset_1 0175 027f | | Execute Discrete,Equal 0176 700f |p | Jump_Nonzero 0x186 0177 00d9 | | Load_Top At_Offset_1 0178 0f01 | | Execute_Immediate Equal,0x1 0179 6805 |h | Jump_Zero 0x17f 017a e403 | | Load 0x2,0x3 017b e40a | | Load 0x2,0xa 017c 8015 | | Call 0x0,0x15 017d 00d1 | | Pop_Control Pop_Count_1 017e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 017f 00d8 | | Load_Top At_Offset_0 0180 0f01 | | Execute_Immediate Equal,0x1 0181 6804 |h | Jump_Zero 0x186 0182 e402 | | Load 0x2,0x2 0183 e40a | | Load 0x2,0xa 0184 8015 | | Call 0x0,0x15 0185 00d1 | | Pop_Control Pop_Count_1 0186 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0187 TRAP_0160: 0187 e016 | | Load 0x0,0x16 0188 010f | | Execute Exception,Equal 0189 6804 |h | Jump_Zero 0x18e 018a e405 | | Load 0x2,0x5 018b e40a | | Load 0x2,0xa 018c 8015 | | Call 0x0,0x15 018d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 018e 0100 | | Execute Exception,Raise 018f 0000 | | .XXX[0x1] 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 0199 | | .CONST 0x0199 ; Address of begin 0191 019e | | .CONST 0x019e ; Address of exception handler 0192 0003 | | .CONST 0x0003 ; Number of locals 0193 INIT_0190: 0193 e002 | | Load 0x0,0x2 0194 e409 | | Load 0x2,0x9 0195 8009 | | Call 0x0,0x9 0196 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0197 e006 | | Load 0x0,0x6 0198 0007 | | Action Break_Optional 0199 BODY_0190: 0199 00d9 | | Load_Top At_Offset_1 019a e406 | | Load 0x2,0x6 019b 800a | | Call 0x0,0xa 019c 0031 | 1 | Store_Top Heap_Access,At_Offset_1 019d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 019e TRAP_0190: 019e e016 | | Load 0x0,0x16 019f 010f | | Execute Exception,Equal 01a0 6804 |h | Jump_Zero 0x1a5 01a1 e404 | | Load 0x2,0x4 01a2 00db | | Load_Top At_Offset_3 01a3 8015 | | Call 0x0,0x15 01a4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01a5 0100 | | Execute Exception,Raise 01a6 0000 0000 | | .XXX[0x2] 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01ab | | .CONST 0x01ab ; Address of begin 01a9 0004 | | .CONST 0x0004 ; Address of exception handler 01aa 0001 | | .CONST 0x0001 ; Number of locals 01ab BODY_01a8: 01ab INIT_01a8: 01ab 4601 |F | Jump_Case 0x2 01ac 7801 |x | Jump 0x1ae ; case 0x0 01ad 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 01ae 00da | | Load_Top At_Offset_2 01af 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 01b0 1c00 | | Execute_Immediate Run_Utility,0x0 01b1 00da | | Load_Top At_Offset_2 01b2 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 01b3 1c00 | | Execute_Immediate Run_Utility,0x0 01b4 00da | | Load_Top At_Offset_2 01b5 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 01b6 1c00 | | Execute_Immediate Run_Utility,0x0 01b7 00da | | Load_Top At_Offset_2 01b8 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 01b9 1c00 | | Execute_Immediate Run_Utility,0x0 01ba 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 01bb 0000 0000 | | .BLANK 0000[0x5] 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; Debug Table 01c0 ; -------------------------------------------------------------------------------------- 01c0 0004 0009 | | .DEBUG4 0x0004,0x0009,0xefc0,0x0000,0x0001,0x0000 01c6 0000 0000 | | .BLANK 0000[0x3a]