|
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_779ce4
└─⟦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 0180 | | .CONST 0x0180 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0055 | U | .CONST 0x0055 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001a | | .CONST 0x001a ; Number of locals
000b INIT_0008:
000b 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated
000d 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated
000f 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated
0011 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated
0013 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated
0015 00e3 | | Load_Encached Natural_Cache
0016 0129 | ) | Execute Any,Make_Visible
0017 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated
0019 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated
001b 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated
001d 4800 |H | Short_Literal 0x0
001e 0093 0123 | #| push_full_address INIT_0120
0020 02a0 | | Declare_Subprogram Null_Subprogram
0021 038f | | Declare_Type Package,Defined,Visible
0022 0386 | | Declare_Variable Package,Visible
0023 4800 |H | Short_Literal 0x0
0024 0093 010b | | push_full_address INIT_0108
0026 02a0 | | Declare_Subprogram Null_Subprogram
0027 038f | | Declare_Type Package,Defined,Visible
0028 0386 | | Declare_Variable Package,Visible
0029 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated
002b 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated
002d 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated
002f 00bf | | Action Accept_Activation
0030 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0031 00c7 | | Action Elaborate_Subprogram
0032 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0033 00c7 | | Action Elaborate_Subprogram
0034 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0035 00c7 | | Action Elaborate_Subprogram
0036 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0037 00c7 | | Action Elaborate_Subprogram
0038 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0039 00c7 | | Action Elaborate_Subprogram
003a 1d13 | | Execute_Immediate Reference_Lex_1,0x13
003b 00c7 | | Action Elaborate_Subprogram
003c 1d14 | | Execute_Immediate Reference_Lex_1,0x14
003d 00c7 | | Action Elaborate_Subprogram
003e 1d15 | | Execute_Immediate Reference_Lex_1,0x15
003f 00c7 | | Action Elaborate_Subprogram
0040 a001 | | Store_Unchecked 0x0,0x1
0041 a002 | | Store_Unchecked 0x0,0x2
0042 a003 | | Store_Unchecked 0x0,0x3
0043 4803 |H | Short_Literal 0x3
0044 e216 | | Load 0x1,0x16
0045 020e | | Execute Module,Augment_Imports
0046 e216 | | Load 0x1,0x16
0047 020f | | Execute Module,Activate
0048 a001 | | Store_Unchecked 0x0,0x1
0049 a004 | | Store_Unchecked 0x0,0x4
004a 4802 |H | Short_Literal 0x2
004b e217 | | Load 0x1,0x17
004c 020e | | Execute Module,Augment_Imports
004d 00db | | Load_Top At_Offset_3
004e 020f | | Execute Module,Activate
004f 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0050 00c7 | | Action Elaborate_Subprogram
0051 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0052 00c7 | | Action Elaborate_Subprogram
0053 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0054 00c7 | | Action Elaborate_Subprogram
0055 BODY_0008:
0055 00bc | | Action Signal_Activated
0056 00bb | | Action Signal_Completion
0057 0000 | | .XXX[0x1]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b | [ | .CONST 0x005b ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0001 | | .CONST 0x0001 ; Number of locals
005b BODY_0058:
005b INIT_0058:
005b 8001 | | Call 0x0,0x1
005c 6803 |h | Jump_Zero 0x60
005d 00db | | Load_Top At_Offset_3
005e 00db | | Load_Top At_Offset_3
005f 8005 | | Call 0x0,0x5
0060 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0061 0000 0000 | | .BLANK 0000[0x7]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006d | m | .CONST 0x006d ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0002 | | .CONST 0x0002 ; Number of locals
006b INIT_0068:
006b 029f 00eb | | Declare_Subprogram INIT_00e8,For_Call
006d BODY_0068:
006d 8001 | | Call 0x0,0x1
006e 6804 |h | Jump_Zero 0x73
006f e5fd | | Load 0x2,-0x3
0070 8402 | | Call 0x2,0x2
0071 e5ff | | Load 0x2,-0x1
0072 8006 | | Call 0x0,0x6
0073 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0074 0000 0000 | | .BLANK 0000[0x4]
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 8001 | | Call 0x0,0x1
007c 6803 |h | Jump_Zero 0x80
007d 00db | | Load_Top At_Offset_3
007e 00db | | Load_Top At_Offset_3
007f 8007 | | Call 0x0,0x7
0080 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0081 0000 0000 | | .BLANK 0000[0x7]
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 8001 | | Call 0x0,0x1
008c 6804 |h | Jump_Zero 0x91
008d e5fd | | Load 0x2,-0x3
008e 00db | | Load_Top At_Offset_3
008f e5fe | | Load 0x2,-0x2
0090 8006 | | Call 0x0,0x6
0091 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0092 0000 0000 | | .BLANK 0000[0x6]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b | | .CONST 0x009b ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0001 | | .CONST 0x0001 ; Number of locals
009b BODY_0098:
009b INIT_0098:
009b 8001 | | Call 0x0,0x1
009c 6802 |h | Jump_Zero 0x9f
009d 00da | | Load_Top At_Offset_2
009e 8008 | | Call 0x0,0x8
009f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
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 8001 | | Call 0x0,0x1
00a4 6811 |h | Jump_Zero 0xb6
00a5 00da | | Load_Top At_Offset_2
00a6 0f01 | | Execute_Immediate Equal,0x1
00a7 6803 |h | Jump_Zero 0xab
00a8 00ea | | Load_Encached Null_String_Cache
00a9 8009 | | Call 0x0,0x9
00aa 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00ab 00da | | Load_Top At_Offset_2
00ac 0f02 | | Execute_Immediate Equal,0x2
00ad 6804 |h | Jump_Zero 0xb2
00ae 0092 0144 | D| Action Push_String_Extended,0x144 ; "coverage"
00b0 8009 | | Call 0x0,0x9
00b1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00b2 4800 |H | Short_Literal 0x0
00b3 0092 0145 | E| Action Push_String_Extended,0x145 ; "Incorrect kind specified for Show_Differential - use Test_Runs or Coverage"
00b5 800a | | Call 0x0,0xa
00b6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00b7 0000 | | .XXX[0x1]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb | | .CONST 0x00bb ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0001 | | .CONST 0x0001 ; Number of locals
00bb BODY_00b8:
00bb INIT_00b8:
00bb 8001 | | Call 0x0,0x1
00bc 6801 |h | Jump_Zero 0xbe
00bd 800b | | Call 0x0,0xb
00be 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00bf 0000 | | .XXX[0x1]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3 | | .CONST 0x00c3 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0001 | | .CONST 0x0001 ; Number of locals
00c3 BODY_00c0:
00c3 INIT_00c0:
00c3 8001 | | Call 0x0,0x1
00c4 6802 |h | Jump_Zero 0xc7
00c5 00da | | Load_Top At_Offset_2
00c6 800c | | Call 0x0,0xc
00c7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb | | .CONST 0x00cb ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0001 | | .CONST 0x0001 ; Number of locals
00cb BODY_00c8:
00cb INIT_00c8:
00cb 8001 | | Call 0x0,0x1
00cc 6802 |h | Jump_Zero 0xcf
00cd 00da | | Load_Top At_Offset_2
00ce 800d | | Call 0x0,0xd
00cf 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3 | | .CONST 0x00d3 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0001 | | .CONST 0x0001 ; Number of locals
00d3 BODY_00d0:
00d3 INIT_00d0:
00d3 8001 | | Call 0x0,0x1
00d4 6802 |h | Jump_Zero 0xd7
00d5 00da | | Load_Top At_Offset_2
00d6 800e | | Call 0x0,0xe
00d7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00dd | | .CONST 0x00dd ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0002 | | .CONST 0x0002 ; Number of locals
00db INIT_00d8:
00db 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call
00dd BODY_00d8:
00dd 8001 | | Call 0x0,0x1
00de 6805 |h | Jump_Zero 0xe4
00df e5fc | | Load 0x2,-0x4
00e0 e5fd | | Load 0x2,-0x3
00e1 8402 | | Call 0x2,0x2
00e2 e5ff | | Load 0x2,-0x1
00e3 800f | | Call 0x0,0xf
00e4 4505 |E | Exit_Suprogram New_Top_Offset 0x5
00e5 0000 0000 | | .XXX[0x3]
00e7 0000 | |
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb | | .CONST 0x00eb ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0001 | | .CONST 0x0001 ; Number of locals
00eb BODY_00e8:
00eb INIT_00e8:
00eb e5fe | | Load 0x2,-0x2
00ec e010 | | Load 0x0,0x10
00ed 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00ee 0092 0146 | F| Action Push_String_Extended,0x146 ; "<TEMPORARY>"
00f0 01df | | Execute Vector,Equal
00f1 6802 |h | Jump_Zero 0xf4
00f2 00ea | | Load_Encached Null_String_Cache
00f3 00ca | | Action Exit_Nullary_Function
00f4 e5fe | | Load 0x2,-0x2
00f5 0335 | 5 | Declare_Variable Array,Duplicate
00f6 00cd | | Action Spare6_Action
00f7 00ca | | Action Exit_Nullary_Function
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb | | .CONST 0x00fb ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0001 | | .CONST 0x0001 ; Number of locals
00fb BODY_00f8:
00fb INIT_00f8:
00fb e5fe | | Load 0x2,-0x2
00fc e010 | | Load 0x0,0x10
00fd 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00fe 0092 0147 | G| Action Push_String_Extended,0x147 ; "<AUTO_GENERATE>"
0100 01df | | Execute Vector,Equal
0101 6802 |h | Jump_Zero 0x104
0102 00ea | | Load_Encached Null_String_Cache
0103 00ca | | Action Exit_Nullary_Function
0104 e5fe | | Load 0x2,-0x2
0105 0335 | 5 | Declare_Variable Array,Duplicate
0106 00cd | | Action Spare6_Action
0107 00ca | | Action Exit_Nullary_Function
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 0110 | | .CONST 0x0110 ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 000d | | .CONST 0x000d ; Number of locals
010b INIT_0108:
010b 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated
010d 00bf | | Action Accept_Activation
010e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
010f 00c7 | | Action Elaborate_Subprogram
0110 BODY_0108:
0110 00bc | | Action Signal_Activated
0111 00bb | | Action Signal_Completion
0112 0000 0000 | | .BLANK 0000[0x6]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b | | .CONST 0x011b ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0001 | | .CONST 0x0001 ; Number of locals
011b BODY_0118:
011b INIT_0118:
011b 8001 | | Call 0x0,0x1
011c 6802 |h | Jump_Zero 0x11f
011d 00da | | Load_Top At_Offset_2
011e 8002 | | Call 0x0,0x2
011f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 012c | , | .CONST 0x012c ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 000e | | .CONST 0x000e ; Number of locals
0123 INIT_0120:
0123 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated
0125 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated
0127 00bf | | Action Accept_Activation
0128 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0129 00c7 | | Action Elaborate_Subprogram
012a 1d0e | | Execute_Immediate Reference_Lex_1,0xe
012b 00c7 | | Action Elaborate_Subprogram
012c BODY_0120:
012c 00bc | | Action Signal_Activated
012d 00bb | | Action Signal_Completion
012e 0000 0000 | | .XXX[0x2]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133 | 3 | .CONST 0x0133 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0001 | | .CONST 0x0001 ; Number of locals
0133 BODY_0130:
0133 INIT_0130:
0133 8001 | | Call 0x0,0x1
0134 6802 |h | Jump_Zero 0x137
0135 00da | | Load_Top At_Offset_2
0136 8002 | | Call 0x0,0x2
0137 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b | ; | .CONST 0x013b ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0001 | | .CONST 0x0001 ; Number of locals
013b BODY_0138:
013b INIT_0138:
013b 8001 | | Call 0x0,0x1
013c 6806 |h | Jump_Zero 0x143
013d e5fb | | Load 0x2,-0x5
013e e5fc | | Load 0x2,-0x4
013f e5fd | | Load 0x2,-0x3
0140 e5fe | | Load 0x2,-0x2
0141 e5ff | | Load 0x2,-0x1
0142 8003 | | Call 0x0,0x3
0143 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0144 ; --------------------------------------------------------------------------------------
0144 ; STRING TABLE
0144 ; --------------------------------------------------------------------------------------
0144 000a | | .STRTAB 0x000a->0x0149 ; "coverage"
0145 0010 | | .STRTAB 0x0010->0x014d ; "Incorrect kind specified for Show_Differential - use Test_Runs or Coverage"
0146 0058 | X | .STRTAB 0x0058->0x0172 ; "<TEMPORARY>"
0147 0061 | a | .STRTAB 0x0061->0x0177 ; "<AUTO_GENERATE>"
0148 006e | n | .STREND 0x006e->0x017f
0149 636f 7665 |cove| .STRTAB_STRINGS
017f 0000 | | .XXX[0x1]
0180 ; --------------------------------------------------------------------------------------
0180 ; Debug Table
0180 ; --------------------------------------------------------------------------------------
0180 0004 0009 | | .DEBUG4 0x0004,0x0009,0xd96a,0x0000,0x0001,0x0000
0186 0000 0000 | | .BLANK 0000[0x7a]