|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0340e4
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0390 | | .CONST 0x0390 ; 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 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 00ae | | .CONST 0x00ae ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0031 | 1 | .CONST 0x0031 ; Number of locals 000b INIT_0008: 000b 4805 |H | Short_Literal 0x5 000c 032b | + | Declare_Type Record,Incomplete,Visible 000d 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated 000f 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated 0011 4803 |H | Short_Literal 0x3 0012 032b | + | Declare_Type Record,Incomplete,Visible 0013 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated 0015 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated 0017 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated 0019 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated 001b 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated 001d 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated 001f 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated 0021 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated 0023 4805 |H | Short_Literal 0x5 0024 032b | + | Declare_Type Record,Incomplete,Visible 0025 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated 0027 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated 0029 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated 002b 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated 002d 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated 002f e001 | | Load 0x0,0x1 0030 e002 | | Load 0x0,0x2 0031 4850 |HP | Short_Literal 0x50 0032 e003 | | Load 0x0,0x3 0033 0387 | | Declare_Variable Package 0034 00d8 | | Load_Top At_Offset_0 0035 020f | | Execute Module,Activate 0036 00e4 | | Load_Encached Positive_Cache 0037 e004 | | Load 0x0,0x4 0038 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a 0039 00e1 | | Load_Encached Boolean_Cache 003a 00db | | Load_Top At_Offset_3 003b 1b11 | | Execute Package,Field_Read,Field_Number 0x11 003c e004 | | Load 0x0,0x4 003d 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 003e e211 | | Load 0x1,0x11 003f 029f 031b | | Declare_Subprogram INIT_0318,For_Call 0041 4806 |H | Short_Literal 0x6 0042 032d | - | Declare_Type Record,Defined 0043 029b 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Unelaborated 0045 e005 | | Load 0x0,0x5 0046 e006 | | Load 0x0,0x6 0047 e20f | | Load 0x1,0xf 0048 00e5 | | Load_Encached Long_Integer_Cache 0049 e226 | & | Load 0x1,0x26 004a 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 004b e007 | | Load 0x0,0x7 004c 0387 | | Declare_Variable Package 004d 00d8 | | Load_Top At_Offset_0 004e 020f | | Execute Module,Activate 004f e008 | | Load 0x0,0x8 0050 e009 | | Load 0x0,0x9 0051 e20f | | Load 0x1,0xf 0052 00e5 | | Load_Encached Long_Integer_Cache 0053 e004 | | Load 0x0,0x4 0054 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0055 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 0056 e007 | | Load 0x0,0x7 0057 0387 | | Declare_Variable Package 0058 00d8 | | Load_Top At_Offset_0 0059 020f | | Execute Module,Activate 005a e00a | | Load 0x0,0xa 005b e00b | | Load 0x0,0xb 005c e20f | | Load 0x1,0xf 005d 00e3 | | Load_Encached Natural_Cache 005e 4801 |H | Short_Literal 0x1 005f e00c | | Load 0x0,0xc 0060 0387 | | Declare_Variable Package 0061 00d8 | | Load_Top At_Offset_0 0062 020f | | Execute Module,Activate 0063 00e3 | | Load_Encached Natural_Cache 0064 00db | | Load_Top At_Offset_3 0065 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0066 00da | | Load_Top At_Offset_2 0067 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0068 e229 | ) | Load 0x1,0x29 0069 1b13 | | Execute Package,Field_Read,Field_Number 0x13 006a e229 | ) | Load 0x1,0x29 006b 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 006c 029f 0343 | C| Declare_Subprogram INIT_0340,For_Call 006e e213 | | Load 0x1,0x13 006f 0326 | & | Complete_Type Record,By_Defining 0070 4801 |H | Short_Literal 0x1 0071 e20f | | Load 0x1,0xf 0072 e226 | & | Load 0x1,0x26 0073 029f 01e3 | | Declare_Subprogram INIT_01e0,For_Call 0075 4801 |H | Short_Literal 0x1 0076 035d | ] | Declare_Type Array,Defined 0077 00e4 | | Load_Encached Positive_Cache 0078 00e4 | | Load_Encached Positive_Cache 0079 00da | | Load_Top At_Offset_2 007a 029f 035b | [| Declare_Subprogram INIT_0358,For_Call 007c e216 | | Load 0x1,0x16 007d 0326 | & | Complete_Type Record,By_Defining 007e e213 | | Load 0x1,0x13 007f e21f | | Load 0x1,0x1f 0080 0325 | % | Complete_Type Record,By_Renaming 0081 00bf | | Action Accept_Activation 0082 0092 036a | j| Action Push_String_Extended,0x36a ; "\x22*\x22" 0084 0092 036b | k| Action Push_String_Extended,0x36b ; "\x22=\x22" 0086 0092 036c | l| Action Push_String_Extended,0x36c ; "\x22+\x22" 0088 0092 036d | m| Action Push_String_Extended,0x36d ; "\x22-\x22" 008a 1d14 | | Execute_Immediate Reference_Lex_1,0x14 008b 00c7 | | Action Elaborate_Subprogram 008c 029d 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call 008e 1d15 | | Execute_Immediate Reference_Lex_1,0x15 008f 00c7 | | Action Elaborate_Subprogram 0090 029d 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call 0092 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0093 00c7 | | Action Elaborate_Subprogram 0094 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0095 00c7 | | Action Elaborate_Subprogram 0096 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0097 00c7 | | Action Elaborate_Subprogram 0098 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0099 00c7 | | Action Elaborate_Subprogram 009a 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 009b 00c7 | | Action Elaborate_Subprogram 009c 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 009d 00c7 | | Action Elaborate_Subprogram 009e 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 009f 00c7 | | Action Elaborate_Subprogram 00a0 1d19 | | Execute_Immediate Reference_Lex_1,0x19 00a1 00c7 | | Action Elaborate_Subprogram 00a2 1d20 | | Execute_Immediate Reference_Lex_1,0x20 00a3 00c7 | | Action Elaborate_Subprogram 00a4 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 00a5 00c7 | | Action Elaborate_Subprogram 00a6 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 00a7 00c7 | | Action Elaborate_Subprogram 00a8 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 00a9 00c7 | | Action Elaborate_Subprogram 00aa 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 00ab 00c7 | | Action Elaborate_Subprogram 00ac 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 00ad 00c7 | | Action Elaborate_Subprogram 00ae BODY_0008: 00ae 00bc | | Action Signal_Activated 00af 00bb | | Action Signal_Completion 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b3 | | .CONST 0x00b3 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0001 | | .CONST 0x0001 ; Number of locals 00b3 BODY_00b0: 00b3 INIT_00b0: 00b3 e228 | ( | Load 0x1,0x28 00b4 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00b5 e228 | ( | Load 0x1,0x28 00b6 181a | | Execute Package,Field_Execute,Field_Number 0x1a 00b7 00db | | Load_Top At_Offset_3 00b8 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00b9 e22a | * | Load 0x1,0x2a 00ba 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00bb e22a | * | Load 0x1,0x2a 00bc 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00bd 00db | | Load_Top At_Offset_3 00be 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00bf e229 | ) | Load 0x1,0x29 00c0 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00c1 e229 | ) | Load 0x1,0x29 00c2 181a | | Execute Package,Field_Execute,Field_Number 0x1a 00c3 00db | | Load_Top At_Offset_3 00c4 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 00c5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00c6 0000 0000 | | .XXX[0x2] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00db | | .CONST 0x00db ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0006 | | .CONST 0x0006 ; Number of locals 00cb INIT_00c8: 00cb e226 | & | Load 0x1,0x26 00cc 0322 | " | Declare_Variable Record 00cd 00d8 | | Load_Top At_Offset_0 00ce 1c00 | | Execute_Immediate Run_Utility,0x0 00cf 00db | | Load_Top At_Offset_3 00d0 e004 | | Load 0x0,0x4 00d1 1b58 | X | Execute Package,Field_Read,Field_Number 0x58 00d2 181e | | Execute Package,Field_Execute,Field_Number 0x1e 00d3 00e5 | | Load_Encached Long_Integer_Cache 00d4 03f1 | | Declare_Variable Discrete,With_Value 00d5 029f 0243 | C| Declare_Subprogram INIT_0240,For_Call 00d7 029f 02a3 | | Declare_Subprogram INIT_02a0,For_Call 00d9 029f 02f3 | | Declare_Subprogram INIT_02f0,For_Call 00db BODY_00c8: 00db 8404 | | Call 0x2,0x4 00dc 8405 | | Call 0x2,0x5 00dd e5fe | | Load 0x2,-0x2 00de 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00df 4800 |H | Short_Literal 0x0 00e0 e402 | | Load 0x2,0x2 00e1 e403 | | Load 0x2,0x3 00e2 e228 | ( | Load 0x1,0x28 00e3 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00e4 e5fe | | Load 0x2,-0x2 00e5 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00e6 8406 | | Call 0x2,0x6 00e7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00f2 | | .CONST 0x00f2 ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0003 | | .CONST 0x0003 ; Number of locals 00eb INIT_00e8: 00eb e228 | ( | Load 0x1,0x28 00ec 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 00ed 0322 | " | Declare_Variable Record 00ee e226 | & | Load 0x1,0x26 00ef 0322 | " | Declare_Variable Record 00f0 00d8 | | Load_Top At_Offset_0 00f1 1c00 | | Execute_Immediate Run_Utility,0x0 00f2 BODY_00e8: 00f2 00d9 | | Load_Top At_Offset_1 00f3 e5ff | | Load 0x2,-0x1 00f4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00f5 e228 | ( | Load 0x1,0x28 00f6 181f | | Execute Package,Field_Execute,Field_Number 0x1f 00f7 00d1 | | Pop_Control Pop_Count_1 00f8 00cf | | Action Mark_Auxiliary 00f9 781b |x | Jump 0x115 00fa 00da | | Load_Top At_Offset_2 00fb e228 | ( | Load 0x1,0x28 00fc 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 00fd e5ff | | Load 0x2,-0x1 00fe 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00ff e228 | ( | Load 0x1,0x28 0100 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0101 00da | | Load_Top At_Offset_2 0102 017d | } | Execute Record,Structure_Write 0103 00d9 | | Load_Top At_Offset_1 0104 00da | | Load_Top At_Offset_2 0105 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0106 e5fe | | Load 0x2,-0x2 0107 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0108 01d6 | | Execute Vector,Field_Write 0109 00d9 | | Load_Top At_Offset_1 010a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 010b e5fe | | Load 0x2,-0x2 010c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 010d 8231 | 1 | Call 0x1,0x31 010e e5fe | | Load 0x2,-0x2 010f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0110 00da | | Load_Top At_Offset_2 0111 e228 | ( | Load 0x1,0x28 0112 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0113 00d1 | | Pop_Control Pop_Count_1 0114 00c9 | | Action Pop_Auxiliary_Loop 0115 00da | | Load_Top At_Offset_2 0116 e228 | ( | Load 0x1,0x28 0117 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0118 6fe1 |o | Jump_Zero 0xfa 0119 00ce | | Action Pop_Auxiliary 011a 4801 |H | Short_Literal 0x1 011b e5fe | | Load 0x2,-0x2 011c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 011d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 011e 0000 0000 | | .XXX[0x2] 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0123 | # | .CONST 0x0123 ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0001 | | .CONST 0x0001 ; Number of locals 0123 BODY_0120: 0123 INIT_0120: 0123 00da | | Load_Top At_Offset_2 0124 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0125 00db | | Load_Top At_Offset_3 0126 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0127 027d | } | Execute Discrete,Greater 0128 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0129 0000 0000 | | .BLANK 0000[0x7] 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0133 | 3 | .CONST 0x0133 ; Address of begin 0131 0004 | | .CONST 0x0004 ; Address of exception handler 0132 0001 | | .CONST 0x0001 ; Number of locals 0133 BODY_0130: 0133 INIT_0130: 0133 00da | | Load_Top At_Offset_2 0134 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0135 0a01 | | Execute_Immediate Plus,0x1 0136 00db | | Load_Top At_Offset_3 0137 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0138 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0139 0000 0000 | | .BLANK 0000[0x7] 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0143 | C | .CONST 0x0143 ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0001 | | .CONST 0x0001 ; Number of locals 0143 BODY_0140: 0143 INIT_0140: 0143 00da | | Load_Top At_Offset_2 0144 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0145 00db | | Load_Top At_Offset_3 0146 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0147 01d5 | | Execute Vector,Field_Reference 0148 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0149 00d8 | | Load_Top At_Offset_0 014a 0120 | | Execute Any,Is_Value 014b 7002 |p | Jump_Nonzero 0x14e 014c 00d8 | | Load_Top At_Offset_0 014d 011e | | Execute Any,Convert 014e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 014f 0000 | | .XXX[0x1] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0153 | S | .CONST 0x0153 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0001 | | .CONST 0x0001 ; Number of locals 0153 BODY_0150: 0153 INIT_0150: 0153 00da | | Load_Top At_Offset_2 0154 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0155 00db | | Load_Top At_Offset_3 0156 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0157 01d5 | | Execute Vector,Field_Reference 0158 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0159 00d8 | | Load_Top At_Offset_0 015a 0120 | | Execute Any,Is_Value 015b 7002 |p | Jump_Nonzero 0x15e 015c 00d8 | | Load_Top At_Offset_0 015d 011e | | Execute Any,Convert 015e e211 | | Load 0x1,0x11 015f 0119 | | Execute Any,Check_In_Formal_Type 0160 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0161 0000 0000 | | .BLANK 0000[0x7] 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 016b | k | .CONST 0x016b ; Address of begin 0169 0004 | | .CONST 0x0004 ; Address of exception handler 016a 0001 | | .CONST 0x0001 ; Number of locals 016b BODY_0168: 016b INIT_0168: 016b 00da | | Load_Top At_Offset_2 016c 821a | | Call 0x1,0x1a 016d e00d | | Load 0x0,0xd 016e 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 016f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0173 | s | .CONST 0x0173 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0001 | | .CONST 0x0001 ; Number of locals 0173 BODY_0170: 0173 INIT_0170: 0173 00da | | Load_Top At_Offset_2 0174 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0175 00db | | Load_Top At_Offset_3 0176 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0177 01d5 | | Execute Vector,Field_Reference 0178 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0179 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 017a 0000 0000 | | .BLANK 0000[0x6] 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0183 | | .CONST 0x0183 ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0001 | | .CONST 0x0001 ; Number of locals 0183 BODY_0180: 0183 INIT_0180: 0183 00da | | Load_Top At_Offset_2 0184 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0185 00db | | Load_Top At_Offset_3 0186 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0187 01d5 | | Execute Vector,Field_Reference 0188 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0189 e225 | % | Load 0x1,0x25 018a 1816 | | Execute Package,Field_Execute,Field_Number 0x16 018b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 018c 0000 0000 | | .BLANK 0000[0x4] 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 0193 | | .CONST 0x0193 ; Address of begin 0191 0004 | | .CONST 0x0004 ; Address of exception handler 0192 0001 | | .CONST 0x0001 ; Number of locals 0193 BODY_0190: 0193 INIT_0190: 0193 00da | | Load_Top At_Offset_2 0194 e5fe | | Load 0x2,-0x2 0195 017d | } | Execute Record,Structure_Write 0196 00db | | Load_Top At_Offset_3 0197 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0198 00db | | Load_Top At_Offset_3 0199 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 019a e229 | ) | Load 0x1,0x29 019b 181f | | Execute Package,Field_Execute,Field_Number 0x1f 019c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 019d 0000 0000 | | .XXX[0x3] 019f 0000 | | 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01a3 | | .CONST 0x01a3 ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0001 | | .CONST 0x0001 ; Number of locals 01a3 BODY_01a0: 01a3 INIT_01a0: 01a3 00da | | Load_Top At_Offset_2 01a4 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 01a5 e229 | ) | Load 0x1,0x29 01a6 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 01a7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01ab | | .CONST 0x01ab ; Address of begin 01a9 0004 | | .CONST 0x0004 ; Address of exception handler 01aa 0001 | | .CONST 0x0001 ; Number of locals 01ab BODY_01a8: 01ab INIT_01a8: 01ab 00da | | Load_Top At_Offset_2 01ac 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 01ad e229 | ) | Load 0x1,0x29 01ae 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 01af 00db | | Load_Top At_Offset_3 01b0 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 01b1 e229 | ) | Load 0x1,0x29 01b2 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01b3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01b4 0000 0000 | | .BLANK 0000[0x4] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01bb | | .CONST 0x01bb ; Address of begin 01b9 0004 | | .CONST 0x0004 ; Address of exception handler 01ba 0001 | | .CONST 0x0001 ; Number of locals 01bb BODY_01b8: 01bb INIT_01b8: 01bb 00da | | Load_Top At_Offset_2 01bc 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 01bd e229 | ) | Load 0x1,0x29 01be 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 01bf 00db | | Load_Top At_Offset_3 01c0 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 01c1 e229 | ) | Load 0x1,0x29 01c2 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01c3 e00e | | Load 0x0,0xe 01c4 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01c5 e00d | | Load 0x0,0xd 01c6 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 01c7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 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 00da | | Load_Top At_Offset_2 01cc 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 01cd e229 | ) | Load 0x1,0x29 01ce 1820 | | Execute Package,Field_Execute,Field_Number 0x20 01cf 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01d3 | | .CONST 0x01d3 ; Address of begin 01d1 0004 | | .CONST 0x0004 ; Address of exception handler 01d2 0001 | | .CONST 0x0001 ; Number of locals 01d3 BODY_01d0: 01d3 INIT_01d0: 01d3 00da | | Load_Top At_Offset_2 01d4 6007 |` | Indirect_Literal Discrete,0x1dc,{0x00000000, 0x7fffffff} 01d5 026e | n | Execute Discrete,Modulo 01d6 00d8 | | Load_Top At_Offset_0 01d7 00e2 | | Load_Encached Integer_Cache 01d8 0260 | ` | Execute Discrete,In_Type 01d9 7001 |p | Jump_Nonzero 0x1db 01da 0801 | | Execute_Immediate Raise,0x1 01db 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01dc 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01e3 | | .CONST 0x01e3 ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0001 | | .CONST 0x0001 ; Number of locals 01e3 BODY_01e0: 01e3 INIT_01e0: 01e3 00d1 | | Pop_Control Pop_Count_1 01e4 00da | | Load_Top At_Offset_2 01e5 01dc | | Execute Vector,Last 01e6 00db | | Load_Top At_Offset_3 01e7 01dd | | Execute Vector,First 01e8 0263 | c | Execute Discrete,Above_Bound 01e9 7006 |p | Jump_Nonzero 0x1f0 01ea 00d8 | | Load_Top At_Offset_0 01eb e5ff | | Load 0x2,-0x1 01ec 01d5 | | Execute Vector,Field_Reference 01ed 1c00 | | Execute_Immediate Run_Utility,0x0 01ee 0a01 | | Execute_Immediate Plus,0x1 01ef 7ff8 | | Jump 0x1e8 01f0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 01f1 0000 0000 | | .BLANK 0000[0x7] 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 01fe | | .CONST 0x01fe ; Address of begin 01f9 0004 | | .CONST 0x0004 ; Address of exception handler 01fa 0002 | | .CONST 0x0002 ; Number of locals 01fb INIT_01f8: 01fb 00da | | Load_Top At_Offset_2 01fc e00d | | Load 0x0,0xd 01fd 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 01fe BODY_01f8: 01fe 00db | | Load_Top At_Offset_3 01ff e00d | | Load 0x0,0xd 0200 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0201 6829 |h) | Jump_Zero 0x22b 0202 00db | | Load_Top At_Offset_3 0203 e00d | | Load 0x0,0xd 0204 1842 | B | Execute Package,Field_Execute,Field_Number 0x42 0205 6825 |h% | Jump_Zero 0x22b 0206 4801 |H | Short_Literal 0x1 0207 e22c | , | Load 0x1,0x2c 0208 00da | | Load_Top At_Offset_2 0209 e00f | | Load 0x0,0xf 020a 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 020b 6803 |h | Jump_Zero 0x20f 020c 0092 036e | n| Action Push_String_Extended,0x36e ; "Mult_Op" 020e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 020f 4801 |H | Short_Literal 0x1 0210 e22d | - | Load 0x1,0x2d 0211 00da | | Load_Top At_Offset_2 0212 e00f | | Load 0x0,0xf 0213 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0214 6803 |h | Jump_Zero 0x218 0215 0092 036f | o| Action Push_String_Extended,0x36f ; "Equality_Op" 0217 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0218 4801 |H | Short_Literal 0x1 0219 e22e | . | Load 0x1,0x2e 021a 00da | | Load_Top At_Offset_2 021b e00f | | Load 0x0,0xf 021c 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 021d 6803 |h | Jump_Zero 0x221 021e 0092 0370 | p| Action Push_String_Extended,0x370 ; "Plus_Op" 0220 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0221 4801 |H | Short_Literal 0x1 0222 e22f | / | Load 0x1,0x2f 0223 00da | | Load_Top At_Offset_2 0224 e00f | | Load 0x0,0xf 0225 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0226 6803 |h | Jump_Zero 0x22a 0227 0092 0371 | q| Action Push_String_Extended,0x371 ; "Minus_Op" 0229 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 022a 08e2 | | Execute_Immediate Raise,0xe2 022b 00d8 | | Load_Top At_Offset_0 022c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 022d 0000 0000 | | .XXX[0x3] 022f 0000 | | 0230 ; -------------------------------------------------------------------------------------- 0230 ; SUBPROGRAM 0230 ; -------------------------------------------------------------------------------------- 0230 0233 | 3 | .CONST 0x0233 ; Address of begin 0231 0004 | | .CONST 0x0004 ; Address of exception handler 0232 0001 | | .CONST 0x0001 ; Number of locals 0233 BODY_0230: 0233 INIT_0230: 0233 00da | | Load_Top At_Offset_2 0234 e5fe | | Load 0x2,-0x2 0235 027d | } | Execute Discrete,Greater 0236 6802 |h | Jump_Zero 0x239 0237 00da | | Load_Top At_Offset_2 0238 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0239 00db | | Load_Top At_Offset_3 023a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 023b 0000 0000 | | .BLANK 0000[0x5] 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 0243 | C | .CONST 0x0243 ; Address of begin 0241 026c | l | .CONST 0x026c ; Address of exception handler 0242 0001 | | .CONST 0x0001 ; Number of locals 0243 BODY_0240: 0243 INIT_0240: 0243 e403 | | Load 0x2,0x3 0244 e5fe | | Load 0x2,-0x2 0245 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0246 e228 | ( | Load 0x1,0x28 0247 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0248 e402 | | Load 0x2,0x2 0249 017d | } | Execute Record,Structure_Write 024a e5fd | | Load 0x2,-0x3 024b 00d8 | | Load_Top At_Offset_0 024c 0120 | | Execute Any,Is_Value 024d 6803 |h | Jump_Zero 0x251 024e e210 | | Load 0x1,0x10 024f 011e | | Execute Any,Convert 0250 7802 |x | Jump 0x253 0251 e210 | | Load 0x1,0x10 0252 0119 | | Execute Any,Check_In_Formal_Type 0253 e402 | | Load 0x2,0x2 0254 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0255 00d8 | | Load_Top At_Offset_0 0256 0120 | | Execute Any,Is_Value 0257 6803 |h | Jump_Zero 0x25b 0258 e211 | | Load 0x1,0x11 0259 011e | | Execute Any,Convert 025a 7802 |x | Jump 0x25d 025b e211 | | Load 0x1,0x11 025c 0119 | | Execute Any,Check_In_Formal_Type 025d e5ff | | Load 0x2,-0x1 025e 8212 | | Call 0x1,0x12 025f e402 | | Load 0x2,0x2 0260 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0261 c5fd | | Store 0x2,-0x3 0262 e5fe | | Load 0x2,-0x2 0263 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0264 4800 |H | Short_Literal 0x0 0265 e402 | | Load 0x2,0x2 0266 e403 | | Load 0x2,0x3 0267 e228 | ( | Load 0x1,0x28 0268 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0269 e5fe | | Load 0x2,-0x2 026a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 026b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 026c TRAP_0240: 026c e228 | ( | Load 0x1,0x28 026d 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 026e 010f | | Execute Exception,Equal 026f 682a |h* | Jump_Zero 0x29a 0270 e5fe | | Load 0x2,-0x2 0271 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0272 0a01 | | Execute_Immediate Plus,0x1 0273 e5fe | | Load 0x2,-0x2 0274 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0275 e5fe | | Load 0x2,-0x2 0276 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0277 e402 | | Load 0x2,0x2 0278 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0279 e5ff | | Load 0x2,-0x1 027a e402 | | Load 0x2,0x2 027b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 027c e5ff | | Load 0x2,-0x1 027d e00e | | Load 0x0,0xe 027e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 027f e402 | | Load 0x2,0x2 0280 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0281 e5fd | | Load 0x2,-0x3 0282 00d8 | | Load_Top At_Offset_0 0283 0120 | | Execute Any,Is_Value 0284 6803 |h | Jump_Zero 0x288 0285 e210 | | Load 0x1,0x10 0286 011e | | Execute Any,Convert 0287 7802 |x | Jump 0x28a 0288 e210 | | Load 0x1,0x10 0289 0119 | | Execute Any,Check_In_Formal_Type 028a e402 | | Load 0x2,0x2 028b 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 028c 00d8 | | Load_Top At_Offset_0 028d 0120 | | Execute Any,Is_Value 028e 6803 |h | Jump_Zero 0x292 028f e211 | | Load 0x1,0x11 0290 011e | | Execute Any,Convert 0291 7802 |x | Jump 0x294 0292 e211 | | Load 0x1,0x11 0293 0119 | | Execute Any,Check_In_Formal_Type 0294 e5ff | | Load 0x2,-0x1 0295 8212 | | Call 0x1,0x12 0296 e402 | | Load 0x2,0x2 0297 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0298 c5fd | | Store 0x2,-0x3 0299 4501 |E | Exit_Suprogram New_Top_Offset 0x1 029a 0100 | | Execute Exception,Raise 029b 0000 0000 | | .BLANK 0000[0x5] 02a0 ; -------------------------------------------------------------------------------------- 02a0 ; SUBPROGRAM 02a0 ; -------------------------------------------------------------------------------------- 02a0 02a6 | | .CONST 0x02a6 ; Address of begin 02a1 02d6 | | .CONST 0x02d6 ; Address of exception handler 02a2 0003 | | .CONST 0x0003 ; Number of locals 02a3 INIT_02a0: 02a3 00e3 | | Load_Encached Natural_Cache 02a4 e5ff | | Load 0x2,-0x1 02a5 8230 | 0 | Call 0x1,0x30 02a6 BODY_02a0: 02a6 00d8 | | Load_Top At_Offset_0 02a7 e5fe | | Load 0x2,-0x2 02a8 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 02a9 e22a | * | Load 0x1,0x2a 02aa 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02ab 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 02ac 4801 |H | Short_Literal 0x1 02ad e402 | | Load 0x2,0x2 02ae 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 02af e402 | | Load 0x2,0x2 02b0 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 02b1 00d9 | | Load_Top At_Offset_1 02b2 0092 0372 | r| Action Push_String_Extended,0x372 ; "_" 02b4 01cc | | Execute Vector,Catenate 02b5 4820 |H | Short_Literal 0x20 02b6 e602 | | Load 0x3,0x2 02b7 0a01 | | Execute_Immediate Plus,0x1 02b8 00d8 | | Load_Top At_Offset_0 02b9 00e2 | | Load_Encached Integer_Cache 02ba 0260 | ` | Execute Discrete,In_Type 02bb 7001 |p | Jump_Nonzero 0x2bd 02bc 0801 | | Execute_Immediate Raise,0x1 02bd 00e0 | | Load_Encached Standard_Cache 02be 1818 | | Execute Package,Field_Execute,Field_Number 0x18 02bf e00f | | Load 0x0,0xf 02c0 181c | | Execute Package,Field_Execute,Field_Number 0x1c 02c1 01cc | | Execute Vector,Catenate 02c2 e225 | % | Load 0x1,0x25 02c3 1819 | | Execute Package,Field_Execute,Field_Number 0x19 02c4 e402 | | Load 0x2,0x2 02c5 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 02c6 e5fe | | Load 0x2,-0x2 02c7 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 02c8 4800 |H | Short_Literal 0x0 02c9 00db | | Load_Top At_Offset_3 02ca 0a01 | | Execute_Immediate Plus,0x1 02cb 00d8 | | Load_Top At_Offset_0 02cc 00e3 | | Load_Encached Natural_Cache 02cd 0260 | ` | Execute Discrete,In_Type 02ce 7001 |p | Jump_Nonzero 0x2d0 02cf 0801 | | Execute_Immediate Raise,0x1 02d0 00db | | Load_Top At_Offset_3 02d1 e22a | * | Load 0x1,0x2a 02d2 1815 | | Execute Package,Field_Execute,Field_Number 0x15 02d3 e5fe | | Load 0x2,-0x2 02d4 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 02d5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02d6 TRAP_02a0: 02d6 e22a | * | Load 0x1,0x2a 02d7 1b20 | | Execute Package,Field_Read,Field_Number 0x20 02d8 010f | | Execute Exception,Equal 02d9 6811 |h | Jump_Zero 0x2eb 02da e5fe | | Load 0x2,-0x2 02db 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 02dc 4800 |H | Short_Literal 0x0 02dd 4801 |H | Short_Literal 0x1 02de e603 | | Load 0x3,0x3 02df e22a | * | Load 0x1,0x2a 02e0 1815 | | Execute Package,Field_Execute,Field_Number 0x15 02e1 e5fe | | Load 0x2,-0x2 02e2 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 02e3 e402 | | Load 0x2,0x2 02e4 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 02e5 00da | | Load_Top At_Offset_2 02e6 e225 | % | Load 0x1,0x25 02e7 1819 | | Execute Package,Field_Execute,Field_Number 0x19 02e8 e402 | | Load 0x2,0x2 02e9 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 02ea 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02eb 0100 | | Execute Exception,Raise 02ec 0000 0000 | | .BLANK 0000[0x4] 02f0 ; -------------------------------------------------------------------------------------- 02f0 ; SUBPROGRAM 02f0 ; -------------------------------------------------------------------------------------- 02f0 02f3 | | .CONST 0x02f3 ; Address of begin 02f1 030e | | .CONST 0x030e ; Address of exception handler 02f2 0001 | | .CONST 0x0001 ; Number of locals 02f3 BODY_02f0: 02f3 INIT_02f0: 02f3 4801 |H | Short_Literal 0x1 02f4 e402 | | Load 0x2,0x2 02f5 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 02f6 e00e | | Load 0x0,0xe 02f7 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02f8 e00d | | Load 0x0,0xd 02f9 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 02fa 0092 0373 | s| Action Push_String_Extended,0x373 ; "Standard" 02fc e00f | | Load 0x0,0xf 02fd 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 02fe 700e |p | Jump_Nonzero 0x30d 02ff e5fe | | Load 0x2,-0x2 0300 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0301 4801 |H | Short_Literal 0x1 0302 e402 | | Load 0x2,0x2 0303 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0304 e402 | | Load 0x2,0x2 0305 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0306 e004 | | Load 0x0,0x4 0307 1b58 | X | Execute Package,Field_Read,Field_Number 0x58 0308 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0309 e229 | ) | Load 0x1,0x29 030a 1818 | | Execute Package,Field_Execute,Field_Number 0x18 030b e5fe | | Load 0x2,-0x2 030c 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 030d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 030e TRAP_02f0: 030e e229 | ) | Load 0x1,0x29 030f 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 0310 010f | | Execute Exception,Equal 0311 6801 |h | Jump_Zero 0x313 0312 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0313 0100 | | Execute Exception,Raise 0314 0000 0000 | | .BLANK 0000[0x4] 0318 ; -------------------------------------------------------------------------------------- 0318 ; SUBPROGRAM 0318 ; -------------------------------------------------------------------------------------- 0318 031b | | .CONST 0x031b ; Address of begin 0319 0004 | | .CONST 0x0004 ; Address of exception handler 031a 0001 | | .CONST 0x0001 ; Number of locals 031b BODY_0318: 031b INIT_0318: 031b 4608 |F | Jump_Case 0x9 031c 7808 |x | Jump 0x325 ; case 0x0 031d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 031e 7819 |x | Jump 0x338 ; case 0x2 031f 7818 |x | Jump 0x338 ; case 0x3 0320 7817 |x | Jump 0x338 ; case 0x4 0321 7816 |x | Jump 0x338 ; case 0x5 0322 7815 |x | Jump 0x338 ; case 0x6 0323 7814 |x | Jump 0x338 ; case 0x7 0324 7813 |x | Jump 0x338 ; case 0x8 0325 00da | | Load_Top At_Offset_2 0326 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0327 0125 | % | Execute Any,Set_Constraint 0328 00da | | Load_Top At_Offset_2 0329 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 032a 1c00 | | Execute_Immediate Run_Utility,0x0 032b 00da | | Load_Top At_Offset_2 032c 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 032d 0125 | % | Execute Any,Set_Constraint 032e 00da | | Load_Top At_Offset_2 032f 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 0330 1c00 | | Execute_Immediate Run_Utility,0x0 0331 00da | | Load_Top At_Offset_2 0332 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 0333 0125 | % | Execute Any,Set_Constraint 0334 00da | | Load_Top At_Offset_2 0335 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 0336 1c00 | | Execute_Immediate Run_Utility,0x0 0337 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0338 0869 | i | Execute_Immediate Raise,0x69 0339 0000 0000 | | .BLANK 0000[0x7] 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 4608 |F | Jump_Case 0x9 0344 7808 |x | Jump 0x34d ; case 0x0 0345 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0346 780a |x | Jump 0x351 ; case 0x2 0347 7809 |x | Jump 0x351 ; case 0x3 0348 7808 |x | Jump 0x351 ; case 0x4 0349 7807 |x | Jump 0x351 ; case 0x5 034a 7806 |x | Jump 0x351 ; case 0x6 034b 7805 |x | Jump 0x351 ; case 0x7 034c 7804 |x | Jump 0x351 ; case 0x8 034d 4800 |H | Short_Literal 0x0 034e 00db | | Load_Top At_Offset_3 034f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0350 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0351 0869 | i | Execute_Immediate Raise,0x69 0352 0000 0000 | | .BLANK 0000[0x6] 0358 ; -------------------------------------------------------------------------------------- 0358 ; SUBPROGRAM 0358 ; -------------------------------------------------------------------------------------- 0358 035b | [ | .CONST 0x035b ; Address of begin 0359 0004 | | .CONST 0x0004 ; Address of exception handler 035a 0001 | | .CONST 0x0001 ; Number of locals 035b BODY_0358: 035b INIT_0358: 035b 4608 |F | Jump_Case 0x9 035c 7808 |x | Jump 0x365 ; case 0x0 035d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 035e 780a |x | Jump 0x369 ; case 0x2 035f 7809 |x | Jump 0x369 ; case 0x3 0360 7808 |x | Jump 0x369 ; case 0x4 0361 7807 |x | Jump 0x369 ; case 0x5 0362 7806 |x | Jump 0x369 ; case 0x6 0363 7805 |x | Jump 0x369 ; case 0x7 0364 7804 |x | Jump 0x369 ; case 0x8 0365 00da | | Load_Top At_Offset_2 0366 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0367 1c00 | | Execute_Immediate Run_Utility,0x0 0368 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0369 0869 | i | Execute_Immediate Raise,0x69 036a ; -------------------------------------------------------------------------------------- 036a ; STRING TABLE 036a ; -------------------------------------------------------------------------------------- 036a 0016 | | .STRTAB 0x0016->0x0375 ; "\x22*\x22" 036b 0017 | | .STRTAB 0x0017->0x0376 ; "\x22=\x22" 036c 0018 | | .STRTAB 0x0018->0x0378 ; "\x22+\x22" 036d 0019 | | .STRTAB 0x0019->0x0379 ; "\x22-\x22" 036e 001a | | .STRTAB 0x001a->0x037b ; "Mult_Op" 036f 001f | | .STRTAB 0x001f->0x037e ; "Equality_Op" 0370 0028 | ( | .STRTAB 0x0028->0x0384 ; "Plus_Op" 0371 002d | - | .STRTAB 0x002d->0x0387 ; "Minus_Op" 0372 0033 | 3 | .STRTAB 0x0033->0x038b ; "_" 0373 0032 | 2 | .STRTAB 0x0032->0x038c ; "Standard" 0374 0038 | 8 | .STREND 0x0038->0x0390 0375 222a 2222 |"*""| .STRTAB_STRINGS 0390 ; -------------------------------------------------------------------------------------- 0390 ; Debug Table 0390 ; -------------------------------------------------------------------------------------- 0390 0004 0004 | | .DEBUG4 0x0004,0x0004,0x2e9f,0x0000,0x0001,0x001b 0396 000b 0402 | | .DBG4T 0x000b,0x0402,0xc000,0x0000 039a 0082 0420 | | .DBG4T 0x0082,0x0420,0xc000,0x0000 039e 00b3 0438 | 8| .DBG4T 0x00b3,0x0438,0x1001,0x0000 03a2 00cb 043d | =| .DBG4T 0x00cb,0x043d,0x1001,0x0000 03a6 00eb 0445 | E| .DBG4T 0x00eb,0x0445,0x1001,0x4000 03aa 0123 0457 | # W| .DBG4T 0x0123,0x0457,0x1002,0x0000 03ae 0133 045a | 3 Z| .DBG4T 0x0133,0x045a,0x1001,0x0000 03b2 0143 045d | C ]| .DBG4T 0x0143,0x045d,0x1002,0x0000 03b6 0153 0460 | S `| .DBG4T 0x0153,0x0460,0x1002,0x0000 03ba 016b 0463 | k c| .DBG4T 0x016b,0x0463,0x1002,0x0000 03be 0173 0466 | s f| .DBG4T 0x0173,0x0466,0x1002,0x0000 03c2 0183 0469 | i| .DBG4T 0x0183,0x0469,0x1002,0x0000 03c6 0193 046c | l| .DBG4T 0x0193,0x046c,0x1001,0x0000 03ca 01a3 0470 | p| .DBG4T 0x01a3,0x0470,0x1002,0x0000 03ce 01ab 0473 | s| .DBG4T 0x01ab,0x0473,0x1002,0x0000 03d2 01bb 0476 | v| .DBG4T 0x01bb,0x0476,0x1002,0x0000 03d6 01cb 0479 | y| .DBG4T 0x01cb,0x0479,0x1001,0x0000 03da 01d3 047c | || .DBG4T 0x01d3,0x047c,0x1002,0x0000 03de 01e3 0000 | | .DBG4T 0x01e3,0x0000,0x1005,0x0000 03e2 01fb 047f | | .DBG4T 0x01fb,0x047f,0x1002,0x0000 03e6 0233 048d | 3 | .DBG4T 0x0233,0x048d,0x1002,0x0000 03ea 0243 0492 | C | .DBG4T 0x0243,0x0492,0x1004,0x0000 03ee 02a3 049c | | .DBG4T 0x02a3,0x049c,0x1004,0x0000 03f2 02f3 04a6 | | .DBG4T 0x02f3,0x04a6,0x1004,0x0000 03f6 031b 0000 | | .DBG4T 0x031b,0x0000,0x1005,0x0000 03fa 0343 0000 | C | .DBG4T 0x0343,0x0000,0x1005,0x0000 03fe 035b 0000 | [ | .DBG4T 0x035b,0x0000,0x1005,0x0000 0402 ; -------------------------------------------------------------------------------------- 0402 ; Debug chain 0402 ; -------------------------------------------------------------------------------------- 0402 001c 0000 | | .DBGLEN 0x001c,0x0000 0404 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b,0x002d,0x002f,0x0036,0x0043,0x0045,0x004f,0x005a,0x0063,0x0070,0x0077,0x007e 0420 ; -------------------------------------------------------------------------------------- 0420 ; Debug chain 0420 ; -------------------------------------------------------------------------------------- 0420 0016 0000 | | .DBGLEN 0x0016,0x0000 0422 0082 0084 | | .DBGLNO 0x0082,0x0084,0x0086,0x0088,0x008a,0x008c,0x008e,0x0090,0x0092,0x0094,0x0096,0x0098,0x009a,0x009c,0x009e,0x00a0,0x00a2,0x00a4,0x00a6,0x00a8,0x00aa,0x00ac 0438 ; -------------------------------------------------------------------------------------- 0438 ; Debug chain 0438 ; -------------------------------------------------------------------------------------- 0438 0000 0003 | | .DBGLEN 0x0000,0x0003 043a 00b3 00b9 | | .DBGLNO 0x00b3,0x00b9,0x00bf 043d ; -------------------------------------------------------------------------------------- 043d ; Debug chain 043d ; -------------------------------------------------------------------------------------- 043d 0002 0004 | | .DBGLEN 0x0002,0x0004 043f 00cb 00cf | | .DBGLNO 0x00cb,0x00cf,0x00db,0x00dc,0x00dd,0x00e6 0445 ; -------------------------------------------------------------------------------------- 0445 ; Debug chain 0445 ; -------------------------------------------------------------------------------------- 0445 0002 0007 | | .DBGLEN 0x0002,0x0007 0447 00eb 00ee | | .DBGLNO 0x00eb,0x00ee,0x00f2,0x00fa,0x0103,0x0109,0x0110,0x0115,0x011a 0450 0001 0003 | | .XXX[0x7] 0452 0004 0005 | | 0454 0006 0002 | | 0456 0007 | | 0457 ; -------------------------------------------------------------------------------------- 0457 ; Debug chain 0457 ; -------------------------------------------------------------------------------------- 0457 0000 0001 | | .DBGLEN 0x0000,0x0001 0459 0123 | # | .DBGLNO 0x0123 045a ; -------------------------------------------------------------------------------------- 045a ; Debug chain 045a ; -------------------------------------------------------------------------------------- 045a 0000 0001 | | .DBGLEN 0x0000,0x0001 045c 0133 | 3 | .DBGLNO 0x0133 045d ; -------------------------------------------------------------------------------------- 045d ; Debug chain 045d ; -------------------------------------------------------------------------------------- 045d 0000 0001 | | .DBGLEN 0x0000,0x0001 045f 0143 | C | .DBGLNO 0x0143 0460 ; -------------------------------------------------------------------------------------- 0460 ; Debug chain 0460 ; -------------------------------------------------------------------------------------- 0460 0000 0001 | | .DBGLEN 0x0000,0x0001 0462 0153 | S | .DBGLNO 0x0153 0463 ; -------------------------------------------------------------------------------------- 0463 ; Debug chain 0463 ; -------------------------------------------------------------------------------------- 0463 0000 0001 | | .DBGLEN 0x0000,0x0001 0465 016b | k | .DBGLNO 0x016b 0466 ; -------------------------------------------------------------------------------------- 0466 ; Debug chain 0466 ; -------------------------------------------------------------------------------------- 0466 0000 0001 | | .DBGLEN 0x0000,0x0001 0468 0173 | s | .DBGLNO 0x0173 0469 ; -------------------------------------------------------------------------------------- 0469 ; Debug chain 0469 ; -------------------------------------------------------------------------------------- 0469 0000 0001 | | .DBGLEN 0x0000,0x0001 046b 0183 | | .DBGLNO 0x0183 046c ; -------------------------------------------------------------------------------------- 046c ; Debug chain 046c ; -------------------------------------------------------------------------------------- 046c 0000 0002 | | .DBGLEN 0x0000,0x0002 046e 0193 0196 | | .DBGLNO 0x0193,0x0196 0470 ; -------------------------------------------------------------------------------------- 0470 ; Debug chain 0470 ; -------------------------------------------------------------------------------------- 0470 0000 0001 | | .DBGLEN 0x0000,0x0001 0472 01a3 | | .DBGLNO 0x01a3 0473 ; -------------------------------------------------------------------------------------- 0473 ; Debug chain 0473 ; -------------------------------------------------------------------------------------- 0473 0000 0001 | | .DBGLEN 0x0000,0x0001 0475 01ab | | .DBGLNO 0x01ab 0476 ; -------------------------------------------------------------------------------------- 0476 ; Debug chain 0476 ; -------------------------------------------------------------------------------------- 0476 0000 0001 | | .DBGLEN 0x0000,0x0001 0478 01bb | | .DBGLNO 0x01bb 0479 ; -------------------------------------------------------------------------------------- 0479 ; Debug chain 0479 ; -------------------------------------------------------------------------------------- 0479 0000 0001 | | .DBGLEN 0x0000,0x0001 047b 01cb | | .DBGLNO 0x01cb 047c ; -------------------------------------------------------------------------------------- 047c ; Debug chain 047c ; -------------------------------------------------------------------------------------- 047c 0000 0001 | | .DBGLEN 0x0000,0x0001 047e 01d3 | | .DBGLNO 0x01d3 047f ; -------------------------------------------------------------------------------------- 047f ; Debug chain 047f ; -------------------------------------------------------------------------------------- 047f 0001 000b | | .DBGLEN 0x0001,0x000b 0481 01fb 01fe | | .DBGLNO 0x01fb,0x01fe,0x0206,0x020c,0x020f,0x0215,0x0218,0x021e,0x0221,0x0227,0x022a,0x022b 048d ; -------------------------------------------------------------------------------------- 048d ; Debug chain 048d ; -------------------------------------------------------------------------------------- 048d 0000 0003 | | .DBGLEN 0x0000,0x0003 048f 0233 0237 | 3 7| .DBGLNO 0x0233,0x0237,0x0239 0492 ; -------------------------------------------------------------------------------------- 0492 ; Debug chain 0492 ; -------------------------------------------------------------------------------------- 0492 0000 0008 | | .DBGLEN 0x0000,0x0008 0494 0243 024a | C J| .DBGLNO 0x0243,0x024a,0x0262,0x0270,0x0275,0x0279,0x027c,0x0281 049c ; -------------------------------------------------------------------------------------- 049c ; Debug chain 049c ; -------------------------------------------------------------------------------------- 049c 0002 0006 | | .DBGLEN 0x0002,0x0006 049e 02a3 02a4 | | .DBGLNO 0x02a3,0x02a4,0x02a6,0x02ac,0x02af,0x02c6,0x02da,0x02e3 04a6 ; -------------------------------------------------------------------------------------- 04a6 ; Debug chain 04a6 ; -------------------------------------------------------------------------------------- 04a6 0000 0003 | | .DBGLEN 0x0000,0x0003 04a8 02f3 02ff | | .DBGLNO 0x02f3,0x02ff,0x0312 04ab 0000 0000 | | .BLANK 0000[0x155]