|
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_5e40f2
└─⟦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 0058 | X | .CONST 0x0058 ; 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 4800 |H | Short_Literal 0x0
001c 4800 |H | Short_Literal 0x0
001d 4800 |H | Short_Literal 0x0
001e 4801 |H | Short_Literal 0x1
001f 4801 |H | Short_Literal 0x1
0020 4800 |H | Short_Literal 0x0
0021 4800 |H | Short_Literal 0x0
0022 4801 |H | Short_Literal 0x1
0023 4800 |H | Short_Literal 0x0
0024 4800 |H | Short_Literal 0x0
0025 4801 |H | Short_Literal 0x1
0026 4800 |H | Short_Literal 0x0
0027 e5ff | | Load 0x2,-0x1
0028 0092 0045 | E| Action Push_String_Extended,0x45 ; "_Errors"
002a 01cc | | Execute Vector,Catenate
002b e5ff | | Load 0x2,-0x1
002c e001 | | Load 0x0,0x1
002d 1815 | | Execute Package,Field_Execute,Field_Number 0x15
002e 4800 |H | Short_Literal 0x0
002f 4800 |H | Short_Literal 0x0
0030 4800 |H | Short_Literal 0x0
0031 4800 |H | Short_Literal 0x0
0032 4800 |H | Short_Literal 0x0
0033 4800 |H | Short_Literal 0x0
0034 4800 |H | Short_Literal 0x0
0035 4801 |H | Short_Literal 0x1
0036 4800 |H | Short_Literal 0x0
0037 4800 |H | Short_Literal 0x0
0038 4800 |H | Short_Literal 0x0
0039 4800 |H | Short_Literal 0x0
003a e5ff | | Load 0x2,-0x1
003b 0092 0046 | F| Action Push_String_Extended,0x46 ; "_Negatives"
003d 01cc | | Execute Vector,Catenate
003e e5ff | | Load 0x2,-0x1
003f 0092 0045 | E| Action Push_String_Extended,0x45 ; "_Errors"
0041 01cc | | Execute Vector,Catenate
0042 e001 | | Load 0x0,0x1
0043 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0044 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0045 ; --------------------------------------------------------------------------------------
0045 ; STRING TABLE
0045 ; --------------------------------------------------------------------------------------
0045 0006 | | .STRTAB 0x0006->0x0048 ; "_Errors"
0046 000b | | .STRTAB 0x000b->0x004b ; "_Negatives"
0047 0013 | | .STREND 0x0013->0x0050
0048 5f45 7272 |_Err| .STRTAB_STRINGS
0051 0000 0000 | | .BLANK 0000[0x7]
0058 ; --------------------------------------------------------------------------------------
0058 ; Debug Table
0058 ; --------------------------------------------------------------------------------------
0058 0004 000d | | .DEBUG4 0x0004,0x000d,0x9713,0x0000,0x0001,0x0000
005e 6963 3b02 |ic; | .XXX[0x1a2]
0060 0013 0470 | p|
0062 726f 6365 |roce|
0064 6475 7265 |dure|
0066 2053 6f72 | Sor|
0068 7420 6973 |t is|
006a 0028 4e61 | (Na|
006c 6d69 6e67 |ming|
006e 2e46 756c |.Ful|
0070 6c5f 4e61 |l_Na|
0072 6d65 2028 |me (|
0074 4861 6e64 |Hand|
0076 6c65 2920 |le) |
0078 2600 6269 |& bi|
007a 7472 6172 |trar|
007c 7920 3d3e |y =>|
007e 0000 6769 | gi|
0080 6e00 0000 |n |
0082 0009 1f7b | {|
0084 4e6f 0009 |No |
0086 1f7b 81fa | { |
0088 0009 5fab | _ |
008a 3308 7072 |3 pr|
008c 6f63 6564 |oced|
008e 7572 6520 |ure |
0090 446f 5f53 |Do_S|
0092 6f72 7420 |ort |
0094 6973 206e |is n|
0096 6577 2053 |ew S|
0098 6f72 745f |ort_|
009a 4765 6e65 |Gene|
009c 7269 6320 |ric |
009e 2852 6566 |(Ref|
00a0 6572 656e |eren|
00a2 6365 2c06 |ce, |
00a4 2f22 3c22 |/"<"|
00a6 2c1e 2f45 |, /E|
00a8 7273 6174 |rsat|
00aa 7a5f 5265 |z_Re|
00ac 6665 7265 |fere|
00ae 6e63 6573 |nces|
00b0 2e45 7863 |.Exc|
00b2 6861 6e67 |hang|
00b4 6529 3b07 |e); |
00b6 0462 6567 | beg|
00b8 696e 1e08 |in |
00ba 446f 5f53 |Do_S|
00bc 6f72 7420 |ort |
00be 2831 2c20 |(1, |
00c0 4865 6164 |Head|
00c2 2e52 6566 |.Ref|
00c4 5f43 6f75 |_Cou|
00c6 6e74 293b |nt);|
00c8 0b04 656e | en|
00ca 6420 536f |d So|
00cc 7274 3b02 |rt; |
00ce 0022 0466 | " f|
00d0 756e 6374 |unct|
00d2 696f 6e20 |ion |
00d4 436f 756e |Coun|
00d6 7420 7265 |t re|
00d8 7475 726e |turn|
00da 204e 6174 | Nat|
00dc 7572 616c |ural|
00de 2069 7307 | is |
00e0 0462 6567 | beg|
00e2 696e 2208 |in" |
00e4 7265 7475 |retu|
00e6 726e 204e |rn N|
00e8 6174 7572 |atur|
00ea 616c 2028 |al (|
00ec 4865 6164 |Head|
00ee 2e52 6566 |.Ref|
00f0 5f43 6f75 |_Cou|
00f2 6e74 293b |nt);|
00f4 0c04 656e | en|
00f6 6420 436f |d Co|
00f8 756e 743b |unt;|
00fa 0200 4204 | B |
00fc 6675 6e63 |func|
00fe 7469 6f6e |tion|
0100 2044 6566 | Def|
0102 696e 6974 |init|
0104 696f 6e20 |ion |
0106 2852 6566 |(Ref|
0108 203a 2052 | : R|
010a 6566 6572 |efer|
010c 656e 6365 |ence|
010e 3b20 5768 |; Wh|
0110 6963 6820 |ich |
0112 3a20 5768 |: Wh|
0114 6963 685f |ich_|
0116 456e 756d |Enum|
0118 6572 6174 |erat|
011a 696f 6e29 |ion)|
011c 1c18 7265 | re|
011e 7475 726e |turn|
0120 2044 6566 | Def|
0122 696e 6974 |init|
0124 696f 6e5f |ion_|
0126 4572 726f |Erro|
0128 7220 6973 |r is|
012a 0704 6265 | be|
012c 6769 6e23 |gin#|
012e 0869 6620 | if |
0130 5768 6963 |Whic|
0132 6820 3d20 |h = |
0134 5265 6665 |Refe|
0136 7272 696e |rrin|
0138 675f 546f |g_To|
013a 5f49 7465 |_Ite|
013c 6d20 7468 |m th|
013e 656e 3a0c |en: |
0140 4164 615f |Ada_|
0142 4f62 6a65 |Obje|
0144 6374 5f45 |ct_E|
0146 6469 746f |dito|
0148 722e 4469 |r.Di|
014a 7370 6c61 |spla|
014c 7920 2852 |y (R|
014e 6566 5f41 |ef_A|
0150 7272 6179 |rray|
0152 2028 5265 | (Re|
0154 6629 2e43 |f).C|
0156 616c 6c65 |alle|
0158 725f 4e6f |r_No|
015a 6465 293b |de);|
015c 2508 656c |% el|
015e 7369 6620 |sif |
0160 5768 6963 |Whic|
0162 6820 3d20 |h = |
0164 5265 6665 |Refe|
0166 7272 6564 |rred|
0168 5f54 6f5f |_To_|
016a 4974 656d |Item|
016c 2074 6865 | the|
016e 6e1b 0c41 |n A|
0170 6461 5f4f |da_O|
0172 626a 6563 |bjec|
0174 745f 4564 |t_Ed|
0176 6974 6f72 |itor|
0178 2e44 6973 |.Dis|
017a 706c 6179 |play|
017c 3a0f 2843 |: (C|
017e 616c 6c65 |alle|
0180 645f 4e61 |d_Na|
0182 6d65 7320 |mes |
0184 2852 6566 |(Ref|
0186 5f41 7272 |_Arr|
0188 6179 2028 |ay (|
018a 5265 6629 |Ref)|
018c 2e43 616c |.Cal|
018e 6c65 645f |led_|
0190 4e61 6d65 |Name|
0192 292e 4465 |).De|
0194 6669 6e65 |fine|
0196 645f 4174 |d_At|
0198 293b 0608 |); |
019a 656c 7365 |else|
019c 170c 7265 | re|
019e 7475 726e |turn|
01a0 2049 6e76 | Inv|
01a2 616c 6964 |alid|
01a4 5f57 6869 |_Whi|
01a6 6368 3b09 |ch; |
01a8 0865 6e64 | end|
01aa 2069 663b | if;|
01ac 0200 1408 | |
01ae 7265 7475 |retu|
01b0 726e 2053 |rn S|
01b2 7563 6365 |ucce|
01b4 7373 6675 |ssfu|
01b6 6c3b 0b04 |l; |
01b8 6578 6365 |exce|
01ba 7074 696f |ptio|
01bc 6e26 0877 |n& w|
01be 6865 6e20 |hen |
01c0 4164 615f |Ada_|
01c2 4f62 6a65 |Obje|
01c4 6374 5f45 |ct_E|
01c6 6469 746f |dito|
01c8 722e 4c6f |r.Lo|
01ca 636b 5f45 |ck_E|
01cc 7272 6f72 |rror|
01ce 203d 3e15 | => |
01d0 0c72 6574 | ret|
01d2 7572 6e20 |urn |
01d4 4974 656d |Item|
01d6 5f4c 6f63 |_Loc|
01d8 6b65 643b |ked;|
01da 2508 7768 |% wh|
01dc 656e 2041 |en A|
01de 6461 5f4f |da_O|
01e0 626a 6563 |bjec|
01e2 745f 4564 |t_Ed|
01e4 6974 6f72 |itor|
01e6 2e55 6e64 |.Und|
01e8 6566 696e |efin|
01ea 6564 203d |ed =|
01ec 3e1a 0c72 |> r|
01ee 6574 7572 |etur|
01f0 6e20 4974 |n It|
01f2 656d 5f44 |em_D|
01f4 6973 6170 |isap|
01f6 7065 6172 |pear|
01f8 6564 3b10 |ed; |
01fa 0877 6865 | whe|
01fc 6e20 6f74 |n ot|
01fe 6865 7273 |hers|