|
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 - metrics - download
Length: 6144 (0x1800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0d2ce3
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 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 0085 | | .CONST 0x0085 ; 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 For_Outer_Call,Visible,Unelaborated,INIT_0088
000d 029a 0093 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0090
000f 029a 0243 | C| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0240
0011 029a 0283 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0280
0013 029a 029b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0298
0015 029a 02d3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02d0
0017 029a 036b | k| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0368
0019 029a 03a3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_03a0
001b 029a 03db | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_03d8
001d 029a 0413 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0410
001f 029a 044b | K| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0448
0021 029a 048b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0488
0023 029a 04fb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_04f8
0025 029a 053b | ;| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0538
0027 029a 05cb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_05c8
0029 029a 05f3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_05f0
002b 4804 |H | Short_Literal 0x4
002c 032b | + | Declare_Type Record,Incomplete,Visible
002d 029a 072b | +| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0728
002f 029a 0743 | C| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0740
0031 029a 0843 | C| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0840
0033 481e |H | Short_Literal 0x1e
0034 e001 | | Load 0x0,0x1
0035 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0036 1c07 | | Execute_Immediate Run_Utility,0x7
0037 00e2 | | Load_Encached Integer_Cache
0038 00e2 | | Load_Encached Integer_Cache
0039 e002 | | Load 0x0,0x2
003a 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
003b 029f 0943 | C| Declare_Subprogram For_Call,INIT_0940
003d e21d | | Load 0x1,0x1d
003e 0326 | & | Complete_Type Record,By_Defining
003f 00bf | | Action Accept_Activation
0040 4801 |H | Short_Literal 0x1
0041 481e |H | Short_Literal 0x1e
0042 00e9 | | Load_Encached String_Cache
0043 035b | [ | Declare_Type Array,Constrained
0044 0337 | 7 | Declare_Variable Array
0045 e002 | | Load 0x0,0x2
0046 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0047 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0048 e003 | | Load 0x0,0x3
0049 1b0f | | Execute Package,Field_Read,Field_Number 0xf
004a 0322 | " | Declare_Variable Record
004b e004 | | Load 0x0,0x4
004c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
004d 0322 | " | Declare_Variable Record
004e e002 | | Load 0x0,0x2
004f 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
0050 0337 | 7 | Declare_Variable Array
0051 00e1 | | Load_Encached Boolean_Cache
0052 e005 | | Load 0x0,0x5
0053 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0054 4801 |H | Short_Literal 0x1
0055 4805 |H | Short_Literal 0x5
0056 00e9 | | Load_Encached String_Cache
0057 035b | [ | Declare_Type Array,Constrained
0058 0337 | 7 | Declare_Variable Array
0059 1d0d | | Execute_Immediate Reference_Lex_1,0xd
005a 00c7 | | Action Elaborate_Subprogram
005b 1d0e | | Execute_Immediate Reference_Lex_1,0xe
005c 00c7 | | Action Elaborate_Subprogram
005d 1d12 | | Execute_Immediate Reference_Lex_1,0x12
005e 00c7 | | Action Elaborate_Subprogram
005f 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0060 00c7 | | Action Elaborate_Subprogram
0061 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0062 00c7 | | Action Elaborate_Subprogram
0063 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0064 00c7 | | Action Elaborate_Subprogram
0065 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0066 00c7 | | Action Elaborate_Subprogram
0067 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0068 00c7 | | Action Elaborate_Subprogram
0069 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
006a 00c7 | | Action Elaborate_Subprogram
006b 029d 0853 | S| Declare_Subprogram For_Outer_Call,INIT_0850
006d 029d 088b | | Declare_Subprogram For_Outer_Call,INIT_0888
006f 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0070 00c7 | | Action Elaborate_Subprogram
0071 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0072 00c7 | | Action Elaborate_Subprogram
0073 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0074 00c7 | | Action Elaborate_Subprogram
0075 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0076 00c7 | | Action Elaborate_Subprogram
0077 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0078 00c7 | | Action Elaborate_Subprogram
0079 1d17 | | Execute_Immediate Reference_Lex_1,0x17
007a 00c7 | | Action Elaborate_Subprogram
007b 029d 08c3 | | Declare_Subprogram For_Outer_Call,INIT_08c0
007d 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
007e 00c7 | | Action Elaborate_Subprogram
007f 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0080 00c7 | | Action Elaborate_Subprogram
0081 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0082 00c7 | | Action Elaborate_Subprogram
0083 1d20 | | Execute_Immediate Reference_Lex_1,0x20
0084 00c7 | | Action Elaborate_Subprogram
0085 BODY_0008:
0085 00bc | | Action Signal_Activated
0086 00bb | | Action Signal_Completion
0087 0000 | | .XXX[0x1]
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_Unchecked Discrete,At_Offset_3
008d 4501 |E | Exit_Subprogram 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 e001 | | Load 0x0,0x1
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 e001 | | Load 0x0,0x1
00a5 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
00a6 e006 | | Load 0x0,0x6
00a7 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00a8 467f |F | Jump_Case 0x7f
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_Result,0x1
01b9 00db | | Load_Top At_Offset_3
01ba 4401 |D | Exit_Subprogram With_Result,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 0254 | T | .CONST 0x0254 ; 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 e007 | | Load 0x0,0x7
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 e004 | | Load 0x0,0x4
024b 1910 | | Execute Package,Field_Reference,Field_Number 0x10
024c 00c6 | | Action Check_Subprogram_Elaborated
024d 00d8 | | Load_Top At_Offset_0
024e e008 | | Load 0x0,0x8
024f e009 | | Load 0x0,0x9
0250 4806 |H | Short_Literal 0x6
0251 0007 | | Action Break_Optional
0252 e402 | | Load 0x2,0x2
0253 0337 | 7 | Declare_Variable Array
0254 BODY_0240:
0254 4800 |H | Short_Literal 0x0
0255 e224 | $ | Load 0x1,0x24
0256 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0257 4800 |H | Short_Literal 0x0
0258 e224 | $ | Load 0x1,0x24
0259 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
025a 4802 |H | Short_Literal 0x2
025b e224 | $ | Load 0x1,0x24
025c 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
025d e224 | $ | Load 0x1,0x24
025e e403 | | Load 0x2,0x3
025f 4804 |H | Short_Literal 0x4
0260 4802 |H | Short_Literal 0x2
0261 0099 | | Action Reference_Dynamic
0262 e004 | | Load 0x0,0x4
0263 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0264 00d9 | | Load_Top At_Offset_1
0265 01d4 | | Execute Vector,Structure_Write
0266 4802 |H | Short_Literal 0x2
0267 00d9 | | Load_Top At_Offset_1
0268 01d7 | | Execute Vector,Field_Read
0269 0f45 | E | Execute_Immediate Equal,0x45
026a 4803 |H | Short_Literal 0x3
026b 00da | | Load_Top At_Offset_2
026c 01d7 | | Execute Vector,Field_Read
026d 0f4b | K | Execute_Immediate Equal,0x4b
026e 0279 | y | Execute Discrete,And
026f 6802 |h | Jump_Zero 0x272
0270 4801 |H | Short_Literal 0x1
0271 a222 | " | Store_Unchecked 0x1,0x22
0272 4802 |H | Short_Literal 0x2
0273 00d9 | | Load_Top At_Offset_1
0274 01d7 | | Execute Vector,Field_Read
0275 0f4b | K | Execute_Immediate Equal,0x4b
0276 4803 |H | Short_Literal 0x3
0277 00da | | Load_Top At_Offset_2
0278 01d7 | | Execute Vector,Field_Read
0279 0f45 | E | Execute_Immediate Equal,0x45
027a 0279 | y | Execute Discrete,And
027b 6802 |h | Jump_Zero 0x27e
027c 4802 |H | Short_Literal 0x2
027d a222 | " | Store_Unchecked 0x1,0x22
027e e222 | " | Load 0x1,0x22
027f 00ca | | Action Exit_Nullary_Function
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0289 | | .CONST 0x0289 ; Address of begin
0281 0004 | | .CONST 0x0004 ; Address of exception handler
0282 0002 | | .CONST 0x0002 ; Number of locals
0283 INIT_0280:
0283 4864 |Hd | Short_Literal 0x64
0284 e001 | | Load 0x0,0x1
0285 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0286 1c08 | | Execute_Immediate Run_Utility,0x8
0287 00d8 | | Load_Top At_Offset_0
0288 1c00 | | Execute_Immediate Run_Utility,0x0
0289 BODY_0280:
0289 00d8 | | Load_Top At_Offset_0
028a e5ff | | Load 0x2,-0x1
028b 821a | | Call 0x1,0x1a
028c 00d1 | | Pop_Control Pop_Count_1
028d e00a | | Load 0x0,0xa
028e 180e | | Execute Package,Field_Execute,Field_Number 0xe
028f 4802 |H | Short_Literal 0x2
0290 00da | | Load_Top At_Offset_2
0291 e001 | | Load 0x0,0x1
0292 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0293 e00b | | Load 0x0,0xb
0294 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0295 4502 |E | Exit_Subprogram 0x2
0296 0000 0000 | | .XXX[0x2]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 02a4 | | .CONST 0x02a4 ; Address of begin
0299 02b3 | | .CONST 0x02b3 ; Address of exception handler
029a 0005 | | .CONST 0x0005 ; Number of locals
029b INIT_0298:
029b e004 | | Load 0x0,0x4
029c 1910 | | Execute Package,Field_Reference,Field_Number 0x10
029d 00c6 | | Action Check_Subprogram_Elaborated
029e e005 | | Load 0x0,0x5
029f 1b13 | | Execute Package,Field_Read,Field_Number 0x13
02a0 e00c | | Load 0x0,0xc
02a1 e00d | | Load 0x0,0xd
02a2 4805 |H | Short_Literal 0x5
02a3 0007 | | Action Break_Optional
02a4 BODY_0298:
02a4 e5fe | | Load 0x2,-0x2
02a5 e5ff | | Load 0x2,-0x1
02a6 822a | * | Call 0x1,0x2a
02a7 4800 |H | Short_Literal 0x0
02a8 a5f9 | | Store_Unchecked 0x2,-0x7
02a9 e224 | $ | Load 0x1,0x24
02aa e402 | | Load 0x2,0x2
02ab 4803 |H | Short_Literal 0x3
02ac 4802 |H | Short_Literal 0x2
02ad 0099 | | Action Reference_Dynamic
02ae e004 | | Load 0x0,0x4
02af 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02b0 e5fa | | Load 0x2,-0x6
02b1 01d4 | | Execute Vector,Structure_Write
02b2 4506 |E | Exit_Subprogram 0x6
02b3 TRAP_0298:
02b3 e004 | | Load 0x0,0x4
02b4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02b5 010f | | Execute Exception,Equal
02b6 680a |h | Jump_Zero 0x2c1
02b7 480b |H | Short_Literal 0xb
02b8 a5f9 | | Store_Unchecked 0x2,-0x7
02b9 e00a | | Load 0x0,0xa
02ba 180e | | Execute Package,Field_Execute,Field_Number 0xe
02bb 4802 |H | Short_Literal 0x2
02bc 0092 0959 | Y| Action Push_String_Extended,0x959 ; "address out of bounds"
02be e00b | | Load 0x0,0xb
02bf 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02c0 4506 |E | Exit_Subprogram 0x6
02c1 480c |H | Short_Literal 0xc
02c2 a5f9 | | Store_Unchecked 0x2,-0x7
02c3 e00a | | Load 0x0,0xa
02c4 180e | | Execute Package,Field_Execute,Field_Number 0xe
02c5 4802 |H | Short_Literal 0x2
02c6 4800 |H | Short_Literal 0x0
02c7 4801 |H | Short_Literal 0x1
02c8 e00e | | Load 0x0,0xe
02c9 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02ca e00b | | Load 0x0,0xb
02cb 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02cc 4506 |E | Exit_Subprogram 0x6
02cd 0000 0000 | | .XXX[0x3]
02cf 0000 | |
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d8 | | .CONST 0x02d8 ; Address of begin
02d1 0004 | | .CONST 0x0004 ; Address of exception handler
02d2 0003 | | .CONST 0x0003 ; Number of locals
02d3 INIT_02d0:
02d3 e005 | | Load 0x0,0x5
02d4 1b13 | | Execute Package,Field_Read,Field_Number 0x13
02d5 0337 | 7 | Declare_Variable Array
02d6 e005 | | Load 0x0,0x5
02d7 1b11 | | Execute Package,Field_Read,Field_Number 0x11
02d8 BODY_02d0:
02d8 4800 |H | Short_Literal 0x0
02d9 a226 | & | Store_Unchecked 0x1,0x26
02da 480c |H | Short_Literal 0xc
02db a5fe | | Store_Unchecked 0x2,-0x2
02dc e5ff | | Load 0x2,-0x1
02dd e00f | | Load 0x0,0xf
02de 1b16 | | Execute Package,Field_Read,Field_Number 0x16
02df 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
02e0 e002 | | Load 0x0,0x2
02e1 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
02e2 e00f | | Load 0x0,0xf
02e3 1b16 | | Execute Package,Field_Read,Field_Number 0x16
02e4 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
02e5 607a |`z | Indirect_Literal Discrete,0x360,{0x00000000, 0x00007fff}
02e6 e00f | | Load 0x0,0xf
02e7 1b16 | | Execute Package,Field_Read,Field_Number 0x16
02e8 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
02e9 6076 |`v | Indirect_Literal Discrete,0x360,{0x00000000, 0x00007fff}
02ea e00f | | Load 0x0,0xf
02eb 1b16 | | Execute Package,Field_Read,Field_Number 0x16
02ec 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
02ed e002 | | Load 0x0,0x2
02ee 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
02ef e00f | | Load 0x0,0xf
02f0 1b15 | | Execute Package,Field_Read,Field_Number 0x15
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 6066 |`f | Indirect_Literal Discrete,0x35c,{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_Subprogram 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_Subprogram 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 e002 | | Load 0x0,0x2
0309 1b0e | | Execute Package,Field_Read,Field_Number 0xe
030a 0260 | ` | Execute Discrete,In_Type
030b 7001 |p | Jump_Nonzero 0x30d
030c 0801 | | Execute_Immediate Raise,0x1
030d e00f | | Load 0x0,0xf
030e 1b16 | | Execute Package,Field_Read,Field_Number 0x16
030f 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0310 e00f | | Load 0x0,0xf
0311 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0312 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0313 e223 | # | Load 0x1,0x23
0314 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
0315 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0316 0271 | q | Execute Discrete,Times
0317 00d8 | | Load_Top At_Offset_0
0318 e002 | | Load 0x0,0x2
0319 1b0e | | Execute Package,Field_Read,Field_Number 0xe
031a 0260 | ` | Execute Discrete,In_Type
031b 7001 |p | Jump_Nonzero 0x31d
031c 0801 | | Execute_Immediate Raise,0x1
031d e00f | | Load 0x0,0xf
031e 1b16 | | Execute Package,Field_Read,Field_Number 0x16
031f 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0320 e00f | | Load 0x0,0xf
0321 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0322 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
0323 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0324 7006 |p | Jump_Nonzero 0x32b
0325 4800 |H | Short_Literal 0x0
0326 e00f | | Load 0x0,0xf
0327 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0328 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
0329 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
032a 782b |x+ | Jump 0x356
032b 00d8 | | Load_Top At_Offset_0
032c 00da | | Load_Top At_Offset_2
032d 4802 |H | Short_Literal 0x2
032e e00f | | Load 0x0,0xf
032f 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0330 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
0331 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0332 8213 | | Call 0x1,0x13
0333 00d1 | | Pop_Control Pop_Count_1
0334 0059 | Y | Store_Top Discrete,At_Offset_1
0335 00d8 | | Load_Top At_Offset_0
0336 6801 |h | Jump_Zero 0x338
0337 4502 |E | Exit_Subprogram 0x2
0338 4800 |H | Short_Literal 0x0
0339 00da | | Load_Top At_Offset_2
033a 01d7 | | Execute Vector,Field_Read
033b 0908 | | Execute_Immediate Binary_Scale,0x8
033c 4801 |H | Short_Literal 0x1
033d 00db | | Load_Top At_Offset_3
033e 01d7 | | Execute Vector,Field_Read
033f 0273 | s | Execute Discrete,Plus
0340 e00f | | Load 0x0,0xf
0341 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0342 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
0343 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0344 4802 |H | Short_Literal 0x2
0345 00da | | Load_Top At_Offset_2
0346 01d7 | | Execute Vector,Field_Read
0347 0908 | | Execute_Immediate Binary_Scale,0x8
0348 4803 |H | Short_Literal 0x3
0349 00db | | Load_Top At_Offset_3
034a 01d7 | | Execute Vector,Field_Read
034b 0273 | s | Execute Discrete,Plus
034c 00d8 | | Load_Top At_Offset_0
034d e002 | | Load 0x0,0x2
034e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
034f 0260 | ` | Execute Discrete,In_Type
0350 7001 |p | Jump_Nonzero 0x352
0351 0801 | | Execute_Immediate Raise,0x1
0352 e00f | | Load 0x0,0xf
0353 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0354 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
0355 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0356 4800 |H | Short_Literal 0x0
0357 a5fe | | Store_Unchecked 0x2,-0x2
0358 4801 |H | Short_Literal 0x1
0359 a226 | & | Store_Unchecked 0x1,0x26
035a 4502 |E | Exit_Subprogram 0x2
035b 0000 | | .XXX[0x1]
035c 0000 0000 | | .LITERAL {0x00000000, 0x00007fed}
0360 0000 0000 | | .LITERAL {0x00000000, 0x00007fff}
0364 0000 0000 | | .BLANK 0000[0x4]
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 0375 | u | .CONST 0x0375 ; Address of begin
0369 0385 | | .CONST 0x0385 ; Address of exception handler
036a 0006 | | .CONST 0x0006 ; Number of locals
036b INIT_0368:
036b e004 | | Load 0x0,0x4
036c 1910 | | Execute Package,Field_Reference,Field_Number 0x10
036d 00c6 | | Action Check_Subprogram_Elaborated
036e e005 | | Load 0x0,0x5
036f 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0370 e010 | | Load 0x0,0x10
0371 e011 | | Load 0x0,0x11
0372 4805 |H | Short_Literal 0x5
0373 0007 | | Action Break_Optional
0374 00e2 | | Load_Encached Integer_Cache
0375 BODY_0368:
0375 4800 |H | Short_Literal 0x0
0376 a5fc | | Store_Unchecked 0x2,-0x4
0377 e224 | $ | Load 0x1,0x24
0378 e5ff | | Load 0x2,-0x1
0379 8229 | ) | Call 0x1,0x29
037a 00d1 | | Pop_Control Pop_Count_1
037b e224 | $ | Load 0x1,0x24
037c e402 | | Load 0x2,0x2
037d 4803 |H | Short_Literal 0x3
037e 4802 |H | Short_Literal 0x2
037f 0099 | | Action Reference_Dynamic
0380 e004 | | Load 0x0,0x4
0381 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0382 e5fd | | Load 0x2,-0x3
0383 01d4 | | Execute Vector,Structure_Write
0384 4503 |E | Exit_Subprogram 0x3
0385 TRAP_0368:
0385 e004 | | Load 0x0,0x4
0386 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0387 010f | | Execute Exception,Equal
0388 680a |h | Jump_Zero 0x393
0389 480b |H | Short_Literal 0xb
038a a5fc | | Store_Unchecked 0x2,-0x4
038b e00a | | Load 0x0,0xa
038c 180e | | Execute Package,Field_Execute,Field_Number 0xe
038d 4802 |H | Short_Literal 0x2
038e 0092 0959 | Y| Action Push_String_Extended,0x959 ; "address out of bounds"
0390 e00b | | Load 0x0,0xb
0391 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0392 4503 |E | Exit_Subprogram 0x3
0393 480c |H | Short_Literal 0xc
0394 a5fc | | Store_Unchecked 0x2,-0x4
0395 e00a | | Load 0x0,0xa
0396 180e | | Execute Package,Field_Execute,Field_Number 0xe
0397 4802 |H | Short_Literal 0x2
0398 4800 |H | Short_Literal 0x0
0399 4801 |H | Short_Literal 0x1
039a e00e | | Load 0x0,0xe
039b 1815 | | Execute Package,Field_Execute,Field_Number 0x15
039c e00b | | Load 0x0,0xb
039d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
039e 4503 |E | Exit_Subprogram 0x3
039f 0000 | | .XXX[0x1]
03a0 ; --------------------------------------------------------------------------------------
03a0 ; SUBPROGRAM
03a0 ; --------------------------------------------------------------------------------------
03a0 03ad | | .CONST 0x03ad ; Address of begin
03a1 03bd | | .CONST 0x03bd ; Address of exception handler
03a2 0006 | | .CONST 0x0006 ; Number of locals
03a3 INIT_03a0:
03a3 e004 | | Load 0x0,0x4
03a4 1910 | | Execute Package,Field_Reference,Field_Number 0x10
03a5 00c6 | | Action Check_Subprogram_Elaborated
03a6 e002 | | Load 0x0,0x2
03a7 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
03a8 e012 | | Load 0x0,0x12
03a9 e013 | | Load 0x0,0x13
03aa 4805 |H | Short_Literal 0x5
03ab 0007 | | Action Break_Optional
03ac 00e2 | | Load_Encached Integer_Cache
03ad BODY_03a0:
03ad 4800 |H | Short_Literal 0x0
03ae a5fc | | Store_Unchecked 0x2,-0x4
03af e224 | $ | Load 0x1,0x24
03b0 e5ff | | Load 0x2,-0x1
03b1 8229 | ) | Call 0x1,0x29
03b2 00d1 | | Pop_Control Pop_Count_1
03b3 e224 | $ | Load 0x1,0x24
03b4 e402 | | Load 0x2,0x2
03b5 4803 |H | Short_Literal 0x3
03b6 4802 |H | Short_Literal 0x2
03b7 0099 | | Action Reference_Dynamic
03b8 e004 | | Load 0x0,0x4
03b9 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03ba e5fd | | Load 0x2,-0x3
03bb 01d4 | | Execute Vector,Structure_Write
03bc 4503 |E | Exit_Subprogram 0x3
03bd TRAP_03a0:
03bd e004 | | Load 0x0,0x4
03be 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03bf 010f | | Execute Exception,Equal
03c0 680a |h | Jump_Zero 0x3cb
03c1 480b |H | Short_Literal 0xb
03c2 a5fc | | Store_Unchecked 0x2,-0x4
03c3 e00a | | Load 0x0,0xa
03c4 180e | | Execute Package,Field_Execute,Field_Number 0xe
03c5 4802 |H | Short_Literal 0x2
03c6 0092 0959 | Y| Action Push_String_Extended,0x959 ; "address out of bounds"
03c8 e00b | | Load 0x0,0xb
03c9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03ca 4503 |E | Exit_Subprogram 0x3
03cb 480c |H | Short_Literal 0xc
03cc a5fc | | Store_Unchecked 0x2,-0x4
03cd e00a | | Load 0x0,0xa
03ce 180e | | Execute Package,Field_Execute,Field_Number 0xe
03cf 4802 |H | Short_Literal 0x2
03d0 4800 |H | Short_Literal 0x0
03d1 4801 |H | Short_Literal 0x1
03d2 e00e | | Load 0x0,0xe
03d3 1815 | | Execute Package,Field_Execute,Field_Number 0x15
03d4 e00b | | Load 0x0,0xb
03d5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03d6 4503 |E | Exit_Subprogram 0x3
03d7 0000 | | .XXX[0x1]
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03e4 | | .CONST 0x03e4 ; Address of begin
03d9 03f3 | | .CONST 0x03f3 ; Address of exception handler
03da 0005 | | .CONST 0x0005 ; Number of locals
03db INIT_03d8:
03db e004 | | Load 0x0,0x4
03dc 1911 | | Execute Package,Field_Reference,Field_Number 0x11
03dd 00c6 | | Action Check_Subprogram_Elaborated
03de e005 | | Load 0x0,0x5
03df 1b13 | | Execute Package,Field_Read,Field_Number 0x13
03e0 e014 | | Load 0x0,0x14
03e1 e015 | | Load 0x0,0x15
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 e004 | | Load 0x0,0x4
03f1 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03f2 4507 |E | Exit_Subprogram 0x7
03f3 TRAP_03d8:
03f3 e004 | | Load 0x0,0x4
03f4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03f5 010f | | Execute Exception,Equal
03f6 680a |h | Jump_Zero 0x401
03f7 480b |H | Short_Literal 0xb
03f8 a5f9 | | Store_Unchecked 0x2,-0x7
03f9 e00a | | Load 0x0,0xa
03fa 180e | | Execute Package,Field_Execute,Field_Number 0xe
03fb 4802 |H | Short_Literal 0x2
03fc 0092 0959 | Y| Action Push_String_Extended,0x959 ; "address out of bounds"
03fe e00b | | Load 0x0,0xb
03ff 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0400 4507 |E | Exit_Subprogram 0x7
0401 480c |H | Short_Literal 0xc
0402 a5f9 | | Store_Unchecked 0x2,-0x7
0403 e00a | | Load 0x0,0xa
0404 180e | | Execute Package,Field_Execute,Field_Number 0xe
0405 4802 |H | Short_Literal 0x2
0406 4800 |H | Short_Literal 0x0
0407 4801 |H | Short_Literal 0x1
0408 e00e | | Load 0x0,0xe
0409 1815 | | Execute Package,Field_Execute,Field_Number 0x15
040a e00b | | Load 0x0,0xb
040b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
040c 4507 |E | Exit_Subprogram 0x7
040d 0000 0000 | | .XXX[0x3]
040f 0000 | |
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 041d | | .CONST 0x041d ; Address of begin
0411 042d | - | .CONST 0x042d ; Address of exception handler
0412 0006 | | .CONST 0x0006 ; Number of locals
0413 INIT_0410:
0413 e004 | | Load 0x0,0x4
0414 1911 | | Execute Package,Field_Reference,Field_Number 0x11
0415 00c6 | | Action Check_Subprogram_Elaborated
0416 e005 | | Load 0x0,0x5
0417 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0418 e016 | | Load 0x0,0x16
0419 e017 | | Load 0x0,0x17
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 e004 | | Load 0x0,0x4
042b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
042c 4504 |E | Exit_Subprogram 0x4
042d TRAP_0410:
042d e004 | | Load 0x0,0x4
042e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
042f 010f | | Execute Exception,Equal
0430 680a |h | Jump_Zero 0x43b
0431 480b |H | Short_Literal 0xb
0432 a5fc | | Store_Unchecked 0x2,-0x4
0433 e00a | | Load 0x0,0xa
0434 180e | | Execute Package,Field_Execute,Field_Number 0xe
0435 4802 |H | Short_Literal 0x2
0436 0092 0959 | Y| Action Push_String_Extended,0x959 ; "address out of bounds"
0438 e00b | | Load 0x0,0xb
0439 1813 | | Execute Package,Field_Execute,Field_Number 0x13
043a 4504 |E | Exit_Subprogram 0x4
043b 480c |H | Short_Literal 0xc
043c a5fc | | Store_Unchecked 0x2,-0x4
043d e00a | | Load 0x0,0xa
043e 180e | | Execute Package,Field_Execute,Field_Number 0xe
043f 4802 |H | Short_Literal 0x2
0440 4800 |H | Short_Literal 0x0
0441 4801 |H | Short_Literal 0x1
0442 e00e | | Load 0x0,0xe
0443 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0444 e00b | | Load 0x0,0xb
0445 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0446 4504 |E | Exit_Subprogram 0x4
0447 0000 | | .XXX[0x1]
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 045e | ^ | .CONST 0x045e ; Address of begin
0449 046e | n | .CONST 0x046e ; Address of exception handler
044a 000a | | .CONST 0x000a ; Number of locals
044b INIT_0448:
044b e004 | | Load 0x0,0x4
044c 1911 | | Execute Package,Field_Reference,Field_Number 0x11
044d 00c6 | | Action Check_Subprogram_Elaborated
044e e002 | | Load 0x0,0x2
044f 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
0450 e018 | | Load 0x0,0x18
0451 e019 | | Load 0x0,0x19
0452 4805 |H | Short_Literal 0x5
0453 0007 | | Action Break_Optional
0454 e004 | | Load 0x0,0x4
0455 1910 | | Execute Package,Field_Reference,Field_Number 0x10
0456 00c6 | | Action Check_Subprogram_Elaborated
0457 e002 | | Load 0x0,0x2
0458 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
0459 e01a | | Load 0x0,0x1a
045a e01b | | Load 0x0,0x1b
045b 4809 |H | Short_Literal 0x9
045c 0007 | | Action Break_Optional
045d 00e2 | | Load_Encached Integer_Cache
045e BODY_0448:
045e 4800 |H | Short_Literal 0x0
045f a5fc | | Store_Unchecked 0x2,-0x4
0460 e224 | $ | Load 0x1,0x24
0461 e5ff | | Load 0x2,-0x1
0462 8229 | ) | Call 0x1,0x29
0463 00d1 | | Pop_Control Pop_Count_1
0464 4801 |H | Short_Literal 0x1
0465 e5fd | | Load 0x2,-0x3
0466 e224 | $ | Load 0x1,0x24
0467 e402 | | Load 0x2,0x2
0468 4803 |H | Short_Literal 0x3
0469 4802 |H | Short_Literal 0x2
046a 0099 | | Action Reference_Dynamic
046b e004 | | Load 0x0,0x4
046c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
046d 4504 |E | Exit_Subprogram 0x4
046e TRAP_0448:
046e e004 | | Load 0x0,0x4
046f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0470 010f | | Execute Exception,Equal
0471 680a |h | Jump_Zero 0x47c
0472 480b |H | Short_Literal 0xb
0473 a5fc | | Store_Unchecked 0x2,-0x4
0474 e00a | | Load 0x0,0xa
0475 180e | | Execute Package,Field_Execute,Field_Number 0xe
0476 4802 |H | Short_Literal 0x2
0477 0092 0959 | Y| Action Push_String_Extended,0x959 ; "address out of bounds"
0479 e00b | | Load 0x0,0xb
047a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
047b 4504 |E | Exit_Subprogram 0x4
047c 480c |H | Short_Literal 0xc
047d a5fc | | Store_Unchecked 0x2,-0x4
047e e00a | | Load 0x0,0xa
047f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0480 4802 |H | Short_Literal 0x2
0481 4800 |H | Short_Literal 0x0
0482 4801 |H | Short_Literal 0x1
0483 e00e | | Load 0x0,0xe
0484 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0485 e00b | | Load 0x0,0xb
0486 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0487 4504 |E | Exit_Subprogram 0x4
0488 ; --------------------------------------------------------------------------------------
0488 ; SUBPROGRAM
0488 ; --------------------------------------------------------------------------------------
0488 049d | | .CONST 0x049d ; Address of begin
0489 04da | | .CONST 0x04da ; Address of exception handler
048a 0009 | | .CONST 0x0009 ; Number of locals
048b INIT_0488:
048b e004 | | Load 0x0,0x4
048c 1910 | | Execute Package,Field_Reference,Field_Number 0x10
048d 00c6 | | Action Check_Subprogram_Elaborated
048e e003 | | Load 0x0,0x3
048f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0490 e01c | | Load 0x0,0x1c
0491 e01d | | Load 0x0,0x1d
0492 4805 |H | Short_Literal 0x5
0493 0007 | | Action Break_Optional
0494 e004 | | Load 0x0,0x4
0495 1910 | | Execute Package,Field_Reference,Field_Number 0x10
0496 00c6 | | Action Check_Subprogram_Elaborated
0497 e003 | | Load 0x0,0x3
0498 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0499 e01e | | Load 0x0,0x1e
049a e01f | | Load 0x0,0x1f
049b 4809 |H | Short_Literal 0x9
049c 0007 | | Action Break_Optional
049d BODY_0488:
049d 4800 |H | Short_Literal 0x0
049e e224 | $ | Load 0x1,0x24
049f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
04a0 4800 |H | Short_Literal 0x0
04a1 e224 | $ | Load 0x1,0x24
04a2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
04a3 4804 |H | Short_Literal 0x4
04a4 e224 | $ | Load 0x1,0x24
04a5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
04a6 e224 | $ | Load 0x1,0x24
04a7 e402 | | Load 0x2,0x2
04a8 4803 |H | Short_Literal 0x3
04a9 4802 |H | Short_Literal 0x2
04aa 0099 | | Action Reference_Dynamic
04ab e004 | | Load 0x0,0x4
04ac 1810 | | Execute Package,Field_Execute,Field_Number 0x10
04ad e223 | # | Load 0x1,0x23
04ae 017d | } | Execute Record,Structure_Write
04af e223 | # | Load 0x1,0x23
04b0 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
04b1 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
04b2 09ff | | Execute_Immediate Binary_Scale,-0x1
04b3 00d8 | | Load_Top At_Offset_0
04b4 e002 | | Load 0x0,0x2
04b5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04b6 0260 | ` | Execute Discrete,In_Type
04b7 7001 |p | Jump_Nonzero 0x4b9
04b8 0801 | | Execute_Immediate Raise,0x1
04b9 e00f | | Load 0x0,0xf
04ba 1b16 | | Execute Package,Field_Read,Field_Number 0x16
04bb 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
04bc e00f | | Load 0x0,0xf
04bd 1b16 | | Execute Package,Field_Read,Field_Number 0x16
04be 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
04bf e223 | # | Load 0x1,0x23
04c0 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
04c1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04c2 0271 | q | Execute Discrete,Times
04c3 00d8 | | Load_Top At_Offset_0
04c4 e002 | | Load 0x0,0x2
04c5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04c6 0260 | ` | Execute Discrete,In_Type
04c7 7001 |p | Jump_Nonzero 0x4c9
04c8 0801 | | Execute_Immediate Raise,0x1
04c9 e00f | | Load 0x0,0xf
04ca 1b16 | | Execute Package,Field_Read,Field_Number 0x16
04cb 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
04cc 4808 |H | Short_Literal 0x8
04cd e224 | $ | Load 0x1,0x24
04ce 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
04cf e224 | $ | Load 0x1,0x24
04d0 e406 | | Load 0x2,0x6
04d1 4807 |H | Short_Literal 0x7
04d2 4802 |H | Short_Literal 0x2
04d3 0099 | | Action Reference_Dynamic
04d4 e004 | | Load 0x0,0x4
04d5 1810 | | Execute Package,Field_Execute,Field_Number 0x10
04d6 e00f | | Load 0x0,0xf
04d7 1b16 | | Execute Package,Field_Read,Field_Number 0x16
04d8 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
04d9 4501 |E | Exit_Subprogram 0x1
04da TRAP_0488:
04da e004 | | Load 0x0,0x4
04db 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04dc 010f | | Execute Exception,Equal
04dd 680a |h | Jump_Zero 0x4e8
04de 480b |H | Short_Literal 0xb
04df a227 | ' | Store_Unchecked 0x1,0x27
04e0 e00a | | Load 0x0,0xa
04e1 180e | | Execute Package,Field_Execute,Field_Number 0xe
04e2 4802 |H | Short_Literal 0x2
04e3 0092 0959 | Y| Action Push_String_Extended,0x959 ; "address out of bounds"
04e5 e00b | | Load 0x0,0xb
04e6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04e7 4501 |E | Exit_Subprogram 0x1
04e8 480c |H | Short_Literal 0xc
04e9 a227 | ' | Store_Unchecked 0x1,0x27
04ea e00a | | Load 0x0,0xa
04eb 180e | | Execute Package,Field_Execute,Field_Number 0xe
04ec 4802 |H | Short_Literal 0x2
04ed 4800 |H | Short_Literal 0x0
04ee 4801 |H | Short_Literal 0x1
04ef e00e | | Load 0x0,0xe
04f0 1815 | | Execute Package,Field_Execute,Field_Number 0x15
04f1 e00b | | Load 0x0,0xb
04f2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04f3 4501 |E | Exit_Subprogram 0x1
04f4 0000 0000 | | .BLANK 0000[0x4]
04f8 ; --------------------------------------------------------------------------------------
04f8 ; SUBPROGRAM
04f8 ; --------------------------------------------------------------------------------------
04f8 0504 | | .CONST 0x0504 ; Address of begin
04f9 0517 | | .CONST 0x0517 ; Address of exception handler
04fa 0005 | | .CONST 0x0005 ; Number of locals
04fb INIT_04f8:
04fb e004 | | Load 0x0,0x4
04fc 1911 | | Execute Package,Field_Reference,Field_Number 0x11
04fd 00c6 | | Action Check_Subprogram_Elaborated
04fe e003 | | Load 0x0,0x3
04ff 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0500 e020 | | Load 0x0,0x20
0501 e021 | ! | Load 0x0,0x21
0502 4805 |H | Short_Literal 0x5
0503 0007 | | Action Break_Optional
0504 BODY_04f8:
0504 4800 |H | Short_Literal 0x0
0505 e224 | $ | Load 0x1,0x24
0506 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0507 4800 |H | Short_Literal 0x0
0508 e224 | $ | Load 0x1,0x24
0509 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
050a 4808 |H | Short_Literal 0x8
050b e224 | $ | Load 0x1,0x24
050c 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
050d 4801 |H | Short_Literal 0x1
050e e5ff | | Load 0x2,-0x1
050f e224 | $ | Load 0x1,0x24
0510 e402 | | Load 0x2,0x2
0511 4803 |H | Short_Literal 0x3
0512 4802 |H | Short_Literal 0x2
0513 0099 | | Action Reference_Dynamic
0514 e004 | | Load 0x0,0x4
0515 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0516 4502 |E | Exit_Subprogram 0x2
0517 TRAP_04f8:
0517 e004 | | Load 0x0,0x4
0518 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0519 010f | | Execute Exception,Equal
051a 680a |h | Jump_Zero 0x525
051b 480b |H | Short_Literal 0xb
051c a227 | ' | Store_Unchecked 0x1,0x27
051d e00a | | Load 0x0,0xa
051e 180e | | Execute Package,Field_Execute,Field_Number 0xe
051f 4802 |H | Short_Literal 0x2
0520 0092 0959 | Y| Action Push_String_Extended,0x959 ; "address out of bounds"
0522 e00b | | Load 0x0,0xb
0523 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0524 4502 |E | Exit_Subprogram 0x2
0525 480c |H | Short_Literal 0xc
0526 a227 | ' | Store_Unchecked 0x1,0x27
0527 e00a | | Load 0x0,0xa
0528 180e | | Execute Package,Field_Execute,Field_Number 0xe
0529 4802 |H | Short_Literal 0x2
052a 4800 |H | Short_Literal 0x0
052b 4801 |H | Short_Literal 0x1
052c e00e | | Load 0x0,0xe
052d 1815 | | Execute Package,Field_Execute,Field_Number 0x15
052e e00b | | Load 0x0,0xb
052f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0530 4502 |E | Exit_Subprogram 0x2
0531 0000 0000 | | .BLANK 0000[0x7]
0538 ; --------------------------------------------------------------------------------------
0538 ; SUBPROGRAM
0538 ; --------------------------------------------------------------------------------------
0538 053b | ; | .CONST 0x053b ; Address of begin
0539 0004 | | .CONST 0x0004 ; Address of exception handler
053a 0001 | | .CONST 0x0001 ; Number of locals
053b BODY_0538:
053b INIT_0538:
053b 00da | | Load_Top At_Offset_2
053c 460f |F | Jump_Case 0xf
053d 7816 |x | Jump 0x554 ; case 0x0
053e 781c |x | Jump 0x55b ; case 0x1
053f 7822 |x" | Jump 0x562 ; case 0x2
0540 7828 |x( | Jump 0x569 ; case 0x3
0541 782e |x. | Jump 0x570 ; case 0x4
0542 7834 |x4 | Jump 0x577 ; case 0x5
0543 783a |x: | Jump 0x57e ; case 0x6
0544 7840 |x@ | Jump 0x585 ; case 0x7
0545 7846 |xF | Jump 0x58c ; case 0x8
0546 784c |xL | Jump 0x593 ; case 0x9
0547 7852 |xR | Jump 0x59a ; case 0xa
0548 7858 |xX | Jump 0x5a1 ; case 0xb
0549 785e |x^ | Jump 0x5a8 ; case 0xc
054a 7864 |xd | Jump 0x5af ; case 0xd
054b 786a |xj | Jump 0x5b6 ; case 0xe
054c 7800 |x | Jump 0x54d ; case 0xf
054d 00db | | Load_Top At_Offset_3
054e 0092 095a | Z| Action Push_String_Extended,0x95a ; "No disk"
0550 e001 | | Load 0x0,0x1
0551 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0552 00d1 | | Pop_Control Pop_Count_1
0553 4502 |E | Exit_Subprogram 0x2
0554 00db | | Load_Top At_Offset_3
0555 0092 095b | [| Action Push_String_Extended,0x95b ; "File operation successful"
0557 e001 | | Load 0x0,0x1
0558 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0559 00d1 | | Pop_Control Pop_Count_1
055a 4502 |E | Exit_Subprogram 0x2
055b 00db | | Load_Top At_Offset_3
055c 0092 095c | \| Action Push_String_Extended,0x95c ; "Bad filename"
055e e001 | | Load 0x0,0x1
055f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0560 00d1 | | Pop_Control Pop_Count_1
0561 4502 |E | Exit_Subprogram 0x2
0562 00db | | Load_Top At_Offset_3
0563 0092 095d | ]| Action Push_String_Extended,0x95d ; "File does not exist"
0565 e001 | | Load 0x0,0x1
0566 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0567 00d1 | | Pop_Control Pop_Count_1
0568 4502 |E | Exit_Subprogram 0x2
0569 00db | | Load_Top At_Offset_3
056a 0092 095e | ^| Action Push_String_Extended,0x95e ; "File is not open"
056c e001 | | Load 0x0,0x1
056d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
056e 00d1 | | Pop_Control Pop_Count_1
056f 4502 |E | Exit_Subprogram 0x2
0570 00db | | Load_Top At_Offset_3
0571 0092 095f | _| Action Push_String_Extended,0x95f ; "Disk is full"
0573 e001 | | Load 0x0,0x1
0574 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0575 00d1 | | Pop_Control Pop_Count_1
0576 4502 |E | Exit_Subprogram 0x2
0577 00db | | Load_Top At_Offset_3
0578 0092 0960 | `| Action Push_String_Extended,0x960 ; "Directory is full"
057a e001 | | Load 0x0,0x1
057b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
057c 00d1 | | Pop_Control Pop_Count_1
057d 4502 |E | Exit_Subprogram 0x2
057e 00db | | Load_Top At_Offset_3
057f 0092 0961 | a| Action Push_String_Extended,0x961 ; "File already exists"
0581 e001 | | Load 0x0,0x1
0582 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0583 00d1 | | Pop_Control Pop_Count_1
0584 4502 |E | Exit_Subprogram 0x2
0585 00db | | Load_Top At_Offset_3
0586 0092 0962 | b| Action Push_String_Extended,0x962 ; "Can't rename file"
0588 e001 | | Load 0x0,0x1
0589 1810 | | Execute Package,Field_Execute,Field_Number 0x10
058a 00d1 | | Pop_Control Pop_Count_1
058b 4502 |E | Exit_Subprogram 0x2
058c 00db | | Load_Top At_Offset_3
058d 0092 0963 | c| Action Push_String_Extended,0x963 ; "Can't delete file"
058f e001 | | Load 0x0,0x1
0590 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0591 00d1 | | Pop_Control Pop_Count_1
0592 4502 |E | Exit_Subprogram 0x2
0593 00db | | Load_Top At_Offset_3
0594 0092 0964 | d| Action Push_String_Extended,0x964 ; "Page error"
0596 e001 | | Load 0x0,0x1
0597 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0598 00d1 | | Pop_Control Pop_Count_1
0599 4502 |E | Exit_Subprogram 0x2
059a 00db | | Load_Top At_Offset_3
059b 0092 0965 | e| Action Push_String_Extended,0x965 ; "Slice error"
059d e001 | | Load 0x0,0x1
059e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
059f 00d1 | | Pop_Control Pop_Count_1
05a0 4502 |E | Exit_Subprogram 0x2
05a1 00db | | Load_Top At_Offset_3
05a2 0092 0966 | f| Action Push_String_Extended,0x966 ; "Bad address"
05a4 e001 | | Load 0x0,0x1
05a5 1810 | | Execute Package,Field_Execute,Field_Number 0x10
05a6 00d1 | | Pop_Control Pop_Count_1
05a7 4502 |E | Exit_Subprogram 0x2
05a8 00db | | Load_Top At_Offset_3
05a9 0092 0967 | g| Action Push_String_Extended,0x967 ; "Disk error"
05ab e001 | | Load 0x0,0x1
05ac 1810 | | Execute Package,Field_Execute,Field_Number 0x10
05ad 00d1 | | Pop_Control Pop_Count_1
05ae 4502 |E | Exit_Subprogram 0x2
05af 00db | | Load_Top At_Offset_3
05b0 0092 0968 | h| Action Push_String_Extended,0x968 ; "No labels on disk"
05b2 e001 | | Load 0x0,0x1
05b3 1810 | | Execute Package,Field_Execute,Field_Number 0x10
05b4 00d1 | | Pop_Control Pop_Count_1
05b5 4502 |E | Exit_Subprogram 0x2
05b6 00db | | Load_Top At_Offset_3
05b7 0092 0969 | i| Action Push_String_Extended,0x969 ; "No dos on disk"
05b9 e001 | | Load 0x0,0x1
05ba 1810 | | Execute Package,Field_Execute,Field_Number 0x10
05bb 00d1 | | Pop_Control Pop_Count_1
05bc 4502 |E | Exit_Subprogram 0x2
05bd 096a e001 | j | .XXX[0x5]
05bf 1810 00d1 | |
05c1 4502 |E |
05c2 0000 0000 | | .BLANK 0000[0x6]
05c8 ; --------------------------------------------------------------------------------------
05c8 ; SUBPROGRAM
05c8 ; --------------------------------------------------------------------------------------
05c8 05d3 | | .CONST 0x05d3 ; Address of begin
05c9 0004 | | .CONST 0x0004 ; Address of exception handler
05ca 0003 | | .CONST 0x0003 ; Number of locals
05cb INIT_05c8:
05cb 4850 |HP | Short_Literal 0x50
05cc e001 | | Load 0x0,0x1
05cd 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05ce 1c08 | | Execute_Immediate Run_Utility,0x8
05cf 00d8 | | Load_Top At_Offset_0
05d0 1c00 | | Execute_Immediate Run_Utility,0x0
05d1 029f 0903 | | Declare_Subprogram For_Call,INIT_0900
05d3 BODY_05c8:
05d3 e5ff | | Load 0x2,-0x1
05d4 4602 |F | Jump_Case 0x2
05d5 4503 |E | Exit_Subprogram 0x3 ; case 0x0
05d6 7803 |x | Jump 0x5da ; case 0x1
05d7 7800 |x | Jump 0x5d8 ; case 0x2
05d8 8403 | | Call 0x2,0x3
05d9 4503 |E | Exit_Subprogram 0x3
05da 00d9 | | Load_Top At_Offset_1
05db e5fd | | Load 0x2,-0x3
05dc 821a | | Call 0x1,0x1a
05dd 00d1 | | Pop_Control Pop_Count_1
05de 00d9 | | Load_Top At_Offset_1
05df e5fe | | Load 0x2,-0x2
05e0 e001 | | Load 0x0,0x1
05e1 1817 | | Execute Package,Field_Execute,Field_Number 0x17
05e2 00d1 | | Pop_Control Pop_Count_1
05e3 00d9 | | Load_Top At_Offset_1
05e4 e001 | | Load 0x0,0x1
05e5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05e6 e022 | " | Load 0x0,0x22
05e7 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
05e8 4503 |E | Exit_Subprogram 0x3
05e9 0000 0000 | | .BLANK 0000[0x7]
05f0 ; --------------------------------------------------------------------------------------
05f0 ; SUBPROGRAM
05f0 ; --------------------------------------------------------------------------------------
05f0 061b | | .CONST 0x061b ; Address of begin
05f1 0703 | | .CONST 0x0703 ; Address of exception handler
05f2 0012 | | .CONST 0x0012 ; Number of locals
05f3 INIT_05f0:
05f3 481e |H | Short_Literal 0x1e
05f4 e001 | | Load 0x0,0x1
05f5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05f6 1c08 | | Execute_Immediate Run_Utility,0x8
05f7 00d8 | | Load_Top At_Offset_0
05f8 1c00 | | Execute_Immediate Run_Utility,0x0
05f9 e002 | | Load 0x0,0x2
05fa 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
05fb 0322 | " | Declare_Variable Record
05fc 00e2 | | Load_Encached Integer_Cache
05fd 03e9 | | Declare_Variable Discrete,Duplicate
05fe 03e9 | | Declare_Variable Discrete,Duplicate
05ff 03e9 | | Declare_Variable Discrete,Duplicate
0600 03e9 | | Declare_Variable Discrete,Duplicate
0601 03e9 | | Declare_Variable Discrete,Duplicate
0602 00e1 | | Load_Encached Boolean_Cache
0603 00e3 | | Load_Encached Natural_Cache
0604 e007 | | Load 0x0,0x7
0605 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0606 4850 |HP | Short_Literal 0x50
0607 e001 | | Load 0x0,0x1
0608 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0609 1c08 | | Execute_Immediate Run_Utility,0x8
060a 00d8 | | Load_Top At_Offset_0
060b 1c00 | | Execute_Immediate Run_Utility,0x0
060c 4850 |HP | Short_Literal 0x50
060d e001 | | Load 0x0,0x1
060e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
060f 1c08 | | Execute_Immediate Run_Utility,0x8
0610 00d8 | | Load_Top At_Offset_0
0611 1c00 | | Execute_Immediate Run_Utility,0x0
0612 e004 | | Load 0x0,0x4
0613 1910 | | Execute Package,Field_Reference,Field_Number 0x10
0614 00c6 | | Action Check_Subprogram_Elaborated
0615 e002 | | Load 0x0,0x2
0616 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
0617 e023 | # | Load 0x0,0x23
0618 e024 | $ | Load 0x0,0x24
0619 4812 |H | Short_Literal 0x12
061a 0007 | | Action Break_Optional
061b BODY_05f0:
061b 8218 | | Call 0x1,0x18
061c 820f | | Call 0x1,0xf
061d a222 | " | Store_Unchecked 0x1,0x22
061e 4800 |H | Short_Literal 0x0
061f a405 | | Store_Unchecked 0x2,0x5
0620 4800 |H | Short_Literal 0x0
0621 a409 | | Store_Unchecked 0x2,0x9
0622 e40e | | Load 0x2,0xe
0623 e5ff | | Load 0x2,-0x1
0624 e001 | | Load 0x0,0x1
0625 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0626 00d1 | | Pop_Control Pop_Count_1
0627 00cf | | Action Mark_Auxiliary
0628 60f7 |` | Indirect_Literal Discrete,0x720,{0x00000000, 0x000007ff}
0629 4800 |H | Short_Literal 0x0
062a 0007 | | Action Break_Optional
062b 00d8 | | Load_Top At_Offset_0
062c 09f8 | | Execute_Immediate Binary_Scale,-0x8
062d e00f | | Load 0x0,0xf
062e 1b16 | | Execute Package,Field_Read,Field_Number 0x16
062f 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
0630 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0631 01d7 | | Execute Vector,Field_Read
0632 00d9 | | Load_Top At_Offset_1
0633 48ff |H | Short_Literal 0xff
0634 0279 | y | Execute Discrete,And
0635 0273 | s | Execute Discrete,Plus
0636 c408 | | Store 0x2,0x8
0637 e224 | $ | Load 0x1,0x24
0638 e408 | | Load 0x2,0x8
0639 8229 | ) | Call 0x1,0x29
063a 00d1 | | Pop_Control Pop_Count_1
063b e224 | $ | Load 0x1,0x24
063c e40f | | Load 0x2,0xf
063d 4810 |H | Short_Literal 0x10
063e 4802 |H | Short_Literal 0x2
063f 0099 | | Action Reference_Dynamic
0640 e004 | | Load 0x0,0x4
0641 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0642 e225 | % | Load 0x1,0x25
0643 01d4 | | Execute Vector,Structure_Write
0644 00cf | | Action Mark_Auxiliary
0645 480f |H | Short_Literal 0xf
0646 4800 |H | Short_Literal 0x0
0647 0007 | | Action Break_Optional
0648 00d8 | | Load_Top At_Offset_0
0649 e225 | % | Load 0x1,0x25
064a 01d5 | | Execute Vector,Field_Reference
064b e403 | | Load 0x2,0x3
064c 017d | } | Execute Record,Structure_Write
064d e403 | | Load 0x2,0x3
064e 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
064f 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0650 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0651 6802 |h | Jump_Zero 0x654
0652 00d2 | | Pop_Control Pop_Count_2
0653 788e |x | Jump 0x6e2
0654 e222 | " | Load 0x1,0x22
0655 0f01 | | Execute_Immediate Equal,0x1
0656 6827 |h' | Jump_Zero 0x67e
0657 00cf | | Action Mark_Auxiliary
0658 481e |H | Short_Literal 0x1e
0659 4801 |H | Short_Literal 0x1
065a 0007 | | Action Break_Optional
065b 00d8 | | Load_Top At_Offset_0
065c 4802 |H | Short_Literal 0x2
065d 026f | o | Execute Discrete,Remainder
065e 7008 |p | Jump_Nonzero 0x667
065f e40c | | Load 0x2,0xc
0660 00d9 | | Load_Top At_Offset_1
0661 e418 | | Load 0x2,0x18
0662 e225 | % | Load 0x1,0x25
0663 01d5 | | Execute Vector,Field_Reference
0664 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0665 01d6 | | Execute Vector,Field_Write
0666 7814 |x | Jump 0x67b
0667 00d8 | | Load_Top At_Offset_0
0668 e418 | | Load 0x2,0x18
0669 e225 | % | Load 0x1,0x25
066a 01d5 | | Execute Vector,Field_Reference
066b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
066c 01d7 | | Execute Vector,Field_Read
066d a40c | | Store_Unchecked 0x2,0xc
066e 00d8 | | Load_Top At_Offset_0
066f 0a01 | | Execute_Immediate Plus,0x1
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 01d7 | | Execute Vector,Field_Read
0675 00d9 | | Load_Top At_Offset_1
0676 e418 | | Load 0x2,0x18
0677 e225 | % | Load 0x1,0x25
0678 01d5 | | Execute Vector,Field_Reference
0679 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
067a 01d6 | | Execute Vector,Field_Write
067b 00c8 | | Action Pop_Auxiliary_Range
067c 3fde |? | Loop_Increasing 0x65b
067d 00ce | | Action Pop_Auxiliary
067e 00d8 | | Load_Top At_Offset_0
067f e225 | % | Load 0x1,0x25
0680 01d5 | | Execute Vector,Field_Reference
0681 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0682 e025 | % | Load 0x0,0x25
0683 180d | | Execute Package,Field_Execute,Field_Number 0xd
0684 e221 | ! | Load 0x1,0x21
0685 01d4 | | Execute Vector,Structure_Write
0686 481e |H | Short_Literal 0x1e
0687 a40b | | Store_Unchecked 0x2,0xb
0688 00cf | | Action Mark_Auxiliary
0689 4801 |H | Short_Literal 0x1
068a 481e |H | Short_Literal 0x1e
068b 0007 | | Action Break_Optional
068c 00d8 | | Load_Top At_Offset_0
068d e221 | ! | Load 0x1,0x21
068e 01d7 | | Execute Vector,Field_Read
068f 7007 |p | Jump_Nonzero 0x697
0690 4820 |H | Short_Literal 0x20
0691 00d9 | | Load_Top At_Offset_1
0692 e221 | ! | Load 0x1,0x21
0693 01d6 | | Execute Vector,Field_Write
0694 00d8 | | Load_Top At_Offset_0
0695 a40b | | Store_Unchecked 0x2,0xb
0696 7802 |x | Jump 0x699
0697 00d2 | | Pop_Control Pop_Count_2
0698 7802 |x | Jump 0x69b
0699 00c8 | | Action Pop_Auxiliary_Range
069a 37f1 |7 | Loop_Decreasing 0x68c
069b 00ce | | Action Pop_Auxiliary
069c e402 | | Load 0x2,0x2
069d e221 | ! | Load 0x1,0x21
069e e001 | | Load 0x0,0x1
069f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
06a0 00d1 | | Pop_Control Pop_Count_1
06a1 e402 | | Load 0x2,0x2
06a2 4820 |H | Short_Literal 0x20
06a3 e40b | | Load 0x2,0xb
06a4 0aff | | Execute_Immediate Plus,-0x1
06a5 00d8 | | Load_Top At_Offset_0
06a6 00e3 | | Load_Encached Natural_Cache
06a7 0260 | ` | Execute Discrete,In_Type
06a8 7001 |p | Jump_Nonzero 0x6aa
06a9 0801 | | Execute_Immediate Raise,0x1
06aa e001 | | Load 0x0,0x1
06ab 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
06ac 00d1 | | Pop_Control Pop_Count_1
06ad e40e | | Load 0x2,0xe
06ae e402 | | Load 0x2,0x2
06af e026 | & | Load 0x0,0x26
06b0 180f | | Execute Package,Field_Execute,Field_Number 0xf
06b1 682e |h. | Jump_Zero 0x6e0
06b2 4820 |H | Short_Literal 0x20
06b3 4805 |H | Short_Literal 0x5
06b4 480a |H | Short_Literal 0xa
06b5 e403 | | Load 0x2,0x3
06b6 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
06b7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
06b8 e006 | | Load 0x0,0x6
06b9 1816 | | Execute Package,Field_Execute,Field_Number 0x16
06ba e228 | ( | Load 0x1,0x28
06bb 01d4 | | Execute Vector,Structure_Write
06bc e409 | | Load 0x2,0x9
06bd e403 | | Load 0x2,0x3
06be 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
06bf 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
06c0 0273 | s | Execute Discrete,Plus
06c1 c409 | | Store 0x2,0x9
06c2 e405 | | Load 0x2,0x5
06c3 0a01 | | Execute_Immediate Plus,0x1
06c4 c405 | | Store 0x2,0x5
06c5 e40d | | Load 0x2,0xd
06c6 e403 | | Load 0x2,0x3
06c7 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
06c8 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
06c9 e027 | ' | Load 0x0,0x27
06ca 180d | | Execute Package,Field_Execute,Field_Number 0xd
06cb e001 | | Load 0x0,0x1
06cc 180f | | Execute Package,Field_Execute,Field_Number 0xf
06cd 00d1 | | Pop_Control Pop_Count_1
06ce 4809 |H | Short_Literal 0x9
06cf e221 | ! | Load 0x1,0x21
06d0 0092 096b | k| Action Push_String_Extended,0x96b ; " "
06d2 01cc | | Execute Vector,Catenate
06d3 e228 | ( | Load 0x1,0x28
06d4 01cc | | Execute Vector,Catenate
06d5 01cb | | Execute Vector,Append
06d6 e40d | | Load 0x2,0xd
06d7 e001 | | Load 0x0,0x1
06d8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
06d9 01cc | | Execute Vector,Catenate
06da e022 | " | Load 0x0,0x22
06db 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
06dc e5fe | | Load 0x2,-0x2
06dd 6802 |h | Jump_Zero 0x6e0
06de e403 | | Load 0x2,0x3
06df 822b | + | Call 0x1,0x2b
06e0 00c8 | | Action Pop_Auxiliary_Range
06e1 3f66 |?f | Loop_Increasing 0x648
06e2 00ce | | Action Pop_Auxiliary
06e3 00c8 | | Action Pop_Auxiliary_Range
06e4 3f46 |?F | Loop_Increasing 0x62b
06e5 00ce | | Action Pop_Auxiliary
06e6 e405 | | Load 0x2,0x5
06e7 0c02 | | Execute_Immediate Greater_Equal,0x2
06e8 6813 |h | Jump_Zero 0x6fc
06e9 0092 096c | l| Action Push_String_Extended,0x96c ; "Total of "
06eb e409 | | Load 0x2,0x9
06ec 00e0 | | Load_Encached Standard_Cache
06ed 1818 | | Execute Package,Field_Execute,Field_Number 0x18
06ee 01cc | | Execute Vector,Catenate
06ef 0092 096d | m| Action Push_String_Extended,0x96d ; " Pages in "
06f1 01cc | | Execute Vector,Catenate
06f2 e405 | | Load 0x2,0x5
06f3 00e0 | | Load_Encached Standard_Cache
06f4 1818 | | Execute Package,Field_Execute,Field_Number 0x18
06f5 01cc | | Execute Vector,Catenate
06f6 0092 096e | n| Action Push_String_Extended,0x96e ; " Files."
06f8 01cc | | Execute Vector,Catenate
06f9 e022 | " | Load 0x0,0x22
06fa 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
06fb 4503 |E | Exit_Subprogram 0x3
06fc e405 | | Load 0x2,0x5
06fd 7004 |p | Jump_Nonzero 0x702
06fe 0092 096f | o| Action Push_String_Extended,0x96f ; "No files found."
0700 e022 | " | Load 0x0,0x22
0701 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0702 4503 |E | Exit_Subprogram 0x3
0703 TRAP_05f0:
0703 e004 | | Load 0x0,0x4
0704 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0705 010f | | Execute Exception,Equal
0706 680a |h | Jump_Zero 0x711
0707 480b |H | Short_Literal 0xb
0708 a227 | ' | Store_Unchecked 0x1,0x27
0709 e00a | | Load 0x0,0xa
070a 180e | | Execute Package,Field_Execute,Field_Number 0xe
070b 4802 |H | Short_Literal 0x2
070c 0092 0959 | Y| Action Push_String_Extended,0x959 ; "address out of bounds"
070e e00b | | Load 0x0,0xb
070f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0710 4503 |E | Exit_Subprogram 0x3
0711 480c |H | Short_Literal 0xc
0712 a227 | ' | Store_Unchecked 0x1,0x27
0713 e00a | | Load 0x0,0xa
0714 180e | | Execute Package,Field_Execute,Field_Number 0xe
0715 4802 |H | Short_Literal 0x2
0716 4800 |H | Short_Literal 0x0
0717 4801 |H | Short_Literal 0x1
0718 e00e | | Load 0x0,0xe
0719 1815 | | Execute Package,Field_Execute,Field_Number 0x15
071a e00b | | Load 0x0,0xb
071b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
071c 4503 |E | Exit_Subprogram 0x3
071d 0000 0000 | | .XXX[0x3]
071f 0000 | |
0720 0000 0000 | | .LITERAL {0x00000000, 0x000007ff}
0724 0000 0000 | | .BLANK 0000[0x4]
0728 ; --------------------------------------------------------------------------------------
0728 ; SUBPROGRAM
0728 ; --------------------------------------------------------------------------------------
0728 072b | + | .CONST 0x072b ; Address of begin
0729 0004 | | .CONST 0x0004 ; Address of exception handler
072a 0001 | | .CONST 0x0001 ; Number of locals
072b BODY_0728:
072b INIT_0728:
072b 8218 | | Call 0x1,0x18
072c 4800 |H | Short_Literal 0x0
072d e5fe | | Load 0x2,-0x2
072e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
072f 4800 |H | Short_Literal 0x0
0730 e5fe | | Load 0x2,-0x2
0731 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0732 00db | | Load_Top At_Offset_3
0733 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0734 00db | | Load_Top At_Offset_3
0735 e001 | | Load 0x0,0x1
0736 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0737 00d1 | | Pop_Control Pop_Count_1
0738 820f | | Call 0x1,0xf
0739 a222 | " | Store_Unchecked 0x1,0x22
073a 4502 |E | Exit_Subprogram 0x2
073b 0000 0000 | | .BLANK 0000[0x5]
0740 ; --------------------------------------------------------------------------------------
0740 ; SUBPROGRAM
0740 ; --------------------------------------------------------------------------------------
0740 0762 | b | .CONST 0x0762 ; Address of begin
0741 081c | | .CONST 0x081c ; Address of exception handler
0742 000d | | .CONST 0x000d ; Number of locals
0743 INIT_0740:
0743 00ea | | Load_Encached Null_String_Cache
0744 481e |H | Short_Literal 0x1e
0745 e001 | | Load 0x0,0x1
0746 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0747 1c08 | | Execute_Immediate Run_Utility,0x8
0748 00d8 | | Load_Top At_Offset_0
0749 1c00 | | Execute_Immediate Run_Utility,0x0
074a 4801 |H | Short_Literal 0x1
074b 481e |H | Short_Literal 0x1e
074c 00e9 | | Load_Encached String_Cache
074d 035b | [ | Declare_Type Array,Constrained
074e 0337 | 7 | Declare_Variable Array
074f e002 | | Load 0x0,0x2
0750 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0751 0322 | " | Declare_Variable Record
0752 00e3 | | Load_Encached Natural_Cache
0753 e004 | | Load 0x0,0x4
0754 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0755 0322 | " | Declare_Variable Record
0756 00e2 | | Load_Encached Integer_Cache
0757 e007 | | Load 0x0,0x7
0758 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0759 e004 | | Load 0x0,0x4
075a 1910 | | Execute Package,Field_Reference,Field_Number 0x10
075b 00c6 | | Action Check_Subprogram_Elaborated
075c e002 | | Load 0x0,0x2
075d 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
075e e028 | ( | Load 0x0,0x28
075f e029 | ) | Load 0x0,0x29
0760 480d |H | Short_Literal 0xd
0761 0007 | | Action Break_Optional
0762 BODY_0740:
0762 e5ff | | Load 0x2,-0x1
0763 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0764 e026 | & | Load 0x0,0x26
0765 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0766 7011 |p | Jump_Nonzero 0x778
0767 e5ff | | Load 0x2,-0x1
0768 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0769 700a |p | Jump_Nonzero 0x774
076a e5fe | | Load 0x2,-0x2
076b e5ff | | Load 0x2,-0x1
076c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
076d e001 | | Load 0x0,0x1
076e 180f | | Execute Package,Field_Execute,Field_Number 0xf
076f 00d1 | | Pop_Control Pop_Count_1
0770 4801 |H | Short_Literal 0x1
0771 e5ff | | Load 0x2,-0x1
0772 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0773 4501 |E | Exit_Subprogram 0x1
0774 4fff |O | Short_Literal 0x7ff
0775 e5ff | | Load 0x2,-0x1
0776 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0777 4501 |E | Exit_Subprogram 0x1
0778 00cf | | Action Mark_Auxiliary
0779 e5ff | | Load 0x2,-0x1
077a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
077b 701b |p | Jump_Nonzero 0x797
077c e5ff | | Load 0x2,-0x1
077d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
077e 09f8 | | Execute_Immediate Binary_Scale,-0x8
077f e00f | | Load 0x0,0xf
0780 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0781 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
0782 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0783 01d7 | | Execute Vector,Field_Read
0784 e5ff | | Load 0x2,-0x1
0785 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0786 48ff |H | Short_Literal 0xff
0787 0279 | y | Execute Discrete,And
0788 0273 | s | Execute Discrete,Plus
0789 c408 | | Store 0x2,0x8
078a e407 | | Load 0x2,0x7
078b e408 | | Load 0x2,0x8
078c 8229 | ) | Call 0x1,0x29
078d 00d1 | | Pop_Control Pop_Count_1
078e e407 | | Load 0x2,0x7
078f e40a | | Load 0x2,0xa
0790 480b |H | Short_Literal 0xb
0791 4802 |H | Short_Literal 0x2
0792 0099 | | Action Reference_Dynamic
0793 e004 | | Load 0x0,0x4
0794 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0795 e5ff | | Load 0x2,-0x1
0796 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0797 e5ff | | Load 0x2,-0x1
0798 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0799 e5ff | | Load 0x2,-0x1
079a 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
079b 01d5 | | Execute Vector,Field_Reference
079c e405 | | Load 0x2,0x5
079d 017d | } | Execute Record,Structure_Write
079e e5ff | | Load 0x2,-0x1
079f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
07a0 0a01 | | Execute_Immediate Plus,0x1
07a1 480f |H | Short_Literal 0xf
07a2 026e | n | Execute Discrete,Modulo
07a3 e5ff | | Load 0x2,-0x1
07a4 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
07a5 e405 | | Load 0x2,0x5
07a6 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
07a7 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
07a8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
07a9 6816 |h | Jump_Zero 0x7c0
07aa 4800 |H | Short_Literal 0x0
07ab e5ff | | Load 0x2,-0x1
07ac 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
07ad e5ff | | Load 0x2,-0x1
07ae 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
07af 6088 |` | Indirect_Literal Discrete,0x838,{0x00000000, 0x000007ff}
07b0 027c | | | Execute Discrete,Less
07b1 6806 |h | Jump_Zero 0x7b8
07b2 e5ff | | Load 0x2,-0x1
07b3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
07b4 0a01 | | Execute_Immediate Plus,0x1
07b5 e5ff | | Load 0x2,-0x1
07b6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
07b7 7862 |xb | Jump 0x81a
07b8 4fff |O | Short_Literal 0x7ff
07b9 e5ff | | Load 0x2,-0x1
07ba 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
07bb e5fe | | Load 0x2,-0x2
07bc e402 | | Load 0x2,0x2
07bd e001 | | Load 0x0,0x1
07be 1810 | | Execute Package,Field_Execute,Field_Number 0x10
07bf 4501 |E | Exit_Subprogram 0x1
07c0 e222 | " | Load 0x1,0x22
07c1 0f01 | | Execute_Immediate Equal,0x1
07c2 681f |h | Jump_Zero 0x7e2
07c3 00cf | | Action Mark_Auxiliary
07c4 481e |H | Short_Literal 0x1e
07c5 4801 |H | Short_Literal 0x1
07c6 0007 | | Action Break_Optional
07c7 00d8 | | Load_Top At_Offset_0
07c8 4802 |H | Short_Literal 0x2
07c9 026f | o | Execute Discrete,Remainder
07ca 7006 |p | Jump_Nonzero 0x7d1
07cb e409 | | Load 0x2,0x9
07cc 00d9 | | Load_Top At_Offset_1
07cd e405 | | Load 0x2,0x5
07ce 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
07cf 01d6 | | Execute Vector,Field_Write
07d0 780e |x | Jump 0x7df
07d1 00d8 | | Load_Top At_Offset_0
07d2 e405 | | Load 0x2,0x5
07d3 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
07d4 01d7 | | Execute Vector,Field_Read
07d5 a409 | | Store_Unchecked 0x2,0x9
07d6 00d8 | | Load_Top At_Offset_0
07d7 0a01 | | Execute_Immediate Plus,0x1
07d8 e405 | | Load 0x2,0x5
07d9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
07da 01d7 | | Execute Vector,Field_Read
07db 00d9 | | Load_Top At_Offset_1
07dc e405 | | Load 0x2,0x5
07dd 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
07de 01d6 | | Execute Vector,Field_Write
07df 00c8 | | Action Pop_Auxiliary_Range
07e0 3fe6 |? | Loop_Increasing 0x7c7
07e1 00ce | | Action Pop_Auxiliary
07e2 e405 | | Load 0x2,0x5
07e3 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
07e4 e025 | % | Load 0x0,0x25
07e5 180d | | Execute Package,Field_Execute,Field_Number 0xd
07e6 e404 | | Load 0x2,0x4
07e7 01d4 | | Execute Vector,Structure_Write
07e8 481f |H | Short_Literal 0x1f
07e9 a406 | | Store_Unchecked 0x2,0x6
07ea 00cf | | Action Mark_Auxiliary
07eb 4801 |H | Short_Literal 0x1
07ec 481e |H | Short_Literal 0x1e
07ed 0007 | | Action Break_Optional
07ee 00d8 | | Load_Top At_Offset_0
07ef e404 | | Load 0x2,0x4
07f0 01d7 | | Execute Vector,Field_Read
07f1 7007 |p | Jump_Nonzero 0x7f9
07f2 4820 |H | Short_Literal 0x20
07f3 00d9 | | Load_Top At_Offset_1
07f4 e404 | | Load 0x2,0x4
07f5 01d6 | | Execute Vector,Field_Write
07f6 00d8 | | Load_Top At_Offset_0
07f7 a406 | | Store_Unchecked 0x2,0x6
07f8 7802 |x | Jump 0x7fb
07f9 00d2 | | Pop_Control Pop_Count_2
07fa 7802 |x | Jump 0x7fd
07fb 00c8 | | Action Pop_Auxiliary_Range
07fc 37f1 |7 | Loop_Decreasing 0x7ee
07fd 00ce | | Action Pop_Auxiliary
07fe e403 | | Load 0x2,0x3
07ff e404 | | Load 0x2,0x4
0800 e001 | | Load 0x0,0x1
0801 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0802 00d1 | | Pop_Control Pop_Count_1
0803 e403 | | Load 0x2,0x3
0804 4820 |H | Short_Literal 0x20
0805 e406 | | Load 0x2,0x6
0806 0aff | | Execute_Immediate Plus,-0x1
0807 00d8 | | Load_Top At_Offset_0
0808 00e3 | | Load_Encached Natural_Cache
0809 0260 | ` | Execute Discrete,In_Type
080a 7001 |p | Jump_Nonzero 0x80c
080b 0801 | | Execute_Immediate Raise,0x1
080c e001 | | Load 0x0,0x1
080d 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
080e 00d1 | | Pop_Control Pop_Count_1
080f e5ff | | Load 0x2,-0x1
0810 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0811 e403 | | Load 0x2,0x3
0812 e026 | & | Load 0x0,0x26
0813 180f | | Execute Package,Field_Execute,Field_Number 0xf
0814 6805 |h | Jump_Zero 0x81a
0815 e5fe | | Load 0x2,-0x2
0816 e403 | | Load 0x2,0x3
0817 e001 | | Load 0x0,0x1
0818 180f | | Execute Package,Field_Execute,Field_Number 0xf
0819 4501 |E | Exit_Subprogram 0x1
081a 00c9 | | Action Pop_Auxiliary_Loop
081b 7f5d | ] | Jump 0x779
081c TRAP_0740:
081c e004 | | Load 0x0,0x4
081d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
081e 010f | | Execute Exception,Equal
081f 680a |h | Jump_Zero 0x82a
0820 480b |H | Short_Literal 0xb
0821 a227 | ' | Store_Unchecked 0x1,0x27
0822 e00a | | Load 0x0,0xa
0823 180e | | Execute Package,Field_Execute,Field_Number 0xe
0824 4802 |H | Short_Literal 0x2
0825 0092 0959 | Y| Action Push_String_Extended,0x959 ; "address out of bounds"
0827 e00b | | Load 0x0,0xb
0828 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0829 4501 |E | Exit_Subprogram 0x1
082a 480c |H | Short_Literal 0xc
082b a227 | ' | Store_Unchecked 0x1,0x27
082c e00a | | Load 0x0,0xa
082d 180e | | Execute Package,Field_Execute,Field_Number 0xe
082e 4802 |H | Short_Literal 0x2
082f 4800 |H | Short_Literal 0x0
0830 4801 |H | Short_Literal 0x1
0831 e00e | | Load 0x0,0xe
0832 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0833 e00b | | Load 0x0,0xb
0834 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0835 4501 |E | Exit_Subprogram 0x1
0836 0000 0000 | | .XXX[0x2]
0838 0000 0000 | | .LITERAL {0x00000000, 0x000007ff}
083c 0000 0000 | | .BLANK 0000[0x4]
0840 ; --------------------------------------------------------------------------------------
0840 ; SUBPROGRAM
0840 ; --------------------------------------------------------------------------------------
0840 0843 | C | .CONST 0x0843 ; Address of begin
0841 0004 | | .CONST 0x0004 ; Address of exception handler
0842 0001 | | .CONST 0x0001 ; Number of locals
0843 BODY_0840:
0843 INIT_0840:
0843 00da | | Load_Top At_Offset_2
0844 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0845 4fff |O | Short_Literal 0x7ff
0846 027f | | Execute Discrete,Equal
0847 6802 |h | Jump_Zero 0x84a
0848 4801 |H | Short_Literal 0x1
0849 4401 |D | Exit_Subprogram With_Result,0x1
084a 4800 |H | Short_Literal 0x0
084b 4401 |D | Exit_Subprogram With_Result,0x1
084c 0000 0000 | | .BLANK 0000[0x4]
0850 ; --------------------------------------------------------------------------------------
0850 ; SUBPROGRAM
0850 ; --------------------------------------------------------------------------------------
0850 0854 | T | .CONST 0x0854 ; Address of begin
0851 0004 | | .CONST 0x0004 ; Address of exception handler
0852 0002 | | .CONST 0x0002 ; Number of locals
0853 INIT_0850:
0853 00e2 | | Load_Encached Integer_Cache
0854 BODY_0850:
0854 00db | | Load_Top At_Offset_3
0855 e00f | | Load 0x0,0xf
0856 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0857 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0858 0270 | p | Execute Discrete,Divide
0859 00d8 | | Load_Top At_Offset_0
085a e02a | * | Load 0x0,0x2a
085b 1b14 | | Execute Package,Field_Read,Field_Number 0x14
085c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
085d 0260 | ` | Execute Discrete,In_Type
085e 7001 |p | Jump_Nonzero 0x860
085f 0801 | | Execute_Immediate Raise,0x1
0860 e5fe | | Load 0x2,-0x2
0861 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0862 00db | | Load_Top At_Offset_3
0863 e00f | | Load 0x0,0xf
0864 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0865 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0866 026f | o | Execute Discrete,Remainder
0867 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0868 00d8 | | Load_Top At_Offset_0
0869 e00f | | Load 0x0,0xf
086a 1b16 | | Execute Package,Field_Read,Field_Number 0x16
086b 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
086c 0270 | p | Execute Discrete,Divide
086d 00d8 | | Load_Top At_Offset_0
086e e02a | * | Load 0x0,0x2a
086f 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0870 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0871 0260 | ` | Execute Discrete,In_Type
0872 7001 |p | Jump_Nonzero 0x874
0873 0801 | | Execute_Immediate Raise,0x1
0874 e5fe | | Load 0x2,-0x2
0875 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0876 00d8 | | Load_Top At_Offset_0
0877 e00f | | Load 0x0,0xf
0878 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0879 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
087a 026f | o | Execute Discrete,Remainder
087b 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
087c 00d8 | | Load_Top At_Offset_0
087d 0901 | | Execute_Immediate Binary_Scale,0x1
087e 00d8 | | Load_Top At_Offset_0
087f e02a | * | Load 0x0,0x2a
0880 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0881 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0882 0260 | ` | Execute Discrete,In_Type
0883 7001 |p | Jump_Nonzero 0x885
0884 0801 | | Execute_Immediate Raise,0x1
0885 e5fe | | Load 0x2,-0x2
0886 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0887 4502 |E | Exit_Subprogram 0x2
0888 ; --------------------------------------------------------------------------------------
0888 ; SUBPROGRAM
0888 ; --------------------------------------------------------------------------------------
0888 088f | | .CONST 0x088f ; Address of begin
0889 0004 | | .CONST 0x0004 ; Address of exception handler
088a 0004 | | .CONST 0x0004 ; Number of locals
088b INIT_0888:
088b e002 | | Load 0x0,0x2
088c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
088d 00e2 | | Load_Encached Integer_Cache
088e 00e2 | | Load_Encached Integer_Cache
088f BODY_0888:
088f 4800 |H | Short_Literal 0x0
0890 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0891 4800 |H | Short_Literal 0x0
0892 0053 | S | Store_Top_Unchecked Discrete,At_Offset_3
0893 00cf | | Action Mark_Auxiliary
0894 780b |x | Jump 0x8a0
0895 00da | | Load_Top At_Offset_2
0896 e5ff | | Load 0x2,-0x1
0897 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0898 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0899 01d5 | | Execute Vector,Field_Reference
089a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
089b a402 | | Store_Unchecked 0x2,0x2
089c 00da | | Load_Top At_Offset_2
089d 0a01 | | Execute_Immediate Plus,0x1
089e 005b | [ | Store_Top Discrete,At_Offset_3
089f 00c9 | | Action Pop_Auxiliary_Loop
08a0 00da | | Load_Top At_Offset_2
08a1 e5ff | | Load 0x2,-0x1
08a2 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
08a3 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
08a4 01d5 | | Execute Vector,Field_Reference
08a5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
08a6 e5fe | | Load 0x2,-0x2
08a7 027a | z | Execute Discrete,Less_Equal
08a8 77ec |w | Jump_Nonzero 0x895
08a9 00ce | | Action Pop_Auxiliary
08aa 00d9 | | Load_Top At_Offset_1
08ab e5ff | | Load 0x2,-0x1
08ac 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
08ad 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
08ae 01d5 | | Execute Vector,Field_Reference
08af 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
08b0 e5fe | | Load 0x2,-0x2
08b1 e402 | | Load 0x2,0x2
08b2 0272 | r | Execute Discrete,Minus
08b3 0273 | s | Execute Discrete,Plus
08b4 00d8 | | Load_Top At_Offset_0
08b5 00e2 | | Load_Encached Integer_Cache
08b6 0260 | ` | Execute Discrete,In_Type
08b7 7001 |p | Jump_Nonzero 0x8b9
08b8 0801 | | Execute_Immediate Raise,0x1
08b9 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
08ba e224 | $ | Load 0x1,0x24
08bb 00d9 | | Load_Top At_Offset_1
08bc 8229 | ) | Call 0x1,0x29
08bd 4503 |E | Exit_Subprogram 0x3
08be 0000 0000 | | .XXX[0x2]
08c0 ; --------------------------------------------------------------------------------------
08c0 ; SUBPROGRAM
08c0 ; --------------------------------------------------------------------------------------
08c0 08c6 | | .CONST 0x08c6 ; Address of begin
08c1 0004 | | .CONST 0x0004 ; Address of exception handler
08c2 0003 | | .CONST 0x0003 ; Number of locals
08c3 INIT_08c0:
08c3 00e2 | | Load_Encached Integer_Cache
08c4 029f 090b | | Declare_Subprogram For_Call,INIT_0908
08c6 BODY_08c0:
08c6 0092 0970 | p| Action Push_String_Extended,0x970 ; " PERMANENT => "
08c8 e5ff | | Load 0x2,-0x1
08c9 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
08ca 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
08cb 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
08cc 00e1 | | Load_Encached Boolean_Cache
08cd 011c | | Execute Any,Convert_Unchecked
08ce 1c01 | | Execute_Immediate Run_Utility,0x1
08cf 01cc | | Execute Vector,Catenate
08d0 0092 0971 | q| Action Push_String_Extended,0x971 ; ", EXECUTABLE => "
08d2 01cc | | Execute Vector,Catenate
08d3 e5ff | | Load 0x2,-0x1
08d4 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
08d5 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
08d6 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
08d7 00e1 | | Load_Encached Boolean_Cache
08d8 011c | | Execute Any,Convert_Unchecked
08d9 1c01 | | Execute_Immediate Run_Utility,0x1
08da 01cc | | Execute Vector,Catenate
08db 0092 0972 | r| Action Push_String_Extended,0x972 ; ", KERNEL => "
08dd 01cc | | Execute Vector,Catenate
08de e5ff | | Load 0x2,-0x1
08df 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
08e0 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
08e1 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
08e2 00e1 | | Load_Encached Boolean_Cache
08e3 011c | | Execute Any,Convert_Unchecked
08e4 1c01 | | Execute_Immediate Run_Utility,0x1
08e5 01cc | | Execute Vector,Catenate
08e6 e022 | " | Load 0x0,0x22
08e7 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
08e8 4800 |H | Short_Literal 0x0
08e9 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
08ea 00cf | | Action Mark_Auxiliary
08eb 4805 |H | Short_Literal 0x5
08ec 4800 |H | Short_Literal 0x0
08ed 0007 | | Action Break_Optional
08ee 00d8 | | Load_Top At_Offset_0
08ef e5ff | | Load 0x2,-0x1
08f0 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
08f1 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
08f2 01d5 | | Execute Vector,Field_Reference
08f3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
08f4 e402 | | Load 0x2,0x2
08f5 027b | { | Execute Discrete,Greater_Equal
08f6 6801 |h | Jump_Zero 0x8f8
08f7 8403 | | Call 0x2,0x3
08f8 00c8 | | Action Pop_Auxiliary_Range
08f9 3ff4 |? | Loop_Increasing 0x8ee
08fa 4502 |E | Exit_Subprogram 0x2
08fb 0000 0000 | | .BLANK 0000[0x5]
0900 ; --------------------------------------------------------------------------------------
0900 ; SUBPROGRAM
0900 ; --------------------------------------------------------------------------------------
0900 0903 | | .CONST 0x0903 ; Address of begin
0901 0004 | | .CONST 0x0004 ; Address of exception handler
0902 0001 | | .CONST 0x0001 ; Number of locals
0903 BODY_0900:
0903 INIT_0900:
0903 08e2 | | Execute_Immediate Raise,0xe2
0904 0000 0000 | | .BLANK 0000[0x4]
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 0092 0973 | s| Action Push_String_Extended,0x973 ; " File pages "
090d e402 | | Load 0x2,0x2
090e 0a01 | | Execute_Immediate Plus,0x1
090f 00d8 | | Load_Top At_Offset_0
0910 00e2 | | Load_Encached Integer_Cache
0911 0260 | ` | Execute Discrete,In_Type
0912 7001 |p | Jump_Nonzero 0x914
0913 0801 | | Execute_Immediate Raise,0x1
0914 00e0 | | Load_Encached Standard_Cache
0915 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0916 01cc | | Execute Vector,Catenate
0917 0092 0974 | t| Action Push_String_Extended,0x974 ; " .. "
0919 01cc | | Execute Vector,Catenate
091a e406 | | Load 0x2,0x6
091b e5ff | | Load 0x2,-0x1
091c 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
091d 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
091e 01d5 | | Execute Vector,Field_Reference
091f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0920 0a01 | | Execute_Immediate Plus,0x1
0921 00d8 | | Load_Top At_Offset_0
0922 00e2 | | Load_Encached Integer_Cache
0923 0260 | ` | Execute Discrete,In_Type
0924 7001 |p | Jump_Nonzero 0x926
0925 0801 | | Execute_Immediate Raise,0x1
0926 00e0 | | Load_Encached Standard_Cache
0927 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0928 01cc | | Execute Vector,Catenate
0929 0092 0975 | u| Action Push_String_Extended,0x975 ; " are at disk block "
092b 01cc | | Execute Vector,Catenate
092c e406 | | Load 0x2,0x6
092d e5ff | | Load 0x2,-0x1
092e 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
092f 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0930 01d5 | | Execute Vector,Field_Reference
0931 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0932 00e0 | | Load_Encached Standard_Cache
0933 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0934 01cc | | Execute Vector,Catenate
0935 e022 | " | Load 0x0,0x22
0936 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0937 e406 | | Load 0x2,0x6
0938 e5ff | | Load 0x2,-0x1
0939 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
093a 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
093b 01d5 | | Execute Vector,Field_Reference
093c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
093d 0a01 | | Execute_Immediate Plus,0x1
093e c402 | | Store 0x2,0x2
093f 4501 |E | Exit_Subprogram 0x1
0940 ; --------------------------------------------------------------------------------------
0940 ; SUBPROGRAM
0940 ; --------------------------------------------------------------------------------------
0940 0943 | C | .CONST 0x0943 ; Address of begin
0941 0004 | | .CONST 0x0004 ; Address of exception handler
0942 0001 | | .CONST 0x0001 ; Number of locals
0943 BODY_0940:
0943 INIT_0940:
0943 4608 |F | Jump_Case 0x8
0944 7808 |x | Jump 0x94d ; case 0x0
0945 780e |x | Jump 0x954 ; case 0x1
0946 7811 |x | Jump 0x958 ; case 0x2
0947 7810 |x | Jump 0x958 ; case 0x3
0948 780f |x | Jump 0x958 ; case 0x4
0949 780e |x | Jump 0x958 ; case 0x5
094a 780d |x | Jump 0x958 ; case 0x6
094b 780c |x | Jump 0x958 ; case 0x7
094c 780b |x | Jump 0x958 ; case 0x8
094d 00da | | Load_Top At_Offset_2
094e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
094f 0125 | % | Execute Any,Set_Constraint
0950 00da | | Load_Top At_Offset_2
0951 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0952 1c00 | | Execute_Immediate Run_Utility,0x0
0953 4302 |C | Exit_Subprogram From_Utility,0x2
0954 00da | | Load_Top At_Offset_2
0955 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0956 0125 | % | Execute Any,Set_Constraint
0957 4302 |C | Exit_Subprogram From_Utility,0x2
0958 0869 | i | Execute_Immediate Raise,0x69
0959 ; --------------------------------------------------------------------------------------
0959 ; STRING TABLE
0959 ; --------------------------------------------------------------------------------------
0959 003c | < | .STRTAB 0x003c->0x0977 ; "address out of bounds"
; "address out of bounds"
; "address out of bounds"
; "address out of bounds"
; "address out of bounds"
; "address out of bounds"
; "address out of bounds"
; "address out of bounds"
; "address out of bounds"
; "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 0010 | | .DEBUG4 0x0004,0x0010,0x8b48,0x0000,0x0001,0x0000
0a4e 0d04 e0c0 | | .XXX[0x1b2]
0a50 c0c0 c0c0 | |
0a52 c0c0 d0c0 | |
0a54 c0c5 04d8 | |
0a56 dcc1 04c9 | |
0a58 18c0 e118 | |
0a5a d429 4ccc | )L |
0a5c c4c5 14c0 | |
0a5e c0c1 1509 | |
0a60 0cc0 d115 | |
0a62 08e5 14c0 | |
0a64 c0c1 1510 | |
0a66 c0d8 d8c0 | |
0a68 c104 c918 | |
0a6a c914 c0c0 | |
0a6c c0e1 0904 | |
0a6e 294c ccc4 |)L |
0a70 c514 c0c0 | |
0a72 c115 090d | |
0a74 0cd1 1508 | |
0a76 e514 c0c0 | |
0a78 c115 18e5 | |
0a7a 04d4 e0d1 | |
0a7c 18d1 14d5 | |
0a7e 14d1 14dc | |
0a80 d510 c429 | )|
0a82 4ccc c4c5 |L |
0a84 14c0 c0c1 | |
0a86 1509 10e0 | |
0a88 d114 d4d8 | |
0a8a c0c0 c0c0 | |
0a8c c8c0 d914 | |
0a8e c0c0 c0e0 | |
0a90 c10d 04e0 | |
0a92 c0c0 c0c0 | |
0a94 d510 294c | )L|
0a96 ccc4 c514 | |
0a98 c0c0 c115 | |
0a9a 0914 d0c0 | |
0a9c c0c0 d0c0 | |
0a9e c0c5 04d8 | |
0aa0 dcc1 14c9 | |
0aa2 18c9 14c0 | |
0aa4 c0c1 0cc9 | |
0aa6 18c0 e0c1 | |
0aa8 0c29 4ccc | )L |
0aaa c4c5 14c0 | |
0aac c0c1 1509 | |
0aae 18c0 d115 | |
0ab0 08e5 14c0 | |
0ab2 c0c1 1515 | |
0ab4 10c0 d8c0 | |
0ab6 c114 c918 | |
0ab8 c914 c0c0 | |
0aba c10d 08dc | |
0abc 294c ccc4 |)L |
0abe c514 c0c0 | |
0ac0 c115 0919 | |
0ac2 0cc9 18c9 | |
0ac4 14c0 c0c0 | |
0ac6 e0d1 1508 | |
0ac8 e514 c0c0 | |
0aca c118 c4e0 | |
0acc c8d4 c0d1 | |
0ace 190c e429 | )|
0ad0 4ccc c4c5 |L |
0ad2 14c0 c0c1 | |
0ad4 150c c0e0 | |
0ad6 d114 d514 | |
0ad8 d114 dcd4 | |
0ada d114 d4d9 | |
0adc 1919 190c | |
0ade c918 c914 | |
0ae0 c0c0 c0e1 | |
0ae2 04dc 294c | )L|
0ae4 ccc4 c514 | |
0ae6 c0c0 c115 | |
0ae8 0cc4 d0d1 | |
0aea 1508 e514 | |
0aec c0c0 c111 | |
0aee 10c8 c0d4 | |
0af0 e0d1 18c9 | |
0af2 10d0 c119 | |
0af4 1919 0cc5 | |
0af6 0829 4ccc | )L |
0af8 c4c5 14c0 | |
0afa c0c1 150c | |
0afc c8c0 d8d8 | |
0afe c0d8 dcc1 | |
0b00 1918 d8c0 | |
0b02 c0c0 c0c1 | |
0b04 110c c8c0 | |
0b06 d914 c0c0 | |
0b08 c10c d4c4 | |
0b0a 294c ccc4 |)L |
0b0c c514 c0c0 | |
0b0e c115 0cc9 | |
0b10 0ccc c109 | |
0b12 0cc0 c0c0 | |
0b14 c4c8 c0d9 | |
0b16 14c0 c0c1 | |
0b18 0cc8 c4d9 | |
0b1a 1519 1919 | |
0b1c 0d14 d429 | )|
0b1e 4ccc c4c5 |L |
0b20 14c0 c0c1 | |
0b22 150c cce0 | |
0b24 c0c0 c0c8 | |
0b26 c8c0 d914 | |
0b28 c0c0 c10c | |
0b2a c8c4 d915 | |
0b2c 1919 190c | |
0b2e c0c0 c0d9 | |
0b30 0914 294c | )L|
0b32 ccc4 c514 | |
0b34 c0c0 c115 | |
0b36 0cd0 d0c8 | |
0b38 c0d9 14c0 | |
0b3a c0c1 0cc8 | |
0b3c c4d9 14c0 | |
0b3e c0c0 e0c0 | |
0b40 c0c1 04c9 | |
0b42 18c9 14d0 | |
0b44 d829 4ccc | )L |
0b46 c4c5 14c0 | |
0b48 c0c1 150c | |
0b4a d4c0 c0c0 | |
0b4c c10c d0e0 | |
0b4e dce5 14c0 | |
0b50 c0c4 c0cc | |
0b52 c0e0 d0e0 | |
0b54 dce0 c0c0 | |
0b56 c8c0 cce4 | |
0b58 294c ccc4 |)L |
0b5a c514 c0c0 | |
0b5c c115 0cd5 | |
0b5e 0cd0 e0dc | |
0b60 e0c0 c0c4 | |
0b62 c0d1 1508 | |
0b64 e514 c0c0 | |
0b66 c119 150c | |
0b68 d8d1 1915 | |
0b6a 18c1 1029 | )|
0b6c 4ccc c4c5 |L |
0b6e 14c0 c0c1 | |
0b70 150c d8e0 | |
0b72 c0c0 c4c0 | |
0b74 c918 c914 | |
0b76 c0c0 c10c | |
0b78 d0e0 dce5 | |
0b7a 14c0 c0c4 | |
0b7c c0cc c0e0 | |
0b7e e4d0 294c | )L|
0b80 ccc4 c514 | |
0b82 c0c0 c115 | |
0b84 0cdc d0c9 | |
0b86 18c9 14c0 | |
0b88 c0c4 c0d1 | |
0b8a 1508 e514 | |
0b8c c0c0 c119 | |
0b8e 1904 d0d1 | |
0b90 1915 18dc | |
0b92 e429 4ccc | )L |
0b94 c4c5 14c0 | |
0b96 c0c1 150c | |
0b98 e0c0 c0c0 | |
0b9a c10c c918 | |
0b9c c914 c0c0 | |
0b9e c10c d0e0 | |
0ba0 dce5 14c0 | |
0ba2 c0c4 c0cc | |
0ba4 c0e0 e0c0 | |
0ba6 294c ccc4 |)L |
0ba8 c514 c0c0 | |
0baa c115 0ce1 | |
0bac 0cc9 18c9 | |
0bae 14c0 c0c4 | |
0bb0 d0d0 c904 | |
0bb2 dcd0 e0dc | |
0bb4 e0c0 c0c0 | |
0bb6 c8d1 1508 | |
0bb8 e4dc cc29 | )|
0bba 4ccc c4c5 |L |
0bbc 14c0 c0c1 | |
0bbe 150c e4e1 | |
0bc0 14c0 c0c4 | |
0bc2 c0c0 d4c0 | |
0bc4 d119 1518 | |
0bc6 c0c0 c4d0 | |
0bc8 c918 c914 | |
0bca c0c0 c10c | |
0bcc e514 294c | )L|
0bce ccc4 c514 | |
0bd0 c0c0 c115 | |
0bd2 0d04 d0d0 | |
0bd4 e0dc e514 | |
0bd6 c0c0 c4c0 | |
0bd8 ccc0 e0c8 | |
0bda c0d9 14c0 | |
0bdc c0c4 e0c8 | |
0bde c0c8 e114 | |
0be0 cc29 4ccc | )L |
0be2 c4c5 14c0 | |
0be4 c0c1 150d | |
0be6 08c0 c0c0 | |
0be8 c0d8 e4c1 | |
0bea 04e0 c0c0 | |
0bec c0c8 c918 | |
0bee c0c0 c918 | |
0bf0 c8e0 c0c0 | |
0bf2 c0c9 0504 | |
0bf4 294c ccc4 |)L |
0bf6 c514 c0c0 | |
0bf8 c115 0d09 | |
0bfa 0cd0 c904 | |
0bfc dcd0 e0dc | |
0bfe e0c0 c0c0 | |