|
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_0a7cf5
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0158 | X | .CONST 0x0158 ; 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 8000 | | .CONST 0x8000 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0048 | H | .CONST 0x0048 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0013 | | .CONST 0x0013 ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 4805 |H | Short_Literal 0x5
000d 029f 0053 | S| Declare_Subprogram INIT_0050,For_Call
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 00c4 | | Action Make_Default
0011 00c4 | | Action Make_Default
0012 00c4 | | Action Make_Default
0013 00c4 | | Action Make_Default
0014 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated
0016 c210 | | Store 0x1,0x10
0017 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated
0019 c20e | | Store 0x1,0xe
001a 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated
001c c211 | | Store 0x1,0x11
001d 00bf | | Action Accept_Activation
001e e20d | | Load 0x1,0xd
001f 0266 | f | Execute Discrete,Bounds
0020 e001 | | Load 0x0,0x1
0021 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0022 02a0 | | Declare_Subprogram Null_Subprogram
0023 4801 |H | Short_Literal 0x1
0024 035d | ] | Declare_Type Array,Defined
0025 00d8 | | Load_Top At_Offset_0
0026 0337 | 7 | Declare_Variable Array
0027 480b |H | Short_Literal 0xb
0028 4800 |H | Short_Literal 0x0
0029 00da | | Load_Top At_Offset_2
002a 01d6 | | Execute Vector,Field_Write
002b 4805 |H | Short_Literal 0x5
002c 4802 |H | Short_Literal 0x2
002d 00da | | Load_Top At_Offset_2
002e 01d6 | | Execute Vector,Field_Write
002f 4805 |H | Short_Literal 0x5
0030 4804 |H | Short_Literal 0x4
0031 00da | | Load_Top At_Offset_2
0032 01d6 | | Execute Vector,Field_Write
0033 4805 |H | Short_Literal 0x5
0034 4805 |H | Short_Literal 0x5
0035 00da | | Load_Top At_Offset_2
0036 01d6 | | Execute Vector,Field_Write
0037 4801 |H | Short_Literal 0x1
0038 4801 |H | Short_Literal 0x1
0039 00da | | Load_Top At_Offset_2
003a 01d6 | | Execute Vector,Field_Write
003b 4801 |H | Short_Literal 0x1
003c 4803 |H | Short_Literal 0x3
003d 00da | | Load_Top At_Offset_2
003e 01d6 | | Execute Vector,Field_Write
003f 00d9 | | Load_Top At_Offset_1
0040 01c3 | | Execute Vector,Check_In_Type
0041 0007 | | Action Break_Optional
0042 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0043 00c7 | | Action Elaborate_Subprogram
0044 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0045 00c7 | | Action Elaborate_Subprogram
0046 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0047 00c7 | | Action Elaborate_Subprogram
0048 BODY_0008:
0048 00bc | | Action Signal_Activated
0049 00bb | | Action Signal_Completion
004a 0000 0000 | | .BLANK 0000[0x6]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0053 | S | .CONST 0x0053 ; Address of begin
0051 0004 | | .CONST 0x0004 ; Address of exception handler
0052 0001 | | .CONST 0x0001 ; Number of locals
0053 BODY_0050:
0053 INIT_0050:
0053 4607 |F | Jump_Case 0x8
0054 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0055 7806 |x | Jump 0x5c ; case 0x1
0056 7809 |x | Jump 0x60 ; case 0x2
0057 780d |x | Jump 0x65 ; case 0x3
0058 7810 |x | Jump 0x69 ; case 0x4
0059 7811 |x | Jump 0x6b ; case 0x5
005a 7812 |x | Jump 0x6d ; case 0x6
005b 7815 |x | Jump 0x71 ; case 0x7
005c 00da | | Load_Top At_Offset_2
005d 0091 00ff | | Action Push_String_Extended_Indexed,0xff ; "NIL"
005f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0060 00db | | Load_Top At_Offset_3
0061 00db | | Load_Top At_Offset_3
0062 00e0 | | Load_Encached Standard_Cache
0063 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0064 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0065 00da | | Load_Top At_Offset_2
0066 00e0 | | Load_Encached Standard_Cache
0067 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0068 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0069 00db | | Load_Top At_Offset_3
006a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
006b 00db | | Load_Top At_Offset_3
006c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
006d e20d | | Load 0x1,0xd
006e 00dc | | Load_Top At_Offset_4
006f 0267 | g | Execute Discrete,Predecessor
0070 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0071 e20d | | Load 0x1,0xd
0072 00dc | | Load_Top At_Offset_4
0073 0268 | h | Execute Discrete,Successor
0074 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0075 0000 0000 | | .XXX[0x3]
0077 0000 | |
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b | { | .CONST 0x007b ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0001 | | .CONST 0x0001 ; Number of locals
007b BODY_0078:
007b INIT_0078:
007b 00da | | Load_Top At_Offset_2
007c e213 | | Load 0x1,0x13
007d 01d7 | | Execute Vector,Field_Read
007e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
007f 0000 | | .XXX[0x1]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083 | | .CONST 0x0083 ; Address of begin
0081 0089 | | .CONST 0x0089 ; Address of exception handler
0082 0001 | | .CONST 0x0001 ; Number of locals
0083 BODY_0080:
0083 INIT_0080:
0083 00da | | Load_Top At_Offset_2
0084 e002 | | Load 0x0,0x2
0085 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0086 e20d | | Load 0x1,0xd
0087 1c02 | | Execute_Immediate Run_Utility,0x2
0088 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0089 TRAP_0080:
0089 010e | | Execute Exception,Is_Constraint_Error
008a 6802 |h | Jump_Zero 0x8d
008b 4800 |H | Short_Literal 0x0
008c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
008d 0100 | | Execute Exception,Raise
008e 0000 0000 | | .XXX[0x2]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0095 | | .CONST 0x0095 ; Address of begin
0091 00f0 | | .CONST 0x00f0 ; Address of exception handler
0092 0002 | | .CONST 0x0002 ; Number of locals
0093 INIT_0090:
0093 00da | | Load_Top At_Offset_2
0094 820e | | Call 0x1,0xe
0095 BODY_0090:
0095 00d8 | | Load_Top At_Offset_0
0096 e213 | | Load 0x1,0x13
0097 01d7 | | Execute Vector,Field_Read
0098 e5fe | | Load 0x2,-0x2
0099 e001 | | Load 0x0,0x1
009a 1872 | r | Execute Package,Field_Execute,Field_Number 0x72
009b e001 | | Load 0x0,0x1
009c 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
009d 027f | | Execute Discrete,Equal
009e 701a |p | Jump_Nonzero 0xb9
009f e5fc | | Load 0x2,-0x4
00a0 0092 0105 | | Action Push_String_Extended,0x105 ; "The "
00a2 00da | | Load_Top At_Offset_2
00a3 e20d | | Load 0x1,0xd
00a4 011c | | Execute Any,Convert_Unchecked
00a5 1c01 | | Execute_Immediate Run_Utility,0x1
00a6 01cc | | Execute Vector,Catenate
00a7 0092 0106 | | Action Push_String_Extended,0x106 ; " document must be generated in the context of a "
00a9 01cc | | Execute Vector,Catenate
00aa 00da | | Load_Top At_Offset_2
00ab e213 | | Load 0x1,0x13
00ac 01d7 | | Execute Vector,Field_Read
00ad e001 | | Load 0x0,0x1
00ae 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
00af 01cc | | Execute Vector,Catenate
00b0 0092 0107 | | Action Push_String_Extended,0x107 ; " component"
00b2 01cc | | Execute Vector,Catenate
00b3 e003 | | Load 0x0,0x3
00b4 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
00b5 e003 | | Load 0x0,0x3
00b6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00b7 c5fc | | Store 0x2,-0x4
00b8 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00b9 e5fc | | Load 0x2,-0x4
00ba e003 | | Load 0x0,0x3
00bb 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00bc c5fc | | Store 0x2,-0x4
00bd 00d8 | | Load_Top At_Offset_0
00be 4605 |F | Jump_Case 0x6
00bf 7821 |x! | Jump 0xe1 ; case 0x0
00c0 780b |x | Jump 0xcc ; case 0x1
00c1 7811 |x | Jump 0xd3 ; case 0x2
00c2 7817 |x | Jump 0xda ; case 0x3
00c3 7801 |x | Jump 0xc5 ; case 0x4
00c4 7800 |x | Jump 0xc5 ; case 0x5
00c5 e5fc | | Load 0x2,-0x4
00c6 e5fd | | Load 0x2,-0x3
00c7 e5fe | | Load 0x2,-0x2
00c8 e5ff | | Load 0x2,-0x1
00c9 8004 | | Call 0x0,0x4
00ca c5fc | | Store 0x2,-0x4
00cb 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00cc e5fc | | Load 0x2,-0x4
00cd e5fd | | Load 0x2,-0x3
00ce e5fe | | Load 0x2,-0x2
00cf e5ff | | Load 0x2,-0x1
00d0 8005 | | Call 0x0,0x5
00d1 c5fc | | Store 0x2,-0x4
00d2 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00d3 e5fc | | Load 0x2,-0x4
00d4 e5fd | | Load 0x2,-0x3
00d5 e5fe | | Load 0x2,-0x2
00d6 e5ff | | Load 0x2,-0x1
00d7 8006 | | Call 0x0,0x6
00d8 c5fc | | Store 0x2,-0x4
00d9 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00da e5fc | | Load 0x2,-0x4
00db e5fd | | Load 0x2,-0x3
00dc e5fe | | Load 0x2,-0x2
00dd e5ff | | Load 0x2,-0x1
00de 8007 | | Call 0x0,0x7
00df c5fc | | Store 0x2,-0x4
00e0 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00e1 e5fc | | Load 0x2,-0x4
00e2 4822 |H" | Short_Literal 0x22
00e3 e5ff | | Load 0x2,-0x1
00e4 e002 | | Load 0x0,0x2
00e5 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
00e6 01ca | | Execute Vector,Prepend
00e7 0092 0108 | | Action Push_String_Extended,0x108 ; "\x22 is an invalid document name"
00e9 01cc | | Execute Vector,Catenate
00ea e003 | | Load 0x0,0x3
00eb 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a
00ec e003 | | Load 0x0,0x3
00ed 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00ee c5fc | | Store 0x2,-0x4
00ef 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00f0 TRAP_0090:
00f0 0007 | | Action Break_Optional
00f1 e5fc | | Load 0x2,-0x4
00f2 4829 |H) | Short_Literal 0x29
00f3 0092 0109 | | Action Push_String_Extended,0x109 ; "Unexpected exception in Documents.Generate ("
00f5 e003 | | Load 0x0,0x3
00f6 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00f7 01cc | | Execute Vector,Catenate
00f8 01cb | | Execute Vector,Append
00f9 e003 | | Load 0x0,0x3
00fa 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
00fb e003 | | Load 0x0,0x3
00fc 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00fd c5fc | | Store 0x2,-0x4
00fe 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00ff ; --------------------------------------------------------------------------------------
00ff ; STRING TABLE
00ff ; --------------------------------------------------------------------------------------
00ff 0018 | | .STRTAB 0x0018->0x010b ; "NIL"
0100 0019 | | .STRTAB 0x0019->0x010c ; "IRS"
0101 001a | | .STRTAB 0x001a->0x010e ; "SRS"
0102 001b | | .STRTAB 0x001b->0x010f ; "IDD"
0103 001c | | .STRTAB 0x001c->0x0111 ; "PSDD"
0104 001e | | .STRTAB 0x001e->0x0113 ; "SDD"
0105 001f | | .STRTAB 0x001f->0x0114 ; "The "
0106 0021 | ! | .STRTAB 0x0021->0x0116 ; " document must be generated in the context of a "
0107 004f | O | .STRTAB 0x004f->0x012e ; " component"
0108 0057 | W | .STRTAB 0x0057->0x0133 ; "\x22 is an invalid document name"
0109 0072 | r | .STRTAB 0x0072->0x0142 ; "Unexpected exception in Documents.Generate ("
010a 009c | | .STREND 0x009c->0x0158
010b 4e49 4c49 |NILI| .STRTAB_STRINGS
0158 ; --------------------------------------------------------------------------------------
0158 ; Debug Table
0158 ; --------------------------------------------------------------------------------------
0158 0004 0012 | | .DEBUG4 0x0004,0x0012,0xfc63,0x0000,0x0001,0x0000
015e 4580 06f0 |E | .XXX[0xa2]
0160 80ba 009a | |
0162 a204 0c00 | |
0164 3a68 0810 |:h |
0166 0988 a046 | F|
0168 c007 f701 | |
016a 1700 fe48 | H|
016c 0000 004f | O|
016e 180a a009 | |
0170 40e0 0000 |@ |
0172 23be 811c |# |
0174 000f ac02 | |
0176 8000 4210 | B |
0178 0840 0136 | @ 6|
017a 8031 0005 | 1 |
017c 1a00 8700 | |
017e 14ea 0224 | $|
0180 0057 0808 | W |
0182 c001 6b40 | k@|
0184 25c0 05b4 |% |
0186 808d 0017 | |
0188 3e03 3c00 |> < |
018a 5dd0 0940 |] @|
018c 017e 002a | ~ *|
018e 0006 1300 | |
0190 8e00 1882 | |
0192 02e0 0062 | b|
0194 e009 6001 | ` |
0196 9240 2840 | @(@|
0198 0656 80b3 | V |
019a 0019 c603 | |
019c 0000 67f0 | g |
019e 0b50 01a6 | P |
01a0 804c c006 | L |
01a2 a781 0d00 | |
01a4 1ad4 0308 | |
01a6 006c 2800 | l( |
01a8 0001 b400 | |
01aa 0000 06d5 | |
01ac 8113 001b | |
01ae 8c03 1800 | |
01b0 70b8 0a70 |p p|
01b2 01c9 a042 | B|
01b4 c007 4f00 | O |
01b6 ae00 1d72 | r|
01b8 0000 0076 | v|
01ba a00e c001 | |
01bc dbe0 2880 | ( |
01be 077d 00a4 | } |
01c0 001e 2a03 | * |
01c2 f800 7980 | y |
01c4 16a0 01e9 | |
01c6 6000 0007 |` |
01c8 b300 c800 | |
01ca 1f38 04ac | 8 |
01cc 007e 3814 | ~8 |
01ce 8001 fa60 | `|
01d0 3c40 07ff |<@ |
01d2 00bc 0020 | |
01d4 6803 3000 |h 0 |
01d6 8200 0bf0 | |
01d8 020e c058 | X|
01da 8008 4080 | @ |
01dc d300 2130 | !0|
01de 052c 0085 | , |
01e0 9810 9002 | |
01e2 19e0 5c40 | \@|
01e4 0875 0000 | u |
01e6 0088 0602 | |
01e8 dc02 20d8 | |
01ea 0d00 0887 | |
01ec 6039 c022 |`9 "|
01ee 3080 b400 |0 |
01f0 88f6 0000 | |
01f2 0226 0813 | & |
01f4 e008 9b80 | |
01f6 0000 2282 | " |
01f8 80ca 008a | |
01fa 4003 ac02 |@ |
01fc 2ab0 0c30 |* 0|
01fe 08ae 2000 | |