|
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_0500e0
└─⟦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 0300 | | .CONST 0x0300 ; 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 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 004e | N | .CONST 0x004e ; Address of begin 0019 0050 | P | .CONST 0x0050 ; Address of exception handler 001a 000a | | .CONST 0x000a ; Number of locals 001b INIT_0018: 001b 0007 | | Action Break_Optional 001c 0007 | | Action Break_Optional 001d e001 | | Load 0x0,0x1 001e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 001f 02c7 | | Declare_Variable Any 0020 e5fd | | Load 0x2,-0x3 0021 e001 | | Load 0x0,0x1 0022 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0023 a402 | | Store_Unchecked 0x2,0x2 0024 0007 | | Action Break_Optional 0025 0092 0257 | W| Action Push_String_Extended,0x257 ; "!Machine.Temporary.Product_Keymap_" 0027 4802 |H | Short_Literal 0x2 0028 4800 |H | Short_Literal 0x0 0029 4804 |H | Short_Literal 0x4 002a e002 | | Load 0x0,0x2 002b 1815 | | Execute Package,Field_Execute,Field_Number 0x15 002c e002 | | Load 0x0,0x2 002d 181f | | Execute Package,Field_Execute,Field_Number 0x1f 002e 01cc | | Execute Vector,Catenate 002f 0092 0258 | X| Action Push_String_Extended,0x258 ; "_" 0031 01cc | | Execute Vector,Catenate 0032 4801 |H | Short_Literal 0x1 0033 4803 |H | Short_Literal 0x3 0034 4800 |H | Short_Literal 0x0 0035 e002 | | Load 0x0,0x2 0036 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0037 e002 | | Load 0x0,0x2 0038 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0039 01cc | | Execute Vector,Catenate 003a 0007 | | Action Break_Optional 003b e003 | | Load 0x0,0x3 003c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 003d 02c7 | | Declare_Variable Any 003e 00d8 | | Load_Top At_Offset_0 003f 1c00 | | Execute_Immediate Run_Utility,0x0 0040 e004 | | Load 0x0,0x4 0041 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0042 0337 | 7 | Declare_Variable Array 0043 e004 | | Load 0x0,0x4 0044 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0045 0337 | 7 | Declare_Variable Array 0046 029f 0073 | s| Declare_Subprogram INIT_0070,For_Call 0048 029f 016b | k| Declare_Subprogram INIT_0168,For_Call 004a 029f 01c3 | | Declare_Subprogram INIT_01c0,For_Call 004c 029f 01f3 | | Declare_Subprogram INIT_01f0,For_Call 004e BODY_0018: 004e 840a | | Call 0x2,0xa 004f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0050 TRAP_0018: 0050 e005 | | Load 0x0,0x5 0051 010f | | Execute Exception,Equal 0052 6809 |h | Jump_Zero 0x5c 0053 e402 | | Load 0x2,0x2 0054 4802 |H | Short_Literal 0x2 0055 0092 0259 | Y| Action Push_String_Extended,0x259 ; "[End Enable_Product_Keymaps]" 0057 e006 | | Load 0x0,0x6 0058 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0059 e007 | | Load 0x0,0x7 005a 1b47 | G | Execute Package,Field_Read,Field_Number 0x47 005b 0257 | W | Execute Discrete,Raise 005c e402 | | Load 0x2,0x2 005d 4808 |H | Short_Literal 0x8 005e 0092 025a | Z| Action Push_String_Extended,0x25a ; "Unexpected exception: " 0060 4801 |H | Short_Literal 0x1 0061 4801 |H | Short_Literal 0x1 0062 e008 | | Load 0x0,0x8 0063 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0064 01cc | | Execute Vector,Catenate 0065 e006 | | Load 0x0,0x6 0066 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0067 00d8 | | Load_Top At_Offset_0 0068 0101 | | Execute Exception,Reraise 0069 0000 0000 | | .BLANK 0000[0x7] 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 008d | | .CONST 0x008d ; Address of begin 0071 0159 | Y | .CONST 0x0159 ; Address of exception handler 0072 000a | | .CONST 0x000a ; Number of locals 0073 INIT_0070: 0073 00e1 | | Load_Encached Boolean_Cache 0074 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0075 00e1 | | Load_Encached Boolean_Cache 0076 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0077 00e1 | | Load_Encached Boolean_Cache 0078 00e1 | | Load_Encached Boolean_Cache 0079 00e1 | | Load_Encached Boolean_Cache 007a 00e8 | | Load_Encached Character_Cache 007b e009 | | Load 0x0,0x9 007c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 007d 4be8 |K | Short_Literal 0x3e8 007e e00a | | Load 0x0,0xa 007f 180d | | Execute Package,Field_Execute,Field_Number 0xd 0080 0039 | 9 | Store_Top Access,At_Offset_1 0081 e009 | | Load 0x0,0x9 0082 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0083 4be8 |K | Short_Literal 0x3e8 0084 e00a | | Load 0x0,0xa 0085 180d | | Execute Package,Field_Execute,Field_Number 0xd 0086 0039 | 9 | Store_Top Access,At_Offset_1 0087 e009 | | Load 0x0,0x9 0088 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0089 4be8 |K | Short_Literal 0x3e8 008a e00a | | Load 0x0,0xa 008b 180d | | Execute Package,Field_Execute,Field_Number 0xd 008c 0039 | 9 | Store_Top Access,At_Offset_1 008d BODY_0070: 008d e403 | | Load 0x2,0x3 008e e006 | | Load 0x0,0x6 008f 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0090 4801 |H | Short_Literal 0x1 0091 a602 | | Store_Unchecked 0x3,0x2 0092 e00b | | Load 0x0,0xb 0093 180f | | Execute Package,Field_Execute,Field_Number 0xf 0094 e006 | | Load 0x0,0x6 0095 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0096 4800 |H | Short_Literal 0x0 0097 a602 | | Store_Unchecked 0x3,0x2 0098 e404 | | Load 0x2,0x4 0099 00ea | | Load_Encached Null_String_Cache 009a e403 | | Load 0x2,0x3 009b 4800 |H | Short_Literal 0x0 009c e003 | | Load 0x0,0x3 009d 1815 | | Execute Package,Field_Execute,Field_Number 0x15 009e c404 | | Store 0x2,0x4 009f 4801 |H | Short_Literal 0x1 00a0 a603 | | Store_Unchecked 0x3,0x3 00a1 e405 | | Load 0x2,0x5 00a2 0092 025b | [| Action Push_String_Extended,0x25b ; "XR" 00a4 00ea | | Load_Encached Null_String_Cache 00a5 0092 025c | \| Action Push_String_Extended,0x25c ; " " 00a7 e004 | | Load 0x0,0x4 00a8 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00a9 00d1 | | Pop_Control Pop_Count_1 00aa e406 | | Load 0x2,0x6 00ab 0092 025b | [| Action Push_String_Extended,0x25b ; "XR" 00ad 00ea | | Load_Encached Null_String_Cache 00ae 0092 025d | ]| Action Push_String_Extended,0x25d ; "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789_" 00b0 e004 | | Load 0x0,0x4 00b1 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00b2 00d1 | | Pop_Control Pop_Count_1 00b3 00d8 | | Load_Top At_Offset_0 00b4 e00c | | Load 0x0,0xc 00b5 180e | | Execute Package,Field_Execute,Field_Number 0xe 00b6 4800 |H | Short_Literal 0x0 00b7 a606 | | Store_Unchecked 0x3,0x6 00b8 00cf | | Action Mark_Auxiliary 00b9 781a |x | Jump 0xd4 00ba e606 | | Load 0x3,0x6 00bb e605 | | Load 0x3,0x5 00bc e604 | | Load 0x3,0x4 00bd e608 | | Load 0x3,0x8 00be 4be8 |K | Short_Literal 0x3e8 00bf e404 | | Load 0x2,0x4 00c0 e00d | | Load 0x0,0xd 00c1 180f | | Execute Package,Field_Execute,Field_Number 0xf 00c2 c608 | | Store 0x3,0x8 00c3 c604 | | Store 0x3,0x4 00c4 c605 | | Store 0x3,0x5 00c5 c606 | | Store 0x3,0x6 00c6 00db | | Load_Top At_Offset_3 00c7 0227 | ' | Execute Access,All_Reference 00c8 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 00c9 0c01 | | Execute_Immediate Greater_Equal,0x1 00ca 6808 |h | Jump_Zero 0xd3 00cb 4801 |H | Short_Literal 0x1 00cc e608 | | Load 0x3,0x8 00cd 0227 | ' | Execute Access,All_Reference 00ce 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 00cf 01d7 | | Execute Vector,Field_Read 00d0 0f3d | = | Execute_Immediate Equal,0x3d 00d1 6801 |h | Jump_Zero 0xd3 00d2 7805 |x | Jump 0xd8 00d3 00c9 | | Action Pop_Auxiliary_Loop 00d4 e404 | | Load 0x2,0x4 00d5 e003 | | Load 0x0,0x3 00d6 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 00d7 6fe2 |o | Jump_Zero 0xba 00d8 00c9 | | Action Pop_Auxiliary_Loop 00d9 7861 |xa | Jump 0x13b 00da e606 | | Load 0x3,0x6 00db e605 | | Load 0x3,0x5 00dc e604 | | Load 0x3,0x4 00dd e608 | | Load 0x3,0x8 00de 4be8 |K | Short_Literal 0x3e8 00df e404 | | Load 0x2,0x4 00e0 e00d | | Load 0x0,0xd 00e1 180f | | Execute Package,Field_Execute,Field_Number 0xf 00e2 c608 | | Store 0x3,0x8 00e3 c604 | | Store 0x3,0x4 00e4 c605 | | Store 0x3,0x5 00e5 c606 | | Store 0x3,0x6 00e6 00e8 | | Load_Encached Character_Cache 00e7 e405 | | Load 0x2,0x5 00e8 e608 | | Load 0x3,0x8 00e9 e004 | | Load 0x0,0x4 00ea 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00eb c607 | | Store 0x3,0x7 00ec 00db | | Load_Top At_Offset_3 00ed 0227 | ' | Execute Access,All_Reference 00ee 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 00ef 0c01 | | Execute_Immediate Greater_Equal,0x1 00f0 6849 |hI | Jump_Zero 0x13a 00f1 4801 |H | Short_Literal 0x1 00f2 e608 | | Load 0x3,0x8 00f3 0227 | ' | Execute Access,All_Reference 00f4 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 00f5 01d7 | | Execute Vector,Field_Read 00f6 4861 |Ha | Short_Literal 0x61 00f7 487a |Hz | Short_Literal 0x7a 00f8 0262 | b | Execute Discrete,In_Range 00f9 7009 |p | Jump_Nonzero 0x103 00fa 4801 |H | Short_Literal 0x1 00fb e608 | | Load 0x3,0x8 00fc 0227 | ' | Execute Access,All_Reference 00fd 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 00fe 01d7 | | Execute Vector,Field_Read 00ff 4841 |HA | Short_Literal 0x41 0100 485a |HZ | Short_Literal 0x5a 0101 0262 | b | Execute Discrete,In_Range 0102 6837 |h7 | Jump_Zero 0x13a 0103 00e8 | | Load_Encached Character_Cache 0104 e406 | | Load 0x2,0x6 0105 e608 | | Load 0x3,0x8 0106 e609 | | Load 0x3,0x9 0107 e004 | | Load 0x0,0x4 0108 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0109 c607 | | Store 0x3,0x7 010a 00db | | Load_Top At_Offset_3 010b 0227 | ' | Execute Access,All_Reference 010c 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 010d 0c03 | | Execute_Immediate Greater_Equal,0x3 010e 6817 |h | Jump_Zero 0x126 010f 4802 |H | Short_Literal 0x2 0110 e608 | | Load 0x3,0x8 0111 0227 | ' | Execute Access,All_Reference 0112 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3 0113 01d7 | | Execute Vector,Field_Read 0114 0e20 | | Execute_Immediate Not_Equal,0x20 0115 6810 |h | Jump_Zero 0x126 0116 485f |H_ | Short_Literal 0x5f 0117 00db | | Load_Top At_Offset_3 0118 e00e | | Load 0x0,0xe 0119 181f | | Execute Package,Field_Execute,Field_Number 0x1f 011a 00db | | Load_Top At_Offset_3 011b e00c | | Load 0x0,0xc 011c 181a | | Execute Package,Field_Execute,Field_Number 0x1a 011d a607 | | Store_Unchecked 0x3,0x7 011e 00e8 | | Load_Encached Character_Cache 011f 00db | | Load_Top At_Offset_3 0120 e406 | | Load 0x2,0x6 0121 e608 | | Load 0x3,0x8 0122 e004 | | Load 0x0,0x4 0123 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0124 c609 | | Store 0x3,0x9 0125 c607 | | Store 0x3,0x7 0126 00da | | Load_Top At_Offset_2 0127 e00f | | Load 0x0,0xf 0128 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0129 00d9 | | Load_Top At_Offset_1 012a 4be8 |K | Short_Literal 0x3e8 012b e609 | | Load 0x3,0x9 012c e00e | | Load 0x0,0xe 012d 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 012e 003a | : | Store_Top Access,At_Offset_2 012f 0092 025e | ^| Action Push_String_Extended,0x25e ; "," 0131 00db | | Load_Top At_Offset_3 0132 e00e | | Load 0x0,0xe 0133 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0134 00d9 | | Load_Top At_Offset_1 0135 4be8 |K | Short_Literal 0x3e8 0136 e609 | | Load 0x3,0x9 0137 e00e | | Load 0x0,0xe 0138 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 0139 003a | : | Store_Top Access,At_Offset_2 013a 00c9 | | Action Pop_Auxiliary_Loop 013b e404 | | Load 0x2,0x4 013c e003 | | Load 0x0,0x3 013d 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 013e 6f9b |o | Jump_Zero 0xda 013f 00ce | | Action Pop_Auxiliary 0140 00d8 | | Load_Top At_Offset_0 0141 4be8 |K | Short_Literal 0x3e8 0142 0092 025e | ^| Action Push_String_Extended,0x25e ; "," 0144 e00e | | Load 0x0,0xe 0145 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 0146 0039 | 9 | Store_Top Access,At_Offset_1 0147 00d8 | | Load_Top At_Offset_0 0148 4be8 |K | Short_Literal 0x3e8 0149 e5fe | | Load 0x2,-0x2 014a e00e | | Load 0x0,0xe 014b 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 014c 0039 | 9 | Store_Top Access,At_Offset_1 014d 00d8 | | Load_Top At_Offset_0 014e e00c | | Load 0x0,0xc 014f 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0150 e010 | | Load 0x0,0x10 0151 180e | | Execute Package,Field_Execute,Field_Number 0xe 0152 4800 |H | Short_Literal 0x0 0153 a603 | | Store_Unchecked 0x3,0x3 0154 e404 | | Load 0x2,0x4 0155 e003 | | Load 0x0,0x3 0156 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0157 c404 | | Store 0x2,0x4 0158 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0159 TRAP_0070: 0159 0007 | | Action Break_Optional 015a e602 | | Load 0x3,0x2 015b 6802 |h | Jump_Zero 0x15e 015c e006 | | Load 0x0,0x6 015d 181d | | Execute Package,Field_Execute,Field_Number 0x1d 015e e603 | | Load 0x3,0x3 015f 6804 |h | Jump_Zero 0x164 0160 e404 | | Load 0x2,0x4 0161 e003 | | Load 0x0,0x3 0162 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0163 c404 | | Store 0x2,0x4 0164 00d8 | | Load_Top At_Offset_0 0165 0101 | | Execute Exception,Reraise 0166 0000 0000 | | .XXX[0x2] 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 0177 | w | .CONST 0x0177 ; 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 0334 | 4 | Declare_Variable Array,With_Constraint 016f 00db | | Load_Top At_Offset_3 0170 01dd | | Execute Vector,First 0171 00e3 | | Load_Encached Natural_Cache 0172 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0173 00d9 | | Load_Top At_Offset_1 0174 01dd | | Execute Vector,First 0175 00e3 | | Load_Encached Natural_Cache 0176 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0177 BODY_0168: 0177 00cf | | Action Mark_Auxiliary 0178 7834 |x4 | Jump 0x1ad 0179 00da | | Load_Top At_Offset_2 017a e7ff | | Load 0x3,-0x1 017b 01d7 | | Execute Vector,Field_Read 017c 0e27 | ' | Execute_Immediate Not_Equal,0x27 017d 700c |p | Jump_Nonzero 0x18a 017e 00da | | Load_Top At_Offset_2 017f 0a01 | | Execute_Immediate Plus,0x1 0180 e7ff | | Load 0x3,-0x1 0181 01d7 | | Execute Vector,Field_Read 0182 0e56 | V | Execute_Immediate Not_Equal,0x56 0183 6810 |h | Jump_Zero 0x194 0184 00da | | Load_Top At_Offset_2 0185 0a01 | | Execute_Immediate Plus,0x1 0186 e7ff | | Load 0x3,-0x1 0187 01d7 | | Execute Vector,Field_Read 0188 0e76 | v | Execute_Immediate Not_Equal,0x76 0189 680a |h | Jump_Zero 0x194 018a 00da | | Load_Top At_Offset_2 018b e7ff | | Load 0x3,-0x1 018c 01d7 | | Execute Vector,Field_Read 018d 00da | | Load_Top At_Offset_2 018e e602 | | Load 0x3,0x2 018f 01d6 | | Execute Vector,Field_Write 0190 00d9 | | Load_Top At_Offset_1 0191 0a01 | | Execute_Immediate Plus,0x1 0192 005a | Z | Store_Top Discrete,At_Offset_2 0193 7815 |x | Jump 0x1a9 0194 00da | | Load_Top At_Offset_2 0195 0a02 | | Execute_Immediate Plus,0x2 0196 005b | [ | Store_Top Discrete,At_Offset_3 0197 00cf | | Action Mark_Auxiliary 0198 780a |x | Jump 0x1a3 0199 00db | | Load_Top At_Offset_3 019a e7ff | | Load 0x3,-0x1 019b 01d7 | | Execute Vector,Field_Read 019c 0f29 | ) | Execute_Immediate Equal,0x29 019d 6801 |h | Jump_Zero 0x19f 019e 7809 |x | Jump 0x1a8 019f 00db | | Load_Top At_Offset_3 01a0 0a01 | | Execute_Immediate Plus,0x1 01a1 c603 | | Store 0x3,0x3 01a2 00c9 | | Action Pop_Auxiliary_Loop 01a3 00db | | Load_Top At_Offset_3 01a4 e7ff | | Load 0x3,-0x1 01a5 01dc | | Execute Vector,Last 01a6 027c | | | Execute Discrete,Less 01a7 77f1 |w | Jump_Nonzero 0x199 01a8 00ce | | Action Pop_Auxiliary 01a9 00da | | Load_Top At_Offset_2 01aa 0a01 | | Execute_Immediate Plus,0x1 01ab 005b | [ | Store_Top Discrete,At_Offset_3 01ac 00c9 | | Action Pop_Auxiliary_Loop 01ad 00da | | Load_Top At_Offset_2 01ae e7ff | | Load 0x3,-0x1 01af 01dc | | Execute Vector,Last 01b0 027a | z | Execute Discrete,Less_Equal 01b1 77c7 |w | Jump_Nonzero 0x179 01b2 00ce | | Action Pop_Auxiliary 01b3 00da | | Load_Top At_Offset_2 01b4 01dd | | Execute Vector,First 01b5 00d9 | | Load_Top At_Offset_1 01b6 0aff | | Execute_Immediate Plus,-0x1 01b7 e602 | | Load 0x3,0x2 01b8 01cf | | Execute Vector,Slice_Read 01b9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01ba 0000 0000 | | .BLANK 0000[0x6] 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 025f | _| Action Push_String_Extended,0x25f ; "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 e010 | | Load 0x0,0x10 01ce 180f | | Execute Package,Field_Execute,Field_Number 0xf 01cf e5fd | | Load 0x2,-0x3 01d0 4800 |H | Short_Literal 0x0 01d1 0092 0260 | `| Action Push_String_Extended,0x260 ; "<ALL_WORLDS>" 01d3 4801 |H | Short_Literal 0x1 01d4 e7ff | | Load 0x3,-0x1 01d5 e011 | | Load 0x0,0x11 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 e012 | | Load 0x0,0x12 01dc 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01dd 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01de e403 | | Load 0x2,0x3 01df e011 | | Load 0x0,0x11 01e0 1817 | | Execute Package,Field_Execute,Field_Number 0x17 01e1 e5fd | | Load 0x2,-0x3 01e2 4800 |H | Short_Literal 0x0 01e3 0092 0261 | a| Action Push_String_Extended,0x261 ; "<WORLDS>" 01e5 4802 |H | Short_Literal 0x2 01e6 4802 |H | Short_Literal 0x2 01e7 e7ff | | Load 0x3,-0x1 01e8 8408 | | Call 0x2,0x8 01e9 e011 | | Load 0x0,0x11 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 e012 | | Load 0x0,0x12 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 e012 | | Load 0x0,0x12 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 0262 | b| Action Push_String_Extended,0x262 ; "[Enable_Product_Keymaps( Keymap => \x22" 0203 e5ff | | Load 0x2,-0x1 0204 01cc | | Execute Vector,Catenate 0205 0092 0263 | c| Action Push_String_Extended,0x263 ; "\x22, Overrides => \x22" 0207 01cc | | Execute Vector,Catenate 0208 e5fe | | Load 0x2,-0x2 0209 01cc | | Execute Vector,Catenate 020a 0092 0264 | d| Action Push_String_Extended,0x264 ; "\x22, Response => \x22" 020c 01cc | | Execute Vector,Catenate 020d e5fd | | Load 0x2,-0x3 020e 01cc | | Execute Vector,Catenate 020f 0092 0265 | e| Action Push_String_Extended,0x265 ; "\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 e012 | | Load 0x0,0x12 0216 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0217 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0218 e5ff | | Load 0x2,-0x1 0219 e012 | | Load 0x0,0x12 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 e012 | | Load 0x0,0x12 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 0266 | f| Action Push_String_Extended,0x266 ; " 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 0007 | | Action Break_Optional 022f 00da | | Load_Top At_Offset_2 0230 e012 | | Load 0x0,0x12 0231 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0232 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0233 c603 | | Store 0x3,0x3 0234 00d9 | | Load_Top At_Offset_1 0235 e012 | | Load 0x0,0x12 0236 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0237 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0238 8409 | | Call 0x2,0x9 0239 00da | | Load_Top At_Offset_2 023a e012 | | Load 0x0,0x12 023b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 023c 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 023d c602 | | Store 0x3,0x2 023e 00da | | Load_Top At_Offset_2 023f e012 | | Load 0x0,0x12 0240 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0241 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0242 6801 |h | Jump_Zero 0x244 0243 7802 |x | Jump 0x246 0244 00c9 | | Action Pop_Auxiliary_Loop 0245 7fe9 | | Jump 0x22f 0246 00ce | | Action Pop_Auxiliary 0247 e5fd | | Load 0x2,-0x3 0248 0092 0267 | g| Action Push_String_Extended,0x267 ; " ~:::" 024a 01cc | | Execute Vector,Catenate 024b 0092 0261 | a| Action Push_String_Extended,0x261 ; "<WORLDS>" 024d e403 | | Load 0x2,0x3 024e e011 | | Load 0x0,0x11 024f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0250 e402 | | Load 0x2,0x2 0251 4802 |H | Short_Literal 0x2 0252 0092 0259 | Y| Action Push_String_Extended,0x259 ; "[End Enable_Product_Keymaps]" 0254 e006 | | Load 0x0,0x6 0255 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0256 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0257 ; -------------------------------------------------------------------------------------- 0257 ; STRING TABLE 0257 ; -------------------------------------------------------------------------------------- 0257 0024 | $ | .STRTAB 0x0024->0x0269 ; "!Machine.Temporary.Product_Keymap_" 0258 0044 | D | .STRTAB 0x0044->0x027a ; "_" 0259 0043 | C | .STRTAB 0x0043->0x027a ; "[End Enable_Product_Keymaps]" 025a 005d | ] | .STRTAB 0x005d->0x0288 ; "Unexpected exception: " 025b 0071 | q | .STRTAB 0x0071->0x0293 ; "XR" 025c 0071 | q | .STRTAB 0x0071->0x0294 ; " " 025d 0070 | p | .STRTAB 0x0070->0x0295 ; "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789_" 025e 00ad | | .STRTAB 0x00ad->0x02b4 ; "," 025f 00ac | | .STRTAB 0x00ac->0x02b5 ; "Process " 0260 00b2 | | .STRTAB 0x00b2->0x02b9 ; "<ALL_WORLDS>" 0261 00bc | | .STRTAB 0x00bc->0x02bf ; "<WORLDS>" 0262 00c2 | | .STRTAB 0x00c2->0x02c3 ; "[Enable_Product_Keymaps( Keymap => \x22" 0263 00e4 | | .STRTAB 0x00e4->0x02d5 ; "\x22, Overrides => \x22" 0264 00f3 | | .STRTAB 0x00f3->0x02dd ; "\x22, Response => \x22" 0265 0101 | | .STRTAB 0x0101->0x02e5 ; "\x22)]" 0266 0102 | | .STRTAB 0x0102->0x02e7 ; " does not match any existing Ada units." 0267 0127 | ' | .STRTAB 0x0127->0x02fa ; " ~:::" 0268 012a | * | .STREND 0x012a->0x02fd 0269 214d 6163 |!Mac| .STRTAB_STRINGS 02fd 0000 0000 | | .XXX[0x3] 02ff 0000 | | 0300 ; -------------------------------------------------------------------------------------- 0300 ; Debug Table 0300 ; -------------------------------------------------------------------------------------- 0300 0004 0005 | | .DEBUG4 0x0004,0x0005,0x50f6,0x0000,0x0001,0x0000 0306 cc29 4d95 | )M | .XXX[0xfa] 0308 cdcd a5bd | | 030a b8b9 31a5 | 1 | 030c 89c9 85c9 | | 030e e57d 3185 | }1 | 0310 e9e5 7d49 | }I| 0312 9585 b1a5 | | 0314 9db9 b595 | | 0316 b9d0 b828 | (| 0318 ecb8 ec29 | )| 031a 3125 0949 |1% I| 031c 0549 657d | Ie}| 031e 3125 3915 |1%9 | 0320 7d31 1539 |}1 9| 0322 1d51 2029 | Q )| 0324 4dc1 958d |M | 0326 a599 a595 | | 0328 cc81 a1bd | | 032a dc81 b1bd | | 032c b99c 8184 | | 032e 81b1 a5b9 | | 0330 9481 8d85 | | 0332 b881 8994 | | 0334 8189 9599 | | 0336 bdc9 9481 | | 0338 a5d0 81a5 | | 033a cc81 95b1 | | 033c a59d a589 | | 033e b194 81d1 | | 0340 bc81 8994 | | 0342 8189 c9bd | | 0344 ad95 b8b8 | | 0346 8029 3195 | )1 | 0348 9d85 b081 | | 034a d985 b1d5 | | 034c 95cc 8185 | | 034e c994 81a5 | | 0350 b9d1 959d | | 0352 95c9 ccb8 | | 0354 8081 51a1 | Q | 0356 9481 9195 | | 0358 9985 d5b1 | | 035a d081 a5cc | | 035c 80e0 c0b8 | | 035e 8081 0da1 | | 0360 85b9 9d95 | | 0362 cc81 d1bc | | 0364 81d1 a1a5 | | 0366 cc81 cddd | | 0368 a5d1 8da0 | | 036a 29d1 85ad |) | 036c 9481 9599 | | 036e 9995 8dd0 | | 0370 81dd a195 | | 0372 b881 8481 | | 0374 b995 dc81 | | 0376 a5b5 859d | | 0378 9481 bd98 | | 037a 8184 81b1 | | 037c a589 c985 | | 037e c9e4 81a5 | | 0380 cc81 8dc9 | | 0382 9585 d195 | | 0384 90b8 8081 | | 0386 51a1 9481 |Q | 0388 99d5 b1b0 | | 038a 81cd dda5 | | 038c d18d a029 | )| 038e b985 b594 | | 0390 81a5 cc81 | | 0392 4d95 cdcd |M | 0394 a5bd b8b9 | | 0396 31a5 89c9 |1 | 0398 85c9 e57d | }| 039a 31a5 b995 |1 | 039c 7d31 95b9 |}1 | 039e 9dd1 a0b8 | | 03a0 28ec b8ec |( | 03a2 2931 2509 |)1% | 03a4 4905 4965 |I Ie| 03a6 7d35 254d |}5%M| 03a8 0d7d 4d21 | }M!| 03aa 3d5d 7d15 |=]} | 03ac 1125 517d | %Q}| 03ae 2539 193c |%9 <| 03b0 290d bdb9 |) | 03b2 d1c9 bdb1 | | 03b4 cc81 dda1 | | 03b6 95d1 a195 | | 03b8 c881 d1a1 | | 03ba 9481 d1a5 | | 03bc b594 8185 | | 03be b990 81d5 | | 03c0 cd95 c881 | | 03c2 bd98 81d1 | | 03c4 a194 81b1 | | 03c6 85cd d081 | | 03c8 d5c1 9185 | | 03ca d194 bd95 | | 03cc 91a5 d081 | | 03ce bd98 81d1 | | 03d0 a194 29d9 | ) | 03d2 95c9 cda5 | | 03d4 bdb8 8185 | | 03d6 c994 81cd | | 03d8 a1bd ddb8 | | 03da 81dd a195 | | 03dc b881 91a5 | | 03de cdc1 b185 | | 03e0 e5a5 b99c | | 03e2 81b5 a5cd | | 03e4 8d95 b1b1 | | 03e6 85b9 95bd | | 03e8 d5cc 81a5 | | 03ea b999 bdc9 | | 03ec b585 d1a5 | | 03ee bdb8 b880 | | 03f0 8151 a194 | Q | 03f2 2991 9599 |) | 03f4 85d5 b1d0 | | 03f6 81a5 cc81 | | 03f8 51c9 d594 |Q | 03fa b880 810d | | 03fc a185 b99d | | 03fe 95cc 81d1 | |