|
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_06e8fd
└─⟦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 0028 | ( | .CONST 0x0028 ; 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 001b | | .CONST 0x001b ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0001 | | .CONST 0x0001 ; Number of locals 001b BODY_0018: 001b INIT_0018: 001b e5fa | | Load 0x2,-0x6 001c e5fb | | Load 0x2,-0x5 001d e5fc | | Load 0x2,-0x4 001e e5fd | | Load 0x2,-0x3 001f e5fe | | Load 0x2,-0x2 0020 e5ff | | Load 0x2,-0x1 0021 e001 | | Load 0x0,0x1 0022 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0023 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0024 0000 0000 | | .BLANK 0000[0x4] 0028 ; -------------------------------------------------------------------------------------- 0028 ; Debug Table 0028 ; -------------------------------------------------------------------------------------- 0028 0004 000d | | .DEBUG4 0x0004,0x000d,0x016d,0x0000,0x0001,0x0000 002e 454c 4159 |ELAY| .XXX[0x1d2] 0030 5f54 4f4b |_TOK| 0032 454f 465f |EOF_| 0034 544f 4b49 |TOKI| 0036 535f 544f |S_TO| 0038 4b52 414e |KRAN| 003a 4745 5f54 |GE_T| 003c 4f4b 5345 |OKSE| 003e 4c45 4354 |LECT| 0040 5f54 4f4b |_TOK| 0042 4154 5f54 |AT_T| 0044 4f4b 474f |OKGO| 0046 544f 5f54 |TO_T| 0048 4f4b 4142 |OKAB| 004a 4f52 545f |ORT_| 004c 544f 4b52 |TOKR| 004e 4556 4552 |EVER| 0050 5345 5f54 |SE_T| 0052 4f4b 5345 |OKSE| 0054 4d49 5f54 |MI_T| 0056 4f4b 4f46 |OKOF| 0058 5f54 4f4b |_TOK| 005a 4153 5349 |ASSI| 005c 474e 5f54 |GN_T| 005e 4f4b 534f |OKSO| 0060 465f 544f |F_TO| 0062 4b51 554f |KQUO| 0064 5445 5f54 |TE_T| 0066 4f4b 5250 |OKRP| 0068 4152 454e |AREN| 006a 5f54 4f4b |_TOK| 006c 4152 524f |ARRO| 006e 575f 544f |W_TO| 0070 4b41 5252 |KARR| 0072 4159 5f54 |AY_T| 0074 4f4b 5749 |OKWI| 0076 5448 5f54 |TH_T| 0078 4f4b 5748 |OKWH| 007a 494c 455f |ILE_| 007c 544f 4b46 |TOKF| 007e 554e 4354 |UNCT| 0080 494f 4e5f |ION_| 0082 544f 4b43 |TOKC| 0084 4153 455f |ASE_| 0086 544f 4b45 |TOKE| 0088 4c53 4946 |LSIF| 008a 5f54 4f4b |_TOK| 008c 5748 454e |WHEN| 008e 5f54 4f4b |_TOK| 0090 4c49 4d49 |LIMI| 0092 5445 445f |TED_| 0094 544f 4b53 |TOKS| 0096 5542 5459 |UBTY| 0098 5045 5f54 |PE_T| 009a 4f4b 5041 |OKPA| 009c 434b 4147 |CKAG| 009e 455f 544f |E_TO| 00a0 4b42 4f58 |KBOX| 00a2 5f54 4f4b |_TOK| 00a4 454c 5345 |ELSE| 00a6 5f54 4f4b |_TOK| 00a8 4c50 4152 |LPAR| 00aa 454e 5f54 |EN_T| 00ac 4f4b 4e45 |OKNE| 00ae 575f 544f |W_TO| 00b0 4b45 4e44 |KEND| 00b2 5f54 4f4b |_TOK| 00b4 454e 445f |END_| 00b6 4946 5f54 |IF_T| 00b8 4f4b 454e |OKEN| 00ba 445f 4c4f |D_LO| 00bc 4f50 5f54 |OP_T| 00be 4f4b 454e |OKEN| 00c0 445f 5345 |D_SE| 00c2 4c45 4354 |LECT| 00c4 5f54 4f4b |_TOK| 00c6 454e 445f |END_| 00c8 4341 5345 |CASE| 00ca 5f54 4f4b |_TOK| 00cc 454e 445f |END_| 00ce 5245 434f |RECO| 00d0 5244 5f54 |RD_T| 00d2 4f4b 454e |OKEN| 00d4 445f 4944 |D_ID| 00d6 5f54 4f4b |_TOK| 00d8 454e 445f |END_| 00da 4c4f 4f50 |LOOP| 00dc 5f49 445f |_ID_| 00de 544f 4b44 |TOKD| 00e0 4543 4c41 |ECLA| 00e2 5241 5449 |RATI| 00e4 4f4e 5f54 |ON_T| 00e6 4f4b 5354 |OKST| 00e8 4154 454d |ATEM| 00ea 454e 545f |ENT_| 00ec 544f 4b45 |TOKE| 00ee 5850 5245 |XPRE| 00f0 5353 494f |SSIO| 00f2 4e5f 544f |N_TO| 00f4 4b41 4c54 |KALT| 00f6 4552 4e41 |ERNA| 00f8 5449 5645 |TIVE| 00fa 5f54 4f4b |_TOK| 00fc 434f 4d50 |COMP| 00fe 5f55 4e49 |_UNI| 0100 545f 544f |T_TO| 0102 4b43 4f4e |KCON| 0104 5445 5854 |TEXT| 0106 5f54 4f4b |_TOK| 0108 4745 4e45 |GENE| 010a 5249 435f |RIC_| 010c 505f 544f |P_TO| 010e 4b50 5241 |KPRA| 0110 474d 415f |GMA_| 0112 4e54 5f54 |NT_T| 0114 4f4b 4944 |OKID| 0116 5f54 4f4b |_TOK| 0118 4c45 5f54 |LE_T| 011a 4f4b 4745 |OKGE| 011c 5f54 4f4b |_TOK| 011e 4f54 4845 |OTHE| 0120 5253 5f54 |RS_T| 0122 4f4b 4e45 |OKNE| 0124 5f54 4f4b |_TOK| 0126 5052 4956 |PRIV| 0128 4154 455f |ATE_| 012a 544f 4b4d |TOKM| 012c 554c 545f |ULT_| 012e 544f 4b4f |TOKO| 0130 525f 544f |R_TO| 0132 4b43 4f4e |KCON| 0134 4341 545f |CAT_| 0136 544f 4b47 |TOKG| 0138 545f 544f |T_TO| 013a 4b4d 4f44 |KMOD| 013c 5f54 4f4b |_TOK| 013e 5245 5455 |RETU| 0140 524e 5f54 |RN_T| 0142 4f4b 4449 |OKDI| 0144 5649 4445 |VIDE| 0146 5f54 4f4b |_TOK| 0148 5241 4953 |RAIS| 014a 455f 544f |E_TO| 014c 4b52 454d |KREM| 014e 5f54 4f4b |_TOK| 0150 4142 535f |ABS_| 0152 544f 4b4e |TOKN| 0154 554d 4245 |UMBE| 0156 525f 544f |R_TO| 0158 4b45 515f |KEQ_| 015a 544f 4b45 |TOKE| 015c 5850 5f54 |XP_T| 015e 4f4b 4d49 |OKMI| 0160 4e55 535f |NUS_| 0162 544f 4b4e |TOKN| 0164 554c 4c5f |ULL_| 0166 544f 4b45 |TOKE| 0168 5849 545f |XIT_| 016a 544f 4b58 |TOKX| 016c 4f52 5f54 |OR_T| 016e 4f4b 494e |OKIN| 0170 5f54 4f4b |_TOK| 0172 4348 4152 |CHAR| 0174 4c49 545f |LIT_| 0176 544f 4b4c |TOKL| 0178 545f 544f |T_TO| 017a 4b4e 4f54 |KNOT| 017c 5f54 4f4b |_TOK| 017e 5354 5249 |STRI| 0180 4e47 5f54 |NG_T| 0182 4f4b 4f50 |OKOP| 0184 4552 4154 |ERAT| 0186 4f52 5f53 |OR_S| 0188 594d 424f |YMBO| 018a 4c5f 544f |L_TO| 018c 4b41 4e44 |KAND| 018e 5f54 4f4b |_TOK| 0190 504c 5553 |PLUS| 0192 5f54 4f4b |_TOK| 0194 5445 524d |TERM| 0196 494e 4154 |INAT| 0198 455f 544f |E_TO| 019a 4b53 4341 |KSCA| 019c 4e4e 4552 |NNER| 019e 5f45 5252 |_ERR| 01a0 4f52 5f54 |OR_T| 01a2 4f4b 4558 |OKEX| 01a4 5052 4553 |PRES| 01a6 5349 4f4e |SION| 01a8 535f 4558 |S_EX| 01aa 5052 4553 |PRES| 01ac 5349 4f4e |SION| 01ae 4c49 4252 |LIBR| 01b0 4152 5953 |ARYS| 01b2 5f4c 4942 |_LIB| 01b4 5241 5259 |RARY| 01b6 434f 4d50 |COMP| 01b8 5f55 4e49 |_UNI| 01ba 544f 5054 |TOPT| 01bc 5f50 5241 |_PRA| 01be 474d 415f |GMA_| 01c0 4e54 535f |NTS_| 01c2 434f 4d50 |COMP| 01c4 5f55 4e49 |_UNI| 01c6 5453 5441 |TSTA| 01c8 5445 4d45 |TEME| 01ca 4e54 535f |NTS_| 01cc 5354 4154 |STAT| 01ce 454d 454e |EMEN| 01d0 544f 5054 |TOPT| 01d2 5f53 5441 |_STA| 01d4 5445 4d45 |TEME| 01d6 4e54 5f53 |NT_S| 01d8 4551 5545 |EQUE| 01da 4e43 4553 |NCES| 01dc 5f53 544d |_STM| 01de 5f53 5354 |_SST| 01e0 4154 454d |ATEM| 01e2 454e 545f |ENT_| 01e4 5345 5155 |SEQU| 01e6 454e 4345 |ENCE| 01e8 535f 5354 |S_ST| 01ea 4154 454d |ATEM| 01ec 454e 545f |ENT_| 01ee 4c49 5354 |LIST| 01f0 4445 434c |DECL| 01f2 4152 4154 |ARAT| 01f4 494f 4e53 |IONS| 01f6 5f44 4543 |_DEC| 01f8 4c41 5241 |LARA| 01fa 5449 4f4e |TION| 01fc 4445 434c |DECL| 01fe 4152 4154 |ARAT|