|
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_03bcfe
└─⟦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 00d0 | | .CONST 0x00d0 ; 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 0038 | 8 | .CONST 0x0038 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0017 | | .CONST 0x0017 ; Number of locals 000b INIT_0008: 000b 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated 000d 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated 000f 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated 0011 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated 0013 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated 0015 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated 0017 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 0019 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated 001b 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated 001d 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated 001f 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated 0021 00bf | | Action Accept_Activation 0022 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0023 00c7 | | Action Elaborate_Subprogram 0024 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0025 00c7 | | Action Elaborate_Subprogram 0026 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0027 00c7 | | Action Elaborate_Subprogram 0028 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0029 00c7 | | Action Elaborate_Subprogram 002a 1d11 | | Execute_Immediate Reference_Lex_1,0x11 002b 00c7 | | Action Elaborate_Subprogram 002c 1d12 | | Execute_Immediate Reference_Lex_1,0x12 002d 00c7 | | Action Elaborate_Subprogram 002e 1d13 | | Execute_Immediate Reference_Lex_1,0x13 002f 00c7 | | Action Elaborate_Subprogram 0030 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0031 00c7 | | Action Elaborate_Subprogram 0032 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0033 00c7 | | Action Elaborate_Subprogram 0034 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0035 00c7 | | Action Elaborate_Subprogram 0036 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0037 00c7 | | Action Elaborate_Subprogram 0038 BODY_0008: 0038 00bc | | Action Signal_Activated 0039 00bb | | Action Signal_Completion 003a 0000 0000 | | .BLANK 0000[0x6] 0040 ; -------------------------------------------------------------------------------------- 0040 ; SUBPROGRAM 0040 ; -------------------------------------------------------------------------------------- 0040 0044 | D | .CONST 0x0044 ; Address of begin 0041 0004 | | .CONST 0x0004 ; Address of exception handler 0042 0002 | | .CONST 0x0002 ; Number of locals 0043 INIT_0040: 0043 00e1 | | Load_Encached Boolean_Cache 0044 BODY_0040: 0044 e5fd | | Load 0x2,-0x3 0045 e5fe | | Load 0x2,-0x2 0046 e5ff | | Load 0x2,-0x1 0047 820e | | Call 0x1,0xe 0048 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0049 4504 |E | Exit_Suprogram New_Top_Offset 0x4 004a 0000 0000 | | .BLANK 0000[0x6] 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 0053 | S | .CONST 0x0053 ; Address of begin 0051 0004 | | .CONST 0x0004 ; Address of exception handler 0052 0001 | | .CONST 0x0001 ; Number of locals 0053 BODY_0050: 0053 INIT_0050: 0053 e5fd | | Load 0x2,-0x3 0054 e5fe | | Load 0x2,-0x2 0055 e5ff | | Load 0x2,-0x1 0056 8002 | | Call 0x0,0x2 0057 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 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 e5fb | | Load 0x2,-0x5 005c e5fc | | Load 0x2,-0x4 005d e5fd | | Load 0x2,-0x3 005e e5fe | | Load 0x2,-0x2 005f e5ff | | Load 0x2,-0x1 0060 8003 | | Call 0x0,0x3 0061 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0062 0000 0000 | | .BLANK 0000[0x6] 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 006b | k | .CONST 0x006b ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0001 | | .CONST 0x0001 ; Number of locals 006b BODY_0068: 006b INIT_0068: 006b e5fd | | Load 0x2,-0x3 006c e5fe | | Load 0x2,-0x2 006d e5ff | | Load 0x2,-0x1 006e 8004 | | Call 0x0,0x4 006f 4504 |E | Exit_Suprogram New_Top_Offset 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 e5fc | | Load 0x2,-0x4 0074 e5fd | | Load 0x2,-0x3 0075 e5fe | | Load 0x2,-0x2 0076 e5ff | | Load 0x2,-0x1 0077 00d8 | | Load_Top At_Offset_0 0078 e005 | | Load 0x0,0x5 0079 1b16 | | Execute Package,Field_Read,Field_Number 0x16 007a 0260 | ` | Execute Discrete,In_Type 007b 7001 |p | Jump_Nonzero 0x7d 007c 0801 | | Execute_Immediate Raise,0x1 007d 8006 | | Call 0x0,0x6 007e 4505 |E | Exit_Suprogram New_Top_Offset 0x5 007f 0000 | | .XXX[0x1] 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0083 | | .CONST 0x0083 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0001 | | .CONST 0x0001 ; Number of locals 0083 BODY_0080: 0083 INIT_0080: 0083 00da | | Load_Top At_Offset_2 0084 00d8 | | Load_Top At_Offset_0 0085 e005 | | Load 0x0,0x5 0086 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0087 0260 | ` | Execute Discrete,In_Type 0088 7001 |p | Jump_Nonzero 0x8a 0089 0801 | | Execute_Immediate Raise,0x1 008a 8007 | | Call 0x0,0x7 008b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 008c 0000 0000 | | .BLANK 0000[0x4] 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 e5fb | | Load 0x2,-0x5 0094 e5fc | | Load 0x2,-0x4 0095 e5fd | | Load 0x2,-0x3 0096 e5fe | | Load 0x2,-0x2 0097 e5ff | | Load 0x2,-0x1 0098 8008 | | Call 0x0,0x8 0099 4506 |E | Exit_Suprogram New_Top_Offset 0x6 009a 0000 0000 | | .BLANK 0000[0x6] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a3 | | .CONST 0x00a3 ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0001 | | .CONST 0x0001 ; Number of locals 00a3 BODY_00a0: 00a3 INIT_00a0: 00a3 e5fd | | Load 0x2,-0x3 00a4 e5fe | | Load 0x2,-0x2 00a5 e5ff | | Load 0x2,-0x1 00a6 8009 | | Call 0x0,0x9 00a7 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00ab | | .CONST 0x00ab ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0001 | | .CONST 0x0001 ; Number of locals 00ab BODY_00a8: 00ab INIT_00a8: 00ab e5fd | | Load 0x2,-0x3 00ac e5fe | | Load 0x2,-0x2 00ad e5ff | | Load 0x2,-0x1 00ae 800a | | Call 0x0,0xa 00af 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b3 | | .CONST 0x00b3 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0001 | | .CONST 0x0001 ; Number of locals 00b3 BODY_00b0: 00b3 INIT_00b0: 00b3 e5fd | | Load 0x2,-0x3 00b4 e5fe | | Load 0x2,-0x2 00b5 e5ff | | Load 0x2,-0x1 00b6 800b | | Call 0x0,0xb 00b7 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00bb | | .CONST 0x00bb ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0001 | | .CONST 0x0001 ; Number of locals 00bb BODY_00b8: 00bb INIT_00b8: 00bb 4801 |H | Short_Literal 0x1 00bc 4800 |H | Short_Literal 0x0 00bd e5ff | | Load 0x2,-0x1 00be 0092 00c4 | | Action Push_String_Extended,0xc4 ; ".<*PROGRAM_LIBRARY>" 00c0 01cc | | Execute Vector,Catenate 00c1 e00c | | Load 0x0,0xc 00c2 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00c3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00c4 ; -------------------------------------------------------------------------------------- 00c4 ; STRING TABLE 00c4 ; -------------------------------------------------------------------------------------- 00c4 0004 | | .STRTAB 0x0004->0x00c6 ; ".<*PROGRAM_LIBRARY>" 00c5 0015 | | .STREND 0x0015->0x00cf 00c6 2e3c 2a50 |.<*P| .STRTAB_STRINGS 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; Debug Table 00d0 ; -------------------------------------------------------------------------------------- 00d0 0004 0007 | | .DEBUG4 0x0004,0x0007,0x48a6,0x0000,0x0001,0x0000 00d6 2ca8 22a9 |, " | .XXX[0x50] 00d8 9721 a424 | ! $| 00da a622 2fa4 | "/ | 00dc a722 22ac | "" | 00de 0000 1cc8 | | 00e0 0e00 04a9 | | 00e2 a4a1 2624 | &$| 00e4 a723 af98 | # | 00e6 b30b 800d | | 00e8 a6a4 a1a9 | | 00ea 27a1 a7a2 |' | 00ec 22af aa2c |" ,| 00ee a822 a997 | " | 00f0 26a7 a22a |& *| 00f2 a622 afa7 | " | 00f4 20a6 a280 | | 00f6 001c c80e | | 00f8 0006 a324 | $| 00fa a626 22a9 | &" | 00fc 2f9c 9b2f |/ /| 00fe 9898 98b3 | | 0100 0b80 0527 | '| 0102 20aa 2aa9 | * | 0104 20a6 2f98 | / | 0106 9b00 001c | | 0108 c80e 0007 | | 010a a222 a822 | " "| 010c a722 22a7 | "" | 010e 2a2f a1a7 |*/ | 0110 aaa7 2a33 | *3| 0112 0b80 1226 | &| 0114 a4a1 a927 | '| 0116 a1a7 a222 | "| 0118 afaa 2ca8 | , | 011a 22a9 9729 |" )| 011c 22a9 a7aa |" | 011e a921 a2af | ! | 0120 a1a4 24a6 | $ | 0122 222f a1a7 |"/ | 0124 aaa7 2a00 | * | 0126 0000 0000 | | .BLANK 0000[0x5] 012b 9a00 0000 | | .XXX[0xd5] 012d 0100 0002 | | 012f 9a00 194d | M| 0131 4943 524f |ICRO| 0133 434f 4445 |CODE| 0135 5f54 5950 |_TYP| 0137 4553 2e54 |ES.T| 0139 5950 455f |YPE_| 013b 494e 464f |INFO| 013d 3b99 7239 |; r9| 013f 901c 000f | | 0141 524f 4f54 |ROOT| 0143 5f54 5950 |_TYP| 0145 455f 5354 |E_ST| 0147 4143 4b66 |ACKf| 0149 1700 1b4d | M| 014b 4943 524f |ICRO| 014d 434f 4445 |CODE| 014f 5f54 5950 |_TYP| 0151 4553 2e4d |ES.M| 0153 4f44 554c |ODUL| 0155 455f 4e41 |E_NA| 0157 4d45 0000 |ME | 0159 3990 1c00 |9 | 015b 0d54 5950 | TYP| 015d 455f 434f |E_CO| 015f 4e54 454e |NTEN| 0161 5453 6617 |TSf | 0163 001e 4d49 | MI| 0165 4352 4f43 |CROC| 0167 4f44 455f |ODE_| 0169 5459 5045 |TYPE| 016b 532e 434f |S.CO| 016d 4d50 4f4e |MPON| 016f 454e 545f |ENT_| 0171 494e 464f |INFO| 0173 0000 3990 | 9 | 0175 1c00 1154 | T| 0177 5950 455f |YPE_| 0179 4e4f 545f |NOT_| 017b 434f 4d50 |COMP| 017d 4c45 5445 |LETE| 017f 6617 0010 |f | 0181 5354 414e |STAN| 0183 4441 5244 |DARD| 0185 2e42 4f4f |.BOO| 0187 4c45 414e |LEAN| 0189 0000 3990 | 9 | 018b 1c00 144f | O| 018d 424a 4543 |BJEC| 018f 5453 5f57 |TS_W| 0191 4f52 445f |ORD_| 0193 414c 4947 |ALIG| 0195 4e45 4466 |NEDf| 0197 1700 1053 | S| 0199 5441 4e44 |TAND| 019b 4152 442e |ARD.| 019d 424f 4f4c |BOOL| 019f 4541 4e00 |EAN | 01a1 0039 901c | 9 | 01a3 0014 554e | UN| 01a5 5349 474e |SIGN| 01a7 4544 5f49 |ED_I| 01a9 465f 4449 |F_DI| 01ab 5343 5245 |SCRE| 01ad 5445 6617 |TEf | 01af 0010 5354 | ST| 01b1 414e 4441 |ANDA| 01b3 5244 2e42 |RD.B| 01b5 4f4f 4c45 |OOLE| 01b7 414e 0000 |AN | 01b9 3990 1c00 |9 | 01bb 1052 4f4f | ROO| 01bd 545f 5459 |T_TY| 01bf 5045 5f4f |PE_O| 01c1 4646 5345 |FFSE| 01c3 5466 1700 |Tf | 01c5 214d 4943 |!MIC| 01c7 524f 434f |ROCO| 01c9 4445 5f54 |DE_T| 01cb 5950 4553 |YPES| 01cd 2e54 5950 |.TYP| 01cf 455f 4449 |E_DI| 01d1 5350 4c41 |SPLA| 01d3 4345 4d45 |CEME| 01d5 4e54 0000 |NT | 01d7 3990 1c00 |9 | 01d9 1043 4f4d | COM| 01db 504c 4554 |PLET| 01dd 494f 4e5f |ION_| 01df 5354 4154 |STAT| 01e1 4566 1700 |Ef | 01e3 214d 4943 |!MIC| 01e5 524f 434f |ROCO| 01e7 4445 5f54 |DE_T| 01e9 5950 4553 |YPES| 01eb 2e43 4f4d |.COM| 01ed 504c 4554 |PLET| 01ef 494f 4e5f |ION_| 01f1 5354 4154 |STAT| 01f3 5553 0000 |US | 01f5 3990 1c00 |9 | 01f7 1153 5045 | SPE| 01f9 4349 4649 |CIFI| 01fb 435f 434f |C_CO| 01fd 4e54 454e |NTEN| 01ff 5453 |TS |