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