|
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 0188 | | .CONST 0x0188 ; 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 000d | | .CONST 0x000d ; Number of locals
000b INIT_0008:
000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated
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 001b | | .CONST 0x001b ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0001 | | .CONST 0x0001 ; Number of locals
001b BODY_0018:
001b INIT_0018:
001b 00da | | Load_Top At_Offset_2
001c e002 | | Load 0x0,0x2
001d 016f | o | Execute Variant_Record,Equal
001e 6803 |h | Jump_Zero 0x22
001f 0092 00cc | | Action Push_String_Extended,0xcc ; "no value"
0021 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0022 00da | | Load_Top At_Offset_2
0023 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0024 461b |F | Jump_Case 0x1c
0025 781e |x | Jump 0x44 ; case 0x0
0026 7820 |x | Jump 0x47 ; case 0x1
0027 7822 |x" | Jump 0x4a ; case 0x2
0028 782a |x* | Jump 0x53 ; case 0x3
0029 782c |x, | Jump 0x56 ; case 0x4
002a 782e |x. | Jump 0x59 ; case 0x5
002b 7835 |x5 | Jump 0x61 ; case 0x6
002c 783c |x< | Jump 0x69 ; case 0x7
002d 7843 |xC | Jump 0x71 ; case 0x8
002e 784a |xJ | Jump 0x79 ; case 0x9
002f 7851 |xQ | Jump 0x81 ; case 0xa
0030 785f |x_ | Jump 0x90 ; case 0xb
0031 786d |xm | Jump 0x9f ; case 0xc
0032 786f |xo | Jump 0xa2 ; case 0xd
0033 7871 |xq | Jump 0xa5 ; case 0xe
0034 7873 |xs | Jump 0xa8 ; case 0xf
0035 7875 |xu | Jump 0xab ; case 0x10
0036 7877 |xw | Jump 0xae ; case 0x11
0037 7879 |xy | Jump 0xb1 ; case 0x12
0038 787b |x{ | Jump 0xb4 ; case 0x13
0039 787d |x} | Jump 0xb7 ; case 0x14
003a 787f |x | Jump 0xba ; case 0x15
003b 7881 |x | Jump 0xbd ; case 0x16
003c 7883 |x | Jump 0xc0 ; case 0x17
003d 7885 |x | Jump 0xc3 ; case 0x18
003e 7887 |x | Jump 0xc6 ; case 0x19
003f 7889 |x | Jump 0xc9 ; case 0x1a
0040 7800 |x | Jump 0x41 ; case 0x1b
0041 0092 00cd | | Action Push_String_Extended,0xcd ; "<X_Window>"
0043 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0044 0092 00ce | | Action Push_String_Extended,0xce ; "<none>"
0046 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0047 0092 00cf | | Action Push_String_Extended,0xcf ; "<file>"
0049 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
004a 0092 00d0 | | Action Push_String_Extended,0xd0 ; "<boolean> "
004c 00db | | Load_Top At_Offset_3
004d 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
004e 00e1 | | Load_Encached Boolean_Cache
004f 011c | | Execute Any,Convert_Unchecked
0050 1c01 | | Execute_Immediate Run_Utility,0x1
0051 01cc | | Execute Vector,Catenate
0052 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0053 0092 00d1 | | Action Push_String_Extended,0xd1 ; "<float>"
0055 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0056 0092 00d2 | | Action Push_String_Extended,0xd2 ; "<u_char_list>"
0058 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0059 0092 00d3 | | Action Push_String_Extended,0xd3 ; "<U_Char> "
005b 00db | | Load_Top At_Offset_3
005c 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
005d 00e0 | | Load_Encached Standard_Cache
005e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
005f 01cc | | Execute Vector,Catenate
0060 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0061 0092 00d4 | | Action Push_String_Extended,0xd4 ; "<U_Short> "
0063 00db | | Load_Top At_Offset_3
0064 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
0065 00e0 | | Load_Encached Standard_Cache
0066 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0067 01cc | | Execute Vector,Catenate
0068 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0069 0092 00d5 | | Action Push_String_Extended,0xd5 ; "<S_Char> "
006b 00db | | Load_Top At_Offset_3
006c 2e08 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
006d 00e0 | | Load_Encached Standard_Cache
006e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
006f 01cc | | Execute Vector,Catenate
0070 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0071 0092 00d6 | | Action Push_String_Extended,0xd6 ; "<S_Short> "
0073 00db | | Load_Top At_Offset_3
0074 2e09 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
0075 00e0 | | Load_Encached Standard_Cache
0076 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0077 01cc | | Execute Vector,Catenate
0078 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0079 0092 00d7 | | Action Push_String_Extended,0xd7 ; "<s_long> "
007b 00db | | Load_Top At_Offset_3
007c 2e0a |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xa
007d 00e0 | | Load_Encached Standard_Cache
007e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
007f 01cc | | Execute Vector,Catenate
0080 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0081 00da | | Load_Top At_Offset_2
0082 2e0b |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb
0083 6809 |h | Jump_Zero 0x8d
0084 4822 |H" | Short_Literal 0x22
0085 0092 00d8 | | Action Push_String_Extended,0xd8 ; "<string7> \x22"
0087 e5ff | | Load 0x2,-0x1
0088 2e0b |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xb
0089 0227 | ' | Execute Access,All_Reference
008a 01cc | | Execute Vector,Catenate
008b 01cb | | Execute Vector,Append
008c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
008d 0092 00d9 | | Action Push_String_Extended,0xd9 ; "<string7> null"
008f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0090 00da | | Load_Top At_Offset_2
0091 2e0c |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
0092 6809 |h | Jump_Zero 0x9c
0093 4822 |H" | Short_Literal 0x22
0094 4822 |H" | Short_Literal 0x22
0095 e5ff | | Load 0x2,-0x1
0096 2e0c |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0xc
0097 0227 | ' | Execute Access,All_Reference
0098 01ca | | Execute Vector,Prepend
0099 01cb | | Execute Vector,Append
009a 8003 | | Call 0x0,0x3
009b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
009c 0092 00da | | Action Push_String_Extended,0xda ; "<string> null"
009e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
009f 0092 00db | | Action Push_String_Extended,0xdb ; "<string16>"
00a1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00a2 0092 00dc | | Action Push_String_Extended,0xdc ; "<pointer>"
00a4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00a5 0092 00dd | | Action Push_String_Extended,0xdd ; "<X_Atom>"
00a7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00a8 0092 00de | | Action Push_String_Extended,0xde ; "<X_Color>"
00aa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00ab 0092 00df | | Action Push_String_Extended,0xdf ; "<X_Colormap>"
00ad 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00ae 0092 00e0 | | Action Push_String_Extended,0xe0 ; "<X_Cursor>"
00b0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00b1 0092 00e1 | | Action Push_String_Extended,0xe1 ; "<X_Display>"
00b3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00b4 0092 00e2 | | Action Push_String_Extended,0xe2 ; "<X_Font>"
00b6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00b7 0092 00e3 | | Action Push_String_Extended,0xe3 ; "<X_Font_Struct>"
00b9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00ba 0092 00e4 | | Action Push_String_Extended,0xe4 ; "<X_Initial_Window_State>"
00bc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00bd 0092 00e5 | | Action Push_String_Extended,0xe5 ; "<X_Pixel>"
00bf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00c0 0092 00e6 | | Action Push_String_Extended,0xe6 ; "<X_Pixmap>"
00c2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00c3 0092 00e7 | | Action Push_String_Extended,0xe7 ; "<X_Screen>"
00c5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00c6 0092 00e8 | | Action Push_String_Extended,0xe8 ; "<X_Time>"
00c8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00c9 0092 00e9 | | Action Push_String_Extended,0xe9 ; "<X_Visual>"
00cb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00cc ; --------------------------------------------------------------------------------------
00cc ; STRING TABLE
00cc ; --------------------------------------------------------------------------------------
00cc 003e | > | .STRTAB 0x003e->0x00eb ; "no value"
00cd 0044 | D | .STRTAB 0x0044->0x00ef ; "<X_Window>"
00ce 004c | L | .STRTAB 0x004c->0x00f4 ; "<none>"
00cf 0050 | P | .STRTAB 0x0050->0x00f7 ; "<file>"
00d0 0054 | T | .STRTAB 0x0054->0x00fa ; "<boolean> "
00d1 005c | \ | .STRTAB 0x005c->0x00ff ; "<float>"
00d2 0061 | a | .STRTAB 0x0061->0x0102 ; "<u_char_list>"
00d3 006c | l | .STRTAB 0x006c->0x0109 ; "<U_Char> "
00d4 0073 | s | .STRTAB 0x0073->0x010d ; "<U_Short> "
00d5 007b | { | .STRTAB 0x007b->0x0112 ; "<S_Char> "
00d6 0082 | | .STRTAB 0x0082->0x0117 ; "<S_Short> "
00d7 008a | | .STRTAB 0x008a->0x011c ; "<s_long> "
00d8 0091 | | .STRTAB 0x0091->0x0120 ; "<string7> \x22"
00d9 009a | | .STRTAB 0x009a->0x0126 ; "<string7> null"
00da 00a6 | | .STRTAB 0x00a6->0x012d ; "<string> null"
00db 00b1 | | .STRTAB 0x00b1->0x0133 ; "<string16>"
00dc 00b9 | | .STRTAB 0x00b9->0x0138 ; "<pointer>"
00dd 00c0 | | .STRTAB 0x00c0->0x013d ; "<X_Atom>"
00de 00c6 | | .STRTAB 0x00c6->0x0141 ; "<X_Color>"
00df 00cd | | .STRTAB 0x00cd->0x0145 ; "<X_Colormap>"
00e0 00d7 | | .STRTAB 0x00d7->0x014b ; "<X_Cursor>"
00e1 00df | | .STRTAB 0x00df->0x0150 ; "<X_Display>"
00e2 00e8 | | .STRTAB 0x00e8->0x0156 ; "<X_Font>"
00e3 00ee | | .STRTAB 0x00ee->0x015a ; "<X_Font_Struct>"
00e4 00fb | | .STRTAB 0x00fb->0x0161 ; "<X_Initial_Window_State>"
00e5 0111 | | .STRTAB 0x0111->0x016d ; "<X_Pixel>"
00e6 0118 | | .STRTAB 0x0118->0x0172 ; "<X_Pixmap>"
00e7 0120 | | .STRTAB 0x0120->0x0177 ; "<X_Screen>"
00e8 0128 | ( | .STRTAB 0x0128->0x017c ; "<X_Time>"
00e9 012e | . | .STRTAB 0x012e->0x0180 ; "<X_Visual>"
00ea 0136 | 6 | .STREND 0x0136->0x0185
00eb 6e6f 2076 |no v| .STRTAB_STRINGS
0185 0000 0000 | | .XXX[0x3]
0187 0000 | |
0188 ; --------------------------------------------------------------------------------------
0188 ; Debug Table
0188 ; --------------------------------------------------------------------------------------
0188 0004 0000 | | .DEBUG4 0x0004,0x0000,0x67d0,0x0000,0x0001,0x0003
018e 000b 019a | | .DBG4T 0x000b,0x019a,0x8000,0x0000
0192 000e 019d | | .DBG4T 0x000e,0x019d,0x8000,0x0000
0196 001b 01a0 | | .DBG4T 0x001b,0x01a0,0x0002,0x4000
019a ; --------------------------------------------------------------------------------------
019a ; Debug chain
019a ; --------------------------------------------------------------------------------------
019a 0001 0000 | | .DBGLEN 0x0001,0x0000
019c 000b | | .DBGLNO 0x000b
019d ; --------------------------------------------------------------------------------------
019d ; Debug chain
019d ; --------------------------------------------------------------------------------------
019d 0001 0000 | | .DBGLEN 0x0001,0x0000
019f 000e | | .DBGLNO 0x000e
01a0 ; --------------------------------------------------------------------------------------
01a0 ; Debug chain
01a0 ; --------------------------------------------------------------------------------------
01a0 0000 0023 | #| .DBGLEN 0x0000,0x0023
01a2 001b 001f | | .DBGLNO 0x001b,0x001f,0x0022,0x0041,0x0044,0x0047,0x004a,0x0053,0x0056,0x0059,0x0061,0x0069,0x0071,0x0079,0x0081,0x0084,0x008d,0x0090,0x0093,0x009c,0x009f,0x00a2,0x00a5,0x00a8,0x00ab,0x00ae,0x00b1,0x00b4,0x00b7,0x00ba,0x00bd,0x00c0,0x00c3,0x00c6,0x00c9
01c5 0001 0002 | | .XXX[0x23]
01c7 0003 0023 | #|
01c9 0004 0005 | |
01cb 0006 0007 | |
01cd 0008 0009 | |
01cf 000a 000b | |
01d1 000c 000d | |
01d3 000e 000f | |
01d5 0010 0011 | |
01d7 0012 0013 | |
01d9 0014 0015 | |
01db 0016 0017 | |
01dd 0018 0019 | |
01df 001a 001b | |
01e1 001c 001d | |
01e3 001e 001f | |
01e5 0020 0021 | !|
01e7 0022 | " |
01e8 0000 0000 | | .BLANK 0000[0x18]