|
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_03c8f4
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 00b8 | | .CONST 0x00b8 ; 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 0015 | | .CONST 0x0015 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0006 | | .CONST 0x0006 ; Number of locals
000b INIT_0008:
000b 029f 003b | ;| Declare_Subprogram INIT_0038,For_Call
000d 029f 004b | K| Declare_Subprogram INIT_0048,For_Call
000f 029f 005b | [| Declare_Subprogram INIT_0058,For_Call
0011 029f 0073 | s| Declare_Subprogram INIT_0070,For_Call
0013 029f 0093 | | Declare_Subprogram INIT_0090,For_Call
0015 BODY_0008:
0015 0092 00a6 | | Action Push_String_Extended,0xa6 ; "Behavior deletion : "
0017 e5ff | | Load 0x2,-0x1
0018 00e0 | | Load_Encached Standard_Cache
0019 1818 | | Execute Package,Field_Execute,Field_Number 0x18
001a 01cc | | Execute Vector,Catenate
001b e031 | 1 | Load 0x0,0x31
001c 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
001d e5ff | | Load 0x2,-0x1
001e 8034 | 4 | Call 0x0,0x34
001f e5ff | | Load 0x2,-0x1
0020 8059 | Y | Call 0x0,0x59
0021 8402 | | Call 0x2,0x2
0022 e5ff | | Load 0x2,-0x1
0023 804e | N | Call 0x0,0x4e
0024 e5ff | | Load 0x2,-0x1
0025 805d | ] | Call 0x0,0x5d
0026 8403 | | Call 0x2,0x3
0027 e5ff | | Load 0x2,-0x1
0028 8061 | a | Call 0x0,0x61
0029 8404 | | Call 0x2,0x4
002a e5ff | | Load 0x2,-0x1
002b 8064 | d | Call 0x0,0x64
002c 8405 | | Call 0x2,0x5
002d e5ff | | Load 0x2,-0x1
002e 8068 | h | Call 0x0,0x68
002f 8406 | | Call 0x2,0x6
0030 e5ff | | Load 0x2,-0x1
0031 8036 | 6 | Call 0x0,0x36
0032 6802 |h | Jump_Zero 0x35
0033 e5ff | | Load 0x2,-0x1
0034 809b | | Call 0x0,0x9b
0035 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0036 0000 0000 | | .XXX[0x2]
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 003b | ; | .CONST 0x003b ; Address of begin
0039 0004 | | .CONST 0x0004 ; Address of exception handler
003a 0001 | | .CONST 0x0001 ; Number of locals
003b BODY_0038:
003b INIT_0038:
003b 00da | | Load_Top At_Offset_2
003c 805b | [ | Call 0x0,0x5b
003d 7008 |p | Jump_Nonzero 0x46
003e 00db | | Load_Top At_Offset_3
003f 00db | | Load_Top At_Offset_3
0040 805a | Z | Call 0x0,0x5a
0041 8402 | | Call 0x2,0x2
0042 00db | | Load_Top At_Offset_3
0043 00db | | Load_Top At_Offset_3
0044 8072 | r | Call 0x0,0x72
0045 809c | | Call 0x0,0x9c
0046 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0047 0000 | | .XXX[0x1]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 004b | K | .CONST 0x004b ; Address of begin
0049 0004 | | .CONST 0x0004 ; Address of exception handler
004a 0001 | | .CONST 0x0001 ; Number of locals
004b BODY_0048:
004b INIT_0048:
004b 00da | | Load_Top At_Offset_2
004c 805f | _ | Call 0x0,0x5f
004d 7007 |p | Jump_Nonzero 0x55
004e 00db | | Load_Top At_Offset_3
004f 00db | | Load_Top At_Offset_3
0050 805e | ^ | Call 0x0,0x5e
0051 8403 | | Call 0x2,0x3
0052 00da | | Load_Top At_Offset_2
0053 8074 | t | Call 0x0,0x74
0054 804e | N | Call 0x0,0x4e
0055 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0056 0000 0000 | | .XXX[0x2]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b | [ | .CONST 0x005b ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0001 | | .CONST 0x0001 ; Number of locals
005b BODY_0058:
005b INIT_0058:
005b 00da | | Load_Top At_Offset_2
005c 8063 | c | Call 0x0,0x63
005d 700d |p | Jump_Nonzero 0x6b
005e 00db | | Load_Top At_Offset_3
005f 00db | | Load_Top At_Offset_3
0060 8062 | b | Call 0x0,0x62
0061 8404 | | Call 0x2,0x4
0062 00da | | Load_Top At_Offset_2
0063 8076 | v | Call 0x0,0x76
0064 e7fe | | Load 0x3,-0x2
0065 027f | | Execute Discrete,Equal
0066 6804 |h | Jump_Zero 0x6b
0067 00db | | Load_Top At_Offset_3
0068 00db | | Load_Top At_Offset_3
0069 8077 | w | Call 0x0,0x77
006a 809d | | Call 0x0,0x9d
006b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
006c 0000 0000 | | .BLANK 0000[0x4]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0073 | s | .CONST 0x0073 ; Address of begin
0071 0004 | | .CONST 0x0004 ; Address of exception handler
0072 0001 | | .CONST 0x0001 ; Number of locals
0073 BODY_0070:
0073 INIT_0070:
0073 00da | | Load_Top At_Offset_2
0074 8066 | f | Call 0x0,0x66
0075 7013 |p | Jump_Nonzero 0x89
0076 00db | | Load_Top At_Offset_3
0077 00db | | Load_Top At_Offset_3
0078 8065 | e | Call 0x0,0x65
0079 8405 | | Call 0x2,0x5
007a 00da | | Load_Top At_Offset_2
007b 8078 | x | Call 0x0,0x78
007c e7fe | | Load 0x3,-0x2
007d 027f | | Execute Discrete,Equal
007e 680a |h | Jump_Zero 0x89
007f 00db | | Load_Top At_Offset_3
0080 00db | | Load_Top At_Offset_3
0081 807c | | | Call 0x0,0x7c
0082 e7ff | | Load 0x3,-0x1
0083 807a | z | Call 0x0,0x7a
0084 e7ff | | Load 0x3,-0x1
0085 807b | { | Call 0x0,0x7b
0086 e7ff | | Load 0x3,-0x1
0087 8079 | y | Call 0x0,0x79
0088 808a | | Call 0x0,0x8a
0089 4503 |E | Exit_Suprogram New_Top_Offset 0x3
008a 0000 0000 | | .BLANK 0000[0x6]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093 | | .CONST 0x0093 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0001 | | .CONST 0x0001 ; Number of locals
0093 BODY_0090:
0093 INIT_0090:
0093 00da | | Load_Top At_Offset_2
0094 806a | j | Call 0x0,0x6a
0095 700f |p | Jump_Nonzero 0xa5
0096 00db | | Load_Top At_Offset_3
0097 00db | | Load_Top At_Offset_3
0098 8069 | i | Call 0x0,0x69
0099 8406 | | Call 0x2,0x6
009a 00da | | Load_Top At_Offset_2
009b 807d | } | Call 0x0,0x7d
009c e7fe | | Load 0x3,-0x2
009d 027f | | Execute Discrete,Equal
009e 6806 |h | Jump_Zero 0xa5
009f 00db | | Load_Top At_Offset_3
00a0 00db | | Load_Top At_Offset_3
00a1 807f | | Call 0x0,0x7f
00a2 e7ff | | Load 0x3,-0x1
00a3 807e | ~ | Call 0x0,0x7e
00a4 804a | J | Call 0x0,0x4a
00a5 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00a6 ; --------------------------------------------------------------------------------------
00a6 ; STRING TABLE
00a6 ; --------------------------------------------------------------------------------------
00a6 0004 | | .STRTAB 0x0004->0x00a8 ; "Behavior deletion : "
00a7 0016 | | .STREND 0x0016->0x00b2
00a8 4265 6861 |Beha| .STRTAB_STRINGS
00b2 0000 0000 | | .BLANK 0000[0x6]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; Debug Table
00b8 ; --------------------------------------------------------------------------------------
00b8 0004 0002 | | .DEBUG4 0x0004,0x0002,0xd1bb,0x0000,0x0001,0x0000
00be c10b 0711 | | .XXX[0x142]
00c0 4d4d 0000 |MM |
00c2 00cb 65c1 | e |
00c4 0b07 114f | O|
00c6 e600 0000 | |
00c8 cb65 c10b | e |
00ca 0711 526f | Ro|
00cc 0000 00cb | |
00ce 65c1 0b07 |e |
00d0 1155 2800 | U( |
00d2 0000 cb65 | e|
00d4 c10b 0711 | |
00d6 57c9 0000 |W |
00d8 00cb 65c1 | e |
00da 0b07 115a | Z|
00dc 5a00 0000 |Z |
00de cb65 c10b | e |
00e0 0711 5cf3 | \ |
00e2 0000 00cb | |
00e4 65c1 0b07 |e |
00e6 115f 9c00 | _ |
00e8 0000 cb65 | e|
00ea c10b 0711 | |
00ec 623d 0000 |b= |
00ee 00cb 65c1 | e |
00f0 0b07 1164 | d|
00f2 8600 0000 | |
00f4 cb65 c10b | e |
00f6 0711 661e | f |
00f8 136e 69cb | ni |
00fa 65c1 0b07 |e |
00fc 1167 2613 | g& |
00fe 6ec1 cb65 |n e|
0100 c10b 0711 | |
0102 681e 136f |h o|
0104 19cb 65c1 | e |
0106 0b07 116a | j|
0108 7f00 0000 | |
010a cb65 c10b | e |
010c 0711 6cf8 | l |
010e 0000 00cb | |
0110 65c1 0b07 |e |
0112 116d f013 | m |
0114 7021 cb65 |p! e|
0116 c10b 0711 | |
0118 6fd9 0000 |o |
011a 00cb 65c1 | e |
011c 0b07 1173 | s|
011e ca00 0000 | |
0120 cb65 c10b | e |
0122 0711 76ab | v |
0124 0000 00cb | |
0126 65c1 0b07 |e |
0128 1179 9c00 | y |
012a 0000 cb65 | e|
012c c10b 0711 | |
012e 7be5 0000 |{ |
0130 00cb 65c1 | e |
0132 0b07 117c | ||
0134 dd13 7231 | r1|
0136 cb65 c10b | e |
0138 0711 7dc5 | } |
013a 1372 89cb | r |
013c 65c1 0b07 |e |
013e 117e dd13 | ~ |
0140 72e1 cb65 |r e|
0142 c10b 0711 | |
0144 8055 1373 | U s|
0146 39cb 65c1 |9 e |
0148 0b07 1181 | |
014a 1513 7391 | s |
014c cb65 c10b | e |
014e 0711 83b6 | |
0150 0000 00cb | |
0152 65c1 0b07 |e |
0154 1187 1700 | |
0156 0000 cb65 | e|
0158 c10b 0711 | |
015a 89c8 0000 | |
015c 00cb 65c1 | e |
015e 0b07 118c | |
0160 7100 0000 |q |
0162 cb65 c10b | e |
0164 0711 8ee2 | |
0166 0000 00cb | |
0168 65c1 0b07 |e |
016a 1190 8a13 | |
016c 75a1 cb65 |u e|
016e c10b 0711 | |
0170 920a 1375 | u|
0172 f9cb 65c1 | e |
0174 0b07 1193 | |
0176 8a13 7651 | vQ|
0178 cb65 c10b | e |
017a 0711 94e2 | |
017c 1376 a9cb | v |
017e 65c1 0b07 |e |
0180 1195 e213 | |
0182 7701 cb65 |w e|
0184 c10b 0711 | |
0186 96e2 1377 | w|
0188 59cb 65c1 |Y e |
018a 0b07 1197 | |
018c e213 77b1 | w |
018e cb65 c10b | e |
0190 0711 992a | *|
0192 1378 09cb | x |
0194 65c1 0b07 |e |
0196 119a 6a13 | j |
0198 7861 cb65 |xa e|
019a c10b 0711 | |
019c 9baa 1378 | x|
019e b9cb 65c1 | e |
01a0 0b07 119c | |
01a2 8a13 7911 | y |
01a4 cb65 c10b | e |
01a6 0711 9d62 | b|
01a8 1379 69cb | yi |
01aa 65c1 0b07 |e |
01ac 119e 3a13 | : |
01ae 79c1 cb65 |y e|
01b0 c10b 0711 | |
01b2 9f12 137a | z|
01b4 19cb 65c1 | e |
01b6 0b07 11a0 | |
01b8 3213 7a71 |2 zq|
01ba cb65 c10b | e |
01bc 0711 a14a | J|
01be 137a c9cb | z |
01c0 65c1 0b07 |e |
01c2 11a2 6213 | b |
01c4 7b21 cb65 |{! e|
01c6 c10b 0711 | |
01c8 a493 0000 | |
01ca 00cb 65c1 | e |
01cc 0b07 11a7 | |
01ce cc00 0000 | |
01d0 cb65 c10b | e |
01d2 0711 aa35 | 5|
01d4 0000 00cb | |
01d6 65c1 0b07 |e |
01d8 11ac ce00 | |
01da 0000 cb65 | e|
01dc c10b 0711 | |
01de ae3e 137c | > ||
01e0 d9cb 65c1 | e |
01e2 0b07 11af | |
01e4 d613 7d31 | }1|
01e6 cb65 c10b | e |
01e8 0711 b196 | |
01ea 137d 89cb | } |
01ec 65c1 0b07 |e |
01ee 11b3 2e13 | . |
01f0 7de1 cb65 |} e|
01f2 c10b 0711 | |
01f4 b4e6 137e | ~|
01f6 39cb 65c1 |9 e |
01f8 0b07 11b6 | |
01fa 6e13 7e91 |n ~ |
01fc cb65 c10b | e |
01fe 0711 b7f6 | |