|
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 00a8 | | .CONST 0x00a8 ; 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 001a | | .CONST 0x001a ; Address of begin
0009 0031 | 1 | .CONST 0x0031 ; Address of exception handler
000a 0008 | | .CONST 0x0008 ; Number of locals
000b INIT_0008:
000b e009 | | Load 0x0,0x9
000c 1b15 | | Execute Package,Field_Read,Field_Number 0x15
000d 0322 | " | Declare_Variable Record
000e 029f 006b | k| Declare_Subprogram INIT_0068,For_Call
0010 029f 007b | {| Declare_Subprogram INIT_0078,For_Call
0012 029f 0083 | | Declare_Subprogram INIT_0080,For_Call
0014 029f 008b | | Declare_Subprogram INIT_0088,For_Call
0016 e01b | | Load 0x0,0x1b
0017 02ab | | Declare_Subprogram For_Call,With_Address
0018 e01c | | Load 0x0,0x1c
0019 02ab | | Declare_Subprogram For_Call,With_Address
001a BODY_0008:
001a e5fd | | Load 0x2,-0x3
001b e402 | | Load 0x2,0x2
001c 0092 0090 | | Action Push_String_Extended,0x90 ; "$"
001e e5ff | | Load 0x2,-0x1
001f e009 | | Load 0x0,0x9
0020 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0021 00d1 | | Pop_Control Pop_Count_1
0022 c5fd | | Store 0x2,-0x3
0023 4802 |H | Short_Literal 0x2
0024 e5fd | | Load 0x2,-0x3
0025 e005 | | Load 0x0,0x5
0026 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0027 6801 |h | Jump_Zero 0x29
0028 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0029 e402 | | Load 0x2,0x2
002a e009 | | Load 0x0,0x9
002b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
002c 6802 |h | Jump_Zero 0x2f
002d 8408 | | Call 0x2,0x8
002e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
002f 8407 | | Call 0x2,0x7
0030 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0031 TRAP_0008:
0031 e007 | | Load 0x0,0x7
0032 010f | | Execute Exception,Equal
0033 6801 |h | Jump_Zero 0x35
0034 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0035 00d8 | | Load_Top At_Offset_0
0036 0107 | | Execute Exception,Get_Name
0037 4900 |I | Short_Literal 0x100
0038 490f |I | Short_Literal 0x10f
0039 0262 | b | Execute Discrete,In_Range
003a 7012 |p | Jump_Nonzero 0x4d
003b 00d8 | | Load_Top At_Offset_0
003c 0107 | | Execute Exception,Get_Name
003d 4910 |I | Short_Literal 0x110
003e 491f |I | Short_Literal 0x11f
003f 0262 | b | Execute Discrete,In_Range
0040 700c |p | Jump_Nonzero 0x4d
0041 00d8 | | Load_Top At_Offset_0
0042 0107 | | Execute Exception,Get_Name
0043 4920 |I | Short_Literal 0x120
0044 492f |I/ | Short_Literal 0x12f
0045 0262 | b | Execute Discrete,In_Range
0046 7006 |p | Jump_Nonzero 0x4d
0047 00d8 | | Load_Top At_Offset_0
0048 0107 | | Execute Exception,Get_Name
0049 4930 |I0 | Short_Literal 0x130
004a 493f |I? | Short_Literal 0x13f
004b 0262 | b | Execute Discrete,In_Range
004c 680e |h | Jump_Zero 0x5b
004d e5fd | | Load 0x2,-0x3
004e 4800 |H | Short_Literal 0x0
004f 4807 |H | Short_Literal 0x7
0050 4829 |H) | Short_Literal 0x29
0051 0092 0091 | | Action Push_String_Extended,0x91 ; "Error writing markup prolog to file ("
0053 e017 | | Load 0x0,0x17
0054 180d | | Execute Package,Field_Execute,Field_Number 0xd
0055 01cc | | Execute Vector,Catenate
0056 01cb | | Execute Vector,Append
0057 e220 | | Load 0x1,0x20
0058 8233 | 3 | Call 0x1,0x33
0059 c5fd | | Store 0x2,-0x3
005a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
005b e5fd | | Load 0x2,-0x3
005c 4800 |H | Short_Literal 0x0
005d 4808 |H | Short_Literal 0x8
005e e005 | | Load 0x0,0x5
005f 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0060 e005 | | Load 0x0,0x5
0061 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0062 8233 | 3 | Call 0x1,0x33
0063 c5fd | | Store 0x2,-0x3
0064 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0065 0000 0000 | | .XXX[0x3]
0067 0000 | |
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b | k | .CONST 0x006b ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0001 | | .CONST 0x0001 ; Number of locals
006b BODY_0068:
006b INIT_0068:
006b 00da | | Load_Top At_Offset_2
006c 00d8 | | Load_Top At_Offset_0
006d e00d | | Load 0x0,0xd
006e 1b10 | | Execute Package,Field_Read,Field_Number 0x10
006f 0260 | ` | Execute Discrete,In_Type
0070 7001 |p | Jump_Nonzero 0x72
0071 0801 | | Execute_Immediate Raise,0x1
0072 e5fe | | Load 0x2,-0x2
0073 e00d | | Load 0x0,0xd
0074 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
0075 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0076 0000 0000 | | .XXX[0x2]
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 00da | | Load_Top At_Offset_2
007c e5fe | | Load 0x2,-0x2
007d e00d | | Load 0x0,0xd
007e 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59
007f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
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 00da | | Load_Top At_Offset_2
0084 e5fe | | Load 0x2,-0x2
0085 e00d | | Load 0x0,0xd
0086 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e
0087 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b | | .CONST 0x008b ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0001 | | .CONST 0x0001 ; Number of locals
008b BODY_0088:
008b INIT_0088:
008b 00da | | Load_Top At_Offset_2
008c e5fe | | Load 0x2,-0x2
008d e00d | | Load 0x0,0xd
008e 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
008f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0090 ; --------------------------------------------------------------------------------------
0090 ; STRING TABLE
0090 ; --------------------------------------------------------------------------------------
0090 0006 | | .STRTAB 0x0006->0x0093 ; "$"
0091 0005 | | .STRTAB 0x0005->0x0093 ; "Error writing markup prolog to file ("
0092 0028 | ( | .STREND 0x0028->0x00a6
0093 2445 7272 |$Err| .STRTAB_STRINGS
00a6 0000 0000 | | .XXX[0x2]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; Debug Table
00a8 ; --------------------------------------------------------------------------------------
00a8 0004 0012 | | .DEBUG4 0x0004,0x0012,0xc79e,0x0000,0x0001,0x0000
00ae d1d8 f701 | | .XXX[0x152]
00b0 9f5c 0f41 | \ A|
00b2 d4f7 01a3 | |
00b4 5c0e 51d8 |\ Q |
00b6 f701 a75c | \|
00b8 0e91 d8f7 | |
00ba 01ab 5c0e | \ |
00bc d1d8 f701 | |
00be af5c 0f11 | \ |
00c0 d8f7 01b3 | |
00c2 5c0f 51d8 |\ Q |
00c4 f701 b75c | \|
00c6 0f91 d8f7 | |
00c8 01bb 5c0f | \ |
00ca d1d8 f701 | |
00cc bf5c 0c11 | \ |
00ce df71 4a9f | qJ |
00d0 9c0d 51d8 | Q |
00d2 024d 7fe3 | M |
00d4 7225 3276 |r%2v|
00d6 7b31 5062 |{1Pb|
00d8 59d8 ff01 |Y |
00da bc5c 89c1 | \ |
00dc e501 0178 | x|
00de 1c11 51d9 | Q |
00e0 0101 b01c | |
00e2 10f1 dd06 | |
00e4 01ec 5c10 | \ |
00e6 b1d9 0701 | |
00e8 a45c 1011 | \ |
00ea dd08 01e1 | |
00ec 1cdd d5e9 | |
00ee 0901 949c | |
00f0 1331 d90b | 1 |
00f2 01cc dc12 | |
00f4 c1dd 0f01 | |
00f6 84dc 1231 | 1|
00f8 d917 01c5 | |
00fa 5c10 91dd |\ |
00fc 1701 c95c | \|
00fe 10d1 de49 | I|
0100 4e9d 1ce7 |N |
0102 661b 4d74 |f Mt|
0104 4543 7454 |ECtT|
0106 075c 779b | \w |
0108 53a4 6407 |S d |
010a 7277 9bd0 |rw |
010c 6e09 de7b |n {|
010e 4dbd 2378 |M #x|
0110 6407 9877 |d w|
0112 a3d0 6ea9 | n |
0114 dfd9 4e9e | N |
0116 1cfc e61e | |
0118 8f74 4543 | tEC|
011a 6ba5 3f39 |k ?9|
011c 85ab 9cfc | |
011e e61e b774 | t|
0120 47c3 6805 |G h |
0122 433b 85b1 |C; |
0124 dc13 51d9 | Q |
0126 1f01 b5dc | |
0128 1391 d91f | |
012a 01b9 dc13 | |
012c d1d9 1f01 | |
012e bddc 1011 | |
0130 dd1f 01c1 | |
0132 dc10 51dd | Q |
0134 1f01 c5dc | |
0136 1091 dd1f | |
0138 01c9 dc10 | |
013a d1dd 1f01 | |
013c cddc 1111 | |
013e dd1f 01d1 | |
0140 dc11 51dd | Q |
0142 1f01 d5dc | |
0144 1191 dc7c | ||
0146 0e5e 1c11 | ^ |
0148 e1dd 2001 | |
014a e21c 1221 | !|
014c dd20 01e6 | |
014e 1c12 61de | a |
0150 0952 9c1c | R |
0152 1511 d943 | C|
0154 0190 1c15 | |
0156 51da 1252 |Q R|
0158 1263 6504 | ce |
015a 066c 7453 | ltS|
015c 4365 0406 |Ce |
015e 7c74 5103 ||tQ |
0160 5d04 068c |] |
0162 7451 4369 |tQCi|
0164 0406 9c74 | t|
0166 5243 6904 |RCi |
0168 06ac 7453 | tS|
016a 4369 0406 |Ci |
016c bc74 5043 | tPC|
016e 6d04 06cc |m |
0170 7451 436d |tQCm|
0172 0406 dc74 | t|
0174 5243 6d04 |RCm |
0176 06ec 7453 | tS|
0178 436d 0406 |Cm |
017a fc74 5043 | tPC|
017c 7104 070c |q |
017e 7451 4371 |tQCq|
0180 0407 1c74 | t|
0182 5243 7104 |RCq |
0184 072c 7453 | ,tS|
0186 4371 0407 |Cq |
0188 3c74 5043 |<tPC|
018a 7504 074c |u L|
018c 7451 4375 |tQCu|
018e 0407 5c74 | \t|
0190 5243 7514 |RCu |
0192 0771 7453 | qtS|
0194 8375 1407 | u |
0196 8174 5083 | tP |
0198 7914 0645 |y E|
019a 7453 4369 |tSCi|
019c 1407 2674 | &t|
019e 5203 7924 |R y$|
01a0 0616 7451 | tQ|
01a2 035d 2406 | ]$ |
01a4 f774 5303 | tS |
01a6 7534 07da |u4 |
01a8 75a3 43a5 |u C |
01aa 3406 b774 |4 t|
01ac 5243 7144 |RCqD|
01ae 0798 7454 | tT|
01b0 4361 4406 |CaD |
01b2 7c74 56c3 ||tV |
01b4 6d54 0771 |mT q|
01b6 7456 435d |tVC]|
01b8 5406 5574 |T Ut|
01ba 54c3 6d64 |T md|
01bc 074e 7455 | NtU|
01be 4375 6407 |Cud |
01c0 5e74 5643 |^tVC|
01c2 7574 0773 |ut s|
01c4 7457 8375 |tW u|
01c6 7407 8374 |t t|
01c8 5483 7974 |T yt|
01ca 0793 7455 | tU|
01cc 837a f54a | z J|
01ce 7578 b054 |ux T|
01d0 aa49 ded5 | I |
01d2 52a2 237b |R #{|
01d4 954a 8489 | J |
01d6 ef5d 2e16 | ]. |
01d8 2bc0 7458 |+ tX|
01da 837c 154e | | N|
01dc 8689 f4dd | |
01de 3216 29e4 |2 ) |
01e0 745a c35d |tZ ]|
01e2 8405 f774 | t|
01e4 c454 a819 | T |
01e6 db25 52a1 | %R |
01e8 6361 d407 |ca |
01ea 5d74 5e43 |]t^C|
01ec 75e4 0772 |u r|
01ee 745f 8375 |t_ u|
01f0 e407 8277 | w|
01f2 5343 a5e4 |SC |
01f4 0792 745d | t]|
01f6 8379 e407 | y |
01f8 a177 56c0 | wV |
01fa b2c9 dd7a | z|
01fc 01ef 5cd4 | \ |
01fe b22f ca74 | / t|