|
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_0658fb
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0388 | | .CONST 0x0388 ; 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 0010 | | .CONST 0x0010 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0001 | | .CONST 0x0001 ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 000f 00c7 | | Action Elaborate_Subprogram 0010 BODY_0008: 0010 00bc | | Action Signal_Activated 0011 00bb | | Action Signal_Completion 0012 0000 0000 | | .BLANK 0000[0x6] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 004b | K | .CONST 0x004b ; Address of begin 0019 004d | M | .CONST 0x004d ; Address of exception handler 001a 000a | | .CONST 0x000a ; Number of locals 001b INIT_0018: 001b e001 | | Load 0x0,0x1 001c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 001d 02c7 | | Declare_Variable Any 001e e5fd | | Load 0x2,-0x3 001f e001 | | Load 0x0,0x1 0020 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0021 a402 | | Store_Unchecked 0x2,0x2 0022 0092 02c0 | | Action Push_String_Extended,0x2c0 ; "!Machine.Temporary.Product_Keymap_" 0024 4802 |H | Short_Literal 0x2 0025 4800 |H | Short_Literal 0x0 0026 4804 |H | Short_Literal 0x4 0027 e002 | | Load 0x0,0x2 0028 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0029 e002 | | Load 0x0,0x2 002a 181f | | Execute Package,Field_Execute,Field_Number 0x1f 002b 01cc | | Execute Vector,Catenate 002c 0092 02c1 | | Action Push_String_Extended,0x2c1 ; "_" 002e 01cc | | Execute Vector,Catenate 002f 4801 |H | Short_Literal 0x1 0030 4803 |H | Short_Literal 0x3 0031 4800 |H | Short_Literal 0x0 0032 e002 | | Load 0x0,0x2 0033 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0034 e002 | | Load 0x0,0x2 0035 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0036 01cc | | Execute Vector,Catenate 0037 0007 | | Action Break_Optional 0038 e003 | | Load 0x0,0x3 0039 1b0d | | Execute Package,Field_Read,Field_Number 0xd 003a 02c7 | | Declare_Variable Any 003b 00d8 | | Load_Top At_Offset_0 003c 1c00 | | Execute_Immediate Run_Utility,0x0 003d e004 | | Load 0x0,0x4 003e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 003f 0337 | 7 | Declare_Variable Array 0040 e004 | | Load 0x0,0x4 0041 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0042 0337 | 7 | Declare_Variable Array 0043 029f 006b | k| Declare_Subprogram INIT_0068,For_Call 0045 029f 016b | k| Declare_Subprogram INIT_0168,For_Call 0047 029f 01c3 | | Declare_Subprogram INIT_01c0,For_Call 0049 029f 01f3 | | Declare_Subprogram INIT_01f0,For_Call 004b BODY_0018: 004b 840a | | Call 0x2,0xa 004c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 004d TRAP_0018: 004d e005 | | Load 0x0,0x5 004e 010f | | Execute Exception,Equal 004f 6809 |h | Jump_Zero 0x59 0050 e402 | | Load 0x2,0x2 0051 4802 |H | Short_Literal 0x2 0052 0092 02c2 | | Action Push_String_Extended,0x2c2 ; "[End Enable_Product_Keymaps]" 0054 e006 | | Load 0x0,0x6 0055 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0056 e001 | | Load 0x0,0x1 0057 1b47 | G | Execute Package,Field_Read,Field_Number 0x47 0058 0257 | W | Execute Discrete,Raise 0059 e402 | | Load 0x2,0x2 005a 4808 |H | Short_Literal 0x8 005b 0092 02c3 | | Action Push_String_Extended,0x2c3 ; "Unexpected exception: " 005d 4801 |H | Short_Literal 0x1 005e 4801 |H | Short_Literal 0x1 005f e007 | | Load 0x0,0x7 0060 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0061 01cc | | Execute Vector,Catenate 0062 e006 | | Load 0x0,0x6 0063 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0064 00d8 | | Load_Top At_Offset_0 0065 0101 | | Execute Exception,Reraise 0066 0000 0000 | | .XXX[0x2] 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 0087 | | .CONST 0x0087 ; Address of begin 0069 0154 | T | .CONST 0x0154 ; Address of exception handler 006a 000b | | .CONST 0x000b ; Number of locals 006b INIT_0068: 006b 00e1 | | Load_Encached Boolean_Cache 006c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 006d 00e1 | | Load_Encached Boolean_Cache 006e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 006f 00e1 | | Load_Encached Boolean_Cache 0070 00e1 | | Load_Encached Boolean_Cache 0071 00e1 | | Load_Encached Boolean_Cache 0072 00e8 | | Load_Encached Character_Cache 0073 e008 | | Load 0x0,0x8 0074 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0075 4be8 |K | Short_Literal 0x3e8 0076 e009 | | Load 0x0,0x9 0077 180d | | Execute Package,Field_Execute,Field_Number 0xd 0078 0039 | 9 | Store_Top Access,At_Offset_1 0079 e008 | | Load 0x0,0x8 007a 1b10 | | Execute Package,Field_Read,Field_Number 0x10 007b 4be8 |K | Short_Literal 0x3e8 007c e009 | | Load 0x0,0x9 007d 180d | | Execute Package,Field_Execute,Field_Number 0xd 007e 0039 | 9 | Store_Top Access,At_Offset_1 007f e008 | | Load 0x0,0x8 0080 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0081 4be8 |K | Short_Literal 0x3e8 0082 e009 | | Load 0x0,0x9 0083 180d | | Execute Package,Field_Execute,Field_Number 0xd 0084 0039 | 9 | Store_Top Access,At_Offset_1 0085 029f 025b | [| Declare_Subprogram INIT_0258,For_Call 0087 BODY_0068: 0087 00d9 | | Load_Top At_Offset_1 0088 e00a | | Load 0x0,0xa 0089 180e | | Execute Package,Field_Execute,Field_Number 0xe 008a 860b | | Call 0x3,0xb 008b e403 | | Load 0x2,0x3 008c e006 | | Load 0x0,0x6 008d 181a | | Execute Package,Field_Execute,Field_Number 0x1a 008e 4801 |H | Short_Literal 0x1 008f a602 | | Store_Unchecked 0x3,0x2 0090 e00b | | Load 0x0,0xb 0091 180f | | Execute Package,Field_Execute,Field_Number 0xf 0092 e006 | | Load 0x0,0x6 0093 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0094 4800 |H | Short_Literal 0x0 0095 a602 | | Store_Unchecked 0x3,0x2 0096 e404 | | Load 0x2,0x4 0097 00ea | | Load_Encached Null_String_Cache 0098 e403 | | Load 0x2,0x3 0099 4800 |H | Short_Literal 0x0 009a e003 | | Load 0x0,0x3 009b 1815 | | Execute Package,Field_Execute,Field_Number 0x15 009c c404 | | Store 0x2,0x4 009d 4801 |H | Short_Literal 0x1 009e a603 | | Store_Unchecked 0x3,0x3 009f e405 | | Load 0x2,0x5 00a0 0092 02c4 | | Action Push_String_Extended,0x2c4 ; "XR" 00a2 00ea | | Load_Encached Null_String_Cache 00a3 0092 02c5 | | Action Push_String_Extended,0x2c5 ; " " 00a5 e004 | | Load 0x0,0x4 00a6 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00a7 00d1 | | Pop_Control Pop_Count_1 00a8 e406 | | Load 0x2,0x6 00a9 0092 02c4 | | Action Push_String_Extended,0x2c4 ; "XR" 00ab 00ea | | Load_Encached Null_String_Cache 00ac 0092 02c6 | | Action Push_String_Extended,0x2c6 ; "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789_" 00ae e004 | | Load 0x0,0x4 00af 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00b0 00d1 | | Pop_Control Pop_Count_1 00b1 4800 |H | Short_Literal 0x0 00b2 a606 | | Store_Unchecked 0x3,0x6 00b3 00cf | | Action Mark_Auxiliary 00b4 781a |x | Jump 0xcf 00b5 e606 | | Load 0x3,0x6 00b6 e605 | | Load 0x3,0x5 00b7 e604 | | Load 0x3,0x4 00b8 e608 | | Load 0x3,0x8 00b9 4be8 |K | Short_Literal 0x3e8 00ba e404 | | Load 0x2,0x4 00bb e00c | | Load 0x0,0xc 00bc 180f | | Execute Package,Field_Execute,Field_Number 0xf 00bd c608 | | Store 0x3,0x8 00be c604 | | Store 0x3,0x4 00bf c605 | | Store 0x3,0x5 00c0 c606 | | Store 0x3,0x6 00c1 e608 | | Load 0x3,0x8 00c2 0227 | ' | Execute Access,All_Reference 00c3 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 00c4 0c01 | | Execute_Immediate Greater_Equal,0x1 00c5 6808 |h | Jump_Zero 0xce 00c6 4801 |H | Short_Literal 0x1 00c7 e608 | | Load 0x3,0x8 00c8 0227 | ' | Execute Access,All_Reference 00c9 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 00ca 01d7 | | Execute Vector,Field_Read 00cb 0f3d | = | Execute_Immediate Equal,0x3d 00cc 6801 |h | Jump_Zero 0xce 00cd 7805 |x | Jump 0xd3 00ce 00c9 | | Action Pop_Auxiliary_Loop 00cf e404 | | Load 0x2,0x4 00d0 e003 | | Load 0x0,0x3 00d1 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 00d2 6fe2 |o | Jump_Zero 0xb5 00d3 00c9 | | Action Pop_Auxiliary_Loop 00d4 7861 |xa | Jump 0x136 00d5 e606 | | Load 0x3,0x6 00d6 e605 | | Load 0x3,0x5 00d7 e604 | | Load 0x3,0x4 00d8 e608 | | Load 0x3,0x8 00d9 4be8 |K | Short_Literal 0x3e8 00da e404 | | Load 0x2,0x4 00db e00c | | Load 0x0,0xc 00dc 180f | | Execute Package,Field_Execute,Field_Number 0xf 00dd c608 | | Store 0x3,0x8 00de c604 | | Store 0x3,0x4 00df c605 | | Store 0x3,0x5 00e0 c606 | | Store 0x3,0x6 00e1 00e8 | | Load_Encached Character_Cache 00e2 e405 | | Load 0x2,0x5 00e3 e608 | | Load 0x3,0x8 00e4 e004 | | Load 0x0,0x4 00e5 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00e6 c607 | | Store 0x3,0x7 00e7 e608 | | Load 0x3,0x8 00e8 0227 | ' | Execute Access,All_Reference 00e9 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 00ea 0c01 | | Execute_Immediate Greater_Equal,0x1 00eb 6849 |hI | Jump_Zero 0x135 00ec 4801 |H | Short_Literal 0x1 00ed e608 | | Load 0x3,0x8 00ee 0227 | ' | Execute Access,All_Reference 00ef 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 00f0 01d7 | | Execute Vector,Field_Read 00f1 4861 |Ha | Short_Literal 0x61 00f2 487a |Hz | Short_Literal 0x7a 00f3 0262 | b | Execute Discrete,In_Range 00f4 7009 |p | Jump_Nonzero 0xfe 00f5 4801 |H | Short_Literal 0x1 00f6 e608 | | Load 0x3,0x8 00f7 0227 | ' | Execute Access,All_Reference 00f8 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 00f9 01d7 | | Execute Vector,Field_Read 00fa 4841 |HA | Short_Literal 0x41 00fb 485a |HZ | Short_Literal 0x5a 00fc 0262 | b | Execute Discrete,In_Range 00fd 6837 |h7 | Jump_Zero 0x135 00fe 00e8 | | Load_Encached Character_Cache 00ff e406 | | Load 0x2,0x6 0100 e608 | | Load 0x3,0x8 0101 e609 | | Load 0x3,0x9 0102 e004 | | Load 0x0,0x4 0103 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0104 c607 | | Store 0x3,0x7 0105 e608 | | Load 0x3,0x8 0106 0227 | ' | Execute Access,All_Reference 0107 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0108 0c03 | | Execute_Immediate Greater_Equal,0x3 0109 6817 |h | Jump_Zero 0x121 010a 4802 |H | Short_Literal 0x2 010b e608 | | Load 0x3,0x8 010c 0227 | ' | Execute Access,All_Reference 010d 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 010e 01d7 | | Execute Vector,Field_Read 010f 0e20 | | Execute_Immediate Not_Equal,0x20 0110 6810 |h | Jump_Zero 0x121 0111 485f |H_ | Short_Literal 0x5f 0112 e609 | | Load 0x3,0x9 0113 e00d | | Load 0x0,0xd 0114 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0115 e608 | | Load 0x3,0x8 0116 e00a | | Load 0x0,0xa 0117 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0118 a607 | | Store_Unchecked 0x3,0x7 0119 00e8 | | Load_Encached Character_Cache 011a e609 | | Load 0x3,0x9 011b e406 | | Load 0x2,0x6 011c e608 | | Load 0x3,0x8 011d e004 | | Load 0x0,0x4 011e 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 011f c609 | | Store 0x3,0x9 0120 c607 | | Store 0x3,0x7 0121 00db | | Load_Top At_Offset_3 0122 e00e | | Load 0x0,0xe 0123 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0124 00da | | Load_Top At_Offset_2 0125 4be8 |K | Short_Literal 0x3e8 0126 e609 | | Load 0x3,0x9 0127 e00d | | Load 0x0,0xd 0128 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 0129 003b | ; | Store_Top Access,At_Offset_3 012a 0092 02c7 | | Action Push_String_Extended,0x2c7 ; "," 012c e609 | | Load 0x3,0x9 012d e00d | | Load 0x0,0xd 012e 1814 | | Execute Package,Field_Execute,Field_Number 0x14 012f 00da | | Load_Top At_Offset_2 0130 4be8 |K | Short_Literal 0x3e8 0131 e609 | | Load 0x3,0x9 0132 e00d | | Load 0x0,0xd 0133 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 0134 003b | ; | Store_Top Access,At_Offset_3 0135 00c9 | | Action Pop_Auxiliary_Loop 0136 e404 | | Load 0x2,0x4 0137 e003 | | Load 0x0,0x3 0138 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0139 6f9b |o | Jump_Zero 0xd5 013a 00ce | | Action Pop_Auxiliary 013b 00d9 | | Load_Top At_Offset_1 013c 4be8 |K | Short_Literal 0x3e8 013d 0092 02c7 | | Action Push_String_Extended,0x2c7 ; "," 013f e00d | | Load 0x0,0xd 0140 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 0141 003a | : | Store_Top Access,At_Offset_2 0142 00d9 | | Load_Top At_Offset_1 0143 4be8 |K | Short_Literal 0x3e8 0144 e5fe | | Load 0x2,-0x2 0145 e00d | | Load 0x0,0xd 0146 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 0147 003a | : | Store_Top Access,At_Offset_2 0148 00d9 | | Load_Top At_Offset_1 0149 e00a | | Load 0x0,0xa 014a 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 014b e00f | | Load 0x0,0xf 014c 180e | | Execute Package,Field_Execute,Field_Number 0xe 014d 4800 |H | Short_Literal 0x0 014e a603 | | Store_Unchecked 0x3,0x3 014f e404 | | Load 0x2,0x4 0150 e003 | | Load 0x0,0x3 0151 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0152 c404 | | Store 0x2,0x4 0153 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0154 TRAP_0068: 0154 0007 | | Action Break_Optional 0155 e602 | | Load 0x3,0x2 0156 6802 |h | Jump_Zero 0x159 0157 e006 | | Load 0x0,0x6 0158 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0159 e603 | | Load 0x3,0x3 015a 6804 |h | Jump_Zero 0x15f 015b e404 | | Load 0x2,0x4 015c e003 | | Load 0x0,0x3 015d 181b | | Execute Package,Field_Execute,Field_Number 0x1b 015e c404 | | Store 0x2,0x4 015f 00d8 | | Load_Top At_Offset_0 0160 0101 | | Execute Exception,Reraise 0161 0000 0000 | | .BLANK 0000[0x7] 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 0178 | x | .CONST 0x0178 ; Address of begin 0169 0004 | | .CONST 0x0004 ; Address of exception handler 016a 0004 | | .CONST 0x0004 ; Number of locals 016b INIT_0168: 016b 00da | | Load_Top At_Offset_2 016c 01da | | Execute Vector,Bounds 016d 00e9 | | Load_Encached String_Cache 016e 035b | [ | Declare_Type Array,Constrained 016f 0337 | 7 | Declare_Variable Array 0170 00db | | Load_Top At_Offset_3 0171 01dd | | Execute Vector,First 0172 00e3 | | Load_Encached Natural_Cache 0173 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0174 00d9 | | Load_Top At_Offset_1 0175 01dd | | Execute Vector,First 0176 00e3 | | Load_Encached Natural_Cache 0177 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0178 BODY_0168: 0178 00cf | | Action Mark_Auxiliary 0179 7834 |x4 | Jump 0x1ae 017a 00da | | Load_Top At_Offset_2 017b e7ff | | Load 0x3,-0x1 017c 01d7 | | Execute Vector,Field_Read 017d 0e27 | ' | Execute_Immediate Not_Equal,0x27 017e 700c |p | Jump_Nonzero 0x18b 017f 00da | | Load_Top At_Offset_2 0180 0a01 | | Execute_Immediate Plus,0x1 0181 e7ff | | Load 0x3,-0x1 0182 01d7 | | Execute Vector,Field_Read 0183 0e56 | V | Execute_Immediate Not_Equal,0x56 0184 6810 |h | Jump_Zero 0x195 0185 00da | | Load_Top At_Offset_2 0186 0a01 | | Execute_Immediate Plus,0x1 0187 e7ff | | Load 0x3,-0x1 0188 01d7 | | Execute Vector,Field_Read 0189 0e76 | v | Execute_Immediate Not_Equal,0x76 018a 680a |h | Jump_Zero 0x195 018b 00da | | Load_Top At_Offset_2 018c e7ff | | Load 0x3,-0x1 018d 01d7 | | Execute Vector,Field_Read 018e 00da | | Load_Top At_Offset_2 018f e602 | | Load 0x3,0x2 0190 01d6 | | Execute Vector,Field_Write 0191 00d9 | | Load_Top At_Offset_1 0192 0a01 | | Execute_Immediate Plus,0x1 0193 005a | Z | Store_Top Discrete,At_Offset_2 0194 7815 |x | Jump 0x1aa 0195 00da | | Load_Top At_Offset_2 0196 0a02 | | Execute_Immediate Plus,0x2 0197 005b | [ | Store_Top Discrete,At_Offset_3 0198 00cf | | Action Mark_Auxiliary 0199 780a |x | Jump 0x1a4 019a 00db | | Load_Top At_Offset_3 019b e7ff | | Load 0x3,-0x1 019c 01d7 | | Execute Vector,Field_Read 019d 0f29 | ) | Execute_Immediate Equal,0x29 019e 6801 |h | Jump_Zero 0x1a0 019f 7809 |x | Jump 0x1a9 01a0 00db | | Load_Top At_Offset_3 01a1 0a01 | | Execute_Immediate Plus,0x1 01a2 c603 | | Store 0x3,0x3 01a3 00c9 | | Action Pop_Auxiliary_Loop 01a4 00db | | Load_Top At_Offset_3 01a5 e7ff | | Load 0x3,-0x1 01a6 01dc | | Execute Vector,Last 01a7 027c | | | Execute Discrete,Less 01a8 77f1 |w | Jump_Nonzero 0x19a 01a9 00ce | | Action Pop_Auxiliary 01aa 00da | | Load_Top At_Offset_2 01ab 0a01 | | Execute_Immediate Plus,0x1 01ac 005b | [ | Store_Top Discrete,At_Offset_3 01ad 00c9 | | Action Pop_Auxiliary_Loop 01ae 00da | | Load_Top At_Offset_2 01af e7ff | | Load 0x3,-0x1 01b0 01dc | | Execute Vector,Last 01b1 027a | z | Execute Discrete,Less_Equal 01b2 77c7 |w | Jump_Nonzero 0x17a 01b3 00ce | | Action Pop_Auxiliary 01b4 00da | | Load_Top At_Offset_2 01b5 01dd | | Execute Vector,First 01b6 00d9 | | Load_Top At_Offset_1 01b7 0aff | | Execute_Immediate Plus,-0x1 01b8 e602 | | Load 0x3,0x2 01b9 01cf | | Execute Vector,Slice_Read 01ba 00e9 | | Load_Encached String_Cache 01bb 01c6 | | Execute Vector,Convert_To_Formal 01bc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01bd 0000 0000 | | .XXX[0x3] 01bf 0000 | | 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 e402 | | Load 0x2,0x2 01c4 4803 |H | Short_Literal 0x3 01c5 0092 02c8 | | Action Push_String_Extended,0x2c8 ; "Process " 01c7 e7ff | | Load 0x3,-0x1 01c8 01cc | | Execute Vector,Catenate 01c9 e006 | | Load 0x0,0x6 01ca 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01cb e403 | | Load 0x2,0x3 01cc 00db | | Load_Top At_Offset_3 01cd e00f | | Load 0x0,0xf 01ce 180f | | Execute Package,Field_Execute,Field_Number 0xf 01cf e5fd | | Load 0x2,-0x3 01d0 4800 |H | Short_Literal 0x0 01d1 0092 02c9 | | Action Push_String_Extended,0x2c9 ; "<ALL_WORLDS>" 01d3 4801 |H | Short_Literal 0x1 01d4 e7ff | | Load 0x3,-0x1 01d5 e010 | | Load 0x0,0x10 01d6 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01d7 e5fd | | Load 0x2,-0x3 01d8 00ea | | Load_Encached Null_String_Cache 01d9 4800 |H | Short_Literal 0x0 01da e7ff | | Load 0x3,-0x1 01db e011 | | Load 0x0,0x11 01dc 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01dd 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01de e403 | | Load 0x2,0x3 01df e010 | | Load 0x0,0x10 01e0 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01e1 e5fd | | Load 0x2,-0x3 01e2 4800 |H | Short_Literal 0x0 01e3 0092 02ca | | Action Push_String_Extended,0x2ca ; "<WORLDS>" 01e5 4802 |H | Short_Literal 0x2 01e6 4802 |H | Short_Literal 0x2 01e7 e7ff | | Load 0x3,-0x1 01e8 8408 | | Call 0x2,0x8 01e9 e010 | | Load 0x0,0x10 01ea 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01eb 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01ec 0000 0000 | | .BLANK 0000[0x4] 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01ff | | .CONST 0x01ff ; Address of begin 01f1 0004 | | .CONST 0x0004 ; Address of exception handler 01f2 0003 | | .CONST 0x0003 ; Number of locals 01f3 INIT_01f0: 01f3 e011 | | Load 0x0,0x11 01f4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01f5 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 01f6 02c7 | | Declare_Variable Any 01f7 00d8 | | Load_Top At_Offset_0 01f8 1c00 | | Execute_Immediate Run_Utility,0x0 01f9 e011 | | Load 0x0,0x11 01fa 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01fb 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01fc 02c7 | | Declare_Variable Any 01fd 00d8 | | Load_Top At_Offset_0 01fe 1c00 | | Execute_Immediate Run_Utility,0x0 01ff BODY_01f0: 01ff e402 | | Load 0x2,0x2 0200 4802 |H | Short_Literal 0x2 0201 0092 02cb | | Action Push_String_Extended,0x2cb ; "[Enable_Product_Keymaps( Keymap => \x22" 0203 e5ff | | Load 0x2,-0x1 0204 01cc | | Execute Vector,Catenate 0205 0092 02cc | | Action Push_String_Extended,0x2cc ; "\x22, Overrides => \x22" 0207 01cc | | Execute Vector,Catenate 0208 e5fe | | Load 0x2,-0x2 0209 01cc | | Execute Vector,Catenate 020a 0092 02cd | | Action Push_String_Extended,0x2cd ; "\x22, Response => \x22" 020c 01cc | | Execute Vector,Catenate 020d e5fd | | Load 0x2,-0x3 020e 01cc | | Execute Vector,Catenate 020f 0092 02ce | | Action Push_String_Extended,0x2ce ; "\x22)]" 0211 01cc | | Execute Vector,Catenate 0212 e006 | | Load 0x0,0x6 0213 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0214 4801 |H | Short_Literal 0x1 0215 e011 | | Load 0x0,0x11 0216 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0217 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0218 e5ff | | Load 0x2,-0x1 0219 e011 | | Load 0x0,0x11 021a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 021b 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 021c c602 | | Store 0x3,0x2 021d 00d9 | | Load_Top At_Offset_1 021e e011 | | Load 0x0,0x11 021f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0220 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0221 680a |h | Jump_Zero 0x22c 0222 e402 | | Load 0x2,0x2 0223 4807 |H | Short_Literal 0x7 0224 e5ff | | Load 0x2,-0x1 0225 0092 02cf | | Action Push_String_Extended,0x2cf ; " does not match any existing Ada units." 0227 01cc | | Execute Vector,Catenate 0228 e006 | | Load 0x0,0x6 0229 1813 | | Execute Package,Field_Execute,Field_Number 0x13 022a e005 | | Load 0x0,0x5 022b 0257 | W | Execute Discrete,Raise 022c 8407 | | Call 0x2,0x7 022d 00cf | | Action Mark_Auxiliary 022e 00da | | Load_Top At_Offset_2 022f e011 | | Load 0x0,0x11 0230 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0231 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0232 c603 | | Store 0x3,0x3 0233 00d9 | | Load_Top At_Offset_1 0234 e011 | | Load 0x0,0x11 0235 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0236 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0237 8409 | | Call 0x2,0x9 0238 00da | | Load_Top At_Offset_2 0239 e011 | | Load 0x0,0x11 023a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 023b 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 023c c602 | | Store 0x3,0x2 023d 00da | | Load_Top At_Offset_2 023e e011 | | Load 0x0,0x11 023f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0240 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0241 6801 |h | Jump_Zero 0x243 0242 7802 |x | Jump 0x245 0243 00c9 | | Action Pop_Auxiliary_Loop 0244 7fe9 | | Jump 0x22e 0245 00ce | | Action Pop_Auxiliary 0246 e5fd | | Load 0x2,-0x3 0247 0092 02d0 | | Action Push_String_Extended,0x2d0 ; " ~:::" 0249 01cc | | Execute Vector,Catenate 024a 0092 02ca | | Action Push_String_Extended,0x2ca ; "<WORLDS>" 024c e403 | | Load 0x2,0x3 024d e010 | | Load 0x0,0x10 024e 181b | | Execute Package,Field_Execute,Field_Number 0x1b 024f e402 | | Load 0x2,0x2 0250 4802 |H | Short_Literal 0x2 0251 0092 02c2 | | Action Push_String_Extended,0x2c2 ; "[End Enable_Product_Keymaps]" 0253 e006 | | Load 0x0,0x6 0254 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0255 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0256 0000 0000 | | .XXX[0x2] 0258 ; -------------------------------------------------------------------------------------- 0258 ; SUBPROGRAM 0258 ; -------------------------------------------------------------------------------------- 0258 026a | j | .CONST 0x026a ; Address of begin 0259 0004 | | .CONST 0x0004 ; Address of exception handler 025a 0004 | | .CONST 0x0004 ; Number of locals 025b INIT_0258: 025b e012 | | Load 0x0,0x12 025c 1b19 | | Execute Package,Field_Read,Field_Number 0x19 025d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 025e 02c7 | | Declare_Variable Any 025f e012 | | Load 0x0,0x12 0260 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0261 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0262 a802 | | Store_Unchecked 0x4,0x2 0263 00d8 | | Load_Top At_Offset_0 0264 e012 | | Load 0x0,0x12 0265 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0266 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 0267 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0268 00e1 | | Load_Encached Boolean_Cache 0269 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 026a BODY_0258: 026a 00cf | | Action Mark_Auxiliary 026b 00da | | Load_Top At_Offset_2 026c 01d9 | | Execute Vector,Reverse_Bounds 026d 0263 | c | Execute Discrete,Above_Bound 026e 7034 |p4 | Jump_Nonzero 0x2a3 026f 00d8 | | Load_Top At_Offset_0 0270 e803 | | Load 0x4,0x3 0271 01d7 | | Execute Vector,Field_Read 0272 4830 |H0 | Short_Literal 0x30 0273 4839 |H9 | Short_Literal 0x39 0274 0262 | b | Execute Discrete,In_Range 0275 682b |h+ | Jump_Zero 0x2a1 0276 00cf | | Action Mark_Auxiliary 0277 e803 | | Load 0x4,0x3 0278 01dc | | Execute Vector,Last 0279 00da | | Load_Top At_Offset_2 027a 0a01 | | Execute_Immediate Plus,0x1 027b 00d8 | | Load_Top At_Offset_0 027c 00e2 | | Load_Encached Integer_Cache 027d 0260 | ` | Execute Discrete,In_Type 027e 7001 |p | Jump_Nonzero 0x280 027f 0801 | | Execute_Immediate Raise,0x1 0280 0263 | c | Execute Discrete,Above_Bound 0281 701c |p | Jump_Nonzero 0x29e 0282 00d8 | | Load_Top At_Offset_0 0283 e803 | | Load 0x4,0x3 0284 01d7 | | Execute Vector,Field_Read 0285 4830 |H0 | Short_Literal 0x30 0286 4839 |H9 | Short_Literal 0x39 0287 0261 | a | Execute Discrete,Not_In_Range 0288 6813 |h | Jump_Zero 0x29c 0289 00db | | Load_Top At_Offset_3 028a 00d9 | | Load_Top At_Offset_1 028b 0aff | | Execute_Immediate Plus,-0x1 028c 00d8 | | Load_Top At_Offset_0 028d 00e2 | | Load_Encached Integer_Cache 028e 0260 | ` | Execute Discrete,In_Type 028f 7001 |p | Jump_Nonzero 0x291 0290 0801 | | Execute_Immediate Raise,0x1 0291 e803 | | Load 0x4,0x3 0292 01cf | | Execute Vector,Slice_Read 0293 00e2 | | Load_Encached Integer_Cache 0294 00e0 | | Load_Encached Standard_Cache 0295 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0296 0c0b | | Execute_Immediate Greater_Equal,0xb 0297 6802 |h | Jump_Zero 0x29a 0298 4801 |H | Short_Literal 0x1 0299 a804 | | Store_Unchecked 0x4,0x4 029a 00d2 | | Pop_Control Pop_Count_2 029b 7802 |x | Jump 0x29e 029c 00c8 | | Action Pop_Auxiliary_Range 029d 3fe4 |? | Loop_Increasing 0x282 029e 00ce | | Action Pop_Auxiliary 029f 00d2 | | Pop_Control Pop_Count_2 02a0 7802 |x | Jump 0x2a3 02a1 00c8 | | Action Pop_Auxiliary_Range 02a2 3fcc |? | Loop_Increasing 0x26f 02a3 00ce | | Action Pop_Auxiliary 02a4 00d8 | | Load_Top At_Offset_0 02a5 6808 |h | Jump_Zero 0x2ae 02a6 e60a | | Load 0x3,0xa 02a7 4be8 |K | Short_Literal 0x3e8 02a8 0092 02d1 | | Action Push_String_Extended,0x2d1 ; "Have_Delta2=>TRUE," 02aa e00d | | Load 0x0,0xd 02ab 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 02ac c60a | | Store 0x3,0xa 02ad 7807 |x | Jump 0x2b5 02ae e60a | | Load 0x3,0xa 02af 4be8 |K | Short_Literal 0x3e8 02b0 0092 02d2 | | Action Push_String_Extended,0x2d2 ; "Have_Delta2=>FALSE," 02b2 e00d | | Load 0x0,0xd 02b3 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 02b4 c60a | | Store 0x3,0xa 02b5 e402 | | Load 0x2,0x2 02b6 4802 |H | Short_Literal 0x2 02b7 0092 02d3 | | Action Push_String_Extended,0x2d3 ; "Environment: " 02b9 e60a | | Load 0x3,0xa 02ba e00a | | Load 0x0,0xa 02bb 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 02bc 01cc | | Execute Vector,Catenate 02bd e006 | | Load 0x0,0x6 02be 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02bf 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02c0 ; -------------------------------------------------------------------------------------- 02c0 ; STRING TABLE 02c0 ; -------------------------------------------------------------------------------------- 02c0 002a | * | .STRTAB 0x002a->0x02d5 ; "!Machine.Temporary.Product_Keymap_" 02c1 004a | J | .STRTAB 0x004a->0x02e6 ; "_" 02c2 0049 | I | .STRTAB 0x0049->0x02e6 ; "[End Enable_Product_Keymaps]" 02c3 0063 | c | .STRTAB 0x0063->0x02f4 ; "Unexpected exception: " 02c4 0077 | w | .STRTAB 0x0077->0x02ff ; "XR" 02c5 0077 | w | .STRTAB 0x0077->0x0300 ; " " 02c6 0076 | v | .STRTAB 0x0076->0x0301 ; "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789_" 02c7 00b3 | | .STRTAB 0x00b3->0x0320 ; "," 02c8 00b2 | | .STRTAB 0x00b2->0x0321 ; "Process " 02c9 00b8 | | .STRTAB 0x00b8->0x0325 ; "<ALL_WORLDS>" 02ca 00c2 | | .STRTAB 0x00c2->0x032b ; "<WORLDS>" 02cb 00c8 | | .STRTAB 0x00c8->0x032f ; "[Enable_Product_Keymaps( Keymap => \x22" 02cc 00ea | | .STRTAB 0x00ea->0x0341 ; "\x22, Overrides => \x22" 02cd 00f9 | | .STRTAB 0x00f9->0x0349 ; "\x22, Response => \x22" 02ce 0107 | | .STRTAB 0x0107->0x0351 ; "\x22)]" 02cf 0108 | | .STRTAB 0x0108->0x0353 ; " does not match any existing Ada units." 02d0 012d | - | .STRTAB 0x012d->0x0366 ; " ~:::" 02d1 0130 | 0 | .STRTAB 0x0130->0x0369 ; "Have_Delta2=>TRUE," 02d2 0140 | @ | .STRTAB 0x0140->0x0372 ; "Have_Delta2=>FALSE," 02d3 0151 | Q | .STRTAB 0x0151->0x037b ; "Environment: " 02d4 015c | \ | .STREND 0x015c->0x0382 02d5 214d 6163 |!Mac| .STRTAB_STRINGS 0382 0000 0000 | | .BLANK 0000[0x6] 0388 ; -------------------------------------------------------------------------------------- 0388 ; Debug Table 0388 ; -------------------------------------------------------------------------------------- 0388 0004 0008 | | .DEBUG4 0x0004,0x0008,0xac6a,0x0000,0x0001,0x0000 038e 0000 0000 | | .BLANK 0000[0x72]