|
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_bdfc99
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦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 01b0 | | .CONST 0x01b0 ; 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 013f | ? | .CONST 0x013f ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0013 | | .CONST 0x0013 ; Number of locals
000b INIT_0008:
000b 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated
000d 00bf | | Action Accept_Activation
000e 4800 |H | Short_Literal 0x0
000f 4804 |H | Short_Literal 0x4
0010 029f 015b | [| Declare_Subprogram INIT_0158,For_Call
0012 03fd | | Declare_Type Discrete,Defined
0013 4800 |H | Short_Literal 0x0
0014 4808 |H | Short_Literal 0x8
0015 e001 | | Load 0x0,0x1
0016 01d7 | | Execute Vector,Field_Read
0017 02a0 | | Declare_Subprogram Null_Subprogram
0018 038e | | Declare_Type Package,Defined
0019 e001 | | Load 0x0,0x1
001a 4807 |H | Short_Literal 0x7
001b e001 | | Load 0x0,0x1
001c 01d7 | | Execute Vector,Field_Read
001d 4802 |H | Short_Literal 0x2
001e 00db | | Load_Top At_Offset_3
001f 020e | | Execute Module,Augment_Imports
0020 0387 | | Declare_Variable Package
0021 e002 | | Load 0x0,0x2
0022 e003 | | Load 0x0,0x3
0023 e004 | | Load 0x0,0x4
0024 a005 | | Store_Unchecked 0x0,0x5
0025 a006 | | Store_Unchecked 0x0,0x6
0026 a007 | | Store_Unchecked 0x0,0x7
0027 e008 | | Load 0x0,0x8
0028 a009 | | Store_Unchecked 0x0,0x9
0029 e00a | | Load 0x0,0xa
002a a00b | | Store_Unchecked 0x0,0xb
002b a00c | | Store_Unchecked 0x0,0xc
002c a00d | | Store_Unchecked 0x0,0xd
002d a00e | | Store_Unchecked 0x0,0xe
002e a00f | | Store_Unchecked 0x0,0xf
002f a010 | | Store_Unchecked 0x0,0x10
0030 e011 | | Load 0x0,0x11
0031 a012 | | Store_Unchecked 0x0,0x12
0032 a013 | | Store_Unchecked 0x0,0x13
0033 4812 |H | Short_Literal 0x12
0034 e20f | | Load 0x1,0xf
0035 020e | | Execute Module,Augment_Imports
0036 00d8 | | Load_Top At_Offset_0
0037 020f | | Execute Module,Activate
0038 4800 |H | Short_Literal 0x0
0039 4802 |H | Short_Literal 0x2
003a e001 | | Load 0x0,0x1
003b 01d7 | | Execute Vector,Field_Read
003c 02a0 | | Declare_Subprogram Null_Subprogram
003d 038e | | Declare_Type Package,Defined
003e e001 | | Load 0x0,0x1
003f 4801 |H | Short_Literal 0x1
0040 e001 | | Load 0x0,0x1
0041 01d7 | | Execute Vector,Field_Read
0042 4802 |H | Short_Literal 0x2
0043 00db | | Load_Top At_Offset_3
0044 020e | | Execute Module,Augment_Imports
0045 0387 | | Declare_Variable Package
0046 e002 | | Load 0x0,0x2
0047 e003 | | Load 0x0,0x3
0048 e004 | | Load 0x0,0x4
0049 a005 | | Store_Unchecked 0x0,0x5
004a a006 | | Store_Unchecked 0x0,0x6
004b a007 | | Store_Unchecked 0x0,0x7
004c e008 | | Load 0x0,0x8
004d e011 | | Load 0x0,0x11
004e a00b | | Store_Unchecked 0x0,0xb
004f a00e | | Store_Unchecked 0x0,0xe
0050 a00f | | Store_Unchecked 0x0,0xf
0051 a010 | | Store_Unchecked 0x0,0x10
0052 e014 | | Load 0x0,0x14
0053 a015 | | Store_Unchecked 0x0,0x15
0054 a013 | | Store_Unchecked 0x0,0x13
0055 480f |H | Short_Literal 0xf
0056 e210 | | Load 0x1,0x10
0057 020e | | Execute Module,Augment_Imports
0058 00d8 | | Load_Top At_Offset_0
0059 020f | | Execute Module,Activate
005a 4800 |H | Short_Literal 0x0
005b 4804 |H | Short_Literal 0x4
005c e001 | | Load 0x0,0x1
005d 01d7 | | Execute Vector,Field_Read
005e 02a0 | | Declare_Subprogram Null_Subprogram
005f 038e | | Declare_Type Package,Defined
0060 e001 | | Load 0x0,0x1
0061 4803 |H | Short_Literal 0x3
0062 e001 | | Load 0x0,0x1
0063 01d7 | | Execute Vector,Field_Read
0064 4802 |H | Short_Literal 0x2
0065 00db | | Load_Top At_Offset_3
0066 020e | | Execute Module,Augment_Imports
0067 0387 | | Declare_Variable Package
0068 e002 | | Load 0x0,0x2
0069 e003 | | Load 0x0,0x3
006a e014 | | Load 0x0,0x14
006b a005 | | Store_Unchecked 0x0,0x5
006c a009 | | Store_Unchecked 0x0,0x9
006d a007 | | Store_Unchecked 0x0,0x7
006e e008 | | Load 0x0,0x8
006f a006 | | Store_Unchecked 0x0,0x6
0070 e011 | | Load 0x0,0x11
0071 a00b | | Store_Unchecked 0x0,0xb
0072 e016 | | Load 0x0,0x16
0073 a017 | | Store_Unchecked 0x0,0x17
0074 a00e | | Store_Unchecked 0x0,0xe
0075 a00f | | Store_Unchecked 0x0,0xf
0076 a010 | | Store_Unchecked 0x0,0x10
0077 a012 | | Store_Unchecked 0x0,0x12
0078 e004 | | Load 0x0,0x4
0079 a015 | | Store_Unchecked 0x0,0x15
007a a018 | | Store_Unchecked 0x0,0x18
007b a019 | | Store_Unchecked 0x0,0x19
007c a013 | | Store_Unchecked 0x0,0x13
007d 4815 |H | Short_Literal 0x15
007e e211 | | Load 0x1,0x11
007f 020e | | Execute Module,Augment_Imports
0080 00d8 | | Load_Top At_Offset_0
0081 020f | | Execute Module,Activate
0082 4800 |H | Short_Literal 0x0
0083 4806 |H | Short_Literal 0x6
0084 e001 | | Load 0x0,0x1
0085 01d7 | | Execute Vector,Field_Read
0086 02a0 | | Declare_Subprogram Null_Subprogram
0087 038e | | Declare_Type Package,Defined
0088 e001 | | Load 0x0,0x1
0089 4805 |H | Short_Literal 0x5
008a e001 | | Load 0x0,0x1
008b 01d7 | | Execute Vector,Field_Read
008c 4802 |H | Short_Literal 0x2
008d 00db | | Load_Top At_Offset_3
008e 020e | | Execute Module,Augment_Imports
008f 0387 | | Declare_Variable Package
0090 e002 | | Load 0x0,0x2
0091 e003 | | Load 0x0,0x3
0092 e004 | | Load 0x0,0x4
0093 a005 | | Store_Unchecked 0x0,0x5
0094 a006 | | Store_Unchecked 0x0,0x6
0095 a007 | | Store_Unchecked 0x0,0x7
0096 e008 | | Load 0x0,0x8
0097 e00a | | Load 0x0,0xa
0098 a00d | | Store_Unchecked 0x0,0xd
0099 a00e | | Store_Unchecked 0x0,0xe
009a a00f | | Store_Unchecked 0x0,0xf
009b a010 | | Store_Unchecked 0x0,0x10
009c a01a | | Store_Unchecked 0x0,0x1a
009d 480d |H | Short_Literal 0xd
009e e212 | | Load 0x1,0x12
009f 020e | | Execute Module,Augment_Imports
00a0 00d8 | | Load_Top At_Offset_0
00a1 020f | | Execute Module,Activate
00a2 0093 0000 | | push_full_address 0x0
00a4 60af |` | Indirect_Literal Discrete,0x154,{0x80000000, 0x00010000}
00a5 0273 | s | Execute Discrete,Plus
00a6 e01b | | Load 0x0,0x1b
00a7 0273 | s | Execute Discrete,Plus
00a8 e01c | | Load 0x0,0x1c
00a9 0273 | s | Execute Discrete,Plus
00aa 4800 |H | Short_Literal 0x0
00ab e20e | | Load 0x1,0xe
00ac 4804 |H | Short_Literal 0x4
00ad 4800 |H | Short_Literal 0x0
00ae 0092 017e | ~| Action Push_String_Extended,0x17e ; "TAKE_BIGGEST_BRICK_FROM_HEAP"
00b0 e20f | | Load 0x1,0xf
00b1 180d | | Execute Package,Field_Execute,Field_Number 0xd
00b2 e20f | | Load 0x1,0xf
00b3 190e | | Execute Package,Field_Reference,Field_Number 0xe
00b4 4801 |H | Short_Literal 0x1
00b5 0092 017f | | Action Push_String_Extended,0x17f ; "HOLD_BIGGEST_BRICK"
00b7 e210 | | Load 0x1,0x10
00b8 180d | | Execute Package,Field_Execute,Field_Number 0xd
00b9 e210 | | Load 0x1,0x10
00ba 190e | | Execute Package,Field_Reference,Field_Number 0xe
00bb 4802 |H | Short_Literal 0x2
00bc 0092 0180 | | Action Push_String_Extended,0x180 ; "PUT_INTO_BOX"
00be e211 | | Load 0x1,0x11
00bf 180d | | Execute Package,Field_Execute,Field_Number 0xd
00c0 e211 | | Load 0x1,0x11
00c1 190e | | Execute Package,Field_Reference,Field_Number 0xe
00c2 4803 |H | Short_Literal 0x3
00c3 0092 0181 | | Action Push_String_Extended,0x181 ; "REMOVE_ROBOT"
00c5 e212 | | Load 0x1,0x12
00c6 180d | | Execute Package,Field_Execute,Field_Number 0xd
00c7 e212 | | Load 0x1,0x12
00c8 190e | | Execute Package,Field_Reference,Field_Number 0xe
00c9 4804 |H | Short_Literal 0x4
00ca 0092 0182 | | Action Push_String_Extended,0x182 ; "NO_MORE"
00cc 00c4 | | Action Make_Default
00cd a01d | | Store_Unchecked 0x0,0x1d
00ce 4804 |H | Short_Literal 0x4
00cf 0092 0182 | | Action Push_String_Extended,0x182 ; "NO_MORE"
00d1 00c4 | | Action Make_Default
00d2 a01d | | Store_Unchecked 0x0,0x1d
00d3 4804 |H | Short_Literal 0x4
00d4 0092 0182 | | Action Push_String_Extended,0x182 ; "NO_MORE"
00d6 00c4 | | Action Make_Default
00d7 a01d | | Store_Unchecked 0x0,0x1d
00d8 4804 |H | Short_Literal 0x4
00d9 0092 0182 | | Action Push_String_Extended,0x182 ; "NO_MORE"
00db 00c4 | | Action Make_Default
00dc a01d | | Store_Unchecked 0x0,0x1d
00dd 4804 |H | Short_Literal 0x4
00de 0092 0182 | | Action Push_String_Extended,0x182 ; "NO_MORE"
00e0 00c4 | | Action Make_Default
00e1 a01d | | Store_Unchecked 0x0,0x1d
00e2 4804 |H | Short_Literal 0x4
00e3 0092 0182 | | Action Push_String_Extended,0x182 ; "NO_MORE"
00e5 00c4 | | Action Make_Default
00e6 a01d | | Store_Unchecked 0x0,0x1d
00e7 4804 |H | Short_Literal 0x4
00e8 0092 0182 | | Action Push_String_Extended,0x182 ; "NO_MORE"
00ea 00c4 | | Action Make_Default
00eb a01d | | Store_Unchecked 0x0,0x1d
00ec 4804 |H | Short_Literal 0x4
00ed 0092 0182 | | Action Push_String_Extended,0x182 ; "NO_MORE"
00ef 00c4 | | Action Make_Default
00f0 a01d | | Store_Unchecked 0x0,0x1d
00f1 4804 |H | Short_Literal 0x4
00f2 0092 0182 | | Action Push_String_Extended,0x182 ; "NO_MORE"
00f4 00c4 | | Action Make_Default
00f5 a01d | | Store_Unchecked 0x0,0x1d
00f6 4804 |H | Short_Literal 0x4
00f7 0092 0182 | | Action Push_String_Extended,0x182 ; "NO_MORE"
00f9 00c4 | | Action Make_Default
00fa a01d | | Store_Unchecked 0x0,0x1d
00fb 4804 |H | Short_Literal 0x4
00fc 0092 0182 | | Action Push_String_Extended,0x182 ; "NO_MORE"
00fe 00c4 | | Action Make_Default
00ff a01d | | Store_Unchecked 0x0,0x1d
0100 4804 |H | Short_Literal 0x4
0101 0092 0182 | | Action Push_String_Extended,0x182 ; "NO_MORE"
0103 00c4 | | Action Make_Default
0104 a01d | | Store_Unchecked 0x0,0x1d
0105 4804 |H | Short_Literal 0x4
0106 0092 0182 | | Action Push_String_Extended,0x182 ; "NO_MORE"
0108 00c4 | | Action Make_Default
0109 a01d | | Store_Unchecked 0x0,0x1d
010a 4804 |H | Short_Literal 0x4
010b 0092 0182 | | Action Push_String_Extended,0x182 ; "NO_MORE"
010d 00c4 | | Action Make_Default
010e a01d | | Store_Unchecked 0x0,0x1d
010f 4804 |H | Short_Literal 0x4
0110 0092 0182 | | Action Push_String_Extended,0x182 ; "NO_MORE"
0112 00c4 | | Action Make_Default
0113 a01d | | Store_Unchecked 0x0,0x1d
0114 4804 |H | Short_Literal 0x4
0115 0092 0182 | | Action Push_String_Extended,0x182 ; "NO_MORE"
0117 00c4 | | Action Make_Default
0118 a01d | | Store_Unchecked 0x0,0x1d
0119 e01e | | Load 0x0,0x1e
011a c229 | ) | Store 0x1,0x29
011b e01e | | Load 0x0,0x1e
011c c22d | - | Store 0x1,0x2d
011d e01e | | Load 0x0,0x1e
011e c231 | 1 | Store 0x1,0x31
011f e01e | | Load 0x0,0x1e
0120 c235 | 5 | Store 0x1,0x35
0121 e01e | | Load 0x0,0x1e
0122 c239 | 9 | Store 0x1,0x39
0123 e01e | | Load 0x0,0x1e
0124 c23d | = | Store 0x1,0x3d
0125 e01e | | Load 0x0,0x1e
0126 c241 | A | Store 0x1,0x41
0127 e01e | | Load 0x0,0x1e
0128 c245 | E | Store 0x1,0x45
0129 e01e | | Load 0x0,0x1e
012a c249 | I | Store 0x1,0x49
012b e01e | | Load 0x0,0x1e
012c c24d | M | Store 0x1,0x4d
012d e01e | | Load 0x0,0x1e
012e c251 | Q | Store 0x1,0x51
012f e01e | | Load 0x0,0x1e
0130 c255 | U | Store 0x1,0x55
0131 e01e | | Load 0x0,0x1e
0132 c259 | Y | Store 0x1,0x59
0133 e01e | | Load 0x0,0x1e
0134 c25d | ] | Store 0x1,0x5d
0135 e01e | | Load 0x0,0x1e
0136 c261 | a | Store 0x1,0x61
0137 e01e | | Load 0x0,0x1e
0138 c265 | e | Store 0x1,0x65
0139 e01f | | Load 0x0,0x1f
013a 0387 | | Declare_Variable Package
013b 00d8 | | Load_Top At_Offset_0
013c 020f | | Execute Module,Activate
013d 1d0d | | Execute_Immediate Reference_Lex_1,0xd
013e 00c7 | | Action Elaborate_Subprogram
013f BODY_0008:
013f 00bc | | Action Signal_Activated
0140 00bb | | Action Signal_Completion
0141 0000 0000 | | .BLANK 0000[0x7]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b | K | .CONST 0x014b ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0001 | | .CONST 0x0001 ; Number of locals
014b BODY_0148:
014b INIT_0148:
014b 00db | | Load_Top At_Offset_3
014c 00db | | Load_Top At_Offset_3
014d e020 | | Load 0x0,0x20
014e e213 | | Load 0x1,0x13
014f 0096 | | Execute Package,Entry
0150 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0151 0000 0000 | | .XXX[0x3]
0153 0000 | |
0154 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b | [ | .CONST 0x015b ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0001 | | .CONST 0x0001 ; Number of locals
015b BODY_0158:
015b INIT_0158:
015b 4607 |F | Jump_Case 0x8
015c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
015d 7807 |x | Jump 0x165 ; case 0x1
015e 780a |x | Jump 0x169 ; case 0x2
015f 780e |x | Jump 0x16e ; case 0x3
0160 7811 |x | Jump 0x172 ; case 0x4
0161 7812 |x | Jump 0x174 ; case 0x5
0162 7813 |x | Jump 0x176 ; case 0x6
0163 7816 |x | Jump 0x17a ; case 0x7
0164 4302 |C | .XXX[0x1]
0165 00da | | Load_Top At_Offset_2
0166 0091 017e | ~| Action Push_String_Extended_Indexed,0x17e ; "TAKE_BIGGEST_BRICK_FROM_HEAP"
0168 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0169 00db | | Load_Top At_Offset_3
016a 00db | | Load_Top At_Offset_3
016b 00e0 | | Load_Encached Standard_Cache
016c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
016d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
016e 00da | | Load_Top At_Offset_2
016f 00e0 | | Load_Encached Standard_Cache
0170 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0171 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0172 00db | | Load_Top At_Offset_3
0173 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0174 00db | | Load_Top At_Offset_3
0175 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0176 e20e | | Load 0x1,0xe
0177 00dc | | Load_Top At_Offset_4
0178 0267 | g | Execute Discrete,Predecessor
0179 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
017a e20e | | Load 0x1,0xe
017b 00dc | | Load_Top At_Offset_4
017c 0268 | h | Execute Discrete,Successor
017d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
017e ; --------------------------------------------------------------------------------------
017e ; STRING TABLE
017e ; --------------------------------------------------------------------------------------
017e 000c | | .STRTAB 0x000c->0x0184 ; "TAKE_BIGGEST_BRICK_FROM_HEAP"
017f 0026 | & | .STRTAB 0x0026->0x0192 ; "HOLD_BIGGEST_BRICK"
0180 0036 | 6 | .STRTAB 0x0036->0x019b ; "PUT_INTO_BOX"
0181 0040 | @ | .STRTAB 0x0040->0x01a1 ; "REMOVE_ROBOT"
0182 004a | J | .STRTAB 0x004a->0x01a7 ; "NO_MORE"
0183 004f | O | .STREND 0x004f->0x01aa
0184 5441 4b45 |TAKE| .STRTAB_STRINGS
01ab 0000 0000 | | .BLANK 0000[0x5]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; Debug Table
01b0 ; --------------------------------------------------------------------------------------
01b0 0004 0009 | | .DEBUG4 0x0004,0x0009,0x0ebe,0x0000,0x0001,0x0004
01b6 000b 01c6 | | .DBG4T 0x000b,0x01c6,0x8000,0x0000
01ba 000e 01c9 | | .DBG4T 0x000e,0x01c9,0x8000,0x0000
01be 014b 01d6 | K | .DBG4T 0x014b,0x01d6,0x0001,0x0000
01c2 015b 0000 | [ | .DBG4T 0x015b,0x0000,0x0005,0x0000
01c6 ; --------------------------------------------------------------------------------------
01c6 ; Debug chain
01c6 ; --------------------------------------------------------------------------------------
01c6 0001 0000 | | .DBGLEN 0x0001,0x0000
01c8 000b | | .DBGLNO 0x000b
01c9 ; --------------------------------------------------------------------------------------
01c9 ; Debug chain
01c9 ; --------------------------------------------------------------------------------------
01c9 000b 0000 | | .DBGLEN 0x000b,0x0000
01cb 000e 0013 | | .DBGLNO 0x000e,0x0013,0x0021,0x0038,0x0046,0x005a,0x0068,0x0082,0x0090,0x00a2,0x013d
01d6 ; --------------------------------------------------------------------------------------
01d6 ; Debug chain
01d6 ; --------------------------------------------------------------------------------------
01d6 0000 0001 | | .DBGLEN 0x0000,0x0001
01d8 014b | K | .DBGLNO 0x014b
01d9 0000 0000 | | .BLANK 0000[0x27]