|
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_0a7cf5
└─⟦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 0148 | H | .CONST 0x0148 ; 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 8000 | | .CONST 0x8000 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0026 | & | .CONST 0x0026 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0013 | | .CONST 0x0013 ; Number of locals
000b INIT_0008:
000b 029a 002b | +| Declare_Subprogram INIT_0028,For_Outer_Call,Visible,Unelaborated
000d 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated
000f 00c4 | | Action Make_Default
0010 00c4 | | Action Make_Default
0011 00c4 | | Action Make_Default
0012 00c4 | | Action Make_Default
0013 00c4 | | Action Make_Default
0014 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated
0016 c212 | | Store 0x1,0x12
0017 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated
0019 c213 | | Store 0x1,0x13
001a e001 | | Load 0x0,0x1
001b 0129 | ) | Execute Any,Make_Visible
001c c211 | | Store 0x1,0x11
001d 00bf | | Action Accept_Activation
001e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
001f 00c7 | | Action Elaborate_Subprogram
0020 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0021 00c7 | | Action Elaborate_Subprogram
0022 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0023 00c7 | | Action Elaborate_Subprogram
0024 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0025 00c7 | | Action Elaborate_Subprogram
0026 BODY_0008:
0026 00bc | | Action Signal_Activated
0027 00bb | | Action Signal_Completion
0028 ; --------------------------------------------------------------------------------------
0028 ; SUBPROGRAM
0028 ; --------------------------------------------------------------------------------------
0028 003f | ? | .CONST 0x003f ; Address of begin
0029 007e | ~ | .CONST 0x007e ; Address of exception handler
002a 0006 | | .CONST 0x0006 ; Number of locals
002b INIT_0028:
002b e002 | | Load 0x0,0x2
002c 1b15 | | Execute Package,Field_Read,Field_Number 0x15
002d 02c7 | | Declare_Variable Any
002e 00d8 | | Load_Top At_Offset_0
002f 1c00 | | Execute_Immediate Run_Utility,0x0
0030 e003 | | Load 0x0,0x3
0031 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0032 e003 | | Load 0x0,0x3
0033 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0034 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0035 e003 | | Load 0x0,0x3
0036 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0037 02c7 | | Declare_Variable Any
0038 00d8 | | Load_Top At_Offset_0
0039 1c00 | | Execute_Immediate Run_Utility,0x0
003a e003 | | Load 0x0,0x3
003b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
003c 02c7 | | Declare_Variable Any
003d 00d8 | | Load_Top At_Offset_0
003e 1c00 | | Execute_Immediate Run_Utility,0x0
003f BODY_0028:
003f 00be | | Action Activate_Tasks
0040 e003 | | Load 0x0,0x3
0041 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0042 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0043 e405 | | Load 0x2,0x5
0044 0120 | | Execute Any,Is_Value
0045 6803 |h | Jump_Zero 0x49
0046 e003 | | Load 0x0,0x3
0047 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0048 7801 |x | Jump 0x4a
0049 e405 | | Load 0x2,0x5
004a 6039 |`9 | Indirect_Literal Discrete,0x84,{0x00000000, 0x00004000}
004b e004 | | Load 0x0,0x4
004c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
004d e005 | | Load 0x0,0x5
004e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
004f e003 | | Load 0x0,0x3
0050 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0051 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0052 e5ff | | Load 0x2,-0x1
0053 e003 | | Load 0x0,0x3
0054 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0055 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0056 c405 | | Store 0x2,0x5
0057 c404 | | Store 0x2,0x4
0058 e404 | | Load 0x2,0x4
0059 6802 |h | Jump_Zero 0x5c
005a e211 | | Load 0x1,0x11
005b 0257 | W | Execute Discrete,Raise
005c e003 | | Load 0x0,0x3
005d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
005e e402 | | Load 0x2,0x2
005f 4800 |H | Short_Literal 0x0
0060 4800 |H | Short_Literal 0x0
0061 e004 | | Load 0x0,0x4
0062 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0063 e002 | | Load 0x0,0x2
0064 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0065 e002 | | Load 0x0,0x2
0066 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0067 c402 | | Store 0x2,0x2
0068 c403 | | Store 0x2,0x3
0069 e403 | | Load 0x2,0x3
006a 6802 |h | Jump_Zero 0x6d
006b e211 | | Load 0x1,0x11
006c 0257 | W | Execute Discrete,Raise
006d e402 | | Load 0x2,0x2
006e e405 | | Load 0x2,0x5
006f e002 | | Load 0x0,0x2
0070 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0071 c406 | | Store 0x2,0x6
0072 e003 | | Load 0x0,0x3
0073 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0074 e402 | | Load 0x2,0x2
0075 e002 | | Load 0x0,0x2
0076 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0077 c402 | | Store 0x2,0x2
0078 c403 | | Store 0x2,0x3
0079 00d8 | | Load_Top At_Offset_0
007a e003 | | Load 0x0,0x3
007b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
007c 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
007d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
007e TRAP_0028:
007e 0007 | | Action Break_Optional
007f e211 | | Load 0x1,0x11
0080 0257 | W | Execute Discrete,Raise
0081 0000 0000 | | .XXX[0x3]
0083 0000 | |
0084 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 009f | | .CONST 0x009f ; Address of begin
0089 00de | | .CONST 0x00de ; Address of exception handler
008a 0006 | | .CONST 0x0006 ; Number of locals
008b INIT_0088:
008b e002 | | Load 0x0,0x2
008c 1b15 | | Execute Package,Field_Read,Field_Number 0x15
008d 02c7 | | Declare_Variable Any
008e 00d8 | | Load_Top At_Offset_0
008f 1c00 | | Execute_Immediate Run_Utility,0x0
0090 e003 | | Load 0x0,0x3
0091 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0092 e003 | | Load 0x0,0x3
0093 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0094 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0095 e003 | | Load 0x0,0x3
0096 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0097 02c7 | | Declare_Variable Any
0098 00d8 | | Load_Top At_Offset_0
0099 1c00 | | Execute_Immediate Run_Utility,0x0
009a e003 | | Load 0x0,0x3
009b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
009c 02c7 | | Declare_Variable Any
009d 00d8 | | Load_Top At_Offset_0
009e 1c00 | | Execute_Immediate Run_Utility,0x0
009f BODY_0088:
009f 00be | | Action Activate_Tasks
00a0 e003 | | Load 0x0,0x3
00a1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00a2 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00a3 e405 | | Load 0x2,0x5
00a4 0120 | | Execute Any,Is_Value
00a5 6803 |h | Jump_Zero 0xa9
00a6 e003 | | Load 0x0,0x3
00a7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00a8 7801 |x | Jump 0xaa
00a9 e405 | | Load 0x2,0x5
00aa 67d9 |g | Indirect_Literal Discrete,0x84,{0x00000000, 0x00004000}
00ab e004 | | Load 0x0,0x4
00ac 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00ad e005 | | Load 0x0,0x5
00ae 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00af e003 | | Load 0x0,0x3
00b0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00b1 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00b2 e5ff | | Load 0x2,-0x1
00b3 e003 | | Load 0x0,0x3
00b4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00b5 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
00b6 c405 | | Store 0x2,0x5
00b7 c404 | | Store 0x2,0x4
00b8 e404 | | Load 0x2,0x4
00b9 6802 |h | Jump_Zero 0xbc
00ba e211 | | Load 0x1,0x11
00bb 0257 | W | Execute Discrete,Raise
00bc e003 | | Load 0x0,0x3
00bd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00be e402 | | Load 0x2,0x2
00bf 4800 |H | Short_Literal 0x0
00c0 4800 |H | Short_Literal 0x0
00c1 e004 | | Load 0x0,0x4
00c2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00c3 e002 | | Load 0x0,0x2
00c4 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00c5 e002 | | Load 0x0,0x2
00c6 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00c7 c402 | | Store 0x2,0x2
00c8 c403 | | Store 0x2,0x3
00c9 e403 | | Load 0x2,0x3
00ca 6802 |h | Jump_Zero 0xcd
00cb e211 | | Load 0x1,0x11
00cc 0257 | W | Execute Discrete,Raise
00cd e402 | | Load 0x2,0x2
00ce e405 | | Load 0x2,0x5
00cf e002 | | Load 0x0,0x2
00d0 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
00d1 c406 | | Store 0x2,0x6
00d2 e003 | | Load 0x0,0x3
00d3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00d4 e402 | | Load 0x2,0x2
00d5 e002 | | Load 0x0,0x2
00d6 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00d7 c402 | | Store 0x2,0x2
00d8 c403 | | Store 0x2,0x3
00d9 00d8 | | Load_Top At_Offset_0
00da e003 | | Load 0x0,0x3
00db 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00dc 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
00dd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00de TRAP_0088:
00de 0007 | | Action Break_Optional
00df e211 | | Load 0x1,0x11
00e0 0257 | W | Execute Discrete,Raise
00e1 0000 0000 | | .BLANK 0000[0x7]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00f3 | | .CONST 0x00f3 ; Address of begin
00e9 0114 | | .CONST 0x0114 ; Address of exception handler
00ea 0003 | | .CONST 0x0003 ; Number of locals
00eb INIT_00e8:
00eb e003 | | Load 0x0,0x3
00ec 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ed e003 | | Load 0x0,0x3
00ee 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
00ef 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00f0 02c7 | | Declare_Variable Any
00f1 00d8 | | Load_Top At_Offset_0
00f2 1c00 | | Execute_Immediate Run_Utility,0x0
00f3 BODY_00e8:
00f3 e003 | | Load 0x0,0x3
00f4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00f5 e403 | | Load 0x2,0x3
00f6 0120 | | Execute Any,Is_Value
00f7 6804 |h | Jump_Zero 0xfc
00f8 e003 | | Load 0x0,0x3
00f9 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
00fa 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00fb 7801 |x | Jump 0xfd
00fc e403 | | Load 0x2,0x3
00fd e005 | | Load 0x0,0x5
00fe 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00ff e003 | | Load 0x0,0x3
0100 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0101 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0102 e003 | | Load 0x0,0x3
0103 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0104 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0105 c403 | | Store 0x2,0x3
0106 c402 | | Store 0x2,0x2
0107 e402 | | Load 0x2,0x2
0108 6802 |h | Jump_Zero 0x10b
0109 e211 | | Load 0x1,0x11
010a 0257 | W | Execute Discrete,Raise
010b 00d8 | | Load_Top At_Offset_0
010c e002 | | Load 0x0,0x2
010d 181e | | Execute Package,Field_Execute,Field_Number 0x1e
010e e002 | | Load 0x0,0x2
010f 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0110 e003 | | Load 0x0,0x3
0111 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0112 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0113 00ca | | Action Exit_Nullary_Function
0114 TRAP_00e8:
0114 0007 | | Action Break_Optional
0115 e211 | | Load 0x1,0x11
0116 0257 | W | Execute Discrete,Raise
0117 0000 | | .XXX[0x1]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 0123 | # | .CONST 0x0123 ; Address of begin
0119 0142 | B | .CONST 0x0142 ; Address of exception handler
011a 0003 | | .CONST 0x0003 ; Number of locals
011b INIT_0118:
011b e003 | | Load 0x0,0x3
011c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
011d e003 | | Load 0x0,0x3
011e 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
011f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0120 02c7 | | Declare_Variable Any
0121 00d8 | | Load_Top At_Offset_0
0122 1c00 | | Execute_Immediate Run_Utility,0x0
0123 BODY_0118:
0123 e003 | | Load 0x0,0x3
0124 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0125 e403 | | Load 0x2,0x3
0126 0120 | | Execute Any,Is_Value
0127 6804 |h | Jump_Zero 0x12c
0128 e003 | | Load 0x0,0x3
0129 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
012a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
012b 7801 |x | Jump 0x12d
012c e403 | | Load 0x2,0x3
012d e005 | | Load 0x0,0x5
012e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
012f e003 | | Load 0x0,0x3
0130 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0131 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0132 e003 | | Load 0x0,0x3
0133 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0134 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0135 c403 | | Store 0x2,0x3
0136 c402 | | Store 0x2,0x2
0137 e402 | | Load 0x2,0x2
0138 6802 |h | Jump_Zero 0x13b
0139 e211 | | Load 0x1,0x11
013a 0257 | W | Execute Discrete,Raise
013b 00d8 | | Load_Top At_Offset_0
013c e002 | | Load 0x0,0x2
013d 181e | | Execute Package,Field_Execute,Field_Number 0x1e
013e e003 | | Load 0x0,0x3
013f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0140 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0141 00ca | | Action Exit_Nullary_Function
0142 TRAP_0118:
0142 0007 | | Action Break_Optional
0143 e211 | | Load 0x1,0x11
0144 0257 | W | Execute Discrete,Raise
0145 0000 0000 | | .XXX[0x3]
0147 0000 | |
0148 ; --------------------------------------------------------------------------------------
0148 ; Debug Table
0148 ; --------------------------------------------------------------------------------------
0148 0004 000f | | .DEBUG4 0x0004,0x000f,0x4302,0x0000,0x0001,0x0000
014e 0000 0000 | | .BLANK 0000[0x26]
0174 8014 0000 | | .XXX[0xb]
0176 0000 0000 | |
0178 0100 0000 | |
017a 0880 0000 | |
017c 0004 0000 | |
017e 0028 | ( |
017f 0000 0000 | | .BLANK 0000[0x2e]
01ad 1002 8000 | | .XXX[0xb]
01af 0000 0000 | |
01b1 0020 0000 | |
01b3 0110 0000 | |
01b5 0000 8000 | |
01b7 0005 | |
01b8 0000 0000 | | .BLANK 0000[0x48]