|
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 000c 9d58 | X| .XXX[0x5] 0308 a200 0000 | | 030a 8000 | | 030b 0000 0000 | | .BLANK 0000[0xc] 0317 0080 0000 | | .XXX[0x3] 0319 6000 |` | 031a 0000 0000 | | .BLANK 0000[0x6] 0320 007f 8870 | p| .XXX[0x2] 0322 0000 0000 | | .BLANK 0000[0x7] 0329 0004 0000 | | .XXX[0xe] 032b 0000 0000 | | 032d 0200 0001 | | 032f a378 0000 | x | 0331 0001 0000 | | 0333 7200 842c |r ,| 0335 0002 c790 | | 0337 0000 0000 | | .BLANK 0000[0x5] 033c 00e8 0000 | | .XXX[0x3] 033e 01d0 | | 033f 0000 0000 | | .BLANK 0000[0x9] 0348 0200 0000 | | .XXX[0x23] 034a 1a00 0000 | | 034c 0008 0000 | | 034e 0301 0972 | r| 0350 4a79 72a2 |Jyr | 0352 2ac2 a2fa |* | 0354 4a79 3a9a |Jy: | 0356 822a 193a | * :| 0358 9a82 22c9 | " | 035a 3a19 420a |: B | 035c 2209 48ab |" H | 035e 0a8b e929 | )| 0360 e4ea 6a08 | j | 0362 a860 0000 | ` | 0364 0020 0000 | | 0366 0064 eac5 | d | 0368 1000 0002 | | 036a 2000 | | 036b 0000 0000 | | .BLANK 0000[0x13] 037e 0004 0000 | | .XXX[0x3] 0380 0300 | | 0381 0000 0000 | | .BLANK 0000[0x6] 0387 0003 fd05 | | .XXX[0x3] 0389 8000 | | 038a 0000 0000 | | .BLANK 0000[0x7] 0391 2000 0000 | | .XXX[0xe] 0393 0000 0010 | | 0395 0000 0d1b | | 0397 c000 0000 | | 0399 0800 0390 | | 039b 0421 6000 | !` | 039d 163c 8000 | < | 039f 0000 0000 | | .BLANK 0000[0x4] 03a3 0007 c000 | | .XXX[0x4] 03a5 000f 8000 | | 03a7 0000 0000 | | .BLANK 0000[0x8] 03af 0010 0000 | | .XXX[0x24] 03b1 00d0 0000 | | 03b3 0000 4000 | @ | 03b5 0018 084b | K| 03b7 90d3 d353 | S| 03b9 5053 9114 |PS | 03bb cb91 9514 | | 03bd 09d4 d411 | | 03bf 50c9 d4d4 |P | 03c1 1116 49d0 | I | 03c3 ca10 5110 | Q | 03c5 4a44 532e |JDS.| 03c7 4654 5027 |FTP'| 03c9 5350 4543 |SPEC| 03cb 0000 0001 | | 03cd 0000 0003 | | 03cf 2756 2880 |'V( | 03d1 0000 1300 | | 03d3 0000 0000 | | .BLANK 0000[0x13] 03e6 2000 0018 | | .XXX[0x2] 03e8 0000 0000 | | .BLANK 0000[0x7] 03ef 1fee 3c00 | < | .XXX[0x2] 03f1 0000 0000 | | .BLANK 0000[0x7] 03f8 0100 0000 | | .XXX[0x8] 03fa 0000 0000 | | 03fc 8000 0068 | h| 03fe de00 0000 | |