|
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_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 5813 |X | .CONST 0x5813 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0118 | | .CONST 0x0118 ; 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 0078 | x | .CONST 0x0078 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0017 | | .CONST 0x0017 ; Number of locals
000b INIT_0008:
000b 0007 | | Action Break_Optional ; Debug Table 0x0 = .DEBUG 0x000b,0x0142,0x8000,0x0000,0x0059,0xce55,0x0000,0x0019
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 0007 | | Action Break_Optional ; Debug Table 0x0.0x1 = 0xc,0xfffe
000d 0007 | | Action Break_Optional ; Debug Table 0x0.0x2 = 0xd,0xfffd
000e 00e9 | | Load_Encached String_Cache ; Debug Table 0x0.0x3 = 0xe,0xfffc
000f 02a0 | | Declare_Subprogram Null_Subprogram
0010 03ae | | Declare_Type Heap_Access,Defined,Visible
0011 0007 | | Action Break_Optional ; Debug Table 0x0.0x4 = 0x11,0xfffb
0012 60f1 |` | Indirect_Literal Discrete,0x104,{0x00000000, 0x0059ce55} ; Debug Table 0x0.0x5 = 0x12,0xfffa
0013 4831 |H1 | Short_Literal 0x31
0014 e001 | | Load 0x0,0x1
0015 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0016 00db | | Load_Top At_Offset_3
0017 00e5 | | Load_Encached Long_Integer_Cache
0018 e001 | | Load 0x0,0x1
0019 1913 | | Execute Package,Field_Reference,Field_Number 0x13
001a e002 | | Load 0x0,0x2
001b 0386 | | Declare_Variable Package,Visible
001c 00d8 | | Load_Top At_Offset_0
001d 020f | | Execute Module,Activate
001e 60e5 |` | Indirect_Literal Discrete,0x104,{0x00000000, 0x0059ce55} ; Debug Table 0x0.0x6 = 0x1e,0xfff9
001f 483e |H> | Short_Literal 0x3e
0020 e001 | | Load 0x0,0x1
0021 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0022 e003 | | Load 0x0,0x3
0023 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0024 00e5 | | Load_Encached Long_Integer_Cache
0025 e001 | | Load 0x0,0x1
0026 1913 | | Execute Package,Field_Reference,Field_Number 0x13
0027 e002 | | Load 0x0,0x2
0028 0386 | | Declare_Variable Package,Visible
0029 00d8 | | Load_Top At_Offset_0
002a 020f | | Execute Module,Activate
002b 4802 |H | Short_Literal 0x2 ; Debug Table 0x0.0x7 = 0x2b,0xfff8
002c 032b | + | Declare_Type Record,Incomplete,Visible
002d 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x8 = 0x2d,0xfff7
002e 02a0 | | Declare_Subprogram Null_Subprogram
002f 03ae | | Declare_Type Heap_Access,Defined,Visible
0030 0007 | | Action Break_Optional ; Debug Table 0x0.0x9 = 0x30,0xfff6
0031 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0xa = 0x31,0xfff5
0032 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0033 00d9 | | Load_Top At_Offset_1
0034 029f 0083 | | Declare_Subprogram INIT_0080,For_Call
0036 e210 | | Load 0x1,0x10
0037 0326 | & | Complete_Type Record,By_Defining
0038 4803 |H | Short_Literal 0x3 ; Debug Table 0x0.0xb = 0x38,0xfff4
0039 032b | + | Declare_Type Record,Incomplete,Visible
003a 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0xc = 0x3a,0xfff3
003b 02a0 | | Declare_Subprogram Null_Subprogram
003c 03ae | | Declare_Type Heap_Access,Defined,Visible
003d 0007 | | Action Break_Optional ; Debug Table 0x0.0xd = 0x3d,0xfff2
003e e001 | | Load 0x0,0x1 ; Debug Table 0x0.0xe = 0x3e,0xfff1
003f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0040 e004 | | Load 0x0,0x4
0041 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0042 00da | | Load_Top At_Offset_2
0043 029f 009b | | Declare_Subprogram INIT_0098,For_Call
0045 e212 | | Load 0x1,0x12
0046 0326 | & | Complete_Type Record,By_Defining
0047 60bc |` | Indirect_Literal Discrete,0x104,{0x00000000, 0x0059ce55} ; Debug Table 0x0.0xf = 0x47,0xfff0
0048 488e |H | Short_Literal 0x8e
0049 e001 | | Load 0x0,0x1
004a 1b14 | | Execute Package,Field_Read,Field_Number 0x14
004b e005 | | Load 0x0,0x5
004c 0386 | | Declare_Variable Package,Visible
004d 00d8 | | Load_Top At_Offset_0
004e 020f | | Execute Module,Activate
004f 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x10 = 0x4f,0xffef
0050 4802 |H | Short_Literal 0x2
0051 029f 00b3 | | Declare_Subprogram INIT_00b0,For_Call
0053 03fe | | Declare_Type Discrete,Defined,Visible
0054 e006 | | Load 0x0,0x6 ; Debug Table 0x0.0x11 = 0x54,0xffee
0055 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0056 00f0 | | Load_Encached Segment_Cache
0057 e211 | | Load 0x1,0x11
0058 e20e | | Load 0x1,0xe
0059 1b13 | | Execute Package,Field_Read,Field_Number 0x13
005a e20f | | Load 0x1,0xf
005b 1b13 | | Execute Package,Field_Read,Field_Number 0x13
005c 00e1 | | Load_Encached Boolean_Cache
005d e007 | | Load 0x0,0x7
005e 1b14 | | Execute Package,Field_Read,Field_Number 0x14
005f 00e1 | | Load_Encached Boolean_Cache
0060 00e1 | | Load_Encached Boolean_Cache
0061 e213 | | Load 0x1,0x13
0062 e004 | | Load 0x0,0x4
0063 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0064 e008 | | Load 0x0,0x8
0065 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0066 e215 | | Load 0x1,0x15
0067 00e1 | | Load_Encached Boolean_Cache
0068 e214 | | Load 0x1,0x14
0069 1b10 | | Execute Package,Field_Read,Field_Number 0x10
006a 00e1 | | Load_Encached Boolean_Cache
006b 00e1 | | Load_Encached Boolean_Cache
006c e009 | | Load 0x0,0x9
006d 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
006e e00a | | Load 0x0,0xa
006f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0070 029f 00cb | | Declare_Subprogram INIT_00c8,For_Call
0072 4813 |H | Short_Literal 0x13
0073 032e | . | Declare_Type Record,Defined,Visible
0074 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x12 = 0x74,0xffed
0075 02a0 | | Declare_Subprogram Null_Subprogram
0076 03ae | | Declare_Type Heap_Access,Defined,Visible
0077 00bf | | Action Accept_Activation ; Debug Table 0x0.0x13 = 0x77,0xffec
0078 BODY_0008:
0078 00bc | | Action Signal_Activated
0079 00bb | | Action Signal_Completion
007a 0000 0000 | | .BLANK 0000[0x6]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083 | | .CONST 0x0083 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0001 | | .CONST 0x0001 ; Number of locals
0083 BODY_0080:
0083 INIT_0080:
0083 4608 |F | Jump_Case 0x9 ; Debug Table 0x1 = .DEBUG 0x0083,0x016c,0x0005,0x0000,0x0059,0xce55,0x0000,0x005a
0084 7808 |x | Jump 0x8d ; case 0x0
0085 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0086 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
0087 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0088 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0089 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
008a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6
008b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7
008c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8
008d 00da | | Load_Top At_Offset_2
008e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
008f 0125 | % | Execute Any,Set_Constraint
0090 00da | | Load_Top At_Offset_2
0091 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0092 1c00 | | Execute_Immediate Run_Utility,0x0
0093 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0094 0000 0000 | | .BLANK 0000[0x4]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b | | .CONST 0x009b ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0001 | | .CONST 0x0001 ; Number of locals
009b BODY_0098:
009b INIT_0098:
009b 4608 |F | Jump_Case 0x9 ; Debug Table 0x2 = .DEBUG 0x009b,0x016e,0x0005,0x0000,0x0059,0xce55,0x0000,0x0077
009c 7808 |x | Jump 0xa5 ; case 0x0
009d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
009e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
009f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
00a0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
00a1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
00a2 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6
00a3 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7
00a4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8
00a5 00da | | Load_Top At_Offset_2
00a6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00a7 0125 | % | Execute Any,Set_Constraint
00a8 00da | | Load_Top At_Offset_2
00a9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00aa 1c00 | | Execute_Immediate Run_Utility,0x0
00ab 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
00ac 0000 0000 | | .BLANK 0000[0x4]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3 | | .CONST 0x00b3 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0001 | | .CONST 0x0001 ; Number of locals
00b3 BODY_00b0:
00b3 INIT_00b0:
00b3 4603 |F | Jump_Case 0x4 ; Debug Table 0x3 = .DEBUG 0x00b3,0x0170,0x0005,0x0000,0x0059,0xce55,0x0000,0x0096
00b4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00b5 7802 |x | Jump 0xb8 ; case 0x1
00b6 7805 |x | Jump 0xbc ; case 0x2
00b7 7809 |x | Jump 0xc1 ; case 0x3
00b8 00da | | Load_Top At_Offset_2
00b9 0091 0108 | | Action Push_String_Extended_Indexed,0x108 ; "NONE"
00bb 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00bc 00db | | Load_Top At_Offset_3
00bd 00db | | Load_Top At_Offset_3
00be 00e0 | | Load_Encached Standard_Cache
00bf 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00c0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00c1 00da | | Load_Top At_Offset_2
00c2 00e0 | | Load_Encached Standard_Cache
00c3 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00c4 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00c5 0000 0000 | | .XXX[0x3]
00c7 0000 | |
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb | | .CONST 0x00cb ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0001 | | .CONST 0x0001 ; Number of locals
00cb BODY_00c8:
00cb INIT_00c8:
00cb 4608 |F | Jump_Case 0x9 ; Debug Table 0x4 = .DEBUG 0x00cb,0x0172,0x0005,0x0000,0x0059,0xce55,0x0000,0x009d
00cc 7808 |x | Jump 0xd5 ; case 0x0
00cd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
00ce 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
00cf 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
00d0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
00d1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
00d2 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6
00d3 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7
00d4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8
00d5 00da | | Load_Top At_Offset_2
00d6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00d7 0125 | % | Execute Any,Set_Constraint
00d8 00da | | Load_Top At_Offset_2
00d9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00da 1c00 | | Execute_Immediate Run_Utility,0x0
00db 4800 |H | Short_Literal 0x0
00dc 00db | | Load_Top At_Offset_3
00dd 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
00de 4800 |H | Short_Literal 0x0
00df 00db | | Load_Top At_Offset_3
00e0 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
00e1 4800 |H | Short_Literal 0x0
00e2 00db | | Load_Top At_Offset_3
00e3 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
00e4 4803 |H | Short_Literal 0x3
00e5 00db | | Load_Top At_Offset_3
00e6 380a |8 | Execute Record,Field_Write,Field_Number 0xa
00e7 00da | | Load_Top At_Offset_2
00e8 340b |4 | Execute Record,Field_Reference,Field_Number 0xb
00e9 0125 | % | Execute Any,Set_Constraint
00ea 00da | | Load_Top At_Offset_2
00eb 340b |4 | Execute Record,Field_Reference,Field_Number 0xb
00ec 1c00 | | Execute_Immediate Run_Utility,0x0
00ed 4800 |H | Short_Literal 0x0
00ee 00db | | Load_Top At_Offset_3
00ef 380c |8 | Execute Record,Field_Write,Field_Number 0xc
00f0 4801 |H | Short_Literal 0x1
00f1 00db | | Load_Top At_Offset_3
00f2 380d |8 | Execute Record,Field_Write,Field_Number 0xd
00f3 4800 |H | Short_Literal 0x0
00f4 00db | | Load_Top At_Offset_3
00f5 380f |8 | Execute Record,Field_Write,Field_Number 0xf
00f6 4800 |H | Short_Literal 0x0
00f7 00db | | Load_Top At_Offset_3
00f8 3810 |8 | Execute Record,Field_Write,Field_Number 0x10
00f9 00da | | Load_Top At_Offset_2
00fa 3411 |4 | Execute Record,Field_Reference,Field_Number 0x11
00fb 0125 | % | Execute Any,Set_Constraint
00fc 00da | | Load_Top At_Offset_2
00fd 3411 |4 | Execute Record,Field_Reference,Field_Number 0x11
00fe 1c00 | | Execute_Immediate Run_Utility,0x0
00ff 00da | | Load_Top At_Offset_2
0100 3412 |4 | Execute Record,Field_Reference,Field_Number 0x12
0101 1c00 | | Execute_Immediate Run_Utility,0x0
0102 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0103 0000 | | .XXX[0x1]
0104 0000 0000 | | .LITERAL {0x00000000, 0x0059ce55}
0108 ; --------------------------------------------------------------------------------------
0108 ; STRING TABLE
0108 ; --------------------------------------------------------------------------------------
0108 0008 | | .STRTAB 0x0008->0x010c ; "NONE"
0109 000a | | .STRTAB 0x000a->0x010e ; "WARNINGS"
010a 0010 | | .STRTAB 0x0010->0x0112 ; "ERRORS"
010b 0014 | | .STREND 0x0014->0x0115
010c 4e4f 4e45 |NONE| .STRTAB_STRINGS
0115 0000 0000 | | .XXX[0x3]
0117 0000 | |
0118 ; --------------------------------------------------------------------------------------
0118 ; Debug Table
0118 ; --------------------------------------------------------------------------------------
0118 0003 0005 | | .CONST 0x0003,0x0005
011a 000b 0142 | B| .DEBUG 0x000b,0x0142,0x8000,0x0000,0x0059,0xce55,0x0000,0x0019
0122 0083 016c | l| .DEBUG 0x0083,0x016c,0x0005,0x0000,0x0059,0xce55,0x0000,0x005a
012a 009b 016e | n| .DEBUG 0x009b,0x016e,0x0005,0x0000,0x0059,0xce55,0x0000,0x0077
0132 00b3 0170 | p| .DEBUG 0x00b3,0x0170,0x0005,0x0000,0x0059,0xce55,0x0000,0x0096
013a 00cb 0172 | r| .DEBUG 0x00cb,0x0172,0x0005,0x0000,0x0059,0xce55,0x0000,0x009d
0142 ; --------------------------------------------------------------------------------------
0142 ; Debug3 Subtable 0x0
0142 ; --------------------------------------------------------------------------------------
0142 0014 0000 | | .DBG3TAB 0x0014,0x0000
0144 000b ffff | | .CONST 0x000b,0xffff
0146 000c fffe | | .CONST 0x000c,0xfffe
0148 000d fffd | | .CONST 0x000d,0xfffd
014a 000e fffc | | .CONST 0x000e,0xfffc
014c 0011 fffb | | .CONST 0x0011,0xfffb
014e 0012 fffa | | .CONST 0x0012,0xfffa
0150 001e fff9 | | .CONST 0x001e,0xfff9
0152 002b fff8 | + | .CONST 0x002b,0xfff8
0154 002d fff7 | - | .CONST 0x002d,0xfff7
0156 0030 fff6 | 0 | .CONST 0x0030,0xfff6
0158 0031 fff5 | 1 | .CONST 0x0031,0xfff5
015a 0038 fff4 | 8 | .CONST 0x0038,0xfff4
015c 003a fff3 | : | .CONST 0x003a,0xfff3
015e 003d fff2 | = | .CONST 0x003d,0xfff2
0160 003e fff1 | > | .CONST 0x003e,0xfff1
0162 0047 fff0 | G | .CONST 0x0047,0xfff0
0164 004f ffef | O | .CONST 0x004f,0xffef
0166 0054 ffee | T | .CONST 0x0054,0xffee
0168 0074 ffed | t | .CONST 0x0074,0xffed
016a 0077 ffec | w | .CONST 0x0077,0xffec
016c ; --------------------------------------------------------------------------------------
016c ; Debug3 Subtable 0x1
016c ; --------------------------------------------------------------------------------------
016c 0000 0000 | | .DBG3TAB 0x0000,0x0000
016e ; --------------------------------------------------------------------------------------
016e ; Debug3 Subtable 0x2
016e ; --------------------------------------------------------------------------------------
016e 0000 0000 | | .DBG3TAB 0x0000,0x0000
0170 ; --------------------------------------------------------------------------------------
0170 ; Debug3 Subtable 0x3
0170 ; --------------------------------------------------------------------------------------
0170 0000 0000 | | .DBG3TAB 0x0000,0x0000
0172 ; --------------------------------------------------------------------------------------
0172 ; Debug3 Subtable 0x4
0172 ; --------------------------------------------------------------------------------------
0172 0000 0000 | | .DBG3TAB 0x0000,0x0000
0174 0000 0000 | | .BLANK 0000[0x8c]