|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0694fc
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 02a8 | | .CONST 0x02a8 ; 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 004a | J | .CONST 0x004a ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0020 | | .CONST 0x0020 ; Number of locals 000b INIT_0008: 000b 00c4 | | Action Make_Default 000c 00c4 | | Action Make_Default 000d 00c4 | | Action Make_Default 000e 00c4 | | Action Make_Default 000f 00c4 | | Action Make_Default 0010 00c4 | | Action Make_Default 0011 00c4 | | Action Make_Default 0012 00c4 | | Action Make_Default 0013 00c4 | | Action Make_Default 0014 00c4 | | Action Make_Default 0015 00c4 | | Action Make_Default 0016 00c4 | | Action Make_Default 0017 00c4 | | Action Make_Default 0018 00c4 | | Action Make_Default 0019 00c4 | | Action Make_Default 001a 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated 001c c217 | | Store 0x1,0x17 001d 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated 001f c215 | | Store 0x1,0x15 0020 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated 0022 c216 | | Store 0x1,0x16 0023 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 0025 c21b | | Store 0x1,0x1b 0026 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 0028 c218 | | Store 0x1,0x18 0029 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated 002b c219 | | Store 0x1,0x19 002c 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated 002e c21a | | Store 0x1,0x1a 002f 00bf | | Action Accept_Activation 0030 0092 0260 | `| Action Push_String_Extended,0x260 ; "\x1b]" 0032 0092 0261 | a| Action Push_String_Extended,0x261 ; "\x07" 0034 4802 |H | Short_Literal 0x2 0035 e001 | | Load 0x0,0x1 0036 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0037 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0038 00e1 | | Load_Encached Boolean_Cache 0039 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 003a 029d 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call 003c 1d15 | | Execute_Immediate Reference_Lex_1,0x15 003d 00c7 | | Action Elaborate_Subprogram 003e 1d16 | | Execute_Immediate Reference_Lex_1,0x16 003f 00c7 | | Action Elaborate_Subprogram 0040 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0041 00c7 | | Action Elaborate_Subprogram 0042 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0043 00c7 | | Action Elaborate_Subprogram 0044 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0045 00c7 | | Action Elaborate_Subprogram 0046 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0047 00c7 | | Action Elaborate_Subprogram 0048 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0049 00c7 | | Action Elaborate_Subprogram 004a BODY_0008: 004a 00bc | | Action Signal_Activated 004b 00bb | | Action Signal_Completion 004c 0000 0000 | | .BLANK 0000[0x4] 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 0062 | b | .CONST 0x0062 ; Address of begin 0051 00be | | .CONST 0x00be ; Address of exception handler 0052 0007 | | .CONST 0x0007 ; Number of locals 0053 INIT_0050: 0053 e001 | | Load 0x0,0x1 0054 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0055 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0056 02c7 | | Declare_Variable Any 0057 00d8 | | Load_Top At_Offset_0 0058 1c00 | | Execute_Immediate Run_Utility,0x0 0059 e001 | | Load 0x0,0x1 005a 1b17 | | Execute Package,Field_Read,Field_Number 0x17 005b 1b13 | | Execute Package,Field_Read,Field_Number 0x13 005c 00e3 | | Load_Encached Natural_Cache 005d 00e3 | | Load_Encached Natural_Cache 005e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 005f 00e8 | | Load_Encached Character_Cache 0060 029f 0223 | #| Declare_Subprogram INIT_0220,For_Call 0062 BODY_0050: 0062 e402 | | Load 0x2,0x2 0063 e001 | | Load 0x0,0x1 0064 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0065 180e | | Execute Package,Field_Execute,Field_Number 0xe 0066 c402 | | Store 0x2,0x2 0067 e001 | | Load 0x0,0x1 0068 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0069 1b11 | | Execute Package,Field_Read,Field_Number 0x11 006a e402 | | Load 0x2,0x2 006b e001 | | Load 0x0,0x1 006c 1b17 | | Execute Package,Field_Read,Field_Number 0x17 006d 1814 | | Execute Package,Field_Execute,Field_Number 0x14 006e c403 | | Store 0x2,0x3 006f 4801 |H | Short_Literal 0x1 0070 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0071 e403 | | Load 0x2,0x3 0072 e21e | | Load 0x1,0x1e 0073 027f | | Execute Discrete,Equal 0074 7006 |p | Jump_Nonzero 0x7b 0075 0092 0262 | b| Action Push_String_Extended,0x262 ; "bad_lead in" 0077 e002 | | Load 0x0,0x2 0078 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0079 e003 | | Load 0x0,0x3 007a 0257 | W | Execute Discrete,Raise 007b 4800 |H | Short_Literal 0x0 007c a404 | | Store_Unchecked 0x2,0x4 007d 00cf | | Action Mark_Auxiliary 007e e001 | | Load 0x0,0x1 007f 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0080 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0081 e402 | | Load 0x2,0x2 0082 e001 | | Load 0x0,0x1 0083 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0084 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0085 c403 | | Store 0x2,0x3 0086 00db | | Load_Top At_Offset_3 0087 0a01 | | Execute_Immediate Plus,0x1 0088 c405 | | Store 0x2,0x5 0089 e403 | | Load 0x2,0x3 008a e001 | | Load 0x0,0x1 008b 1b17 | | Execute Package,Field_Read,Field_Number 0x17 008c 1817 | | Execute Package,Field_Execute,Field_Number 0x17 008d 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 008e 00da | | Load_Top At_Offset_2 008f 0f3b | ; | Execute_Immediate Equal,0x3b 0090 7014 |p | Jump_Nonzero 0xa5 0091 00da | | Load_Top At_Offset_2 0092 4830 |H0 | Short_Literal 0x30 0093 4839 |H9 | Short_Literal 0x39 0094 0261 | a | Execute Discrete,Not_In_Range 0095 6806 |h | Jump_Zero 0x9c 0096 0092 0263 | c| Action Push_String_Extended,0x263 ; "Illegal char in length " 0098 e002 | | Load 0x0,0x2 0099 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 009a e003 | | Load 0x0,0x3 009b 0257 | W | Execute Discrete,Raise 009c e404 | | Load 0x2,0x4 009d 480a |H | Short_Literal 0xa 009e 0271 | q | Execute Discrete,Times 009f 00db | | Load_Top At_Offset_3 00a0 0273 | s | Execute Discrete,Plus 00a1 0ad0 | | Execute_Immediate Plus,-0x30 00a2 c404 | | Store 0x2,0x4 00a3 00c9 | | Action Pop_Auxiliary_Loop 00a4 7fd9 | | Jump 0x7e 00a5 00ce | | Action Pop_Auxiliary 00a6 00db | | Load_Top At_Offset_3 00a7 602c |`, | Indirect_Literal Discrete,0xd4,{0x00000000, 0x00002710} 00a8 027d | } | Execute Discrete,Greater 00a9 6806 |h | Jump_Zero 0xb0 00aa 0092 0264 | d| Action Push_String_Extended,0x264 ; "Excessive length" 00ac e002 | | Load 0x0,0x2 00ad 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 00ae e003 | | Load 0x0,0x3 00af 0257 | W | Execute Discrete,Raise 00b0 8407 | | Call 0x2,0x7 00b1 00da | | Load_Top At_Offset_2 00b2 e404 | | Load 0x2,0x4 00b3 027e | ~ | Execute Discrete,Not_Equal 00b4 6802 |h | Jump_Zero 0xb7 00b5 e003 | | Load 0x0,0x3 00b6 0257 | W | Execute Discrete,Raise 00b7 e402 | | Load 0x2,0x2 00b8 4800 |H | Short_Literal 0x0 00b9 e001 | | Load 0x0,0x1 00ba 1b17 | | Execute Package,Field_Read,Field_Number 0x17 00bb 180f | | Execute Package,Field_Execute,Field_Number 0xf 00bc c402 | | Store 0x2,0x2 00bd 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00be TRAP_0050: 00be e003 | | Load 0x0,0x3 00bf 010f | | Execute Exception,Equal 00c0 680b |h | Jump_Zero 0xcc 00c1 e402 | | Load 0x2,0x2 00c2 4800 |H | Short_Literal 0x0 00c3 e001 | | Load 0x0,0x1 00c4 1b17 | | Execute Package,Field_Read,Field_Number 0x17 00c5 180f | | Execute Package,Field_Execute,Field_Number 0xf 00c6 c402 | | Store 0x2,0x2 00c7 0092 0265 | e| Action Push_String_Extended,0x265 ; "Dialog Box response read error." 00c9 e002 | | Load 0x0,0x2 00ca 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 00cb 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00cc e402 | | Load 0x2,0x2 00cd 4800 |H | Short_Literal 0x0 00ce e001 | | Load 0x0,0x1 00cf 1b17 | | Execute Package,Field_Read,Field_Number 0x17 00d0 180f | | Execute Package,Field_Execute,Field_Number 0xf 00d1 c402 | | Store 0x2,0x2 00d2 00d8 | | Load_Top At_Offset_0 00d3 0101 | | Execute Exception,Reraise 00d4 0000 0000 | | .LITERAL {0x00000000, 0x00002710} 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 0092 0266 | f| Action Push_String_Extended,0x266 ; "\x1b]9;\x07" 00dd e004 | | Load 0x0,0x4 00de 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00df 4501 |E | Exit_Suprogram New_Top_Offset 0x1 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 0092 0267 | g| Action Push_String_Extended,0x267 ; "\x1b]8;" 00e5 00db | | Load_Top At_Offset_3 00e6 01cc | | Execute Vector,Catenate 00e7 e21d | | Load 0x1,0x1d 00e8 01cc | | Execute Vector,Catenate 00e9 e004 | | Load 0x0,0x4 00ea 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00eb 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00ec 0000 0000 | | .BLANK 0000[0x4] 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 0092 0268 | h| Action Push_String_Extended,0x268 ; "\x1b]62;" 00f5 00db | | Load_Top At_Offset_3 00f6 01cc | | Execute Vector,Catenate 00f7 e21d | | Load 0x1,0x1d 00f8 01cc | | Execute Vector,Catenate 00f9 e004 | | Load 0x0,0x4 00fa 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00fb 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00fc 0000 0000 | | .BLANK 0000[0x4] 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 010e | | .CONST 0x010e ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0002 | | .CONST 0x0002 ; Number of locals 0103 INIT_0100: 0103 e21c | | Load 0x1,0x1c 0104 00db | | Load_Top At_Offset_3 0105 8220 | | Call 0x1,0x20 0106 01cc | | Execute Vector,Catenate 0107 0092 0269 | i| Action Push_String_Extended,0x269 ; ";" 0109 01cc | | Execute Vector,Catenate 010a e5fe | | Load 0x2,-0x2 010b 8220 | | Call 0x1,0x20 010c 01cc | | Execute Vector,Catenate 010d 0007 | | Action Break_Optional 010e BODY_0100: 010e e5f6 | | Load 0x2,-0xa 010f 01db | | Execute Vector,Length 0110 6826 |h& | Jump_Zero 0x137 0111 4818 |H | Short_Literal 0x18 0112 4818 |H | Short_Literal 0x18 0113 4818 |H | Short_Literal 0x18 0114 4818 |H | Short_Literal 0x18 0115 4818 |H | Short_Literal 0x18 0116 4818 |H | Short_Literal 0x18 0117 4818 |H | Short_Literal 0x18 0118 4818 |H | Short_Literal 0x18 0119 e402 | | Load 0x2,0x2 011a 01cb | | Execute Vector,Append 011b e5fd | | Load 0x2,-0x3 011c 01cc | | Execute Vector,Catenate 011d 01cb | | Execute Vector,Append 011e e5fc | | Load 0x2,-0x4 011f 01cc | | Execute Vector,Catenate 0120 01cb | | Execute Vector,Append 0121 e5fb | | Load 0x2,-0x5 0122 01cc | | Execute Vector,Catenate 0123 01cb | | Execute Vector,Append 0124 e5fa | | Load 0x2,-0x6 0125 01cc | | Execute Vector,Catenate 0126 01cb | | Execute Vector,Append 0127 e5f9 | | Load 0x2,-0x7 0128 01cc | | Execute Vector,Catenate 0129 01cb | | Execute Vector,Append 012a e5f8 | | Load 0x2,-0x8 012b 01cc | | Execute Vector,Catenate 012c 01cb | | Execute Vector,Append 012d e5f7 | | Load 0x2,-0x9 012e 01cc | | Execute Vector,Catenate 012f 01cb | | Execute Vector,Append 0130 e5f6 | | Load 0x2,-0xa 0131 01cc | | Execute Vector,Catenate 0132 e21d | | Load 0x1,0x1d 0133 01cc | | Execute Vector,Catenate 0134 e004 | | Load 0x0,0x4 0135 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0136 450b |E | Exit_Suprogram New_Top_Offset 0xb 0137 e5f7 | | Load 0x2,-0x9 0138 01db | | Execute Vector,Length 0139 6822 |h" | Jump_Zero 0x15c 013a 4818 |H | Short_Literal 0x18 013b 4818 |H | Short_Literal 0x18 013c 4818 |H | Short_Literal 0x18 013d 4818 |H | Short_Literal 0x18 013e 4818 |H | Short_Literal 0x18 013f 4818 |H | Short_Literal 0x18 0140 4818 |H | Short_Literal 0x18 0141 e402 | | Load 0x2,0x2 0142 01cb | | Execute Vector,Append 0143 e5fd | | Load 0x2,-0x3 0144 01cc | | Execute Vector,Catenate 0145 01cb | | Execute Vector,Append 0146 e5fc | | Load 0x2,-0x4 0147 01cc | | Execute Vector,Catenate 0148 01cb | | Execute Vector,Append 0149 e5fb | | Load 0x2,-0x5 014a 01cc | | Execute Vector,Catenate 014b 01cb | | Execute Vector,Append 014c e5fa | | Load 0x2,-0x6 014d 01cc | | Execute Vector,Catenate 014e 01cb | | Execute Vector,Append 014f e5f9 | | Load 0x2,-0x7 0150 01cc | | Execute Vector,Catenate 0151 01cb | | Execute Vector,Append 0152 e5f8 | | Load 0x2,-0x8 0153 01cc | | Execute Vector,Catenate 0154 01cb | | Execute Vector,Append 0155 e5f7 | | Load 0x2,-0x9 0156 01cc | | Execute Vector,Catenate 0157 e21d | | Load 0x1,0x1d 0158 01cc | | Execute Vector,Catenate 0159 e004 | | Load 0x0,0x4 015a 1811 | | Execute Package,Field_Execute,Field_Number 0x11 015b 450b |E | Exit_Suprogram New_Top_Offset 0xb 015c e5f8 | | Load 0x2,-0x8 015d 01db | | Execute Vector,Length 015e 681e |h | Jump_Zero 0x17d 015f 4818 |H | Short_Literal 0x18 0160 4818 |H | Short_Literal 0x18 0161 4818 |H | Short_Literal 0x18 0162 4818 |H | Short_Literal 0x18 0163 4818 |H | Short_Literal 0x18 0164 4818 |H | Short_Literal 0x18 0165 e402 | | Load 0x2,0x2 0166 01cb | | Execute Vector,Append 0167 e5fd | | Load 0x2,-0x3 0168 01cc | | Execute Vector,Catenate 0169 01cb | | Execute Vector,Append 016a e5fc | | Load 0x2,-0x4 016b 01cc | | Execute Vector,Catenate 016c 01cb | | Execute Vector,Append 016d e5fb | | Load 0x2,-0x5 016e 01cc | | Execute Vector,Catenate 016f 01cb | | Execute Vector,Append 0170 e5fa | | Load 0x2,-0x6 0171 01cc | | Execute Vector,Catenate 0172 01cb | | Execute Vector,Append 0173 e5f9 | | Load 0x2,-0x7 0174 01cc | | Execute Vector,Catenate 0175 01cb | | Execute Vector,Append 0176 e5f8 | | Load 0x2,-0x8 0177 01cc | | Execute Vector,Catenate 0178 e21d | | Load 0x1,0x1d 0179 01cc | | Execute Vector,Catenate 017a e004 | | Load 0x0,0x4 017b 1811 | | Execute Package,Field_Execute,Field_Number 0x11 017c 450b |E | Exit_Suprogram New_Top_Offset 0xb 017d e5f9 | | Load 0x2,-0x7 017e 01db | | Execute Vector,Length 017f 681a |h | Jump_Zero 0x19a 0180 4818 |H | Short_Literal 0x18 0181 4818 |H | Short_Literal 0x18 0182 4818 |H | Short_Literal 0x18 0183 4818 |H | Short_Literal 0x18 0184 4818 |H | Short_Literal 0x18 0185 e402 | | Load 0x2,0x2 0186 01cb | | Execute Vector,Append 0187 e5fd | | Load 0x2,-0x3 0188 01cc | | Execute Vector,Catenate 0189 01cb | | Execute Vector,Append 018a e5fc | | Load 0x2,-0x4 018b 01cc | | Execute Vector,Catenate 018c 01cb | | Execute Vector,Append 018d e5fb | | Load 0x2,-0x5 018e 01cc | | Execute Vector,Catenate 018f 01cb | | Execute Vector,Append 0190 e5fa | | Load 0x2,-0x6 0191 01cc | | Execute Vector,Catenate 0192 01cb | | Execute Vector,Append 0193 e5f9 | | Load 0x2,-0x7 0194 01cc | | Execute Vector,Catenate 0195 e21d | | Load 0x1,0x1d 0196 01cc | | Execute Vector,Catenate 0197 e004 | | Load 0x0,0x4 0198 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0199 450b |E | Exit_Suprogram New_Top_Offset 0xb 019a e5fa | | Load 0x2,-0x6 019b 01db | | Execute Vector,Length 019c 6816 |h | Jump_Zero 0x1b3 019d 4818 |H | Short_Literal 0x18 019e 4818 |H | Short_Literal 0x18 019f 4818 |H | Short_Literal 0x18 01a0 4818 |H | Short_Literal 0x18 01a1 e402 | | Load 0x2,0x2 01a2 01cb | | Execute Vector,Append 01a3 e5fd | | Load 0x2,-0x3 01a4 01cc | | Execute Vector,Catenate 01a5 01cb | | Execute Vector,Append 01a6 e5fc | | Load 0x2,-0x4 01a7 01cc | | Execute Vector,Catenate 01a8 01cb | | Execute Vector,Append 01a9 e5fb | | Load 0x2,-0x5 01aa 01cc | | Execute Vector,Catenate 01ab 01cb | | Execute Vector,Append 01ac e5fa | | Load 0x2,-0x6 01ad 01cc | | Execute Vector,Catenate 01ae e21d | | Load 0x1,0x1d 01af 01cc | | Execute Vector,Catenate 01b0 e004 | | Load 0x0,0x4 01b1 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01b2 450b |E | Exit_Suprogram New_Top_Offset 0xb 01b3 e5fb | | Load 0x2,-0x5 01b4 01db | | Execute Vector,Length 01b5 6812 |h | Jump_Zero 0x1c8 01b6 4818 |H | Short_Literal 0x18 01b7 4818 |H | Short_Literal 0x18 01b8 4818 |H | Short_Literal 0x18 01b9 00db | | Load_Top At_Offset_3 01ba 01cb | | Execute Vector,Append 01bb e5fd | | Load 0x2,-0x3 01bc 01cc | | Execute Vector,Catenate 01bd 01cb | | Execute Vector,Append 01be e5fc | | Load 0x2,-0x4 01bf 01cc | | Execute Vector,Catenate 01c0 01cb | | Execute Vector,Append 01c1 e5fb | | Load 0x2,-0x5 01c2 01cc | | Execute Vector,Catenate 01c3 e21d | | Load 0x1,0x1d 01c4 01cc | | Execute Vector,Catenate 01c5 e004 | | Load 0x0,0x4 01c6 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01c7 450b |E | Exit_Suprogram New_Top_Offset 0xb 01c8 e5fc | | Load 0x2,-0x4 01c9 01db | | Execute Vector,Length 01ca 680e |h | Jump_Zero 0x1d9 01cb 4818 |H | Short_Literal 0x18 01cc 4818 |H | Short_Literal 0x18 01cd 00da | | Load_Top At_Offset_2 01ce 01cb | | Execute Vector,Append 01cf e5fd | | Load 0x2,-0x3 01d0 01cc | | Execute Vector,Catenate 01d1 01cb | | Execute Vector,Append 01d2 e5fc | | Load 0x2,-0x4 01d3 01cc | | Execute Vector,Catenate 01d4 e21d | | Load 0x1,0x1d 01d5 01cc | | Execute Vector,Catenate 01d6 e004 | | Load 0x0,0x4 01d7 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01d8 450b |E | Exit_Suprogram New_Top_Offset 0xb 01d9 e5fd | | Load 0x2,-0x3 01da 01db | | Execute Vector,Length 01db 680a |h | Jump_Zero 0x1e6 01dc 4818 |H | Short_Literal 0x18 01dd 00d9 | | Load_Top At_Offset_1 01de 01cb | | Execute Vector,Append 01df e5fd | | Load 0x2,-0x3 01e0 01cc | | Execute Vector,Catenate 01e1 e21d | | Load 0x1,0x1d 01e2 01cc | | Execute Vector,Catenate 01e3 e004 | | Load 0x0,0x4 01e4 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01e5 450b |E | Exit_Suprogram New_Top_Offset 0xb 01e6 00d8 | | Load_Top At_Offset_0 01e7 e21d | | Load 0x1,0x1d 01e8 01cc | | Execute Vector,Catenate 01e9 e004 | | Load 0x0,0x4 01ea 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01eb 450b |E | Exit_Suprogram New_Top_Offset 0xb 01ec 0000 0000 | | .BLANK 0000[0x4] 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01f3 | | .CONST 0x01f3 ; Address of begin 01f1 0004 | | .CONST 0x0004 ; Address of exception handler 01f2 0001 | | .CONST 0x0001 ; Number of locals 01f3 BODY_01f0: 01f3 INIT_01f0: 01f3 00ea | | Load_Encached Null_String_Cache 01f4 00ea | | Load_Encached Null_String_Cache 01f5 00ea | | Load_Encached Null_String_Cache 01f6 e5fa | | Load 0x2,-0x6 01f7 e5fb | | Load 0x2,-0x5 01f8 e5fc | | Load 0x2,-0x4 01f9 e5fd | | Load 0x2,-0x3 01fa e5fe | | Load 0x2,-0x2 01fb e5ff | | Load 0x2,-0x1 01fc 480a |H | Short_Literal 0xa 01fd 8218 | | Call 0x1,0x18 01fe 4507 |E | Exit_Suprogram New_Top_Offset 0x7 01ff 0000 | | .XXX[0x1] 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 0203 | | .CONST 0x0203 ; Address of begin 0201 0004 | | .CONST 0x0004 ; Address of exception handler 0202 0001 | | .CONST 0x0001 ; Number of locals 0203 BODY_0200: 0203 INIT_0200: 0203 00ea | | Load_Encached Null_String_Cache 0204 00ea | | Load_Encached Null_String_Cache 0205 00ea | | Load_Encached Null_String_Cache 0206 00ea | | Load_Encached Null_String_Cache 0207 00ea | | Load_Encached Null_String_Cache 0208 e5fc | | Load 0x2,-0x4 0209 e5fd | | Load 0x2,-0x3 020a e5fe | | Load 0x2,-0x2 020b e5ff | | Load 0x2,-0x1 020c 4816 |H | Short_Literal 0x16 020d 8218 | | Call 0x1,0x18 020e 4505 |E | Exit_Suprogram New_Top_Offset 0x5 020f 0000 | | .XXX[0x1] 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 0213 | | .CONST 0x0213 ; Address of begin 0211 0004 | | .CONST 0x0004 ; Address of exception handler 0212 0001 | | .CONST 0x0001 ; Number of locals 0213 BODY_0210: 0213 INIT_0210: 0213 4820 |H | Short_Literal 0x20 0214 4800 |H | Short_Literal 0x0 0215 480a |H | Short_Literal 0xa 0216 e5ff | | Load 0x2,-0x1 0217 e005 | | Load 0x0,0x5 0218 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0219 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 021a 0000 0000 | | .BLANK 0000[0x6] 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 022a | * | .CONST 0x022a ; Address of begin 0221 0004 | | .CONST 0x0004 ; Address of exception handler 0222 0003 | | .CONST 0x0003 ; Number of locals 0223 INIT_0220: 0223 4801 |H | Short_Literal 0x1 0224 e404 | | Load 0x2,0x4 0225 00e9 | | Load_Encached String_Cache 0226 035b | [ | Declare_Type Array,Constrained 0227 0337 | 7 | Declare_Variable Array 0228 00e3 | | Load_Encached Natural_Cache 0229 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 022a BODY_0220: 022a 00cf | | Action Mark_Auxiliary 022b e405 | | Load 0x2,0x5 022c e404 | | Load 0x2,0x4 022d 027d | } | Execute Discrete,Greater 022e 6806 |h | Jump_Zero 0x235 022f 0092 026a | j| Action Push_String_Extended,0x26a ; "read past end" 0231 e002 | | Load 0x0,0x2 0232 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0233 e003 | | Load 0x0,0x3 0234 0257 | W | Execute Discrete,Raise 0235 e001 | | Load 0x0,0x1 0236 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0237 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0238 e402 | | Load 0x2,0x2 0239 e001 | | Load 0x0,0x1 023a 1b17 | | Execute Package,Field_Read,Field_Number 0x17 023b 1814 | | Execute Package,Field_Execute,Field_Number 0x14 023c c403 | | Store 0x2,0x3 023d e403 | | Load 0x2,0x3 023e e001 | | Load 0x0,0x1 023f 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0240 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0241 a406 | | Store_Unchecked 0x2,0x6 0242 e405 | | Load 0x2,0x5 0243 0a01 | | Execute_Immediate Plus,0x1 0244 c405 | | Store 0x2,0x5 0245 e406 | | Load 0x2,0x6 0246 0f18 | | Execute_Immediate Equal,0x18 0247 7003 |p | Jump_Nonzero 0x24b 0248 e406 | | Load 0x2,0x6 0249 0f01 | | Execute_Immediate Equal,0x1 024a 680b |h | Jump_Zero 0x256 024b 4801 |H | Short_Literal 0x1 024c 00da | | Load_Top At_Offset_2 024d e602 | | Load 0x3,0x2 024e 01cf | | Execute Vector,Slice_Read 024f 85fe | | Call 0x2,-0x2 0250 4800 |H | Short_Literal 0x0 0251 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0252 e406 | | Load 0x2,0x6 0253 0f01 | | Execute_Immediate Equal,0x1 0254 700a |p | Jump_Nonzero 0x25f 0255 7807 |x | Jump 0x25d 0256 00d9 | | Load_Top At_Offset_1 0257 0a01 | | Execute_Immediate Plus,0x1 0258 005a | Z | Store_Top Discrete,At_Offset_2 0259 e406 | | Load 0x2,0x6 025a 00da | | Load_Top At_Offset_2 025b e602 | | Load 0x3,0x2 025c 01d6 | | Execute Vector,Field_Write 025d 00c9 | | Action Pop_Auxiliary_Loop 025e 7fcc | | Jump 0x22b 025f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0260 ; -------------------------------------------------------------------------------------- 0260 ; STRING TABLE 0260 ; -------------------------------------------------------------------------------------- 0260 0018 | | .STRTAB 0x0018->0x026c ; "\x1b]" 0261 0018 | | .STRTAB 0x0018->0x026d ; "\x07" 0262 0017 | | .STRTAB 0x0017->0x026d ; "bad_lead in" 0263 0020 | | .STRTAB 0x0020->0x0273 ; "Illegal char in length " 0264 0035 | 5 | .STRTAB 0x0035->0x027e ; "Excessive length" 0265 0043 | C | .STRTAB 0x0043->0x0286 ; "Dialog Box response read error." 0266 0060 | ` | .STRTAB 0x0060->0x0296 ; "\x1b]9;\x07" 0267 0063 | c | .STRTAB 0x0063->0x0298 ; "\x1b]8;" 0268 0065 | e | .STRTAB 0x0065->0x029a ; "\x1b]62;" 0269 0068 | h | .STRTAB 0x0068->0x029d ; ";" 026a 0067 | g | .STRTAB 0x0067->0x029d ; "read past end" 026b 0072 | r | .STREND 0x0072->0x02a4 026c 1b5d 0762 | ] b| .STRTAB_STRINGS 02a4 0000 0000 | | .BLANK 0000[0x4] 02a8 ; -------------------------------------------------------------------------------------- 02a8 ; Debug Table 02a8 ; -------------------------------------------------------------------------------------- 02a8 0004 0012 | | .DEBUG4 0x0004,0x0012,0x64cd,0x0000,0x0001,0x0000 02ae 0005 e040 | @| .XXX[0xa] 02b0 0000 0040 | @| 02b2 d07b 4000 | {@ | 02b4 0033 da80 | 3 | 02b6 0002 a211 | | 02b8 0000 0000 | | .BLANK 0000[0x4] 02bc 0600 | | .XXX[0x1] 02bd 0000 0000 | | .BLANK 0000[0xc] 02c9 001b fe00 | | .XXX[0x2] 02cb 0000 0000 | | .BLANK 0000[0x4] 02cf 000f cc00 | | .XXX[0x11] 02d1 0000 368a | 6 | 02d3 9c82 8498 | | 02d5 8abe a0a4 | | 02d7 9e88 aa86 | | 02d9 a8be 968a | | 02db b29a 82a0 | | 02dd a64e a6a0 | N | 02df 8a86 | | 02e0 0000 0000 | | .BLANK 0000[0x7] 02e7 0006 d200 | | .XXX[0x4] 02e9 0000 2e84 | . | 02eb 0000 0000 | | .BLANK 0000[0x7] 02f2 0007 e000 | | .XXX[0xd] 02f4 07d0 0000 | | 02f6 0000 0000 | | 02f8 0002 c000 | | 02fa 0f8a 8000 | | 02fc 0000 8000 | | 02fe 07a9 | | 02ff 0000 0000 | | .BLANK 0000[0x5] 0304 0001 0000 | | .XXX[0x3] 0306 0fd1 | | 0307 0000 0000 | | .BLANK 0000[0x5] 030c 0002 0000 | | .XXX[0x3] 030e 20a0 | | 030f 0000 0000 | | .BLANK 0000[0x5] 0314 0004 0000 | | .XXX[0x3] 0316 433c |C< | 0317 0000 0000 | | .BLANK 0000[0x5] 031c 0008 0000 | | .XXX[0x3] 031e 8a70 | p | 031f 0000 0000 | | .BLANK 0000[0x5] 0324 0010 0001 | | .XXX[0x3] 0326 1cd0 | | 0327 0000 0000 | | .BLANK 0000[0x5] 032c 0020 0002 | | .XXX[0x3] 032e 4980 |I | 032f 0000 0000 | | .BLANK 0000[0x5] 0334 0040 0004 | @ | .XXX[0x3] 0336 b2c0 | | 0337 0000 0000 | | .BLANK 0000[0x5] 033c 0080 0009 | | .XXX[0x3] 033e a500 | | 033f 0000 0000 | | .BLANK 0000[0x5] 0344 0100 0013 | | .XXX[0x3] 0346 c900 | | 0347 0000 0000 | | .BLANK 0000[0x5] 034c 0200 0028 | (| .XXX[0x3] 034e 9000 | | 034f 0000 0000 | | .BLANK 0000[0x5] 0354 0400 0053 | S| .XXX[0x3] 0356 1c00 | | 0357 0000 0000 | | .BLANK 0000[0x5] 035c 0800 00aa | | .XXX[0x3] 035e 3000 |0 | 035f 0000 0000 | | .BLANK 0000[0x5] 0364 1000 015c | \| .XXX[0x3] 0366 5000 |P | 0367 0000 0000 | | .BLANK 0000[0x5] 036c 2000 02c8 | | .XXX[0x3] 036e 8000 | | 036f 0000 0000 | | .BLANK 0000[0x5] 0374 6000 0000 |` | .XXX[0x5] 0376 c000 0004 | | 0378 8000 | | 0379 0000 0000 | | .BLANK 0000[0x4] 037d 0080 0000 | | .XXX[0x18] 037f 0206 0000 | | 0381 0002 0000 | | 0383 0006 0000 | | 0385 0000 0000 | | 0387 0054 0000 | T | 0389 0000 0000 | | 038b 002a 0000 | * | 038d 0000 0000 | | 038f 0015 0000 | | 0391 4d5a 0000 |MZ | 0393 0640 8000 | @ | 0395 0000 0000 | | .BLANK 0000[0xa] 039f c210 0000 | | .XXX[0x7] 03a1 0000 0000 | | 03a3 03bc 0001 | | 03a5 477a |Gz | 03a6 0000 0000 | | .BLANK 0000[0x5] 03ab 0002 0000 | | .XXX[0x14] 03ad 0024 0000 | $ | 03af 0000 0000 | | 03b1 0008 0000 | | 03b3 0090 0004 | | 03b5 cea0 0000 | | 03b7 0020 72af | r | 03b9 2000 001d | | 03bb bfc1 0001 | | 03bd 5866 8000 |Xf | 03bf 0000 0000 | | .BLANK 0000[0x10] 03cf 001e a100 | | .XXX[0x2] 03d1 0000 0000 | | .BLANK 0000[0x4] 03d5 0007 ee00 | | .XXX[0x1d] 03d7 0000 1356 | V| 03d9 5431 3030 |T100| 03db 5f43 4f4d |_COM| 03dd 4d41 4e44 |MAND| 03df 5327 5350 |S'SP| 03e1 4543 0000 |EC | 03e3 a8a0 0000 | | 03e5 1ff4 0001 | | 03e7 4160 0001 |A` | 03e9 4842 0000 |HB | 03eb ac72 8000 | r | 03ed 0000 0000 | | 03ef 0000 01dc | | 03f1 8000 | | 03f2 0000 0000 | | .BLANK 0000[0xa] 03fc 0001 f800 | | .XXX[0x4] 03fe 01f4 0000 | |