|
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 0220 | | .CONST 0x0220 ; 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 006f | o | .CONST 0x006f ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0021 | ! | .CONST 0x0021 ; Number of locals 000b INIT_0008: 000b 00e2 | | Load_Encached Integer_Cache 000c 00e2 | | Load_Encached Integer_Cache 000d 029f 01fb | | Declare_Subprogram INIT_01f8,For_Call 000f 4802 |H | Short_Literal 0x2 0010 032e | . | Declare_Type Record,Defined,Visible 0011 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated 0013 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated 0015 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated 0017 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated 0019 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated 001b 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 001d 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated 001f 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 0021 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 0023 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated 0025 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated 0027 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated 0029 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated 002b 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated 002d 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated 002f 4800 |H | Short_Literal 0x0 0030 4802 |H | Short_Literal 0x2 0031 029f 019b | | Declare_Subprogram INIT_0198,For_Call 0033 03fe | | Declare_Type Discrete,Defined,Visible 0034 e20d | | Load 0x1,0xd 0035 00e1 | | Load_Encached Boolean_Cache 0036 00da | | Load_Top At_Offset_2 0037 00e1 | | Load_Encached Boolean_Cache 0038 029f 01e3 | | Declare_Subprogram INIT_01e0,For_Call 003a 4804 |H | Short_Literal 0x4 003b 032e | . | Declare_Type Record,Defined,Visible 003c 00bf | | Action Accept_Activation 003d e002 | | Load 0x0,0x2 003e e003 | | Load 0x0,0x3 003f 00db | | Load_Top At_Offset_3 0040 4800 |H | Short_Literal 0x0 0041 4801 |H | Short_Literal 0x1 0042 4802 |H | Short_Literal 0x2 0043 0092 0208 | | Action Push_String_Extended,0x208 ; "others => Unspecified" 0045 00ea | | Load_Encached Null_String_Cache 0046 00ea | | Load_Encached Null_String_Cache 0047 4801 |H | Short_Literal 0x1 0048 4802 |H | Short_Literal 0x2 0049 e004 | | Load 0x0,0x4 004a 0387 | | Declare_Variable Package 004b 00d8 | | Load_Top At_Offset_0 004c 020f | | Execute Module,Activate 004d 1d0e | | Execute_Immediate Reference_Lex_1,0xe 004e 00c7 | | Action Elaborate_Subprogram 004f 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0050 00c7 | | Action Elaborate_Subprogram 0051 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0052 00c7 | | Action Elaborate_Subprogram 0053 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0054 00c7 | | Action Elaborate_Subprogram 0055 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0056 00c7 | | Action Elaborate_Subprogram 0057 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0058 00c7 | | Action Elaborate_Subprogram 0059 1d14 | | Execute_Immediate Reference_Lex_1,0x14 005a 00c7 | | Action Elaborate_Subprogram 005b 1d17 | | Execute_Immediate Reference_Lex_1,0x17 005c 00c7 | | Action Elaborate_Subprogram 005d 1d18 | | Execute_Immediate Reference_Lex_1,0x18 005e 00c7 | | Action Elaborate_Subprogram 005f 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0060 00c7 | | Action Elaborate_Subprogram 0061 029d 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call 0063 029d 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call 0065 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0066 00c7 | | Action Elaborate_Subprogram 0067 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0068 00c7 | | Action Elaborate_Subprogram 0069 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 006a 00c7 | | Action Elaborate_Subprogram 006b 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 006c 00c7 | | Action Elaborate_Subprogram 006d 1d15 | | Execute_Immediate Reference_Lex_1,0x15 006e 00c7 | | Action Elaborate_Subprogram 006f BODY_0008: 006f 00bc | | Action Signal_Activated 0070 00bb | | Action Signal_Completion 0071 0000 0000 | | .BLANK 0000[0x7] 0078 ; -------------------------------------------------------------------------------------- 0078 ; SUBPROGRAM 0078 ; -------------------------------------------------------------------------------------- 0078 007f | | .CONST 0x007f ; Address of begin 0079 0004 | | .CONST 0x0004 ; Address of exception handler 007a 0002 | | .CONST 0x0002 ; Number of locals 007b INIT_0078: 007b e20d | | Load 0x1,0xd 007c 0322 | " | Declare_Variable Record 007d 00d8 | | Load_Top At_Offset_0 007e 1c00 | | Execute_Immediate Run_Utility,0x0 007f BODY_0078: 007f 00d8 | | Load_Top At_Offset_0 0080 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0081 0000 0000 | | .BLANK 0000[0x7] 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 008f | | .CONST 0x008f ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0002 | | .CONST 0x0002 ; Number of locals 008b INIT_0088: 008b e20d | | Load 0x1,0xd 008c 0322 | " | Declare_Variable Record 008d 00d8 | | Load_Top At_Offset_0 008e 1c00 | | Execute_Immediate Run_Utility,0x0 008f BODY_0088: 008f e5fd | | Load 0x2,-0x3 0090 820e | | Call 0x1,0xe 0091 00d9 | | Load_Top At_Offset_1 0092 017d | } | Execute Record,Structure_Write 0093 00db | | Load_Top At_Offset_3 0094 00d9 | | Load_Top At_Offset_1 0095 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0096 e5fe | | Load 0x2,-0x2 0097 00d9 | | Load_Top At_Offset_1 0098 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0099 00d8 | | Load_Top At_Offset_0 009a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 009b 0000 0000 | | .BLANK 0000[0x5] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00aa | | .CONST 0x00aa ; Address of begin 00a1 00ca | | .CONST 0x00ca ; Address of exception handler 00a2 0003 | | .CONST 0x0003 ; Number of locals 00a3 INIT_00a0: 00a3 00da | | Load_Top At_Offset_2 00a4 e21f | | Load 0x1,0x1f 00a5 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00a6 e20d | | Load 0x1,0xd 00a7 0322 | " | Declare_Variable Record 00a8 00d8 | | Load_Top At_Offset_0 00a9 1c00 | | Execute_Immediate Run_Utility,0x0 00aa BODY_00a0: 00aa 00d9 | | Load_Top At_Offset_1 00ab e21f | | Load 0x1,0x1f 00ac 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 00ad 7002 |p | Jump_Nonzero 0xb0 00ae e005 | | Load 0x0,0x5 00af 0257 | W | Execute Discrete,Raise 00b0 e5fe | | Load 0x2,-0x2 00b1 820e | | Call 0x1,0xe 00b2 00d9 | | Load_Top At_Offset_1 00b3 017d | } | Execute Record,Structure_Write 00b4 00ea | | Load_Encached Null_String_Cache 00b5 4801 |H | Short_Literal 0x1 00b6 00db | | Load_Top At_Offset_3 00b7 e21f | | Load 0x1,0x1f 00b8 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 00b9 00e2 | | Load_Encached Integer_Cache 00ba 00e0 | | Load_Encached Standard_Cache 00bb 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00bc 00d9 | | Load_Top At_Offset_1 00bd 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00be 00ea | | Load_Encached Null_String_Cache 00bf 4802 |H | Short_Literal 0x2 00c0 00db | | Load_Top At_Offset_3 00c1 e21f | | Load 0x1,0x1f 00c2 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 00c3 00e2 | | Load_Encached Integer_Cache 00c4 00e0 | | Load_Encached Standard_Cache 00c5 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00c6 00d9 | | Load_Top At_Offset_1 00c7 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00c8 00d8 | | Load_Top At_Offset_0 00c9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00ca TRAP_00a0: 00ca 0007 | | Action Break_Optional 00cb 00d9 | | Load_Top At_Offset_1 00cc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00cd 0000 0000 | | .XXX[0x3] 00cf 0000 | | 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d3 | | .CONST 0x00d3 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0001 | | .CONST 0x0001 ; Number of locals 00d3 BODY_00d0: 00d3 INIT_00d0: 00d3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00d4 0000 0000 | | .BLANK 0000[0x4] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00db | | .CONST 0x00db ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0001 | | .CONST 0x0001 ; Number of locals 00db BODY_00d8: 00db INIT_00d8: 00db 00da | | Load_Top At_Offset_2 00dc 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00dd e5fe | | Load 0x2,-0x2 00de 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00df 027f | | Execute Discrete,Equal 00e0 6806 |h | Jump_Zero 0xe7 00e1 00da | | Load_Top At_Offset_2 00e2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00e3 e5fe | | Load 0x2,-0x2 00e4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00e5 027f | | Execute Discrete,Equal 00e6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00e7 4800 |H | Short_Literal 0x0 00e8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00e9 0000 0000 | | .BLANK 0000[0x7] 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 00da | | Load_Top At_Offset_2 00f4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00f5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00f6 0000 0000 | | .XXX[0x2] 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 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 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 0a01 | | Execute_Immediate Plus,0x1 0106 00db | | Load_Top At_Offset_3 0107 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0108 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0109 0000 0000 | | .BLANK 0000[0x7] 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 e5fd | | Load 0x2,-0x3 0114 8211 | | Call 0x1,0x11 0115 00d1 | | Pop_Control Pop_Count_1 0116 00db | | Load_Top At_Offset_3 0117 820e | | Call 0x1,0xe 0118 e5fd | | Load 0x2,-0x3 0119 017d | } | Execute Record,Structure_Write 011a 00da | | Load_Top At_Offset_2 011b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 011c e5fd | | Load 0x2,-0x3 011d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 011e 00da | | Load_Top At_Offset_2 011f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0120 e5fd | | Load 0x2,-0x3 0121 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0122 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0123 0000 0000 | | .BLANK 0000[0x5] 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 012b | + | .CONST 0x012b ; Address of begin 0129 0004 | | .CONST 0x0004 ; Address of exception handler 012a 0001 | | .CONST 0x0001 ; Number of locals 012b BODY_0128: 012b INIT_0128: 012b 482c |H, | Short_Literal 0x2c 012c 00db | | Load_Top At_Offset_3 012d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 012e 00e0 | | Load_Encached Standard_Cache 012f 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0130 01cb | | Execute Vector,Append 0131 00db | | Load_Top At_Offset_3 0132 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0133 00e0 | | Load_Encached Standard_Cache 0134 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0135 01cc | | Execute Vector,Catenate 0136 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0137 0000 | | .XXX[0x1] 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 013b | ; | .CONST 0x013b ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0001 | | .CONST 0x0001 ; Number of locals 013b BODY_0138: 013b INIT_0138: 013b 00da | | Load_Top At_Offset_2 013c 8217 | | Call 0x1,0x17 013d e006 | | Load 0x0,0x6 013e 180d | | Execute Package,Field_Execute,Field_Number 0xd 013f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0147 | G | .CONST 0x0147 ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0002 | | .CONST 0x0002 ; Number of locals 0143 INIT_0140: 0143 e21e | | Load 0x1,0x1e 0144 0322 | " | Declare_Variable Record 0145 00d8 | | Load_Top At_Offset_0 0146 1c00 | | Execute_Immediate Run_Utility,0x0 0147 BODY_0140: 0147 00db | | Load_Top At_Offset_3 0148 00d9 | | Load_Top At_Offset_1 0149 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 014a 4801 |H | Short_Literal 0x1 014b 00d9 | | Load_Top At_Offset_1 014c 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 014d 00d8 | | Load_Top At_Offset_0 014e 00d9 | | Load_Top At_Offset_1 014f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0150 8221 | ! | Call 0x1,0x21 0151 00d1 | | Pop_Control Pop_Count_1 0152 00d8 | | Load_Top At_Offset_0 0153 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0154 0000 0000 | | .BLANK 0000[0x4] 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 015b | [ | .CONST 0x015b ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0001 | | .CONST 0x0001 ; Number of locals 015b BODY_0158: 015b INIT_0158: 015b 00da | | Load_Top At_Offset_2 015c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 015d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 015e 0000 0000 | | .XXX[0x2] 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 016c | l | .CONST 0x016c ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0002 | | .CONST 0x0002 ; Number of locals 0163 INIT_0160: 0163 00da | | Load_Top At_Offset_2 0164 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0165 e21d | | Load 0x1,0x1d 0166 011c | | Execute Any,Convert_Unchecked 0167 1c01 | | Execute_Immediate Run_Utility,0x1 0168 0092 0209 | | Action Push_String_Extended,0x209 ; "=>" 016a 01cc | | Execute Vector,Catenate 016b 0007 | | Action Break_Optional 016c BODY_0160: 016c 00d8 | | Load_Top At_Offset_0 016d e5ff | | Load 0x2,-0x1 016e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 016f e5ff | | Load 0x2,-0x1 0170 8220 | | Call 0x1,0x20 0171 01cc | | Execute Vector,Catenate 0172 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0173 0000 0000 | | .BLANK 0000[0x5] 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 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 017d 7013 |p | Jump_Nonzero 0x191 017e 00da | | Load_Top At_Offset_2 017f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0180 0f02 | | Execute_Immediate Equal,0x2 0181 6804 |h | Jump_Zero 0x186 0182 4801 |H | Short_Literal 0x1 0183 00db | | Load_Top At_Offset_3 0184 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0185 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0186 e21d | | Load 0x1,0x1d 0187 00db | | Load_Top At_Offset_3 0188 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0189 0268 | h | Execute Discrete,Successor 018a 00db | | Load_Top At_Offset_3 018b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 018c 00da | | Load_Top At_Offset_2 018d 00db | | Load_Top At_Offset_3 018e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 018f 8221 | ! | Call 0x1,0x21 0190 00d1 | | Pop_Control Pop_Count_1 0191 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0192 0000 0000 | | .BLANK 0000[0x6] 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 4607 |F | Jump_Case 0x8 019c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 019d 7807 |x | Jump 0x1a5 ; case 0x1 019e 780a |x | Jump 0x1a9 ; case 0x2 019f 780e |x | Jump 0x1ae ; case 0x3 01a0 7811 |x | Jump 0x1b2 ; case 0x4 01a1 7812 |x | Jump 0x1b4 ; case 0x5 01a2 7813 |x | Jump 0x1b6 ; case 0x6 01a3 7816 |x | Jump 0x1ba ; case 0x7 01a4 4302 |C | .XXX[0x1] 01a5 00da | | Load_Top At_Offset_2 01a6 0091 0205 | | Action Push_String_Extended_Indexed,0x205 ; "NONE" 01a8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 01a9 00db | | Load_Top At_Offset_3 01aa 00db | | Load_Top At_Offset_3 01ab 00e0 | | Load_Encached Standard_Cache 01ac 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01ad 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01ae 00da | | Load_Top At_Offset_2 01af 00e0 | | Load_Encached Standard_Cache 01b0 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01b1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 01b2 00db | | Load_Top At_Offset_3 01b3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01b4 00db | | Load_Top At_Offset_3 01b5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01b6 e21d | | Load 0x1,0x1d 01b7 00dc | | Load_Top At_Offset_4 01b8 0267 | g | Execute Discrete,Predecessor 01b9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01ba e21d | | Load 0x1,0x1d 01bb 00dc | | Load_Top At_Offset_4 01bc 0268 | h | Execute Discrete,Successor 01bd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01be 0000 0000 | | .XXX[0x2] 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01c3 | | .CONST 0x01c3 ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0001 | | .CONST 0x0001 ; Number of locals 01c3 BODY_01c0: 01c3 INIT_01c0: 01c3 00db | | Load_Top At_Offset_3 01c4 4602 |F | Jump_Case 0x3 01c5 7808 |x | Jump 0x1ce ; case 0x0 01c6 7809 |x | Jump 0x1d0 ; case 0x1 01c7 7800 |x | Jump 0x1c8 ; case 0x2 01c8 00da | | Load_Top At_Offset_2 01c9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01ca 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01cb 00e0 | | Load_Encached Standard_Cache 01cc 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01cd 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01ce 00ea | | Load_Encached Null_String_Cache 01cf 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01d0 00da | | Load_Top At_Offset_2 01d1 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01d2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01d3 00e0 | | Load_Encached Standard_Cache 01d4 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01d5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01d6 0000 0000 | | .XXX[0x2] 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01db | | .CONST 0x01db ; Address of begin 01d9 0004 | | .CONST 0x0004 ; Address of exception handler 01da 0001 | | .CONST 0x0001 ; Number of locals 01db BODY_01d8: 01db INIT_01d8: 01db 4801 |H | Short_Literal 0x1 01dc e5fe | | Load 0x2,-0x2 01dd 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 01de 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01df 0000 | | .XXX[0x1] 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01e3 | | .CONST 0x01e3 ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0001 | | .CONST 0x0001 ; Number of locals 01e3 BODY_01e0: 01e3 INIT_01e0: 01e3 4601 |F | Jump_Case 0x2 01e4 7801 |x | Jump 0x1e6 ; case 0x0 01e5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 01e6 00da | | Load_Top At_Offset_2 01e7 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01e8 1c00 | | Execute_Immediate Run_Utility,0x0 01e9 4800 |H | Short_Literal 0x0 01ea 00db | | Load_Top At_Offset_3 01eb 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01ec 4800 |H | Short_Literal 0x0 01ed 00db | | Load_Top At_Offset_3 01ee 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 01ef 4801 |H | Short_Literal 0x1 01f0 00db | | Load_Top At_Offset_3 01f1 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 01f2 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 01f3 0000 0000 | | .BLANK 0000[0x5] 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 01fb | | .CONST 0x01fb ; Address of begin 01f9 0004 | | .CONST 0x0004 ; Address of exception handler 01fa 0001 | | .CONST 0x0001 ; Number of locals 01fb BODY_01f8: 01fb INIT_01f8: 01fb 4601 |F | Jump_Case 0x2 01fc 7801 |x | Jump 0x1fe ; case 0x0 01fd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 01fe 4800 |H | Short_Literal 0x0 01ff 00db | | Load_Top At_Offset_3 0200 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0201 4800 |H | Short_Literal 0x0 0202 00db | | Load_Top At_Offset_3 0203 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0204 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0205 ; -------------------------------------------------------------------------------------- 0205 ; STRING TABLE 0205 ; -------------------------------------------------------------------------------------- 0205 000c | | .STRTAB 0x000c->0x020b ; "NONE" 0206 000e | | .STRTAB 0x000e->0x020d ; "PARAM" 0207 0011 | | .STRTAB 0x0011->0x020f ; "TC" 0208 0011 | | .STRTAB 0x0011->0x0210 ; "others => Unspecified" 0209 0024 | $ | .STRTAB 0x0024->0x021b ; "=>" 020a 0024 | $ | .STREND 0x0024->0x021c 020b 4e4f 4e45 |NONE| .STRTAB_STRINGS 021c 0000 0000 | | .BLANK 0000[0x4] 0220 ; -------------------------------------------------------------------------------------- 0220 ; Debug Table 0220 ; -------------------------------------------------------------------------------------- 0220 0004 0009 | | .DEBUG4 0x0004,0x0009,0x5d7b,0x0000,0x0001,0x0000 0226 0000 0000 | | .BLANK 0000[0x1da]