|
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 0178 | x | .CONST 0x0178 ; 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 0015 | | .CONST 0x0015 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0006 | | .CONST 0x0006 ; Number of locals
000b INIT_0008:
000b 029f 0043 | C| Declare_Subprogram INIT_0040,For_Call
000d 029f 007b | {| Declare_Subprogram INIT_0078,For_Call
000f 029f 0093 | | Declare_Subprogram INIT_0090,For_Call
0011 029f 00c3 | | Declare_Subprogram INIT_00c0,For_Call
0013 029f 0123 | #| Declare_Subprogram INIT_0120,For_Call
0015 BODY_0008:
0015 e5ff | | Load 0x2,-0x1
0016 e022 | " | Load 0x0,0x22
0017 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0018 700b |p | Jump_Nonzero 0x24
0019 e023 | # | Load 0x0,0x23
001a 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
001b e023 | # | Load 0x0,0x23
001c 1b16 | | Execute Package,Field_Read,Field_Number 0x16
001d e5fc | | Load 0x2,-0x4
001e e022 | " | Load 0x0,0x22
001f 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0020 e023 | # | Load 0x0,0x23
0021 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32
0022 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0023 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0024 8402 | | Call 0x2,0x2
0025 00cf | | Action Mark_Auxiliary
0026 e5ff | | Load 0x2,-0x1
0027 e022 | " | Load 0x0,0x22
0028 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0029 e5ff | | Load 0x2,-0x1
002a e022 | " | Load 0x0,0x22
002b 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
002c 0263 | c | Execute Discrete,Above_Bound
002d 7007 |p | Jump_Nonzero 0x35
002e 00d8 | | Load_Top At_Offset_0
002f e5ff | | Load 0x2,-0x1
0030 e022 | " | Load 0x0,0x22
0031 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0032 8406 | | Call 0x2,0x6
0033 00c8 | | Action Pop_Auxiliary_Range
0034 3ff9 |? | Loop_Increasing 0x2e
0035 00ce | | Action Pop_Auxiliary
0036 e023 | # | Load 0x0,0x23
0037 1b1f | | Execute Package,Field_Read,Field_Number 0x1f
0038 e023 | # | Load 0x0,0x23
0039 1b16 | | Execute Package,Field_Read,Field_Number 0x16
003a 8210 | | Call 0x1,0x10
003b 4505 |E | Exit_Suprogram New_Top_Offset 0x5
003c 0000 0000 | | .BLANK 0000[0x4]
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0043 | C | .CONST 0x0043 ; Address of begin
0041 0004 | | .CONST 0x0004 ; Address of exception handler
0042 0001 | | .CONST 0x0001 ; Number of locals
0043 BODY_0040:
0043 INIT_0040:
0043 480a |H | Short_Literal 0xa
0044 e022 | " | Load 0x0,0x22
0045 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
0046 e023 | # | Load 0x0,0x23
0047 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0048 4800 |H | Short_Literal 0x0
0049 e5fd | | Load 0x2,-0x3
004a e5fe | | Load 0x2,-0x2
004b 820d | | Call 0x1,0xd
004c 480b |H | Short_Literal 0xb
004d e022 | " | Load 0x0,0x22
004e 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
004f e023 | # | Load 0x0,0x23
0050 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0051 581e |X | Indirect_Literal Float,0x70,20.0
0052 4802 |H | Short_Literal 0x2
0053 0092 015a | Z| Action Push_String_Extended,0x15a ; "SSS Paragraph"
0055 820e | | Call 0x1,0xe
0056 480b |H | Short_Literal 0xb
0057 e022 | " | Load 0x0,0x22
0058 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
0059 e023 | # | Load 0x0,0x23
005a 1b16 | | Execute Package,Field_Read,Field_Number 0x16
005b 5810 |X | Indirect_Literal Float,0x6c,40.0
005c 4802 |H | Short_Literal 0x2
005d 0092 015b | [| Action Push_String_Extended,0x15b ; "Name and ID"
005f 820e | | Call 0x1,0xe
0060 480b |H | Short_Literal 0xb
0061 e022 | " | Load 0x0,0x22
0062 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
0063 e023 | # | Load 0x0,0x23
0064 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0065 5806 |X | Indirect_Literal Float,0x6c,40.0
0066 4802 |H | Short_Literal 0x2
0067 0092 015c | \| Action Push_String_Extended,0x15c ; "SRS/IRS Paragraph(s)"
0069 820e | | Call 0x1,0xe
006a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
006b 0000 | | .XXX[0x1]
006c 4044 0000 |@D | .DBL 40.0
006e 0000 0000 | |
0070 4034 0000 |@4 | .DBL 20.0
0072 0000 0000 | |
0074 0000 0000 | | .BLANK 0000[0x4]
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 e024 | $ | Load 0x0,0x24
007d 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
007e 0f10 | | Execute_Immediate Equal,0x10
007f 7004 |p | Jump_Nonzero 0x84
0080 00da | | Load_Top At_Offset_2
0081 e022 | " | Load 0x0,0x22
0082 189f | | Execute Package,Field_Execute,Field_Number 0x9f
0083 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0084 482e |H. | Short_Literal 0x2e
0085 4807 |H | Short_Literal 0x7
0086 e7ff | | Load 0x3,-0x1
0087 e022 | " | Load 0x0,0x22
0088 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
0089 1813 | | Execute Package,Field_Execute,Field_Number 0x13
008a 01cb | | Execute Vector,Append
008b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
008c 0000 0000 | | .BLANK 0000[0x4]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0098 | | .CONST 0x0098 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0002 | | .CONST 0x0002 ; Number of locals
0093 INIT_0090:
0093 e022 | " | Load 0x0,0x22
0094 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
0095 02ff | | Declare_Variable Variant_Record
0096 00d8 | | Load_Top At_Offset_0
0097 1c00 | | Execute_Immediate Run_Utility,0x0
0098 BODY_0090:
0098 00db | | Load_Top At_Offset_3
0099 e020 | | Load 0x0,0x20
009a 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
009b 012f | / | Execute Any,Equal
009c 6803 |h | Jump_Zero 0xa0
009d e023 | # | Load 0x0,0x23
009e 1b16 | | Execute Package,Field_Read,Field_Number 0x16
009f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00a0 4803 |H | Short_Literal 0x3
00a1 e022 | " | Load 0x0,0x22
00a2 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
00a3 1c08 | | Execute_Immediate Run_Utility,0x8
00a4 e022 | " | Load 0x0,0x22
00a5 1b8b | | Execute Package,Field_Read,Field_Number 0x8b
00a6 e7ff | | Load 0x3,-0x1
00a7 e020 | | Load 0x0,0x20
00a8 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
00a9 e024 | $ | Load 0x0,0x24
00aa 1872 | r | Execute Package,Field_Execute,Field_Number 0x72
00ab e022 | " | Load 0x0,0x22
00ac 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
00ad 2304 |# | Execute Variant_Record,Field_Type,Field_Number 0x4
00ae 0119 | | Execute Any,Check_In_Formal_Type
00af 00d9 | | Load_Top At_Offset_1
00b0 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
00b1 00d9 | | Load_Top At_Offset_1
00b2 016d | m | Execute Variant_Record,Structure_Write
00b3 00ea | | Load_Encached Null_String_Cache
00b4 00d9 | | Load_Top At_Offset_1
00b5 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
00b6 8403 | | Call 0x2,0x3
00b7 00da | | Load_Top At_Offset_2
00b8 4806 |H | Short_Literal 0x6
00b9 e022 | " | Load 0x0,0x22
00ba 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
00bb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00bc 0000 0000 | | .BLANK 0000[0x4]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00d1 | | .CONST 0x00d1 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0005 | | .CONST 0x0005 ; Number of locals
00c3 INIT_00c0:
00c3 e020 | | Load 0x0,0x20
00c4 1b19 | | Execute Package,Field_Read,Field_Number 0x19
00c5 02c7 | | Declare_Variable Any
00c6 00db | | Load_Top At_Offset_3
00c7 a602 | | Store_Unchecked 0x3,0x2
00c8 e022 | " | Load 0x0,0x22
00c9 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
00ca 02ff | | Declare_Variable Variant_Record
00cb 00d8 | | Load_Top At_Offset_0
00cc 1c00 | | Execute_Immediate Run_Utility,0x0
00cd e22c | , | Load 0x1,0x2c
00ce 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00cf 00e1 | | Load_Encached Boolean_Cache
00d0 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
00d1 BODY_00c0:
00d1 00db | | Load_Top At_Offset_3
00d2 e020 | | Load 0x0,0x20
00d3 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
00d4 c602 | | Store 0x3,0x2
00d5 00cf | | Action Mark_Auxiliary
00d6 7836 |x6 | Jump 0x10d
00d7 4803 |H | Short_Literal 0x3
00d8 e022 | " | Load 0x0,0x22
00d9 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
00da 1c08 | | Execute_Immediate Run_Utility,0x8
00db e022 | " | Load 0x0,0x22
00dc 1b8b | | Execute Package,Field_Read,Field_Number 0x8b
00dd e602 | | Load 0x3,0x2
00de e020 | | Load 0x0,0x20
00df 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
00e0 e024 | $ | Load 0x0,0x24
00e1 1872 | r | Execute Package,Field_Execute,Field_Number 0x72
00e2 e022 | " | Load 0x0,0x22
00e3 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
00e4 2304 |# | Execute Variant_Record,Field_Type,Field_Number 0x4
00e5 0119 | | Execute Any,Check_In_Formal_Type
00e6 00d9 | | Load_Top At_Offset_1
00e7 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
00e8 e603 | | Load 0x3,0x3
00e9 016d | m | Execute Variant_Record,Structure_Write
00ea 00d9 | | Load_Top At_Offset_1
00eb 680e |h | Jump_Zero 0xfa
00ec 00da | | Load_Top At_Offset_2
00ed e603 | | Load 0x3,0x3
00ee 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
00ef 8403 | | Call 0x2,0x3
00f0 e603 | | Load 0x3,0x3
00f1 4806 |H | Short_Literal 0x6
00f2 e022 | " | Load 0x0,0x22
00f3 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
00f4 e22c | , | Load 0x1,0x2c
00f5 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00f6 003b | ; | Store_Top Access,At_Offset_3
00f7 4800 |H | Short_Literal 0x0
00f8 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
00f9 780e |x | Jump 0x108
00fa 00da | | Load_Top At_Offset_2
00fb 0092 015d | ]| Action Push_String_Extended,0x15d ; ", "
00fd e603 | | Load 0x3,0x3
00fe 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
00ff 8403 | | Call 0x2,0x3
0100 e603 | | Load 0x3,0x3
0101 4806 |H | Short_Literal 0x6
0102 e022 | " | Load 0x0,0x22
0103 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0104 01cc | | Execute Vector,Catenate
0105 e22c | , | Load 0x1,0x2c
0106 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0107 003b | ; | Store_Top Access,At_Offset_3
0108 e602 | | Load 0x3,0x2
0109 e020 | | Load 0x0,0x20
010a 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
010b c602 | | Store 0x3,0x2
010c 00c9 | | Action Pop_Auxiliary_Loop
010d e602 | | Load 0x3,0x2
010e e020 | | Load 0x0,0x20
010f 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0110 6fc6 |o | Jump_Zero 0xd7
0111 00ce | | Action Pop_Auxiliary
0112 00db | | Load_Top At_Offset_3
0113 e020 | | Load 0x0,0x20
0114 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0115 c602 | | Store 0x3,0x2
0116 00d9 | | Load_Top At_Offset_1
0117 e22c | , | Load 0x1,0x2c
0118 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0119 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
011a 0000 0000 | | .BLANK 0000[0x6]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 013a | : | .CONST 0x013a ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0004 | | .CONST 0x0004 ; Number of locals
0123 INIT_0120:
0123 00da | | Load_Top At_Offset_2
0124 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0125 e024 | $ | Load 0x0,0x24
0126 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0127 011e | | Execute Any,Convert
0128 e023 | # | Load 0x0,0x23
0129 1b15 | | Execute Package,Field_Read,Field_Number 0x15
012a 02ff | | Declare_Variable Variant_Record
012b 00ea | | Load_Encached Null_String_Cache
012c 4800 |H | Short_Literal 0x0
012d 00db | | Load_Top At_Offset_3
012e e022 | " | Load 0x0,0x22
012f 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
0130 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0131 00d9 | | Load_Top At_Offset_1
0132 016d | m | Execute Variant_Record,Structure_Write
0133 e020 | | Load 0x0,0x20
0134 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0135 02c7 | | Declare_Variable Any
0136 00da | | Load_Top At_Offset_2
0137 e024 | $ | Load 0x0,0x24
0138 184c | L | Execute Package,Field_Execute,Field_Number 0x4c
0139 a604 | | Store_Unchecked 0x3,0x4
013a BODY_0120:
013a 4801 |H | Short_Literal 0x1
013b 480d |H | Short_Literal 0xd
013c e022 | " | Load 0x0,0x22
013d 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
013e 00db | | Load_Top At_Offset_3
013f 483b |H; | Short_Literal 0x3b
0140 e602 | | Load 0x3,0x2
0141 e022 | " | Load 0x0,0x22
0142 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
0143 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0144 820f | | Call 0x1,0xf
0145 4801 |H | Short_Literal 0x1
0146 480d |H | Short_Literal 0xd
0147 e022 | " | Load 0x0,0x22
0148 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
0149 00db | | Load_Top At_Offset_3
014a 4807 |H | Short_Literal 0x7
014b e602 | | Load 0x3,0x2
014c e022 | " | Load 0x0,0x22
014d 1b49 | I | Execute Package,Field_Read,Field_Number 0x49
014e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
014f 820f | | Call 0x1,0xf
0150 4801 |H | Short_Literal 0x1
0151 480d |H | Short_Literal 0xd
0152 e022 | " | Load 0x0,0x22
0153 1862 | b | Execute Package,Field_Execute,Field_Number 0x62
0154 00da | | Load_Top At_Offset_2
0155 8404 | | Call 0x2,0x4
0156 00db | | Load_Top At_Offset_3
0157 8405 | | Call 0x2,0x5
0158 820f | | Call 0x1,0xf
0159 4502 |E | Exit_Suprogram New_Top_Offset 0x2
015a ; --------------------------------------------------------------------------------------
015a ; STRING TABLE
015a ; --------------------------------------------------------------------------------------
015a 000a | | .STRTAB 0x000a->0x015f ; "SSS Paragraph"
015b 0015 | | .STRTAB 0x0015->0x0165 ; "Name and ID"
015c 001e | | .STRTAB 0x001e->0x016b ; "SRS/IRS Paragraph(s)"
015d 0030 | 0 | .STRTAB 0x0030->0x0175 ; ", "
015e 0030 | 0 | .STREND 0x0030->0x0176
015f 5353 5320 |SSS | .STRTAB_STRINGS
0176 0000 0000 | | .XXX[0x2]
0178 ; --------------------------------------------------------------------------------------
0178 ; Debug Table
0178 ; --------------------------------------------------------------------------------------
0178 0004 0012 | | .DEBUG4 0x0004,0x0012,0xfc9f,0x0000,0x0001,0x0000
017e 0b2d 417f | -A | .XXX[0x82]
0180 e663 0f2c | c ,|
0182 eeed 50c0 | P |
0184 d2a8 feef | |
0186 5d20 dea9 |] |
0188 6d7f 6920 |m i |
018a 0e65 7d7c | e}||
018c f2a8 1a64 | d|
018e faaa 4f2e | O.|
0190 00e5 06a8 | |
0192 4c46 5f2d |LF_-|
0194 3eee 672d |> g-|
0196 1aaa 6619 | f |
0198 b8c2 772f | w/|
019a d1ce 7f2d | -|
019c 36aa 872d |6 -|
019e dd7c d41b | | |
01a0 edcc 0d25 | %|
01a2 7aec 7666 |z vf|
01a4 a72e 057d | . }|
01a6 62a9 1e65 |b e|
01a8 96ef ed22 | "|
01aa 1d7e bf2e | ~ .|
01ac 497e cb2d |I~ -|
01ae b2ee d32d | -|
01b0 baee 60c0 | ` |
01b2 51d2 e219 |Q |
01b4 ceef 2218 | " |
01b6 ce65 aea8 | e |
01b8 8125 e2ec | % |
01ba de65 eaec | e |
01bc b664 ee66 | d f|
01be 997f 1f2d | -|
01c0 d2aa 02ed | |
01c2 0266 0aef | f |
01c4 372f 232f |7/#/|
01c6 3f2d 7447 |?-tG|
01c8 472d 1127 |G- '|
01ca eb33 532e | 3S.|
01cc 2eed 76d3 |. v |
01ce 5f2e f2f3 |_. |
01d0 672e 42ee |g.B |
01d2 22ab 48c3 |" H |
01d4 772d 4e67 |w-Ng|
01d6 8e19 01d1 | |
01d8 5a67 397f |Zg9 |
01da 9e1b 417e | A~|
01dc 6eee 56ab |n V |
01de 517e 4f30 |Q~O0|
01e0 1e1e 8aee | |
01e2 aaef daab | |
01e4 717c 0f33 |q| 3|
01e6 c32e f556 | . V|
01e8 8aa9 8730 | 0|
01ea 0a1f f61b | |
01ec 997e a2a9 | ~ |
01ee 4a1c 6f30 |J o0|
01f0 74c5 c665 |t e|
01f2 89d2 daef | |
01f4 c57f ff2e | .|
01f6 876e c6ee | n |
01f8 eeee baaa | |
01fa daaa feee | |
01fc 10c7 06ec | |
01fe 2b31 cad5 |+1 |