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