|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_1e5cd8
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0108 | | .CONST 0x0108 ; 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 003e | > | .CONST 0x003e ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0014 | | .CONST 0x0014 ; Number of locals
000b INIT_0008:
000b e001 | | Load 0x0,0x1
000c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
000d e001 | | Load 0x0,0x1
000e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
000f e002 | | Load 0x0,0x2
0010 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0011 029f 00bb | | Declare_Subprogram INIT_00b8,For_Call
0013 4803 |H | Short_Literal 0x3
0014 032e | . | Declare_Type Record,Defined,Visible
0015 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated
0017 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated
0019 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated
001b 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated
001d 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated
001f e003 | | Load 0x0,0x3
0020 e004 | | Load 0x0,0x4
0021 e20d | | Load 0x1,0xd
0022 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0023 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0024 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0025 e005 | | Load 0x0,0x5
0026 0386 | | Declare_Variable Package,Visible
0027 00d8 | | Load_Top At_Offset_0
0028 020f | | Execute Module,Activate
0029 e006 | | Load 0x0,0x6
002a e007 | | Load 0x0,0x7
002b e20d | | Load 0x1,0xd
002c 1d10 | | Execute_Immediate Reference_Lex_1,0x10
002d 1d11 | | Execute_Immediate Reference_Lex_1,0x11
002e 1d12 | | Execute_Immediate Reference_Lex_1,0x12
002f e005 | | Load 0x0,0x5
0030 0386 | | Declare_Variable Package,Visible
0031 00d8 | | Load_Top At_Offset_0
0032 020f | | Execute Module,Activate
0033 00bf | | Action Accept_Activation
0034 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0035 00c7 | | Action Elaborate_Subprogram
0036 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0037 00c7 | | Action Elaborate_Subprogram
0038 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0039 00c7 | | Action Elaborate_Subprogram
003a 1d11 | | Execute_Immediate Reference_Lex_1,0x11
003b 00c7 | | Action Elaborate_Subprogram
003c 1d12 | | Execute_Immediate Reference_Lex_1,0x12
003d 00c7 | | Action Elaborate_Subprogram
003e BODY_0008:
003e 00bc | | Action Signal_Activated
003f 00bb | | Action Signal_Completion
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
0044 e001 | | Load 0x0,0x1
0045 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0046 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0047 0092 00d9 | | Action Push_String_Extended,0xd9 ; ".State.Tool_State.Remote_Links"
0049 01cc | | Execute Vector,Catenate
004a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
004b 0000 0000 | | .BLANK 0000[0x5]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0053 | S | .CONST 0x0053 ; Address of begin
0051 0004 | | .CONST 0x0004 ; Address of exception handler
0052 0001 | | .CONST 0x0001 ; Number of locals
0053 BODY_0050:
0053 INIT_0050:
0053 4801 |H | Short_Literal 0x1
0054 e5fe | | Load 0x2,-0x2
0055 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0056 e001 | | Load 0x0,0x1
0057 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0058 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
0059 e5ff | | Load 0x2,-0x1
005a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
005b e001 | | Load 0x0,0x1
005c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
005d 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
005e e008 | | Load 0x0,0x8
005f 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0060 6802 |h | Jump_Zero 0x63
0061 4801 |H | Short_Literal 0x1
0062 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0063 4800 |H | Short_Literal 0x0
0064 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0065 0000 0000 | | .XXX[0x3]
0067 0000 | |
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b | k | .CONST 0x006b ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0001 | | .CONST 0x0001 ; Number of locals
006b BODY_0068:
006b INIT_0068:
006b 00da | | Load_Top At_Offset_2
006c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
006d e5fe | | Load 0x2,-0x2
006e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
006f 012f | / | Execute Any,Equal
0070 6802 |h | Jump_Zero 0x73
0071 4801 |H | Short_Literal 0x1
0072 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0073 4800 |H | Short_Literal 0x0
0074 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0075 0000 0000 | | .XXX[0x3]
0077 0000 | |
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
007c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
007d e001 | | Load 0x0,0x1
007e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
007f 012f | / | Execute Any,Equal
0080 700b |p | Jump_Nonzero 0x8c
0081 4801 |H | Short_Literal 0x1
0082 0092 00da | | Action Push_String_Extended,0xda ; "{[<KEY_NOT_FOUND>]}"
0084 e5ff | | Load 0x2,-0x1
0085 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0086 e001 | | Load 0x0,0x1
0087 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0088 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
0089 e008 | | Load 0x0,0x8
008a 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
008b 6802 |h | Jump_Zero 0x8e
008c 4801 |H | Short_Literal 0x1
008d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
008e 4800 |H | Short_Literal 0x0
008f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093 | | .CONST 0x0093 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0001 | | .CONST 0x0001 ; Number of locals
0093 BODY_0090:
0093 INIT_0090:
0093 0092 00db | | Action Push_String_Extended,0xdb ; "Unit => "
0095 00db | | Load_Top At_Offset_3
0096 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0097 e001 | | Load 0x0,0x1
0098 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0099 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
009a 01cc | | Execute Vector,Catenate
009b e009 | | Load 0x0,0x9
009c 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
009d 0092 00dc | | Action Push_String_Extended,0xdc ; " View => "
009f 00db | | Load_Top At_Offset_3
00a0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00a1 e001 | | Load 0x0,0x1
00a2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00a3 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
00a4 01cc | | Execute Vector,Catenate
00a5 e009 | | Load 0x0,0x9
00a6 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00a7 0092 00dd | | Action Push_String_Extended,0xdd ; " Time => "
00a9 4800 |H | Short_Literal 0x0
00aa 4800 |H | Short_Literal 0x0
00ab 4800 |H | Short_Literal 0x0
00ac e5ff | | Load 0x2,-0x1
00ad 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00ae e00a | | Load 0x0,0xa
00af 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00b0 e00a | | Load 0x0,0xa
00b1 181f | | Execute Package,Field_Execute,Field_Number 0x1f
00b2 01cc | | Execute Vector,Catenate
00b3 e009 | | Load 0x0,0x9
00b4 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00b5 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00b6 0000 0000 | | .XXX[0x2]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb | | .CONST 0x00bb ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0001 | | .CONST 0x0001 ; Number of locals
00bb BODY_00b8:
00bb INIT_00b8:
00bb 4608 |F | Jump_Case 0x9
00bc 7808 |x | Jump 0xc5 ; case 0x0
00bd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
00be 7819 |x | Jump 0xd8 ; case 0x2
00bf 7818 |x | Jump 0xd8 ; case 0x3
00c0 7817 |x | Jump 0xd8 ; case 0x4
00c1 7816 |x | Jump 0xd8 ; case 0x5
00c2 7815 |x | Jump 0xd8 ; case 0x6
00c3 7814 |x | Jump 0xd8 ; case 0x7
00c4 7813 |x | Jump 0xd8 ; case 0x8
00c5 00da | | Load_Top At_Offset_2
00c6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00c7 0125 | % | Execute Any,Set_Constraint
00c8 00da | | Load_Top At_Offset_2
00c9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00ca 1c00 | | Execute_Immediate Run_Utility,0x0
00cb 00da | | Load_Top At_Offset_2
00cc 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
00cd 0125 | % | Execute Any,Set_Constraint
00ce 00da | | Load_Top At_Offset_2
00cf 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
00d0 1c00 | | Execute_Immediate Run_Utility,0x0
00d1 00da | | Load_Top At_Offset_2
00d2 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
00d3 0125 | % | Execute Any,Set_Constraint
00d4 00da | | Load_Top At_Offset_2
00d5 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
00d6 1c00 | | Execute_Immediate Run_Utility,0x0
00d7 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
00d8 0869 | i | Execute_Immediate Raise,0x69
00d9 ; --------------------------------------------------------------------------------------
00d9 ; STRING TABLE
00d9 ; --------------------------------------------------------------------------------------
00d9 000c | | .STRTAB 0x000c->0x00df ; ".State.Tool_State.Remote_Links"
00da 0028 | ( | .STRTAB 0x0028->0x00ee ; "{[<KEY_NOT_FOUND>]}"
00db 0039 | 9 | .STRTAB 0x0039->0x00f7 ; "Unit => "
00dc 0041 | A | .STRTAB 0x0041->0x00fc ; " View => "
00dd 0049 | I | .STRTAB 0x0049->0x0101 ; " Time => "
00de 0051 | Q | .STREND 0x0051->0x0106
00df 2e53 7461 |.Sta| .STRTAB_STRINGS
0107 0000 | | .XXX[0x1]
0108 ; --------------------------------------------------------------------------------------
0108 ; Debug Table
0108 ; --------------------------------------------------------------------------------------
0108 0004 0003 | | .DEBUG4 0x0004,0x0003,0xb930,0x0000,0x0001,0x0008
010e 000b 012e | .| .DBG4T 0x000b,0x012e,0x8000,0x0000
0112 0034 0138 | 4 8| .DBG4T 0x0034,0x0138,0x8000,0x8000
0116 0043 0144 | C D| .DBG4T 0x0043,0x0144,0x0002,0x0000
011a 0053 0147 | S G| .DBG4T 0x0053,0x0147,0x0002,0x0000
011e 006b 014c | k L| .DBG4T 0x006b,0x014c,0x0002,0x0000
0122 007b 0151 | { Q| .DBG4T 0x007b,0x0151,0x0002,0x0000
0126 0093 0156 | V| .DBG4T 0x0093,0x0156,0x0001,0x0000
012a 00bb 0000 | | .DBG4T 0x00bb,0x0000,0x0005,0x0000
012e ; --------------------------------------------------------------------------------------
012e ; Debug chain
012e ; --------------------------------------------------------------------------------------
012e 0008 0000 | | .DBGLEN 0x0008,0x0000
0130 000b 0015 | | .DBGLNO 0x000b,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0029
0138 ; --------------------------------------------------------------------------------------
0138 ; Debug chain
0138 ; --------------------------------------------------------------------------------------
0138 0005 0000 | | .DBGLEN 0x0005,0x0000
013a 0034 0036 | 4 6| .DBGLNO 0x0034,0x0036,0x0038,0x003a,0x003c
013f 0003 0004 | | .XXX[0x5]
0141 0005 0006 | |
0143 0007 | |
0144 ; --------------------------------------------------------------------------------------
0144 ; Debug chain
0144 ; --------------------------------------------------------------------------------------
0144 0000 0001 | | .DBGLEN 0x0000,0x0001
0146 0043 | C | .DBGLNO 0x0043
0147 ; --------------------------------------------------------------------------------------
0147 ; Debug chain
0147 ; --------------------------------------------------------------------------------------
0147 0000 0003 | | .DBGLEN 0x0000,0x0003
0149 0053 0061 | S a| .DBGLNO 0x0053,0x0061,0x0063
014c ; --------------------------------------------------------------------------------------
014c ; Debug chain
014c ; --------------------------------------------------------------------------------------
014c 0000 0003 | | .DBGLEN 0x0000,0x0003
014e 006b 0071 | k q| .DBGLNO 0x006b,0x0071,0x0073
0151 ; --------------------------------------------------------------------------------------
0151 ; Debug chain
0151 ; --------------------------------------------------------------------------------------
0151 0000 0003 | | .DBGLEN 0x0000,0x0003
0153 007b 008c | { | .DBGLNO 0x007b,0x008c,0x008e
0156 ; --------------------------------------------------------------------------------------
0156 ; Debug chain
0156 ; --------------------------------------------------------------------------------------
0156 0000 0003 | | .DBGLEN 0x0000,0x0003
0158 0093 009d | | .DBGLNO 0x0093,0x009d,0x00a7
015b 0000 0000 | | .BLANK 0000[0xa5]