|
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: 1024 (0x400)
Notes: 00_class, 5813_R1K_CODE, 75_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 5813 |X | .CONST 0x5813 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0180 | | .CONST 0x0180 ; 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 0000 | | .CONST 0x0000 ; 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 ; Debug Table 0x0 = .DEBUG 0x000b,0x019a,0x8000,0x0000,0x0058,0x5c75,0x0000,0x0009
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 0054 | T | .CONST 0x0054 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0009 | | .CONST 0x0009 ; Number of locals
001b INIT_0018:
001b e001 | | Load 0x0,0x1 ; Debug Table 0x1 = .DEBUG 0x001b,0x019c,0x8001,0x0000,0x0058,0x5c75,0x0000,0x0009
; Debug Table 0x1.0x0 = 0x1b,0xffff
001c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
001d 02c7 | | Declare_Variable Any
001e e5fd | | Load 0x2,-0x3
001f 0217 | | Execute Heap_Access,All_Reference
0020 3c0b |< | Execute Record,Field_Read,Field_Number 0xb
0021 c402 | | Store 0x2,0x2
0022 e002 | | Load 0x0,0x2 ; Debug Table 0x1.0x1 = 0x22,0xfffe
0023 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0024 02c7 | | Declare_Variable Any
0025 00d8 | | Load_Top At_Offset_0
0026 1c00 | | Execute_Immediate Run_Utility,0x0
0027 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x1.0x2 = 0x27,0xfffd
0028 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0029 e003 | | Load 0x0,0x3 ; Debug Table 0x1.0x3 = 0x29,0xfffc
002a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
002b 02c7 | | Declare_Variable Any
002c 00d8 | | Load_Top At_Offset_0
002d 1c00 | | Execute_Immediate Run_Utility,0x0
002e e002 | | Load 0x0,0x2 ; Debug Table 0x1.0x4 = 0x2e,0xfffb
002f 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0030 0266 | f | Execute Discrete,Bounds
0031 e001 | | Load 0x0,0x1
0032 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0033 02a0 | | Declare_Subprogram Null_Subprogram
0034 4801 |H | Short_Literal 0x1
0035 035d | ] | Declare_Type Array,Defined
0036 00d8 | | Load_Top At_Offset_0
0037 0337 | 7 | Declare_Variable Array
0038 00d8 | | Load_Top At_Offset_0
0039 0337 | 7 | Declare_Variable Array
003a 4802 |H | Short_Literal 0x2
003b 4800 |H | Short_Literal 0x0
003c 00da | | Load_Top At_Offset_2
003d 01d6 | | Execute Vector,Field_Write
003e 4806 |H | Short_Literal 0x6
003f 4801 |H | Short_Literal 0x1
0040 00da | | Load_Top At_Offset_2
0041 01d6 | | Execute Vector,Field_Write
0042 4807 |H | Short_Literal 0x7
0043 4802 |H | Short_Literal 0x2
0044 00da | | Load_Top At_Offset_2
0045 01d6 | | Execute Vector,Field_Write
0046 4801 |H | Short_Literal 0x1
0047 4803 |H | Short_Literal 0x3
0048 00da | | Load_Top At_Offset_2
0049 01d6 | | Execute Vector,Field_Write
004a 4808 |H | Short_Literal 0x8
004b 4804 |H | Short_Literal 0x4
004c 00da | | Load_Top At_Offset_2
004d 01d6 | | Execute Vector,Field_Write
004e 00d9 | | Load_Top At_Offset_1
004f 01d4 | | Execute Vector,Structure_Write
0050 e004 | | Load 0x0,0x4 ; Debug Table 0x1.0x5 = 0x50,0xfffa
0051 1913 | | Execute Package,Field_Reference,Field_Number 0x13
0052 029f 00b3 | | Declare_Subprogram INIT_00b0,For_Call
0054 BODY_0018:
0054 e5fe | | Load 0x2,-0x2 ; Debug Table 0x1.0x6 = 0x54,0x1
0055 c403 | | Store 0x2,0x3
0056 00cf | | Action Mark_Auxiliary
0057 7812 |x | Jump 0x6a
0058 4801 |H | Short_Literal 0x1 ; Debug Table 0x1.0x7 = 0x58,0x3
0059 a404 | | Store_Unchecked 0x2,0x4
005a e402 | | Load 0x2,0x2 ; Debug Table 0x1.0x8 = 0x5a,0x4
005b e403 | | Load 0x2,0x3
005c e002 | | Load 0x0,0x2
005d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
005e e407 | | Load 0x2,0x7
005f 01d7 | | Execute Vector,Field_Read
0060 e403 | | Load 0x2,0x3
0061 e002 | | Load 0x0,0x2
0062 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0063 e004 | | Load 0x0,0x4
0064 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0065 e403 | | Load 0x2,0x3 ; Debug Table 0x1.0x9 = 0x65,0x5
0066 e002 | | Load 0x0,0x2
0067 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0068 c403 | | Store 0x2,0x3
0069 00c9 | | Action Pop_Auxiliary_Loop
006a e403 | | Load 0x2,0x3 ; Debug Table 0x1.0xa = 0x6a,0x2
006b e002 | | Load 0x0,0x2
006c 181a | | Execute Package,Field_Execute,Field_Number 0x1a
006d 6fea |o | Jump_Zero 0x58
006e 00ce | | Action Pop_Auxiliary
006f e001 | | Load 0x0,0x1 ; Debug Table 0x1.0xb = 0x6f,0x6
0070 180e | | Execute Package,Field_Execute,Field_Number 0xe
0071 4801 |H | Short_Literal 0x1
0072 e001 | | Load 0x0,0x1
0073 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0074 6829 |h) | Jump_Zero 0x9e
0075 e402 | | Load 0x2,0x2 ; Debug Table 0x1.0xc = 0x75,0x7
0076 4801 |H | Short_Literal 0x1
0077 0092 00f8 | | Action Push_String_Extended,0xf8 ; "Diagnosis of Relocation status follows"
0079 8408 | | Call 0x2,0x8
007a 00cf | | Action Mark_Auxiliary
007b e005 | | Load 0x0,0x5 ; Debug Table 0x1.0xd = 0x7b,0x8
007c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
007d 0265 | e | Execute Discrete,Reverse_Bounds
007e 0007 | | Action Break_Optional
007f e402 | | Load 0x2,0x2 ; Debug Table 0x1.0xe = 0x7f,0x9
0080 4801 |H | Short_Literal 0x1
0081 0092 00f9 | | Action Push_String_Extended,0xf9 ; "Parameter "
0083 00db | | Load_Top At_Offset_3
0084 e005 | | Load 0x0,0x5
0085 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0086 025e | ^ | Execute Discrete,Convert
0087 1c01 | | Execute_Immediate Run_Utility,0x1
0088 01cc | | Execute Vector,Catenate
0089 0092 00fa | | Action Push_String_Extended,0xfa ; " has status "
008b 01cc | | Execute Vector,Catenate
008c 00db | | Load_Top At_Offset_3
008d e5ff | | Load 0x2,-0x1
008e 01d7 | | Execute Vector,Field_Read
008f e005 | | Load 0x0,0x5
0090 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0091 025e | ^ | Execute Discrete,Convert
0092 1c01 | | Execute_Immediate Run_Utility,0x1
0093 01cc | | Execute Vector,Catenate
0094 8408 | | Call 0x2,0x8
0095 00c8 | | Action Pop_Auxiliary_Range
0096 3fe8 |? | Loop_Increasing 0x7f
0097 00ce | | Action Pop_Auxiliary
0098 e402 | | Load 0x2,0x2 ; Debug Table 0x1.0xf = 0x98,0xa
0099 4801 |H | Short_Literal 0x1
009a 0092 00fb | | Action Push_String_Extended,0xfb ; "Relocation Debug Log Follows:"
009c 8408 | | Call 0x2,0x8
009d 8409 | | Call 0x2,0x9 ; Debug Table 0x1.0x10 = 0x9d,0xb
009e e5ff | | Load 0x2,-0x1 ; Debug Table 0x1.0x11 = 0x9e,0xc
009f e005 | | Load 0x0,0x5
00a0 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00a1 700d |p | Jump_Nonzero 0xaf
00a2 e404 | | Load 0x2,0x4 ; Debug Table 0x1.0x12 = 0xa2,0xd
00a3 6806 |h | Jump_Zero 0xaa
00a4 0092 00fc | | Action Push_String_Extended,0xfc ; "Quitting because of the above errors"
; Debug Table 0x1.0x13 = 0xa4,0xe
00a6 e5fd | | Load 0x2,-0x3
00a7 e006 | | Load 0x0,0x6
00a8 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
00a9 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00aa 0092 00fd | | Action Push_String_Extended,0xfd ; "Relocation of units failed"
; Debug Table 0x1.0x14 = 0xaa,0xf
00ac e5fd | | Load 0x2,-0x3
00ad e006 | | Load 0x0,0x6
00ae 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
00af 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3 | | .CONST 0x00b3 ; Address of begin
00b1 00db | | .CONST 0x00db ; Address of exception handler
00b2 0001 | | .CONST 0x0001 ; Number of locals
00b3 BODY_00b0:
00b3 INIT_00b0:
00b3 e405 | | Load 0x2,0x5 ; Debug Table 0x2 = .DEBUG 0x00b3,0x01c8,0x0004,0x0000,0x0058,0x65c5,0x0000,0x013a
; Debug Table 0x2.0x0 = 0xb3,0x1
00b4 00ea | | Load_Encached Null_String_Cache
00b5 485f |H_ | Short_Literal 0x5f
00b6 485f |H_ | Short_Literal 0x5f
00b7 0092 00fe | | Action Push_String_Extended,0xfe ; "!machine.temporary.relocation_debug_log_"
00b9 e007 | | Load 0x0,0x7
00ba 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00bb e007 | | Load 0x0,0x7
00bc 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00bd 01cc | | Execute Vector,Catenate
00be 01cb | | Execute Vector,Append
00bf e007 | | Load 0x0,0x7
00c0 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00c1 e007 | | Load 0x0,0x7
00c2 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00c3 01cc | | Execute Vector,Catenate
00c4 01cb | | Execute Vector,Append
00c5 4820 |H | Short_Literal 0x20
00c6 4800 |H | Short_Literal 0x0
00c7 480a |H | Short_Literal 0xa
00c8 e007 | | Load 0x0,0x7
00c9 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00ca e008 | | Load 0x0,0x8
00cb 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00cc 01cc | | Execute Vector,Catenate
00cd 4800 |H | Short_Literal 0x0
00ce e003 | | Load 0x0,0x3
00cf 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00d0 c405 | | Store 0x2,0x5
00d1 00cf | | Action Mark_Auxiliary
00d2 0007 | | Action Break_Optional ; Debug Table 0x2.0x1 = 0xd2,0x2
00d3 e402 | | Load 0x2,0x2 ; Debug Table 0x2.0x2 = 0xd3,0x3
00d4 4801 |H | Short_Literal 0x1
00d5 e405 | | Load 0x2,0x5
00d6 e003 | | Load 0x0,0x3
00d7 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
00d8 8408 | | Call 0x2,0x8
00d9 00c9 | | Action Pop_Auxiliary_Loop
00da 7ff8 | | Jump 0xd3
00db TRAP_00b0:
00db 00d8 | | Load_Top At_Offset_0
00dc 0107 | | Execute Exception,Get_Name
00dd 4950 |IP | Short_Literal 0x150
00de 495f |I_ | Short_Literal 0x15f
00df 0262 | b | Execute Discrete,In_Range
00e0 6805 |h | Jump_Zero 0xe6
00e1 e405 | | Load 0x2,0x5 ; Debug Table 0x2.0x3 = 0xe1,0x4
00e2 e003 | | Load 0x0,0x3
00e3 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00e4 c405 | | Store 0x2,0x5
00e5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00e6 00d8 | | Load_Top At_Offset_0
00e7 0107 | | Execute Exception,Get_Name
00e8 4920 |I | Short_Literal 0x120
00e9 492f |I/ | Short_Literal 0x12f
00ea 0262 | b | Execute Discrete,In_Range
00eb 6806 |h | Jump_Zero 0xf2
00ec e402 | | Load 0x2,0x2 ; Debug Table 0x2.0x4 = 0xec,0x5
00ed 4801 |H | Short_Literal 0x1
00ee 0092 00ff | | Action Push_String_Extended,0xff ; "Couldn't open the log file"
00f0 8408 | | Call 0x2,0x8
00f1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00f2 e402 | | Load 0x2,0x2 ; Debug Table 0x2.0x5 = 0xf2,0x6
00f3 4801 |H | Short_Literal 0x1
00f4 0092 0100 | | Action Push_String_Extended,0x100 ; "Unhandled exception printing log"
00f6 8408 | | Call 0x2,0x8
00f7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00f8 ; --------------------------------------------------------------------------------------
00f8 ; STRING TABLE
00f8 ; --------------------------------------------------------------------------------------
00f8 0014 | | .STRTAB 0x0014->0x0102 ; "Diagnosis of Relocation status follows"
00f9 0038 | 8 | .STRTAB 0x0038->0x0115 ; "Parameter "
00fa 0040 | @ | .STRTAB 0x0040->0x011a ; " has status "
00fb 004a | J | .STRTAB 0x004a->0x0120 ; "Relocation Debug Log Follows:"
00fc 0065 | e | .STRTAB 0x0065->0x012e ; "Quitting because of the above errors"
00fd 0087 | | .STRTAB 0x0087->0x0140 ; "Relocation of units failed"
00fe 009f | | .STRTAB 0x009f->0x014d ; "!machine.temporary.relocation_debug_log_"
00ff 00c5 | | .STRTAB 0x00c5->0x0161 ; "Couldn't open the log file"
0100 00dd | | .STRTAB 0x00dd->0x016e ; "Unhandled exception printing log"
0101 00fb | | .STREND 0x00fb->0x017e
0102 4469 6167 |Diag| .STRTAB_STRINGS
017f 0000 | | .XXX[0x1]
0180 ; --------------------------------------------------------------------------------------
0180 ; Debug Table
0180 ; --------------------------------------------------------------------------------------
0180 0003 0003 | | .CONST 0x0003,0x0003
0182 000b 019a | | .DEBUG 0x000b,0x019a,0x8000,0x0000,0x0058,0x5c75,0x0000,0x0009
018a 001b 019c | | .DEBUG 0x001b,0x019c,0x8001,0x0000,0x0058,0x5c75,0x0000,0x0009
0192 00b3 01c8 | | .DEBUG 0x00b3,0x01c8,0x0004,0x0000,0x0058,0x65c5,0x0000,0x013a
019a ; --------------------------------------------------------------------------------------
019a ; Debug3 Subtable 0x0
019a ; --------------------------------------------------------------------------------------
019a 0000 0000 | | .DBG3TAB 0x0000,0x0000
019c ; --------------------------------------------------------------------------------------
019c ; Debug3 Subtable 0x1
019c ; --------------------------------------------------------------------------------------
019c 0006 000f | | .DBG3TAB 0x0006,0x000f
019e 001b ffff | | .CONST 0x001b,0xffff
01a0 0022 fffe | " | .CONST 0x0022,0xfffe
01a2 0027 fffd | ' | .CONST 0x0027,0xfffd
01a4 0029 fffc | ) | .CONST 0x0029,0xfffc
01a6 002e fffb | . | .CONST 0x002e,0xfffb
01a8 0050 fffa | P | .CONST 0x0050,0xfffa
01aa 0054 0001 | T | .CONST 0x0054,0x0001
01ac 0058 0003 | X | .CONST 0x0058,0x0003
01ae 005a 0004 | Z | .CONST 0x005a,0x0004
01b0 0065 0005 | e | .CONST 0x0065,0x0005
01b2 006a 0002 | j | .CONST 0x006a,0x0002
01b4 006f 0006 | o | .CONST 0x006f,0x0006
01b6 0075 0007 | u | .CONST 0x0075,0x0007
01b8 007b 0008 | { | .CONST 0x007b,0x0008
01ba 007f 0009 | | .CONST 0x007f,0x0009
01bc 0098 000a | | .CONST 0x0098,0x000a
01be 009d 000b | | .CONST 0x009d,0x000b
01c0 009e 000c | | .CONST 0x009e,0x000c
01c2 00a2 000d | | .CONST 0x00a2,0x000d
01c4 00a4 000e | | .CONST 0x00a4,0x000e
01c6 00aa 000f | | .CONST 0x00aa,0x000f
01c8 ; --------------------------------------------------------------------------------------
01c8 ; Debug3 Subtable 0x2
01c8 ; --------------------------------------------------------------------------------------
01c8 0000 0006 | | .DBG3TAB 0x0000,0x0006
01ca 00b3 0001 | | .CONST 0x00b3,0x0001
01cc 00d2 0002 | | .CONST 0x00d2,0x0002
01ce 00d3 0003 | | .CONST 0x00d3,0x0003
01d0 00e1 0004 | | .CONST 0x00e1,0x0004
01d2 00ec 0005 | | .CONST 0x00ec,0x0005
01d4 00f2 0006 | | .CONST 0x00f2,0x0006
01d6 0000 0000 | | .BLANK 0000[0x2a]