|
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, 5811_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 5811 |X | .CONST 0x5811 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 00b8 | | .CONST 0x00b8 ; 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 002e | . | .CONST 0x002e ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0013 | | .CONST 0x0013 ; Number of locals
000b INIT_0008:
000b 0007 | | Action Break_Optional ; Debug Table 0x0 = .DEBUG 0x000b,0x00fa,0x8000,0x0000,0x0037,0x56c4,0x0000,0x0005
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 0007 | | Action Break_Optional ; Debug Table 0x0.0x1 = 0xc,0xfffe
000d 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x2 = 0xd,0xfffd
000e 480b |H | Short_Literal 0xb
000f 00e2 | | Load_Encached Integer_Cache
0010 03f9 | | Declare_Type Discrete,Constrained,Visible
0011 029a 0033 | 3| Declare_Subprogram INIT_0030,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x11,0xfffc
0013 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x13,0xfffb
0015 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x15,0xfffa
0017 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x17,0xfff9
0019 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x19,0xfff8
001b 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x1b,0xfff7
001d 0007 | | Action Break_Optional ; Debug Table 0x0.0x9 = 0x1d,0xfff6
001e 0007 | | Action Break_Optional ; Debug Table 0x0.0xa = 0x1e,0xfff5
001f 0007 | | Action Break_Optional ; Debug Table 0x0.0xb = 0x1f,0xfff4
0020 0007 | | Action Break_Optional ; Debug Table 0x0.0xc = 0x20,0xfff3
0021 00bf | | Action Accept_Activation ; Debug Table 0x0.0xd = 0x21,0xfff2
0022 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1 = .DEBUG 0x0022,0x0118,0x8000,0x0000,0x0037,0x59b4,0x0000,0x0007
; Debug Table 0x1.0x0 = 0x22,0xffff
0023 00c7 | | Action Elaborate_Subprogram
0024 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x1 = 0x24,0xfffe
0025 00c7 | | Action Elaborate_Subprogram
0026 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x2 = 0x26,0xfffd
0027 00c7 | | Action Elaborate_Subprogram
0028 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0x3 = 0x28,0xfffc
0029 00c7 | | Action Elaborate_Subprogram
002a 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x4 = 0x2a,0xfffb
002b 00c7 | | Action Elaborate_Subprogram
002c 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x5 = 0x2c,0xfffa
002d 00c7 | | Action Elaborate_Subprogram
002e BODY_0008:
002e 00bc | | Action Signal_Activated
002f 00bb | | Action Signal_Completion
0030 ; --------------------------------------------------------------------------------------
0030 ; SUBPROGRAM
0030 ; --------------------------------------------------------------------------------------
0030 0033 | 3 | .CONST 0x0033 ; Address of begin
0031 0004 | | .CONST 0x0004 ; Address of exception handler
0032 0001 | | .CONST 0x0001 ; Number of locals
0033 BODY_0030:
0033 INIT_0030:
0033 4800 |H | Short_Literal 0x0 ; Debug Table 0x2 = .DEBUG 0x0033,0x0126,0x0002,0x0000,0x0037,0x56c4,0x0000,0x001a
; Debug Table 0x2.0x0 = 0x33,0x1
0034 00ca | | Action Exit_Nullary_Function
0035 0000 0000 | | .XXX[0x3]
0037 0000 | |
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 003b | ; | .CONST 0x003b ; Address of begin
0039 0004 | | .CONST 0x0004 ; Address of exception handler
003a 0001 | | .CONST 0x0001 ; Number of locals
003b BODY_0038:
003b INIT_0038:
003b 4804 |H | Short_Literal 0x4 ; Debug Table 0x3 = .DEBUG 0x003b,0x012a,0x0002,0x0000,0x0037,0x56c4,0x0000,0x001f
; Debug Table 0x3.0x0 = 0x3b,0x1
003c 00ca | | Action Exit_Nullary_Function
003d 0000 0000 | | .XXX[0x3]
003f 0000 | |
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 00da | | Load_Top At_Offset_2 ; Debug Table 0x4 = .DEBUG 0x0043,0x012e,0x0002,0x0000,0x0037,0x56c4,0x0000,0x0024
; Debug Table 0x4.0x0 = 0x43,0x1
0044 0b00 | | Execute_Immediate Case_Compare,0x0
0045 700a |p | Jump_Nonzero 0x50
0046 0b01 | | Execute_Immediate Case_Compare,0x1
0047 700b |p | Jump_Nonzero 0x53
0048 0b02 | | Execute_Immediate Case_Compare,0x2
0049 700c |p | Jump_Nonzero 0x56
004a 0b03 | | Execute_Immediate Case_Compare,0x3
004b 700d |p | Jump_Nonzero 0x59
004c 0b04 | | Execute_Immediate Case_Compare,0x4
004d 700e |p | Jump_Nonzero 0x5c
004e 48e0 |H | Short_Literal 0xe0 ; Debug Table 0x4.0x1 = 0x4e,0x7
004f 0257 | W | Execute Discrete,Raise
0050 0092 009c | | Action Push_String_Extended,0x9c ; "VT100"
; Debug Table 0x4.0x2 = 0x50,0x2
0052 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0053 0092 009d | | Action Push_String_Extended,0x9d ; "CIT500R"
; Debug Table 0x4.0x3 = 0x53,0x3
0055 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0056 0092 009e | | Action Push_String_Extended,0x9e ; "RATIONAL"
; Debug Table 0x4.0x4 = 0x56,0x4
0058 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0059 0092 009f | | Action Push_String_Extended,0x9f ; "FACIT"
; Debug Table 0x4.0x5 = 0x59,0x5
005b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
005c 0092 00a0 | | Action Push_String_Extended,0xa0 ; "XRTERM"
; Debug Table 0x4.0x6 = 0x5c,0x6
005e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
005f 0000 | | .XXX[0x1]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0066 | f | .CONST 0x0066 ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 0002 | | .CONST 0x0002 ; Number of locals
0063 INIT_0060:
0063 00da | | Load_Top At_Offset_2 ; Debug Table 0x5 = .DEBUG 0x0063,0x013e,0x0002,0x0000,0x0037,0x56c4,0x0000,0x002d
; Debug Table 0x5.0x0 = 0x63,0xffff
0064 e001 | | Load 0x0,0x1
0065 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0066 BODY_0060:
0066 820f | | Call 0x1,0xf ; Debug Table 0x5.0x1 = 0x66,0x1
0067 820e | | Call 0x1,0xe
0068 0263 | c | Execute Discrete,Above_Bound
0069 7008 |p | Jump_Nonzero 0x72
006a 00da | | Load_Top At_Offset_2 ; Debug Table 0x5.0x2 = 0x6a,0x2
006b 00d9 | | Load_Top At_Offset_1
006c 8210 | | Call 0x1,0x10
006d 01df | | Execute Vector,Equal
006e 6802 |h | Jump_Zero 0x71
006f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x3 = 0x6f,0x3
0070 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0071 3ff8 |? | Loop_Increasing 0x6a
0072 48e0 |H | Short_Literal 0xe0 ; Debug Table 0x5.0x4 = 0x72,0x4
0073 0257 | W | Execute Discrete,Raise
0074 0000 0000 | | .BLANK 0000[0x4]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b | { | .CONST 0x007b ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0001 | | .CONST 0x0001 ; Number of locals
007b BODY_0078:
007b INIT_0078:
007b 00da | | Load_Top At_Offset_2 ; Debug Table 0x6 = .DEBUG 0x007b,0x014a,0x0002,0x0000,0x0037,0x56c4,0x0000,0x0036
; Debug Table 0x6.0x0 = 0x7b,0x1
007c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
007d 0000 0000 | | .XXX[0x3]
007f 0000 | |
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 00da | | Load_Top At_Offset_2 ; Debug Table 0x7 = .DEBUG 0x0083,0x014e,0x0002,0x0000,0x0037,0x56c4,0x0000,0x003f
; Debug Table 0x7.0x0 = 0x83,0x1
0084 00d8 | | Load_Top At_Offset_0
0085 e20d | | Load 0x1,0xd
0086 0122 | " | Execute Any,Make_Root_Type
0087 0260 | ` | Execute Discrete,In_Type
0088 7002 |p | Jump_Nonzero 0x8b
0089 48e0 |H | Short_Literal 0xe0
008a 0257 | W | Execute Discrete,Raise
008b 820e | | Call 0x1,0xe
008c 820f | | Call 0x1,0xf
008d 0262 | b | Execute Discrete,In_Range
008e 7002 |p | Jump_Nonzero 0x91
008f 48e0 |H | Short_Literal 0xe0 ; Debug Table 0x7.0x1 = 0x8f,0x2
0090 0257 | W | Execute Discrete,Raise
0091 00da | | Load_Top At_Offset_2 ; Debug Table 0x7.0x2 = 0x91,0x3
0092 00d8 | | Load_Top At_Offset_0
0093 e20d | | Load 0x1,0xd
0094 0122 | " | Execute Any,Make_Root_Type
0095 0260 | ` | Execute Discrete,In_Type
0096 7002 |p | Jump_Nonzero 0x99
0097 48e0 |H | Short_Literal 0xe0
0098 0257 | W | Execute Discrete,Raise
0099 e20d | | Load 0x1,0xd
009a 025b | [ | Execute Discrete,Check_In_Type
009b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
009c ; --------------------------------------------------------------------------------------
009c ; STRING TABLE
009c ; --------------------------------------------------------------------------------------
009c 000c | | .STRTAB 0x000c->0x00a2 ; "VT100"
009d 000f | | .STRTAB 0x000f->0x00a4 ; "CIT500R"
009e 0014 | | .STRTAB 0x0014->0x00a8 ; "RATIONAL"
009f 001a | | .STRTAB 0x001a->0x00ac ; "FACIT"
00a0 001d | | .STRTAB 0x001d->0x00ae ; "XRTERM"
00a1 0021 | ! | .STREND 0x0021->0x00b1
00a2 5654 3130 |VT10| .STRTAB_STRINGS
00b2 0000 0000 | | .BLANK 0000[0x6]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; Debug Table
00b8 ; --------------------------------------------------------------------------------------
00b8 0003 0008 | | .CONST 0x0003,0x0008
00ba 000b 00fa | | .DEBUG 0x000b,0x00fa,0x8000,0x0000,0x0037,0x56c4,0x0000,0x0005
00c2 0022 0118 | " | .DEBUG 0x0022,0x0118,0x8000,0x0000,0x0037,0x59b4,0x0000,0x0007
00ca 0033 0126 | 3 &| .DEBUG 0x0033,0x0126,0x0002,0x0000,0x0037,0x56c4,0x0000,0x001a
00d2 003b 012a | ; *| .DEBUG 0x003b,0x012a,0x0002,0x0000,0x0037,0x56c4,0x0000,0x001f
00da 0043 012e | C .| .DEBUG 0x0043,0x012e,0x0002,0x0000,0x0037,0x56c4,0x0000,0x0024
00e2 0063 013e | c >| .DEBUG 0x0063,0x013e,0x0002,0x0000,0x0037,0x56c4,0x0000,0x002d
00ea 007b 014a | { J| .DEBUG 0x007b,0x014a,0x0002,0x0000,0x0037,0x56c4,0x0000,0x0036
00f2 0083 014e | N| .DEBUG 0x0083,0x014e,0x0002,0x0000,0x0037,0x56c4,0x0000,0x003f
00fa ; --------------------------------------------------------------------------------------
00fa ; Debug3 Subtable 0x0
00fa ; --------------------------------------------------------------------------------------
00fa 000e 0000 | | .DBG3TAB 0x000e,0x0000
00fc 000b ffff | | .CONST 0x000b,0xffff
00fe 000c fffe | | .CONST 0x000c,0xfffe
0100 000d fffd | | .CONST 0x000d,0xfffd
0102 0011 fffc | | .CONST 0x0011,0xfffc
0104 0013 fffb | | .CONST 0x0013,0xfffb
0106 0015 fffa | | .CONST 0x0015,0xfffa
0108 0017 fff9 | | .CONST 0x0017,0xfff9
010a 0019 fff8 | | .CONST 0x0019,0xfff8
010c 001b fff7 | | .CONST 0x001b,0xfff7
010e 001d fff6 | | .CONST 0x001d,0xfff6
0110 001e fff5 | | .CONST 0x001e,0xfff5
0112 001f fff4 | | .CONST 0x001f,0xfff4
0114 0020 fff3 | | .CONST 0x0020,0xfff3
0116 0021 fff2 | ! | .CONST 0x0021,0xfff2
0118 ; --------------------------------------------------------------------------------------
0118 ; Debug3 Subtable 0x1
0118 ; --------------------------------------------------------------------------------------
0118 0006 0000 | | .DBG3TAB 0x0006,0x0000
011a 0022 ffff | " | .CONST 0x0022,0xffff
011c 0024 fffe | $ | .CONST 0x0024,0xfffe
011e 0026 fffd | & | .CONST 0x0026,0xfffd
0120 0028 fffc | ( | .CONST 0x0028,0xfffc
0122 002a fffb | * | .CONST 0x002a,0xfffb
0124 002c fffa | , | .CONST 0x002c,0xfffa
0126 ; --------------------------------------------------------------------------------------
0126 ; Debug3 Subtable 0x2
0126 ; --------------------------------------------------------------------------------------
0126 0000 0001 | | .DBG3TAB 0x0000,0x0001
0128 0033 0001 | 3 | .CONST 0x0033,0x0001
012a ; --------------------------------------------------------------------------------------
012a ; Debug3 Subtable 0x3
012a ; --------------------------------------------------------------------------------------
012a 0000 0001 | | .DBG3TAB 0x0000,0x0001
012c 003b 0001 | ; | .CONST 0x003b,0x0001
012e ; --------------------------------------------------------------------------------------
012e ; Debug3 Subtable 0x4
012e ; --------------------------------------------------------------------------------------
012e 0000 0007 | | .DBG3TAB 0x0000,0x0007
0130 0043 0001 | C | .CONST 0x0043,0x0001
0132 004e 0007 | N | .CONST 0x004e,0x0007
0134 0050 0002 | P | .CONST 0x0050,0x0002
0136 0053 0003 | S | .CONST 0x0053,0x0003
0138 0056 0004 | V | .CONST 0x0056,0x0004
013a 0059 0005 | Y | .CONST 0x0059,0x0005
013c 005c 0006 | \ | .CONST 0x005c,0x0006
013e ; --------------------------------------------------------------------------------------
013e ; Debug3 Subtable 0x5
013e ; --------------------------------------------------------------------------------------
013e 0001 0004 | | .DBG3TAB 0x0001,0x0004
0140 0063 ffff | c | .CONST 0x0063,0xffff
0142 0066 0001 | f | .CONST 0x0066,0x0001
0144 006a 0002 | j | .CONST 0x006a,0x0002
0146 006f 0003 | o | .CONST 0x006f,0x0003
0148 0072 0004 | r | .CONST 0x0072,0x0004
014a ; --------------------------------------------------------------------------------------
014a ; Debug3 Subtable 0x6
014a ; --------------------------------------------------------------------------------------
014a 0000 0001 | | .DBG3TAB 0x0000,0x0001
014c 007b 0001 | { | .CONST 0x007b,0x0001
014e ; --------------------------------------------------------------------------------------
014e ; Debug3 Subtable 0x7
014e ; --------------------------------------------------------------------------------------
014e 0000 0003 | | .DBG3TAB 0x0000,0x0003
0150 0083 0001 | | .CONST 0x0083,0x0001
0152 008f 0002 | | .CONST 0x008f,0x0002
0154 0091 0003 | | .CONST 0x0091,0x0003
0156 0000 0000 | | .BLANK 0000[0xaa]