|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_3a88d5
└─⟦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 5900 |Y | .CONST 0x5900 ; 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 0000 | | .CONST 0x0000 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0051 | Q | .CONST 0x0051 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0015 | | .CONST 0x0015 ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 4800 |H | Short_Literal 0x0 000d 029f 005b | [| Declare_Subprogram INIT_0058,For_Call 000f 03fe | | Declare_Type Discrete,Defined,Visible 0010 029c 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible 0012 0093 0000 | | push_full_address 0x0 0014 6073 |`s | Indirect_Literal Discrete,0x88,{0x80000000, 0x00030000} 0015 0273 | s | Execute Discrete,Plus 0016 e002 | | Load 0x0,0x2 0017 0273 | s | Execute Discrete,Plus 0018 e003 | | Load 0x0,0x3 0019 0273 | s | Execute Discrete,Plus 001a 0092 0110 | | Action Push_String_Extended,0x110 ; "state" 001c 00db | | Load_Top At_Offset_3 001d 1d0e | | Execute_Immediate Reference_Lex_1,0xe 001e e004 | | Load 0x0,0x4 001f 0386 | | Declare_Variable Package,Visible 0020 00d8 | | Load_Top At_Offset_0 0021 020f | | Execute Module,Activate 0022 4800 |H | Short_Literal 0x0 0023 4801 |H | Short_Literal 0x1 0024 029f 00a3 | | Declare_Subprogram INIT_00a0,For_Call 0026 03fe | | Declare_Type Discrete,Defined,Visible 0027 029c 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible 0029 0093 0000 | | push_full_address 0x0 002b 6058 |`X | Indirect_Literal Discrete,0x84,{0x80000000, 0x00020000} 002c 0273 | s | Execute Discrete,Plus 002d e002 | | Load 0x0,0x2 002e 0273 | s | Execute Discrete,Plus 002f e005 | | Load 0x0,0x5 0030 0273 | s | Execute Discrete,Plus 0031 0092 0111 | | Action Push_String_Extended,0x111 ; "object" 0033 00db | | Load_Top At_Offset_3 0034 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0035 e004 | | Load 0x0,0x4 0036 0386 | | Declare_Variable Package,Visible 0037 00d8 | | Load_Top At_Offset_0 0038 020f | | Execute Module,Activate 0039 4800 |H | Short_Literal 0x0 003a 4800 |H | Short_Literal 0x0 003b 029f 00db | | Declare_Subprogram INIT_00d8,For_Call 003d 03fe | | Declare_Type Discrete,Defined,Visible 003e 029c 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible 0040 0093 0000 | | push_full_address 0x0 0042 603d |`= | Indirect_Literal Discrete,0x80,{0x80000000, 0x00010000} 0043 0273 | s | Execute Discrete,Plus 0044 e002 | | Load 0x0,0x2 0045 0273 | s | Execute Discrete,Plus 0046 e006 | | Load 0x0,0x6 0047 0273 | s | Execute Discrete,Plus 0048 0092 0112 | | Action Push_String_Extended,0x112 ; "number" 004a 00db | | Load_Top At_Offset_3 004b 1d14 | | Execute_Immediate Reference_Lex_1,0x14 004c e004 | | Load 0x0,0x4 004d 0386 | | Declare_Variable Package,Visible 004e 00d8 | | Load_Top At_Offset_0 004f 020f | | Execute Module,Activate 0050 00bf | | Action Accept_Activation 0051 BODY_0008: 0051 00bc | | Action Signal_Activated 0052 00bb | | Action Signal_Completion 0053 0000 0000 | | .BLANK 0000[0x5] 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 4607 |F | Jump_Case 0x8 005c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 005d 7807 |x | Jump 0x65 ; case 0x1 005e 780a |x | Jump 0x69 ; case 0x2 005f 780e |x | Jump 0x6e ; case 0x3 0060 7811 |x | Jump 0x72 ; case 0x4 0061 7812 |x | Jump 0x74 ; case 0x5 0062 7813 |x | Jump 0x76 ; case 0x6 0063 7816 |x | Jump 0x7a ; case 0x7 0064 4302 |C | .XXX[0x1] 0065 00da | | Load_Top At_Offset_2 0066 0091 010c | | Action Push_String_Extended_Indexed,0x10c ; "VALUE" 0068 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0069 00db | | Load_Top At_Offset_3 006a 00db | | Load_Top At_Offset_3 006b 00e0 | | Load_Encached Standard_Cache 006c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 006d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 006e 00da | | Load_Top At_Offset_2 006f 00e0 | | Load_Encached Standard_Cache 0070 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0071 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0072 00db | | Load_Top At_Offset_3 0073 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0074 00db | | Load_Top At_Offset_3 0075 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0076 e20d | | Load 0x1,0xd 0077 00dc | | Load_Top At_Offset_4 0078 0267 | g | Execute Discrete,Predecessor 0079 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 007a e20d | | Load 0x1,0xd 007b 00dc | | Load_Top At_Offset_4 007c 0268 | h | Execute Discrete,Successor 007d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 007e 0000 0000 | | .XXX[0x2] 0080 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 0084 8000 0000 | | .LITERAL {0x80000000, 0x00020000} 0088 8000 0000 | | .LITERAL {0x80000000, 0x00030000} 008c 0000 0000 | | .BLANK 0000[0x4] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0093 | | .CONST 0x0093 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0001 | | .CONST 0x0001 ; Number of locals 0093 BODY_0090: 0093 INIT_0090: 0093 00da | | Load_Top At_Offset_2 0094 00d8 | | Load_Top At_Offset_0 0095 00e2 | | Load_Encached Integer_Cache 0096 0260 | ` | Execute Discrete,In_Type 0097 7001 |p | Jump_Nonzero 0x99 0098 0801 | | Execute_Immediate Raise,0x1 0099 00e0 | | Load_Encached Standard_Cache 009a 1818 | | Execute Package,Field_Execute,Field_Number 0x18 009b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 009c 0000 0000 | | .BLANK 0000[0x4] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a3 | | .CONST 0x00a3 ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0001 | | .CONST 0x0001 ; Number of locals 00a3 BODY_00a0: 00a3 INIT_00a0: 00a3 4607 |F | Jump_Case 0x8 00a4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 00a5 7807 |x | Jump 0xad ; case 0x1 00a6 780a |x | Jump 0xb1 ; case 0x2 00a7 780e |x | Jump 0xb6 ; case 0x3 00a8 7811 |x | Jump 0xba ; case 0x4 00a9 7812 |x | Jump 0xbc ; case 0x5 00aa 7813 |x | Jump 0xbe ; case 0x6 00ab 7816 |x | Jump 0xc2 ; case 0x7 00ac 4302 |C | .XXX[0x1] 00ad 00da | | Load_Top At_Offset_2 00ae 0091 010d | | Action Push_String_Extended_Indexed,0x10d ; "X" 00b0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00b1 00db | | Load_Top At_Offset_3 00b2 00db | | Load_Top At_Offset_3 00b3 00e0 | | Load_Encached Standard_Cache 00b4 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00b5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00b6 00da | | Load_Top At_Offset_2 00b7 00e0 | | Load_Encached Standard_Cache 00b8 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00b9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00ba 00db | | Load_Top At_Offset_3 00bb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00bc 00db | | Load_Top At_Offset_3 00bd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00be e210 | | Load 0x1,0x10 00bf 00dc | | Load_Top At_Offset_4 00c0 0267 | g | Execute Discrete,Predecessor 00c1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00c2 e210 | | Load 0x1,0x10 00c3 00dc | | Load_Top At_Offset_4 00c4 0268 | h | Execute Discrete,Successor 00c5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00c6 0000 0000 | | .XXX[0x2] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00cb | | .CONST 0x00cb ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0001 | | .CONST 0x0001 ; Number of locals 00cb BODY_00c8: 00cb INIT_00c8: 00cb 00da | | Load_Top At_Offset_2 00cc 00d8 | | Load_Top At_Offset_0 00cd 00e2 | | Load_Encached Integer_Cache 00ce 0260 | ` | Execute Discrete,In_Type 00cf 7001 |p | Jump_Nonzero 0xd1 00d0 0801 | | Execute_Immediate Raise,0x1 00d1 00e0 | | Load_Encached Standard_Cache 00d2 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00d3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00d4 0000 0000 | | .BLANK 0000[0x4] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00db | | .CONST 0x00db ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0001 | | .CONST 0x0001 ; Number of locals 00db BODY_00d8: 00db INIT_00d8: 00db 4607 |F | Jump_Case 0x8 00dc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 00dd 7807 |x | Jump 0xe5 ; case 0x1 00de 780a |x | Jump 0xe9 ; case 0x2 00df 780e |x | Jump 0xee ; case 0x3 00e0 7811 |x | Jump 0xf2 ; case 0x4 00e1 7812 |x | Jump 0xf4 ; case 0x5 00e2 7813 |x | Jump 0xf6 ; case 0x6 00e3 7816 |x | Jump 0xfa ; case 0x7 00e4 4302 |C | .XXX[0x1] 00e5 00da | | Load_Top At_Offset_2 00e6 0091 010f | | Action Push_String_Extended_Indexed,0x10f ; "VALUE" 00e8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00e9 00db | | Load_Top At_Offset_3 00ea 00db | | Load_Top At_Offset_3 00eb 00e0 | | Load_Encached Standard_Cache 00ec 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00ed 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00ee 00da | | Load_Top At_Offset_2 00ef 00e0 | | Load_Encached Standard_Cache 00f0 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00f1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00f2 00db | | Load_Top At_Offset_3 00f3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00f4 00db | | Load_Top At_Offset_3 00f5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00f6 e213 | | Load 0x1,0x13 00f7 00dc | | Load_Top At_Offset_4 00f8 0267 | g | Execute Discrete,Predecessor 00f9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00fa e213 | | Load 0x1,0x13 00fb 00dc | | Load_Top At_Offset_4 00fc 0268 | h | Execute Discrete,Successor 00fd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00fe 0000 0000 | | .XXX[0x2] 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 00da | | Load_Top At_Offset_2 0104 00d8 | | Load_Top At_Offset_0 0105 00e2 | | Load_Encached Integer_Cache 0106 0260 | ` | Execute Discrete,In_Type 0107 7001 |p | Jump_Nonzero 0x109 0108 0801 | | Execute_Immediate Raise,0x1 0109 00e0 | | Load_Encached Standard_Cache 010a 1818 | | Execute Package,Field_Execute,Field_Number 0x18 010b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 010c ; -------------------------------------------------------------------------------------- 010c ; STRING TABLE 010c ; -------------------------------------------------------------------------------------- 010c 0010 | | .STRTAB 0x0010->0x0114 ; "VALUE" 010d 0013 | | .STRTAB 0x0013->0x0116 ; "X" 010e 0012 | | .STRTAB 0x0012->0x0117 ; "Y" 010f 0011 | | .STRTAB 0x0011->0x0117 ; "VALUE" 0110 0014 | | .STRTAB 0x0014->0x011a ; "state" 0111 0017 | | .STRTAB 0x0017->0x011c ; "object" 0112 001b | | .STRTAB 0x001b->0x011f ; "number" 0113 001f | | .STREND 0x001f->0x0122 0114 5641 4c55 |VALU| .STRTAB_STRINGS 0123 0000 0000 | | .BLANK 0000[0x5] 0128 ; -------------------------------------------------------------------------------------- 0128 ; Debug Table 0128 ; -------------------------------------------------------------------------------------- 0128 0004 0004 | | .DEBUG4 0x0004,0x0004,0x62b5,0x0000,0x0001,0x0007 012e 000b 014a | J| .DBG4T 0x000b,0x014a,0x8000,0x0000 0132 005b 0000 | [ | .DBG4T 0x005b,0x0000,0x0005,0x0000 0136 0093 0000 | | .DBG4T 0x0093,0x0000,0x000c,0x0000 013a 00a3 0000 | | .DBG4T 0x00a3,0x0000,0x0005,0x0000 013e 00cb 0000 | | .DBG4T 0x00cb,0x0000,0x000c,0x0000 0142 00db 0000 | | .DBG4T 0x00db,0x0000,0x0005,0x0000 0146 0103 0000 | | .DBG4T 0x0103,0x0000,0x000c,0x0000 014a ; -------------------------------------------------------------------------------------- 014a ; Debug chain 014a ; -------------------------------------------------------------------------------------- 014a 0006 0000 | | .DBGLEN 0x0006,0x0000 014c 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0022,0x0027,0x0039,0x003e 0152 0000 0000 | | .BLANK 0000[0xae]