|
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_3100b5
└─⟦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 00c8 | | .CONST 0x00c8 ; 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 0036 | 6 | .CONST 0x0036 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0015 | | .CONST 0x0015 ; Number of locals
000b INIT_0008:
000b 00e2 | | Load_Encached Integer_Cache
000c 0400 | | Execute_Immediate Set_Value_Visible_Unchecked,0x0
000d 00e2 | | Load_Encached Integer_Cache
000e 0129 | ) | Execute Any,Make_Visible
000f 00e1 | | Load_Encached Boolean_Cache
0010 0401 | | Execute_Immediate Set_Value_Visible_Unchecked,0x1
0011 4801 |H | Short_Literal 0x1
0012 4832 |H2 | Short_Literal 0x32
0013 00e2 | | Load_Encached Integer_Cache
0014 02a0 | | Declare_Subprogram Null_Subprogram
0015 4801 |H | Short_Literal 0x1
0016 035e | ^ | Declare_Type Array,Defined,Visible
0017 00d8 | | Load_Top At_Offset_0
0018 0336 | 6 | Declare_Variable Array,Visible
0019 00d8 | | Load_Top At_Offset_0
001a 0335 | 5 | Declare_Variable Array,Duplicate
001b 00cd | | Action Spare6_Action
001c 4832 |H2 | Short_Literal 0x32
001d 4801 |H | Short_Literal 0x1
001e 4800 |H | Short_Literal 0x0
001f 00d9 | | Load_Top At_Offset_1
0020 e212 | | Load 0x1,0x12
0021 01d6 | | Execute Vector,Field_Write
0022 3ffb |? | Loop_Increasing 0x1e
0023 00d9 | | Load_Top At_Offset_1
0024 01d4 | | Execute Vector,Structure_Write
0025 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated
0027 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated
0029 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated
002b 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated
002d 00bf | | Action Accept_Activation
002e 1d12 | | Execute_Immediate Reference_Lex_1,0x12
002f 00c7 | | Action Elaborate_Subprogram
0030 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0031 00c7 | | Action Elaborate_Subprogram
0032 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0033 00c7 | | Action Elaborate_Subprogram
0034 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0035 00c7 | | Action Elaborate_Subprogram
0036 BODY_0008:
0036 00bc | | Action Signal_Activated
0037 00bb | | Action Signal_Completion
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 003d | = | .CONST 0x003d ; Address of begin
0039 0004 | | .CONST 0x0004 ; Address of exception handler
003a 0002 | | .CONST 0x0002 ; Number of locals
003b INIT_0038:
003b 00e2 | | Load_Encached Integer_Cache
003c 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
003d BODY_0038:
003d e20f | | Load 0x1,0xf
003e 7010 |p | Jump_Nonzero 0x4f
003f 00cf | | Action Mark_Auxiliary
0040 7804 |x | Jump 0x45
0041 00d9 | | Load_Top At_Offset_1
0042 0a01 | | Execute_Immediate Plus,0x1
0043 005a | Z | Store_Top Discrete,At_Offset_2
0044 00c9 | | Action Pop_Auxiliary_Loop
0045 00d9 | | Load_Top At_Offset_1
0046 e211 | | Load 0x1,0x11
0047 01d7 | | Execute Vector,Field_Read
0048 77f8 |w | Jump_Nonzero 0x41
0049 00ce | | Action Pop_Auxiliary
004a 00db | | Load_Top At_Offset_3
004b 00d9 | | Load_Top At_Offset_1
004c e211 | | Load 0x1,0x11
004d 01d6 | | Execute Vector,Field_Write
004e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
004f 00db | | Load_Top At_Offset_3
0050 4801 |H | Short_Literal 0x1
0051 e211 | | Load 0x1,0x11
0052 01d6 | | Execute Vector,Field_Write
0053 4800 |H | Short_Literal 0x0
0054 a20f | | Store_Unchecked 0x1,0xf
0055 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0056 0000 0000 | | .XXX[0x2]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005d | ] | .CONST 0x005d ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0002 | | .CONST 0x0002 ; Number of locals
005b INIT_0058:
005b 00e2 | | Load_Encached Integer_Cache
005c 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
005d BODY_0058:
005d 00cf | | Action Mark_Auxiliary
005e 7804 |x | Jump 0x63
005f 00d9 | | Load_Top At_Offset_1
0060 0a01 | | Execute_Immediate Plus,0x1
0061 005a | Z | Store_Top Discrete,At_Offset_2
0062 00c9 | | Action Pop_Auxiliary_Loop
0063 00d9 | | Load_Top At_Offset_1
0064 0a01 | | Execute_Immediate Plus,0x1
0065 e211 | | Load 0x1,0x11
0066 01d7 | | Execute Vector,Field_Read
0067 77f7 |w | Jump_Nonzero 0x5f
0068 00ce | | Action Pop_Auxiliary
0069 00d8 | | Load_Top At_Offset_0
006a e211 | | Load 0x1,0x11
006b 01d7 | | Execute Vector,Field_Read
006c a5ff | | Store_Unchecked 0x2,-0x1
006d 4800 |H | Short_Literal 0x0
006e 00d9 | | Load_Top At_Offset_1
006f e211 | | Load 0x1,0x11
0070 01d6 | | Execute Vector,Field_Write
0071 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0072 0000 0000 | | .BLANK 0000[0x6]
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 e20f | | Load 0x1,0xf
007c 680e |h | Jump_Zero 0x8b
007d 0092 00a6 | | Action Push_String_Extended,0xa6 ; "pile vide!!!"
007f e002 | | Load 0x0,0x2
0080 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0081 e20d | | Load 0x1,0xd
0082 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0083 e20d | | Load 0x1,0xd
0084 0a01 | | Execute_Immediate Plus,0x1
0085 c20d | | Store 0x1,0xd
0086 0092 00a7 | | Action Push_String_Extended,0xa7 ; "num_id!!!"
0088 e002 | | Load 0x0,0x2
0089 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
008a 780d |x | Jump 0x98
008b 0092 00a8 | | Action Push_String_Extended,0xa8 ; "pile pas vide!!!"
008d e002 | | Load 0x0,0x2
008e 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
008f 00e2 | | Load_Encached Integer_Cache
0090 8213 | | Call 0x1,0x13
0091 005b | [ | Store_Top Discrete,At_Offset_3
0092 4801 |H | Short_Literal 0x1
0093 e211 | | Load 0x1,0x11
0094 01d7 | | Execute Vector,Field_Read
0095 7002 |p | Jump_Nonzero 0x98
0096 4801 |H | Short_Literal 0x1
0097 a20f | | Store_Unchecked 0x1,0xf
0098 0092 00a9 | | Action Push_String_Extended,0xa9 ; "sors unique!!!"
009a e002 | | Load 0x0,0x2
009b 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
009c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
009d 0000 0000 | | .XXX[0x3]
009f 0000 | |
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 00da | | Load_Top At_Offset_2
00a4 8212 | | Call 0x1,0x12
00a5 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00a6 ; --------------------------------------------------------------------------------------
00a6 ; STRING TABLE
00a6 ; --------------------------------------------------------------------------------------
00a6 000a | | .STRTAB 0x000a->0x00ab ; "pile vide!!!"
00a7 0014 | | .STRTAB 0x0014->0x00b1 ; "num_id!!!"
00a8 001b | | .STRTAB 0x001b->0x00b5 ; "pile pas vide!!!"
00a9 002b | + | .STRTAB 0x002b->0x00be ; "sors unique!!!"
00aa 0037 | 7 | .STREND 0x0037->0x00c5
00ab 7069 6c65 |pile| .STRTAB_STRINGS
00c6 0000 0000 | | .XXX[0x2]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; Debug Table
00c8 ; --------------------------------------------------------------------------------------
00c8 0004 0009 | | .DEBUG4 0x0004,0x0009,0xe829,0x0000,0x0001,0x0006
00ce 000b 00e6 | | .DBG4T 0x000b,0x00e6,0x8000,0x8000
00d2 002e 00f8 | . | .DBG4T 0x002e,0x00f8,0x8000,0x0000
00d6 003b 00fe | ; | .DBG4T 0x003b,0x00fe,0x0001,0x4000
00da 005b 010d | [ | .DBG4T 0x005b,0x010d,0x0001,0x4000
00de 007b 0118 | { | .DBG4T 0x007b,0x0118,0x0001,0x0000
00e2 00a3 0124 | $| .DBG4T 0x00a3,0x0124,0x0001,0x0000
00e6 ; --------------------------------------------------------------------------------------
00e6 ; Debug chain
00e6 ; --------------------------------------------------------------------------------------
00e6 0008 0000 | | .DBGLEN 0x0008,0x0000
00e8 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0025,0x0027,0x0029,0x002b
00f0 0002 0003 | | .XXX[0x8]
00f2 0004 0006 | |
00f4 0007 0008 | |
00f6 0009 000a | |
00f8 ; --------------------------------------------------------------------------------------
00f8 ; Debug chain
00f8 ; --------------------------------------------------------------------------------------
00f8 0004 0000 | | .DBGLEN 0x0004,0x0000
00fa 002e 0030 | . 0| .DBGLNO 0x002e,0x0030,0x0032,0x0034
00fe ; --------------------------------------------------------------------------------------
00fe ; Debug chain
00fe ; --------------------------------------------------------------------------------------
00fe 0001 0006 | | .DBGLEN 0x0001,0x0006
0100 003b 003d | ; =| .DBGLNO 0x003b,0x003d,0x0041,0x0045,0x004a,0x004f,0x0053
0107 0001 0003 | | .XXX[0x6]
0109 0002 0004 | |
010b 0005 0006 | |
010d ; --------------------------------------------------------------------------------------
010d ; Debug chain
010d ; --------------------------------------------------------------------------------------
010d 0001 0004 | | .DBGLEN 0x0001,0x0004
010f 005b 005f | [ _| .DBGLNO 0x005b,0x005f,0x0063,0x0069,0x006d
0114 0002 0001 | | .XXX[0x4]
0116 0003 0004 | |
0118 ; --------------------------------------------------------------------------------------
0118 ; Debug chain
0118 ; --------------------------------------------------------------------------------------
0118 0000 000a | | .DBGLEN 0x0000,0x000a
011a 007b 007d | { }| .DBGLNO 0x007b,0x007d,0x0081,0x0083,0x0086,0x008b,0x008f,0x0092,0x0096,0x0098
0124 ; --------------------------------------------------------------------------------------
0124 ; Debug chain
0124 ; --------------------------------------------------------------------------------------
0124 0000 0001 | | .DBGLEN 0x0000,0x0001
0126 00a3 | | .DBGLNO 0x00a3
0127 0000 0000 | | .BLANK 0000[0xd9]