|
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: 3072 (0xc00) Notes: 00_class, 5811_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0ea8df
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5811 |X | .CONST 0x5811 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0358 | X | .CONST 0x0358 ; 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 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0047 | G | .CONST 0x0047 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0029 | ) | .CONST 0x0029 ; Number of locals 000b INIT_0008: 000b 0007 | | Action Break_Optional ; Debug Table 0x0 = .DEBUG 0x000b,0x0412,0xc000,0x0000,0x0037,0x5764,0x0000,0x0007 ; Debug Table 0x0.0x0 = 0xb,0xffff 000c 0007 | | Action Break_Optional ; Debug Table 0x0.0x1 = 0xc,0xfffe 000d 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0xd,0xfffd 000f 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0xf,0xfffc 0011 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x11,0xfffb 0013 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x13,0xfffa 0015 00bf | | Action Accept_Activation 0016 0092 02d9 | | Action Push_String_Extended,0x2d9 ; ".XFER" ; Debug Table 0x1 = .DEBUG 0x0016,0x0420,0xc000,0x0000,0x0037,0x5c94,0x0000,0x0009 ; Debug Table 0x1.0x0 = 0x16,0xffff 0018 0007 | | Action Break_Optional ; Debug Table 0x1.0x1 = 0x18,0xfffe 0019 029d 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call ; Debug Table 0x1.0x2 = 0x19,0xfffd 001b 029d 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call ; Debug Table 0x1.0x3 = 0x1b,0xfffc 001d 029d 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call ; Debug Table 0x1.0x4 = 0x1d,0xfffb 001f 029d 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call ; Debug Table 0x1.0x5 = 0x1f,0xfffa 0021 029d 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call ; Debug Table 0x1.0x6 = 0x21,0xfff9 0023 029d 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call ; Debug Table 0x1.0x7 = 0x23,0xfff8 0025 629a |b | Indirect_Literal Discrete,0x2c0,{0x00000000, 0x00375c94} ; Debug Table 0x1.0x8 = 0x25,0xfff7 0026 4890 |H | Short_Literal 0x90 0027 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0028 e001 | | Load 0x0,0x1 0029 0387 | | Declare_Variable Package 002a 00d8 | | Load_Top At_Offset_0 002b 020f | | Execute Module,Activate 002c e002 | | Load 0x0,0x2 ; Debug Table 0x1.0x9 = 0x2c,0xfff6 002d 191c | | Execute Package,Field_Reference,Field_Number 0x1c 002e 0007 | | Action Break_Optional 002f e002 | | Load 0x0,0x2 ; Debug Table 0x1.0xa = 0x2f,0xfff5 0030 1914 | | Execute Package,Field_Reference,Field_Number 0x14 0031 0007 | | Action Break_Optional 0032 029d 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call ; Debug Table 0x1.0xb = 0x32,0xfff4 0034 1d17 | | Execute_Immediate Reference_Lex_1,0x17 ; Debug Table 0x1.0xc = 0x34,0xfff3 0035 00c7 | | Action Elaborate_Subprogram 0036 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x1.0xd = 0x36,0xfff2 0037 00c7 | | Action Elaborate_Subprogram 0038 00db | | Load_Top At_Offset_3 ; Debug Table 0x1.0xe = 0x38,0xfff1 0039 1910 | | Execute Package,Field_Reference,Field_Number 0x10 003a 0007 | | Action Break_Optional 003b 029d 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call ; Debug Table 0x1.0xf = 0x3b,0xfff0 003d 029d 019b | | Declare_Subprogram INIT_0198,For_Outer_Call ; Debug Table 0x1.0x10 = 0x3d,0xffef 003f 029d 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call ; Debug Table 0x1.0x11 = 0x3f,0xffee 0041 029d 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call ; Debug Table 0x1.0x12 = 0x41,0xffed 0043 1d18 | | Execute_Immediate Reference_Lex_1,0x18 ; Debug Table 0x1.0x13 = 0x43,0xffec 0044 00c7 | | Action Elaborate_Subprogram 0045 1d19 | | Execute_Immediate Reference_Lex_1,0x19 ; Debug Table 0x1.0x14 = 0x45,0xffeb 0046 00c7 | | Action Elaborate_Subprogram 0047 BODY_0008: 0047 00bc | | Action Signal_Activated 0048 00bb | | Action Signal_Completion 0049 0000 0000 | | .BLANK 0000[0x7] 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 0053 | S | .CONST 0x0053 ; Address of begin 0051 0004 | | .CONST 0x0004 ; Address of exception handler 0052 0001 | | .CONST 0x0001 ; Number of locals 0053 BODY_0050: 0053 INIT_0050: 0053 00da | | Load_Top At_Offset_2 ; Debug Table 0x2 = .DEBUG 0x0053,0x044c,0x1002,0x0000,0x0037,0x5764,0x0000,0x005f ; Debug Table 0x2.0x0 = 0x53,0x1 0054 01da | | Execute Vector,Bounds 0055 0264 | d | Execute Discrete,Below_Bound 0056 700d |p | Jump_Nonzero 0x64 0057 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x1 = 0x57,0x2 0058 e5ff | | Load 0x2,-0x1 0059 01d7 | | Execute Vector,Field_Read 005a 0f2e | . | Execute_Immediate Equal,0x2e 005b 6807 |h | Jump_Zero 0x63 005c 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x2 = 0x5c,0x3 005d e5ff | | Load 0x2,-0x1 005e 01dc | | Execute Vector,Last 005f e5ff | | Load 0x2,-0x1 0060 01cf | | Execute Vector,Slice_Read 0061 8223 | # | Call 0x1,0x23 0062 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0063 37f3 |7 | Loop_Decreasing 0x57 0064 00ea | | Load_Encached Null_String_Cache ; Debug Table 0x2.0x3 = 0x64,0x4 0065 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0066 0000 0000 | | .XXX[0x2] 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 006b | k | .CONST 0x006b ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0001 | | .CONST 0x0001 ; Number of locals 006b BODY_0068: 006b INIT_0068: 006b 00da | | Load_Top At_Offset_2 ; Debug Table 0x3 = .DEBUG 0x006b,0x0456,0x1002,0x0000,0x0037,0x5764,0x0000,0x0068 ; Debug Table 0x3.0x0 = 0x6b,0x1 006c 01da | | Execute Vector,Bounds 006d 0264 | d | Execute Discrete,Below_Bound 006e 700f |p | Jump_Nonzero 0x7e 006f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x1 = 0x6f,0x2 0070 e5ff | | Load 0x2,-0x1 0071 01d7 | | Execute Vector,Field_Read 0072 0f3a | : | Execute_Immediate Equal,0x3a 0073 6809 |h | Jump_Zero 0x7d 0074 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x2 = 0x74,0x3 0075 0a01 | | Execute_Immediate Plus,0x1 0076 0248 | H | Execute Discrete,Check_In_Integer 0077 e5ff | | Load 0x2,-0x1 0078 01dc | | Execute Vector,Last 0079 e5ff | | Load 0x2,-0x1 007a 01cf | | Execute Vector,Slice_Read 007b 0335 | 5 | Declare_Variable Array,Duplicate 007c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 007d 37f1 |7 | Loop_Decreasing 0x6f 007e 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0x3 = 0x7e,0x4 007f 0335 | 5 | Declare_Variable Array,Duplicate 0080 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0081 0000 0000 | | .BLANK 0000[0x7] 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 0093 | | .CONST 0x0093 ; Address of begin 0089 00dc | | .CONST 0x00dc ; Address of exception handler 008a 0005 | | .CONST 0x0005 ; Number of locals 008b INIT_0088: 008b 4820 |H | Short_Literal 0x20 ; Debug Table 0x4 = .DEBUG 0x008b,0x0460,0x1001,0x0000,0x0037,0x5764,0x0000,0x0071 ; Debug Table 0x4.0x0 = 0x8b,0xffff 008c 00db | | Load_Top At_Offset_3 008d 8222 | " | Call 0x1,0x22 008e 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x1 = 0x8e,0xfffe 008f 8217 | | Call 0x1,0x17 0090 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x4.0x2 = 0x90,0xfffd 0091 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x4.0x3 = 0x91,0xfffc 0092 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0093 BODY_0088: 0093 00db | | Load_Top At_Offset_3 ; Debug Table 0x4.0x4 = 0x93,0x1 0094 01db | | Execute Vector,Length 0095 0d01 | | Execute_Immediate Less,0x1 0096 6801 |h | Jump_Zero 0x98 0097 783d |x= | Jump 0xd5 ; Debug Table 0x4.0x5 = 0x97,0x2 0098 00db | | Load_Top At_Offset_3 ; Debug Table 0x4.0x6 = 0x98,0x3 0099 8226 | & | Call 0x1,0x26 009a 6807 |h | Jump_Zero 0xa2 009b e5fd | | Load 0x2,-0x3 ; Debug Table 0x4.0x7 = 0x9b,0x4 009c e5fe | | Load 0x2,-0x2 009d e402 | | Load 0x2,0x2 009e 8219 | | Call 0x1,0x19 009f 4801 |H | Short_Literal 0x1 ; Debug Table 0x4.0x8 = 0x9f,0x5 00a0 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 00a1 7833 |x3 | Jump 0xd5 00a2 00da | | Load_Top At_Offset_2 ; Debug Table 0x4.0x9 = 0xa2,0x6 00a3 8225 | % | Call 0x1,0x25 00a4 6816 |h | Jump_Zero 0xbb 00a5 e5fb | | Load 0x2,-0x5 ; Debug Table 0x4.0xa = 0xa5,0x7 00a6 702e |p. | Jump_Nonzero 0xd5 00a7 00da | | Load_Top At_Offset_2 ; Debug Table 0x4.0xb = 0xa7,0x8 00a8 e221 | ! | Load 0x1,0x21 00a9 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00aa 6809 |h | Jump_Zero 0xb4 00ab 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x4.0xc = 0xab,0x9 00ac e5fd | | Load 0x2,-0x3 00ad e403 | | Load 0x2,0x3 00ae e402 | | Load 0x2,0x2 00af 8228 | ( | Call 0x1,0x28 00b0 005a | Z | Store_Top Discrete,At_Offset_2 00b1 4801 |H | Short_Literal 0x1 ; Debug Table 0x4.0xd = 0xb1,0xa 00b2 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 00b3 7821 |x! | Jump 0xd5 00b4 e5fe | | Load 0x2,-0x2 ; Debug Table 0x4.0xe = 0xb4,0xb 00b5 00db | | Load_Top At_Offset_3 00b6 0092 02da | | Action Push_String_Extended,0x2da ; " already exists." 00b8 01cc | | Execute Vector,Catenate 00b9 8229 | ) | Call 0x1,0x29 00ba 781a |x | Jump 0xd5 00bb 00da | | Load_Top At_Offset_2 ; Debug Table 0x4.0xf = 0xbb,0xc 00bc e221 | ! | Load 0x1,0x21 00bd 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00be 6811 |h | Jump_Zero 0xd0 00bf 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x4.0x10 = 0xbf,0xd 00c0 e5fd | | Load 0x2,-0x3 00c1 e403 | | Load 0x2,0x3 00c2 e402 | | Load 0x2,0x2 00c3 8228 | ( | Call 0x1,0x28 00c4 c5fb | | Store 0x2,-0x5 00c5 4801 |H | Short_Literal 0x1 ; Debug Table 0x4.0x11 = 0xc5,0xe 00c6 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 00c7 e5fb | | Load 0x2,-0x5 ; Debug Table 0x4.0x12 = 0xc7,0xf 00c8 680c |h | Jump_Zero 0xd5 00c9 e5fe | | Load 0x2,-0x2 ; Debug Table 0x4.0x13 = 0xc9,0x10 00ca 00db | | Load_Top At_Offset_3 00cb 0092 02db | | Action Push_String_Extended,0x2db ; " is a preloaded subystem." 00cd 01cc | | Execute Vector,Catenate 00ce 8229 | ) | Call 0x1,0x29 00cf 7805 |x | Jump 0xd5 00d0 00da | | Load_Top At_Offset_2 ; Debug Table 0x4.0x14 = 0xd0,0x11 00d1 0092 02dc | | Action Push_String_Extended,0x2dc ; " cannot be written to EEDB." 00d3 01cc | | Execute Vector,Catenate 00d4 821e | | Call 0x1,0x1e 00d5 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x15 = 0xd5,0x12 00d6 7002 |p | Jump_Nonzero 0xd9 00d7 00db | | Load_Top At_Offset_3 ; Debug Table 0x4.0x16 = 0xd7,0x13 00d8 8213 | | Call 0x1,0x13 00d9 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x17 = 0xd9,0x14 00da a5fc | | Store_Unchecked 0x2,-0x4 00db 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00dc TRAP_0088: 00dc 0007 | | Action Break_Optional 00dd 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x4.0x18 = 0xdd,0x15 00de a5fc | | Store_Unchecked 0x2,-0x4 00df 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00f8 | | .CONST 0x00f8 ; Address of begin 00e1 0112 | | .CONST 0x0112 ; Address of exception handler 00e2 000a | | .CONST 0x000a ; Number of locals 00e3 INIT_00e0: 00e3 e20f | | Load 0x1,0xf ; Debug Table 0x5 = .DEBUG 0x00e3,0x0494,0x1001,0x0000,0x0037,0x5764,0x0000,0x008b ; Debug Table 0x5.0x0 = 0xe3,0xffff 00e4 02c7 | | Declare_Variable Any 00e5 00d8 | | Load_Top At_Offset_0 00e6 1c00 | | Execute_Immediate Run_Utility,0x0 00e7 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x5.0x1 = 0xe7,0xfffe 00e8 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00e9 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x5.0x2 = 0xe9,0xfffd 00ea 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x5.0x3 = 0xea,0xfffc 00eb 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00ec 4801 |H | Short_Literal 0x1 ; Debug Table 0x5.0x4 = 0xec,0xfffb 00ed e5fd | | Load 0x2,-0x3 00ee 00e9 | | Load_Encached String_Cache 00ef 0334 | 4 | Declare_Variable Array,With_Constraint 00f0 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x5.0x5 = 0xf0,0xfffa 00f1 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00f2 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x5.0x6 = 0xf2,0xfff9 00f3 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00f4 029f 021b | | Declare_Subprogram INIT_0218,For_Call ; Debug Table 0x5.0x7 = 0xf4,0xfff8 00f6 029f 0243 | C| Declare_Subprogram INIT_0240,For_Call ; Debug Table 0x5.0x8 = 0xf6,0xfff7 00f8 BODY_00e0: 00f8 00be | | Action Activate_Tasks 00f9 e402 | | Load 0x2,0x2 ; Debug Table 0x5.0x9 = 0xf9,0x1 00fa e5ff | | Load 0x2,-0x1 00fb 8210 | | Call 0x1,0x10 00fc c402 | | Store 0x2,0x2 00fd 780d |x | Jump 0x10b 00fe e403 | | Load 0x2,0x3 ; Debug Table 0x5.0xa = 0xfe,0x3 00ff 00e1 | | Load_Encached Boolean_Cache 0100 e5fd | | Load 0x2,-0x3 0101 e5fe | | Load 0x2,-0x2 0102 8409 | | Call 0x2,0x9 0103 8218 | | Call 0x1,0x18 0104 c404 | | Store 0x2,0x4 0105 c403 | | Store 0x2,0x3 0106 e404 | | Load 0x2,0x4 ; Debug Table 0x5.0xb = 0x106,0x4 0107 6803 |h | Jump_Zero 0x10b 0108 e405 | | Load 0x2,0x5 ; Debug Table 0x5.0xc = 0x108,0x5 0109 0a01 | | Execute_Immediate Plus,0x1 010a c405 | | Store 0x2,0x5 010b 00da | | Load_Top At_Offset_2 ; Debug Table 0x5.0xd = 0x10b,0x2 010c 6ff1 |o | Jump_Zero 0xfe 010d e402 | | Load 0x2,0x2 ; Debug Table 0x5.0xe = 0x10d,0x6 010e 8211 | | Call 0x1,0x11 010f c402 | | Store 0x2,0x2 0110 840a | | Call 0x2,0xa ; Debug Table 0x5.0xf = 0x110,0x7 0111 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0112 TRAP_00e0: 0112 0007 | | Action Break_Optional 0113 e402 | | Load 0x2,0x2 ; Debug Table 0x5.0x10 = 0x113,0x8 0114 8211 | | Call 0x1,0x11 0115 c402 | | Store 0x2,0x2 0116 0092 02dd | | Action Push_String_Extended,0x2dd ; "while reading " ; Debug Table 0x5.0x11 = 0x116,0x9 0118 e5ff | | Load 0x2,-0x1 0119 01cc | | Execute Vector,Catenate 011a 821f | | Call 0x1,0x1f 011b 840a | | Call 0x2,0xa ; Debug Table 0x5.0x12 = 0x11b,0xa 011c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 011d 0000 0000 | | .XXX[0x3] 011f 0000 | | 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0123 | # | .CONST 0x0123 ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0001 | | .CONST 0x0001 ; Number of locals 0123 BODY_0120: 0123 INIT_0120: 0123 0092 02de | | Action Push_String_Extended,0x2de ; " " ; Debug Table 0x6 = .DEBUG 0x0123,0x04bc,0x1001,0x0000,0x0037,0x5c94,0x0000,0x0018 ; Debug Table 0x6.0x0 = 0x123,0x1 0125 00db | | Load_Top At_Offset_3 0126 01cc | | Execute Vector,Catenate 0127 8214 | | Call 0x1,0x14 0128 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0129 0000 0000 | | .BLANK 0000[0x7] 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0133 | 3 | .CONST 0x0133 ; Address of begin 0131 0004 | | .CONST 0x0004 ; Address of exception handler 0132 0001 | | .CONST 0x0001 ; Number of locals 0133 BODY_0130: 0133 INIT_0130: 0133 0092 02df | | Action Push_String_Extended,0x2df ; "*** " ; Debug Table 0x7 = .DEBUG 0x0133,0x04c0,0x1001,0x0000,0x0037,0x5c94,0x0000,0x002c ; Debug Table 0x7.0x0 = 0x133,0x1 0135 00db | | Load_Top At_Offset_3 0136 01cc | | Execute Vector,Catenate 0137 8214 | | Call 0x1,0x14 0138 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0139 0000 0000 | | .BLANK 0000[0x7] 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0143 | C | .CONST 0x0143 ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0001 | | .CONST 0x0001 ; Number of locals 0143 BODY_0140: 0143 INIT_0140: 0143 0092 02e0 | | Action Push_String_Extended,0x2e0 ; "+++ " ; Debug Table 0x8 = .DEBUG 0x0143,0x04c4,0x1001,0x0000,0x0037,0x5c94,0x0000,0x0040 ; Debug Table 0x8.0x0 = 0x143,0x1 0145 00db | | Load_Top At_Offset_3 0146 01cc | | Execute Vector,Catenate 0147 8214 | | Call 0x1,0x14 0148 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0149 0000 0000 | | .BLANK 0000[0x7] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0153 | S | .CONST 0x0153 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0001 | | .CONST 0x0001 ; Number of locals 0153 BODY_0150: 0153 INIT_0150: 0153 0092 02e1 | | Action Push_String_Extended,0x2e1 ; "++* " ; Debug Table 0x9 = .DEBUG 0x0153,0x04c8,0x1001,0x0000,0x0037,0x5c94,0x0000,0x0054 ; Debug Table 0x9.0x0 = 0x153,0x1 0155 00db | | Load_Top At_Offset_3 0156 01cc | | Execute Vector,Catenate 0157 8214 | | Call 0x1,0x14 0158 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0159 0000 0000 | | .BLANK 0000[0x7] 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 0163 | c | .CONST 0x0163 ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0001 | | .CONST 0x0001 ; Number of locals 0163 BODY_0160: 0163 INIT_0160: 0163 0092 02e2 | | Action Push_String_Extended,0x2e2 ; "%%% An exception was raised " ; Debug Table 0xa = .DEBUG 0x0163,0x04cc,0x1001,0x0000,0x0037,0x5c94,0x0000,0x0068 ; Debug Table 0xa.0x0 = 0x163,0x1 0165 00db | | Load_Top At_Offset_3 0166 01cc | | Execute Vector,Catenate 0167 8214 | | Call 0x1,0x14 0168 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0169 0000 0000 | | .BLANK 0000[0x7] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0173 | s | .CONST 0x0173 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0001 | | .CONST 0x0001 ; Number of locals 0173 BODY_0170: 0173 INIT_0170: 0173 0092 02e3 | | Action Push_String_Extended,0x2e3 ; "::: " ; Debug Table 0xb = .DEBUG 0x0173,0x04d0,0x1001,0x0000,0x0037,0x5c94,0x0000,0x007c ; Debug Table 0xb.0x0 = 0x173,0x1 0175 00db | | Load_Top At_Offset_3 0176 01cc | | Execute Vector,Catenate 0177 8214 | | Call 0x1,0x14 0178 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0179 0000 0000 | | .BLANK 0000[0x7] 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0183 | | .CONST 0x0183 ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0001 | | .CONST 0x0001 ; Number of locals 0183 BODY_0180: 0183 INIT_0180: 0183 4820 |H | Short_Literal 0x20 ; Debug Table 0xc = .DEBUG 0x0183,0x04d4,0x1002,0x0000,0x0037,0x5c94,0x0000,0x00b7 ; Debug Table 0xc.0x0 = 0x183,0x1 0184 00db | | Load_Top At_Offset_3 0185 00e0 | | Load_Encached Standard_Cache 0186 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0187 8222 | " | Call 0x1,0x22 0188 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0189 0000 0000 | | .BLANK 0000[0x7] 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 0193 | | .CONST 0x0193 ; Address of begin 0191 0004 | | .CONST 0x0004 ; Address of exception handler 0192 0001 | | .CONST 0x0001 ; Number of locals 0193 BODY_0190: 0193 INIT_0190: 0193 00da | | Load_Top At_Offset_2 ; Debug Table 0xd = .DEBUG 0x0193,0x04d8,0x1002,0x0000,0x0037,0x5c94,0x0000,0x0133 ; Debug Table 0xd.0x0 = 0x193,0x1 0194 8216 | | Call 0x1,0x16 0195 e21a | | Load 0x1,0x1a 0196 01df | | Execute Vector,Equal 0197 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 01a4 | | .CONST 0x01a4 ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0003 | | .CONST 0x0003 ; Number of locals 019b INIT_0198: 019b 4800 |H | Short_Literal 0x0 ; Debug Table 0xe = .DEBUG 0x019b,0x04dc,0x1001,0x0000,0x0037,0x5c94,0x0000,0x0149 ; Debug Table 0xe.0x0 = 0x19b,0xffff 019c e5fe | | Load 0x2,-0x2 019d 01db | | Execute Vector,Length 019e 0aff | | Execute_Immediate Plus,-0x1 019f 0248 | H | Execute Discrete,Check_In_Integer 01a0 e003 | | Load 0x0,0x3 01a1 1b12 | | Execute Package,Field_Read,Field_Number 0x12 01a2 0334 | 4 | Declare_Variable Array,With_Constraint 01a3 00e3 | | Load_Encached Natural_Cache ; Debug Table 0xe.0x1 = 0x1a3,0xfffe 01a4 BODY_0198: 01a4 00e3 | | Load_Encached Natural_Cache ; Debug Table 0xe.0x2 = 0x1a4,0x1 01a5 00da | | Load_Top At_Offset_2 01a6 e5ff | | Load 0x2,-0x1 01a7 8212 | | Call 0x1,0x12 01a8 c5ff | | Store 0x2,-0x1 01a9 00d1 | | Pop_Control Pop_Count_1 01aa 0059 | Y | Store_Top Discrete,At_Offset_1 01ab 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xe.0x3 = 0x1ab,0x2 01ac 0aff | | Execute_Immediate Plus,-0x1 01ad 0248 | H | Execute Discrete,Check_In_Integer 01ae 4800 |H | Short_Literal 0x0 01af 0263 | c | Execute Discrete,Above_Bound 01b0 7011 |p | Jump_Nonzero 0x1c2 01b1 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xe.0x4 = 0x1b1,0x3 01b2 e402 | | Load 0x2,0x2 01b3 01d7 | | Execute Vector,Field_Read 01b4 00d8 | | Load_Top At_Offset_0 01b5 00e8 | | Load_Encached Character_Cache 01b6 0260 | ` | Execute Discrete,In_Type 01b7 7002 |p | Jump_Nonzero 0x1ba 01b8 48e0 |H | Short_Literal 0xe0 01b9 0257 | W | Execute Discrete,Raise 01ba e5fe | | Load 0x2,-0x2 01bb 01dd | | Execute Vector,First 01bc 00da | | Load_Top At_Offset_2 01bd 0273 | s | Execute Discrete,Plus 01be 0248 | H | Execute Discrete,Check_In_Integer 01bf e5fe | | Load 0x2,-0x2 01c0 01d6 | | Execute Vector,Field_Write 01c1 3fef |? | Loop_Increasing 0x1b1 01c2 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xe.0x5 = 0x1c2,0x4 01c3 a5fd | | Store_Unchecked 0x2,-0x3 01c4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01c5 0000 0000 | | .XXX[0x3] 01c7 0000 | | 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01e0 | | .CONST 0x01e0 ; Address of begin 01c9 01f2 | | .CONST 0x01f2 ; Address of exception handler 01ca 0008 | | .CONST 0x0008 ; Number of locals 01cb INIT_01c8: 01cb e20f | | Load 0x1,0xf ; Debug Table 0xf = .DEBUG 0x01cb,0x04ea,0x1001,0x0000,0x0037,0x5c94,0x0000,0x019a ; Debug Table 0xf.0x0 = 0x1cb,0xffff 01cc 02c7 | | Declare_Variable Any 01cd 00d8 | | Load_Top At_Offset_0 01ce 1c00 | | Execute_Immediate Run_Utility,0x0 01cf e221 | ! | Load 0x1,0x21 ; Debug Table 0xf.0x1 = 0x1cf,0xfffe 01d0 1b12 | | Execute Package,Field_Read,Field_Number 0x12 01d1 0322 | " | Declare_Variable Record 01d2 00d8 | | Load_Top At_Offset_0 01d3 1c00 | | Execute_Immediate Run_Utility,0x0 01d4 4801 |H | Short_Literal 0x1 ; Debug Table 0xf.0x2 = 0x1d4,0xfffd 01d5 e5fd | | Load 0x2,-0x3 01d6 e003 | | Load 0x0,0x3 01d7 1b12 | | Execute Package,Field_Read,Field_Number 0x12 01d8 0334 | 4 | Declare_Variable Array,With_Constraint 01d9 00e3 | | Load_Encached Natural_Cache ; Debug Table 0xf.0x3 = 0x1d9,0xfffc 01da 00e3 | | Load_Encached Natural_Cache ; Debug Table 0xf.0x4 = 0x1da,0xfffb 01db 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 01dc 029f 025b | [| Declare_Subprogram INIT_0258,For_Call 01de 029f 026b | k| Declare_Subprogram INIT_0268,For_Call 01e0 BODY_01c8: 01e0 00be | | Action Activate_Tasks 01e1 8407 | | Call 0x2,0x7 ; Debug Table 0xf.0x5 = 0x1e1,0x1 01e2 8408 | | Call 0x2,0x8 ; Debug Table 0xf.0x6 = 0x1e2,0x2 01e3 e402 | | Load 0x2,0x2 ; Debug Table 0xf.0x7 = 0x1e3,0x3 01e4 8211 | | Call 0x1,0x11 01e5 c402 | | Store 0x2,0x2 01e6 e5ff | | Load 0x2,-0x1 ; Debug Table 0xf.0x8 = 0x1e6,0x4 01e7 0092 02e4 | | Action Push_String_Extended,0x2e4 ; " (" 01e9 01cc | | Execute Vector,Catenate 01ea 00db | | Load_Top At_Offset_3 01eb 8224 | $ | Call 0x1,0x24 01ec 01cc | | Execute Vector,Catenate 01ed 0092 02e5 | | Action Push_String_Extended,0x2e5 ; " bytes)" 01ef 01cc | | Execute Vector,Catenate 01f0 821d | | Call 0x1,0x1d 01f1 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01f2 TRAP_01c8: 01f2 0007 | | Action Break_Optional 01f3 e402 | | Load 0x2,0x2 ; Debug Table 0xf.0x9 = 0x1f3,0x5 01f4 8211 | | Call 0x1,0x11 01f5 c402 | | Store 0x2,0x2 01f6 e5ff | | Load 0x2,-0x1 ; Debug Table 0xf.0xa = 0x1f6,0x6 01f7 0092 02e4 | | Action Push_String_Extended,0x2e4 ; " (" 01f9 01cc | | Execute Vector,Catenate 01fa e406 | | Load 0x2,0x6 01fb 8224 | $ | Call 0x1,0x24 01fc 01cc | | Execute Vector,Catenate 01fd 0092 02e6 | | Action Push_String_Extended,0x2e6 ; " bytes) (exception: " 01ff 01cc | | Execute Vector,Catenate 0200 e004 | | Load 0x0,0x4 0201 180d | | Execute Package,Field_Execute,Field_Number 0xd 0202 01cc | | Execute Vector,Catenate 0203 0092 02e7 | | Action Push_String_Extended,0x2e7 ; ")" 0205 01cc | | Execute Vector,Catenate 0206 821e | | Call 0x1,0x1e 0207 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xf.0xb = 0x207,0x7 0208 0101 | | Execute Exception,Reraise 0209 0000 0000 | | .BLANK 0000[0x7] 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 0213 | | .CONST 0x0213 ; Address of begin 0211 0004 | | .CONST 0x0004 ; Address of exception handler 0212 0001 | | .CONST 0x0001 ; Number of locals 0213 BODY_0210: 0213 INIT_0210: 0213 00db | | Load_Top At_Offset_3 ; Debug Table 0x10 = .DEBUG 0x0213,0x0504,0x1001,0x0000,0x0037,0x5c94,0x0000,0x026d ; Debug Table 0x10.0x0 = 0x213,0x1 0214 6802 |h | Jump_Zero 0x217 0215 00da | | Load_Top At_Offset_2 ; Debug Table 0x10.0x1 = 0x215,0x2 0216 821b | | Call 0x1,0x1b 0217 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0218 ; -------------------------------------------------------------------------------------- 0218 ; SUBPROGRAM 0218 ; -------------------------------------------------------------------------------------- 0218 021f | | .CONST 0x021f ; Address of begin 0219 0004 | | .CONST 0x0004 ; Address of exception handler 021a 0003 | | .CONST 0x0003 ; Number of locals 021b INIT_0218: 021b 029f 02a3 | | Declare_Subprogram INIT_02a0,For_Call ; Debug Table 0x11 = .DEBUG 0x021b,0x050a,0x1002,0x0000,0x0037,0x5c94,0x0000,0x0382 021d 029f 02cb | | Declare_Subprogram INIT_02c8,For_Call 021f BODY_0218: 021f e407 | | Load 0x2,0x7 ; Debug Table 0x11.0x0 = 0x21f,0x1 0220 700d |p | Jump_Nonzero 0x22e 0221 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x11.0x1 = 0x221,0x2 0222 e406 | | Load 0x2,0x6 0223 e402 | | Load 0x2,0x2 0224 8227 | ' | Call 0x1,0x27 0225 c402 | | Store 0x2,0x2 0226 00d1 | | Pop_Control Pop_Count_1 0227 c407 | | Store 0x2,0x7 0228 e407 | | Load 0x2,0x7 ; Debug Table 0x11.0x2 = 0x228,0x3 0229 7004 |p | Jump_Nonzero 0x22e 022a 4801 |H | Short_Literal 0x1 ; Debug Table 0x11.0x3 = 0x22a,0x4 022b a408 | | Store_Unchecked 0x2,0x8 022c 00ea | | Load_Encached Null_String_Cache ; Debug Table 0x11.0x4 = 0x22c,0x5 022d 00ca | | Action Exit_Nullary_Function 022e e407 | | Load 0x2,0x7 ; Debug Table 0x11.0x5 = 0x22e,0x6 022f 4801 |H | Short_Literal 0x1 0230 0263 | c | Execute Discrete,Above_Bound 0231 7007 |p | Jump_Nonzero 0x239 0232 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x11.0x6 = 0x232,0x7 0233 e406 | | Load 0x2,0x6 0234 01d7 | | Execute Vector,Field_Read 0235 0f0a | | Execute_Immediate Equal,0xa 0236 6801 |h | Jump_Zero 0x238 0237 8602 | | Call 0x3,0x2 ; Debug Table 0x11.0x7 = 0x237,0x8 0238 3ff9 |? | Loop_Increasing 0x232 0239 8603 | | Call 0x3,0x3 ; Debug Table 0x11.0x8 = 0x239,0x9 023a 4831 |H1 | Short_Literal 0x31 023b 0257 | W | Execute Discrete,Raise 023c 0000 0000 | | .BLANK 0000[0x4] 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 0243 | C | .CONST 0x0243 ; Address of begin 0241 0004 | | .CONST 0x0004 ; Address of exception handler 0242 0001 | | .CONST 0x0001 ; Number of locals 0243 BODY_0240: 0243 INIT_0240: 0243 e405 | | Load 0x2,0x5 ; Debug Table 0x12 = .DEBUG 0x0243,0x051e,0x1001,0x0000,0x0037,0x5c94,0x0000,0x03fd ; Debug Table 0x12.0x0 = 0x243,0x1 0244 0f01 | | Execute_Immediate Equal,0x1 0245 6806 |h | Jump_Zero 0x24c 0246 0092 02e8 | | Action Push_String_Extended,0x2e8 ; "1 file read via " ; Debug Table 0x12.0x1 = 0x246,0x2 0248 e5ff | | Load 0x2,-0x1 0249 01cc | | Execute Vector,Catenate 024a 8220 | | Call 0x1,0x20 024b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 024c e405 | | Load 0x2,0x5 ; Debug Table 0x12.0x2 = 0x24c,0x3 024d 8224 | $ | Call 0x1,0x24 024e 0092 02e9 | | Action Push_String_Extended,0x2e9 ; " files read via " 0250 01cc | | Execute Vector,Catenate 0251 e5ff | | Load 0x2,-0x1 0252 01cc | | Execute Vector,Catenate 0253 8220 | | Call 0x1,0x20 0254 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0255 0000 0000 | | .XXX[0x3] 0257 0000 | | 0258 ; -------------------------------------------------------------------------------------- 0258 ; SUBPROGRAM 0258 ; -------------------------------------------------------------------------------------- 0258 025b | [ | .CONST 0x025b ; Address of begin 0259 0260 | ` | .CONST 0x0260 ; Address of exception handler 025a 0001 | | .CONST 0x0001 ; Number of locals 025b BODY_0258: 025b INIT_0258: 025b e402 | | Load 0x2,0x2 ; Debug Table 0x13 = .DEBUG 0x025b,0x0526,0x1004,0x0000,0x0037,0x5c94,0x0000,0x01e5 ; Debug Table 0x13.0x0 = 0x25b,0x1 025c e5ff | | Load 0x2,-0x1 025d 8210 | | Call 0x1,0x10 025e c402 | | Store 0x2,0x2 025f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0260 TRAP_0258: 0260 0007 | | Action Break_Optional 0261 0092 02ea | | Action Push_String_Extended,0x2ea ; "while opening " ; Debug Table 0x13.0x1 = 0x261,0x2 0263 e5ff | | Load 0x2,-0x1 0264 01cc | | Execute Vector,Catenate 0265 821f | | Call 0x1,0x1f 0266 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x13.0x2 = 0x266,0x3 0267 0101 | | Execute Exception,Reraise 0268 ; -------------------------------------------------------------------------------------- 0268 ; SUBPROGRAM 0268 ; -------------------------------------------------------------------------------------- 0268 026b | k | .CONST 0x026b ; Address of begin 0269 028e | | .CONST 0x028e ; Address of exception handler 026a 0001 | | .CONST 0x0001 ; Number of locals 026b BODY_0268: 026b INIT_0268: 026b e403 | | Load 0x2,0x3 ; Debug Table 0x14 = .DEBUG 0x026b,0x052e,0x1004,0x0000,0x0037,0x5c94,0x0000,0x022b ; Debug Table 0x14.0x0 = 0x26b,0x1 026c e5fe | | Load 0x2,-0x2 026d e221 | ! | Load 0x1,0x21 026e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 026f 00d1 | | Pop_Control Pop_Count_1 0270 0007 | | Action Break_Optional ; Debug Table 0x14.0x1 = 0x270,0x2 0271 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x14.0x2 = 0x271,0x3 0272 e404 | | Load 0x2,0x4 0273 e402 | | Load 0x2,0x2 0274 8212 | | Call 0x1,0x12 0275 c402 | | Store 0x2,0x2 0276 00d1 | | Pop_Control Pop_Count_1 0277 c405 | | Store 0x2,0x5 0278 e405 | | Load 0x2,0x5 ; Debug Table 0x14.0x3 = 0x278,0x4 0279 680d |h | Jump_Zero 0x287 027a e403 | | Load 0x2,0x3 ; Debug Table 0x14.0x4 = 0x27a,0x5 027b 4801 |H | Short_Literal 0x1 027c e405 | | Load 0x2,0x5 027d e404 | | Load 0x2,0x4 027e 01cf | | Execute Vector,Slice_Read 027f e221 | ! | Load 0x1,0x21 0280 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0281 00d1 | | Pop_Control Pop_Count_1 0282 e406 | | Load 0x2,0x6 ; Debug Table 0x14.0x5 = 0x282,0x6 0283 e405 | | Load 0x2,0x5 0284 0273 | s | Execute Discrete,Plus 0285 c406 | | Store 0x2,0x6 0286 7fea | | Jump 0x271 0287 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x14.0x6 = 0x287,0x7 0288 e403 | | Load 0x2,0x3 0289 e221 | ! | Load 0x1,0x21 028a 1814 | | Execute Package,Field_Execute,Field_Number 0x14 028b 00d1 | | Pop_Control Pop_Count_1 028c c5fc | | Store 0x2,-0x4 028d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 028e TRAP_0268: 028e 0007 | | Action Break_Optional 028f 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x14.0x7 = 0x28f,0x8 0290 e403 | | Load 0x2,0x3 0291 e221 | ! | Load 0x1,0x21 0292 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0293 00d1 | | Pop_Control Pop_Count_1 0294 c5fc | | Store 0x2,-0x4 0295 0092 02dd | | Action Push_String_Extended,0x2dd ; "while reading " ; Debug Table 0x14.0x8 = 0x295,0x9 0297 e5ff | | Load 0x2,-0x1 0298 01cc | | Execute Vector,Catenate 0299 821f | | Call 0x1,0x1f 029a 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x14.0x9 = 0x29a,0xa 029b 0101 | | Execute Exception,Reraise 029c 0000 0000 | | .BLANK 0000[0x4] 02a0 ; -------------------------------------------------------------------------------------- 02a0 ; SUBPROGRAM 02a0 ; -------------------------------------------------------------------------------------- 02a0 02ac | | .CONST 0x02ac ; Address of begin 02a1 0004 | | .CONST 0x0004 ; Address of exception handler 02a2 0002 | | .CONST 0x0002 ; Number of locals 02a3 INIT_02a0: 02a3 4801 |H | Short_Literal 0x1 ; Debug Table 0x15 = .DEBUG 0x02a3,0x0544,0x1004,0x0000,0x0037,0x5c94,0x0000,0x03dc ; Debug Table 0x15.0x0 = 0x2a3,0xffff 02a4 e605 | | Load 0x3,0x5 02a5 0aff | | Execute_Immediate Plus,-0x1 02a6 0248 | H | Execute Discrete,Check_In_Integer 02a7 e406 | | Load 0x2,0x6 02a8 01cf | | Execute Vector,Slice_Read 02a9 0335 | 5 | Declare_Variable Array,Duplicate 02aa 00d0 | | Action Swap_Control 02ab 00d1 | | Pop_Control Pop_Count_1 02ac BODY_02a0: 02ac e605 | | Load 0x3,0x5 ; Debug Table 0x15.0x1 = 0x2ac,0x1 02ad 0a01 | | Execute_Immediate Plus,0x1 02ae 0248 | H | Execute Discrete,Check_In_Integer 02af e407 | | Load 0x2,0x7 02b0 e406 | | Load 0x2,0x6 02b1 01cf | | Execute Vector,Slice_Read 02b2 4801 |H | Short_Literal 0x1 02b3 e407 | | Load 0x2,0x7 02b4 e605 | | Load 0x3,0x5 02b5 0272 | r | Execute Discrete,Minus 02b6 0248 | H | Execute Discrete,Check_In_Integer 02b7 e406 | | Load 0x2,0x6 02b8 01ce | | Execute Vector,Slice_Write 02b9 e407 | | Load 0x2,0x7 ; Debug Table 0x15.0x2 = 0x2b9,0x2 02ba e605 | | Load 0x3,0x5 02bb 0272 | r | Execute Discrete,Minus 02bc c407 | | Store 0x2,0x7 02bd 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x15.0x3 = 0x2bd,0x3 02be 00cb | | Action Pop_Block_With_Result 02bf 00ca | | Action Exit_Nullary_Function 02c0 0000 0000 | | .LITERAL {0x00000000, 0x00375c94} 02c4 0000 0000 | | .BLANK 0000[0x4] 02c8 ; -------------------------------------------------------------------------------------- 02c8 ; SUBPROGRAM 02c8 ; -------------------------------------------------------------------------------------- 02c8 02d2 | | .CONST 0x02d2 ; Address of begin 02c9 0004 | | .CONST 0x0004 ; Address of exception handler 02ca 0002 | | .CONST 0x0002 ; Number of locals 02cb INIT_02c8: 02cb 4801 |H | Short_Literal 0x1 ; Debug Table 0x16 = .DEBUG 0x02cb,0x054e,0x1004,0x0000,0x0037,0x5c94,0x0000,0x03f8 ; Debug Table 0x16.0x0 = 0x2cb,0xffff 02cc e407 | | Load 0x2,0x7 02cd e406 | | Load 0x2,0x6 02ce 01cf | | Execute Vector,Slice_Read 02cf 0335 | 5 | Declare_Variable Array,Duplicate 02d0 00d0 | | Action Swap_Control 02d1 00d1 | | Pop_Control Pop_Count_1 02d2 BODY_02c8: 02d2 4800 |H | Short_Literal 0x0 ; Debug Table 0x16.0x1 = 0x2d2,0x1 02d3 a407 | | Store_Unchecked 0x2,0x7 02d4 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x16.0x2 = 0x2d4,0x2 02d5 8409 | | Call 0x2,0x9 02d6 01cc | | Execute Vector,Catenate 02d7 00cb | | Action Pop_Block_With_Result 02d8 00ca | | Action Exit_Nullary_Function 02d9 ; -------------------------------------------------------------------------------------- 02d9 ; STRING TABLE 02d9 ; -------------------------------------------------------------------------------------- 02d9 0026 | & | .STRTAB 0x0026->0x02ec ; ".XFER" 02da 0029 | ) | .STRTAB 0x0029->0x02ee ; " already exists." 02db 0037 | 7 | .STRTAB 0x0037->0x02f6 ; " is a preloaded subystem." 02dc 004e | N | .STRTAB 0x004e->0x0303 ; " cannot be written to EEDB." 02dd 0067 | g | .STRTAB 0x0067->0x0310 ; "while reading " 02de 0073 | s | .STRTAB 0x0073->0x0317 ; " " 02df 0075 | u | .STRTAB 0x0075->0x0319 ; "*** " 02e0 0077 | w | .STRTAB 0x0077->0x031b ; "+++ " 02e1 0079 | y | .STRTAB 0x0079->0x031d ; "++* " 02e2 007b | { | .STRTAB 0x007b->0x031f ; "%%% An exception was raised " 02e3 0095 | | .STRTAB 0x0095->0x032d ; "::: " 02e4 0097 | | .STRTAB 0x0097->0x032f ; " (" 02e5 0097 | | .STRTAB 0x0097->0x0330 ; " bytes)" 02e6 009c | | .STRTAB 0x009c->0x0334 ; " bytes) (exception: " 02e7 00ae | | .STRTAB 0x00ae->0x033e ; ")" 02e8 00ad | | .STRTAB 0x00ad->0x033e ; "1 file read via " 02e9 00bb | | .STRTAB 0x00bb->0x0346 ; " files read via " 02ea 00c9 | | .STRTAB 0x00c9->0x034e ; "while opening " 02eb 00d5 | | .STREND 0x00d5->0x0355 02ec 2e58 4645 |.XFE| .STRTAB_STRINGS 0356 0000 0000 | | .XXX[0x2] 0358 ; -------------------------------------------------------------------------------------- 0358 ; Debug Table 0358 ; -------------------------------------------------------------------------------------- 0358 0003 0017 | | .CONST 0x0003,0x0017 035a 000b 0412 | | .DEBUG 0x000b,0x0412,0xc000,0x0000,0x0037,0x5764,0x0000,0x0007 0362 0016 0420 | | .DEBUG 0x0016,0x0420,0xc000,0x0000,0x0037,0x5c94,0x0000,0x0009 036a 0053 044c | S L| .DEBUG 0x0053,0x044c,0x1002,0x0000,0x0037,0x5764,0x0000,0x005f 0372 006b 0456 | k V| .DEBUG 0x006b,0x0456,0x1002,0x0000,0x0037,0x5764,0x0000,0x0068 037a 008b 0460 | `| .DEBUG 0x008b,0x0460,0x1001,0x0000,0x0037,0x5764,0x0000,0x0071 0382 00e3 0494 | | .DEBUG 0x00e3,0x0494,0x1001,0x0000,0x0037,0x5764,0x0000,0x008b 038a 0123 04bc | # | .DEBUG 0x0123,0x04bc,0x1001,0x0000,0x0037,0x5c94,0x0000,0x0018 0392 0133 04c0 | 3 | .DEBUG 0x0133,0x04c0,0x1001,0x0000,0x0037,0x5c94,0x0000,0x002c 039a 0143 04c4 | C | .DEBUG 0x0143,0x04c4,0x1001,0x0000,0x0037,0x5c94,0x0000,0x0040 03a2 0153 04c8 | S | .DEBUG 0x0153,0x04c8,0x1001,0x0000,0x0037,0x5c94,0x0000,0x0054 03aa 0163 04cc | c | .DEBUG 0x0163,0x04cc,0x1001,0x0000,0x0037,0x5c94,0x0000,0x0068 03b2 0173 04d0 | s | .DEBUG 0x0173,0x04d0,0x1001,0x0000,0x0037,0x5c94,0x0000,0x007c 03ba 0183 04d4 | | .DEBUG 0x0183,0x04d4,0x1002,0x0000,0x0037,0x5c94,0x0000,0x00b7 03c2 0193 04d8 | | .DEBUG 0x0193,0x04d8,0x1002,0x0000,0x0037,0x5c94,0x0000,0x0133 03ca 019b 04dc | | .DEBUG 0x019b,0x04dc,0x1001,0x0000,0x0037,0x5c94,0x0000,0x0149 03d2 01cb 04ea | | .DEBUG 0x01cb,0x04ea,0x1001,0x0000,0x0037,0x5c94,0x0000,0x019a 03da 0213 0504 | | .DEBUG 0x0213,0x0504,0x1001,0x0000,0x0037,0x5c94,0x0000,0x026d 03e2 021b 050a | | .DEBUG 0x021b,0x050a,0x1002,0x0000,0x0037,0x5c94,0x0000,0x0382 03ea 0243 051e | C | .DEBUG 0x0243,0x051e,0x1001,0x0000,0x0037,0x5c94,0x0000,0x03fd 03f2 025b 0526 | [ &| .DEBUG 0x025b,0x0526,0x1004,0x0000,0x0037,0x5c94,0x0000,0x01e5 03fa 026b 052e | k .| .DEBUG 0x026b,0x052e,0x1004,0x0000,0x0037,0x5c94,0x0000,0x022b 0402 02a3 0544 | D| .DEBUG 0x02a3,0x0544,0x1004,0x0000,0x0037,0x5c94,0x0000,0x03dc 040a 02cb 054e | N| .DEBUG 0x02cb,0x054e,0x1004,0x0000,0x0037,0x5c94,0x0000,0x03f8 0412 ; -------------------------------------------------------------------------------------- 0412 ; Debug3 Subtable 0x0 0412 ; -------------------------------------------------------------------------------------- 0412 0006 0000 | | .DBG3TAB 0x0006,0x0000 0414 000b ffff | | .CONST 0x000b,0xffff 0416 000c fffe | | .CONST 0x000c,0xfffe 0418 000d fffd | | .CONST 0x000d,0xfffd 041a 000f fffc | | .CONST 0x000f,0xfffc 041c 0011 fffb | | .CONST 0x0011,0xfffb 041e 0013 fffa | | .CONST 0x0013,0xfffa 0420 ; -------------------------------------------------------------------------------------- 0420 ; Debug3 Subtable 0x1 0420 ; -------------------------------------------------------------------------------------- 0420 0015 0000 | | .DBG3TAB 0x0015,0x0000 0422 0016 ffff | | .CONST 0x0016,0xffff 0424 0018 fffe | | .CONST 0x0018,0xfffe 0426 0019 fffd | | .CONST 0x0019,0xfffd 0428 001b fffc | | .CONST 0x001b,0xfffc 042a 001d fffb | | .CONST 0x001d,0xfffb 042c 001f fffa | | .CONST 0x001f,0xfffa 042e 0021 fff9 | ! | .CONST 0x0021,0xfff9 0430 0023 fff8 | # | .CONST 0x0023,0xfff8 0432 0025 fff7 | % | .CONST 0x0025,0xfff7 0434 002c fff6 | , | .CONST 0x002c,0xfff6 0436 002f fff5 | / | .CONST 0x002f,0xfff5 0438 0032 fff4 | 2 | .CONST 0x0032,0xfff4 043a 0034 fff3 | 4 | .CONST 0x0034,0xfff3 043c 0036 fff2 | 6 | .CONST 0x0036,0xfff2 043e 0038 fff1 | 8 | .CONST 0x0038,0xfff1 0440 003b fff0 | ; | .CONST 0x003b,0xfff0 0442 003d ffef | = | .CONST 0x003d,0xffef 0444 003f ffee | ? | .CONST 0x003f,0xffee 0446 0041 ffed | A | .CONST 0x0041,0xffed 0448 0043 ffec | C | .CONST 0x0043,0xffec 044a 0045 ffeb | E | .CONST 0x0045,0xffeb 044c ; -------------------------------------------------------------------------------------- 044c ; Debug3 Subtable 0x2 044c ; -------------------------------------------------------------------------------------- 044c 0000 0004 | | .DBG3TAB 0x0000,0x0004 044e 0053 0001 | S | .CONST 0x0053,0x0001 0450 0057 0002 | W | .CONST 0x0057,0x0002 0452 005c 0003 | \ | .CONST 0x005c,0x0003 0454 0064 0004 | d | .CONST 0x0064,0x0004 0456 ; -------------------------------------------------------------------------------------- 0456 ; Debug3 Subtable 0x3 0456 ; -------------------------------------------------------------------------------------- 0456 0000 0004 | | .DBG3TAB 0x0000,0x0004 0458 006b 0001 | k | .CONST 0x006b,0x0001 045a 006f 0002 | o | .CONST 0x006f,0x0002 045c 0074 0003 | t | .CONST 0x0074,0x0003 045e 007e 0004 | ~ | .CONST 0x007e,0x0004 0460 ; -------------------------------------------------------------------------------------- 0460 ; Debug3 Subtable 0x4 0460 ; -------------------------------------------------------------------------------------- 0460 0004 0015 | | .DBG3TAB 0x0004,0x0015 0462 008b ffff | | .CONST 0x008b,0xffff 0464 008e fffe | | .CONST 0x008e,0xfffe 0466 0090 fffd | | .CONST 0x0090,0xfffd 0468 0091 fffc | | .CONST 0x0091,0xfffc 046a 0093 0001 | | .CONST 0x0093,0x0001 046c 0097 0002 | | .CONST 0x0097,0x0002 046e 0098 0003 | | .CONST 0x0098,0x0003 0470 009b 0004 | | .CONST 0x009b,0x0004 0472 009f 0005 | | .CONST 0x009f,0x0005 0474 00a2 0006 | | .CONST 0x00a2,0x0006 0476 00a5 0007 | | .CONST 0x00a5,0x0007 0478 00a7 0008 | | .CONST 0x00a7,0x0008 047a 00ab 0009 | | .CONST 0x00ab,0x0009 047c 00b1 000a | | .CONST 0x00b1,0x000a 047e 00b4 000b | | .CONST 0x00b4,0x000b 0480 00bb 000c | | .CONST 0x00bb,0x000c 0482 00bf 000d | | .CONST 0x00bf,0x000d 0484 00c5 000e | | .CONST 0x00c5,0x000e 0486 00c7 000f | | .CONST 0x00c7,0x000f 0488 00c9 0010 | | .CONST 0x00c9,0x0010 048a 00d0 0011 | | .CONST 0x00d0,0x0011 048c 00d5 0012 | | .CONST 0x00d5,0x0012 048e 00d7 0013 | | .CONST 0x00d7,0x0013 0490 00d9 0014 | | .CONST 0x00d9,0x0014 0492 00dd 0015 | | .CONST 0x00dd,0x0015 0494 ; -------------------------------------------------------------------------------------- 0494 ; Debug3 Subtable 0x5 0494 ; -------------------------------------------------------------------------------------- 0494 0009 000a | | .DBG3TAB 0x0009,0x000a 0496 00e3 ffff | | .CONST 0x00e3,0xffff 0498 00e7 fffe | | .CONST 0x00e7,0xfffe 049a 00e9 fffd | | .CONST 0x00e9,0xfffd 049c 00ea fffc | | .CONST 0x00ea,0xfffc 049e 00ec fffb | | .CONST 0x00ec,0xfffb 04a0 00f0 fffa | | .CONST 0x00f0,0xfffa 04a2 00f2 fff9 | | .CONST 0x00f2,0xfff9 04a4 00f4 fff8 | | .CONST 0x00f4,0xfff8 04a6 00f6 fff7 | | .CONST 0x00f6,0xfff7 04a8 00f9 0001 | | .CONST 0x00f9,0x0001 04aa 00fe 0003 | | .CONST 0x00fe,0x0003 04ac 0106 0004 | | .CONST 0x0106,0x0004 04ae 0108 0005 | | .CONST 0x0108,0x0005 04b0 010b 0002 | | .CONST 0x010b,0x0002 04b2 010d 0006 | | .CONST 0x010d,0x0006 04b4 0110 0007 | | .CONST 0x0110,0x0007 04b6 0113 0008 | | .CONST 0x0113,0x0008 04b8 0116 0009 | | .CONST 0x0116,0x0009 04ba 011b 000a | | .CONST 0x011b,0x000a 04bc ; -------------------------------------------------------------------------------------- 04bc ; Debug3 Subtable 0x6 04bc ; -------------------------------------------------------------------------------------- 04bc 0000 0001 | | .DBG3TAB 0x0000,0x0001 04be 0123 0001 | # | .CONST 0x0123,0x0001 04c0 ; -------------------------------------------------------------------------------------- 04c0 ; Debug3 Subtable 0x7 04c0 ; -------------------------------------------------------------------------------------- 04c0 0000 0001 | | .DBG3TAB 0x0000,0x0001 04c2 0133 0001 | 3 | .CONST 0x0133,0x0001 04c4 ; -------------------------------------------------------------------------------------- 04c4 ; Debug3 Subtable 0x8 04c4 ; -------------------------------------------------------------------------------------- 04c4 0000 0001 | | .DBG3TAB 0x0000,0x0001 04c6 0143 0001 | C | .CONST 0x0143,0x0001 04c8 ; -------------------------------------------------------------------------------------- 04c8 ; Debug3 Subtable 0x9 04c8 ; -------------------------------------------------------------------------------------- 04c8 0000 0001 | | .DBG3TAB 0x0000,0x0001 04ca 0153 0001 | S | .CONST 0x0153,0x0001 04cc ; -------------------------------------------------------------------------------------- 04cc ; Debug3 Subtable 0xa 04cc ; -------------------------------------------------------------------------------------- 04cc 0000 0001 | | .DBG3TAB 0x0000,0x0001 04ce 0163 0001 | c | .CONST 0x0163,0x0001 04d0 ; -------------------------------------------------------------------------------------- 04d0 ; Debug3 Subtable 0xb 04d0 ; -------------------------------------------------------------------------------------- 04d0 0000 0001 | | .DBG3TAB 0x0000,0x0001 04d2 0173 0001 | s | .CONST 0x0173,0x0001 04d4 ; -------------------------------------------------------------------------------------- 04d4 ; Debug3 Subtable 0xc 04d4 ; -------------------------------------------------------------------------------------- 04d4 0000 0001 | | .DBG3TAB 0x0000,0x0001 04d6 0183 0001 | | .CONST 0x0183,0x0001 04d8 ; -------------------------------------------------------------------------------------- 04d8 ; Debug3 Subtable 0xd 04d8 ; -------------------------------------------------------------------------------------- 04d8 0000 0001 | | .DBG3TAB 0x0000,0x0001 04da 0193 0001 | | .CONST 0x0193,0x0001 04dc ; -------------------------------------------------------------------------------------- 04dc ; Debug3 Subtable 0xe 04dc ; -------------------------------------------------------------------------------------- 04dc 0002 0004 | | .DBG3TAB 0x0002,0x0004 04de 019b ffff | | .CONST 0x019b,0xffff 04e0 01a3 fffe | | .CONST 0x01a3,0xfffe 04e2 01a4 0001 | | .CONST 0x01a4,0x0001 04e4 01ab 0002 | | .CONST 0x01ab,0x0002 04e6 01b1 0003 | | .CONST 0x01b1,0x0003 04e8 01c2 0004 | | .CONST 0x01c2,0x0004 04ea ; -------------------------------------------------------------------------------------- 04ea ; Debug3 Subtable 0xf 04ea ; -------------------------------------------------------------------------------------- 04ea 0005 0007 | | .DBG3TAB 0x0005,0x0007 04ec 01cb ffff | | .CONST 0x01cb,0xffff 04ee 01cf fffe | | .CONST 0x01cf,0xfffe 04f0 01d4 fffd | | .CONST 0x01d4,0xfffd 04f2 01d9 fffc | | .CONST 0x01d9,0xfffc 04f4 01da fffb | | .CONST 0x01da,0xfffb 04f6 01e1 0001 | | .CONST 0x01e1,0x0001 04f8 01e2 0002 | | .CONST 0x01e2,0x0002 04fa 01e3 0003 | | .CONST 0x01e3,0x0003 04fc 01e6 0004 | | .CONST 0x01e6,0x0004 04fe 01f3 0005 | | .CONST 0x01f3,0x0005 0500 01f6 0006 | | .CONST 0x01f6,0x0006 0502 0207 0007 | | .CONST 0x0207,0x0007 0504 ; -------------------------------------------------------------------------------------- 0504 ; Debug3 Subtable 0x10 0504 ; -------------------------------------------------------------------------------------- 0504 0000 0002 | | .DBG3TAB 0x0000,0x0002 0506 0213 0001 | | .CONST 0x0213,0x0001 0508 0215 0002 | | .CONST 0x0215,0x0002 050a ; -------------------------------------------------------------------------------------- 050a ; Debug3 Subtable 0x11 050a ; -------------------------------------------------------------------------------------- 050a 0000 0009 | | .DBG3TAB 0x0000,0x0009 050c 021f 0001 | | .CONST 0x021f,0x0001 050e 0221 0002 | ! | .CONST 0x0221,0x0002 0510 0228 0003 | ( | .CONST 0x0228,0x0003 0512 022a 0004 | * | .CONST 0x022a,0x0004 0514 022c 0005 | , | .CONST 0x022c,0x0005 0516 022e 0006 | . | .CONST 0x022e,0x0006 0518 0232 0007 | 2 | .CONST 0x0232,0x0007 051a 0237 0008 | 7 | .CONST 0x0237,0x0008 051c 0239 0009 | 9 | .CONST 0x0239,0x0009 051e ; -------------------------------------------------------------------------------------- 051e ; Debug3 Subtable 0x12 051e ; -------------------------------------------------------------------------------------- 051e 0000 0003 | | .DBG3TAB 0x0000,0x0003 0520 0243 0001 | C | .CONST 0x0243,0x0001 0522 0246 0002 | F | .CONST 0x0246,0x0002 0524 024c 0003 | L | .CONST 0x024c,0x0003 0526 ; -------------------------------------------------------------------------------------- 0526 ; Debug3 Subtable 0x13 0526 ; -------------------------------------------------------------------------------------- 0526 0000 0003 | | .DBG3TAB 0x0000,0x0003 0528 025b 0001 | [ | .CONST 0x025b,0x0001 052a 0261 0002 | a | .CONST 0x0261,0x0002 052c 0266 0003 | f | .CONST 0x0266,0x0003 052e ; -------------------------------------------------------------------------------------- 052e ; Debug3 Subtable 0x14 052e ; -------------------------------------------------------------------------------------- 052e 0000 000a | | .DBG3TAB 0x0000,0x000a 0530 026b 0001 | k | .CONST 0x026b,0x0001 0532 0270 0002 | p | .CONST 0x0270,0x0002 0534 0271 0003 | q | .CONST 0x0271,0x0003 0536 0278 0004 | x | .CONST 0x0278,0x0004 0538 027a 0005 | z | .CONST 0x027a,0x0005 053a 0282 0006 | | .CONST 0x0282,0x0006 053c 0287 0007 | | .CONST 0x0287,0x0007 053e 028f 0008 | | .CONST 0x028f,0x0008 0540 0295 0009 | | .CONST 0x0295,0x0009 0542 029a 000a | | .CONST 0x029a,0x000a 0544 ; -------------------------------------------------------------------------------------- 0544 ; Debug3 Subtable 0x15 0544 ; -------------------------------------------------------------------------------------- 0544 0001 0003 | | .DBG3TAB 0x0001,0x0003 0546 02a3 ffff | | .CONST 0x02a3,0xffff 0548 02ac 0001 | | .CONST 0x02ac,0x0001 054a 02b9 0002 | | .CONST 0x02b9,0x0002 054c 02bd 0003 | | .CONST 0x02bd,0x0003 054e ; -------------------------------------------------------------------------------------- 054e ; Debug3 Subtable 0x16 054e ; -------------------------------------------------------------------------------------- 054e 0001 0002 | | .DBG3TAB 0x0001,0x0002 0550 02cb ffff | | .CONST 0x02cb,0xffff 0552 02d2 0001 | | .CONST 0x02d2,0x0001 0554 02d4 0002 | | .CONST 0x02d4,0x0002 0556 0000 0000 | | .BLANK 0000[0xaa]