|
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, 01_tag, 5811_R1K_CODE, NULL, R1k_Segment, seg_000001
└─⟦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 0128 | ( | .CONST 0x0128 ; 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 003a | : | .CONST 0x003a ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0014 | | .CONST 0x0014 ; Number of locals
000b INIT_0008:
000b 0007 | | Action Break_Optional ; Debug Table 0x0 = .DEBUG 0x000b,0x014a,0x8000,0x0000,0x0016,0x27e4,0x0000,0x0005
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 0007 | | Action Break_Optional ; Debug Table 0x0.0x1 = 0xc,0xfffe
000d 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x0.0x2 = 0xd,0xfffd
000e 0129 | ) | Execute Any,Make_Visible
000f 0007 | | Action Break_Optional ; Debug Table 0x0.0x3 = 0xf,0xfffc
0010 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x4 = 0x10,0xfffb
0011 0266 | f | Execute Discrete,Bounds
0012 00e1 | | Load_Encached Boolean_Cache
0013 02a0 | | Declare_Subprogram Null_Subprogram
0014 4801 |H | Short_Literal 0x1
0015 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
0016 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x0.0x5 = 0x16,0xfffa
0017 00da | | Load_Top At_Offset_2
0018 02a0 | | Declare_Subprogram Null_Subprogram
0019 4802 |H | Short_Literal 0x2
001a 032e | . | Declare_Type Record,Defined,Visible
001b 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x6 = 0x1b,0xfff9
001c 6083 |` | Indirect_Literal Discrete,0xa0,{0x00000000, 0x7fffffff}
001d 00e5 | | Load_Encached Long_Integer_Cache
001e 03f9 | | Declare_Type Discrete,Constrained,Visible
001f 0007 | | Action Break_Optional ; Debug Table 0x0.0x7 = 0x1f,0xfff8
0020 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x0.0x8 = 0x20,0xfff7
0021 0129 | ) | Execute Any,Make_Visible
0022 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x9 = 0x22,0xfff6
0024 0007 | | Action Break_Optional ; Debug Table 0x0.0xa = 0x24,0xfff5
0025 0007 | | Action Break_Optional ; Debug Table 0x0.0xb = 0x25,0xfff4
0026 0007 | | Action Break_Optional ; Debug Table 0x0.0xc = 0x26,0xfff3
0027 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x0.0xd = 0x27,0xfff2
0028 0129 | ) | Execute Any,Make_Visible
0029 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xe = 0x29,0xfff1
002b 0007 | | Action Break_Optional ; Debug Table 0x0.0xf = 0x2b,0xfff0
002c 0007 | | Action Break_Optional ; Debug Table 0x0.0x10 = 0x2c,0xffef
002d 0007 | | Action Break_Optional ; Debug Table 0x0.0x11 = 0x2d,0xffee
002e 0007 | | Action Break_Optional ; Debug Table 0x0.0x12 = 0x2e,0xffed
002f 0007 | | Action Break_Optional ; Debug Table 0x0.0x13 = 0x2f,0xffec
0030 0007 | | Action Break_Optional ; Debug Table 0x0.0x14 = 0x30,0xffeb
0031 0007 | | Action Break_Optional ; Debug Table 0x0.0x15 = 0x31,0xffea
0032 0007 | | Action Break_Optional ; Debug Table 0x0.0x16 = 0x32,0xffe9
0033 0007 | | Action Break_Optional ; Debug Table 0x0.0x17 = 0x33,0xffe8
0034 0007 | | Action Break_Optional ; Debug Table 0x0.0x18 = 0x34,0xffe7
0035 00bf | | Action Accept_Activation ; Debug Table 0x0.0x19 = 0x35,0xffe6
0036 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1 = .DEBUG 0x0036,0x0180,0x8000,0x0000,0x0016,0x2964,0x0000,0x0003
; Debug Table 0x1.0x0 = 0x36,0xffff
0037 00c7 | | Action Elaborate_Subprogram
0038 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0x1 = 0x38,0xfffe
0039 00c7 | | Action Elaborate_Subprogram
003a BODY_0008:
003a 00bc | | Action Signal_Activated
003b 00bb | | Action Signal_Completion
003c 0000 0000 | | .BLANK 0000[0x4]
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 0x2 = .DEBUG 0x0043,0x0186,0x0002,0x0000,0x0016,0x27e4,0x0000,0x0050
; Debug Table 0x2.0x0 = 0x43,0x1
0044 0b00 | | Execute_Immediate Case_Compare,0x0
0045 700d |p | Jump_Nonzero 0x53
0046 0b01 | | Execute_Immediate Case_Compare,0x1
0047 700e |p | Jump_Nonzero 0x56
0048 0b02 | | Execute_Immediate Case_Compare,0x2
0049 700f |p | Jump_Nonzero 0x59
004a 0b03 | | Execute_Immediate Case_Compare,0x3
004b 7010 |p | Jump_Nonzero 0x5c
004c 0092 00a4 | | Action Push_String_Extended,0xa4 ; "TERMINAL_DEFS.EVENT"
; Debug Table 0x2.0x1 = 0x4c,0x6
004e e5ff | | Load 0x2,-0x1
004f 00e0 | | Load_Encached Standard_Cache
0050 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0051 01cc | | Execute Vector,Catenate
0052 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0053 0092 00a5 | | Action Push_String_Extended,0xa5 ; "Data"
; Debug Table 0x2.0x2 = 0x53,0x2
0055 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0056 0092 00a6 | | Action Push_String_Extended,0xa6 ; "Break"
; Debug Table 0x2.0x3 = 0x56,0x3
0058 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0059 0092 00a7 | | Action Push_String_Extended,0xa7 ; "Disconnect"
; Debug Table 0x2.0x4 = 0x59,0x4
005b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
005c 0092 00a8 | | Action Push_String_Extended,0xa8 ; "Wait_For_Transmission"
; Debug Table 0x2.0x5 = 0x5c,0x5
005e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
005f 0000 | | .XXX[0x1]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0063 | c | .CONST 0x0063 ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 0001 | | .CONST 0x0001 ; Number of locals
0063 BODY_0060:
0063 INIT_0060:
0063 00da | | Load_Top At_Offset_2 ; Debug Table 0x3 = .DEBUG 0x0063,0x0194,0x0002,0x0000,0x0016,0x27e4,0x0000,0x0071
; Debug Table 0x3.0x0 = 0x63,0x1
0064 0b00 | | Execute_Immediate Case_Compare,0x0
0065 7019 |p | Jump_Nonzero 0x7f
0066 0b01 | | Execute_Immediate Case_Compare,0x1
0067 701a |p | Jump_Nonzero 0x82
0068 0b02 | | Execute_Immediate Case_Compare,0x2
0069 701b |p | Jump_Nonzero 0x85
006a 0b03 | | Execute_Immediate Case_Compare,0x3
006b 701c |p | Jump_Nonzero 0x88
006c 0b04 | | Execute_Immediate Case_Compare,0x4
006d 701d |p | Jump_Nonzero 0x8b
006e 0b05 | | Execute_Immediate Case_Compare,0x5
006f 701e |p | Jump_Nonzero 0x8e
0070 0b06 | | Execute_Immediate Case_Compare,0x6
0071 701f |p | Jump_Nonzero 0x91
0072 0b07 | | Execute_Immediate Case_Compare,0x7
0073 7020 |p | Jump_Nonzero 0x94
0074 0b08 | | Execute_Immediate Case_Compare,0x8
0075 7021 |p! | Jump_Nonzero 0x97
0076 0b09 | | Execute_Immediate Case_Compare,0x9
0077 7022 |p" | Jump_Nonzero 0x9a
0078 0092 00a9 | | Action Push_String_Extended,0xa9 ; "TERMINAL_DEFS.STATUS"
; Debug Table 0x3.0x1 = 0x78,0xc
007a e5ff | | Load 0x2,-0x1
007b 00e0 | | Load_Encached Standard_Cache
007c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
007d 01cc | | Execute Vector,Catenate
007e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
007f 0092 00aa | | Action Push_String_Extended,0xaa ; "Ok"
; Debug Table 0x3.0x2 = 0x7f,0x2
0081 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0082 0092 00ab | | Action Push_String_Extended,0xab ; "Handle_Not_Open"
; Debug Table 0x3.0x3 = 0x82,0x3
0084 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0085 0092 00ac | | Action Push_String_Extended,0xac ; "Timed_Out"
; Debug Table 0x3.0x4 = 0x85,0x4
0087 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0088 0092 00ad | | Action Push_String_Extended,0xad ; "Data_Error"
; Debug Table 0x3.0x5 = 0x88,0x5
008a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
008b 0092 00ae | | Action Push_String_Extended,0xae ; "Data_Overrun"
; Debug Table 0x3.0x6 = 0x8b,0x6
008d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
008e 0092 00af | | Action Push_String_Extended,0xaf ; "Lost_Ownership"
; Debug Table 0x3.0x7 = 0x8e,0x7
0090 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0091 0092 00b0 | | Action Push_String_Extended,0xb0 ; "Gained_Ownership"
; Debug Table 0x3.0x8 = 0x91,0x8
0093 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0094 0092 00b1 | | Action Push_String_Extended,0xb1 ; "Too_Many_Clients"
; Debug Table 0x3.0x9 = 0x94,0x9
0096 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0097 0092 00b2 | | Action Push_String_Extended,0xb2 ; "Client_Not_Registered"
; Debug Table 0x3.0xa = 0x97,0xa
0099 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
009a 0092 00b3 | | Action Push_String_Extended,0xb3 ; "Terminal_Does_Not_Exist"
; Debug Table 0x3.0xb = 0x9a,0xb
009c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
009d 0000 0000 | | .XXX[0x3]
009f 0000 | |
00a0 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
00a4 ; --------------------------------------------------------------------------------------
00a4 ; STRING TABLE
00a4 ; --------------------------------------------------------------------------------------
00a4 0022 | " | .STRTAB 0x0022->0x00b5 ; "TERMINAL_DEFS.EVENT"
00a5 0033 | 3 | .STRTAB 0x0033->0x00be ; "Data"
00a6 0035 | 5 | .STRTAB 0x0035->0x00c0 ; "Break"
00a7 0038 | 8 | .STRTAB 0x0038->0x00c3 ; "Disconnect"
00a8 0040 | @ | .STRTAB 0x0040->0x00c8 ; "Wait_For_Transmission"
00a9 0053 | S | .STRTAB 0x0053->0x00d2 ; "TERMINAL_DEFS.STATUS"
00aa 0065 | e | .STRTAB 0x0065->0x00dc ; "Ok"
00ab 0065 | e | .STRTAB 0x0065->0x00dd ; "Handle_Not_Open"
00ac 0072 | r | .STRTAB 0x0072->0x00e5 ; "Timed_Out"
00ad 0079 | y | .STRTAB 0x0079->0x00e9 ; "Data_Error"
00ae 0081 | | .STRTAB 0x0081->0x00ee ; "Data_Overrun"
00af 008b | | .STRTAB 0x008b->0x00f4 ; "Lost_Ownership"
00b0 0097 | | .STRTAB 0x0097->0x00fb ; "Gained_Ownership"
00b1 00a5 | | .STRTAB 0x00a5->0x0103 ; "Too_Many_Clients"
00b2 00b3 | | .STRTAB 0x00b3->0x010b ; "Client_Not_Registered"
00b3 00c6 | | .STRTAB 0x00c6->0x0116 ; "Terminal_Does_Not_Exist"
00b4 00db | | .STREND 0x00db->0x0121
00b5 5445 524d |TERM| .STRTAB_STRINGS
0122 0000 0000 | | .BLANK 0000[0x6]
0128 ; --------------------------------------------------------------------------------------
0128 ; Debug Table
0128 ; --------------------------------------------------------------------------------------
0128 0003 0004 | | .CONST 0x0003,0x0004
012a 000b 014a | J| .DEBUG 0x000b,0x014a,0x8000,0x0000,0x0016,0x27e4,0x0000,0x0005
0132 0036 0180 | 6 | .DEBUG 0x0036,0x0180,0x8000,0x0000,0x0016,0x2964,0x0000,0x0003
013a 0043 0186 | C | .DEBUG 0x0043,0x0186,0x0002,0x0000,0x0016,0x27e4,0x0000,0x0050
0142 0063 0194 | c | .DEBUG 0x0063,0x0194,0x0002,0x0000,0x0016,0x27e4,0x0000,0x0071
014a ; --------------------------------------------------------------------------------------
014a ; Debug3 Subtable 0x0
014a ; --------------------------------------------------------------------------------------
014a 001a 0000 | | .DBG3TAB 0x001a,0x0000
014c 000b ffff | | .CONST 0x000b,0xffff
014e 000c fffe | | .CONST 0x000c,0xfffe
0150 000d fffd | | .CONST 0x000d,0xfffd
0152 000f fffc | | .CONST 0x000f,0xfffc
0154 0010 fffb | | .CONST 0x0010,0xfffb
0156 0016 fffa | | .CONST 0x0016,0xfffa
0158 001b fff9 | | .CONST 0x001b,0xfff9
015a 001f fff8 | | .CONST 0x001f,0xfff8
015c 0020 fff7 | | .CONST 0x0020,0xfff7
015e 0022 fff6 | " | .CONST 0x0022,0xfff6
0160 0024 fff5 | $ | .CONST 0x0024,0xfff5
0162 0025 fff4 | % | .CONST 0x0025,0xfff4
0164 0026 fff3 | & | .CONST 0x0026,0xfff3
0166 0027 fff2 | ' | .CONST 0x0027,0xfff2
0168 0029 fff1 | ) | .CONST 0x0029,0xfff1
016a 002b fff0 | + | .CONST 0x002b,0xfff0
016c 002c ffef | , | .CONST 0x002c,0xffef
016e 002d ffee | - | .CONST 0x002d,0xffee
0170 002e ffed | . | .CONST 0x002e,0xffed
0172 002f ffec | / | .CONST 0x002f,0xffec
0174 0030 ffeb | 0 | .CONST 0x0030,0xffeb
0176 0031 ffea | 1 | .CONST 0x0031,0xffea
0178 0032 ffe9 | 2 | .CONST 0x0032,0xffe9
017a 0033 ffe8 | 3 | .CONST 0x0033,0xffe8
017c 0034 ffe7 | 4 | .CONST 0x0034,0xffe7
017e 0035 ffe6 | 5 | .CONST 0x0035,0xffe6
0180 ; --------------------------------------------------------------------------------------
0180 ; Debug3 Subtable 0x1
0180 ; --------------------------------------------------------------------------------------
0180 0002 0000 | | .DBG3TAB 0x0002,0x0000
0182 0036 ffff | 6 | .CONST 0x0036,0xffff
0184 0038 fffe | 8 | .CONST 0x0038,0xfffe
0186 ; --------------------------------------------------------------------------------------
0186 ; Debug3 Subtable 0x2
0186 ; --------------------------------------------------------------------------------------
0186 0000 0006 | | .DBG3TAB 0x0000,0x0006
0188 0043 0001 | C | .CONST 0x0043,0x0001
018a 004c 0006 | L | .CONST 0x004c,0x0006
018c 0053 0002 | S | .CONST 0x0053,0x0002
018e 0056 0003 | V | .CONST 0x0056,0x0003
0190 0059 0004 | Y | .CONST 0x0059,0x0004
0192 005c 0005 | \ | .CONST 0x005c,0x0005
0194 ; --------------------------------------------------------------------------------------
0194 ; Debug3 Subtable 0x3
0194 ; --------------------------------------------------------------------------------------
0194 0000 000c | | .DBG3TAB 0x0000,0x000c
0196 0063 0001 | c | .CONST 0x0063,0x0001
0198 0078 000c | x | .CONST 0x0078,0x000c
019a 007f 0002 | | .CONST 0x007f,0x0002
019c 0082 0003 | | .CONST 0x0082,0x0003
019e 0085 0004 | | .CONST 0x0085,0x0004
01a0 0088 0005 | | .CONST 0x0088,0x0005
01a2 008b 0006 | | .CONST 0x008b,0x0006
01a4 008e 0007 | | .CONST 0x008e,0x0007
01a6 0091 0008 | | .CONST 0x0091,0x0008
01a8 0094 0009 | | .CONST 0x0094,0x0009
01aa 0097 000a | | .CONST 0x0097,0x000a
01ac 009a 000b | | .CONST 0x009a,0x000b
01ae 0000 0000 | | .BLANK 0000[0x52]