|
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_03c0fe
└─⟦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 0128 | ( | .CONST 0x0128 ; 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 0010 | | .CONST 0x0010 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0001 | | .CONST 0x0001 ; Number of locals
000b INIT_0008:
000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 00bf | | Action Accept_Activation
000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
000f 00c7 | | Action Elaborate_Subprogram
0010 BODY_0008:
0010 00bc | | Action Signal_Activated
0011 00bb | | Action Signal_Completion
0012 0000 0000 | | .BLANK 0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 0024 | $ | .CONST 0x0024 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0005 | | .CONST 0x0005 ; Number of locals
001b INIT_0018:
001b e5ff | | Load 0x2,-0x1
001c 00e5 | | Load_Encached Long_Integer_Cache
001d 03f1 | | Declare_Variable Discrete,With_Value
001e 029f 004b | K| Declare_Subprogram INIT_0048,For_Call
0020 029f 005b | [| Declare_Subprogram INIT_0058,For_Call
0022 029f 0103 | | Declare_Subprogram INIT_0100,For_Call
0024 BODY_0018:
0024 e5ff | | Load 0x2,-0x1
0025 601e |` | Indirect_Literal Discrete,0x44,{0x80000000, 0x00000000}
0026 027f | | Execute Discrete,Equal
0027 6804 |h | Jump_Zero 0x2c
0028 0092 011d | | Action Push_String_Extended,0x11d ; "8000000000000000"
002a 8403 | | Call 0x2,0x3
002b 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
002c e5ff | | Load 0x2,-0x1
002d 0d00 | | Execute_Immediate Less,0x0
002e 680d |h | Jump_Zero 0x3c
002f e5ff | | Load 0x2,-0x1
0030 0275 | u | Execute Discrete,Unary_Minus
0031 0aff | | Execute_Immediate Plus,-0x1
0032 a402 | | Store_Unchecked 0x2,0x2
0033 e5fd | | Load 0x2,-0x3
0034 4810 |H | Short_Literal 0x10
0035 4810 |H | Short_Literal 0x10
0036 e402 | | Load 0x2,0x2
0037 e002 | | Load 0x0,0x2
0038 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0039 8405 | | Call 0x2,0x5
003a 8403 | | Call 0x2,0x3
003b 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
003c e5fd | | Load 0x2,-0x3
003d e5fe | | Load 0x2,-0x2
003e 4810 |H | Short_Literal 0x10
003f e5ff | | Load 0x2,-0x1
0040 e002 | | Load 0x0,0x2
0041 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0042 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0043 0000 | | .XXX[0x1]
0044 8000 0000 | | .LITERAL {0x80000000, 0x00000000}
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 004b | K | .CONST 0x004b ; Address of begin
0049 0004 | | .CONST 0x0004 ; Address of exception handler
004a 0001 | | .CONST 0x0001 ; Number of locals
004b BODY_0048:
004b INIT_0048:
004b e7ff | | Load 0x3,-0x1
004c 01db | | Execute Vector,Length
004d e5fe | | Load 0x2,-0x2
004e 027b | { | Execute Discrete,Greater_Equal
004f 6802 |h | Jump_Zero 0x52
0050 e7ff | | Load 0x3,-0x1
0051 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0052 e5fd | | Load 0x2,-0x3
0053 e7ff | | Load 0x3,-0x1
0054 01ca | | Execute Vector,Prepend
0055 8403 | | Call 0x2,0x3
0056 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0057 0000 | | .XXX[0x1]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b | [ | .CONST 0x005b ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0001 | | .CONST 0x0001 ; Number of locals
005b BODY_0058:
005b INIT_0058:
005b e7ff | | Load 0x3,-0x1
005c 467f |F | Jump_Case 0x80
005d 787f |x | Jump 0xdd ; case 0x0
005e 787e |x~ | Jump 0xdd ; case 0x1
005f 787d |x} | Jump 0xdd ; case 0x2
0060 787c |x| | Jump 0xdd ; case 0x3
0061 787b |x{ | Jump 0xdd ; case 0x4
0062 787a |xz | Jump 0xdd ; case 0x5
0063 7879 |xy | Jump 0xdd ; case 0x6
0064 7878 |xx | Jump 0xdd ; case 0x7
0065 7877 |xw | Jump 0xdd ; case 0x8
0066 7876 |xv | Jump 0xdd ; case 0x9
0067 7875 |xu | Jump 0xdd ; case 0xa
0068 7874 |xt | Jump 0xdd ; case 0xb
0069 7873 |xs | Jump 0xdd ; case 0xc
006a 7872 |xr | Jump 0xdd ; case 0xd
006b 7871 |xq | Jump 0xdd ; case 0xe
006c 7870 |xp | Jump 0xdd ; case 0xf
006d 786f |xo | Jump 0xdd ; case 0x10
006e 786e |xn | Jump 0xdd ; case 0x11
006f 786d |xm | Jump 0xdd ; case 0x12
0070 786c |xl | Jump 0xdd ; case 0x13
0071 786b |xk | Jump 0xdd ; case 0x14
0072 786a |xj | Jump 0xdd ; case 0x15
0073 7869 |xi | Jump 0xdd ; case 0x16
0074 7868 |xh | Jump 0xdd ; case 0x17
0075 7867 |xg | Jump 0xdd ; case 0x18
0076 7866 |xf | Jump 0xdd ; case 0x19
0077 7865 |xe | Jump 0xdd ; case 0x1a
0078 7864 |xd | Jump 0xdd ; case 0x1b
0079 7863 |xc | Jump 0xdd ; case 0x1c
007a 7862 |xb | Jump 0xdd ; case 0x1d
007b 7861 |xa | Jump 0xdd ; case 0x1e
007c 7860 |x` | Jump 0xdd ; case 0x1f
007d 785f |x_ | Jump 0xdd ; case 0x20
007e 785e |x^ | Jump 0xdd ; case 0x21
007f 785d |x] | Jump 0xdd ; case 0x22
0080 785c |x\ | Jump 0xdd ; case 0x23
0081 785b |x[ | Jump 0xdd ; case 0x24
0082 785a |xZ | Jump 0xdd ; case 0x25
0083 7859 |xY | Jump 0xdd ; case 0x26
0084 7858 |xX | Jump 0xdd ; case 0x27
0085 7857 |xW | Jump 0xdd ; case 0x28
0086 7856 |xV | Jump 0xdd ; case 0x29
0087 7855 |xU | Jump 0xdd ; case 0x2a
0088 7854 |xT | Jump 0xdd ; case 0x2b
0089 7853 |xS | Jump 0xdd ; case 0x2c
008a 7852 |xR | Jump 0xdd ; case 0x2d
008b 7851 |xQ | Jump 0xdd ; case 0x2e
008c 7850 |xP | Jump 0xdd ; case 0x2f
008d 7851 |xQ | Jump 0xdf ; case 0x30
008e 7852 |xR | Jump 0xe1 ; case 0x31
008f 7853 |xS | Jump 0xe3 ; case 0x32
0090 7854 |xT | Jump 0xe5 ; case 0x33
0091 7855 |xU | Jump 0xe7 ; case 0x34
0092 7856 |xV | Jump 0xe9 ; case 0x35
0093 7857 |xW | Jump 0xeb ; case 0x36
0094 7858 |xX | Jump 0xed ; case 0x37
0095 7859 |xY | Jump 0xef ; case 0x38
0096 785a |xZ | Jump 0xf1 ; case 0x39
0097 7845 |xE | Jump 0xdd ; case 0x3a
0098 7844 |xD | Jump 0xdd ; case 0x3b
0099 7843 |xC | Jump 0xdd ; case 0x3c
009a 7842 |xB | Jump 0xdd ; case 0x3d
009b 7841 |xA | Jump 0xdd ; case 0x3e
009c 7840 |x@ | Jump 0xdd ; case 0x3f
009d 783f |x? | Jump 0xdd ; case 0x40
009e 7854 |xT | Jump 0xf3 ; case 0x41
009f 7855 |xU | Jump 0xf5 ; case 0x42
00a0 7856 |xV | Jump 0xf7 ; case 0x43
00a1 7857 |xW | Jump 0xf9 ; case 0x44
00a2 7858 |xX | Jump 0xfb ; case 0x45
00a3 7859 |xY | Jump 0xfd ; case 0x46
00a4 7838 |x8 | Jump 0xdd ; case 0x47
00a5 7837 |x7 | Jump 0xdd ; case 0x48
00a6 7836 |x6 | Jump 0xdd ; case 0x49
00a7 7835 |x5 | Jump 0xdd ; case 0x4a
00a8 7834 |x4 | Jump 0xdd ; case 0x4b
00a9 7833 |x3 | Jump 0xdd ; case 0x4c
00aa 7832 |x2 | Jump 0xdd ; case 0x4d
00ab 7831 |x1 | Jump 0xdd ; case 0x4e
00ac 7830 |x0 | Jump 0xdd ; case 0x4f
00ad 782f |x/ | Jump 0xdd ; case 0x50
00ae 782e |x. | Jump 0xdd ; case 0x51
00af 782d |x- | Jump 0xdd ; case 0x52
00b0 782c |x, | Jump 0xdd ; case 0x53
00b1 782b |x+ | Jump 0xdd ; case 0x54
00b2 782a |x* | Jump 0xdd ; case 0x55
00b3 7829 |x) | Jump 0xdd ; case 0x56
00b4 7828 |x( | Jump 0xdd ; case 0x57
00b5 7827 |x' | Jump 0xdd ; case 0x58
00b6 7826 |x& | Jump 0xdd ; case 0x59
00b7 7825 |x% | Jump 0xdd ; case 0x5a
00b8 7824 |x$ | Jump 0xdd ; case 0x5b
00b9 7823 |x# | Jump 0xdd ; case 0x5c
00ba 7822 |x" | Jump 0xdd ; case 0x5d
00bb 7821 |x! | Jump 0xdd ; case 0x5e
00bc 7820 |x | Jump 0xdd ; case 0x5f
00bd 781f |x | Jump 0xdd ; case 0x60
00be 7834 |x4 | Jump 0xf3 ; case 0x61
00bf 7835 |x5 | Jump 0xf5 ; case 0x62
00c0 7836 |x6 | Jump 0xf7 ; case 0x63
00c1 7837 |x7 | Jump 0xf9 ; case 0x64
00c2 7838 |x8 | Jump 0xfb ; case 0x65
00c3 7839 |x9 | Jump 0xfd ; case 0x66
00c4 7818 |x | Jump 0xdd ; case 0x67
00c5 7817 |x | Jump 0xdd ; case 0x68
00c6 7816 |x | Jump 0xdd ; case 0x69
00c7 7815 |x | Jump 0xdd ; case 0x6a
00c8 7814 |x | Jump 0xdd ; case 0x6b
00c9 7813 |x | Jump 0xdd ; case 0x6c
00ca 7812 |x | Jump 0xdd ; case 0x6d
00cb 7811 |x | Jump 0xdd ; case 0x6e
00cc 7810 |x | Jump 0xdd ; case 0x6f
00cd 780f |x | Jump 0xdd ; case 0x70
00ce 780e |x | Jump 0xdd ; case 0x71
00cf 780d |x | Jump 0xdd ; case 0x72
00d0 780c |x | Jump 0xdd ; case 0x73
00d1 780b |x | Jump 0xdd ; case 0x74
00d2 780a |x | Jump 0xdd ; case 0x75
00d3 7809 |x | Jump 0xdd ; case 0x76
00d4 7808 |x | Jump 0xdd ; case 0x77
00d5 7807 |x | Jump 0xdd ; case 0x78
00d6 7806 |x | Jump 0xdd ; case 0x79
00d7 7805 |x | Jump 0xdd ; case 0x7a
00d8 7804 |x | Jump 0xdd ; case 0x7b
00d9 7803 |x | Jump 0xdd ; case 0x7c
00da 7802 |x | Jump 0xdd ; case 0x7d
00db 7801 |x | Jump 0xdd ; case 0x7e
00dc 7800 |x | Jump 0xdd ; case 0x7f
00dd e7ff | | Load 0x3,-0x1
00de 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00df 4846 |HF | Short_Literal 0x46
00e0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00e1 4845 |HE | Short_Literal 0x45
00e2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00e3 4844 |HD | Short_Literal 0x44
00e4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00e5 4843 |HC | Short_Literal 0x43
00e6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00e7 4842 |HB | Short_Literal 0x42
00e8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00e9 4841 |HA | Short_Literal 0x41
00ea 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00eb 4839 |H9 | Short_Literal 0x39
00ec 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00ed 4838 |H8 | Short_Literal 0x38
00ee 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00ef 4837 |H7 | Short_Literal 0x37
00f0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00f1 4836 |H6 | Short_Literal 0x36
00f2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00f3 4835 |H5 | Short_Literal 0x35
00f4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00f5 4834 |H4 | Short_Literal 0x34
00f6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00f7 4833 |H3 | Short_Literal 0x33
00f8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00f9 4832 |H2 | Short_Literal 0x32
00fa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00fb 4831 |H1 | Short_Literal 0x31
00fc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00fd 4830 |H0 | Short_Literal 0x30
00fe 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00ff 0000 | | .XXX[0x1]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 010a | | .CONST 0x010a ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0002 | | .CONST 0x0002 ; Number of locals
0103 INIT_0100:
0103 e7ff | | Load 0x3,-0x1
0104 01dd | | Execute Vector,First
0105 e7ff | | Load 0x3,-0x1
0106 01dc | | Execute Vector,Last
0107 00e9 | | Load_Encached String_Cache
0108 035b | [ | Declare_Type Array,Constrained
0109 0337 | 7 | Declare_Variable Array
010a BODY_0100:
010a 00cf | | Action Mark_Auxiliary
010b e7ff | | Load 0x3,-0x1
010c 01d9 | | Execute Vector,Reverse_Bounds
010d 0263 | c | Execute Discrete,Above_Bound
010e 7009 |p | Jump_Nonzero 0x118
010f 00d8 | | Load_Top At_Offset_0
0110 e7ff | | Load 0x3,-0x1
0111 01d7 | | Execute Vector,Field_Read
0112 8404 | | Call 0x2,0x4
0113 e605 | | Load 0x3,0x5
0114 e602 | | Load 0x3,0x2
0115 01d6 | | Execute Vector,Field_Write
0116 00c8 | | Action Pop_Auxiliary_Range
0117 3ff7 |? | Loop_Increasing 0x10f
0118 00ce | | Action Pop_Auxiliary
0119 00d8 | | Load_Top At_Offset_0
011a 00e9 | | Load_Encached String_Cache
011b 01c6 | | Execute Vector,Convert_To_Formal
011c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
011d ; --------------------------------------------------------------------------------------
011d ; STRING TABLE
011d ; --------------------------------------------------------------------------------------
011d 0004 | | .STRTAB 0x0004->0x011f ; "8000000000000000"
011e 0012 | | .STREND 0x0012->0x0127
011f 3830 3030 |8000| .STRTAB_STRINGS
0127 0000 | | .XXX[0x1]
0128 ; --------------------------------------------------------------------------------------
0128 ; Debug Table
0128 ; --------------------------------------------------------------------------------------
0128 0004 0011 | | .DEBUG4 0x0004,0x0011,0x976f,0x0000,0x0001,0x0000
012e 0000 0000 | | .BLANK 0000[0xd2]