|
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_0d2ce3
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 00b8 | | .CONST 0x00b8 ; 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 0031 | 1 | .CONST 0x0031 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0011 | | .CONST 0x0011 ; Number of locals
000b INIT_0008:
000b e214 | | Load 0x1,0x14
000c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
000d e214 | | Load 0x1,0x14
000e 1b13 | | Execute Package,Field_Read,Field_Number 0x13
000f e214 | | Load 0x1,0x14
0010 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0011 e214 | | Load 0x1,0x14
0012 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0013 e214 | | Load 0x1,0x14
0014 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
0015 e214 | | Load 0x1,0x14
0016 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0017 e012 | | Load 0x0,0x12
0018 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0019 02c7 | | Declare_Variable Any
001a 00d8 | | Load_Top At_Offset_0
001b 1c00 | | Execute_Immediate Run_Utility,0x0
001c 029f 0083 | | Declare_Subprogram INIT_0080,For_Call
001e 029f 008b | | Declare_Subprogram INIT_0088,For_Call
0020 e017 | | Load 0x0,0x17
0021 1916 | | Execute Package,Field_Reference,Field_Number 0x16
0022 00c6 | | Action Check_Subprogram_Elaborated
0023 4809 |H | Short_Literal 0x9
0024 4802 |H | Short_Literal 0x2
0025 0099 | | Action Reference_Dynamic
0026 480a |H | Short_Literal 0xa
0027 4802 |H | Short_Literal 0x2
0028 0099 | | Action Reference_Dynamic
0029 e01f | | Load 0x0,0x1f
002a e020 | | Load 0x0,0x20
002b 480f |H | Short_Literal 0xf
002c 0007 | | Action Break_Optional
002d e021 | ! | Load 0x0,0x21
002e 02ab | | Declare_Subprogram For_Call,With_Address
002f e022 | " | Load 0x0,0x22
0030 02ab | | Declare_Subprogram For_Call,With_Address
0031 BODY_0008:
0031 00be | | Action Activate_Tasks
0032 e214 | | Load 0x1,0x14
0033 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0034 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0035 e011 | | Load 0x0,0x11
0036 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0037 e013 | | Load 0x0,0x13
0038 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0039 e214 | | Load 0x1,0x14
003a 1b12 | | Execute Package,Field_Read,Field_Number 0x12
003b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
003c c402 | | Store 0x2,0x2
003d e214 | | Load 0x1,0x14
003e 1b12 | | Execute Package,Field_Read,Field_Number 0x12
003f 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0040 e011 | | Load 0x0,0x11
0041 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0042 e013 | | Load 0x0,0x13
0043 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0044 e214 | | Load 0x1,0x14
0045 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0046 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0047 c403 | | Store 0x2,0x3
0048 e214 | | Load 0x1,0x14
0049 1b12 | | Execute Package,Field_Read,Field_Number 0x12
004a 1b12 | | Execute Package,Field_Read,Field_Number 0x12
004b e011 | | Load 0x0,0x11
004c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
004d e013 | | Load 0x0,0x13
004e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
004f e214 | | Load 0x1,0x14
0050 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0051 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0052 c404 | | Store 0x2,0x4
0053 e214 | | Load 0x1,0x14
0054 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0055 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0056 e011 | | Load 0x0,0x11
0057 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0058 e013 | | Load 0x0,0x13
0059 1811 | | Execute Package,Field_Execute,Field_Number 0x11
005a e214 | | Load 0x1,0x14
005b 1b12 | | Execute Package,Field_Read,Field_Number 0x12
005c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
005d c405 | | Store 0x2,0x5
005e e408 | | Load 0x2,0x8
005f e5fe | | Load 0x2,-0x2
0060 821b | | Call 0x1,0x1b
0061 c408 | | Store 0x2,0x8
0062 e214 | | Load 0x1,0x14
0063 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
0064 e214 | | Load 0x1,0x14
0065 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0066 c406 | | Store 0x2,0x6
0067 e5ff | | Load 0x2,-0x1
0068 8410 | | Call 0x2,0x10
0069 e408 | | Load 0x2,0x8
006a 821c | | Call 0x1,0x1c
006b c408 | | Store 0x2,0x8
006c e5fe | | Load 0x2,-0x2
006d 8411 | | Call 0x2,0x11
006e e214 | | Load 0x1,0x14
006f 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0070 e406 | | Load 0x2,0x6
0071 e214 | | Load 0x1,0x14
0072 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0073 c407 | | Store 0x2,0x7
0074 e5fb | | Load 0x2,-0x5
0075 e5fd | | Load 0x2,-0x3
0076 e5fc | | Load 0x2,-0x4
0077 e407 | | Load 0x2,0x7
0078 821e | | Call 0x1,0x1e
0079 4506 |E | Exit_Suprogram New_Top_Offset 0x6
007a 0000 0000 | | .BLANK 0000[0x6]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083 | | .CONST 0x0083 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0001 | | .CONST 0x0001 ; Number of locals
0083 BODY_0080:
0083 INIT_0080:
0083 00da | | Load_Top At_Offset_2
0084 e402 | | Load 0x2,0x2
0085 e214 | | Load 0x1,0x14
0086 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0087 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b | | .CONST 0x008b ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0001 | | .CONST 0x0001 ; Number of locals
008b BODY_0088:
008b INIT_0088:
008b 00da | | Load_Top At_Offset_2
008c 8213 | | Call 0x1,0x13
008d 00da | | Load_Top At_Offset_2
008e e008 | | Load 0x0,0x8
008f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0090 6808 |h | Jump_Zero 0x99
0091 e008 | | Load 0x0,0x8
0092 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0093 e7fe | | Load 0x3,-0x2
0094 8218 | | Call 0x1,0x18
0095 e406 | | Load 0x2,0x6
0096 e214 | | Load 0x1,0x14
0097 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0098 7816 |x | Jump 0xaf
0099 00da | | Load_Top At_Offset_2
009a 8219 | | Call 0x1,0x19
009b 7004 |p | Jump_Nonzero 0xa0
009c 00da | | Load_Top At_Offset_2
009d 8217 | | Call 0x1,0x17
009e 8219 | | Call 0x1,0x19
009f 6808 |h | Jump_Zero 0xa8
00a0 00db | | Load_Top At_Offset_3
00a1 8218 | | Call 0x1,0x18
00a2 00db | | Load_Top At_Offset_3
00a3 8218 | | Call 0x1,0x18
00a4 e406 | | Load 0x2,0x6
00a5 e214 | | Load 0x1,0x14
00a6 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
00a7 7807 |x | Jump 0xaf
00a8 e008 | | Load 0x0,0x8
00a9 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00aa e7fe | | Load 0x3,-0x2
00ab 8218 | | Call 0x1,0x18
00ac e406 | | Load 0x2,0x6
00ad e214 | | Load 0x1,0x14
00ae 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
00af e402 | | Load 0x2,0x2
00b0 00db | | Load_Top At_Offset_3
00b1 e214 | | Load 0x1,0x14
00b2 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00b3 c402 | | Store 0x2,0x2
00b4 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00b5 0000 0000 | | .XXX[0x3]
00b7 0000 | |
00b8 ; --------------------------------------------------------------------------------------
00b8 ; Debug Table
00b8 ; --------------------------------------------------------------------------------------
00b8 0004 0000 | | .DEBUG4 0x0004,0x0000,0x788a,0x0000,0x0001,0x0000
00be 0474 7970 | typ| .XXX[0x142]
00c0 6520 456c |e El|
00c2 656d 656e |emen|
00c4 745f 5074 |t_Pt|
00c6 7220 6973 |r is|
00c8 2061 6363 | acc|
00ca 6573 7320 |ess |
00cc 456c 656d |Elem|
00ce 656e 743b |ent;|
00d0 2604 7072 |& pr|
00d2 6167 6d61 |agma|
00d4 2053 6567 | Seg|
00d6 6d65 6e74 |ment|
00d8 6564 5f48 |ed_H|
00da 6561 7020 |eap |
00dc 2845 6c65 |(Ele|
00de 6d65 6e74 |ment|
00e0 5f50 7472 |_Ptr|
00e2 293b 0080 |); |
00e4 8080 8080 | |
00e6 8000 0000 | |
00e8 000b 1f7b | {|
00ea 6c20 000b |l |
00ec 1f7b 81fa | { |
00ee 0000 0000 | |
00f0 2504 7072 |% pr|
00f2 6167 6d61 |agma|
00f4 2053 686f | Sho|
00f6 7274 5f50 |rt_P|
00f8 6f69 6e74 |oint|
00fa 6572 2028 |er (|
00fc 456c 656d |Elem|
00fe 656e 745f |ent_|
0100 5074 7229 |Ptr)|
0102 3b02 0019 |; |
0104 0474 7970 | typ|
0106 6520 496e |e In|
0108 6465 7820 |dex |
010a 6973 2072 |is r|
010c 616e 6765 |ange|
010e 203c 3e3b | <>;|
0110 0200 1804 | |
0112 4865 6170 |Heap|
0114 203a 2053 | : S|
0116 7973 7465 |yste|
0118 6d2e 5365 |m.Se|
011a 676d 656e |gmen|
011c 743b 2100 |t;! |
011e 7061 636b |pack|
0120 6167 6520 |age |
0122 4572 7361 |Ersa|
0124 747a 5f41 |tz_A|
0126 7272 6179 |rray|
0128 5f47 656e |_Gen|
012a 6572 6963 |eric|
012c 2069 7330 | is0|
012e 0466 756e | fun|
0130 6374 696f |ctio|
0132 6e20 4665 |n Fe|
0134 7463 6820 |tch |
0136 284e 203a |(N :|
0138 2049 6e64 | Ind|
013a 6578 2920 |ex) |
013c 7265 7475 |retu|
013e 726e 2045 |rn E|
0140 6c65 6d65 |leme|
0142 6e74 5f50 |nt_P|
0144 7472 3b24 |tr;$|
0146 0470 726f | pro|
0148 6365 6475 |cedu|
014a 7265 2045 |re E|
014c 7863 6861 |xcha|
014e 6e67 6520 |nge |
0150 2841 2c20 |(A, |
0152 4220 3a20 |B : |
0154 496e 6465 |Inde|
0156 7829 3b1b |x); |
0158 0065 6e64 | end|
015a 2045 7273 | Ers|
015c 6174 7a5f |atz_|
015e 4172 7261 |Arra|
0160 795f 4765 |y_Ge|
0162 6e65 7269 |neri|
0164 633b 7261 |c;ra|
0166 7920 6173 |y as|
0168 2063 6c65 | cle|
016a 616e 6c79 |anly|
016c 2061 7320 | as |
016e 706f 7373 |poss|
0170 6962 6c65 |ible|
0172 2e2b 002d |.+ -|
0174 2d20 416e |- An|
0176 2065 7861 | exa|
0178 6d70 6c65 |mple|
017a 206f 6620 | of |
017c 686f 7720 |how |
017e 7468 6973 |this|
0180 2063 616e | can|
0182 2062 6520 | be |
0184 646f 6e65 |done|
0186 2069 733a | is:|
0188 4400 2d2d |D --|
018a 2020 2057 | W|
018c 6974 686f |itho|
018e 7574 2074 |ut t|
0190 6865 2067 |he g|
0192 656e 6572 |ener|
0194 6963 2c20 |ic, |
0196 6f6e 6520 |one |
0198 776f 756c |woul|
019a 6420 7479 |d ty|
019c 7069 6361 |pica|
019e 6c6c 7920 |lly |
01a0 6465 636c |decl|
01a2 6172 6520 |are |
01a4 7468 6520 |the |
01a6 6172 7261 |arra|
01a8 7920 6173 |y as|
01aa 1100 2d2d | --|
01ac 2020 2020 | |
01ae 2020 666f | fo|
01b0 6f3a 5858 |o:XX|
01b2 5829 002d |X) -|
01b4 2d20 2020 |- |
01b6 5468 6973 |This|
01b8 2063 6f6e | con|
01ba 7374 7275 |stru|
01bc 6374 2063 |ct c|
01be 616e 2062 |an b|
01c0 6520 7369 |e si|
01c2 6d75 6c61 |mula|
01c4 7465 6420 |ted |
01c6 6279 4800 |byH |
01c8 2d2d 2020 |-- |
01ca 2020 2020 | |
01cc 6675 6e63 |func|
01ce 7469 6f6e |tion|
01d0 2066 6f6f | foo|
01d2 2878 3a69 |(x:i|
01d4 6e64 6578 |ndex|
01d6 2920 7265 |) re|
01d8 7475 726e |turn|
01da 2065 6c65 | ele|
01dc 6d65 6e74 |ment|
01de 5f70 7472 |_ptr|
01e0 2072 656e | ren|
01e2 616d 6573 |ames|
01e4 2067 656e | gen|
01e6 6572 6963 |eric|
01e8 2e66 6574 |.fet|
01ea 6368 0200 |ch |
01ec 4c00 2d2d |L --|
01ee 2054 6865 | The|
01f0 2076 616c | val|
01f2 7565 7320 |ues |
01f4 7265 7475 |retu|
01f6 726e 6564 |rned|
01f8 2061 6c77 | alw|
01fa 6179 7320 |ays |
01fc 706f 696e |poin|
01fe 7420 6174 |t at|