|
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_1ca4c7
└─⟦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 0120 | | .CONST 0x0120 ; 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 0018 | | .CONST 0x0018 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0011 | | .CONST 0x0011 ; Number of locals
000b INIT_0008:
000b 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated
000d 00bf | | Action Accept_Activation
000e 029d 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call
0010 029d 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call
0012 029d 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call
0014 029d 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call
0016 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0017 00c7 | | Action Elaborate_Subprogram
0018 BODY_0008:
0018 00bc | | Action Signal_Activated
0019 00bb | | Action Signal_Completion
001a 0000 0000 | | .BLANK 0000[0x6]
0020 ; --------------------------------------------------------------------------------------
0020 ; SUBPROGRAM
0020 ; --------------------------------------------------------------------------------------
0020 0023 | # | .CONST 0x0023 ; Address of begin
0021 0004 | | .CONST 0x0004 ; Address of exception handler
0022 0001 | | .CONST 0x0001 ; Number of locals
0023 BODY_0020:
0023 INIT_0020:
0023 8002 | | Call 0x0,0x2
0024 00d8 | | Load_Top At_Offset_0
0025 0d09 | | Execute_Immediate Less,0x9
0026 7020 |p | Jump_Nonzero 0x47
0027 00d8 | | Load_Top At_Offset_0
0028 0c1b | | Execute_Immediate Greater_Equal,0x1b
0029 701a |p | Jump_Nonzero 0x44
002a 0af7 | | Execute_Immediate Plus,-0x9
002b 4611 |F | Jump_Case 0x12
002c 782a |x* | Jump 0x57 ; case 0x0
002d 781a |x | Jump 0x48 ; case 0x1
002e 7819 |x | Jump 0x48 ; case 0x2
002f 7818 |x | Jump 0x48 ; case 0x3
0030 7817 |x | Jump 0x48 ; case 0x4
0031 7816 |x | Jump 0x48 ; case 0x5
0032 7815 |x | Jump 0x48 ; case 0x6
0033 7814 |x | Jump 0x48 ; case 0x7
0034 7813 |x | Jump 0x48 ; case 0x8
0035 7812 |x | Jump 0x48 ; case 0x9
0036 7811 |x | Jump 0x48 ; case 0xa
0037 7810 |x | Jump 0x48 ; case 0xb
0038 780f |x | Jump 0x48 ; case 0xc
0039 7823 |x# | Jump 0x5d ; case 0xd
003a 780d |x | Jump 0x48 ; case 0xe
003b 7815 |x | Jump 0x51 ; case 0xf
003c 7831 |x1 | Jump 0x6e ; case 0x10
003d 7800 |x | Jump 0x3e ; case 0x11
003e 4800 |H | Short_Literal 0x0
003f 8003 | | Call 0x0,0x3
0040 8004 | | Call 0x0,0x4
0041 820e | | Call 0x1,0xe
0042 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0043 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0044 0f44 | D | Execute_Immediate Equal,0x44
0045 7005 |p | Jump_Nonzero 0x4b
0046 7801 |x | Jump 0x48
0047 00d1 | | Pop_Control Pop_Count_1
0048 4800 |H | Short_Literal 0x0
0049 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
004a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
004b 4800 |H | Short_Literal 0x0
004c 8003 | | Call 0x0,0x3
004d 8004 | | Call 0x0,0x4
004e 8211 | | Call 0x1,0x11
004f 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0050 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0051 4800 |H | Short_Literal 0x0
0052 8003 | | Call 0x0,0x3
0053 8004 | | Call 0x0,0x4
0054 820f | | Call 0x1,0xf
0055 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0056 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0057 4800 |H | Short_Literal 0x0
0058 8003 | | Call 0x0,0x3
0059 8004 | | Call 0x0,0x4
005a 820e | | Call 0x1,0xe
005b 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
005c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
005d 4800 |H | Short_Literal 0x0
005e 8003 | | Call 0x0,0x3
005f 8004 | | Call 0x0,0x4
0060 8005 | | Call 0x0,0x5
0061 8002 | | Call 0x0,0x2
0062 0f36 | 6 | Execute_Immediate Equal,0x36
0063 8002 | | Call 0x0,0x2
0064 0f37 | 7 | Execute_Immediate Equal,0x37
0065 0278 | x | Execute Discrete,Or
0066 6804 |h | Jump_Zero 0x6b
0067 4800 |H | Short_Literal 0x0
0068 8003 | | Call 0x0,0x3
0069 8004 | | Call 0x0,0x4
006a 8005 | | Call 0x0,0x5
006b 8210 | | Call 0x1,0x10
006c 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
006d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
006e 4800 |H | Short_Literal 0x0
006f 8003 | | Call 0x0,0x3
0070 8004 | | Call 0x0,0x4
0071 8005 | | Call 0x0,0x5
0072 8210 | | Call 0x1,0x10
0073 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0074 4501 |E | Exit_Suprogram New_Top_Offset 0x1
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 8006 | | Call 0x0,0x6
007c 0b23 | # | Execute_Immediate Case_Compare,0x23
007d 7004 |p | Jump_Nonzero 0x82
007e 0f1e | | Execute_Immediate Equal,0x1e
007f 7014 |p | Jump_Nonzero 0x94
0080 4800 |H | Short_Literal 0x0
0081 00ca | | Action Exit_Nullary_Function
0082 00d1 | | Pop_Control Pop_Count_1
0083 4800 |H | Short_Literal 0x0
0084 8003 | | Call 0x0,0x3
0085 8004 | | Call 0x0,0x4
0086 8006 | | Call 0x0,0x6
0087 0b44 | D | Execute_Immediate Case_Compare,0x44
0088 7004 |p | Jump_Nonzero 0x8d
0089 0f18 | | Execute_Immediate Equal,0x18
008a 7003 |p | Jump_Nonzero 0x8e
008b 4800 |H | Short_Literal 0x0
008c 00ca | | Action Exit_Nullary_Function
008d 00d1 | | Pop_Control Pop_Count_1
008e 4800 |H | Short_Literal 0x0
008f 8003 | | Call 0x0,0x3
0090 8004 | | Call 0x0,0x4
0091 8005 | | Call 0x0,0x5
0092 4801 |H | Short_Literal 0x1
0093 00ca | | Action Exit_Nullary_Function
0094 4800 |H | Short_Literal 0x0
0095 8003 | | Call 0x0,0x3
0096 8004 | | Call 0x0,0x4
0097 8006 | | Call 0x0,0x6
0098 0f44 | D | Execute_Immediate Equal,0x44
0099 6806 |h | Jump_Zero 0xa0
009a 4800 |H | Short_Literal 0x0
009b 8003 | | Call 0x0,0x3
009c 8004 | | Call 0x0,0x4
009d 8005 | | Call 0x0,0x5
009e 4801 |H | Short_Literal 0x1
009f 00ca | | Action Exit_Nullary_Function
00a0 4800 |H | Short_Literal 0x0
00a1 00ca | | Action Exit_Nullary_Function
00a2 0000 0000 | | .BLANK 0000[0x6]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ac | | .CONST 0x00ac ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0002 | | .CONST 0x0002 ; Number of locals
00ab INIT_00a8:
00ab 00e1 | | Load_Encached Boolean_Cache
00ac BODY_00a8:
00ac 8006 | | Call 0x0,0x6
00ad 0b1c | | Execute_Immediate Case_Compare,0x1c
00ae 7005 |p | Jump_Nonzero 0xb4
00af 0f1e | | Execute_Immediate Equal,0x1e
00b0 700a |p | Jump_Nonzero 0xbb
00b1 4800 |H | Short_Literal 0x0
00b2 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
00b3 780c |x | Jump 0xc0
00b4 00d1 | | Pop_Control Pop_Count_1
00b5 4800 |H | Short_Literal 0x0
00b6 8003 | | Call 0x0,0x3
00b7 8004 | | Call 0x0,0x4
00b8 4801 |H | Short_Literal 0x1
00b9 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
00ba 7805 |x | Jump 0xc0
00bb 4800 |H | Short_Literal 0x0
00bc 8003 | | Call 0x0,0x3
00bd 8004 | | Call 0x0,0x4
00be 4801 |H | Short_Literal 0x1
00bf 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
00c0 00d8 | | Load_Top At_Offset_0
00c1 680a |h | Jump_Zero 0xcc
00c2 8006 | | Call 0x0,0x6
00c3 0f44 | D | Execute_Immediate Equal,0x44
00c4 6805 |h | Jump_Zero 0xca
00c5 4800 |H | Short_Literal 0x0
00c6 8003 | | Call 0x0,0x3
00c7 8004 | | Call 0x0,0x4
00c8 8005 | | Call 0x0,0x5
00c9 7802 |x | Jump 0xcc
00ca 4800 |H | Short_Literal 0x0
00cb 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
00cc 00d8 | | Load_Top At_Offset_0
00cd 00ca | | Action Exit_Nullary_Function
00ce 0000 0000 | | .XXX[0x2]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3 | | .CONST 0x00d3 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0001 | | .CONST 0x0001 ; Number of locals
00d3 BODY_00d0:
00d3 INIT_00d0:
00d3 8002 | | Call 0x0,0x2
00d4 0f1e | | Execute_Immediate Equal,0x1e
00d5 680c |h | Jump_Zero 0xe2
00d6 4800 |H | Short_Literal 0x0
00d7 8003 | | Call 0x0,0x3
00d8 8004 | | Call 0x0,0x4
00d9 8006 | | Call 0x0,0x6
00da 0f44 | D | Execute_Immediate Equal,0x44
00db 6806 |h | Jump_Zero 0xe2
00dc 4801 |H | Short_Literal 0x1
00dd 8003 | | Call 0x0,0x3
00de 8004 | | Call 0x0,0x4
00df 8005 | | Call 0x0,0x5
00e0 4801 |H | Short_Literal 0x1
00e1 00ca | | Action Exit_Nullary_Function
00e2 4800 |H | Short_Literal 0x0
00e3 00ca | | Action Exit_Nullary_Function
00e4 0000 0000 | | .BLANK 0000[0x4]
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 8006 | | Call 0x0,0x6
00ec 0b23 | # | Execute_Immediate Case_Compare,0x23
00ed 700e |p | Jump_Nonzero 0xfc
00ee 0f1c | | Execute_Immediate Equal,0x1c
00ef 701b |p | Jump_Nonzero 0x10b
00f0 8002 | | Call 0x0,0x2
00f1 0f36 | 6 | Execute_Immediate Equal,0x36
00f2 8002 | | Call 0x0,0x2
00f3 0f37 | 7 | Execute_Immediate Equal,0x37
00f4 0278 | x | Execute Discrete,Or
00f5 6804 |h | Jump_Zero 0xfa
00f6 4800 |H | Short_Literal 0x0
00f7 8003 | | Call 0x0,0x3
00f8 8004 | | Call 0x0,0x4
00f9 8005 | | Call 0x0,0x5
00fa 8210 | | Call 0x1,0x10
00fb 00ca | | Action Exit_Nullary_Function
00fc 00d1 | | Pop_Control Pop_Count_1
00fd 4800 |H | Short_Literal 0x0
00fe 8003 | | Call 0x0,0x3
00ff 8004 | | Call 0x0,0x4
0100 8006 | | Call 0x0,0x6
0101 0f44 | D | Execute_Immediate Equal,0x44
0102 7002 |p | Jump_Nonzero 0x105
0103 4800 |H | Short_Literal 0x0
0104 00ca | | Action Exit_Nullary_Function
0105 4800 |H | Short_Literal 0x0
0106 8003 | | Call 0x0,0x3
0107 8004 | | Call 0x0,0x4
0108 8005 | | Call 0x0,0x5
0109 4801 |H | Short_Literal 0x1
010a 00ca | | Action Exit_Nullary_Function
010b 4800 |H | Short_Literal 0x0
010c 8003 | | Call 0x0,0x3
010d 8004 | | Call 0x0,0x4
010e 8006 | | Call 0x0,0x6
010f 0f44 | D | Execute_Immediate Equal,0x44
0110 7002 |p | Jump_Nonzero 0x113
0111 4800 |H | Short_Literal 0x0
0112 00ca | | Action Exit_Nullary_Function
0113 4800 |H | Short_Literal 0x0
0114 8003 | | Call 0x0,0x3
0115 8004 | | Call 0x0,0x4
0116 8005 | | Call 0x0,0x5
0117 4801 |H | Short_Literal 0x1
0118 00ca | | Action Exit_Nullary_Function
0119 0000 0000 | | .BLANK 0000[0x7]
0120 ; --------------------------------------------------------------------------------------
0120 ; Debug Table
0120 ; --------------------------------------------------------------------------------------
0120 0004 0008 | | .DEBUG4 0x0004,0x0008,0xdf07,0x0000,0x0001,0x0007
0126 000b 0142 | B| .DBG4T 0x000b,0x0142,0x8000,0x0000
012a 000e 0145 | E| .DBG4T 0x000e,0x0145,0x8000,0x0000
012e 0023 014c | # L| .DBG4T 0x0023,0x014c,0x0001,0x4000
0132 007b 0174 | { t| .DBG4T 0x007b,0x0174,0x0002,0x4000
0136 00ab 0192 | | .DBG4T 0x00ab,0x0192,0x0002,0x4000
013a 00d3 01ad | | .DBG4T 0x00d3,0x01ad,0x0002,0x0000
013e 00eb 01b6 | | .DBG4T 0x00eb,0x01b6,0x0002,0x4000
0142 ; --------------------------------------------------------------------------------------
0142 ; Debug chain
0142 ; --------------------------------------------------------------------------------------
0142 0001 0000 | | .DBGLEN 0x0001,0x0000
0144 000b | | .DBGLNO 0x000b
0145 ; --------------------------------------------------------------------------------------
0145 ; Debug chain
0145 ; --------------------------------------------------------------------------------------
0145 0005 0000 | | .DBGLEN 0x0005,0x0000
0147 000e 0010 | | .DBGLNO 0x000e,0x0010,0x0012,0x0014,0x0016
014c ; --------------------------------------------------------------------------------------
014c ; Debug chain
014c ; --------------------------------------------------------------------------------------
014c 0000 0013 | | .DBGLEN 0x0000,0x0013
014e 0023 003e | # >| .DBGLNO 0x0023,0x003e,0x0041,0x0048,0x004b,0x004e,0x0051,0x0054,0x0057,0x005a,0x005d,0x0060,0x0061,0x0067,0x006a,0x006b,0x006e,0x0071,0x0072
0161 0001 0004 | | .XXX[0x13]
0163 0005 0013 | |
0165 0002 0003 | |
0167 0006 0007 | |
0169 0008 0009 | |
016b 000a 000b | |
016d 000c 000d | |
016f 000e 000f | |
0171 0010 0011 | |
0173 0012 | |
0174 ; --------------------------------------------------------------------------------------
0174 ; Debug chain
0174 ; --------------------------------------------------------------------------------------
0174 0000 000e | | .DBGLEN 0x0000,0x000e
0176 007b 0080 | { | .DBGLNO 0x007b,0x0080,0x0083,0x0086,0x008b,0x008e,0x0091,0x0092,0x0094,0x0097,0x009a,0x009d,0x009e,0x00a0
0184 0001 000e | | .XXX[0xe]
0186 0002 0003 | |
0188 0007 0004 | |
018a 0005 0006 | |
018c 0008 0009 | |
018e 000a 000b | |
0190 000c 000d | |
0192 ; --------------------------------------------------------------------------------------
0192 ; Debug chain
0192 ; --------------------------------------------------------------------------------------
0192 0001 000c | | .DBGLEN 0x0001,0x000c
0194 00ab 00ac | | .DBGLNO 0x00ab,0x00ac,0x00b1,0x00b5,0x00b8,0x00bb,0x00be,0x00c0,0x00c2,0x00c5,0x00c8,0x00ca,0x00cc
01a1 0001 0006 | | .XXX[0xc]
01a3 0002 0003 | |
01a5 0004 0005 | |
01a7 0007 0008 | |
01a9 0009 000a | |
01ab 000b 000c | |
01ad ; --------------------------------------------------------------------------------------
01ad ; Debug chain
01ad ; --------------------------------------------------------------------------------------
01ad 0000 0007 | | .DBGLEN 0x0000,0x0007
01af 00d3 00d6 | | .DBGLNO 0x00d3,0x00d6,0x00d9,0x00dc,0x00df,0x00e0,0x00e2
01b6 ; --------------------------------------------------------------------------------------
01b6 ; Debug chain
01b6 ; --------------------------------------------------------------------------------------
01b6 0000 0011 | | .DBGLEN 0x0000,0x0011
01b8 00eb 00f0 | | .DBGLNO 0x00eb,0x00f0,0x00f6,0x00f9,0x00fa,0x00fd,0x0100,0x0103,0x0105,0x0108,0x0109,0x010b,0x010e,0x0111,0x0113,0x0116,0x0117
01c9 0001 000e | | .XXX[0x11]
01cb 000f 0010 | |
01cd 0011 0002 | |
01cf 0003 0007 | |
01d1 0004 0005 | |
01d3 0006 0008 | |
01d5 0009 000d | |
01d7 000a 000b | |
01d9 000c | |
01da 0000 0000 | | .BLANK 0000[0x26]