|
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_08f0d3
└─⟦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 0138 | 8 | .CONST 0x0138 ; 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 0031 | 1 | .CONST 0x0031 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0016 | | .CONST 0x0016 ; Number of locals
000b INIT_0008:
000b 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated
000d 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated
000f 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated
0011 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated
0013 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated
0015 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated
0017 e20e | | Load 0x1,0xe
0018 0265 | e | Execute Discrete,Reverse_Bounds
0019 e20e | | Load 0x1,0xe
001a 1c04 | | Execute_Immediate Run_Utility,0x4
001b 00d0 | | Action Swap_Control
001c e20e | | Load 0x1,0xe
001d 1c04 | | Execute_Immediate Run_Utility,0x4
001e 00e3 | | Load_Encached Natural_Cache
001f 02a0 | | Declare_Subprogram Null_Subprogram
0020 4801 |H | Short_Literal 0x1
0021 035e | ^ | Declare_Type Array,Defined,Visible
0022 00bf | | Action Accept_Activation
0023 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0024 00c7 | | Action Elaborate_Subprogram
0025 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0026 00c7 | | Action Elaborate_Subprogram
0027 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0028 00c7 | | Action Elaborate_Subprogram
0029 1d12 | | Execute_Immediate Reference_Lex_1,0x12
002a 00c7 | | Action Elaborate_Subprogram
002b 1d13 | | Execute_Immediate Reference_Lex_1,0x13
002c 00c7 | | Action Elaborate_Subprogram
002d 029d 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call
002f 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0030 00c7 | | Action Elaborate_Subprogram
0031 BODY_0008:
0031 00bc | | Action Signal_Activated
0032 00bb | | Action Signal_Completion
0033 0000 0000 | | .BLANK 0000[0x5]
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 004b | K | .CONST 0x004b ; Address of begin
0039 0004 | | .CONST 0x0004 ; Address of exception handler
003a 0002 | | .CONST 0x0002 ; Number of locals
003b INIT_0038:
003b e215 | | Load 0x1,0x15
003c 0337 | 7 | Declare_Variable Array
003d 00d8 | | Load_Top At_Offset_0
003e 0335 | 5 | Declare_Variable Array,Duplicate
003f 00cd | | Action Spare6_Action
0040 00d9 | | Load_Top At_Offset_1
0041 01d9 | | Execute Vector,Reverse_Bounds
0042 0263 | c | Execute Discrete,Above_Bound
0043 7005 |p | Jump_Nonzero 0x49
0044 4800 |H | Short_Literal 0x0
0045 00d9 | | Load_Top At_Offset_1
0046 e403 | | Load 0x2,0x3
0047 01d6 | | Execute Vector,Field_Write
0048 3ffb |? | Loop_Increasing 0x44
0049 00d9 | | Load_Top At_Offset_1
004a 01d4 | | Execute Vector,Structure_Write
004b BODY_0038:
004b 00d8 | | Load_Top At_Offset_0
004c 00ca | | Action Exit_Nullary_Function
004d 0000 0000 | | .XXX[0x3]
004f 0000 | |
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 00da | | Load_Top At_Offset_2
0054 00d8 | | Load_Top At_Offset_0
0055 0335 | 5 | Declare_Variable Array,Duplicate
0056 00cd | | Action Spare6_Action
0057 00d9 | | Load_Top At_Offset_1
0058 01d9 | | Execute Vector,Reverse_Bounds
0059 0263 | c | Execute Discrete,Above_Bound
005a 7005 |p | Jump_Nonzero 0x60
005b 4800 |H | Short_Literal 0x0
005c 00d9 | | Load_Top At_Offset_1
005d e403 | | Load 0x2,0x3
005e 01d6 | | Execute Vector,Field_Write
005f 3ffb |? | Loop_Increasing 0x5b
0060 00cd | | Action Spare6_Action
0061 00db | | Load_Top At_Offset_3
0062 01d4 | | Execute Vector,Structure_Write
0063 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0064 0000 0000 | | .BLANK 0000[0x4]
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 e20e | | Load 0x1,0xe
006d 1c04 | | Execute_Immediate Run_Utility,0x4
006e e5fe | | Load 0x2,-0x2
006f 01d7 | | Execute Vector,Field_Read
0070 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0071 0000 0000 | | .BLANK 0000[0x7]
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 e20e | | Load 0x1,0xe
007d 1c04 | | Execute_Immediate Run_Utility,0x4
007e e5fe | | Load 0x2,-0x2
007f 01d7 | | Execute Vector,Field_Read
0080 0a01 | | Execute_Immediate Plus,0x1
0081 00db | | Load_Top At_Offset_3
0082 e20e | | Load 0x1,0xe
0083 1c04 | | Execute_Immediate Run_Utility,0x4
0084 e5fe | | Load 0x2,-0x2
0085 01d6 | | Execute Vector,Field_Write
0086 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0087 0000 | | .XXX[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 00da | | Load_Top At_Offset_2
008c e20e | | Load 0x1,0xe
008d 1c04 | | Execute_Immediate Run_Utility,0x4
008e e5fe | | Load 0x2,-0x2
008f 01d7 | | Execute Vector,Field_Read
0090 0c01 | | Execute_Immediate Greater_Equal,0x1
0091 680b |h | Jump_Zero 0x9d
0092 00da | | Load_Top At_Offset_2
0093 e20e | | Load 0x1,0xe
0094 1c04 | | Execute_Immediate Run_Utility,0x4
0095 e5fe | | Load 0x2,-0x2
0096 01d7 | | Execute Vector,Field_Read
0097 0aff | | Execute_Immediate Plus,-0x1
0098 00db | | Load_Top At_Offset_3
0099 e20e | | Load 0x1,0xe
009a 1c04 | | Execute_Immediate Run_Utility,0x4
009b e5fe | | Load 0x2,-0x2
009c 01d6 | | Execute Vector,Field_Write
009d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
009e 0000 0000 | | .XXX[0x2]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a8 | | .CONST 0x00a8 ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0004 | | .CONST 0x0004 ; Number of locals
00a3 INIT_00a0:
00a3 00e3 | | Load_Encached Natural_Cache
00a4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00a5 03e9 | | Declare_Variable Discrete,Duplicate
00a6 e20e | | Load 0x1,0xe
00a7 0007 | | Action Break_Optional
00a8 BODY_00a0:
00a8 e5ff | | Load 0x2,-0x1
00a9 8216 | | Call 0x1,0x16
00aa 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
00ab 0092 0120 | | Action Push_String_Extended,0x120 ; "Classe Quantite Histogramme"
00ad e002 | | Load 0x0,0x2
00ae 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00af 4802 |H | Short_Literal 0x2
00b0 e002 | | Load 0x0,0x2
00b1 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
00b2 00cf | | Action Mark_Auxiliary
00b3 e20e | | Load 0x1,0xe
00b4 0269 | i | Execute Discrete,Last
00b5 e20e | | Load 0x1,0xe
00b6 026a | j | Execute Discrete,First
00b7 0263 | c | Execute Discrete,Above_Bound
00b8 703e |p> | Jump_Nonzero 0xf7
00b9 00d8 | | Load_Top At_Offset_0
00ba e20e | | Load 0x1,0xe
00bb 1c04 | | Execute_Immediate Run_Utility,0x4
00bc e20e | | Load 0x1,0xe
00bd 0122 | " | Execute Any,Make_Root_Type
00be 011c | | Execute Any,Convert_Unchecked
00bf 1c01 | | Execute_Immediate Run_Utility,0x1
00c0 e002 | | Load 0x0,0x2
00c1 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
00c2 480d |H | Short_Literal 0xd
00c3 e002 | | Load 0x0,0x2
00c4 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
00c5 00d8 | | Load_Top At_Offset_0
00c6 e20e | | Load 0x1,0xe
00c7 1c04 | | Execute_Immediate Run_Utility,0x4
00c8 e5ff | | Load 0x2,-0x1
00c9 01d7 | | Execute Vector,Field_Read
00ca 00e0 | | Load_Encached Standard_Cache
00cb 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00cc e002 | | Load 0x0,0x2
00cd 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
00ce 4814 |H | Short_Literal 0x14
00cf e002 | | Load 0x0,0x2
00d0 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
00d1 00cf | | Action Mark_Auxiliary
00d2 483c |H< | Short_Literal 0x3c
00d3 00da | | Load_Top At_Offset_2
00d4 e20e | | Load 0x1,0xe
00d5 1c04 | | Execute_Immediate Run_Utility,0x4
00d6 e5ff | | Load 0x2,-0x1
00d7 01d7 | | Execute Vector,Field_Read
00d8 0271 | q | Execute Discrete,Times
00d9 e402 | | Load 0x2,0x2
00da 0270 | p | Execute Discrete,Divide
00db 00d8 | | Load_Top At_Offset_0
00dc 00e3 | | Load_Encached Natural_Cache
00dd 0260 | ` | Execute Discrete,In_Type
00de 7001 |p | Jump_Nonzero 0xe0
00df 0801 | | Execute_Immediate Raise,0x1
00e0 4801 |H | Short_Literal 0x1
00e1 0263 | c | Execute Discrete,Above_Bound
00e2 7006 |p | Jump_Nonzero 0xe9
00e3 0092 0121 | !| Action Push_String_Extended,0x121 ; "#"
00e5 e002 | | Load 0x0,0x2
00e6 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
00e7 00c8 | | Action Pop_Auxiliary_Range
00e8 3ffa |? | Loop_Increasing 0xe3
00e9 00ce | | Action Pop_Auxiliary
00ea 4801 |H | Short_Literal 0x1
00eb e002 | | Load 0x0,0x2
00ec 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
00ed 00c8 | | Action Pop_Auxiliary_Range
00ee 00d9 | | Load_Top At_Offset_1
00ef 00d9 | | Load_Top At_Offset_1
00f0 027f | | Execute Discrete,Equal
00f1 7004 |p | Jump_Nonzero 0xf6
00f2 e20e | | Load 0x1,0xe
00f3 0122 | " | Execute Any,Make_Root_Type
00f4 1c07 | | Execute_Immediate Run_Utility,0x7
00f5 7fc3 | | Jump 0xb9
00f6 00d2 | | Pop_Control Pop_Count_2
00f7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fe | | .CONST 0x00fe ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0003 | | .CONST 0x0003 ; Number of locals
00fb INIT_00f8:
00fb e20e | | Load 0x1,0xe
00fc 0007 | | Action Break_Optional
00fd 00e3 | | Load_Encached Natural_Cache
00fe BODY_00f8:
00fe 00cf | | Action Mark_Auxiliary
00ff e20e | | Load 0x1,0xe
0100 0269 | i | Execute Discrete,Last
0101 e20e | | Load 0x1,0xe
0102 026a | j | Execute Discrete,First
0103 0263 | c | Execute Discrete,Above_Bound
0104 7018 |p | Jump_Nonzero 0x11d
0105 00db | | Load_Top At_Offset_3
0106 00d9 | | Load_Top At_Offset_1
0107 e20e | | Load 0x1,0xe
0108 1c04 | | Execute_Immediate Run_Utility,0x4
0109 e5ff | | Load 0x2,-0x1
010a 01d7 | | Execute Vector,Field_Read
010b 027c | | | Execute Discrete,Less
010c 6806 |h | Jump_Zero 0x113
010d 00d8 | | Load_Top At_Offset_0
010e e20e | | Load 0x1,0xe
010f 1c04 | | Execute_Immediate Run_Utility,0x4
0110 e5ff | | Load 0x2,-0x1
0111 01d7 | | Execute Vector,Field_Read
0112 a403 | | Store_Unchecked 0x2,0x3
0113 00c8 | | Action Pop_Auxiliary_Range
0114 00d9 | | Load_Top At_Offset_1
0115 00d9 | | Load_Top At_Offset_1
0116 027f | | Execute Discrete,Equal
0117 7004 |p | Jump_Nonzero 0x11c
0118 e20e | | Load 0x1,0xe
0119 0122 | " | Execute Any,Make_Root_Type
011a 1c07 | | Execute_Immediate Run_Utility,0x7
011b 7fe9 | | Jump 0x105
011c 00d2 | | Pop_Control Pop_Count_2
011d 00ce | | Action Pop_Auxiliary
011e 00d8 | | Load_Top At_Offset_0
011f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0120 ; --------------------------------------------------------------------------------------
0120 ; STRING TABLE
0120 ; --------------------------------------------------------------------------------------
0120 0006 | | .STRTAB 0x0006->0x0123 ; "Classe Quantite Histogramme"
0121 0025 | % | .STRTAB 0x0025->0x0133 ; "#"
0122 0024 | $ | .STREND 0x0024->0x0134
0123 436c 6173 |Clas| .STRTAB_STRINGS
0134 0000 0000 | | .BLANK 0000[0x4]
0138 ; --------------------------------------------------------------------------------------
0138 ; Debug Table
0138 ; --------------------------------------------------------------------------------------
0138 0004 0004 | | .DEBUG4 0x0004,0x0004,0xa119,0x0000,0x0001,0x0009
013e 000b 0162 | b| .DBG4T 0x000b,0x0162,0xc000,0x8000
0142 0023 0172 | # r| .DBG4T 0x0023,0x0172,0xc000,0x0000
0146 003b 017b | ; {| .DBG4T 0x003b,0x017b,0x1002,0x0000
014a 0053 017f | S | .DBG4T 0x0053,0x017f,0x1001,0x0000
014e 006b 0182 | k | .DBG4T 0x006b,0x0182,0x1002,0x0000
0152 007b 0185 | { | .DBG4T 0x007b,0x0185,0x1001,0x0000
0156 008b 0188 | | .DBG4T 0x008b,0x0188,0x1001,0x0000
015a 00a3 018c | | .DBG4T 0x00a3,0x018c,0x1001,0x0000
015e 00fb 019b | | .DBG4T 0x00fb,0x019b,0x1002,0x0000
0162 ; --------------------------------------------------------------------------------------
0162 ; Debug chain
0162 ; --------------------------------------------------------------------------------------
0162 0007 0000 | | .DBGLEN 0x0007,0x0000
0164 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017
016b 0002 0003 | | .XXX[0x7]
016d 0004 0005 | |
016f 0006 0007 | |
0171 0008 | |
0172 ; --------------------------------------------------------------------------------------
0172 ; Debug chain
0172 ; --------------------------------------------------------------------------------------
0172 0007 0000 | | .DBGLEN 0x0007,0x0000
0174 0023 0025 | # %| .DBGLNO 0x0023,0x0025,0x0027,0x0029,0x002b,0x002d,0x002f
017b ; --------------------------------------------------------------------------------------
017b ; Debug chain
017b ; --------------------------------------------------------------------------------------
017b 0001 0001 | | .DBGLEN 0x0001,0x0001
017d 003b 004b | ; K| .DBGLNO 0x003b,0x004b
017f ; --------------------------------------------------------------------------------------
017f ; Debug chain
017f ; --------------------------------------------------------------------------------------
017f 0000 0001 | | .DBGLEN 0x0000,0x0001
0181 0053 | S | .DBGLNO 0x0053
0182 ; --------------------------------------------------------------------------------------
0182 ; Debug chain
0182 ; --------------------------------------------------------------------------------------
0182 0000 0001 | | .DBGLEN 0x0000,0x0001
0184 006b | k | .DBGLNO 0x006b
0185 ; --------------------------------------------------------------------------------------
0185 ; Debug chain
0185 ; --------------------------------------------------------------------------------------
0185 0000 0001 | | .DBGLEN 0x0000,0x0001
0187 007b | { | .DBGLNO 0x007b
0188 ; --------------------------------------------------------------------------------------
0188 ; Debug chain
0188 ; --------------------------------------------------------------------------------------
0188 0000 0002 | | .DBGLEN 0x0000,0x0002
018a 008b 0092 | | .DBGLNO 0x008b,0x0092
018c ; --------------------------------------------------------------------------------------
018c ; Debug chain
018c ; --------------------------------------------------------------------------------------
018c 0002 000b | | .DBGLEN 0x0002,0x000b
018e 00a3 00a6 | | .DBGLNO 0x00a3,0x00a6,0x00a8,0x00ab,0x00af,0x00b3,0x00b9,0x00c2,0x00c5,0x00ce,0x00d2,0x00e3,0x00ea
019b ; --------------------------------------------------------------------------------------
019b ; Debug chain
019b ; --------------------------------------------------------------------------------------
019b 0002 0004 | | .DBGLEN 0x0002,0x0004
019d 00fb 00fd | | .DBGLNO 0x00fb,0x00fd,0x00ff,0x0105,0x010d,0x011e
01a3 0000 0000 | | .BLANK 0000[0x5d]