|
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 - metrics - 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 00c0 | | .CONST 0x00c0 ; 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 001c | | .CONST 0x001c ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0014 | | .CONST 0x0014 ; Number of locals
000b INIT_0008:
000b 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0 = .DEBUG 0x000b,0x0102,0x4000,0x0000,0x0056,0xd9e5,0x0000,0x0984
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 02a0 | | Declare_Subprogram Null_Subprogram
000d 03ae | | Declare_Type Heap_Access,Defined,Visible
000e 0007 | | Action Break_Optional ; Debug Table 0x0.0x1 = 0xe,0xfffe
000f 029c 0023 | #| Declare_Subprogram For_Outer_Call,Visible,INIT_0020 ; Debug Table 0x0.0x2 = 0xf,0xfffd
0011 029a 0033 | 3| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0030 ; Debug Table 0x0.0x3 = 0x11,0xfffc
0013 029a 0043 | C| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0040 ; Debug Table 0x0.0x4 = 0x13,0xfffb
0015 00bf | | Action Accept_Activation
0016 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1 = .DEBUG 0x0016,0x010e,0x4000,0x0000,0x0056,0xdbb5,0x0000,0x0004
; Debug Table 0x1.0x0 = 0x16,0xffff
0017 00c7 | | Action Elaborate_Subprogram
0018 029d 005b | [| Declare_Subprogram For_Outer_Call,INIT_0058 ; Debug Table 0x1.0x1 = 0x18,0xfffe
001a 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0x2 = 0x1a,0xfffd
001b 00c7 | | Action Elaborate_Subprogram
001c BODY_0008:
001c 00bc | | Action Signal_Activated
001d 00bb | | Action Signal_Completion
001e 0000 0000 | | .XXX[0x2]
0020 ; --------------------------------------------------------------------------------------
0020 ; SUBPROGRAM
0020 ; --------------------------------------------------------------------------------------
0020 0023 | # | .CONST 0x0023 ; Address of begin
0021 0004 | | .CONST 0x0004 ; Address of exception handler
0022 0001 | | .CONST 0x0001 ; Number of locals
0023 BODY_0020:
0023 INIT_0020:
0023 00da | | Load_Top At_Offset_2 ; Debug Table 0x2 = .DEBUG 0x0023,0x0116,0x1007,0x0000,0x0056,0xd9e5,0x0000,0x0000
0024 e20f | | Load 0x1,0xf
0025 0122 | " | Execute Any,Make_Root_Type
0026 025e | ^ | Execute Discrete,Convert
0027 1c01 | | Execute_Immediate Run_Utility,0x1
0028 4401 |D | Exit_Subprogram With_Result,0x1
0029 0000 0000 | | .BLANK 0000[0x7]
0030 ; --------------------------------------------------------------------------------------
0030 ; SUBPROGRAM
0030 ; --------------------------------------------------------------------------------------
0030 0033 | 3 | .CONST 0x0033 ; Address of begin
0031 003a | : | .CONST 0x003a ; Address of exception handler
0032 0001 | | .CONST 0x0001 ; Number of locals
0033 BODY_0030:
0033 INIT_0030:
0033 00da | | Load_Top At_Offset_2 ; Debug Table 0x3 = .DEBUG 0x0033,0x0118,0x1002,0x0000,0x0056,0xd9e5,0x0000,0x09a3
; Debug Table 0x3.0x0 = 0x33,0x1
0034 e20f | | Load 0x1,0xf
0035 0122 | " | Execute Any,Make_Root_Type
0036 1c02 | | Execute_Immediate Run_Utility,0x2
0037 e20f | | Load 0x1,0xf
0038 025b | [ | Execute Discrete,Check_In_Type
0039 4401 |D | Exit_Subprogram With_Result,0x1
003a TRAP_0030:
003a 0007 | | Action Break_Optional
003b e001 | | Load 0x0,0x1 ; Debug Table 0x3.0x1 = 0x3b,0x2
003c 1b14 | | Execute Package,Field_Read,Field_Number 0x14
003d 0257 | W | Execute Discrete,Raise
003e 0000 0000 | | .XXX[0x2]
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0045 | E | .CONST 0x0045 ; Address of begin
0041 004c | L | .CONST 0x004c ; Address of exception handler
0042 0002 | | .CONST 0x0002 ; Number of locals
0043 INIT_0040:
0043 e20f | | Load 0x1,0xf ; Debug Table 0x4 = .DEBUG 0x0043,0x011e,0x1002,0x0000,0x0056,0xd9e5,0x0000,0x09ae
; Debug Table 0x4.0x0 = 0x43,0xffff
0044 0007 | | Action Break_Optional
0045 BODY_0040:
0045 00db | | Load_Top At_Offset_3 ; Debug Table 0x4.0x1 = 0x45,0x1
0046 e20f | | Load 0x1,0xf
0047 0122 | " | Execute Any,Make_Root_Type
0048 1c02 | | Execute_Immediate Run_Utility,0x2
0049 0059 | Y | Store_Top Discrete,At_Offset_1
004a 00ea | | Load_Encached Null_String_Cache ; Debug Table 0x4.0x2 = 0x4a,0x2
004b 4401 |D | Exit_Subprogram With_Result,0x1
004c TRAP_0040:
004c 0007 | | Action Break_Optional
004d 4822 |H" | Short_Literal 0x22 ; Debug Table 0x4.0x3 = 0x4d,0x3
004e 4822 |H" | Short_Literal 0x22
004f e5ff | | Load 0x2,-0x1
0050 01ca | | Execute Vector,Prepend
0051 01cb | | Execute Vector,Append
0052 0092 00a0 | | Action Push_String_Extended,0xa0 ; " is not a meaningful value. Meaningful values are: "
0054 01cc | | Execute Vector,Catenate
0055 8214 | | Call 0x1,0x14
0056 01cc | | Execute Vector,Catenate
0057 4401 |D | Exit_Subprogram With_Result,0x1
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005f | _ | .CONST 0x005f ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0003 | | .CONST 0x0003 ; Number of locals
005b INIT_0058:
005b 029f 007b | {| Declare_Subprogram For_Call,INIT_0078 ; Debug Table 0x5 = .DEBUG 0x005b,0x0128,0x1002,0x0000,0x0056,0xdbb5,0x0000,0x0022
; Debug Table 0x5.0x0 = 0x5b,0xffff
005d 029f 008b | | Declare_Subprogram For_Call,INIT_0088 ; Debug Table 0x5.0x1 = 0x5d,0xfffe
005f BODY_0058:
005f 8402 | | Call 0x2,0x2 ; Debug Table 0x5.0x2 = 0x5f,0x1
0060 6806 |h | Jump_Zero 0x67
0061 e20f | | Load 0x1,0xf ; Debug Table 0x5.0x3 = 0x61,0x2
0062 026a | j | Execute Discrete,First
0063 e20f | | Load 0x1,0xf
0064 025b | [ | Execute Discrete,Check_In_Type
0065 8403 | | Call 0x2,0x3
0066 00ca | | Action Exit_Nullary_Function
0067 e20f | | Load 0x1,0xf ; Debug Table 0x5.0x4 = 0x67,0x3
0068 026a | j | Execute Discrete,First
0069 e20f | | Load 0x1,0xf
006a 0122 | " | Execute Any,Make_Root_Type
006b 025e | ^ | Execute Discrete,Convert
006c 1c01 | | Execute_Immediate Run_Utility,0x1
006d 0092 00a1 | | Action Push_String_Extended,0xa1 ; ".."
006f 01cc | | Execute Vector,Catenate
0070 e20f | | Load 0x1,0xf
0071 0269 | i | Execute Discrete,Last
0072 e20f | | Load 0x1,0xf
0073 0122 | " | Execute Any,Make_Root_Type
0074 025e | ^ | Execute Discrete,Convert
0075 1c01 | | Execute_Immediate Run_Utility,0x1
0076 01cc | | Execute Vector,Catenate
0077 00ca | | Action Exit_Nullary_Function
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b | { | .CONST 0x007b ; Address of begin
0079 0082 | | .CONST 0x0082 ; Address of exception handler
007a 0001 | | .CONST 0x0001 ; Number of locals
007b BODY_0078:
007b INIT_0078:
007b e20f | | Load 0x1,0xf ; Debug Table 0x6 = .DEBUG 0x007b,0x0134,0x1002,0x0000,0x0056,0xdbb5,0x0000,0x0026
; Debug Table 0x6.0x0 = 0x7b,0x1
007c 0269 | i | Execute Discrete,Last
007d e20f | | Load 0x1,0xf
007e 026a | j | Execute Discrete,First
007f 0272 | r | Execute Discrete,Minus
0080 0d08 | | Execute_Immediate Less,0x8
0081 00ca | | Action Exit_Nullary_Function
0082 TRAP_0078:
0082 0007 | | Action Break_Optional
0083 4800 |H | Short_Literal 0x0 ; Debug Table 0x6.0x1 = 0x83,0x2
0084 00ca | | Action Exit_Nullary_Function
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 00da | | Load_Top At_Offset_2 ; Debug Table 0x7 = .DEBUG 0x008b,0x013a,0x1002,0x0000,0x0056,0xdbb5,0x0000,0x004c
; Debug Table 0x7.0x0 = 0x8b,0x1
008c e20f | | Load 0x1,0xf
008d 0269 | i | Execute Discrete,Last
008e 027f | | Execute Discrete,Equal
008f 6803 |h | Jump_Zero 0x93
0090 00da | | Load_Top At_Offset_2 ; Debug Table 0x7.0x1 = 0x90,0x2
0091 8211 | | Call 0x1,0x11
0092 4401 |D | Exit_Subprogram With_Result,0x1
0093 00da | | Load_Top At_Offset_2 ; Debug Table 0x7.0x2 = 0x93,0x3
0094 8211 | | Call 0x1,0x11
0095 0092 00a2 | | Action Push_String_Extended,0xa2 ; ", "
0097 01cc | | Execute Vector,Catenate
0098 e20f | | Load 0x1,0xf
0099 e7ff | | Load 0x3,-0x1
009a 0268 | h | Execute Discrete,Successor
009b e20f | | Load 0x1,0xf
009c 025b | [ | Execute Discrete,Check_In_Type
009d 8403 | | Call 0x2,0x3
009e 01cc | | Execute Vector,Catenate
009f 4401 |D | Exit_Subprogram With_Result,0x1
00a0 ; --------------------------------------------------------------------------------------
00a0 ; STRING TABLE
00a0 ; --------------------------------------------------------------------------------------
00a0 0008 | | .STRTAB 0x0008->0x00a4 ; " is not a meaningful value. Meaningful values are: "
00a1 003a | : | .STRTAB 0x003a->0x00be ; ".."
00a2 003a | : | .STRTAB 0x003a->0x00bf ; ", "
00a3 003a | : | .STREND 0x003a->0x00c0
00a4 2069 7320 | is | .STRTAB_STRINGS
00c0 ; --------------------------------------------------------------------------------------
00c0 ; Debug Table
00c0 ; --------------------------------------------------------------------------------------
00c0 0003 0008 | | .CONST 0x0003,0x0008
00c2 000b 0102 | | .DEBUG 0x000b,0x0102,0x4000,0x0000,0x0056,0xd9e5,0x0000,0x0984
00ca 0016 010e | | .DEBUG 0x0016,0x010e,0x4000,0x0000,0x0056,0xdbb5,0x0000,0x0004
00d2 0023 0116 | # | .DEBUG 0x0023,0x0116,0x1007,0x0000,0x0056,0xd9e5,0x0000,0x0000
00da 0033 0118 | 3 | .DEBUG 0x0033,0x0118,0x1002,0x0000,0x0056,0xd9e5,0x0000,0x09a3
00e2 0043 011e | C | .DEBUG 0x0043,0x011e,0x1002,0x0000,0x0056,0xd9e5,0x0000,0x09ae
00ea 005b 0128 | [ (| .DEBUG 0x005b,0x0128,0x1002,0x0000,0x0056,0xdbb5,0x0000,0x0022
00f2 007b 0134 | { 4| .DEBUG 0x007b,0x0134,0x1002,0x0000,0x0056,0xdbb5,0x0000,0x0026
00fa 008b 013a | :| .DEBUG 0x008b,0x013a,0x1002,0x0000,0x0056,0xdbb5,0x0000,0x004c
0102 ; --------------------------------------------------------------------------------------
0102 ; Debug3 Subtable 0x0
0102 ; --------------------------------------------------------------------------------------
0102 0005 0000 | | .DBG3TAB 0x0005,0x0000
0104 000b ffff | | .CONST 0x000b,0xffff
0106 000e fffe | | .CONST 0x000e,0xfffe
0108 000f fffd | | .CONST 0x000f,0xfffd
010a 0011 fffc | | .CONST 0x0011,0xfffc
010c 0013 fffb | | .CONST 0x0013,0xfffb
010e ; --------------------------------------------------------------------------------------
010e ; Debug3 Subtable 0x1
010e ; --------------------------------------------------------------------------------------
010e 0003 0000 | | .DBG3TAB 0x0003,0x0000
0110 0016 ffff | | .CONST 0x0016,0xffff
0112 0018 fffe | | .CONST 0x0018,0xfffe
0114 001a fffd | | .CONST 0x001a,0xfffd
0116 ; --------------------------------------------------------------------------------------
0116 ; Debug3 Subtable 0x2
0116 ; --------------------------------------------------------------------------------------
0116 0000 0000 | | .DBG3TAB 0x0000,0x0000
0118 ; --------------------------------------------------------------------------------------
0118 ; Debug3 Subtable 0x3
0118 ; --------------------------------------------------------------------------------------
0118 0000 0002 | | .DBG3TAB 0x0000,0x0002
011a 0033 0001 | 3 | .CONST 0x0033,0x0001
011c 003b 0002 | ; | .CONST 0x003b,0x0002
011e ; --------------------------------------------------------------------------------------
011e ; Debug3 Subtable 0x4
011e ; --------------------------------------------------------------------------------------
011e 0001 0003 | | .DBG3TAB 0x0001,0x0003
0120 0043 ffff | C | .CONST 0x0043,0xffff
0122 0045 0001 | E | .CONST 0x0045,0x0001
0124 004a 0002 | J | .CONST 0x004a,0x0002
0126 004d 0003 | M | .CONST 0x004d,0x0003
0128 ; --------------------------------------------------------------------------------------
0128 ; Debug3 Subtable 0x5
0128 ; --------------------------------------------------------------------------------------
0128 0002 0003 | | .DBG3TAB 0x0002,0x0003
012a 005b ffff | [ | .CONST 0x005b,0xffff
012c 005d fffe | ] | .CONST 0x005d,0xfffe
012e 005f 0001 | _ | .CONST 0x005f,0x0001
0130 0061 0002 | a | .CONST 0x0061,0x0002
0132 0067 0003 | g | .CONST 0x0067,0x0003
0134 ; --------------------------------------------------------------------------------------
0134 ; Debug3 Subtable 0x6
0134 ; --------------------------------------------------------------------------------------
0134 0000 0002 | | .DBG3TAB 0x0000,0x0002
0136 007b 0001 | { | .CONST 0x007b,0x0001
0138 0083 0002 | | .CONST 0x0083,0x0002
013a ; --------------------------------------------------------------------------------------
013a ; Debug3 Subtable 0x7
013a ; --------------------------------------------------------------------------------------
013a 0000 0003 | | .DBG3TAB 0x0000,0x0003
013c 008b 0001 | | .CONST 0x008b,0x0001
013e 0090 0002 | | .CONST 0x0090,0x0002
0140 0093 0003 | | .CONST 0x0093,0x0003
0142 0000 0000 | | .BLANK 0000[0xbe]