|
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 - metrics - download
Length: 1024 (0x400)
Notes: 00_class, 5811_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 5811 |X | .CONST 0x5811 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0148 | H | .CONST 0x0148 ; 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 003c | < | .CONST 0x003c ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0011 | | .CONST 0x0011 ; Number of locals
000b INIT_0008:
000b 0007 | | Action Break_Optional ; Debug Table 0x0 = .DEBUG 0x000b,0x0172,0x8000,0x0000,0x0036,0xff04,0x0000,0x000b
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 0007 | | Action Break_Optional ; Debug Table 0x0.0x1 = 0xc,0xfffe
000d e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x2 = 0xd,0xfffd
000e 1b16 | | Execute Package,Field_Read,Field_Number 0x16
000f 4801 |H | Short_Literal 0x1
0010 e001 | | Load 0x0,0x1
0011 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0012 4801 |H | Short_Literal 0x1
0013 e001 | | Load 0x0,0x1
0014 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0015 4801 |H | Short_Literal 0x1
0016 e001 | | Load 0x0,0x1
0017 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0018 4802 |H | Short_Literal 0x2
0019 00e3 | | Load_Encached Natural_Cache
001a 00e3 | | Load_Encached Natural_Cache
001b 4801 |H | Short_Literal 0x1
001c 00e1 | | Load_Encached Boolean_Cache
001d 029f 0043 | C| Declare_Subprogram For_Call,INIT_0040
001f 4806 |H | Short_Literal 0x6
0020 4800 |H | Short_Literal 0x0
0021 4805 |H | Short_Literal 0x5
0022 4800 |H | Short_Literal 0x0
0023 4801 |H | Short_Literal 0x1
0024 031e | | Declare_Type Variant_Record,Defined,Visible
0025 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x3 = 0x25,0xfffc
0026 4801 |H | Short_Literal 0x1
0027 029f 00d3 | | Declare_Subprogram For_Call,INIT_00d0
0029 03fe | | Declare_Type Discrete,Defined,Visible
002a 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x4 = 0x2a,0xfffb
002b 4801 |H | Short_Literal 0x1
002c 029f 00eb | | Declare_Subprogram For_Call,INIT_00e8
002e 03fe | | Declare_Type Discrete,Defined,Visible
002f 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x5 = 0x2f,0xfffa
0030 4801 |H | Short_Literal 0x1
0031 029f 0103 | | Declare_Subprogram For_Call,INIT_0100
0033 03fe | | Declare_Type Discrete,Defined,Visible
0034 4801 |H | Short_Literal 0x1 ; Debug Table 0x0.0x6 = 0x34,0xfff9
0035 4806 |H | Short_Literal 0x6
0036 e002 | | Load 0x0,0x2
0037 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0038 0334 | 4 | Declare_Variable Array,With_Constraint
0039 50de |P | Indirect_Literal Any,0x118,{0x7463702f, 0x69702020}
003a 0129 | ) | Execute Any,Make_Visible
003b 00bf | | Action Accept_Activation
003c BODY_0008:
003c 00bc | | Action Signal_Activated
003d 00bb | | Action Signal_Completion
003e 0000 0000 | | .XXX[0x2]
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0043 | C | .CONST 0x0043 ; Address of begin
0041 0004 | | .CONST 0x0004 ; Address of exception handler
0042 0001 | | .CONST 0x0001 ; Number of locals
0043 BODY_0040:
0043 INIT_0040:
0043 4608 |F | Jump_Case 0x8 ; Debug Table 0x1 = .DEBUG 0x0043,0x0182,0x0005,0x0000,0x0036,0xff04,0x0000,0x0019
0044 7808 |x | Jump 0x4d ; case 0x0
0045 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x1
0046 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x2
0047 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x3
0048 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x4
0049 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x5
004a 782c |x, | Jump 0x77 ; case 0x6
004b 7852 |xR | Jump 0x9e ; case 0x7
004c 787b |x{ | Jump 0xc8 ; case 0x8
004d 00da | | Load_Top At_Offset_2
004e 016c | l | Execute Variant_Record,Is_Constrained
004f 7009 |p | Jump_Nonzero 0x59
0050 00cf | | Action Mark_Auxiliary
0051 4816 |H | Short_Literal 0x16
0052 e5ff | | Load 0x2,-0x1
0053 1c08 | | Execute_Immediate Run_Utility,0x8
0054 00d8 | | Load_Top At_Offset_0
0055 1c00 | | Execute_Immediate Run_Utility,0x0
0056 c5ff | | Store 0x2,-0x1
0057 00ce | | Action Pop_Auxiliary
0058 4302 |C | Exit_Subprogram From_Utility,0x2
0059 00da | | Load_Top At_Offset_2
005a 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
005b 4616 |F | Jump_Case 0x16
005c 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
005d 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x1
005e 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x2
005f 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x3
0060 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x4
0061 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x5
0062 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x6
0063 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x7
0064 780e |x | Jump 0x73 ; case 0x8
0065 780d |x | Jump 0x73 ; case 0x9
0066 780c |x | Jump 0x73 ; case 0xa
0067 780b |x | Jump 0x73 ; case 0xb
0068 780a |x | Jump 0x73 ; case 0xc
0069 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0xd
006a 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0xe
006b 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0xf
006c 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x10
006d 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x11
006e 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x12
006f 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x13
0070 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x14
0071 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x15
0072 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x16
0073 4800 |H | Short_Literal 0x0
0074 00db | | Load_Top At_Offset_3
0075 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
0076 4302 |C | Exit_Subprogram From_Utility,0x2
0077 00db | | Load_Top At_Offset_3
0078 4616 |F | Jump_Case 0x16
0079 7816 |x | Jump 0x90 ; case 0x0
007a 7815 |x | Jump 0x90 ; case 0x1
007b 7814 |x | Jump 0x90 ; case 0x2
007c 7813 |x | Jump 0x90 ; case 0x3
007d 7814 |x | Jump 0x92 ; case 0x4
007e 7815 |x | Jump 0x94 ; case 0x5
007f 7816 |x | Jump 0x96 ; case 0x6
0080 7817 |x | Jump 0x98 ; case 0x7
0081 7818 |x | Jump 0x9a ; case 0x8
0082 7817 |x | Jump 0x9a ; case 0x9
0083 7816 |x | Jump 0x9a ; case 0xa
0084 7815 |x | Jump 0x9a ; case 0xb
0085 7814 |x | Jump 0x9a ; case 0xc
0086 7809 |x | Jump 0x90 ; case 0xd
0087 7808 |x | Jump 0x90 ; case 0xe
0088 7807 |x | Jump 0x90 ; case 0xf
0089 7806 |x | Jump 0x90 ; case 0x10
008a 7811 |x | Jump 0x9c ; case 0x11
008b 7810 |x | Jump 0x9c ; case 0x12
008c 780f |x | Jump 0x9c ; case 0x13
008d 780e |x | Jump 0x9c ; case 0x14
008e 780d |x | Jump 0x9c ; case 0x15
008f 780c |x | Jump 0x9c ; case 0x16
0090 48ff |H | Short_Literal 0xff
0091 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0092 4801 |H | Short_Literal 0x1
0093 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0094 4802 |H | Short_Literal 0x2
0095 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0096 4803 |H | Short_Literal 0x3
0097 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0098 4804 |H | Short_Literal 0x4
0099 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
009a 4805 |H | Short_Literal 0x5
009b 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
009c 48ff |H | Short_Literal 0xff
009d 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
009e 00db | | Load_Top At_Offset_3
009f e5fe | | Load 0x2,-0x2
00a0 4616 |F | Jump_Case 0x16
00a1 7816 |x | Jump 0xb8 ; case 0x0
00a2 7815 |x | Jump 0xb8 ; case 0x1
00a3 7814 |x | Jump 0xb8 ; case 0x2
00a4 7813 |x | Jump 0xb8 ; case 0x3
00a5 7814 |x | Jump 0xba ; case 0x4
00a6 7815 |x | Jump 0xbc ; case 0x5
00a7 7816 |x | Jump 0xbe ; case 0x6
00a8 7817 |x | Jump 0xc0 ; case 0x7
00a9 7818 |x | Jump 0xc2 ; case 0x8
00aa 7817 |x | Jump 0xc2 ; case 0x9
00ab 7816 |x | Jump 0xc2 ; case 0xa
00ac 7815 |x | Jump 0xc2 ; case 0xb
00ad 7814 |x | Jump 0xc2 ; case 0xc
00ae 7809 |x | Jump 0xb8 ; case 0xd
00af 7808 |x | Jump 0xb8 ; case 0xe
00b0 7807 |x | Jump 0xb8 ; case 0xf
00b1 7806 |x | Jump 0xb8 ; case 0x10
00b2 7811 |x | Jump 0xc4 ; case 0x11
00b3 7810 |x | Jump 0xc4 ; case 0x12
00b4 780f |x | Jump 0xc4 ; case 0x13
00b5 780e |x | Jump 0xc4 ; case 0x14
00b6 780d |x | Jump 0xc4 ; case 0x15
00b7 780c |x | Jump 0xc4 ; case 0x16
00b8 48ff |H | Short_Literal 0xff
00b9 780b |x | Jump 0xc5
00ba 4801 |H | Short_Literal 0x1
00bb 7809 |x | Jump 0xc5
00bc 4802 |H | Short_Literal 0x2
00bd 7807 |x | Jump 0xc5
00be 4803 |H | Short_Literal 0x3
00bf 7805 |x | Jump 0xc5
00c0 4804 |H | Short_Literal 0x4
00c1 7803 |x | Jump 0xc5
00c2 4805 |H | Short_Literal 0x5
00c3 7801 |x | Jump 0xc5
00c4 48ff |H | Short_Literal 0xff
00c5 e5ff | | Load 0x2,-0x1
00c6 031b | | Declare_Type Variant_Record,Constrained
00c7 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00c8 00db | | Load_Top At_Offset_3
00c9 e5fe | | Load 0x2,-0x2
00ca e5ff | | Load 0x2,-0x1
00cb 1c06 | | Execute_Immediate Run_Utility,0x6
00cc e5ff | | Load 0x2,-0x1
00cd 02fc | | Declare_Variable Variant_Record,With_Constraint
00ce 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00cf 0000 | | .XXX[0x1]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3 | | .CONST 0x00d3 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0001 | | .CONST 0x0001 ; Number of locals
00d3 BODY_00d0:
00d3 INIT_00d0:
00d3 4603 |F | Jump_Case 0x3 ; Debug Table 0x2 = .DEBUG 0x00d3,0x0184,0x0005,0x0000,0x0036,0xff04,0x0000,0x007a
00d4 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
00d5 7802 |x | Jump 0xd8 ; case 0x1
00d6 7805 |x | Jump 0xdc ; case 0x2
00d7 7809 |x | Jump 0xe1 ; case 0x3
00d8 00da | | Load_Top At_Offset_2
00d9 0091 011c | | Action Push_String_Extended_Indexed,0x11c ; "INCOMING"
00db 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
00dc 00db | | Load_Top At_Offset_3
00dd 00db | | Load_Top At_Offset_3
00de 00e0 | | Load_Encached Standard_Cache
00df 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00e0 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00e1 00da | | Load_Top At_Offset_2
00e2 00e0 | | Load_Encached Standard_Cache
00e3 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00e4 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
00e5 0000 0000 | | .XXX[0x3]
00e7 0000 | |
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb | | .CONST 0x00eb ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0001 | | .CONST 0x0001 ; Number of locals
00eb BODY_00e8:
00eb INIT_00e8:
00eb 4603 |F | Jump_Case 0x3 ; Debug Table 0x3 = .DEBUG 0x00eb,0x0186,0x0005,0x0000,0x0036,0xff04,0x0000,0x0080
00ec 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
00ed 7802 |x | Jump 0xf0 ; case 0x1
00ee 7805 |x | Jump 0xf4 ; case 0x2
00ef 7809 |x | Jump 0xf9 ; case 0x3
00f0 00da | | Load_Top At_Offset_2
00f1 0091 011e | | Action Push_String_Extended_Indexed,0x11e ; "HOST_MACHINE"
00f3 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
00f4 00db | | Load_Top At_Offset_3
00f5 00db | | Load_Top At_Offset_3
00f6 00e0 | | Load_Encached Standard_Cache
00f7 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00f8 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00f9 00da | | Load_Top At_Offset_2
00fa 00e0 | | Load_Encached Standard_Cache
00fb 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00fc 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
00fd 0000 0000 | | .XXX[0x3]
00ff 0000 | |
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 4603 |F | Jump_Case 0x3 ; Debug Table 0x4 = .DEBUG 0x0103,0x0188,0x0005,0x0000,0x0036,0xff04,0x0000,0x0086
0104 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
0105 7802 |x | Jump 0x108 ; case 0x1
0106 7805 |x | Jump 0x10c ; case 0x2
0107 7809 |x | Jump 0x111 ; case 0x3
0108 00da | | Load_Top At_Offset_2
0109 0091 0120 | | Action Push_String_Extended_Indexed,0x120 ; "BINARY_MOVE"
010b 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
010c 00db | | Load_Top At_Offset_3
010d 00db | | Load_Top At_Offset_3
010e 00e0 | | Load_Encached Standard_Cache
010f 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0110 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0111 00da | | Load_Top At_Offset_2
0112 00e0 | | Load_Encached Standard_Cache
0113 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0114 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0115 0000 0000 | | .XXX[0x3]
0117 0000 | |
0118 7463 702f |tcp/| .LITERAL {0x7463702f, 0x69702020}
011c ; --------------------------------------------------------------------------------------
011c ; STRING TABLE
011c ; --------------------------------------------------------------------------------------
011c 000e | | .STRTAB 0x000e->0x0123 ; "INCOMING"
011d 0014 | | .STRTAB 0x0014->0x0127 ; "OUTGOING"
011e 001a | | .STRTAB 0x001a->0x012b ; "HOST_MACHINE"
011f 0024 | $ | .STRTAB 0x0024->0x0131 ; "TARGET_MACHINE"
0120 0030 | 0 | .STRTAB 0x0030->0x0138 ; "BINARY_MOVE"
0121 0039 | 9 | .STRTAB 0x0039->0x013d ; "BYTE_MOVE"
0122 0040 | @ | .STREND 0x0040->0x0142
0123 494e 434f |INCO| .STRTAB_STRINGS
0142 0000 0000 | | .BLANK 0000[0x6]
0148 ; --------------------------------------------------------------------------------------
0148 ; Debug Table
0148 ; --------------------------------------------------------------------------------------
0148 0003 0005 | | .CONST 0x0003,0x0005
014a 000b 0172 | r| .DEBUG 0x000b,0x0172,0x8000,0x0000,0x0036,0xff04,0x0000,0x000b
0152 0043 0182 | C | .DEBUG 0x0043,0x0182,0x0005,0x0000,0x0036,0xff04,0x0000,0x0019
015a 00d3 0184 | | .DEBUG 0x00d3,0x0184,0x0005,0x0000,0x0036,0xff04,0x0000,0x007a
0162 00eb 0186 | | .DEBUG 0x00eb,0x0186,0x0005,0x0000,0x0036,0xff04,0x0000,0x0080
016a 0103 0188 | | .DEBUG 0x0103,0x0188,0x0005,0x0000,0x0036,0xff04,0x0000,0x0086
0172 ; --------------------------------------------------------------------------------------
0172 ; Debug3 Subtable 0x0
0172 ; --------------------------------------------------------------------------------------
0172 0007 0000 | | .DBG3TAB 0x0007,0x0000
0174 000b ffff | | .CONST 0x000b,0xffff
0176 000c fffe | | .CONST 0x000c,0xfffe
0178 000d fffd | | .CONST 0x000d,0xfffd
017a 0025 fffc | % | .CONST 0x0025,0xfffc
017c 002a fffb | * | .CONST 0x002a,0xfffb
017e 002f fffa | / | .CONST 0x002f,0xfffa
0180 0034 fff9 | 4 | .CONST 0x0034,0xfff9
0182 ; --------------------------------------------------------------------------------------
0182 ; Debug3 Subtable 0x1
0182 ; --------------------------------------------------------------------------------------
0182 0000 0000 | | .DBG3TAB 0x0000,0x0000
0184 ; --------------------------------------------------------------------------------------
0184 ; Debug3 Subtable 0x2
0184 ; --------------------------------------------------------------------------------------
0184 0000 0000 | | .DBG3TAB 0x0000,0x0000
0186 ; --------------------------------------------------------------------------------------
0186 ; Debug3 Subtable 0x3
0186 ; --------------------------------------------------------------------------------------
0186 0000 0000 | | .DBG3TAB 0x0000,0x0000
0188 ; --------------------------------------------------------------------------------------
0188 ; Debug3 Subtable 0x4
0188 ; --------------------------------------------------------------------------------------
0188 0000 0000 | | .DBG3TAB 0x0000,0x0000
018a 0000 0000 | | .BLANK 0000[0x76]