|
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_4b04d9
└─⟦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 0108 | | .CONST 0x0108 ; 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 0010 | | .CONST 0x0010 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0001 | | .CONST 0x0001 ; Number of locals
000b INIT_0008:
000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 00bf | | Action Accept_Activation
000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
000f 00c7 | | Action Elaborate_Subprogram
0010 BODY_0008:
0010 00bc | | Action Signal_Activated
0011 00bb | | Action Signal_Completion
0012 0000 0000 | | .BLANK 0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 0034 | 4 | .CONST 0x0034 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0008 | | .CONST 0x0008 ; Number of locals
001b INIT_0018:
001b 4801 |H | Short_Literal 0x1
001c 4803 |H | Short_Literal 0x3
001d 00e2 | | Load_Encached Integer_Cache
001e 03f8 | | Declare_Type Discrete,Constrained
001f 00d8 | | Load_Top At_Offset_0
0020 0007 | | Action Break_Optional
0021 029f 005b | [| Declare_Subprogram INIT_0058,For_Call
0023 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call
0025 a002 | | Store_Unchecked 0x0,0x2
0026 00c6 | | Action Check_Subprogram_Elaborated
0027 4805 |H | Short_Literal 0x5
0028 4802 |H | Short_Literal 0x2
0029 0099 | | Action Reference_Dynamic
002a 0093 0000 | | push_full_address 0x0
002c 6027 |`' | Indirect_Literal Discrete,0x54,{0x80000000, 0x00010000}
002d 0273 | s | Execute Discrete,Plus
002e e003 | | Load 0x0,0x3
002f 0273 | s | Execute Discrete,Plus
0030 e004 | | Load 0x0,0x4
0031 0273 | s | Execute Discrete,Plus
0032 4808 |H | Short_Literal 0x8
0033 0007 | | Action Break_Optional
0034 BODY_0018:
0034 8404 | | Call 0x2,0x4
0035 8005 | | Call 0x0,0x5
0036 8006 | | Call 0x0,0x6
0037 4806 |H | Short_Literal 0x6
0038 4802 |H | Short_Literal 0x2
0039 0099 | | Action Reference_Dynamic
003a 4807 |H | Short_Literal 0x7
003b 4802 |H | Short_Literal 0x2
003c 0099 | | Action Reference_Dynamic
003d 8002 | | Call 0x0,0x2
003e 8005 | | Call 0x0,0x5
003f 0092 00dc | | Action Push_String_Extended,0xdc ; "************************* New Working Memory:"
0041 8007 | | Call 0x0,0x7
0042 8005 | | Call 0x0,0x5
0043 8006 | | Call 0x0,0x6
0044 4806 |H | Short_Literal 0x6
0045 4802 |H | Short_Literal 0x2
0046 0099 | | Action Reference_Dynamic
0047 4807 |H | Short_Literal 0x7
0048 4802 |H | Short_Literal 0x2
0049 0099 | | Action Reference_Dynamic
004a 8002 | | Call 0x0,0x2
004b 8005 | | Call 0x0,0x5
004c 0092 00dc | | Action Push_String_Extended,0xdc ; "************************* New Working Memory:"
004e 8007 | | Call 0x0,0x7
004f 8005 | | Call 0x0,0x5
0050 8006 | | Call 0x0,0x6
0051 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0052 0000 0000 | | .XXX[0x2]
0054 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 0067 | g | .CONST 0x0067 ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0004 | | .CONST 0x0004 ; Number of locals
005b INIT_0058:
005b e008 | | Load 0x0,0x8
005c 02ff | | Declare_Variable Variant_Record
005d 00d8 | | Load_Top At_Offset_0
005e 1c00 | | Execute_Immediate Run_Utility,0x0
005f 00d8 | | Load_Top At_Offset_0
0060 02ff | | Declare_Variable Variant_Record
0061 00d8 | | Load_Top At_Offset_0
0062 1c00 | | Execute_Immediate Run_Utility,0x0
0063 00d8 | | Load_Top At_Offset_0
0064 02ff | | Declare_Variable Variant_Record
0065 00d8 | | Load_Top At_Offset_0
0066 1c00 | | Execute_Immediate Run_Utility,0x0
0067 BODY_0058:
0067 00da | | Load_Top At_Offset_2
0068 e009 | | Load 0x0,0x9
0069 0337 | 7 | Declare_Variable Array
006a 480a |H | Short_Literal 0xa
006b 800a | | Call 0x0,0xa
006c 4800 |H | Short_Literal 0x0
006d 00da | | Load_Top At_Offset_2
006e 01d6 | | Execute Vector,Field_Write
006f 4814 |H | Short_Literal 0x14
0070 800a | | Call 0x0,0xa
0071 4801 |H | Short_Literal 0x1
0072 00da | | Load_Top At_Offset_2
0073 01d6 | | Execute Vector,Field_Write
0074 e009 | | Load 0x0,0x9
0075 01c3 | | Execute Vector,Check_In_Type
0076 800b | | Call 0x0,0xb
0077 00d1 | | Pop_Control Pop_Count_1
0078 00da | | Load_Top At_Offset_2
0079 00da | | Load_Top At_Offset_2
007a 016d | m | Execute Variant_Record,Structure_Write
007b 0092 00dd | | Action Push_String_Extended,0xdd ; "salut"
007d 800c | | Call 0x0,0xc
007e 00da | | Load_Top At_Offset_2
007f 016d | m | Execute Variant_Record,Structure_Write
0080 00d9 | | Load_Top At_Offset_1
0081 e009 | | Load 0x0,0x9
0082 0337 | 7 | Declare_Variable Array
0083 4864 |Hd | Short_Literal 0x64
0084 800a | | Call 0x0,0xa
0085 4800 |H | Short_Literal 0x0
0086 00da | | Load_Top At_Offset_2
0087 01d6 | | Execute Vector,Field_Write
0088 4896 |H | Short_Literal 0x96
0089 800a | | Call 0x0,0xa
008a 4801 |H | Short_Literal 0x1
008b 00da | | Load_Top At_Offset_2
008c 01d6 | | Execute Vector,Field_Write
008d e009 | | Load 0x0,0x9
008e 01c3 | | Execute Vector,Check_In_Type
008f 800b | | Call 0x0,0xb
0090 00d1 | | Pop_Control Pop_Count_1
0091 00d8 | | Load_Top At_Offset_0
0092 e00d | | Load 0x0,0xd
0093 0337 | 7 | Declare_Variable Array
0094 e602 | | Load 0x3,0x2
0095 4800 |H | Short_Literal 0x0
0096 00da | | Load_Top At_Offset_2
0097 01d6 | | Execute Vector,Field_Write
0098 00db | | Load_Top At_Offset_3
0099 4801 |H | Short_Literal 0x1
009a 00da | | Load_Top At_Offset_2
009b 01d6 | | Execute Vector,Field_Write
009c e00d | | Load 0x0,0xd
009d 01c3 | | Execute Vector,Check_In_Type
009e 800e | | Call 0x0,0xe
009f 00d1 | | Pop_Control Pop_Count_1
00a0 e00f | | Load 0x0,0xf
00a1 0337 | 7 | Declare_Variable Array
00a2 00d9 | | Load_Top At_Offset_1
00a3 4800 |H | Short_Literal 0x0
00a4 00da | | Load_Top At_Offset_2
00a5 01d6 | | Execute Vector,Field_Write
00a6 0092 00de | | Action Push_String_Extended,0xde ; "fenetre 2"
00a8 800c | | Call 0x0,0xc
00a9 4801 |H | Short_Literal 0x1
00aa 00da | | Load_Top At_Offset_2
00ab 01d6 | | Execute Vector,Field_Write
00ac e00f | | Load 0x0,0xf
00ad 01c3 | | Execute Vector,Check_In_Type
00ae 8010 | | Call 0x0,0x10
00af 00d8 | | Load_Top At_Offset_0
00b0 e00d | | Load 0x0,0xd
00b1 0337 | 7 | Declare_Variable Array
00b2 e602 | | Load 0x3,0x2
00b3 4800 |H | Short_Literal 0x0
00b4 00da | | Load_Top At_Offset_2
00b5 01d6 | | Execute Vector,Field_Write
00b6 e602 | | Load 0x3,0x2
00b7 4801 |H | Short_Literal 0x1
00b8 00da | | Load_Top At_Offset_2
00b9 01d6 | | Execute Vector,Field_Write
00ba e00d | | Load 0x0,0xd
00bb 01c3 | | Execute Vector,Check_In_Type
00bc 800e | | Call 0x0,0xe
00bd 00d1 | | Pop_Control Pop_Count_1
00be e00f | | Load 0x0,0xf
00bf 0337 | 7 | Declare_Variable Array
00c0 00d9 | | Load_Top At_Offset_1
00c1 4800 |H | Short_Literal 0x0
00c2 00da | | Load_Top At_Offset_2
00c3 01d6 | | Execute Vector,Field_Write
00c4 0092 00df | | Action Push_String_Extended,0xdf ; "fenetre 1"
00c6 800c | | Call 0x0,0xc
00c7 4801 |H | Short_Literal 0x1
00c8 00da | | Load_Top At_Offset_2
00c9 01d6 | | Execute Vector,Field_Write
00ca e00f | | Load 0x0,0xf
00cb 01c3 | | Execute Vector,Check_In_Type
00cc 8010 | | Call 0x0,0x10
00cd 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00ce 0000 0000 | | .XXX[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 00db | | Load_Top At_Offset_3
00d4 00db | | Load_Top At_Offset_3
00d5 00d8 | | Load_Top At_Offset_0
00d6 00e3 | | Load_Encached Natural_Cache
00d7 0260 | ` | Execute Discrete,In_Type
00d8 7001 |p | Jump_Nonzero 0xda
00d9 0801 | | Execute_Immediate Raise,0x1
00da 8011 | | Call 0x0,0x11
00db 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00dc ; --------------------------------------------------------------------------------------
00dc ; STRING TABLE
00dc ; --------------------------------------------------------------------------------------
00dc 000a | | .STRTAB 0x000a->0x00e1 ; "************************* New Working Memory:"
00dd 0035 | 5 | .STRTAB 0x0035->0x00f7 ; "salut"
00de 0038 | 8 | .STRTAB 0x0038->0x00fa ; "fenetre 2"
00df 003f | ? | .STRTAB 0x003f->0x00fe ; "fenetre 1"
00e0 0046 | F | .STREND 0x0046->0x0103
00e1 2a2a 2a2a |****| .STRTAB_STRINGS
0103 0000 0000 | | .BLANK 0000[0x5]
0108 ; --------------------------------------------------------------------------------------
0108 ; Debug Table
0108 ; --------------------------------------------------------------------------------------
0108 0004 0006 | | .DEBUG4 0x0004,0x0006,0xb0ce,0x0000,0x0001,0x0004
010e 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000
0112 001b 011e | | .DBG4T 0x001b,0x011e,0x8001,0x0000
0116 005b 012c | [ ,| .DBG4T 0x005b,0x012c,0x0001,0x0000
011a 00d3 0000 | | .DBG4T 0x00d3,0x0000,0x000b,0x0000
011e ; --------------------------------------------------------------------------------------
011e ; Debug chain
011e ; --------------------------------------------------------------------------------------
011e 0004 0008 | | .DBGLEN 0x0004,0x0008
0120 001b 001f | | .DBGLNO 0x001b,0x001f,0x0021,0x0023,0x0034,0x0035,0x0037,0x003e,0x0042,0x0044,0x004b,0x004f
012c ; --------------------------------------------------------------------------------------
012c ; Debug chain
012c ; --------------------------------------------------------------------------------------
012c 0001 0008 | | .DBGLEN 0x0001,0x0008
012e 005b 0067 | [ g| .DBGLNO 0x005b,0x0067,0x0078,0x007b,0x0080,0x0091,0x00a0,0x00af,0x00be
0137 0000 0000 | | .BLANK 0000[0xc9]