|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03b8fe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0a40 | @ | .CONST 0x0a40 ; 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 007a | z | .CONST 0x007a ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0036 | 6 | .CONST 0x0036 ; Number of locals 000b INIT_0008: 000b 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated 000d 00c4 | | Action Make_Default 000e 00c4 | | Action Make_Default 000f 00c4 | | Action Make_Default 0010 00c4 | | Action Make_Default 0011 00c4 | | Action Make_Default 0012 00c4 | | Action Make_Default 0013 00c4 | | Action Make_Default 0014 00c4 | | Action Make_Default 0015 00c4 | | Action Make_Default 0016 00c4 | | Action Make_Default 0017 00c4 | | Action Make_Default 0018 00c4 | | Action Make_Default 0019 00c4 | | Action Make_Default 001a 00c4 | | Action Make_Default 001b 00c4 | | Action Make_Default 001c 00c4 | | Action Make_Default 001d 00c4 | | Action Make_Default 001e 00c4 | | Action Make_Default 001f 00c4 | | Action Make_Default 0020 00c4 | | Action Make_Default 0021 00c4 | | Action Make_Default 0022 00c4 | | Action Make_Default 0023 00c4 | | Action Make_Default 0024 00c4 | | Action Make_Default 0025 00c4 | | Action Make_Default 0026 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated 0028 c223 | # | Store 0x1,0x23 0029 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated 002b c216 | | Store 0x1,0x16 002c 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated 002e c224 | $ | Store 0x1,0x24 002f 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated 0031 c225 | % | Store 0x1,0x25 0032 029a 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call,Visible,Unelaborated 0034 c219 | | Store 0x1,0x19 0035 029a 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call,Visible,Unelaborated 0037 c213 | | Store 0x1,0x13 0038 029a 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call,Visible,Unelaborated 003a c226 | & | Store 0x1,0x26 003b 029a 03fb | | Declare_Subprogram INIT_03f8,For_Outer_Call,Visible,Unelaborated 003d c21c | | Store 0x1,0x1c 003e 00bf | | Action Accept_Activation 003f 4801 |H | Short_Literal 0x1 0040 481e |H | Short_Literal 0x1e 0041 00e9 | | Load_Encached String_Cache 0042 035b | [ | Declare_Type Array,Constrained 0043 0337 | 7 | Declare_Variable Array 0044 e001 | | Load 0x0,0x1 0045 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0046 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0047 e002 | | Load 0x0,0x2 0048 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0049 0322 | " | Declare_Variable Record 004a e002 | | Load 0x0,0x2 004b 1b12 | | Execute Package,Field_Read,Field_Number 0x12 004c 0322 | " | Declare_Variable Record 004d e003 | | Load 0x0,0x3 004e 1b16 | | Execute Package,Field_Read,Field_Number 0x16 004f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0050 0322 | " | Declare_Variable Record 0051 00e2 | | Load_Encached Integer_Cache 0052 00e2 | | Load_Encached Integer_Cache 0053 e001 | | Load 0x0,0x1 0054 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 0055 0337 | 7 | Declare_Variable Array 0056 00e1 | | Load_Encached Boolean_Cache 0057 e004 | | Load 0x0,0x4 0058 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0059 4801 |H | Short_Literal 0x1 005a 4805 |H | Short_Literal 0x5 005b 00e9 | | Load_Encached String_Cache 005c 035b | [ | Declare_Type Array,Constrained 005d 0337 | 7 | Declare_Variable Array 005e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 005f 00c7 | | Action Elaborate_Subprogram 0060 029d 053b | ;| Declare_Subprogram INIT_0538,For_Outer_Call 0062 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 0063 00c7 | | Action Elaborate_Subprogram 0064 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0065 00c7 | | Action Elaborate_Subprogram 0066 029d 06eb | | Declare_Subprogram INIT_06e8,For_Outer_Call 0068 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0069 00c7 | | Action Elaborate_Subprogram 006a 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 006b 00c7 | | Action Elaborate_Subprogram 006c 029d 0733 | 3| Declare_Subprogram INIT_0730,For_Outer_Call 006e 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 006f 00c7 | | Action Elaborate_Subprogram 0070 029d 075b | [| Declare_Subprogram INIT_0758,For_Outer_Call 0072 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 0073 00c7 | | Action Elaborate_Subprogram 0074 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0075 00c7 | | Action Elaborate_Subprogram 0076 029d 07bb | | Declare_Subprogram INIT_07b8,For_Outer_Call 0078 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0079 00c7 | | Action Elaborate_Subprogram 007a BODY_0008: 007a 00bc | | Action Signal_Activated 007b 00bb | | Action Signal_Completion 007c 0000 0000 | | .BLANK 0000[0x4] 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0083 | | .CONST 0x0083 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0001 | | .CONST 0x0001 ; Number of locals 0083 BODY_0080: 0083 INIT_0080: 0083 e228 | ( | Load 0x1,0x28 0084 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0085 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0086 0000 0000 | | .XXX[0x2] 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 009c | | .CONST 0x009c ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 000b | | .CONST 0x000b ; Number of locals 008b INIT_0088: 008b e005 | | Load 0x0,0x5 008c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 008d 00e1 | | Load_Encached Boolean_Cache 008e 00e2 | | Load_Encached Integer_Cache 008f 00e2 | | Load_Encached Integer_Cache 0090 00e2 | | Load_Encached Integer_Cache 0091 e003 | | Load 0x0,0x3 0092 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0093 1910 | | Execute Package,Field_Reference,Field_Number 0x10 0094 00c6 | | Action Check_Subprogram_Elaborated 0095 e001 | | Load 0x0,0x1 0096 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 0097 e006 | | Load 0x0,0x6 0098 e007 | | Load 0x0,0x7 0099 480a |H | Short_Literal 0xa 009a 029f 07fb | | Declare_Subprogram INIT_07f8,For_Call 009c BODY_0088: 009c 8213 | | Call 0x1,0x13 009d 8233 | 3 | Call 0x1,0x33 009e e5ff | | Load 0x2,-0x1 009f 8232 | 2 | Call 0x1,0x32 00a0 a404 | | Store_Unchecked 0x2,0x4 00a1 e404 | | Load 0x2,0x4 00a2 60c9 |` | Indirect_Literal Discrete,0x16c,{0x00000000, 0x0000ffff} 00a3 027d | } | Execute Discrete,Greater 00a4 6805 |h | Jump_Zero 0xaa 00a5 e404 | | Load 0x2,0x4 00a6 60c1 |` | Indirect_Literal Discrete,0x168,{0x00000000, 0x00010000} 00a7 026f | o | Execute Discrete,Remainder 00a8 a405 | | Store_Unchecked 0x2,0x5 00a9 7802 |x | Jump 0xac 00aa e404 | | Load 0x2,0x4 00ab a405 | | Store_Unchecked 0x2,0x5 00ac e405 | | Load 0x2,0x5 00ad 09fb | | Execute_Immediate Binary_Scale,-0x5 00ae a405 | | Store_Unchecked 0x2,0x5 00af e405 | | Load 0x2,0x5 00b0 09f8 | | Execute_Immediate Binary_Scale,-0x8 00b1 e22a | * | Load 0x1,0x2a 00b2 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 00b3 01d7 | | Execute Vector,Field_Read 00b4 e405 | | Load 0x2,0x5 00b5 48ff |H | Short_Literal 0xff 00b6 0279 | y | Execute Discrete,And 00b7 0273 | s | Execute Discrete,Plus 00b8 c406 | | Store 0x2,0x6 00b9 e406 | | Load 0x2,0x6 00ba e22d | - | Load 0x1,0x2d 00bb 0270 | p | Execute Discrete,Divide 00bc 00d8 | | Load_Top At_Offset_0 00bd e008 | | Load 0x0,0x8 00be 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00bf 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00c0 0260 | ` | Execute Discrete,In_Type 00c1 7001 |p | Jump_Nonzero 0xc3 00c2 0801 | | Execute_Immediate Raise,0x1 00c3 e22b | + | Load 0x1,0x2b 00c4 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00c5 e406 | | Load 0x2,0x6 00c6 e22d | - | Load 0x1,0x2d 00c7 026f | o | Execute Discrete,Remainder 00c8 a406 | | Store_Unchecked 0x2,0x6 00c9 e406 | | Load 0x2,0x6 00ca e22c | , | Load 0x1,0x2c 00cb 0270 | p | Execute Discrete,Divide 00cc 00d8 | | Load_Top At_Offset_0 00cd e008 | | Load 0x0,0x8 00ce 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00cf 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00d0 0260 | ` | Execute Discrete,In_Type 00d1 7001 |p | Jump_Nonzero 0xd3 00d2 0801 | | Execute_Immediate Raise,0x1 00d3 e22b | + | Load 0x1,0x2b 00d4 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00d5 e406 | | Load 0x2,0x6 00d6 e22c | , | Load 0x1,0x2c 00d7 026f | o | Execute Discrete,Remainder 00d8 a406 | | Store_Unchecked 0x2,0x6 00d9 e406 | | Load 0x2,0x6 00da 0901 | | Execute_Immediate Binary_Scale,0x1 00db 00d8 | | Load_Top At_Offset_0 00dc e008 | | Load 0x0,0x8 00dd 1b14 | | Execute Package,Field_Read,Field_Number 0x14 00de 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00df 0260 | ` | Execute Discrete,In_Type 00e0 7001 |p | Jump_Nonzero 0xe2 00e1 0801 | | Execute_Immediate Raise,0x1 00e2 e22b | + | Load 0x1,0x2b 00e3 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00e4 e22b | + | Load 0x1,0x2b 00e5 e407 | | Load 0x2,0x7 00e6 4808 |H | Short_Literal 0x8 00e7 4802 |H | Short_Literal 0x2 00e8 0099 | | Action Reference_Dynamic 00e9 e003 | | Load 0x0,0x3 00ea 1b16 | | Execute Package,Field_Read,Field_Number 0x16 00eb 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00ec e22e | . | Load 0x1,0x2e 00ed 01d4 | | Execute Vector,Structure_Write 00ee 00cf | | Action Mark_Auxiliary 00ef 480f |H | Short_Literal 0xf 00f0 4800 |H | Short_Literal 0x0 00f1 0007 | | Action Break_Optional 00f2 00d8 | | Load_Top At_Offset_0 00f3 e22e | . | Load 0x1,0x2e 00f4 01d5 | | Execute Vector,Field_Reference 00f5 e5fa | | Load 0x2,-0x6 00f6 017d | } | Execute Record,Structure_Write 00f7 4800 |H | Short_Literal 0x0 00f8 a403 | | Store_Unchecked 0x2,0x3 00f9 00d8 | | Load_Top At_Offset_0 00fa e22e | . | Load 0x1,0x2e 00fb 01d5 | | Execute Vector,Field_Reference 00fc 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00fd e404 | | Load 0x2,0x4 00fe 027f | | Execute Discrete,Equal 00ff 685a |hZ | Jump_Zero 0x15a 0100 e228 | ( | Load 0x1,0x28 0101 0f01 | | Execute_Immediate Equal,0x1 0102 6827 |h' | Jump_Zero 0x12a 0103 00cf | | Action Mark_Auxiliary 0104 481e |H | Short_Literal 0x1e 0105 4801 |H | Short_Literal 0x1 0106 0007 | | Action Break_Optional 0107 00d8 | | Load_Top At_Offset_0 0108 4802 |H | Short_Literal 0x2 0109 026f | o | Execute Discrete,Remainder 010a 7008 |p | Jump_Nonzero 0x113 010b e402 | | Load 0x2,0x2 010c 00d9 | | Load_Top At_Offset_1 010d e40e | | Load 0x2,0xe 010e e22e | . | Load 0x1,0x2e 010f 01d5 | | Execute Vector,Field_Reference 0110 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0111 01d6 | | Execute Vector,Field_Write 0112 7814 |x | Jump 0x127 0113 00d8 | | Load_Top At_Offset_0 0114 e40e | | Load 0x2,0xe 0115 e22e | . | Load 0x1,0x2e 0116 01d5 | | Execute Vector,Field_Reference 0117 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0118 01d7 | | Execute Vector,Field_Read 0119 a402 | | Store_Unchecked 0x2,0x2 011a 00d8 | | Load_Top At_Offset_0 011b 0a01 | | Execute_Immediate Plus,0x1 011c e40e | | Load 0x2,0xe 011d e22e | . | Load 0x1,0x2e 011e 01d5 | | Execute Vector,Field_Reference 011f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0120 01d7 | | Execute Vector,Field_Read 0121 00d9 | | Load_Top At_Offset_1 0122 e40e | | Load 0x2,0xe 0123 e22e | . | Load 0x1,0x2e 0124 01d5 | | Execute Vector,Field_Reference 0125 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0126 01d6 | | Execute Vector,Field_Write 0127 00c8 | | Action Pop_Auxiliary_Range 0128 3fde |? | Loop_Increasing 0x107 0129 00ce | | Action Pop_Auxiliary 012a 00d8 | | Load_Top At_Offset_0 012b e22e | . | Load 0x1,0x2e 012c 01d5 | | Execute Vector,Field_Reference 012d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 012e e009 | | Load 0x0,0x9 012f 180d | | Execute Package,Field_Execute,Field_Number 0xd 0130 e227 | ' | Load 0x1,0x27 0131 01d4 | | Execute Vector,Structure_Write 0132 4801 |H | Short_Literal 0x1 0133 a403 | | Store_Unchecked 0x2,0x3 0134 00cf | | Action Mark_Auxiliary 0135 e5ff | | Load 0x2,-0x1 0136 e00a | | Load 0x0,0xa 0137 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0138 4801 |H | Short_Literal 0x1 0139 0263 | c | Execute Discrete,Above_Bound 013a 700f |p | Jump_Nonzero 0x14a 013b e403 | | Load 0x2,0x3 013c 00d9 | | Load_Top At_Offset_1 013d e5ff | | Load 0x2,-0x1 013e e00a | | Load 0x0,0xa 013f 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0140 e00b | | Load 0x0,0xb 0141 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0142 00da | | Load_Top At_Offset_2 0143 e227 | ' | Load 0x1,0x27 0144 01d7 | | Execute Vector,Field_Read 0145 027f | | Execute Discrete,Equal 0146 0279 | y | Execute Discrete,And 0147 a403 | | Store_Unchecked 0x2,0x3 0148 00c8 | | Action Pop_Auxiliary_Range 0149 3ff1 |? | Loop_Increasing 0x13b 014a 00ce | | Action Pop_Auxiliary 014b e403 | | Load 0x2,0x3 014c e5ff | | Load 0x2,-0x1 014d e00a | | Load 0x0,0xa 014e 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 014f 0f1e | | Execute_Immediate Equal,0x1e 0150 e5ff | | Load 0x2,-0x1 0151 e00a | | Load 0x0,0xa 0152 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0153 0a01 | | Execute_Immediate Plus,0x1 0154 e227 | ' | Load 0x1,0x27 0155 01d7 | | Execute Vector,Field_Read 0156 0f00 | | Execute_Immediate Equal,0x0 0157 0278 | x | Execute Discrete,Or 0158 0279 | y | Execute Discrete,And 0159 a403 | | Store_Unchecked 0x2,0x3 015a e403 | | Load 0x2,0x3 015b 6802 |h | Jump_Zero 0x15e 015c 00d2 | | Pop_Control Pop_Count_2 015d 7802 |x | Jump 0x160 015e 00c8 | | Action Pop_Auxiliary_Range 015f 3f92 |? | Loop_Increasing 0xf2 0160 00ce | | Action Pop_Auxiliary 0161 e5fe | | Load 0x2,-0x2 0162 7001 |p | Jump_Nonzero 0x164 0163 840b | | Call 0x2,0xb 0164 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0165 0000 0000 | | .XXX[0x3] 0167 0000 | | 0168 0000 0000 | | .LITERAL {0x00000000, 0x00010000} 016c 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff} 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0179 | y | .CONST 0x0179 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0002 | | .CONST 0x0002 ; Number of locals 0173 INIT_0170: 0173 4864 |Hd | Short_Literal 0x64 0174 e00a | | Load 0x0,0xa 0175 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0176 1c08 | | Execute_Immediate Run_Utility,0x8 0177 00d8 | | Load_Top At_Offset_0 0178 1c00 | | Execute_Immediate Run_Utility,0x0 0179 BODY_0170: 0179 00db | | Load_Top At_Offset_3 017a 460f |F | Jump_Case 0x10 017b 7816 |x | Jump 0x192 ; case 0x0 017c 781c |x | Jump 0x199 ; case 0x1 017d 7822 |x" | Jump 0x1a0 ; case 0x2 017e 7828 |x( | Jump 0x1a7 ; case 0x3 017f 782e |x. | Jump 0x1ae ; case 0x4 0180 7834 |x4 | Jump 0x1b5 ; case 0x5 0181 783a |x: | Jump 0x1bc ; case 0x6 0182 7840 |x@ | Jump 0x1c3 ; case 0x7 0183 7846 |xF | Jump 0x1ca ; case 0x8 0184 784c |xL | Jump 0x1d1 ; case 0x9 0185 7852 |xR | Jump 0x1d8 ; case 0xa 0186 7858 |xX | Jump 0x1df ; case 0xb 0187 785e |x^ | Jump 0x1e6 ; case 0xc 0188 7864 |xd | Jump 0x1ed ; case 0xd 0189 786a |xj | Jump 0x1f4 ; case 0xe 018a 7800 |x | Jump 0x18b ; case 0xf 018b 00d8 | | Load_Top At_Offset_0 018c 0092 0850 | P| Action Push_String_Extended,0x850 ; "no disk" 018e e00a | | Load 0x0,0xa 018f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0190 00d1 | | Pop_Control Pop_Count_1 0191 786d |xm | Jump 0x1ff 0192 00d8 | | Load_Top At_Offset_0 0193 0092 0851 | Q| Action Push_String_Extended,0x851 ; "file operation successful" 0195 e00a | | Load 0x0,0xa 0196 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0197 00d1 | | Pop_Control Pop_Count_1 0198 7866 |xf | Jump 0x1ff 0199 00d8 | | Load_Top At_Offset_0 019a 0092 0852 | R| Action Push_String_Extended,0x852 ; "bad filename" 019c e00a | | Load 0x0,0xa 019d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 019e 00d1 | | Pop_Control Pop_Count_1 019f 785f |x_ | Jump 0x1ff 01a0 00d8 | | Load_Top At_Offset_0 01a1 0092 0853 | S| Action Push_String_Extended,0x853 ; "file does not exist" 01a3 e00a | | Load 0x0,0xa 01a4 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01a5 00d1 | | Pop_Control Pop_Count_1 01a6 7858 |xX | Jump 0x1ff 01a7 00d8 | | Load_Top At_Offset_0 01a8 0092 0854 | T| Action Push_String_Extended,0x854 ; "file is not open" 01aa e00a | | Load 0x0,0xa 01ab 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01ac 00d1 | | Pop_Control Pop_Count_1 01ad 7851 |xQ | Jump 0x1ff 01ae 00d8 | | Load_Top At_Offset_0 01af 0092 0855 | U| Action Push_String_Extended,0x855 ; "disk is full" 01b1 e00a | | Load 0x0,0xa 01b2 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01b3 00d1 | | Pop_Control Pop_Count_1 01b4 784a |xJ | Jump 0x1ff 01b5 00d8 | | Load_Top At_Offset_0 01b6 0092 0856 | V| Action Push_String_Extended,0x856 ; "directory is full" 01b8 e00a | | Load 0x0,0xa 01b9 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01ba 00d1 | | Pop_Control Pop_Count_1 01bb 7843 |xC | Jump 0x1ff 01bc 00d8 | | Load_Top At_Offset_0 01bd 0092 0857 | W| Action Push_String_Extended,0x857 ; "file already exists" 01bf e00a | | Load 0x0,0xa 01c0 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01c1 00d1 | | Pop_Control Pop_Count_1 01c2 783c |x< | Jump 0x1ff 01c3 00d8 | | Load_Top At_Offset_0 01c4 0092 0858 | X| Action Push_String_Extended,0x858 ; "can't rename file" 01c6 e00a | | Load 0x0,0xa 01c7 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01c8 00d1 | | Pop_Control Pop_Count_1 01c9 7835 |x5 | Jump 0x1ff 01ca 00d8 | | Load_Top At_Offset_0 01cb 0092 0859 | Y| Action Push_String_Extended,0x859 ; "can't delete file" 01cd e00a | | Load 0x0,0xa 01ce 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01cf 00d1 | | Pop_Control Pop_Count_1 01d0 782e |x. | Jump 0x1ff 01d1 00d8 | | Load_Top At_Offset_0 01d2 0092 085a | Z| Action Push_String_Extended,0x85a ; "page error" 01d4 e00a | | Load 0x0,0xa 01d5 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01d6 00d1 | | Pop_Control Pop_Count_1 01d7 7827 |x' | Jump 0x1ff 01d8 00d8 | | Load_Top At_Offset_0 01d9 0092 085b | [| Action Push_String_Extended,0x85b ; "slice error" 01db e00a | | Load 0x0,0xa 01dc 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01dd 00d1 | | Pop_Control Pop_Count_1 01de 7820 |x | Jump 0x1ff 01df 00d8 | | Load_Top At_Offset_0 01e0 0092 085c | \| Action Push_String_Extended,0x85c ; "bad address" 01e2 e00a | | Load 0x0,0xa 01e3 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01e4 00d1 | | Pop_Control Pop_Count_1 01e5 7819 |x | Jump 0x1ff 01e6 00d8 | | Load_Top At_Offset_0 01e7 0092 085d | ]| Action Push_String_Extended,0x85d ; "disk error" 01e9 e00a | | Load 0x0,0xa 01ea 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01eb 00d1 | | Pop_Control Pop_Count_1 01ec 7812 |x | Jump 0x1ff 01ed 00d8 | | Load_Top At_Offset_0 01ee 0092 085e | ^| Action Push_String_Extended,0x85e ; "no labels on disk" 01f0 e00a | | Load 0x0,0xa 01f1 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01f2 00d1 | | Pop_Control Pop_Count_1 01f3 780b |x | Jump 0x1ff 01f4 00d8 | | Load_Top At_Offset_0 01f5 0092 085f | _| Action Push_String_Extended,0x85f ; "no dos on disk" 01f7 e00a | | Load 0x0,0xa 01f8 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01f9 00d1 | | Pop_Control Pop_Count_1 01fa 7804 |x | Jump 0x1ff 01fb 0860 e00a | ` | .XXX[0x4] 01fd 1810 00d1 | | 01ff 00d8 | | Load_Top At_Offset_0 0200 e00a | | Load 0x0,0xa 0201 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0202 e00c | | Load 0x0,0xc 0203 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0204 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0205 0000 0000 | | .XXX[0x3] 0207 0000 | | 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 0215 | | .CONST 0x0215 ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0005 | | .CONST 0x0005 ; Number of locals 020b INIT_0208: 020b e003 | | Load 0x0,0x3 020c 1b16 | | Execute Package,Field_Read,Field_Number 0x16 020d 1910 | | Execute Package,Field_Reference,Field_Number 0x10 020e 00c6 | | Action Check_Subprogram_Elaborated 020f e004 | | Load 0x0,0x4 0210 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c 0211 e00d | | Load 0x0,0xd 0212 e00e | | Load 0x0,0xe 0213 4805 |H | Short_Literal 0x5 0214 0007 | | Action Break_Optional 0215 BODY_0208: 0215 e5fe | | Load 0x2,-0x2 0216 e5ff | | Load 0x2,-0x1 0217 8235 | 5 | Call 0x1,0x35 0218 4800 |H | Short_Literal 0x0 0219 a5f9 | | Store_Unchecked 0x2,-0x7 021a e22b | + | Load 0x1,0x2b 021b e402 | | Load 0x2,0x2 021c 4803 |H | Short_Literal 0x3 021d 4802 |H | Short_Literal 0x2 021e 0099 | | Action Reference_Dynamic 021f e003 | | Load 0x0,0x3 0220 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0221 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0222 e5fa | | Load 0x2,-0x6 0223 01d4 | | Execute Vector,Structure_Write 0224 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0225 0000 0000 | | .XXX[0x3] 0227 0000 | | 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 0230 | 0 | .CONST 0x0230 ; Address of begin 0229 0004 | | .CONST 0x0004 ; Address of exception handler 022a 0003 | | .CONST 0x0003 ; Number of locals 022b INIT_0228: 022b e004 | | Load 0x0,0x4 022c 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c 022d 0337 | 7 | Declare_Variable Array 022e e004 | | Load 0x0,0x4 022f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0230 BODY_0228: 0230 4800 |H | Short_Literal 0x0 0231 a22f | / | Store_Unchecked 0x1,0x2f 0232 480c |H | Short_Literal 0xc 0233 a5fe | | Store_Unchecked 0x2,-0x2 0234 e5ff | | Load 0x2,-0x1 0235 e00f | | Load 0x0,0xf 0236 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0237 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0238 e001 | | Load 0x0,0x1 0239 1b26 | & | Execute Package,Field_Read,Field_Number 0x26 023a e00f | | Load 0x0,0xf 023b 1b16 | | Execute Package,Field_Read,Field_Number 0x16 023c 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 023d 606e |`n | Indirect_Literal Discrete,0x2ac,{0x00000000, 0x00007fff} 023e e00f | | Load 0x0,0xf 023f 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0240 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0241 606a |`j | Indirect_Literal Discrete,0x2ac,{0x00000000, 0x00007fff} 0242 e00f | | Load 0x0,0xf 0243 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0244 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0245 e001 | | Load 0x0,0x1 0246 1b26 | & | Execute Package,Field_Read,Field_Number 0x26 0247 e00f | | Load 0x0,0xf 0248 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0249 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 024a 8213 | | Call 0x1,0x13 024b e229 | ) | Load 0x1,0x29 024c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 024d 605a |`Z | Indirect_Literal Discrete,0x2a8,{0x00000000, 0x00007fed} 024e 027e | ~ | Execute Discrete,Not_Equal 024f 6803 |h | Jump_Zero 0x253 0250 480d |H | Short_Literal 0xd 0251 a5fe | | Store_Unchecked 0x2,-0x2 0252 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0253 e229 | ) | Load 0x1,0x29 0254 340a |4 | Execute Record,Field_Reference,Field_Number 0xa 0255 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0256 0e01 | | Execute_Immediate Not_Equal,0x1 0257 6803 |h | Jump_Zero 0x25b 0258 480e |H | Short_Literal 0xe 0259 a5fe | | Store_Unchecked 0x2,-0x2 025a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 025b e229 | ) | Load 0x1,0x29 025c 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 025d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 025e 09ff | | Execute_Immediate Binary_Scale,-0x1 025f 00d8 | | Load_Top At_Offset_0 0260 e001 | | Load 0x0,0x1 0261 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0262 0260 | ` | Execute Discrete,In_Type 0263 7001 |p | Jump_Nonzero 0x265 0264 0801 | | Execute_Immediate Raise,0x1 0265 e00f | | Load 0x0,0xf 0266 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0267 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0268 e00f | | Load 0x0,0xf 0269 1b16 | | Execute Package,Field_Read,Field_Number 0x16 026a 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 026b e229 | ) | Load 0x1,0x29 026c 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 026d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 026e 0271 | q | Execute Discrete,Times 026f 00d8 | | Load_Top At_Offset_0 0270 e001 | | Load 0x0,0x1 0271 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0272 0260 | ` | Execute Discrete,In_Type 0273 7001 |p | Jump_Nonzero 0x275 0274 0801 | | Execute_Immediate Raise,0x1 0275 e00f | | Load 0x0,0xf 0276 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0277 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0278 e22a | * | Load 0x1,0x2a 0279 e00f | | Load 0x0,0xf 027a 1b16 | | Execute Package,Field_Read,Field_Number 0x16 027b 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 027c e00f | | Load 0x0,0xf 027d 1b16 | | Execute Package,Field_Read,Field_Number 0x16 027e 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 027f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0280 7006 |p | Jump_Nonzero 0x287 0281 4800 |H | Short_Literal 0x0 0282 e00f | | Load 0x0,0xf 0283 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0284 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 0285 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0286 781b |x | Jump 0x2a2 0287 00d8 | | Load_Top At_Offset_0 0288 00da | | Load_Top At_Offset_2 0289 4802 |H | Short_Literal 0x2 028a e00f | | Load 0x0,0xf 028b 1b16 | | Execute Package,Field_Read,Field_Number 0x16 028c 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 028d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 028e 8219 | | Call 0x1,0x19 028f 00d1 | | Pop_Control Pop_Count_1 0290 0059 | Y | Store_Top Discrete,At_Offset_1 0291 00d8 | | Load_Top At_Offset_0 0292 6801 |h | Jump_Zero 0x294 0293 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0294 4800 |H | Short_Literal 0x0 0295 00da | | Load_Top At_Offset_2 0296 01d7 | | Execute Vector,Field_Read 0297 e00f | | Load 0x0,0xf 0298 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0299 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 029a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 029b 4801 |H | Short_Literal 0x1 029c 00da | | Load_Top At_Offset_2 029d 01d7 | | Execute Vector,Field_Read 029e e00f | | Load 0x0,0xf 029f 1b16 | | Execute Package,Field_Read,Field_Number 0x16 02a0 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6 02a1 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 02a2 4800 |H | Short_Literal 0x0 02a3 a5fe | | Store_Unchecked 0x2,-0x2 02a4 4801 |H | Short_Literal 0x1 02a5 a22f | / | Store_Unchecked 0x1,0x2f 02a6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02a7 0000 | | .XXX[0x1] 02a8 0000 0000 | | .LITERAL {0x00000000, 0x00007fed} 02ac 0000 0000 | | .LITERAL {0x00000000, 0x00007fff} 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; SUBPROGRAM 02b0 ; -------------------------------------------------------------------------------------- 02b0 02be | | .CONST 0x02be ; Address of begin 02b1 0004 | | .CONST 0x0004 ; Address of exception handler 02b2 0006 | | .CONST 0x0006 ; Number of locals 02b3 INIT_02b0: 02b3 e003 | | Load 0x0,0x3 02b4 1b16 | | Execute Package,Field_Read,Field_Number 0x16 02b5 1910 | | Execute Package,Field_Reference,Field_Number 0x10 02b6 00c6 | | Action Check_Subprogram_Elaborated 02b7 e004 | | Load 0x0,0x4 02b8 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c 02b9 e010 | | Load 0x0,0x10 02ba e011 | | Load 0x0,0x11 02bb 4805 |H | Short_Literal 0x5 02bc 0007 | | Action Break_Optional 02bd 00e2 | | Load_Encached Integer_Cache 02be BODY_02b0: 02be 4800 |H | Short_Literal 0x0 02bf a5fc | | Store_Unchecked 0x2,-0x4 02c0 e5ff | | Load 0x2,-0x1 02c1 e22d | - | Load 0x1,0x2d 02c2 0270 | p | Execute Discrete,Divide 02c3 00d8 | | Load_Top At_Offset_0 02c4 e008 | | Load 0x0,0x8 02c5 1b14 | | Execute Package,Field_Read,Field_Number 0x14 02c6 1b13 | | Execute Package,Field_Read,Field_Number 0x13 02c7 0260 | ` | Execute Discrete,In_Type 02c8 7001 |p | Jump_Nonzero 0x2ca 02c9 0801 | | Execute_Immediate Raise,0x1 02ca e22b | + | Load 0x1,0x2b 02cb 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 02cc e5ff | | Load 0x2,-0x1 02cd e22d | - | Load 0x1,0x2d 02ce 026f | o | Execute Discrete,Remainder 02cf 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 02d0 00d8 | | Load_Top At_Offset_0 02d1 e22c | , | Load 0x1,0x2c 02d2 0270 | p | Execute Discrete,Divide 02d3 00d8 | | Load_Top At_Offset_0 02d4 e008 | | Load 0x0,0x8 02d5 1b14 | | Execute Package,Field_Read,Field_Number 0x14 02d6 1b14 | | Execute Package,Field_Read,Field_Number 0x14 02d7 0260 | ` | Execute Discrete,In_Type 02d8 7001 |p | Jump_Nonzero 0x2da 02d9 0801 | | Execute_Immediate Raise,0x1 02da e22b | + | Load 0x1,0x2b 02db 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 02dc 00d8 | | Load_Top At_Offset_0 02dd e22c | , | Load 0x1,0x2c 02de 026f | o | Execute Discrete,Remainder 02df 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 02e0 00d8 | | Load_Top At_Offset_0 02e1 0901 | | Execute_Immediate Binary_Scale,0x1 02e2 00d8 | | Load_Top At_Offset_0 02e3 e008 | | Load 0x0,0x8 02e4 1b14 | | Execute Package,Field_Read,Field_Number 0x14 02e5 1b15 | | Execute Package,Field_Read,Field_Number 0x15 02e6 0260 | ` | Execute Discrete,In_Type 02e7 7001 |p | Jump_Nonzero 0x2e9 02e8 0801 | | Execute_Immediate Raise,0x1 02e9 e22b | + | Load 0x1,0x2b 02ea 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 02eb e22b | + | Load 0x1,0x2b 02ec e402 | | Load 0x2,0x2 02ed 4803 |H | Short_Literal 0x3 02ee 4802 |H | Short_Literal 0x2 02ef 0099 | | Action Reference_Dynamic 02f0 e003 | | Load 0x0,0x3 02f1 1b16 | | Execute Package,Field_Read,Field_Number 0x16 02f2 1810 | | Execute Package,Field_Execute,Field_Number 0x10 02f3 e5fd | | Load 0x2,-0x3 02f4 01d4 | | Execute Vector,Structure_Write 02f5 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02f6 0000 0000 | | .XXX[0x2] 02f8 ; -------------------------------------------------------------------------------------- 02f8 ; SUBPROGRAM 02f8 ; -------------------------------------------------------------------------------------- 02f8 030f | | .CONST 0x030f ; Address of begin 02f9 033b | ; | .CONST 0x033b ; Address of exception handler 02fa 0009 | | .CONST 0x0009 ; Number of locals 02fb INIT_02f8: 02fb e003 | | Load 0x0,0x3 02fc 1b16 | | Execute Package,Field_Read,Field_Number 0x16 02fd 1910 | | Execute Package,Field_Reference,Field_Number 0x10 02fe 00c6 | | Action Check_Subprogram_Elaborated 02ff e002 | | Load 0x0,0x2 0300 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0301 e012 | | Load 0x0,0x12 0302 e013 | | Load 0x0,0x13 0303 4805 |H | Short_Literal 0x5 0304 0007 | | Action Break_Optional 0305 e003 | | Load 0x0,0x3 0306 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0307 1910 | | Execute Package,Field_Reference,Field_Number 0x10 0308 00c6 | | Action Check_Subprogram_Elaborated 0309 e002 | | Load 0x0,0x2 030a 1b12 | | Execute Package,Field_Read,Field_Number 0x12 030b e014 | | Load 0x0,0x14 030c e015 | | Load 0x0,0x15 030d 4809 |H | Short_Literal 0x9 030e 0007 | | Action Break_Optional 030f BODY_02f8: 030f 4800 |H | Short_Literal 0x0 0310 e22b | + | Load 0x1,0x2b 0311 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0312 4800 |H | Short_Literal 0x0 0313 e22b | + | Load 0x1,0x2b 0314 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0315 4804 |H | Short_Literal 0x4 0316 e22b | + | Load 0x1,0x2b 0317 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0318 e22b | + | Load 0x1,0x2b 0319 e402 | | Load 0x2,0x2 031a 4803 |H | Short_Literal 0x3 031b 4802 |H | Short_Literal 0x2 031c 0099 | | Action Reference_Dynamic 031d e003 | | Load 0x0,0x3 031e 1b16 | | Execute Package,Field_Read,Field_Number 0x16 031f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0320 e229 | ) | Load 0x1,0x29 0321 017d | } | Execute Record,Structure_Write 0322 e229 | ) | Load 0x1,0x29 0323 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 0324 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0325 09ff | | Execute_Immediate Binary_Scale,-0x1 0326 a22c | , | Store_Unchecked 0x1,0x2c 0327 e22c | , | Load 0x1,0x2c 0328 e229 | ) | Load 0x1,0x29 0329 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 032a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 032b 0271 | q | Execute Discrete,Times 032c c22d | - | Store 0x1,0x2d 032d 4808 |H | Short_Literal 0x8 032e e22b | + | Load 0x1,0x2b 032f 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0330 e22b | + | Load 0x1,0x2b 0331 e406 | | Load 0x2,0x6 0332 4807 |H | Short_Literal 0x7 0333 4802 |H | Short_Literal 0x2 0334 0099 | | Action Reference_Dynamic 0335 e003 | | Load 0x0,0x3 0336 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0337 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0338 e22a | * | Load 0x1,0x2a 0339 017d | } | Execute Record,Structure_Write 033a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 033b TRAP_02f8: 033b e003 | | Load 0x0,0x3 033c 1b16 | | Execute Package,Field_Read,Field_Number 0x16 033d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 033e 010f | | Execute Exception,Equal 033f 6805 |h | Jump_Zero 0x345 0340 0092 0861 | a| Action Push_String_Extended,0x861 ; "address out of bounds" 0342 e016 | | Load 0x0,0x16 0343 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0344 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0345 4800 |H | Short_Literal 0x0 0346 4801 |H | Short_Literal 0x1 0347 e017 | | Load 0x0,0x17 0348 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0349 e016 | | Load 0x0,0x16 034a 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 034b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 034c 0000 0000 | | .BLANK 0000[0x4] 0350 ; -------------------------------------------------------------------------------------- 0350 ; SUBPROGRAM 0350 ; -------------------------------------------------------------------------------------- 0350 0353 | S | .CONST 0x0353 ; Address of begin 0351 0004 | | .CONST 0x0004 ; Address of exception handler 0352 0001 | | .CONST 0x0001 ; Number of locals 0353 BODY_0350: 0353 INIT_0350: 0353 00da | | Load_Top At_Offset_2 0354 460f |F | Jump_Case 0x10 0355 7818 |x | Jump 0x36e ; case 0x0 0356 7820 |x | Jump 0x377 ; case 0x1 0357 7828 |x( | Jump 0x380 ; case 0x2 0358 7830 |x0 | Jump 0x389 ; case 0x3 0359 7838 |x8 | Jump 0x392 ; case 0x4 035a 7840 |x@ | Jump 0x39b ; case 0x5 035b 7848 |xH | Jump 0x3a4 ; case 0x6 035c 7850 |xP | Jump 0x3ad ; case 0x7 035d 7858 |xX | Jump 0x3b6 ; case 0x8 035e 7860 |x` | Jump 0x3bf ; case 0x9 035f 7868 |xh | Jump 0x3c8 ; case 0xa 0360 7870 |xp | Jump 0x3d1 ; case 0xb 0361 7878 |xx | Jump 0x3da ; case 0xc 0362 7880 |x | Jump 0x3e3 ; case 0xd 0363 7888 |x | Jump 0x3ec ; case 0xe 0364 7800 |x | Jump 0x365 ; case 0xf 0365 00db | | Load_Top At_Offset_3 0366 0092 0862 | b| Action Push_String_Extended,0x862 ; "No disk present " 0368 e00a | | Load 0x0,0xa 0369 1814 | | Execute Package,Field_Execute,Field_Number 0x14 036a e00a | | Load 0x0,0xa 036b 180f | | Execute Package,Field_Execute,Field_Number 0xf 036c 00d1 | | Pop_Control Pop_Count_1 036d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 036e 00db | | Load_Top At_Offset_3 036f 0092 0863 | c| Action Push_String_Extended,0x863 ; "Operation successful " 0371 e00a | | Load 0x0,0xa 0372 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0373 e00a | | Load 0x0,0xa 0374 180f | | Execute Package,Field_Execute,Field_Number 0xf 0375 00d1 | | Pop_Control Pop_Count_1 0376 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0377 00db | | Load_Top At_Offset_3 0378 0092 0864 | d| Action Push_String_Extended,0x864 ; "Bad filename " 037a e00a | | Load 0x0,0xa 037b 1814 | | Execute Package,Field_Execute,Field_Number 0x14 037c e00a | | Load 0x0,0xa 037d 180f | | Execute Package,Field_Execute,Field_Number 0xf 037e 00d1 | | Pop_Control Pop_Count_1 037f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0380 00db | | Load_Top At_Offset_3 0381 0092 0865 | e| Action Push_String_Extended,0x865 ; "File does not exist " 0383 e00a | | Load 0x0,0xa 0384 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0385 e00a | | Load 0x0,0xa 0386 180f | | Execute Package,Field_Execute,Field_Number 0xf 0387 00d1 | | Pop_Control Pop_Count_1 0388 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0389 00db | | Load_Top At_Offset_3 038a 0092 0866 | f| Action Push_String_Extended,0x866 ; "File is not open " 038c e00a | | Load 0x0,0xa 038d 1814 | | Execute Package,Field_Execute,Field_Number 0x14 038e e00a | | Load 0x0,0xa 038f 180f | | Execute Package,Field_Execute,Field_Number 0xf 0390 00d1 | | Pop_Control Pop_Count_1 0391 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0392 00db | | Load_Top At_Offset_3 0393 0092 0867 | g| Action Push_String_Extended,0x867 ; "Out of disk space " 0395 e00a | | Load 0x0,0xa 0396 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0397 e00a | | Load 0x0,0xa 0398 180f | | Execute Package,Field_Execute,Field_Number 0xf 0399 00d1 | | Pop_Control Pop_Count_1 039a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 039b 00db | | Load_Top At_Offset_3 039c 0092 0868 | h| Action Push_String_Extended,0x868 ; "Directory full " 039e e00a | | Load 0x0,0xa 039f 1814 | | Execute Package,Field_Execute,Field_Number 0x14 03a0 e00a | | Load 0x0,0xa 03a1 180f | | Execute Package,Field_Execute,Field_Number 0xf 03a2 00d1 | | Pop_Control Pop_Count_1 03a3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03a4 00db | | Load_Top At_Offset_3 03a5 0092 0869 | i| Action Push_String_Extended,0x869 ; "File already exists " 03a7 e00a | | Load 0x0,0xa 03a8 1814 | | Execute Package,Field_Execute,Field_Number 0x14 03a9 e00a | | Load 0x0,0xa 03aa 180f | | Execute Package,Field_Execute,Field_Number 0xf 03ab 00d1 | | Pop_Control Pop_Count_1 03ac 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03ad 00db | | Load_Top At_Offset_3 03ae 0092 086a | j| Action Push_String_Extended,0x86a ; "File could not be renamed " 03b0 e00a | | Load 0x0,0xa 03b1 1814 | | Execute Package,Field_Execute,Field_Number 0x14 03b2 e00a | | Load 0x0,0xa 03b3 180f | | Execute Package,Field_Execute,Field_Number 0xf 03b4 00d1 | | Pop_Control Pop_Count_1 03b5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03b6 00db | | Load_Top At_Offset_3 03b7 0092 086b | k| Action Push_String_Extended,0x86b ; "File cannot be deleted " 03b9 e00a | | Load 0x0,0xa 03ba 1814 | | Execute Package,Field_Execute,Field_Number 0x14 03bb e00a | | Load 0x0,0xa 03bc 180f | | Execute Package,Field_Execute,Field_Number 0xf 03bd 00d1 | | Pop_Control Pop_Count_1 03be 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03bf 00db | | Load_Top At_Offset_3 03c0 0092 086c | l| Action Push_String_Extended,0x86c ; "Internal PAGE error " 03c2 e00a | | Load 0x0,0xa 03c3 1814 | | Execute Package,Field_Execute,Field_Number 0x14 03c4 e00a | | Load 0x0,0xa 03c5 180f | | Execute Package,Field_Execute,Field_Number 0xf 03c6 00d1 | | Pop_Control Pop_Count_1 03c7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03c8 00db | | Load_Top At_Offset_3 03c9 0092 086d | m| Action Push_String_Extended,0x86d ; "Internal SLICE error " 03cb e00a | | Load 0x0,0xa 03cc 1814 | | Execute Package,Field_Execute,Field_Number 0x14 03cd e00a | | Load 0x0,0xa 03ce 180f | | Execute Package,Field_Execute,Field_Number 0xf 03cf 00d1 | | Pop_Control Pop_Count_1 03d0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03d1 00db | | Load_Top At_Offset_3 03d2 0092 086e | n| Action Push_String_Extended,0x86e ; "Internal ADDRESS error " 03d4 e00a | | Load 0x0,0xa 03d5 1814 | | Execute Package,Field_Execute,Field_Number 0x14 03d6 e00a | | Load 0x0,0xa 03d7 180f | | Execute Package,Field_Execute,Field_Number 0xf 03d8 00d1 | | Pop_Control Pop_Count_1 03d9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03da 00db | | Load_Top At_Offset_3 03db 0092 086f | o| Action Push_String_Extended,0x86f ; "Hard disk error " 03dd e00a | | Load 0x0,0xa 03de 1814 | | Execute Package,Field_Execute,Field_Number 0x14 03df e00a | | Load 0x0,0xa 03e0 180f | | Execute Package,Field_Execute,Field_Number 0xf 03e1 00d1 | | Pop_Control Pop_Count_1 03e2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03e3 00db | | Load_Top At_Offset_3 03e4 0092 0870 | p| Action Push_String_Extended,0x870 ; "Disk has no DFS labels " 03e6 e00a | | Load 0x0,0xa 03e7 1814 | | Execute Package,Field_Execute,Field_Number 0x14 03e8 e00a | | Load 0x0,0xa 03e9 180f | | Execute Package,Field_Execute,Field_Number 0xf 03ea 00d1 | | Pop_Control Pop_Count_1 03eb 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03ec 00db | | Load_Top At_Offset_3 03ed 0092 0871 | q| Action Push_String_Extended,0x871 ; "Disk has no DFS " 03ef e00a | | Load 0x0,0xa 03f0 1814 | | Execute Package,Field_Execute,Field_Number 0x14 03f1 e00a | | Load 0x0,0xa 03f2 180f | | Execute Package,Field_Execute,Field_Number 0xf 03f3 00d1 | | Pop_Control Pop_Count_1 03f4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03f5 0000 0000 | | .XXX[0x3] 03f7 0000 | | 03f8 ; -------------------------------------------------------------------------------------- 03f8 ; SUBPROGRAM 03f8 ; -------------------------------------------------------------------------------------- 03f8 0423 | # | .CONST 0x0423 ; Address of begin 03f9 0004 | | .CONST 0x0004 ; Address of exception handler 03fa 0011 | | .CONST 0x0011 ; Number of locals 03fb INIT_03f8: 03fb 481e |H | Short_Literal 0x1e 03fc e00a | | Load 0x0,0xa 03fd 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03fe 1c08 | | Execute_Immediate Run_Utility,0x8 03ff 00d8 | | Load_Top At_Offset_0 0400 1c00 | | Execute_Immediate Run_Utility,0x0 0401 e001 | | Load 0x0,0x1 0402 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 0403 0322 | " | Declare_Variable Record 0404 00e2 | | Load_Encached Integer_Cache 0405 00e2 | | Load_Encached Integer_Cache 0406 00e1 | | Load_Encached Boolean_Cache 0407 00e3 | | Load_Encached Natural_Cache 0408 4850 |HP | Short_Literal 0x50 0409 e00a | | Load 0x0,0xa 040a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 040b 1c08 | | Execute_Immediate Run_Utility,0x8 040c 00d8 | | Load_Top At_Offset_0 040d 1c00 | | Execute_Immediate Run_Utility,0x0 040e 00e2 | | Load_Encached Integer_Cache 040f 00e2 | | Load_Encached Integer_Cache 0410 00e2 | | Load_Encached Integer_Cache 0411 e005 | | Load 0x0,0x5 0412 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0413 4850 |HP | Short_Literal 0x50 0414 e00a | | Load 0x0,0xa 0415 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0416 1c08 | | Execute_Immediate Run_Utility,0x8 0417 00d8 | | Load_Top At_Offset_0 0418 1c00 | | Execute_Immediate Run_Utility,0x0 0419 e003 | | Load 0x0,0x3 041a 1b16 | | Execute Package,Field_Read,Field_Number 0x16 041b 1910 | | Execute Package,Field_Reference,Field_Number 0x10 041c 00c6 | | Action Check_Subprogram_Elaborated 041d e001 | | Load 0x0,0x1 041e 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 041f e018 | | Load 0x0,0x18 0420 e019 | | Load 0x0,0x19 0421 4811 |H | Short_Literal 0x11 0422 0007 | | Action Break_Optional 0423 BODY_03f8: 0423 8213 | | Call 0x1,0x13 0424 8233 | 3 | Call 0x1,0x33 0425 4800 |H | Short_Literal 0x0 0426 a404 | | Store_Unchecked 0x2,0x4 0427 4800 |H | Short_Literal 0x0 0428 a40b | | Store_Unchecked 0x2,0xb 0429 e40d | | Load 0x2,0xd 042a e5ff | | Load 0x2,-0x1 042b e00a | | Load 0x0,0xa 042c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 042d 00d1 | | Pop_Control Pop_Count_1 042e 00cf | | Action Mark_Auxiliary 042f 6100 |a | Indirect_Literal Discrete,0x530,{0x00000000, 0x000007ff} 0430 4800 |H | Short_Literal 0x0 0431 0007 | | Action Break_Optional 0432 00d8 | | Load_Top At_Offset_0 0433 09f8 | | Execute_Immediate Binary_Scale,-0x8 0434 e22a | * | Load 0x1,0x2a 0435 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0436 01d7 | | Execute Vector,Field_Read 0437 00d9 | | Load_Top At_Offset_1 0438 48ff |H | Short_Literal 0xff 0439 0279 | y | Execute Discrete,And 043a 0273 | s | Execute Discrete,Plus 043b c40a | | Store 0x2,0xa 043c e40a | | Load 0x2,0xa 043d e22d | - | Load 0x1,0x2d 043e 0270 | p | Execute Discrete,Divide 043f 00d8 | | Load_Top At_Offset_0 0440 e008 | | Load 0x0,0x8 0441 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0442 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0443 0260 | ` | Execute Discrete,In_Type 0444 7001 |p | Jump_Nonzero 0x446 0445 0801 | | Execute_Immediate Raise,0x1 0446 e22b | + | Load 0x1,0x2b 0447 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0448 e40a | | Load 0x2,0xa 0449 e22d | - | Load 0x1,0x2d 044a 026f | o | Execute Discrete,Remainder 044b a40a | | Store_Unchecked 0x2,0xa 044c e40a | | Load 0x2,0xa 044d e22c | , | Load 0x1,0x2c 044e 0270 | p | Execute Discrete,Divide 044f 00d8 | | Load_Top At_Offset_0 0450 e008 | | Load 0x0,0x8 0451 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0452 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0453 0260 | ` | Execute Discrete,In_Type 0454 7001 |p | Jump_Nonzero 0x456 0455 0801 | | Execute_Immediate Raise,0x1 0456 e22b | + | Load 0x1,0x2b 0457 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0458 e40a | | Load 0x2,0xa 0459 e22c | , | Load 0x1,0x2c 045a 026f | o | Execute Discrete,Remainder 045b a40a | | Store_Unchecked 0x2,0xa 045c e40a | | Load 0x2,0xa 045d 0901 | | Execute_Immediate Binary_Scale,0x1 045e 00d8 | | Load_Top At_Offset_0 045f e008 | | Load 0x0,0x8 0460 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0461 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0462 0260 | ` | Execute Discrete,In_Type 0463 7001 |p | Jump_Nonzero 0x465 0464 0801 | | Execute_Immediate Raise,0x1 0465 e22b | + | Load 0x1,0x2b 0466 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0467 e22b | + | Load 0x1,0x2b 0468 e40e | | Load 0x2,0xe 0469 480f |H | Short_Literal 0xf 046a 4802 |H | Short_Literal 0x2 046b 0099 | | Action Reference_Dynamic 046c e003 | | Load 0x0,0x3 046d 1b16 | | Execute Package,Field_Read,Field_Number 0x16 046e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 046f e22e | . | Load 0x1,0x2e 0470 01d4 | | Execute Vector,Structure_Write 0471 00cf | | Action Mark_Auxiliary 0472 480f |H | Short_Literal 0xf 0473 4800 |H | Short_Literal 0x0 0474 0007 | | Action Break_Optional 0475 00d8 | | Load_Top At_Offset_0 0476 e22e | . | Load 0x1,0x2e 0477 01d5 | | Execute Vector,Field_Reference 0478 e403 | | Load 0x2,0x3 0479 017d | } | Execute Record,Structure_Write 047a e403 | | Load 0x2,0x3 047b 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 047c 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 047d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 047e 6802 |h | Jump_Zero 0x481 047f 00d2 | | Pop_Control Pop_Count_2 0480 788e |x | Jump 0x50f 0481 e228 | ( | Load 0x1,0x28 0482 0f01 | | Execute_Immediate Equal,0x1 0483 6827 |h' | Jump_Zero 0x4ab 0484 00cf | | Action Mark_Auxiliary 0485 481e |H | Short_Literal 0x1e 0486 4801 |H | Short_Literal 0x1 0487 0007 | | Action Break_Optional 0488 00d8 | | Load_Top At_Offset_0 0489 4802 |H | Short_Literal 0x2 048a 026f | o | Execute Discrete,Remainder 048b 7008 |p | Jump_Nonzero 0x494 048c e40c | | Load 0x2,0xc 048d 00d9 | | Load_Top At_Offset_1 048e e417 | | Load 0x2,0x17 048f e22e | . | Load 0x1,0x2e 0490 01d5 | | Execute Vector,Field_Reference 0491 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0492 01d6 | | Execute Vector,Field_Write 0493 7814 |x | Jump 0x4a8 0494 00d8 | | Load_Top At_Offset_0 0495 e417 | | Load 0x2,0x17 0496 e22e | . | Load 0x1,0x2e 0497 01d5 | | Execute Vector,Field_Reference 0498 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0499 01d7 | | Execute Vector,Field_Read 049a a40c | | Store_Unchecked 0x2,0xc 049b 00d8 | | Load_Top At_Offset_0 049c 0a01 | | Execute_Immediate Plus,0x1 049d e417 | | Load 0x2,0x17 049e e22e | . | Load 0x1,0x2e 049f 01d5 | | Execute Vector,Field_Reference 04a0 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 04a1 01d7 | | Execute Vector,Field_Read 04a2 00d9 | | Load_Top At_Offset_1 04a3 e417 | | Load 0x2,0x17 04a4 e22e | . | Load 0x1,0x2e 04a5 01d5 | | Execute Vector,Field_Reference 04a6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 04a7 01d6 | | Execute Vector,Field_Write 04a8 00c8 | | Action Pop_Auxiliary_Range 04a9 3fde |? | Loop_Increasing 0x488 04aa 00ce | | Action Pop_Auxiliary 04ab 00d8 | | Load_Top At_Offset_0 04ac e22e | . | Load 0x1,0x2e 04ad 01d5 | | Execute Vector,Field_Reference 04ae 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 04af e009 | | Load 0x0,0x9 04b0 180d | | Execute Package,Field_Execute,Field_Number 0xd 04b1 e227 | ' | Load 0x1,0x27 04b2 01d4 | | Execute Vector,Structure_Write 04b3 481e |H | Short_Literal 0x1e 04b4 a407 | | Store_Unchecked 0x2,0x7 04b5 00cf | | Action Mark_Auxiliary 04b6 4801 |H | Short_Literal 0x1 04b7 481e |H | Short_Literal 0x1e 04b8 0007 | | Action Break_Optional 04b9 00d8 | | Load_Top At_Offset_0 04ba e227 | ' | Load 0x1,0x27 04bb 01d7 | | Execute Vector,Field_Read 04bc 7007 |p | Jump_Nonzero 0x4c4 04bd 4820 |H | Short_Literal 0x20 04be 00d9 | | Load_Top At_Offset_1 04bf e227 | ' | Load 0x1,0x27 04c0 01d6 | | Execute Vector,Field_Write 04c1 00d8 | | Load_Top At_Offset_0 04c2 a407 | | Store_Unchecked 0x2,0x7 04c3 7802 |x | Jump 0x4c6 04c4 00d2 | | Pop_Control Pop_Count_2 04c5 7802 |x | Jump 0x4c8 04c6 00c8 | | Action Pop_Auxiliary_Range 04c7 37f1 |7 | Loop_Decreasing 0x4b9 04c8 00ce | | Action Pop_Auxiliary 04c9 e402 | | Load 0x2,0x2 04ca e227 | ' | Load 0x1,0x27 04cb e00a | | Load 0x0,0xa 04cc 1810 | | Execute Package,Field_Execute,Field_Number 0x10 04cd 00d1 | | Pop_Control Pop_Count_1 04ce e402 | | Load 0x2,0x2 04cf 4820 |H | Short_Literal 0x20 04d0 e407 | | Load 0x2,0x7 04d1 0aff | | Execute_Immediate Plus,-0x1 04d2 00d8 | | Load_Top At_Offset_0 04d3 00e3 | | Load_Encached Natural_Cache 04d4 0260 | ` | Execute Discrete,In_Type 04d5 7001 |p | Jump_Nonzero 0x4d7 04d6 0801 | | Execute_Immediate Raise,0x1 04d7 e00a | | Load 0x0,0xa 04d8 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 04d9 00d1 | | Pop_Control Pop_Count_1 04da e40d | | Load 0x2,0xd 04db e402 | | Load 0x2,0x2 04dc e01a | | Load 0x0,0x1a 04dd 180d | | Execute Package,Field_Execute,Field_Number 0xd 04de 682e |h. | Jump_Zero 0x50d 04df 4820 |H | Short_Literal 0x20 04e0 4805 |H | Short_Literal 0x5 04e1 480a |H | Short_Literal 0xa 04e2 e403 | | Load 0x2,0x3 04e3 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 04e4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04e5 e00b | | Load 0x0,0xb 04e6 1816 | | Execute Package,Field_Execute,Field_Number 0x16 04e7 e231 | 1 | Load 0x1,0x31 04e8 01d4 | | Execute Vector,Structure_Write 04e9 e40b | | Load 0x2,0xb 04ea e403 | | Load 0x2,0x3 04eb 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 04ec 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 04ed 0273 | s | Execute Discrete,Plus 04ee c40b | | Store 0x2,0xb 04ef e404 | | Load 0x2,0x4 04f0 0a01 | | Execute_Immediate Plus,0x1 04f1 c404 | | Store 0x2,0x4 04f2 e408 | | Load 0x2,0x8 04f3 e403 | | Load 0x2,0x3 04f4 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 04f5 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 04f6 e01b | | Load 0x0,0x1b 04f7 180e | | Execute Package,Field_Execute,Field_Number 0xe 04f8 e00a | | Load 0x0,0xa 04f9 180f | | Execute Package,Field_Execute,Field_Number 0xf 04fa 00d1 | | Pop_Control Pop_Count_1 04fb 4809 |H | Short_Literal 0x9 04fc e227 | ' | Load 0x1,0x27 04fd 0092 0872 | r| Action Push_String_Extended,0x872 ; " " 04ff 01cc | | Execute Vector,Catenate 0500 e231 | 1 | Load 0x1,0x31 0501 01cc | | Execute Vector,Catenate 0502 01cb | | Execute Vector,Append 0503 e408 | | Load 0x2,0x8 0504 e00a | | Load 0x0,0xa 0505 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0506 01cc | | Execute Vector,Catenate 0507 e00c | | Load 0x0,0xc 0508 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0509 e5fe | | Load 0x2,-0x2 050a 6802 |h | Jump_Zero 0x50d 050b e403 | | Load 0x2,0x3 050c 8236 | 6 | Call 0x1,0x36 050d 00c8 | | Action Pop_Auxiliary_Range 050e 3f66 |?f | Loop_Increasing 0x475 050f 00ce | | Action Pop_Auxiliary 0510 00c8 | | Action Pop_Auxiliary_Range 0511 3f20 |? | Loop_Increasing 0x432 0512 00ce | | Action Pop_Auxiliary 0513 e404 | | Load 0x2,0x4 0514 0c02 | | Execute_Immediate Greater_Equal,0x2 0515 6813 |h | Jump_Zero 0x529 0516 0092 0873 | s| Action Push_String_Extended,0x873 ; "Total of_" 0518 e40b | | Load 0x2,0xb 0519 00e0 | | Load_Encached Standard_Cache 051a 1818 | | Execute Package,Field_Execute,Field_Number 0x18 051b 01cc | | Execute Vector,Catenate 051c 0092 0874 | t| Action Push_String_Extended,0x874 ; " Pages in_" 051e 01cc | | Execute Vector,Catenate 051f e404 | | Load 0x2,0x4 0520 00e0 | | Load_Encached Standard_Cache 0521 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0522 01cc | | Execute Vector,Catenate 0523 0092 0875 | u| Action Push_String_Extended,0x875 ; " Files." 0525 01cc | | Execute Vector,Catenate 0526 e00c | | Load 0x0,0xc 0527 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0528 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0529 e404 | | Load 0x2,0x4 052a 7004 |p | Jump_Nonzero 0x52f 052b 0092 0876 | v| Action Push_String_Extended,0x876 ; "No files found." 052d e00c | | Load 0x0,0xc 052e 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 052f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0530 0000 0000 | | .LITERAL {0x00000000, 0x000007ff} 0534 0000 0000 | | .BLANK 0000[0x4] 0538 ; -------------------------------------------------------------------------------------- 0538 ; SUBPROGRAM 0538 ; -------------------------------------------------------------------------------------- 0538 053f | ? | .CONST 0x053f ; Address of begin 0539 0004 | | .CONST 0x0004 ; Address of exception handler 053a 0005 | | .CONST 0x0005 ; Number of locals 053b INIT_0538: 053b 00e2 | | Load_Encached Integer_Cache 053c 00e2 | | Load_Encached Integer_Cache 053d 00e2 | | Load_Encached Integer_Cache 053e 00e1 | | Load_Encached Boolean_Cache 053f BODY_0538: 053f 4800 |H | Short_Literal 0x0 0540 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 0541 4800 |H | Short_Literal 0x0 0542 a402 | | Store_Unchecked 0x2,0x2 0543 00cf | | Action Mark_Auxiliary 0544 e5ff | | Load 0x2,-0x1 0545 e00a | | Load 0x0,0xa 0546 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0547 4801 |H | Short_Literal 0x1 0548 0263 | c | Execute Discrete,Above_Bound 0549 710a |q | Jump_Nonzero 0x654 054a 00d8 | | Load_Top At_Offset_0 054b e5ff | | Load 0x2,-0x1 054c e00a | | Load 0x0,0xa 054d 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 054e e00b | | Load 0x0,0xb 054f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0550 467f |F | Jump_Case 0x80 0551 787f |x | Jump 0x5d1 ; case 0x0 0552 787e |x~ | Jump 0x5d1 ; case 0x1 0553 787d |x} | Jump 0x5d1 ; case 0x2 0554 787c |x| | Jump 0x5d1 ; case 0x3 0555 787b |x{ | Jump 0x5d1 ; case 0x4 0556 787a |xz | Jump 0x5d1 ; case 0x5 0557 7879 |xy | Jump 0x5d1 ; case 0x6 0558 7878 |xx | Jump 0x5d1 ; case 0x7 0559 7877 |xw | Jump 0x5d1 ; case 0x8 055a 7876 |xv | Jump 0x5d1 ; case 0x9 055b 7875 |xu | Jump 0x5d1 ; case 0xa 055c 7874 |xt | Jump 0x5d1 ; case 0xb 055d 7873 |xs | Jump 0x5d1 ; case 0xc 055e 7872 |xr | Jump 0x5d1 ; case 0xd 055f 7871 |xq | Jump 0x5d1 ; case 0xe 0560 7870 |xp | Jump 0x5d1 ; case 0xf 0561 786f |xo | Jump 0x5d1 ; case 0x10 0562 786e |xn | Jump 0x5d1 ; case 0x11 0563 786d |xm | Jump 0x5d1 ; case 0x12 0564 786c |xl | Jump 0x5d1 ; case 0x13 0565 786b |xk | Jump 0x5d1 ; case 0x14 0566 786a |xj | Jump 0x5d1 ; case 0x15 0567 7869 |xi | Jump 0x5d1 ; case 0x16 0568 7868 |xh | Jump 0x5d1 ; case 0x17 0569 7867 |xg | Jump 0x5d1 ; case 0x18 056a 7866 |xf | Jump 0x5d1 ; case 0x19 056b 7865 |xe | Jump 0x5d1 ; case 0x1a 056c 7864 |xd | Jump 0x5d1 ; case 0x1b 056d 7863 |xc | Jump 0x5d1 ; case 0x1c 056e 7862 |xb | Jump 0x5d1 ; case 0x1d 056f 7861 |xa | Jump 0x5d1 ; case 0x1e 0570 7860 |x` | Jump 0x5d1 ; case 0x1f 0571 785f |x_ | Jump 0x5d1 ; case 0x20 0572 785e |x^ | Jump 0x5d1 ; case 0x21 0573 785d |x] | Jump 0x5d1 ; case 0x22 0574 785c |x\ | Jump 0x5d1 ; case 0x23 0575 78ca |x | Jump 0x640 ; case 0x24 0576 785a |xZ | Jump 0x5d1 ; case 0x25 0577 7859 |xY | Jump 0x5d1 ; case 0x26 0578 7858 |xX | Jump 0x5d1 ; case 0x27 0579 7857 |xW | Jump 0x5d1 ; case 0x28 057a 7856 |xV | Jump 0x5d1 ; case 0x29 057b 7855 |xU | Jump 0x5d1 ; case 0x2a 057c 7854 |xT | Jump 0x5d1 ; case 0x2b 057d 7853 |xS | Jump 0x5d1 ; case 0x2c 057e 7852 |xR | Jump 0x5d1 ; case 0x2d 057f 78c9 |x | Jump 0x649 ; case 0x2e 0580 7850 |xP | Jump 0x5d1 ; case 0x2f 0581 78a0 |x | Jump 0x622 ; case 0x30 0582 78a2 |x | Jump 0x625 ; case 0x31 0583 78a4 |x | Jump 0x628 ; case 0x32 0584 78a6 |x | Jump 0x62b ; case 0x33 0585 78a8 |x | Jump 0x62e ; case 0x34 0586 78aa |x | Jump 0x631 ; case 0x35 0587 78ac |x | Jump 0x634 ; case 0x36 0588 78ae |x | Jump 0x637 ; case 0x37 0589 78b0 |x | Jump 0x63a ; case 0x38 058a 78b2 |x | Jump 0x63d ; case 0x39 058b 7845 |xE | Jump 0x5d1 ; case 0x3a 058c 7844 |xD | Jump 0x5d1 ; case 0x3b 058d 7843 |xC | Jump 0x5d1 ; case 0x3c 058e 7842 |xB | Jump 0x5d1 ; case 0x3d 058f 7841 |xA | Jump 0x5d1 ; case 0x3e 0590 78b5 |x | Jump 0x646 ; case 0x3f 0591 783f |x? | Jump 0x5d1 ; case 0x40 0592 7841 |xA | Jump 0x5d4 ; case 0x41 0593 7843 |xC | Jump 0x5d7 ; case 0x42 0594 7845 |xE | Jump 0x5da ; case 0x43 0595 7847 |xG | Jump 0x5dd ; case 0x44 0596 7849 |xI | Jump 0x5e0 ; case 0x45 0597 784b |xK | Jump 0x5e3 ; case 0x46 0598 784d |xM | Jump 0x5e6 ; case 0x47 0599 784f |xO | Jump 0x5e9 ; case 0x48 059a 7851 |xQ | Jump 0x5ec ; case 0x49 059b 7853 |xS | Jump 0x5ef ; case 0x4a 059c 7855 |xU | Jump 0x5f2 ; case 0x4b 059d 7857 |xW | Jump 0x5f5 ; case 0x4c 059e 7859 |xY | Jump 0x5f8 ; case 0x4d 059f 785b |x[ | Jump 0x5fb ; case 0x4e 05a0 785d |x] | Jump 0x5fe ; case 0x4f 05a1 785f |x_ | Jump 0x601 ; case 0x50 05a2 7861 |xa | Jump 0x604 ; case 0x51 05a3 7863 |xc | Jump 0x607 ; case 0x52 05a4 7865 |xe | Jump 0x60a ; case 0x53 05a5 7867 |xg | Jump 0x60d ; case 0x54 05a6 7869 |xi | Jump 0x610 ; case 0x55 05a7 786b |xk | Jump 0x613 ; case 0x56 05a8 786d |xm | Jump 0x616 ; case 0x57 05a9 786f |xo | Jump 0x619 ; case 0x58 05aa 7871 |xq | Jump 0x61c ; case 0x59 05ab 7873 |xs | Jump 0x61f ; case 0x5a 05ac 7824 |x$ | Jump 0x5d1 ; case 0x5b 05ad 7823 |x# | Jump 0x5d1 ; case 0x5c 05ae 7822 |x" | Jump 0x5d1 ; case 0x5d 05af 7821 |x! | Jump 0x5d1 ; case 0x5e 05b0 7892 |x | Jump 0x643 ; case 0x5f 05b1 781f |x | Jump 0x5d1 ; case 0x60 05b2 781e |x | Jump 0x5d1 ; case 0x61 05b3 781d |x | Jump 0x5d1 ; case 0x62 05b4 781c |x | Jump 0x5d1 ; case 0x63 05b5 781b |x | Jump 0x5d1 ; case 0x64 05b6 781a |x | Jump 0x5d1 ; case 0x65 05b7 7819 |x | Jump 0x5d1 ; case 0x66 05b8 7818 |x | Jump 0x5d1 ; case 0x67 05b9 7817 |x | Jump 0x5d1 ; case 0x68 05ba 7816 |x | Jump 0x5d1 ; case 0x69 05bb 7815 |x | Jump 0x5d1 ; case 0x6a 05bc 7814 |x | Jump 0x5d1 ; case 0x6b 05bd 7813 |x | Jump 0x5d1 ; case 0x6c 05be 7812 |x | Jump 0x5d1 ; case 0x6d 05bf 7811 |x | Jump 0x5d1 ; case 0x6e 05c0 7810 |x | Jump 0x5d1 ; case 0x6f 05c1 780f |x | Jump 0x5d1 ; case 0x70 05c2 780e |x | Jump 0x5d1 ; case 0x71 05c3 780d |x | Jump 0x5d1 ; case 0x72 05c4 780c |x | Jump 0x5d1 ; case 0x73 05c5 780b |x | Jump 0x5d1 ; case 0x74 05c6 780a |x | Jump 0x5d1 ; case 0x75 05c7 7809 |x | Jump 0x5d1 ; case 0x76 05c8 7808 |x | Jump 0x5d1 ; case 0x77 05c9 7807 |x | Jump 0x5d1 ; case 0x78 05ca 7806 |x | Jump 0x5d1 ; case 0x79 05cb 7805 |x | Jump 0x5d1 ; case 0x7a 05cc 7804 |x | Jump 0x5d1 ; case 0x7b 05cd 7803 |x | Jump 0x5d1 ; case 0x7c 05ce 7802 |x | Jump 0x5d1 ; case 0x7d 05cf 7801 |x | Jump 0x5d1 ; case 0x7e 05d0 7800 |x | Jump 0x5d1 ; case 0x7f 05d1 4801 |H | Short_Literal 0x1 05d2 a405 | | Store_Unchecked 0x2,0x5 05d3 7877 |xw | Jump 0x64b 05d4 4801 |H | Short_Literal 0x1 05d5 a404 | | Store_Unchecked 0x2,0x4 05d6 7874 |xt | Jump 0x64b 05d7 4808 |H | Short_Literal 0x8 05d8 a404 | | Store_Unchecked 0x2,0x4 05d9 7871 |xq | Jump 0x64b 05da 481b |H | Short_Literal 0x1b 05db a404 | | Store_Unchecked 0x2,0x4 05dc 786e |xn | Jump 0x64b 05dd 4840 |H@ | Short_Literal 0x40 05de a404 | | Store_Unchecked 0x2,0x4 05df 786b |xk | Jump 0x64b 05e0 487d |H} | Short_Literal 0x7d 05e1 a404 | | Store_Unchecked 0x2,0x4 05e2 7868 |xh | Jump 0x64b 05e3 48d8 |H | Short_Literal 0xd8 05e4 a404 | | Store_Unchecked 0x2,0x4 05e5 7865 |xe | Jump 0x64b 05e6 4957 |IW | Short_Literal 0x157 05e7 a404 | | Store_Unchecked 0x2,0x4 05e8 7862 |xb | Jump 0x64b 05e9 4a00 |J | Short_Literal 0x200 05ea a404 | | Store_Unchecked 0x2,0x4 05eb 785f |x_ | Jump 0x64b 05ec 4ad9 |J | Short_Literal 0x2d9 05ed a404 | | Store_Unchecked 0x2,0x4 05ee 785c |x\ | Jump 0x64b 05ef 4be8 |K | Short_Literal 0x3e8 05f0 a404 | | Store_Unchecked 0x2,0x4 05f1 7859 |xY | Jump 0x64b 05f2 60ed |` | Indirect_Literal Discrete,0x6e0,{0x00000000, 0x00000533} 05f3 a404 | | Store_Unchecked 0x2,0x4 05f4 7856 |xV | Jump 0x64b 05f5 60e6 |` | Indirect_Literal Discrete,0x6dc,{0x00000000, 0x000006c0} 05f6 a404 | | Store_Unchecked 0x2,0x4 05f7 7853 |xS | Jump 0x64b 05f8 60df |` | Indirect_Literal Discrete,0x6d8,{0x00000000, 0x00000895} 05f9 a404 | | Store_Unchecked 0x2,0x4 05fa 7850 |xP | Jump 0x64b 05fb 60d8 |` | Indirect_Literal Discrete,0x6d4,{0x00000000, 0x00000ab8} 05fc a404 | | Store_Unchecked 0x2,0x4 05fd 784d |xM | Jump 0x64b 05fe 60d1 |` | Indirect_Literal Discrete,0x6d0,{0x00000000, 0x00000d2f} 05ff a404 | | Store_Unchecked 0x2,0x4 0600 784a |xJ | Jump 0x64b 0601 60ca |` | Indirect_Literal Discrete,0x6cc,{0x00000000, 0x00001000} 0602 a404 | | Store_Unchecked 0x2,0x4 0603 7847 |xG | Jump 0x64b 0604 60c3 |` | Indirect_Literal Discrete,0x6c8,{0x00000000, 0x00001331} 0605 a404 | | Store_Unchecked 0x2,0x4 0606 7844 |xD | Jump 0x64b 0607 60bc |` | Indirect_Literal Discrete,0x6c4,{0x00000000, 0x000016c8} 0608 a404 | | Store_Unchecked 0x2,0x4 0609 7841 |xA | Jump 0x64b 060a 60b5 |` | Indirect_Literal Discrete,0x6c0,{0x00000000, 0x00001acb} 060b a404 | | Store_Unchecked 0x2,0x4 060c 783e |x> | Jump 0x64b 060d 60ae |` | Indirect_Literal Discrete,0x6bc,{0x00000000, 0x00001f40} 060e a404 | | Store_Unchecked 0x2,0x4 060f 783b |x; | Jump 0x64b 0610 60a7 |` | Indirect_Literal Discrete,0x6b8,{0x00000000, 0x0000242d} 0611 a404 | | Store_Unchecked 0x2,0x4 0612 7838 |x8 | Jump 0x64b 0613 60a0 |` | Indirect_Literal Discrete,0x6b4,{0x00000000, 0x00002998} 0614 a404 | | Store_Unchecked 0x2,0x4 0615 7835 |x5 | Jump 0x64b 0616 6099 |` | Indirect_Literal Discrete,0x6b0,{0x00000000, 0x00002f87} 0617 a404 | | Store_Unchecked 0x2,0x4 0618 7832 |x2 | Jump 0x64b 0619 6092 |` | Indirect_Literal Discrete,0x6ac,{0x00000000, 0x00003600} 061a a404 | | Store_Unchecked 0x2,0x4 061b 782f |x/ | Jump 0x64b 061c 608b |` | Indirect_Literal Discrete,0x6a8,{0x00000000, 0x00003d09} 061d a404 | | Store_Unchecked 0x2,0x4 061e 782c |x, | Jump 0x64b 061f 6084 |` | Indirect_Literal Discrete,0x6a4,{0x00000000, 0x000044a8} 0620 a404 | | Store_Unchecked 0x2,0x4 0621 7829 |x) | Jump 0x64b 0622 607d |`} | Indirect_Literal Discrete,0x6a0,{0x00000000, 0x0001b000} 0623 a404 | | Store_Unchecked 0x2,0x4 0624 7826 |x& | Jump 0x64b 0625 6076 |`v | Indirect_Literal Discrete,0x69c,{0x00000000, 0x0001cb91} 0626 a404 | | Store_Unchecked 0x2,0x4 0627 7823 |x# | Jump 0x64b 0628 606f |`o | Indirect_Literal Discrete,0x698,{0x00000000, 0x0001e848} 0629 a404 | | Store_Unchecked 0x2,0x4 062a 7820 |x | Jump 0x64b 062b 6068 |`h | Indirect_Literal Discrete,0x694,{0x00000000, 0x0002062b} 062c a404 | | Store_Unchecked 0x2,0x4 062d 781d |x | Jump 0x64b 062e 6061 |`a | Indirect_Literal Discrete,0x690,{0x00000000, 0x00022540} 062f a404 | | Store_Unchecked 0x2,0x4 0630 781a |x | Jump 0x64b 0631 605a |`Z | Indirect_Literal Discrete,0x68c,{0x00000000, 0x0002458d} 0632 a404 | | Store_Unchecked 0x2,0x4 0633 7817 |x | Jump 0x64b 0634 6053 |`S | Indirect_Literal Discrete,0x688,{0x00000000, 0x00026718} 0635 a404 | | Store_Unchecked 0x2,0x4 0636 7814 |x | Jump 0x64b 0637 604c |`L | Indirect_Literal Discrete,0x684,{0x00000000, 0x000289e7} 0638 a404 | | Store_Unchecked 0x2,0x4 0639 7811 |x | Jump 0x64b 063a 6045 |`E | Indirect_Literal Discrete,0x680,{0x00000000, 0x0002ae00} 063b a404 | | Store_Unchecked 0x2,0x4 063c 780e |x | Jump 0x64b 063d 603e |`> | Indirect_Literal Discrete,0x67c,{0x00000000, 0x0002d369} 063e a404 | | Store_Unchecked 0x2,0x4 063f 780b |x | Jump 0x64b 0640 6037 |`7 | Indirect_Literal Discrete,0x678,{0x00000000, 0x0000b640} 0641 a404 | | Store_Unchecked 0x2,0x4 0642 7808 |x | Jump 0x64b 0643 6030 |`0 | Indirect_Literal Discrete,0x674,{0x00000000, 0x0000745f} 0644 a404 | | Store_Unchecked 0x2,0x4 0645 7805 |x | Jump 0x64b 0646 6029 |`) | Indirect_Literal Discrete,0x670,{0x00000000, 0x0003d0bf} 0647 a404 | | Store_Unchecked 0x2,0x4 0648 7802 |x | Jump 0x64b 0649 6022 |`" | Indirect_Literal Discrete,0x66c,{0x00000000, 0x00017c38} 064a a404 | | Store_Unchecked 0x2,0x4 064b e402 | | Load 0x2,0x2 064c e404 | | Load 0x2,0x4 064d 00da | | Load_Top At_Offset_2 064e 0271 | q | Execute Discrete,Times 064f 0273 | s | Execute Discrete,Plus 0650 c402 | | Store 0x2,0x2 0651 00c8 | | Action Pop_Auxiliary_Range 0652 00a4 054a | J| Action Loop_Increasing_Extended,0x54a 0654 00ce | | Action Pop_Auxiliary 0655 00d8 | | Load_Top At_Offset_0 0656 6802 |h | Jump_Zero 0x659 0657 4800 |H | Short_Literal 0x0 0658 a402 | | Store_Unchecked 0x2,0x2 0659 00db | | Load_Top At_Offset_3 065a 600d |` | Indirect_Literal Discrete,0x668,{0x00000000, 0x0000ffff} 065b 027d | } | Execute Discrete,Greater 065c 6804 |h | Jump_Zero 0x661 065d 00db | | Load_Top At_Offset_3 065e 6005 |` | Indirect_Literal Discrete,0x664,{0x00000000, 0x00010000} 065f 026f | o | Execute Discrete,Remainder 0660 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0661 00db | | Load_Top At_Offset_3 0662 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0663 0000 | | .XXX[0x1] 0664 0000 0000 | | .LITERAL {0x00000000, 0x00010000} 0668 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff} 066c 0000 0000 | | .LITERAL {0x00000000, 0x00017c38} 0670 0000 0000 | | .LITERAL {0x00000000, 0x0003d0bf} 0674 0000 0000 | | .LITERAL {0x00000000, 0x0000745f} 0678 0000 0000 | | .LITERAL {0x00000000, 0x0000b640} 067c 0000 0000 | | .LITERAL {0x00000000, 0x0002d369} 0680 0000 0000 | | .LITERAL {0x00000000, 0x0002ae00} 0684 0000 0000 | | .LITERAL {0x00000000, 0x000289e7} 0688 0000 0000 | | .LITERAL {0x00000000, 0x00026718} 068c 0000 0000 | | .LITERAL {0x00000000, 0x0002458d} 0690 0000 0000 | | .LITERAL {0x00000000, 0x00022540} 0694 0000 0000 | | .LITERAL {0x00000000, 0x0002062b} 0698 0000 0000 | | .LITERAL {0x00000000, 0x0001e848} 069c 0000 0000 | | .LITERAL {0x00000000, 0x0001cb91} 06a0 0000 0000 | | .LITERAL {0x00000000, 0x0001b000} 06a4 0000 0000 | | .LITERAL {0x00000000, 0x000044a8} 06a8 0000 0000 | | .LITERAL {0x00000000, 0x00003d09} 06ac 0000 0000 | | .LITERAL {0x00000000, 0x00003600} 06b0 0000 0000 | | .LITERAL {0x00000000, 0x00002f87} 06b4 0000 0000 | | .LITERAL {0x00000000, 0x00002998} 06b8 0000 0000 | | .LITERAL {0x00000000, 0x0000242d} 06bc 0000 0000 | | .LITERAL {0x00000000, 0x00001f40} 06c0 0000 0000 | | .LITERAL {0x00000000, 0x00001acb} 06c4 0000 0000 | | .LITERAL {0x00000000, 0x000016c8} 06c8 0000 0000 | | .LITERAL {0x00000000, 0x00001331} 06cc 0000 0000 | | .LITERAL {0x00000000, 0x00001000} 06d0 0000 0000 | | .LITERAL {0x00000000, 0x00000d2f} 06d4 0000 0000 | | .LITERAL {0x00000000, 0x00000ab8} 06d8 0000 0000 | | .LITERAL {0x00000000, 0x00000895} 06dc 0000 0000 | | .LITERAL {0x00000000, 0x000006c0} 06e0 0000 0000 | | .LITERAL {0x00000000, 0x00000533} 06e4 0000 0000 | | .BLANK 0000[0x4] 06e8 ; -------------------------------------------------------------------------------------- 06e8 ; SUBPROGRAM 06e8 ; -------------------------------------------------------------------------------------- 06e8 06fd | | .CONST 0x06fd ; Address of begin 06e9 0004 | | .CONST 0x0004 ; Address of exception handler 06ea 0007 | | .CONST 0x0007 ; Number of locals 06eb INIT_06e8: 06eb 4800 |H | Short_Literal 0x0 06ec 4bff |K | Short_Literal 0x3ff 06ed e005 | | Load 0x0,0x5 06ee 1b11 | | Execute Package,Field_Read,Field_Number 0x11 06ef 02a0 | | Declare_Subprogram Null_Subprogram 06f0 4801 |H | Short_Literal 0x1 06f1 035d | ] | Declare_Type Array,Defined 06f2 e003 | | Load 0x0,0x3 06f3 1b16 | | Execute Package,Field_Read,Field_Number 0x16 06f4 1910 | | Execute Package,Field_Reference,Field_Number 0x10 06f5 00c6 | | Action Check_Subprogram_Elaborated 06f6 00d8 | | Load_Top At_Offset_0 06f7 e01c | | Load 0x0,0x1c 06f8 e01d | | Load 0x0,0x1d 06f9 4806 |H | Short_Literal 0x6 06fa 0007 | | Action Break_Optional 06fb e402 | | Load 0x2,0x2 06fc 0337 | 7 | Declare_Variable Array 06fd BODY_06e8: 06fd 4800 |H | Short_Literal 0x0 06fe e22b | + | Load 0x1,0x2b 06ff 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0700 4800 |H | Short_Literal 0x0 0701 e22b | + | Load 0x1,0x2b 0702 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0703 4802 |H | Short_Literal 0x2 0704 e22b | + | Load 0x1,0x2b 0705 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0706 e22b | + | Load 0x1,0x2b 0707 e403 | | Load 0x2,0x3 0708 4804 |H | Short_Literal 0x4 0709 4802 |H | Short_Literal 0x2 070a 0099 | | Action Reference_Dynamic 070b e003 | | Load 0x0,0x3 070c 1b16 | | Execute Package,Field_Read,Field_Number 0x16 070d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 070e 00d9 | | Load_Top At_Offset_1 070f 01d4 | | Execute Vector,Structure_Write 0710 4802 |H | Short_Literal 0x2 0711 00d9 | | Load_Top At_Offset_1 0712 01d7 | | Execute Vector,Field_Read 0713 0f45 | E | Execute_Immediate Equal,0x45 0714 4803 |H | Short_Literal 0x3 0715 00da | | Load_Top At_Offset_2 0716 01d7 | | Execute Vector,Field_Read 0717 0f4b | K | Execute_Immediate Equal,0x4b 0718 0279 | y | Execute Discrete,And 0719 6802 |h | Jump_Zero 0x71c 071a 4801 |H | Short_Literal 0x1 071b a228 | ( | Store_Unchecked 0x1,0x28 071c 4802 |H | Short_Literal 0x2 071d 00d9 | | Load_Top At_Offset_1 071e 01d7 | | Execute Vector,Field_Read 071f 0f4b | K | Execute_Immediate Equal,0x4b 0720 4803 |H | Short_Literal 0x3 0721 00da | | Load_Top At_Offset_2 0722 01d7 | | Execute Vector,Field_Read 0723 0f45 | E | Execute_Immediate Equal,0x45 0724 0279 | y | Execute Discrete,And 0725 6802 |h | Jump_Zero 0x728 0726 4802 |H | Short_Literal 0x2 0727 a228 | ( | Store_Unchecked 0x1,0x28 0728 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0729 0000 0000 | | .BLANK 0000[0x7] 0730 ; -------------------------------------------------------------------------------------- 0730 ; SUBPROGRAM 0730 ; -------------------------------------------------------------------------------------- 0730 073b | ; | .CONST 0x073b ; Address of begin 0731 0004 | | .CONST 0x0004 ; Address of exception handler 0732 0003 | | .CONST 0x0003 ; Number of locals 0733 INIT_0730: 0733 4850 |HP | Short_Literal 0x50 0734 e00a | | Load 0x0,0xa 0735 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0736 1c08 | | Execute_Immediate Run_Utility,0x8 0737 00d8 | | Load_Top At_Offset_0 0738 1c00 | | Execute_Immediate Run_Utility,0x0 0739 029f 0813 | | Declare_Subprogram INIT_0810,For_Call 073b BODY_0730: 073b e5ff | | Load 0x2,-0x1 073c 4602 |F | Jump_Case 0x3 073d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0x0 073e 7803 |x | Jump 0x742 ; case 0x1 073f 7800 |x | Jump 0x740 ; case 0x2 0740 8403 | | Call 0x2,0x3 0741 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0742 00d9 | | Load_Top At_Offset_1 0743 e5fd | | Load 0x2,-0x3 0744 8226 | & | Call 0x1,0x26 0745 00d1 | | Pop_Control Pop_Count_1 0746 00d9 | | Load_Top At_Offset_1 0747 e5fe | | Load 0x2,-0x2 0748 e00a | | Load 0x0,0xa 0749 1817 | | Execute Package,Field_Execute,Field_Number 0x17 074a 00d1 | | Pop_Control Pop_Count_1 074b 00d9 | | Load_Top At_Offset_1 074c e00a | | Load 0x0,0xa 074d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 074e e00c | | Load 0x0,0xc 074f 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0750 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0751 0000 0000 | | .BLANK 0000[0x7] 0758 ; -------------------------------------------------------------------------------------- 0758 ; SUBPROGRAM 0758 ; -------------------------------------------------------------------------------------- 0758 075f | _ | .CONST 0x075f ; Address of begin 0759 0004 | | .CONST 0x0004 ; Address of exception handler 075a 0004 | | .CONST 0x0004 ; Number of locals 075b INIT_0758: 075b e001 | | Load 0x0,0x1 075c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 075d 00e2 | | Load_Encached Integer_Cache 075e 00e2 | | Load_Encached Integer_Cache 075f BODY_0758: 075f 4800 |H | Short_Literal 0x0 0760 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0761 4800 |H | Short_Literal 0x0 0762 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0763 00cf | | Action Mark_Auxiliary 0764 780b |x | Jump 0x770 0765 00da | | Load_Top At_Offset_2 0766 e5ff | | Load 0x2,-0x1 0767 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0768 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0769 01d5 | | Execute Vector,Field_Reference 076a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 076b a402 | | Store_Unchecked 0x2,0x2 076c 00da | | Load_Top At_Offset_2 076d 0a01 | | Execute_Immediate Plus,0x1 076e 005b | [ | Store_Top Discrete,At_Offset_3 076f 00c9 | | Action Pop_Auxiliary_Loop 0770 00da | | Load_Top At_Offset_2 0771 e5ff | | Load 0x2,-0x1 0772 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0773 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0774 01d5 | | Execute Vector,Field_Reference 0775 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0776 e5fe | | Load 0x2,-0x2 0777 027a | z | Execute Discrete,Less_Equal 0778 77ec |w | Jump_Nonzero 0x765 0779 00ce | | Action Pop_Auxiliary 077a 00d9 | | Load_Top At_Offset_1 077b e5ff | | Load 0x2,-0x1 077c 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 077d 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 077e 01d5 | | Execute Vector,Field_Reference 077f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0780 e5fe | | Load 0x2,-0x2 0781 e402 | | Load 0x2,0x2 0782 0272 | r | Execute Discrete,Minus 0783 0273 | s | Execute Discrete,Plus 0784 00d8 | | Load_Top At_Offset_0 0785 00e2 | | Load_Encached Integer_Cache 0786 0260 | ` | Execute Discrete,In_Type 0787 7001 |p | Jump_Nonzero 0x789 0788 0801 | | Execute_Immediate Raise,0x1 0789 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 078a 00d8 | | Load_Top At_Offset_0 078b e22d | - | Load 0x1,0x2d 078c 0270 | p | Execute Discrete,Divide 078d 00d8 | | Load_Top At_Offset_0 078e e008 | | Load 0x0,0x8 078f 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0790 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0791 0260 | ` | Execute Discrete,In_Type 0792 7001 |p | Jump_Nonzero 0x794 0793 0801 | | Execute_Immediate Raise,0x1 0794 e22b | + | Load 0x1,0x2b 0795 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0796 00d8 | | Load_Top At_Offset_0 0797 e22d | - | Load 0x1,0x2d 0798 026f | o | Execute Discrete,Remainder 0799 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 079a 00d8 | | Load_Top At_Offset_0 079b e22c | , | Load 0x1,0x2c 079c 0270 | p | Execute Discrete,Divide 079d 00d8 | | Load_Top At_Offset_0 079e e008 | | Load 0x0,0x8 079f 1b14 | | Execute Package,Field_Read,Field_Number 0x14 07a0 1b14 | | Execute Package,Field_Read,Field_Number 0x14 07a1 0260 | ` | Execute Discrete,In_Type 07a2 7001 |p | Jump_Nonzero 0x7a4 07a3 0801 | | Execute_Immediate Raise,0x1 07a4 e22b | + | Load 0x1,0x2b 07a5 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 07a6 00d8 | | Load_Top At_Offset_0 07a7 e22c | , | Load 0x1,0x2c 07a8 026f | o | Execute Discrete,Remainder 07a9 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 07aa 00d8 | | Load_Top At_Offset_0 07ab 0901 | | Execute_Immediate Binary_Scale,0x1 07ac 00d8 | | Load_Top At_Offset_0 07ad e008 | | Load 0x0,0x8 07ae 1b14 | | Execute Package,Field_Read,Field_Number 0x14 07af 1b15 | | Execute Package,Field_Read,Field_Number 0x15 07b0 0260 | ` | Execute Discrete,In_Type 07b1 7001 |p | Jump_Nonzero 0x7b3 07b2 0801 | | Execute_Immediate Raise,0x1 07b3 e22b | + | Load 0x1,0x2b 07b4 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 07b5 4503 |E | Exit_Suprogram New_Top_Offset 0x3 07b6 0000 0000 | | .XXX[0x2] 07b8 ; -------------------------------------------------------------------------------------- 07b8 ; SUBPROGRAM 07b8 ; -------------------------------------------------------------------------------------- 07b8 07be | | .CONST 0x07be ; Address of begin 07b9 0004 | | .CONST 0x0004 ; Address of exception handler 07ba 0003 | | .CONST 0x0003 ; Number of locals 07bb INIT_07b8: 07bb 00e2 | | Load_Encached Integer_Cache 07bc 029f 081b | | Declare_Subprogram INIT_0818,For_Call 07be BODY_07b8: 07be 0092 0877 | w| Action Push_String_Extended,0x877 ; " PERMANENT => " 07c0 e5ff | | Load 0x2,-0x1 07c1 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 07c2 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 07c3 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 07c4 00e1 | | Load_Encached Boolean_Cache 07c5 011c | | Execute Any,Convert_Unchecked 07c6 1c01 | | Execute_Immediate Run_Utility,0x1 07c7 01cc | | Execute Vector,Catenate 07c8 0092 0878 | x| Action Push_String_Extended,0x878 ; ", EXECUTABLE => " 07ca 01cc | | Execute Vector,Catenate 07cb e5ff | | Load 0x2,-0x1 07cc 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 07cd 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 07ce 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 07cf 00e1 | | Load_Encached Boolean_Cache 07d0 011c | | Execute Any,Convert_Unchecked 07d1 1c01 | | Execute_Immediate Run_Utility,0x1 07d2 01cc | | Execute Vector,Catenate 07d3 0092 0879 | y| Action Push_String_Extended,0x879 ; ", KERNEL => " 07d5 01cc | | Execute Vector,Catenate 07d6 e5ff | | Load 0x2,-0x1 07d7 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 07d8 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 07d9 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 07da 00e1 | | Load_Encached Boolean_Cache 07db 011c | | Execute Any,Convert_Unchecked 07dc 1c01 | | Execute_Immediate Run_Utility,0x1 07dd 01cc | | Execute Vector,Catenate 07de e00c | | Load 0x0,0xc 07df 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 07e0 4800 |H | Short_Literal 0x0 07e1 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 07e2 00cf | | Action Mark_Auxiliary 07e3 4805 |H | Short_Literal 0x5 07e4 4800 |H | Short_Literal 0x0 07e5 0007 | | Action Break_Optional 07e6 00d8 | | Load_Top At_Offset_0 07e7 e5ff | | Load 0x2,-0x1 07e8 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 07e9 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 07ea 01d5 | | Execute Vector,Field_Reference 07eb 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 07ec e402 | | Load 0x2,0x2 07ed 027b | { | Execute Discrete,Greater_Equal 07ee 6801 |h | Jump_Zero 0x7f0 07ef 8403 | | Call 0x2,0x3 07f0 00c8 | | Action Pop_Auxiliary_Range 07f1 3ff4 |? | Loop_Increasing 0x7e6 07f2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 07f3 0000 0000 | | .BLANK 0000[0x5] 07f8 ; -------------------------------------------------------------------------------------- 07f8 ; SUBPROGRAM 07f8 ; -------------------------------------------------------------------------------------- 07f8 07fb | | .CONST 0x07fb ; Address of begin 07f9 0004 | | .CONST 0x0004 ; Address of exception handler 07fa 0001 | | .CONST 0x0001 ; Number of locals 07fb BODY_07f8: 07fb INIT_07f8: 07fb e5fa | | Load 0x2,-0x6 07fc 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 07fd 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 07fe 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 07ff 0f00 | | Execute_Immediate Equal,0x0 0800 e403 | | Load 0x2,0x3 0801 0279 | y | Execute Discrete,And 0802 6803 |h | Jump_Zero 0x806 0803 4800 |H | Short_Literal 0x0 0804 a5fb | | Store_Unchecked 0x2,-0x5 0805 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0806 4802 |H | Short_Literal 0x2 0807 a5fb | | Store_Unchecked 0x2,-0x5 0808 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0809 0000 0000 | | .BLANK 0000[0x7] 0810 ; -------------------------------------------------------------------------------------- 0810 ; SUBPROGRAM 0810 ; -------------------------------------------------------------------------------------- 0810 0813 | | .CONST 0x0813 ; Address of begin 0811 0004 | | .CONST 0x0004 ; Address of exception handler 0812 0001 | | .CONST 0x0001 ; Number of locals 0813 BODY_0810: 0813 INIT_0810: 0813 08e2 | | Execute_Immediate Raise,0xe2 0814 0000 0000 | | .BLANK 0000[0x4] 0818 ; -------------------------------------------------------------------------------------- 0818 ; SUBPROGRAM 0818 ; -------------------------------------------------------------------------------------- 0818 081b | | .CONST 0x081b ; Address of begin 0819 0004 | | .CONST 0x0004 ; Address of exception handler 081a 0001 | | .CONST 0x0001 ; Number of locals 081b BODY_0818: 081b INIT_0818: 081b 0092 087a | z| Action Push_String_Extended,0x87a ; " File pages " 081d e402 | | Load 0x2,0x2 081e 0a01 | | Execute_Immediate Plus,0x1 081f 00d8 | | Load_Top At_Offset_0 0820 00e2 | | Load_Encached Integer_Cache 0821 0260 | ` | Execute Discrete,In_Type 0822 7001 |p | Jump_Nonzero 0x824 0823 0801 | | Execute_Immediate Raise,0x1 0824 00e0 | | Load_Encached Standard_Cache 0825 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0826 01cc | | Execute Vector,Catenate 0827 0092 087b | {| Action Push_String_Extended,0x87b ; " .. " 0829 01cc | | Execute Vector,Catenate 082a e406 | | Load 0x2,0x6 082b e5ff | | Load 0x2,-0x1 082c 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 082d 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 082e 01d5 | | Execute Vector,Field_Reference 082f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0830 0a01 | | Execute_Immediate Plus,0x1 0831 00d8 | | Load_Top At_Offset_0 0832 00e2 | | Load_Encached Integer_Cache 0833 0260 | ` | Execute Discrete,In_Type 0834 7001 |p | Jump_Nonzero 0x836 0835 0801 | | Execute_Immediate Raise,0x1 0836 00e0 | | Load_Encached Standard_Cache 0837 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0838 01cc | | Execute Vector,Catenate 0839 0092 087c | || Action Push_String_Extended,0x87c ; " are at disk block " 083b 01cc | | Execute Vector,Catenate 083c e406 | | Load 0x2,0x6 083d e5ff | | Load 0x2,-0x1 083e 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 083f 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0840 01d5 | | Execute Vector,Field_Reference 0841 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0842 00e0 | | Load_Encached Standard_Cache 0843 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0844 01cc | | Execute Vector,Catenate 0845 e00c | | Load 0x0,0xc 0846 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0847 e406 | | Load 0x2,0x6 0848 e5ff | | Load 0x2,-0x1 0849 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 084a 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 084b 01d5 | | Execute Vector,Field_Reference 084c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 084d 0a01 | | Execute_Immediate Plus,0x1 084e c402 | | Store 0x2,0x2 084f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0850 ; -------------------------------------------------------------------------------------- 0850 ; STRING TABLE 0850 ; -------------------------------------------------------------------------------------- 0850 005c | \ | .STRTAB 0x005c->0x087e ; "no disk" 0851 0061 | a | .STRTAB 0x0061->0x0881 ; "file operation successful" 0852 0078 | x | .STRTAB 0x0078->0x088e ; "bad filename" 0853 0082 | | .STRTAB 0x0082->0x0894 ; "file does not exist" 0854 0093 | | .STRTAB 0x0093->0x089d ; "file is not open" 0855 00a1 | | .STRTAB 0x00a1->0x08a5 ; "disk is full" 0856 00ab | | .STRTAB 0x00ab->0x08ab ; "directory is full" 0857 00ba | | .STRTAB 0x00ba->0x08b4 ; "file already exists" 0858 00cb | | .STRTAB 0x00cb->0x08bd ; "can't rename file" 0859 00da | | .STRTAB 0x00da->0x08c6 ; "can't delete file" 085a 00e9 | | .STRTAB 0x00e9->0x08ce ; "page error" 085b 00f1 | | .STRTAB 0x00f1->0x08d3 ; "slice error" 085c 00fa | | .STRTAB 0x00fa->0x08d9 ; "bad address" 085d 0103 | | .STRTAB 0x0103->0x08de ; "disk error" 085e 010b | | .STRTAB 0x010b->0x08e3 ; "no labels on disk" 085f 011a | | .STRTAB 0x011a->0x08ec ; "no dos on disk" 0860 0126 | & | .STRTAB 0x0126->0x08f3 ; "unknown error" 0861 0131 | 1 | .STRTAB 0x0131->0x08f9 ; "address out of bounds" 0862 0144 | D | .STRTAB 0x0144->0x0904 ; "No disk present " 0863 0160 | ` | .STRTAB 0x0160->0x0913 ; "Operation successful " 0864 017c | | | .STRTAB 0x017c->0x0922 ; "Bad filename " 0865 0198 | | .STRTAB 0x0198->0x0931 ; "File does not exist " 0866 01b4 | | .STRTAB 0x01b4->0x0940 ; "File is not open " 0867 01d0 | | .STRTAB 0x01d0->0x094f ; "Out of disk space " 0868 01ec | | .STRTAB 0x01ec->0x095e ; "Directory full " 0869 0208 | | .STRTAB 0x0208->0x096d ; "File already exists " 086a 0224 | $ | .STRTAB 0x0224->0x097c ; "File could not be renamed " 086b 0240 | @ | .STRTAB 0x0240->0x098b ; "File cannot be deleted " 086c 025c | \ | .STRTAB 0x025c->0x099a ; "Internal PAGE error " 086d 0278 | x | .STRTAB 0x0278->0x09a9 ; "Internal SLICE error " 086e 0294 | | .STRTAB 0x0294->0x09b8 ; "Internal ADDRESS error " 086f 02b0 | | .STRTAB 0x02b0->0x09c7 ; "Hard disk error " 0870 02cc | | .STRTAB 0x02cc->0x09d6 ; "Disk has no DFS labels " 0871 02e8 | | .STRTAB 0x02e8->0x09e5 ; "Disk has no DFS " 0872 0304 | | .STRTAB 0x0304->0x09f4 ; " " 0873 0303 | | .STRTAB 0x0303->0x09f4 ; "Total of_" 0874 030a | | .STRTAB 0x030a->0x09f9 ; " Pages in_" 0875 0312 | | .STRTAB 0x0312->0x09fe ; " Files." 0876 0317 | | .STRTAB 0x0317->0x0a01 ; "No files found." 0877 0324 | $ | .STRTAB 0x0324->0x0a09 ; " PERMANENT => " 0878 0339 | 9 | .STRTAB 0x0339->0x0a14 ; ", EXECUTABLE => " 0879 0347 | G | .STRTAB 0x0347->0x0a1c ; ", KERNEL => " 087a 0351 | Q | .STRTAB 0x0351->0x0a22 ; " File pages " 087b 0364 | d | .STRTAB 0x0364->0x0a2d ; " .. " 087c 0366 | f | .STRTAB 0x0366->0x0a2f ; " are at disk block " 087d 0377 | w | .STREND 0x0377->0x0a38 087e 6e6f 2064 |no d| .STRTAB_STRINGS 0a39 0000 0000 | | .BLANK 0000[0x7] 0a40 ; -------------------------------------------------------------------------------------- 0a40 ; Debug Table 0a40 ; -------------------------------------------------------------------------------------- 0a40 0004 000e | | .DEBUG4 0x0004,0x000e,0x411b,0x0000,0x0001,0x0000 0a46 0000 0000 | | .BLANK 0000[0x1b6] 0bfc 0080 800e | | .XXX[0x4] 0bfe 0000 0000 | |