|
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_5850da
└─⟦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 00d0 | | .CONST 0x00d0 ; 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 0018 | | .CONST 0x0018 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0010 | | .CONST 0x0010 ; Number of locals
000b INIT_0008:
000b 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated
000d 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated
000f 00bf | | Action Accept_Activation
0010 029d 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call
0012 029d 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call
0014 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0015 00c7 | | Action Elaborate_Subprogram
0016 1d0e | | Execute_Immediate Reference_Lex_1,0xe
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 0036 | 6 | .CONST 0x0036 ; Address of exception handler
0022 0001 | | .CONST 0x0001 ; Number of locals
0023 BODY_0020:
0023 INIT_0020:
0023 0092 00b8 | | Action Push_String_Extended,0xb8 ; "raise exception"
0025 00ea | | Load_Encached Null_String_Cache
0026 0092 00b9 | | Action Push_String_Extended,0xb9 ; "*"
0028 0092 00ba | | Action Push_String_Extended,0xba ; "!!"
002a e5fe | | Load 0x2,-0x2
002b 01cc | | Execute Vector,Catenate
002c e5fd | | Load 0x2,-0x3
002d 8210 | | Call 0x1,0x10
002e 01cc | | Execute Vector,Catenate
002f e5ff | | Load 0x2,-0x1
0030 e001 | | Load 0x0,0x1
0031 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0032 4800 |H | Short_Literal 0x0
0033 820f | | Call 0x1,0xf
0034 c5fc | | Store 0x2,-0x4
0035 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0036 TRAP_0020:
0036 0007 | | Action Break_Optional
0037 4807 |H | Short_Literal 0x7
0038 820f | | Call 0x1,0xf
0039 c5fc | | Store 0x2,-0x4
003a 4504 |E | Exit_Suprogram New_Top_Offset 0x4
003b 0000 0000 | | .BLANK 0000[0x5]
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0043 | C | .CONST 0x0043 ; Address of begin
0041 0056 | V | .CONST 0x0056 ; Address of exception handler
0042 0001 | | .CONST 0x0001 ; Number of locals
0043 BODY_0040:
0043 INIT_0040:
0043 0092 00b8 | | Action Push_String_Extended,0xb8 ; "raise exception"
0045 00ea | | Load_Encached Null_String_Cache
0046 0092 00b9 | | Action Push_String_Extended,0xb9 ; "*"
0048 e5fd | | Load 0x2,-0x3
0049 0092 00ba | | Action Push_String_Extended,0xba ; "!!"
004b e5ff | | Load 0x2,-0x1
004c 01cc | | Execute Vector,Catenate
004d e5fe | | Load 0x2,-0x2
004e 8210 | | Call 0x1,0x10
004f 01cc | | Execute Vector,Catenate
0050 e001 | | Load 0x0,0x1
0051 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0052 4800 |H | Short_Literal 0x0
0053 820f | | Call 0x1,0xf
0054 c5fc | | Store 0x2,-0x4
0055 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0056 TRAP_0040:
0056 0007 | | Action Break_Optional
0057 4807 |H | Short_Literal 0x7
0058 820f | | Call 0x1,0xf
0059 c5fc | | Store 0x2,-0x4
005a 4504 |E | Exit_Suprogram New_Top_Offset 0x4
005b 0000 0000 | | .BLANK 0000[0x5]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0068 | h | .CONST 0x0068 ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 0002 | | .CONST 0x0002 ; Number of locals
0063 INIT_0060:
0063 e002 | | Load 0x0,0x2
0064 1b43 | C | Execute Package,Field_Read,Field_Number 0x43
0065 02c7 | | Declare_Variable Any
0066 00d8 | | Load_Top At_Offset_0
0067 1c00 | | Execute_Immediate Run_Utility,0x0
0068 BODY_0060:
0068 00d8 | | Load_Top At_Offset_0
0069 e003 | | Load 0x0,0x3
006a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
006b c402 | | Store 0x2,0x2
006c 00db | | Load_Top At_Offset_3
006d 680d |h | Jump_Zero 0x7b
006e 00d8 | | Load_Top At_Offset_0
006f 4802 |H | Short_Literal 0x2
0070 00ea | | Load_Encached Null_String_Cache
0071 e5ff | | Load 0x2,-0x1
0072 e002 | | Load 0x0,0x2
0073 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
0074 011c | | Execute Any,Convert_Unchecked
0075 1c01 | | Execute_Immediate Run_Utility,0x1
0076 e003 | | Load 0x0,0x3
0077 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0078 c402 | | Store 0x2,0x2
0079 00d8 | | Load_Top At_Offset_0
007a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
007b 00d8 | | Load_Top At_Offset_0
007c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
007d 0000 0000 | | .XXX[0x3]
007f 0000 | |
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083 | | .CONST 0x0083 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0001 | | .CONST 0x0001 ; Number of locals
0083 BODY_0080:
0083 INIT_0080:
0083 4800 |H | Short_Literal 0x0
0084 0092 00ba | | Action Push_String_Extended,0xba ; "!!"
0086 e5ff | | Load 0x2,-0x1
0087 01dd | | Execute Vector,First
0088 e5ff | | Load 0x2,-0x1
0089 01dd | | Execute Vector,First
008a 0a01 | | Execute_Immediate Plus,0x1
008b 00d8 | | Load_Top At_Offset_0
008c 00e2 | | Load_Encached Integer_Cache
008d 0260 | ` | Execute Discrete,In_Type
008e 7001 |p | Jump_Nonzero 0x90
008f 0801 | | Execute_Immediate Raise,0x1
0090 e5ff | | Load 0x2,-0x1
0091 01cf | | Execute Vector,Slice_Read
0092 e004 | | Load 0x0,0x4
0093 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0094 6802 |h | Jump_Zero 0x97
0095 e005 | | Load 0x0,0x5
0096 0257 | W | Execute Discrete,Raise
0097 4800 |H | Short_Literal 0x0
0098 0092 00bb | | Action Push_String_Extended,0xbb ; "!"
009a e5ff | | Load 0x2,-0x1
009b 01dd | | Execute Vector,First
009c e5ff | | Load 0x2,-0x1
009d 01dd | | Execute Vector,First
009e 0a01 | | Execute_Immediate Plus,0x1
009f 00d8 | | Load_Top At_Offset_0
00a0 00e2 | | Load_Encached Integer_Cache
00a1 0260 | ` | Execute Discrete,In_Type
00a2 7001 |p | Jump_Nonzero 0xa4
00a3 0801 | | Execute_Immediate Raise,0x1
00a4 e5ff | | Load 0x2,-0x1
00a5 01cf | | Execute Vector,Slice_Read
00a6 e004 | | Load 0x0,0x4
00a7 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
00a8 6802 |h | Jump_Zero 0xab
00a9 00da | | Load_Top At_Offset_2
00aa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00ab 0092 00bc | | Action Push_String_Extended,0xbc ; "!Users."
00ad e006 | | Load 0x0,0x6
00ae 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00af e006 | | Load 0x0,0x6
00b0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00b1 01cc | | Execute Vector,Catenate
00b2 0092 00bd | | Action Push_String_Extended,0xbd ; "."
00b4 01cc | | Execute Vector,Catenate
00b5 00db | | Load_Top At_Offset_3
00b6 01cc | | Execute Vector,Catenate
00b7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00b8 ; --------------------------------------------------------------------------------------
00b8 ; STRING TABLE
00b8 ; --------------------------------------------------------------------------------------
00b8 000e | | .STRTAB 0x000e->0x00bf ; "raise exception"
00b9 001b | | .STRTAB 0x001b->0x00c6 ; "*"
00ba 001a | | .STRTAB 0x001a->0x00c7 ; "!!"
00bb 001a | | .STRTAB 0x001a->0x00c8 ; "!"
00bc 0019 | | .STRTAB 0x0019->0x00c8 ; "!Users."
00bd 001e | | .STRTAB 0x001e->0x00cc ; "."
00be 001d | | .STREND 0x001d->0x00cc
00bf 7261 6973 |rais| .STRTAB_STRINGS
00cd 0000 0000 | | .XXX[0x3]
00cf 0000 | |
00d0 ; --------------------------------------------------------------------------------------
00d0 ; Debug Table
00d0 ; --------------------------------------------------------------------------------------
00d0 0004 000e | | .DEBUG4 0x0004,0x000e,0xf46a,0x0000,0x0001,0x0000
00d6 3c00 0000 |< | .XXX[0x1f]
00d8 020b 1280 | |
00da 82ca 9000 | |
00dc 0001 0c94 | |
00de 020b 97c0 | |
00e0 0000 0020 | |
00e2 b480 0000 | |
00e4 0000 0001 | |
00e6 037a 0000 | z |
00e8 0000 86ff | |
00ea d020 b73c | <|
00ec 0829 e38c | ) |
00ee 1980 0000 | |
00f0 0043 7a88 | Cz |
00f2 08a0 0010 | |
00f4 5cbe |\ |
00f5 0000 0000 | | .BLANK 0000[0x5]
00fa 082e d800 | . | .XXX[0x67]
00fc 0d01 001c | |
00fe 0000 0000 | |
0100 4005 6894 |@ h |
0102 1d81 2008 | |
0104 2fc7 0147 |/ G|
0106 0001 05db | |
0108 0043 55fc | CU |
010a ec5c 0835 | \ 5|
010c 1900 0000 | |
010e 0004 0080 | |
0110 0bc7 a8a1 | |
0112 1810 6608 | f |
0114 0000 0000 | |
0116 8900 0023 | #|
0118 3d80 0000 |= |
011a 0000 0831 | 1|
011c 1400 0114 | |
011e 2302 0cc1 |# |
0120 0000 0000 | |
0122 0040 0004 | @ |
0124 67b0 0000 |g |
0126 0000 0106 | |
0128 3ae0 0020 |: |
012a 0000 0010 | |
012c 63af 020c |c |
012e a680 8311 | |
0130 4844 8010 |HD |
0132 67ea 0000 |g |
0134 0001 0659 | Y|
0136 f3b1 7020 | p |
0138 cfd4 0000 | |
013a 0000 ba00 | |
013c 0045 7100 | Eq |
013e 0000 0469 | i|
0140 f808 3489 | 4 |
0142 0000 0000 | |
0144 8330 4020 | 0@ |
0146 cd8c 0000 | |
0148 0043 2500 | C% |
014a 8351 9000 | Q |
014c 0000 0833 | 3|
014e da00 0000 | |
0150 0000 0040 | @|
0152 de80 0000 | |
0154 0021 bbec | ! |
0156 0834 8902 | 4 |
0158 0c27 6306 | 'c |
015a 6000 0000 |` |
015c 10dc 9e02 | |
015e 2c00 041a |, |
0160 8c80 | |
0161 0000 0000 | | .BLANK 0000[0x4]
0165 0002 0d64 | d| .XXX[0x68]
0167 8002 c040 | @|
0169 0700 0000 | |
016b 0010 015a | Z|
016d 2507 6048 |% `H|
016f 020d a040 | @|
0171 5140 0041 |Q@ A|
0173 ac90 1060 | `|
0175 c13b 1702 | ; |
0177 0ef4 c000 | |
0179 0000 0100 | |
017b 2002 f1ea | |
017d 2846 041c |(F |
017f df00 0000 | |
0181 0022 4000 | "@ |
0183 08cf 6000 | ` |
0185 0000 0002 | |
0187 0df3 8000 | |
0189 4508 c083 |E |
018b 9be0 0000 | |
018d 0000 1000 | |
018f 0119 ec00 | |
0191 0000 0000 | |
0193 41c4 8800 |A |
0195 0800 0000 | |
0197 041c 48c0 | H |
0199 8395 4020 | @ |
019b df3a 1120 | : |
019d 041d 5780 | W |
019f 0000 0041 | A|
01a1 cc4c ec5c | L \|
01a3 083a af00 | : |
01a5 0000 002e | .|
01a7 8000 115c | \|
01a9 4000 0001 |@ |
01ab 1a7e 020e | ~ |
01ad d0c0 0000 | |
01af 0020 e6f8 | |
01b1 083a 1d00 | : |
01b3 0000 10c9 | |
01b5 4020 ef4c |@ L|
01b7 0000 0002 | |
01b9 0ea5 0000 | |
01bb 0000 0000 | |
01bd 1037 a000 | 7 |
01bf 0000 086d | m|
01c1 f902 0ed0 | |
01c3 c083 7578 | ux|
01c5 c198 0000 | |
01c7 0004 36a6 | 6 |
01c9 808c 0001 | |
01cb 077a 6000 | z` |
01cd 0000 0000 | | .BLANK 0000[0x4]
01d1 0083 c4c0 | | .XXX[0x2f]
01d3 0090 1001 | |
01d5 c000 0000 | |
01d7 0400 5689 | V |
01d9 41d8 1200 |A |
01db 83d3 b014 | |
01dd 6000 1078 |` x|
01df 9804 1b8d | |
01e1 4ec5 c084 |N |
01e3 28d0 0000 |( |
01e5 0000 4008 | @ |
01e7 00bc 7a8a | z |
01e9 1181 080f | |
01eb 0000 0000 | |
01ed 0890 0002 | |
01ef 33d8 0000 |3 |
01f1 0000 0083 | |
01f3 e880 0011 | |
01f5 4230 2101 |B0! |
01f7 e000 0000 | |
01f9 0004 0000 | |
01fb 467b 0000 |F{ |
01fd 0000 0010 | |
01ff 7e96 |~ |