|
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: 6144 (0x1800) Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0bf8df
└─⟦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 0a48 | H | .CONST 0x0a48 ; 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 8006 | | .CONST 0x8006 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0081 | | .CONST 0x0081 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 002b | + | .CONST 0x002b ; Number of locals 000b INIT_0008: 000b 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated 000d 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 000f 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated 0011 029a 028b | | Declare_Subprogram INIT_0288,For_Outer_Call,Visible,Unelaborated 0013 029a 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call,Visible,Unelaborated 0015 029a 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call,Visible,Unelaborated 0017 029a 035b | [| Declare_Subprogram INIT_0358,For_Outer_Call,Visible,Unelaborated 0019 029a 039b | | Declare_Subprogram INIT_0398,For_Outer_Call,Visible,Unelaborated 001b 029a 03db | | Declare_Subprogram INIT_03d8,For_Outer_Call,Visible,Unelaborated 001d 029a 0413 | | Declare_Subprogram INIT_0410,For_Outer_Call,Visible,Unelaborated 001f 029a 0453 | S| Declare_Subprogram INIT_0450,For_Outer_Call,Visible,Unelaborated 0021 029a 049b | | Declare_Subprogram INIT_0498,For_Outer_Call,Visible,Unelaborated 0023 029a 050b | | Declare_Subprogram INIT_0508,For_Outer_Call,Visible,Unelaborated 0025 029a 054b | K| Declare_Subprogram INIT_0548,For_Outer_Call,Visible,Unelaborated 0027 029a 05db | | Declare_Subprogram INIT_05d8,For_Outer_Call,Visible,Unelaborated 0029 029a 0603 | | Declare_Subprogram INIT_0600,For_Outer_Call,Visible,Unelaborated 002b 029a 0733 | 3| Declare_Subprogram INIT_0730,For_Outer_Call,Visible,Unelaborated 002d 029a 074b | K| Declare_Subprogram INIT_0748,For_Outer_Call,Visible,Unelaborated 002f 029a 084b | K| Declare_Subprogram INIT_0848,For_Outer_Call,Visible,Unelaborated 0031 481e |H | Short_Literal 0x1e 0032 e002 | | Load 0x0,0x2 0033 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0034 1c07 | | Execute_Immediate Run_Utility,0x7 0035 0129 | ) | Execute Any,Make_Visible 0036 00e2 | | Load_Encached Integer_Cache 0037 00e2 | | Load_Encached Integer_Cache 0038 e003 | | Load 0x0,0x3 0039 029f 094b | K| Declare_Subprogram INIT_0948,For_Call 003b 4804 |H | Short_Literal 0x4 003c 032e | . | Declare_Type Record,Defined,Visible 003d 00bf | | Action Accept_Activation 003e 4801 |H | Short_Literal 0x1 003f 481e |H | Short_Literal 0x1e 0040 00e9 | | Load_Encached String_Cache 0041 035b | [ | Declare_Type Array,Constrained 0042 0337 | 7 | Declare_Variable Array 0043 e004 | | Load 0x0,0x4 0044 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0045 e005 | | Load 0x0,0x5 0046 0322 | " | Declare_Variable Record 0047 e006 | | Load 0x0,0x6 0048 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0049 1b0d | | Execute Package,Field_Read,Field_Number 0xd 004a 0322 | " | Declare_Variable Record 004b e003 | | Load 0x0,0x3 004c 0337 | 7 | Declare_Variable Array 004d 00e1 | | Load_Encached Boolean_Cache 004e e007 | | Load 0x0,0x7 004f 0007 | | Action Break_Optional 0050 4801 |H | Short_Literal 0x1 0051 4805 |H | Short_Literal 0x5 0052 00e9 | | Load_Encached String_Cache 0053 035b | [ | Declare_Type Array,Constrained 0054 0337 | 7 | Declare_Variable Array 0055 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0056 00c7 | | Action Elaborate_Subprogram 0057 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0058 00c7 | | Action Elaborate_Subprogram 0059 1d12 | | Execute_Immediate Reference_Lex_1,0x12 005a 00c7 | | Action Elaborate_Subprogram 005b 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 005c 00c7 | | Action Elaborate_Subprogram 005d 1d10 | | Execute_Immediate Reference_Lex_1,0x10 005e 00c7 | | Action Elaborate_Subprogram 005f 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0060 00c7 | | Action Elaborate_Subprogram 0061 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0062 00c7 | | Action Elaborate_Subprogram 0063 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0064 00c7 | | Action Elaborate_Subprogram 0065 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0066 00c7 | | Action Elaborate_Subprogram 0067 029d 085b | [| Declare_Subprogram INIT_0858,For_Outer_Call 0069 029d 0893 | | Declare_Subprogram INIT_0890,For_Outer_Call 006b 1d11 | | Execute_Immediate Reference_Lex_1,0x11 006c 00c7 | | Action Elaborate_Subprogram 006d 1d13 | | Execute_Immediate Reference_Lex_1,0x13 006e 00c7 | | Action Elaborate_Subprogram 006f 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0070 00c7 | | Action Elaborate_Subprogram 0071 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0072 00c7 | | Action Elaborate_Subprogram 0073 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0074 00c7 | | Action Elaborate_Subprogram 0075 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0076 00c7 | | Action Elaborate_Subprogram 0077 029d 08cb | | Declare_Subprogram INIT_08c8,For_Outer_Call 0079 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 007a 00c7 | | Action Elaborate_Subprogram 007b 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 007c 00c7 | | Action Elaborate_Subprogram 007d 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 007e 00c7 | | Action Elaborate_Subprogram 007f 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 0080 00c7 | | Action Elaborate_Subprogram 0081 BODY_0008: 0081 00bc | | Action Signal_Activated 0082 00bb | | Action Signal_Completion 0083 0000 0000 | | .BLANK 0000[0x5] 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 008b | | .CONST 0x008b ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0001 | | .CONST 0x0001 ; Number of locals 008b BODY_0088: 008b INIT_0088: 008b e222 | " | Load 0x1,0x22 008c 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 008d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 008e 0000 0000 | | .XXX[0x2] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0097 | | .CONST 0x0097 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0005 | | .CONST 0x0005 ; Number of locals 0093 INIT_0090: 0093 00e2 | | Load_Encached Integer_Cache 0094 00e2 | | Load_Encached Integer_Cache 0095 00e2 | | Load_Encached Integer_Cache 0096 00e1 | | Load_Encached Boolean_Cache 0097 BODY_0090: 0097 4800 |H | Short_Literal 0x0 0098 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0099 4800 |H | Short_Literal 0x0 009a a402 | | Store_Unchecked 0x2,0x2 009b 00cf | | Action Mark_Auxiliary 009c e5ff | | Load 0x2,-0x1 009d e002 | | Load 0x0,0x2 009e 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 009f 4801 |H | Short_Literal 0x1 00a0 0263 | c | Execute Discrete,Above_Bound 00a1 710a |q | Jump_Nonzero 0x1ac 00a2 00d8 | | Load_Top At_Offset_0 00a3 e5ff | | Load 0x2,-0x1 00a4 e002 | | Load 0x0,0x2 00a5 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 00a6 e008 | | Load 0x0,0x8 00a7 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00a8 467f |F | Jump_Case 0x80 00a9 787f |x | Jump 0x129 ; case 0x0 00aa 787e |x~ | Jump 0x129 ; case 0x1 00ab 787d |x} | Jump 0x129 ; case 0x2 00ac 787c |x| | Jump 0x129 ; case 0x3 00ad 787b |x{ | Jump 0x129 ; case 0x4 00ae 787a |xz | Jump 0x129 ; case 0x5 00af 7879 |xy | Jump 0x129 ; case 0x6 00b0 7878 |xx | Jump 0x129 ; case 0x7 00b1 7877 |xw | Jump 0x129 ; case 0x8 00b2 7876 |xv | Jump 0x129 ; case 0x9 00b3 7875 |xu | Jump 0x129 ; case 0xa 00b4 7874 |xt | Jump 0x129 ; case 0xb 00b5 7873 |xs | Jump 0x129 ; case 0xc 00b6 7872 |xr | Jump 0x129 ; case 0xd 00b7 7871 |xq | Jump 0x129 ; case 0xe 00b8 7870 |xp | Jump 0x129 ; case 0xf 00b9 786f |xo | Jump 0x129 ; case 0x10 00ba 786e |xn | Jump 0x129 ; case 0x11 00bb 786d |xm | Jump 0x129 ; case 0x12 00bc 786c |xl | Jump 0x129 ; case 0x13 00bd 786b |xk | Jump 0x129 ; case 0x14 00be 786a |xj | Jump 0x129 ; case 0x15 00bf 7869 |xi | Jump 0x129 ; case 0x16 00c0 7868 |xh | Jump 0x129 ; case 0x17 00c1 7867 |xg | Jump 0x129 ; case 0x18 00c2 7866 |xf | Jump 0x129 ; case 0x19 00c3 7865 |xe | Jump 0x129 ; case 0x1a 00c4 7864 |xd | Jump 0x129 ; case 0x1b 00c5 7863 |xc | Jump 0x129 ; case 0x1c 00c6 7862 |xb | Jump 0x129 ; case 0x1d 00c7 7861 |xa | Jump 0x129 ; case 0x1e 00c8 7860 |x` | Jump 0x129 ; case 0x1f 00c9 785f |x_ | Jump 0x129 ; case 0x20 00ca 785e |x^ | Jump 0x129 ; case 0x21 00cb 785d |x] | Jump 0x129 ; case 0x22 00cc 785c |x\ | Jump 0x129 ; case 0x23 00cd 78ca |x | Jump 0x198 ; case 0x24 00ce 785a |xZ | Jump 0x129 ; case 0x25 00cf 7859 |xY | Jump 0x129 ; case 0x26 00d0 7858 |xX | Jump 0x129 ; case 0x27 00d1 7857 |xW | Jump 0x129 ; case 0x28 00d2 7856 |xV | Jump 0x129 ; case 0x29 00d3 7855 |xU | Jump 0x129 ; case 0x2a 00d4 7854 |xT | Jump 0x129 ; case 0x2b 00d5 7853 |xS | Jump 0x129 ; case 0x2c 00d6 7852 |xR | Jump 0x129 ; case 0x2d 00d7 78c9 |x | Jump 0x1a1 ; case 0x2e 00d8 7850 |xP | Jump 0x129 ; case 0x2f 00d9 78a0 |x | Jump 0x17a ; case 0x30 00da 78a2 |x | Jump 0x17d ; case 0x31 00db 78a4 |x | Jump 0x180 ; case 0x32 00dc 78a6 |x | Jump 0x183 ; case 0x33 00dd 78a8 |x | Jump 0x186 ; case 0x34 00de 78aa |x | Jump 0x189 ; case 0x35 00df 78ac |x | Jump 0x18c ; case 0x36 00e0 78ae |x | Jump 0x18f ; case 0x37 00e1 78b0 |x | Jump 0x192 ; case 0x38 00e2 78b2 |x | Jump 0x195 ; case 0x39 00e3 7845 |xE | Jump 0x129 ; case 0x3a 00e4 7844 |xD | Jump 0x129 ; case 0x3b 00e5 7843 |xC | Jump 0x129 ; case 0x3c 00e6 7842 |xB | Jump 0x129 ; case 0x3d 00e7 7841 |xA | Jump 0x129 ; case 0x3e 00e8 78b5 |x | Jump 0x19e ; case 0x3f 00e9 783f |x? | Jump 0x129 ; case 0x40 00ea 7841 |xA | Jump 0x12c ; case 0x41 00eb 7843 |xC | Jump 0x12f ; case 0x42 00ec 7845 |xE | Jump 0x132 ; case 0x43 00ed 7847 |xG | Jump 0x135 ; case 0x44 00ee 7849 |xI | Jump 0x138 ; case 0x45 00ef 784b |xK | Jump 0x13b ; case 0x46 00f0 784d |xM | Jump 0x13e ; case 0x47 00f1 784f |xO | Jump 0x141 ; case 0x48 00f2 7851 |xQ | Jump 0x144 ; case 0x49 00f3 7853 |xS | Jump 0x147 ; case 0x4a 00f4 7855 |xU | Jump 0x14a ; case 0x4b 00f5 7857 |xW | Jump 0x14d ; case 0x4c 00f6 7859 |xY | Jump 0x150 ; case 0x4d 00f7 785b |x[ | Jump 0x153 ; case 0x4e 00f8 785d |x] | Jump 0x156 ; case 0x4f 00f9 785f |x_ | Jump 0x159 ; case 0x50 00fa 7861 |xa | Jump 0x15c ; case 0x51 00fb 7863 |xc | Jump 0x15f ; case 0x52 00fc 7865 |xe | Jump 0x162 ; case 0x53 00fd 7867 |xg | Jump 0x165 ; case 0x54 00fe 7869 |xi | Jump 0x168 ; case 0x55 00ff 786b |xk | Jump 0x16b ; case 0x56 0100 786d |xm | Jump 0x16e ; case 0x57 0101 786f |xo | Jump 0x171 ; case 0x58 0102 7871 |xq | Jump 0x174 ; case 0x59 0103 7873 |xs | Jump 0x177 ; case 0x5a 0104 7824 |x$ | Jump 0x129 ; case 0x5b 0105 7823 |x# | Jump 0x129 ; case 0x5c 0106 7822 |x" | Jump 0x129 ; case 0x5d 0107 7821 |x! | Jump 0x129 ; case 0x5e 0108 7892 |x | Jump 0x19b ; case 0x5f 0109 781f |x | Jump 0x129 ; case 0x60 010a 781e |x | Jump 0x129 ; case 0x61 010b 781d |x | Jump 0x129 ; case 0x62 010c 781c |x | Jump 0x129 ; case 0x63 010d 781b |x | Jump 0x129 ; case 0x64 010e 781a |x | Jump 0x129 ; case 0x65 010f 7819 |x | Jump 0x129 ; case 0x66 0110 7818 |x | Jump 0x129 ; case 0x67 0111 7817 |x | Jump 0x129 ; case 0x68 0112 7816 |x | Jump 0x129 ; case 0x69 0113 7815 |x | Jump 0x129 ; case 0x6a 0114 7814 |x | Jump 0x129 ; case 0x6b 0115 7813 |x | Jump 0x129 ; case 0x6c 0116 7812 |x | Jump 0x129 ; case 0x6d 0117 7811 |x | Jump 0x129 ; case 0x6e 0118 7810 |x | Jump 0x129 ; case 0x6f 0119 780f |x | Jump 0x129 ; case 0x70 011a 780e |x | Jump 0x129 ; case 0x71 011b 780d |x | Jump 0x129 ; case 0x72 011c 780c |x | Jump 0x129 ; case 0x73 011d 780b |x | Jump 0x129 ; case 0x74 011e 780a |x | Jump 0x129 ; case 0x75 011f 7809 |x | Jump 0x129 ; case 0x76 0120 7808 |x | Jump 0x129 ; case 0x77 0121 7807 |x | Jump 0x129 ; case 0x78 0122 7806 |x | Jump 0x129 ; case 0x79 0123 7805 |x | Jump 0x129 ; case 0x7a 0124 7804 |x | Jump 0x129 ; case 0x7b 0125 7803 |x | Jump 0x129 ; case 0x7c 0126 7802 |x | Jump 0x129 ; case 0x7d 0127 7801 |x | Jump 0x129 ; case 0x7e 0128 7800 |x | Jump 0x129 ; case 0x7f 0129 4801 |H | Short_Literal 0x1 012a a405 | | Store_Unchecked 0x2,0x5 012b 7877 |xw | Jump 0x1a3 012c 4801 |H | Short_Literal 0x1 012d a404 | | Store_Unchecked 0x2,0x4 012e 7874 |xt | Jump 0x1a3 012f 4808 |H | Short_Literal 0x8 0130 a404 | | Store_Unchecked 0x2,0x4 0131 7871 |xq | Jump 0x1a3 0132 481b |H | Short_Literal 0x1b 0133 a404 | | Store_Unchecked 0x2,0x4 0134 786e |xn | Jump 0x1a3 0135 4840 |H@ | Short_Literal 0x40 0136 a404 | | Store_Unchecked 0x2,0x4 0137 786b |xk | Jump 0x1a3 0138 487d |H} | Short_Literal 0x7d 0139 a404 | | Store_Unchecked 0x2,0x4 013a 7868 |xh | Jump 0x1a3 013b 48d8 |H | Short_Literal 0xd8 013c a404 | | Store_Unchecked 0x2,0x4 013d 7865 |xe | Jump 0x1a3 013e 4957 |IW | Short_Literal 0x157 013f a404 | | Store_Unchecked 0x2,0x4 0140 7862 |xb | Jump 0x1a3 0141 4a00 |J | Short_Literal 0x200 0142 a404 | | Store_Unchecked 0x2,0x4 0143 785f |x_ | Jump 0x1a3 0144 4ad9 |J | Short_Literal 0x2d9 0145 a404 | | Store_Unchecked 0x2,0x4 0146 785c |x\ | Jump 0x1a3 0147 4be8 |K | Short_Literal 0x3e8 0148 a404 | | Store_Unchecked 0x2,0x4 0149 7859 |xY | Jump 0x1a3 014a 60ed |` | Indirect_Literal Discrete,0x238,{0x00000000, 0x00000533} 014b a404 | | Store_Unchecked 0x2,0x4 014c 7856 |xV | Jump 0x1a3 014d 60e6 |` | Indirect_Literal Discrete,0x234,{0x00000000, 0x000006c0} 014e a404 | | Store_Unchecked 0x2,0x4 014f 7853 |xS | Jump 0x1a3 0150 60df |` | Indirect_Literal Discrete,0x230,{0x00000000, 0x00000895} 0151 a404 | | Store_Unchecked 0x2,0x4 0152 7850 |xP | Jump 0x1a3 0153 60d8 |` | Indirect_Literal Discrete,0x22c,{0x00000000, 0x00000ab8} 0154 a404 | | Store_Unchecked 0x2,0x4 0155 784d |xM | Jump 0x1a3 0156 60d1 |` | Indirect_Literal Discrete,0x228,{0x00000000, 0x00000d2f} 0157 a404 | | Store_Unchecked 0x2,0x4 0158 784a |xJ | Jump 0x1a3 0159 60ca |` | Indirect_Literal Discrete,0x224,{0x00000000, 0x00001000} 015a a404 | | Store_Unchecked 0x2,0x4 015b 7847 |xG | Jump 0x1a3 015c 60c3 |` | Indirect_Literal Discrete,0x220,{0x00000000, 0x00001331} 015d a404 | | Store_Unchecked 0x2,0x4 015e 7844 |xD | Jump 0x1a3 015f 60bc |` | Indirect_Literal Discrete,0x21c,{0x00000000, 0x000016c8} 0160 a404 | | Store_Unchecked 0x2,0x4 0161 7841 |xA | Jump 0x1a3 0162 60b5 |` | Indirect_Literal Discrete,0x218,{0x00000000, 0x00001acb} 0163 a404 | | Store_Unchecked 0x2,0x4 0164 783e |x> | Jump 0x1a3 0165 60ae |` | Indirect_Literal Discrete,0x214,{0x00000000, 0x00001f40} 0166 a404 | | Store_Unchecked 0x2,0x4 0167 783b |x; | Jump 0x1a3 0168 60a7 |` | Indirect_Literal Discrete,0x210,{0x00000000, 0x0000242d} 0169 a404 | | Store_Unchecked 0x2,0x4 016a 7838 |x8 | Jump 0x1a3 016b 60a0 |` | Indirect_Literal Discrete,0x20c,{0x00000000, 0x00002998} 016c a404 | | Store_Unchecked 0x2,0x4 016d 7835 |x5 | Jump 0x1a3 016e 6099 |` | Indirect_Literal Discrete,0x208,{0x00000000, 0x00002f87} 016f a404 | | Store_Unchecked 0x2,0x4 0170 7832 |x2 | Jump 0x1a3 0171 6092 |` | Indirect_Literal Discrete,0x204,{0x00000000, 0x00003600} 0172 a404 | | Store_Unchecked 0x2,0x4 0173 782f |x/ | Jump 0x1a3 0174 608b |` | Indirect_Literal Discrete,0x200,{0x00000000, 0x00003d09} 0175 a404 | | Store_Unchecked 0x2,0x4 0176 782c |x, | Jump 0x1a3 0177 6084 |` | Indirect_Literal Discrete,0x1fc,{0x00000000, 0x000044a8} 0178 a404 | | Store_Unchecked 0x2,0x4 0179 7829 |x) | Jump 0x1a3 017a 607d |`} | Indirect_Literal Discrete,0x1f8,{0x00000000, 0x0001b000} 017b a404 | | Store_Unchecked 0x2,0x4 017c 7826 |x& | Jump 0x1a3 017d 6076 |`v | Indirect_Literal Discrete,0x1f4,{0x00000000, 0x0001cb91} 017e a404 | | Store_Unchecked 0x2,0x4 017f 7823 |x# | Jump 0x1a3 0180 606f |`o | Indirect_Literal Discrete,0x1f0,{0x00000000, 0x0001e848} 0181 a404 | | Store_Unchecked 0x2,0x4 0182 7820 |x | Jump 0x1a3 0183 6068 |`h | Indirect_Literal Discrete,0x1ec,{0x00000000, 0x0002062b} 0184 a404 | | Store_Unchecked 0x2,0x4 0185 781d |x | Jump 0x1a3 0186 6061 |`a | Indirect_Literal Discrete,0x1e8,{0x00000000, 0x00022540} 0187 a404 | | Store_Unchecked 0x2,0x4 0188 781a |x | Jump 0x1a3 0189 605a |`Z | Indirect_Literal Discrete,0x1e4,{0x00000000, 0x0002458d} 018a a404 | | Store_Unchecked 0x2,0x4 018b 7817 |x | Jump 0x1a3 018c 6053 |`S | Indirect_Literal Discrete,0x1e0,{0x00000000, 0x00026718} 018d a404 | | Store_Unchecked 0x2,0x4 018e 7814 |x | Jump 0x1a3 018f 604c |`L | Indirect_Literal Discrete,0x1dc,{0x00000000, 0x000289e7} 0190 a404 | | Store_Unchecked 0x2,0x4 0191 7811 |x | Jump 0x1a3 0192 6045 |`E | Indirect_Literal Discrete,0x1d8,{0x00000000, 0x0002ae00} 0193 a404 | | Store_Unchecked 0x2,0x4 0194 780e |x | Jump 0x1a3 0195 603e |`> | Indirect_Literal Discrete,0x1d4,{0x00000000, 0x0002d369} 0196 a404 | | Store_Unchecked 0x2,0x4 0197 780b |x | Jump 0x1a3 0198 6037 |`7 | Indirect_Literal Discrete,0x1d0,{0x00000000, 0x0000b640} 0199 a404 | | Store_Unchecked 0x2,0x4 019a 7808 |x | Jump 0x1a3 019b 6030 |`0 | Indirect_Literal Discrete,0x1cc,{0x00000000, 0x0000745f} 019c a404 | | Store_Unchecked 0x2,0x4 019d 7805 |x | Jump 0x1a3 019e 6029 |`) | Indirect_Literal Discrete,0x1c8,{0x00000000, 0x0003d0bf} 019f a404 | | Store_Unchecked 0x2,0x4 01a0 7802 |x | Jump 0x1a3 01a1 6022 |`" | Indirect_Literal Discrete,0x1c4,{0x00000000, 0x00017c38} 01a2 a404 | | Store_Unchecked 0x2,0x4 01a3 e402 | | Load 0x2,0x2 01a4 e404 | | Load 0x2,0x4 01a5 00da | | Load_Top At_Offset_2 01a6 0271 | q | Execute Discrete,Times 01a7 0273 | s | Execute Discrete,Plus 01a8 c402 | | Store 0x2,0x2 01a9 00c8 | | Action Pop_Auxiliary_Range 01aa 00a4 00a2 | | Action Loop_Increasing_Extended,0xa2 01ac 00ce | | Action Pop_Auxiliary 01ad 00d8 | | Load_Top At_Offset_0 01ae 6802 |h | Jump_Zero 0x1b1 01af 4800 |H | Short_Literal 0x0 01b0 a402 | | Store_Unchecked 0x2,0x2 01b1 00db | | Load_Top At_Offset_3 01b2 600d |` | Indirect_Literal Discrete,0x1c0,{0x00000000, 0x0000ffff} 01b3 027d | } | Execute Discrete,Greater 01b4 6804 |h | Jump_Zero 0x1b9 01b5 00db | | Load_Top At_Offset_3 01b6 6005 |` | Indirect_Literal Discrete,0x1bc,{0x00000000, 0x00010000} 01b7 026f | o | Execute Discrete,Remainder 01b8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01b9 00db | | Load_Top At_Offset_3 01ba 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01bb 0000 | | .XXX[0x1] 01bc 0000 0000 | | .LITERAL {0x00000000, 0x00010000} 01c0 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff} 01c4 0000 0000 | | .LITERAL {0x00000000, 0x00017c38} 01c8 0000 0000 | | .LITERAL {0x00000000, 0x0003d0bf} 01cc 0000 0000 | | .LITERAL {0x00000000, 0x0000745f} 01d0 0000 0000 | | .LITERAL {0x00000000, 0x0000b640} 01d4 0000 0000 | | .LITERAL {0x00000000, 0x0002d369} 01d8 0000 0000 | | .LITERAL {0x00000000, 0x0002ae00} 01dc 0000 0000 | | .LITERAL {0x00000000, 0x000289e7} 01e0 0000 0000 | | .LITERAL {0x00000000, 0x00026718} 01e4 0000 0000 | | .LITERAL {0x00000000, 0x0002458d} 01e8 0000 0000 | | .LITERAL {0x00000000, 0x00022540} 01ec 0000 0000 | | .LITERAL {0x00000000, 0x0002062b} 01f0 0000 0000 | | .LITERAL {0x00000000, 0x0001e848} 01f4 0000 0000 | | .LITERAL {0x00000000, 0x0001cb91} 01f8 0000 0000 | | .LITERAL {0x00000000, 0x0001b000} 01fc 0000 0000 | | .LITERAL {0x00000000, 0x000044a8} 0200 0000 0000 | | .LITERAL {0x00000000, 0x00003d09} 0204 0000 0000 | | .LITERAL {0x00000000, 0x00003600} 0208 0000 0000 | | .LITERAL {0x00000000, 0x00002f87} 020c 0000 0000 | | .LITERAL {0x00000000, 0x00002998} 0210 0000 0000 | | .LITERAL {0x00000000, 0x0000242d} 0214 0000 0000 | | .LITERAL {0x00000000, 0x00001f40} 0218 0000 0000 | | .LITERAL {0x00000000, 0x00001acb} 021c 0000 0000 | | .LITERAL {0x00000000, 0x000016c8} 0220 0000 0000 | | .LITERAL {0x00000000, 0x00001331} 0224 0000 0000 | | .LITERAL {0x00000000, 0x00001000} 0228 0000 0000 | | .LITERAL {0x00000000, 0x00000d2f} 022c 0000 0000 | | .LITERAL {0x00000000, 0x00000ab8} 0230 0000 0000 | | .LITERAL {0x00000000, 0x00000895} 0234 0000 0000 | | .LITERAL {0x00000000, 0x000006c0} 0238 0000 0000 | | .LITERAL {0x00000000, 0x00000533} 023c 0000 0000 | | .BLANK 0000[0x4] 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 0255 | U | .CONST 0x0255 ; Address of begin 0241 0004 | | .CONST 0x0004 ; Address of exception handler 0242 0007 | | .CONST 0x0007 ; Number of locals 0243 INIT_0240: 0243 4800 |H | Short_Literal 0x0 0244 4bff |K | Short_Literal 0x3ff 0245 e009 | | Load 0x0,0x9 0246 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0247 02a0 | | Declare_Subprogram Null_Subprogram 0248 4801 |H | Short_Literal 0x1 0249 035d | ] | Declare_Type Array,Defined 024a e006 | | Load 0x0,0x6 024b 1b16 | | Execute Package,Field_Read,Field_Number 0x16 024c 1910 | | Execute Package,Field_Reference,Field_Number 0x10 024d 00c6 | | Action Check_Subprogram_Elaborated 024e 00d8 | | Load_Top At_Offset_0 024f e00a | | Load 0x0,0xa 0250 e00b | | Load 0x0,0xb 0251 4806 |H | Short_Literal 0x6 0252 0007 | | Action Break_Optional 0253 e402 | | Load 0x2,0x2 0254 0337 | 7 | Declare_Variable Array 0255 BODY_0240: 0255 4800 |H | Short_Literal 0x0 0256 e224 | $ | Load 0x1,0x24 0257 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0258 4800 |H | Short_Literal 0x0 0259 e224 | $ | Load 0x1,0x24 025a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 025b 4802 |H | Short_Literal 0x2 025c e224 | $ | Load 0x1,0x24 025d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 025e e224 | $ | Load 0x1,0x24 025f e403 | | Load 0x2,0x3 0260 4804 |H | Short_Literal 0x4 0261 4802 |H | Short_Literal 0x2 0262 0099 | | Action Reference_Dynamic 0263 e006 | | Load 0x0,0x6 0264 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0265 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0266 00d9 | | Load_Top At_Offset_1 0267 01d4 | | Execute Vector,Structure_Write 0268 4802 |H | Short_Literal 0x2 0269 00d9 | | Load_Top At_Offset_1 026a 01d7 | | Execute Vector,Field_Read 026b 0f45 | E | Execute_Immediate Equal,0x45 026c 4803 |H | Short_Literal 0x3 026d 00da | | Load_Top At_Offset_2 026e 01d7 | | Execute Vector,Field_Read 026f 0f4b | K | Execute_Immediate Equal,0x4b 0270 0279 | y | Execute Discrete,And 0271 6802 |h | Jump_Zero 0x274 0272 4801 |H | Short_Literal 0x1 0273 a222 | " | Store_Unchecked 0x1,0x22 0274 4802 |H | Short_Literal 0x2 0275 00d9 | | Load_Top At_Offset_1 0276 01d7 | | Execute Vector,Field_Read 0277 0f4b | K | Execute_Immediate Equal,0x4b 0278 4803 |H | Short_Literal 0x3 0279 00da | | Load_Top At_Offset_2 027a 01d7 | | Execute Vector,Field_Read 027b 0f45 | E | Execute_Immediate Equal,0x45 027c 0279 | y | Execute Discrete,And 027d 6802 |h | Jump_Zero 0x280 027e 4802 |H | Short_Literal 0x2 027f a222 | " | Store_Unchecked 0x1,0x22 0280 e222 | " | Load 0x1,0x22 0281 00ca | | Action Exit_Nullary_Function 0282 0000 0000 | | .BLANK 0000[0x6] 0288 ; -------------------------------------------------------------------------------------- 0288 ; SUBPROGRAM 0288 ; -------------------------------------------------------------------------------------- 0288 0291 | | .CONST 0x0291 ; Address of begin 0289 0004 | | .CONST 0x0004 ; Address of exception handler 028a 0002 | | .CONST 0x0002 ; Number of locals 028b INIT_0288: 028b 4864 |Hd | Short_Literal 0x64 028c e002 | | Load 0x0,0x2 028d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 028e 1c08 | | Execute_Immediate Run_Utility,0x8 028f 00d8 | | Load_Top At_Offset_0 0290 1c00 | | Execute_Immediate Run_Utility,0x0 0291 BODY_0288: 0291 00d8 | | Load_Top At_Offset_0 0292 e5ff | | Load 0x2,-0x1 0293 821a | | Call 0x1,0x1a 0294 00d1 | | Pop_Control Pop_Count_1 0295 e00c | | Load 0x0,0xc 0296 180e | | Execute Package,Field_Execute,Field_Number 0xe 0297 4802 |H | Short_Literal 0x2 0298 00da | | Load_Top At_Offset_2 0299 e002 | | Load 0x0,0x2 029a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 029b e00d | | Load 0x0,0xd 029c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 029d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 029e 0000 0000 | | .XXX[0x2] 02a0 ; -------------------------------------------------------------------------------------- 02a0 ; SUBPROGRAM 02a0 ; -------------------------------------------------------------------------------------- 02a0 02ac | | .CONST 0x02ac ; Address of begin 02a1 02bc | | .CONST 0x02bc ; Address of exception handler 02a2 0005 | | .CONST 0x0005 ; Number of locals 02a3 INIT_02a0: 02a3 e006 | | Load 0x0,0x6 02a4 1b16 | | Execute Package,Field_Read,Field_Number 0x16 02a5 1910 | | Execute Package,Field_Reference,Field_Number 0x10 02a6 00c6 | | Action Check_Subprogram_Elaborated 02a7 e00e | | Load 0x0,0xe 02a8 e00f | | Load 0x0,0xf 02a9 e010 | | Load 0x0,0x10 02aa 4805 |H | Short_Literal 0x5 02ab 0007 | | Action Break_Optional 02ac BODY_02a0: 02ac e5fe | | Load 0x2,-0x2 02ad e5ff | | Load 0x2,-0x1 02ae 822a | * | Call 0x1,0x2a 02af 4800 |H | Short_Literal 0x0 02b0 a5f9 | | Store_Unchecked 0x2,-0x7 02b1 e224 | $ | Load 0x1,0x24 02b2 e402 | | Load 0x2,0x2 02b3 4803 |H | Short_Literal 0x3 02b4 4802 |H | Short_Literal 0x2 02b5 0099 | | Action Reference_Dynamic 02b6 e006 | | Load 0x0,0x6 02b7 1b16 | | Execute Package,Field_Read,Field_Number 0x16 02b8 1810 | | Execute Package,Field_Execute,Field_Number 0x10 02b9 e5fa | | Load 0x2,-0x6 02ba 01d4 | | Execute Vector,Structure_Write 02bb 4506 |E | Exit_Suprogram New_Top_Offset 0x6 02bc TRAP_02a0: 02bc e006 | | Load 0x0,0x6 02bd 1b16 | | Execute Package,Field_Read,Field_Number 0x16 02be 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02bf 010f | | Execute Exception,Equal 02c0 680a |h | Jump_Zero 0x2cb 02c1 480b |H | Short_Literal 0xb 02c2 a5f9 | | Store_Unchecked 0x2,-0x7 02c3 e00c | | Load 0x0,0xc 02c4 180e | | Execute Package,Field_Execute,Field_Number 0xe 02c5 4802 |H | Short_Literal 0x2 02c6 0092 0959 | Y| Action Push_String_Extended,0x959 ; "address out of bounds" 02c8 e00d | | Load 0x0,0xd 02c9 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02ca 4506 |E | Exit_Suprogram New_Top_Offset 0x6 02cb 480c |H | Short_Literal 0xc 02cc a5f9 | | Store_Unchecked 0x2,-0x7 02cd e00c | | Load 0x0,0xc 02ce 180e | | Execute Package,Field_Execute,Field_Number 0xe 02cf 4802 |H | Short_Literal 0x2 02d0 4800 |H | Short_Literal 0x0 02d1 4801 |H | Short_Literal 0x1 02d2 e011 | | Load 0x0,0x11 02d3 1815 | | Execute Package,Field_Execute,Field_Number 0x15 02d4 e00d | | Load 0x0,0xd 02d5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02d6 4506 |E | Exit_Suprogram New_Top_Offset 0x6 02d7 0000 | | .XXX[0x1] 02d8 ; -------------------------------------------------------------------------------------- 02d8 ; SUBPROGRAM 02d8 ; -------------------------------------------------------------------------------------- 02d8 02df | | .CONST 0x02df ; Address of begin 02d9 0004 | | .CONST 0x0004 ; Address of exception handler 02da 0003 | | .CONST 0x0003 ; Number of locals 02db INIT_02d8: 02db e00e | | Load 0x0,0xe 02dc 0337 | 7 | Declare_Variable Array 02dd e007 | | Load 0x0,0x7 02de 0007 | | Action Break_Optional 02df BODY_02d8: 02df 4800 |H | Short_Literal 0x0 02e0 a226 | & | Store_Unchecked 0x1,0x26 02e1 480c |H | Short_Literal 0xc 02e2 a5fe | | Store_Unchecked 0x2,-0x2 02e3 e5ff | | Load 0x2,-0x1 02e4 e012 | | Load 0x0,0x12 02e5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 02e6 e013 | | Load 0x0,0x13 02e7 e012 | | Load 0x0,0x12 02e8 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 02e9 606a |`j | Indirect_Literal Discrete,0x354,{0x00000000, 0x00007fff} 02ea e012 | | Load 0x0,0x12 02eb 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 02ec 6067 |`g | Indirect_Literal Discrete,0x354,{0x00000000, 0x00007fff} 02ed e012 | | Load 0x0,0x12 02ee 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 02ef e013 | | Load 0x0,0x13 02f0 e014 | | Load 0x0,0x14 02f1 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 02f2 8218 | | Call 0x1,0x18 02f3 e223 | # | Load 0x1,0x23 02f4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02f5 605a |`Z | Indirect_Literal Discrete,0x350,{0x00000000, 0x00007fed} 02f6 027e | ~ | Execute Discrete,Not_Equal 02f7 6803 |h | Jump_Zero 0x2fb 02f8 480d |H | Short_Literal 0xd 02f9 a5fe | | Store_Unchecked 0x2,-0x2 02fa 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02fb e223 | # | Load 0x1,0x23 02fc 340a |4 | Execute Record,Field_Reference,Field_Number 0xa 02fd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02fe 0e01 | | Execute_Immediate Not_Equal,0x1 02ff 6803 |h | Jump_Zero 0x303 0300 480e |H | Short_Literal 0xe 0301 a5fe | | Store_Unchecked 0x2,-0x2 0302 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0303 e223 | # | Load 0x1,0x23 0304 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 0305 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0306 09ff | | Execute_Immediate Binary_Scale,-0x1 0307 00d8 | | Load_Top At_Offset_0 0308 e015 | | Load 0x0,0x15 0309 0260 | ` | Execute Discrete,In_Type 030a 7001 |p | Jump_Nonzero 0x30c 030b 0801 | | Execute_Immediate Raise,0x1 030c e012 | | Load 0x0,0x12 030d 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 030e e012 | | Load 0x0,0x12 030f 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0310 e223 | # | Load 0x1,0x23 0311 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 0312 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0313 0271 | q | Execute Discrete,Times 0314 00d8 | | Load_Top At_Offset_0 0315 e015 | | Load 0x0,0x15 0316 0260 | ` | Execute Discrete,In_Type 0317 7001 |p | Jump_Nonzero 0x319 0318 0801 | | Execute_Immediate Raise,0x1 0319 e012 | | Load 0x0,0x12 031a 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 031b e012 | | Load 0x0,0x12 031c 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 031d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 031e 7005 |p | Jump_Nonzero 0x324 031f 4800 |H | Short_Literal 0x0 0320 e012 | | Load 0x0,0x12 0321 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 0322 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0323 7827 |x' | Jump 0x34b 0324 00d8 | | Load_Top At_Offset_0 0325 00da | | Load_Top At_Offset_2 0326 4802 |H | Short_Literal 0x2 0327 e012 | | Load 0x0,0x12 0328 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 0329 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 032a 8213 | | Call 0x1,0x13 032b 00d1 | | Pop_Control Pop_Count_1 032c 0059 | Y | Store_Top Discrete,At_Offset_1 032d 00d8 | | Load_Top At_Offset_0 032e 6801 |h | Jump_Zero 0x330 032f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0330 4800 |H | Short_Literal 0x0 0331 00da | | Load_Top At_Offset_2 0332 01d7 | | Execute Vector,Field_Read 0333 0908 | | Execute_Immediate Binary_Scale,0x8 0334 4801 |H | Short_Literal 0x1 0335 00db | | Load_Top At_Offset_3 0336 01d7 | | Execute Vector,Field_Read 0337 0273 | s | Execute Discrete,Plus 0338 e012 | | Load 0x0,0x12 0339 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 033a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 033b 4802 |H | Short_Literal 0x2 033c 00da | | Load_Top At_Offset_2 033d 01d7 | | Execute Vector,Field_Read 033e 0908 | | Execute_Immediate Binary_Scale,0x8 033f 4803 |H | Short_Literal 0x3 0340 00db | | Load_Top At_Offset_3 0341 01d7 | | Execute Vector,Field_Read 0342 0273 | s | Execute Discrete,Plus 0343 00d8 | | Load_Top At_Offset_0 0344 e015 | | Load 0x0,0x15 0345 0260 | ` | Execute Discrete,In_Type 0346 7001 |p | Jump_Nonzero 0x348 0347 0801 | | Execute_Immediate Raise,0x1 0348 e012 | | Load 0x0,0x12 0349 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 034a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 034b 4800 |H | Short_Literal 0x0 034c a5fe | | Store_Unchecked 0x2,-0x2 034d 4801 |H | Short_Literal 0x1 034e a226 | & | Store_Unchecked 0x1,0x26 034f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0350 0000 0000 | | .LITERAL {0x00000000, 0x00007fed} 0354 0000 0000 | | .LITERAL {0x00000000, 0x00007fff} 0358 ; -------------------------------------------------------------------------------------- 0358 ; SUBPROGRAM 0358 ; -------------------------------------------------------------------------------------- 0358 0365 | e | .CONST 0x0365 ; Address of begin 0359 0376 | v | .CONST 0x0376 ; Address of exception handler 035a 0006 | | .CONST 0x0006 ; Number of locals 035b INIT_0358: 035b e006 | | Load 0x0,0x6 035c 1b16 | | Execute Package,Field_Read,Field_Number 0x16 035d 1910 | | Execute Package,Field_Reference,Field_Number 0x10 035e 00c6 | | Action Check_Subprogram_Elaborated 035f e00e | | Load 0x0,0xe 0360 e016 | | Load 0x0,0x16 0361 e017 | | Load 0x0,0x17 0362 4805 |H | Short_Literal 0x5 0363 0007 | | Action Break_Optional 0364 00e2 | | Load_Encached Integer_Cache 0365 BODY_0358: 0365 4800 |H | Short_Literal 0x0 0366 a5fc | | Store_Unchecked 0x2,-0x4 0367 e224 | $ | Load 0x1,0x24 0368 e5ff | | Load 0x2,-0x1 0369 8229 | ) | Call 0x1,0x29 036a 00d1 | | Pop_Control Pop_Count_1 036b e224 | $ | Load 0x1,0x24 036c e402 | | Load 0x2,0x2 036d 4803 |H | Short_Literal 0x3 036e 4802 |H | Short_Literal 0x2 036f 0099 | | Action Reference_Dynamic 0370 e006 | | Load 0x0,0x6 0371 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0372 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0373 e5fd | | Load 0x2,-0x3 0374 01d4 | | Execute Vector,Structure_Write 0375 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0376 TRAP_0358: 0376 e006 | | Load 0x0,0x6 0377 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0378 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0379 010f | | Execute Exception,Equal 037a 680a |h | Jump_Zero 0x385 037b 480b |H | Short_Literal 0xb 037c a5fc | | Store_Unchecked 0x2,-0x4 037d e00c | | Load 0x0,0xc 037e 180e | | Execute Package,Field_Execute,Field_Number 0xe 037f 4802 |H | Short_Literal 0x2 0380 0092 0959 | Y| Action Push_String_Extended,0x959 ; "address out of bounds" 0382 e00d | | Load 0x0,0xd 0383 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0384 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0385 480c |H | Short_Literal 0xc 0386 a5fc | | Store_Unchecked 0x2,-0x4 0387 e00c | | Load 0x0,0xc 0388 180e | | Execute Package,Field_Execute,Field_Number 0xe 0389 4802 |H | Short_Literal 0x2 038a 4800 |H | Short_Literal 0x0 038b 4801 |H | Short_Literal 0x1 038c e011 | | Load 0x0,0x11 038d 1815 | | Execute Package,Field_Execute,Field_Number 0x15 038e e00d | | Load 0x0,0xd 038f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0390 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0391 0000 0000 | | .BLANK 0000[0x7] 0398 ; -------------------------------------------------------------------------------------- 0398 ; SUBPROGRAM 0398 ; -------------------------------------------------------------------------------------- 0398 03a5 | | .CONST 0x03a5 ; Address of begin 0399 03b6 | | .CONST 0x03b6 ; Address of exception handler 039a 0006 | | .CONST 0x0006 ; Number of locals 039b INIT_0398: 039b e006 | | Load 0x0,0x6 039c 1b16 | | Execute Package,Field_Read,Field_Number 0x16 039d 1910 | | Execute Package,Field_Reference,Field_Number 0x10 039e 00c6 | | Action Check_Subprogram_Elaborated 039f e003 | | Load 0x0,0x3 03a0 e018 | | Load 0x0,0x18 03a1 e019 | | Load 0x0,0x19 03a2 4805 |H | Short_Literal 0x5 03a3 0007 | | Action Break_Optional 03a4 00e2 | | Load_Encached Integer_Cache 03a5 BODY_0398: 03a5 4800 |H | Short_Literal 0x0 03a6 a5fc | | Store_Unchecked 0x2,-0x4 03a7 e224 | $ | Load 0x1,0x24 03a8 e5ff | | Load 0x2,-0x1 03a9 8229 | ) | Call 0x1,0x29 03aa 00d1 | | Pop_Control Pop_Count_1 03ab e224 | $ | Load 0x1,0x24 03ac e402 | | Load 0x2,0x2 03ad 4803 |H | Short_Literal 0x3 03ae 4802 |H | Short_Literal 0x2 03af 0099 | | Action Reference_Dynamic 03b0 e006 | | Load 0x0,0x6 03b1 1b16 | | Execute Package,Field_Read,Field_Number 0x16 03b2 1810 | | Execute Package,Field_Execute,Field_Number 0x10 03b3 e5fd | | Load 0x2,-0x3 03b4 01d4 | | Execute Vector,Structure_Write 03b5 4503 |E | Exit_Suprogram New_Top_Offset 0x3 03b6 TRAP_0398: 03b6 e006 | | Load 0x0,0x6 03b7 1b16 | | Execute Package,Field_Read,Field_Number 0x16 03b8 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03b9 010f | | Execute Exception,Equal 03ba 680a |h | Jump_Zero 0x3c5 03bb 480b |H | Short_Literal 0xb 03bc a5fc | | Store_Unchecked 0x2,-0x4 03bd e00c | | Load 0x0,0xc 03be 180e | | Execute Package,Field_Execute,Field_Number 0xe 03bf 4802 |H | Short_Literal 0x2 03c0 0092 0959 | Y| Action Push_String_Extended,0x959 ; "address out of bounds" 03c2 e00d | | Load 0x0,0xd 03c3 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03c4 4503 |E | Exit_Suprogram New_Top_Offset 0x3 03c5 480c |H | Short_Literal 0xc 03c6 a5fc | | Store_Unchecked 0x2,-0x4 03c7 e00c | | Load 0x0,0xc 03c8 180e | | Execute Package,Field_Execute,Field_Number 0xe 03c9 4802 |H | Short_Literal 0x2 03ca 4800 |H | Short_Literal 0x0 03cb 4801 |H | Short_Literal 0x1 03cc e011 | | Load 0x0,0x11 03cd 1815 | | Execute Package,Field_Execute,Field_Number 0x15 03ce e00d | | Load 0x0,0xd 03cf 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03d0 4503 |E | Exit_Suprogram New_Top_Offset 0x3 03d1 0000 0000 | | .BLANK 0000[0x7] 03d8 ; -------------------------------------------------------------------------------------- 03d8 ; SUBPROGRAM 03d8 ; -------------------------------------------------------------------------------------- 03d8 03e4 | | .CONST 0x03e4 ; Address of begin 03d9 03f4 | | .CONST 0x03f4 ; Address of exception handler 03da 0005 | | .CONST 0x0005 ; Number of locals 03db INIT_03d8: 03db e006 | | Load 0x0,0x6 03dc 1b16 | | Execute Package,Field_Read,Field_Number 0x16 03dd 1911 | | Execute Package,Field_Reference,Field_Number 0x11 03de 00c6 | | Action Check_Subprogram_Elaborated 03df e00e | | Load 0x0,0xe 03e0 e01a | | Load 0x0,0x1a 03e1 e01b | | Load 0x0,0x1b 03e2 4805 |H | Short_Literal 0x5 03e3 0007 | | Action Break_Optional 03e4 BODY_03d8: 03e4 e5fe | | Load 0x2,-0x2 03e5 e5ff | | Load 0x2,-0x1 03e6 822a | * | Call 0x1,0x2a 03e7 4800 |H | Short_Literal 0x0 03e8 a5f9 | | Store_Unchecked 0x2,-0x7 03e9 4801 |H | Short_Literal 0x1 03ea e5fa | | Load 0x2,-0x6 03eb e224 | $ | Load 0x1,0x24 03ec e402 | | Load 0x2,0x2 03ed 4803 |H | Short_Literal 0x3 03ee 4802 |H | Short_Literal 0x2 03ef 0099 | | Action Reference_Dynamic 03f0 e006 | | Load 0x0,0x6 03f1 1b16 | | Execute Package,Field_Read,Field_Number 0x16 03f2 1811 | | Execute Package,Field_Execute,Field_Number 0x11 03f3 4507 |E | Exit_Suprogram New_Top_Offset 0x7 03f4 TRAP_03d8: 03f4 e006 | | Load 0x0,0x6 03f5 1b16 | | Execute Package,Field_Read,Field_Number 0x16 03f6 1b0f | | Execute Package,Field_Read,Field_Number 0xf 03f7 010f | | Execute Exception,Equal 03f8 680a |h | Jump_Zero 0x403 03f9 480b |H | Short_Literal 0xb 03fa a5f9 | | Store_Unchecked 0x2,-0x7 03fb e00c | | Load 0x0,0xc 03fc 180e | | Execute Package,Field_Execute,Field_Number 0xe 03fd 4802 |H | Short_Literal 0x2 03fe 0092 0959 | Y| Action Push_String_Extended,0x959 ; "address out of bounds" 0400 e00d | | Load 0x0,0xd 0401 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0402 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0403 480c |H | Short_Literal 0xc 0404 a5f9 | | Store_Unchecked 0x2,-0x7 0405 e00c | | Load 0x0,0xc 0406 180e | | Execute Package,Field_Execute,Field_Number 0xe 0407 4802 |H | Short_Literal 0x2 0408 4800 |H | Short_Literal 0x0 0409 4801 |H | Short_Literal 0x1 040a e011 | | Load 0x0,0x11 040b 1815 | | Execute Package,Field_Execute,Field_Number 0x15 040c e00d | | Load 0x0,0xd 040d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 040e 4507 |E | Exit_Suprogram New_Top_Offset 0x7 040f 0000 | | .XXX[0x1] 0410 ; -------------------------------------------------------------------------------------- 0410 ; SUBPROGRAM 0410 ; -------------------------------------------------------------------------------------- 0410 041d | | .CONST 0x041d ; Address of begin 0411 042e | . | .CONST 0x042e ; Address of exception handler 0412 0006 | | .CONST 0x0006 ; Number of locals 0413 INIT_0410: 0413 e006 | | Load 0x0,0x6 0414 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0415 1911 | | Execute Package,Field_Reference,Field_Number 0x11 0416 00c6 | | Action Check_Subprogram_Elaborated 0417 e00e | | Load 0x0,0xe 0418 e01c | | Load 0x0,0x1c 0419 e01d | | Load 0x0,0x1d 041a 4805 |H | Short_Literal 0x5 041b 0007 | | Action Break_Optional 041c 00e2 | | Load_Encached Integer_Cache 041d BODY_0410: 041d 4800 |H | Short_Literal 0x0 041e a5fc | | Store_Unchecked 0x2,-0x4 041f e224 | $ | Load 0x1,0x24 0420 e5ff | | Load 0x2,-0x1 0421 8229 | ) | Call 0x1,0x29 0422 00d1 | | Pop_Control Pop_Count_1 0423 4801 |H | Short_Literal 0x1 0424 e5fd | | Load 0x2,-0x3 0425 e224 | $ | Load 0x1,0x24 0426 e402 | | Load 0x2,0x2 0427 4803 |H | Short_Literal 0x3 0428 4802 |H | Short_Literal 0x2 0429 0099 | | Action Reference_Dynamic 042a e006 | | Load 0x0,0x6 042b 1b16 | | Execute Package,Field_Read,Field_Number 0x16 042c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 042d 4504 |E | Exit_Suprogram New_Top_Offset 0x4 042e TRAP_0410: 042e e006 | | Load 0x0,0x6 042f 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0430 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0431 010f | | Execute Exception,Equal 0432 680a |h | Jump_Zero 0x43d 0433 480b |H | Short_Literal 0xb 0434 a5fc | | Store_Unchecked 0x2,-0x4 0435 e00c | | Load 0x0,0xc 0436 180e | | Execute Package,Field_Execute,Field_Number 0xe 0437 4802 |H | Short_Literal 0x2 0438 0092 0959 | Y| Action Push_String_Extended,0x959 ; "address out of bounds" 043a e00d | | Load 0x0,0xd 043b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 043c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 043d 480c |H | Short_Literal 0xc 043e a5fc | | Store_Unchecked 0x2,-0x4 043f e00c | | Load 0x0,0xc 0440 180e | | Execute Package,Field_Execute,Field_Number 0xe 0441 4802 |H | Short_Literal 0x2 0442 4800 |H | Short_Literal 0x0 0443 4801 |H | Short_Literal 0x1 0444 e011 | | Load 0x0,0x11 0445 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0446 e00d | | Load 0x0,0xd 0447 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0448 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0449 0000 0000 | | .BLANK 0000[0x7] 0450 ; -------------------------------------------------------------------------------------- 0450 ; SUBPROGRAM 0450 ; -------------------------------------------------------------------------------------- 0450 0466 | f | .CONST 0x0466 ; Address of begin 0451 0477 | w | .CONST 0x0477 ; Address of exception handler 0452 000a | | .CONST 0x000a ; Number of locals 0453 INIT_0450: 0453 e006 | | Load 0x0,0x6 0454 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0455 1911 | | Execute Package,Field_Reference,Field_Number 0x11 0456 00c6 | | Action Check_Subprogram_Elaborated 0457 e003 | | Load 0x0,0x3 0458 e01e | | Load 0x0,0x1e 0459 e01f | | Load 0x0,0x1f 045a 4805 |H | Short_Literal 0x5 045b 0007 | | Action Break_Optional 045c e006 | | Load 0x0,0x6 045d 1b16 | | Execute Package,Field_Read,Field_Number 0x16 045e 1910 | | Execute Package,Field_Reference,Field_Number 0x10 045f 00c6 | | Action Check_Subprogram_Elaborated 0460 e003 | | Load 0x0,0x3 0461 e020 | | Load 0x0,0x20 0462 e021 | ! | Load 0x0,0x21 0463 4809 |H | Short_Literal 0x9 0464 0007 | | Action Break_Optional 0465 00e2 | | Load_Encached Integer_Cache 0466 BODY_0450: 0466 4800 |H | Short_Literal 0x0 0467 a5fc | | Store_Unchecked 0x2,-0x4 0468 e224 | $ | Load 0x1,0x24 0469 e5ff | | Load 0x2,-0x1 046a 8229 | ) | Call 0x1,0x29 046b 00d1 | | Pop_Control Pop_Count_1 046c 4801 |H | Short_Literal 0x1 046d e5fd | | Load 0x2,-0x3 046e e224 | $ | Load 0x1,0x24 046f e402 | | Load 0x2,0x2 0470 4803 |H | Short_Literal 0x3 0471 4802 |H | Short_Literal 0x2 0472 0099 | | Action Reference_Dynamic 0473 e006 | | Load 0x0,0x6 0474 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0475 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0476 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0477 TRAP_0450: 0477 e006 | | Load 0x0,0x6 0478 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0479 1b0f | | Execute Package,Field_Read,Field_Number 0xf 047a 010f | | Execute Exception,Equal 047b 680a |h | Jump_Zero 0x486 047c 480b |H | Short_Literal 0xb 047d a5fc | | Store_Unchecked 0x2,-0x4 047e e00c | | Load 0x0,0xc 047f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0480 4802 |H | Short_Literal 0x2 0481 0092 0959 | Y| Action Push_String_Extended,0x959 ; "address out of bounds" 0483 e00d | | Load 0x0,0xd 0484 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0485 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0486 480c |H | Short_Literal 0xc 0487 a5fc | | Store_Unchecked 0x2,-0x4 0488 e00c | | Load 0x0,0xc 0489 180e | | Execute Package,Field_Execute,Field_Number 0xe 048a 4802 |H | Short_Literal 0x2 048b 4800 |H | Short_Literal 0x0 048c 4801 |H | Short_Literal 0x1 048d e011 | | Load 0x0,0x11 048e 1815 | | Execute Package,Field_Execute,Field_Number 0x15 048f e00d | | Load 0x0,0xd 0490 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0491 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0492 0000 0000 | | .BLANK 0000[0x6] 0498 ; -------------------------------------------------------------------------------------- 0498 ; SUBPROGRAM 0498 ; -------------------------------------------------------------------------------------- 0498 04ad | | .CONST 0x04ad ; Address of begin 0499 04e6 | | .CONST 0x04e6 ; Address of exception handler 049a 0009 | | .CONST 0x0009 ; Number of locals 049b INIT_0498: 049b e006 | | Load 0x0,0x6 049c 1b16 | | Execute Package,Field_Read,Field_Number 0x16 049d 1910 | | Execute Package,Field_Reference,Field_Number 0x10 049e 00c6 | | Action Check_Subprogram_Elaborated 049f e005 | | Load 0x0,0x5 04a0 e022 | " | Load 0x0,0x22 04a1 e023 | # | Load 0x0,0x23 04a2 4805 |H | Short_Literal 0x5 04a3 0007 | | Action Break_Optional 04a4 e006 | | Load 0x0,0x6 04a5 1b16 | | Execute Package,Field_Read,Field_Number 0x16 04a6 1910 | | Execute Package,Field_Reference,Field_Number 0x10 04a7 00c6 | | Action Check_Subprogram_Elaborated 04a8 e024 | $ | Load 0x0,0x24 04a9 e025 | % | Load 0x0,0x25 04aa e026 | & | Load 0x0,0x26 04ab 4809 |H | Short_Literal 0x9 04ac 0007 | | Action Break_Optional 04ad BODY_0498: 04ad 4800 |H | Short_Literal 0x0 04ae e224 | $ | Load 0x1,0x24 04af 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 04b0 4800 |H | Short_Literal 0x0 04b1 e224 | $ | Load 0x1,0x24 04b2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 04b3 4804 |H | Short_Literal 0x4 04b4 e224 | $ | Load 0x1,0x24 04b5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 04b6 e224 | $ | Load 0x1,0x24 04b7 e402 | | Load 0x2,0x2 04b8 4803 |H | Short_Literal 0x3 04b9 4802 |H | Short_Literal 0x2 04ba 0099 | | Action Reference_Dynamic 04bb e006 | | Load 0x0,0x6 04bc 1b16 | | Execute Package,Field_Read,Field_Number 0x16 04bd 1810 | | Execute Package,Field_Execute,Field_Number 0x10 04be e223 | # | Load 0x1,0x23 04bf 017d | } | Execute Record,Structure_Write 04c0 e223 | # | Load 0x1,0x23 04c1 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 04c2 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 04c3 09ff | | Execute_Immediate Binary_Scale,-0x1 04c4 00d8 | | Load_Top At_Offset_0 04c5 e015 | | Load 0x0,0x15 04c6 0260 | ` | Execute Discrete,In_Type 04c7 7001 |p | Jump_Nonzero 0x4c9 04c8 0801 | | Execute_Immediate Raise,0x1 04c9 e012 | | Load 0x0,0x12 04ca 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 04cb e012 | | Load 0x0,0x12 04cc 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 04cd e223 | # | Load 0x1,0x23 04ce 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 04cf 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 04d0 0271 | q | Execute Discrete,Times 04d1 00d8 | | Load_Top At_Offset_0 04d2 e015 | | Load 0x0,0x15 04d3 0260 | ` | Execute Discrete,In_Type 04d4 7001 |p | Jump_Nonzero 0x4d6 04d5 0801 | | Execute_Immediate Raise,0x1 04d6 e012 | | Load 0x0,0x12 04d7 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 04d8 4808 |H | Short_Literal 0x8 04d9 e224 | $ | Load 0x1,0x24 04da 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 04db e224 | $ | Load 0x1,0x24 04dc e406 | | Load 0x2,0x6 04dd 4807 |H | Short_Literal 0x7 04de 4802 |H | Short_Literal 0x2 04df 0099 | | Action Reference_Dynamic 04e0 e006 | | Load 0x0,0x6 04e1 1b16 | | Execute Package,Field_Read,Field_Number 0x16 04e2 1810 | | Execute Package,Field_Execute,Field_Number 0x10 04e3 e012 | | Load 0x0,0x12 04e4 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 04e5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04e6 TRAP_0498: 04e6 e006 | | Load 0x0,0x6 04e7 1b16 | | Execute Package,Field_Read,Field_Number 0x16 04e8 1b0f | | Execute Package,Field_Read,Field_Number 0xf 04e9 010f | | Execute Exception,Equal 04ea 680a |h | Jump_Zero 0x4f5 04eb 480b |H | Short_Literal 0xb 04ec a227 | ' | Store_Unchecked 0x1,0x27 04ed e00c | | Load 0x0,0xc 04ee 180e | | Execute Package,Field_Execute,Field_Number 0xe 04ef 4802 |H | Short_Literal 0x2 04f0 0092 0959 | Y| Action Push_String_Extended,0x959 ; "address out of bounds" 04f2 e00d | | Load 0x0,0xd 04f3 1813 | | Execute Package,Field_Execute,Field_Number 0x13 04f4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04f5 480c |H | Short_Literal 0xc 04f6 a227 | ' | Store_Unchecked 0x1,0x27 04f7 e00c | | Load 0x0,0xc 04f8 180e | | Execute Package,Field_Execute,Field_Number 0xe 04f9 4802 |H | Short_Literal 0x2 04fa 4800 |H | Short_Literal 0x0 04fb 4801 |H | Short_Literal 0x1 04fc e011 | | Load 0x0,0x11 04fd 1815 | | Execute Package,Field_Execute,Field_Number 0x15 04fe e00d | | Load 0x0,0xd 04ff 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0500 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0501 0000 0000 | | .BLANK 0000[0x7] 0508 ; -------------------------------------------------------------------------------------- 0508 ; SUBPROGRAM 0508 ; -------------------------------------------------------------------------------------- 0508 0514 | | .CONST 0x0514 ; Address of begin 0509 0528 | ( | .CONST 0x0528 ; Address of exception handler 050a 0005 | | .CONST 0x0005 ; Number of locals 050b INIT_0508: 050b e006 | | Load 0x0,0x6 050c 1b16 | | Execute Package,Field_Read,Field_Number 0x16 050d 1911 | | Execute Package,Field_Reference,Field_Number 0x11 050e 00c6 | | Action Check_Subprogram_Elaborated 050f e024 | $ | Load 0x0,0x24 0510 e027 | ' | Load 0x0,0x27 0511 e028 | ( | Load 0x0,0x28 0512 4805 |H | Short_Literal 0x5 0513 0007 | | Action Break_Optional 0514 BODY_0508: 0514 4800 |H | Short_Literal 0x0 0515 e224 | $ | Load 0x1,0x24 0516 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0517 4800 |H | Short_Literal 0x0 0518 e224 | $ | Load 0x1,0x24 0519 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 051a 4808 |H | Short_Literal 0x8 051b e224 | $ | Load 0x1,0x24 051c 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 051d 4801 |H | Short_Literal 0x1 051e e5ff | | Load 0x2,-0x1 051f e224 | $ | Load 0x1,0x24 0520 e402 | | Load 0x2,0x2 0521 4803 |H | Short_Literal 0x3 0522 4802 |H | Short_Literal 0x2 0523 0099 | | Action Reference_Dynamic 0524 e006 | | Load 0x0,0x6 0525 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0526 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0527 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0528 TRAP_0508: 0528 e006 | | Load 0x0,0x6 0529 1b16 | | Execute Package,Field_Read,Field_Number 0x16 052a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 052b 010f | | Execute Exception,Equal 052c 680a |h | Jump_Zero 0x537 052d 480b |H | Short_Literal 0xb 052e a227 | ' | Store_Unchecked 0x1,0x27 052f e00c | | Load 0x0,0xc 0530 180e | | Execute Package,Field_Execute,Field_Number 0xe 0531 4802 |H | Short_Literal 0x2 0532 0092 0959 | Y| Action Push_String_Extended,0x959 ; "address out of bounds" 0534 e00d | | Load 0x0,0xd 0535 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0536 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0537 480c |H | Short_Literal 0xc 0538 a227 | ' | Store_Unchecked 0x1,0x27 0539 e00c | | Load 0x0,0xc 053a 180e | | Execute Package,Field_Execute,Field_Number 0xe 053b 4802 |H | Short_Literal 0x2 053c 4800 |H | Short_Literal 0x0 053d 4801 |H | Short_Literal 0x1 053e e011 | | Load 0x0,0x11 053f 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0540 e00d | | Load 0x0,0xd 0541 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0542 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0543 0000 0000 | | .BLANK 0000[0x5] 0548 ; -------------------------------------------------------------------------------------- 0548 ; SUBPROGRAM 0548 ; -------------------------------------------------------------------------------------- 0548 054b | K | .CONST 0x054b ; Address of begin 0549 0004 | | .CONST 0x0004 ; Address of exception handler 054a 0001 | | .CONST 0x0001 ; Number of locals 054b BODY_0548: 054b INIT_0548: 054b 00da | | Load_Top At_Offset_2 054c 460f |F | Jump_Case 0x10 054d 7816 |x | Jump 0x564 ; case 0x0 054e 781c |x | Jump 0x56b ; case 0x1 054f 7822 |x" | Jump 0x572 ; case 0x2 0550 7828 |x( | Jump 0x579 ; case 0x3 0551 782e |x. | Jump 0x580 ; case 0x4 0552 7834 |x4 | Jump 0x587 ; case 0x5 0553 783a |x: | Jump 0x58e ; case 0x6 0554 7840 |x@ | Jump 0x595 ; case 0x7 0555 7846 |xF | Jump 0x59c ; case 0x8 0556 784c |xL | Jump 0x5a3 ; case 0x9 0557 7852 |xR | Jump 0x5aa ; case 0xa 0558 7858 |xX | Jump 0x5b1 ; case 0xb 0559 785e |x^ | Jump 0x5b8 ; case 0xc 055a 7864 |xd | Jump 0x5bf ; case 0xd 055b 786a |xj | Jump 0x5c6 ; case 0xe 055c 7800 |x | Jump 0x55d ; case 0xf 055d 00db | | Load_Top At_Offset_3 055e 0092 095a | Z| Action Push_String_Extended,0x95a ; "No disk" 0560 e002 | | Load 0x0,0x2 0561 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0562 00d1 | | Pop_Control Pop_Count_1 0563 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0564 00db | | Load_Top At_Offset_3 0565 0092 095b | [| Action Push_String_Extended,0x95b ; "File operation successful" 0567 e002 | | Load 0x0,0x2 0568 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0569 00d1 | | Pop_Control Pop_Count_1 056a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 056b 00db | | Load_Top At_Offset_3 056c 0092 095c | \| Action Push_String_Extended,0x95c ; "Bad filename" 056e e002 | | Load 0x0,0x2 056f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0570 00d1 | | Pop_Control Pop_Count_1 0571 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0572 00db | | Load_Top At_Offset_3 0573 0092 095d | ]| Action Push_String_Extended,0x95d ; "File does not exist" 0575 e002 | | Load 0x0,0x2 0576 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0577 00d1 | | Pop_Control Pop_Count_1 0578 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0579 00db | | Load_Top At_Offset_3 057a 0092 095e | ^| Action Push_String_Extended,0x95e ; "File is not open" 057c e002 | | Load 0x0,0x2 057d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 057e 00d1 | | Pop_Control Pop_Count_1 057f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0580 00db | | Load_Top At_Offset_3 0581 0092 095f | _| Action Push_String_Extended,0x95f ; "Disk is full" 0583 e002 | | Load 0x0,0x2 0584 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0585 00d1 | | Pop_Control Pop_Count_1 0586 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0587 00db | | Load_Top At_Offset_3 0588 0092 0960 | `| Action Push_String_Extended,0x960 ; "Directory is full" 058a e002 | | Load 0x0,0x2 058b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 058c 00d1 | | Pop_Control Pop_Count_1 058d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 058e 00db | | Load_Top At_Offset_3 058f 0092 0961 | a| Action Push_String_Extended,0x961 ; "File already exists" 0591 e002 | | Load 0x0,0x2 0592 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0593 00d1 | | Pop_Control Pop_Count_1 0594 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0595 00db | | Load_Top At_Offset_3 0596 0092 0962 | b| Action Push_String_Extended,0x962 ; "Can't rename file" 0598 e002 | | Load 0x0,0x2 0599 1810 | | Execute Package,Field_Execute,Field_Number 0x10 059a 00d1 | | Pop_Control Pop_Count_1 059b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 059c 00db | | Load_Top At_Offset_3 059d 0092 0963 | c| Action Push_String_Extended,0x963 ; "Can't delete file" 059f e002 | | Load 0x0,0x2 05a0 1810 | | Execute Package,Field_Execute,Field_Number 0x10 05a1 00d1 | | Pop_Control Pop_Count_1 05a2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05a3 00db | | Load_Top At_Offset_3 05a4 0092 0964 | d| Action Push_String_Extended,0x964 ; "Page error" 05a6 e002 | | Load 0x0,0x2 05a7 1810 | | Execute Package,Field_Execute,Field_Number 0x10 05a8 00d1 | | Pop_Control Pop_Count_1 05a9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05aa 00db | | Load_Top At_Offset_3 05ab 0092 0965 | e| Action Push_String_Extended,0x965 ; "Slice error" 05ad e002 | | Load 0x0,0x2 05ae 1810 | | Execute Package,Field_Execute,Field_Number 0x10 05af 00d1 | | Pop_Control Pop_Count_1 05b0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05b1 00db | | Load_Top At_Offset_3 05b2 0092 0966 | f| Action Push_String_Extended,0x966 ; "Bad address" 05b4 e002 | | Load 0x0,0x2 05b5 1810 | | Execute Package,Field_Execute,Field_Number 0x10 05b6 00d1 | | Pop_Control Pop_Count_1 05b7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05b8 00db | | Load_Top At_Offset_3 05b9 0092 0967 | g| Action Push_String_Extended,0x967 ; "Disk error" 05bb e002 | | Load 0x0,0x2 05bc 1810 | | Execute Package,Field_Execute,Field_Number 0x10 05bd 00d1 | | Pop_Control Pop_Count_1 05be 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05bf 00db | | Load_Top At_Offset_3 05c0 0092 0968 | h| Action Push_String_Extended,0x968 ; "No labels on disk" 05c2 e002 | | Load 0x0,0x2 05c3 1810 | | Execute Package,Field_Execute,Field_Number 0x10 05c4 00d1 | | Pop_Control Pop_Count_1 05c5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05c6 00db | | Load_Top At_Offset_3 05c7 0092 0969 | i| Action Push_String_Extended,0x969 ; "No dos on disk" 05c9 e002 | | Load 0x0,0x2 05ca 1810 | | Execute Package,Field_Execute,Field_Number 0x10 05cb 00d1 | | Pop_Control Pop_Count_1 05cc 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05cd 096a e002 | j | .XXX[0x5] 05cf 1810 00d1 | | 05d1 4502 |E | 05d2 0000 0000 | | .BLANK 0000[0x6] 05d8 ; -------------------------------------------------------------------------------------- 05d8 ; SUBPROGRAM 05d8 ; -------------------------------------------------------------------------------------- 05d8 05e3 | | .CONST 0x05e3 ; Address of begin 05d9 0004 | | .CONST 0x0004 ; Address of exception handler 05da 0003 | | .CONST 0x0003 ; Number of locals 05db INIT_05d8: 05db 4850 |HP | Short_Literal 0x50 05dc e002 | | Load 0x0,0x2 05dd 1b0e | | Execute Package,Field_Read,Field_Number 0xe 05de 1c08 | | Execute_Immediate Run_Utility,0x8 05df 00d8 | | Load_Top At_Offset_0 05e0 1c00 | | Execute_Immediate Run_Utility,0x0 05e1 029f 090b | | Declare_Subprogram INIT_0908,For_Call 05e3 BODY_05d8: 05e3 e5ff | | Load 0x2,-0x1 05e4 4602 |F | Jump_Case 0x3 05e5 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0x0 05e6 7803 |x | Jump 0x5ea ; case 0x1 05e7 7800 |x | Jump 0x5e8 ; case 0x2 05e8 8403 | | Call 0x2,0x3 05e9 4503 |E | Exit_Suprogram New_Top_Offset 0x3 05ea 00d9 | | Load_Top At_Offset_1 05eb e5fd | | Load 0x2,-0x3 05ec 821a | | Call 0x1,0x1a 05ed 00d1 | | Pop_Control Pop_Count_1 05ee 00d9 | | Load_Top At_Offset_1 05ef e5fe | | Load 0x2,-0x2 05f0 e002 | | Load 0x0,0x2 05f1 1817 | | Execute Package,Field_Execute,Field_Number 0x17 05f2 00d1 | | Pop_Control Pop_Count_1 05f3 00d9 | | Load_Top At_Offset_1 05f4 e002 | | Load 0x0,0x2 05f5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 05f6 e029 | ) | Load 0x0,0x29 05f7 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 05f8 4503 |E | Exit_Suprogram New_Top_Offset 0x3 05f9 0000 0000 | | .BLANK 0000[0x7] 0600 ; -------------------------------------------------------------------------------------- 0600 ; SUBPROGRAM 0600 ; -------------------------------------------------------------------------------------- 0600 062a | * | .CONST 0x062a ; Address of begin 0601 0710 | | .CONST 0x0710 ; Address of exception handler 0602 0012 | | .CONST 0x0012 ; Number of locals 0603 INIT_0600: 0603 481e |H | Short_Literal 0x1e 0604 e002 | | Load 0x0,0x2 0605 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0606 1c08 | | Execute_Immediate Run_Utility,0x8 0607 00d8 | | Load_Top At_Offset_0 0608 1c00 | | Execute_Immediate Run_Utility,0x0 0609 e02a | * | Load 0x0,0x2a 060a 0322 | " | Declare_Variable Record 060b 00e2 | | Load_Encached Integer_Cache 060c 03e9 | | Declare_Variable Discrete,Duplicate 060d 03e9 | | Declare_Variable Discrete,Duplicate 060e 03e9 | | Declare_Variable Discrete,Duplicate 060f 03e9 | | Declare_Variable Discrete,Duplicate 0610 03e9 | | Declare_Variable Discrete,Duplicate 0611 00e1 | | Load_Encached Boolean_Cache 0612 00e3 | | Load_Encached Natural_Cache 0613 e009 | | Load 0x0,0x9 0614 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0615 4850 |HP | Short_Literal 0x50 0616 e002 | | Load 0x0,0x2 0617 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0618 1c08 | | Execute_Immediate Run_Utility,0x8 0619 00d8 | | Load_Top At_Offset_0 061a 1c00 | | Execute_Immediate Run_Utility,0x0 061b 4850 |HP | Short_Literal 0x50 061c e002 | | Load 0x0,0x2 061d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 061e 1c08 | | Execute_Immediate Run_Utility,0x8 061f 00d8 | | Load_Top At_Offset_0 0620 1c00 | | Execute_Immediate Run_Utility,0x0 0621 e006 | | Load 0x0,0x6 0622 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0623 1910 | | Execute Package,Field_Reference,Field_Number 0x10 0624 00c6 | | Action Check_Subprogram_Elaborated 0625 e003 | | Load 0x0,0x3 0626 e02b | + | Load 0x0,0x2b 0627 e02c | , | Load 0x0,0x2c 0628 4812 |H | Short_Literal 0x12 0629 0007 | | Action Break_Optional 062a BODY_0600: 062a 8218 | | Call 0x1,0x18 062b 820f | | Call 0x1,0xf 062c a222 | " | Store_Unchecked 0x1,0x22 062d 4800 |H | Short_Literal 0x0 062e a405 | | Store_Unchecked 0x2,0x5 062f 4800 |H | Short_Literal 0x0 0630 a409 | | Store_Unchecked 0x2,0x9 0631 e40e | | Load 0x2,0xe 0632 e5ff | | Load 0x2,-0x1 0633 e002 | | Load 0x0,0x2 0634 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0635 00d1 | | Pop_Control Pop_Count_1 0636 00cf | | Action Mark_Auxiliary 0637 60f4 |` | Indirect_Literal Discrete,0x72c,{0x00000000, 0x000007ff} 0638 4800 |H | Short_Literal 0x0 0639 0007 | | Action Break_Optional 063a 00d8 | | Load_Top At_Offset_0 063b 09f8 | | Execute_Immediate Binary_Scale,-0x8 063c e012 | | Load 0x0,0x12 063d 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 063e 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 063f 01d7 | | Execute Vector,Field_Read 0640 00d9 | | Load_Top At_Offset_1 0641 48ff |H | Short_Literal 0xff 0642 0279 | y | Execute Discrete,And 0643 0273 | s | Execute Discrete,Plus 0644 c408 | | Store 0x2,0x8 0645 e224 | $ | Load 0x1,0x24 0646 e408 | | Load 0x2,0x8 0647 8229 | ) | Call 0x1,0x29 0648 00d1 | | Pop_Control Pop_Count_1 0649 e224 | $ | Load 0x1,0x24 064a e40f | | Load 0x2,0xf 064b 4810 |H | Short_Literal 0x10 064c 4802 |H | Short_Literal 0x2 064d 0099 | | Action Reference_Dynamic 064e e006 | | Load 0x0,0x6 064f 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0650 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0651 e225 | % | Load 0x1,0x25 0652 01d4 | | Execute Vector,Structure_Write 0653 00cf | | Action Mark_Auxiliary 0654 480f |H | Short_Literal 0xf 0655 4800 |H | Short_Literal 0x0 0656 0007 | | Action Break_Optional 0657 00d8 | | Load_Top At_Offset_0 0658 e225 | % | Load 0x1,0x25 0659 01d5 | | Execute Vector,Field_Reference 065a e403 | | Load 0x2,0x3 065b 017d | } | Execute Record,Structure_Write 065c e403 | | Load 0x2,0x3 065d 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 065e 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 065f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0660 6802 |h | Jump_Zero 0x663 0661 00d2 | | Pop_Control Pop_Count_2 0662 788c |x | Jump 0x6ef 0663 e222 | " | Load 0x1,0x22 0664 0f01 | | Execute_Immediate Equal,0x1 0665 6827 |h' | Jump_Zero 0x68d 0666 00cf | | Action Mark_Auxiliary 0667 481e |H | Short_Literal 0x1e 0668 4801 |H | Short_Literal 0x1 0669 0007 | | Action Break_Optional 066a 00d8 | | Load_Top At_Offset_0 066b 4802 |H | Short_Literal 0x2 066c 026f | o | Execute Discrete,Remainder 066d 7008 |p | Jump_Nonzero 0x676 066e e40c | | Load 0x2,0xc 066f 00d9 | | Load_Top At_Offset_1 0670 e418 | | Load 0x2,0x18 0671 e225 | % | Load 0x1,0x25 0672 01d5 | | Execute Vector,Field_Reference 0673 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0674 01d6 | | Execute Vector,Field_Write 0675 7814 |x | Jump 0x68a 0676 00d8 | | Load_Top At_Offset_0 0677 e418 | | Load 0x2,0x18 0678 e225 | % | Load 0x1,0x25 0679 01d5 | | Execute Vector,Field_Reference 067a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 067b 01d7 | | Execute Vector,Field_Read 067c a40c | | Store_Unchecked 0x2,0xc 067d 00d8 | | Load_Top At_Offset_0 067e 0a01 | | Execute_Immediate Plus,0x1 067f e418 | | Load 0x2,0x18 0680 e225 | % | Load 0x1,0x25 0681 01d5 | | Execute Vector,Field_Reference 0682 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0683 01d7 | | Execute Vector,Field_Read 0684 00d9 | | Load_Top At_Offset_1 0685 e418 | | Load 0x2,0x18 0686 e225 | % | Load 0x1,0x25 0687 01d5 | | Execute Vector,Field_Reference 0688 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0689 01d6 | | Execute Vector,Field_Write 068a 00c8 | | Action Pop_Auxiliary_Range 068b 3fde |? | Loop_Increasing 0x66a 068c 00ce | | Action Pop_Auxiliary 068d 00d8 | | Load_Top At_Offset_0 068e e225 | % | Load 0x1,0x25 068f 01d5 | | Execute Vector,Field_Reference 0690 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0691 e02d | - | Load 0x0,0x2d 0692 180d | | Execute Package,Field_Execute,Field_Number 0xd 0693 e221 | ! | Load 0x1,0x21 0694 01d4 | | Execute Vector,Structure_Write 0695 481e |H | Short_Literal 0x1e 0696 a40b | | Store_Unchecked 0x2,0xb 0697 00cf | | Action Mark_Auxiliary 0698 4801 |H | Short_Literal 0x1 0699 481e |H | Short_Literal 0x1e 069a 0007 | | Action Break_Optional 069b 00d8 | | Load_Top At_Offset_0 069c e221 | ! | Load 0x1,0x21 069d 01d7 | | Execute Vector,Field_Read 069e 7007 |p | Jump_Nonzero 0x6a6 069f 4820 |H | Short_Literal 0x20 06a0 00d9 | | Load_Top At_Offset_1 06a1 e221 | ! | Load 0x1,0x21 06a2 01d6 | | Execute Vector,Field_Write 06a3 00d8 | | Load_Top At_Offset_0 06a4 a40b | | Store_Unchecked 0x2,0xb 06a5 7802 |x | Jump 0x6a8 06a6 00d2 | | Pop_Control Pop_Count_2 06a7 7802 |x | Jump 0x6aa 06a8 00c8 | | Action Pop_Auxiliary_Range 06a9 37f1 |7 | Loop_Decreasing 0x69b 06aa 00ce | | Action Pop_Auxiliary 06ab e402 | | Load 0x2,0x2 06ac e221 | ! | Load 0x1,0x21 06ad e002 | | Load 0x0,0x2 06ae 1810 | | Execute Package,Field_Execute,Field_Number 0x10 06af 00d1 | | Pop_Control Pop_Count_1 06b0 e402 | | Load 0x2,0x2 06b1 4820 |H | Short_Literal 0x20 06b2 e40b | | Load 0x2,0xb 06b3 0aff | | Execute_Immediate Plus,-0x1 06b4 00d8 | | Load_Top At_Offset_0 06b5 00e3 | | Load_Encached Natural_Cache 06b6 0260 | ` | Execute Discrete,In_Type 06b7 7001 |p | Jump_Nonzero 0x6b9 06b8 0801 | | Execute_Immediate Raise,0x1 06b9 e002 | | Load 0x0,0x2 06ba 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 06bb 00d1 | | Pop_Control Pop_Count_1 06bc e40e | | Load 0x2,0xe 06bd e402 | | Load 0x2,0x2 06be 802e | . | Call 0x0,0x2e 06bf 682d |h- | Jump_Zero 0x6ed 06c0 4820 |H | Short_Literal 0x20 06c1 4805 |H | Short_Literal 0x5 06c2 480a |H | Short_Literal 0xa 06c3 e403 | | Load 0x2,0x3 06c4 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 06c5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 06c6 e008 | | Load 0x0,0x8 06c7 1816 | | Execute Package,Field_Execute,Field_Number 0x16 06c8 e228 | ( | Load 0x1,0x28 06c9 01d4 | | Execute Vector,Structure_Write 06ca e409 | | Load 0x2,0x9 06cb e403 | | Load 0x2,0x3 06cc 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 06cd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 06ce 0273 | s | Execute Discrete,Plus 06cf c409 | | Store 0x2,0x9 06d0 e405 | | Load 0x2,0x5 06d1 0a01 | | Execute_Immediate Plus,0x1 06d2 c405 | | Store 0x2,0x5 06d3 e40d | | Load 0x2,0xd 06d4 e403 | | Load 0x2,0x3 06d5 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 06d6 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 06d7 802f | / | Call 0x0,0x2f 06d8 e002 | | Load 0x0,0x2 06d9 180f | | Execute Package,Field_Execute,Field_Number 0xf 06da 00d1 | | Pop_Control Pop_Count_1 06db 4809 |H | Short_Literal 0x9 06dc e221 | ! | Load 0x1,0x21 06dd 0092 096b | k| Action Push_String_Extended,0x96b ; " " 06df 01cc | | Execute Vector,Catenate 06e0 e228 | ( | Load 0x1,0x28 06e1 01cc | | Execute Vector,Catenate 06e2 01cb | | Execute Vector,Append 06e3 e40d | | Load 0x2,0xd 06e4 e002 | | Load 0x0,0x2 06e5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06e6 01cc | | Execute Vector,Catenate 06e7 e029 | ) | Load 0x0,0x29 06e8 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 06e9 e5fe | | Load 0x2,-0x2 06ea 6802 |h | Jump_Zero 0x6ed 06eb e403 | | Load 0x2,0x3 06ec 822b | + | Call 0x1,0x2b 06ed 00c8 | | Action Pop_Auxiliary_Range 06ee 3f68 |?h | Loop_Increasing 0x657 06ef 00ce | | Action Pop_Auxiliary 06f0 00c8 | | Action Pop_Auxiliary_Range 06f1 3f48 |?H | Loop_Increasing 0x63a 06f2 00ce | | Action Pop_Auxiliary 06f3 e405 | | Load 0x2,0x5 06f4 0c02 | | Execute_Immediate Greater_Equal,0x2 06f5 6813 |h | Jump_Zero 0x709 06f6 0092 096c | l| Action Push_String_Extended,0x96c ; "Total of " 06f8 e409 | | Load 0x2,0x9 06f9 00e0 | | Load_Encached Standard_Cache 06fa 1818 | | Execute Package,Field_Execute,Field_Number 0x18 06fb 01cc | | Execute Vector,Catenate 06fc 0092 096d | m| Action Push_String_Extended,0x96d ; " Pages in " 06fe 01cc | | Execute Vector,Catenate 06ff e405 | | Load 0x2,0x5 0700 00e0 | | Load_Encached Standard_Cache 0701 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0702 01cc | | Execute Vector,Catenate 0703 0092 096e | n| Action Push_String_Extended,0x96e ; " Files." 0705 01cc | | Execute Vector,Catenate 0706 e029 | ) | Load 0x0,0x29 0707 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0708 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0709 e405 | | Load 0x2,0x5 070a 7004 |p | Jump_Nonzero 0x70f 070b 0092 096f | o| Action Push_String_Extended,0x96f ; "No files found." 070d e029 | ) | Load 0x0,0x29 070e 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 070f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0710 TRAP_0600: 0710 e006 | | Load 0x0,0x6 0711 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0712 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0713 010f | | Execute Exception,Equal 0714 680a |h | Jump_Zero 0x71f 0715 480b |H | Short_Literal 0xb 0716 a227 | ' | Store_Unchecked 0x1,0x27 0717 e00c | | Load 0x0,0xc 0718 180e | | Execute Package,Field_Execute,Field_Number 0xe 0719 4802 |H | Short_Literal 0x2 071a 0092 0959 | Y| Action Push_String_Extended,0x959 ; "address out of bounds" 071c e00d | | Load 0x0,0xd 071d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 071e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 071f 480c |H | Short_Literal 0xc 0720 a227 | ' | Store_Unchecked 0x1,0x27 0721 e00c | | Load 0x0,0xc 0722 180e | | Execute Package,Field_Execute,Field_Number 0xe 0723 4802 |H | Short_Literal 0x2 0724 4800 |H | Short_Literal 0x0 0725 4801 |H | Short_Literal 0x1 0726 e011 | | Load 0x0,0x11 0727 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0728 e00d | | Load 0x0,0xd 0729 1813 | | Execute Package,Field_Execute,Field_Number 0x13 072a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 072b 0000 | | .XXX[0x1] 072c 0000 0000 | | .LITERAL {0x00000000, 0x000007ff} 0730 ; -------------------------------------------------------------------------------------- 0730 ; SUBPROGRAM 0730 ; -------------------------------------------------------------------------------------- 0730 0733 | 3 | .CONST 0x0733 ; Address of begin 0731 0004 | | .CONST 0x0004 ; Address of exception handler 0732 0001 | | .CONST 0x0001 ; Number of locals 0733 BODY_0730: 0733 INIT_0730: 0733 8218 | | Call 0x1,0x18 0734 4800 |H | Short_Literal 0x0 0735 e5fe | | Load 0x2,-0x2 0736 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0737 4800 |H | Short_Literal 0x0 0738 e5fe | | Load 0x2,-0x2 0739 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 073a 00db | | Load_Top At_Offset_3 073b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 073c 00db | | Load_Top At_Offset_3 073d e002 | | Load 0x0,0x2 073e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 073f 00d1 | | Pop_Control Pop_Count_1 0740 820f | | Call 0x1,0xf 0741 a222 | " | Store_Unchecked 0x1,0x22 0742 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0743 0000 0000 | | .BLANK 0000[0x5] 0748 ; -------------------------------------------------------------------------------------- 0748 ; SUBPROGRAM 0748 ; -------------------------------------------------------------------------------------- 0748 076a | j | .CONST 0x076a ; Address of begin 0749 0822 | " | .CONST 0x0822 ; Address of exception handler 074a 000d | | .CONST 0x000d ; Number of locals 074b INIT_0748: 074b 00ea | | Load_Encached Null_String_Cache 074c 481e |H | Short_Literal 0x1e 074d e002 | | Load 0x0,0x2 074e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 074f 1c08 | | Execute_Immediate Run_Utility,0x8 0750 00d8 | | Load_Top At_Offset_0 0751 1c00 | | Execute_Immediate Run_Utility,0x0 0752 4801 |H | Short_Literal 0x1 0753 481e |H | Short_Literal 0x1e 0754 00e9 | | Load_Encached String_Cache 0755 035b | [ | Declare_Type Array,Constrained 0756 0337 | 7 | Declare_Variable Array 0757 e02a | * | Load 0x0,0x2a 0758 0322 | " | Declare_Variable Record 0759 00e3 | | Load_Encached Natural_Cache 075a e006 | | Load 0x0,0x6 075b 1b16 | | Execute Package,Field_Read,Field_Number 0x16 075c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 075d 0322 | " | Declare_Variable Record 075e 00e2 | | Load_Encached Integer_Cache 075f e009 | | Load 0x0,0x9 0760 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0761 e006 | | Load 0x0,0x6 0762 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0763 1910 | | Execute Package,Field_Reference,Field_Number 0x10 0764 00c6 | | Action Check_Subprogram_Elaborated 0765 e003 | | Load 0x0,0x3 0766 e030 | 0 | Load 0x0,0x30 0767 e031 | 1 | Load 0x0,0x31 0768 480d |H | Short_Literal 0xd 0769 0007 | | Action Break_Optional 076a BODY_0748: 076a e5ff | | Load 0x2,-0x1 076b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 076c 8032 | 2 | Call 0x0,0x32 076d 7011 |p | Jump_Nonzero 0x77f 076e e5ff | | Load 0x2,-0x1 076f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0770 700a |p | Jump_Nonzero 0x77b 0771 e5fe | | Load 0x2,-0x2 0772 e5ff | | Load 0x2,-0x1 0773 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0774 e002 | | Load 0x0,0x2 0775 180f | | Execute Package,Field_Execute,Field_Number 0xf 0776 00d1 | | Pop_Control Pop_Count_1 0777 4801 |H | Short_Literal 0x1 0778 e5ff | | Load 0x2,-0x1 0779 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 077a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 077b 4fff |O | Short_Literal -0x1 077c e5ff | | Load 0x2,-0x1 077d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 077e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 077f 00cf | | Action Mark_Auxiliary 0780 e5ff | | Load 0x2,-0x1 0781 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0782 701b |p | Jump_Nonzero 0x79e 0783 e5ff | | Load 0x2,-0x1 0784 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0785 09f8 | | Execute_Immediate Binary_Scale,-0x8 0786 e012 | | Load 0x0,0x12 0787 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 0788 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0789 01d7 | | Execute Vector,Field_Read 078a e5ff | | Load 0x2,-0x1 078b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 078c 48ff |H | Short_Literal 0xff 078d 0279 | y | Execute Discrete,And 078e 0273 | s | Execute Discrete,Plus 078f c408 | | Store 0x2,0x8 0790 e407 | | Load 0x2,0x7 0791 e408 | | Load 0x2,0x8 0792 8229 | ) | Call 0x1,0x29 0793 00d1 | | Pop_Control Pop_Count_1 0794 e407 | | Load 0x2,0x7 0795 e40a | | Load 0x2,0xa 0796 480b |H | Short_Literal 0xb 0797 4802 |H | Short_Literal 0x2 0798 0099 | | Action Reference_Dynamic 0799 e006 | | Load 0x0,0x6 079a 1b16 | | Execute Package,Field_Read,Field_Number 0x16 079b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 079c e5ff | | Load 0x2,-0x1 079d 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 079e e5ff | | Load 0x2,-0x1 079f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 07a0 e5ff | | Load 0x2,-0x1 07a1 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 07a2 01d5 | | Execute Vector,Field_Reference 07a3 e405 | | Load 0x2,0x5 07a4 017d | } | Execute Record,Structure_Write 07a5 e5ff | | Load 0x2,-0x1 07a6 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 07a7 0a01 | | Execute_Immediate Plus,0x1 07a8 480f |H | Short_Literal 0xf 07a9 026e | n | Execute Discrete,Modulo 07aa e5ff | | Load 0x2,-0x1 07ab 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 07ac e405 | | Load 0x2,0x5 07ad 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 07ae 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 07af 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 07b0 6816 |h | Jump_Zero 0x7c7 07b1 4800 |H | Short_Literal 0x0 07b2 e5ff | | Load 0x2,-0x1 07b3 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 07b4 e5ff | | Load 0x2,-0x1 07b5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 07b6 6089 |` | Indirect_Literal Discrete,0x840,{0x00000000, 0x000007ff} 07b7 027c | | | Execute Discrete,Less 07b8 6806 |h | Jump_Zero 0x7bf 07b9 e5ff | | Load 0x2,-0x1 07ba 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 07bb 0a01 | | Execute_Immediate Plus,0x1 07bc e5ff | | Load 0x2,-0x1 07bd 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 07be 7861 |xa | Jump 0x820 07bf 4fff |O | Short_Literal -0x1 07c0 e5ff | | Load 0x2,-0x1 07c1 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 07c2 e5fe | | Load 0x2,-0x2 07c3 e402 | | Load 0x2,0x2 07c4 e002 | | Load 0x0,0x2 07c5 1810 | | Execute Package,Field_Execute,Field_Number 0x10 07c6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 07c7 e222 | " | Load 0x1,0x22 07c8 0f01 | | Execute_Immediate Equal,0x1 07c9 681f |h | Jump_Zero 0x7e9 07ca 00cf | | Action Mark_Auxiliary 07cb 481e |H | Short_Literal 0x1e 07cc 4801 |H | Short_Literal 0x1 07cd 0007 | | Action Break_Optional 07ce 00d8 | | Load_Top At_Offset_0 07cf 4802 |H | Short_Literal 0x2 07d0 026f | o | Execute Discrete,Remainder 07d1 7006 |p | Jump_Nonzero 0x7d8 07d2 e409 | | Load 0x2,0x9 07d3 00d9 | | Load_Top At_Offset_1 07d4 e405 | | Load 0x2,0x5 07d5 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 07d6 01d6 | | Execute Vector,Field_Write 07d7 780e |x | Jump 0x7e6 07d8 00d8 | | Load_Top At_Offset_0 07d9 e405 | | Load 0x2,0x5 07da 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 07db 01d7 | | Execute Vector,Field_Read 07dc a409 | | Store_Unchecked 0x2,0x9 07dd 00d8 | | Load_Top At_Offset_0 07de 0a01 | | Execute_Immediate Plus,0x1 07df e405 | | Load 0x2,0x5 07e0 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 07e1 01d7 | | Execute Vector,Field_Read 07e2 00d9 | | Load_Top At_Offset_1 07e3 e405 | | Load 0x2,0x5 07e4 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 07e5 01d6 | | Execute Vector,Field_Write 07e6 00c8 | | Action Pop_Auxiliary_Range 07e7 3fe6 |? | Loop_Increasing 0x7ce 07e8 00ce | | Action Pop_Auxiliary 07e9 e405 | | Load 0x2,0x5 07ea 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 07eb e02d | - | Load 0x0,0x2d 07ec 180d | | Execute Package,Field_Execute,Field_Number 0xd 07ed e404 | | Load 0x2,0x4 07ee 01d4 | | Execute Vector,Structure_Write 07ef 481f |H | Short_Literal 0x1f 07f0 a406 | | Store_Unchecked 0x2,0x6 07f1 00cf | | Action Mark_Auxiliary 07f2 4801 |H | Short_Literal 0x1 07f3 481e |H | Short_Literal 0x1e 07f4 0007 | | Action Break_Optional 07f5 00d8 | | Load_Top At_Offset_0 07f6 e404 | | Load 0x2,0x4 07f7 01d7 | | Execute Vector,Field_Read 07f8 7007 |p | Jump_Nonzero 0x800 07f9 4820 |H | Short_Literal 0x20 07fa 00d9 | | Load_Top At_Offset_1 07fb e404 | | Load 0x2,0x4 07fc 01d6 | | Execute Vector,Field_Write 07fd 00d8 | | Load_Top At_Offset_0 07fe a406 | | Store_Unchecked 0x2,0x6 07ff 7802 |x | Jump 0x802 0800 00d2 | | Pop_Control Pop_Count_2 0801 7802 |x | Jump 0x804 0802 00c8 | | Action Pop_Auxiliary_Range 0803 37f1 |7 | Loop_Decreasing 0x7f5 0804 00ce | | Action Pop_Auxiliary 0805 e403 | | Load 0x2,0x3 0806 e404 | | Load 0x2,0x4 0807 e002 | | Load 0x0,0x2 0808 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0809 00d1 | | Pop_Control Pop_Count_1 080a e403 | | Load 0x2,0x3 080b 4820 |H | Short_Literal 0x20 080c e406 | | Load 0x2,0x6 080d 0aff | | Execute_Immediate Plus,-0x1 080e 00d8 | | Load_Top At_Offset_0 080f 00e3 | | Load_Encached Natural_Cache 0810 0260 | ` | Execute Discrete,In_Type 0811 7001 |p | Jump_Nonzero 0x813 0812 0801 | | Execute_Immediate Raise,0x1 0813 e002 | | Load 0x0,0x2 0814 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0815 00d1 | | Pop_Control Pop_Count_1 0816 e5ff | | Load 0x2,-0x1 0817 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0818 e403 | | Load 0x2,0x3 0819 802e | . | Call 0x0,0x2e 081a 6805 |h | Jump_Zero 0x820 081b e5fe | | Load 0x2,-0x2 081c e403 | | Load 0x2,0x3 081d e002 | | Load 0x0,0x2 081e 180f | | Execute Package,Field_Execute,Field_Number 0xf 081f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0820 00c9 | | Action Pop_Auxiliary_Loop 0821 7f5e | ^ | Jump 0x780 0822 TRAP_0748: 0822 e006 | | Load 0x0,0x6 0823 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0824 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0825 010f | | Execute Exception,Equal 0826 680a |h | Jump_Zero 0x831 0827 480b |H | Short_Literal 0xb 0828 a227 | ' | Store_Unchecked 0x1,0x27 0829 e00c | | Load 0x0,0xc 082a 180e | | Execute Package,Field_Execute,Field_Number 0xe 082b 4802 |H | Short_Literal 0x2 082c 0092 0959 | Y| Action Push_String_Extended,0x959 ; "address out of bounds" 082e e00d | | Load 0x0,0xd 082f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0830 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0831 480c |H | Short_Literal 0xc 0832 a227 | ' | Store_Unchecked 0x1,0x27 0833 e00c | | Load 0x0,0xc 0834 180e | | Execute Package,Field_Execute,Field_Number 0xe 0835 4802 |H | Short_Literal 0x2 0836 4800 |H | Short_Literal 0x0 0837 4801 |H | Short_Literal 0x1 0838 e011 | | Load 0x0,0x11 0839 1815 | | Execute Package,Field_Execute,Field_Number 0x15 083a e00d | | Load 0x0,0xd 083b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 083c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 083d 0000 0000 | | .XXX[0x3] 083f 0000 | | 0840 0000 0000 | | .LITERAL {0x00000000, 0x000007ff} 0844 0000 0000 | | .BLANK 0000[0x4] 0848 ; -------------------------------------------------------------------------------------- 0848 ; SUBPROGRAM 0848 ; -------------------------------------------------------------------------------------- 0848 084b | K | .CONST 0x084b ; Address of begin 0849 0004 | | .CONST 0x0004 ; Address of exception handler 084a 0001 | | .CONST 0x0001 ; Number of locals 084b BODY_0848: 084b INIT_0848: 084b 00da | | Load_Top At_Offset_2 084c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 084d 4fff |O | Short_Literal -0x1 084e 027f | | Execute Discrete,Equal 084f 6802 |h | Jump_Zero 0x852 0850 4801 |H | Short_Literal 0x1 0851 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0852 4800 |H | Short_Literal 0x0 0853 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0854 0000 0000 | | .BLANK 0000[0x4] 0858 ; -------------------------------------------------------------------------------------- 0858 ; SUBPROGRAM 0858 ; -------------------------------------------------------------------------------------- 0858 085c | \ | .CONST 0x085c ; Address of begin 0859 0004 | | .CONST 0x0004 ; Address of exception handler 085a 0002 | | .CONST 0x0002 ; Number of locals 085b INIT_0858: 085b 00e2 | | Load_Encached Integer_Cache 085c BODY_0858: 085c 00db | | Load_Top At_Offset_3 085d e012 | | Load 0x0,0x12 085e 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 085f 0270 | p | Execute Discrete,Divide 0860 00d8 | | Load_Top At_Offset_0 0861 e033 | 3 | Load 0x0,0x33 0862 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0863 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0864 0260 | ` | Execute Discrete,In_Type 0865 7001 |p | Jump_Nonzero 0x867 0866 0801 | | Execute_Immediate Raise,0x1 0867 e5fe | | Load 0x2,-0x2 0868 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0869 00db | | Load_Top At_Offset_3 086a e012 | | Load 0x0,0x12 086b 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 086c 026f | o | Execute Discrete,Remainder 086d 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 086e 00d8 | | Load_Top At_Offset_0 086f e012 | | Load 0x0,0x12 0870 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0871 0270 | p | Execute Discrete,Divide 0872 00d8 | | Load_Top At_Offset_0 0873 e033 | 3 | Load 0x0,0x33 0874 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0875 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0876 0260 | ` | Execute Discrete,In_Type 0877 7001 |p | Jump_Nonzero 0x879 0878 0801 | | Execute_Immediate Raise,0x1 0879 e5fe | | Load 0x2,-0x2 087a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 087b 00d8 | | Load_Top At_Offset_0 087c e012 | | Load 0x0,0x12 087d 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 087e 026f | o | Execute Discrete,Remainder 087f 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0880 00d8 | | Load_Top At_Offset_0 0881 0901 | | Execute_Immediate Binary_Scale,0x1 0882 00d8 | | Load_Top At_Offset_0 0883 e033 | 3 | Load 0x0,0x33 0884 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0885 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0886 0260 | ` | Execute Discrete,In_Type 0887 7001 |p | Jump_Nonzero 0x889 0888 0801 | | Execute_Immediate Raise,0x1 0889 e5fe | | Load 0x2,-0x2 088a 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 088b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 088c 0000 0000 | | .BLANK 0000[0x4] 0890 ; -------------------------------------------------------------------------------------- 0890 ; SUBPROGRAM 0890 ; -------------------------------------------------------------------------------------- 0890 0897 | | .CONST 0x0897 ; Address of begin 0891 0004 | | .CONST 0x0004 ; Address of exception handler 0892 0004 | | .CONST 0x0004 ; Number of locals 0893 INIT_0890: 0893 e015 | | Load 0x0,0x15 0894 0007 | | Action Break_Optional 0895 00e2 | | Load_Encached Integer_Cache 0896 00e2 | | Load_Encached Integer_Cache 0897 BODY_0890: 0897 4800 |H | Short_Literal 0x0 0898 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0899 4800 |H | Short_Literal 0x0 089a 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 089b 00cf | | Action Mark_Auxiliary 089c 780b |x | Jump 0x8a8 089d 00da | | Load_Top At_Offset_2 089e e5ff | | Load 0x2,-0x1 089f 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 08a0 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 08a1 01d5 | | Execute Vector,Field_Reference 08a2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 08a3 a402 | | Store_Unchecked 0x2,0x2 08a4 00da | | Load_Top At_Offset_2 08a5 0a01 | | Execute_Immediate Plus,0x1 08a6 005b | [ | Store_Top Discrete,At_Offset_3 08a7 00c9 | | Action Pop_Auxiliary_Loop 08a8 00da | | Load_Top At_Offset_2 08a9 e5ff | | Load 0x2,-0x1 08aa 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 08ab 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 08ac 01d5 | | Execute Vector,Field_Reference 08ad 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 08ae e5fe | | Load 0x2,-0x2 08af 027a | z | Execute Discrete,Less_Equal 08b0 77ec |w | Jump_Nonzero 0x89d 08b1 00ce | | Action Pop_Auxiliary 08b2 00d9 | | Load_Top At_Offset_1 08b3 e5ff | | Load 0x2,-0x1 08b4 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 08b5 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 08b6 01d5 | | Execute Vector,Field_Reference 08b7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 08b8 e5fe | | Load 0x2,-0x2 08b9 e402 | | Load 0x2,0x2 08ba 0272 | r | Execute Discrete,Minus 08bb 0273 | s | Execute Discrete,Plus 08bc 00d8 | | Load_Top At_Offset_0 08bd 00e2 | | Load_Encached Integer_Cache 08be 0260 | ` | Execute Discrete,In_Type 08bf 7001 |p | Jump_Nonzero 0x8c1 08c0 0801 | | Execute_Immediate Raise,0x1 08c1 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 08c2 e224 | $ | Load 0x1,0x24 08c3 00d9 | | Load_Top At_Offset_1 08c4 8229 | ) | Call 0x1,0x29 08c5 4503 |E | Exit_Suprogram New_Top_Offset 0x3 08c6 0000 0000 | | .XXX[0x2] 08c8 ; -------------------------------------------------------------------------------------- 08c8 ; SUBPROGRAM 08c8 ; -------------------------------------------------------------------------------------- 08c8 08ce | | .CONST 0x08ce ; Address of begin 08c9 0004 | | .CONST 0x0004 ; Address of exception handler 08ca 0003 | | .CONST 0x0003 ; Number of locals 08cb INIT_08c8: 08cb 00e2 | | Load_Encached Integer_Cache 08cc 029f 0913 | | Declare_Subprogram INIT_0910,For_Call 08ce BODY_08c8: 08ce 0092 0970 | p| Action Push_String_Extended,0x970 ; " PERMANENT => " 08d0 e5ff | | Load 0x2,-0x1 08d1 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 08d2 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 08d3 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 08d4 00e1 | | Load_Encached Boolean_Cache 08d5 011c | | Execute Any,Convert_Unchecked 08d6 1c01 | | Execute_Immediate Run_Utility,0x1 08d7 01cc | | Execute Vector,Catenate 08d8 0092 0971 | q| Action Push_String_Extended,0x971 ; ", EXECUTABLE => " 08da 01cc | | Execute Vector,Catenate 08db e5ff | | Load 0x2,-0x1 08dc 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 08dd 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 08de 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 08df 00e1 | | Load_Encached Boolean_Cache 08e0 011c | | Execute Any,Convert_Unchecked 08e1 1c01 | | Execute_Immediate Run_Utility,0x1 08e2 01cc | | Execute Vector,Catenate 08e3 0092 0972 | r| Action Push_String_Extended,0x972 ; ", KERNEL => " 08e5 01cc | | Execute Vector,Catenate 08e6 e5ff | | Load 0x2,-0x1 08e7 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 08e8 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 08e9 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 08ea 00e1 | | Load_Encached Boolean_Cache 08eb 011c | | Execute Any,Convert_Unchecked 08ec 1c01 | | Execute_Immediate Run_Utility,0x1 08ed 01cc | | Execute Vector,Catenate 08ee e029 | ) | Load 0x0,0x29 08ef 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 08f0 4800 |H | Short_Literal 0x0 08f1 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 08f2 00cf | | Action Mark_Auxiliary 08f3 4805 |H | Short_Literal 0x5 08f4 4800 |H | Short_Literal 0x0 08f5 0007 | | Action Break_Optional 08f6 00d8 | | Load_Top At_Offset_0 08f7 e5ff | | Load 0x2,-0x1 08f8 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 08f9 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 08fa 01d5 | | Execute Vector,Field_Reference 08fb 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 08fc e402 | | Load 0x2,0x2 08fd 027b | { | Execute Discrete,Greater_Equal 08fe 6801 |h | Jump_Zero 0x900 08ff 8403 | | Call 0x2,0x3 0900 00c8 | | Action Pop_Auxiliary_Range 0901 3ff4 |? | Loop_Increasing 0x8f6 0902 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0903 0000 0000 | | .BLANK 0000[0x5] 0908 ; -------------------------------------------------------------------------------------- 0908 ; SUBPROGRAM 0908 ; -------------------------------------------------------------------------------------- 0908 090b | | .CONST 0x090b ; Address of begin 0909 0004 | | .CONST 0x0004 ; Address of exception handler 090a 0001 | | .CONST 0x0001 ; Number of locals 090b BODY_0908: 090b INIT_0908: 090b 08e2 | | Execute_Immediate Raise,0xe2 090c 0000 0000 | | .BLANK 0000[0x4] 0910 ; -------------------------------------------------------------------------------------- 0910 ; SUBPROGRAM 0910 ; -------------------------------------------------------------------------------------- 0910 0913 | | .CONST 0x0913 ; Address of begin 0911 0004 | | .CONST 0x0004 ; Address of exception handler 0912 0001 | | .CONST 0x0001 ; Number of locals 0913 BODY_0910: 0913 INIT_0910: 0913 0092 0973 | s| Action Push_String_Extended,0x973 ; " File pages " 0915 e402 | | Load 0x2,0x2 0916 0a01 | | Execute_Immediate Plus,0x1 0917 00d8 | | Load_Top At_Offset_0 0918 00e2 | | Load_Encached Integer_Cache 0919 0260 | ` | Execute Discrete,In_Type 091a 7001 |p | Jump_Nonzero 0x91c 091b 0801 | | Execute_Immediate Raise,0x1 091c 00e0 | | Load_Encached Standard_Cache 091d 1818 | | Execute Package,Field_Execute,Field_Number 0x18 091e 01cc | | Execute Vector,Catenate 091f 0092 0974 | t| Action Push_String_Extended,0x974 ; " .. " 0921 01cc | | Execute Vector,Catenate 0922 e406 | | Load 0x2,0x6 0923 e5ff | | Load 0x2,-0x1 0924 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0925 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0926 01d5 | | Execute Vector,Field_Reference 0927 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0928 0a01 | | Execute_Immediate Plus,0x1 0929 00d8 | | Load_Top At_Offset_0 092a 00e2 | | Load_Encached Integer_Cache 092b 0260 | ` | Execute Discrete,In_Type 092c 7001 |p | Jump_Nonzero 0x92e 092d 0801 | | Execute_Immediate Raise,0x1 092e 00e0 | | Load_Encached Standard_Cache 092f 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0930 01cc | | Execute Vector,Catenate 0931 0092 0975 | u| Action Push_String_Extended,0x975 ; " are at disk block " 0933 01cc | | Execute Vector,Catenate 0934 e406 | | Load 0x2,0x6 0935 e5ff | | Load 0x2,-0x1 0936 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0937 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0938 01d5 | | Execute Vector,Field_Reference 0939 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 093a 00e0 | | Load_Encached Standard_Cache 093b 1818 | | Execute Package,Field_Execute,Field_Number 0x18 093c 01cc | | Execute Vector,Catenate 093d e029 | ) | Load 0x0,0x29 093e 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 093f e406 | | Load 0x2,0x6 0940 e5ff | | Load 0x2,-0x1 0941 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0942 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0943 01d5 | | Execute Vector,Field_Reference 0944 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0945 0a01 | | Execute_Immediate Plus,0x1 0946 c402 | | Store 0x2,0x2 0947 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0948 ; -------------------------------------------------------------------------------------- 0948 ; SUBPROGRAM 0948 ; -------------------------------------------------------------------------------------- 0948 094b | K | .CONST 0x094b ; Address of begin 0949 0004 | | .CONST 0x0004 ; Address of exception handler 094a 0001 | | .CONST 0x0001 ; Number of locals 094b BODY_0948: 094b INIT_0948: 094b 4601 |F | Jump_Case 0x2 094c 7801 |x | Jump 0x94e ; case 0x0 094d 7807 |x | Jump 0x955 ; case 0x1 094e 00da | | Load_Top At_Offset_2 094f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0950 0125 | % | Execute Any,Set_Constraint 0951 00da | | Load_Top At_Offset_2 0952 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0953 1c00 | | Execute_Immediate Run_Utility,0x0 0954 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0955 00da | | Load_Top At_Offset_2 0956 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0957 0125 | % | Execute Any,Set_Constraint 0958 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0959 ; -------------------------------------------------------------------------------------- 0959 ; STRING TABLE 0959 ; -------------------------------------------------------------------------------------- 0959 003c | < | .STRTAB 0x003c->0x0977 ; "address out of bounds" 095a 004f | O | .STRTAB 0x004f->0x0981 ; "No disk" 095b 0054 | T | .STRTAB 0x0054->0x0985 ; "File operation successful" 095c 006b | k | .STRTAB 0x006b->0x0991 ; "Bad filename" 095d 0075 | u | .STRTAB 0x0075->0x0997 ; "File does not exist" 095e 0086 | | .STRTAB 0x0086->0x09a1 ; "File is not open" 095f 0094 | | .STRTAB 0x0094->0x09a9 ; "Disk is full" 0960 009e | | .STRTAB 0x009e->0x09af ; "Directory is full" 0961 00ad | | .STRTAB 0x00ad->0x09b7 ; "File already exists" 0962 00be | | .STRTAB 0x00be->0x09c1 ; "Can't rename file" 0963 00cd | | .STRTAB 0x00cd->0x09c9 ; "Can't delete file" 0964 00dc | | .STRTAB 0x00dc->0x09d2 ; "Page error" 0965 00e4 | | .STRTAB 0x00e4->0x09d7 ; "Slice error" 0966 00ed | | .STRTAB 0x00ed->0x09dc ; "Bad address" 0967 00f6 | | .STRTAB 0x00f6->0x09e2 ; "Disk error" 0968 00fe | | .STRTAB 0x00fe->0x09e7 ; "No labels on disk" 0969 010d | | .STRTAB 0x010d->0x09ef ; "No dos on disk" 096a 0119 | | .STRTAB 0x0119->0x09f6 ; "Unknown error" 096b 0124 | $ | .STRTAB 0x0124->0x09fd ; " " 096c 0123 | # | .STRTAB 0x0123->0x09fd ; "Total of " 096d 012a | * | .STRTAB 0x012a->0x0a02 ; " Pages in " 096e 0132 | 2 | .STRTAB 0x0132->0x0a07 ; " Files." 096f 0137 | 7 | .STRTAB 0x0137->0x0a0a ; "No files found." 0970 0144 | D | .STRTAB 0x0144->0x0a12 ; " PERMANENT => " 0971 0159 | Y | .STRTAB 0x0159->0x0a1d ; ", EXECUTABLE => " 0972 0167 | g | .STRTAB 0x0167->0x0a25 ; ", KERNEL => " 0973 0171 | q | .STRTAB 0x0171->0x0a2b ; " File pages " 0974 0184 | | .STRTAB 0x0184->0x0a36 ; " .. " 0975 0186 | | .STRTAB 0x0186->0x0a38 ; " are at disk block " 0976 0197 | | .STREND 0x0197->0x0a41 0977 6164 6472 |addr| .STRTAB_STRINGS 0a42 0000 0000 | | .BLANK 0000[0x6] 0a48 ; -------------------------------------------------------------------------------------- 0a48 ; Debug Table 0a48 ; -------------------------------------------------------------------------------------- 0a48 0004 0012 | | .DEBUG4 0x0004,0x0012,0x2fcf,0x0000,0x0001,0x0000 0a4e 8884 001f | | .XXX[0x58] 0a50 97f8 085c | \| 0a52 b007 97fe | | 0a54 08a3 97f8 | | 0a56 085c 9408 | \ | 0a58 075c 00c4 | \ | 0a5a 033d e04c | = L| 0a5c 0364 085c | d \| 0a5e f000 085f | _| 0a60 97fc 077d | }| 0a62 a01d 2006 | | 0a64 97f4 0364 | d| 0a66 085c f006 | \ | 0a68 97f1 140c | | 0a6a 0364 085c | d \| 0a6c f008 00c8 | | 0a6e 0324 0365 | $ e| 0a70 dfac 0339 | 9| 0a72 2002 97f7 | | 0a74 8010 6c36 | l6| 0a76 97f1 140c | | 0a78 0000 0000 | | 0a7a 0000 0430 | 0| 0a7c 0010 0013 | | 0a7e 97f4 085c | \| 0a80 b004 036e | n| 0a82 08a0 038c | | 0a84 0fc7 8877 | w| 0a86 97f3 97ff | | 0a88 8878 6044 | x`D| 0a8a 00c7 97f3 | | 0a8c 888b 888c | | 0a8e 6044 0364 |`D d| 0a90 0364 085c | d \| 0a92 e003 97f8 | | 0a94 0364 085c | d \| 0a96 e004 036b | k| 0a98 97f4 085c | \| 0a9a 9408 075c | \| 0a9c 0364 085c | d \| 0a9e e008 0360 | `| 0aa0 036f 97f4 | o | 0aa2 085c 9408 | \ | 0aa4 0759 1414 | Y | 0aa6 0000 0000 | | .BLANK 0000[0x5] 0aab 04bc 0010 | | .XXX[0x21] 0aad 000c 038c | | 0aaf 1803 8880 | | 0ab1 001f 97fd | | 0ab3 a023 8880 | # | 0ab5 038f 97fc | | 0ab7 085c 940a | \ | 0ab9 08a4 016c | l| 0abb 00c7 97fb | | 0abd 8870 0c8b | p | 0abf 97fc 0364 | d| 0ac1 e000 036c | l| 0ac3 0364 e004 | d | 0ac5 0368 0364 | h d| 0ac7 e00b 8898 | | 0ac9 6046 97f5 |`F | 0acb 140c | | 0acc 0000 0000 | | .BLANK 0000[0x7] 0ad3 054c 0010 | L | .XXX[0x44] 0ad5 0004 036b | k| 0ad7 8898 6048 | `H| 0ad9 00cd 1404 | | 0adb 05b0 0010 | | 0add 0010 0368 | h| 0adf 085c f000 | \ | 0ae1 085c 9408 | \ | 0ae3 001c 036c | l| 0ae5 085c f008 | \ | 0ae7 085c f008 | \ | 0ae9 001f 97fc | | 0aeb 085c f004 | \ | 0aed 038c 0fc4 | | 0aef 033c 0369 | < i| 0af1 a02c 0367 | , g| 0af3 97fc 085c | \| 0af5 e004 036b | k| 0af7 8880 085b | [| 0af9 97fc 085c | \| 0afb e009 1404 | | 0afd 0367 9008 | g | 0aff 0770 09f1 | p | 0b01 a020 0364 | d| 0b03 2804 0168 |( h| 0b05 0367 9008 | g | 0b07 075c 00cd | \ | 0b09 e02c 036c | , l| 0b0b 0770 2807 | p( | 0b0d 97fc 085c | \| 0b0f e007 8883 | | 0b11 97fc 085c | \| 0b13 e009 1404 | | 0b15 0325 ff64 | % d| 0b17 0000 0000 | | .BLANK 0000[0x4] 0b1b 066c 0010 | l | .XXX[0x14] 0b1d 0004 0368 | h| 0b1f 085c f008 | \ | 0b21 0875 1004 | u | 0b23 068c 0010 | | 0b25 0004 0368 | h| 0b27 085c f008 | \ | 0b29 085c f000 | \ | 0b2b 085c 0cd4 | \ | 0b2d 0335 1004 | 5 | 0b2f 0000 0000 | | .BLANK 0000[0x4] 0b33 06cc 0010 | | .XXX[0x9] 0b35 0004 0368 | h| 0b37 085c f008 | \ | 0b39 085c f005 | \ | 0b3b 1004 | | 0b3c 0000 0000 | | .BLANK 0000[0x7] 0b43 0754 0010 | T | .XXX[0x79] 0b45 0014 0368 | h| 0b47 085c f000 | \ | 0b49 085c 9408 | \ | 0b4b 001c 036c | l| 0b4d 085c f004 | \ | 0b4f 038c 0fc7 | | 0b51 97fc 085c | \| 0b53 f00b 8884 | | 0b55 085b 8884 | [ | 0b57 001f 97fe | | 0b59 0857 17fc | W | 0b5b 036b 9008 | k | 0b5d 075c 00c4 | \ | 0b5f 0360 0368 | ` h| 0b61 087d a01c | } | 0b63 0364 085c | d \| 0b65 f008 036f | o| 0b67 9008 0759 | Y| 0b69 e05c 033d | \ =| 0b6b e048 0364 | H d| 0b6d 085c f008 | \ | 0b6f 036c 087d | l }| 0b71 a01c 0368 | h| 0b73 085c f008 | \ | 0b75 0368 085c | h \| 0b77 e009 e01c | | 0b79 0364 085c | d \| 0b7b f008 00c8 | | 0b7d 0324 0365 | $ e| 0b7f dfb0 0338 | 8| 0b81 0364 0864 | d d| 0b83 0360 f007 | ` | 0b85 8010 6040 | `@| 0b87 0364 e004 | d | 0b89 0344 0364 | D d| 0b8b 0864 0360 | d `| 0b8d f003 8878 | x| 0b8f 6048 0364 |`H d| 0b91 e000 0344 | D| 0b93 0367 888c | g | 0b95 6048 00c9 |`H | 0b97 1404 0000 | | 0b99 0000 0000 | | 0b9b 086c 0010 | l | 0b9d 0005 1821 | !| 0b9f 0c09 0c09 | | 0ba1 e065 e061 | e a| 0ba3 e05d e059 | ] Y| 0ba5 e055 e005 | U | 0ba7 e024 036d | $ m| 0ba9 2003 97fb | | 0bab 8890 0d6d | m| 0bad 2007 97fc | | 0baf 0c6d 0808 | m | 0bb1 036c 036c | l l| 0bb3 0bf1 2003 | | 0bb5 97fb 8890 | | 0bb7 0cd0 b408 | | 0bb9 05a9 0808 | | 0bbb 21a4 |! | 0bbc 0000 0000 | | .BLANK 0000[0x7] 0bc3 090c 0010 | | .XXX[0xc] 0bc5 0004 0368 | h| 0bc7 2404 2804 |$ ( | 0bc9 0360 038c | ` | 0bcb 0981 c004 | | 0bcd 2005 1004 | | 0bcf 0000 0000 | | .BLANK 0000[0x4] 0bd3 094c 0010 | L | .XXX[0x2d] 0bd5 0004 036b | k| 0bd7 802c 6037 | ,`7| 0bd9 97f8 09b8 | | 0bdb 2804 0360 |( `| 0bdd 038c 0981 | | 0bdf c004 2005 | | 0be1 1008 0000 | | 0be3 098c 0010 | | 0be5 0004 033c | <| 0be7 036c 0764 | l d| 0be9 098d c03c | <| 0beb 0363 97fc | c | 0bed 075d a024 | ] $| 0bef 0362 97f8 | b | 0bf1 0363 97fc | c | 0bf3 075f 8880 | _ | 0bf5 085a 97f5 | Z | 0bf7 1408 0320 | | 0bf9 ffc4 0338 | 8| 0bfb 0368 0770 | h p| 0bfd 2807 17fb |( | 0bff 8882 | |