|
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 0110 | | .CONST 0x0110 ; 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 0017 | | .CONST 0x0017 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 000f | | .CONST 0x000f ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 4805 |H | Short_Literal 0x5
000d 029f 0023 | #| Declare_Subprogram INIT_0020,For_Call
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 e001 | | Load 0x0,0x1
0011 0129 | ) | Execute Any,Make_Visible
0012 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated
0014 00bf | | Action Accept_Activation
0015 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0016 00c7 | | Action Elaborate_Subprogram
0017 BODY_0008:
0017 00bc | | Action Signal_Activated
0018 00bb | | Action Signal_Completion
0019 0000 0000 | | .BLANK 0000[0x7]
0020 ; --------------------------------------------------------------------------------------
0020 ; SUBPROGRAM
0020 ; --------------------------------------------------------------------------------------
0020 0023 | # | .CONST 0x0023 ; Address of begin
0021 0004 | | .CONST 0x0004 ; Address of exception handler
0022 0001 | | .CONST 0x0001 ; Number of locals
0023 BODY_0020:
0023 INIT_0020:
0023 4607 |F | Jump_Case 0x8
0024 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0025 7806 |x | Jump 0x2c ; case 0x1
0026 7809 |x | Jump 0x30 ; case 0x2
0027 780d |x | Jump 0x35 ; case 0x3
0028 7810 |x | Jump 0x39 ; case 0x4
0029 7811 |x | Jump 0x3b ; case 0x5
002a 7812 |x | Jump 0x3d ; case 0x6
002b 7815 |x | Jump 0x41 ; case 0x7
002c 00da | | Load_Top At_Offset_2
002d 0091 00fb | | Action Push_String_Extended_Indexed,0xfb ; "M100"
002f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0030 00db | | Load_Top At_Offset_3
0031 00db | | Load_Top At_Offset_3
0032 00e0 | | Load_Encached Standard_Cache
0033 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0034 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0035 00da | | Load_Top At_Offset_2
0036 00e0 | | Load_Encached Standard_Cache
0037 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0038 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0039 00db | | Load_Top At_Offset_3
003a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
003b 00db | | Load_Top At_Offset_3
003c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
003d e20d | | Load 0x1,0xd
003e 00dc | | Load_Top At_Offset_4
003f 0267 | g | Execute Discrete,Predecessor
0040 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0041 e20d | | Load 0x1,0xd
0042 00dc | | Load_Top At_Offset_4
0043 0268 | h | Execute Discrete,Successor
0044 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0045 0000 0000 | | .XXX[0x3]
0047 0000 | |
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 00b0 | | .CONST 0x00b0 ; Address of begin
0049 0004 | | .CONST 0x0004 ; Address of exception handler
004a 0016 | | .CONST 0x0016 ; Number of locals
004b INIT_0048:
004b e20d | | Load 0x1,0xd
004c 0007 | | Action Break_Optional
004d e002 | | Load 0x0,0x2
004e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
004f 0604 | | Execute_Immediate Set_Value_Unchecked,0x4
0050 00e2 | | Load_Encached Integer_Cache
0051 4800 |H | Short_Literal 0x0
0052 49ff |I | Short_Literal 0x1ff
0053 e002 | | Load 0x0,0x2
0054 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0055 02a0 | | Declare_Subprogram Null_Subprogram
0056 4801 |H | Short_Literal 0x1
0057 035d | ] | Declare_Type Array,Defined
0058 00d8 | | Load_Top At_Offset_0
0059 0337 | 7 | Declare_Variable Array
005a 4801 |H | Short_Literal 0x1
005b 480a |H | Short_Literal 0xa
005c e002 | | Load 0x0,0x2
005d 1b10 | | Execute Package,Field_Read,Field_Number 0x10
005e 02a0 | | Declare_Subprogram Null_Subprogram
005f 4801 |H | Short_Literal 0x1
0060 035d | ] | Declare_Type Array,Defined
0061 4800 |H | Short_Literal 0x0
0062 4801 |H | Short_Literal 0x1
0063 e002 | | Load 0x0,0x2
0064 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0065 02a0 | | Declare_Subprogram Null_Subprogram
0066 4801 |H | Short_Literal 0x1
0067 035d | ] | Declare_Type Array,Defined
0068 4800 |H | Short_Literal 0x0
0069 4803 |H | Short_Literal 0x3
006a e002 | | Load 0x0,0x2
006b 1b10 | | Execute Package,Field_Read,Field_Number 0x10
006c 02a0 | | Declare_Subprogram Null_Subprogram
006d 4801 |H | Short_Literal 0x1
006e 035d | ] | Declare_Type Array,Defined
006f 4800 |H | Short_Literal 0x0
0070 4803 |H | Short_Literal 0x3
0071 e002 | | Load 0x0,0x2
0072 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0073 02a0 | | Declare_Subprogram Null_Subprogram
0074 4801 |H | Short_Literal 0x1
0075 035d | ] | Declare_Type Array,Defined
0076 4801 |H | Short_Literal 0x1
0077 4804 |H | Short_Literal 0x4
0078 e002 | | Load 0x0,0x2
0079 1b10 | | Execute Package,Field_Read,Field_Number 0x10
007a 02a0 | | Declare_Subprogram Null_Subprogram
007b 4801 |H | Short_Literal 0x1
007c 035d | ] | Declare_Type Array,Defined
007d 4800 |H | Short_Literal 0x0
007e 4812 |H | Short_Literal 0x12
007f 00da | | Load_Top At_Offset_2
0080 02a0 | | Declare_Subprogram Null_Subprogram
0081 4801 |H | Short_Literal 0x1
0082 035d | ] | Declare_Type Array,Defined
0083 4800 |H | Short_Literal 0x0
0084 4802 |H | Short_Literal 0x2
0085 e002 | | Load 0x0,0x2
0086 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0087 02a0 | | Declare_Subprogram Null_Subprogram
0088 4801 |H | Short_Literal 0x1
0089 035d | ] | Declare_Type Array,Defined
008a 4801 |H | Short_Literal 0x1
008b 49ae |I | Short_Literal 0x1ae
008c e002 | | Load 0x0,0x2
008d 1b10 | | Execute Package,Field_Read,Field_Number 0x10
008e 02a0 | | Declare_Subprogram Null_Subprogram
008f 4801 |H | Short_Literal 0x1
0090 035d | ] | Declare_Type Array,Defined
0091 e407 | | Load 0x2,0x7
0092 e408 | | Load 0x2,0x8
0093 e409 | | Load 0x2,0x9
0094 e40a | | Load 0x2,0xa
0095 e40c | | Load 0x2,0xc
0096 e002 | | Load 0x0,0x2
0097 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0098 e002 | | Load 0x0,0x2
0099 1b10 | | Execute Package,Field_Read,Field_Number 0x10
009a e408 | | Load 0x2,0x8
009b e002 | | Load 0x0,0x2
009c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
009d e002 | | Load 0x0,0x2
009e 1b10 | | Execute Package,Field_Read,Field_Number 0x10
009f e40d | | Load 0x2,0xd
00a0 e40e | | Load 0x2,0xe
00a1 02a0 | | Declare_Subprogram Null_Subprogram
00a2 480c |H | Short_Literal 0xc
00a3 032d | - | Declare_Type Record,Defined
00a4 a003 | | Store_Unchecked 0x0,0x3
00a5 00c6 | | Action Check_Subprogram_Elaborated
00a6 e405 | | Load 0x2,0x5
00a7 00d9 | | Load_Top At_Offset_1
00a8 e004 | | Load 0x0,0x4
00a9 e005 | | Load 0x0,0x5
00aa 4814 |H | Short_Literal 0x14
00ab 0007 | | Action Break_Optional
00ac e40f | | Load 0x2,0xf
00ad 0322 | " | Declare_Variable Record
00ae 029f 00e3 | | Declare_Subprogram INIT_00e0,For_Call
00b0 BODY_0048:
00b0 8416 | | Call 0x2,0x16
00b1 00d9 | | Load_Top At_Offset_1
00b2 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
00b3 0b00 | | Execute_Immediate Case_Compare,0x0
00b4 7008 |p | Jump_Nonzero 0xbd
00b5 0b02 | | Execute_Immediate Case_Compare,0x2
00b6 700a |p | Jump_Nonzero 0xc1
00b7 0b03 | | Execute_Immediate Case_Compare,0x3
00b8 700c |p | Jump_Nonzero 0xc5
00b9 0f04 | | Execute_Immediate Equal,0x4
00ba 7014 |p | Jump_Nonzero 0xcf
00bb e20e | | Load 0x1,0xe
00bc 0257 | W | Execute Discrete,Raise
00bd 00d1 | | Pop_Control Pop_Count_1
00be 4800 |H | Short_Literal 0x0
00bf a402 | | Store_Unchecked 0x2,0x2
00c0 7816 |x | Jump 0xd7
00c1 00d1 | | Pop_Control Pop_Count_1
00c2 4801 |H | Short_Literal 0x1
00c3 a402 | | Store_Unchecked 0x2,0x2
00c4 7812 |x | Jump 0xd7
00c5 00d1 | | Pop_Control Pop_Count_1
00c6 00d9 | | Load_Top At_Offset_1
00c7 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
00c8 7003 |p | Jump_Nonzero 0xcc
00c9 4802 |H | Short_Literal 0x2
00ca a402 | | Store_Unchecked 0x2,0x2
00cb 780b |x | Jump 0xd7
00cc 4803 |H | Short_Literal 0x3
00cd a402 | | Store_Unchecked 0x2,0x2
00ce 7808 |x | Jump 0xd7
00cf 00d9 | | Load_Top At_Offset_1
00d0 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
00d1 7003 |p | Jump_Nonzero 0xd5
00d2 4804 |H | Short_Literal 0x4
00d3 a402 | | Store_Unchecked 0x2,0x2
00d4 7802 |x | Jump 0xd7
00d5 4805 |H | Short_Literal 0x5
00d6 a402 | | Store_Unchecked 0x2,0x2
00d7 e402 | | Load 0x2,0x2
00d8 00ca | | Action Exit_Nullary_Function
00d9 0000 0000 | | .BLANK 0000[0x7]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3 | | .CONST 0x00e3 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0001 | | .CONST 0x0001 ; Number of locals
00e3 BODY_00e0:
00e3 INIT_00e0:
00e3 00cf | | Action Mark_Auxiliary
00e4 49ff |I | Short_Literal 0x1ff
00e5 4800 |H | Short_Literal 0x0
00e6 0007 | | Action Break_Optional
00e7 00d8 | | Load_Top At_Offset_0
00e8 e403 | | Load 0x2,0x3
00e9 e002 | | Load 0x0,0x2
00ea 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00eb 00d9 | | Load_Top At_Offset_1
00ec e406 | | Load 0x2,0x6
00ed 01d6 | | Execute Vector,Field_Write
00ee 00c8 | | Action Pop_Auxiliary_Range
00ef 3ff7 |? | Loop_Increasing 0xe7
00f0 00ce | | Action Pop_Auxiliary
00f1 e406 | | Load 0x2,0x6
00f2 e410 | | Load 0x2,0x10
00f3 e411 | | Load 0x2,0x11
00f4 4812 |H | Short_Literal 0x12
00f5 4802 |H | Short_Literal 0x2
00f6 0099 | | Action Reference_Dynamic
00f7 8003 | | Call 0x0,0x3
00f8 e415 | | Load 0x2,0x15
00f9 017d | } | Execute Record,Structure_Write
00fa 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00fb ; --------------------------------------------------------------------------------------
00fb ; STRING TABLE
00fb ; --------------------------------------------------------------------------------------
00fb 000e | | .STRTAB 0x000e->0x0102 ; "M100"
00fc 0010 | | .STRTAB 0x0010->0x0104 ; "M200"
00fd 0012 | | .STRTAB 0x0012->0x0106 ; "M300S"
00fe 0015 | | .STRTAB 0x0015->0x0108 ; "M300C"
00ff 0018 | | .STRTAB 0x0018->0x010b ; "M400S"
0100 001b | | .STRTAB 0x001b->0x010d ; "M400C"
0101 001e | | .STREND 0x001e->0x0110
0102 4d31 3030 |M100| .STRTAB_STRINGS
0110 ; --------------------------------------------------------------------------------------
0110 ; Debug Table
0110 ; --------------------------------------------------------------------------------------
0110 0004 0011 | | .DEBUG4 0x0004,0x0011,0xa13e,0x0000,0x0001,0x0000
0116 31ed aa39 |1 9| .XXX[0xea]
0118 6720 e2e3 |g |
011a 68e8 a443 |h C|
011c e558 cb99 | X |
011e ada3 7fa9 | |
0120 e494 4d69 | Mi|
0122 09cd 0ffb | |
0124 58cd 8b05 |X |
0126 170f 71ba | q |
0128 253e d562 |%> b|
012a b01d b116 | |
012c 07ac 601c | ` |
012e 0101 c257 | W|
0130 07e2 9e2a | *|
0132 5bdc 5bf2 |[ [ |
0134 d21b dade | |
0136 88af 413c | A<|
0138 ad71 5e8f | q^ |
013a f15a 1b2e | Z .|
013c fed3 87a9 | |
013e c094 5609 | V |
0140 25d2 0042 |% B|
0142 5eaa 1711 |^ |
0144 978b 0a42 | B|
0146 8ae0 7a33 | z3|
0148 2e1d 478b |. G |
014a 69c1 4f0d |i O |
014c 8a8d cc44 | D|
014e 387d 7e10 |8}~ |
0150 5279 0986 |Ry |
0152 0f2f 14d3 | / |
0154 04a9 50fe | P |
0156 917f b653 | S|
0158 f64b dd06 | K |
015a 20e6 ff26 | &|
015c 1d80 54a9 | T |
015e c820 631b | c |
0160 67b2 d184 |g |
0162 25b4 0458 |% X|
0164 e8c7 aca6 | |
0166 66b9 da64 |f d|
0168 2905 5fcf |) _ |
016a 956a 6301 | jc |
016c 40a4 51ec |@ Q |
016e 0dab 6a40 | j@|
0170 2d4c 4109 |-LA |
0172 ae00 82e6 | |
0174 2aa1 c410 |* |
0176 51ab f2a8 |Q |
0178 b980 962d | -|
017a cb04 0421 | !|
017c 9b3a 149e | : |
017e 3853 5734 |8SW4|
0180 552d 289a |U-( |
0182 67a7 404d |g @M|
0184 5930 6614 |Y0f |
0186 951e 0994 | |
0188 94c7 9ff1 | |
018a c999 7df8 | } |
018c 058a 8630 | 0|
018e 8b4f 1466 | O f|
0190 8164 63b3 | dc |
0192 404d 28b8 |@M( |
0194 6515 b0af |e |
0196 da44 04c3 | D |
0198 6285 460c |b F |
019a d4a3 52c8 | R |
019c 279f 80bd |' |
019e 5804 a373 |X s|
01a0 850b 404d | @M|
01a2 6950 6616 |iPf |
01a4 6e2e 3688 |n.6 |
01a6 9842 f1f6 | B |
01a8 e4b8 691f | i |
01aa 5308 24f0 |S $ |
01ac ac93 8bea | |
01ae ea94 04fc | |
01b0 310b 72b2 |1 r |
01b2 3ca6 5224 |< R$|
01b4 440b 3cc9 |D < |
01b6 58b2 ec30 |X 0|
01b8 2b60 be0c |+` |
01ba 209b 0ea6 | |
01bc 14a7 4052 | @R|
01be 72ec a022 |r "|
01c0 da0d 4506 | E |
01c2 a781 5201 | R |
01c4 02a2 b384 | |
01c6 2ae9 76d4 |* v |
01c8 0b40 6ab8 | @j |
01ca 81c0 dbba | |
01cc ca9d f47b | {|
01ce 3177 1a91 |1w |
01d0 d15c 3e13 | \> |
01d2 7614 5dc1 |v ] |
01d4 ddc6 d809 | |
01d6 09e0 cfd6 | |
01d8 12fb af7a | z|
01da 1525 d52b | % +|
01dc a2ef 2032 | 2|
01de f0af 9373 | s|
01e0 71ad 36c4 |q 6 |
01e2 df01 fc10 | |
01e4 4e90 55ee |N U |
01e6 08ac 4c43 | LC|
01e8 4e63 e843 |Nc C|
01ea d673 8436 | s 6|
01ec be58 44bf | XD |
01ee 7340 7f2b |s@ +|
01f0 f9d1 81f3 | |
01f2 2967 b86a |)g j|
01f4 486a bfc1 |Hj |
01f6 5794 b8ad |W |
01f8 1e1d 2c40 | ,@|
01fa 427f a034 |B 4|
01fc 74ed e333 |t 3|
01fe 252f c848 |%/ H|