|
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 006b | k | .CONST 0x006b ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0015 | | .CONST 0x0015 ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0 ; Debug Table 0x0 = .DEBUG 0x000b,0x010a,0x8000,0x0000,0x0051,0xb8b5,0x0000,0x0003
; Debug Table 0x0.0x0 = 0xb,0xffff
; Debug Table 0x0.0x1 = 0xb,0xfffe
; Debug Table 0x0.0x2 = 0xb,0xfffd
; Debug Table 0x0.0x3 = 0xb,0xfffc
000c 4802 |H | Short_Literal 0x2
000d 029f 0073 | s| Declare_Subprogram INIT_0070,For_Call
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x4 = 0x10,0xfffb
0011 4803 |H | Short_Literal 0x3
0012 029f 008b | | Declare_Subprogram INIT_0088,For_Call
0014 03fe | | Declare_Type Discrete,Defined,Visible
0015 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x5 = 0x15,0xfffa
0016 0266 | f | Execute Discrete,Bounds
0017 00e1 | | Load_Encached Boolean_Cache
0018 02a0 | | Declare_Subprogram Null_Subprogram
0019 4801 |H | Short_Literal 0x1
001a 035e | ^ | Declare_Type Array,Defined,Visible
001b 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x6 = 0x1b,0xfff9
001c 4801 |H | Short_Literal 0x1
001d 029f 00a3 | | Declare_Subprogram INIT_00a0,For_Call
001f 03fe | | Declare_Type Discrete,Defined,Visible
0020 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x0.0x7 = 0x20,0xfff8
0021 e20d | | Load 0x1,0xd
0022 00da | | Load_Top At_Offset_2
0023 e20f | | Load 0x1,0xf
0024 02a0 | | Declare_Subprogram Null_Subprogram
0025 4804 |H | Short_Literal 0x4
0026 032e | . | Declare_Type Record,Defined,Visible
0027 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x8 = 0x27,0xfff7
0028 0322 | " | Declare_Variable Record
0029 4800 |H | Short_Literal 0x0
002a 00d9 | | Load_Top At_Offset_1
002b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
002c 4800 |H | Short_Literal 0x0
002d 00d9 | | Load_Top At_Offset_1
002e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
002f 4800 |H | Short_Literal 0x0
0030 00d9 | | Load_Top At_Offset_1
0031 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0032 00db | | Load_Top At_Offset_3
0033 0337 | 7 | Declare_Variable Array
0034 4803 |H | Short_Literal 0x3
0035 4800 |H | Short_Literal 0x0
0036 4800 |H | Short_Literal 0x0
0037 00d9 | | Load_Top At_Offset_1
0038 e213 | | Load 0x1,0x13
0039 01d6 | | Execute Vector,Field_Write
003a 3ffb |? | Loop_Increasing 0x36
003b e20f | | Load 0x1,0xf
003c 0119 | | Execute Any,Check_In_Formal_Type
003d 00d9 | | Load_Top At_Offset_1
003e 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
003f 0129 | ) | Execute Any,Make_Visible
0040 00e4 | | Load_Encached Positive_Cache ; Debug Table 0x0.0x9 = 0x40,0xfff6
0041 0266 | f | Execute Discrete,Bounds
0042 00db | | Load_Top At_Offset_3
0043 02a0 | | Declare_Subprogram Null_Subprogram
0044 4801 |H | Short_Literal 0x1
0045 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
0046 6071 |`q | Indirect_Literal Discrete,0xb8,{0x00000000, 0x51b8b501} ; Debug Table 0x0.0xa = 0x46,0xfff5
0047 0129 | ) | Execute Any,Make_Visible
0048 00db | | Load_Top At_Offset_3 ; Debug Table 0x0.0xb = 0x48,0xfff4
0049 0322 | " | Declare_Variable Record
004a 4800 |H | Short_Literal 0x0
004b 00d9 | | Load_Top At_Offset_1
004c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
004d 4801 |H | Short_Literal 0x1
004e 00d9 | | Load_Top At_Offset_1
004f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0050 4800 |H | Short_Literal 0x0
0051 00d9 | | Load_Top At_Offset_1
0052 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0053 e20f | | Load 0x1,0xf
0054 0337 | 7 | Declare_Variable Array
0055 4801 |H | Short_Literal 0x1
0056 4801 |H | Short_Literal 0x1
0057 00da | | Load_Top At_Offset_2
0058 01d6 | | Execute Vector,Field_Write
0059 4800 |H | Short_Literal 0x0
005a 4800 |H | Short_Literal 0x0
005b 00da | | Load_Top At_Offset_2
005c 01d6 | | Execute Vector,Field_Write
005d 4800 |H | Short_Literal 0x0
005e 4802 |H | Short_Literal 0x2
005f 00da | | Load_Top At_Offset_2
0060 01d6 | | Execute Vector,Field_Write
0061 4800 |H | Short_Literal 0x0
0062 4803 |H | Short_Literal 0x3
0063 00da | | Load_Top At_Offset_2
0064 01d6 | | Execute Vector,Field_Write
0065 e20f | | Load 0x1,0xf
0066 0119 | | Execute Any,Check_In_Formal_Type
0067 00d9 | | Load_Top At_Offset_1
0068 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0069 0129 | ) | Execute Any,Make_Visible
006a 00bf | | Action Accept_Activation
006b BODY_0008:
006b 00bc | | Action Signal_Activated
006c 00bb | | Action Signal_Completion
006d 0000 0000 | | .XXX[0x3]
006f 0000 | |
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 4603 |F | Jump_Case 0x4 ; Debug Table 0x1 = .DEBUG 0x0073,0x0124,0x0005,0x0000,0x0051,0xb8b5,0x0000,0x0011
0074 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0075 7802 |x | Jump 0x78 ; case 0x1
0076 7805 |x | Jump 0x7c ; case 0x2
0077 7809 |x | Jump 0x81 ; case 0x3
0078 00da | | Load_Top At_Offset_2
0079 0091 00bc | | Action Push_String_Extended_Indexed,0xbc ; "TEXT"
007b 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
007c 00db | | Load_Top At_Offset_3
007d 00db | | Load_Top At_Offset_3
007e 00e0 | | Load_Encached Standard_Cache
007f 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0080 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0081 00da | | Load_Top At_Offset_2
0082 00e0 | | Load_Encached Standard_Cache
0083 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0084 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
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 4603 |F | Jump_Case 0x4 ; Debug Table 0x2 = .DEBUG 0x008b,0x0126,0x0005,0x0000,0x0051,0xb8b5,0x0000,0x0018
008c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
008d 7802 |x | Jump 0x90 ; case 0x1
008e 7805 |x | Jump 0x94 ; case 0x2
008f 7809 |x | Jump 0x99 ; case 0x3
0090 00da | | Load_Top At_Offset_2
0091 0091 00bf | | Action Push_String_Extended_Indexed,0xbf ; "ENHANCED"
0093 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0094 00db | | Load_Top At_Offset_3
0095 00db | | Load_Top At_Offset_3
0096 00e0 | | Load_Encached Standard_Cache
0097 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0098 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0099 00da | | Load_Top At_Offset_2
009a 00e0 | | Load_Encached Standard_Cache
009b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
009c 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
009d 0000 0000 | | .XXX[0x3]
009f 0000 | |
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 4603 |F | Jump_Case 0x4 ; Debug Table 0x3 = .DEBUG 0x00a3,0x0128,0x0005,0x0000,0x0051,0xb8b5,0x0000,0x0029
00a4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00a5 7802 |x | Jump 0xa8 ; case 0x1
00a6 7805 |x | Jump 0xac ; case 0x2
00a7 7809 |x | Jump 0xb1 ; case 0x3
00a8 00da | | Load_Top At_Offset_2
00a9 0091 00c3 | | Action Push_String_Extended_Indexed,0xc3 ; "TEXT"
00ab 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00ac 00db | | Load_Top At_Offset_3
00ad 00db | | Load_Top At_Offset_3
00ae 00e0 | | Load_Encached Standard_Cache
00af 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00b0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00b1 00da | | Load_Top At_Offset_2
00b2 00e0 | | Load_Encached Standard_Cache
00b3 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00b4 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00b5 0000 0000 | | .XXX[0x3]
00b7 0000 | |
00b8 0000 0000 | | .LITERAL {0x00000000, 0x51b8b501}
00bc ; --------------------------------------------------------------------------------------
00bc ; STRING TABLE
00bc ; --------------------------------------------------------------------------------------
00bc 0014 | | .STRTAB 0x0014->0x00c6 ; "TEXT"
00bd 0016 | | .STRTAB 0x0016->0x00c8 ; "PROMPT"
00be 001a | | .STRTAB 0x001a->0x00cb ; "PROTECTED"
00bf 0021 | ! | .STRTAB 0x0021->0x00cf ; "ENHANCED"
00c0 0027 | ' | .STRTAB 0x0027->0x00d3 ; "REVERSED"
00c1 002d | - | .STRTAB 0x002d->0x00d7 ; "UNDERLINED"
00c2 0035 | 5 | .STRTAB 0x0035->0x00dc ; "BLINKING"
00c3 003b | ; | .STRTAB 0x003b->0x00e0 ; "TEXT"
00c4 003d | = | .STRTAB 0x003d->0x00e2 ; "GRAPHICS"
00c5 0043 | C | .STREND 0x0043->0x00e6
00c6 5445 5854 |TEXT| .STRTAB_STRINGS
00e7 0000 | | .XXX[0x1]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; Debug Table
00e8 ; --------------------------------------------------------------------------------------
00e8 0003 0004 | | .CONST 0x0003,0x0004
00ea 000b 010a | | .DEBUG 0x000b,0x010a,0x8000,0x0000,0x0051,0xb8b5,0x0000,0x0003
00f2 0073 0124 | s $| .DEBUG 0x0073,0x0124,0x0005,0x0000,0x0051,0xb8b5,0x0000,0x0011
00fa 008b 0126 | &| .DEBUG 0x008b,0x0126,0x0005,0x0000,0x0051,0xb8b5,0x0000,0x0018
0102 00a3 0128 | (| .DEBUG 0x00a3,0x0128,0x0005,0x0000,0x0051,0xb8b5,0x0000,0x0029
010a ; --------------------------------------------------------------------------------------
010a ; Debug3 Subtable 0x0
010a ; --------------------------------------------------------------------------------------
010a 000c 0000 | | .DBG3TAB 0x000c,0x0000
010c 000b ffff | | .CONST 0x000b,0xffff
010e 000b fffe | | .CONST 0x000b,0xfffe
0110 000b fffd | | .CONST 0x000b,0xfffd
0112 000b fffc | | .CONST 0x000b,0xfffc
0114 0010 fffb | | .CONST 0x0010,0xfffb
0116 0015 fffa | | .CONST 0x0015,0xfffa
0118 001b fff9 | | .CONST 0x001b,0xfff9
011a 0020 fff8 | | .CONST 0x0020,0xfff8
011c 0027 fff7 | ' | .CONST 0x0027,0xfff7
011e 0040 fff6 | @ | .CONST 0x0040,0xfff6
0120 0046 fff5 | F | .CONST 0x0046,0xfff5
0122 0048 fff4 | H | .CONST 0x0048,0xfff4
0124 ; --------------------------------------------------------------------------------------
0124 ; Debug3 Subtable 0x1
0124 ; --------------------------------------------------------------------------------------
0124 0000 0000 | | .DBG3TAB 0x0000,0x0000
0126 ; --------------------------------------------------------------------------------------
0126 ; Debug3 Subtable 0x2
0126 ; --------------------------------------------------------------------------------------
0126 0000 0000 | | .DBG3TAB 0x0000,0x0000
0128 ; --------------------------------------------------------------------------------------
0128 ; Debug3 Subtable 0x3
0128 ; --------------------------------------------------------------------------------------
0128 0000 0000 | | .DBG3TAB 0x0000,0x0000
012a 0000 0000 | | .BLANK 0000[0xd6]