DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦85e432f9f⟧

    Length: 4096 (0x1000)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_e2acbc

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦this⟧ 

Disassembly

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 0700       |    |		.CONST	0x0700								; 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 0003       |    |		.CONST	0x0003								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0039       | 9  |		.CONST	0x0039								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 001b       |    |		.CONST	0x001b								; Number of locals
000b			INIT_0008:
000b 0092 003b  |   ;|		Action	Push_String_Extended,0x3b					; "If True, sets the -a option for the Ada/6000 compiler. This option causes the compiler to create the .s file on the RS/6000 and the .<Asm> file on the host. Note: This switch must be False when you generate batch scripts. The default value is False."
000d 0129       | )  |		Execute	Any,Make_Visible
000e 0092 003c  |   <|		Action	Push_String_Extended,0x3c					; "If True, sets the -d option for the Ada/6000 compiler and linker. This option causes the compiler and linker to store debugging information in the RS/6000's working sublibrary. The default value is False."
0010 0129       | )  |		Execute	Any,Make_Visible
0011 0092 003d  |   =|		Action	Push_String_Extended,0x3d					; "If True, sets the -Q option for the Ada/6000 compiler and linker. This option causes the compiler and linker to detect single-precision floating-point overflows. (Ada/6000 Release 1.0 only) The default value is False."
0013 0129       | )  |		Execute	Any,Make_Visible
0014 0092 003e  |   >|		Action	Push_String_Extended,0x3e					; "Sets the -i option for the Ada/6000 linker. This option causes the linker to include the non-Ada object file (library) specified by the string value. If multiple libraries are included, each filename must be preceded by -i, for example: -i libXt -i libXm -i mylib. Setting this switch causes the specified object files to be included in every unit in the view. To include these files only in specific units, use the Rci.Set_Unit_Options command."
0016 0129       | )  |		Execute	Any,Make_Visible
0017 0092 003f  |   ?|		Action	Push_String_Extended,0x3f					; "Sets the -L option for the Ada/6000 compiler and linker. This option allows you to specify a remote import-list file other than the default (alib.list). As described in the RCI User's Manual, this is not a recommended solution; the string value contains the name of the remote import-list file."
0019 0129       | )  |		Execute	Any,Make_Visible
001a 0092 0040  |   @|		Action	Push_String_Extended,0x40					; "If True, sets the -l option for the Ada/6000 compiler. This option causes the compiler to produce an Ada listing file with the .lst extension on the RS/6000 and the .<List> file on the host. Note: This switch must be False when you generate batch scripts. The default value is False."
001c 0129       | )  |		Execute	Any,Make_Visible
001d 0092 0041  |   A|		Action	Push_String_Extended,0x41					; "If True, sets the -O option for the Ada/6000 compiler and linker. This option causes the compiler and linker to produce highly optimized code that disallows debugging. The default value is False."
001f 0129       | )  |		Execute	Any,Make_Visible
0020 0092 0042  |   B|		Action	Push_String_Extended,0x42					; "If True, sets the -G option for the Ada/6000 compiler and linker. This option causes some optimization to be provided, but still allows debugging. The default value is False."
0022 0129       | )  |		Execute	Any,Make_Visible
0023 0092 0043  |   C|		Action	Push_String_Extended,0x43					; "If True, sets the -e option for the Ada/6000 linker. This option causes the linker to create only an object module (a.out for a main unit rather than an executable module.) The default value is False."
0025 0129       | )  |		Execute	Any,Make_Visible
0026 0092 0044  |   D|		Action	Push_String_Extended,0x44					; "If True, sets the -t option for the Ada/6000 linker. This option causes the linker to use special memory layouts for Os_Task. (Ada/6000 Release 1.0 only) The default value is False."
0028 0129       | )  |		Execute	Any,Make_Visible
0029 0092 0045  |   E|		Action	Push_String_Extended,0x45					; "If True, sets the -p option for the Ada/6000 compiler and linker. This option causes the compiler and linker to produce profiled code. The default value is False."
002b 0129       | )  |		Execute	Any,Make_Visible
002c 0092 0046  |   F|		Action	Push_String_Extended,0x46					; "If True, sets the -S option for the Ada/6000 compiler and linker. This option has the same effect as pragma Suppress. The default value is False."
002e 0129       | )  |		Execute	Any,Make_Visible
002f 0092 0047  |   G|		Action	Push_String_Extended,0x47					; "If True, sets the -u option for the Ada/6000 compiler and linker. This option causes the working sublibrary to be unlocked. The default value is False."
0031 0129       | )  |		Execute	Any,Make_Visible
0032 0092 0048  |   H|		Action	Push_String_Extended,0x48					; "If True, sets the -v option for the Ada/6000 compiler and linker. This option causes the compiler and linker to display informational messages during the compilation that normally are not displayed. See the \x22Output from the RCI Compiler and Linker\x22 section of the RCI User's Guide. The default value is False."
0034 0129       | )  |		Execute	Any,Make_Visible
0035 0092 0049  |   I|		Action	Push_String_Extended,0x49					; "Sets the -V option for the Ada/6000 compiler and linker. This option specifies the number of pages for the compiler and linker to use in managing memory storage; the string contains a value for the number of virtual pages."
0037 0129       | )  |		Execute	Any,Make_Visible
0038 00bf       |    |		Action	Accept_Activation
0039			BODY_0008:
0039 00bc       |    |		Action	Signal_Activated
003a 00bb       |    |		Action	Signal_Completion
003b ; --------------------------------------------------------------------------------------
003b ; STRING TABLE
003b ; --------------------------------------------------------------------------------------
003b 0020       |    |		.STRTAB	0x0020->0x004b							; "If True, sets the -a option for the Ada/6000 compiler. This option causes the compiler to create the .s file on the RS/6000 and the .<Asm> file on the host. Note: This switch must be False when you generate batch scripts. The default value is False."
003c 0117       |    |		.STRTAB	0x0117->0x00c7							; "If True, sets the -d option for the Ada/6000 compiler and linker. This option causes the compiler and linker to store debugging information in the RS/6000's working sublibrary. The default value is False."
003d 01e1       |    |		.STRTAB	0x01e1->0x012d							; "If True, sets the -Q option for the Ada/6000 compiler and linker. This option causes the compiler and linker to detect single-precision floating-point overflows. (Ada/6000 Release 1.0 only) The default value is False."
003e 02b8       |    |		.STRTAB	0x02b8->0x019a							; "Sets the -i option for the Ada/6000 linker. This option causes the linker to include the non-Ada object file (library) specified by the string value. If multiple libraries are included, each filename must be preceded by -i, for example: -i libXt -i libXm -i mylib. Setting this switch causes the specified object files to be included in every unit in the view. To include these files only in specific units, use the Rci.Set_Unit_Options command."
003f 0473       | s  |		.STRTAB	0x0473->0x0278							; "Sets the -L option for the Ada/6000 compiler and linker. This option allows you to specify a remote import-list file other than the default (alib.list). As described in the RCI User's Manual, this is not a recommended solution; the string value contains the name of the remote import-list file."
0040 0597       |    |		.STRTAB	0x0597->0x030b							; "If True, sets the -l option for the Ada/6000 compiler. This option causes the compiler to produce an Ada listing file with the .lst extension on the RS/6000 and the .<List> file on the host. Note: This switch must be False when you generate batch scripts. The default value is False."
0041 06b0       |    |		.STRTAB	0x06b0->0x0399							; "If True, sets the -O option for the Ada/6000 compiler and linker. This option causes the compiler and linker to produce highly optimized code that disallows debugging. The default value is False."
0042 0771       | q  |		.STRTAB	0x0771->0x03fa							; "If True, sets the -G option for the Ada/6000 compiler and linker. This option causes some optimization to be provided, but still allows debugging. The default value is False."
0043 081d       |    |		.STRTAB	0x081d->0x0451							; "If True, sets the -e option for the Ada/6000 linker. This option causes the linker to create only an object module (a.out for a main unit rather than an executable module.) The default value is False."
0044 08e3       |    |		.STRTAB	0x08e3->0x04b5							; "If True, sets the -t option for the Ada/6000 linker. This option causes the linker to use special memory layouts for Os_Task. (Ada/6000 Release 1.0 only) The default value is False."
0045 0996       |    |		.STRTAB	0x0996->0x0510							; "If True, sets the -p option for the Ada/6000 compiler and linker. This option causes the compiler and linker to produce profiled code. The default value is False."
0046 0a36       | 6  |		.STRTAB	0x0a36->0x0561							; "If True, sets the -S option for the Ada/6000 compiler and linker. This option has the same effect as pragma Suppress. The default value is False."
0047 0ac5       |    |		.STRTAB	0x0ac5->0x05a9							; "If True, sets the -u option for the Ada/6000 compiler and linker. This option causes the working sublibrary to be unlocked. The default value is False."
0048 0b5a       | Z  |		.STRTAB	0x0b5a->0x05f5							; "If True, sets the -v option for the Ada/6000 compiler and linker. This option causes the compiler and linker to display informational messages during the compilation that normally are not displayed. See the \x22Output from the RCI Compiler and Linker\x22 section of the RCI User's Guide. The default value is False."
0049 0c8d       |    |		.STRTAB	0x0c8d->0x068f							; "Sets the -V option for the Ada/6000 compiler and linker. This option specifies the number of pages for the compiler and linker to use in managing memory storage; the string contains a value for the number of virtual pages."
004a 0d69       | i  |		.STREND 0x0d69->0x06fe
004b 4966 2054  |If T|		.STRTAB_STRINGS
06ff 0000       |    |		.XXX[0x1]
0700 ; --------------------------------------------------------------------------------------
0700 ; Debug Table
0700 ; --------------------------------------------------------------------------------------
0700 0004 0003  |    |		.DEBUG4	0x0004,0x0003,0x4668,0x0000,0x0001,0x0001
0706 000b 070a  |    |		.DBG4T	0x000b,0x070a,0x8000,0x0000
070a ; --------------------------------------------------------------------------------------
070a ; Debug chain
070a ; --------------------------------------------------------------------------------------
070a 000f 0000  |    |		.DBGLEN	0x000f,0x0000
070c 000b 000e  |    |		.DBGLNO	0x000b,0x000e,0x0011,0x0014,0x0017,0x001a,0x001d,0x0020,0x0023,0x0026,0x0029,0x002c,0x002f,0x0032,0x0035
071b 0000 0000  |    |		.BLANK	0000[0xe5]