|
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: 2048 (0x800) 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 01c0 | | .CONST 0x01c0 ; 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 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0056 | V | .CONST 0x0056 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001d | | .CONST 0x001d ; Number of locals 000b INIT_0008: 000b 00e9 | | Load_Encached String_Cache ; Debug Table 0x0 = .DEBUG 0x000b,0x0232,0x8000,0x0000,0x0037,0xafe4,0x0000,0x0003 ; Debug Table 0x0.0x0 = 0xb,0xffff 000c 02a0 | | Declare_Subprogram Null_Subprogram 000d 03ae | | Declare_Type Heap_Access,Defined,Visible 000e 0007 | | Action Break_Optional ; Debug Table 0x0.0x1 = 0xe,0xfffe 000f 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x0.0x2 = 0xf,0xfffd 0010 0266 | f | Execute Discrete,Bounds 0011 00da | | Load_Top At_Offset_2 0012 02a0 | | Declare_Subprogram Null_Subprogram 0013 4801 |H | Short_Literal 0x1 0014 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 0015 4801 |H | Short_Literal 0x1 ; Debug Table 0x0.0x3 = 0x15,0xfffc 0016 0359 | Y | Declare_Type Array,Incomplete,Visible 0017 4801 |H | Short_Literal 0x1 ; Debug Table 0x0.0x4 = 0x17,0xfffb 0018 0359 | Y | Declare_Type Array,Incomplete,Visible 0019 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x19,0xfffa 001b 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x1b,0xfff9 001d 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x1d,0xfff8 001f 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x1f,0xfff7 0021 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x9 = 0x21,0xfff6 0023 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xa = 0x23,0xfff5 0025 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xb = 0x25,0xfff4 0027 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xc = 0x27,0xfff3 0029 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xd = 0x29,0xfff2 002b 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xe = 0x2b,0xfff1 002d 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xf = 0x2d,0xfff0 002f 00e8 | | Load_Encached Character_Cache ; Debug Table 0x0.0x10 = 0x2f,0xffef 0030 0266 | f | Execute Discrete,Bounds 0031 00e1 | | Load_Encached Boolean_Cache 0032 02a0 | | Declare_Subprogram Null_Subprogram 0033 e20f | | Load 0x1,0xf 0034 0343 | C | Complete_Type Array,By_Defining 0035 00e8 | | Load_Encached Character_Cache ; Debug Table 0x0.0x11 = 0x35,0xffee 0036 0266 | f | Execute Discrete,Bounds 0037 00e8 | | Load_Encached Character_Cache 0038 02a0 | | Declare_Subprogram Null_Subprogram 0039 e210 | | Load 0x1,0x10 003a 0343 | C | Complete_Type Array,By_Defining 003b 00bf | | Action Accept_Activation 003c e210 | | Load 0x1,0x10 ; Debug Table 0x1 = .DEBUG 0x003c,0x0258,0x8000,0x0000,0x0037,0xb304,0x0000,0x0003 ; Debug Table 0x1.0x0 = 0x3c,0xffff 003d 0337 | 7 | Declare_Variable Array 003e e210 | | Load 0x1,0x10 ; Debug Table 0x1.0x1 = 0x3e,0xfffe 003f 0337 | 7 | Declare_Variable Array 0040 1d17 | | Execute_Immediate Reference_Lex_1,0x17 ; Debug Table 0x1.0x2 = 0x40,0xfffd 0041 00c7 | | Action Elaborate_Subprogram 0042 1d18 | | Execute_Immediate Reference_Lex_1,0x18 ; Debug Table 0x1.0x3 = 0x42,0xfffc 0043 00c7 | | Action Elaborate_Subprogram 0044 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x4 = 0x44,0xfffb 0045 00c7 | | Action Elaborate_Subprogram 0046 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x5 = 0x46,0xfffa 0047 00c7 | | Action Elaborate_Subprogram 0048 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0x6 = 0x48,0xfff9 0049 00c7 | | Action Elaborate_Subprogram 004a 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0x7 = 0x4a,0xfff8 004b 00c7 | | Action Elaborate_Subprogram 004c 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0x8 = 0x4c,0xfff7 004d 00c7 | | Action Elaborate_Subprogram 004e 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x1.0x9 = 0x4e,0xfff6 004f 00c7 | | Action Elaborate_Subprogram 0050 1d19 | | Execute_Immediate Reference_Lex_1,0x19 ; Debug Table 0x1.0xa = 0x50,0xfff5 0051 00c7 | | Action Elaborate_Subprogram 0052 1d1a | | Execute_Immediate Reference_Lex_1,0x1a ; Debug Table 0x1.0xb = 0x52,0xfff4 0053 00c7 | | Action Elaborate_Subprogram 0054 1d1b | | Execute_Immediate Reference_Lex_1,0x1b ; Debug Table 0x1.0xc = 0x54,0xfff3 0055 00c7 | | Action Elaborate_Subprogram 0056 BODY_0008: 0056 0092 01a3 | | Action Push_String_Extended,0x1a3 ; "ABCDEFGHIJKLMNOPQRSTUVWXYZ" ; Debug Table 0x1.0xd = 0x56,0x1 0058 0092 01a4 | | Action Push_String_Extended,0x1a4 ; "abcdefghijklmnopqrstuvwxyz" 005a 8218 | | Call 0x1,0x18 005b 00da | | Load_Top At_Offset_2 005c 01d4 | | Execute Vector,Structure_Write 005d 0092 01a4 | | Action Push_String_Extended,0x1a4 ; "abcdefghijklmnopqrstuvwxyz" ; Debug Table 0x1.0xe = 0x5d,0x2 005f 0092 01a3 | | Action Push_String_Extended,0x1a3 ; "ABCDEFGHIJKLMNOPQRSTUVWXYZ" 0061 8218 | | Call 0x1,0x18 0062 00d9 | | Load_Top At_Offset_1 0063 01d4 | | Execute Vector,Structure_Write 0064 00bc | | Action Signal_Activated 0065 00bb | | Action Signal_Completion 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 0x2 = .DEBUG 0x006b,0x0278,0x0002,0x0000,0x0037,0xafe4,0x0000,0x001f ; Debug Table 0x2.0x0 = 0x6b,0x1 006c e21c | | Load 0x1,0x1c 006d 01d7 | | Execute Vector,Field_Read 006e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 006f 0000 | | .XXX[0x1] 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0078 | x | .CONST 0x0078 ; Address of begin 0071 0004 | | .CONST 0x0004 ; Address of exception handler 0072 0002 | | .CONST 0x0002 ; Number of locals 0073 INIT_0070: 0073 4801 |H | Short_Literal 0x1 ; Debug Table 0x3 = .DEBUG 0x0073,0x027c,0x0002,0x0000,0x0037,0xafe4,0x0000,0x0028 ; Debug Table 0x3.0x0 = 0x73,0xffff 0074 00db | | Load_Top At_Offset_3 0075 01db | | Execute Vector,Length 0076 00e9 | | Load_Encached String_Cache 0077 0334 | 4 | Declare_Variable Array,With_Constraint 0078 BODY_0070: 0078 00cf | | Action Mark_Auxiliary 0079 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x1 = 0x79,0x1 007a 01d9 | | Execute Vector,Reverse_Bounds 007b 0263 | c | Execute Discrete,Above_Bound 007c 700f |p | Jump_Nonzero 0x8c 007d e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0x2 = 0x7d,0x2 007e 01dd | | Execute Vector,First 007f 0aff | | Execute_Immediate Plus,-0x1 0080 00d9 | | Load_Top At_Offset_1 0081 0273 | s | Execute Discrete,Plus 0082 0248 | H | Execute Discrete,Check_In_Integer 0083 e5ff | | Load 0x2,-0x1 0084 01d7 | | Execute Vector,Field_Read 0085 e21c | | Load 0x1,0x1c 0086 01d7 | | Execute Vector,Field_Read 0087 00d9 | | Load_Top At_Offset_1 0088 e402 | | Load 0x2,0x2 0089 01d6 | | Execute Vector,Field_Write 008a 00c8 | | Action Pop_Auxiliary_Range 008b 3ff1 |? | Loop_Increasing 0x7d 008c 00ce | | Action Pop_Auxiliary 008d 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x3 = 0x8d,0x3 008e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 008f 0000 | | .XXX[0x1] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0093 | | .CONST 0x0093 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0001 | | .CONST 0x0001 ; Number of locals 0093 BODY_0090: 0093 INIT_0090: 0093 00cf | | Action Mark_Auxiliary ; Debug Table 0x4 = .DEBUG 0x0093,0x0286,0x0001,0x0000,0x0037,0xafe4,0x0000,0x0031 0094 00db | | Load_Top At_Offset_3 ; Debug Table 0x4.0x0 = 0x94,0x1 0095 01d9 | | Execute Vector,Reverse_Bounds 0096 0263 | c | Execute Discrete,Above_Bound 0097 700a |p | Jump_Nonzero 0xa2 0098 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x1 = 0x98,0x2 0099 e5ff | | Load 0x2,-0x1 009a 01d7 | | Execute Vector,Field_Read 009b e21c | | Load 0x1,0x1c 009c 01d7 | | Execute Vector,Field_Read 009d 00d9 | | Load_Top At_Offset_1 009e e5ff | | Load 0x2,-0x1 009f 01d6 | | Execute Vector,Field_Write 00a0 00c8 | | Action Pop_Auxiliary_Range 00a1 3ff6 |? | Loop_Increasing 0x98 00a2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00a3 0000 0000 | | .BLANK 0000[0x5] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00ab | | .CONST 0x00ab ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0001 | | .CONST 0x0001 ; Number of locals 00ab BODY_00a8: 00ab INIT_00a8: 00ab 00da | | Load_Top At_Offset_2 ; Debug Table 0x5 = .DEBUG 0x00ab,0x028c,0x0002,0x0000,0x0037,0xafe4,0x0000,0x0039 ; Debug Table 0x5.0x0 = 0xab,0x1 00ac e21d | | Load 0x1,0x1d 00ad 01d7 | | Execute Vector,Field_Read 00ae 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00af 0000 | | .XXX[0x1] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b8 | | .CONST 0x00b8 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0002 | | .CONST 0x0002 ; Number of locals 00b3 INIT_00b0: 00b3 4801 |H | Short_Literal 0x1 ; Debug Table 0x6 = .DEBUG 0x00b3,0x0290,0x0002,0x0000,0x0037,0xafe4,0x0000,0x0042 ; Debug Table 0x6.0x0 = 0xb3,0xffff 00b4 00db | | Load_Top At_Offset_3 00b5 01db | | Execute Vector,Length 00b6 00e9 | | Load_Encached String_Cache 00b7 0334 | 4 | Declare_Variable Array,With_Constraint 00b8 BODY_00b0: 00b8 00cf | | Action Mark_Auxiliary 00b9 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x6.0x1 = 0xb9,0x1 00ba 01d9 | | Execute Vector,Reverse_Bounds 00bb 0263 | c | Execute Discrete,Above_Bound 00bc 700f |p | Jump_Nonzero 0xcc 00bd e5ff | | Load 0x2,-0x1 ; Debug Table 0x6.0x2 = 0xbd,0x2 00be 01dd | | Execute Vector,First 00bf 0aff | | Execute_Immediate Plus,-0x1 00c0 00d9 | | Load_Top At_Offset_1 00c1 0273 | s | Execute Discrete,Plus 00c2 0248 | H | Execute Discrete,Check_In_Integer 00c3 e5ff | | Load 0x2,-0x1 00c4 01d7 | | Execute Vector,Field_Read 00c5 e21d | | Load 0x1,0x1d 00c6 01d7 | | Execute Vector,Field_Read 00c7 00d9 | | Load_Top At_Offset_1 00c8 e402 | | Load 0x2,0x2 00c9 01d6 | | Execute Vector,Field_Write 00ca 00c8 | | Action Pop_Auxiliary_Range 00cb 3ff1 |? | Loop_Increasing 0xbd 00cc 00ce | | Action Pop_Auxiliary 00cd 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x3 = 0xcd,0x3 00ce 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00cf 0000 | | .XXX[0x1] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d3 | | .CONST 0x00d3 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0001 | | .CONST 0x0001 ; Number of locals 00d3 BODY_00d0: 00d3 INIT_00d0: 00d3 00cf | | Action Mark_Auxiliary ; Debug Table 0x7 = .DEBUG 0x00d3,0x029a,0x0001,0x0000,0x0037,0xafe4,0x0000,0x004b 00d4 00db | | Load_Top At_Offset_3 ; Debug Table 0x7.0x0 = 0xd4,0x1 00d5 01d9 | | Execute Vector,Reverse_Bounds 00d6 0263 | c | Execute Discrete,Above_Bound 00d7 700a |p | Jump_Nonzero 0xe2 00d8 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x1 = 0xd8,0x2 00d9 e5ff | | Load 0x2,-0x1 00da 01d7 | | Execute Vector,Field_Read 00db e21d | | Load 0x1,0x1d 00dc 01d7 | | Execute Vector,Field_Read 00dd 00d9 | | Load_Top At_Offset_1 00de e5ff | | Load 0x2,-0x1 00df 01d6 | | Execute Vector,Field_Write 00e0 00c8 | | Action Pop_Auxiliary_Range 00e1 3ff6 |? | Loop_Increasing 0xd8 00e2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00e3 0000 0000 | | .BLANK 0000[0x5] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00f8 | | .CONST 0x00f8 ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0002 | | .CONST 0x0002 ; Number of locals 00eb INIT_00e8: 00eb e20f | | Load 0x1,0xf ; Debug Table 0x8 = .DEBUG 0x00eb,0x02a0,0x0002,0x0000,0x0037,0xafe4,0x0000,0x0053 ; Debug Table 0x8.0x0 = 0xeb,0xffff 00ec 0337 | 7 | Declare_Variable Array 00ed e20f | | Load 0x1,0xf 00ee 0337 | 7 | Declare_Variable Array 00ef 487f |H | Short_Literal 0x7f 00f0 4800 |H | Short_Literal 0x0 00f1 4800 |H | Short_Literal 0x0 00f2 00d9 | | Load_Top At_Offset_1 00f3 e403 | | Load 0x2,0x3 00f4 01d6 | | Execute Vector,Field_Write 00f5 3ffb |? | Loop_Increasing 0xf1 00f6 00d9 | | Load_Top At_Offset_1 00f7 01d4 | | Execute Vector,Structure_Write 00f8 BODY_00e8: 00f8 00cf | | Action Mark_Auxiliary 00f9 e5ff | | Load 0x2,-0x1 ; Debug Table 0x8.0x1 = 0xf9,0x1 00fa 01d9 | | Execute Vector,Reverse_Bounds 00fb 0263 | c | Execute Discrete,Above_Bound 00fc 7008 |p | Jump_Nonzero 0x105 00fd 4801 |H | Short_Literal 0x1 ; Debug Table 0x8.0x2 = 0xfd,0x2 00fe 00d9 | | Load_Top At_Offset_1 00ff e5ff | | Load 0x2,-0x1 0100 01d7 | | Execute Vector,Field_Read 0101 e402 | | Load 0x2,0x2 0102 01d6 | | Execute Vector,Field_Write 0103 00c8 | | Action Pop_Auxiliary_Range 0104 3ff8 |? | Loop_Increasing 0xfd 0105 00ce | | Action Pop_Auxiliary 0106 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x8.0x3 = 0x106,0x3 0107 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 010d | | .CONST 0x010d ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0002 | | .CONST 0x0002 ; Number of locals 010b INIT_0108: 010b e210 | | Load 0x1,0x10 ; Debug Table 0x9 = .DEBUG 0x010b,0x02aa,0x0002,0x0000,0x0037,0xafe4,0x0000,0x005c ; Debug Table 0x9.0x0 = 0x10b,0xffff 010c 0337 | 7 | Declare_Variable Array 010d BODY_0108: 010d 00db | | Load_Top At_Offset_3 ; Debug Table 0x9.0x1 = 0x10d,0x1 010e 01db | | Execute Vector,Length 010f e5fe | | Load 0x2,-0x2 0110 01db | | Execute Vector,Length 0111 027e | ~ | Execute Discrete,Not_Equal 0112 e5ff | | Load 0x2,-0x1 0113 01dd | | Execute Vector,First 0114 e5fe | | Load 0x2,-0x2 0115 01dd | | Execute Vector,First 0116 027e | ~ | Execute Discrete,Not_Equal 0117 0278 | x | Execute Discrete,Or 0118 6802 |h | Jump_Zero 0x11b 0119 48e0 |H | Short_Literal 0xe0 ; Debug Table 0x9.0x2 = 0x119,0x2 011a 0257 | W | Execute Discrete,Raise 011b 00cf | | Action Mark_Auxiliary 011c 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x9.0x3 = 0x11c,0x3 011d 01d9 | | Execute Vector,Reverse_Bounds 011e 0007 | | Action Break_Optional 011f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x4 = 0x11f,0x4 0120 00d9 | | Load_Top At_Offset_1 0121 e402 | | Load 0x2,0x2 0122 01d6 | | Execute Vector,Field_Write 0123 00c8 | | Action Pop_Auxiliary_Range 0124 3ffa |? | Loop_Increasing 0x11f 0125 00c9 | | Action Pop_Auxiliary_Loop 0126 e5ff | | Load 0x2,-0x1 ; Debug Table 0x9.0x5 = 0x126,0x5 0127 01d9 | | Execute Vector,Reverse_Bounds 0128 0263 | c | Execute Discrete,Above_Bound 0129 700a |p | Jump_Nonzero 0x134 012a 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x6 = 0x12a,0x6 012b e5fe | | Load 0x2,-0x2 012c 01d7 | | Execute Vector,Field_Read 012d 00d9 | | Load_Top At_Offset_1 012e e5ff | | Load 0x2,-0x1 012f 01d7 | | Execute Vector,Field_Read 0130 e402 | | Load 0x2,0x2 0131 01d6 | | Execute Vector,Field_Write 0132 00c8 | | Action Pop_Auxiliary_Range 0133 3ff6 |? | Loop_Increasing 0x12a 0134 00ce | | Action Pop_Auxiliary 0135 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x7 = 0x135,0x7 0136 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0137 0000 | | .XXX[0x1] 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 013b | ; | .CONST 0x013b ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0001 | | .CONST 0x0001 ; Number of locals 013b BODY_0138: 013b INIT_0138: 013b 00cf | | Action Mark_Auxiliary ; Debug Table 0xa = .DEBUG 0x013b,0x02bc,0x0002,0x0000,0x0037,0xafe4,0x0000,0x0066 013c e5fe | | Load 0x2,-0x2 ; Debug Table 0xa.0x0 = 0x13c,0x1 013d 01d9 | | Execute Vector,Reverse_Bounds 013e 0263 | c | Execute Discrete,Above_Bound 013f 700a |p | Jump_Nonzero 0x14a 0140 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xa.0x1 = 0x140,0x2 0141 e5fe | | Load 0x2,-0x2 0142 01d7 | | Execute Vector,Field_Read 0143 e5ff | | Load 0x2,-0x1 0144 01d7 | | Execute Vector,Field_Read 0145 6802 |h | Jump_Zero 0x148 0146 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xa.0x2 = 0x146,0x3 0147 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0148 00c8 | | Action Pop_Auxiliary_Range 0149 3ff6 |? | Loop_Increasing 0x140 014a 00ce | | Action Pop_Auxiliary 014b 4800 |H | Short_Literal 0x0 ; Debug Table 0xa.0x3 = 0x14b,0x4 014c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 014d 0000 0000 | | .XXX[0x3] 014f 0000 | | 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 00db | | Load_Top At_Offset_3 ; Debug Table 0xb = .DEBUG 0x0153,0x02c6,0x0002,0x0000,0x0037,0xafe4,0x0000,0x0073 ; Debug Table 0xb.0x0 = 0x153,0x1 0154 01dd | | Execute Vector,First 0155 e5fe | | Load 0x2,-0x2 0156 01d7 | | Execute Vector,Field_Read 0157 00db | | Load_Top At_Offset_3 0158 01d7 | | Execute Vector,Field_Read 0159 7002 |p | Jump_Nonzero 0x15c 015a 4800 |H | Short_Literal 0x0 ; Debug Table 0xb.0x1 = 0x15a,0x2 015b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 015c 00cf | | Action Mark_Auxiliary 015d e5fe | | Load 0x2,-0x2 ; Debug Table 0xb.0x2 = 0x15d,0x3 015e 01d9 | | Execute Vector,Reverse_Bounds 015f 0263 | c | Execute Discrete,Above_Bound 0160 700a |p | Jump_Nonzero 0x16b 0161 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xb.0x3 = 0x161,0x4 0162 e5fe | | Load 0x2,-0x2 0163 01d7 | | Execute Vector,Field_Read 0164 e5ff | | Load 0x2,-0x1 0165 01d7 | | Execute Vector,Field_Read 0166 7002 |p | Jump_Nonzero 0x169 0167 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xb.0x4 = 0x167,0x5 0168 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0169 00c8 | | Action Pop_Auxiliary_Range 016a 3ff6 |? | Loop_Increasing 0x161 016b 00ce | | Action Pop_Auxiliary 016c 00db | | Load_Top At_Offset_3 ; Debug Table 0xb.0x5 = 0x16c,0x6 016d 01dc | | Execute Vector,Last 016e 0a01 | | Execute_Immediate Plus,0x1 016f 00e3 | | Load_Encached Natural_Cache 0170 025b | [ | Execute Discrete,Check_In_Type 0171 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0172 0000 0000 | | .BLANK 0000[0x6] 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 017d | } | .CONST 0x017d ; Address of begin 0179 0004 | | .CONST 0x0004 ; Address of exception handler 017a 0002 | | .CONST 0x0002 ; Number of locals 017b INIT_0178: 017b 029f 0183 | | Declare_Subprogram INIT_0180,For_Call ; Debug Table 0xc = .DEBUG 0x017b,0x02d4,0x0002,0x0000,0x0037,0xafe4,0x0000,0x0080 ; Debug Table 0xc.0x0 = 0x17b,0xffff 017d BODY_0178: 017d e5fd | | Load 0x2,-0x3 ; Debug Table 0xc.0x1 = 0x17d,0x1 017e 8402 | | Call 0x2,0x2 017f 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0188 | | .CONST 0x0188 ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0002 | | .CONST 0x0002 ; Number of locals 0183 INIT_0180: 0183 00da | | Load_Top At_Offset_2 ; Debug Table 0xd = .DEBUG 0x0183,0x02da,0x0002,0x0000,0x0037,0xb304,0x0000,0x01cc ; Debug Table 0xd.0x0 = 0x183,0xffff 0184 e5ff | | Load 0x2,-0x1 0185 8219 | | Call 0x1,0x19 0186 00e3 | | Load_Encached Natural_Cache 0187 03f1 | | Declare_Variable Discrete,With_Value 0188 BODY_0180: 0188 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xd.0x1 = 0x188,0x1 0189 7002 |p | Jump_Nonzero 0x18c 018a 00db | | Load_Top At_Offset_3 ; Debug Table 0xd.0x2 = 0x18a,0x2 018b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 018c 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xd.0x3 = 0x18c,0x3 018d e7ff | | Load 0x3,-0x1 018e 01d7 | | Execute Vector,Field_Read 018f e5fe | | Load 0x2,-0x2 0190 e7ff | | Load 0x3,-0x1 0191 01dd | | Execute Vector,First 0192 00db | | Load_Top At_Offset_3 0193 0aff | | Execute_Immediate Plus,-0x1 0194 0248 | H | Execute Discrete,Check_In_Integer 0195 e7ff | | Load 0x3,-0x1 0196 01cf | | Execute Vector,Slice_Read 0197 01cb | | Execute Vector,Append 0198 01cb | | Execute Vector,Append 0199 00d9 | | Load_Top At_Offset_1 019a 0a01 | | Execute_Immediate Plus,0x1 019b 0248 | H | Execute Discrete,Check_In_Integer 019c e7ff | | Load 0x3,-0x1 019d 01dc | | Execute Vector,Last 019e e7ff | | Load 0x3,-0x1 019f 01cf | | Execute Vector,Slice_Read 01a0 8402 | | Call 0x2,0x2 01a1 01cc | | Execute Vector,Catenate 01a2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01a3 ; -------------------------------------------------------------------------------------- 01a3 ; STRING TABLE 01a3 ; -------------------------------------------------------------------------------------- 01a3 0006 | | .STRTAB 0x0006->0x01a6 ; "ABCDEFGHIJKLMNOPQRSTUVWXYZ" 01a4 001e | | .STRTAB 0x001e->0x01b3 ; "abcdefghijklmnopqrstuvwxyz" 01a5 0036 | 6 | .STREND 0x0036->0x01c0 01a6 4142 4344 |ABCD| .STRTAB_STRINGS 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; Debug Table 01c0 ; -------------------------------------------------------------------------------------- 01c0 0003 000e | | .CONST 0x0003,0x000e 01c2 000b 0232 | 2| .DEBUG 0x000b,0x0232,0x8000,0x0000,0x0037,0xafe4,0x0000,0x0003 01ca 003c 0258 | < X| .DEBUG 0x003c,0x0258,0x8000,0x0000,0x0037,0xb304,0x0000,0x0003 01d2 006b 0278 | k x| .DEBUG 0x006b,0x0278,0x0002,0x0000,0x0037,0xafe4,0x0000,0x001f 01da 0073 027c | s || .DEBUG 0x0073,0x027c,0x0002,0x0000,0x0037,0xafe4,0x0000,0x0028 01e2 0093 0286 | | .DEBUG 0x0093,0x0286,0x0001,0x0000,0x0037,0xafe4,0x0000,0x0031 01ea 00ab 028c | | .DEBUG 0x00ab,0x028c,0x0002,0x0000,0x0037,0xafe4,0x0000,0x0039 01f2 00b3 0290 | | .DEBUG 0x00b3,0x0290,0x0002,0x0000,0x0037,0xafe4,0x0000,0x0042 01fa 00d3 029a | | .DEBUG 0x00d3,0x029a,0x0001,0x0000,0x0037,0xafe4,0x0000,0x004b 0202 00eb 02a0 | | .DEBUG 0x00eb,0x02a0,0x0002,0x0000,0x0037,0xafe4,0x0000,0x0053 020a 010b 02aa | | .DEBUG 0x010b,0x02aa,0x0002,0x0000,0x0037,0xafe4,0x0000,0x005c 0212 013b 02bc | ; | .DEBUG 0x013b,0x02bc,0x0002,0x0000,0x0037,0xafe4,0x0000,0x0066 021a 0153 02c6 | S | .DEBUG 0x0153,0x02c6,0x0002,0x0000,0x0037,0xafe4,0x0000,0x0073 0222 017b 02d4 | { | .DEBUG 0x017b,0x02d4,0x0002,0x0000,0x0037,0xafe4,0x0000,0x0080 022a 0183 02da | | .DEBUG 0x0183,0x02da,0x0002,0x0000,0x0037,0xb304,0x0000,0x01cc 0232 ; -------------------------------------------------------------------------------------- 0232 ; Debug3 Subtable 0x0 0232 ; -------------------------------------------------------------------------------------- 0232 0012 0000 | | .DBG3TAB 0x0012,0x0000 0234 000b ffff | | .CONST 0x000b,0xffff 0236 000e fffe | | .CONST 0x000e,0xfffe 0238 000f fffd | | .CONST 0x000f,0xfffd 023a 0015 fffc | | .CONST 0x0015,0xfffc 023c 0017 fffb | | .CONST 0x0017,0xfffb 023e 0019 fffa | | .CONST 0x0019,0xfffa 0240 001b fff9 | | .CONST 0x001b,0xfff9 0242 001d fff8 | | .CONST 0x001d,0xfff8 0244 001f fff7 | | .CONST 0x001f,0xfff7 0246 0021 fff6 | ! | .CONST 0x0021,0xfff6 0248 0023 fff5 | # | .CONST 0x0023,0xfff5 024a 0025 fff4 | % | .CONST 0x0025,0xfff4 024c 0027 fff3 | ' | .CONST 0x0027,0xfff3 024e 0029 fff2 | ) | .CONST 0x0029,0xfff2 0250 002b fff1 | + | .CONST 0x002b,0xfff1 0252 002d fff0 | - | .CONST 0x002d,0xfff0 0254 002f ffef | / | .CONST 0x002f,0xffef 0256 0035 ffee | 5 | .CONST 0x0035,0xffee 0258 ; -------------------------------------------------------------------------------------- 0258 ; Debug3 Subtable 0x1 0258 ; -------------------------------------------------------------------------------------- 0258 000d 0002 | | .DBG3TAB 0x000d,0x0002 025a 003c ffff | < | .CONST 0x003c,0xffff 025c 003e fffe | > | .CONST 0x003e,0xfffe 025e 0040 fffd | @ | .CONST 0x0040,0xfffd 0260 0042 fffc | B | .CONST 0x0042,0xfffc 0262 0044 fffb | D | .CONST 0x0044,0xfffb 0264 0046 fffa | F | .CONST 0x0046,0xfffa 0266 0048 fff9 | H | .CONST 0x0048,0xfff9 0268 004a fff8 | J | .CONST 0x004a,0xfff8 026a 004c fff7 | L | .CONST 0x004c,0xfff7 026c 004e fff6 | N | .CONST 0x004e,0xfff6 026e 0050 fff5 | P | .CONST 0x0050,0xfff5 0270 0052 fff4 | R | .CONST 0x0052,0xfff4 0272 0054 fff3 | T | .CONST 0x0054,0xfff3 0274 0056 0001 | V | .CONST 0x0056,0x0001 0276 005d 0002 | ] | .CONST 0x005d,0x0002 0278 ; -------------------------------------------------------------------------------------- 0278 ; Debug3 Subtable 0x2 0278 ; -------------------------------------------------------------------------------------- 0278 0000 0001 | | .DBG3TAB 0x0000,0x0001 027a 006b 0001 | k | .CONST 0x006b,0x0001 027c ; -------------------------------------------------------------------------------------- 027c ; Debug3 Subtable 0x3 027c ; -------------------------------------------------------------------------------------- 027c 0001 0003 | | .DBG3TAB 0x0001,0x0003 027e 0073 ffff | s | .CONST 0x0073,0xffff 0280 0079 0001 | y | .CONST 0x0079,0x0001 0282 007d 0002 | } | .CONST 0x007d,0x0002 0284 008d 0003 | | .CONST 0x008d,0x0003 0286 ; -------------------------------------------------------------------------------------- 0286 ; Debug3 Subtable 0x4 0286 ; -------------------------------------------------------------------------------------- 0286 0000 0002 | | .DBG3TAB 0x0000,0x0002 0288 0094 0001 | | .CONST 0x0094,0x0001 028a 0098 0002 | | .CONST 0x0098,0x0002 028c ; -------------------------------------------------------------------------------------- 028c ; Debug3 Subtable 0x5 028c ; -------------------------------------------------------------------------------------- 028c 0000 0001 | | .DBG3TAB 0x0000,0x0001 028e 00ab 0001 | | .CONST 0x00ab,0x0001 0290 ; -------------------------------------------------------------------------------------- 0290 ; Debug3 Subtable 0x6 0290 ; -------------------------------------------------------------------------------------- 0290 0001 0003 | | .DBG3TAB 0x0001,0x0003 0292 00b3 ffff | | .CONST 0x00b3,0xffff 0294 00b9 0001 | | .CONST 0x00b9,0x0001 0296 00bd 0002 | | .CONST 0x00bd,0x0002 0298 00cd 0003 | | .CONST 0x00cd,0x0003 029a ; -------------------------------------------------------------------------------------- 029a ; Debug3 Subtable 0x7 029a ; -------------------------------------------------------------------------------------- 029a 0000 0002 | | .DBG3TAB 0x0000,0x0002 029c 00d4 0001 | | .CONST 0x00d4,0x0001 029e 00d8 0002 | | .CONST 0x00d8,0x0002 02a0 ; -------------------------------------------------------------------------------------- 02a0 ; Debug3 Subtable 0x8 02a0 ; -------------------------------------------------------------------------------------- 02a0 0001 0003 | | .DBG3TAB 0x0001,0x0003 02a2 00eb ffff | | .CONST 0x00eb,0xffff 02a4 00f9 0001 | | .CONST 0x00f9,0x0001 02a6 00fd 0002 | | .CONST 0x00fd,0x0002 02a8 0106 0003 | | .CONST 0x0106,0x0003 02aa ; -------------------------------------------------------------------------------------- 02aa ; Debug3 Subtable 0x9 02aa ; -------------------------------------------------------------------------------------- 02aa 0001 0007 | | .DBG3TAB 0x0001,0x0007 02ac 010b ffff | | .CONST 0x010b,0xffff 02ae 010d 0001 | | .CONST 0x010d,0x0001 02b0 0119 0002 | | .CONST 0x0119,0x0002 02b2 011c 0003 | | .CONST 0x011c,0x0003 02b4 011f 0004 | | .CONST 0x011f,0x0004 02b6 0126 0005 | & | .CONST 0x0126,0x0005 02b8 012a 0006 | * | .CONST 0x012a,0x0006 02ba 0135 0007 | 5 | .CONST 0x0135,0x0007 02bc ; -------------------------------------------------------------------------------------- 02bc ; Debug3 Subtable 0xa 02bc ; -------------------------------------------------------------------------------------- 02bc 0000 0004 | | .DBG3TAB 0x0000,0x0004 02be 013c 0001 | < | .CONST 0x013c,0x0001 02c0 0140 0002 | @ | .CONST 0x0140,0x0002 02c2 0146 0003 | F | .CONST 0x0146,0x0003 02c4 014b 0004 | K | .CONST 0x014b,0x0004 02c6 ; -------------------------------------------------------------------------------------- 02c6 ; Debug3 Subtable 0xb 02c6 ; -------------------------------------------------------------------------------------- 02c6 0000 0006 | | .DBG3TAB 0x0000,0x0006 02c8 0153 0001 | S | .CONST 0x0153,0x0001 02ca 015a 0002 | Z | .CONST 0x015a,0x0002 02cc 015d 0003 | ] | .CONST 0x015d,0x0003 02ce 0161 0004 | a | .CONST 0x0161,0x0004 02d0 0167 0005 | g | .CONST 0x0167,0x0005 02d2 016c 0006 | l | .CONST 0x016c,0x0006 02d4 ; -------------------------------------------------------------------------------------- 02d4 ; Debug3 Subtable 0xc 02d4 ; -------------------------------------------------------------------------------------- 02d4 0001 0001 | | .DBG3TAB 0x0001,0x0001 02d6 017b ffff | { | .CONST 0x017b,0xffff 02d8 017d 0001 | } | .CONST 0x017d,0x0001 02da ; -------------------------------------------------------------------------------------- 02da ; Debug3 Subtable 0xd 02da ; -------------------------------------------------------------------------------------- 02da 0001 0003 | | .DBG3TAB 0x0001,0x0003 02dc 0183 ffff | | .CONST 0x0183,0xffff 02de 0188 0001 | | .CONST 0x0188,0x0001 02e0 018a 0002 | | .CONST 0x018a,0x0002 02e2 018c 0003 | | .CONST 0x018c,0x0003 02e4 0000 0000 | | .BLANK 0000[0x11c]