|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6148f2
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0160 | ` | .CONST 0x0160 ; 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 0008 | | .CONST 0x0008 ; Number of locals
000b INIT_0008:
000b e003 | | Load 0x0,0x3
000c 0007 | | Action Break_Optional
000d e026 | & | Load 0x0,0x26
000e 0007 | | Action Break_Optional
000f e004 | | Load 0x0,0x4
0010 0007 | | Action Break_Optional
0011 e027 | ' | Load 0x0,0x27
0012 0007 | | Action Break_Optional
0013 4801 |H | Short_Literal 0x1
0014 4901 |I | Short_Literal 0x101
0015 e028 | ( | Load 0x0,0x28
0016 035b | [ | Declare_Type Array,Constrained
0017 0337 | 7 | Declare_Variable Array
0018 e029 | ) | Load 0x0,0x29
0019 0322 | " | Declare_Variable Record
001a 029f 00eb | | Declare_Subprogram INIT_00e8,For_Call
001c BODY_0008:
001c 0092 0100 | | Action Push_String_Extended,0x100 ; " root="
001e e010 | | Load 0x0,0x10
001f 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0020 e5ff | | Load 0x2,-0x1
0021 2606 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
0022 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
0023 822b | + | Call 0x1,0x2b
0024 0092 0101 | | Action Push_String_Extended,0x101 ; ", subw="
0026 e010 | | Load 0x0,0x10
0027 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0028 e5ff | | Load 0x2,-0x1
0029 2606 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
002a 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
002b 822b | + | Call 0x1,0x2b
002c 0092 0102 | | Action Push_String_Extended,0x102 ; ", time="
002e e010 | | Load 0x0,0x10
002f 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0030 e5ff | | Load 0x2,-0x1
0031 2606 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
0032 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0033 822a | * | Call 0x1,0x2a
0034 0092 0103 | | Action Push_String_Extended,0x103 ; ","
0036 e010 | | Load 0x0,0x10
0037 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0038 4801 |H | Short_Literal 0x1
0039 e010 | | Load 0x0,0x10
003a 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
003b 0092 0104 | | Action Push_String_Extended,0x104 ; " x/y=("
003d e010 | | Load 0x0,0x10
003e 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
003f e5ff | | Load 0x2,-0x1
0040 2606 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
0041 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
0042 822c | , | Call 0x1,0x2c
0043 482c |H, | Short_Literal 0x2c
0044 e010 | | Load 0x0,0x10
0045 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0046 e5ff | | Load 0x2,-0x1
0047 2606 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
0048 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
0049 822c | , | Call 0x1,0x2c
004a 0092 0105 | | Action Push_String_Extended,0x105 ; "), root:x/y=("
004c e010 | | Load 0x0,0x10
004d 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
004e e5ff | | Load 0x2,-0x1
004f 2606 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
0050 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0051 822c | , | Call 0x1,0x2c
0052 482c |H, | Short_Literal 0x2c
0053 e010 | | Load 0x0,0x10
0054 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0055 e5ff | | Load 0x2,-0x1
0056 2606 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
0057 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0058 822c | , | Call 0x1,0x2c
0059 0092 0106 | | Action Push_String_Extended,0x106 ; "),"
005b e010 | | Load 0x0,0x10
005c 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
005d 4801 |H | Short_Literal 0x1
005e e010 | | Load 0x0,0x10
005f 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0060 00d9 | | Load_Top At_Offset_1
0061 e003 | | Load 0x0,0x3
0062 e004 | | Load 0x0,0x4
0063 e406 | | Load 0x2,0x6
0064 e5ff | | Load 0x2,-0x1
0065 802a | * | Call 0x0,0x2a
0066 00d1 | | Pop_Control Pop_Count_1
0067 c404 | | Store 0x2,0x4
0068 c402 | | Store 0x2,0x2
0069 00d1 | | Pop_Control Pop_Count_1
006a 0092 0107 | | Action Push_String_Extended,0x107 ; " state="
006c e010 | | Load 0x0,0x10
006d 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
006e e5ff | | Load 0x2,-0x1
006f 2606 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
0070 340b |4 | Execute Record,Field_Reference,Field_Number 0xb
0071 e237 | 7 | Load 0x1,0x37
0072 e238 | 8 | Load 0x1,0x38
0073 e239 | 9 | Load 0x1,0x39
0074 e23a | : | Load 0x1,0x3a
0075 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b
0076 8230 | 0 | Call 0x1,0x30
0077 0092 0108 | | Action Push_String_Extended,0x108 ; ", keycode="
0079 e010 | | Load 0x0,0x10
007a 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
007b e5ff | | Load 0x2,-0x1
007c 2606 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
007d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
007e 8222 | " | Call 0x1,0x22
007f 0092 0109 | | Action Push_String_Extended,0x109 ; " (keysym="
0081 e010 | | Load 0x0,0x10
0082 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0083 e402 | | Load 0x2,0x2
0084 8223 | # | Call 0x1,0x23
0085 0092 010a | | Action Push_String_Extended,0x10a ; ", "
0087 e010 | | Load 0x0,0x10
0088 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0089 e402 | | Load 0x2,0x2
008a 7005 |p | Jump_Nonzero 0x90
008b 0092 010b | | Action Push_String_Extended,0x10b ; "No_Symbol"
008d e010 | | Load 0x0,0x10
008e 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
008f 7801 |x | Jump 0x91
0090 8408 | | Call 0x2,0x8
0091 0092 010c | | Action Push_String_Extended,0x10c ; "), same_screen="
0093 e010 | | Load 0x0,0x10
0094 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0095 e5ff | | Load 0x2,-0x1
0096 2606 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
0097 3c0c |< | Execute Record,Field_Read,Field_Number 0xc
0098 8217 | | Call 0x1,0x17
0099 482c |H, | Short_Literal 0x2c
009a e010 | | Load 0x0,0x10
009b 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
009c 4801 |H | Short_Literal 0x1
009d e010 | | Load 0x0,0x10
009e 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
009f 0092 010d | | Action Push_String_Extended,0x10d ; " XLookupString gives "
00a1 e010 | | Load 0x0,0x10
00a2 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
00a3 e00f | | Load 0x0,0xf
00a4 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00a5 4800 |H | Short_Literal 0x0
00a6 e404 | | Load 0x2,0x4
00a7 e00f | | Load 0x0,0xf
00a8 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00a9 0092 010e | | Action Push_String_Extended,0x10e ; " characters:\x22"
00ab e010 | | Load 0x0,0x10
00ac 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
00ad 00cf | | Action Mark_Auxiliary
00ae e404 | | Load 0x2,0x4
00af 4801 |H | Short_Literal 0x1
00b0 0263 | c | Execute Discrete,Above_Bound
00b1 7026 |p& | Jump_Nonzero 0xd8
00b2 00d8 | | Load_Top At_Offset_0
00b3 e406 | | Load 0x2,0x6
00b4 01d7 | | Execute Vector,Field_Read
00b5 0c7f | | Execute_Immediate Greater_Equal,0x7f
00b6 7005 |p | Jump_Nonzero 0xbc
00b7 00d8 | | Load_Top At_Offset_0
00b8 e406 | | Load 0x2,0x6
00b9 01d7 | | Execute Vector,Field_Read
00ba 0d20 | | Execute_Immediate Less,0x20
00bb 6810 |h | Jump_Zero 0xcc
00bc 485c |H\ | Short_Literal 0x5c
00bd e010 | | Load 0x0,0x10
00be 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
00bf 4808 |H | Short_Literal 0x8
00c0 4800 |H | Short_Literal 0x0
00c1 00da | | Load_Top At_Offset_2
00c2 e406 | | Load 0x2,0x6
00c3 01d7 | | Execute Vector,Field_Read
00c4 00d8 | | Load_Top At_Offset_0
00c5 e003 | | Load 0x0,0x3
00c6 0260 | ` | Execute Discrete,In_Type
00c7 7001 |p | Jump_Nonzero 0xc9
00c8 0801 | | Execute_Immediate Raise,0x1
00c9 e00f | | Load 0x0,0xf
00ca 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00cb 780a |x | Jump 0xd6
00cc 00d8 | | Load_Top At_Offset_0
00cd e406 | | Load 0x2,0x6
00ce 01d7 | | Execute Vector,Field_Read
00cf 00d8 | | Load_Top At_Offset_0
00d0 00e8 | | Load_Encached Character_Cache
00d1 0260 | ` | Execute Discrete,In_Type
00d2 7001 |p | Jump_Nonzero 0xd4
00d3 0801 | | Execute_Immediate Raise,0x1
00d4 e010 | | Load 0x0,0x10
00d5 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
00d6 00c8 | | Action Pop_Auxiliary_Range
00d7 3fda |? | Loop_Increasing 0xb2
00d8 00ce | | Action Pop_Auxiliary
00d9 0092 010f | | Action Push_String_Extended,0x10f ; "\x22"
00db e010 | | Load 0x0,0x10
00dc 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
00dd 4801 |H | Short_Literal 0x1
00de e010 | | Load 0x0,0x10
00df 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
00e0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00e1 0000 0000 | | .BLANK 0000[0x7]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00ed | | .CONST 0x00ed ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0002 | | .CONST 0x0002 ; Number of locals
00eb INIT_00e8:
00eb e402 | | Load 0x2,0x2
00ec 802b | + | Call 0x0,0x2b
00ed BODY_00e8:
00ed 00d8 | | Load_Top At_Offset_0
00ee 4800 |H | Short_Literal 0x0
00ef 00e5 | | Load_Encached Long_Integer_Cache
00f0 00d9 | | Load_Top At_Offset_1
00f1 0267 | g | Execute Discrete,Predecessor
00f2 e028 | ( | Load 0x0,0x28
00f3 0334 | 4 | Declare_Variable Array,With_Constraint
00f4 01df | | Execute Vector,Equal
00f5 6805 |h | Jump_Zero 0xfb
00f6 0092 0110 | | Action Push_String_Extended,0x110 ; "(no name)"
00f8 e010 | | Load 0x0,0x10
00f9 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
00fa 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00fb 00d8 | | Load_Top At_Offset_0
00fc 801f | | Call 0x0,0x1f
00fd e010 | | Load 0x0,0x10
00fe 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
00ff 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0100 ; --------------------------------------------------------------------------------------
0100 ; STRING TABLE
0100 ; --------------------------------------------------------------------------------------
0100 0024 | $ | .STRTAB 0x0024->0x0112 ; " root="
0101 002b | + | .STRTAB 0x002b->0x0116 ; ", subw="
0102 0030 | 0 | .STRTAB 0x0030->0x011a ; ", time="
0103 0035 | 5 | .STRTAB 0x0035->0x011d ; ","
0104 0034 | 4 | .STRTAB 0x0034->0x011e ; " x/y=("
0105 003b | ; | .STRTAB 0x003b->0x0122 ; "), root:x/y=("
0106 0046 | F | .STRTAB 0x0046->0x0129 ; "),"
0107 0046 | F | .STRTAB 0x0046->0x012a ; " state="
0108 004e | N | .STRTAB 0x004e->0x012f ; ", keycode="
0109 0056 | V | .STRTAB 0x0056->0x0134 ; " (keysym="
010a 005d | ] | .STRTAB 0x005d->0x0138 ; ", "
010b 005d | ] | .STRTAB 0x005d->0x0139 ; "No_Symbol"
010c 0064 | d | .STRTAB 0x0064->0x013e ; "), same_screen="
010d 0071 | q | .STRTAB 0x0071->0x0145 ; " XLookupString gives "
010e 0087 | | .STRTAB 0x0087->0x0151 ; " characters:\x22"
010f 0092 | | .STRTAB 0x0092->0x0158 ; "\x22"
0110 0091 | | .STRTAB 0x0091->0x0158 ; "(no name)"
0111 0098 | | .STREND 0x0098->0x015d
0112 2020 2020 | | .STRTAB_STRINGS
015d 0000 0000 | | .XXX[0x3]
015f 0000 | |
0160 ; --------------------------------------------------------------------------------------
0160 ; Debug Table
0160 ; --------------------------------------------------------------------------------------
0160 0004 0000 | | .DEBUG4 0x0004,0x0000,0x6876,0x0000,0x0001,0x0002
0166 000b 016e | n| .DBG4T 0x000b,0x016e,0x0001,0x0000
016a 00eb 01a1 | | .DBG4T 0x00eb,0x01a1,0x0004,0x0000
016e ; --------------------------------------------------------------------------------------
016e ; Debug chain
016e ; --------------------------------------------------------------------------------------
016e 0006 002b | +| .DBGLEN 0x0006,0x002b
0170 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x0018,0x001c,0x0020,0x0024,0x0028,0x002c,0x0030,0x0034,0x0038,0x003b,0x003f,0x0043,0x0046,0x004a,0x004e,0x0052,0x0055,0x0059,0x005d,0x0060,0x006a,0x006e,0x0077,0x007b,0x007f,0x0083,0x0085,0x0089,0x008b,0x0090,0x0091,0x0095,0x0099,0x009c,0x009f,0x00a3,0x00a9,0x00ae,0x00b2,0x00bc,0x00bf,0x00cc,0x00d9,0x00dd
01a1 ; --------------------------------------------------------------------------------------
01a1 ; Debug chain
01a1 ; --------------------------------------------------------------------------------------
01a1 0001 0003 | | .DBGLEN 0x0001,0x0003
01a3 00eb 00ed | | .DBGLNO 0x00eb,0x00ed,0x00f6,0x00fb
01a7 0000 0000 | | .BLANK 0000[0x59]