|
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 0148 | H | .CONST 0x0148 ; 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 0010 | | .CONST 0x0010 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0001 | | .CONST 0x0001 ; Number of locals
000b INIT_0008:
000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x0162,0x8000,0x0000,0x0055,0xe125,0x0000,0x0003
000d 00bf | | Action Accept_Activation
000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
000f 00c7 | | Action Elaborate_Subprogram
0010 BODY_0008:
0010 00bc | | Action Signal_Activated
0011 00bb | | Action Signal_Completion
0012 0000 0000 | | .BLANK 0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 003d | = | .CONST 0x003d ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 000b | | .CONST 0x000b ; Number of locals
001b INIT_0018:
001b e001 | | Load 0x0,0x1 ; Debug Table 0x1 = .DEBUG 0x001b,0x0164,0x8001,0x0000,0x0055,0xe125,0x0000,0x0003
; Debug Table 0x1.0x0 = 0x1b,0xffff
; Debug Table 0x1.0x1 = 0x1b,0xfffe
; Debug Table 0x1.0x2 = 0x1b,0xfffd
; Debug Table 0x1.0x3 = 0x1b,0xfffc
001c 1b12 | | Execute Package,Field_Read,Field_Number 0x12
001d e002 | | Load 0x0,0x2 ; Debug Table 0x1.0x4 = 0x1d,0xfffb
001e 1b13 | | Execute Package,Field_Read,Field_Number 0x13
001f 02c7 | | Declare_Variable Any
0020 00d8 | | Load_Top At_Offset_0
0021 1c00 | | Execute_Immediate Run_Utility,0x0
0022 e002 | | Load 0x0,0x2 ; Debug Table 0x1.0x5 = 0x22,0xfffa
0023 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0024 02c7 | | Declare_Variable Any
0025 00d8 | | Load_Top At_Offset_0
0026 1c00 | | Execute_Immediate Run_Utility,0x0
0027 e002 | | Load 0x0,0x2 ; Debug Table 0x1.0x6 = 0x27,0xfff9
0028 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0029 0322 | " | Declare_Variable Record
002a 00d8 | | Load_Top At_Offset_0
002b 1c00 | | Execute_Immediate Run_Utility,0x0
002c e002 | | Load 0x0,0x2 ; Debug Table 0x1.0x7 = 0x2c,0xfff8
002d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
002e 02c7 | | Declare_Variable Any
002f 00d8 | | Load_Top At_Offset_0
0030 1c00 | | Execute_Immediate Run_Utility,0x0
0031 e002 | | Load 0x0,0x2 ; Debug Table 0x1.0x8 = 0x31,0xfff7
0032 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0033 0322 | " | Declare_Variable Record
0034 00d8 | | Load_Top At_Offset_0
0035 1c00 | | Execute_Immediate Run_Utility,0x0
0036 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x1.0x9 = 0x36,0xfff6
0037 e003 | | Load 0x0,0x3 ; Debug Table 0x1.0xa = 0x37,0xfff5
0038 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0039 e004 | | Load 0x0,0x4 ; Debug Table 0x1.0xb = 0x39,0xfff4
003a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
003b 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call ; Debug Table 0x1.0xc = 0x3b,0xfff3
003d BODY_0018:
003d e003 | | Load 0x0,0x3 ; Debug Table 0x1.0xd = 0x3d,0x1
003e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
003f e001 | | Load 0x0,0x1
0040 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0041 e005 | | Load 0x0,0x5
0042 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0043 e006 | | Load 0x0,0x6
0044 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0045 e5fb | | Load 0x2,-0x5
0046 e001 | | Load 0x0,0x1
0047 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0048 c402 | | Store 0x2,0x2
0049 005b | [ | Store_Top Discrete,At_Offset_3
004a 0092 0114 | | Action Push_String_Extended,0x114 ; "open_database"
; Debug Table 0x1.0xe = 0x4a,0x2
004c 00db | | Load_Top At_Offset_3
004d 840b | | Call 0x2,0xb
004e e003 | | Load 0x0,0x3 ; Debug Table 0x1.0xf = 0x4e,0x3
004f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0050 e403 | | Load 0x2,0x3
0051 0120 | | Execute Any,Is_Value
0052 6803 |h | Jump_Zero 0x56
0053 e002 | | Load 0x0,0x2
0054 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0055 7801 |x | Jump 0x57
0056 e403 | | Load 0x2,0x3
0057 e5ff | | Load 0x2,-0x1
0058 e402 | | Load 0x2,0x2
0059 e002 | | Load 0x0,0x2
005a 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
005b c403 | | Store 0x2,0x3
005c 005b | [ | Store_Top Discrete,At_Offset_3
005d 0092 0115 | | Action Push_String_Extended,0x115 ; "find_element"
; Debug Table 0x1.0x10 = 0x5d,0x4
005f 00db | | Load_Top At_Offset_3
0060 840b | | Call 0x2,0xb
0061 e5fe | | Load 0x2,-0x2 ; Debug Table 0x1.0x11 = 0x61,0x5
0062 01db | | Execute Vector,Length
0063 7011 |p | Jump_Nonzero 0x75
0064 e003 | | Load 0x0,0x3 ; Debug Table 0x1.0x12 = 0x64,0x6
0065 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0066 e404 | | Load 0x2,0x4
0067 0120 | | Execute Any,Is_Value
0068 6803 |h | Jump_Zero 0x6c
0069 e002 | | Load 0x0,0x2
006a 1b10 | | Execute Package,Field_Read,Field_Number 0x10
006b 7801 |x | Jump 0x6d
006c e404 | | Load 0x2,0x4
006d e403 | | Load 0x2,0x3
006e e5ff | | Load 0x2,-0x1
006f e402 | | Load 0x2,0x2
0070 e002 | | Load 0x0,0x2
0071 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0072 c404 | | Store 0x2,0x4
0073 005b | [ | Store_Top Discrete,At_Offset_3
0074 7810 |x | Jump 0x85
0075 e003 | | Load 0x0,0x3 ; Debug Table 0x1.0x13 = 0x75,0x7
0076 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0077 e404 | | Load 0x2,0x4
0078 0120 | | Execute Any,Is_Value
0079 6803 |h | Jump_Zero 0x7d
007a e002 | | Load 0x0,0x2
007b 1b10 | | Execute Package,Field_Read,Field_Number 0x10
007c 7801 |x | Jump 0x7e
007d e404 | | Load 0x2,0x4
007e e403 | | Load 0x2,0x3
007f e5fe | | Load 0x2,-0x2
0080 e402 | | Load 0x2,0x2
0081 e002 | | Load 0x0,0x2
0082 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0083 c404 | | Store 0x2,0x4
0084 005b | [ | Store_Top Discrete,At_Offset_3
0085 0092 0116 | | Action Push_String_Extended,0x116 ; "find_version_set"
; Debug Table 0x1.0x14 = 0x85,0x8
0087 00db | | Load_Top At_Offset_3
0088 840b | | Call 0x2,0xb
0089 e5fd | | Load 0x2,-0x3 ; Debug Table 0x1.0x15 = 0x89,0x9
008a 0f00 | | Execute_Immediate Equal,0x0
008b e5fc | | Load 0x2,-0x4
008c 0278 | x | Execute Discrete,Or
008d 680a |h | Jump_Zero 0x98
008e e405 | | Load 0x2,0x5 ; Debug Table 0x1.0x16 = 0x8e,0xa
008f e404 | | Load 0x2,0x4
0090 e402 | | Load 0x2,0x2
0091 e002 | | Load 0x0,0x2
0092 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0093 00d1 | | Pop_Control Pop_Count_1
0094 e405 | | Load 0x2,0x5 ; Debug Table 0x1.0x17 = 0x94,0xb
0095 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0096 a408 | | Store_Unchecked 0x2,0x8
0097 7802 |x | Jump 0x9a
0098 e5fd | | Load 0x2,-0x3 ; Debug Table 0x1.0x18 = 0x98,0xc
0099 a408 | | Store_Unchecked 0x2,0x8
009a e003 | | Load 0x0,0x3 ; Debug Table 0x1.0x19 = 0x9a,0xd
009b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
009c e406 | | Load 0x2,0x6
009d 0120 | | Execute Any,Is_Value
009e 6803 |h | Jump_Zero 0xa2
009f e002 | | Load 0x0,0x2
00a0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00a1 7801 |x | Jump 0xa3
00a2 e406 | | Load 0x2,0x6
00a3 e404 | | Load 0x2,0x4
00a4 e408 | | Load 0x2,0x8
00a5 e402 | | Load 0x2,0x2
00a6 e002 | | Load 0x0,0x2
00a7 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00a8 c406 | | Store 0x2,0x6
00a9 005b | [ | Store_Top Discrete,At_Offset_3
00aa 0092 0117 | | Action Push_String_Extended,0x117 ; "find_version"
; Debug Table 0x1.0x1a = 0xaa,0xe
00ac 00db | | Load_Top At_Offset_3
00ad 840b | | Call 0x2,0xb
00ae e407 | | Load 0x2,0x7 ; Debug Table 0x1.0x1b = 0xae,0xf
00af e406 | | Load 0x2,0x6
00b0 e402 | | Load 0x2,0x2
00b1 e002 | | Load 0x0,0x2
00b2 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
00b3 00d1 | | Pop_Control Pop_Count_1
00b4 e004 | | Load 0x0,0x4 ; Debug Table 0x1.0x1c = 0xb4,0x10
00b5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00b6 e407 | | Load 0x2,0x7
00b7 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00b8 e402 | | Load 0x2,0x2
00b9 e004 | | Load 0x0,0x4
00ba 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00bb 0032 | 2 | Store_Top Heap_Access,At_Offset_2
00bc 00cf | | Action Mark_Auxiliary
00bd e5fd | | Load 0x2,-0x3 ; Debug Table 0x1.0x1d = 0xbd,0x11
00be e408 | | Load 0x2,0x8
00bf 0aff | | Execute_Immediate Plus,-0x1
00c0 0248 | H | Execute Discrete,Check_In_Integer
00c1 0264 | d | Execute Discrete,Below_Bound
00c2 7022 |p" | Jump_Nonzero 0xe5
00c3 e003 | | Load 0x0,0x3 ; Debug Table 0x1.0x1e = 0xc3,0x12
00c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00c5 e406 | | Load 0x2,0x6
00c6 0120 | | Execute Any,Is_Value
00c7 6803 |h | Jump_Zero 0xcb
00c8 e002 | | Load 0x0,0x2
00c9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ca 7801 |x | Jump 0xcc
00cb e406 | | Load 0x2,0x6
00cc e404 | | Load 0x2,0x4
00cd 00db | | Load_Top At_Offset_3
00ce e402 | | Load 0x2,0x2
00cf e002 | | Load 0x0,0x2
00d0 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00d1 c406 | | Store 0x2,0x6
00d2 c409 | | Store 0x2,0x9
00d3 0092 0118 | | Action Push_String_Extended,0x118 ; "find previous version"
; Debug Table 0x1.0x1f = 0xd3,0x13
00d5 e409 | | Load 0x2,0x9
00d6 840b | | Call 0x2,0xb
00d7 e407 | | Load 0x2,0x7 ; Debug Table 0x1.0x20 = 0xd7,0x14
00d8 e406 | | Load 0x2,0x6
00d9 e402 | | Load 0x2,0x2
00da e002 | | Load 0x0,0x2
00db 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
00dc 00d1 | | Pop_Control Pop_Count_1
00dd e40a | | Load 0x2,0xa ; Debug Table 0x1.0x21 = 0xdd,0x15
00de e407 | | Load 0x2,0x7
00df 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00e0 e004 | | Load 0x0,0x4
00e1 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00e2 c40a | | Store 0x2,0xa
00e3 00c8 | | Action Pop_Auxiliary_Range
00e4 37de |7 | Loop_Decreasing 0xc3
00e5 00c9 | | Action Pop_Auxiliary_Loop
00e6 00da | | Load_Top At_Offset_2 ; Debug Table 0x1.0x22 = 0xe6,0x16
00e7 e004 | | Load 0x0,0x4
00e8 181f | | Execute Package,Field_Execute,Field_Number 0x1f
00e9 4801 |H | Short_Literal 0x1
00ea 0263 | c | Execute Discrete,Above_Bound
00eb 7008 |p | Jump_Nonzero 0xf4
00ec 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x23 = 0xec,0x17
00ed e40a | | Load 0x2,0xa
00ee e004 | | Load 0x0,0x4
00ef 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00f0 e007 | | Load 0x0,0x7
00f1 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
00f2 00c8 | | Action Pop_Auxiliary_Range
00f3 3ff8 |? | Loop_Increasing 0xec
00f4 4506 |E | Exit_Suprogram New_Top_Offset 0x6
00f5 0000 0000 | | .XXX[0x3]
00f7 0000 | |
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb | | .CONST 0x00fb ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0001 | | .CONST 0x0001 ; Number of locals
00fb BODY_00f8:
00fb INIT_00f8:
00fb 00da | | Load_Top At_Offset_2 ; Debug Table 0x2 = .DEBUG 0x00fb,0x01ae,0x0001,0x0000,0x0057,0x7aa5,0x0000,0x0072
; Debug Table 0x2.0x0 = 0xfb,0x1
00fc e003 | | Load 0x0,0x3
00fd 180e | | Execute Package,Field_Execute,Field_Number 0xe
00fe 680f |h | Jump_Zero 0x10e
00ff 00db | | Load_Top At_Offset_3 ; Debug Table 0x2.0x1 = 0xff,0x2
0100 0092 0119 | | Action Push_String_Extended,0x119 ; " failed ("
0102 01cc | | Execute Vector,Catenate
0103 00db | | Load_Top At_Offset_3
0104 e003 | | Load 0x0,0x3
0105 180f | | Execute Package,Field_Execute,Field_Number 0xf
0106 01cc | | Execute Vector,Catenate
0107 0092 011a | | Action Push_String_Extended,0x11a ; ")"
0109 01cc | | Execute Vector,Catenate
010a e007 | | Load 0x0,0x7
010b 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
010c 6003 |` | Indirect_Literal Discrete,0x110,{0x00000000, 0x577aa501} ; Debug Table 0x2.0x2 = 0x10c,0x3
010d 0257 | W | Execute Discrete,Raise
010e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
010f 0000 | | .XXX[0x1]
0110 0000 0000 | | .LITERAL {0x00000000, 0x577aa501}
0114 ; --------------------------------------------------------------------------------------
0114 ; STRING TABLE
0114 ; --------------------------------------------------------------------------------------
0114 0010 | | .STRTAB 0x0010->0x011c ; "open_database"
0115 001b | | .STRTAB 0x001b->0x0122 ; "find_element"
0116 0025 | % | .STRTAB 0x0025->0x0128 ; "find_version_set"
0117 0033 | 3 | .STRTAB 0x0033->0x0130 ; "find_version"
0118 003d | = | .STRTAB 0x003d->0x0136 ; "find previous version"
0119 0050 | P | .STRTAB 0x0050->0x0141 ; " failed ("
011a 0057 | W | .STRTAB 0x0057->0x0145 ; ")"
011b 0056 | V | .STREND 0x0056->0x0146
011c 6f70 656e |open| .STRTAB_STRINGS
0146 0000 0000 | | .XXX[0x2]
0148 ; --------------------------------------------------------------------------------------
0148 ; Debug Table
0148 ; --------------------------------------------------------------------------------------
0148 0003 0003 | | .CONST 0x0003,0x0003
014a 000b 0162 | b| .DEBUG 0x000b,0x0162,0x8000,0x0000,0x0055,0xe125,0x0000,0x0003
0152 001b 0164 | d| .DEBUG 0x001b,0x0164,0x8001,0x0000,0x0055,0xe125,0x0000,0x0003
015a 00fb 01ae | | .DEBUG 0x00fb,0x01ae,0x0001,0x0000,0x0057,0x7aa5,0x0000,0x0072
0162 ; --------------------------------------------------------------------------------------
0162 ; Debug3 Subtable 0x0
0162 ; --------------------------------------------------------------------------------------
0162 0000 0000 | | .DBG3TAB 0x0000,0x0000
0164 ; --------------------------------------------------------------------------------------
0164 ; Debug3 Subtable 0x1
0164 ; --------------------------------------------------------------------------------------
0164 000d 0017 | | .DBG3TAB 0x000d,0x0017
0166 001b ffff | | .CONST 0x001b,0xffff
0168 001b fffe | | .CONST 0x001b,0xfffe
016a 001b fffd | | .CONST 0x001b,0xfffd
016c 001b fffc | | .CONST 0x001b,0xfffc
016e 001d fffb | | .CONST 0x001d,0xfffb
0170 0022 fffa | " | .CONST 0x0022,0xfffa
0172 0027 fff9 | ' | .CONST 0x0027,0xfff9
0174 002c fff8 | , | .CONST 0x002c,0xfff8
0176 0031 fff7 | 1 | .CONST 0x0031,0xfff7
0178 0036 fff6 | 6 | .CONST 0x0036,0xfff6
017a 0037 fff5 | 7 | .CONST 0x0037,0xfff5
017c 0039 fff4 | 9 | .CONST 0x0039,0xfff4
017e 003b fff3 | ; | .CONST 0x003b,0xfff3
0180 003d 0001 | = | .CONST 0x003d,0x0001
0182 004a 0002 | J | .CONST 0x004a,0x0002
0184 004e 0003 | N | .CONST 0x004e,0x0003
0186 005d 0004 | ] | .CONST 0x005d,0x0004
0188 0061 0005 | a | .CONST 0x0061,0x0005
018a 0064 0006 | d | .CONST 0x0064,0x0006
018c 0075 0007 | u | .CONST 0x0075,0x0007
018e 0085 0008 | | .CONST 0x0085,0x0008
0190 0089 0009 | | .CONST 0x0089,0x0009
0192 008e 000a | | .CONST 0x008e,0x000a
0194 0094 000b | | .CONST 0x0094,0x000b
0196 0098 000c | | .CONST 0x0098,0x000c
0198 009a 000d | | .CONST 0x009a,0x000d
019a 00aa 000e | | .CONST 0x00aa,0x000e
019c 00ae 000f | | .CONST 0x00ae,0x000f
019e 00b4 0010 | | .CONST 0x00b4,0x0010
01a0 00bd 0011 | | .CONST 0x00bd,0x0011
01a2 00c3 0012 | | .CONST 0x00c3,0x0012
01a4 00d3 0013 | | .CONST 0x00d3,0x0013
01a6 00d7 0014 | | .CONST 0x00d7,0x0014
01a8 00dd 0015 | | .CONST 0x00dd,0x0015
01aa 00e6 0016 | | .CONST 0x00e6,0x0016
01ac 00ec 0017 | | .CONST 0x00ec,0x0017
01ae ; --------------------------------------------------------------------------------------
01ae ; Debug3 Subtable 0x2
01ae ; --------------------------------------------------------------------------------------
01ae 0000 0003 | | .DBG3TAB 0x0000,0x0003
01b0 00fb 0001 | | .CONST 0x00fb,0x0001
01b2 00ff 0002 | | .CONST 0x00ff,0x0002
01b4 010c 0003 | | .CONST 0x010c,0x0003
01b6 0000 0000 | | .BLANK 0000[0x4a]