|
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_03bcfe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦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 a102 4b73 | Ks| .XXX[0x34]
0150 83ab a17a | z|
0152 7bab a383 |{ |
0154 aba1 0142 | B|
0156 a24a 7949 | JyI|
0158 6103 8393 |a |
015a 7b1b 2b23 |{ +#|
015c ab93 2902 | ) |
015e 4b79 729b |Kyr |
0160 2ba2 fa2b |+ +|
0162 9393 7b90 | { |
0164 0000 02d0 | |
0166 0000 0181 | |
0168 02a3 2bc3 | + |
016a a102 4b73 | Ks|
016c 83ab a17a | z|
016e 7bab a383 |{ |
0170 aba1 0142 | B|
0172 a24a 7949 | JyI|
0174 6103 8393 |a |
0176 7b1b 2b23 |{ +#|
0178 ab93 2902 | ) |
017a 4b79 729b |Kyr |
017c 2ba2 fa2b |+ +|
017e 9393 7b90 | { |
0180 0000 0008 | |
0182 0000 0000 | | .BLANK 0000[0x5]
0187 0058 0000 | X | .XXX[0x7]
0189 0000 0000 | |
018b 0050 0000 | P |
018d 0008 | |
018e 0000 0000 | | .BLANK 0000[0x5]
0193 0060 0000 | ` | .XXX[0x7]
0195 0000 0000 | |
0197 0058 0000 | X |
0199 0008 | |
019a 0000 0000 | | .BLANK 0000[0x5]
019f 0068 0000 | h | .XXX[0x2f]
01a1 0000 0000 | |
01a3 0060 0000 | ` |
01a5 0078 0000 | x |
01a7 00ea 0373 | s|
01a9 7b23 2901 |{#) |
01ab 0a1b 7b6b | {k|
01ad 6b0b 7323 |k s#|
01af 9972 637b | rc{|
01b1 3972 9b2b |9r +|
01b3 a2fa 4b73 | Ks|
01b5 83ab a000 | |
01b7 0000 8000 | |
01b9 0000 2373 | #s|
01bb 7b23 2800 |{#( |
01bd 0000 a800 | |
01bf 0000 b90a | |
01c1 1b7b 6b6b | {kk|
01c3 0b73 2399 | s# |
01c5 7263 7b39 |rc{9|
01c7 729b 2ba2 |r + |
01c9 fa4b 7383 | Ks |
01cb aba0 0000 | |
01cd 0008 | |
01ce 0000 0000 | | .BLANK 0000[0x5]
01d3 0168 0000 | h | .XXX[0x2d]
01d5 0000 0000 | |
01d7 0160 0000 | ` |
01d9 0178 0000 | x |
01db 0183 8393 | |
01dd 7b1b 2b23 |{ +#|
01df ab93 2902 | ) |
01e1 9b2b a2fa | + |
01e3 4b73 83ab |Ks |
01e5 a101 42a3 | B |
01e7 7afa 1329 |z )|
01e9 01d1 0273 | s|
01eb 0b6b 2901 | k) |
01ed d1e9 0111 | |
01ef e292 2a3a | *:|
01f1 4a7a 71f1 |Jzq |
01f3 1148 0000 | H |
01f5 0170 0000 | p |
01f7 0189 0383 | |
01f9 937b 1b2b | { +|
01fb 23ab 9329 |# )|
01fd 029b 2ba2 | + |
01ff fa4b | K |