|
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, 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 00f0 | | .CONST 0x00f0 ; 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 0023 | # | .CONST 0x0023 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0011 | | .CONST 0x0011 ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0 ; Debug Table 0x0 = .DEBUG 0x000b,0x0122,0x8000,0x0000,0x0026,0x1344,0x0000,0x0005
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 4806 |H | Short_Literal 0x6
000d 029f 002b | +| Declare_Subprogram INIT_0028,For_Call
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x1 = 0x10,0xfffe
0011 4805 |H | Short_Literal 0x5
0012 e20d | | Load 0x1,0xd
0013 03f9 | | Declare_Type Discrete,Constrained,Visible
0014 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0x14,0xfffd
0016 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x16,0xfffc
0018 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x18,0xfffb
001a 0007 | | Action Break_Optional ; Debug Table 0x0.0x5 = 0x1a,0xfffa
001b 0007 | | Action Break_Optional ; Debug Table 0x0.0x6 = 0x1b,0xfff9
001c 00bf | | Action Accept_Activation ; Debug Table 0x0.0x7 = 0x1c,0xfff8
001d 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1 = .DEBUG 0x001d,0x0134,0x8000,0x0000,0x0026,0x13c4,0x0000,0x0005
; Debug Table 0x1.0x0 = 0x1d,0xffff
001e 00c7 | | Action Elaborate_Subprogram
001f 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x1 = 0x1f,0xfffe
0020 00c7 | | Action Elaborate_Subprogram
0021 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x2 = 0x21,0xfffd
0022 00c7 | | Action Elaborate_Subprogram
0023 BODY_0008:
0023 00bc | | Action Signal_Activated
0024 00bb | | Action Signal_Completion
0025 0000 0000 | | .XXX[0x3]
0027 0000 | |
0028 ; --------------------------------------------------------------------------------------
0028 ; SUBPROGRAM
0028 ; --------------------------------------------------------------------------------------
0028 002b | + | .CONST 0x002b ; Address of begin
0029 0004 | | .CONST 0x0004 ; Address of exception handler
002a 0001 | | .CONST 0x0001 ; Number of locals
002b BODY_0028:
002b INIT_0028:
002b 4603 |F | Jump_Case 0x4 ; Debug Table 0x2 = .DEBUG 0x002b,0x013c,0x0005,0x0000,0x0026,0x1344,0x0000,0x0006
002c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
002d 7802 |x | Jump 0x30 ; case 0x1
002e 7805 |x | Jump 0x34 ; case 0x2
002f 7809 |x | Jump 0x39 ; case 0x3
0030 e5ff | | Load 0x2,-0x1
0031 0091 009e | | Action Push_String_Extended_Indexed,0x9e ; "CALLS"
0033 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0034 e5fe | | Load 0x2,-0x2
0035 e5ff | | Load 0x2,-0x1
0036 00e0 | | Load_Encached Standard_Cache
0037 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0038 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0039 e5ff | | Load 0x2,-0x1
003a 00e0 | | Load_Encached Standard_Cache
003b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
003c 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
003d 0000 0000 | | .XXX[0x3]
003f 0000 | |
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 e5ff | | Load 0x2,-0x1 ; Debug Table 0x3 = .DEBUG 0x0043,0x013e,0x0002,0x0000,0x0026,0x1344,0x0000,0x0018
; Debug Table 0x3.0x0 = 0x43,0x1
0044 4606 |F | Jump_Case 0x7
0045 7806 |x | Jump 0x4c ; case 0x0
0046 7808 |x | Jump 0x4f ; case 0x1
0047 780a |x | Jump 0x52 ; case 0x2
0048 780f |x | Jump 0x58 ; case 0x3
0049 780b |x | Jump 0x55 ; case 0x4
004a 7813 |x | Jump 0x5e ; case 0x5
004b 780f |x | Jump 0x5b ; case 0x6
004c 0092 00a5 | | Action Push_String_Extended,0xa5 ; "Call"
; Debug Table 0x3.0x1 = 0x4c,0x2
004e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
004f 0092 00a6 | | Action Push_String_Extended,0xa6 ; "Statement"
; Debug Table 0x3.0x2 = 0x4f,0x3
0051 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0052 0092 00a7 | | Action Push_String_Extended,0xa7 ; "Rendezvous"
; Debug Table 0x3.0x3 = 0x52,0x4
0054 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0055 0092 00a8 | | Action Push_String_Extended,0xa8 ; "Propagate exception"
; Debug Table 0x3.0x4 = 0x55,0x5
0057 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0058 0092 00a9 | | Action Push_String_Extended,0xa9 ; "Unit exit"
; Debug Table 0x3.0x5 = 0x58,0x6
005a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
005b 0092 00aa | | Action Push_String_Extended,0xaa ; "Exception"
; Debug Table 0x3.0x6 = 0x5b,0x7
005d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
005e 0092 00ab | | Action Push_String_Extended,0xab ; "Machine Instruction"
; Debug Table 0x3.0x7 = 0x5e,0x8
0060 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0061 0000 0000 | | .BLANK 0000[0x7]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b | k | .CONST 0x006b ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0001 | | .CONST 0x0001 ; Number of locals
006b BODY_0068:
006b INIT_0068:
006b e5ff | | Load 0x2,-0x1 ; Debug Table 0x4 = .DEBUG 0x006b,0x0150,0x0002,0x0000,0x0026,0x1344,0x0000,0x0021
; Debug Table 0x4.0x0 = 0x6b,0x1
006c 4605 |F | Jump_Case 0x6
006d 7805 |x | Jump 0x73 ; case 0x0
006e 7806 |x | Jump 0x75 ; case 0x1
006f 7807 |x | Jump 0x77 ; case 0x2
0070 780a |x | Jump 0x7b ; case 0x3
0071 7807 |x | Jump 0x79 ; case 0x4
0072 780a |x | Jump 0x7d ; case 0x5
0073 4801 |H | Short_Literal 0x1 ; Debug Table 0x4.0x1 = 0x73,0x2
0074 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0075 4800 |H | Short_Literal 0x0 ; Debug Table 0x4.0x2 = 0x75,0x3
0076 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0077 4805 |H | Short_Literal 0x5 ; Debug Table 0x4.0x3 = 0x77,0x4
0078 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0079 4808 |H | Short_Literal 0x8 ; Debug Table 0x4.0x4 = 0x79,0x5
007a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
007b 4802 |H | Short_Literal 0x2 ; Debug Table 0x4.0x5 = 0x7b,0x6
007c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
007d 4809 |H | Short_Literal 0x9 ; Debug Table 0x4.0x6 = 0x7d,0x7
007e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
007f 0000 | | .XXX[0x1]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083 | | .CONST 0x0083 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0001 | | .CONST 0x0001 ; Number of locals
0083 BODY_0080:
0083 INIT_0080:
0083 e5ff | | Load 0x2,-0x1 ; Debug Table 0x5 = .DEBUG 0x0083,0x0160,0x0002,0x0000,0x0026,0x1344,0x0000,0x002c
; Debug Table 0x5.0x0 = 0x83,0x1
0084 460a |F | Jump_Case 0xb
0085 780a |x | Jump 0x90 ; case 0x0
0086 780b |x | Jump 0x92 ; case 0x1
0087 780c |x | Jump 0x94 ; case 0x2
0088 7813 |x | Jump 0x9c ; case 0x3
0089 7812 |x | Jump 0x9c ; case 0x4
008a 780b |x | Jump 0x96 ; case 0x5
008b 7810 |x | Jump 0x9c ; case 0x6
008c 780f |x | Jump 0x9c ; case 0x7
008d 780a |x | Jump 0x98 ; case 0x8
008e 780b |x | Jump 0x9a ; case 0x9
008f 780c |x | Jump 0x9c ; case 0xa
0090 4801 |H | Short_Literal 0x1 ; Debug Table 0x5.0x1 = 0x90,0x2
0091 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0092 4800 |H | Short_Literal 0x0 ; Debug Table 0x5.0x2 = 0x92,0x3
0093 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0094 4803 |H | Short_Literal 0x3 ; Debug Table 0x5.0x3 = 0x94,0x4
0095 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0096 4802 |H | Short_Literal 0x2 ; Debug Table 0x5.0x4 = 0x96,0x5
0097 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0098 4804 |H | Short_Literal 0x4 ; Debug Table 0x5.0x5 = 0x98,0x6
0099 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
009a 4805 |H | Short_Literal 0x5 ; Debug Table 0x5.0x6 = 0x9a,0x7
009b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
009c 4831 |H1 | Short_Literal 0x31
009d 0257 | W | Execute Discrete,Raise
009e ; --------------------------------------------------------------------------------------
009e ; STRING TABLE
009e ; --------------------------------------------------------------------------------------
009e 001e | | .STRTAB 0x001e->0x00ad ; "CALLS"
009f 0021 | ! | .STRTAB 0x0021->0x00af ; "STMT"
00a0 0023 | # | .STRTAB 0x0023->0x00b1 ; "RENDEZVOUS"
00a1 002b | + | .STRTAB 0x002b->0x00b6 ; "UNIT_EXIT"
00a2 0032 | 2 | .STRTAB 0x0032->0x00bb ; "FRAME_POP"
00a3 0039 | 9 | .STRTAB 0x0039->0x00bf ; "INSTR"
00a4 003c | < | .STRTAB 0x003c->0x00c2 ; "EXC"
00a5 003d | = | .STRTAB 0x003d->0x00c3 ; "Call"
00a6 003f | ? | .STRTAB 0x003f->0x00c5 ; "Statement"
00a7 0046 | F | .STRTAB 0x0046->0x00ca ; "Rendezvous"
00a8 004e | N | .STRTAB 0x004e->0x00cf ; "Propagate exception"
00a9 005f | _ | .STRTAB 0x005f->0x00d8 ; "Unit exit"
00aa 0066 | f | .STRTAB 0x0066->0x00dd ; "Exception"
00ab 006d | m | .STRTAB 0x006d->0x00e1 ; "Machine Instruction"
00ac 007e | ~ | .STREND 0x007e->0x00eb
00ad 4341 4c4c |CALL| .STRTAB_STRINGS
00eb 0000 0000 | | .BLANK 0000[0x5]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; Debug Table
00f0 ; --------------------------------------------------------------------------------------
00f0 0003 0006 | | .CONST 0x0003,0x0006
00f2 000b 0122 | "| .DEBUG 0x000b,0x0122,0x8000,0x0000,0x0026,0x1344,0x0000,0x0005
00fa 001d 0134 | 4| .DEBUG 0x001d,0x0134,0x8000,0x0000,0x0026,0x13c4,0x0000,0x0005
0102 002b 013c | + <| .DEBUG 0x002b,0x013c,0x0005,0x0000,0x0026,0x1344,0x0000,0x0006
010a 0043 013e | C >| .DEBUG 0x0043,0x013e,0x0002,0x0000,0x0026,0x1344,0x0000,0x0018
0112 006b 0150 | k P| .DEBUG 0x006b,0x0150,0x0002,0x0000,0x0026,0x1344,0x0000,0x0021
011a 0083 0160 | `| .DEBUG 0x0083,0x0160,0x0002,0x0000,0x0026,0x1344,0x0000,0x002c
0122 ; --------------------------------------------------------------------------------------
0122 ; Debug3 Subtable 0x0
0122 ; --------------------------------------------------------------------------------------
0122 0008 0000 | | .DBG3TAB 0x0008,0x0000
0124 000b ffff | | .CONST 0x000b,0xffff
0126 0010 fffe | | .CONST 0x0010,0xfffe
0128 0014 fffd | | .CONST 0x0014,0xfffd
012a 0016 fffc | | .CONST 0x0016,0xfffc
012c 0018 fffb | | .CONST 0x0018,0xfffb
012e 001a fffa | | .CONST 0x001a,0xfffa
0130 001b fff9 | | .CONST 0x001b,0xfff9
0132 001c fff8 | | .CONST 0x001c,0xfff8
0134 ; --------------------------------------------------------------------------------------
0134 ; Debug3 Subtable 0x1
0134 ; --------------------------------------------------------------------------------------
0134 0003 0000 | | .DBG3TAB 0x0003,0x0000
0136 001d ffff | | .CONST 0x001d,0xffff
0138 001f fffe | | .CONST 0x001f,0xfffe
013a 0021 fffd | ! | .CONST 0x0021,0xfffd
013c ; --------------------------------------------------------------------------------------
013c ; Debug3 Subtable 0x2
013c ; --------------------------------------------------------------------------------------
013c 0000 0000 | | .DBG3TAB 0x0000,0x0000
013e ; --------------------------------------------------------------------------------------
013e ; Debug3 Subtable 0x3
013e ; --------------------------------------------------------------------------------------
013e 0000 0008 | | .DBG3TAB 0x0000,0x0008
0140 0043 0001 | C | .CONST 0x0043,0x0001
0142 004c 0002 | L | .CONST 0x004c,0x0002
0144 004f 0003 | O | .CONST 0x004f,0x0003
0146 0052 0004 | R | .CONST 0x0052,0x0004
0148 0055 0005 | U | .CONST 0x0055,0x0005
014a 0058 0006 | X | .CONST 0x0058,0x0006
014c 005b 0007 | [ | .CONST 0x005b,0x0007
014e 005e 0008 | ^ | .CONST 0x005e,0x0008
0150 ; --------------------------------------------------------------------------------------
0150 ; Debug3 Subtable 0x4
0150 ; --------------------------------------------------------------------------------------
0150 0000 0007 | | .DBG3TAB 0x0000,0x0007
0152 006b 0001 | k | .CONST 0x006b,0x0001
0154 0073 0002 | s | .CONST 0x0073,0x0002
0156 0075 0003 | u | .CONST 0x0075,0x0003
0158 0077 0004 | w | .CONST 0x0077,0x0004
015a 0079 0005 | y | .CONST 0x0079,0x0005
015c 007b 0006 | { | .CONST 0x007b,0x0006
015e 007d 0007 | } | .CONST 0x007d,0x0007
0160 ; --------------------------------------------------------------------------------------
0160 ; Debug3 Subtable 0x5
0160 ; --------------------------------------------------------------------------------------
0160 0000 0007 | | .DBG3TAB 0x0000,0x0007
0162 0083 0001 | | .CONST 0x0083,0x0001
0164 0090 0002 | | .CONST 0x0090,0x0002
0166 0092 0003 | | .CONST 0x0092,0x0003
0168 0094 0004 | | .CONST 0x0094,0x0004
016a 0096 0005 | | .CONST 0x0096,0x0005
016c 0098 0006 | | .CONST 0x0098,0x0006
016e 009a 0007 | | .CONST 0x009a,0x0007
0170 0000 0000 | | .BLANK 0000[0x90]