|
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: 6144 (0x1800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_1e5cd8
└─⟦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 0b80 | | .CONST 0x0b80 ; 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 0005 | | .CONST 0x0005 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00ad | | .CONST 0x00ad ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0055 | U | .CONST 0x0055 ; Number of locals
000b INIT_0008:
000b 00c4 | | Action Make_Default
000c 00c4 | | Action Make_Default
000d 00c4 | | Action Make_Default
000e 00c4 | | Action Make_Default
000f 00c4 | | Action Make_Default
0010 00c4 | | Action Make_Default
0011 00c4 | | Action Make_Default
0012 00c4 | | Action Make_Default
0013 00c4 | | Action Make_Default
0014 00c4 | | Action Make_Default
0015 00c4 | | Action Make_Default
0016 00c4 | | Action Make_Default
0017 00c4 | | Action Make_Default
0018 00c4 | | Action Make_Default
0019 00c4 | | Action Make_Default
001a 00c4 | | Action Make_Default
001b 00c4 | | Action Make_Default
001c 00c4 | | Action Make_Default
001d 00c4 | | Action Make_Default
001e 00c4 | | Action Make_Default
001f 00c4 | | Action Make_Default
0020 00c4 | | Action Make_Default
0021 00c4 | | Action Make_Default
0022 00c4 | | Action Make_Default
0023 00c4 | | Action Make_Default
0024 00c4 | | Action Make_Default
0025 00c4 | | Action Make_Default
0026 00c4 | | Action Make_Default
0027 00c4 | | Action Make_Default
0028 00c4 | | Action Make_Default
0029 00c4 | | Action Make_Default
002a 00c4 | | Action Make_Default
002b 00c4 | | Action Make_Default
002c 00c4 | | Action Make_Default
002d 00c4 | | Action Make_Default
002e 00c4 | | Action Make_Default
002f 00c4 | | Action Make_Default
0030 00c4 | | Action Make_Default
0031 00c4 | | Action Make_Default
0032 00c4 | | Action Make_Default
0033 00c4 | | Action Make_Default
0034 00c4 | | Action Make_Default
0035 00c4 | | Action Make_Default
0036 00c4 | | Action Make_Default
0037 00c4 | | Action Make_Default
0038 00c4 | | Action Make_Default
0039 00c4 | | Action Make_Default
003a 00c4 | | Action Make_Default
003b 00c4 | | Action Make_Default
003c 00c4 | | Action Make_Default
003d 00c4 | | Action Make_Default
003e 00c4 | | Action Make_Default
003f 00c4 | | Action Make_Default
0040 00c4 | | Action Make_Default
0041 00c4 | | Action Make_Default
0042 00c4 | | Action Make_Default
0043 00c4 | | Action Make_Default
0044 00c4 | | Action Make_Default
0045 00c4 | | Action Make_Default
0046 00c4 | | Action Make_Default
0047 00c4 | | Action Make_Default
0048 00c4 | | Action Make_Default
0049 00c4 | | Action Make_Default
004a 00c4 | | Action Make_Default
004b 00c4 | | Action Make_Default
004c 00c4 | | Action Make_Default
004d 00c4 | | Action Make_Default
004e 00c4 | | Action Make_Default
004f 00c4 | | Action Make_Default
0050 00c4 | | Action Make_Default
0051 00c4 | | Action Make_Default
0052 00c4 | | Action Make_Default
0053 00c4 | | Action Make_Default
0054 0092 00af | | Action Push_String_Extended,0xaf ; "This switch allows the user to control the amount of compilation information that is generated in a compiler listing. The valid options for this switch are (CODE, MAP, ALL, NONE). [ASSEMBLY=CODE - Include compiled object code in the compilation listing, in both assembly-language and hexadecimal forms]. [ASSEMBLY=MAP - Include a (relocatable) memory map in the compilation listing showing the position of data objects]. [ASSEMBLY=ALL - Include information as for both CODE and MAP]. [ASSEMBLY=NONE - Do not list any object code or map information]. (DEFAULT => NONE)"
0056 0129 | ) | Execute Any,Make_Visible
0057 c220 | | Store 0x1,0x20
0058 0092 00b0 | | Action Push_String_Extended,0xb0 ; "This switch lets you specify whether or not you want to have all the execution checks requested by Ada to be included in the object code. The valid options for this switch are (ALL, STACK, NONE). [CHECKS=ALL - All run time checks are performed]. [CHECKS=STACK - Suppress Ada checks, but leave stack overflow checks enabled]. [CHECKS=NONE - No checking will be performed]. NOTE : Checks can also be individually suppressed by using the pragma SUPPRESS. (DEFAULT => NONE)"
005a 0129 | ) | Execute Any,Make_Visible
005b c222 | " | Store 0x1,0x22
005c 0092 00b1 | | Action Push_String_Extended,0xb1 ; "This switch controls the presence of map information from the Binder and Linker. The valid options for this switch are (BIND, LINK, ALL, NONE). [DATA=BIND] - a map is written by the Binder. [DATA=LINK] - a map is written by the Linker. [DATA=ALL] - the map includes information from both the Binder and Linker. (DEFAULT => NONE)"
005e 0129 | ) | Execute Any,Make_Visible
005f c22d | - | Store 0x1,0x2d
0060 0092 00b2 | | Action Push_String_Extended,0xb2 ; "Part of the compiler optimizer that lets you control the actions of the high level optimizer to obtain a smaller and/or faster program. The valid options for this switch are (NONE, PARTIAL, EXTENSIVE). [EXPRESSIONS=NONE - No low level optimization is performed]. [EXPRESSIONS=PARTIAL - Common subexpressions are eliminated]. [EXPRESSIONS=EXTENSIVE - Currently, EXTENSIVE and PARTIAL code improvements are the same]. (DEFAULT => NONE)"
0062 0129 | ) | Execute Any,Make_Visible
0063 c23e | > | Store 0x1,0x3e
0064 0092 00b3 | | Action Push_String_Extended,0xb3 ; "Contains a string which can be set by the user to a remote Unix directory name. If this switch value is non-null, its value will be used as the view's remote Alsys family directory. Otherwise the view's family directory name will be extracted from its Remote_Directory name. (DEFAULT => null)"
0066 0129 | ) | Execute Any,Make_Visible
0067 c250 | P | Store 0x1,0x50
0068 0092 00b4 | | Action Push_String_Extended,0xb4 ; "If TRUE, return the Binder listing ('remote_file.map') to the host after a Link. (DEFAULT => TRUE)"
006a 0129 | ) | Execute Any,Make_Visible
006b c251 | Q | Store 0x1,0x51
006c 0092 00b5 | | Action Push_String_Extended,0xb5 ; "If TRUE, return the compilation listing ('remote_file.lis') to the host after a Compile. (DEFAULT => TRUE)"
006e 0129 | ) | Execute Any,Make_Visible
006f c252 | R | Store 0x1,0x52
0070 0092 00b6 | | Action Push_String_Extended,0xb6 ; "If TRUE, return the cui file ('remote_file.cui') to the host after a Link. (DEFAULT => FALSE)"
0072 0129 | ) | Execute Any,Make_Visible
0073 c253 | S | Store 0x1,0x53
0074 0092 00b7 | | Action Push_String_Extended,0xb7 ; "If TRUE, return the Executable file ('remote_file', with no extension) to the host after a Link. (DEFAULT => FALSE)"
0076 0129 | ) | Execute Any,Make_Visible
0077 c243 | C | Store 0x1,0x43
0078 0092 00b8 | | Action Push_String_Extended,0xb8 ; "If TRUE, return the lnk file ('remote_file.lnk') to the host after a Link. (DEFAULT => FALSE)"
007a 0129 | ) | Execute Any,Make_Visible
007b c254 | T | Store 0x1,0x54
007c 0092 00b9 | | Action Push_String_Extended,0xb9 ; "If 'YES', provide a dynamic trace of subprogram calls for use when an unhandled exception is propagated out of the main program (HISTORY=YES). If 'NO', no dynamic error trace will be generated (HISTORY=NO). (DEFAULT => YES)"
007e 0129 | ) | Execute Any,Make_Visible
007f c245 | E | Store 0x1,0x45
0080 0092 00ba | | Action Push_String_Extended,0xba ; "Part of the compiler optimizer that lets you control the actions of the high level optimizer to obtain a smaller and/or faster program. If set to INLINED, allow inline insertions of code for subprograms (CALLS=INLINED). Calls will be inlined if subprograms are not recursive. The compiler will also put some other subprograms inline (for example, subprograms that are only called once). If set to NORMAL, use the normal mode for subprogram calls (CALLS=NORMAL). NOTE : This switch has to be set to INLINED for the pragma Inline to be operative. (DEFAULT => NORMAL)"
0082 0129 | ) | Execute Any,Make_Visible
0083 c24b | K | Store 0x1,0x4b
0084 0092 00bb | | Action Push_String_Extended,0xbb ; "The amount by which the heap is increased. (DEFAULT => 4)"
0086 0129 | ) | Execute Any,Make_Visible
0087 c22c | , | Store 0x1,0x2c
0088 0092 00bc | | Action Push_String_Extended,0xbc ; "If 'YES', indicates that the compiler and the linker should generate and save AdaProbe information (DEBUG=YES). If 'NO', AdaProbe information will not be generated (DEBUG=NO). (DEFAULT => NO)"
008a 0129 | ) | Execute Any,Make_Visible
008b c255 | U | Store 0x1,0x55
008c 0092 00bd | | Action Push_String_Extended,0xbd ; "Specifies the size for the main program stack. (DEFAULT => 96)"
008e 0129 | ) | Execute Any,Make_Visible
008f c228 | ( | Store 0x1,0x28
0090 0092 00be | | Action Push_String_Extended,0xbe ; "The number of internal buffers shared by the compiler virtual memory, in K bytes. Usually, this value should not be changed, but if you have a lot of VDISK memory, you might want to use more buffers to speed up compilation. If the compiler reports 'STORAGE_ERROR' during compilation, you might want to lower this number. (DEFAULT => 500)"
0092 0129 | ) | Execute Any,Make_Visible
0093 c226 | & | Store 0x1,0x26
0094 0092 00bf | | Action Push_String_Extended,0xbf ; "Part of the compiler optimizer that lets you control the actions of the high level optimizer to obtain a smaller and/or faster program. The valid options for this switch are (NONE, PARTIAL, EXTENSIVE). [REDUCTION=NONE - No action is taken with reference to the optimization of checks or loops]. [REDUCTION=PARTIAL - An analysis is performed, numerous run time checks are eliminated, and extensive dead code removal takes place]. [REDUCTION=EXTENSIVE - All the optimization implied in PARTIAL is performed, plus a more extensive optimization for loops]. (DEFAULT => NONE)"
0096 0129 | ) | Execute Any,Make_Visible
0097 c223 | # | Store 0x1,0x23
0098 0092 00c0 | | Action Push_String_Extended,0xc0 ; "Used to control what goes into the compilation listing. The valid options for this switch are (BANNER, RECAP, ALL, NONE). [SHOW=BANNER - Print a header atop each page of the listing]. [SHOW=RECAP - Include an error summary at the end of the listing]. [SHOW=ALL - Include both page headers and an error summary]. [SHOW=NONE - Include neither headers nor an error summary]. (DEFAULT => ALL)"
009a 0129 | ) | Execute Any,Make_Visible
009b c24d | M | Store 0x1,0x4d
009c 0092 00c1 | | Action Push_String_Extended,0xc1 ; "Used to control the initial size of the heap. (DEFAULT => 32)"
009e 0129 | ) | Execute Any,Make_Visible
009f c22b | + | Store 0x1,0x2b
00a0 0092 00c2 | | Action Push_String_Extended,0xc2 ; "This switch gives the user control over data allocation. The actual value specifies the limit for local objects into the heap. (DEFAULT => 1024)"
00a2 0129 | ) | Execute Any,Make_Visible
00a3 c227 | ' | Store 0x1,0x27
00a4 0092 00c3 | | Action Push_String_Extended,0xc3 ; "Specifies the sizes for the main program stack and for the stacks of all explicit Ada tasks. (DEFAULT => 1)"
00a6 0129 | ) | Execute Any,Make_Visible
00a7 c229 | ) | Store 0x1,0x29
00a8 0092 00c4 | | Action Push_String_Extended,0xc4 ; "If 'YES', include the full source text in the compilation listing (TEXT=YES). If 'NO', include in the listing only source text for lines containing errors (TEXT=NO). (DEFAULT => YES"
00aa 0129 | ) | Execute Any,Make_Visible
00ab c24e | N | Store 0x1,0x4e
00ac 00bf | | Action Accept_Activation
00ad BODY_0008:
00ad 00bc | | Action Signal_Activated
00ae 00bb | | Action Signal_Completion
00af ; --------------------------------------------------------------------------------------
00af ; STRING TABLE
00af ; --------------------------------------------------------------------------------------
00af 002e | . | .STRTAB 0x002e->0x00c6 ; "This switch allows the user to control the amount of compilation information that is generated in a compiler listing. The valid options for this switch are (CODE, MAP, ALL, NONE). [ASSEMBLY=CODE - Include compiled object code in the compilation listing, in both assembly-language and hexadecimal forms]. [ASSEMBLY=MAP - Include a (relocatable) memory map in the compilation listing showing the position of data objects]. [ASSEMBLY=ALL - Include information as for both CODE and MAP]. [ASSEMBLY=NONE - Do not list any object code or map information]. (DEFAULT => NONE)"
00b0 0263 | c | .STRTAB 0x0263->0x01e1 ; "This switch lets you specify whether or not you want to have all the execution checks requested by Ada to be included in the object code. The valid options for this switch are (ALL, STACK, NONE). [CHECKS=ALL - All run time checks are performed]. [CHECKS=STACK - Suppress Ada checks, but leave stack overflow checks enabled]. [CHECKS=NONE - No checking will be performed]. NOTE : Checks can also be individually suppressed by using the pragma SUPPRESS. (DEFAULT => NONE)"
00b1 0436 | 6 | .STRTAB 0x0436->0x02cc ; "This switch controls the presence of map information from the Binder and Linker. The valid options for this switch are (BIND, LINK, ALL, NONE). [DATA=BIND] - a map is written by the Binder. [DATA=LINK] - a map is written by the Linker. [DATA=ALL] - the map includes information from both the Binder and Linker. (DEFAULT => NONE)"
00b2 057c | | | .STRTAB 0x057c->0x0370 ; "Part of the compiler optimizer that lets you control the actions of the high level optimizer to obtain a smaller and/or faster program. The valid options for this switch are (NONE, PARTIAL, EXTENSIVE). [EXPRESSIONS=NONE - No low level optimization is performed]. [EXPRESSIONS=PARTIAL - Common subexpressions are eliminated]. [EXPRESSIONS=EXTENSIVE - Currently, EXTENSIVE and PARTIAL code improvements are the same]. (DEFAULT => NONE)"
00b3 072b | + | .STRTAB 0x072b->0x0448 ; "Contains a string which can be set by the user to a remote Unix directory name. If this switch value is non-null, its value will be used as the view's remote Alsys family directory. Otherwise the view's family directory name will be extracted from its Remote_Directory name. (DEFAULT => null)"
00b4 084d | M | .STRTAB 0x084d->0x04da ; "If TRUE, return the Binder listing ('remote_file.map') to the host after a Link. (DEFAULT => TRUE)"
00b5 08ad | | .STRTAB 0x08ad->0x050b ; "If TRUE, return the compilation listing ('remote_file.lis') to the host after a Compile. (DEFAULT => TRUE)"
00b6 0915 | | .STRTAB 0x0915->0x0540 ; "If TRUE, return the cui file ('remote_file.cui') to the host after a Link. (DEFAULT => FALSE)"
00b7 0970 | p | .STRTAB 0x0970->0x056f ; "If TRUE, return the Executable file ('remote_file', with no extension) to the host after a Link. (DEFAULT => FALSE)"
00b8 09e1 | | .STRTAB 0x09e1->0x05a8 ; "If TRUE, return the lnk file ('remote_file.lnk') to the host after a Link. (DEFAULT => FALSE)"
00b9 0a3c | < | .STRTAB 0x0a3c->0x05d7 ; "If 'YES', provide a dynamic trace of subprogram calls for use when an unhandled exception is propagated out of the main program (HISTORY=YES). If 'NO', no dynamic error trace will be generated (HISTORY=NO). (DEFAULT => YES)"
00ba 0b19 | | .STRTAB 0x0b19->0x0646 ; "Part of the compiler optimizer that lets you control the actions of the high level optimizer to obtain a smaller and/or faster program. If set to INLINED, allow inline insertions of code for subprograms (CALLS=INLINED). Calls will be inlined if subprograms are not recursive. The compiler will also put some other subprograms inline (for example, subprograms that are only called once). If set to NORMAL, use the normal mode for subprogram calls (CALLS=NORMAL). NOTE : This switch has to be set to INLINED for the pragma Inline to be operative. (DEFAULT => NORMAL)"
00bb 0d4b | K | .STRTAB 0x0d4b->0x0760 ; "The amount by which the heap is increased. (DEFAULT => 4)"
00bc 0d82 | | .STRTAB 0x0d82->0x077d ; "If 'YES', indicates that the compiler and the linker should generate and save AdaProbe information (DEBUG=YES). If 'NO', AdaProbe information will not be generated (DEBUG=NO). (DEFAULT => NO)"
00bd 0e3f | ? | .STRTAB 0x0e3f->0x07dc ; "Specifies the size for the main program stack. (DEFAULT => 96)"
00be 0e7b | { | .STRTAB 0x0e7b->0x07fb ; "The number of internal buffers shared by the compiler virtual memory, in K bytes. Usually, this value should not be changed, but if you have a lot of VDISK memory, you might want to use more buffers to speed up compilation. If the compiler reports 'STORAGE_ERROR' during compilation, you might want to lower this number. (DEFAULT => 500)"
00bf 0fca | | .STRTAB 0x0fca->0x08a4 ; "Part of the compiler optimizer that lets you control the actions of the high level optimizer to obtain a smaller and/or faster program. The valid options for this switch are (NONE, PARTIAL, EXTENSIVE). [REDUCTION=NONE - No action is taken with reference to the optimization of checks or loops]. [REDUCTION=PARTIAL - An analysis is performed, numerous run time checks are eliminated, and extensive dead code removal takes place]. [REDUCTION=EXTENSIVE - All the optimization implied in PARTIAL is performed, plus a more extensive optimization for loops]. (DEFAULT => NONE)"
00c0 1202 | | .STRTAB 0x1202->0x09c1 ; "Used to control what goes into the compilation listing. The valid options for this switch are (BANNER, RECAP, ALL, NONE). [SHOW=BANNER - Print a header atop each page of the listing]. [SHOW=RECAP - Include an error summary at the end of the listing]. [SHOW=ALL - Include both page headers and an error summary]. [SHOW=NONE - Include neither headers nor an error summary]. (DEFAULT => ALL)"
00c1 1384 | | .STRTAB 0x1384->0x0a83 ; "Used to control the initial size of the heap. (DEFAULT => 32)"
00c2 13bf | | .STRTAB 0x13bf->0x0aa1 ; "This switch gives the user control over data allocation. The actual value specifies the limit for local objects into the heap. (DEFAULT => 1024)"
00c3 144d | M | .STRTAB 0x144d->0x0ae9 ; "Specifies the sizes for the main program stack and for the stacks of all explicit Ada tasks. (DEFAULT => 1)"
00c4 14b6 | | .STRTAB 0x14b6->0x0b1f ; "If 'YES', include the full source text in the compilation listing (TEXT=YES). If 'NO', include in the listing only source text for lines containing errors (TEXT=NO). (DEFAULT => YES"
00c5 1569 | i | .STREND 0x1569->0x0b79
00c6 5468 6973 |This| .STRTAB_STRINGS
0b7a 0000 0000 | | .BLANK 0000[0x6]
0b80 ; --------------------------------------------------------------------------------------
0b80 ; Debug Table
0b80 ; --------------------------------------------------------------------------------------
0b80 0004 0003 | | .DEBUG4 0x0004,0x0003,0xb914,0x0000,0x0001,0x0001
0b86 000b 0b8a | | .DBG4T 0x000b,0x0b8a,0x8000,0x0000
0b8a ; --------------------------------------------------------------------------------------
0b8a ; Debug chain
0b8a ; --------------------------------------------------------------------------------------
0b8a 0016 0000 | | .DBGLEN 0x0016,0x0000
0b8c 0054 0058 | T X| .DBGLNO 0x0054,0x0058,0x005c,0x0060,0x0064,0x0068,0x006c,0x0070,0x0074,0x0078,0x007c,0x0080,0x0084,0x0088,0x008c,0x0090,0x0094,0x0098,0x009c,0x00a0,0x00a4,0x00a8
0ba2 0000 0000 | | .BLANK 0000[0x5e]