|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 6144 (0x1800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_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 For_Outer_Call,Visible,Unelaborated,INIT_0080
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 For_Outer_Call,Visible,Unelaborated,INIT_0088
0028 c223 | # | Store 0x1,0x23
0029 029a 0173 | s| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0170
002b c216 | | Store 0x1,0x16
002c 029a 020b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0208
002e c224 | $ | Store 0x1,0x24
002f 029a 022b | +| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0228
0031 c225 | % | Store 0x1,0x25
0032 029a 02b3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02b0
0034 c219 | | Store 0x1,0x19
0035 029a 02fb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02f8
0037 c213 | | Store 0x1,0x13
0038 029a 0353 | S| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0350
003a c226 | & | Store 0x1,0x26
003b 029a 03fb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_03f8
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 For_Outer_Call,INIT_0538
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 For_Outer_Call,INIT_06e8
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 For_Outer_Call,INIT_0730
006e 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
006f 00c7 | | Action Elaborate_Subprogram
0070 029d 075b | [| Declare_Subprogram For_Outer_Call,INIT_0758
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 For_Outer_Call,INIT_07b8
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_Unchecked Discrete,At_Offset_3
0085 4501 |E | Exit_Subprogram 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 For_Call,INIT_07f8
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_Subprogram 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 0xf
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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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 0xf
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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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 0x7f
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_Result,0x1
0661 00db | | Load_Top At_Offset_3
0662 4401 |D | Exit_Subprogram With_Result,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_Subprogram 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 For_Call,INIT_0810
073b BODY_0730:
073b e5ff | | Load 0x2,-0x1
073c 4602 |F | Jump_Case 0x2
073d 4503 |E | Exit_Subprogram 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_Subprogram 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_Subprogram 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_Unchecked 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_Subprogram 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 For_Call,INIT_0818
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_Subprogram 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_Subprogram 0x1
0806 4802 |H | Short_Literal 0x2
0807 a5fb | | Store_Unchecked 0x2,-0x5
0808 4501 |E | Exit_Subprogram 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_Subprogram 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 | |