|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0314bd
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0128 | ( | .CONST 0x0128 ; 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 001e | | .CONST 0x001e ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0010 | | .CONST 0x0010 ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 4803 |H | Short_Literal 0x3
000d 029f 0023 | #| Declare_Subprogram INIT_0020,For_Call
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 4800 |H | Short_Literal 0x0
0011 4808 |H | Short_Literal 0x8
0012 029f 004b | K| Declare_Subprogram INIT_0048,For_Call
0014 03fe | | Declare_Type Discrete,Defined,Visible
0015 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated
0017 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated
0019 00bf | | Action Accept_Activation
001a 1d0f | | Execute_Immediate Reference_Lex_1,0xf
001b 00c7 | | Action Elaborate_Subprogram
001c 1d10 | | Execute_Immediate Reference_Lex_1,0x10
001d 00c7 | | Action Elaborate_Subprogram
001e BODY_0008:
001e 00bc | | Action Signal_Activated
001f 00bb | | Action Signal_Completion
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 4607 |F | Jump_Case 0x8
0024 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0025 7807 |x | Jump 0x2d ; case 0x1
0026 780a |x | Jump 0x31 ; case 0x2
0027 780e |x | Jump 0x36 ; case 0x3
0028 7811 |x | Jump 0x3a ; case 0x4
0029 7812 |x | Jump 0x3c ; case 0x5
002a 7813 |x | Jump 0x3e ; case 0x6
002b 7816 |x | Jump 0x42 ; case 0x7
002c 4302 |C | .XXX[0x1]
002d 00da | | Load_Top At_Offset_2
002e 0091 00f6 | | Action Push_String_Extended_Indexed,0xf6 ; "ST_START"
0030 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0031 00db | | Load_Top At_Offset_3
0032 00db | | Load_Top At_Offset_3
0033 00e0 | | Load_Encached Standard_Cache
0034 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0035 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0036 00da | | Load_Top At_Offset_2
0037 00e0 | | Load_Encached Standard_Cache
0038 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0039 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
003a 00db | | Load_Top At_Offset_3
003b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
003c 00db | | Load_Top At_Offset_3
003d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
003e e20d | | Load 0x1,0xd
003f 00dc | | Load_Top At_Offset_4
0040 0267 | g | Execute Discrete,Predecessor
0041 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0042 e20d | | Load 0x1,0xd
0043 00dc | | Load_Top At_Offset_4
0044 0268 | h | Execute Discrete,Successor
0045 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0046 0000 0000 | | .XXX[0x2]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 004b | K | .CONST 0x004b ; Address of begin
0049 0004 | | .CONST 0x0004 ; Address of exception handler
004a 0001 | | .CONST 0x0001 ; Number of locals
004b BODY_0048:
004b INIT_0048:
004b 4607 |F | Jump_Case 0x8
004c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
004d 7807 |x | Jump 0x55 ; case 0x1
004e 780a |x | Jump 0x59 ; case 0x2
004f 780e |x | Jump 0x5e ; case 0x3
0050 7811 |x | Jump 0x62 ; case 0x4
0051 7812 |x | Jump 0x64 ; case 0x5
0052 7813 |x | Jump 0x66 ; case 0x6
0053 7816 |x | Jump 0x6a ; case 0x7
0054 4302 |C | .XXX[0x1]
0055 00da | | Load_Top At_Offset_2
0056 0091 00fa | | Action Push_String_Extended_Indexed,0xfa ; "LE"
0058 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0059 00db | | Load_Top At_Offset_3
005a 00db | | Load_Top At_Offset_3
005b 00e0 | | Load_Encached Standard_Cache
005c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
005d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
005e 00da | | Load_Top At_Offset_2
005f 00e0 | | Load_Encached Standard_Cache
0060 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0061 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0062 00db | | Load_Top At_Offset_3
0063 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0064 00db | | Load_Top At_Offset_3
0065 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0066 e20e | | Load 0x1,0xe
0067 00dc | | Load_Top At_Offset_4
0068 0267 | g | Execute Discrete,Predecessor
0069 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
006a e20e | | Load 0x1,0xe
006b 00dc | | Load_Top At_Offset_4
006c 0268 | h | Execute Discrete,Successor
006d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
006e 0000 0000 | | .XXX[0x2]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 007b | { | .CONST 0x007b ; Address of begin
0071 0004 | | .CONST 0x0004 ; Address of exception handler
0072 0006 | | .CONST 0x0006 ; Number of locals
0073 INIT_0070:
0073 00e3 | | Load_Encached Natural_Cache
0074 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0075 e20d | | Load 0x1,0xd
0076 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0077 00e8 | | Load_Encached Character_Cache
0078 00e1 | | Load_Encached Boolean_Cache
0079 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
007a 03e9 | | Declare_Variable Discrete,Duplicate
007b BODY_0070:
007b e5fc | | Load 0x2,-0x4
007c 00ea | | Load_Encached Null_String_Cache
007d 8002 | | Call 0x0,0x2
007e 00d1 | | Pop_Control Pop_Count_1
007f 00cf | | Action Mark_Auxiliary
0080 7848 |xH | Jump 0xc9
0081 e5fd | | Load 0x2,-0x3
0082 e5ff | | Load 0x2,-0x1
0083 01d7 | | Execute Vector,Field_Read
0084 a404 | | Store_Unchecked 0x2,0x4
0085 00db | | Load_Top At_Offset_3
0086 8003 | | Call 0x0,0x3
0087 c404 | | Store 0x2,0x4
0088 e403 | | Load 0x2,0x3
0089 4603 |F | Jump_Case 0x4
008a 7806 |x | Jump 0x91 ; case 0x0
008b 7817 |x | Jump 0xa3 ; case 0x1
008c 7832 |x2 | Jump 0xbf ; case 0x2
008d 7800 |x | Jump 0x8e ; case 0x3
008e 4801 |H | Short_Literal 0x1
008f 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0090 7837 |x7 | Jump 0xc8
0091 00db | | Load_Top At_Offset_3
0092 e004 | | Load 0x0,0x4
0093 0260 | ` | Execute Discrete,In_Type
0094 6803 |h | Jump_Zero 0x98
0095 4801 |H | Short_Literal 0x1
0096 a403 | | Store_Unchecked 0x2,0x3
0097 7830 |x0 | Jump 0xc8
0098 00db | | Load_Top At_Offset_3
0099 0f20 | | Execute_Immediate Equal,0x20
009a 6803 |h | Jump_Zero 0x9e
009b 4802 |H | Short_Literal 0x2
009c a403 | | Store_Unchecked 0x2,0x3
009d 782a |x* | Jump 0xc8
009e 4803 |H | Short_Literal 0x3
009f a403 | | Store_Unchecked 0x2,0x3
00a0 4801 |H | Short_Literal 0x1
00a1 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
00a2 7825 |x% | Jump 0xc8
00a3 00db | | Load_Top At_Offset_3
00a4 e004 | | Load 0x0,0x4
00a5 0260 | ` | Execute Discrete,In_Type
00a6 e404 | | Load 0x2,0x4
00a7 0f5f | _ | Execute_Immediate Equal,0x5f
00a8 0278 | x | Execute Discrete,Or
00a9 680a |h | Jump_Zero 0xb4
00aa e5fc | | Load 0x2,-0x4
00ab e404 | | Load 0x2,0x4
00ac 8005 | | Call 0x0,0x5
00ad 00d1 | | Pop_Control Pop_Count_1
00ae e5fd | | Load 0x2,-0x3
00af 0a01 | | Execute_Immediate Plus,0x1
00b0 c5fd | | Store 0x2,-0x3
00b1 4801 |H | Short_Literal 0x1
00b2 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
00b3 7814 |x | Jump 0xc8
00b4 00db | | Load_Top At_Offset_3
00b5 0f20 | | Execute_Immediate Equal,0x20
00b6 6803 |h | Jump_Zero 0xba
00b7 4801 |H | Short_Literal 0x1
00b8 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
00b9 780e |x | Jump 0xc8
00ba 4801 |H | Short_Literal 0x1
00bb 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
00bc 4800 |H | Short_Literal 0x0
00bd 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
00be 7809 |x | Jump 0xc8
00bf 00db | | Load_Top At_Offset_3
00c0 0f20 | | Execute_Immediate Equal,0x20
00c1 6804 |h | Jump_Zero 0xc6
00c2 e5fd | | Load 0x2,-0x3
00c3 0a01 | | Execute_Immediate Plus,0x1
00c4 c5fd | | Store 0x2,-0x3
00c5 7802 |x | Jump 0xc8
00c6 4800 |H | Short_Literal 0x0
00c7 a403 | | Store_Unchecked 0x2,0x3
00c8 00c9 | | Action Pop_Auxiliary_Loop
00c9 00d9 | | Load_Top At_Offset_1
00ca 0f00 | | Execute_Immediate Equal,0x0
00cb e5fd | | Load 0x2,-0x3
00cc e5fe | | Load 0x2,-0x2
00cd 027a | z | Execute Discrete,Less_Equal
00ce 0279 | y | Execute Discrete,And
00cf 77b1 |w | Jump_Nonzero 0x81
00d0 00ce | | Action Pop_Auxiliary
00d1 00d9 | | Load_Top At_Offset_1
00d2 7005 |p | Jump_Nonzero 0xd8
00d3 e5fc | | Load 0x2,-0x4
00d4 0092 0103 | | Action Push_String_Extended,0x103 ; "Lex Error"
00d6 8002 | | Call 0x0,0x2
00d7 00d1 | | Pop_Control Pop_Count_1
00d8 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00d9 0000 0000 | | .BLANK 0000[0x7]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3 | | .CONST 0x00e3 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0001 | | .CONST 0x0001 ; Number of locals
00e3 BODY_00e0:
00e3 INIT_00e0:
00e3 00cf | | Action Mark_Auxiliary
00e4 4808 |H | Short_Literal 0x8
00e5 4800 |H | Short_Literal 0x0
00e6 0007 | | Action Break_Optional
00e7 e5ff | | Load 0x2,-0x1
00e8 8006 | | Call 0x0,0x6
00e9 00d9 | | Load_Top At_Offset_1
00ea e20e | | Load 0x1,0xe
00eb 011c | | Execute Any,Convert_Unchecked
00ec 1c01 | | Execute_Immediate Run_Utility,0x1
00ed 01df | | Execute Vector,Equal
00ee 6802 |h | Jump_Zero 0xf1
00ef 4801 |H | Short_Literal 0x1
00f0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00f1 00c8 | | Action Pop_Auxiliary_Range
00f2 3ff4 |? | Loop_Increasing 0xe7
00f3 00ce | | Action Pop_Auxiliary
00f4 4800 |H | Short_Literal 0x0
00f5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00f6 ; --------------------------------------------------------------------------------------
00f6 ; STRING TABLE
00f6 ; --------------------------------------------------------------------------------------
00f6 001e | | .STRTAB 0x001e->0x0105 ; "ST_START"
00f7 0024 | $ | .STRTAB 0x0024->0x0109 ; "ST_WORD"
00f8 0029 | ) | .STRTAB 0x0029->0x010c ; "ST_SEP"
00f9 002d | - | .STRTAB 0x002d->0x010f ; "ST_UNK"
00fa 0031 | 1 | .STRTAB 0x0031->0x0112 ; "LE"
00fb 0031 | 1 | .STRTAB 0x0031->0x0113 ; "LA"
00fc 0031 | 1 | .STRTAB 0x0031->0x0114 ; "UN"
00fd 0031 | 1 | .STRTAB 0x0031->0x0115 ; "UNE"
00fe 0032 | 2 | .STRTAB 0x0032->0x0117 ; "DANS"
00ff 0034 | 4 | .STRTAB 0x0034->0x0119 ; "SUR"
0100 0035 | 5 | .STRTAB 0x0035->0x011a ; "AVEC"
0101 0037 | 7 | .STRTAB 0x0037->0x011c ; "A"
0102 0036 | 6 | .STRTAB 0x0036->0x011d ; "AU"
0103 0036 | 6 | .STRTAB 0x0036->0x011e ; "Lex Error"
0104 003d | = | .STREND 0x003d->0x0122
0105 5354 5f53 |ST_S| .STRTAB_STRINGS
0123 0000 0000 | | .BLANK 0000[0x5]
0128 ; --------------------------------------------------------------------------------------
0128 ; Debug Table
0128 ; --------------------------------------------------------------------------------------
0128 0004 0008 | | .DEBUG4 0x0004,0x0008,0xdf32,0x0000,0x0001,0x0006
012e 000b 0146 | F| .DBG4T 0x000b,0x0146,0x8000,0x8000
0132 001a 0150 | P| .DBG4T 0x001a,0x0150,0x8000,0x0000
0136 0023 0000 | # | .DBG4T 0x0023,0x0000,0x0005,0x0000
013a 004b 0000 | K | .DBG4T 0x004b,0x0000,0x0005,0x0000
013e 0073 0154 | s T| .DBG4T 0x0073,0x0154,0x0001,0x4000
0142 00e3 018c | | .DBG4T 0x00e3,0x018c,0x0002,0x0000
0146 ; --------------------------------------------------------------------------------------
0146 ; Debug chain
0146 ; --------------------------------------------------------------------------------------
0146 0004 0000 | | .DBGLEN 0x0004,0x0000
0148 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0015,0x0017
014c 0002 0003 | | .XXX[0x4]
014e 0006 0007 | |
0150 ; --------------------------------------------------------------------------------------
0150 ; Debug chain
0150 ; --------------------------------------------------------------------------------------
0150 0002 0000 | | .DBGLEN 0x0002,0x0000
0152 001a 001c | | .DBGLNO 0x001a,0x001c
0154 ; --------------------------------------------------------------------------------------
0154 ; Debug chain
0154 ; --------------------------------------------------------------------------------------
0154 0004 0019 | | .DBGLEN 0x0004,0x0019
0156 0073 0075 | s u| .DBGLNO 0x0073,0x0075,0x0077,0x0078,0x007b,0x0081,0x0085,0x0088,0x008e,0x0091,0x0095,0x0098,0x009b,0x009e,0x00a0,0x00a3,0x00aa,0x00ae,0x00b1,0x00b4,0x00b7,0x00ba,0x00bc,0x00bf,0x00c2,0x00c6,0x00c9,0x00d1,0x00d3
0173 0001 0003 | | .XXX[0x19]
0175 0004 0005 | |
0177 0017 0006 | |
0179 0007 0008 | |
017b 0009 000a | |
017d 000b 000c | |
017f 000d 000e | |
0181 000f 0010 | |
0183 0011 0012 | |
0185 0013 0014 | |
0187 0015 0016 | |
0189 0002 0018 | |
018b 0019 | |
018c ; --------------------------------------------------------------------------------------
018c ; Debug chain
018c ; --------------------------------------------------------------------------------------
018c 0000 0004 | | .DBGLEN 0x0000,0x0004
018e 00e4 00e7 | | .DBGLNO 0x00e4,0x00e7,0x00ef,0x00f4
0192 0000 0000 | | .BLANK 0000[0x6e]