|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_d838d9
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0100 | | .CONST 0x0100 ; 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 003f | ? | .CONST 0x003f ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001a | | .CONST 0x001a ; Number of locals
000b INIT_0008:
000b 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated
000d 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated
000f 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated
0011 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated
0013 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated
0015 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated
0017 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated
0019 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated
001b 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated
001d 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated
001f 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated
0021 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated
0023 00bf | | Action Accept_Activation
0024 00e8 | | Load_Encached Character_Cache
0025 00e1 | | Load_Encached Boolean_Cache
0026 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0027 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0028 00c7 | | Action Elaborate_Subprogram
0029 1d0e | | Execute_Immediate Reference_Lex_1,0xe
002a 00c7 | | Action Elaborate_Subprogram
002b 1d0f | | Execute_Immediate Reference_Lex_1,0xf
002c 00c7 | | Action Elaborate_Subprogram
002d 1d10 | | Execute_Immediate Reference_Lex_1,0x10
002e 00c7 | | Action Elaborate_Subprogram
002f 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0030 00c7 | | Action Elaborate_Subprogram
0031 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0032 00c7 | | Action Elaborate_Subprogram
0033 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0034 00c7 | | Action Elaborate_Subprogram
0035 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0036 00c7 | | Action Elaborate_Subprogram
0037 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0038 00c7 | | Action Elaborate_Subprogram
0039 1d16 | | Execute_Immediate Reference_Lex_1,0x16
003a 00c7 | | Action Elaborate_Subprogram
003b 1d17 | | Execute_Immediate Reference_Lex_1,0x17
003c 00c7 | | Action Elaborate_Subprogram
003d 1d18 | | Execute_Immediate Reference_Lex_1,0x18
003e 00c7 | | Action Elaborate_Subprogram
003f BODY_0008:
003f 00bc | | Action Signal_Activated
0040 00bb | | Action Signal_Completion
0041 0000 0000 | | .BLANK 0000[0x7]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 004b | K | .CONST 0x004b ; Address of begin
0049 0004 | | .CONST 0x0004 ; Address of exception handler
004a 0001 | | .CONST 0x0001 ; Number of locals
004b BODY_0048:
004b INIT_0048:
004b 00db | | Load_Top At_Offset_3
004c 6808 |h | Jump_Zero 0x55
004d e5fd | | Load 0x2,-0x3
004e 00ea | | Load_Encached Null_String_Cache
004f e5ff | | Load 0x2,-0x1
0050 4800 |H | Short_Literal 0x0
0051 e002 | | Load 0x0,0x2
0052 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0053 c5fd | | Store 0x2,-0x3
0054 7807 |x | Jump 0x5c
0055 e5fd | | Load 0x2,-0x3
0056 00ea | | Load_Encached Null_String_Cache
0057 e5ff | | Load 0x2,-0x1
0058 4801 |H | Short_Literal 0x1
0059 e002 | | Load 0x0,0x2
005a 1815 | | Execute Package,Field_Execute,Field_Number 0x15
005b c5fd | | Store 0x2,-0x3
005c 4800 |H | Short_Literal 0x0
005d a21a | | Store_Unchecked 0x1,0x1a
005e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
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 00db | | Load_Top At_Offset_3
0064 6808 |h | Jump_Zero 0x6d
0065 e5fd | | Load 0x2,-0x3
0066 00ea | | Load_Encached Null_String_Cache
0067 e5ff | | Load 0x2,-0x1
0068 4801 |H | Short_Literal 0x1
0069 e002 | | Load 0x0,0x2
006a 1814 | | Execute Package,Field_Execute,Field_Number 0x14
006b c5fd | | Store 0x2,-0x3
006c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
006d e5fd | | Load 0x2,-0x3
006e 00ea | | Load_Encached Null_String_Cache
006f e5ff | | Load 0x2,-0x1
0070 4800 |H | Short_Literal 0x0
0071 e002 | | Load 0x0,0x2
0072 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0073 c5fd | | Store 0x2,-0x3
0074 4503 |E | Exit_Suprogram New_Top_Offset 0x3
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 e21a | | Load 0x1,0x1a
007c 6803 |h | Jump_Zero 0x80
007d 4800 |H | Short_Literal 0x0
007e a21a | | Store_Unchecked 0x1,0x1a
007f 7816 |x | Jump 0x96
0080 00da | | Load_Top At_Offset_2
0081 8217 | | Call 0x1,0x17
0082 6803 |h | Jump_Zero 0x86
0083 4804 |H | Short_Literal 0x4
0084 a219 | | Store_Unchecked 0x1,0x19
0085 7810 |x | Jump 0x96
0086 00da | | Load_Top At_Offset_2
0087 e002 | | Load 0x0,0x2
0088 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0089 6807 |h | Jump_Zero 0x91
008a 4801 |H | Short_Literal 0x1
008b 00db | | Load_Top At_Offset_3
008c e002 | | Load 0x0,0x2
008d 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
008e 480d |H | Short_Literal 0xd
008f a219 | | Store_Unchecked 0x1,0x19
0090 7805 |x | Jump 0x96
0091 00e8 | | Load_Encached Character_Cache
0092 00db | | Load_Top At_Offset_3
0093 e002 | | Load 0x0,0x2
0094 1844 | D | Execute Package,Field_Execute,Field_Number 0x44
0095 c219 | | Store 0x1,0x19
0096 e219 | | Load 0x1,0x19
0097 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b | | .CONST 0x009b ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0001 | | .CONST 0x0001 ; Number of locals
009b BODY_0098:
009b INIT_0098:
009b 4801 |H | Short_Literal 0x1
009c a21a | | Store_Unchecked 0x1,0x1a
009d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
009e 0000 0000 | | .XXX[0x2]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3 | | .CONST 0x00a3 ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0001 | | .CONST 0x0001 ; Number of locals
00a3 BODY_00a0:
00a3 INIT_00a0:
00a3 00db | | Load_Top At_Offset_3
00a4 00db | | Load_Top At_Offset_3
00a5 e002 | | Load 0x0,0x2
00a6 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
00a7 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab | | .CONST 0x00ab ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0001 | | .CONST 0x0001 ; Number of locals
00ab BODY_00a8:
00ab INIT_00a8:
00ab 00db | | Load_Top At_Offset_3
00ac 00db | | Load_Top At_Offset_3
00ad e002 | | Load 0x0,0x2
00ae 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
00af 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3 | | .CONST 0x00b3 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0001 | | .CONST 0x0001 ; Number of locals
00b3 BODY_00b0:
00b3 INIT_00b0:
00b3 00db | | Load_Top At_Offset_3
00b4 00db | | Load_Top At_Offset_3
00b5 e002 | | Load 0x0,0x2
00b6 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
00b7 4503 |E | Exit_Suprogram New_Top_Offset 0x3
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 00db | | Load_Top At_Offset_3
00bc 00d8 | | Load_Top At_Offset_0
00bd e002 | | Load 0x0,0x2
00be 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00bf 0260 | ` | Execute Discrete,In_Type
00c0 7001 |p | Jump_Nonzero 0xc2
00c1 0801 | | Execute_Immediate Raise,0x1
00c2 00db | | Load_Top At_Offset_3
00c3 e002 | | Load 0x0,0x2
00c4 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
00c5 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00c6 0000 0000 | | .XXX[0x2]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb | | .CONST 0x00cb ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0001 | | .CONST 0x0001 ; Number of locals
00cb BODY_00c8:
00cb INIT_00c8:
00cb 00db | | Load_Top At_Offset_3
00cc 00d8 | | Load_Top At_Offset_0
00cd e002 | | Load 0x0,0x2
00ce 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00cf 0260 | ` | Execute Discrete,In_Type
00d0 7001 |p | Jump_Nonzero 0xd2
00d1 0801 | | Execute_Immediate Raise,0x1
00d2 00db | | Load_Top At_Offset_3
00d3 e002 | | Load 0x0,0x2
00d4 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
00d5 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00d6 0000 0000 | | .XXX[0x2]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db | | .CONST 0x00db ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0001 | | .CONST 0x0001 ; Number of locals
00db BODY_00d8:
00db INIT_00d8:
00db 00db | | Load_Top At_Offset_3
00dc 00d8 | | Load_Top At_Offset_0
00dd e002 | | Load 0x0,0x2
00de 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00df 0260 | ` | Execute Discrete,In_Type
00e0 7001 |p | Jump_Nonzero 0xe2
00e1 0801 | | Execute_Immediate Raise,0x1
00e2 00db | | Load_Top At_Offset_3
00e3 e002 | | Load 0x0,0x2
00e4 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
00e5 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00e6 0000 0000 | | .XXX[0x2]
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 e21a | | Load 0x1,0x1a
00ec 6802 |h | Jump_Zero 0xef
00ed 4800 |H | Short_Literal 0x0
00ee 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00ef 00da | | Load_Top At_Offset_2
00f0 e002 | | Load 0x0,0x2
00f1 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
00f2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00f3 0000 0000 | | .BLANK 0000[0x5]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb | | .CONST 0x00fb ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0001 | | .CONST 0x0001 ; Number of locals
00fb BODY_00f8:
00fb INIT_00f8:
00fb 00da | | Load_Top At_Offset_2
00fc e002 | | Load 0x0,0x2
00fd 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00fe c5ff | | Store 0x2,-0x1
00ff 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0100 ; --------------------------------------------------------------------------------------
0100 ; Debug Table
0100 ; --------------------------------------------------------------------------------------
0100 0004 0006 | | .DEBUG4 0x0004,0x0006,0x3b28,0x0000,0x0001,0x000e
0106 000b 013e | >| .DBG4T 0x000b,0x013e,0x8000,0x0000
010a 0024 014c | $ L| .DBG4T 0x0024,0x014c,0x8000,0x0000
010e 004b 015c | K \| .DBG4T 0x004b,0x015c,0x0001,0x0000
0112 0063 0162 | c b| .DBG4T 0x0063,0x0162,0x0001,0x0000
0116 007b 0167 | { g| .DBG4T 0x007b,0x0167,0x0002,0x0000
011a 009b 0172 | r| .DBG4T 0x009b,0x0172,0x0001,0x0000
011e 00a3 0175 | u| .DBG4T 0x00a3,0x0175,0x0001,0x0000
0122 00ab 0178 | x| .DBG4T 0x00ab,0x0178,0x0001,0x0000
0126 00b3 017b | {| .DBG4T 0x00b3,0x017b,0x0001,0x0000
012a 00bb 017e | ~| .DBG4T 0x00bb,0x017e,0x0001,0x0000
012e 00cb 0181 | | .DBG4T 0x00cb,0x0181,0x0001,0x0000
0132 00db 0184 | | .DBG4T 0x00db,0x0184,0x0001,0x0000
0136 00eb 0187 | | .DBG4T 0x00eb,0x0187,0x0002,0x0000
013a 00fb 018c | | .DBG4T 0x00fb,0x018c,0x0001,0x0000
013e ; --------------------------------------------------------------------------------------
013e ; Debug chain
013e ; --------------------------------------------------------------------------------------
013e 000c 0000 | | .DBGLEN 0x000c,0x0000
0140 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021
014c ; --------------------------------------------------------------------------------------
014c ; Debug chain
014c ; --------------------------------------------------------------------------------------
014c 000e 0000 | | .DBGLEN 0x000e,0x0000
014e 0024 0025 | $ %| .DBGLNO 0x0024,0x0025,0x0027,0x0029,0x002b,0x002d,0x002f,0x0031,0x0033,0x0035,0x0037,0x0039,0x003b,0x003d
015c ; --------------------------------------------------------------------------------------
015c ; Debug chain
015c ; --------------------------------------------------------------------------------------
015c 0000 0004 | | .DBGLEN 0x0000,0x0004
015e 004b 004d | K M| .DBGLNO 0x004b,0x004d,0x0055,0x005c
0162 ; --------------------------------------------------------------------------------------
0162 ; Debug chain
0162 ; --------------------------------------------------------------------------------------
0162 0000 0003 | | .DBGLEN 0x0000,0x0003
0164 0063 0065 | c e| .DBGLNO 0x0063,0x0065,0x006d
0167 ; --------------------------------------------------------------------------------------
0167 ; Debug chain
0167 ; --------------------------------------------------------------------------------------
0167 0000 0009 | | .DBGLEN 0x0000,0x0009
0169 007b 007d | { }| .DBGLNO 0x007b,0x007d,0x0080,0x0083,0x0086,0x008a,0x008e,0x0091,0x0096
0172 ; --------------------------------------------------------------------------------------
0172 ; Debug chain
0172 ; --------------------------------------------------------------------------------------
0172 0000 0001 | | .DBGLEN 0x0000,0x0001
0174 009b | | .DBGLNO 0x009b
0175 ; --------------------------------------------------------------------------------------
0175 ; Debug chain
0175 ; --------------------------------------------------------------------------------------
0175 0000 0001 | | .DBGLEN 0x0000,0x0001
0177 00a3 | | .DBGLNO 0x00a3
0178 ; --------------------------------------------------------------------------------------
0178 ; Debug chain
0178 ; --------------------------------------------------------------------------------------
0178 0000 0001 | | .DBGLEN 0x0000,0x0001
017a 00ab | | .DBGLNO 0x00ab
017b ; --------------------------------------------------------------------------------------
017b ; Debug chain
017b ; --------------------------------------------------------------------------------------
017b 0000 0001 | | .DBGLEN 0x0000,0x0001
017d 00b3 | | .DBGLNO 0x00b3
017e ; --------------------------------------------------------------------------------------
017e ; Debug chain
017e ; --------------------------------------------------------------------------------------
017e 0000 0001 | | .DBGLEN 0x0000,0x0001
0180 00bb | | .DBGLNO 0x00bb
0181 ; --------------------------------------------------------------------------------------
0181 ; Debug chain
0181 ; --------------------------------------------------------------------------------------
0181 0000 0001 | | .DBGLEN 0x0000,0x0001
0183 00cb | | .DBGLNO 0x00cb
0184 ; --------------------------------------------------------------------------------------
0184 ; Debug chain
0184 ; --------------------------------------------------------------------------------------
0184 0000 0001 | | .DBGLEN 0x0000,0x0001
0186 00db | | .DBGLNO 0x00db
0187 ; --------------------------------------------------------------------------------------
0187 ; Debug chain
0187 ; --------------------------------------------------------------------------------------
0187 0000 0003 | | .DBGLEN 0x0000,0x0003
0189 00eb 00ed | | .DBGLNO 0x00eb,0x00ed,0x00ef
018c ; --------------------------------------------------------------------------------------
018c ; Debug chain
018c ; --------------------------------------------------------------------------------------
018c 0000 0001 | | .DBGLEN 0x0000,0x0001
018e 00fb | | .DBGLNO 0x00fb
018f 0000 0000 | | .BLANK 0000[0x71]