|
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: 2048 (0x800)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_1108bf
└─⟦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 0200 | | .CONST 0x0200 ; 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 0001 | | .CONST 0x0001 ; 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 003d | = | .CONST 0x003d ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0007 | | .CONST 0x0007 ; Number of locals
001b INIT_0018:
001b 029e 00f3 | | Declare_Subprogram INIT_00f0,For_Call,Unelaborated
001d 029f 014b | K| Declare_Subprogram INIT_0148,For_Call
001f 0093 0000 | | push_full_address 0x0
0021 60c6 |` | Indirect_Literal Discrete,0xe8,{0x80000000, 0x00010000}
0022 0273 | s | Execute Discrete,Plus
0023 e002 | | Load 0x0,0x2
0024 0273 | s | Execute Discrete,Plus
0025 e003 | | Load 0x0,0x3
0026 0273 | s | Execute Discrete,Plus
0027 4803 |H | Short_Literal 0x3
0028 4802 |H | Short_Literal 0x2
0029 0099 | | Action Reference_Dynamic
002a 0092 0153 | S| Action Push_String_Extended,0x153 ; "calendar"
002c e004 | | Load 0x0,0x4
002d 01c7 | | Execute Vector,Convert
002e e005 | | Load 0x0,0x5
002f 0387 | | Declare_Variable Package
0030 00d8 | | Load_Top At_Offset_0
0031 020f | | Execute Module,Activate
0032 e006 | | Load 0x0,0x6
0033 00d9 | | Load_Top At_Offset_1
0034 0098 | | Execute Package,Field_Read_Dynamic
0035 0322 | " | Declare_Variable Record
0036 00e3 | | Load_Encached Natural_Cache
0037 e007 | | Load 0x0,0x7
0038 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0039 4802 |H | Short_Literal 0x2
003a 4802 |H | Short_Literal 0x2
003b 0099 | | Action Reference_Dynamic
003c 00c7 | | Action Elaborate_Subprogram
003d BODY_0018:
003d 60a6 |` | Indirect_Literal Discrete,0xe4,{0x00000000, 0x00028000}
003e 00ba | | Action Initiate_Delay
003f 00da | | Load_Top At_Offset_2
0040 4801 |H | Short_Literal 0x1
0041 e008 | | Load 0x0,0x8
0042 e404 | | Load 0x2,0x4
0043 0096 | | Execute Package,Entry
0044 00d1 | | Pop_Control Pop_Count_1
0045 00da | | Load_Top At_Offset_2
0046 0092 0154 | T| Action Push_String_Extended,0x154 ; "date"
0048 e009 | | Load 0x0,0x9
0049 e404 | | Load 0x2,0x4
004a 0096 | | Execute Package,Entry
004b 00d1 | | Pop_Control Pop_Count_1
004c 00da | | Load_Top At_Offset_2
004d 4803 |H | Short_Literal 0x3
004e e008 | | Load 0x0,0x8
004f e404 | | Load 0x2,0x4
0050 0096 | | Execute Package,Entry
0051 00d1 | | Pop_Control Pop_Count_1
0052 00da | | Load_Top At_Offset_2
0053 0092 0155 | U| Action Push_String_Extended,0x155 ; "year"
0055 e009 | | Load 0x0,0x9
0056 e404 | | Load 0x2,0x4
0057 0096 | | Execute Package,Entry
0058 00d1 | | Pop_Control Pop_Count_1
0059 00da | | Load_Top At_Offset_2
005a 0092 0156 | V| Action Push_String_Extended,0x156 ; "mont"
005c e009 | | Load 0x0,0x9
005d e404 | | Load 0x2,0x4
005e 0096 | | Execute Package,Entry
005f 00d1 | | Pop_Control Pop_Count_1
0060 00da | | Load_Top At_Offset_2
0061 0092 0157 | W| Action Push_String_Extended,0x157 ; "day "
0063 e009 | | Load 0x0,0x9
0064 e404 | | Load 0x2,0x4
0065 0096 | | Execute Package,Entry
0066 00d1 | | Pop_Control Pop_Count_1
0067 607c |`| | Indirect_Literal Discrete,0xe4,{0x00000000, 0x00028000}
0068 00ba | | Action Initiate_Delay
0069 0092 0158 | X| Action Push_String_Extended,0x158 ; "AGENT IS GOING TO UNREGISTER !!!"
006b e00a | | Load 0x0,0xa
006c 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
006d 00da | | Load_Top At_Offset_2
006e e00b | | Load 0x0,0xb
006f e404 | | Load 0x2,0x4
0070 0096 | | Execute Package,Entry
0071 00cf | | Action Mark_Auxiliary
0072 e00c | | Load 0x0,0xc
0073 e404 | | Load 0x2,0x4
0074 0096 | | Execute Package,Entry
0075 0f01 | | Execute_Immediate Equal,0x1
0076 6805 |h | Jump_Zero 0x7c
0077 0092 0159 | Y| Action Push_String_Extended,0x159 ; "I AM REGISTRATED !"
0079 e00a | | Load 0x0,0xa
007a 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
007b 7804 |x | Jump 0x80
007c 0092 015a | Z| Action Push_String_Extended,0x15a ; "NOT REGISTRATED YET."
007e e00a | | Load 0x0,0xa
007f 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0080 e00c | | Load 0x0,0xc
0081 e404 | | Load 0x2,0x4
0082 0096 | | Execute Package,Entry
0083 0f01 | | Execute_Immediate Equal,0x1
0084 7004 |p | Jump_Nonzero 0x89
0085 605e |`^ | Indirect_Literal Discrete,0xe4,{0x00000000, 0x00028000}
0086 00ba | | Action Initiate_Delay
0087 00c9 | | Action Pop_Auxiliary_Loop
0088 7fe9 | | Jump 0x72
0089 00ce | | Action Pop_Auxiliary
008a 6055 |`U | Indirect_Literal Discrete,0xe0,{0x00000000, 0x00140000}
008b 00ba | | Action Initiate_Delay
008c 0092 015b | [| Action Push_String_Extended,0x15b ; "AGENT IS GOING TO ASK A JOB TO ORB : EuHi ital"
008e e00a | | Load 0x0,0xa
008f 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0090 4801 |H | Short_Literal 0x1
0091 0092 015c | \| Action Push_String_Extended,0x15c ; "ital"
0093 e00d | | Load 0x0,0xd
0094 01c3 | | Execute Vector,Check_In_Type
0095 0092 015d | ]| Action Push_String_Extended,0x15d ; "EuHi"
0097 e00e | | Load 0x0,0xe
0098 01c3 | | Execute Vector,Check_In_Type
0099 e00f | | Load 0x0,0xf
009a e404 | | Load 0x2,0x4
009b 0096 | | Execute Package,Entry
009c 00cf | | Action Mark_Auxiliary
009d e010 | | Load 0x0,0x10
009e e404 | | Load 0x2,0x4
009f 0096 | | Execute Package,Entry
00a0 0f01 | | Execute_Immediate Equal,0x1
00a1 7002 |p | Jump_Nonzero 0xa4
00a2 00c9 | | Action Pop_Auxiliary_Loop
00a3 7ff9 | | Jump 0x9d
00a4 00ce | | Action Pop_Auxiliary
00a5 00d8 | | Load_Top At_Offset_0
00a6 00e3 | | Load_Encached Natural_Cache
00a7 e011 | | Load 0x0,0x11
00a8 e404 | | Load 0x2,0x4
00a9 0096 | | Execute Package,Entry
00aa 005b | [ | Store_Top Discrete,At_Offset_3
00ab 0039 | 9 | Store_Top Access,At_Offset_1
00ac 0092 015e | ^| Action Push_String_Extended,0x15e ; "RESULTAT DU JOB Numero "
00ae 00da | | Load_Top At_Offset_2
00af 00e0 | | Load_Encached Standard_Cache
00b0 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00b1 01cc | | Execute Vector,Catenate
00b2 0092 015f | _| Action Push_String_Extended,0x15f ; " : "
00b4 01cc | | Execute Vector,Catenate
00b5 00d9 | | Load_Top At_Offset_1
00b6 e007 | | Load 0x0,0x7
00b7 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00b8 01cc | | Execute Vector,Catenate
00b9 e00a | | Load 0x0,0xa
00ba 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00bb 6020 |` | Indirect_Literal Discrete,0xdc,{0x00000000, 0x00050000}
00bc 00ba | | Action Initiate_Delay
00bd 0092 0160 | `| Action Push_String_Extended,0x160 ; "AGENT IS GOING TO UNREGISTER"
00bf e00a | | Load 0x0,0xa
00c0 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00c1 e012 | | Load 0x0,0x12
00c2 e404 | | Load 0x2,0x4
00c3 0096 | | Execute Package,Entry
00c4 00cf | | Action Mark_Auxiliary
00c5 e00c | | Load 0x0,0xc
00c6 e404 | | Load 0x2,0x4
00c7 0096 | | Execute Package,Entry
00c8 6802 |h | Jump_Zero 0xcb
00c9 00c9 | | Action Pop_Auxiliary_Loop
00ca 7ffa | | Jump 0xc5
00cb 00ce | | Action Pop_Auxiliary
00cc 6017 |` | Indirect_Literal Discrete,0xe4,{0x00000000, 0x00028000}
00cd 00ba | | Action Initiate_Delay
00ce 0092 0161 | a| Action Push_String_Extended,0x161 ; "AGENT IS GOING TO DIE"
00d0 e00a | | Load 0x0,0xa
00d1 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00d2 e013 | | Load 0x0,0x13
00d3 e404 | | Load 0x2,0x4
00d4 0096 | | Execute Package,Entry
00d5 600e |` | Indirect_Literal Discrete,0xe4,{0x00000000, 0x00028000}
00d6 00ba | | Action Initiate_Delay
00d7 0092 0162 | b| Action Push_String_Extended,0x162 ; "My first agent Terminated"
00d9 e00a | | Load 0x0,0xa
00da 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00db 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00dc 0000 0000 | | .LITERAL {0x00000000, 0x00050000}
00e0 0000 0000 | | .LITERAL {0x00000000, 0x00140000}
00e4 0000 0000 | | .LITERAL {0x00000000, 0x00028000}
00e8 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
00ec 0000 0000 | | .BLANK 0000[0x4]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f8 | | .CONST 0x00f8 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0002 | | .CONST 0x0002 ; Number of locals
00f3 INIT_00f0:
00f3 e014 | | Load 0x0,0x14
00f4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00f5 02c7 | | Declare_Variable Any
00f6 00d8 | | Load_Top At_Offset_0
00f7 1c00 | | Execute_Immediate Run_Utility,0x0
00f8 BODY_00f0:
00f8 0092 0163 | c| Action Push_String_Extended,0x163 ; "Beginning of treating."
00fa e00a | | Load 0x0,0xa
00fb 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00fc e014 | | Load 0x0,0x14
00fd 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00fe c602 | | Store 0x3,0x2
00ff 00db | | Load_Top At_Offset_3
0100 0092 0154 | T| Action Push_String_Extended,0x154 ; "date"
0102 01df | | Execute Vector,Equal
0103 683f |h? | Jump_Zero 0x143
0104 e7fe | | Load 0x3,-0x2
0105 0092 0155 | U| Action Push_String_Extended,0x155 ; "year"
0107 01df | | Execute Vector,Equal
0108 6810 |h | Jump_Zero 0x119
0109 0092 0164 | d| Action Push_String_Extended,0x164 ; "Year: "
010b 00d9 | | Load_Top At_Offset_1
010c e014 | | Load 0x0,0x14
010d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
010e 00e0 | | Load_Encached Standard_Cache
010f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0110 01cc | | Execute Vector,Catenate
0111 e00a | | Load 0x0,0xa
0112 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0113 00d8 | | Load_Top At_Offset_0
0114 e014 | | Load 0x0,0x14
0115 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0116 00e0 | | Load_Encached Standard_Cache
0117 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0118 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0119 e7fe | | Load 0x3,-0x2
011a 0092 0156 | V| Action Push_String_Extended,0x156 ; "mont"
011c 01df | | Execute Vector,Equal
011d 6810 |h | Jump_Zero 0x12e
011e 0092 0165 | e| Action Push_String_Extended,0x165 ; "Month: "
0120 00d9 | | Load_Top At_Offset_1
0121 e014 | | Load 0x0,0x14
0122 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0123 00e0 | | Load_Encached Standard_Cache
0124 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0125 01cc | | Execute Vector,Catenate
0126 e00a | | Load 0x0,0xa
0127 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0128 00d8 | | Load_Top At_Offset_0
0129 e014 | | Load 0x0,0x14
012a 1814 | | Execute Package,Field_Execute,Field_Number 0x14
012b 00e0 | | Load_Encached Standard_Cache
012c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
012d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
012e e7fe | | Load 0x3,-0x2
012f 0092 0157 | W| Action Push_String_Extended,0x157 ; "day "
0131 01df | | Execute Vector,Equal
0132 6810 |h | Jump_Zero 0x143
0133 0092 0166 | f| Action Push_String_Extended,0x166 ; "Day : "
0135 00d9 | | Load_Top At_Offset_1
0136 e014 | | Load 0x0,0x14
0137 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0138 00e0 | | Load_Encached Standard_Cache
0139 1818 | | Execute Package,Field_Execute,Field_Number 0x18
013a 01cc | | Execute Vector,Catenate
013b e00a | | Load 0x0,0xa
013c 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
013d 00d8 | | Load_Top At_Offset_0
013e e014 | | Load 0x0,0x14
013f 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0140 00e0 | | Load_Encached Standard_Cache
0141 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0142 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0143 0831 | 1 | Execute_Immediate Raise,0x31
0144 0000 0000 | | .BLANK 0000[0x4]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b | K | .CONST 0x014b ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0001 | | .CONST 0x0001 ; Number of locals
014b BODY_0148:
014b INIT_0148:
014b 00db | | Load_Top At_Offset_3
014c e00d | | Load 0x0,0xd
014d 01c3 | | Execute Vector,Check_In_Type
014e 00db | | Load_Top At_Offset_3
014f e00e | | Load 0x0,0xe
0150 01c3 | | Execute Vector,Check_In_Type
0151 8402 | | Call 0x2,0x2
0152 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0153 ; --------------------------------------------------------------------------------------
0153 ; STRING TABLE
0153 ; --------------------------------------------------------------------------------------
0153 002a | * | .STRTAB 0x002a->0x0168 ; "calendar"
0154 0030 | 0 | .STRTAB 0x0030->0x016c ; "date"
0155 0032 | 2 | .STRTAB 0x0032->0x016e ; "year"
0156 0034 | 4 | .STRTAB 0x0034->0x0170 ; "mont"
0157 0036 | 6 | .STRTAB 0x0036->0x0172 ; "day "
0158 0038 | 8 | .STRTAB 0x0038->0x0174 ; "AGENT IS GOING TO UNREGISTER !!!"
0159 0056 | V | .STRTAB 0x0056->0x0184 ; "I AM REGISTRATED !"
015a 0066 | f | .STRTAB 0x0066->0x018d ; "NOT REGISTRATED YET."
015b 0078 | x | .STRTAB 0x0078->0x0197 ; "AGENT IS GOING TO ASK A JOB TO ORB : EuHi ital"
015c 00a5 | | .STRTAB 0x00a5->0x01ae ; "ital"
015d 00a7 | | .STRTAB 0x00a7->0x01b0 ; "EuHi"
015e 00a9 | | .STRTAB 0x00a9->0x01b2 ; "RESULTAT DU JOB Numero "
015f 00be | | .STRTAB 0x00be->0x01be ; " : "
0160 00bf | | .STRTAB 0x00bf->0x01bf ; "AGENT IS GOING TO UNREGISTER"
0161 00d9 | | .STRTAB 0x00d9->0x01cd ; "AGENT IS GOING TO DIE"
0162 00ec | | .STRTAB 0x00ec->0x01d8 ; "My first agent Terminated"
0163 0103 | | .STRTAB 0x0103->0x01e4 ; "Beginning of treating."
0164 0117 | | .STRTAB 0x0117->0x01ef ; "Year: "
0165 011b | | .STRTAB 0x011b->0x01f2 ; "Month: "
0166 0120 | | .STRTAB 0x0120->0x01f6 ; "Day : "
0167 0124 | $ | .STREND 0x0124->0x01f9
0168 6361 6c65 |cale| .STRTAB_STRINGS
01f9 0000 0000 | | .BLANK 0000[0x7]
0200 ; --------------------------------------------------------------------------------------
0200 ; Debug Table
0200 ; --------------------------------------------------------------------------------------
0200 0004 000a | | .DEBUG4 0x0004,0x000a,0x7c42,0x0000,0x0001,0x0004
0206 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000
020a 001b 0216 | | .DBG4T 0x001b,0x0216,0x8001,0x4000
020e 00f3 025a | Z| .DBG4T 0x00f3,0x025a,0x0002,0x0000
0212 014b 0000 | K | .DBG4T 0x014b,0x0000,0x000c,0x0000
0216 ; --------------------------------------------------------------------------------------
0216 ; Debug chain
0216 ; --------------------------------------------------------------------------------------
0216 0006 001e | | .DBGLEN 0x0006,0x001e
0218 001b 001d | | .DBGLNO 0x001b,0x001d,0x0032,0x0036,0x0037,0x0039,0x003d,0x003f,0x0045,0x004c,0x0052,0x0059,0x0060,0x0067,0x0069,0x006d,0x0072,0x0077,0x007c,0x0080,0x0085,0x008a,0x008c,0x0090,0x009d,0x00a5,0x00ac,0x00bb,0x00bd,0x00c1,0x00c5,0x00cc,0x00ce,0x00d2,0x00d5,0x00d7
023c 0001 0002 | | .XXX[0x1e]
023e 0003 0004 | |
0240 0005 0006 | |
0242 0007 0008 | |
0244 0009 000a | |
0246 000c 000d | |
0248 000e 000f | |
024a 0010 0011 | |
024c 0012 0013 | |
024e 0015 0016 | |
0250 0017 0018 | |
0252 0019 001a | |
0254 001c 001d | |
0256 001e 001f | |
0258 0020 0021 | !|
025a ; --------------------------------------------------------------------------------------
025a ; Debug chain
025a ; --------------------------------------------------------------------------------------
025a 0001 000c | | .DBGLEN 0x0001,0x000c
025c 00f3 00f8 | | .DBGLNO 0x00f3,0x00f8,0x00fc,0x00ff,0x0104,0x0109,0x0113,0x0119,0x011e,0x0128,0x012e,0x0133,0x013d
0269 0000 0000 | | .BLANK 0000[0x197]