|
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 00a8 | | .CONST 0x00a8 ; 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 0012 | | .CONST 0x0012 ; Number of locals
000b INIT_0008:
000b e001 | | Load 0x0,0x1 ; Debug Table 0x0 = .DEBUG 0x000b,0x00d2,0x8000,0x0000,0x0058,0x7055,0x0000,0x0005
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
000d 0129 | ) | Execute Any,Make_Visible
000e 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xe,0xfffe
0010 029a 002b | +| Declare_Subprogram INIT_0028,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0x10,0xfffd
0012 00bf | | Action Accept_Activation
0013 0092 0090 | | Action Push_String_Extended,0x90 ; "!Machine.Cmvc_Require_Default_Venture"
; Debug Table 0x1 = .DEBUG 0x0013,0x00da,0x8000,0x0000,0x0058,0x7595,0x0000,0x000d
; Debug Table 0x1.0x0 = 0x13,0xffff
0015 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x1.0x1 = 0x15,0xfffe
0016 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x2 = 0x16,0xfffd
0017 00c7 | | Action Elaborate_Subprogram
0018 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x3 = 0x18,0xfffc
0019 00c7 | | Action Elaborate_Subprogram
001a 029f 007b | {| Declare_Subprogram INIT_0078,For_Call
001c BODY_0008:
001c 8212 | | Call 0x1,0x12 ; Debug Table 0x1.0x4 = 0x1c,0x1
001d 00bc | | Action Signal_Activated
001e 00bb | | Action Signal_Completion
001f 0000 | | .XXX[0x1]
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 e211 | | Load 0x1,0x11 ; Debug Table 0x2 = .DEBUG 0x0023,0x00e6,0x0002,0x0000,0x0058,0x7055,0x0000,0x000c
; Debug Table 0x2.0x0 = 0x23,0x1
0024 00ca | | Action Exit_Nullary_Function
0025 0000 0000 | | .XXX[0x3]
0027 0000 | |
0028 ; --------------------------------------------------------------------------------------
0028 ; SUBPROGRAM
0028 ; --------------------------------------------------------------------------------------
0028 0035 | 5 | .CONST 0x0035 ; Address of begin
0029 0069 | i | .CONST 0x0069 ; Address of exception handler
002a 0004 | | .CONST 0x0004 ; Number of locals
002b INIT_0028:
002b e211 | | Load 0x1,0x11 ; Debug Table 0x3 = .DEBUG 0x002b,0x00ea,0x0001,0x0000,0x0058,0x7055,0x0000,0x0011
; Debug Table 0x3.0x0 = 0x2b,0xffff
002c 00e1 | | Load_Encached Boolean_Cache
002d 03f1 | | Declare_Variable Discrete,With_Value
002e e002 | | Load 0x0,0x2 ; Debug Table 0x3.0x1 = 0x2e,0xfffe
002f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0030 02c7 | | Declare_Variable Any
0031 00d8 | | Load_Top At_Offset_0
0032 1c00 | | Execute_Immediate Run_Utility,0x0
0033 e001 | | Load 0x0,0x1 ; Debug Table 0x3.0x2 = 0x33,0xfffd
0034 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0035 BODY_0028:
0035 487e |H~ | Short_Literal 0x7e ; Debug Table 0x3.0x3 = 0x35,0x1
0036 a5fe | | Store_Unchecked 0x2,-0x2
0037 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0x4 = 0x37,0x2
0038 e5ff | | Load 0x2,-0x1
0039 027e | ~ | Execute Discrete,Not_Equal
003a 682b |h+ | Jump_Zero 0x66
003b e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0x5 = 0x3b,0x3
003c 4601 |F | Jump_Case 0x2
003d 781a |x | Jump 0x58 ; case 0x0
003e 7800 |x | Jump 0x3f ; case 0x1
003f e003 | | Load 0x0,0x3 ; Debug Table 0x3.0x6 = 0x3f,0x4
0040 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0041 00da | | Load_Top At_Offset_2
0042 0120 | | Execute Any,Is_Value
0043 6803 |h | Jump_Zero 0x47
0044 e002 | | Load 0x0,0x2
0045 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0046 7801 |x | Jump 0x48
0047 00da | | Load_Top At_Offset_2
0048 e004 | | Load 0x0,0x4
0049 1b0e | | Execute Package,Field_Read,Field_Number 0xe
004a e002 | | Load 0x0,0x2
004b 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
004c e005 | | Load 0x0,0x5
004d 180f | | Execute Package,Field_Execute,Field_Number 0xf
004e e210 | | Load 0x1,0x10
004f e003 | | Load 0x0,0x3
0050 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0051 c403 | | Store 0x2,0x3
0052 0059 | Y | Store_Top Discrete,At_Offset_1
0053 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0x7 = 0x53,0x5
0054 00d9 | | Load_Top At_Offset_1
0055 e001 | | Load 0x0,0x1
0056 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0057 780c |x | Jump 0x64
0058 e003 | | Load 0x0,0x3 ; Debug Table 0x3.0x8 = 0x58,0x6
0059 1b0d | | Execute Package,Field_Read,Field_Number 0xd
005a e004 | | Load 0x0,0x4
005b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
005c e210 | | Load 0x1,0x10
005d e003 | | Load 0x0,0x3
005e 1814 | | Execute Package,Field_Execute,Field_Number 0x14
005f 0059 | Y | Store_Top Discrete,At_Offset_1
0060 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0x9 = 0x60,0x7
0061 00d9 | | Load_Top At_Offset_1
0062 e001 | | Load 0x0,0x1
0063 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0064 e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0xa = 0x64,0x8
0065 a211 | | Store_Unchecked 0x1,0x11
0066 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0xb = 0x66,0x9
0067 a5fe | | Store_Unchecked 0x2,-0x2
0068 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0069 TRAP_0028:
0069 e001 | | Load 0x0,0x1
006a 1b16 | | Execute Package,Field_Read,Field_Number 0x16
006b 010f | | Execute Exception,Equal
006c 6803 |h | Jump_Zero 0x70
006d 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0xc = 0x6d,0xa
006e a5fe | | Store_Unchecked 0x2,-0x2
006f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0070 0100 | | Execute Exception,Raise
0071 0000 0000 | | .BLANK 0000[0x7]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 0082 | | .CONST 0x0082 ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0003 | | .CONST 0x0003 ; Number of locals
007b INIT_0078:
007b e002 | | Load 0x0,0x2 ; Debug Table 0x4 = .DEBUG 0x007b,0x0106,0x0004,0x0000,0x0058,0x7595,0x0000,0x00bb
; Debug Table 0x4.0x0 = 0x7b,0xffff
007c 1b14 | | Execute Package,Field_Read,Field_Number 0x14
007d 02ff | | Declare_Variable Variant_Record
007e 00d8 | | Load_Top At_Offset_0
007f 1c00 | | Execute_Immediate Run_Utility,0x0
0080 e20d | | Load 0x1,0xd ; Debug Table 0x4.0x1 = 0x80,0xfffe
0081 0007 | | Action Break_Optional
0082 BODY_0078:
0082 e003 | | Load 0x0,0x3 ; Debug Table 0x4.0x2 = 0x82,0x1
0083 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0084 00da | | Load_Top At_Offset_2
0085 e210 | | Load 0x1,0x10
0086 e003 | | Load 0x0,0x3
0087 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0088 00d1 | | Pop_Control Pop_Count_1
0089 0059 | Y | Store_Top Discrete,At_Offset_1
008a 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x4.0x3 = 0x8a,0x2
008b e002 | | Load 0x0,0x2
008c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
008d 0f00 | | Execute_Immediate Equal,0x0
008e a211 | | Store_Unchecked 0x1,0x11
008f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0090 ; --------------------------------------------------------------------------------------
0090 ; STRING TABLE
0090 ; --------------------------------------------------------------------------------------
0090 0004 | | .STRTAB 0x0004->0x0092 ; "!Machine.Cmvc_Require_Default_Venture"
0091 0027 | ' | .STREND 0x0027->0x00a4
0092 214d 6163 |!Mac| .STRTAB_STRINGS
00a5 0000 0000 | | .XXX[0x3]
00a7 0000 | |
00a8 ; --------------------------------------------------------------------------------------
00a8 ; Debug Table
00a8 ; --------------------------------------------------------------------------------------
00a8 0003 0005 | | .CONST 0x0003,0x0005
00aa 000b 00d2 | | .DEBUG 0x000b,0x00d2,0x8000,0x0000,0x0058,0x7055,0x0000,0x0005
00b2 0013 00da | | .DEBUG 0x0013,0x00da,0x8000,0x0000,0x0058,0x7595,0x0000,0x000d
00ba 0023 00e6 | # | .DEBUG 0x0023,0x00e6,0x0002,0x0000,0x0058,0x7055,0x0000,0x000c
00c2 002b 00ea | + | .DEBUG 0x002b,0x00ea,0x0001,0x0000,0x0058,0x7055,0x0000,0x0011
00ca 007b 0106 | { | .DEBUG 0x007b,0x0106,0x0004,0x0000,0x0058,0x7595,0x0000,0x00bb
00d2 ; --------------------------------------------------------------------------------------
00d2 ; Debug3 Subtable 0x0
00d2 ; --------------------------------------------------------------------------------------
00d2 0003 0000 | | .DBG3TAB 0x0003,0x0000
00d4 000b ffff | | .CONST 0x000b,0xffff
00d6 000e fffe | | .CONST 0x000e,0xfffe
00d8 0010 fffd | | .CONST 0x0010,0xfffd
00da ; --------------------------------------------------------------------------------------
00da ; Debug3 Subtable 0x1
00da ; --------------------------------------------------------------------------------------
00da 0004 0001 | | .DBG3TAB 0x0004,0x0001
00dc 0013 ffff | | .CONST 0x0013,0xffff
00de 0015 fffe | | .CONST 0x0015,0xfffe
00e0 0016 fffd | | .CONST 0x0016,0xfffd
00e2 0018 fffc | | .CONST 0x0018,0xfffc
00e4 001c 0001 | | .CONST 0x001c,0x0001
00e6 ; --------------------------------------------------------------------------------------
00e6 ; Debug3 Subtable 0x2
00e6 ; --------------------------------------------------------------------------------------
00e6 0000 0001 | | .DBG3TAB 0x0000,0x0001
00e8 0023 0001 | # | .CONST 0x0023,0x0001
00ea ; --------------------------------------------------------------------------------------
00ea ; Debug3 Subtable 0x3
00ea ; --------------------------------------------------------------------------------------
00ea 0003 000a | | .DBG3TAB 0x0003,0x000a
00ec 002b ffff | + | .CONST 0x002b,0xffff
00ee 002e fffe | . | .CONST 0x002e,0xfffe
00f0 0033 fffd | 3 | .CONST 0x0033,0xfffd
00f2 0035 0001 | 5 | .CONST 0x0035,0x0001
00f4 0037 0002 | 7 | .CONST 0x0037,0x0002
00f6 003b 0003 | ; | .CONST 0x003b,0x0003
00f8 003f 0004 | ? | .CONST 0x003f,0x0004
00fa 0053 0005 | S | .CONST 0x0053,0x0005
00fc 0058 0006 | X | .CONST 0x0058,0x0006
00fe 0060 0007 | ` | .CONST 0x0060,0x0007
0100 0064 0008 | d | .CONST 0x0064,0x0008
0102 0066 0009 | f | .CONST 0x0066,0x0009
0104 006d 000a | m | .CONST 0x006d,0x000a
0106 ; --------------------------------------------------------------------------------------
0106 ; Debug3 Subtable 0x4
0106 ; --------------------------------------------------------------------------------------
0106 0002 0002 | | .DBG3TAB 0x0002,0x0002
0108 007b ffff | { | .CONST 0x007b,0xffff
010a 0080 fffe | | .CONST 0x0080,0xfffe
010c 0082 0001 | | .CONST 0x0082,0x0001
010e 008a 0002 | | .CONST 0x008a,0x0002
0110 0000 0000 | | .BLANK 0000[0xf0]