|
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: 2048 (0x800) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03bcfe
└─⟦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 0258 | X | .CONST 0x0258 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0019 | | .CONST 0x0019 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0008 | | .CONST 0x0008 ; Number of locals 000b INIT_0008: 000b e020 | | Load 0x0,0x20 000c 1b13 | | Execute Package,Field_Read,Field_Number 0x13 000d 0322 | " | Declare_Variable Record 000e e011 | | Load 0x0,0x11 000f 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f 0010 00e2 | | Load_Encached Integer_Cache 0011 e099 | | Load 0x0,0x99 0012 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 0013 029f 0193 | | Declare_Subprogram INIT_0190,For_Call 0015 029f 01bb | | Declare_Subprogram INIT_01b8,For_Call 0017 029f 01cb | | Declare_Subprogram INIT_01c8,For_Call 0019 BODY_0008: 0019 e5ff | | Load 0x2,-0x1 001a e011 | | Load 0x0,0x11 001b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 001c 1816 | | Execute Package,Field_Execute,Field_Number 0x16 001d e099 | | Load 0x0,0x99 001e 1820 | | Execute Package,Field_Execute,Field_Number 0x20 001f a405 | | Store_Unchecked 0x2,0x5 0020 e5ff | | Load 0x2,-0x1 0021 e011 | | Load 0x0,0x11 0022 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0023 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0024 0e00 | | Execute_Immediate Not_Equal,0x0 0025 e405 | | Load 0x2,0x5 0026 e099 | | Load 0x0,0x99 0027 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0028 0279 | y | Execute Discrete,And 0029 6805 |h | Jump_Zero 0x2f 002a 0092 01d1 | | Action Push_String_Extended,0x1d1 ; "Argument to Environment was unrecognizable" 002c e01c | | Load 0x0,0x1c 002d 180e | | Execute Package,Field_Execute,Field_Number 0xe 002e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 002f 00cf | | Action Mark_Auxiliary 0030 7957 |yW | Jump 0x188 0031 4800 |H | Short_Literal 0x0 0032 e405 | | Load 0x2,0x5 0033 e099 | | Load 0x0,0x99 0034 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0035 6944 |iD | Jump_Zero 0x17a 0036 e405 | | Load 0x2,0x5 0037 e099 | | Load 0x0,0x99 0038 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0039 4613 |F | Jump_Case 0x14 003a 7948 |yH | Jump 0x183 ; case 0x0 003b 7838 |x8 | Jump 0x74 ; case 0x1 003c 783b |x; | Jump 0x78 ; case 0x2 003d 7848 |xH | Jump 0x86 ; case 0x3 003e 787b |x{ | Jump 0xba ; case 0x4 003f 78f9 |x | Jump 0x139 ; case 0x5 0040 7906 |y | Jump 0x147 ; case 0x6 0041 7930 |y0 | Jump 0x172 ; case 0x7 0042 7933 |y3 | Jump 0x176 ; case 0x8 0043 7846 |xF | Jump 0x8a ; case 0x9 0044 7879 |xy | Jump 0xbe ; case 0xa 0045 78b6 |x | Jump 0xfc ; case 0xb 0046 7904 |y | Jump 0x14b ; case 0xc 0047 789a |x | Jump 0xe2 ; case 0xd 0048 78a6 |x | Jump 0xef ; case 0xe 0049 78e2 |x | Jump 0x12c ; case 0xf 004a 7893 |x | Jump 0xde ; case 0x10 004b 78dc |x | Jump 0x128 ; case 0x11 004c 7921 |y! | Jump 0x16e ; case 0x12 004d 7800 |x | Jump 0x4e ; case 0x13 004e 4800 |H | Short_Literal 0x0 004f 4801 |H | Short_Literal 0x1 0050 4800 |H | Short_Literal 0x0 0051 e405 | | Load 0x2,0x5 0052 e09a | | Load 0x0,0x9a 0053 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0054 4604 |F | Jump_Case 0x5 0055 7808 |x | Jump 0x5e ; case 0x0 0056 7811 |x | Jump 0x68 ; case 0x1 0057 7814 |x | Jump 0x6c ; case 0x2 0058 7817 |x | Jump 0x70 ; case 0x3 0059 7800 |x | Jump 0x5a ; case 0x4 005a 4800 |H | Short_Literal 0x0 005b e01d | | Load 0x0,0x1d 005c 380a |8 | Execute Record,Field_Write,Field_Number 0xa 005d 7925 |y% | Jump 0x183 005e 0092 01d2 | | Action Push_String_Extended,0x1d2 ; "Environment Justify_Mode" 0060 4800 |H | Short_Literal 0x0 0061 e405 | | Load 0x2,0x5 0062 e099 | | Load 0x0,0x99 0063 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0064 01cc | | Execute Vector,Catenate 0065 e01c | | Load 0x0,0x1c 0066 180e | | Execute Package,Field_Execute,Field_Number 0xe 0067 791b |y | Jump 0x183 0068 4803 |H | Short_Literal 0x3 0069 e01d | | Load 0x0,0x1d 006a 380a |8 | Execute Record,Field_Write,Field_Number 0xa 006b 7917 |y | Jump 0x183 006c 4801 |H | Short_Literal 0x1 006d e01d | | Load 0x0,0x1d 006e 380a |8 | Execute Record,Field_Write,Field_Number 0xa 006f 7913 |y | Jump 0x183 0070 4802 |H | Short_Literal 0x2 0071 e01d | | Load 0x0,0x1d 0072 380a |8 | Execute Record,Field_Write,Field_Number 0xa 0073 790f |y | Jump 0x183 0074 8408 | | Call 0x2,0x8 0075 e01d | | Load 0x0,0x1d 0076 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0077 790b |y | Jump 0x183 0078 8408 | | Call 0x2,0x8 0079 6807 |h | Jump_Zero 0x81 007a 4800 |H | Short_Literal 0x0 007b e01d | | Load 0x0,0x1d 007c 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 007d 4800 |H | Short_Literal 0x0 007e e01d | | Load 0x0,0x1d 007f 380a |8 | Execute Record,Field_Write,Field_Number 0xa 0080 7902 |y | Jump 0x183 0081 0092 01d3 | | Action Push_String_Extended,0x1d3 ; "Center=False is an unsupported Environment option" 0083 e01c | | Load 0x0,0x1c 0084 180e | | Execute Package,Field_Execute,Field_Number 0xe 0085 78fd |x | Jump 0x183 0086 8408 | | Call 0x2,0x8 0087 e01d | | Load 0x0,0x1d 0088 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 0089 78f9 |x | Jump 0x183 008a e011 | | Load 0x0,0x11 008b 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f 008c 00ea | | Load_Encached Null_String_Cache 008d 4800 |H | Short_Literal 0x0 008e e405 | | Load 0x2,0x5 008f e099 | | Load 0x0,0x99 0090 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0091 e020 | | Load 0x0,0x20 0092 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0093 e021 | ! | Load 0x0,0x21 0094 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0095 00d8 | | Load_Top At_Offset_0 0096 e021 | ! | Load 0x0,0x21 0097 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 0098 7003 |p | Jump_Nonzero 0x9c 0099 e022 | " | Load 0x0,0x22 009a 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 009b 0257 | W | Execute Discrete,Raise 009c 1818 | | Execute Package,Field_Execute,Field_Number 0x18 009d c403 | | Store 0x2,0x3 009e e403 | | Load 0x2,0x3 009f 700e |p | Jump_Nonzero 0xae 00a0 0092 01d4 | | Action Push_String_Extended,0x1d4 ; "Font family \x22" 00a2 00ea | | Load_Encached Null_String_Cache 00a3 4800 |H | Short_Literal 0x0 00a4 e405 | | Load 0x2,0x5 00a5 e099 | | Load 0x0,0x99 00a6 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 00a7 01cc | | Execute Vector,Catenate 00a8 0092 01d5 | | Action Push_String_Extended,0x1d5 ; "\x22 is undefined" 00aa 01cc | | Execute Vector,Catenate 00ab e01c | | Load 0x0,0x1c 00ac 180e | | Execute Package,Field_Execute,Field_Number 0xe 00ad 78d5 |x | Jump 0x183 00ae e403 | | Load 0x2,0x3 00af e01d | | Load 0x0,0x1d 00b0 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00b1 e02c | , | Load 0x0,0x2c 00b2 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00b3 70cf |p | Jump_Nonzero 0x183 00b4 e09b | | Load 0x0,0x9b 00b5 70cd |p | Jump_Nonzero 0x183 00b6 e403 | | Load 0x2,0x3 00b7 e030 | 0 | Load 0x0,0x30 00b8 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00b9 78c9 |x | Jump 0x183 00ba 8408 | | Call 0x2,0x8 00bb e01d | | Load 0x0,0x1d 00bc 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00bd 78c5 |x | Jump 0x183 00be 8406 | | Call 0x2,0x6 00bf e01d | | Load 0x0,0x1d 00c0 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 00c1 e01d | | Load 0x0,0x1d 00c2 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 00c3 e01d | | Load 0x0,0x1d 00c4 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 00c5 0273 | s | Execute Discrete,Plus 00c6 4be8 |K | Short_Literal 0x3e8 00c7 0271 | q | Execute Discrete,Times 00c8 e011 | | Load 0x0,0x11 00c9 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00ca 00d9 | | Load_Top At_Offset_1 00cb 00d0 | | Action Swap_Control 00cc 0260 | ` | Execute Discrete,In_Type 00cd 7001 |p | Jump_Nonzero 0xcf 00ce 0801 | | Execute_Immediate Raise,0x1 00cf e020 | | Load 0x0,0x20 00d0 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00d1 e021 | ! | Load 0x0,0x21 00d2 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 00d3 00d8 | | Load_Top At_Offset_0 00d4 e021 | ! | Load 0x0,0x21 00d5 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 00d6 7003 |p | Jump_Nonzero 0xda 00d7 e022 | " | Load 0x0,0x22 00d8 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 00d9 0257 | W | Execute Discrete,Raise 00da 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00db e01d | | Load 0x0,0x1d 00dc 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 00dd 78a5 |x | Jump 0x183 00de 8407 | | Call 0x2,0x7 00df e01d | | Load 0x0,0x1d 00e0 3818 |8 | Execute Record,Field_Write,Field_Number 0x18 00e1 78a1 |x | Jump 0x183 00e2 8407 | | Call 0x2,0x7 00e3 e01d | | Load 0x0,0x1d 00e4 3816 |8 | Execute Record,Field_Write,Field_Number 0x16 00e5 e02c | , | Load 0x0,0x2c 00e6 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00e7 709b |p | Jump_Nonzero 0x183 00e8 e09b | | Load 0x0,0x9b 00e9 7099 |p | Jump_Nonzero 0x183 00ea e01d | | Load 0x0,0x1d 00eb 3c16 |< | Execute Record,Field_Read,Field_Number 0x16 00ec e030 | 0 | Load 0x0,0x30 00ed 3816 |8 | Execute Record,Field_Write,Field_Number 0x16 00ee 7894 |x | Jump 0x183 00ef 8407 | | Call 0x2,0x7 00f0 e01d | | Load 0x0,0x1d 00f1 381b |8 | Execute Record,Field_Write,Field_Number 0x1b 00f2 e02c | , | Load 0x0,0x2c 00f3 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00f4 708e |p | Jump_Nonzero 0x183 00f5 e09b | | Load 0x0,0x9b 00f6 708c |p | Jump_Nonzero 0x183 00f7 e01d | | Load 0x0,0x1d 00f8 3c1b |< | Execute Record,Field_Read,Field_Number 0x1b 00f9 e030 | 0 | Load 0x0,0x30 00fa 381b |8 | Execute Record,Field_Write,Field_Number 0x1b 00fb 7887 |x | Jump 0x183 00fc 8406 | | Call 0x2,0x6 00fd e020 | | Load 0x0,0x20 00fe 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00ff e021 | ! | Load 0x0,0x21 0100 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0101 00d8 | | Load_Top At_Offset_0 0102 e021 | ! | Load 0x0,0x21 0103 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 0104 7003 |p | Jump_Nonzero 0x108 0105 e022 | " | Load 0x0,0x22 0106 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 0107 0257 | W | Execute Discrete,Raise 0108 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0109 e01d | | Load 0x0,0x1d 010a 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 010b e01d | | Load 0x0,0x1d 010c 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 010d e01d | | Load 0x0,0x1d 010e 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 010f 0273 | s | Execute Discrete,Plus 0110 4be8 |K | Short_Literal 0x3e8 0111 0271 | q | Execute Discrete,Times 0112 e011 | | Load 0x0,0x11 0113 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0114 00d9 | | Load_Top At_Offset_1 0115 00d0 | | Action Swap_Control 0116 0260 | ` | Execute Discrete,In_Type 0117 7001 |p | Jump_Nonzero 0x119 0118 0801 | | Execute_Immediate Raise,0x1 0119 e020 | | Load 0x0,0x20 011a 1b12 | | Execute Package,Field_Read,Field_Number 0x12 011b e021 | ! | Load 0x0,0x21 011c 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 011d 00d8 | | Load_Top At_Offset_0 011e e021 | ! | Load 0x0,0x21 011f 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 0120 7003 |p | Jump_Nonzero 0x124 0121 e022 | " | Load 0x0,0x22 0122 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 0123 0257 | W | Execute Discrete,Raise 0124 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0125 e01d | | Load 0x0,0x1d 0126 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 0127 785b |x[ | Jump 0x183 0128 8407 | | Call 0x2,0x7 0129 e01d | | Load 0x0,0x1d 012a 3819 |8 | Execute Record,Field_Write,Field_Number 0x19 012b 7857 |xW | Jump 0x183 012c 8407 | | Call 0x2,0x7 012d e01d | | Load 0x0,0x1d 012e 3817 |8 | Execute Record,Field_Write,Field_Number 0x17 012f e02c | , | Load 0x0,0x2c 0130 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0131 7051 |pQ | Jump_Nonzero 0x183 0132 e09b | | Load 0x0,0x9b 0133 704f |pO | Jump_Nonzero 0x183 0134 e01d | | Load 0x0,0x1d 0135 3c17 |< | Execute Record,Field_Read,Field_Number 0x17 0136 e030 | 0 | Load 0x0,0x30 0137 3817 |8 | Execute Record,Field_Write,Field_Number 0x17 0138 784a |xJ | Jump 0x183 0139 8408 | | Call 0x2,0x8 013a 6807 |h | Jump_Zero 0x142 013b 4800 |H | Short_Literal 0x0 013c e01d | | Load 0x0,0x1d 013d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 013e 4800 |H | Short_Literal 0x0 013f e01d | | Load 0x0,0x1d 0140 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0141 7841 |xA | Jump 0x183 0142 0092 01d6 | | Action Push_String_Extended,0x1d6 ; "Roman=False is an unsupported Environment option" 0144 e01c | | Load 0x0,0x1c 0145 180e | | Execute Package,Field_Execute,Field_Number 0xe 0146 783c |x< | Jump 0x183 0147 8408 | | Call 0x2,0x8 0148 e01d | | Load 0x0,0x1d 0149 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 014a 7838 |x8 | Jump 0x183 014b 8406 | | Call 0x2,0x6 014c e01d | | Load 0x0,0x1d 014d 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 014e 0272 | r | Execute Discrete,Minus 014f e01d | | Load 0x0,0x1d 0150 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 0151 e01d | | Load 0x0,0x1d 0152 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 0153 e01d | | Load 0x0,0x1d 0154 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0155 0273 | s | Execute Discrete,Plus 0156 4be8 |K | Short_Literal 0x3e8 0157 0271 | q | Execute Discrete,Times 0158 e011 | | Load 0x0,0x11 0159 1b10 | | Execute Package,Field_Read,Field_Number 0x10 015a 00d9 | | Load_Top At_Offset_1 015b 00d0 | | Action Swap_Control 015c 0260 | ` | Execute Discrete,In_Type 015d 7001 |p | Jump_Nonzero 0x15f 015e 0801 | | Execute_Immediate Raise,0x1 015f e020 | | Load 0x0,0x20 0160 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0161 e021 | ! | Load 0x0,0x21 0162 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0163 00d8 | | Load_Top At_Offset_0 0164 e021 | ! | Load 0x0,0x21 0165 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 0166 7003 |p | Jump_Nonzero 0x16a 0167 e022 | " | Load 0x0,0x22 0168 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 0169 0257 | W | Execute Discrete,Raise 016a 181c | | Execute Package,Field_Execute,Field_Number 0x1c 016b e01d | | Load 0x0,0x1d 016c 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 016d 7815 |x | Jump 0x183 016e 8407 | | Call 0x2,0x7 016f e01d | | Load 0x0,0x1d 0170 381a |8 | Execute Record,Field_Write,Field_Number 0x1a 0171 7811 |x | Jump 0x183 0172 8408 | | Call 0x2,0x8 0173 e01d | | Load 0x0,0x1d 0174 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0175 780d |x | Jump 0x183 0176 8408 | | Call 0x2,0x8 0177 e01d | | Load 0x0,0x1d 0178 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0179 7809 |x | Jump 0x183 017a 0092 01d7 | | Action Push_String_Extended,0x1d7 ; "Environment" 017c 4800 |H | Short_Literal 0x0 017d e405 | | Load 0x2,0x5 017e e099 | | Load 0x0,0x99 017f 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0180 01cc | | Execute Vector,Catenate 0181 e01c | | Load 0x0,0x1c 0182 180e | | Execute Package,Field_Execute,Field_Number 0xe 0183 e405 | | Load 0x2,0x5 0184 e099 | | Load 0x0,0x99 0185 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0186 c405 | | Store 0x2,0x5 0187 00c9 | | Action Pop_Auxiliary_Loop 0188 e405 | | Load 0x2,0x5 0189 e099 | | Load 0x0,0x99 018a 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 018b 6ea5 |n | Jump_Zero 0x31 018c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 018d 0000 0000 | | .XXX[0x3] 018f 0000 | | 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 019a | | .CONST 0x019a ; Address of begin 0191 01a2 | | .CONST 0x01a2 ; Address of exception handler 0192 0002 | | .CONST 0x0002 ; Number of locals 0193 INIT_0190: 0193 6020 |` | Indirect_Literal Discrete,0x1b4,{0x00000000, 0x7fffffff} 0194 4800 |H | Short_Literal 0x0 0195 e405 | | Load 0x2,0x5 0196 e099 | | Load 0x0,0x99 0197 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0198 00e2 | | Load_Encached Integer_Cache 0199 03f1 | | Declare_Variable Discrete,With_Value 019a BODY_0190: 019a 00d8 | | Load_Top At_Offset_0 019b 00d8 | | Load_Top At_Offset_0 019c e011 | | Load 0x0,0x11 019d 1b12 | | Execute Package,Field_Read,Field_Number 0x12 019e 0260 | ` | Execute Discrete,In_Type 019f 7001 |p | Jump_Nonzero 0x1a1 01a0 0801 | | Execute_Immediate Raise,0x1 01a1 00ca | | Action Exit_Nullary_Function 01a2 TRAP_0190: 01a2 0007 | | Action Break_Optional 01a3 0092 01d8 | | Action Push_String_Extended,0x1d8 ; "Bad point size in argument " 01a5 4800 |H | Short_Literal 0x0 01a6 e405 | | Load 0x2,0x5 01a7 e099 | | Load 0x0,0x99 01a8 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 01a9 01cc | | Execute Vector,Catenate 01aa 0092 01d9 | | Action Push_String_Extended,0x1d9 ; ". 10 assumed" 01ac 01cc | | Execute Vector,Catenate 01ad e01c | | Load 0x0,0x1c 01ae 180e | | Execute Package,Field_Execute,Field_Number 0xe 01af 480a |H | Short_Literal 0xa 01b0 00ca | | Action Exit_Nullary_Function 01b1 0000 0000 | | .XXX[0x3] 01b3 0000 | | 01b4 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01c0 | | .CONST 0x01c0 ; Address of begin 01b9 0004 | | .CONST 0x0004 ; Address of exception handler 01ba 0002 | | .CONST 0x0002 ; Number of locals 01bb INIT_01b8: 01bb 00ea | | Load_Encached Null_String_Cache 01bc 4800 |H | Short_Literal 0x0 01bd e405 | | Load 0x2,0x5 01be e099 | | Load 0x0,0x99 01bf 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 01c0 BODY_01b8: 01c0 00d8 | | Load_Top At_Offset_0 01c1 801b | | Call 0x0,0x1b 01c2 00ca | | Action Exit_Nullary_Function 01c3 0000 0000 | | .BLANK 0000[0x5] 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01cb | | .CONST 0x01cb ; Address of begin 01c9 0004 | | .CONST 0x0004 ; Address of exception handler 01ca 0001 | | .CONST 0x0001 ; Number of locals 01cb BODY_01c8: 01cb INIT_01c8: 01cb 4800 |H | Short_Literal 0x0 01cc 4800 |H | Short_Literal 0x0 01cd e405 | | Load 0x2,0x5 01ce e099 | | Load 0x0,0x99 01cf 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 01d0 00ca | | Action Exit_Nullary_Function 01d1 ; -------------------------------------------------------------------------------------- 01d1 ; STRING TABLE 01d1 ; -------------------------------------------------------------------------------------- 01d1 0014 | | .STRTAB 0x0014->0x01db ; "Argument to Environment was unrecognizable" 01d2 003c | < | .STRTAB 0x003c->0x01f0 ; "Environment Justify_Mode" 01d3 0052 | R | .STRTAB 0x0052->0x01fc ; "Center=False is an unsupported Environment option" 01d4 0081 | | .STRTAB 0x0081->0x0214 ; "Font family \x22" 01d5 008c | | .STRTAB 0x008c->0x021b ; "\x22 is undefined" 01d6 0098 | | .STRTAB 0x0098->0x0222 ; "Roman=False is an unsupported Environment option" 01d7 00c6 | | .STRTAB 0x00c6->0x023a ; "Environment" 01d8 00cf | | .STRTAB 0x00cf->0x023f ; "Bad point size in argument " 01d9 00e8 | | .STRTAB 0x00e8->0x024d ; ". 10 assumed" 01da 00f3 | | .STREND 0x00f3->0x0253 01db 4172 6775 |Argu| .STRTAB_STRINGS 0254 0000 0000 | | .BLANK 0000[0x4] 0258 ; -------------------------------------------------------------------------------------- 0258 ; Debug Table 0258 ; -------------------------------------------------------------------------------------- 0258 0004 000f | | .DEBUG4 0x0004,0x000f,0x4802,0x0000,0x0001,0x0000 025e 2cae 65c9 |, e | .XXX[0x24] 0260 8dee ecae | | 0262 4be8 6c2e |K l.| 0264 6ca0 0000 |l | 0266 00a0 0000 | | 0268 008d cdec | | 026a 8ca0 0000 | | 026c 0140 0000 | @ | 026e 0444 2a8d | D* | 0270 eded 8e65 | e| 0272 ca6e 8e4d | n M| 0274 2dcc ebea |- | 0276 ae8d 2d8d | - | 0278 2e8d 2cae |. , | 027a 65c9 8dee |e | 027c ecae 4be8 | K | 027e 6c2e 6ca0 |l.l | 0280 0000 0020 | | 0282 0000 0000 | | .BLANK 0000[0x5] 0287 05a0 0000 | | .XXX[0xb9] 0289 0000 0000 | | 028b 0580 0000 | | 028d 0600 0000 | | 028f 06ac cead | | 0291 cc6e 8d2d | n -| 0293 edc4 098d | | 0295 eeec ae4b | K| 0297 e86c 2e6c | l.l| 0299 a405 0864 | d| 029b 0744 086d | D m| 029d 0c2e 4c2c | .L,| 029f 6e8c ae45 |n E| 02a1 240e 4cae |$ L | 02a3 8eae 4dc4 | M | 02a5 086d 0c2e | m .| 02a7 4c2c 6e8c |L,n | 02a9 ae47 6000 | G` | 02ab 0005 c000 | | 02ad 0006 e404 | | 02af 0cce adcc | | 02b1 6e8d 2ded |n - | 02b3 c409 8dee | | 02b5 ecae 4be8 | K | 02b7 6c2e 6ca4 |l.l | 02b9 0508 6407 | d | 02bb 4408 6d0c |D m | 02bd 2e4c 2c6e |.L,n| 02bf 8cae 4524 | E$| 02c1 0e4c ae8e | L | 02c3 ae4d c408 | M | 02c5 6d0c 2e4c |m .L| 02c7 2c6e 8cae |,n | 02c9 4760 0000 |G` | 02cb 05c0 0000 | | 02cd 06e4 040c | | 02cf cead cc6e | n| 02d1 8d2d edc4 | - | 02d3 098d eeec | | 02d5 ae4b e86c | K l| 02d7 2e6c a405 |.l | 02d9 0864 0744 | d D| 02db 086d 0c2e | m .| 02dd 4c2c 6e8c |L,n | 02df ae45 240e | E$ | 02e1 4cae 8eae |L | 02e3 4dc4 086d |M m| 02e5 0c2e 4c2c | .L,| 02e7 6e8c ae47 |n G| 02e9 6000 000d |` | 02eb 0000 0005 | | 02ed ecce adcc | | 02ef 6e8d 2ded |n - | 02f1 c409 8dee | | 02f3 ecae 4be8 | K | 02f5 6c2e 6ca4 |l.l | 02f7 050a 6407 | d | 02f9 440a 6e8e |D n | 02fb 4d2d cce5 |M- | 02fd 240e 4cae |$ L | 02ff 8eae 4dc4 | M | 0301 0a6e 8e4d | n M| 0303 2dcc e760 |- `| 0305 0000 0cc0 | | 0307 0000 0624 | $| 0309 040c cead | | 030b cc6e 8d2d | n -| 030d edc4 098d | | 030f eeec ae4b | K| 0311 e86c 2e6c | l.l| 0313 a405 0a64 | d| 0315 0744 0a6e | D n| 0317 8e4d 2dcc | M- | 0319 e524 0e4c | $ L| 031b ae8e ae4d | M| 031d c40a 6e8e | n | 031f 4d2d cce7 |M- | 0321 6000 000c |` | 0323 c000 0006 | | 0325 2404 0cce |$ | 0327 adcc 6e8d | n | 0329 2ded c409 |- | 032b 8dee ecae | | 032d 4be8 6c2e |K l.| 032f 6ca4 050a |l | 0331 6407 440a |d D | 0333 6e8e 4d2d |n M-| 0335 cce5 240e | $ | 0337 4cae 8eae |L | 0339 4dc4 0a6e |M n| 033b 8e4d 2dcc | M- | 033d e760 0000 | ` | 033f 0020 | | 0340 0000 0000 | | .BLANK 0000[0x5] 0345 0300 0000 | | .XXX[0xbb] 0347 0000 0000 | | 0349 02e0 0000 | | 034b 0360 0000 | ` | 034d 074a 4cae | JL | 034f 8eae 4dce | M | 0351 640e 8d0c |d | 0353 a40e 6e0c | n | 0355 ac6d 2ccd | m, | 0357 2cac 840c |, | 0359 6d0c 2e4c |m .L| 035b 2c6e 8cae |,n | 035d 440d ee44 |D D| 035f 0e6e 8e4d | n M| 0361 2dcc e40d |- | 0363 2dc4 0c2d |- -| 0365 8d84 0d8d | | 0367 eeec ae4c | L| 0369 6c2e 6ca0 |l.l | 036b 0000 0320 | | 036d 0000 0784 | | 036f 040a 4cae | L | 0371 8eae 4dce | M | 0373 640e 8d0c |d | 0375 a40e 6e0c | n | 0377 ac6d 2ccd | m, | 0379 2cac 840c |, | 037b 6d0c 2e4c |m .L| 037d 2c6e 8cae |,n | 037f 440d ee44 |D D| 0381 0e6e 8e4d | n M| 0383 2dcc e40d |- | 0385 2dc4 0c2d |- -| 0387 8d84 0d8d | | 0389 eeec ae4c | L| 038b 6c2e 6ca0 |l.l | 038d 0000 0320 | | 038f 0000 0784 | | 0391 040a 4cae | L | 0393 8eae 4dce | M | 0395 640e 8d0c |d | 0397 a40e 6e0c | n | 0399 ac6d 2ccd | m, | 039b 2cac 840c |, | 039d 6d0c 2e4c |m .L| 039f 2c6e 8cae |,n | 03a1 440d ee44 |D D| 03a3 0e6e 8e4d | n M| 03a5 2dcc e40d |- | 03a7 2dc4 0c2d |- -| 03a9 8d84 0d8d | | 03ab eeec ae4c | L| 03ad 6c2e 6ca0 |l.l | 03af 0000 0b00 | | 03b1 0000 016c | l| 03b3 6d0c 2e4c |m .L| 03b5 2c6e 8cae |,n | 03b7 4e65 c000 |Ne | 03b9 000a c000 | | 03bb 0001 a404 | | 03bd 0c6d 0c2e | m .| 03bf 4c2c 6e8c |L,n | 03c1 ae4e 65c0 | Ne | 03c3 0000 0ac0 | | 03c5 0000 01a4 | | 03c7 040c 6d0c | m | 03c9 2e4c 2c6e |.L,n| 03cb 8cae 4e65 | Ne| 03cd c000 000c | | 03cf c000 0005 | | 03d1 080d cdec | | 03d3 8ca4 042a | *| 03d5 8ded ed8e | | 03d7 65ca 6e8e |e n | 03d9 4d2d cceb |M- | 03db eaae 8d2d | -| 03dd 8d2e 8d2c | . ,| 03df ae65 c98d | e | 03e1 eeec ae4b | K| 03e3 e86c 2e6c | l.l| 03e5 a000 000c | | 03e7 e000 0000 | | 03e9 8dcd ec8c | | 03eb a000 000d | | 03ed 8000 0004 | | 03ef 442a 8ded |D* | 03f1 ed8e 65ca | e | 03f3 6e8e 4d2d |n M-| 03f5 cceb eaae | | 03f7 8d2d 8d2e | - .| 03f9 8d2c ae65 | , e| 03fb c98d eeec | | 03fd ae4b e86c | K l| 03ff 2e6c |.l |