|
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: 3072 (0xc00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0ea8df
└─⟦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 0350 | P | .CONST 0x0350 ; 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 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0041 | A | .CONST 0x0041 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0016 | | .CONST 0x0016 ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 4815 |H | Short_Literal 0x15
000d 029f 004b | K| Declare_Subprogram INIT_0048,For_Call
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 4801 |H | Short_Literal 0x1
0011 e001 | | Load 0x0,0x1
0012 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0013 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0014 0092 024c | L| Action Push_String_Extended,0x24c ; "*** THIS IS A BAD OBJECT ***"
0016 e001 | | Load 0x0,0x1
0017 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0018 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0019 e002 | | Load 0x0,0x2
001a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
001b 011e | | Execute Any,Convert
001c 0129 | ) | Execute Any,Make_Visible
001d 4801 |H | Short_Literal 0x1
001e e001 | | Load 0x0,0x1
001f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0020 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0021 0092 024d | M| Action Push_String_Extended,0x24d ; "*** THESE ARE BAD OBJECTS ***"
0023 e001 | | Load 0x0,0x1
0024 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0025 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0026 e002 | | Load 0x0,0x2
0027 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0028 011e | | Execute Any,Convert
0029 0129 | ) | Execute Any,Make_Visible
002a 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated
002c 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated
002e 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated
0030 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated
0032 00bf | | Action Accept_Activation
0033 029d 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call
0035 029d 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call
0037 029d 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call
0039 1d10 | | Execute_Immediate Reference_Lex_1,0x10
003a 00c7 | | Action Elaborate_Subprogram
003b 1d11 | | Execute_Immediate Reference_Lex_1,0x11
003c 00c7 | | Action Elaborate_Subprogram
003d 1d12 | | Execute_Immediate Reference_Lex_1,0x12
003e 00c7 | | Action Elaborate_Subprogram
003f 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0040 00c7 | | Action Elaborate_Subprogram
0041 BODY_0008:
0041 00bc | | Action Signal_Activated
0042 00bb | | Action Signal_Completion
0043 0000 0000 | | .BLANK 0000[0x5]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 004b | K | .CONST 0x004b ; Address of begin
0049 0004 | | .CONST 0x0004 ; Address of exception handler
004a 0001 | | .CONST 0x0001 ; Number of locals
004b BODY_0048:
004b INIT_0048:
004b 4607 |F | Jump_Case 0x8
004c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
004d 7806 |x | Jump 0x54 ; case 0x1
004e 7809 |x | Jump 0x58 ; case 0x2
004f 780d |x | Jump 0x5d ; case 0x3
0050 7810 |x | Jump 0x61 ; case 0x4
0051 7811 |x | Jump 0x63 ; case 0x5
0052 7812 |x | Jump 0x65 ; case 0x6
0053 7815 |x | Jump 0x69 ; case 0x7
0054 00da | | Load_Top At_Offset_2
0055 0091 0236 | 6| Action Push_String_Extended_Indexed,0x236 ; "ANYTHING"
0057 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0058 00db | | Load_Top At_Offset_3
0059 00db | | Load_Top At_Offset_3
005a 00e0 | | Load_Encached Standard_Cache
005b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
005c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
005d 00da | | Load_Top At_Offset_2
005e 00e0 | | Load_Encached Standard_Cache
005f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0060 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0061 00db | | Load_Top At_Offset_3
0062 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0063 00db | | Load_Top At_Offset_3
0064 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0065 e20d | | Load 0x1,0xd
0066 00dc | | Load_Top At_Offset_4
0067 0267 | g | Execute Discrete,Predecessor
0068 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0069 e20d | | Load 0x1,0xd
006a 00dc | | Load_Top At_Offset_4
006b 0268 | h | Execute Discrete,Successor
006c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
006d 0000 0000 | | .XXX[0x3]
006f 0000 | |
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 007b | { | .CONST 0x007b ; Address of begin
0071 0004 | | .CONST 0x0004 ; Address of exception handler
0072 0002 | | .CONST 0x0002 ; Number of locals
0073 INIT_0070:
0073 e002 | | Load 0x0,0x2
0074 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0075 02c7 | | Declare_Variable Any
0076 e5fd | | Load 0x2,-0x3
0077 e5fe | | Load 0x2,-0x2
0078 e5ff | | Load 0x2,-0x1
0079 8215 | | Call 0x1,0x15
007a a402 | | Store_Unchecked 0x2,0x2
007b BODY_0070:
007b 00d8 | | Load_Top At_Offset_0
007c e001 | | Load 0x0,0x1
007d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
007e 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
007f 00cf | | Action Mark_Auxiliary
0080 780f |x | Jump 0x90
0081 e5fe | | Load 0x2,-0x2
0082 00da | | Load_Top At_Offset_2
0083 e001 | | Load 0x0,0x1
0084 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0085 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0086 8216 | | Call 0x1,0x16
0087 6802 |h | Jump_Zero 0x8a
0088 4801 |H | Short_Literal 0x1
0089 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
008a 00d9 | | Load_Top At_Offset_1
008b e001 | | Load 0x0,0x1
008c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
008d 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
008e c402 | | Store 0x2,0x2
008f 00c9 | | Action Pop_Auxiliary_Loop
0090 00d9 | | Load_Top At_Offset_1
0091 e001 | | Load 0x0,0x1
0092 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0093 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0094 6fec |o | Jump_Zero 0x81
0095 00ce | | Action Pop_Auxiliary
0096 4800 |H | Short_Literal 0x0
0097 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 00ab | | .CONST 0x00ab ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0004 | | .CONST 0x0004 ; Number of locals
009b INIT_0098:
009b e002 | | Load 0x0,0x2
009c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
009d 02c7 | | Declare_Variable Any
009e e5fd | | Load 0x2,-0x3
009f e5fe | | Load 0x2,-0x2
00a0 e5ff | | Load 0x2,-0x1
00a1 8215 | | Call 0x1,0x15
00a2 a402 | | Store_Unchecked 0x2,0x2
00a3 e002 | | Load 0x0,0x2
00a4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00a5 02c7 | | Declare_Variable Any
00a6 e001 | | Load 0x0,0x1
00a7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00a8 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
00a9 a403 | | Store_Unchecked 0x2,0x3
00aa 00e1 | | Load_Encached Boolean_Cache
00ab BODY_0098:
00ab 00da | | Load_Top At_Offset_2
00ac e001 | | Load 0x0,0x1
00ad 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ae 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
00af 00cf | | Action Mark_Auxiliary
00b0 781a |x | Jump 0xcb
00b1 e5fe | | Load 0x2,-0x2
00b2 e402 | | Load 0x2,0x2
00b3 e001 | | Load 0x0,0x1
00b4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00b5 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
00b6 8216 | | Call 0x1,0x16
00b7 680d |h | Jump_Zero 0xc5
00b8 00e1 | | Load_Encached Boolean_Cache
00b9 e001 | | Load 0x0,0x1
00ba 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00bb 180e | | Execute Package,Field_Execute,Field_Number 0xe
00bc e402 | | Load 0x2,0x2
00bd e001 | | Load 0x0,0x1
00be 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00bf 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
00c0 e403 | | Load 0x2,0x3
00c1 e001 | | Load 0x0,0x1
00c2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00c3 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
00c4 005a | Z | Store_Top Discrete,At_Offset_2
00c5 00db | | Load_Top At_Offset_3
00c6 e001 | | Load 0x0,0x1
00c7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00c8 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
00c9 c402 | | Store 0x2,0x2
00ca 00c9 | | Action Pop_Auxiliary_Loop
00cb 00db | | Load_Top At_Offset_3
00cc e001 | | Load 0x0,0x1
00cd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ce 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
00cf 6fe1 |o | Jump_Zero 0xb1
00d0 00ce | | Action Pop_Auxiliary
00d1 00d9 | | Load_Top At_Offset_1
00d2 e001 | | Load 0x0,0x1
00d3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00d4 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
00d5 00d9 | | Load_Top At_Offset_1
00d6 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
00d7 0000 | | .XXX[0x1]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00e1 | | .CONST 0x00e1 ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0002 | | .CONST 0x0002 ; Number of locals
00db INIT_00d8:
00db e002 | | Load 0x0,0x2
00dc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00dd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00de 02c7 | | Declare_Variable Any
00df 00db | | Load_Top At_Offset_3
00e0 a402 | | Store_Unchecked 0x2,0x2
00e1 BODY_00d8:
00e1 00db | | Load_Top At_Offset_3
00e2 e002 | | Load 0x0,0x2
00e3 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00e4 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
00e5 6802 |h | Jump_Zero 0xe8
00e6 4800 |H | Short_Literal 0x0
00e7 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
00e8 00cf | | Action Mark_Auxiliary
00e9 00d9 | | Load_Top At_Offset_1
00ea e001 | | Load 0x0,0x1
00eb 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00ec 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00ed c402 | | Store 0x2,0x2
00ee e5fe | | Load 0x2,-0x2
00ef 00da | | Load_Top At_Offset_2
00f0 8216 | | Call 0x1,0x16
00f1 6802 |h | Jump_Zero 0xf4
00f2 4801 |H | Short_Literal 0x1
00f3 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
00f4 00d9 | | Load_Top At_Offset_1
00f5 e002 | | Load 0x0,0x2
00f6 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00f7 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
00f8 6802 |h | Jump_Zero 0xfb
00f9 4800 |H | Short_Literal 0x0
00fa 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
00fb e5fd | | Load 0x2,-0x3
00fc 7002 |p | Jump_Nonzero 0xff
00fd 4800 |H | Short_Literal 0x0
00fe 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
00ff 00c9 | | Action Pop_Auxiliary_Loop
0100 7fe8 | | Jump 0xe9
0101 0000 0000 | | .BLANK 0000[0x7]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 0111 | | .CONST 0x0111 ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0002 | | .CONST 0x0002 ; Number of locals
010b INIT_0108:
010b e002 | | Load 0x0,0x2
010c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
010d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
010e 02c7 | | Declare_Variable Any
010f 00db | | Load_Top At_Offset_3
0110 a402 | | Store_Unchecked 0x2,0x2
0111 BODY_0108:
0111 00db | | Load_Top At_Offset_3
0112 e001 | | Load 0x0,0x1
0113 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0114 180f | | Execute Package,Field_Execute,Field_Number 0xf
0115 6802 |h | Jump_Zero 0x118
0116 e20e | | Load 0x1,0xe
0117 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0118 00db | | Load_Top At_Offset_3
0119 e002 | | Load 0x0,0x2
011a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
011b 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
011c 6802 |h | Jump_Zero 0x11f
011d e20e | | Load 0x1,0xe
011e 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
011f 00cf | | Action Mark_Auxiliary
0120 00d9 | | Load_Top At_Offset_1
0121 e001 | | Load 0x0,0x1
0122 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0123 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0124 c402 | | Store 0x2,0x2
0125 e5fe | | Load 0x2,-0x2
0126 00da | | Load_Top At_Offset_2
0127 8216 | | Call 0x1,0x16
0128 6802 |h | Jump_Zero 0x12b
0129 00d9 | | Load_Top At_Offset_1
012a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
012b 00d9 | | Load_Top At_Offset_1
012c e002 | | Load 0x0,0x2
012d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
012e 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
012f 6802 |h | Jump_Zero 0x132
0130 e20e | | Load 0x1,0xe
0131 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0132 e5fd | | Load 0x2,-0x3
0133 7002 |p | Jump_Nonzero 0x136
0134 e20e | | Load 0x1,0xe
0135 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0136 00c9 | | Action Pop_Auxiliary_Loop
0137 7fe8 | | Jump 0x120
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b | ; | .CONST 0x013b ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0001 | | .CONST 0x0001 ; Number of locals
013b BODY_0138:
013b INIT_0138:
013b 00da | | Load_Top At_Offset_2
013c 4615 |F | Jump_Case 0x16
013d 7815 |x | Jump 0x153 ; case 0x0
013e 7816 |x | Jump 0x155 ; case 0x1
013f 7818 |x | Jump 0x158 ; case 0x2
0140 781a |x | Jump 0x15b ; case 0x3
0141 7819 |x | Jump 0x15b ; case 0x4
0142 781b |x | Jump 0x15e ; case 0x5
0143 780f |x | Jump 0x153 ; case 0x6
0144 781c |x | Jump 0x161 ; case 0x7
0145 781e |x | Jump 0x164 ; case 0x8
0146 7820 |x | Jump 0x167 ; case 0x9
0147 781f |x | Jump 0x167 ; case 0xa
0148 781e |x | Jump 0x167 ; case 0xb
0149 781d |x | Jump 0x167 ; case 0xc
014a 781f |x | Jump 0x16a ; case 0xd
014b 7807 |x | Jump 0x153 ; case 0xe
014c 7820 |x | Jump 0x16d ; case 0xf
014d 7822 |x" | Jump 0x170 ; case 0x10
014e 7824 |x$ | Jump 0x173 ; case 0x11
014f 7826 |x& | Jump 0x176 ; case 0x12
0150 7802 |x | Jump 0x153 ; case 0x13
0151 7801 |x | Jump 0x153 ; case 0x14
0152 7800 |x | Jump 0x153 ; case 0x15
0153 00ea | | Load_Encached Null_String_Cache
0154 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0155 0092 024e | N| Action Push_String_Extended,0x24e ; "'C(LIBRARY)"
0157 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0158 0092 024f | O| Action Push_String_Extended,0x24f ; "'C(DIRECTORY)"
015a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
015b 0092 0250 | P| Action Push_String_Extended,0x250 ; "'C(WORLD)"
015d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
015e 0092 0251 | Q| Action Push_String_Extended,0x251 ; "'C(SUBSYSTEM)"
0160 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0161 0092 0252 | R| Action Push_String_Extended,0x252 ; "'C(SPEC_VIEW,LOAD_VIEW,COMBINED_VIEW)"
0163 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0164 0092 0253 | S| Action Push_String_Extended,0x253 ; "'C(SPEC_VIEW)"
0166 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0167 0092 0254 | T| Action Push_String_Extended,0x254 ; "'C(LOAD_VIEW)"
0169 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
016a 0092 0255 | U| Action Push_String_Extended,0x255 ; "'C(COMBINED_VIEW)"
016c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
016d 0092 0256 | V| Action Push_String_Extended,0x256 ; "'C(~LIBRARY)"
016f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0170 0092 0257 | W| Action Push_String_Extended,0x257 ; "'C(ADA)"
0172 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0173 0092 0258 | X| Action Push_String_Extended,0x258 ; "'C(FILE)"
0175 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0176 0092 0259 | Y| Action Push_String_Extended,0x259 ; "'C(~LIBRARY)'C(~ADA)'C(~FILE)"
0178 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0179 0000 0000 | | .BLANK 0000[0x7]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183 | | .CONST 0x0183 ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0001 | | .CONST 0x0001 ; Number of locals
0183 BODY_0180:
0183 INIT_0180:
0183 e5fd | | Load 0x2,-0x3
0184 6812 |h | Jump_Zero 0x197
0185 4801 |H | Short_Literal 0x1
0186 e001 | | Load 0x0,0x1
0187 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0188 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0189 e5ff | | Load 0x2,-0x1
018a e001 | | Load 0x0,0x1
018b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
018c 1820 | | Execute Package,Field_Execute,Field_Number 0x20
018d 0092 025a | Z| Action Push_String_Extended,0x25a ; ".??"
018f 01cc | | Execute Vector,Catenate
0190 e5fe | | Load 0x2,-0x2
0191 8214 | | Call 0x1,0x14
0192 01cc | | Execute Vector,Catenate
0193 e001 | | Load 0x0,0x1
0194 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0195 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0196 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0197 4801 |H | Short_Literal 0x1
0198 e001 | | Load 0x0,0x1
0199 1b0e | | Execute Package,Field_Read,Field_Number 0xe
019a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
019b e5ff | | Load 0x2,-0x1
019c e001 | | Load 0x0,0x1
019d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
019e 1820 | | Execute Package,Field_Execute,Field_Number 0x20
019f 0092 025b | [| Action Push_String_Extended,0x25b ; ".@"
01a1 01cc | | Execute Vector,Catenate
01a2 e5fe | | Load 0x2,-0x2
01a3 8214 | | Call 0x1,0x14
01a4 01cc | | Execute Vector,Catenate
01a5 e001 | | Load 0x0,0x1
01a6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01a7 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
01a8 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
01a9 0000 0000 | | .BLANK 0000[0x7]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3 | | .CONST 0x01b3 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0001 | | .CONST 0x0001 ; Number of locals
01b3 BODY_01b0:
01b3 INIT_01b0:
01b3 00db | | Load_Top At_Offset_3
01b4 4615 |F | Jump_Case 0x16
01b5 781a |x | Jump 0x1d0 ; case 0x0
01b6 781b |x | Jump 0x1d2 ; case 0x1
01b7 781f |x | Jump 0x1d7 ; case 0x2
01b8 7823 |x# | Jump 0x1dc ; case 0x3
01b9 7827 |x' | Jump 0x1e1 ; case 0x4
01ba 782b |x+ | Jump 0x1e6 ; case 0x5
01bb 782f |x/ | Jump 0x1eb ; case 0x6
01bc 7833 |x3 | Jump 0x1f0 ; case 0x7
01bd 7837 |x7 | Jump 0x1f5 ; case 0x8
01be 783b |x; | Jump 0x1fa ; case 0x9
01bf 783f |x? | Jump 0x1ff ; case 0xa
01c0 7843 |xC | Jump 0x204 ; case 0xb
01c1 7847 |xG | Jump 0x209 ; case 0xc
01c2 784b |xK | Jump 0x20e ; case 0xd
01c3 784f |xO | Jump 0x213 ; case 0xe
01c4 7853 |xS | Jump 0x218 ; case 0xf
01c5 7857 |xW | Jump 0x21d ; case 0x10
01c6 785b |x[ | Jump 0x222 ; case 0x11
01c7 785f |x_ | Jump 0x227 ; case 0x12
01c8 7863 |xc | Jump 0x22c ; case 0x13
01c9 7867 |xg | Jump 0x231 ; case 0x14
01ca 7800 |x | Jump 0x1cb ; case 0x15
01cb 00da | | Load_Top At_Offset_2
01cc e002 | | Load 0x0,0x2
01cd 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01ce 1820 | | Execute Package,Field_Execute,Field_Number 0x20
01cf 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01d0 4801 |H | Short_Literal 0x1
01d1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01d2 00da | | Load_Top At_Offset_2
01d3 e002 | | Load 0x0,0x2
01d4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01d5 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
01d6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01d7 00da | | Load_Top At_Offset_2
01d8 e002 | | Load 0x0,0x2
01d9 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01da 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
01db 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01dc 00da | | Load_Top At_Offset_2
01dd e002 | | Load 0x0,0x2
01de 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01df 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
01e0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01e1 00da | | Load_Top At_Offset_2
01e2 e002 | | Load 0x0,0x2
01e3 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01e4 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
01e5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01e6 00da | | Load_Top At_Offset_2
01e7 e002 | | Load 0x0,0x2
01e8 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01e9 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
01ea 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01eb 00da | | Load_Top At_Offset_2
01ec e002 | | Load 0x0,0x2
01ed 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01ee 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
01ef 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01f0 00da | | Load_Top At_Offset_2
01f1 e002 | | Load 0x0,0x2
01f2 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01f3 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
01f4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01f5 00da | | Load_Top At_Offset_2
01f6 e002 | | Load 0x0,0x2
01f7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01f8 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
01f9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01fa 00da | | Load_Top At_Offset_2
01fb e002 | | Load 0x0,0x2
01fc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01fd 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
01fe 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01ff 00da | | Load_Top At_Offset_2
0200 e002 | | Load 0x0,0x2
0201 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0202 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0203 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0204 00da | | Load_Top At_Offset_2
0205 e002 | | Load 0x0,0x2
0206 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0207 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
0208 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0209 00da | | Load_Top At_Offset_2
020a e002 | | Load 0x0,0x2
020b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
020c 1842 | B | Execute Package,Field_Execute,Field_Number 0x42
020d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
020e 00da | | Load_Top At_Offset_2
020f e002 | | Load 0x0,0x2
0210 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0211 1843 | C | Execute Package,Field_Execute,Field_Number 0x43
0212 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0213 00da | | Load_Top At_Offset_2
0214 e002 | | Load 0x0,0x2
0215 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0216 1844 | D | Execute Package,Field_Execute,Field_Number 0x44
0217 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0218 00da | | Load_Top At_Offset_2
0219 e002 | | Load 0x0,0x2
021a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
021b 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
021c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
021d 00da | | Load_Top At_Offset_2
021e e002 | | Load 0x0,0x2
021f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0220 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
0221 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0222 00da | | Load_Top At_Offset_2
0223 e002 | | Load 0x0,0x2
0224 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0225 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0226 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0227 00da | | Load_Top At_Offset_2
0228 e002 | | Load 0x0,0x2
0229 1b0f | | Execute Package,Field_Read,Field_Number 0xf
022a 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
022b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
022c 00da | | Load_Top At_Offset_2
022d e002 | | Load 0x0,0x2
022e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
022f 1849 | I | Execute Package,Field_Execute,Field_Number 0x49
0230 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0231 00da | | Load_Top At_Offset_2
0232 e002 | | Load 0x0,0x2
0233 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0234 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0235 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0236 ; --------------------------------------------------------------------------------------
0236 ; STRING TABLE
0236 ; --------------------------------------------------------------------------------------
0236 004e | N | .STRTAB 0x004e->0x025d ; "ANYTHING"
0237 0054 | T | .STRTAB 0x0054->0x0261 ; "LIBRARY"
0238 0059 | Y | .STRTAB 0x0059->0x0264 ; "DIRECTORY"
0239 0060 | ` | .STRTAB 0x0060->0x0269 ; "WORLD"
023a 0063 | c | .STRTAB 0x0063->0x026b ; "SIMPLE_WORLD"
023b 006d | m | .STRTAB 0x006d->0x0271 ; "SUBSYSTEM"
023c 0074 | t | .STRTAB 0x0074->0x0276 ; "ROOT"
023d 0076 | v | .STRTAB 0x0076->0x0278 ; "VIEW"
023e 0078 | x | .STRTAB 0x0078->0x027a ; "SPEC_VIEW"
023f 007f | | .STRTAB 0x007f->0x027e ; "LOAD_VIEW"
0240 0086 | | .STRTAB 0x0086->0x0283 ; "WORKING_LOAD_VIEW"
0241 0095 | | .STRTAB 0x0095->0x028b ; "RELEASED_LOAD_VIEW"
0242 00a5 | | .STRTAB 0x00a5->0x0294 ; "CODE_ONLY_LOAD_VIEW"
0243 00b6 | | .STRTAB 0x00b6->0x029e ; "COMBINED_VIEW"
0244 00c1 | | .STRTAB 0x00c1->0x02a4 ; "UNITS_DIRECTORY_OF_VIEW"
0245 00d6 | | .STRTAB 0x00d6->0x02b0 ; "SIMPLE_OBJECT"
0246 00e1 | | .STRTAB 0x00e1->0x02b6 ; "ADA_UNIT"
0247 00e7 | | .STRTAB 0x00e7->0x02ba ; "FILE"
0248 00e9 | | .STRTAB 0x00e9->0x02bc ; "MISC_SIMPLE_OBJECT"
0249 00f9 | | .STRTAB 0x00f9->0x02c5 ; "FROZEN"
024a 00fd | | .STRTAB 0x00fd->0x02c8 ; "CONTROLLED"
024b 0105 | | .STRTAB 0x0105->0x02cd ; "CHECKED_OUT"
024c 010e | | .STRTAB 0x010e->0x02d3 ; "*** THIS IS A BAD OBJECT ***"
024d 0128 | ( | .STRTAB 0x0128->0x02e1 ; "*** THESE ARE BAD OBJECTS ***"
024e 0143 | C | .STRTAB 0x0143->0x02ef ; "'C(LIBRARY)"
024f 014c | L | .STRTAB 0x014c->0x02f5 ; "'C(DIRECTORY)"
0250 0157 | W | .STRTAB 0x0157->0x02fb ; "'C(WORLD)"
0251 015e | ^ | .STRTAB 0x015e->0x0300 ; "'C(SUBSYSTEM)"
0252 0169 | i | .STRTAB 0x0169->0x0306 ; "'C(SPEC_VIEW,LOAD_VIEW,COMBINED_VIEW)"
0253 018c | | .STRTAB 0x018c->0x0319 ; "'C(SPEC_VIEW)"
0254 0197 | | .STRTAB 0x0197->0x031f ; "'C(LOAD_VIEW)"
0255 01a2 | | .STRTAB 0x01a2->0x0326 ; "'C(COMBINED_VIEW)"
0256 01b1 | | .STRTAB 0x01b1->0x032e ; "'C(~LIBRARY)"
0257 01bb | | .STRTAB 0x01bb->0x0334 ; "'C(ADA)"
0258 01c0 | | .STRTAB 0x01c0->0x0338 ; "'C(FILE)"
0259 01c6 | | .STRTAB 0x01c6->0x033c ; "'C(~LIBRARY)'C(~ADA)'C(~FILE)"
025a 01e1 | | .STRTAB 0x01e1->0x034a ; ".??"
025b 01e2 | | .STRTAB 0x01e2->0x034c ; ".@"
025c 01e2 | | .STREND 0x01e2->0x034d
025d 414e 5954 |ANYT| .STRTAB_STRINGS
034d 0000 0000 | | .XXX[0x3]
034f 0000 | |
0350 ; --------------------------------------------------------------------------------------
0350 ; Debug Table
0350 ; --------------------------------------------------------------------------------------
0350 0004 0004 | | .DEBUG4 0x0004,0x0004,0x2c76,0x0000,0x0001,0x000a
0356 000b 037e | ~| .DBG4T 0x000b,0x037e,0x0000,0x0000
035a 0033 0387 | 3 | .DBG4T 0x0033,0x0387,0x0000,0x0000
035e 004b 0000 | K | .DBG4T 0x004b,0x0000,0x0005,0x0000
0362 0073 0390 | s | .DBG4T 0x0073,0x0390,0x0002,0x4000
0366 009b 039f | | .DBG4T 0x009b,0x039f,0x0002,0x4000
036a 00db 03b2 | | .DBG4T 0x00db,0x03b2,0x0002,0x4000
036e 010b 03c7 | | .DBG4T 0x010b,0x03c7,0x0002,0x4000
0372 013b 03e0 | ; | .DBG4T 0x013b,0x03e0,0x0002,0x4000
0376 0183 03fe | | .DBG4T 0x0183,0x03fe,0x0002,0x0000
037a 01b3 0403 | | .DBG4T 0x01b3,0x0403,0x0002,0x4000
037e ; --------------------------------------------------------------------------------------
037e ; Debug chain
037e ; --------------------------------------------------------------------------------------
037e 0007 0000 | | .DBGLEN 0x0007,0x0000
0380 000b 0010 | | .DBGLNO 0x000b,0x0010,0x001d,0x002a,0x002c,0x002e,0x0030
0387 ; --------------------------------------------------------------------------------------
0387 ; Debug chain
0387 ; --------------------------------------------------------------------------------------
0387 0007 0000 | | .DBGLEN 0x0007,0x0000
0389 0033 0035 | 3 5| .DBGLNO 0x0033,0x0035,0x0037,0x0039,0x003b,0x003d,0x003f
0390 ; --------------------------------------------------------------------------------------
0390 ; Debug chain
0390 ; --------------------------------------------------------------------------------------
0390 0001 0006 | | .DBGLEN 0x0001,0x0006
0392 0073 007b | s {| .DBGLNO 0x0073,0x007b,0x0081,0x0088,0x008a,0x0090,0x0096
0399 0001 0003 | | .XXX[0x6]
039b 0004 0005 | |
039d 0002 0006 | |
039f ; --------------------------------------------------------------------------------------
039f ; Debug chain
039f ; --------------------------------------------------------------------------------------
039f 0003 0007 | | .DBGLEN 0x0003,0x0007
03a1 009b 00a3 | | .DBGLNO 0x009b,0x00a3,0x00aa,0x00ab,0x00b1,0x00b8,0x00c5,0x00cb,0x00d1,0x00d5
03ab 0001 0003 | | .XXX[0x7]
03ad 0004 0005 | |
03af 0002 0006 | |
03b1 0007 | |
03b2 ; --------------------------------------------------------------------------------------
03b2 ; Debug chain
03b2 ; --------------------------------------------------------------------------------------
03b2 0001 0009 | | .DBGLEN 0x0001,0x0009
03b4 00db 00e1 | | .DBGLNO 0x00db,0x00e1,0x00e6,0x00e9,0x00ee,0x00f2,0x00f4,0x00f9,0x00fb,0x00fd
03be 0001 0002 | | .XXX[0x9]
03c0 0004 0005 | |
03c2 0006 0007 | |
03c4 0008 0009 | |
03c6 000a | |
03c7 ; --------------------------------------------------------------------------------------
03c7 ; Debug chain
03c7 ; --------------------------------------------------------------------------------------
03c7 0001 000b | | .DBGLEN 0x0001,0x000b
03c9 010b 0111 | | .DBGLNO 0x010b,0x0111,0x0116,0x0118,0x011d,0x0120,0x0125,0x0129,0x012b,0x0130,0x0132,0x0134
03d5 0001 0002 | | .XXX[0xb]
03d7 0003 0004 | |
03d9 0006 0007 | |
03db 0008 0009 | |
03dd 000a 000b | |
03df 000c | |
03e0 ; --------------------------------------------------------------------------------------
03e0 ; Debug chain
03e0 ; --------------------------------------------------------------------------------------
03e0 0000 000e | | .DBGLEN 0x0000,0x000e
03e2 013b 0153 | ; S| .DBGLNO 0x013b,0x0153,0x0155,0x0158,0x015b,0x015e,0x0161,0x0164,0x0167,0x016a,0x016d,0x0170,0x0173,0x0176
03f0 0001 000e | | .XXX[0xe]
03f2 0002 0003 | |
03f4 0004 0005 | |
03f6 0006 0007 | |
03f8 0008 0009 | |
03fa 000a 000b | |
03fc 000c 000d | |
03fe ; --------------------------------------------------------------------------------------
03fe ; Debug chain
03fe ; --------------------------------------------------------------------------------------
03fe 0000 0003 | | .DBGLEN 0x0000,0x0003
0400 0183 0185 | | .DBGLNO 0x0183,0x0185,0x0197
0403 ; --------------------------------------------------------------------------------------
0403 ; Debug chain
0403 ; --------------------------------------------------------------------------------------
0403 0000 0017 | | .DBGLEN 0x0000,0x0017
0405 01b3 01cb | | .DBGLNO 0x01b3,0x01cb,0x01d0,0x01d2,0x01d7,0x01dc,0x01e1,0x01e6,0x01eb,0x01f0,0x01f5,0x01fa,0x01ff,0x0204,0x0209,0x020e,0x0213,0x0218,0x021d,0x0222,0x0227,0x022c,0x0231
041c 0001 0017 | | .XXX[0x17]
041e 0002 0003 | |
0420 0004 0005 | |
0422 0006 0007 | |
0424 0008 0009 | |
0426 000a 000b | |
0428 000c 000d | |
042a 000e 000f | |
042c 0010 0011 | |
042e 0012 0013 | |
0430 0014 0015 | |
0432 0016 | |
0433 0000 0000 | | .BLANK 0000[0x1cd]