|
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_03b8fe
└─⟦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 0118 | | .CONST 0x0118 ; 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 0044 | D | .CONST 0x0044 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0006 | | .CONST 0x0006 ; Number of locals
001b INIT_0018:
001b e001 | | Load 0x0,0x1
001c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
001d 4800 |H | Short_Literal 0x0
001e e402 | | Load 0x2,0x2
001f 0092 00f1 | | Action Push_String_Extended,0xf1 ; "["
0021 e002 | | Load 0x0,0x2
0022 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0023 00e3 | | Load_Encached Natural_Cache
0024 03f1 | | Declare_Variable Discrete,With_Value
0025 4800 |H | Short_Literal 0x0
0026 e402 | | Load 0x2,0x2
0027 0092 00f2 | | Action Push_String_Extended,0xf2 ; "]"
0029 e002 | | Load 0x0,0x2
002a 181d | | Execute Package,Field_Execute,Field_Number 0x1d
002b 00e3 | | Load_Encached Natural_Cache
002c 03f1 | | Declare_Variable Discrete,With_Value
002d 4800 |H | Short_Literal 0x0
002e 4800 |H | Short_Literal 0x0
002f e403 | | Load 0x2,0x3
0030 e404 | | Load 0x2,0x4
0031 e402 | | Load 0x2,0x2
0032 01cf | | Execute Vector,Slice_Read
0033 0092 00f3 | | Action Push_String_Extended,0xf3 ; ","
0035 e002 | | Load 0x0,0x2
0036 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0037 0a01 | | Execute_Immediate Plus,0x1
0038 0248 | H | Execute Discrete,Check_In_Integer
0039 e404 | | Load 0x2,0x4
003a e402 | | Load 0x2,0x2
003b 01cf | | Execute Vector,Slice_Read
003c 0092 00f3 | | Action Push_String_Extended,0xf3 ; ","
003e e002 | | Load 0x0,0x2
003f 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0040 00e3 | | Load_Encached Natural_Cache
0041 03f1 | | Declare_Variable Discrete,With_Value
0042 029f 0083 | | Declare_Subprogram INIT_0080,For_Call
0044 BODY_0018:
0044 0092 00f4 | | Action Push_String_Extended,0xf4 ; "State: "
0046 4801 |H | Short_Literal 0x1
0047 e403 | | Load 0x2,0x3
0048 0aff | | Execute_Immediate Plus,-0x1
0049 e402 | | Load 0x2,0x2
004a 01cf | | Execute Vector,Slice_Read
004b 01cc | | Execute Vector,Catenate
004c e003 | | Load 0x0,0x3
004d 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
004e 0092 00f5 | | Action Push_String_Extended,0xf5 ; "Params: "
0050 e403 | | Load 0x2,0x3
0051 0a01 | | Execute_Immediate Plus,0x1
0052 0248 | H | Execute Discrete,Check_In_Integer
0053 e405 | | Load 0x2,0x5
0054 e402 | | Load 0x2,0x2
0055 01cf | | Execute Vector,Slice_Read
0056 01cc | | Execute Vector,Catenate
0057 e003 | | Load 0x0,0x3
0058 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0059 0092 00f6 | | Action Push_String_Extended,0xf6 ; " "
005b e405 | | Load 0x2,0x5
005c 0a02 | | Execute_Immediate Plus,0x2
005d 0248 | H | Execute Discrete,Check_In_Integer
005e e404 | | Load 0x2,0x4
005f 0aff | | Execute_Immediate Plus,-0x1
0060 e402 | | Load 0x2,0x2
0061 01cf | | Execute Vector,Slice_Read
0062 01cc | | Execute Vector,Catenate
0063 e003 | | Load 0x0,0x3
0064 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0065 e404 | | Load 0x2,0x4
0066 0a01 | | Execute_Immediate Plus,0x1
0067 e402 | | Load 0x2,0x2
0068 01dc | | Execute Vector,Last
0069 027a | z | Execute Discrete,Less_Equal
006a 680c |h | Jump_Zero 0x77
006b 4840 |H@ | Short_Literal 0x40
006c e404 | | Load 0x2,0x4
006d 0a02 | | Execute_Immediate Plus,0x2
006e 0248 | H | Execute Discrete,Check_In_Integer
006f e402 | | Load 0x2,0x2
0070 01dc | | Execute Vector,Last
0071 e402 | | Load 0x2,0x2
0072 01cf | | Execute Vector,Slice_Read
0073 0092 00f7 | | Action Push_String_Extended,0xf7 ; "Clients: "
0075 8406 | | Call 0x2,0x6
0076 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0077 0092 00f8 | | Action Push_String_Extended,0xf8 ; "Clients: none"
0079 e003 | | Load 0x0,0x3
007a 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
007b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
007c 0000 0000 | | .BLANK 0000[0x4]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0090 | | .CONST 0x0090 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0004 | | .CONST 0x0004 ; Number of locals
0083 INIT_0080:
0083 4801 |H | Short_Literal 0x1
0084 e7ff | | Load 0x3,-0x1
0085 01db | | Execute Vector,Length
0086 00e9 | | Load_Encached String_Cache
0087 0334 | 4 | Declare_Variable Array,With_Constraint
0088 e7ff | | Load 0x3,-0x1
0089 e602 | | Load 0x3,0x2
008a 01d4 | | Execute Vector,Structure_Write
008b e7fe | | Load 0x3,-0x2
008c 01dd | | Execute Vector,First
008d 00e4 | | Load_Encached Positive_Cache
008e 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
008f 00e4 | | Load_Encached Positive_Cache
0090 BODY_0080:
0090 00cf | | Action Mark_Auxiliary
0091 7848 |xH | Jump 0xda
0092 e603 | | Load 0x3,0x3
0093 e7fd | | Load 0x3,-0x3
0094 0273 | s | Execute Discrete,Plus
0095 c604 | | Store 0x3,0x4
0096 00cf | | Action Mark_Auxiliary
0097 7818 |x | Jump 0xb0
0098 e604 | | Load 0x3,0x4
0099 e7fe | | Load 0x3,-0x2
009a 01d7 | | Execute Vector,Field_Read
009b 0f20 | | Execute_Immediate Equal,0x20
009c 7017 |p | Jump_Nonzero 0xb4
009d e604 | | Load 0x3,0x4
009e e7fe | | Load 0x3,-0x2
009f 01d7 | | Execute Vector,Field_Read
00a0 0f2c | , | Execute_Immediate Equal,0x2c
00a1 7012 |p | Jump_Nonzero 0xb4
00a2 e604 | | Load 0x3,0x4
00a3 e7fe | | Load 0x3,-0x2
00a4 01d7 | | Execute Vector,Field_Read
00a5 0f2e | . | Execute_Immediate Equal,0x2e
00a6 700d |p | Jump_Nonzero 0xb4
00a7 e604 | | Load 0x3,0x4
00a8 e7fe | | Load 0x3,-0x2
00a9 01d7 | | Execute Vector,Field_Read
00aa 0f0a | | Execute_Immediate Equal,0xa
00ab 7008 |p | Jump_Nonzero 0xb4
00ac e604 | | Load 0x3,0x4
00ad 0aff | | Execute_Immediate Plus,-0x1
00ae c604 | | Store 0x3,0x4
00af 00c9 | | Action Pop_Auxiliary_Loop
00b0 e604 | | Load 0x3,0x4
00b1 e603 | | Load 0x3,0x3
00b2 027d | } | Execute Discrete,Greater
00b3 77e4 |w | Jump_Nonzero 0x98
00b4 00ce | | Action Pop_Auxiliary
00b5 e604 | | Load 0x3,0x4
00b6 e603 | | Load 0x3,0x3
00b7 027a | z | Execute Discrete,Less_Equal
00b8 6805 |h | Jump_Zero 0xbe
00b9 e603 | | Load 0x3,0x3
00ba e7fd | | Load 0x3,-0x3
00bb 0273 | s | Execute Discrete,Plus
00bc 0aff | | Execute_Immediate Plus,-0x1
00bd c604 | | Store 0x3,0x4
00be e602 | | Load 0x3,0x2
00bf e603 | | Load 0x3,0x3
00c0 e604 | | Load 0x3,0x4
00c1 e7fe | | Load 0x3,-0x2
00c2 01cf | | Execute Vector,Slice_Read
00c3 01cc | | Execute Vector,Catenate
00c4 e003 | | Load 0x0,0x3
00c5 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00c6 e602 | | Load 0x3,0x2
00c7 00d8 | | Load_Top At_Offset_0
00c8 0335 | 5 | Declare_Variable Array,Duplicate
00c9 00cd | | Action Spare6_Action
00ca e606 | | Load 0x3,0x6
00cb 01d9 | | Execute Vector,Reverse_Bounds
00cc 0263 | c | Execute Discrete,Above_Bound
00cd 7005 |p | Jump_Nonzero 0xd3
00ce 4820 |H | Short_Literal 0x20
00cf e609 | | Load 0x3,0x9
00d0 e607 | | Load 0x3,0x7
00d1 01d6 | | Execute Vector,Field_Write
00d2 3ffb |? | Loop_Increasing 0xce
00d3 00cd | | Action Spare6_Action
00d4 e602 | | Load 0x3,0x2
00d5 01d4 | | Execute Vector,Structure_Write
00d6 e604 | | Load 0x3,0x4
00d7 0a01 | | Execute_Immediate Plus,0x1
00d8 c603 | | Store 0x3,0x3
00d9 00c9 | | Action Pop_Auxiliary_Loop
00da e7fe | | Load 0x3,-0x2
00db 01dc | | Execute Vector,Last
00dc e603 | | Load 0x3,0x3
00dd 0272 | r | Execute Discrete,Minus
00de e7fd | | Load 0x3,-0x3
00df 027d | } | Execute Discrete,Greater
00e0 77b1 |w | Jump_Nonzero 0x92
00e1 00ce | | Action Pop_Auxiliary
00e2 e603 | | Load 0x3,0x3
00e3 e7fe | | Load 0x3,-0x2
00e4 01dc | | Execute Vector,Last
00e5 027a | z | Execute Discrete,Less_Equal
00e6 6809 |h | Jump_Zero 0xf0
00e7 e602 | | Load 0x3,0x2
00e8 e603 | | Load 0x3,0x3
00e9 e7fe | | Load 0x3,-0x2
00ea 01dc | | Execute Vector,Last
00eb e7fe | | Load 0x3,-0x2
00ec 01cf | | Execute Vector,Slice_Read
00ed 01cc | | Execute Vector,Catenate
00ee e003 | | Load 0x0,0x3
00ef 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00f0 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00f1 ; --------------------------------------------------------------------------------------
00f1 ; STRING TABLE
00f1 ; --------------------------------------------------------------------------------------
00f1 0012 | | .STRTAB 0x0012->0x00fa ; "["
00f2 0011 | | .STRTAB 0x0011->0x00fa ; "]"
00f3 0010 | | .STRTAB 0x0010->0x00fb ; ","
00f4 000f | | .STRTAB 0x000f->0x00fb ; "State: "
00f5 0016 | | .STRTAB 0x0016->0x0100 ; "Params: "
00f6 001d | | .STRTAB 0x001d->0x0104 ; " "
00f7 0024 | $ | .STRTAB 0x0024->0x0109 ; "Clients: "
00f8 002b | + | .STRTAB 0x002b->0x010d ; "Clients: none"
00f9 0036 | 6 | .STREND 0x0036->0x0114
00fa 5b5d 2c53 |[],S| .STRTAB_STRINGS
0114 0000 0000 | | .BLANK 0000[0x4]
0118 ; --------------------------------------------------------------------------------------
0118 ; Debug Table
0118 ; --------------------------------------------------------------------------------------
0118 0004 000b | | .DEBUG4 0x0004,0x000b,0xbb64,0x0000,0x0001,0x0000
011e 000b 4855 | HU| .XXX[0xe2]
0120 1bdb db1c | |
0122 cb93 995d | ]|
0124 1ddb dc9a | |
0126 da5b 99cb | [ |
0128 919a 5b19 | [ |
012a 57d5 1c98 |W |
012c 5b9c d999 |[ |
012e 5c8b 94d9 |\ |
0130 5d17 d4dd |] |
0132 1c9d 58dd | X |
0134 1d5c 9940 | \ @|
0136 0000 0240 | @|
0138 0000 04c8 | |
013a 5b1c 9b4b |[ K|
013c 9cde 5cdd | \ |
013e 195b 4b9b | [K |
0140 585e 17da |X^ |
0142 5b9d 0000 |[ |
0144 0000 8000 | |
0146 0004 8000 | |
0148 0009 90a6 | |
014a 3936 9729 |96 )|
014c bcb9 ba32 | 2|
014e b697 26b0 | & |
0150 bc2f a4b7 | / |
0152 3a00 0000 |: |
0154 0480 0000 | |
0156 0d90 b4b7 | |
0158 973a 32bc | :2 |
015a 3a2f b4b7 |:/ |
015c 9739 b2ba | 9 |
015e 2fb8 30b3 |/ 0 |
0160 b2af b632 | 2|
0162 b733 ba34 | 3 4|
0164 0000 0001 | |
0166 0000 0009 | |
0168 0000 001b | |
016a 2149 6f2e |!Io.|
016c 5465 7874 |Text|
016e 5f49 6f2e |_Io.|
0170 5365 745f |Set_|
0172 5061 6765 |Page|
0174 5f4c 656e |_Len|
0176 6774 6800 |gth |
0178 0000 0900 | |
017a 0000 2021 | !|
017c 696f 2e74 |io.t|
017e 6578 745f |ext_|
0180 696f 2e66 |io.f|
0182 6978 6564 |ixed|
0184 5f69 6f2e |_io.|
0186 6465 6661 |defa|
0188 756c 745f |ult_|
018a 6578 7000 |exp |
018c 0000 0200 | |
018e 0000 1200 | |
0190 0000 4042 | @B|
0192 92de 5ca8 | \ |
0194 caf0 e8be | |
0196 92de 5c8c | \ |
0198 d2f0 cac8 | |
019a be92 de5c | \|
019c 88ca ccc2 | |
019e ead8 e8be | |
01a0 8af0 e000 | |
01a2 0000 1200 | |
01a4 0000 3442 | 4B|
01a6 d2de 5ce8 | \ |
01a8 caf0 e8be | |
01aa d2de 5cc6 | \ |
01ac eae4 e4ca | |
01ae dce8 bede | |
01b0 eae8 e0ea | |
01b2 e800 0000 | |
01b4 0400 0000 | |
01b6 2400 0000 |$ |
01b8 6885 25bc |h % |
01ba b951 95e1 | Q |
01bc d17d 25bc | }% |
01be b90d d5c9 | |
01c0 c995 b9d1 | |
01c2 7d3d d5d1 |}= |
01c4 c1d5 d000 | |
01c6 0000 2400 | $ |
01c8 0000 4885 | H |
01ca a5bc b9d1 | |
01cc 95e1 d17d | }|
01ce a5bc b98d | |
01d0 c995 85d1 | |
01d2 9400 0000 | |
01d4 0800 0000 | |
01d6 4800 0000 |H |
01d8 910a 4b79 | Ky|
01da 72a3 2bc3 |r + |
01dc a2fa 4b79 | Ky|
01de 721b 932b |r +|
01e0 0ba3 2800 | ( |
01e2 0000 4800 | H |
01e4 0000 b90b | |
01e6 4b79 73a3 |Kys |
01e8 2bc3 a2fb |+ |
01ea 4b79 732b |Kys+|
01ec 7322 fb7b |s" {|
01ee 32fb 830b |2 |
01f0 3b28 0000 |;( |
01f2 0010 0000 | |
01f4 0090 0000 | |
01f6 0172 1496 | r |
01f8 f2e5 4657 | FW|
01fa 8745 f496 | E |
01fc f2e4 56e6 | V |
01fe 45f4 f665 |E e|