|
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_5850da
└─⟦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 01c8 | | .CONST 0x01c8 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0034 | 4 | .CONST 0x0034 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0016 | | .CONST 0x0016 ; Number of locals
000b INIT_0008:
000b 00c4 | | Action Make_Default
000c 00c4 | | Action Make_Default
000d 00c4 | | Action Make_Default
000e 00c4 | | Action Make_Default
000f 00c4 | | Action Make_Default
0010 00c4 | | Action Make_Default
0011 00c4 | | Action Make_Default
0012 00c4 | | Action Make_Default
0013 00c4 | | Action Make_Default
0014 00c4 | | Action Make_Default
0015 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated
0017 c213 | | Store 0x1,0x13
0018 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated
001a c214 | | Store 0x1,0x14
001b 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated
001d c215 | | Store 0x1,0x15
001e 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated
0020 c216 | | Store 0x1,0x16
0021 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated
0023 c211 | | Store 0x1,0x11
0024 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated
0026 c212 | | Store 0x1,0x12
0027 00bf | | Action Accept_Activation
0028 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0029 00c7 | | Action Elaborate_Subprogram
002a 1d14 | | Execute_Immediate Reference_Lex_1,0x14
002b 00c7 | | Action Elaborate_Subprogram
002c 1d15 | | Execute_Immediate Reference_Lex_1,0x15
002d 00c7 | | Action Elaborate_Subprogram
002e 1d16 | | Execute_Immediate Reference_Lex_1,0x16
002f 00c7 | | Action Elaborate_Subprogram
0030 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0031 00c7 | | Action Elaborate_Subprogram
0032 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0033 00c7 | | Action Elaborate_Subprogram
0034 BODY_0008:
0034 00bc | | Action Signal_Activated
0035 00bb | | Action Signal_Completion
0036 0000 0000 | | .XXX[0x2]
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 003b | ; | .CONST 0x003b ; Address of begin
0039 0004 | | .CONST 0x0004 ; Address of exception handler
003a 0001 | | .CONST 0x0001 ; Number of locals
003b BODY_0038:
003b INIT_0038:
003b 4800 |H | Short_Literal 0x0
003c e001 | | Load 0x0,0x1
003d 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
003e e5fc | | Load 0x2,-0x4
003f 4801 |H | Short_Literal 0x1
0040 4802 |H | Short_Literal 0x2
0041 e002 | | Load 0x0,0x2
0042 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0043 035b | [ | Declare_Type Array,Constrained
0044 0337 | 7 | Declare_Variable Array
0045 e5fd | | Load 0x2,-0x3
0046 e5ff | | Load 0x2,-0x1
0047 01cc | | Execute Vector,Catenate
0048 e002 | | Load 0x0,0x2
0049 1810 | | Execute Package,Field_Execute,Field_Number 0x10
004a e002 | | Load 0x0,0x2
004b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
004c 0119 | | Execute Any,Check_In_Formal_Type
004d 4801 |H | Short_Literal 0x1
004e 00da | | Load_Top At_Offset_2
004f 01d6 | | Execute Vector,Field_Write
0050 e5fe | | Load 0x2,-0x2
0051 e002 | | Load 0x0,0x2
0052 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0053 e002 | | Load 0x0,0x2
0054 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0055 0119 | | Execute Any,Check_In_Formal_Type
0056 4802 |H | Short_Literal 0x2
0057 00da | | Load_Top At_Offset_2
0058 01d6 | | Execute Vector,Field_Write
0059 6006 |` | Indirect_Literal Discrete,0x60,{0x00000000, 0x00008846}
005a e001 | | Load 0x0,0x1
005b 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
005c 4505 |E | Exit_Suprogram New_Top_Offset 0x5
005d 0000 0000 | | .XXX[0x3]
005f 0000 | |
0060 0000 0000 | | .LITERAL {0x00000000, 0x00008846}
0064 0000 0000 | | .BLANK 0000[0x4]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 0074 | t | .CONST 0x0074 ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0003 | | .CONST 0x0003 ; Number of locals
006b INIT_0068:
006b e001 | | Load 0x0,0x1
006c 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
006d 00e2 | | Load_Encached Integer_Cache
006e 03f1 | | Declare_Variable Discrete,With_Value
006f 4806 |H | Short_Literal 0x6
0070 e001 | | Load 0x0,0x1
0071 1844 | D | Execute Package,Field_Execute,Field_Number 0x44
0072 00e2 | | Load_Encached Integer_Cache
0073 03f1 | | Declare_Variable Discrete,With_Value
0074 BODY_0068:
0074 4800 |H | Short_Literal 0x0
0075 e5ff | | Load 0x2,-0x1
0076 e001 | | Load 0x0,0x1
0077 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0078 6810 |h | Jump_Zero 0x89
0079 00d9 | | Load_Top At_Offset_1
007a 700e |p | Jump_Nonzero 0x89
007b e5fc | | Load 0x2,-0x4
007c 0092 016b | k| Action Push_String_Extended,0x16b ; "["
007e e5fd | | Load 0x2,-0x3
007f 01cc | | Execute Vector,Catenate
0080 e5fe | | Load 0x2,-0x2
0081 01cc | | Execute Vector,Catenate
0082 0092 016c | l| Action Push_String_Extended,0x16c ; " completed successfully]"
0084 01cc | | Execute Vector,Catenate
0085 607e |`~ | Indirect_Literal Discrete,0x104,{0x00000000, 0x00008821}
0086 e001 | | Load 0x0,0x1
0087 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
0088 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0089 00d9 | | Load_Top At_Offset_1
008a 0f01 | | Execute_Immediate Equal,0x1
008b 681f |h | Jump_Zero 0xab
008c 00d8 | | Load_Top At_Offset_0
008d 0f01 | | Execute_Immediate Equal,0x1
008e 680e |h | Jump_Zero 0x9d
008f e5fc | | Load 0x2,-0x4
0090 0092 016b | k| Action Push_String_Extended,0x16b ; "["
0092 e5fd | | Load 0x2,-0x3
0093 01cc | | Execute Vector,Catenate
0094 e5fe | | Load 0x2,-0x2
0095 01cc | | Execute Vector,Catenate
0096 0092 016d | m| Action Push_String_Extended,0x16d ; " completed with 1 warning]"
0098 01cc | | Execute Vector,Catenate
0099 606a |`j | Indirect_Literal Discrete,0x104,{0x00000000, 0x00008821}
009a e001 | | Load 0x0,0x1
009b 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
009c 7860 |x` | Jump 0xfd
009d e5fc | | Load 0x2,-0x4
009e 0092 016b | k| Action Push_String_Extended,0x16b ; "["
00a0 e5fd | | Load 0x2,-0x3
00a1 01cc | | Execute Vector,Catenate
00a2 e5fe | | Load 0x2,-0x2
00a3 01cc | | Execute Vector,Catenate
00a4 0092 016e | n| Action Push_String_Extended,0x16e ; " terminated after 1 error]"
00a6 01cc | | Execute Vector,Catenate
00a7 605c |`\ | Indirect_Literal Discrete,0x104,{0x00000000, 0x00008821}
00a8 e001 | | Load 0x0,0x1
00a9 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
00aa 7852 |xR | Jump 0xfd
00ab 00d8 | | Load_Top At_Offset_0
00ac 7015 |p | Jump_Nonzero 0xc2
00ad e5fc | | Load 0x2,-0x4
00ae 0092 016b | k| Action Push_String_Extended,0x16b ; "["
00b0 e5fd | | Load 0x2,-0x3
00b1 01cc | | Execute Vector,Catenate
00b2 e5fe | | Load 0x2,-0x2
00b3 01cc | | Execute Vector,Catenate
00b4 0092 016f | o| Action Push_String_Extended,0x16f ; " terminated after"
00b6 01cc | | Execute Vector,Catenate
00b7 00db | | Load_Top At_Offset_3
00b8 00e0 | | Load_Encached Standard_Cache
00b9 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00ba 01cc | | Execute Vector,Catenate
00bb 0092 0170 | p| Action Push_String_Extended,0x170 ; " errors]"
00bd 01cc | | Execute Vector,Catenate
00be 6045 |`E | Indirect_Literal Discrete,0x104,{0x00000000, 0x00008821}
00bf e001 | | Load 0x0,0x1
00c0 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
00c1 783b |x; | Jump 0xfd
00c2 00d9 | | Load_Top At_Offset_1
00c3 00d9 | | Load_Top At_Offset_1
00c4 027f | | Execute Discrete,Equal
00c5 6815 |h | Jump_Zero 0xdb
00c6 e5fc | | Load 0x2,-0x4
00c7 0092 016b | k| Action Push_String_Extended,0x16b ; "["
00c9 e5fd | | Load 0x2,-0x3
00ca 01cc | | Execute Vector,Catenate
00cb e5fe | | Load 0x2,-0x2
00cc 01cc | | Execute Vector,Catenate
00cd 0092 0171 | q| Action Push_String_Extended,0x171 ; " completed with"
00cf 01cc | | Execute Vector,Catenate
00d0 00da | | Load_Top At_Offset_2
00d1 00e0 | | Load_Encached Standard_Cache
00d2 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00d3 01cc | | Execute Vector,Catenate
00d4 0092 0172 | r| Action Push_String_Extended,0x172 ; " warnings]"
00d6 01cc | | Execute Vector,Catenate
00d7 602c |`, | Indirect_Literal Discrete,0x104,{0x00000000, 0x00008821}
00d8 e001 | | Load 0x0,0x1
00d9 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
00da 7822 |x" | Jump 0xfd
00db e5fc | | Load 0x2,-0x4
00dc 0092 016b | k| Action Push_String_Extended,0x16b ; "["
00de e5fd | | Load 0x2,-0x3
00df 01cc | | Execute Vector,Catenate
00e0 e5fe | | Load 0x2,-0x2
00e1 01cc | | Execute Vector,Catenate
00e2 0092 016f | o| Action Push_String_Extended,0x16f ; " terminated after"
00e4 01cc | | Execute Vector,Catenate
00e5 00db | | Load_Top At_Offset_3
00e6 00db | | Load_Top At_Offset_3
00e7 0272 | r | Execute Discrete,Minus
00e8 00d8 | | Load_Top At_Offset_0
00e9 00e2 | | Load_Encached Integer_Cache
00ea 0260 | ` | Execute Discrete,In_Type
00eb 7001 |p | Jump_Nonzero 0xed
00ec 0801 | | Execute_Immediate Raise,0x1
00ed 00e0 | | Load_Encached Standard_Cache
00ee 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00ef 01cc | | Execute Vector,Catenate
00f0 0092 0173 | s| Action Push_String_Extended,0x173 ; " error(s) and"
00f2 01cc | | Execute Vector,Catenate
00f3 00da | | Load_Top At_Offset_2
00f4 00e0 | | Load_Encached Standard_Cache
00f5 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00f6 01cc | | Execute Vector,Catenate
00f7 0092 0174 | t| Action Push_String_Extended,0x174 ; " warning(s)]"
00f9 01cc | | Execute Vector,Catenate
00fa 6009 |` | Indirect_Literal Discrete,0x104,{0x00000000, 0x00008821}
00fb e001 | | Load 0x0,0x1
00fc 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
00fd 4800 |H | Short_Literal 0x0
00fe e001 | | Load 0x0,0x1
00ff 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
0100 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0101 0000 0000 | | .XXX[0x3]
0103 0000 | |
0104 0000 0000 | | .LITERAL {0x00000000, 0x00008821}
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b | | .CONST 0x010b ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0001 | | .CONST 0x0001 ; Number of locals
010b BODY_0108:
010b INIT_0108:
010b e5fc | | Load 0x2,-0x4
010c e002 | | Load 0x0,0x2
010d 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
010e 6009 |` | Indirect_Literal Discrete,0x118,{0x00000000, 0x0000882c}
010f e001 | | Load 0x0,0x1
0110 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0111 e5fc | | Load 0x2,-0x4
0112 e5fd | | Load 0x2,-0x3
0113 e5fe | | Load 0x2,-0x2
0114 e5ff | | Load 0x2,-0x1
0115 8214 | | Call 0x1,0x14
0116 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0117 0000 | | .XXX[0x1]
0118 0000 0000 | | .LITERAL {0x00000000, 0x0000882c}
011c 0000 0000 | | .BLANK 0000[0x4]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123 | # | .CONST 0x0123 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0001 | | .CONST 0x0001 ; Number of locals
0123 BODY_0120:
0123 INIT_0120:
0123 e5fc | | Load 0x2,-0x4
0124 4801 |H | Short_Literal 0x1
0125 4802 |H | Short_Literal 0x2
0126 e002 | | Load 0x0,0x2
0127 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0128 035b | [ | Declare_Type Array,Constrained
0129 0337 | 7 | Declare_Variable Array
012a 4800 |H | Short_Literal 0x0
012b 4801 |H | Short_Literal 0x1
012c e003 | | Load 0x0,0x3
012d 1815 | | Execute Package,Field_Execute,Field_Number 0x15
012e e002 | | Load 0x0,0x2
012f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0130 e002 | | Load 0x0,0x2
0131 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0132 0119 | | Execute Any,Check_In_Formal_Type
0133 4801 |H | Short_Literal 0x1
0134 00da | | Load_Top At_Offset_2
0135 01d6 | | Execute Vector,Field_Write
0136 4800 |H | Short_Literal 0x0
0137 4801 |H | Short_Literal 0x1
0138 e003 | | Load 0x0,0x3
0139 1816 | | Execute Package,Field_Execute,Field_Number 0x16
013a e002 | | Load 0x0,0x2
013b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
013c e002 | | Load 0x0,0x2
013d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
013e 0119 | | Execute Any,Check_In_Formal_Type
013f 4802 |H | Short_Literal 0x2
0140 00da | | Load_Top At_Offset_2
0141 01d6 | | Execute Vector,Field_Write
0142 6009 |` | Indirect_Literal Discrete,0x14c,{0x00000000, 0x00008849}
0143 e001 | | Load 0x0,0x1
0144 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0145 e5fc | | Load 0x2,-0x4
0146 e5fd | | Load 0x2,-0x3
0147 e5fe | | Load 0x2,-0x2
0148 e5ff | | Load 0x2,-0x1
0149 8214 | | Call 0x1,0x14
014a 4505 |E | Exit_Suprogram New_Top_Offset 0x5
014b 0000 | | .XXX[0x1]
014c 0000 0000 | | .LITERAL {0x00000000, 0x00008849}
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153 | S | .CONST 0x0153 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0001 | | .CONST 0x0001 ; Number of locals
0153 BODY_0150:
0153 INIT_0150:
0153 4822 |H" | Short_Literal 0x22
0154 0092 0175 | u| Action Push_String_Extended,0x175 ; " => \x22"
0156 e5ff | | Load 0x2,-0x1
0157 01cc | | Execute Vector,Catenate
0158 01cb | | Execute Vector,Append
0159 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
015a 0000 0000 | | .BLANK 0000[0x6]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163 | c | .CONST 0x0163 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0001 | | .CONST 0x0001 ; Number of locals
0163 BODY_0160:
0163 INIT_0160:
0163 0092 0175 | u| Action Push_String_Extended,0x175 ; " => \x22"
0165 00db | | Load_Top At_Offset_3
0166 01cc | | Execute Vector,Catenate
0167 0092 0176 | v| Action Push_String_Extended,0x176 ; "\x22, "
0169 01cc | | Execute Vector,Catenate
016a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
016b ; --------------------------------------------------------------------------------------
016b ; STRING TABLE
016b ; --------------------------------------------------------------------------------------
016b 001a | | .STRTAB 0x001a->0x0178 ; "["
016c 0019 | | .STRTAB 0x0019->0x0178 ; " completed successfully]"
016d 002f | / | .STRTAB 0x002f->0x0184 ; " completed with 1 warning]"
016e 0047 | G | .STRTAB 0x0047->0x0191 ; " terminated after 1 error]"
016f 005f | _ | .STRTAB 0x005f->0x019e ; " terminated after"
0170 006e | n | .STRTAB 0x006e->0x01a7 ; " errors]"
0171 0074 | t | .STRTAB 0x0074->0x01ab ; " completed with"
0172 0081 | | .STRTAB 0x0081->0x01b2 ; " warnings]"
0173 0089 | | .STRTAB 0x0089->0x01b7 ; " error(s) and"
0174 0094 | | .STRTAB 0x0094->0x01be ; " warning(s)]"
0175 009e | | .STRTAB 0x009e->0x01c4 ; " => \x22"
0176 00a1 | | .STRTAB 0x00a1->0x01c6 ; "\x22, "
0177 00a2 | | .STREND 0x00a2->0x01c8
0178 5b20 636f |[ co| .STRTAB_STRINGS
01c8 ; --------------------------------------------------------------------------------------
01c8 ; Debug Table
01c8 ; --------------------------------------------------------------------------------------
01c8 0004 000d | | .DEBUG4 0x0004,0x000d,0x4f50,0x0000,0x0001,0x0000
01ce 3024 c6f6 |0$ | .XXX[0x1f]
01d0 36b5 f457 |6 W|
01d2 2726 f721 |'& !|
01d4 3215 5534 |2 U4|
01d6 5525 32e4 |U%2 |
01d8 6414 9484 |d |
01da 52e5 0524 |R $|
01dc f4a4 5435 | T5|
01de 42e5 24f4 |B $ |
01e0 c452 7535 | Ru5|
01e2 0454 3275 | T2u|
01e4 6283 1302 |b |
01e6 9206 9732 | 2|
01e8 06c6 f636 | 6|
01ea b656 42e1 | VB |
01ec 3000 |0 |
01ed 0000 0000 | | .BLANK 0000[0x13]