|
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_1188cd9
└─⟦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 0378 | x | .CONST 0x0378 ; Offset of debug table 0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction 0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion 0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments) 0007 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0054 | T | .CONST 0x0054 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001e | | .CONST 0x001e ; Number of locals 000b INIT_0008: 000b 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated 000d 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated 000f 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated 0011 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 0013 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated 0015 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated 0017 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated 0019 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated 001b 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated 001d 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated 001f 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated 0021 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated 0023 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated 0025 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated 0027 029a 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Visible,Unelaborated 0029 029a 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call,Visible,Unelaborated 002b 029a 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call,Visible,Unelaborated 002d 029a 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call,Visible,Unelaborated 002f 00bf | | Action Accept_Activation 0030 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0031 00c7 | | Action Elaborate_Subprogram 0032 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0033 00c7 | | Action Elaborate_Subprogram 0034 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0035 00c7 | | Action Elaborate_Subprogram 0036 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0037 00c7 | | Action Elaborate_Subprogram 0038 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0039 00c7 | | Action Elaborate_Subprogram 003a 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 003b 00c7 | | Action Elaborate_Subprogram 003c 1d12 | | Execute_Immediate Reference_Lex_1,0x12 003d 00c7 | | Action Elaborate_Subprogram 003e 1d13 | | Execute_Immediate Reference_Lex_1,0x13 003f 00c7 | | Action Elaborate_Subprogram 0040 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0041 00c7 | | Action Elaborate_Subprogram 0042 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0043 00c7 | | Action Elaborate_Subprogram 0044 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0045 00c7 | | Action Elaborate_Subprogram 0046 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0047 00c7 | | Action Elaborate_Subprogram 0048 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0049 00c7 | | Action Elaborate_Subprogram 004a 1d19 | | Execute_Immediate Reference_Lex_1,0x19 004b 00c7 | | Action Elaborate_Subprogram 004c 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 004d 00c7 | | Action Elaborate_Subprogram 004e 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 004f 00c7 | | Action Elaborate_Subprogram 0050 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0051 00c7 | | Action Elaborate_Subprogram 0052 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0053 00c7 | | Action Elaborate_Subprogram 0054 BODY_0008: 0054 00bc | | Action Signal_Activated 0055 00bb | | Action Signal_Completion 0056 0000 0000 | | .XXX[0x2] 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 005b | [ | .CONST 0x005b ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 0001 | | .CONST 0x0001 ; Number of locals 005b BODY_0058: 005b INIT_0058: 005b e5fe | | Load 0x2,-0x2 005c 4805 |H | Short_Literal 0x5 005d e5ff | | Load 0x2,-0x1 005e e001 | | Load 0x0,0x1 005f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0060 e5fe | | Load 0x2,-0x2 0061 e002 | | Load 0x0,0x2 0062 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0063 6803 |h | Jump_Zero 0x67 0064 e002 | | Load 0x0,0x2 0065 1b47 | G | Execute Package,Field_Read,Field_Number 0x47 0066 0257 | W | Execute Discrete,Raise 0067 e003 | | Load 0x0,0x3 0068 0257 | W | Execute Discrete,Raise 0069 0000 0000 | | .BLANK 0000[0x7] 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0073 | s | .CONST 0x0073 ; Address of begin 0071 0004 | | .CONST 0x0004 ; Address of exception handler 0072 0001 | | .CONST 0x0001 ; Number of locals 0073 BODY_0070: 0073 INIT_0070: 0073 e5fe | | Load 0x2,-0x2 0074 4808 |H | Short_Literal 0x8 0075 e5ff | | Load 0x2,-0x1 0076 e001 | | Load 0x0,0x1 0077 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0078 e5fe | | Load 0x2,-0x2 0079 e002 | | Load 0x0,0x2 007a 1819 | | Execute Package,Field_Execute,Field_Number 0x19 007b 6803 |h | Jump_Zero 0x7f 007c e002 | | Load 0x0,0x2 007d 1b47 | G | Execute Package,Field_Read,Field_Number 0x47 007e 0257 | W | Execute Discrete,Raise 007f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0083 | | .CONST 0x0083 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0001 | | .CONST 0x0001 ; Number of locals 0083 BODY_0080: 0083 INIT_0080: 0083 e5fe | | Load 0x2,-0x2 0084 4803 |H | Short_Literal 0x3 0085 e5ff | | Load 0x2,-0x1 0086 e001 | | Load 0x0,0x1 0087 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0088 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0089 0000 0000 | | .BLANK 0000[0x7] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0093 | | .CONST 0x0093 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0001 | | .CONST 0x0001 ; Number of locals 0093 BODY_0090: 0093 INIT_0090: 0093 e5fe | | Load 0x2,-0x2 0094 4806 |H | Short_Literal 0x6 0095 e5ff | | Load 0x2,-0x1 0096 e001 | | Load 0x0,0x1 0097 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0098 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0099 0000 0000 | | .BLANK 0000[0x7] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a3 | | .CONST 0x00a3 ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0001 | | .CONST 0x0001 ; Number of locals 00a3 BODY_00a0: 00a3 INIT_00a0: 00a3 e004 | | Load 0x0,0x4 00a4 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00a5 e005 | | Load 0x0,0x5 00a6 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00a7 7004 |p | Jump_Nonzero 0xac 00a8 e5ff | | Load 0x2,-0x1 00a9 0092 030d | | Action Push_String_Extended,0x30d ; "Operator capability is required" 00ab 820d | | Call 0x1,0xd 00ac 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00ad 0000 0000 | | .XXX[0x3] 00af 0000 | | 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b8 | | .CONST 0x00b8 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0002 | | .CONST 0x0002 ; Number of locals 00b3 INIT_00b0: 00b3 e006 | | Load 0x0,0x6 00b4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00b5 02c7 | | Declare_Variable Any 00b6 00d8 | | Load_Top At_Offset_0 00b7 1c00 | | Execute_Immediate Run_Utility,0x0 00b8 BODY_00b0: 00b8 00d8 | | Load_Top At_Offset_0 00b9 e5fd | | Load 0x2,-0x3 00ba 0120 | | Execute Any,Is_Value 00bb 6803 |h | Jump_Zero 0xbf 00bc e002 | | Load 0x0,0x2 00bd 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00be 7801 |x | Jump 0xc0 00bf e5fd | | Load 0x2,-0x3 00c0 e5fe | | Load 0x2,-0x2 00c1 e002 | | Load 0x0,0x2 00c2 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 00c3 c5fd | | Store 0x2,-0x3 00c4 c402 | | Store 0x2,0x2 00c5 e5fd | | Load 0x2,-0x3 00c6 4800 |H | Short_Literal 0x0 00c7 0092 030e | | Action Push_String_Extended,0x30e ; "[" 00c9 e5ff | | Load 0x2,-0x1 00ca 01cc | | Execute Vector,Catenate 00cb 0092 030f | | Action Push_String_Extended,0x30f ; " (" 00cd 01cc | | Execute Vector,Catenate 00ce e5fe | | Load 0x2,-0x2 00cf 821d | | Call 0x1,0x1d 00d0 01cc | | Execute Vector,Catenate 00d1 0092 0310 | | Action Push_String_Extended,0x310 ; ")]" 00d3 01cc | | Execute Vector,Catenate 00d4 e001 | | Load 0x0,0x1 00d5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00d6 e002 | | Load 0x0,0x2 00d7 180e | | Execute Package,Field_Execute,Field_Number 0xe 00d8 e402 | | Load 0x2,0x2 00d9 e001 | | Load 0x0,0x1 00da 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00db 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00dc 0000 0000 | | .BLANK 0000[0x4] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e8 | | .CONST 0x00e8 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0002 | | .CONST 0x0002 ; Number of locals 00e3 INIT_00e0: 00e3 e006 | | Load 0x0,0x6 00e4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00e5 02c7 | | Declare_Variable Any 00e6 00d8 | | Load_Top At_Offset_0 00e7 1c00 | | Execute_Immediate Run_Utility,0x0 00e8 BODY_00e0: 00e8 00d8 | | Load_Top At_Offset_0 00e9 e5fb | | Load 0x2,-0x5 00ea 0120 | | Execute Any,Is_Value 00eb 6803 |h | Jump_Zero 0xef 00ec e002 | | Load 0x0,0x2 00ed 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00ee 7801 |x | Jump 0xf0 00ef e5fb | | Load 0x2,-0x5 00f0 e5fc | | Load 0x2,-0x4 00f1 e002 | | Load 0x0,0x2 00f2 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 00f3 c5fb | | Store 0x2,-0x5 00f4 c402 | | Store 0x2,0x2 00f5 e5fb | | Load 0x2,-0x5 00f6 4800 |H | Short_Literal 0x0 00f7 0092 030e | | Action Push_String_Extended,0x30e ; "[" 00f9 e5ff | | Load 0x2,-0x1 00fa 01cc | | Execute Vector,Catenate 00fb 0092 030f | | Action Push_String_Extended,0x30f ; " (" 00fd 01cc | | Execute Vector,Catenate 00fe e5fe | | Load 0x2,-0x2 00ff 821d | | Call 0x1,0x1d 0100 01cc | | Execute Vector,Catenate 0101 0092 0311 | | Action Push_String_Extended,0x311 ; ", " 0103 01cc | | Execute Vector,Catenate 0104 e5fd | | Load 0x2,-0x3 0105 821d | | Call 0x1,0x1d 0106 01cc | | Execute Vector,Catenate 0107 0092 0311 | | Action Push_String_Extended,0x311 ; ", " 0109 01cc | | Execute Vector,Catenate 010a e5fc | | Load 0x2,-0x4 010b 821d | | Call 0x1,0x1d 010c 01cc | | Execute Vector,Catenate 010d 0092 0310 | | Action Push_String_Extended,0x310 ; ")]" 010f 01cc | | Execute Vector,Catenate 0110 e001 | | Load 0x0,0x1 0111 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0112 e002 | | Load 0x0,0x2 0113 180e | | Execute Package,Field_Execute,Field_Number 0xe 0114 e402 | | Load 0x2,0x2 0115 e001 | | Load 0x0,0x1 0116 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0117 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 0120 | | .CONST 0x0120 ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0002 | | .CONST 0x0002 ; Number of locals 011b INIT_0118: 011b e006 | | Load 0x0,0x6 011c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 011d 02c7 | | Declare_Variable Any 011e 00d8 | | Load_Top At_Offset_0 011f 1c00 | | Execute_Immediate Run_Utility,0x0 0120 BODY_0118: 0120 00d8 | | Load_Top At_Offset_0 0121 e5fa | | Load 0x2,-0x6 0122 0120 | | Execute Any,Is_Value 0123 6803 |h | Jump_Zero 0x127 0124 e002 | | Load 0x0,0x2 0125 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0126 7801 |x | Jump 0x128 0127 e5fa | | Load 0x2,-0x6 0128 e5fb | | Load 0x2,-0x5 0129 e002 | | Load 0x0,0x2 012a 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 012b c5fa | | Store 0x2,-0x6 012c c402 | | Store 0x2,0x2 012d e5fa | | Load 0x2,-0x6 012e 4800 |H | Short_Literal 0x0 012f 0092 030e | | Action Push_String_Extended,0x30e ; "[" 0131 e5ff | | Load 0x2,-0x1 0132 01cc | | Execute Vector,Catenate 0133 0092 030f | | Action Push_String_Extended,0x30f ; " (" 0135 01cc | | Execute Vector,Catenate 0136 e5fe | | Load 0x2,-0x2 0137 821d | | Call 0x1,0x1d 0138 01cc | | Execute Vector,Catenate 0139 0092 0311 | | Action Push_String_Extended,0x311 ; ", " 013b 01cc | | Execute Vector,Catenate 013c e5fd | | Load 0x2,-0x3 013d 821d | | Call 0x1,0x1d 013e 01cc | | Execute Vector,Catenate 013f 0092 0311 | | Action Push_String_Extended,0x311 ; ", " 0141 01cc | | Execute Vector,Catenate 0142 e5fc | | Load 0x2,-0x4 0143 821d | | Call 0x1,0x1d 0144 01cc | | Execute Vector,Catenate 0145 0092 0311 | | Action Push_String_Extended,0x311 ; ", " 0147 01cc | | Execute Vector,Catenate 0148 e5fb | | Load 0x2,-0x5 0149 821d | | Call 0x1,0x1d 014a 01cc | | Execute Vector,Catenate 014b 0092 0310 | | Action Push_String_Extended,0x310 ; ")]" 014d 01cc | | Execute Vector,Catenate 014e e001 | | Load 0x0,0x1 014f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0150 e002 | | Load 0x0,0x2 0151 180e | | Execute Package,Field_Execute,Field_Number 0xe 0152 e402 | | Load 0x2,0x2 0153 e001 | | Load 0x0,0x1 0154 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0155 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0156 0000 0000 | | .XXX[0x2] 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 e006 | | Load 0x0,0x6 015c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 015d 02c7 | | Declare_Variable Any 015e 00d8 | | Load_Top At_Offset_0 015f 1c00 | | Execute_Immediate Run_Utility,0x0 0160 BODY_0158: 0160 00d8 | | Load_Top At_Offset_0 0161 e5f9 | | Load 0x2,-0x7 0162 0120 | | Execute Any,Is_Value 0163 6803 |h | Jump_Zero 0x167 0164 e002 | | Load 0x0,0x2 0165 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0166 7801 |x | Jump 0x168 0167 e5f9 | | Load 0x2,-0x7 0168 e5fa | | Load 0x2,-0x6 0169 e002 | | Load 0x0,0x2 016a 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 016b c5f9 | | Store 0x2,-0x7 016c c402 | | Store 0x2,0x2 016d e5f9 | | Load 0x2,-0x7 016e 4800 |H | Short_Literal 0x0 016f 0092 030e | | Action Push_String_Extended,0x30e ; "[" 0171 e5ff | | Load 0x2,-0x1 0172 01cc | | Execute Vector,Catenate 0173 0092 030f | | Action Push_String_Extended,0x30f ; " (" 0175 01cc | | Execute Vector,Catenate 0176 e5fe | | Load 0x2,-0x2 0177 821d | | Call 0x1,0x1d 0178 01cc | | Execute Vector,Catenate 0179 0092 0311 | | Action Push_String_Extended,0x311 ; ", " 017b 01cc | | Execute Vector,Catenate 017c e5fd | | Load 0x2,-0x3 017d 821d | | Call 0x1,0x1d 017e 01cc | | Execute Vector,Catenate 017f 0092 0311 | | Action Push_String_Extended,0x311 ; ", " 0181 01cc | | Execute Vector,Catenate 0182 e5fc | | Load 0x2,-0x4 0183 821d | | Call 0x1,0x1d 0184 01cc | | Execute Vector,Catenate 0185 0092 0311 | | Action Push_String_Extended,0x311 ; ", " 0187 01cc | | Execute Vector,Catenate 0188 e5fb | | Load 0x2,-0x5 0189 821d | | Call 0x1,0x1d 018a 01cc | | Execute Vector,Catenate 018b 0092 0311 | | Action Push_String_Extended,0x311 ; ", " 018d 01cc | | Execute Vector,Catenate 018e e5fa | | Load 0x2,-0x6 018f 821d | | Call 0x1,0x1d 0190 01cc | | Execute Vector,Catenate 0191 0092 0310 | | Action Push_String_Extended,0x310 ; ")]" 0193 01cc | | Execute Vector,Catenate 0194 e001 | | Load 0x0,0x1 0195 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0196 e002 | | Load 0x0,0x2 0197 180e | | Execute Package,Field_Execute,Field_Number 0xe 0198 e402 | | Load 0x2,0x2 0199 e001 | | Load 0x0,0x1 019a 1812 | | Execute Package,Field_Execute,Field_Number 0x12 019b 4507 |E | Exit_Suprogram New_Top_Offset 0x7 019c 0000 0000 | | .BLANK 0000[0x4] 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01a8 | | .CONST 0x01a8 ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0002 | | .CONST 0x0002 ; Number of locals 01a3 INIT_01a0: 01a3 e006 | | Load 0x0,0x6 01a4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01a5 02c7 | | Declare_Variable Any 01a6 00d8 | | Load_Top At_Offset_0 01a7 1c00 | | Execute_Immediate Run_Utility,0x0 01a8 BODY_01a0: 01a8 00d8 | | Load_Top At_Offset_0 01a9 e5f8 | | Load 0x2,-0x8 01aa 0120 | | Execute Any,Is_Value 01ab 6803 |h | Jump_Zero 0x1af 01ac e002 | | Load 0x0,0x2 01ad 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01ae 7801 |x | Jump 0x1b0 01af e5f8 | | Load 0x2,-0x8 01b0 e5f9 | | Load 0x2,-0x7 01b1 e002 | | Load 0x0,0x2 01b2 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 01b3 c5f8 | | Store 0x2,-0x8 01b4 c402 | | Store 0x2,0x2 01b5 e5f8 | | Load 0x2,-0x8 01b6 4800 |H | Short_Literal 0x0 01b7 0092 030e | | Action Push_String_Extended,0x30e ; "[" 01b9 e5ff | | Load 0x2,-0x1 01ba 01cc | | Execute Vector,Catenate 01bb 0092 030f | | Action Push_String_Extended,0x30f ; " (" 01bd 01cc | | Execute Vector,Catenate 01be e5fe | | Load 0x2,-0x2 01bf 821d | | Call 0x1,0x1d 01c0 01cc | | Execute Vector,Catenate 01c1 0092 0311 | | Action Push_String_Extended,0x311 ; ", " 01c3 01cc | | Execute Vector,Catenate 01c4 e5fd | | Load 0x2,-0x3 01c5 821d | | Call 0x1,0x1d 01c6 01cc | | Execute Vector,Catenate 01c7 0092 0311 | | Action Push_String_Extended,0x311 ; ", " 01c9 01cc | | Execute Vector,Catenate 01ca e5fc | | Load 0x2,-0x4 01cb 821d | | Call 0x1,0x1d 01cc 01cc | | Execute Vector,Catenate 01cd 0092 0311 | | Action Push_String_Extended,0x311 ; ", " 01cf 01cc | | Execute Vector,Catenate 01d0 e5fb | | Load 0x2,-0x5 01d1 821d | | Call 0x1,0x1d 01d2 01cc | | Execute Vector,Catenate 01d3 0092 0311 | | Action Push_String_Extended,0x311 ; ", " 01d5 01cc | | Execute Vector,Catenate 01d6 e5fa | | Load 0x2,-0x6 01d7 821d | | Call 0x1,0x1d 01d8 01cc | | Execute Vector,Catenate 01d9 0092 0311 | | Action Push_String_Extended,0x311 ; ", " 01db 01cc | | Execute Vector,Catenate 01dc e5f9 | | Load 0x2,-0x7 01dd 821d | | Call 0x1,0x1d 01de 01cc | | Execute Vector,Catenate 01df 0092 0310 | | Action Push_String_Extended,0x310 ; ")]" 01e1 01cc | | Execute Vector,Catenate 01e2 e001 | | Load 0x0,0x1 01e3 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01e4 e002 | | Load 0x0,0x2 01e5 180e | | Execute Package,Field_Execute,Field_Number 0xe 01e6 e402 | | Load 0x2,0x2 01e7 e001 | | Load 0x0,0x1 01e8 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01e9 4508 |E | Exit_Suprogram New_Top_Offset 0x8 01ea 0000 0000 | | .BLANK 0000[0x6] 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01f8 | | .CONST 0x01f8 ; Address of begin 01f1 0004 | | .CONST 0x0004 ; Address of exception handler 01f2 0002 | | .CONST 0x0002 ; Number of locals 01f3 INIT_01f0: 01f3 e006 | | Load 0x0,0x6 01f4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01f5 02c7 | | Declare_Variable Any 01f6 00d8 | | Load_Top At_Offset_0 01f7 1c00 | | Execute_Immediate Run_Utility,0x0 01f8 BODY_01f0: 01f8 00d8 | | Load_Top At_Offset_0 01f9 e5f7 | | Load 0x2,-0x9 01fa 0120 | | Execute Any,Is_Value 01fb 6803 |h | Jump_Zero 0x1ff 01fc e002 | | Load 0x0,0x2 01fd 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01fe 7801 |x | Jump 0x200 01ff e5f7 | | Load 0x2,-0x9 0200 e5f8 | | Load 0x2,-0x8 0201 e002 | | Load 0x0,0x2 0202 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 0203 c5f7 | | Store 0x2,-0x9 0204 c402 | | Store 0x2,0x2 0205 e5f7 | | Load 0x2,-0x9 0206 4800 |H | Short_Literal 0x0 0207 0092 030e | | Action Push_String_Extended,0x30e ; "[" 0209 e5ff | | Load 0x2,-0x1 020a 01cc | | Execute Vector,Catenate 020b 0092 030f | | Action Push_String_Extended,0x30f ; " (" 020d 01cc | | Execute Vector,Catenate 020e e5fe | | Load 0x2,-0x2 020f 821d | | Call 0x1,0x1d 0210 01cc | | Execute Vector,Catenate 0211 0092 0311 | | Action Push_String_Extended,0x311 ; ", " 0213 01cc | | Execute Vector,Catenate 0214 e5fd | | Load 0x2,-0x3 0215 821d | | Call 0x1,0x1d 0216 01cc | | Execute Vector,Catenate 0217 0092 0311 | | Action Push_String_Extended,0x311 ; ", " 0219 01cc | | Execute Vector,Catenate 021a e5fc | | Load 0x2,-0x4 021b 821d | | Call 0x1,0x1d 021c 01cc | | Execute Vector,Catenate 021d 0092 0311 | | Action Push_String_Extended,0x311 ; ", " 021f 01cc | | Execute Vector,Catenate 0220 e5fb | | Load 0x2,-0x5 0221 821d | | Call 0x1,0x1d 0222 01cc | | Execute Vector,Catenate 0223 0092 0311 | | Action Push_String_Extended,0x311 ; ", " 0225 01cc | | Execute Vector,Catenate 0226 e5fa | | Load 0x2,-0x6 0227 821d | | Call 0x1,0x1d 0228 01cc | | Execute Vector,Catenate 0229 0092 0311 | | Action Push_String_Extended,0x311 ; ", " 022b 01cc | | Execute Vector,Catenate 022c e5f9 | | Load 0x2,-0x7 022d 821d | | Call 0x1,0x1d 022e 01cc | | Execute Vector,Catenate 022f 0092 0311 | | Action Push_String_Extended,0x311 ; ", " 0231 01cc | | Execute Vector,Catenate 0232 e5f8 | | Load 0x2,-0x8 0233 821d | | Call 0x1,0x1d 0234 01cc | | Execute Vector,Catenate 0235 0092 0310 | | Action Push_String_Extended,0x310 ; ")]" 0237 01cc | | Execute Vector,Catenate 0238 e001 | | Load 0x0,0x1 0239 1813 | | Execute Package,Field_Execute,Field_Number 0x13 023a e002 | | Load 0x0,0x2 023b 180e | | Execute Package,Field_Execute,Field_Number 0xe 023c e402 | | Load 0x2,0x2 023d e001 | | Load 0x0,0x1 023e 1812 | | Execute Package,Field_Execute,Field_Number 0x12 023f 4509 |E | Exit_Suprogram New_Top_Offset 0x9 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 0245 | E | .CONST 0x0245 ; Address of begin 0241 0004 | | .CONST 0x0004 ; Address of exception handler 0242 0002 | | .CONST 0x0002 ; Number of locals 0243 INIT_0240: 0243 029f 0303 | | Declare_Subprogram INIT_0300,For_Call 0245 BODY_0240: 0245 e5fd | | Load 0x2,-0x3 0246 4800 |H | Short_Literal 0x0 0247 0092 0312 | | Action Push_String_Extended,0x312 ; "[end of " 0249 e5ff | | Load 0x2,-0x1 024a 01cc | | Execute Vector,Catenate 024b 8402 | | Call 0x2,0x2 024c 01cc | | Execute Vector,Catenate 024d 0092 0313 | | Action Push_String_Extended,0x313 ; "]" 024f 01cc | | Execute Vector,Catenate 0250 e001 | | Load 0x0,0x1 0251 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0252 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0253 0000 0000 | | .BLANK 0000[0x5] 0258 ; -------------------------------------------------------------------------------------- 0258 ; SUBPROGRAM 0258 ; -------------------------------------------------------------------------------------- 0258 025b | [ | .CONST 0x025b ; Address of begin 0259 0004 | | .CONST 0x0004 ; Address of exception handler 025a 0001 | | .CONST 0x0001 ; Number of locals 025b BODY_0258: 025b INIT_0258: 025b e5fe | | Load 0x2,-0x2 025c 0092 0314 | | Action Push_String_Extended,0x314 ; "Terminated because of errors noted previously." 025e e5ff | | Load 0x2,-0x1 025f 8218 | | Call 0x1,0x18 0260 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0261 0000 0000 | | .BLANK 0000[0x7] 0268 ; -------------------------------------------------------------------------------------- 0268 ; SUBPROGRAM 0268 ; -------------------------------------------------------------------------------------- 0268 026b | k | .CONST 0x026b ; Address of begin 0269 0277 | w | .CONST 0x0277 ; Address of exception handler 026a 0001 | | .CONST 0x0001 ; Number of locals 026b BODY_0268: 026b INIT_0268: 026b e5fd | | Load 0x2,-0x3 026c 0092 0315 | | Action Push_String_Extended,0x315 ; "Internal Error - Unexpected exception: " 026e e5fe | | Load 0x2,-0x2 026f 01cc | | Execute Vector,Catenate 0270 820e | | Call 0x1,0xe 0271 e5fd | | Load 0x2,-0x3 0272 0092 0316 | | Action Push_String_Extended,0x316 ; "Unexpected exception" 0274 e5ff | | Load 0x2,-0x1 0275 8218 | | Call 0x1,0x18 0276 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0277 TRAP_0268: 0277 0007 | | Action Break_Optional 0278 e5fd | | Load 0x2,-0x3 0279 0092 0317 | | Action Push_String_Extended,0x317 ; "Unexpected_exception" 027b e5ff | | Load 0x2,-0x1 027c 8218 | | Call 0x1,0x18 027d 00d8 | | Load_Top At_Offset_0 027e 0101 | | Execute Exception,Reraise 027f 0000 | | .XXX[0x1] 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 482b |H+ | Short_Literal 0x2b 0284 4820 |H | Short_Literal 0x20 0285 4800 |H | Short_Literal 0x0 0286 480a |H | Short_Literal 0xa 0287 e5ff | | Load 0x2,-0x1 0288 8007 | | Call 0x0,0x7 0289 01ca | | Execute Vector,Prepend 028a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 028b 0000 0000 | | .BLANK 0000[0x5] 0290 ; -------------------------------------------------------------------------------------- 0290 ; SUBPROGRAM 0290 ; -------------------------------------------------------------------------------------- 0290 0293 | | .CONST 0x0293 ; Address of begin 0291 0004 | | .CONST 0x0004 ; Address of exception handler 0292 0001 | | .CONST 0x0001 ; Number of locals 0293 BODY_0290: 0293 INIT_0290: 0293 482b |H+ | Short_Literal 0x2b 0294 4820 |H | Short_Literal 0x20 0295 4800 |H | Short_Literal 0x0 0296 480a |H | Short_Literal 0xa 0297 e5ff | | Load 0x2,-0x1 0298 8008 | | Call 0x0,0x8 0299 01ca | | Execute Vector,Prepend 029a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 029b 0000 0000 | | .BLANK 0000[0x5] 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 e5ff | | Load 0x2,-0x1 02a4 01db | | Execute Vector,Length 02a5 7003 |p | Jump_Nonzero 0x2a9 02a6 0092 0318 | | Action Push_String_Extended,0x318 ; "\x22\x22" 02a8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02a9 e5ff | | Load 0x2,-0x1 02aa 01dd | | Execute Vector,First 02ab e5ff | | Load 0x2,-0x1 02ac 01d7 | | Execute Vector,Field_Read 02ad 0f2b | + | Execute_Immediate Equal,0x2b 02ae 680f |h | Jump_Zero 0x2be 02af e5ff | | Load 0x2,-0x1 02b0 01dd | | Execute Vector,First 02b1 0a01 | | Execute_Immediate Plus,0x1 02b2 00d8 | | Load_Top At_Offset_0 02b3 00e2 | | Load_Encached Integer_Cache 02b4 0260 | ` | Execute Discrete,In_Type 02b5 7001 |p | Jump_Nonzero 0x2b7 02b6 0801 | | Execute_Immediate Raise,0x1 02b7 e5ff | | Load 0x2,-0x1 02b8 01dc | | Execute Vector,Last 02b9 e5ff | | Load 0x2,-0x1 02ba 01cf | | Execute Vector,Slice_Read 02bb 0335 | 5 | Declare_Variable Array,Duplicate 02bc 00cd | | Action Spare6_Action 02bd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02be 0092 0319 | | Action Push_String_Extended,0x319 ; "\x22" 02c0 e5ff | | Load 0x2,-0x1 02c1 01cc | | Execute Vector,Catenate 02c2 0092 0319 | | Action Push_String_Extended,0x319 ; "\x22" 02c4 01cc | | Execute Vector,Catenate 02c5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02c6 0000 0000 | | .XXX[0x2] 02c8 ; -------------------------------------------------------------------------------------- 02c8 ; SUBPROGRAM 02c8 ; -------------------------------------------------------------------------------------- 02c8 02cd | | .CONST 0x02cd ; Address of begin 02c9 0004 | | .CONST 0x0004 ; Address of exception handler 02ca 0002 | | .CONST 0x0002 ; Number of locals 02cb INIT_02c8: 02cb e006 | | Load 0x0,0x6 02cc 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02cd BODY_02c8: 02cd e5fc | | Load 0x2,-0x4 02ce 460b |F | Jump_Case 0xc 02cf 780b |x | Jump 0x2db ; case 0x0 02d0 780a |x | Jump 0x2db ; case 0x1 02d1 7809 |x | Jump 0x2db ; case 0x2 02d2 780b |x | Jump 0x2de ; case 0x3 02d3 7807 |x | Jump 0x2db ; case 0x4 02d4 780c |x | Jump 0x2e1 ; case 0x5 02d5 7805 |x | Jump 0x2db ; case 0x6 02d6 780a |x | Jump 0x2e1 ; case 0x7 02d7 7803 |x | Jump 0x2db ; case 0x8 02d8 7802 |x | Jump 0x2db ; case 0x9 02d9 7801 |x | Jump 0x2db ; case 0xa 02da 7800 |x | Jump 0x2db ; case 0xb 02db 4800 |H | Short_Literal 0x0 02dc a402 | | Store_Unchecked 0x2,0x2 02dd 7805 |x | Jump 0x2e3 02de 4801 |H | Short_Literal 0x1 02df a402 | | Store_Unchecked 0x2,0x2 02e0 7802 |x | Jump 0x2e3 02e1 4802 |H | Short_Literal 0x2 02e2 a402 | | Store_Unchecked 0x2,0x2 02e3 482e |H. | Short_Literal 0x2e 02e4 e5fd | | Load 0x2,-0x3 02e5 0092 031a | | Action Push_String_Extended,0x31a ; " " 02e7 01cc | | Execute Vector,Catenate 02e8 e009 | | Load 0x0,0x9 02e9 1819 | | Execute Package,Field_Execute,Field_Number 0x19 02ea e009 | | Load 0x0,0x9 02eb 181c | | Execute Package,Field_Execute,Field_Number 0x1c 02ec 01cc | | Execute Vector,Catenate 02ed 01cb | | Execute Vector,Append 02ee e009 | | Load 0x0,0x9 02ef 1819 | | Execute Package,Field_Execute,Field_Number 0x19 02f0 e009 | | Load 0x0,0x9 02f1 181b | | Execute Package,Field_Execute,Field_Number 0x1b 02f2 01cc | | Execute Vector,Catenate 02f3 e5fe | | Load 0x2,-0x2 02f4 e402 | | Load 0x2,0x2 02f5 e5ff | | Load 0x2,-0x1 02f6 e00a | | Load 0x0,0xa 02f7 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 02f8 e002 | | Load 0x0,0x2 02f9 180e | | Execute Package,Field_Execute,Field_Number 0xe 02fa e5fc | | Load 0x2,-0x4 02fb e5fd | | Load 0x2,-0x3 02fc e001 | | Load 0x0,0x1 02fd 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02fe 4505 |E | Exit_Suprogram New_Top_Offset 0x5 02ff 0000 | | .XXX[0x1] 0300 ; -------------------------------------------------------------------------------------- 0300 ; SUBPROGRAM 0300 ; -------------------------------------------------------------------------------------- 0300 0303 | | .CONST 0x0303 ; Address of begin 0301 0004 | | .CONST 0x0004 ; Address of exception handler 0302 0001 | | .CONST 0x0001 ; Number of locals 0303 BODY_0300: 0303 INIT_0300: 0303 e5fe | | Load 0x2,-0x2 0304 01db | | Execute Vector,Length 0305 6805 |h | Jump_Zero 0x30b 0306 0092 031b | | Action Push_String_Extended,0x31b ; " - " 0308 e5fe | | Load 0x2,-0x2 0309 01cc | | Execute Vector,Catenate 030a 00ca | | Action Exit_Nullary_Function 030b 00ea | | Load_Encached Null_String_Cache 030c 00ca | | Action Exit_Nullary_Function 030d ; -------------------------------------------------------------------------------------- 030d ; STRING TABLE 030d ; -------------------------------------------------------------------------------------- 030d 0020 | | .STRTAB 0x0020->0x031d ; "Operator capability is required" 030e 003d | = | .STRTAB 0x003d->0x032c ; "[" 030f 003c | < | .STRTAB 0x003c->0x032d ; " (" 0310 003c | < | .STRTAB 0x003c->0x032e ; ")]" 0311 003c | < | .STRTAB 0x003c->0x032f ; ", " 0312 003c | < | .STRTAB 0x003c->0x0330 ; "[end of " 0313 0042 | B | .STRTAB 0x0042->0x0334 ; "]" 0314 0041 | A | .STRTAB 0x0041->0x0334 ; "Terminated because of errors noted previously." 0315 006d | m | .STRTAB 0x006d->0x034b ; "Internal Error - Unexpected exception: " 0316 0092 | | .STRTAB 0x0092->0x035f ; "Unexpected exception" 0317 00a4 | | .STRTAB 0x00a4->0x0369 ; "Unexpected_exception" 0318 00b6 | | .STRTAB 0x00b6->0x0373 ; "\x22\x22" 0319 00b6 | | .STRTAB 0x00b6->0x0374 ; "\x22" 031a 00b5 | | .STRTAB 0x00b5->0x0374 ; " " 031b 00b5 | | .STRTAB 0x00b5->0x0375 ; " - " 031c 00b6 | | .STREND 0x00b6->0x0377 031d 4f70 6572 |Oper| .STRTAB_STRINGS 0377 0000 | | .XXX[0x1] 0378 ; -------------------------------------------------------------------------------------- 0378 ; Debug Table 0378 ; -------------------------------------------------------------------------------------- 0378 0004 000c | | .DEBUG4 0x0004,0x000c,0x45f3,0x0000,0x0001,0x0000 037e 0000 0000 | | .BLANK 0000[0x82]