|
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: 2048 (0x800)
Notes: 00_class, 01_tag, 5811_R1K_CODE, NULL, R1k_Segment, seg_000001
└─⟦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 5811 |X | .CONST 0x5811 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0198 | | .CONST 0x0198 ; 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 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0037 | 7 | .CONST 0x0037 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0012 | | .CONST 0x0012 ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 ; Debug Table 0x0 = .DEBUG 0x000b,0x01ca,0x8000,0x0000,0x0026,0x12b4,0x0000,0x0003 ; Debug Table 0x0.0x0 = 0xb,0xffff 000c 4802 |H | Short_Literal 0x2 000d 029f 0043 | C| Declare_Subprogram INIT_0040,For_Call 000f 03fe | | Declare_Type Discrete,Defined,Visible 0010 00e2 | | Load_Encached Integer_Cache ; Debug Table 0x0.0x1 = 0x10,0xfffe 0011 0129 | ) | Execute Any,Make_Visible 0012 0007 | | Action Break_Optional ; Debug Table 0x0.0x2 = 0x12,0xfffd 0013 0007 | | Action Break_Optional ; Debug Table 0x0.0x3 = 0x13,0xfffc 0014 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x4 = 0x14,0xfffb 0015 480a |H | Short_Literal 0xa 0016 029f 005b | [| Declare_Subprogram INIT_0058,For_Call 0018 03fe | | Declare_Type Discrete,Defined,Visible 0019 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x5 = 0x19,0xfffa 001a 4803 |H | Short_Literal 0x3 001b 029f 0073 | s| Declare_Subprogram INIT_0070,For_Call 001d 03fe | | Declare_Type Discrete,Defined,Visible 001e 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x6 = 0x1e,0xfff9 001f 4805 |H | Short_Literal 0x5 0020 029f 008b | | Declare_Subprogram INIT_0088,For_Call 0022 03fe | | Declare_Type Discrete,Defined,Visible 0023 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x7 = 0x23,0xfff8 0024 4809 |H | Short_Literal 0x9 0025 029f 00a3 | | Declare_Subprogram INIT_00a0,For_Call 0027 03fe | | Declare_Type Discrete,Defined,Visible 0028 0007 | | Action Break_Optional ; Debug Table 0x0.0x8 = 0x28,0xfff7 0029 0007 | | Action Break_Optional ; Debug Table 0x0.0x9 = 0x29,0xfff6 002a 0007 | | Action Break_Optional ; Debug Table 0x0.0xa = 0x2a,0xfff5 002b 0007 | | Action Break_Optional ; Debug Table 0x0.0xb = 0x2b,0xfff4 002c 0007 | | Action Break_Optional ; Debug Table 0x0.0xc = 0x2c,0xfff3 002d 0007 | | Action Break_Optional ; Debug Table 0x0.0xd = 0x2d,0xfff2 002e 0007 | | Action Break_Optional ; Debug Table 0x0.0xe = 0x2e,0xfff1 002f 0007 | | Action Break_Optional ; Debug Table 0x0.0xf = 0x2f,0xfff0 0030 0007 | | Action Break_Optional ; Debug Table 0x0.0x10 = 0x30,0xffef 0031 0007 | | Action Break_Optional ; Debug Table 0x0.0x11 = 0x31,0xffee 0032 0007 | | Action Break_Optional ; Debug Table 0x0.0x12 = 0x32,0xffed 0033 0007 | | Action Break_Optional ; Debug Table 0x0.0x13 = 0x33,0xffec 0034 0007 | | Action Break_Optional ; Debug Table 0x0.0x14 = 0x34,0xffeb 0035 0007 | | Action Break_Optional ; Debug Table 0x0.0x15 = 0x35,0xffea 0036 00bf | | Action Accept_Activation ; Debug Table 0x0.0x16 = 0x36,0xffe9 0037 BODY_0008: 0037 00bc | | Action Signal_Activated 0038 00bb | | Action Signal_Completion 0039 0000 0000 | | .BLANK 0000[0x7] 0040 ; -------------------------------------------------------------------------------------- 0040 ; SUBPROGRAM 0040 ; -------------------------------------------------------------------------------------- 0040 0043 | C | .CONST 0x0043 ; Address of begin 0041 0004 | | .CONST 0x0004 ; Address of exception handler 0042 0001 | | .CONST 0x0001 ; Number of locals 0043 BODY_0040: 0043 INIT_0040: 0043 4603 |F | Jump_Case 0x4 ; Debug Table 0x1 = .DEBUG 0x0043,0x01fa,0x0005,0x0000,0x0026,0x12b4,0x0000,0x0004 0044 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0045 7802 |x | Jump 0x48 ; case 0x1 0046 7805 |x | Jump 0x4c ; case 0x2 0047 7809 |x | Jump 0x51 ; case 0x3 0048 e5ff | | Load 0x2,-0x1 0049 0091 00b5 | | Action Push_String_Extended_Indexed,0xb5 ; "CONTROL_ITEM" 004b 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 004c e5fe | | Load 0x2,-0x2 004d e5ff | | Load 0x2,-0x1 004e 00e0 | | Load_Encached Standard_Cache 004f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0050 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0051 e5ff | | Load 0x2,-0x1 0052 00e0 | | Load_Encached Standard_Cache 0053 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0054 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0055 0000 0000 | | .XXX[0x3] 0057 0000 | | 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 4603 |F | Jump_Case 0x4 ; Debug Table 0x2 = .DEBUG 0x005b,0x01fc,0x0005,0x0000,0x0026,0x12b4,0x0000,0x001b 005c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 005d 7802 |x | Jump 0x60 ; case 0x1 005e 7805 |x | Jump 0x64 ; case 0x2 005f 7809 |x | Jump 0x69 ; case 0x3 0060 e5ff | | Load 0x2,-0x1 0061 0091 00b8 | | Action Push_String_Extended_Indexed,0xb8 ; "STATEMENT" 0063 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0064 e5fe | | Load 0x2,-0x2 0065 e5ff | | Load 0x2,-0x1 0066 00e0 | | Load_Encached Standard_Cache 0067 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0068 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0069 e5ff | | Load 0x2,-0x1 006a 00e0 | | Load_Encached Standard_Cache 006b 181c | | Execute Package,Field_Execute,Field_Number 0x1c 006c 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 006d 0000 0000 | | .XXX[0x3] 006f 0000 | | 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0073 | s | .CONST 0x0073 ; Address of begin 0071 0004 | | .CONST 0x0004 ; Address of exception handler 0072 0001 | | .CONST 0x0001 ; Number of locals 0073 BODY_0070: 0073 INIT_0070: 0073 4603 |F | Jump_Case 0x4 ; Debug Table 0x3 = .DEBUG 0x0073,0x01fe,0x0005,0x0000,0x0026,0x12b4,0x0000,0x002a 0074 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0075 7802 |x | Jump 0x78 ; case 0x1 0076 7805 |x | Jump 0x7c ; case 0x2 0077 7809 |x | Jump 0x81 ; case 0x3 0078 e5ff | | Load 0x2,-0x1 0079 0091 00c3 | | Action Push_String_Extended_Indexed,0xc3 ; "SAME" 007b 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 007c e5fe | | Load 0x2,-0x2 007d e5ff | | Load 0x2,-0x1 007e 00e0 | | Load_Encached Standard_Cache 007f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0080 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0081 e5ff | | Load 0x2,-0x1 0082 00e0 | | Load_Encached Standard_Cache 0083 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0084 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0085 0000 0000 | | .XXX[0x3] 0087 0000 | | 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 4603 |F | Jump_Case 0x4 ; Debug Table 0x4 = .DEBUG 0x008b,0x0200,0x0005,0x0000,0x0026,0x12b4,0x0000,0x0032 008c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 008d 7802 |x | Jump 0x90 ; case 0x1 008e 7805 |x | Jump 0x94 ; case 0x2 008f 7809 |x | Jump 0x99 ; case 0x3 0090 e5ff | | Load 0x2,-0x1 0091 0091 00c7 | | Action Push_String_Extended_Indexed,0xc7 ; "RECORD_IT" 0093 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0094 e5fe | | Load 0x2,-0x2 0095 e5ff | | Load 0x2,-0x1 0096 00e0 | | Load_Encached Standard_Cache 0097 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0098 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0099 e5ff | | Load 0x2,-0x1 009a 00e0 | | Load_Encached Standard_Cache 009b 181c | | Execute Package,Field_Execute,Field_Number 0x1c 009c 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 009d 0000 0000 | | .XXX[0x3] 009f 0000 | | 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 4603 |F | Jump_Case 0x4 ; Debug Table 0x5 = .DEBUG 0x00a3,0x0202,0x0005,0x0000,0x0026,0x12b4,0x0000,0x003c 00a4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 00a5 7802 |x | Jump 0xa8 ; case 0x1 00a6 7805 |x | Jump 0xac ; case 0x2 00a7 7809 |x | Jump 0xb1 ; case 0x3 00a8 e5ff | | Load 0x2,-0x1 00a9 0091 00cd | | Action Push_String_Extended_Indexed,0xcd ; "HISTORY_OVERFLOW" 00ab 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00ac e5fe | | Load 0x2,-0x2 00ad e5ff | | Load 0x2,-0x1 00ae 00e0 | | Load_Encached Standard_Cache 00af 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00b0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00b1 e5ff | | Load 0x2,-0x1 00b2 00e0 | | Load_Encached Standard_Cache 00b3 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00b4 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00b5 ; -------------------------------------------------------------------------------------- 00b5 ; STRING TABLE 00b5 ; -------------------------------------------------------------------------------------- 00b5 0046 | F | .STRTAB 0x0046->0x00d8 ; "CONTROL_ITEM" 00b6 0050 | P | .STRTAB 0x0050->0x00de ; "EXCEPTION_ITEM" 00b7 005c | \ | .STRTAB 0x005c->0x00e5 ; "SPECIAL_ITEM" 00b8 0066 | f | .STRTAB 0x0066->0x00eb ; "STATEMENT" 00b9 006d | m | .STRTAB 0x006d->0x00ef ; "UNIT_ENTRY" 00ba 0075 | u | .STRTAB 0x0075->0x00f4 ; "UNIT_EXIT" 00bb 007c | | | .STRTAB 0x007c->0x00f9 ; "UNIT_TRANSITION" 00bc 0089 | | .STRTAB 0x0089->0x0100 ; "BRANCH_POINTS" 00bd 0094 | | .STRTAB 0x0094->0x0107 ; "RENDEZVOUS_START" 00be 00a2 | | .STRTAB 0x00a2->0x010f ; "RENDEZVOUS_END" 00bf 00ae | | .STRTAB 0x00ae->0x0116 ; "ENTRY_CALL" 00c0 00b6 | | .STRTAB 0x00b6->0x011b ; "FRAME_POP" 00c1 00bd | | .STRTAB 0x00bd->0x011f ; "MACHINE_INSTRUCTION" 00c2 00ce | | .STRTAB 0x00ce->0x0129 ; "OTHER_GRANULARITY" 00c3 00dd | | .STRTAB 0x00dd->0x0131 ; "SAME" 00c4 00df | | .STRTAB 0x00df->0x0133 ; "PREVIOUS" 00c5 00e5 | | .STRTAB 0x00e5->0x0137 ; "ANY" 00c6 00e6 | | .STRTAB 0x00e6->0x0139 ; "OTHER_LEVEL" 00c7 00ef | | .STRTAB 0x00ef->0x013e ; "RECORD_IT" 00c8 00f6 | | .STRTAB 0x00f6->0x0143 ; "PROFILE" 00c9 00fb | | .STRTAB 0x00fb->0x0146 ; "INFORM" 00ca 00ff | | .STRTAB 0x00ff->0x0149 ; "CONTINUE" 00cb 0105 | | .STRTAB 0x0105->0x014d ; "STOP" 00cc 0107 | | .STRTAB 0x0107->0x014f ; "OTHER_ACTION" 00cd 0111 | | .STRTAB 0x0111->0x0155 ; "HISTORY_OVERFLOW" 00ce 011f | | .STRTAB 0x011f->0x015d ; "DEADLOCK" 00cf 0125 | % | .STRTAB 0x0125->0x0161 ; "TERMINATION" 00d0 012e | . | .STRTAB 0x012e->0x0167 ; "TASK_CREATION" 00d1 0139 | 9 | .STRTAB 0x0139->0x016d ; "TASK_INFORM" 00d2 0142 | B | .STRTAB 0x0142->0x0173 ; "TASK_TERMINATION" 00d3 0150 | P | .STRTAB 0x0150->0x017b ; "TASK_STOP" 00d4 0157 | W | .STRTAB 0x0157->0x017f ; "INSTRUCTION_STEP" 00d5 0165 | e | .STRTAB 0x0165->0x0187 ; "USER_BREAK" 00d6 016d | m | .STRTAB 0x016d->0x018c ; "OTHER_TYPE" 00d7 0175 | u | .STREND 0x0175->0x0191 00d8 434f 4e54 |CONT| .STRTAB_STRINGS 0192 0000 0000 | | .BLANK 0000[0x6] 0198 ; -------------------------------------------------------------------------------------- 0198 ; Debug Table 0198 ; -------------------------------------------------------------------------------------- 0198 0003 0006 | | .CONST 0x0003,0x0006 019a 000b 01ca | | .DEBUG 0x000b,0x01ca,0x8000,0x0000,0x0026,0x12b4,0x0000,0x0003 01a2 0043 01fa | C | .DEBUG 0x0043,0x01fa,0x0005,0x0000,0x0026,0x12b4,0x0000,0x0004 01aa 005b 01fc | [ | .DEBUG 0x005b,0x01fc,0x0005,0x0000,0x0026,0x12b4,0x0000,0x001b 01b2 0073 01fe | s | .DEBUG 0x0073,0x01fe,0x0005,0x0000,0x0026,0x12b4,0x0000,0x002a 01ba 008b 0200 | | .DEBUG 0x008b,0x0200,0x0005,0x0000,0x0026,0x12b4,0x0000,0x0032 01c2 00a3 0202 | | .DEBUG 0x00a3,0x0202,0x0005,0x0000,0x0026,0x12b4,0x0000,0x003c 01ca ; -------------------------------------------------------------------------------------- 01ca ; Debug3 Subtable 0x0 01ca ; -------------------------------------------------------------------------------------- 01ca 0017 0000 | | .DBG3TAB 0x0017,0x0000 01cc 000b ffff | | .CONST 0x000b,0xffff 01ce 0010 fffe | | .CONST 0x0010,0xfffe 01d0 0012 fffd | | .CONST 0x0012,0xfffd 01d2 0013 fffc | | .CONST 0x0013,0xfffc 01d4 0014 fffb | | .CONST 0x0014,0xfffb 01d6 0019 fffa | | .CONST 0x0019,0xfffa 01d8 001e fff9 | | .CONST 0x001e,0xfff9 01da 0023 fff8 | # | .CONST 0x0023,0xfff8 01dc 0028 fff7 | ( | .CONST 0x0028,0xfff7 01de 0029 fff6 | ) | .CONST 0x0029,0xfff6 01e0 002a fff5 | * | .CONST 0x002a,0xfff5 01e2 002b fff4 | + | .CONST 0x002b,0xfff4 01e4 002c fff3 | , | .CONST 0x002c,0xfff3 01e6 002d fff2 | - | .CONST 0x002d,0xfff2 01e8 002e fff1 | . | .CONST 0x002e,0xfff1 01ea 002f fff0 | / | .CONST 0x002f,0xfff0 01ec 0030 ffef | 0 | .CONST 0x0030,0xffef 01ee 0031 ffee | 1 | .CONST 0x0031,0xffee 01f0 0032 ffed | 2 | .CONST 0x0032,0xffed 01f2 0033 ffec | 3 | .CONST 0x0033,0xffec 01f4 0034 ffeb | 4 | .CONST 0x0034,0xffeb 01f6 0035 ffea | 5 | .CONST 0x0035,0xffea 01f8 0036 ffe9 | 6 | .CONST 0x0036,0xffe9 01fa ; -------------------------------------------------------------------------------------- 01fa ; Debug3 Subtable 0x1 01fa ; -------------------------------------------------------------------------------------- 01fa 0000 0000 | | .DBG3TAB 0x0000,0x0000 01fc ; -------------------------------------------------------------------------------------- 01fc ; Debug3 Subtable 0x2 01fc ; -------------------------------------------------------------------------------------- 01fc 0000 0000 | | .DBG3TAB 0x0000,0x0000 01fe ; -------------------------------------------------------------------------------------- 01fe ; Debug3 Subtable 0x3 01fe ; -------------------------------------------------------------------------------------- 01fe 0000 0000 | | .DBG3TAB 0x0000,0x0000 0200 ; -------------------------------------------------------------------------------------- 0200 ; Debug3 Subtable 0x4 0200 ; -------------------------------------------------------------------------------------- 0200 0000 0000 | | .DBG3TAB 0x0000,0x0000 0202 ; -------------------------------------------------------------------------------------- 0202 ; Debug3 Subtable 0x5 0202 ; -------------------------------------------------------------------------------------- 0202 0000 0000 | | .DBG3TAB 0x0000,0x0000 0204 0000 0000 | | .BLANK 0000[0x1fc]