|
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 0068 | h | .CONST 0x0068 ; 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 0020 | | .CONST 0x0020 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0010 | | .CONST 0x0010 ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 000c 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 000d e001 | | Load 0x0,0x1 000e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 000f 029f 0053 | S| Declare_Subprogram INIT_0050,For_Call 0011 4802 |H | Short_Literal 0x2 0012 032e | . | Declare_Type Record,Defined,Visible 0013 029a 002b | +| Declare_Subprogram INIT_0028,For_Outer_Call,Visible,Unelaborated 0015 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated 0017 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated 0019 00bf | | Action Accept_Activation 001a 1d0e | | Execute_Immediate Reference_Lex_1,0xe 001b 00c7 | | Action Elaborate_Subprogram 001c 1d0f | | Execute_Immediate Reference_Lex_1,0xf 001d 00c7 | | Action Elaborate_Subprogram 001e 1d10 | | Execute_Immediate Reference_Lex_1,0x10 001f 00c7 | | Action Elaborate_Subprogram 0020 BODY_0008: 0020 00bc | | Action Signal_Activated 0021 00bb | | Action Signal_Completion 0022 0000 0000 | | .BLANK 0000[0x6] 0028 ; -------------------------------------------------------------------------------------- 0028 ; SUBPROGRAM 0028 ; -------------------------------------------------------------------------------------- 0028 002b | + | .CONST 0x002b ; Address of begin 0029 0004 | | .CONST 0x0004 ; Address of exception handler 002a 0001 | | .CONST 0x0001 ; Number of locals 002b BODY_0028: 002b INIT_0028: 002b 00db | | Load_Top At_Offset_3 002c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 002d e5fe | | Load 0x2,-0x2 002e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 002f e5ff | | Load 0x2,-0x1 0030 e002 | | Load 0x0,0x2 0031 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0032 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0033 0000 0000 | | .BLANK 0000[0x5] 0038 ; -------------------------------------------------------------------------------------- 0038 ; SUBPROGRAM 0038 ; -------------------------------------------------------------------------------------- 0038 003b | ; | .CONST 0x003b ; Address of begin 0039 0004 | | .CONST 0x0004 ; Address of exception handler 003a 0001 | | .CONST 0x0001 ; Number of locals 003b BODY_0038: 003b INIT_0038: 003b 00db | | Load_Top At_Offset_3 003c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 003d e5fe | | Load 0x2,-0x2 003e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 003f e5ff | | Load 0x2,-0x1 0040 e002 | | Load 0x0,0x2 0041 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0042 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0043 0000 0000 | | .BLANK 0000[0x5] 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 004b | K | .CONST 0x004b ; Address of begin 0049 0004 | | .CONST 0x0004 ; Address of exception handler 004a 0001 | | .CONST 0x0001 ; Number of locals 004b BODY_0048: 004b INIT_0048: 004b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 004c 0000 0000 | | .BLANK 0000[0x4] 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 0053 | S | .CONST 0x0053 ; Address of begin 0051 0004 | | .CONST 0x0004 ; Address of exception handler 0052 0001 | | .CONST 0x0001 ; Number of locals 0053 BODY_0050: 0053 INIT_0050: 0053 4608 |F | Jump_Case 0x9 0054 7808 |x | Jump 0x5d ; case 0x0 0055 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0056 780d |x | Jump 0x64 ; case 0x2 0057 780c |x | Jump 0x64 ; case 0x3 0058 780b |x | Jump 0x64 ; case 0x4 0059 780a |x | Jump 0x64 ; case 0x5 005a 7809 |x | Jump 0x64 ; case 0x6 005b 7808 |x | Jump 0x64 ; case 0x7 005c 7807 |x | Jump 0x64 ; case 0x8 005d 00da | | Load_Top At_Offset_2 005e 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 005f 0125 | % | Execute Any,Set_Constraint 0060 00da | | Load_Top At_Offset_2 0061 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0062 1c00 | | Execute_Immediate Run_Utility,0x0 0063 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0064 0869 | i | Execute_Immediate Raise,0x69 0065 0000 0000 | | .XXX[0x3] 0067 0000 | | 0068 ; -------------------------------------------------------------------------------------- 0068 ; Debug Table 0068 ; -------------------------------------------------------------------------------------- 0068 0004 000d | | .DEBUG4 0x0004,0x000d,0x91c1,0x0000,0x0001,0x0000 006e ad09 fc08 | | .XXX[0x192] 0070 787f a186 |x | 0072 aca6 cde8 | | 0074 f9ce a5d4 | | 0076 ca38 a093 | 8 | 0078 09d4 98fa | | 007a cca4 a0f9 | | 007c 680a 8892 |h | 007e 9566 19d7 | f | 0080 39d7 4c09 |9 L | 0082 2dcf cdf1 |- | 0084 e1ca 8c90 | | 0086 c1d8 55dd | U | 0088 9c04 3cb4 | < | 008a 1241 51cd | AQ | 008c 287d d02d |(} -| 008e 5dce 5103 |] Q | 0090 a9d4 2c19 | , | 0092 71ce b18e |q | 0094 45cf cc2f |E /| 0096 9d9d 18fa | | 0098 b101 89cd | | 009a 9c30 99af | 0 | 009c 1029 38f9 | )8 | 009e 9dce 3e3d | >=| 00a0 a5cf 3965 | 9e| 00a2 54fb 6e3d |T n=| 00a4 b9cf 4d65 | Me| 00a6 c1cf e23d | =| 00a8 74fa 6985 |t i | 00aa b214 f9dc | | 00ac c5cf add4 | | 00ae f108 b1d9 | | 00b0 a0f9 2e40 | .@| 00b2 cdc7 321d | 2 | 00b4 3a43 35ce |:C5 | 00b6 01cc 19cc | | 00b8 e8f8 b8c1 | | 00ba 5242 15cd |RB | 00bc b128 0485 | ( | 00be 30ca 29cf |0 ) | 00c0 c965 387c | e8|| 00c2 950e 21d7 | ! | 00c4 d565 da41 | e A| 00c6 3168 3c84 |1h< | 00c8 39a3 ed67 |9 g| 00ca f562 ae3e | b >| 00cc 5dcf 2cfc |] , | 00ce c9c2 0e40 | @| 00d0 116a f131 | j 1| 00d2 696a 3e3e |ij>>| 00d4 48fb 74fe |H t | 00d6 523f 047f |R? | 00d8 98fd 6597 | e | 00da 147d 1129 | } )| 00dc fa36 74fa | 6t | 00de adcf d0c8 | | 00e0 5d69 41d0 |]iA | 00e2 921e 707e | p~| 00e4 d990 31da | 1 | 00e6 6c0a 9c01 |l | 00e8 2d6b 5880 |-kX | 00ea f14a e9cc | J | 00ec 323c 090c |2< | 00ee 9969 287c | i(|| 00f0 423e d8f8 |B> | 00f2 4a3f e23b |J? ;| 00f4 11cd 7d73 | }s| 00f6 19cd 4d63 | Mc| 00f8 21cc 663f |! f?| 00fa 223d 7c4b |"=|K| 00fc 0cf8 d568 | h| 00fe 8104 7a3e | z>| 0100 6dce 947e |m ~| 0102 421f 28f9 |B ( | 0104 2d6b 34fb |-k4 | 0106 ba2b 5dcf | +] | 0108 4c7e 550d |L~U | 010a 1168 2241 | h"A| 010c 344a e191 |4J | 010e 256b 2e42 |%k.B| 0110 11cb 45f2 | E | 0112 19ca 123d | =| 0114 3e42 1a3e |>B >| 0116 4dc8 0a1a |M | 0118 2dd0 216f |- !o| 011a b1ce 3dc9 | = | 011c 796b 323e |yk2>| 011e 81cd 0e24 | $| 0120 9086 4a3e | J>| 0122 6640 2537 |f@%7| 0124 8562 51d1 | bQ | 0126 916a d0fd | j | 0128 58f7 e23f |X ?| 012a e5cc 7c7a | |z| 012c 7a3d 5602 |z=V | 012e dd6a 7032 | jp2| 0130 8a3e c859 | > Y| 0132 c16b e23e | k >| 0134 a055 4082 | U@ | 0136 8dd0 15d1 | | 0138 8640 1dd2 | @ | 013a a1d3 6426 | d&| 013c be3f 34fc | ?4 | 013e 860b 24c6 | $ | 0140 016a da3c | j <| 0142 41d2 116a |A j| 0144 edca 0d69 | i| 0146 a802 d9d1 | | 0148 bc80 5dd0 | ] | 014a f56f 0642 | o B| 014c f5d3 2a3c | *<| 014e 71d2 4d6b |q Mk| 0150 423c 7dd1 |B<} | 0152 a801 f483 | | 0154 423c 89d3 |B< | 0156 4a3e 003d |J> =| 0158 296f 763e |)ov>| 015a 8242 8168 | B h| 015c add3 e23f | ?| 015e 723c c167 |r< g| 0160 7a3f 4dd3 |z?M | 0162 d643 da41 | C A| 0164 843f 95ca | ? | 0166 1c87 65d0 | e | 0168 f167 6dd0 | gm | 016a edd2 6e03 | n | 016c ecc5 18fc | | 016e 41fd 24fe |A $ | 0170 ac83 e23e | >| 0172 ed6a e16a | j j| 0174 ac32 3e3f | 2>?| 0176 add1 7d0b | } | 0178 f23f 0569 | ? i| 017a 31d3 d9d6 |1 | 017c 64ed 3dd3 |d = | 017e 4c7e f156 |L~ V| 0180 01ac ae25 | %| 0182 80ff a07d | }| 0184 6c77 416a |lwAj| 0186 b488 f8b6 | | 0188 e193 4d6b | Mk| 018a f56a c243 | j C| 018c 5d6b 1e29 |]k )| 018e 3635 91d1 |65 | 0190 d94b 2e2b | K.+| 0192 7d69 a1d3 |}i | 0194 a081 c161 | a| 0196 add1 8c2b | +| 0198 b16a cd62 | j b| 019a 00fc e23f | ?| 019c ad69 b5d3 | i | 019e d881 d1d1 | | 01a0 c041 d9d1 | A | 01a2 35cd b4d9 |5 | 01a4 e5d0 3080 | 0 | 01a6 b8c3 6d49 | mI| 01a8 7567 607c |ug`|| 01aa f9d8 e9db | | 01ac ed69 a247 | i G| 01ae 0164 1832 | d 2| 01b0 0a3d 3d6a | ==j| 01b2 1dc9 f026 | &| 01b4 21d2 223c |! "<| 01b6 7a3a 2a3c |z:*<| 01b8 3e1e 323f |> 2?| 01ba 9a42 5a3f | BZ?| 01bc be42 6a40 | Bj@| 01be 396e 51ca |9nQ | 01c0 4e3f aa40 |N? @| 01c2 e482 5dca | ] | 01c4 55d2 663e |U f>| 01c6 0e44 2536 | D%6| 01c8 723f e9cf |r? | 01ca ce43 55f8 | CU | 01cc dc87 ea42 | B| 01ce 79d3 4c1d |y L | 01d0 da10 3cc2 | < | 01d2 89d2 a5cb | | 01d4 85b7 e162 | b| 01d6 ae3e 9dd2 | > | 01d8 b9ca ba3f | ?| 01da 30ff 59d6 |0 Y | 01dc f438 f837 | 8 7| 01de 40fe bdd0 |@ | 01e0 dd6e c5d0 | n | 01e2 2e47 5cfc |.G\ | 01e4 55d2 e1d2 |U | 01e6 e9d2 3d6b | =k| 01e8 263d 843f |&= ?| 01ea 2e3e c414 |.> | 01ec 5e45 acca |^E | 01ee e4c0 6e46 | nF| 01f0 6568 8dd3 |eh | 01f2 4e3c 7e44 |N<~D| 01f4 9a44 8647 | D G| 01f6 31d2 4881 |1 H | 01f8 416d aa43 |Am C| 01fa 41d1 41da |A A | 01fc 2083 6e3e | n>| 01fe 0484 f004 | |