|
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: 3072 (0xc00) 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 0458 | X | .CONST 0x0458 ; 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 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0111 | | .CONST 0x0111 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001f | | .CONST 0x001f ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 4804 |H | Short_Literal 0x4 000d 029f 011b | | Declare_Subprogram INIT_0118,For_Call 000f 03fe | | Declare_Type Discrete,Defined,Visible 0010 4800 |H | Short_Literal 0x0 0011 480f |H | Short_Literal 0xf 0012 00e3 | | Load_Encached Natural_Cache 0013 03f9 | | Declare_Type Discrete,Constrained,Visible 0014 00c4 | | Action Make_Default 0015 00c4 | | Action Make_Default 0016 00c4 | | Action Make_Default 0017 00c4 | | Action Make_Default 0018 00c4 | | Action Make_Default 0019 00c4 | | Action Make_Default 001a 00c4 | | Action Make_Default 001b 00c4 | | Action Make_Default 001c 00c4 | | Action Make_Default 001d 00c4 | | Action Make_Default 001e 00c4 | | Action Make_Default 001f 00c4 | | Action Make_Default 0020 00c4 | | Action Make_Default 0021 00c4 | | Action Make_Default 0022 4801 |H | Short_Literal 0x1 0023 480f |H | Short_Literal 0xf 0024 e20e | | Load 0x1,0xe 0025 03f9 | | Declare_Type Discrete,Constrained,Visible 0026 c217 | | Store 0x1,0x17 0027 4801 |H | Short_Literal 0x1 0028 480f |H | Short_Literal 0xf 0029 00e2 | | Load_Encached Integer_Cache 002a 02a0 | | Declare_Subprogram Null_Subprogram 002b 4801 |H | Short_Literal 0x1 002c 035e | ^ | Declare_Type Array,Defined,Visible 002d c218 | | Store 0x1,0x18 002e e001 | | Load 0x0,0x1 002f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0030 00e1 | | Load_Encached Boolean_Cache 0031 e20e | | Load 0x1,0xe 0032 e218 | | Load 0x1,0x18 0033 029f 03eb | | Declare_Subprogram INIT_03e8,For_Call 0035 4804 |H | Short_Literal 0x4 0036 032e | . | Declare_Type Record,Defined,Visible 0037 c214 | | Store 0x1,0x14 0038 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated 003a c215 | | Store 0x1,0x15 003b 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated 003d c216 | | Store 0x1,0x16 003e 029a 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call,Visible,Unelaborated 0040 c213 | | Store 0x1,0x13 0041 00bf | | Action Accept_Activation 0042 00e3 | | Load_Encached Natural_Cache 0043 00e8 | | Load_Encached Character_Cache 0044 00e8 | | Load_Encached Character_Cache 0045 02a0 | | Declare_Subprogram Null_Subprogram 0046 4803 |H | Short_Literal 0x3 0047 032d | - | Declare_Type Record,Defined 0048 4801 |H | Short_Literal 0x1 0049 480d |H | Short_Literal 0xd 004a e21d | | Load 0x1,0x1d 004b 02a0 | | Declare_Subprogram Null_Subprogram 004c 4801 |H | Short_Literal 0x1 004d 035d | ] | Declare_Type Array,Defined 004e 00d8 | | Load_Top At_Offset_0 004f 0337 | 7 | Declare_Variable Array 0050 00d8 | | Load_Top At_Offset_0 0051 0335 | 5 | Declare_Variable Array,Duplicate 0052 00cd | | Action Spare6_Action 0053 e21d | | Load 0x1,0x1d 0054 0322 | " | Declare_Variable Record 0055 4be8 |K | Short_Literal 0x3e8 0056 e221 | ! | Load 0x1,0x21 0057 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0058 486d |Hm | Short_Literal 0x6d 0059 e221 | ! | Load 0x1,0x21 005a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 005b 4820 |H | Short_Literal 0x20 005c e221 | ! | Load 0x1,0x21 005d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 005e 4801 |H | Short_Literal 0x1 005f e220 | | Load 0x1,0x20 0060 01d6 | | Execute Vector,Field_Write 0061 e21d | | Load 0x1,0x1d 0062 0322 | " | Declare_Variable Record 0063 4b84 |K | Short_Literal 0x384 0064 e221 | ! | Load 0x1,0x21 0065 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0066 4863 |Hc | Short_Literal 0x63 0067 e221 | ! | Load 0x1,0x21 0068 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0069 486d |Hm | Short_Literal 0x6d 006a e221 | ! | Load 0x1,0x21 006b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 006c 4802 |H | Short_Literal 0x2 006d e220 | | Load 0x1,0x20 006e 01d6 | | Execute Vector,Field_Write 006f e21d | | Load 0x1,0x1d 0070 0322 | " | Declare_Variable Record 0071 49f4 |I | Short_Literal 0x1f4 0072 e221 | ! | Load 0x1,0x21 0073 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0074 4864 |Hd | Short_Literal 0x64 0075 e221 | ! | Load 0x1,0x21 0076 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0077 4820 |H | Short_Literal 0x20 0078 e221 | ! | Load 0x1,0x21 0079 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 007a 4803 |H | Short_Literal 0x3 007b e220 | | Load 0x1,0x20 007c 01d6 | | Execute Vector,Field_Write 007d e21d | | Load 0x1,0x1d 007e 0322 | " | Declare_Variable Record 007f 4990 |I | Short_Literal 0x190 0080 e221 | ! | Load 0x1,0x21 0081 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0082 4863 |Hc | Short_Literal 0x63 0083 e221 | ! | Load 0x1,0x21 0084 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0085 4864 |Hd | Short_Literal 0x64 0086 e221 | ! | Load 0x1,0x21 0087 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0088 4804 |H | Short_Literal 0x4 0089 e220 | | Load 0x1,0x20 008a 01d6 | | Execute Vector,Field_Write 008b e21d | | Load 0x1,0x1d 008c 0322 | " | Declare_Variable Record 008d 4864 |Hd | Short_Literal 0x64 008e e221 | ! | Load 0x1,0x21 008f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0090 4863 |Hc | Short_Literal 0x63 0091 e221 | ! | Load 0x1,0x21 0092 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0093 4820 |H | Short_Literal 0x20 0094 e221 | ! | Load 0x1,0x21 0095 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0096 4805 |H | Short_Literal 0x5 0097 e220 | | Load 0x1,0x20 0098 01d6 | | Execute Vector,Field_Write 0099 e21d | | Load 0x1,0x1d 009a 0322 | " | Declare_Variable Record 009b 485a |HZ | Short_Literal 0x5a 009c e221 | ! | Load 0x1,0x21 009d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 009e 4878 |Hx | Short_Literal 0x78 009f e221 | ! | Load 0x1,0x21 00a0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00a1 4863 |Hc | Short_Literal 0x63 00a2 e221 | ! | Load 0x1,0x21 00a3 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00a4 4806 |H | Short_Literal 0x6 00a5 e220 | | Load 0x1,0x20 00a6 01d6 | | Execute Vector,Field_Write 00a7 e21d | | Load 0x1,0x1d 00a8 0322 | " | Declare_Variable Record 00a9 4832 |H2 | Short_Literal 0x32 00aa e221 | ! | Load 0x1,0x21 00ab 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00ac 486c |Hl | Short_Literal 0x6c 00ad e221 | ! | Load 0x1,0x21 00ae 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00af 4820 |H | Short_Literal 0x20 00b0 e221 | ! | Load 0x1,0x21 00b1 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00b2 4807 |H | Short_Literal 0x7 00b3 e220 | | Load 0x1,0x20 00b4 01d6 | | Execute Vector,Field_Write 00b5 e21d | | Load 0x1,0x1d 00b6 0322 | " | Declare_Variable Record 00b7 4828 |H( | Short_Literal 0x28 00b8 e221 | ! | Load 0x1,0x21 00b9 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00ba 4878 |Hx | Short_Literal 0x78 00bb e221 | ! | Load 0x1,0x21 00bc 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00bd 486c |Hl | Short_Literal 0x6c 00be e221 | ! | Load 0x1,0x21 00bf 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00c0 4808 |H | Short_Literal 0x8 00c1 e220 | | Load 0x1,0x20 00c2 01d6 | | Execute Vector,Field_Write 00c3 e21d | | Load 0x1,0x1d 00c4 0322 | " | Declare_Variable Record 00c5 480a |H | Short_Literal 0xa 00c6 e221 | ! | Load 0x1,0x21 00c7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00c8 4878 |Hx | Short_Literal 0x78 00c9 e221 | ! | Load 0x1,0x21 00ca 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00cb 4820 |H | Short_Literal 0x20 00cc e221 | ! | Load 0x1,0x21 00cd 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00ce 4809 |H | Short_Literal 0x9 00cf e220 | | Load 0x1,0x20 00d0 01d6 | | Execute Vector,Field_Write 00d1 e21d | | Load 0x1,0x1d 00d2 0322 | " | Declare_Variable Record 00d3 4809 |H | Short_Literal 0x9 00d4 e221 | ! | Load 0x1,0x21 00d5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00d6 4869 |Hi | Short_Literal 0x69 00d7 e221 | ! | Load 0x1,0x21 00d8 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00d9 4878 |Hx | Short_Literal 0x78 00da e221 | ! | Load 0x1,0x21 00db 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00dc 480a |H | Short_Literal 0xa 00dd e220 | | Load 0x1,0x20 00de 01d6 | | Execute Vector,Field_Write 00df e21d | | Load 0x1,0x1d 00e0 0322 | " | Declare_Variable Record 00e1 4805 |H | Short_Literal 0x5 00e2 e221 | ! | Load 0x1,0x21 00e3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00e4 4876 |Hv | Short_Literal 0x76 00e5 e221 | ! | Load 0x1,0x21 00e6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00e7 4820 |H | Short_Literal 0x20 00e8 e221 | ! | Load 0x1,0x21 00e9 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00ea 480b |H | Short_Literal 0xb 00eb e220 | | Load 0x1,0x20 00ec 01d6 | | Execute Vector,Field_Write 00ed e21d | | Load 0x1,0x1d 00ee 0322 | " | Declare_Variable Record 00ef 4804 |H | Short_Literal 0x4 00f0 e221 | ! | Load 0x1,0x21 00f1 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00f2 4869 |Hi | Short_Literal 0x69 00f3 e221 | ! | Load 0x1,0x21 00f4 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00f5 4876 |Hv | Short_Literal 0x76 00f6 e221 | ! | Load 0x1,0x21 00f7 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00f8 480c |H | Short_Literal 0xc 00f9 e220 | | Load 0x1,0x20 00fa 01d6 | | Execute Vector,Field_Write 00fb e21d | | Load 0x1,0x1d 00fc 0322 | " | Declare_Variable Record 00fd 4801 |H | Short_Literal 0x1 00fe e221 | ! | Load 0x1,0x21 00ff 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0100 4869 |Hi | Short_Literal 0x69 0101 e221 | ! | Load 0x1,0x21 0102 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0103 4820 |H | Short_Literal 0x20 0104 e221 | ! | Load 0x1,0x21 0105 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0106 480d |H | Short_Literal 0xd 0107 e220 | | Load 0x1,0x20 0108 01d6 | | Execute Vector,Field_Write 0109 e21f | | Load 0x1,0x1f 010a 01d4 | | Execute Vector,Structure_Write 010b 1d15 | | Execute_Immediate Reference_Lex_1,0x15 010c 00c7 | | Action Elaborate_Subprogram 010d 1d16 | | Execute_Immediate Reference_Lex_1,0x16 010e 00c7 | | Action Elaborate_Subprogram 010f 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0110 00c7 | | Action Elaborate_Subprogram 0111 BODY_0008: 0111 00bc | | Action Signal_Activated 0112 00bb | | Action Signal_Completion 0113 0000 0000 | | .BLANK 0000[0x5] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011b | | .CONST 0x011b ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0001 | | .CONST 0x0001 ; Number of locals 011b BODY_0118: 011b INIT_0118: 011b 4607 |F | Jump_Case 0x8 011c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 011d 7806 |x | Jump 0x124 ; case 0x1 011e 7809 |x | Jump 0x128 ; case 0x2 011f 780d |x | Jump 0x12d ; case 0x3 0120 7810 |x | Jump 0x131 ; case 0x4 0121 7811 |x | Jump 0x133 ; case 0x5 0122 7812 |x | Jump 0x135 ; case 0x6 0123 7815 |x | Jump 0x139 ; case 0x7 0124 00da | | Load_Top At_Offset_2 0125 0091 040e | | Action Push_String_Extended_Indexed,0x40e ; "ARABIC" 0127 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0128 00db | | Load_Top At_Offset_3 0129 00db | | Load_Top At_Offset_3 012a 00e0 | | Load_Encached Standard_Cache 012b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 012c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 012d 00da | | Load_Top At_Offset_2 012e 00e0 | | Load_Encached Standard_Cache 012f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0130 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0131 00db | | Load_Top At_Offset_3 0132 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0133 00db | | Load_Top At_Offset_3 0134 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0135 e20d | | Load 0x1,0xd 0136 00dc | | Load_Top At_Offset_4 0137 0267 | g | Execute Discrete,Predecessor 0138 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0139 e20d | | Load 0x1,0xd 013a 00dc | | Load_Top At_Offset_4 013b 0268 | h | Execute Discrete,Successor 013c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 013d 0000 0000 | | .XXX[0x3] 013f 0000 | | 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0151 | Q | .CONST 0x0151 ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0005 | | .CONST 0x0005 ; Number of locals 0143 INIT_0140: 0143 e5ff | | Load 0x2,-0x1 0144 00e3 | | Load_Encached Natural_Cache 0145 03f1 | | Declare_Variable Discrete,With_Value 0146 e5fd | | Load 0x2,-0x3 0147 e001 | | Load 0x0,0x1 0148 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0149 1813 | | Execute Package,Field_Execute,Field_Number 0x13 014a 0a01 | | Execute_Immediate Plus,0x1 014b 00e3 | | Load_Encached Natural_Cache 014c 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 014d 029f 0393 | | Declare_Subprogram INIT_0390,For_Call 014f 029f 03bb | | Declare_Subprogram INIT_03b8,For_Call 0151 BODY_0140: 0151 e402 | | Load 0x2,0x2 0152 7007 |p | Jump_Nonzero 0x15a 0153 e5fd | | Load 0x2,-0x3 0154 4830 |H0 | Short_Literal 0x30 0155 e001 | | Load 0x0,0x1 0156 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0157 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0158 c5fd | | Store 0x2,-0x3 0159 4503 |E | Exit_Suprogram New_Top_Offset 0x3 015a e5fe | | Load 0x2,-0x2 015b 4604 |F | Jump_Case 0x5 015c 7826 |x& | Jump 0x183 ; case 0x0 015d 7831 |x1 | Jump 0x18f ; case 0x1 015e 7839 |x9 | Jump 0x198 ; case 0x2 015f 7841 |xA | Jump 0x1a1 ; case 0x3 0160 7800 |x | Jump 0x161 ; case 0x4 0161 00cf | | Action Mark_Auxiliary 0162 781b |x | Jump 0x17e 0163 e5fd | | Load 0x2,-0x3 0164 e402 | | Load 0x2,0x2 0165 0aff | | Execute_Immediate Plus,-0x1 0166 481a |H | Short_Literal 0x1a 0167 026e | n | Execute Discrete,Modulo 0168 0a41 | A | Execute_Immediate Plus,0x41 0169 00d8 | | Load_Top At_Offset_0 016a 00e8 | | Load_Encached Character_Cache 016b 0260 | ` | Execute Discrete,In_Type 016c 7001 |p | Jump_Nonzero 0x16e 016d 0801 | | Execute_Immediate Raise,0x1 016e e403 | | Load 0x2,0x3 016f 00d8 | | Load_Top At_Offset_0 0170 00e4 | | Load_Encached Positive_Cache 0171 0260 | ` | Execute Discrete,In_Type 0172 7001 |p | Jump_Nonzero 0x174 0173 0801 | | Execute_Immediate Raise,0x1 0174 e001 | | Load 0x0,0x1 0175 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0176 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0177 c5fd | | Store 0x2,-0x3 0178 e402 | | Load 0x2,0x2 0179 0aff | | Execute_Immediate Plus,-0x1 017a 481a |H | Short_Literal 0x1a 017b 0270 | p | Execute Discrete,Divide 017c c402 | | Store 0x2,0x2 017d 00c9 | | Action Pop_Auxiliary_Loop 017e e402 | | Load 0x2,0x2 017f 0c01 | | Execute_Immediate Greater_Equal,0x1 0180 77e2 |w | Jump_Nonzero 0x163 0181 00ce | | Action Pop_Auxiliary 0182 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0183 e5fd | | Load 0x2,-0x3 0184 4820 |H | Short_Literal 0x20 0185 4800 |H | Short_Literal 0x0 0186 480a |H | Short_Literal 0xa 0187 e402 | | Load 0x2,0x2 0188 e002 | | Load 0x0,0x2 0189 1816 | | Execute Package,Field_Execute,Field_Number 0x16 018a e001 | | Load 0x0,0x1 018b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 018c 181d | | Execute Package,Field_Execute,Field_Number 0x1d 018d c5fd | | Store 0x2,-0x3 018e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 018f 00cf | | Action Mark_Auxiliary 0190 e21f | | Load 0x1,0x1f 0191 01d9 | | Execute Vector,Reverse_Bounds 0192 0007 | | Action Break_Optional 0193 8404 | | Call 0x2,0x4 0194 00c8 | | Action Pop_Auxiliary_Range 0195 3ffd |? | Loop_Increasing 0x193 0196 00ce | | Action Pop_Auxiliary 0197 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0198 00cf | | Action Mark_Auxiliary 0199 e21f | | Load 0x1,0x1f 019a 01d9 | | Execute Vector,Reverse_Bounds 019b 0007 | | Action Break_Optional 019c 8405 | | Call 0x2,0x5 019d 00c8 | | Action Pop_Auxiliary_Range 019e 3ffd |? | Loop_Increasing 0x19c 019f 00ce | | Action Pop_Auxiliary 01a0 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01a1 00cf | | Action Mark_Auxiliary 01a2 781b |x | Jump 0x1be 01a3 e5fd | | Load 0x2,-0x3 01a4 e402 | | Load 0x2,0x2 01a5 0aff | | Execute_Immediate Plus,-0x1 01a6 481a |H | Short_Literal 0x1a 01a7 026e | n | Execute Discrete,Modulo 01a8 0a61 | a | Execute_Immediate Plus,0x61 01a9 00d8 | | Load_Top At_Offset_0 01aa 00e8 | | Load_Encached Character_Cache 01ab 0260 | ` | Execute Discrete,In_Type 01ac 7001 |p | Jump_Nonzero 0x1ae 01ad 0801 | | Execute_Immediate Raise,0x1 01ae e403 | | Load 0x2,0x3 01af 00d8 | | Load_Top At_Offset_0 01b0 00e4 | | Load_Encached Positive_Cache 01b1 0260 | ` | Execute Discrete,In_Type 01b2 7001 |p | Jump_Nonzero 0x1b4 01b3 0801 | | Execute_Immediate Raise,0x1 01b4 e001 | | Load 0x0,0x1 01b5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01b6 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 01b7 c5fd | | Store 0x2,-0x3 01b8 e402 | | Load 0x2,0x2 01b9 0aff | | Execute_Immediate Plus,-0x1 01ba 481a |H | Short_Literal 0x1a 01bb 0270 | p | Execute Discrete,Divide 01bc c402 | | Store 0x2,0x2 01bd 00c9 | | Action Pop_Auxiliary_Loop 01be e402 | | Load 0x2,0x2 01bf 0c01 | | Execute_Immediate Greater_Equal,0x1 01c0 77e2 |w | Jump_Nonzero 0x1a3 01c1 00ce | | Action Pop_Auxiliary 01c2 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01c3 0000 0000 | | .BLANK 0000[0x5] 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01d9 | | .CONST 0x01d9 ; Address of begin 01c9 032b | + | .CONST 0x032b ; Address of exception handler 01ca 0008 | | .CONST 0x0008 ; Number of locals 01cb INIT_01c8: 01cb e20e | | Load 0x1,0xe 01cc 0007 | | Action Break_Optional 01cd 00d8 | | Load_Top At_Offset_0 01ce 0007 | | Action Break_Optional 01cf 00e3 | | Load_Encached Natural_Cache 01d0 e5ff | | Load 0x2,-0x1 01d1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01d2 e001 | | Load 0x0,0x1 01d3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01d4 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01d5 e001 | | Load 0x0,0x1 01d6 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01d7 00e1 | | Load_Encached Boolean_Cache 01d8 00e1 | | Load_Encached Boolean_Cache 01d9 BODY_01c8: 01d9 e5ff | | Load 0x2,-0x1 01da 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01db 6803 |h | Jump_Zero 0x1df 01dc 4801 |H | Short_Literal 0x1 01dd a402 | | Store_Unchecked 0x2,0x2 01de 7803 |x | Jump 0x1e2 01df e5ff | | Load 0x2,-0x1 01e0 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01e1 a402 | | Store_Unchecked 0x2,0x2 01e2 e5ff | | Load 0x2,-0x1 01e3 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01e4 a403 | | Store_Unchecked 0x2,0x3 01e5 e405 | | Load 0x2,0x5 01e6 01dd | | Execute Vector,First 01e7 c404 | | Store 0x2,0x4 01e8 00cf | | Action Mark_Auxiliary 01e9 e402 | | Load 0x2,0x2 01ea 0aff | | Execute_Immediate Plus,-0x1 01eb 4801 |H | Short_Literal 0x1 01ec 0263 | c | Execute Discrete,Above_Bound 01ed 701a |p | Jump_Nonzero 0x208 01ee 00cf | | Action Mark_Auxiliary 01ef e404 | | Load 0x2,0x4 01f0 e405 | | Load 0x2,0x5 01f1 01d7 | | Execute Vector,Field_Read 01f2 0f7e | ~ | Execute_Immediate Equal,0x7e 01f3 680c |h | Jump_Zero 0x200 01f4 e404 | | Load 0x2,0x4 01f5 0a01 | | Execute_Immediate Plus,0x1 01f6 c404 | | Store 0x2,0x4 01f7 e404 | | Load 0x2,0x4 01f8 e405 | | Load 0x2,0x5 01f9 01d7 | | Execute Vector,Field_Read 01fa 0f7c | | | Execute_Immediate Equal,0x7c 01fb 6804 |h | Jump_Zero 0x200 01fc e404 | | Load 0x2,0x4 01fd 0a01 | | Execute_Immediate Plus,0x1 01fe c404 | | Store 0x2,0x4 01ff 7805 |x | Jump 0x205 0200 e404 | | Load 0x2,0x4 0201 0a01 | | Execute_Immediate Plus,0x1 0202 c404 | | Store 0x2,0x4 0203 00c9 | | Action Pop_Auxiliary_Loop 0204 7fea | | Jump 0x1ef 0205 00ce | | Action Pop_Auxiliary 0206 00c8 | | Action Pop_Auxiliary_Range 0207 3fe6 |? | Loop_Increasing 0x1ee 0208 00ce | | Action Pop_Auxiliary 0209 4801 |H | Short_Literal 0x1 020a a407 | | Store_Unchecked 0x2,0x7 020b 00cf | | Action Mark_Auxiliary 020c 4801 |H | Short_Literal 0x1 020d a408 | | Store_Unchecked 0x2,0x8 020e 00cf | | Action Mark_Auxiliary 020f 78fe |x | Jump 0x30e 0210 00cf | | Action Mark_Auxiliary 0211 78ea |x | Jump 0x2fc 0212 e404 | | Load 0x2,0x4 0213 0a01 | | Execute_Immediate Plus,0x1 0214 c404 | | Store 0x2,0x4 0215 e404 | | Load 0x2,0x4 0216 e405 | | Load 0x2,0x5 0217 01d7 | | Execute Vector,Field_Read 0218 00d8 | | Load_Top At_Offset_0 0219 0d2b | + | Execute_Immediate Less,0x2b 021a 7063 |pc | Jump_Nonzero 0x27e 021b 0ad5 | | Execute_Immediate Plus,-0x2b 021c 4654 |FT | Jump_Case 0x55 021d 78b8 |x | Jump 0x2d6 ; case 0x0 021e 7853 |xS | Jump 0x272 ; case 0x1 021f 78c3 |x | Jump 0x2e3 ; case 0x2 0220 7851 |xQ | Jump 0x272 ; case 0x3 0221 7850 |xP | Jump 0x272 ; case 0x4 0222 784f |xO | Jump 0x272 ; case 0x5 0223 785c |x\ | Jump 0x280 ; case 0x6 0224 784d |xM | Jump 0x272 ; case 0x7 0225 784c |xL | Jump 0x272 ; case 0x8 0226 784b |xK | Jump 0x272 ; case 0x9 0227 784a |xJ | Jump 0x272 ; case 0xa 0228 7849 |xI | Jump 0x272 ; case 0xb 0229 7848 |xH | Jump 0x272 ; case 0xc 022a 7847 |xG | Jump 0x272 ; case 0xd 022b 7846 |xF | Jump 0x272 ; case 0xe 022c 7845 |xE | Jump 0x272 ; case 0xf 022d 7844 |xD | Jump 0x272 ; case 0x10 022e 7843 |xC | Jump 0x272 ; case 0x11 022f 7842 |xB | Jump 0x272 ; case 0x12 0230 7841 |xA | Jump 0x272 ; case 0x13 0231 7840 |x@ | Jump 0x272 ; case 0x14 0232 783f |x? | Jump 0x272 ; case 0x15 0233 786c |xl | Jump 0x2a0 ; case 0x16 0234 783d |x= | Jump 0x272 ; case 0x17 0235 783c |x< | Jump 0x272 ; case 0x18 0236 783b |x; | Jump 0x272 ; case 0x19 0237 783a |x: | Jump 0x272 ; case 0x1a 0238 7839 |x9 | Jump 0x272 ; case 0x1b 0239 7838 |x8 | Jump 0x272 ; case 0x1c 023a 7837 |x7 | Jump 0x272 ; case 0x1d 023b 7884 |x | Jump 0x2c0 ; case 0x1e 023c 7835 |x5 | Jump 0x272 ; case 0x1f 023d 7834 |x4 | Jump 0x272 ; case 0x20 023e 7833 |x3 | Jump 0x272 ; case 0x21 023f 7832 |x2 | Jump 0x272 ; case 0x22 0240 7831 |x1 | Jump 0x272 ; case 0x23 0241 7830 |x0 | Jump 0x272 ; case 0x24 0242 782f |x/ | Jump 0x272 ; case 0x25 0243 782e |x. | Jump 0x272 ; case 0x26 0244 782d |x- | Jump 0x272 ; case 0x27 0245 782c |x, | Jump 0x272 ; case 0x28 0246 782b |x+ | Jump 0x272 ; case 0x29 0247 782a |x* | Jump 0x272 ; case 0x2a 0248 7829 |x) | Jump 0x272 ; case 0x2b 0249 7828 |x( | Jump 0x272 ; case 0x2c 024a 7827 |x' | Jump 0x272 ; case 0x2d 024b 7826 |x& | Jump 0x272 ; case 0x2e 024c 7825 |x% | Jump 0x272 ; case 0x2f 024d 7824 |x$ | Jump 0x272 ; case 0x30 024e 7823 |x# | Jump 0x272 ; case 0x31 024f 7822 |x" | Jump 0x272 ; case 0x32 0250 7821 |x! | Jump 0x272 ; case 0x33 0251 7820 |x | Jump 0x272 ; case 0x34 0252 781f |x | Jump 0x272 ; case 0x35 0253 783c |x< | Jump 0x290 ; case 0x36 0254 781d |x | Jump 0x272 ; case 0x37 0255 781c |x | Jump 0x272 ; case 0x38 0256 781b |x | Jump 0x272 ; case 0x39 0257 781a |x | Jump 0x272 ; case 0x3a 0258 7819 |x | Jump 0x272 ; case 0x3b 0259 7818 |x | Jump 0x272 ; case 0x3c 025a 7817 |x | Jump 0x272 ; case 0x3d 025b 7854 |xT | Jump 0x2b0 ; case 0x3e 025c 7815 |x | Jump 0x272 ; case 0x3f 025d 7814 |x | Jump 0x272 ; case 0x40 025e 7813 |x | Jump 0x272 ; case 0x41 025f 7812 |x | Jump 0x272 ; case 0x42 0260 7811 |x | Jump 0x272 ; case 0x43 0261 7810 |x | Jump 0x272 ; case 0x44 0262 780f |x | Jump 0x272 ; case 0x45 0263 780e |x | Jump 0x272 ; case 0x46 0264 780d |x | Jump 0x272 ; case 0x47 0265 780c |x | Jump 0x272 ; case 0x48 0266 780b |x | Jump 0x272 ; case 0x49 0267 780a |x | Jump 0x272 ; case 0x4a 0268 7809 |x | Jump 0x272 ; case 0x4b 0269 7808 |x | Jump 0x272 ; case 0x4c 026a 7807 |x | Jump 0x272 ; case 0x4d 026b 7806 |x | Jump 0x272 ; case 0x4e 026c 7805 |x | Jump 0x272 ; case 0x4f 026d 7804 |x | Jump 0x272 ; case 0x50 026e 7861 |xa | Jump 0x2d0 ; case 0x51 026f 7802 |x | Jump 0x272 ; case 0x52 0270 7890 |x | Jump 0x301 ; case 0x53 0271 7800 |x | Jump 0x272 ; case 0x54 0272 e404 | | Load 0x2,0x4 0273 e405 | | Load 0x2,0x5 0274 01d7 | | Execute Vector,Field_Read 0275 0092 0413 | | Action Push_String_Extended,0x413 ; "'~" 0277 01cb | | Execute Vector,Append 0278 0092 0414 | | Action Push_String_Extended,0x414 ; "' isn't a valid number control sequence" 027a 01cc | | Execute Vector,Catenate 027b e003 | | Load 0x0,0x3 027c 180e | | Execute Package,Field_Execute,Field_Number 0xe 027d 7872 |xr | Jump 0x2f0 027e 00d1 | | Pop_Control Pop_Count_1 027f 7ff2 | | Jump 0x272 0280 e406 | | Load 0x2,0x6 0281 4800 |H | Short_Literal 0x0 0282 e402 | | Load 0x2,0x2 0283 e5ff | | Load 0x2,-0x1 0284 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0285 01d7 | | Execute Vector,Field_Read 0286 00d8 | | Load_Top At_Offset_0 0287 00e3 | | Load_Encached Natural_Cache 0288 0260 | ` | Execute Discrete,In_Type 0289 7001 |p | Jump_Nonzero 0x28b 028a 0801 | | Execute_Immediate Raise,0x1 028b 8215 | | Call 0x1,0x15 028c c406 | | Store 0x2,0x6 028d 4800 |H | Short_Literal 0x0 028e a408 | | Store_Unchecked 0x2,0x8 028f 7860 |x` | Jump 0x2f0 0290 e406 | | Load 0x2,0x6 0291 4803 |H | Short_Literal 0x3 0292 e402 | | Load 0x2,0x2 0293 e5ff | | Load 0x2,-0x1 0294 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0295 01d7 | | Execute Vector,Field_Read 0296 00d8 | | Load_Top At_Offset_0 0297 00e3 | | Load_Encached Natural_Cache 0298 0260 | ` | Execute Discrete,In_Type 0299 7001 |p | Jump_Nonzero 0x29b 029a 0801 | | Execute_Immediate Raise,0x1 029b 8215 | | Call 0x1,0x15 029c c406 | | Store 0x2,0x6 029d 4800 |H | Short_Literal 0x0 029e a408 | | Store_Unchecked 0x2,0x8 029f 7850 |xP | Jump 0x2f0 02a0 e406 | | Load 0x2,0x6 02a1 4804 |H | Short_Literal 0x4 02a2 e402 | | Load 0x2,0x2 02a3 e5ff | | Load 0x2,-0x1 02a4 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 02a5 01d7 | | Execute Vector,Field_Read 02a6 00d8 | | Load_Top At_Offset_0 02a7 00e3 | | Load_Encached Natural_Cache 02a8 0260 | ` | Execute Discrete,In_Type 02a9 7001 |p | Jump_Nonzero 0x2ab 02aa 0801 | | Execute_Immediate Raise,0x1 02ab 8215 | | Call 0x1,0x15 02ac c406 | | Store 0x2,0x6 02ad 4800 |H | Short_Literal 0x0 02ae a408 | | Store_Unchecked 0x2,0x8 02af 7840 |x@ | Jump 0x2f0 02b0 e406 | | Load 0x2,0x6 02b1 4801 |H | Short_Literal 0x1 02b2 e402 | | Load 0x2,0x2 02b3 e5ff | | Load 0x2,-0x1 02b4 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 02b5 01d7 | | Execute Vector,Field_Read 02b6 00d8 | | Load_Top At_Offset_0 02b7 00e3 | | Load_Encached Natural_Cache 02b8 0260 | ` | Execute Discrete,In_Type 02b9 7001 |p | Jump_Nonzero 0x2bb 02ba 0801 | | Execute_Immediate Raise,0x1 02bb 8215 | | Call 0x1,0x15 02bc c406 | | Store 0x2,0x6 02bd 4800 |H | Short_Literal 0x0 02be a408 | | Store_Unchecked 0x2,0x8 02bf 7830 |x0 | Jump 0x2f0 02c0 e406 | | Load 0x2,0x6 02c1 4802 |H | Short_Literal 0x2 02c2 e402 | | Load 0x2,0x2 02c3 e5ff | | Load 0x2,-0x1 02c4 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 02c5 01d7 | | Execute Vector,Field_Read 02c6 00d8 | | Load_Top At_Offset_0 02c7 00e3 | | Load_Encached Natural_Cache 02c8 0260 | ` | Execute Discrete,In_Type 02c9 7001 |p | Jump_Nonzero 0x2cb 02ca 0801 | | Execute_Immediate Raise,0x1 02cb 8215 | | Call 0x1,0x15 02cc c406 | | Store 0x2,0x6 02cd 4800 |H | Short_Literal 0x0 02ce a408 | | Store_Unchecked 0x2,0x8 02cf 7820 |x | Jump 0x2f0 02d0 e404 | | Load 0x2,0x4 02d1 0a01 | | Execute_Immediate Plus,0x1 02d2 c404 | | Store 0x2,0x4 02d3 00ce | | Action Pop_Auxiliary 02d4 00ce | | Action Pop_Auxiliary 02d5 783e |x> | Jump 0x314 02d6 e404 | | Load 0x2,0x4 02d7 0a01 | | Execute_Immediate Plus,0x1 02d8 c404 | | Store 0x2,0x4 02d9 e408 | | Load 0x2,0x8 02da 6803 |h | Jump_Zero 0x2de 02db e407 | | Load 0x2,0x7 02dc 7013 |p | Jump_Nonzero 0x2f0 02dd 7823 |x# | Jump 0x301 02de e402 | | Load 0x2,0x2 02df e403 | | Load 0x2,0x3 02e0 027c | | | Execute Discrete,Less 02e1 680e |h | Jump_Zero 0x2f0 02e2 781e |x | Jump 0x301 02e3 e404 | | Load 0x2,0x4 02e4 0a01 | | Execute_Immediate Plus,0x1 02e5 c404 | | Store 0x2,0x4 02e6 e408 | | Load 0x2,0x8 02e7 6803 |h | Jump_Zero 0x2eb 02e8 e407 | | Load 0x2,0x7 02e9 6806 |h | Jump_Zero 0x2f0 02ea 7816 |x | Jump 0x301 02eb e402 | | Load 0x2,0x2 02ec e403 | | Load 0x2,0x3 02ed 027b | { | Execute Discrete,Greater_Equal 02ee 6801 |h | Jump_Zero 0x2f0 02ef 7811 |x | Jump 0x301 02f0 e404 | | Load 0x2,0x4 02f1 0a01 | | Execute_Immediate Plus,0x1 02f2 c404 | | Store 0x2,0x4 02f3 e404 | | Load 0x2,0x4 02f4 e405 | | Load 0x2,0x5 02f5 01dc | | Execute Vector,Last 02f6 027d | } | Execute Discrete,Greater 02f7 6803 |h | Jump_Zero 0x2fb 02f8 00ce | | Action Pop_Auxiliary 02f9 00ce | | Action Pop_Auxiliary 02fa 7819 |x | Jump 0x314 02fb 00c9 | | Action Pop_Auxiliary_Loop 02fc e404 | | Load 0x2,0x4 02fd e405 | | Load 0x2,0x5 02fe 01d7 | | Execute Vector,Field_Read 02ff 0f7e | ~ | Execute_Immediate Equal,0x7e 0300 7711 |w | Jump_Nonzero 0x212 0301 00ce | | Action Pop_Auxiliary 0302 e406 | | Load 0x2,0x6 0303 e404 | | Load 0x2,0x4 0304 e405 | | Load 0x2,0x5 0305 01d7 | | Execute Vector,Field_Read 0306 e001 | | Load 0x0,0x1 0307 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0308 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0309 c406 | | Store 0x2,0x6 030a e404 | | Load 0x2,0x4 030b 0a01 | | Execute_Immediate Plus,0x1 030c c404 | | Store 0x2,0x4 030d 00c9 | | Action Pop_Auxiliary_Loop 030e e404 | | Load 0x2,0x4 030f e405 | | Load 0x2,0x5 0310 01dc | | Execute Vector,Last 0311 027a | z | Execute Discrete,Less_Equal 0312 76fd |v | Jump_Nonzero 0x210 0313 00ce | | Action Pop_Auxiliary 0314 e5fe | | Load 0x2,-0x2 0315 e406 | | Load 0x2,0x6 0316 e001 | | Load 0x0,0x1 0317 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0318 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0319 c5fe | | Store 0x2,-0x2 031a e406 | | Load 0x2,0x6 031b e001 | | Load 0x0,0x1 031c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 031d 1812 | | Execute Package,Field_Execute,Field_Number 0x12 031e c406 | | Store 0x2,0x6 031f e402 | | Load 0x2,0x2 0320 e403 | | Load 0x2,0x3 0321 027b | { | Execute Discrete,Greater_Equal 0322 7007 |p | Jump_Nonzero 0x32a 0323 e402 | | Load 0x2,0x2 0324 0a01 | | Execute_Immediate Plus,0x1 0325 c402 | | Store 0x2,0x2 0326 4800 |H | Short_Literal 0x0 0327 a407 | | Store_Unchecked 0x2,0x7 0328 00c9 | | Action Pop_Auxiliary_Loop 0329 7ee2 |~ | Jump 0x20c 032a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 032b TRAP_01c8: 032b 010e | | Execute Exception,Is_Constraint_Error 032c 6811 |h | Jump_Zero 0x33e 032d 0092 0415 | | Action Push_String_Extended,0x415 ; "Malformed number pattern '" 032f e405 | | Load 0x2,0x5 0330 01cc | | Execute Vector,Catenate 0331 0092 0416 | | Action Push_String_Extended,0x416 ; "'" 0333 01cc | | Execute Vector,Catenate 0334 e003 | | Load 0x0,0x3 0335 180e | | Execute Package,Field_Execute,Field_Number 0xe 0336 e5fe | | Load 0x2,-0x2 0337 0092 0417 | | Action Push_String_Extended,0x417 ; " ERROR " 0339 e001 | | Load 0x0,0x1 033a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 033b 181d | | Execute Package,Field_Execute,Field_Number 0x1d 033c c5fe | | Store 0x2,-0x2 033d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 033e 0100 | | Execute Exception,Raise 033f 0000 | | .XXX[0x1] 0340 ; -------------------------------------------------------------------------------------- 0340 ; SUBPROGRAM 0340 ; -------------------------------------------------------------------------------------- 0340 0343 | C | .CONST 0x0343 ; Address of begin 0341 0004 | | .CONST 0x0004 ; Address of exception handler 0342 0001 | | .CONST 0x0001 ; Number of locals 0343 BODY_0340: 0343 INIT_0340: 0343 e5ff | | Load 0x2,-0x1 0344 e5fe | | Load 0x2,-0x2 0345 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0346 027f | | Execute Discrete,Equal 0347 7002 |p | Jump_Nonzero 0x34a 0348 e5ff | | Load 0x2,-0x1 0349 700c |p | Jump_Nonzero 0x356 034a e5fe | | Load 0x2,-0x2 034b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 034c e5fe | | Load 0x2,-0x2 034d 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 034e 01d7 | | Execute Vector,Field_Read 034f 0a01 | | Execute_Immediate Plus,0x1 0350 e5fe | | Load 0x2,-0x2 0351 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0352 e5fe | | Load 0x2,-0x2 0353 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0354 01d6 | | Execute Vector,Field_Write 0355 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0356 e5ff | | Load 0x2,-0x1 0357 e5fe | | Load 0x2,-0x2 0358 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0359 027c | | | Execute Discrete,Less 035a 680a |h | Jump_Zero 0x365 035b e5ff | | Load 0x2,-0x1 035c e5fe | | Load 0x2,-0x2 035d 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 035e 01d7 | | Execute Vector,Field_Read 035f 0a01 | | Execute_Immediate Plus,0x1 0360 e5ff | | Load 0x2,-0x1 0361 e5fe | | Load 0x2,-0x2 0362 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0363 01d6 | | Execute Vector,Field_Write 0364 7821 |x! | Jump 0x386 0365 00cf | | Action Mark_Auxiliary 0366 e5fe | | Load 0x2,-0x2 0367 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0368 4801 |H | Short_Literal 0x1 0369 0263 | c | Execute Discrete,Above_Bound 036a 700c |p | Jump_Nonzero 0x377 036b 00d8 | | Load_Top At_Offset_0 036c e5fe | | Load 0x2,-0x2 036d 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 036e 01d7 | | Execute Vector,Field_Read 036f 7005 |p | Jump_Nonzero 0x375 0370 4801 |H | Short_Literal 0x1 0371 e404 | | Load 0x2,0x4 0372 e5fe | | Load 0x2,-0x2 0373 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0374 01d6 | | Execute Vector,Field_Write 0375 00c8 | | Action Pop_Auxiliary_Range 0376 3ff4 |? | Loop_Increasing 0x36b 0377 00c9 | | Action Pop_Auxiliary_Loop 0378 e5ff | | Load 0x2,-0x1 0379 e5fe | | Load 0x2,-0x2 037a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 037b 0a01 | | Execute_Immediate Plus,0x1 037c 0263 | c | Execute Discrete,Above_Bound 037d 7007 |p | Jump_Nonzero 0x385 037e 4801 |H | Short_Literal 0x1 037f e404 | | Load 0x2,0x4 0380 e5fe | | Load 0x2,-0x2 0381 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0382 01d6 | | Execute Vector,Field_Write 0383 00c8 | | Action Pop_Auxiliary_Range 0384 3ff9 |? | Loop_Increasing 0x37e 0385 00ce | | Action Pop_Auxiliary 0386 e5ff | | Load 0x2,-0x1 0387 e5fe | | Load 0x2,-0x2 0388 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0389 4502 |E | Exit_Suprogram New_Top_Offset 0x2 038a 0000 0000 | | .BLANK 0000[0x6] 0390 ; -------------------------------------------------------------------------------------- 0390 ; SUBPROGRAM 0390 ; -------------------------------------------------------------------------------------- 0390 0396 | | .CONST 0x0396 ; Address of begin 0391 0004 | | .CONST 0x0004 ; Address of exception handler 0392 0002 | | .CONST 0x0002 ; Number of locals 0393 INIT_0390: 0393 e408 | | Load 0x2,0x8 0394 e21f | | Load 0x1,0x1f 0395 01d5 | | Execute Vector,Field_Reference 0396 BODY_0390: 0396 00cf | | Action Mark_Auxiliary 0397 7818 |x | Jump 0x3b0 0398 e5fd | | Load 0x2,-0x3 0399 e602 | | Load 0x3,0x2 039a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 039b e001 | | Load 0x0,0x1 039c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 039d 181e | | Execute Package,Field_Execute,Field_Number 0x1e 039e c5fd | | Store 0x2,-0x3 039f e602 | | Load 0x3,0x2 03a0 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 03a1 0e20 | | Execute_Immediate Not_Equal,0x20 03a2 6807 |h | Jump_Zero 0x3aa 03a3 e5fd | | Load 0x2,-0x3 03a4 e602 | | Load 0x3,0x2 03a5 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 03a6 e001 | | Load 0x0,0x1 03a7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03a8 181e | | Execute Package,Field_Execute,Field_Number 0x1e 03a9 c5fd | | Store 0x2,-0x3 03aa e402 | | Load 0x2,0x2 03ab e602 | | Load 0x3,0x2 03ac 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03ad 0272 | r | Execute Discrete,Minus 03ae c402 | | Store 0x2,0x2 03af 00c9 | | Action Pop_Auxiliary_Loop 03b0 e402 | | Load 0x2,0x2 03b1 e602 | | Load 0x3,0x2 03b2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03b3 027b | { | Execute Discrete,Greater_Equal 03b4 77e3 |w | Jump_Nonzero 0x398 03b5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03b6 0000 0000 | | .XXX[0x2] 03b8 ; -------------------------------------------------------------------------------------- 03b8 ; SUBPROGRAM 03b8 ; -------------------------------------------------------------------------------------- 03b8 03be | | .CONST 0x03be ; Address of begin 03b9 0004 | | .CONST 0x0004 ; Address of exception handler 03ba 0002 | | .CONST 0x0002 ; Number of locals 03bb INIT_03b8: 03bb e408 | | Load 0x2,0x8 03bc e21f | | Load 0x1,0x1f 03bd 01d5 | | Execute Vector,Field_Reference 03be BODY_03b8: 03be 00cf | | Action Mark_Auxiliary 03bf 781c |x | Jump 0x3dc 03c0 e5fd | | Load 0x2,-0x3 03c1 e602 | | Load 0x3,0x2 03c2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 03c3 e002 | | Load 0x0,0x2 03c4 1810 | | Execute Package,Field_Execute,Field_Number 0x10 03c5 e001 | | Load 0x0,0x1 03c6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03c7 181e | | Execute Package,Field_Execute,Field_Number 0x1e 03c8 c5fd | | Store 0x2,-0x3 03c9 e602 | | Load 0x3,0x2 03ca 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 03cb 0e20 | | Execute_Immediate Not_Equal,0x20 03cc 6809 |h | Jump_Zero 0x3d6 03cd e5fd | | Load 0x2,-0x3 03ce e602 | | Load 0x3,0x2 03cf 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 03d0 e002 | | Load 0x0,0x2 03d1 1810 | | Execute Package,Field_Execute,Field_Number 0x10 03d2 e001 | | Load 0x0,0x1 03d3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03d4 181e | | Execute Package,Field_Execute,Field_Number 0x1e 03d5 c5fd | | Store 0x2,-0x3 03d6 e402 | | Load 0x2,0x2 03d7 e602 | | Load 0x3,0x2 03d8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03d9 0272 | r | Execute Discrete,Minus 03da c402 | | Store 0x2,0x2 03db 00c9 | | Action Pop_Auxiliary_Loop 03dc e402 | | Load 0x2,0x2 03dd e602 | | Load 0x3,0x2 03de 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03df 027b | { | Execute Discrete,Greater_Equal 03e0 77df |w | Jump_Nonzero 0x3c0 03e1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03e2 0000 0000 | | .BLANK 0000[0x6] 03e8 ; -------------------------------------------------------------------------------------- 03e8 ; SUBPROGRAM 03e8 ; -------------------------------------------------------------------------------------- 03e8 03eb | | .CONST 0x03eb ; Address of begin 03e9 0004 | | .CONST 0x0004 ; Address of exception handler 03ea 0001 | | .CONST 0x0001 ; Number of locals 03eb BODY_03e8: 03eb INIT_03e8: 03eb 4608 |F | Jump_Case 0x9 03ec 7808 |x | Jump 0x3f5 ; case 0x0 03ed 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 03ee 781e |x | Jump 0x40d ; case 0x2 03ef 781d |x | Jump 0x40d ; case 0x3 03f0 781c |x | Jump 0x40d ; case 0x4 03f1 781b |x | Jump 0x40d ; case 0x5 03f2 781a |x | Jump 0x40d ; case 0x6 03f3 7819 |x | Jump 0x40d ; case 0x7 03f4 7818 |x | Jump 0x40d ; case 0x8 03f5 4801 |H | Short_Literal 0x1 03f6 e5ff | | Load 0x2,-0x1 03f7 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 03f8 4801 |H | Short_Literal 0x1 03f9 e5ff | | Load 0x2,-0x1 03fa 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 03fb e214 | | Load 0x1,0x14 03fc 3003 |0 | Execute Record,Field_Type,Field_Number 0x3 03fd 0337 | 7 | Declare_Variable Array 03fe 480f |H | Short_Literal 0xf 03ff 4801 |H | Short_Literal 0x1 0400 4800 |H | Short_Literal 0x0 0401 e404 | | Load 0x2,0x4 0402 e402 | | Load 0x2,0x2 0403 01d6 | | Execute Vector,Field_Write 0404 3ffb |? | Loop_Increasing 0x400 0405 e5ff | | Load 0x2,-0x1 0406 00d9 | | Load_Top At_Offset_1 0407 00d9 | | Load_Top At_Offset_1 0408 3003 |0 | Execute Record,Field_Type,Field_Number 0x3 0409 0119 | | Execute Any,Check_In_Formal_Type 040a 00d1 | | Pop_Control Pop_Count_1 040b 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 040c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 040d 0869 | i | Execute_Immediate Raise,0x69 040e ; -------------------------------------------------------------------------------------- 040e ; STRING TABLE 040e ; -------------------------------------------------------------------------------------- 040e 0016 | | .STRTAB 0x0016->0x0419 ; "ARABIC" 040f 001a | | .STRTAB 0x001a->0x041c ; "LOWER_ROMAN" 0410 0023 | # | .STRTAB 0x0023->0x0421 ; "UPPER_ROMAN" 0411 002c | , | .STRTAB 0x002c->0x0427 ; "LOWER_ALPHA" 0412 0035 | 5 | .STRTAB 0x0035->0x042c ; "UPPER_ALPHA" 0413 003e | > | .STRTAB 0x003e->0x0432 ; "'~" 0414 003e | > | .STRTAB 0x003e->0x0433 ; "' isn't a valid number control sequence" 0415 0063 | c | .STRTAB 0x0063->0x0446 ; "Malformed number pattern '" 0416 007b | { | .STRTAB 0x007b->0x0453 ; "'" 0417 007a | z | .STRTAB 0x007a->0x0454 ; " ERROR " 0418 007f | | .STREND 0x007f->0x0457 0419 4152 4142 |ARAB| .STRTAB_STRINGS 0458 ; -------------------------------------------------------------------------------------- 0458 ; Debug Table 0458 ; -------------------------------------------------------------------------------------- 0458 0004 000f | | .DEBUG4 0x0004,0x000f,0x430f,0x0000,0x0001,0x0000 045e da80 301e | 0 | .XXX[0x1a2] 0460 2304 9a17 |# | 0462 8a01 6814 | h | 0464 9780 769c | v | 0466 9cf0 dc60 | `| 0468 8714 0468 | h| 046a f5d2 84e0 | | 046c 802c cf83 | , | 046e 1052 280e | R( | 0470 c9ac 8d15 | | 0472 c701 b41a | | 0474 30a0 39e3 |0 9 | 0476 d024 2f1c | $/ | 0478 064a f936 | J 6| 047a 8495 c028 | (| 047c e43a 2118 | :! | 047e c82b 1c04 | + | 0480 2335 7f84 |#5 | 0482 e382 9fe7 | | 0484 8790 89a8 | | 0486 e1dc fb33 | 3| 0488 09c5 0303 | | 048a b30c 270f | ' | 048c 51c0 b814 |Q | 048e 6617 9200 |f | 0490 da8a c240 | @| 0492 7001 1e6d |p m| 0494 c438 c4de | 8 | 0496 149c 5ed0 | ^ | 0498 966e 4072 | n@r| 049a c399 e85a | Z| 049c 480c 3264 |H 2d| 049e ed3a f49a | : | 04a0 334d 5e23 |3M^#| 04a2 8c30 5b88 | 0[ | 04a4 e226 14e1 | & | 04a6 3ad3 9812 |: | 04a8 0073 c3a3 | s | 04aa ec56 580e | VX | 04ac 223f 6d20 |"?m | 04ae 6365 05a4 |ce | 04b0 0940 3901 | @9 | 04b2 44d0 e3d6 |D | 04b4 1396 001c | | 04b6 8655 4d0a | UM | 04b8 e0a4 b01c | | 04ba d17a ba71 | z q| 04bc b109 cf02 | | 04be 622d 45a0 |b-E | 04c0 3801 4200 |8 B | 04c2 e49c 039a | | 04c4 003f 9923 | ? #| 04c6 4473 829b |Ds | 04c8 85aa 18e6 | | 04ca fe69 853a | i :| 04cc c49a 69ce | i | 04ce 8ae4 a4d0 | | 04d0 1ca0 e734 | 4| 04d2 05a9 351b | 5 | 04d4 84e5 031a | | 04d6 e4a4 f01f | | 04d8 0344 5264 | DRd| 04da f25c a790 | \ | 04dc e680 4c23 | L#| 04de a192 ee70 | p| 04e0 e73c 0472 | < r| 04e2 9247 88e6 | G | 04e4 036f 979a | o | 04e6 7002 700d |p p | 04e8 aa02 6d09 | m | 04ea d002 7e4d | ~M| 04ec 4620 3be1 |F ; | 04ee cd18 ebb6 | | 04f0 5645 3909 |VE9 | 04f2 9e93 4ebb | N | 04f4 2499 101f |$ | 04f6 80d4 a675 | u| 04f8 0b39 389d | 98 | 04fa 7ccf 48a7 || H | 04fc d44c 5a88 | LZ | 04fe 0c59 b629 | Y )| 0500 31d2 0215 |1 | 0502 cd4e 603b | N`;| 0504 429c a4cb |B | 0506 5d91 4f21 |] O!| 0508 d303 e7af | | 050a 57a7 8590 |W | 050c 4e98 0e89 |N | 050e 9ebf 39e0 | 9 | 0510 92ae 4c7a | Lz| 0512 e4a5 501f | P | 0514 708d ee76 |p v| 0516 3e28 ce9c |>( | 0518 eb00 7c66 | |f| 051a 2150 1ec1 |!P | 051c 758a 27a8 |u ' | 051e 0331 67f9 | 1g | 0520 4476 83c2 |Dv | 0522 e896 b80c | | 0524 8a1b ae01 | | 0526 ef36 63c1 | 6c | 0528 3f59 3110 |?Y1 | 052a eb60 2764 | `'d| 052c 063e 297c | >)|| 052e 88ee 019b | | 0530 203a 2069 | : i| 0532 3803 6004 |8 ` | 0534 4699 7994 |F y | 0536 ec81 54e4 | T | 0538 05c0 1e10 | | 053a 8374 0652 | t R| 053c 70ce 84ef |p | 053e 036d 2441 | m$A| 0540 a09a 3877 | 8w| 0542 b213 be01 | | 0544 5b90 ed83 |[ | 0546 cb20 a1f0 | | 0548 1ce3 6498 | d | 054a 020d 04ec | | 054c 84f1 813b | ;| 054e 0d36 101c | 6 | 0550 93d7 0a27 | '| 0552 c202 4590 | E | 0554 f380 7320 | s | 0556 9a30 1d63 | 0 c| 0558 8898 02c4 | | 055a 90ef 86ea | | 055c b266 212e | f!.| 055e c84f 280c | O( | 0560 01fa 3109 | 1 | 0562 e603 da3d | =| 0564 34a0 3c42 |4 <B| 0566 3db4 2b94 |= + | 0568 0792 c527 | '| 056a 84f1 83a1 | | 056c c826 e343 | & C| 056e a027 9c06 | ' | 0570 c133 378c | 37 | 0572 f103 cb88 | | 0574 a670 1c41 | p A| 0576 8cea 7a63 | zc| 0578 09e7 02bb | | 057a 9628 e03c | ( <| 057c c1c8 c82b | +| 057e 9c04 86d6 | | 0580 eb94 f382 | | 0582 32d8 a690 |2 | 0584 1d30 eb66 | 0 f| 0586 13d2 0069 | i| 0588 9f37 cf1b | 7 | 058a 24a2 901e |$ | 058c 136a da47 | j G| 058e d002 eb32 | 2| 0590 ce40 7b42 | @{B| 0592 3105 e7a8 |1 | 0594 27a4 05d6 |' | 0596 fa7b 9e75 | { u| 0598 bd4d 603e | M`>| 059a 8390 60f7 | ` | 059c 6610 2e61 |f .a| 059e 2988 f402 |) | 05a0 db1f d273 | s| 05a2 b4c4 29cc | ) | 05a4 3fb1 1ea2 |? | 05a6 9ec7 97a4 | | 05a8 e405 e039 | 9| 05aa e89c de17 | | 05ac da02 116f | o| 05ae 0340 7b01 | @{ | 05b0 c32c ff68 | , h| 05b2 0e59 2edf | Y. | 05b4 11ed 003e | >| 05b6 ad5e a546 | ^ F| 05b8 a84e 3027 | N0'| 05ba bc07 6711 | g | 05bc ed03 0bc0 | | 05be 7b42 5fe4 |{B_ | 05c0 9778 0d41 | x A| 05c2 a1e1 14f7 | | 05c4 52a0 c83d |R =| 05c6 8c9f 101c | | 05c8 f12e 225b | ."[| 05ca e002 c984 | | 05cc 969a 6660 | f`| 05ce 3f20 9798 |? | 05d0 0e8a 6db1 | m | 05d2 09f5 0338 | 8| 05d4 b672 a03f | r ?| 05d6 8155 b82b | U +| 05d8 d407 252a | %*| 05da 7a84 f983 |z | 05dc 88e4 0602 | | 05de 6fd7 5cda |o \ | 05e0 17ee 011f | | 05e2 1498 81ae | | 05e4 a09f 701e | p | 05e6 f1e4 f217 | | 05e8 ee03 5e93 | ^ | 05ea 99c4 7cc2 | | | 05ec 6d10 5fb8 |m _ | 05ee 0e91 7dd7 | } | 05f0 2df4 0179 |- y| 05f2 9fce 24a7 | $ | 05f4 701d d1bc |p | 05f6 d804 5603 | V | 05f8 5b9d 981a |[ | 05fa 32e0 3cc2 |2 < | 05fc dac0 f8ee | | 05fe 7cac 2b60 || +`|