|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0a7cf5
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 00e8 | | .CONST 0x00e8 ; 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 8000 | | .CONST 0x8000 ; 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 001d | | .CONST 0x001d ; Address of begin
0019 0032 | 2 | .CONST 0x0032 ; Address of exception handler
001a 0002 | | .CONST 0x0002 ; Number of locals
001b INIT_0018:
001b 0092 0067 | g| Action Push_String_Extended,0x67 ; "Delete_Diagram"
001d BODY_0018:
001d e5fd | | Load 0x2,-0x3
001e e001 | | Load 0x0,0x1
001f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0020 e5fd | | Load 0x2,-0x3
0021 e5fe | | Load 0x2,-0x2
0022 e5ff | | Load 0x2,-0x1
0023 00db | | Load_Top At_Offset_3
0024 e002 | | Load 0x0,0x2
0025 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0026 e003 | | Load 0x0,0x3
0027 180f | | Execute Package,Field_Execute,Field_Number 0xf
0028 e5fe | | Load 0x2,-0x2
0029 e5ff | | Load 0x2,-0x1
002a e004 | | Load 0x0,0x4
002b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
002c 00d8 | | Load_Top At_Offset_0
002d e002 | | Load 0x0,0x2
002e 1812 | | Execute Package,Field_Execute,Field_Number 0x12
002f e001 | | Load 0x0,0x1
0030 180f | | Execute Package,Field_Execute,Field_Number 0xf
0031 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0032 TRAP_0018:
0032 e003 | | Load 0x0,0x3
0033 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0034 010f | | Execute Exception,Equal
0035 680f |h | Jump_Zero 0x45
0036 0092 0068 | h| Action Push_String_Extended,0x68 ; "Create_Defining_Diagram terminating because Insight is not authorized for this machine"
0038 e005 | | Load 0x0,0x5
0039 1815 | | Execute Package,Field_Execute,Field_Number 0x15
003a e001 | | Load 0x0,0x1
003b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
003c 6805 |h | Jump_Zero 0x42
003d e001 | | Load 0x0,0x1
003e 180f | | Execute Package,Field_Execute,Field_Number 0xf
003f e006 | | Load 0x0,0x6
0040 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0041 0257 | W | Execute Discrete,Raise
0042 e001 | | Load 0x0,0x1
0043 180f | | Execute Package,Field_Execute,Field_Number 0xf
0044 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0045 e003 | | Load 0x0,0x3
0046 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0047 010f | | Execute Exception,Equal
0048 680f |h | Jump_Zero 0x58
0049 0092 0069 | i| Action Push_String_Extended,0x69 ; "Create_Defining_Diagram terminating because the Insight token limit has been exceeded"
004b e005 | | Load 0x0,0x5
004c 1815 | | Execute Package,Field_Execute,Field_Number 0x15
004d e001 | | Load 0x0,0x1
004e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
004f 6805 |h | Jump_Zero 0x55
0050 e001 | | Load 0x0,0x1
0051 180f | | Execute Package,Field_Execute,Field_Number 0xf
0052 e006 | | Load 0x0,0x6
0053 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0054 0257 | W | Execute Discrete,Raise
0055 e001 | | Load 0x0,0x1
0056 180f | | Execute Package,Field_Execute,Field_Number 0xf
0057 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0058 e001 | | Load 0x0,0x1
0059 1811 | | Execute Package,Field_Execute,Field_Number 0x11
005a 6805 |h | Jump_Zero 0x60
005b e001 | | Load 0x0,0x1
005c 180f | | Execute Package,Field_Execute,Field_Number 0xf
005d e006 | | Load 0x0,0x6
005e 1b10 | | Execute Package,Field_Read,Field_Number 0x10
005f 0257 | W | Execute Discrete,Raise
0060 0092 006a | j| Action Push_String_Extended,0x6a ; "Background_Exception raised see above for details"
0062 e005 | | Load 0x0,0x5
0063 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0064 e001 | | Load 0x0,0x1
0065 180f | | Execute Package,Field_Execute,Field_Number 0xf
0066 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0067 ; --------------------------------------------------------------------------------------
0067 ; STRING TABLE
0067 ; --------------------------------------------------------------------------------------
0067 000a | | .STRTAB 0x000a->0x006c ; "Delete_Diagram"
0068 0016 | | .STRTAB 0x0016->0x0073 ; "Create_Defining_Diagram terminating because Insight is not authorized for this machine"
0069 006a | j | .STRTAB 0x006a->0x009e ; "Create_Defining_Diagram terminating because the Insight token limit has been exceeded"
006a 00bd | | .STRTAB 0x00bd->0x00c8 ; "Background_Exception raised see above for details"
006b 00ec | | .STREND 0x00ec->0x00e1
006c 4465 6c65 |Dele| .STRTAB_STRINGS
00e1 0000 0000 | | .BLANK 0000[0x7]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; Debug Table
00e8 ; --------------------------------------------------------------------------------------
00e8 0004 0014 | | .DEBUG4 0x0004,0x0014,0x10c6,0x0000,0x0001,0x0000
00ee 9a20 20a3 | | .XXX[0x112]
00f0 405b 6a08 |@[j |
00f2 c052 390f | R9 |
00f4 015d b2a2 | ] |
00f6 67db a62f |g /|
00f8 25af 9a75 |% u|
00fa 1a15 f7e9 | |
00fc 6cd8 3aea |l : |
00fe 04e6 087a | z|
0100 c071 53a3 | qS |
0102 90c6 0920 | |
0104 0375 3b1a | u; |
0106 47dc 96a2 |G |
0108 5b0d b040 |[ @|
010a 0600 2bda | + |
010c 791e 4682 |y F |
010e ca4e 5305 | NS |
0110 8b40 e570 | @ p|
0112 9516 9df4 | |
0114 ea40 d851 | @ Q|
0116 91a4 6103 | a |
0118 2762 9f04 |'b |
011a a032 8f49 | 2 I|
011c 769a 7e04 |v ~ |
011e 2262 81aa |"b |
0120 7a4c a415 |zL |
0122 c288 5a98 | Z |
0124 24ab 5424 |$ T$|
0126 6ca2 7a54 |l zT|
0128 a6fb c662 | b|
012a aaa3 0235 | 5|
012c 06e4 b960 | `|
012e 107d 02e4 | } |
0130 a4d8 d844 | D|
0132 deaa 290e | ) |
0134 1579 d19c | y |
0136 26a4 4620 |& F |
0138 3aa6 8f06 |: |
013a 58c9 9852 |X R|
013c 00e0 a920 | |
013e 5e98 d03a |^ :|
0140 e881 22c2 | " |
0142 1649 d14a | I J|
0144 12ed 8005 | |
0146 12a4 2005 | |
0148 9368 92c4 | h |
014a a7f4 9b45 | E|
014c 00c9 c86f | o|
014e 8f1a 5028 | P(|
0150 5120 4537 |Q E7|
0152 9db1 ebad | |
0154 259e 2011 |% |
0156 5240 7282 |R@r |
0158 542e a18b |T. |
015a c1bd e8fe | |
015c ef12 4028 | @(|
015e aff0 2671 | &q|
0160 a5af a819 | |
0162 7035 4fa9 |p5O |
0164 a4e8 b730 | 0|
0166 2aab a531 |* 1|
0168 829e aaa7 | |
016a 3d4b e846 |=K F|
016c 766a a40f |vj |
016e 7edd 0214 |~ |
0170 59f2 3521 |Y 5!|
0172 8b00 5f82 | _ |
0174 1876 2925 | v)%|
0176 c0f5 6292 | b |
0178 ec9d e8a1 | |
017a c658 1757 | X W|
017c 049a 8a7e | ~|
017e 7805 c9a7 |x |
0180 7e89 629a |~ b |
0182 5710 9e95 |W |
0184 eb96 3143 | 1C|
0186 1b71 0fea | q |
0188 9c62 51e7 | bQ |
018a 971b a6a5 | |
018c 6aab 1872 |j r|
018e 79ea a01a |y |
0190 7b7d 9a9d |{} |
0192 2a73 6225 |*sb%|
0194 7f7c 58a8 | |X |
0196 e174 8ad7 | t |
0198 9ea4 e909 | |
019a 3689 f62d |6 -|
019c 98e8 b670 | p|
019e 1912 0ff1 | |
01a0 41b9 6aaa |A j |
01a2 e3ab 301f | 0 |
01a4 a3d6 75d2 | u |
01a6 03ad a481 | |
01a8 3052 1eaa |0R |
01aa 7969 beca |yi |
01ac 9c72 06de | r |
01ae 016b 4007 | k@ |
01b0 e604 d6aa | |
01b2 776a a696 |wj |
01b4 9a7d de74 | } t|
01b6 d813 e407 | |
01b8 6664 c1d2 |fd |
01ba ab51 aa22 | Q "|
01bc 9eab 981c | |
01be 5b96 dea6 |[ |
01c0 73b8 5f7c |s _||
01c2 a950 668a | Pf |
01c4 b29e eb07 | |
01c6 9142 bbba | B |
01c8 777c 9a7d |w| }|
01ca 6bc5 268a |k & |
01cc fd99 fb02 | |
01ce a8fa 3056 | 0V|
01d0 7dde 687d |} h}|
01d2 4261 77aa |Baw |
01d4 2122 8638 |!" 8|
01d6 2859 a9fa |(Y |
01d8 0159 2a58 | Y*X|
01da f39d c9a9 | |
01dc 0362 acd8 | b |
01de 594d 646c |YMdl|
01e0 4034 3a12 |@4: |
01e2 3783 5256 |7 RV|
01e4 af28 a9b5 | ( |
01e6 02d3 404c | @L|
01e8 1912 7bc2 | { |
01ea b44a 877d | J }|
01ec 980f 8331 | 1|
01ee 06ad c50f | |
01f0 e8c5 3e1a | > |
01f2 aad4 931a | |
01f4 6a93 fa82 |j |
01f6 72a6 60a4 |r ` |
01f8 1c61 cf91 | a |
01fa 1b1e aa07 | |
01fc 3274 240e |2t$ |
01fe 7caa c4b9 || |