|
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; |