|
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_46c4f6
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0110 | | .CONST 0x0110 ; 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 003b | ; | .CONST 0x003b ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0018 | | .CONST 0x0018 ; Number of locals
000b INIT_0008:
000b 0092 00fe | | Action Push_String_Extended,0xfe ; "JJ-HH:MM"
000d 0129 | ) | Execute Any,Make_Visible
000e 0092 00ff | | Action Push_String_Extended,0xff ; "Fin JJ-HH:MM"
0010 0129 | ) | Execute Any,Make_Visible
0011 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated
0013 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated
0015 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated
0017 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated
0019 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated
001b 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated
001d 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated
001f 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated
0021 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated
0023 e002 | | Load 0x0,0x2
0024 e003 | | Load 0x0,0x3
0025 02a0 | | Declare_Subprogram Null_Subprogram
0026 4802 |H | Short_Literal 0x2
0027 032e | . | Declare_Type Record,Defined,Visible
0028 00bf | | Action Accept_Activation
0029 1d0f | | Execute_Immediate Reference_Lex_1,0xf
002a 00c7 | | Action Elaborate_Subprogram
002b 1d10 | | Execute_Immediate Reference_Lex_1,0x10
002c 00c7 | | Action Elaborate_Subprogram
002d 1d11 | | Execute_Immediate Reference_Lex_1,0x11
002e 00c7 | | Action Elaborate_Subprogram
002f 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0030 00c7 | | Action Elaborate_Subprogram
0031 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0032 00c7 | | Action Elaborate_Subprogram
0033 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0034 00c7 | | Action Elaborate_Subprogram
0035 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0036 00c7 | | Action Elaborate_Subprogram
0037 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0038 00c7 | | Action Elaborate_Subprogram
0039 1d17 | | Execute_Immediate Reference_Lex_1,0x17
003a 00c7 | | Action Elaborate_Subprogram
003b BODY_0008:
003b 00bc | | Action Signal_Activated
003c 00bb | | Action Signal_Completion
003d 0000 0000 | | .XXX[0x3]
003f 0000 | |
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0043 | C | .CONST 0x0043 ; Address of begin
0041 0004 | | .CONST 0x0004 ; Address of exception handler
0042 0001 | | .CONST 0x0001 ; Number of locals
0043 BODY_0040:
0043 INIT_0040:
0043 e5fd | | Load 0x2,-0x3
0044 00db | | Load_Top At_Offset_3
0045 8211 | | Call 0x1,0x11
0046 00d1 | | Pop_Control Pop_Count_1
0047 e5fd | | Load 0x2,-0x3
0048 e5fe | | Load 0x2,-0x2
0049 8212 | | Call 0x1,0x12
004a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
004b 0000 0000 | | .BLANK 0000[0x5]
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 e5fc | | Load 0x2,-0x4
0054 00db | | Load_Top At_Offset_3
0055 8211 | | Call 0x1,0x11
0056 00d1 | | Pop_Control Pop_Count_1
0057 e5fc | | Load 0x2,-0x4
0058 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0059 e5fe | | Load 0x2,-0x2
005a 8004 | | Call 0x0,0x4
005b 00d1 | | Pop_Control Pop_Count_1
005c e5fc | | Load 0x2,-0x4
005d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
005e e5fd | | Load 0x2,-0x3
005f 8005 | | Call 0x0,0x5
0060 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0061 0000 0000 | | .BLANK 0000[0x7]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b | k | .CONST 0x006b ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0001 | | .CONST 0x0001 ; Number of locals
006b BODY_0068:
006b INIT_0068:
006b 00da | | Load_Top At_Offset_2
006c e5fe | | Load 0x2,-0x2
006d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
006e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
006f 0000 | | .XXX[0x1]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0073 | s | .CONST 0x0073 ; Address of begin
0071 0004 | | .CONST 0x0004 ; Address of exception handler
0072 0001 | | .CONST 0x0001 ; Number of locals
0073 BODY_0070:
0073 INIT_0070:
0073 00da | | Load_Top At_Offset_2
0074 e5fe | | Load 0x2,-0x2
0075 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0076 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0077 0000 | | .XXX[0x1]
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 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
007d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
007e 0000 0000 | | .XXX[0x2]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083 | | .CONST 0x0083 ; Address of begin
0081 0004 | | .CONST 0x0004 ; 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 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0085 0320 | | Declare_Variable Record,Duplicate
0086 00cd | | Action Spare6_Action
0087 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
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 4823 |H# | Short_Literal 0x23
008c 4823 |H# | Short_Literal 0x23
008d e20d | | Load 0x1,0xd
008e e5ff | | Load 0x2,-0x1
008f 8213 | | Call 0x1,0x13
0090 e003 | | Load 0x0,0x3
0091 011c | | Execute Any,Convert_Unchecked
0092 1c01 | | Execute_Immediate Run_Utility,0x1
0093 01cc | | Execute Vector,Catenate
0094 01cb | | Execute Vector,Append
0095 e5ff | | Load 0x2,-0x1
0096 8214 | | Call 0x1,0x14
0097 8006 | | Call 0x0,0x6
0098 01cc | | Execute Vector,Catenate
0099 01cb | | Execute Vector,Append
009a e20e | | Load 0x1,0xe
009b 01cc | | Execute Vector,Catenate
009c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
009d 0000 0000 | | .XXX[0x3]
009f 0000 | |
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a6 | | .CONST 0x00a6 ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0003 | | .CONST 0x0003 ; Number of locals
00a3 INIT_00a0:
00a3 e218 | | Load 0x1,0x18
00a4 0322 | " | Declare_Variable Record
00a5 00e3 | | Load_Encached Natural_Cache
00a6 BODY_00a0:
00a6 00d8 | | Load_Top At_Offset_0
00a7 00da | | Load_Top At_Offset_2
00a8 e5ff | | Load 0x2,-0x1
00a9 8217 | | Call 0x1,0x17
00aa 00d1 | | Pop_Control Pop_Count_1
00ab 0059 | Y | Store_Top Discrete,At_Offset_1
00ac 00d9 | | Load_Top At_Offset_1
00ad 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00ae 0000 0000 | | .XXX[0x2]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b7 | | .CONST 0x00b7 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0005 | | .CONST 0x0005 ; Number of locals
00b3 INIT_00b0:
00b3 00e3 | | Load_Encached Natural_Cache
00b4 03e9 | | Declare_Variable Discrete,Duplicate
00b5 03e9 | | Declare_Variable Discrete,Duplicate
00b6 03e9 | | Declare_Variable Discrete,Duplicate
00b7 BODY_00b0:
00b7 00db | | Load_Top At_Offset_3
00b8 e20d | | Load 0x1,0xd
00b9 e5ff | | Load 0x2,-0x1
00ba 8007 | | Call 0x0,0x7
00bb c402 | | Store 0x2,0x2
00bc 00da | | Load_Top At_Offset_2
00bd 4823 |H# | Short_Literal 0x23
00be e402 | | Load 0x2,0x2
00bf 0a01 | | Execute_Immediate Plus,0x1
00c0 00d8 | | Load_Top At_Offset_0
00c1 00e2 | | Load_Encached Integer_Cache
00c2 0260 | ` | Execute Discrete,In_Type
00c3 7001 |p | Jump_Nonzero 0xc5
00c4 0801 | | Execute_Immediate Raise,0x1
00c5 e5ff | | Load 0x2,-0x1
00c6 01dc | | Execute Vector,Last
00c7 e5ff | | Load 0x2,-0x1
00c8 01cf | | Execute Vector,Slice_Read
00c9 8008 | | Call 0x0,0x8
00ca 005b | [ | Store_Top Discrete,At_Offset_3
00cb 00d9 | | Load_Top At_Offset_1
00cc e5fe | | Load 0x2,-0x2
00cd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00ce e403 | | Load 0x2,0x3
00cf 0a01 | | Execute_Immediate Plus,0x1
00d0 00d8 | | Load_Top At_Offset_0
00d1 00e2 | | Load_Encached Integer_Cache
00d2 0260 | ` | Execute Discrete,In_Type
00d3 7001 |p | Jump_Nonzero 0xd5
00d4 0801 | | Execute_Immediate Raise,0x1
00d5 e5ff | | Load 0x2,-0x1
00d6 01dc | | Execute Vector,Last
00d7 e5ff | | Load 0x2,-0x1
00d8 01cf | | Execute Vector,Slice_Read
00d9 8009 | | Call 0x0,0x9
00da 00d1 | | Pop_Control Pop_Count_1
00db 005a | Z | Store_Top Discrete,At_Offset_2
00dc 00d8 | | Load_Top At_Offset_0
00dd e20e | | Load 0x1,0xe
00de 00db | | Load_Top At_Offset_3
00df 0a02 | | Execute_Immediate Plus,0x2
00e0 00d8 | | Load_Top At_Offset_0
00e1 00e2 | | Load_Encached Integer_Cache
00e2 0260 | ` | Execute Discrete,In_Type
00e3 7001 |p | Jump_Nonzero 0xe5
00e4 0801 | | Execute_Immediate Raise,0x1
00e5 e5ff | | Load 0x2,-0x1
00e6 01dc | | Execute Vector,Last
00e7 e5ff | | Load 0x2,-0x1
00e8 01cf | | Execute Vector,Slice_Read
00e9 8007 | | Call 0x0,0x7
00ea 0059 | Y | Store_Top Discrete,At_Offset_1
00eb e5fe | | Load 0x2,-0x2
00ec e402 | | Load 0x2,0x2
00ed 0a01 | | Execute_Immediate Plus,0x1
00ee 00d8 | | Load_Top At_Offset_0
00ef 00e2 | | Load_Encached Integer_Cache
00f0 0260 | ` | Execute Discrete,In_Type
00f1 7001 |p | Jump_Nonzero 0xf3
00f2 0801 | | Execute_Immediate Raise,0x1
00f3 e403 | | Load 0x2,0x3
00f4 0aff | | Execute_Immediate Plus,-0x1
00f5 e5ff | | Load 0x2,-0x1
00f6 01cf | | Execute Vector,Slice_Read
00f7 e003 | | Load 0x0,0x3
00f8 1c02 | | Execute_Immediate Run_Utility,0x2
00f9 8211 | | Call 0x1,0x11
00fa 00d1 | | Pop_Control Pop_Count_1
00fb 00d8 | | Load_Top At_Offset_0
00fc a5fd | | Store_Unchecked 0x2,-0x3
00fd 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00fe ; --------------------------------------------------------------------------------------
00fe ; STRING TABLE
00fe ; --------------------------------------------------------------------------------------
00fe 0006 | | .STRTAB 0x0006->0x0101 ; "JJ-HH:MM"
00ff 000c | | .STRTAB 0x000c->0x0105 ; "Fin JJ-HH:MM"
0100 0016 | | .STREND 0x0016->0x010b
0101 4a4a 2d48 |JJ-H| .STRTAB_STRINGS
010b 0000 0000 | | .BLANK 0000[0x5]
0110 ; --------------------------------------------------------------------------------------
0110 ; Debug Table
0110 ; --------------------------------------------------------------------------------------
0110 0004 0009 | | .DEBUG4 0x0004,0x0009,0x7361,0x0000,0x0001,0x000b
0116 000b 0142 | B| .DBG4T 0x000b,0x0142,0x8000,0x8000
011a 0029 015c | ) \| .DBG4T 0x0029,0x015c,0x8000,0x8000
011e 0043 0170 | C p| .DBG4T 0x0043,0x0170,0x0001,0x0000
0122 0053 0174 | S t| .DBG4T 0x0053,0x0174,0x0001,0x0000
0126 006b 0179 | k y| .DBG4T 0x006b,0x0179,0x0001,0x0000
012a 0073 017c | s || .DBG4T 0x0073,0x017c,0x0001,0x0000
012e 007b 017f | { | .DBG4T 0x007b,0x017f,0x0002,0x0000
0132 0083 0182 | | .DBG4T 0x0083,0x0182,0x0002,0x0000
0136 008b 0185 | | .DBG4T 0x008b,0x0185,0x0002,0x0000
013a 00a3 0188 | | .DBG4T 0x00a3,0x0188,0x0002,0x0000
013e 00b3 018e | | .DBG4T 0x00b3,0x018e,0x0001,0x0000
0142 ; --------------------------------------------------------------------------------------
0142 ; Debug chain
0142 ; --------------------------------------------------------------------------------------
0142 000c 0000 | | .DBGLEN 0x000c,0x0000
0144 000b 000e | | .DBGLNO 0x000b,0x000e,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023
0150 0001 0002 | | .XXX[0xc]
0152 0006 0007 | |
0154 0008 0009 | |
0156 000a 000b | |
0158 000c 000d | |
015a 000e 000f | |
015c ; --------------------------------------------------------------------------------------
015c ; Debug chain
015c ; --------------------------------------------------------------------------------------
015c 0009 0000 | | .DBGLEN 0x0009,0x0000
015e 0029 002b | ) +| .DBGLNO 0x0029,0x002b,0x002d,0x002f,0x0031,0x0033,0x0035,0x0037,0x0039
0167 0002 0003 | | .XXX[0x9]
0169 0004 0005 | |
016b 0006 0007 | |
016d 0008 0009 | |
016f 000a | |
0170 ; --------------------------------------------------------------------------------------
0170 ; Debug chain
0170 ; --------------------------------------------------------------------------------------
0170 0000 0002 | | .DBGLEN 0x0000,0x0002
0172 0043 0047 | C G| .DBGLNO 0x0043,0x0047
0174 ; --------------------------------------------------------------------------------------
0174 ; Debug chain
0174 ; --------------------------------------------------------------------------------------
0174 0000 0003 | | .DBGLEN 0x0000,0x0003
0176 0053 0057 | S W| .DBGLNO 0x0053,0x0057,0x005c
0179 ; --------------------------------------------------------------------------------------
0179 ; Debug chain
0179 ; --------------------------------------------------------------------------------------
0179 0000 0001 | | .DBGLEN 0x0000,0x0001
017b 006b | k | .DBGLNO 0x006b
017c ; --------------------------------------------------------------------------------------
017c ; Debug chain
017c ; --------------------------------------------------------------------------------------
017c 0000 0001 | | .DBGLEN 0x0000,0x0001
017e 0073 | s | .DBGLNO 0x0073
017f ; --------------------------------------------------------------------------------------
017f ; Debug chain
017f ; --------------------------------------------------------------------------------------
017f 0000 0001 | | .DBGLEN 0x0000,0x0001
0181 007b | { | .DBGLNO 0x007b
0182 ; --------------------------------------------------------------------------------------
0182 ; Debug chain
0182 ; --------------------------------------------------------------------------------------
0182 0000 0001 | | .DBGLEN 0x0000,0x0001
0184 0083 | | .DBGLNO 0x0083
0185 ; --------------------------------------------------------------------------------------
0185 ; Debug chain
0185 ; --------------------------------------------------------------------------------------
0185 0000 0001 | | .DBGLEN 0x0000,0x0001
0187 008b | | .DBGLNO 0x008b
0188 ; --------------------------------------------------------------------------------------
0188 ; Debug chain
0188 ; --------------------------------------------------------------------------------------
0188 0002 0002 | | .DBGLEN 0x0002,0x0002
018a 00a3 00a5 | | .DBGLNO 0x00a3,0x00a5,0x00a6,0x00ac
018e ; --------------------------------------------------------------------------------------
018e ; Debug chain
018e ; --------------------------------------------------------------------------------------
018e 0001 0006 | | .DBGLEN 0x0001,0x0006
0190 00b3 00b7 | | .DBGLNO 0x00b3,0x00b7,0x00bc,0x00cb,0x00dc,0x00eb,0x00fb
0197 0000 0000 | | .BLANK 0000[0x69]