|
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_0fe0f5
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦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 0068 | h | .CONST 0x0068 ; 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 0020 | | .CONST 0x0020 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0010 | | .CONST 0x0010 ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 000c 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 000d e001 | | Load 0x0,0x1 000e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 000f 029f 0053 | S| Declare_Subprogram INIT_0050,For_Call 0011 4802 |H | Short_Literal 0x2 0012 032e | . | Declare_Type Record,Defined,Visible 0013 029a 002b | +| Declare_Subprogram INIT_0028,For_Outer_Call,Visible,Unelaborated 0015 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated 0017 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated 0019 00bf | | Action Accept_Activation 001a 1d0e | | Execute_Immediate Reference_Lex_1,0xe 001b 00c7 | | Action Elaborate_Subprogram 001c 1d0f | | Execute_Immediate Reference_Lex_1,0xf 001d 00c7 | | Action Elaborate_Subprogram 001e 1d10 | | Execute_Immediate Reference_Lex_1,0x10 001f 00c7 | | Action Elaborate_Subprogram 0020 BODY_0008: 0020 00bc | | Action Signal_Activated 0021 00bb | | Action Signal_Completion 0022 0000 0000 | | .BLANK 0000[0x6] 0028 ; -------------------------------------------------------------------------------------- 0028 ; SUBPROGRAM 0028 ; -------------------------------------------------------------------------------------- 0028 002b | + | .CONST 0x002b ; Address of begin 0029 0004 | | .CONST 0x0004 ; Address of exception handler 002a 0001 | | .CONST 0x0001 ; Number of locals 002b BODY_0028: 002b INIT_0028: 002b 00db | | Load_Top At_Offset_3 002c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 002d e5fe | | Load 0x2,-0x2 002e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 002f e5ff | | Load 0x2,-0x1 0030 e002 | | Load 0x0,0x2 0031 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0032 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0033 0000 0000 | | .BLANK 0000[0x5] 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 00db | | Load_Top At_Offset_3 003c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 003d e5fe | | Load 0x2,-0x2 003e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 003f e5ff | | Load 0x2,-0x1 0040 e002 | | Load 0x0,0x2 0041 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0042 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0043 0000 0000 | | .BLANK 0000[0x5] 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 4501 |E | Exit_Suprogram New_Top_Offset 0x1 004c 0000 0000 | | .BLANK 0000[0x4] 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 4608 |F | Jump_Case 0x9 0054 7808 |x | Jump 0x5d ; case 0x0 0055 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0056 780d |x | Jump 0x64 ; case 0x2 0057 780c |x | Jump 0x64 ; case 0x3 0058 780b |x | Jump 0x64 ; case 0x4 0059 780a |x | Jump 0x64 ; case 0x5 005a 7809 |x | Jump 0x64 ; case 0x6 005b 7808 |x | Jump 0x64 ; case 0x7 005c 7807 |x | Jump 0x64 ; case 0x8 005d 00da | | Load_Top At_Offset_2 005e 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 005f 0125 | % | Execute Any,Set_Constraint 0060 00da | | Load_Top At_Offset_2 0061 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0062 1c00 | | Execute_Immediate Run_Utility,0x0 0063 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0064 0869 | i | Execute_Immediate Raise,0x69 0065 0000 0000 | | .XXX[0x3] 0067 0000 | | 0068 ; -------------------------------------------------------------------------------------- 0068 ; Debug Table 0068 ; -------------------------------------------------------------------------------------- 0068 0004 000d | | .DEBUG4 0x0004,0x000d,0x91c1,0x0000,0x0001,0x0000 006e 6d65 2028 |me (| .XXX[0x192] 0070 4672 6f6d |From| 0072 5f4c 6973 |_Lis| 0074 7429 292c |t)),| 0076 1027 496d | 'Im| 0078 6167 6520 |age | 007a 3d3e 2042 |=> B| 007c 6f6c 642c |old,| 007e 1927 4b69 | 'Ki| 0080 6e64 203d |nd =| 0082 3e20 5769 |> Wi| 0084 6f2e 5072 |o.Pr| 0086 6f74 6563 |otec| 0088 7465 6429 |ted)| 008a 3b06 1465 |; e| 008c 6c73 6520 |lse | 008e 1857 696f | Wio| 0090 2e4f 7665 |.Ove| 0092 7277 7269 |rwri| 0094 7465 2028 |te (| 0096 4669 6c65 |File| 0098 203d 3e20 | => | 009a 5769 6e64 |Wind| 009c 6f77 2c00 |ow, | 009e 6265 6769 |begi| 00a0 6e00 6e74 |n nt| 00a2 5f53 656c |_Sel| 00a4 6563 7469 |ecti| 00a6 6f6e 203a |on :| 00a8 3d00 4000 |= @ | 00aa 0000 0020 | | 00ac df7b 0000 | { | 00ae 0020 df7b | {| 00b0 81fa 0021 | !| 00b2 1fab 1c27 | '| 00b4 4974 656d |Item| 00b6 203d 3e20 | => | 00b8 5265 6d6f |Remo| 00ba 7665 5f55 |ve_U| 00bc 6e64 6572 |nder| 00be 7363 6f72 |scor| 00c0 6573 2032 |es 2| 00c2 2846 726f |(Fro| 00c4 6d20 3d3e |m =>| 00c6 2050 702e | Pp.| 00c8 4e61 6d65 |Name| 00ca 2028 4672 | (Fr| 00cc 6f6d 5f4c |om_L| 00ce 6973 7429 |ist)| 00d0 292c 1627 |), '| 00d2 496d 6167 |Imag| 00d4 6520 3d3e |e =>| 00d6 2057 696f | Wio| 00d8 2e4e 6f72 |.Nor| 00da 6d61 6c2c |mal,| 00dc 1927 4b69 | 'Ki| 00de 6e64 203d |nd =| 00e0 3e20 5769 |> Wi| 00e2 6f2e 5072 |o.Pr| 00e4 6f74 6563 |otec| 00e6 7465 6429 |ted)| 00e8 3b09 1465 |; e| 00ea 6e64 2069 |nd i| 00ec 663b 0200 |f; | 00ee 1a14 6966 | if| 00f0 2049 202f | I /| 00f2 3d20 4c61 |= La| 00f4 7374 5f43 |st_C| 00f6 686f 6963 |hoic| 00f8 6520 7468 |e th| 00fa 656e 2918 |en) | 00fc 2d2d 2041 |-- A| 00fe 6464 2073 |dd s| 0100 6f6d 6520 |ome | 0102 7370 6163 |spac| 0104 6573 2062 |es b| 0106 6574 7765 |etwe| 0108 656e 2074 |en t| 010a 6865 2063 |he c| 010c 686f 6963 |hoic| 010e 6573 3a20 |es: | 0110 1857 696f | Wio| 0112 2e4f 7665 |.Ove| 0114 7277 7269 |rwri| 0116 7465 2028 |te (| 0118 4669 6c65 |File| 011a 203d 3e20 | => | 011c 5769 6e64 |Wind| 011e 6f77 2c0f |ow, | 0120 2749 7465 |'Ite| 0122 6d20 3d3e |m =>| 0124 2022 2020 | " | 0126 222c 1627 |", '| 0128 496d 6167 |Imag| 012a 6520 3d3e |e =>| 012c 2057 696f | Wio| 012e 2e4e 6f72 |.Nor| 0130 6d61 6c2c |mal,| 0132 1927 4b69 | 'Ki| 0134 6e64 203d |nd =| 0136 3e20 5769 |> Wi| 0138 6f2e 5072 |o.Pr| 013a 6f74 6563 |otec| 013c 7465 6429 |ted)| 013e 3b09 1465 |; e| 0140 6e64 2069 |nd i| 0142 663b 0200 |f; | 0144 1614 5070 | Pp| 0146 2e4e 6578 |.Nex| 0148 7420 2846 |t (F| 014a 726f 6d5f |rom_| 014c 4c69 7374 |List| 014e 293b 0b10 |); | 0150 656e 6420 |end | 0152 6c6f 6f70 |loop| 0154 3b16 0c65 |; e| 0156 6e64 2044 |nd D| 0158 6973 706c |ispl| 015a 6179 5f43 |ay_C| 015c 686f 6963 |hoic| 015e 6573 3b02 |es; | 0160 0026 0c70 | & p| 0162 726f 6365 |roce| 0164 6475 7265 |dure| 0166 2044 6973 | Dis| 0168 706c 6179 |play| 016a 5f43 686f |_Cho| 016c 6963 6520 |ice | 016e 2846 6f72 |(For| 0170 5f49 7465 |_Ite| 0172 6d20 3a26 |m :&| 0174 2944 6973 |)Dis| 0176 706c 6179 |play| 0178 5f49 7465 |_Ite| 017a 6d5f 5769 |m_Wi| 017c 7468 5f50 |th_P| 017e 6173 7365 |asse| 0180 6e67 6572 |nger| 0182 5f43 686f |_Cho| 0184 6963 6573 |ices| 0186 3b24 2646 |;$&F| 0188 726f 6d5f |rom_| 018a 4c69 7374 |List| 018c 203a 2069 | : i| 018e 6e20 6f75 |n ou| 0190 7420 5070 |t Pp| 0192 2e49 7465 |.Ite| 0194 7261 746f |rato| 0196 7229 2069 |r) i| 0198 7341 1053 |sA S| 019a 7472 696e |trin| 019c 675f 4f5f |g_O_| 019e 426c 616e |Blan| 01a0 6b73 203a |ks :| 01a2 2063 6f6e | con| 01a4 7374 616e |stan| 01a6 7420 5374 |t St| 01a8 7269 6e67 |ring| 01aa 2028 3120 | (1 | 01ac 2e2e 2033 |.. 3| 01ae 3629 203a |6) :| 01b0 3d20 286f |= (o| 01b2 7468 6572 |ther| 01b4 7320 3d3e |s =>| 01b6 2027 2027 | ' '| 01b8 293b 0200 |); | 01ba 1f10 6675 | fu| 01bc 6e63 7469 |ncti| 01be 6f6e 2043 |on C| 01c0 686f 6963 |hoic| 01c2 655f 5374 |e_St| 01c4 7269 6e67 |ring| 01c6 5f4c 656e |_Len| 01c8 6774 682c |gth,| 01ca 1c28 4368 | (Ch| 01cc 6f69 6365 |oice| 01ce 5f53 7472 |_Str| 01d0 696e 6720 |ing | 01d2 3a20 5374 |: St| 01d4 7269 6e67 |ring| 01d6 2920 7265 |) re| 01d8 7475 726e |turn| 01da 204e 6174 | Nat| 01dc 7572 616c |ural| 01de 2069 7307 | is | 01e0 1062 6567 | beg| 01e2 696e 1e14 |in | 01e4 7265 7475 |retu| 01e6 726e 2043 |rn C| 01e8 686f 6963 |hoic| 01ea 655f 5374 |e_St| 01ec 7269 6e67 |ring| 01ee 274c 656e |'Len| 01f0 6774 683b |gth;| 01f2 1b10 656e | en| 01f4 6420 4368 |d Ch| 01f6 6f69 6365 |oice| 01f8 5f53 7472 |_Str| 01fa 696e 675f |ing_| 01fc 4c65 6e67 |Leng| 01fe 7468 3b02 |th; |