|
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_0500e0
└─⟦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 0340 | @ | .CONST 0x0340 ; 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,0x03fa,0xc000,0x0000,0x0036,0x43a4,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 02d0 | | Action Push_String_Extended,0x2d0 ; ".XFER" ; Debug Table 0x1 = .DEBUG 0x0016,0x0408,0xc000,0x0000,0x0036,0x43d4,0x0000,0x0007 ; 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 62a6 |b | Indirect_Literal Discrete,0x2cc,{0x00000000, 0x003643d4} ; Debug Table 0x1.0x8 = 0x25,0xfff7 0026 488e |H | Short_Literal 0x8e 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 020b | | Declare_Subprogram INIT_0208,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,0x0434,0x1002,0x0000,0x0036,0x43a4,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,0x043e,0x1002,0x0000,0x0036,0x43a4,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,0x0448,0x1001,0x0000,0x0036,0x43a4,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 02d1 | | Action Push_String_Extended,0x2d1 ; " 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 02d2 | | Action Push_String_Extended,0x2d2 ; " 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 02d3 | | Action Push_String_Extended,0x2d3 ; " 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,0x047c,0x1001,0x0000,0x0036,0x43a4,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 0213 | | Declare_Subprogram INIT_0210,For_Call ; Debug Table 0x5.0x7 = 0xf4,0xfff8 00f6 029f 023b | ;| Declare_Subprogram INIT_0238,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 02d4 | | Action Push_String_Extended,0x2d4 ; "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 02d5 | | Action Push_String_Extended,0x2d5 ; " " ; Debug Table 0x6 = .DEBUG 0x0123,0x04a4,0x1001,0x0000,0x0036,0x43d4,0x0000,0x0016 ; 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 02d6 | | Action Push_String_Extended,0x2d6 ; "*** " ; Debug Table 0x7 = .DEBUG 0x0133,0x04a8,0x1001,0x0000,0x0036,0x43d4,0x0000,0x002a ; 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 02d7 | | Action Push_String_Extended,0x2d7 ; "+++ " ; Debug Table 0x8 = .DEBUG 0x0143,0x04ac,0x1001,0x0000,0x0036,0x43d4,0x0000,0x003e ; 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 02d8 | | Action Push_String_Extended,0x2d8 ; "++* " ; Debug Table 0x9 = .DEBUG 0x0153,0x04b0,0x1001,0x0000,0x0036,0x43d4,0x0000,0x0052 ; 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 02d9 | | Action Push_String_Extended,0x2d9 ; "%%% An exception was raised " ; Debug Table 0xa = .DEBUG 0x0163,0x04b4,0x1001,0x0000,0x0036,0x43d4,0x0000,0x0066 ; 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 02da | | Action Push_String_Extended,0x2da ; "::: " ; Debug Table 0xb = .DEBUG 0x0173,0x04b8,0x1001,0x0000,0x0036,0x43d4,0x0000,0x007a ; 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,0x04bc,0x1002,0x0000,0x0036,0x43d4,0x0000,0x00b5 ; 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,0x04c0,0x1002,0x0000,0x0036,0x43d4,0x0000,0x0131 ; 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,0x04c4,0x1001,0x0000,0x0036,0x43d4,0x0000,0x0147 ; 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,0x04d2,0x1001,0x0000,0x0036,0x43d4,0x0000,0x0198 ; 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 0253 | S| Declare_Subprogram INIT_0250,For_Call 01de 029f 0263 | c| Declare_Subprogram INIT_0260,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 02db | | Action Push_String_Extended,0x2db ; " (" 01e9 01cc | | Execute Vector,Catenate 01ea 00db | | Load_Top At_Offset_3 01eb 8224 | $ | Call 0x1,0x24 01ec 01cc | | Execute Vector,Catenate 01ed 0092 02dc | | Action Push_String_Extended,0x2dc ; " 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 02db | | Action Push_String_Extended,0x2db ; " (" 01f9 01cc | | Execute Vector,Catenate 01fa e406 | | Load 0x2,0x6 01fb 8224 | $ | Call 0x1,0x24 01fc 01cc | | Execute Vector,Catenate 01fd 0092 02dc | | Action Push_String_Extended,0x2dc ; " bytes)" 01ff 01cc | | Execute Vector,Catenate 0200 821e | | Call 0x1,0x1e 0201 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xf.0xb = 0x201,0x7 0202 0101 | | Execute Exception,Reraise 0203 0000 0000 | | .BLANK 0000[0x5] 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 020b | | .CONST 0x020b ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0001 | | .CONST 0x0001 ; Number of locals 020b BODY_0208: 020b INIT_0208: 020b 00db | | Load_Top At_Offset_3 ; Debug Table 0x10 = .DEBUG 0x020b,0x04ec,0x1001,0x0000,0x0036,0x43d4,0x0000,0x0261 ; Debug Table 0x10.0x0 = 0x20b,0x1 020c 6802 |h | Jump_Zero 0x20f 020d 00da | | Load_Top At_Offset_2 ; Debug Table 0x10.0x1 = 0x20d,0x2 020e 821b | | Call 0x1,0x1b 020f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 0217 | | .CONST 0x0217 ; Address of begin 0211 0004 | | .CONST 0x0004 ; Address of exception handler 0212 0003 | | .CONST 0x0003 ; Number of locals 0213 INIT_0210: 0213 029f 029b | | Declare_Subprogram INIT_0298,For_Call ; Debug Table 0x11 = .DEBUG 0x0213,0x04f2,0x1002,0x0000,0x0036,0x43d4,0x0000,0x0376 0215 029f 02bb | | Declare_Subprogram INIT_02b8,For_Call 0217 BODY_0210: 0217 e407 | | Load 0x2,0x7 ; Debug Table 0x11.0x0 = 0x217,0x1 0218 700d |p | Jump_Nonzero 0x226 0219 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x11.0x1 = 0x219,0x2 021a e406 | | Load 0x2,0x6 021b e402 | | Load 0x2,0x2 021c 8227 | ' | Call 0x1,0x27 021d c402 | | Store 0x2,0x2 021e 00d1 | | Pop_Control Pop_Count_1 021f c407 | | Store 0x2,0x7 0220 e407 | | Load 0x2,0x7 ; Debug Table 0x11.0x2 = 0x220,0x3 0221 7004 |p | Jump_Nonzero 0x226 0222 4801 |H | Short_Literal 0x1 ; Debug Table 0x11.0x3 = 0x222,0x4 0223 a408 | | Store_Unchecked 0x2,0x8 0224 00ea | | Load_Encached Null_String_Cache ; Debug Table 0x11.0x4 = 0x224,0x5 0225 00ca | | Action Exit_Nullary_Function 0226 e407 | | Load 0x2,0x7 ; Debug Table 0x11.0x5 = 0x226,0x6 0227 4801 |H | Short_Literal 0x1 0228 0263 | c | Execute Discrete,Above_Bound 0229 7007 |p | Jump_Nonzero 0x231 022a 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x11.0x6 = 0x22a,0x7 022b e406 | | Load 0x2,0x6 022c 01d7 | | Execute Vector,Field_Read 022d 0f0a | | Execute_Immediate Equal,0xa 022e 6801 |h | Jump_Zero 0x230 022f 8602 | | Call 0x3,0x2 ; Debug Table 0x11.0x7 = 0x22f,0x8 0230 3ff9 |? | Loop_Increasing 0x22a 0231 8603 | | Call 0x3,0x3 ; Debug Table 0x11.0x8 = 0x231,0x9 0232 4831 |H1 | Short_Literal 0x31 0233 0257 | W | Execute Discrete,Raise 0234 0000 0000 | | .BLANK 0000[0x4] 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 023b | ; | .CONST 0x023b ; Address of begin 0239 0004 | | .CONST 0x0004 ; Address of exception handler 023a 0001 | | .CONST 0x0001 ; Number of locals 023b BODY_0238: 023b INIT_0238: 023b e405 | | Load 0x2,0x5 ; Debug Table 0x12 = .DEBUG 0x023b,0x0506,0x1001,0x0000,0x0036,0x43d4,0x0000,0x03f1 ; Debug Table 0x12.0x0 = 0x23b,0x1 023c 0f01 | | Execute_Immediate Equal,0x1 023d 6806 |h | Jump_Zero 0x244 023e 0092 02dd | | Action Push_String_Extended,0x2dd ; "1 file read via " ; Debug Table 0x12.0x1 = 0x23e,0x2 0240 e5ff | | Load 0x2,-0x1 0241 01cc | | Execute Vector,Catenate 0242 8220 | | Call 0x1,0x20 0243 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0244 e405 | | Load 0x2,0x5 ; Debug Table 0x12.0x2 = 0x244,0x3 0245 8224 | $ | Call 0x1,0x24 0246 0092 02de | | Action Push_String_Extended,0x2de ; " files read via " 0248 01cc | | Execute Vector,Catenate 0249 e5ff | | Load 0x2,-0x1 024a 01cc | | Execute Vector,Catenate 024b 8220 | | Call 0x1,0x20 024c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 024d 0000 0000 | | .XXX[0x3] 024f 0000 | | 0250 ; -------------------------------------------------------------------------------------- 0250 ; SUBPROGRAM 0250 ; -------------------------------------------------------------------------------------- 0250 0253 | S | .CONST 0x0253 ; Address of begin 0251 0258 | X | .CONST 0x0258 ; Address of exception handler 0252 0001 | | .CONST 0x0001 ; Number of locals 0253 BODY_0250: 0253 INIT_0250: 0253 e402 | | Load 0x2,0x2 ; Debug Table 0x13 = .DEBUG 0x0253,0x050e,0x1004,0x0000,0x0036,0x43d4,0x0000,0x01e3 ; Debug Table 0x13.0x0 = 0x253,0x1 0254 e5ff | | Load 0x2,-0x1 0255 8210 | | Call 0x1,0x10 0256 c402 | | Store 0x2,0x2 0257 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0258 TRAP_0250: 0258 0007 | | Action Break_Optional 0259 0092 02df | | Action Push_String_Extended,0x2df ; "while opening " ; Debug Table 0x13.0x1 = 0x259,0x2 025b e5ff | | Load 0x2,-0x1 025c 01cc | | Execute Vector,Catenate 025d 821f | | Call 0x1,0x1f 025e 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x13.0x2 = 0x25e,0x3 025f 0101 | | Execute Exception,Reraise 0260 ; -------------------------------------------------------------------------------------- 0260 ; SUBPROGRAM 0260 ; -------------------------------------------------------------------------------------- 0260 0263 | c | .CONST 0x0263 ; Address of begin 0261 0286 | | .CONST 0x0286 ; Address of exception handler 0262 0001 | | .CONST 0x0001 ; Number of locals 0263 BODY_0260: 0263 INIT_0260: 0263 e403 | | Load 0x2,0x3 ; Debug Table 0x14 = .DEBUG 0x0263,0x0516,0x1004,0x0000,0x0036,0x43d4,0x0000,0x0229 ; Debug Table 0x14.0x0 = 0x263,0x1 0264 e5fe | | Load 0x2,-0x2 0265 e221 | ! | Load 0x1,0x21 0266 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0267 00d1 | | Pop_Control Pop_Count_1 0268 0007 | | Action Break_Optional ; Debug Table 0x14.0x1 = 0x268,0x2 0269 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x14.0x2 = 0x269,0x3 026a e404 | | Load 0x2,0x4 026b e402 | | Load 0x2,0x2 026c 8212 | | Call 0x1,0x12 026d c402 | | Store 0x2,0x2 026e 00d1 | | Pop_Control Pop_Count_1 026f c405 | | Store 0x2,0x5 0270 e405 | | Load 0x2,0x5 ; Debug Table 0x14.0x3 = 0x270,0x4 0271 680d |h | Jump_Zero 0x27f 0272 e403 | | Load 0x2,0x3 ; Debug Table 0x14.0x4 = 0x272,0x5 0273 4801 |H | Short_Literal 0x1 0274 e405 | | Load 0x2,0x5 0275 e404 | | Load 0x2,0x4 0276 01cf | | Execute Vector,Slice_Read 0277 e221 | ! | Load 0x1,0x21 0278 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0279 00d1 | | Pop_Control Pop_Count_1 027a e406 | | Load 0x2,0x6 ; Debug Table 0x14.0x5 = 0x27a,0x6 027b e405 | | Load 0x2,0x5 027c 0273 | s | Execute Discrete,Plus 027d c406 | | Store 0x2,0x6 027e 7fea | | Jump 0x269 027f 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x14.0x6 = 0x27f,0x7 0280 e403 | | Load 0x2,0x3 0281 e221 | ! | Load 0x1,0x21 0282 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0283 00d1 | | Pop_Control Pop_Count_1 0284 c5fc | | Store 0x2,-0x4 0285 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0286 TRAP_0260: 0286 0007 | | Action Break_Optional 0287 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x14.0x7 = 0x287,0x8 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 0092 02d4 | | Action Push_String_Extended,0x2d4 ; "while reading " ; Debug Table 0x14.0x8 = 0x28d,0x9 028f e5ff | | Load 0x2,-0x1 0290 01cc | | Execute Vector,Catenate 0291 821f | | Call 0x1,0x1f 0292 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x14.0x9 = 0x292,0xa 0293 0101 | | Execute Exception,Reraise 0294 0000 0000 | | .BLANK 0000[0x4] 0298 ; -------------------------------------------------------------------------------------- 0298 ; SUBPROGRAM 0298 ; -------------------------------------------------------------------------------------- 0298 02a4 | | .CONST 0x02a4 ; Address of begin 0299 0004 | | .CONST 0x0004 ; Address of exception handler 029a 0002 | | .CONST 0x0002 ; Number of locals 029b INIT_0298: 029b 4801 |H | Short_Literal 0x1 ; Debug Table 0x15 = .DEBUG 0x029b,0x052c,0x1004,0x0000,0x0036,0x43d4,0x0000,0x03d0 ; Debug Table 0x15.0x0 = 0x29b,0xffff 029c e605 | | Load 0x3,0x5 029d 0aff | | Execute_Immediate Plus,-0x1 029e 0248 | H | Execute Discrete,Check_In_Integer 029f e406 | | Load 0x2,0x6 02a0 01cf | | Execute Vector,Slice_Read 02a1 0335 | 5 | Declare_Variable Array,Duplicate 02a2 00d0 | | Action Swap_Control 02a3 00d1 | | Pop_Control Pop_Count_1 02a4 BODY_0298: 02a4 e605 | | Load 0x3,0x5 ; Debug Table 0x15.0x1 = 0x2a4,0x1 02a5 0a01 | | Execute_Immediate Plus,0x1 02a6 0248 | H | Execute Discrete,Check_In_Integer 02a7 e407 | | Load 0x2,0x7 02a8 e406 | | Load 0x2,0x6 02a9 01cf | | Execute Vector,Slice_Read 02aa 4801 |H | Short_Literal 0x1 02ab e407 | | Load 0x2,0x7 02ac e605 | | Load 0x3,0x5 02ad 0272 | r | Execute Discrete,Minus 02ae 0248 | H | Execute Discrete,Check_In_Integer 02af e406 | | Load 0x2,0x6 02b0 01ce | | Execute Vector,Slice_Write 02b1 e407 | | Load 0x2,0x7 ; Debug Table 0x15.0x2 = 0x2b1,0x2 02b2 e605 | | Load 0x3,0x5 02b3 0272 | r | Execute Discrete,Minus 02b4 c407 | | Store 0x2,0x7 02b5 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x15.0x3 = 0x2b5,0x3 02b6 00cb | | Action Pop_Block_With_Result 02b7 00ca | | Action Exit_Nullary_Function 02b8 ; -------------------------------------------------------------------------------------- 02b8 ; SUBPROGRAM 02b8 ; -------------------------------------------------------------------------------------- 02b8 02c2 | | .CONST 0x02c2 ; Address of begin 02b9 0004 | | .CONST 0x0004 ; Address of exception handler 02ba 0002 | | .CONST 0x0002 ; Number of locals 02bb INIT_02b8: 02bb 4801 |H | Short_Literal 0x1 ; Debug Table 0x16 = .DEBUG 0x02bb,0x0536,0x1004,0x0000,0x0036,0x43d4,0x0000,0x03ec ; Debug Table 0x16.0x0 = 0x2bb,0xffff 02bc e407 | | Load 0x2,0x7 02bd e406 | | Load 0x2,0x6 02be 01cf | | Execute Vector,Slice_Read 02bf 0335 | 5 | Declare_Variable Array,Duplicate 02c0 00d0 | | Action Swap_Control 02c1 00d1 | | Pop_Control Pop_Count_1 02c2 BODY_02b8: 02c2 4800 |H | Short_Literal 0x0 ; Debug Table 0x16.0x1 = 0x2c2,0x1 02c3 a407 | | Store_Unchecked 0x2,0x7 02c4 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x16.0x2 = 0x2c4,0x2 02c5 8409 | | Call 0x2,0x9 02c6 01cc | | Execute Vector,Catenate 02c7 00cb | | Action Pop_Block_With_Result 02c8 00ca | | Action Exit_Nullary_Function 02c9 0000 0000 | | .XXX[0x3] 02cb 0000 | | 02cc 0000 0000 | | .LITERAL {0x00000000, 0x003643d4} 02d0 ; -------------------------------------------------------------------------------------- 02d0 ; STRING TABLE 02d0 ; -------------------------------------------------------------------------------------- 02d0 0022 | " | .STRTAB 0x0022->0x02e1 ; ".XFER" 02d1 0025 | % | .STRTAB 0x0025->0x02e3 ; " already exists." 02d2 0033 | 3 | .STRTAB 0x0033->0x02eb ; " is a preloaded subystem." 02d3 004a | J | .STRTAB 0x004a->0x02f8 ; " cannot be written to EEDB." 02d4 0063 | c | .STRTAB 0x0063->0x0305 ; "while reading " 02d5 006f | o | .STRTAB 0x006f->0x030c ; " " 02d6 0071 | q | .STRTAB 0x0071->0x030e ; "*** " 02d7 0073 | s | .STRTAB 0x0073->0x0310 ; "+++ " 02d8 0075 | u | .STRTAB 0x0075->0x0312 ; "++* " 02d9 0077 | w | .STRTAB 0x0077->0x0314 ; "%%% An exception was raised " 02da 0091 | | .STRTAB 0x0091->0x0322 ; "::: " 02db 0093 | | .STRTAB 0x0093->0x0324 ; " (" 02dc 0093 | | .STRTAB 0x0093->0x0325 ; " bytes)" 02dd 0098 | | .STRTAB 0x0098->0x0329 ; "1 file read via " 02de 00a6 | | .STRTAB 0x00a6->0x0331 ; " files read via " 02df 00b4 | | .STRTAB 0x00b4->0x0339 ; "while opening " 02e0 00c0 | | .STREND 0x00c0->0x0340 02e1 2e58 4645 |.XFE| .STRTAB_STRINGS 0340 ; -------------------------------------------------------------------------------------- 0340 ; Debug Table 0340 ; -------------------------------------------------------------------------------------- 0340 0003 0017 | | .CONST 0x0003,0x0017 0342 000b 03fa | | .DEBUG 0x000b,0x03fa,0xc000,0x0000,0x0036,0x43a4,0x0000,0x0007 034a 0016 0408 | | .DEBUG 0x0016,0x0408,0xc000,0x0000,0x0036,0x43d4,0x0000,0x0007 0352 0053 0434 | S 4| .DEBUG 0x0053,0x0434,0x1002,0x0000,0x0036,0x43a4,0x0000,0x005f 035a 006b 043e | k >| .DEBUG 0x006b,0x043e,0x1002,0x0000,0x0036,0x43a4,0x0000,0x0068 0362 008b 0448 | H| .DEBUG 0x008b,0x0448,0x1001,0x0000,0x0036,0x43a4,0x0000,0x0071 036a 00e3 047c | || .DEBUG 0x00e3,0x047c,0x1001,0x0000,0x0036,0x43a4,0x0000,0x008b 0372 0123 04a4 | # | .DEBUG 0x0123,0x04a4,0x1001,0x0000,0x0036,0x43d4,0x0000,0x0016 037a 0133 04a8 | 3 | .DEBUG 0x0133,0x04a8,0x1001,0x0000,0x0036,0x43d4,0x0000,0x002a 0382 0143 04ac | C | .DEBUG 0x0143,0x04ac,0x1001,0x0000,0x0036,0x43d4,0x0000,0x003e 038a 0153 04b0 | S | .DEBUG 0x0153,0x04b0,0x1001,0x0000,0x0036,0x43d4,0x0000,0x0052 0392 0163 04b4 | c | .DEBUG 0x0163,0x04b4,0x1001,0x0000,0x0036,0x43d4,0x0000,0x0066 039a 0173 04b8 | s | .DEBUG 0x0173,0x04b8,0x1001,0x0000,0x0036,0x43d4,0x0000,0x007a 03a2 0183 04bc | | .DEBUG 0x0183,0x04bc,0x1002,0x0000,0x0036,0x43d4,0x0000,0x00b5 03aa 0193 04c0 | | .DEBUG 0x0193,0x04c0,0x1002,0x0000,0x0036,0x43d4,0x0000,0x0131 03b2 019b 04c4 | | .DEBUG 0x019b,0x04c4,0x1001,0x0000,0x0036,0x43d4,0x0000,0x0147 03ba 01cb 04d2 | | .DEBUG 0x01cb,0x04d2,0x1001,0x0000,0x0036,0x43d4,0x0000,0x0198 03c2 020b 04ec | | .DEBUG 0x020b,0x04ec,0x1001,0x0000,0x0036,0x43d4,0x0000,0x0261 03ca 0213 04f2 | | .DEBUG 0x0213,0x04f2,0x1002,0x0000,0x0036,0x43d4,0x0000,0x0376 03d2 023b 0506 | ; | .DEBUG 0x023b,0x0506,0x1001,0x0000,0x0036,0x43d4,0x0000,0x03f1 03da 0253 050e | S | .DEBUG 0x0253,0x050e,0x1004,0x0000,0x0036,0x43d4,0x0000,0x01e3 03e2 0263 0516 | c | .DEBUG 0x0263,0x0516,0x1004,0x0000,0x0036,0x43d4,0x0000,0x0229 03ea 029b 052c | ,| .DEBUG 0x029b,0x052c,0x1004,0x0000,0x0036,0x43d4,0x0000,0x03d0 03f2 02bb 0536 | 6| .DEBUG 0x02bb,0x0536,0x1004,0x0000,0x0036,0x43d4,0x0000,0x03ec 03fa ; -------------------------------------------------------------------------------------- 03fa ; Debug3 Subtable 0x0 03fa ; -------------------------------------------------------------------------------------- 03fa 0006 0000 | | .DBG3TAB 0x0006,0x0000 03fc 000b ffff | | .CONST 0x000b,0xffff 03fe 000c fffe | | .CONST 0x000c,0xfffe 0400 000d fffd | | .CONST 0x000d,0xfffd 0402 000f fffc | | .CONST 0x000f,0xfffc 0404 0011 fffb | | .CONST 0x0011,0xfffb 0406 0013 fffa | | .CONST 0x0013,0xfffa 0408 ; -------------------------------------------------------------------------------------- 0408 ; Debug3 Subtable 0x1 0408 ; -------------------------------------------------------------------------------------- 0408 0015 0000 | | .DBG3TAB 0x0015,0x0000 040a 0016 ffff | | .CONST 0x0016,0xffff 040c 0018 fffe | | .CONST 0x0018,0xfffe 040e 0019 fffd | | .CONST 0x0019,0xfffd 0410 001b fffc | | .CONST 0x001b,0xfffc 0412 001d fffb | | .CONST 0x001d,0xfffb 0414 001f fffa | | .CONST 0x001f,0xfffa 0416 0021 fff9 | ! | .CONST 0x0021,0xfff9 0418 0023 fff8 | # | .CONST 0x0023,0xfff8 041a 0025 fff7 | % | .CONST 0x0025,0xfff7 041c 002c fff6 | , | .CONST 0x002c,0xfff6 041e 002f fff5 | / | .CONST 0x002f,0xfff5 0420 0032 fff4 | 2 | .CONST 0x0032,0xfff4 0422 0034 fff3 | 4 | .CONST 0x0034,0xfff3 0424 0036 fff2 | 6 | .CONST 0x0036,0xfff2 0426 0038 fff1 | 8 | .CONST 0x0038,0xfff1 0428 003b fff0 | ; | .CONST 0x003b,0xfff0 042a 003d ffef | = | .CONST 0x003d,0xffef 042c 003f ffee | ? | .CONST 0x003f,0xffee 042e 0041 ffed | A | .CONST 0x0041,0xffed 0430 0043 ffec | C | .CONST 0x0043,0xffec 0432 0045 ffeb | E | .CONST 0x0045,0xffeb 0434 ; -------------------------------------------------------------------------------------- 0434 ; Debug3 Subtable 0x2 0434 ; -------------------------------------------------------------------------------------- 0434 0000 0004 | | .DBG3TAB 0x0000,0x0004 0436 0053 0001 | S | .CONST 0x0053,0x0001 0438 0057 0002 | W | .CONST 0x0057,0x0002 043a 005c 0003 | \ | .CONST 0x005c,0x0003 043c 0064 0004 | d | .CONST 0x0064,0x0004 043e ; -------------------------------------------------------------------------------------- 043e ; Debug3 Subtable 0x3 043e ; -------------------------------------------------------------------------------------- 043e 0000 0004 | | .DBG3TAB 0x0000,0x0004 0440 006b 0001 | k | .CONST 0x006b,0x0001 0442 006f 0002 | o | .CONST 0x006f,0x0002 0444 0074 0003 | t | .CONST 0x0074,0x0003 0446 007e 0004 | ~ | .CONST 0x007e,0x0004 0448 ; -------------------------------------------------------------------------------------- 0448 ; Debug3 Subtable 0x4 0448 ; -------------------------------------------------------------------------------------- 0448 0004 0015 | | .DBG3TAB 0x0004,0x0015 044a 008b ffff | | .CONST 0x008b,0xffff 044c 008e fffe | | .CONST 0x008e,0xfffe 044e 0090 fffd | | .CONST 0x0090,0xfffd 0450 0091 fffc | | .CONST 0x0091,0xfffc 0452 0093 0001 | | .CONST 0x0093,0x0001 0454 0097 0002 | | .CONST 0x0097,0x0002 0456 0098 0003 | | .CONST 0x0098,0x0003 0458 009b 0004 | | .CONST 0x009b,0x0004 045a 009f 0005 | | .CONST 0x009f,0x0005 045c 00a2 0006 | | .CONST 0x00a2,0x0006 045e 00a5 0007 | | .CONST 0x00a5,0x0007 0460 00a7 0008 | | .CONST 0x00a7,0x0008 0462 00ab 0009 | | .CONST 0x00ab,0x0009 0464 00b1 000a | | .CONST 0x00b1,0x000a 0466 00b4 000b | | .CONST 0x00b4,0x000b 0468 00bb 000c | | .CONST 0x00bb,0x000c 046a 00bf 000d | | .CONST 0x00bf,0x000d 046c 00c5 000e | | .CONST 0x00c5,0x000e 046e 00c7 000f | | .CONST 0x00c7,0x000f 0470 00c9 0010 | | .CONST 0x00c9,0x0010 0472 00d0 0011 | | .CONST 0x00d0,0x0011 0474 00d5 0012 | | .CONST 0x00d5,0x0012 0476 00d7 0013 | | .CONST 0x00d7,0x0013 0478 00d9 0014 | | .CONST 0x00d9,0x0014 047a 00dd 0015 | | .CONST 0x00dd,0x0015 047c ; -------------------------------------------------------------------------------------- 047c ; Debug3 Subtable 0x5 047c ; -------------------------------------------------------------------------------------- 047c 0009 000a | | .DBG3TAB 0x0009,0x000a 047e 00e3 ffff | | .CONST 0x00e3,0xffff 0480 00e7 fffe | | .CONST 0x00e7,0xfffe 0482 00e9 fffd | | .CONST 0x00e9,0xfffd 0484 00ea fffc | | .CONST 0x00ea,0xfffc 0486 00ec fffb | | .CONST 0x00ec,0xfffb 0488 00f0 fffa | | .CONST 0x00f0,0xfffa 048a 00f2 fff9 | | .CONST 0x00f2,0xfff9 048c 00f4 fff8 | | .CONST 0x00f4,0xfff8 048e 00f6 fff7 | | .CONST 0x00f6,0xfff7 0490 00f9 0001 | | .CONST 0x00f9,0x0001 0492 00fe 0003 | | .CONST 0x00fe,0x0003 0494 0106 0004 | | .CONST 0x0106,0x0004 0496 0108 0005 | | .CONST 0x0108,0x0005 0498 010b 0002 | | .CONST 0x010b,0x0002 049a 010d 0006 | | .CONST 0x010d,0x0006 049c 0110 0007 | | .CONST 0x0110,0x0007 049e 0113 0008 | | .CONST 0x0113,0x0008 04a0 0116 0009 | | .CONST 0x0116,0x0009 04a2 011b 000a | | .CONST 0x011b,0x000a 04a4 ; -------------------------------------------------------------------------------------- 04a4 ; Debug3 Subtable 0x6 04a4 ; -------------------------------------------------------------------------------------- 04a4 0000 0001 | | .DBG3TAB 0x0000,0x0001 04a6 0123 0001 | # | .CONST 0x0123,0x0001 04a8 ; -------------------------------------------------------------------------------------- 04a8 ; Debug3 Subtable 0x7 04a8 ; -------------------------------------------------------------------------------------- 04a8 0000 0001 | | .DBG3TAB 0x0000,0x0001 04aa 0133 0001 | 3 | .CONST 0x0133,0x0001 04ac ; -------------------------------------------------------------------------------------- 04ac ; Debug3 Subtable 0x8 04ac ; -------------------------------------------------------------------------------------- 04ac 0000 0001 | | .DBG3TAB 0x0000,0x0001 04ae 0143 0001 | C | .CONST 0x0143,0x0001 04b0 ; -------------------------------------------------------------------------------------- 04b0 ; Debug3 Subtable 0x9 04b0 ; -------------------------------------------------------------------------------------- 04b0 0000 0001 | | .DBG3TAB 0x0000,0x0001 04b2 0153 0001 | S | .CONST 0x0153,0x0001 04b4 ; -------------------------------------------------------------------------------------- 04b4 ; Debug3 Subtable 0xa 04b4 ; -------------------------------------------------------------------------------------- 04b4 0000 0001 | | .DBG3TAB 0x0000,0x0001 04b6 0163 0001 | c | .CONST 0x0163,0x0001 04b8 ; -------------------------------------------------------------------------------------- 04b8 ; Debug3 Subtable 0xb 04b8 ; -------------------------------------------------------------------------------------- 04b8 0000 0001 | | .DBG3TAB 0x0000,0x0001 04ba 0173 0001 | s | .CONST 0x0173,0x0001 04bc ; -------------------------------------------------------------------------------------- 04bc ; Debug3 Subtable 0xc 04bc ; -------------------------------------------------------------------------------------- 04bc 0000 0001 | | .DBG3TAB 0x0000,0x0001 04be 0183 0001 | | .CONST 0x0183,0x0001 04c0 ; -------------------------------------------------------------------------------------- 04c0 ; Debug3 Subtable 0xd 04c0 ; -------------------------------------------------------------------------------------- 04c0 0000 0001 | | .DBG3TAB 0x0000,0x0001 04c2 0193 0001 | | .CONST 0x0193,0x0001 04c4 ; -------------------------------------------------------------------------------------- 04c4 ; Debug3 Subtable 0xe 04c4 ; -------------------------------------------------------------------------------------- 04c4 0002 0004 | | .DBG3TAB 0x0002,0x0004 04c6 019b ffff | | .CONST 0x019b,0xffff 04c8 01a3 fffe | | .CONST 0x01a3,0xfffe 04ca 01a4 0001 | | .CONST 0x01a4,0x0001 04cc 01ab 0002 | | .CONST 0x01ab,0x0002 04ce 01b1 0003 | | .CONST 0x01b1,0x0003 04d0 01c2 0004 | | .CONST 0x01c2,0x0004 04d2 ; -------------------------------------------------------------------------------------- 04d2 ; Debug3 Subtable 0xf 04d2 ; -------------------------------------------------------------------------------------- 04d2 0005 0007 | | .DBG3TAB 0x0005,0x0007 04d4 01cb ffff | | .CONST 0x01cb,0xffff 04d6 01cf fffe | | .CONST 0x01cf,0xfffe 04d8 01d4 fffd | | .CONST 0x01d4,0xfffd 04da 01d9 fffc | | .CONST 0x01d9,0xfffc 04dc 01da fffb | | .CONST 0x01da,0xfffb 04de 01e1 0001 | | .CONST 0x01e1,0x0001 04e0 01e2 0002 | | .CONST 0x01e2,0x0002 04e2 01e3 0003 | | .CONST 0x01e3,0x0003 04e4 01e6 0004 | | .CONST 0x01e6,0x0004 04e6 01f3 0005 | | .CONST 0x01f3,0x0005 04e8 01f6 0006 | | .CONST 0x01f6,0x0006 04ea 0201 0007 | | .CONST 0x0201,0x0007 04ec ; -------------------------------------------------------------------------------------- 04ec ; Debug3 Subtable 0x10 04ec ; -------------------------------------------------------------------------------------- 04ec 0000 0002 | | .DBG3TAB 0x0000,0x0002 04ee 020b 0001 | | .CONST 0x020b,0x0001 04f0 020d 0002 | | .CONST 0x020d,0x0002 04f2 ; -------------------------------------------------------------------------------------- 04f2 ; Debug3 Subtable 0x11 04f2 ; -------------------------------------------------------------------------------------- 04f2 0000 0009 | | .DBG3TAB 0x0000,0x0009 04f4 0217 0001 | | .CONST 0x0217,0x0001 04f6 0219 0002 | | .CONST 0x0219,0x0002 04f8 0220 0003 | | .CONST 0x0220,0x0003 04fa 0222 0004 | " | .CONST 0x0222,0x0004 04fc 0224 0005 | $ | .CONST 0x0224,0x0005 04fe 0226 0006 | & | .CONST 0x0226,0x0006 0500 022a 0007 | * | .CONST 0x022a,0x0007 0502 022f 0008 | / | .CONST 0x022f,0x0008 0504 0231 0009 | 1 | .CONST 0x0231,0x0009 0506 ; -------------------------------------------------------------------------------------- 0506 ; Debug3 Subtable 0x12 0506 ; -------------------------------------------------------------------------------------- 0506 0000 0003 | | .DBG3TAB 0x0000,0x0003 0508 023b 0001 | ; | .CONST 0x023b,0x0001 050a 023e 0002 | > | .CONST 0x023e,0x0002 050c 0244 0003 | D | .CONST 0x0244,0x0003 050e ; -------------------------------------------------------------------------------------- 050e ; Debug3 Subtable 0x13 050e ; -------------------------------------------------------------------------------------- 050e 0000 0003 | | .DBG3TAB 0x0000,0x0003 0510 0253 0001 | S | .CONST 0x0253,0x0001 0512 0259 0002 | Y | .CONST 0x0259,0x0002 0514 025e 0003 | ^ | .CONST 0x025e,0x0003 0516 ; -------------------------------------------------------------------------------------- 0516 ; Debug3 Subtable 0x14 0516 ; -------------------------------------------------------------------------------------- 0516 0000 000a | | .DBG3TAB 0x0000,0x000a 0518 0263 0001 | c | .CONST 0x0263,0x0001 051a 0268 0002 | h | .CONST 0x0268,0x0002 051c 0269 0003 | i | .CONST 0x0269,0x0003 051e 0270 0004 | p | .CONST 0x0270,0x0004 0520 0272 0005 | r | .CONST 0x0272,0x0005 0522 027a 0006 | z | .CONST 0x027a,0x0006 0524 027f 0007 | | .CONST 0x027f,0x0007 0526 0287 0008 | | .CONST 0x0287,0x0008 0528 028d 0009 | | .CONST 0x028d,0x0009 052a 0292 000a | | .CONST 0x0292,0x000a 052c ; -------------------------------------------------------------------------------------- 052c ; Debug3 Subtable 0x15 052c ; -------------------------------------------------------------------------------------- 052c 0001 0003 | | .DBG3TAB 0x0001,0x0003 052e 029b ffff | | .CONST 0x029b,0xffff 0530 02a4 0001 | | .CONST 0x02a4,0x0001 0532 02b1 0002 | | .CONST 0x02b1,0x0002 0534 02b5 0003 | | .CONST 0x02b5,0x0003 0536 ; -------------------------------------------------------------------------------------- 0536 ; Debug3 Subtable 0x16 0536 ; -------------------------------------------------------------------------------------- 0536 0001 0002 | | .DBG3TAB 0x0001,0x0002 0538 02bb ffff | | .CONST 0x02bb,0xffff 053a 02c2 0001 | | .CONST 0x02c2,0x0001 053c 02c4 0002 | | .CONST 0x02c4,0x0002 053e 0000 0000 | | .BLANK 0000[0xc2]