|
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_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 00e0 | | .CONST 0x00e0 ; 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 0038 | 8 | .CONST 0x0038 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0015 | | .CONST 0x0015 ; Number of locals
000b INIT_0008:
000b 0007 | | Action Break_Optional ; Debug Table 0x0 = .DEBUG 0x000b,0x0132,0x8000,0x0000,0x0036,0x42b4,0x0000,0x0009
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 0007 | | Action Break_Optional ; Debug Table 0x0.0x1 = 0xc,0xfffe
000d 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0xd,0xfffd
000f 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0xf,0xfffc
0011 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x11,0xfffb
0013 0007 | | Action Break_Optional ; Debug Table 0x0.0x5 = 0x13,0xfffa
0014 00bf | | Action Accept_Activation ; Debug Table 0x0.0x6 = 0x14,0xfff9
0015 e001 | | Load 0x0,0x1 ; Debug Table 0x1 = .DEBUG 0x0015,0x0142,0x8000,0x0000,0x0036,0x42c4,0x0000,0x0009
; Debug Table 0x1.0x0 = 0x15,0xffff
0016 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0017 02a0 | | Declare_Subprogram Null_Subprogram
0018 03ad | | Declare_Type Heap_Access,Defined
0019 0007 | | Action Break_Optional ; Debug Table 0x1.0x1 = 0x19,0xfffe
001a 0007 | | Action Break_Optional ; Debug Table 0x1.0x2 = 0x1a,0xfffd
001b 029d 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call ; Debug Table 0x1.0x3 = 0x1b,0xfffc
001d 029d 008b | | Declare_Subprogram INIT_0088,For_Outer_Call ; Debug Table 0x1.0x4 = 0x1d,0xfffb
001f 60ac |` | Indirect_Literal Discrete,0xcc,{0x00000000, 0x003642c4} ; Debug Table 0x1.0x5 = 0x1f,0xfffa
0020 4863 |Hc | Short_Literal 0x63
0021 0092 00d0 | | Action Push_String_Extended,0xd0 ; "Terminal_Io.Handle_Type"
0023 e210 | | Load 0x1,0x10
0024 e210 | | Load 0x1,0x10
0025 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0026 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0027 4800 |H | Short_Literal 0x0
0028 4801 |H | Short_Literal 0x1
0029 e002 | | Load 0x0,0x2
002a 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
002b 0387 | | Declare_Variable Package
002c 00d8 | | Load_Top At_Offset_0
002d 020f | | Execute Module,Activate
002e 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x6 = 0x2e,0xfff9
002f 00c7 | | Action Elaborate_Subprogram
0030 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x7 = 0x30,0xfff8
0031 00c7 | | Action Elaborate_Subprogram
0032 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1.0x8 = 0x32,0xfff7
0033 00c7 | | Action Elaborate_Subprogram
0034 029d 009b | | Declare_Subprogram INIT_0098,For_Outer_Call ; Debug Table 0x1.0x9 = 0x34,0xfff6
0036 029d 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call ; Debug Table 0x1.0xa = 0x36,0xfff5
0038 BODY_0008:
0038 00bc | | Action Signal_Activated
0039 00bb | | Action Signal_Completion
003a 0000 0000 | | .BLANK 0000[0x6]
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0048 | H | .CONST 0x0048 ; Address of begin
0041 0004 | | .CONST 0x0004 ; Address of exception handler
0042 0002 | | .CONST 0x0002 ; Number of locals
0043 INIT_0040:
0043 e210 | | Load 0x1,0x10 ; Debug Table 0x2 = .DEBUG 0x0043,0x015a,0x0002,0x0000,0x0036,0x42b4,0x0000,0x0016
; Debug Table 0x2.0x0 = 0x43,0xffff
0044 00db | | Load_Top At_Offset_3
0045 e213 | | Load 0x1,0x13
0046 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0047 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0048 BODY_0040:
0048 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x1 = 0x48,0x1
0049 e210 | | Load 0x1,0x10
004a 021e | | Execute Heap_Access,Maximum
004b 6809 |h | Jump_Zero 0x55
004c 00d8 | | Load_Top At_Offset_0
004d 0217 | | Execute Heap_Access,All_Reference
004e e001 | | Load 0x0,0x1
004f 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0050 6804 |h | Jump_Zero 0x55
0051 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x2 = 0x51,0x2
0052 0217 | | Execute Heap_Access,All_Reference
0053 0320 | | Declare_Variable Record,Duplicate
0054 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0055 e002 | | Load 0x0,0x2 ; Debug Table 0x2.0x3 = 0x55,0x3
0056 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
0057 0257 | W | Execute Discrete,Raise
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 0060 | ` | .CONST 0x0060 ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0002 | | .CONST 0x0002 ; Number of locals
005b INIT_0058:
005b e210 | | Load 0x1,0x10 ; Debug Table 0x3 = .DEBUG 0x005b,0x0164,0x0001,0x0000,0x0036,0x42b4,0x0000,0x0026
; Debug Table 0x3.0x0 = 0x5b,0xffff
005c 00db | | Load_Top At_Offset_3
005d e213 | | Load 0x1,0x13
005e 1817 | | Execute Package,Field_Execute,Field_Number 0x17
005f 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0060 BODY_0058:
0060 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x1 = 0x60,0x1
0061 0217 | | Execute Heap_Access,All_Reference
0062 e001 | | Load 0x0,0x1
0063 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0064 6803 |h | Jump_Zero 0x68
0065 e002 | | Load 0x0,0x2 ; Debug Table 0x3.0x2 = 0x65,0x2
0066 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f
0067 0257 | W | Execute Discrete,Raise
0068 e5fe | | Load 0x2,-0x2 ; Debug Table 0x3.0x3 = 0x68,0x3
0069 00d9 | | Load_Top At_Offset_1
006a 0218 | | Execute Heap_Access,All_Write
006b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
006c 0000 0000 | | .BLANK 0000[0x4]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0073 | s | .CONST 0x0073 ; Address of begin
0071 0004 | | .CONST 0x0004 ; Address of exception handler
0072 0001 | | .CONST 0x0001 ; Number of locals
0073 BODY_0070:
0073 INIT_0070:
0073 00da | | Load_Top At_Offset_2 ; Debug Table 0x4 = .DEBUG 0x0073,0x016e,0x0001,0x0000,0x0036,0x42b4,0x0000,0x0039
; Debug Table 0x4.0x0 = 0x73,0x1
0074 e213 | | Load 0x1,0x13
0075 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0076 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0077 0000 | | .XXX[0x1]
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 e210 | | Load 0x1,0x10 ; Debug Table 0x5 = .DEBUG 0x007b,0x0172,0x0001,0x0000,0x0036,0x42c4,0x0000,0x001c
; Debug Table 0x5.0x0 = 0x7b,0x1
007c 00db | | Load_Top At_Offset_3
007d e003 | | Load 0x0,0x3
007e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
007f 039c | | Declare_Variable Heap_Access,By_Allocation
0080 a5fe | | Store_Unchecked 0x2,-0x2
0081 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0x5.0x1 = 0x81,0x2
0082 0000 0000 | | .BLANK 0000[0x6]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008d | | .CONST 0x008d ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0002 | | .CONST 0x0002 ; Number of locals
008b INIT_0088:
008b 029f 00c3 | | Declare_Subprogram INIT_00c0,For_Call ; Debug Table 0x6 = .DEBUG 0x008b,0x0178,0x0001,0x0000,0x0036,0x42c4,0x0000,0x003e
008d BODY_0088:
008d 8402 | | Call 0x2,0x2 ; Debug Table 0x6.0x0 = 0x8d,0x1
008e e210 | | Load 0x1,0x10 ; Debug Table 0x6.0x1 = 0x8e,0x2
008f a5fe | | Store_Unchecked 0x2,-0x2
0090 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0091 0000 0000 | | .BLANK 0000[0x7]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009e | | .CONST 0x009e ; Address of begin
0099 00a4 | | .CONST 0x00a4 ; Address of exception handler
009a 0002 | | .CONST 0x0002 ; Number of locals
009b INIT_0098:
009b e001 | | Load 0x0,0x1 ; Debug Table 0x7 = .DEBUG 0x009b,0x017e,0x0002,0x0000,0x0036,0x42c4,0x0000,0x0101
; Debug Table 0x7.0x0 = 0x9b,0xffff
009c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
009d 0322 | " | Declare_Variable Record
009e BODY_0098:
009e 00db | | Load_Top At_Offset_3 ; Debug Table 0x7.0x1 = 0x9e,0x1
009f 820d | | Call 0x1,0xd
00a0 00d9 | | Load_Top At_Offset_1
00a1 017d | } | Execute Record,Structure_Write
00a2 4801 |H | Short_Literal 0x1 ; Debug Table 0x7.0x2 = 0xa2,0x2
00a3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00a4 TRAP_0098:
00a4 0007 | | Action Break_Optional
00a5 4800 |H | Short_Literal 0x0 ; Debug Table 0x7.0x3 = 0xa5,0x3
00a6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00a7 0000 | | .XXX[0x1]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab | | .CONST 0x00ab ; Address of begin
00a9 00b2 | | .CONST 0x00b2 ; Address of exception handler
00aa 0001 | | .CONST 0x0001 ; Number of locals
00ab BODY_00a8:
00ab INIT_00a8:
00ab 00da | | Load_Top At_Offset_2 ; Debug Table 0x8 = .DEBUG 0x00ab,0x0188,0x0001,0x0000,0x0036,0x42c4,0x0000,0x0128
; Debug Table 0x8.0x0 = 0xab,0x1
00ac 820d | | Call 0x1,0xd
00ad e5fe | | Load 0x2,-0x2
00ae 017d | } | Execute Record,Structure_Write
00af 4801 |H | Short_Literal 0x1 ; Debug Table 0x8.0x1 = 0xaf,0x2
00b0 a5fd | | Store_Unchecked 0x2,-0x3
00b1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00b2 TRAP_00a8:
00b2 e002 | | Load 0x0,0x2
00b3 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
00b4 010f | | Execute Exception,Equal
00b5 6807 |h | Jump_Zero 0xbd
00b6 e001 | | Load 0x0,0x1 ; Debug Table 0x8.0x2 = 0xb6,0x3
00b7 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00b8 e5fe | | Load 0x2,-0x2
00b9 017d | } | Execute Record,Structure_Write
00ba 4800 |H | Short_Literal 0x0 ; Debug Table 0x8.0x3 = 0xba,0x4
00bb a5fd | | Store_Unchecked 0x2,-0x3
00bc 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00bd 0100 | | Execute Exception,Raise
00be 0000 0000 | | .XXX[0x2]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3 | | .CONST 0x00c3 ; Address of begin
00c1 00c8 | | .CONST 0x00c8 ; Address of exception handler
00c2 0001 | | .CONST 0x0001 ; Number of locals
00c3 BODY_00c0:
00c3 INIT_00c0:
00c3 e5fe | | Load 0x2,-0x2 ; Debug Table 0x9 = .DEBUG 0x00c3,0x0192,0x0004,0x0000,0x0036,0x42c4,0x0000,0x005b
; Debug Table 0x9.0x0 = 0xc3,0x1
00c4 0217 | | Execute Heap_Access,All_Reference
00c5 e001 | | Load 0x0,0x1
00c6 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00c7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00c8 TRAP_00c0:
00c8 0007 | | Action Break_Optional
00c9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; Debug Table 0x9.0x1 = 0xc9,0x2
00ca 0000 0000 | | .XXX[0x2]
00cc 0000 0000 | | .LITERAL {0x00000000, 0x003642c4}
00d0 ; --------------------------------------------------------------------------------------
00d0 ; STRING TABLE
00d0 ; --------------------------------------------------------------------------------------
00d0 0004 | | .STRTAB 0x0004->0x00d2 ; "Terminal_Io.Handle_Type"
00d1 0019 | | .STREND 0x0019->0x00dd
00d2 5465 726d |Term| .STRTAB_STRINGS
00de 0000 0000 | | .XXX[0x2]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; Debug Table
00e0 ; --------------------------------------------------------------------------------------
00e0 0003 000a | | .CONST 0x0003,0x000a
00e2 000b 0132 | 2| .DEBUG 0x000b,0x0132,0x8000,0x0000,0x0036,0x42b4,0x0000,0x0009
00ea 0015 0142 | B| .DEBUG 0x0015,0x0142,0x8000,0x0000,0x0036,0x42c4,0x0000,0x0009
00f2 0043 015a | C Z| .DEBUG 0x0043,0x015a,0x0002,0x0000,0x0036,0x42b4,0x0000,0x0016
00fa 005b 0164 | [ d| .DEBUG 0x005b,0x0164,0x0001,0x0000,0x0036,0x42b4,0x0000,0x0026
0102 0073 016e | s n| .DEBUG 0x0073,0x016e,0x0001,0x0000,0x0036,0x42b4,0x0000,0x0039
010a 007b 0172 | { r| .DEBUG 0x007b,0x0172,0x0001,0x0000,0x0036,0x42c4,0x0000,0x001c
0112 008b 0178 | x| .DEBUG 0x008b,0x0178,0x0001,0x0000,0x0036,0x42c4,0x0000,0x003e
011a 009b 017e | ~| .DEBUG 0x009b,0x017e,0x0002,0x0000,0x0036,0x42c4,0x0000,0x0101
0122 00ab 0188 | | .DEBUG 0x00ab,0x0188,0x0001,0x0000,0x0036,0x42c4,0x0000,0x0128
012a 00c3 0192 | | .DEBUG 0x00c3,0x0192,0x0004,0x0000,0x0036,0x42c4,0x0000,0x005b
0132 ; --------------------------------------------------------------------------------------
0132 ; Debug3 Subtable 0x0
0132 ; --------------------------------------------------------------------------------------
0132 0007 0000 | | .DBG3TAB 0x0007,0x0000
0134 000b ffff | | .CONST 0x000b,0xffff
0136 000c fffe | | .CONST 0x000c,0xfffe
0138 000d fffd | | .CONST 0x000d,0xfffd
013a 000f fffc | | .CONST 0x000f,0xfffc
013c 0011 fffb | | .CONST 0x0011,0xfffb
013e 0013 fffa | | .CONST 0x0013,0xfffa
0140 0014 fff9 | | .CONST 0x0014,0xfff9
0142 ; --------------------------------------------------------------------------------------
0142 ; Debug3 Subtable 0x1
0142 ; --------------------------------------------------------------------------------------
0142 000b 0000 | | .DBG3TAB 0x000b,0x0000
0144 0015 ffff | | .CONST 0x0015,0xffff
0146 0019 fffe | | .CONST 0x0019,0xfffe
0148 001a fffd | | .CONST 0x001a,0xfffd
014a 001b fffc | | .CONST 0x001b,0xfffc
014c 001d fffb | | .CONST 0x001d,0xfffb
014e 001f fffa | | .CONST 0x001f,0xfffa
0150 002e fff9 | . | .CONST 0x002e,0xfff9
0152 0030 fff8 | 0 | .CONST 0x0030,0xfff8
0154 0032 fff7 | 2 | .CONST 0x0032,0xfff7
0156 0034 fff6 | 4 | .CONST 0x0034,0xfff6
0158 0036 fff5 | 6 | .CONST 0x0036,0xfff5
015a ; --------------------------------------------------------------------------------------
015a ; Debug3 Subtable 0x2
015a ; --------------------------------------------------------------------------------------
015a 0001 0003 | | .DBG3TAB 0x0001,0x0003
015c 0043 ffff | C | .CONST 0x0043,0xffff
015e 0048 0001 | H | .CONST 0x0048,0x0001
0160 0051 0002 | Q | .CONST 0x0051,0x0002
0162 0055 0003 | U | .CONST 0x0055,0x0003
0164 ; --------------------------------------------------------------------------------------
0164 ; Debug3 Subtable 0x3
0164 ; --------------------------------------------------------------------------------------
0164 0001 0003 | | .DBG3TAB 0x0001,0x0003
0166 005b ffff | [ | .CONST 0x005b,0xffff
0168 0060 0001 | ` | .CONST 0x0060,0x0001
016a 0065 0002 | e | .CONST 0x0065,0x0002
016c 0068 0003 | h | .CONST 0x0068,0x0003
016e ; --------------------------------------------------------------------------------------
016e ; Debug3 Subtable 0x4
016e ; --------------------------------------------------------------------------------------
016e 0000 0001 | | .DBG3TAB 0x0000,0x0001
0170 0073 0001 | s | .CONST 0x0073,0x0001
0172 ; --------------------------------------------------------------------------------------
0172 ; Debug3 Subtable 0x5
0172 ; --------------------------------------------------------------------------------------
0172 0000 0002 | | .DBG3TAB 0x0000,0x0002
0174 007b 0001 | { | .CONST 0x007b,0x0001
0176 0081 0002 | | .CONST 0x0081,0x0002
0178 ; --------------------------------------------------------------------------------------
0178 ; Debug3 Subtable 0x6
0178 ; --------------------------------------------------------------------------------------
0178 0000 0002 | | .DBG3TAB 0x0000,0x0002
017a 008d 0001 | | .CONST 0x008d,0x0001
017c 008e 0002 | | .CONST 0x008e,0x0002
017e ; --------------------------------------------------------------------------------------
017e ; Debug3 Subtable 0x7
017e ; --------------------------------------------------------------------------------------
017e 0001 0003 | | .DBG3TAB 0x0001,0x0003
0180 009b ffff | | .CONST 0x009b,0xffff
0182 009e 0001 | | .CONST 0x009e,0x0001
0184 00a2 0002 | | .CONST 0x00a2,0x0002
0186 00a5 0003 | | .CONST 0x00a5,0x0003
0188 ; --------------------------------------------------------------------------------------
0188 ; Debug3 Subtable 0x8
0188 ; --------------------------------------------------------------------------------------
0188 0000 0004 | | .DBG3TAB 0x0000,0x0004
018a 00ab 0001 | | .CONST 0x00ab,0x0001
018c 00af 0002 | | .CONST 0x00af,0x0002
018e 00b6 0003 | | .CONST 0x00b6,0x0003
0190 00ba 0004 | | .CONST 0x00ba,0x0004
0192 ; --------------------------------------------------------------------------------------
0192 ; Debug3 Subtable 0x9
0192 ; --------------------------------------------------------------------------------------
0192 0000 0002 | | .DBG3TAB 0x0000,0x0002
0194 00c3 0001 | | .CONST 0x00c3,0x0001
0196 00c9 0002 | | .CONST 0x00c9,0x0002
0198 0000 0000 | | .BLANK 0000[0x68]