|
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_131e0c0
└─⟦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 0158 | X | .CONST 0x0158 ; 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 0000 | | .CONST 0x0000 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 00b8 | | .CONST 0x00b8 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0017 | | .CONST 0x0017 ; Number of locals 000b INIT_0008: 000b 4801 |H | Short_Literal 0x1 000c 4814 |H | Short_Literal 0x14 000d 00e9 | | Load_Encached String_Cache 000e 035c | \ | Declare_Type Array,Constrained,Visible 000f 4800 |H | Short_Literal 0x0 0010 4801 |H | Short_Literal 0x1 0011 029f 00c3 | | Declare_Subprogram INIT_00c0,For_Call 0013 03fe | | Declare_Type Discrete,Defined,Visible 0014 4801 |H | Short_Literal 0x1 0015 480a |H | Short_Literal 0xa 0016 00e2 | | Load_Encached Integer_Cache 0017 03f9 | | Declare_Type Discrete,Constrained,Visible 0018 4801 |H | Short_Literal 0x1 0019 480a |H | Short_Literal 0xa 001a 00e2 | | Load_Encached Integer_Cache 001b 03f9 | | Declare_Type Discrete,Constrained,Visible 001c 00d9 | | Load_Top At_Offset_1 001d 00d9 | | Load_Top At_Offset_1 001e 02a0 | | Declare_Subprogram Null_Subprogram 001f 4802 |H | Short_Literal 0x2 0020 032e | . | Declare_Type Record,Defined,Visible 0021 4800 |H | Short_Literal 0x0 0022 4801 |H | Short_Literal 0x1 0023 029f 00eb | | Declare_Subprogram INIT_00e8,For_Call 0025 03fe | | Declare_Type Discrete,Defined,Visible 0026 4800 |H | Short_Literal 0x0 0027 4802 |H | Short_Literal 0x2 0028 029f 0113 | | Declare_Subprogram INIT_0110,For_Call 002a 03fe | | Declare_Type Discrete,Defined,Visible 002b e20d | | Load 0x1,0xd 002c 0336 | 6 | Declare_Variable Array,Visible 002d 00d8 | | Load_Top At_Offset_0 002e 0335 | 5 | Declare_Variable Array,Duplicate 002f 00cd | | Action Spare6_Action 0030 486e |Hn | Short_Literal 0x6e 0031 4801 |H | Short_Literal 0x1 0032 00da | | Load_Top At_Offset_2 0033 01d6 | | Execute Vector,Field_Write 0034 4869 |Hi | Short_Literal 0x69 0035 4802 |H | Short_Literal 0x2 0036 00da | | Load_Top At_Offset_2 0037 01d6 | | Execute Vector,Field_Write 0038 486c |Hl | Short_Literal 0x6c 0039 4803 |H | Short_Literal 0x3 003a 00da | | Load_Top At_Offset_2 003b 01d6 | | Execute Vector,Field_Write 003c 4814 |H | Short_Literal 0x14 003d 4804 |H | Short_Literal 0x4 003e 4820 |H | Short_Literal 0x20 003f 00d9 | | Load_Top At_Offset_1 0040 e215 | | Load 0x1,0x15 0041 01d6 | | Execute Vector,Field_Write 0042 3ffb |? | Loop_Increasing 0x3e 0043 00d9 | | Load_Top At_Offset_1 0044 01d4 | | Execute Vector,Structure_Write 0045 e20d | | Load 0x1,0xd 0046 0336 | 6 | Declare_Variable Array,Visible 0047 00d8 | | Load_Top At_Offset_0 0048 0335 | 5 | Declare_Variable Array,Duplicate 0049 00cd | | Action Spare6_Action 004a 4866 |Hf | Short_Literal 0x66 004b 4801 |H | Short_Literal 0x1 004c 00da | | Load_Top At_Offset_2 004d 01d6 | | Execute Vector,Field_Write 004e 486c |Hl | Short_Literal 0x6c 004f 4802 |H | Short_Literal 0x2 0050 00da | | Load_Top At_Offset_2 0051 01d6 | | Execute Vector,Field_Write 0052 486f |Ho | Short_Literal 0x6f 0053 4803 |H | Short_Literal 0x3 0054 00da | | Load_Top At_Offset_2 0055 01d6 | | Execute Vector,Field_Write 0056 486f |Ho | Short_Literal 0x6f 0057 4804 |H | Short_Literal 0x4 0058 00da | | Load_Top At_Offset_2 0059 01d6 | | Execute Vector,Field_Write 005a 4872 |Hr | Short_Literal 0x72 005b 4805 |H | Short_Literal 0x5 005c 00da | | Load_Top At_Offset_2 005d 01d6 | | Execute Vector,Field_Write 005e 4814 |H | Short_Literal 0x14 005f 4806 |H | Short_Literal 0x6 0060 4820 |H | Short_Literal 0x20 0061 00d9 | | Load_Top At_Offset_1 0062 e216 | | Load 0x1,0x16 0063 01d6 | | Execute Vector,Field_Write 0064 3ffb |? | Loop_Increasing 0x60 0065 00d9 | | Load_Top At_Offset_1 0066 01d4 | | Execute Vector,Structure_Write 0067 e20d | | Load 0x1,0xd 0068 0336 | 6 | Declare_Variable Array,Visible 0069 00d8 | | Load_Top At_Offset_0 006a 0335 | 5 | Declare_Variable Array,Duplicate 006b 00cd | | Action Spare6_Action 006c 4863 |Hc | Short_Literal 0x63 006d 4801 |H | Short_Literal 0x1 006e 00da | | Load_Top At_Offset_2 006f 01d6 | | Execute Vector,Field_Write 0070 4865 |He | Short_Literal 0x65 0071 4802 |H | Short_Literal 0x2 0072 00da | | Load_Top At_Offset_2 0073 01d6 | | Execute Vector,Field_Write 0074 4869 |Hi | Short_Literal 0x69 0075 4803 |H | Short_Literal 0x3 0076 00da | | Load_Top At_Offset_2 0077 01d6 | | Execute Vector,Field_Write 0078 486c |Hl | Short_Literal 0x6c 0079 4804 |H | Short_Literal 0x4 007a 00da | | Load_Top At_Offset_2 007b 01d6 | | Execute Vector,Field_Write 007c 4869 |Hi | Short_Literal 0x69 007d 4805 |H | Short_Literal 0x5 007e 00da | | Load_Top At_Offset_2 007f 01d6 | | Execute Vector,Field_Write 0080 486e |Hn | Short_Literal 0x6e 0081 4806 |H | Short_Literal 0x6 0082 00da | | Load_Top At_Offset_2 0083 01d6 | | Execute Vector,Field_Write 0084 4867 |Hg | Short_Literal 0x67 0085 4807 |H | Short_Literal 0x7 0086 00da | | Load_Top At_Offset_2 0087 01d6 | | Execute Vector,Field_Write 0088 4814 |H | Short_Literal 0x14 0089 4808 |H | Short_Literal 0x8 008a 4820 |H | Short_Literal 0x20 008b 00d9 | | Load_Top At_Offset_1 008c e217 | | Load 0x1,0x17 008d 01d6 | | Execute Vector,Field_Write 008e 3ffb |? | Loop_Increasing 0x8a 008f 00d9 | | Load_Top At_Offset_1 0090 01d4 | | Execute Vector,Structure_Write 0091 e20d | | Load 0x1,0xd 0092 0336 | 6 | Declare_Variable Array,Visible 0093 00d8 | | Load_Top At_Offset_0 0094 0335 | 5 | Declare_Variable Array,Duplicate 0095 00cd | | Action Spare6_Action 0096 486c |Hl | Short_Literal 0x6c 0097 4801 |H | Short_Literal 0x1 0098 00da | | Load_Top At_Offset_2 0099 01d6 | | Execute Vector,Field_Write 009a 4861 |Ha | Short_Literal 0x61 009b 4802 |H | Short_Literal 0x2 009c 00da | | Load_Top At_Offset_2 009d 01d6 | | Execute Vector,Field_Write 009e 4864 |Hd | Short_Literal 0x64 009f 4803 |H | Short_Literal 0x3 00a0 00da | | Load_Top At_Offset_2 00a1 01d6 | | Execute Vector,Field_Write 00a2 4864 |Hd | Short_Literal 0x64 00a3 4804 |H | Short_Literal 0x4 00a4 00da | | Load_Top At_Offset_2 00a5 01d6 | | Execute Vector,Field_Write 00a6 4865 |He | Short_Literal 0x65 00a7 4805 |H | Short_Literal 0x5 00a8 00da | | Load_Top At_Offset_2 00a9 01d6 | | Execute Vector,Field_Write 00aa 4872 |Hr | Short_Literal 0x72 00ab 4806 |H | Short_Literal 0x6 00ac 00da | | Load_Top At_Offset_2 00ad 01d6 | | Execute Vector,Field_Write 00ae 4814 |H | Short_Literal 0x14 00af 4807 |H | Short_Literal 0x7 00b0 4820 |H | Short_Literal 0x20 00b1 00d9 | | Load_Top At_Offset_1 00b2 e218 | | Load 0x1,0x18 00b3 01d6 | | Execute Vector,Field_Write 00b4 3ffb |? | Loop_Increasing 0xb0 00b5 00d9 | | Load_Top At_Offset_1 00b6 01d4 | | Execute Vector,Structure_Write 00b7 00bf | | Action Accept_Activation 00b8 BODY_0008: 00b8 00bc | | Action Signal_Activated 00b9 00bb | | Action Signal_Completion 00ba 0000 0000 | | .BLANK 0000[0x6] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c3 | | .CONST 0x00c3 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0001 | | .CONST 0x0001 ; Number of locals 00c3 BODY_00c0: 00c3 INIT_00c0: 00c3 4607 |F | Jump_Case 0x8 00c4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 00c5 7806 |x | Jump 0xcc ; case 0x1 00c6 7809 |x | Jump 0xd0 ; case 0x2 00c7 780d |x | Jump 0xd5 ; case 0x3 00c8 7810 |x | Jump 0xd9 ; case 0x4 00c9 7811 |x | Jump 0xdb ; case 0x5 00ca 7812 |x | Jump 0xdd ; case 0x6 00cb 7815 |x | Jump 0xe1 ; case 0x7 00cc 00da | | Load_Top At_Offset_2 00cd 0091 0135 | 5| Action Push_String_Extended_Indexed,0x135 ; "HEAVY" 00cf 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00d0 00db | | Load_Top At_Offset_3 00d1 00db | | Load_Top At_Offset_3 00d2 00e0 | | Load_Encached Standard_Cache 00d3 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00d4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00d5 00da | | Load_Top At_Offset_2 00d6 00e0 | | Load_Encached Standard_Cache 00d7 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00d8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00d9 00db | | Load_Top At_Offset_3 00da 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00db 00db | | Load_Top At_Offset_3 00dc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00dd e20e | | Load 0x1,0xe 00de 00dc | | Load_Top At_Offset_4 00df 0267 | g | Execute Discrete,Predecessor 00e0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00e1 e20e | | Load 0x1,0xe 00e2 00dc | | Load_Top At_Offset_4 00e3 0268 | h | Execute Discrete,Successor 00e4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00e5 0000 0000 | | .XXX[0x3] 00e7 0000 | | 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00eb | | .CONST 0x00eb ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0001 | | .CONST 0x0001 ; Number of locals 00eb BODY_00e8: 00eb INIT_00e8: 00eb 4607 |F | Jump_Case 0x8 00ec 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 00ed 7806 |x | Jump 0xf4 ; case 0x1 00ee 7809 |x | Jump 0xf8 ; case 0x2 00ef 780d |x | Jump 0xfd ; case 0x3 00f0 7810 |x | Jump 0x101 ; case 0x4 00f1 7811 |x | Jump 0x103 ; case 0x5 00f2 7812 |x | Jump 0x105 ; case 0x6 00f3 7815 |x | Jump 0x109 ; case 0x7 00f4 00da | | Load_Top At_Offset_2 00f5 0091 0137 | 7| Action Push_String_Extended_Indexed,0x137 ; "ACTIVE" 00f7 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00f8 00db | | Load_Top At_Offset_3 00f9 00db | | Load_Top At_Offset_3 00fa 00e0 | | Load_Encached Standard_Cache 00fb 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00fc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00fd 00da | | Load_Top At_Offset_2 00fe 00e0 | | Load_Encached Standard_Cache 00ff 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0100 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0101 00db | | Load_Top At_Offset_3 0102 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0103 00db | | Load_Top At_Offset_3 0104 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0105 e212 | | Load 0x1,0x12 0106 00dc | | Load_Top At_Offset_4 0107 0267 | g | Execute Discrete,Predecessor 0108 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0109 e212 | | Load 0x1,0x12 010a 00dc | | Load_Top At_Offset_4 010b 0268 | h | Execute Discrete,Successor 010c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 010d 0000 0000 | | .XXX[0x3] 010f 0000 | | 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0113 | | .CONST 0x0113 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0001 | | .CONST 0x0001 ; Number of locals 0113 BODY_0110: 0113 INIT_0110: 0113 4607 |F | Jump_Case 0x8 0114 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0115 7806 |x | Jump 0x11c ; case 0x1 0116 7809 |x | Jump 0x120 ; case 0x2 0117 780d |x | Jump 0x125 ; case 0x3 0118 7810 |x | Jump 0x129 ; case 0x4 0119 7811 |x | Jump 0x12b ; case 0x5 011a 7812 |x | Jump 0x12d ; case 0x6 011b 7815 |x | Jump 0x131 ; case 0x7 011c 00da | | Load_Top At_Offset_2 011d 0091 0139 | 9| Action Push_String_Extended_Indexed,0x139 ; "HOLDS" 011f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0120 00db | | Load_Top At_Offset_3 0121 00db | | Load_Top At_Offset_3 0122 00e0 | | Load_Encached Standard_Cache 0123 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0124 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0125 00da | | Load_Top At_Offset_2 0126 00e0 | | Load_Encached Standard_Cache 0127 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0128 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0129 00db | | Load_Top At_Offset_3 012a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 012b 00db | | Load_Top At_Offset_3 012c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 012d e213 | | Load 0x1,0x13 012e 00dc | | Load_Top At_Offset_4 012f 0267 | g | Execute Discrete,Predecessor 0130 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0131 e213 | | Load 0x1,0x13 0132 00dc | | Load_Top At_Offset_4 0133 0268 | h | Execute Discrete,Successor 0134 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0135 ; -------------------------------------------------------------------------------------- 0135 ; STRING TABLE 0135 ; -------------------------------------------------------------------------------------- 0135 0010 | | .STRTAB 0x0010->0x013d ; "HEAVY" 0136 0013 | | .STRTAB 0x0013->0x013f ; "LIGHT" 0137 0016 | | .STRTAB 0x0016->0x0142 ; "ACTIVE" 0138 001a | | .STRTAB 0x001a->0x0145 ; "SATISFIED" 0139 0021 | ! | .STRTAB 0x0021->0x0149 ; "HOLDS" 013a 0024 | $ | .STRTAB 0x0024->0x014c ; "IS_ON" 013b 0027 | ' | .STRTAB 0x0027->0x014e ; "IS_AT" 013c 002a | * | .STREND 0x002a->0x0151 013d 4845 4156 |HEAV| .STRTAB_STRINGS 0151 0000 0000 | | .BLANK 0000[0x7] 0158 ; -------------------------------------------------------------------------------------- 0158 ; Debug Table 0158 ; -------------------------------------------------------------------------------------- 0158 0004 0001 | | .DEBUG4 0x0004,0x0001,0x60cf,0x0000,0x0001,0x0004 015e 000b 016e | n| .DBG4T 0x000b,0x016e,0x8000,0x8000 0162 00c3 0000 | | .DBG4T 0x00c3,0x0000,0x0005,0x0000 0166 00eb 0000 | | .DBG4T 0x00eb,0x0000,0x0005,0x0000 016a 0113 0000 | | .DBG4T 0x0113,0x0000,0x0005,0x0000 016e ; -------------------------------------------------------------------------------------- 016e ; Debug chain 016e ; -------------------------------------------------------------------------------------- 016e 000b 0000 | | .DBGLEN 0x000b,0x0000 0170 000b 000f | | .DBGLNO 0x000b,0x000f,0x0014,0x0018,0x001c,0x0021,0x0026,0x002b,0x0045,0x0067,0x0091 017b 0002 0003 | | .XXX[0xb] 017d 0004 0005 | | 017f 0006 0007 | | 0181 0008 0009 | | 0183 000a 000b | | 0185 000c | | 0186 0000 0000 | | .BLANK 0000[0x7a]