|
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 00f8 | | .CONST 0x00f8 ; 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 0040 | @ | .CONST 0x0040 ; Address of exception handler
001a 0002 | | .CONST 0x0002 ; Number of locals
001b INIT_0018:
001b 0092 0075 | u| Action Push_String_Extended,0x75 ; "Create_New_Diagram"
001d BODY_0018:
001d e5f6 | | Load 0x2,-0xa
001e e001 | | Load 0x0,0x1
001f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0020 e5f6 | | Load 0x2,-0xa
0021 e5f7 | | Load 0x2,-0x9
0022 e5f8 | | Load 0x2,-0x8
0023 e5f9 | | Load 0x2,-0x7
0024 e5fa | | Load 0x2,-0x6
0025 e5fb | | Load 0x2,-0x5
0026 e5fc | | Load 0x2,-0x4
0027 e5fd | | Load 0x2,-0x3
0028 e5fe | | Load 0x2,-0x2
0029 e5ff | | Load 0x2,-0x1
002a e402 | | Load 0x2,0x2
002b e002 | | Load 0x0,0x2
002c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
002d e003 | | Load 0x0,0x3
002e 180f | | Execute Package,Field_Execute,Field_Number 0xf
002f e5f7 | | Load 0x2,-0x9
0030 e5f8 | | Load 0x2,-0x8
0031 e5f9 | | Load 0x2,-0x7
0032 e5fa | | Load 0x2,-0x6
0033 e5fb | | Load 0x2,-0x5
0034 e5fc | | Load 0x2,-0x4
0035 e5fd | | Load 0x2,-0x3
0036 e5fe | | Load 0x2,-0x2
0037 e5ff | | Load 0x2,-0x1
0038 e004 | | Load 0x0,0x4
0039 1816 | | Execute Package,Field_Execute,Field_Number 0x16
003a 00d8 | | Load_Top At_Offset_0
003b e002 | | Load 0x0,0x2
003c 1812 | | Execute Package,Field_Execute,Field_Number 0x12
003d e001 | | Load 0x0,0x1
003e 180f | | Execute Package,Field_Execute,Field_Number 0xf
003f 450b |E | Exit_Suprogram New_Top_Offset 0xb
0040 TRAP_0018:
0040 e003 | | Load 0x0,0x3
0041 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0042 010f | | Execute Exception,Equal
0043 680f |h | Jump_Zero 0x53
0044 0092 0076 | v| Action Push_String_Extended,0x76 ; "Create_Defining_Diagram terminating because Insight is not authorized for this machine"
0046 e005 | | Load 0x0,0x5
0047 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0048 e001 | | Load 0x0,0x1
0049 1811 | | Execute Package,Field_Execute,Field_Number 0x11
004a 6805 |h | Jump_Zero 0x50
004b e001 | | Load 0x0,0x1
004c 180f | | Execute Package,Field_Execute,Field_Number 0xf
004d e006 | | Load 0x0,0x6
004e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
004f 0257 | W | Execute Discrete,Raise
0050 e001 | | Load 0x0,0x1
0051 180f | | Execute Package,Field_Execute,Field_Number 0xf
0052 450b |E | Exit_Suprogram New_Top_Offset 0xb
0053 e003 | | Load 0x0,0x3
0054 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0055 010f | | Execute Exception,Equal
0056 680f |h | Jump_Zero 0x66
0057 0092 0077 | w| Action Push_String_Extended,0x77 ; "Create_Defining_Diagram terminating because the Insight token limit has been exceeded"
0059 e005 | | Load 0x0,0x5
005a 1815 | | Execute Package,Field_Execute,Field_Number 0x15
005b e001 | | Load 0x0,0x1
005c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
005d 6805 |h | Jump_Zero 0x63
005e e001 | | Load 0x0,0x1
005f 180f | | Execute Package,Field_Execute,Field_Number 0xf
0060 e006 | | Load 0x0,0x6
0061 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0062 0257 | W | Execute Discrete,Raise
0063 e001 | | Load 0x0,0x1
0064 180f | | Execute Package,Field_Execute,Field_Number 0xf
0065 450b |E | Exit_Suprogram New_Top_Offset 0xb
0066 e001 | | Load 0x0,0x1
0067 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0068 6805 |h | Jump_Zero 0x6e
0069 e001 | | Load 0x0,0x1
006a 180f | | Execute Package,Field_Execute,Field_Number 0xf
006b e006 | | Load 0x0,0x6
006c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
006d 0257 | W | Execute Discrete,Raise
006e 0092 0078 | x| Action Push_String_Extended,0x78 ; "Background_Exception raised see above for details"
0070 e005 | | Load 0x0,0x5
0071 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0072 e001 | | Load 0x0,0x1
0073 180f | | Execute Package,Field_Execute,Field_Number 0xf
0074 450b |E | Exit_Suprogram New_Top_Offset 0xb
0075 ; --------------------------------------------------------------------------------------
0075 ; STRING TABLE
0075 ; --------------------------------------------------------------------------------------
0075 000a | | .STRTAB 0x000a->0x007a ; "Create_New_Diagram"
0076 001a | | .STRTAB 0x001a->0x0083 ; "Create_Defining_Diagram terminating because Insight is not authorized for this machine"
0077 006e | n | .STRTAB 0x006e->0x00ae ; "Create_Defining_Diagram terminating because the Insight token limit has been exceeded"
0078 00c1 | | .STRTAB 0x00c1->0x00d8 ; "Background_Exception raised see above for details"
0079 00f0 | | .STREND 0x00f0->0x00f1
007a 4372 6561 |Crea| .STRTAB_STRINGS
00f1 0000 0000 | | .BLANK 0000[0x7]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; Debug Table
00f8 ; --------------------------------------------------------------------------------------
00f8 0004 0014 | | .DEBUG4 0x0004,0x0014,0x10d7,0x0000,0x0001,0x0000
00fe 51df a54f |Q O| .XXX[0x102]
0100 b612 6026 | `&|
0102 06de e8c9 | |
0104 8962 e958 | b X|
0106 6232 ec29 |b2 )|
0108 7844 21e7 |xD! |
010a 8f11 2e7e | .~|
010c 6aef 6945 |j iE|
010e 8564 ed5e | d ^|
0110 b374 4dbe | tM |
0112 f544 ec60 | D `|
0114 49b1 17ce |I |
0116 7a64 c8ef |zd |
0118 0e12 9267 | g|
011a 0288 d631 | 1|
011c f1e2 d490 | |
011e 8448 06b2 | H |
0120 2503 d4cb |% |
0122 1e44 5f50 | D_P|
0124 9968 47d2 | hG |
0126 5dbe 1ba8 |] |
0128 17c2 89b9 | |
012a a02b 1978 | + x|
012c 80d6 7e10 | ~ |
012e d35a df1f | Z |
0130 24ef e448 |$ H|
0132 27f1 e2fc |' |
0134 8f4a d642 | J B|
0136 6cd9 9b11 |l |
0138 8395 97c4 | |
013a a91d d1d7 | |
013c 7484 7ebe |t ~ |
013e 5fdc ee89 |_ |
0140 19a2 02a8 | |
0142 9598 b053 | S|
0144 7811 be65 |x e|
0146 dce8 4294 | B |
0148 6130 721a |a0r |
014a 4ae0 5778 |J Wx|
014c de0a 665e | f^|
014e f90d ba07 | |
0150 f090 9fb6 | |
0152 ddb7 0009 | |
0154 048e 84f9 | |
0156 aeb3 6f9e | o |
0158 a929 7205 | )r |
015a 1af2 0855 | U|
015c b2dd 7a8f | z |
015e cfe6 1ed0 | |
0160 040c 0bfc | |
0162 00ec bec3 | |
0164 bafa 2e43 | .C|
0166 0757 d1db | W |
0168 1ef3 1d76 | v|
016a 5b15 c35c |[ \|
016c 35c3 9637 |5 7|
016e d208 ddac | |
0170 433d 7618 |C=v |
0172 7434 d867 |t4 g|
0174 2dcc e66a |- j|
0176 d475 41f8 | uA |
0178 476b 5223 |GkR#|
017a 8021 5fd0 | !_ |
017c f7f3 7a70 | zp|
017e fee2 efe4 | |
0180 f3e5 434b | CK|
0182 0eea 17aa | |
0184 b79d 1508 | |
0186 b811 b204 | |
0188 27b4 7487 |' t |
018a 4201 8a83 |B |
018c 88a9 ac00 | |
018e 0287 7559 | uY|
0190 81bd 2fa2 | / |
0192 8e57 e78c | W |
0194 96b3 21cd | ! |
0196 6ef6 c511 |n |
0198 5ebc 89d8 |^ |
019a 1a24 4d80 | $M |
019c 95a2 d9eb | |
019e 4bcb 36d2 |K 6 |
01a0 af5b 4c1f | [L |
01a2 b330 1002 | 0 |
01a4 1002 2b7a | +z|
01a6 c894 c33c | <|
01a8 3ea0 7f6f |> o|
01aa c028 550a | (U |
01ac f062 0844 | b D|
01ae bf14 0991 | |
01b0 47a4 37c2 |G 7 |
01b2 29e3 ecac |) |
01b4 502f af2a |P/ *|
01b6 299e 7c43 |) |C|
01b8 8fb6 e798 | |
01ba 95aa f03b | ;|
01bc 0824 09cc | $ |
01be 5f26 af8c |_& |
01c0 746b c1e1 |tk |
01c2 cd75 883d | u =|
01c4 22bc 2786 |" ' |
01c6 e083 9357 | W|
01c8 b7c7 aa32 | 2|
01ca f1a6 5472 | Tr|
01cc bf91 0327 | '|
01ce 6f1d b78c |o |
01d0 d1e6 ac6a | j|
01d2 a640 e53a | @ :|
01d4 535d 38c3 |S]8 |
01d6 9417 e389 | |
01d8 52ee f565 |R e|
01da 7b63 2dd8 |{c- |
01dc 0149 4fa7 | IO |
01de 375e a778 |7^ x|
01e0 42c2 eaf5 |B |
01e2 340b 6054 |4 `T|
01e4 ebc7 f2b3 | |
01e6 1c84 0a02 | |
01e8 0488 f185 | |
01ea 8017 dc41 | A|
01ec 6082 e047 |` G|
01ee 91cf dca1 | |
01f0 f978 c5b9 | x |
01f2 adde 3d6f | =o|
01f4 1957 8bc4 | W |
01f6 6bc6 47a1 |k G |
01f8 6143 b8ea |aC |
01fa 5b04 6430 |[ d0|
01fc 33d0 9919 |3 |
01fe f989 2905 | ) |