|
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, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0500e0
└─⟦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 5813 |X | .CONST 0x5813 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 00e8 | | .CONST 0x00e8 ; 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 0025 | % | .CONST 0x0025 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0012 | | .CONST 0x0012 ; Number of locals
000b INIT_0008:
000b 0007 | | Action Break_Optional ; Debug Table 0x0 = .DEBUG 0x000b,0x012a,0x8000,0x0000,0x0057,0xb895,0x0000,0x000b
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 029a 002b | +| Declare_Subprogram INIT_0028,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xc,0xfffe
000e 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0xe,0xfffd
0010 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x10,0xfffc
0012 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x12,0xfffb
0014 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x14,0xfffa
0016 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x16,0xfff9
0018 00bf | | Action Accept_Activation
0019 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1 = .DEBUG 0x0019,0x013a,0x8000,0x0000,0x0058,0x6f35,0x0000,0x000d
; Debug Table 0x1.0x0 = 0x19,0xffff
001a 00c7 | | Action Elaborate_Subprogram
001b 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x1 = 0x1b,0xfffe
001c 00c7 | | Action Elaborate_Subprogram
001d 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x2 = 0x1d,0xfffd
001e 00c7 | | Action Elaborate_Subprogram
001f 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x3 = 0x1f,0xfffc
0020 00c7 | | Action Elaborate_Subprogram
0021 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x4 = 0x21,0xfffb
0022 00c7 | | Action Elaborate_Subprogram
0023 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x5 = 0x23,0xfffa
0024 00c7 | | Action Elaborate_Subprogram
0025 BODY_0008:
0025 00bc | | Action Signal_Activated
0026 00bb | | Action Signal_Completion
0027 0000 | | .XXX[0x1]
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 e5fd | | Load 0x2,-0x3 ; Debug Table 0x2 = .DEBUG 0x002b,0x0148,0x0001,0x0000,0x0057,0xb895,0x0000,0x000f
; Debug Table 0x2.0x0 = 0x2b,0x1
002c 6805 |h | Jump_Zero 0x32
002d 4801 |H | Short_Literal 0x1 ; Debug Table 0x2.0x1 = 0x2d,0x2
002e 00db | | Load_Top At_Offset_3
002f e001 | | Load 0x0,0x1
0030 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0031 7808 |x | Jump 0x3a
0032 e002 | | Load 0x0,0x2 ; Debug Table 0x2.0x2 = 0x32,0x3
0033 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0034 0092 00bc | | Action Push_String_Extended,0xbc ; ">>> "
; Debug Table 0x2.0x3 = 0x34,0x4
0036 00db | | Load_Top At_Offset_3
0037 01cc | | Execute Vector,Catenate
0038 e002 | | Load 0x0,0x2
0039 180f | | Execute Package,Field_Execute,Field_Number 0xf
003a 00db | | Load_Top At_Offset_3 ; Debug Table 0x2.0x4 = 0x3a,0x5
003b 6802 |h | Jump_Zero 0x3e
003c 607b |`{ | Indirect_Literal Discrete,0xb8,{0x00000000, 0x57b89501} ; Debug Table 0x2.0x5 = 0x3c,0x6
003d 0257 | W | Execute Discrete,Raise
003e 4504 |E | Exit_Suprogram New_Top_Offset 0x4
003f 0000 | | .XXX[0x1]
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 00da | | Load_Top At_Offset_2 ; Debug Table 0x3 = .DEBUG 0x0043,0x0156,0x0001,0x0000,0x0057,0xb895,0x0000,0x0021
; Debug Table 0x3.0x0 = 0x43,0x1
0044 e003 | | Load 0x0,0x3
0045 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0046 680e |h | Jump_Zero 0x55
0047 e5fc | | Load 0x2,-0x4 ; Debug Table 0x3.0x1 = 0x47,0x2
0048 e5fd | | Load 0x2,-0x3
0049 0092 00bd | | Action Push_String_Extended,0xbd ; "Problem encountered while "
004b e5fe | | Load 0x2,-0x2
004c 01cc | | Execute Vector,Catenate
004d 0092 00be | | Action Push_String_Extended,0xbe ; ": "
004f 01cc | | Execute Vector,Catenate
0050 e5ff | | Load 0x2,-0x1
0051 e003 | | Load 0x0,0x3
0052 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0053 01cc | | Execute Vector,Catenate
0054 820d | | Call 0x1,0xd
0055 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0056 0000 0000 | | .XXX[0x2]
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 00da | | Load_Top At_Offset_2 ; Debug Table 0x4 = .DEBUG 0x005b,0x015c,0x0001,0x0000,0x0057,0xb895,0x0000,0x003a
; Debug Table 0x4.0x0 = 0x5b,0x1
005c 680e |h | Jump_Zero 0x6b
005d e5fc | | Load 0x2,-0x4 ; Debug Table 0x4.0x1 = 0x5d,0x2
005e e5fd | | Load 0x2,-0x3
005f 0092 00bd | | Action Push_String_Extended,0xbd ; "Problem encountered while "
0061 e5fe | | Load 0x2,-0x2
0062 01cc | | Execute Vector,Catenate
0063 0092 00be | | Action Push_String_Extended,0xbe ; ": "
0065 01cc | | Execute Vector,Catenate
0066 e5ff | | Load 0x2,-0x1
0067 e001 | | Load 0x0,0x1
0068 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0069 01cc | | Execute Vector,Catenate
006a 820d | | Call 0x1,0xd
006b 4505 |E | Exit_Suprogram New_Top_Offset 0x5
006c 0000 0000 | | .BLANK 0000[0x4]
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 e5fc | | Load 0x2,-0x4 ; Debug Table 0x5 = .DEBUG 0x0073,0x0162,0x0001,0x0000,0x0057,0xb895,0x0000,0x0053
; Debug Table 0x5.0x0 = 0x73,0x1
0074 e5fd | | Load 0x2,-0x3
0075 0092 00bf | | Action Push_String_Extended,0xbf ; "Unexpected exception caught while "
0077 e5ff | | Load 0x2,-0x1
0078 01cc | | Execute Vector,Catenate
0079 0092 00be | | Action Push_String_Extended,0xbe ; ": "
007b 01cc | | Execute Vector,Catenate
007c e5fe | | Load 0x2,-0x2
007d 01cc | | Execute Vector,Catenate
007e 820d | | Call 0x1,0xd
007f 4505 |E | Exit_Suprogram New_Top_Offset 0x5
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 00da | | Load_Top At_Offset_2 ; Debug Table 0x6 = .DEBUG 0x0083,0x0166,0x0002,0x0000,0x0057,0xb895,0x0000,0x006d
; Debug Table 0x6.0x0 = 0x83,0x1
0084 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0085 e5fe | | Load 0x2,-0x2
0086 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0087 027c | | | Execute Discrete,Less
0088 6802 |h | Jump_Zero 0x8b
0089 4800 |H | Short_Literal 0x0 ; Debug Table 0x6.0x1 = 0x89,0x2
008a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
008b 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0x2 = 0x8b,0x3
008c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
008d e5fe | | Load 0x2,-0x2
008e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
008f 027f | | Execute Discrete,Equal
0090 6808 |h | Jump_Zero 0x99
0091 00da | | Load_Top At_Offset_2
0092 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0093 e5fe | | Load 0x2,-0x2
0094 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0095 027a | z | Execute Discrete,Less_Equal
0096 6802 |h | Jump_Zero 0x99
0097 4800 |H | Short_Literal 0x0 ; Debug Table 0x6.0x3 = 0x97,0x4
0098 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0099 4801 |H | Short_Literal 0x1 ; Debug Table 0x6.0x4 = 0x99,0x5
009a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
009b 0000 0000 | | .BLANK 0000[0x5]
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 e5fd | | Load 0x2,-0x3 ; Debug Table 0x7 = .DEBUG 0x00a3,0x0172,0x0002,0x0000,0x0057,0xb895,0x0000,0x007e
; Debug Table 0x7.0x0 = 0xa3,0x1
00a4 e5fe | | Load 0x2,-0x2
00a5 8211 | | Call 0x1,0x11
00a6 6802 |h | Jump_Zero 0xa9
00a7 4800 |H | Short_Literal 0x0 ; Debug Table 0x7.0x1 = 0xa7,0x2
00a8 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
00a9 00da | | Load_Top At_Offset_2 ; Debug Table 0x7.0x2 = 0xa9,0x3
00aa e5fe | | Load 0x2,-0x2
00ab 8211 | | Call 0x1,0x11
00ac 6802 |h | Jump_Zero 0xaf
00ad 4800 |H | Short_Literal 0x0 ; Debug Table 0x7.0x3 = 0xad,0x4
00ae 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
00af e5fd | | Load 0x2,-0x3 ; Debug Table 0x7.0x4 = 0xaf,0x5
00b0 00db | | Load_Top At_Offset_3
00b1 8211 | | Call 0x1,0x11
00b2 6802 |h | Jump_Zero 0xb5
00b3 4800 |H | Short_Literal 0x0 ; Debug Table 0x7.0x5 = 0xb3,0x6
00b4 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
00b5 4801 |H | Short_Literal 0x1 ; Debug Table 0x7.0x6 = 0xb5,0x7
00b6 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
00b7 0000 | | .XXX[0x1]
00b8 0000 0000 | | .LITERAL {0x00000000, 0x57b89501}
00bc ; --------------------------------------------------------------------------------------
00bc ; STRING TABLE
00bc ; --------------------------------------------------------------------------------------
00bc 000a | | .STRTAB 0x000a->0x00c1 ; ">>> "
00bd 000c | | .STRTAB 0x000c->0x00c3 ; "Problem encountered while "
00be 0024 | $ | .STRTAB 0x0024->0x00d0 ; ": "
00bf 0024 | $ | .STRTAB 0x0024->0x00d1 ; "Unexpected exception caught while "
00c0 0044 | D | .STREND 0x0044->0x00e2
00c1 3e3e 3e20 |>>> | .STRTAB_STRINGS
00e2 0000 0000 | | .BLANK 0000[0x6]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; Debug Table
00e8 ; --------------------------------------------------------------------------------------
00e8 0003 0008 | | .CONST 0x0003,0x0008
00ea 000b 012a | *| .DEBUG 0x000b,0x012a,0x8000,0x0000,0x0057,0xb895,0x0000,0x000b
00f2 0019 013a | :| .DEBUG 0x0019,0x013a,0x8000,0x0000,0x0058,0x6f35,0x0000,0x000d
00fa 002b 0148 | + H| .DEBUG 0x002b,0x0148,0x0001,0x0000,0x0057,0xb895,0x0000,0x000f
0102 0043 0156 | C V| .DEBUG 0x0043,0x0156,0x0001,0x0000,0x0057,0xb895,0x0000,0x0021
010a 005b 015c | [ \| .DEBUG 0x005b,0x015c,0x0001,0x0000,0x0057,0xb895,0x0000,0x003a
0112 0073 0162 | s b| .DEBUG 0x0073,0x0162,0x0001,0x0000,0x0057,0xb895,0x0000,0x0053
011a 0083 0166 | f| .DEBUG 0x0083,0x0166,0x0002,0x0000,0x0057,0xb895,0x0000,0x006d
0122 00a3 0172 | r| .DEBUG 0x00a3,0x0172,0x0002,0x0000,0x0057,0xb895,0x0000,0x007e
012a ; --------------------------------------------------------------------------------------
012a ; Debug3 Subtable 0x0
012a ; --------------------------------------------------------------------------------------
012a 0007 0000 | | .DBG3TAB 0x0007,0x0000
012c 000b ffff | | .CONST 0x000b,0xffff
012e 000c fffe | | .CONST 0x000c,0xfffe
0130 000e fffd | | .CONST 0x000e,0xfffd
0132 0010 fffc | | .CONST 0x0010,0xfffc
0134 0012 fffb | | .CONST 0x0012,0xfffb
0136 0014 fffa | | .CONST 0x0014,0xfffa
0138 0016 fff9 | | .CONST 0x0016,0xfff9
013a ; --------------------------------------------------------------------------------------
013a ; Debug3 Subtable 0x1
013a ; --------------------------------------------------------------------------------------
013a 0006 0000 | | .DBG3TAB 0x0006,0x0000
013c 0019 ffff | | .CONST 0x0019,0xffff
013e 001b fffe | | .CONST 0x001b,0xfffe
0140 001d fffd | | .CONST 0x001d,0xfffd
0142 001f fffc | | .CONST 0x001f,0xfffc
0144 0021 fffb | ! | .CONST 0x0021,0xfffb
0146 0023 fffa | # | .CONST 0x0023,0xfffa
0148 ; --------------------------------------------------------------------------------------
0148 ; Debug3 Subtable 0x2
0148 ; --------------------------------------------------------------------------------------
0148 0000 0006 | | .DBG3TAB 0x0000,0x0006
014a 002b 0001 | + | .CONST 0x002b,0x0001
014c 002d 0002 | - | .CONST 0x002d,0x0002
014e 0032 0003 | 2 | .CONST 0x0032,0x0003
0150 0034 0004 | 4 | .CONST 0x0034,0x0004
0152 003a 0005 | : | .CONST 0x003a,0x0005
0154 003c 0006 | < | .CONST 0x003c,0x0006
0156 ; --------------------------------------------------------------------------------------
0156 ; Debug3 Subtable 0x3
0156 ; --------------------------------------------------------------------------------------
0156 0000 0002 | | .DBG3TAB 0x0000,0x0002
0158 0043 0001 | C | .CONST 0x0043,0x0001
015a 0047 0002 | G | .CONST 0x0047,0x0002
015c ; --------------------------------------------------------------------------------------
015c ; Debug3 Subtable 0x4
015c ; --------------------------------------------------------------------------------------
015c 0000 0002 | | .DBG3TAB 0x0000,0x0002
015e 005b 0001 | [ | .CONST 0x005b,0x0001
0160 005d 0002 | ] | .CONST 0x005d,0x0002
0162 ; --------------------------------------------------------------------------------------
0162 ; Debug3 Subtable 0x5
0162 ; --------------------------------------------------------------------------------------
0162 0000 0001 | | .DBG3TAB 0x0000,0x0001
0164 0073 0001 | s | .CONST 0x0073,0x0001
0166 ; --------------------------------------------------------------------------------------
0166 ; Debug3 Subtable 0x6
0166 ; --------------------------------------------------------------------------------------
0166 0000 0005 | | .DBG3TAB 0x0000,0x0005
0168 0083 0001 | | .CONST 0x0083,0x0001
016a 0089 0002 | | .CONST 0x0089,0x0002
016c 008b 0003 | | .CONST 0x008b,0x0003
016e 0097 0004 | | .CONST 0x0097,0x0004
0170 0099 0005 | | .CONST 0x0099,0x0005
0172 ; --------------------------------------------------------------------------------------
0172 ; Debug3 Subtable 0x7
0172 ; --------------------------------------------------------------------------------------
0172 0000 0007 | | .DBG3TAB 0x0000,0x0007
0174 00a3 0001 | | .CONST 0x00a3,0x0001
0176 00a7 0002 | | .CONST 0x00a7,0x0002
0178 00a9 0003 | | .CONST 0x00a9,0x0003
017a 00ad 0004 | | .CONST 0x00ad,0x0004
017c 00af 0005 | | .CONST 0x00af,0x0005
017e 00b3 0006 | | .CONST 0x00b3,0x0006
0180 00b5 0007 | | .CONST 0x00b5,0x0007
0182 0000 0000 | | .BLANK 0000[0x7e]