|
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 00b0 | | .CONST 0x00b0 ; 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 0016 | | .CONST 0x0016 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0005 | | .CONST 0x0005 ; Number of locals
000b INIT_0008:
000b 00e1 | | Load_Encached Boolean_Cache
000c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
000d e00f | | Load 0x0,0xf
000e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
000f 02c7 | | Declare_Variable Any
0010 00d8 | | Load_Top At_Offset_0
0011 1c00 | | Execute_Immediate Run_Utility,0x0
0012 e7fc | | Load 0x3,-0x4
0013 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0014 029f 007b | {| Declare_Subprogram INIT_0078,For_Call
0016 BODY_0008:
0016 e7ff | | Load 0x3,-0x1
0017 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0018 4606 |F | Jump_Case 0x7
0019 7806 |x | Jump 0x20 ; case 0x0
001a 7808 |x | Jump 0x23 ; case 0x1
001b 7811 |x | Jump 0x2d ; case 0x2
001c 7803 |x | Jump 0x20 ; case 0x3
001d 7802 |x | Jump 0x20 ; case 0x4
001e 7808 |x | Jump 0x27 ; case 0x5
001f 7800 |x | Jump 0x20 ; case 0x6
0020 4800 |H | Short_Literal 0x0
0021 a7fb | | Store_Unchecked 0x3,-0x5
0022 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0023 e7ff | | Load 0x3,-0x1
0024 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0025 c603 | | Store 0x3,0x3
0026 780b |x | Jump 0x32
0027 e7ff | | Load 0x3,-0x1
0028 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
0029 e027 | ' | Load 0x0,0x27
002a 181e | | Execute Package,Field_Execute,Field_Number 0x1e
002b c603 | | Store 0x3,0x3
002c 7805 |x | Jump 0x32
002d e7ff | | Load 0x3,-0x1
002e 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
002f e015 | | Load 0x0,0x15
0030 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0031 c603 | | Store 0x3,0x3
0032 e7fd | | Load 0x3,-0x3
0033 e00f | | Load 0x0,0xf
0034 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0035 c7fd | | Store 0x3,-0x3
0036 8605 | | Call 0x3,0x5
0037 e7fd | | Load 0x3,-0x3
0038 00db | | Load_Top At_Offset_3
0039 e00f | | Load 0x0,0xf
003a 181d | | Execute Package,Field_Execute,Field_Number 0x1d
003b c7fd | | Store 0x3,-0x3
003c e7fc | | Load 0x3,-0x4
003d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
003e 7013 |p | Jump_Nonzero 0x52
003f e402 | | Load 0x2,0x2
0040 0322 | " | Declare_Variable Record
0041 e7fe | | Load 0x3,-0x2
0042 e404 | | Load 0x2,0x4
0043 03b6 | | Declare_Variable Access,By_Allocation,With_Value
0044 00d9 | | Load_Top At_Offset_1
0045 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0046 e403 | | Load 0x2,0x3
0047 00d9 | | Load_Top At_Offset_1
0048 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0049 e403 | | Load 0x2,0x3
004a 03b6 | | Declare_Variable Access,By_Allocation,With_Value
004b e7fc | | Load 0x3,-0x4
004c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
004d e7fc | | Load 0x3,-0x4
004e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
004f e7fc | | Load 0x3,-0x4
0050 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0051 7816 |x | Jump 0x68
0052 e402 | | Load 0x2,0x2
0053 0322 | " | Declare_Variable Record
0054 e7fe | | Load 0x3,-0x2
0055 e404 | | Load 0x2,0x4
0056 03b6 | | Declare_Variable Access,By_Allocation,With_Value
0057 00d9 | | Load_Top At_Offset_1
0058 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0059 e403 | | Load 0x2,0x3
005a 00d9 | | Load_Top At_Offset_1
005b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
005c e403 | | Load 0x2,0x3
005d 03b6 | | Declare_Variable Access,By_Allocation,With_Value
005e e7fc | | Load 0x3,-0x4
005f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0060 0227 | ' | Execute Access,All_Reference
0061 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0062 e7fc | | Load 0x3,-0x4
0063 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0064 0227 | ' | Execute Access,All_Reference
0065 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0066 e7fc | | Load 0x3,-0x4
0067 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0068 00db | | Load_Top At_Offset_3
0069 6805 |h | Jump_Zero 0x6f
006a 00d9 | | Load_Top At_Offset_1
006b a7fa | | Store_Unchecked 0x3,-0x6
006c 4801 |H | Short_Literal 0x1
006d a7fb | | Store_Unchecked 0x3,-0x5
006e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
006f 4800 |H | Short_Literal 0x0
0070 a7fb | | Store_Unchecked 0x3,-0x5
0071 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0072 0000 0000 | | .BLANK 0000[0x6]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 0082 | | .CONST 0x0082 ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0003 | | .CONST 0x0003 ; Number of locals
007b INIT_0078:
007b 4801 |H | Short_Literal 0x1
007c e603 | | Load 0x3,0x3
007d e003 | | Load 0x0,0x3
007e 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
007f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0080 029f 009b | | Declare_Subprogram INIT_0098,For_Call
0082 BODY_0078:
0082 00cf | | Action Mark_Auxiliary
0083 7806 |x | Jump 0x8a
0084 8803 | | Call 0x4,0x3
0085 e7fd | | Load 0x3,-0x3
0086 e00f | | Load 0x0,0xf
0087 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0088 c7fd | | Store 0x3,-0x3
0089 00c9 | | Action Pop_Auxiliary_Loop
008a e7fd | | Load 0x3,-0x3
008b e00f | | Load 0x0,0xf
008c 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
008d 7002 |p | Jump_Nonzero 0x90
008e e602 | | Load 0x3,0x2
008f 6ff4 |o | Jump_Zero 0x84
0090 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0091 0000 0000 | | .BLANK 0000[0x7]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 00a2 | | .CONST 0x00a2 ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0002 | | .CONST 0x0002 ; Number of locals
009b INIT_0098:
009b 4801 |H | Short_Literal 0x1
009c e7fd | | Load 0x3,-0x3
009d e00f | | Load 0x0,0xf
009e 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
009f e003 | | Load 0x0,0x3
00a0 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
00a1 180e | | Execute Package,Field_Execute,Field_Number 0xe
00a2 BODY_0098:
00a2 00d8 | | Load_Top At_Offset_0
00a3 e802 | | Load 0x4,0x2
00a4 01df | | Execute Vector,Equal
00a5 6803 |h | Jump_Zero 0xa9
00a6 4801 |H | Short_Literal 0x1
00a7 a602 | | Store_Unchecked 0x3,0x2
00a8 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00a9 e604 | | Load 0x3,0x4
00aa 0227 | ' | Execute Access,All_Reference
00ab 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00ac a604 | | Store_Unchecked 0x3,0x4
00ad 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00ae 0000 0000 | | .XXX[0x2]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; Debug Table
00b0 ; --------------------------------------------------------------------------------------
00b0 0004 0012 | | .DEBUG4 0x0004,0x0012,0xfcb3,0x0000,0x0001,0x0000
00b6 40fa 6d1b |@ m | .XXX[0x14a]
00b8 d711 12f5 | |
00ba 1e16 7ebd | ~ |
00bc 2803 eef3 |( |
00be 4718 2314 |G # |
00c0 3a5c 8d54 |:\ T|
00c2 9555 c6e9 | U |
00c4 d2c8 6845 | hE|
00c6 02cb 7065 | pe|
00c8 0ecb 68a3 | h |
00ca 0801 22ca | " |
00cc f0c3 d803 | |
00ce 3c01 2217 |< " |
00d0 931a f851 | Q|
00d2 40f1 c12f |@ /|
00d4 92ad 3ed2 | > |
00d6 4f23 4c27 |O#L'|
00d8 d840 69f6 | @i |
00da 7719 12f7 |w |
00dc 2001 8b01 | |
00de 809d 2401 | $ |
00e0 9701 2302 | # |
00e2 b2dc 3a5e | :^|
00e4 cf1b 0719 | |
00e6 ee1e db18 | |
00e8 7dc8 8af7 |} |
00ea 2825 5300 |(%S |
00ec bf17 c2df | |
00ee 1972 ff1b | r |
00f0 f010 3314 | 3 |
00f2 2a94 cad0 |* |
00f4 800a 8477 | w|
00f6 68a1 9002 |h |
00f8 8abf bedf | |
00fa ced4 c407 | |
00fc 7057 e6e6 |pW |
00fe 2cbd b403 |, |
0100 e413 5e85 | ^ |
0102 ca72 8b23 | r #|
0104 4b22 6c83 |K"l |
0106 5722 04e7 |W" |
0108 6320 7cfb |c | |
010a 7054 8800 |pT |
010c 2205 9403 |" |
010e 3070 541a |0pT |
0110 d814 0c7c | ||
0112 342b 8322 |4+ "|
0114 30d9 ce71 |0 q|
0116 1a57 8f22 | W "|
0118 7477 5723 |twW#|
011a c973 9f22 | s "|
011c f851 5e87 | Q^ |
011e af22 e47e | " ~|
0120 5c6a 3a6d |\j:m|
0122 de5f 6287 | _b |
0124 d321 6b01 | !k |
0126 7044 d4ab |pD |
0128 68a1 8c00 |h |
012a 36c3 eb20 |6 |
012c 1c2b 6f23 | +o#|
012e 75ce d429 |u )|
0130 ea6e 426c | nBl|
0132 0b27 8b21 | ' !|
0134 edb3 107d | }|
0136 884b ec00 | K |
0138 541b 2b21 |T +!|
013a 6a0b f322 |j "|
013c 9c8e a413 | |
013e 0823 b817 | # |
0140 cb21 f66d | ! m|
0142 ea5d 791f | ]y |
0144 4f20 e404 |O |
0146 1f25 86ca | % |
0148 f319 3b0b | ; |
014a 7054 8c03 |pT |
014c 3073 969b |0s |
014e 3c6d 9003 |<m |
0150 1c87 b074 | t|
0152 5054 3f25 |PT?%|
0154 c673 cf23 | s #|
0156 bd54 2e96 | T. |
0158 7077 49df |pwI |
015a ec03 1444 | D|
015c 6326 f71b |c& |
015e 7054 9c00 |pT |
0160 af26 4720 | &G |
0162 0c7f af23 | #|
0164 b723 0820 | # |
0166 f454 7f27 | T '|
0168 6686 aabc |f |
016a db27 bce3 | ' |
016c f403 68a1 | h |
016e 8801 7d11 | } |
0170 6b08 f324 |k $|
0172 28a4 ff24 |( $|
0174 4855 0726 |HU &|
0176 9ce2 5c69 | \i|
0178 8a10 cb25 | %|
017a 7687 9d70 |v p|
017c 2184 df26 |! &|
017e 315f a658 |1_ X|
0180 7d48 9f25 |}H %|
0182 f6eb 6b20 | k |
0184 3a2f 9d55 |:/ U|
0186 4c2b 0821 |L+ !|
0188 6e84 0727 |n '|
018a 8722 2e67 | ".g|
018c db20 1407 | |
018e 68a1 04d8 |h |
0190 ef24 a327 | $ '|
0192 a413 9d56 | V|
0194 c411 b270 | p|
0196 0c7c f61d | | |
0198 6324 4725 |c$G%|
019a 7198 df14 |q |
019c e716 7a1e | z |
019e 9b08 1975 | u|
01a0 2d68 799f |-hy |
01a2 d803 9003 | |
01a4 645a 2aeb |dZ* |
01a6 64a3 d803 |d |
01a8 9402 5c4d | \M|
01aa 1717 9802 | |
01ac 24af 6404 |$ d |
01ae 7dc8 1a77 |} w|
01b0 f038 1d1b | 8 |
01b2 8d6e 2693 | n& |
01b4 7c01 889e || |
01b6 e276 0d0b | v |
01b8 025e 5725 | ^W%|
01ba f262 de7b | b {|
01bc 6a55 502d |jUP-|
01be fa23 0c05 | # |
01c0 c01d d81a | |
01c2 902a 6802 | *h |
01c4 540b e800 |T |
01c6 0c1c e6fa | |
01c8 b83f 642c | ?d,|
01ca 0402 201e | |
01cc bee8 e60c | |
01ce 9e74 d6e0 | t |
01d0 aa75 4007 | u@ |
01d2 4e1c 594d |N YM|
01d4 4a97 7e5f |J ~_|
01d6 661c 754d |f uM|
01d8 cb16 4d6b | Mk|
01da 0112 cced | |
01dc df14 aafb | |
01de 7b03 2510 |{ % |
01e0 8118 0d19 | |
01e2 ac1c 9518 | |
01e4 d43d 091b | = |
01e6 59fd 79c1 |Y y |
01e8 8899 2e77 | .w|
01ea 0c05 6f1d | o |
01ec ed0c 9d02 | |
01ee 72c1 f99c |r |
01f0 951b c060 | `|
01f2 c68b 183c | <|
01f4 2119 6471 |! dq|
01f6 a71c dc2f | /|
01f8 c003 5002 | P |
01fa d4b5 2519 | % |
01fc 92a1 829b | |
01fe 300d 7a98 |0 z |