|
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_0a7cf5
└─⟦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 01b0 | | .CONST 0x01b0 ; 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 000d | | .CONST 0x000d ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0002 | | .CONST 0x0002 ; Number of locals 000b INIT_0008: 000b e073 | s | Load 0x0,0x73 000c 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 000d BODY_0008: 000d e5ff | | Load 0x2,-0x1 000e e011 | | Load 0x0,0x11 000f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0010 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0011 e073 | s | Load 0x0,0x73 0012 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0013 a402 | | Store_Unchecked 0x2,0x2 0014 e5ff | | Load 0x2,-0x1 0015 e011 | | Load 0x0,0x11 0016 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0017 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0018 0e00 | | Execute_Immediate Not_Equal,0x0 0019 e402 | | Load 0x2,0x2 001a e073 | s | Load 0x0,0x73 001b 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 001c 0279 | y | Execute Discrete,And 001d 6805 |h | Jump_Zero 0x23 001e 0092 00fc | | Action Push_String_Extended,0xfc ; "Argument to Debug_Environment was unrecognizable" 0020 e01c | | Load 0x0,0x1c 0021 180e | | Execute Package,Field_Execute,Field_Number 0xe 0022 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0023 00cf | | Action Mark_Auxiliary 0024 78d2 |x | Jump 0xf7 0025 4800 |H | Short_Literal 0x0 0026 e402 | | Load 0x2,0x2 0027 e073 | s | Load 0x0,0x73 0028 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0029 68bf |h | Jump_Zero 0xe9 002a 4800 |H | Short_Literal 0x0 002b 4800 |H | Short_Literal 0x0 002c e402 | | Load 0x2,0x2 002d e073 | s | Load 0x0,0x73 002e 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 002f 68c2 |h | Jump_Zero 0xf2 0030 e402 | | Load 0x2,0x2 0031 e073 | s | Load 0x0,0x73 0032 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0033 4613 |F | Jump_Case 0x14 0034 78bd |x | Jump 0xf2 ; case 0x0 0035 7831 |x1 | Jump 0x67 ; case 0x1 0036 7836 |x6 | Jump 0x6d ; case 0x2 0037 7840 |x@ | Jump 0x78 ; case 0x3 0038 7857 |xW | Jump 0x90 ; case 0x4 0039 7886 |x | Jump 0xc0 ; case 0x5 003a 7890 |x | Jump 0xcb ; case 0x6 003b 78a1 |x | Jump 0xdd ; case 0x7 003c 78a6 |x | Jump 0xe3 ; case 0x8 003d 7840 |x@ | Jump 0x7e ; case 0x9 003e 7857 |xW | Jump 0x96 ; case 0xa 003f 786e |xn | Jump 0xae ; case 0xb 0040 7890 |x | Jump 0xd1 ; case 0xc 0041 7860 |x` | Jump 0xa2 ; case 0xd 0042 7865 |xe | Jump 0xa8 ; case 0xe 0043 7876 |xv | Jump 0xba ; case 0xf 0044 7857 |xW | Jump 0x9c ; case 0x10 0045 786e |xn | Jump 0xb4 ; case 0x11 0046 7890 |x | Jump 0xd7 ; case 0x12 0047 7800 |x | Jump 0x48 ; case 0x13 0048 e01d | | Load 0x0,0x1d 0049 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 004a 4603 |F | Jump_Case 0x4 004b 7815 |x | Jump 0x61 ; case 0x0 004c 7808 |x | Jump 0x55 ; case 0x1 004d 780d |x | Jump 0x5b ; case 0x2 004e 7800 |x | Jump 0x4f ; case 0x3 004f 0092 00fd | | Action Push_String_Extended,0xfd ; "Justified" 0051 0092 00fe | | Action Push_String_Extended,0xfe ; "Justify_Mode" 0053 825c | \ | Call 0x1,0x5c 0054 789d |x | Jump 0xf2 0055 0092 00ff | | Action Push_String_Extended,0xff ; "Left_Justified" 0057 0092 00fe | | Action Push_String_Extended,0xfe ; "Justify_Mode" 0059 825c | \ | Call 0x1,0x5c 005a 7897 |x | Jump 0xf2 005b 0092 0100 | | Action Push_String_Extended,0x100 ; "Right_Justified" 005d 0092 00fe | | Action Push_String_Extended,0xfe ; "Justify_Mode" 005f 825c | \ | Call 0x1,0x5c 0060 7891 |x | Jump 0xf2 0061 0092 0101 | | Action Push_String_Extended,0x101 ; "Center_Justified" 0063 0092 00fe | | Action Push_String_Extended,0xfe ; "Justify_Mode" 0065 825c | \ | Call 0x1,0x5c 0066 788b |x | Jump 0xf2 0067 e01d | | Load 0x0,0x1d 0068 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0069 0092 0102 | | Action Push_String_Extended,0x102 ; "Bold" 006b 825d | ] | Call 0x1,0x5d 006c 7885 |x | Jump 0xf2 006d e01d | | Load 0x0,0x1d 006e 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 006f 0f00 | | Execute_Immediate Equal,0x0 0070 e01d | | Load 0x0,0x1d 0071 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 0072 0f00 | | Execute_Immediate Equal,0x0 0073 0279 | y | Execute Discrete,And 0074 0092 0103 | | Action Push_String_Extended,0x103 ; "Center" 0076 825d | ] | Call 0x1,0x5d 0077 787a |xz | Jump 0xf2 0078 e01d | | Load 0x0,0x1d 0079 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 007a 0092 0104 | | Action Push_String_Extended,0x104 ; "Fill" 007c 825d | ] | Call 0x1,0x5d 007d 7874 |xt | Jump 0xf2 007e e01d | | Load 0x0,0x1d 007f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0080 e020 | | Load 0x0,0x20 0081 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0082 e021 | ! | Load 0x0,0x21 0083 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0084 00d8 | | Load_Top At_Offset_0 0085 e021 | ! | Load 0x0,0x21 0086 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 0087 7003 |p | Jump_Nonzero 0x8b 0088 e022 | " | Load 0x0,0x22 0089 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 008a 0257 | W | Execute Discrete,Raise 008b 1819 | | Execute Package,Field_Execute,Field_Number 0x19 008c 0092 0105 | | Action Push_String_Extended,0x105 ; "Font_Family" 008e 825c | \ | Call 0x1,0x5c 008f 7862 |xb | Jump 0xf2 0090 e01d | | Load 0x0,0x1d 0091 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0092 0092 0106 | | Action Push_String_Extended,0x106 ; "Italic" 0094 825d | ] | Call 0x1,0x5d 0095 785c |x\ | Jump 0xf2 0096 e01d | | Load 0x0,0x1d 0097 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0098 0092 0107 | | Action Push_String_Extended,0x107 ; "Leading" 009a 8257 | W | Call 0x1,0x57 009b 7856 |xV | Jump 0xf2 009c e01d | | Load 0x0,0x1d 009d 3c18 |< | Execute Record,Field_Read,Field_Number 0x18 009e 0092 0108 | | Action Push_String_Extended,0x108 ; "Left_Indent" 00a0 8256 | V | Call 0x1,0x56 00a1 7850 |xP | Jump 0xf2 00a2 e01d | | Load 0x0,0x1d 00a3 3c16 |< | Execute Record,Field_Read,Field_Number 0x16 00a4 0092 0109 | | Action Push_String_Extended,0x109 ; "Left_Margin" 00a6 8256 | V | Call 0x1,0x56 00a7 784a |xJ | Jump 0xf2 00a8 e01d | | Load 0x0,0x1d 00a9 3c1b |< | Execute Record,Field_Read,Field_Number 0x1b 00aa 0092 010a | | Action Push_String_Extended,0x10a ; "Page_Offset" 00ac 8256 | V | Call 0x1,0x56 00ad 7844 |xD | Jump 0xf2 00ae e01d | | Load 0x0,0x1d 00af 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 00b0 0092 010b | | Action Push_String_Extended,0x10b ; "Point_Size" 00b2 8257 | W | Call 0x1,0x57 00b3 783e |x> | Jump 0xf2 00b4 e01d | | Load 0x0,0x1d 00b5 3c19 |< | Execute Record,Field_Read,Field_Number 0x19 00b6 0092 010c | | Action Push_String_Extended,0x10c ; "Right_Indent" 00b8 8256 | V | Call 0x1,0x56 00b9 7838 |x8 | Jump 0xf2 00ba e01d | | Load 0x0,0x1d 00bb 3c17 |< | Execute Record,Field_Read,Field_Number 0x17 00bc 0092 010d | | Action Push_String_Extended,0x10d ; "Right_Margin" 00be 8256 | V | Call 0x1,0x56 00bf 7832 |x2 | Jump 0xf2 00c0 e01d | | Load 0x0,0x1d 00c1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00c2 0f00 | | Execute_Immediate Equal,0x0 00c3 e01d | | Load 0x0,0x1d 00c4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00c5 0f00 | | Execute_Immediate Equal,0x0 00c6 0279 | y | Execute Discrete,And 00c7 0092 010e | | Action Push_String_Extended,0x10e ; "Roman" 00c9 825d | ] | Call 0x1,0x5d 00ca 7827 |x' | Jump 0xf2 00cb e01d | | Load 0x0,0x1d 00cc 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 00cd 0092 010f | | Action Push_String_Extended,0x10f ; "Small_Capital" 00cf 825d | ] | Call 0x1,0x5d 00d0 7821 |x! | Jump 0xf2 00d1 e01d | | Load 0x0,0x1d 00d2 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 00d3 0092 0110 | | Action Push_String_Extended,0x110 ; "Spacing" 00d5 8256 | V | Call 0x1,0x56 00d6 781b |x | Jump 0xf2 00d7 e01d | | Load 0x0,0x1d 00d8 3c1a |< | Execute Record,Field_Read,Field_Number 0x1a 00d9 0092 0111 | | Action Push_String_Extended,0x111 ; "Temporary_Indent" 00db 8256 | V | Call 0x1,0x56 00dc 7815 |x | Jump 0xf2 00dd e01d | | Load 0x0,0x1d 00de 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 00df 0092 0112 | | Action Push_String_Extended,0x112 ; "Underline" 00e1 825d | ] | Call 0x1,0x5d 00e2 780f |x | Jump 0xf2 00e3 e01d | | Load 0x0,0x1d 00e4 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 00e5 0092 0113 | | Action Push_String_Extended,0x113 ; "Word_Mode" 00e7 825d | ] | Call 0x1,0x5d 00e8 7809 |x | Jump 0xf2 00e9 0092 0114 | | Action Push_String_Extended,0x114 ; "Debug_Environment" 00eb 4800 |H | Short_Literal 0x0 00ec e402 | | Load 0x2,0x2 00ed e073 | s | Load 0x0,0x73 00ee 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 00ef 01cc | | Execute Vector,Catenate 00f0 e01c | | Load 0x0,0x1c 00f1 180e | | Execute Package,Field_Execute,Field_Number 0xe 00f2 e402 | | Load 0x2,0x2 00f3 e073 | s | Load 0x0,0x73 00f4 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 00f5 c402 | | Store 0x2,0x2 00f6 00c9 | | Action Pop_Auxiliary_Loop 00f7 e402 | | Load 0x2,0x2 00f8 e073 | s | Load 0x0,0x73 00f9 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 00fa 6f2a |o* | Jump_Zero 0x25 00fb 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00fc ; -------------------------------------------------------------------------------------- 00fc ; STRING TABLE 00fc ; -------------------------------------------------------------------------------------- 00fc 0034 | 4 | .STRTAB 0x0034->0x0116 ; "Argument to Debug_Environment was unrecognizable" 00fd 0062 | b | .STRTAB 0x0062->0x012e ; "Justified" 00fe 0069 | i | .STRTAB 0x0069->0x0132 ; "Justify_Mode" 00ff 0073 | s | .STRTAB 0x0073->0x0138 ; "Left_Justified" 0100 007f | | .STRTAB 0x007f->0x013f ; "Right_Justified" 0101 008c | | .STRTAB 0x008c->0x0147 ; "Center_Justified" 0102 009a | | .STRTAB 0x009a->0x014f ; "Bold" 0103 009c | | .STRTAB 0x009c->0x0151 ; "Center" 0104 00a0 | | .STRTAB 0x00a0->0x0154 ; "Fill" 0105 00a2 | | .STRTAB 0x00a2->0x0156 ; "Font_Family" 0106 00ab | | .STRTAB 0x00ab->0x015b ; "Italic" 0107 00af | | .STRTAB 0x00af->0x015e ; "Leading" 0108 00b4 | | .STRTAB 0x00b4->0x0162 ; "Left_Indent" 0109 00bd | | .STRTAB 0x00bd->0x0167 ; "Left_Margin" 010a 00c6 | | .STRTAB 0x00c6->0x016d ; "Page_Offset" 010b 00cf | | .STRTAB 0x00cf->0x0172 ; "Point_Size" 010c 00d7 | | .STRTAB 0x00d7->0x0177 ; "Right_Indent" 010d 00e1 | | .STRTAB 0x00e1->0x017d ; "Right_Margin" 010e 00eb | | .STRTAB 0x00eb->0x0183 ; "Roman" 010f 00ee | | .STRTAB 0x00ee->0x0186 ; "Small_Capital" 0110 00f9 | | .STRTAB 0x00f9->0x018c ; "Spacing" 0111 00fe | | .STRTAB 0x00fe->0x0190 ; "Temporary_Indent" 0112 010c | | .STRTAB 0x010c->0x0198 ; "Underline" 0113 0113 | | .STRTAB 0x0113->0x019c ; "Word_Mode" 0114 011a | | .STRTAB 0x011a->0x01a1 ; "Debug_Environment" 0115 0129 | ) | .STREND 0x0129->0x01a9 0116 4172 6775 |Argu| .STRTAB_STRINGS 01aa 0000 0000 | | .BLANK 0000[0x6] 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; Debug Table 01b0 ; -------------------------------------------------------------------------------------- 01b0 0004 000f | | .DEBUG4 0x0004,0x000f,0x47ff,0x0000,0x0001,0x0000 01b6 8000 0005 | | .XXX[0x2] 01b8 0000 0000 | | .BLANK 0000[0x48]