|
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 0190 | | .CONST 0x0190 ; 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 0042 | B | .CONST 0x0042 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0017 | | .CONST 0x0017 ; Number of locals 000b INIT_0008: 000b 00e4 | | Load_Encached Positive_Cache ; Debug Table 0x0 = .DEBUG 0x000b,0x01e2,0x8000,0x0000,0x0037,0xb184,0x0000,0x0005 ; Debug Table 0x0.0x0 = 0xb,0xffff 000c 0266 | f | Execute Discrete,Bounds 000d 00e3 | | Load_Encached Natural_Cache 000e 02a0 | | Declare_Subprogram Null_Subprogram 000f 4801 |H | Short_Literal 0x1 0010 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 0011 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0x11,0xfffe 0013 4801 |H | Short_Literal 0x1 ; Debug Table 0x0.0x2 = 0x13,0xfffd 0014 4800 |H | Short_Literal 0x0 0015 00db | | Load_Top At_Offset_3 0016 0333 | 3 | Declare_Variable Array,Visible,With_Constraint 0017 4801 |H | Short_Literal 0x1 0018 4800 |H | Short_Literal 0x0 0019 e20d | | Load 0x1,0xd 001a 035b | [ | Declare_Type Array,Constrained 001b 0337 | 7 | Declare_Variable Array 001c 00d9 | | Load_Top At_Offset_1 001d 01d4 | | Execute Vector,Structure_Write 001e 00e2 | | Load_Encached Integer_Cache ; Debug Table 0x0.0x3 = 0x1e,0xfffc 001f 00e2 | | Load_Encached Integer_Cache 0020 00e4 | | Load_Encached Positive_Cache 0021 00e3 | | Load_Encached Natural_Cache 0022 02a0 | | Declare_Subprogram Null_Subprogram 0023 4804 |H | Short_Literal 0x4 0024 032e | . | Declare_Type Record,Defined,Visible 0025 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x25,0xfffb 0027 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x27,0xfffa 0029 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x29,0xfff9 002b 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x2b,0xfff8 002d 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x2d,0xfff7 002f 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x9 = 0x2f,0xfff6 0031 00bf | | Action Accept_Activation 0032 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1 = .DEBUG 0x0032,0x01f8,0x8000,0x0000,0x0037,0xb2c4,0x0000,0x0003 ; Debug Table 0x1.0x0 = 0x32,0xffff 0033 00c7 | | Action Elaborate_Subprogram 0034 029d 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call ; Debug Table 0x1.0x1 = 0x34,0xfffe 0036 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x2 = 0x36,0xfffd 0037 00c7 | | Action Elaborate_Subprogram 0038 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x3 = 0x38,0xfffc 0039 00c7 | | Action Elaborate_Subprogram 003a 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0x4 = 0x3a,0xfffb 003b 00c7 | | Action Elaborate_Subprogram 003c 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0x5 = 0x3c,0xfffa 003d 00c7 | | Action Elaborate_Subprogram 003e 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0x6 = 0x3e,0xfff9 003f 00c7 | | Action Elaborate_Subprogram 0040 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x1.0x7 = 0x40,0xfff8 0041 00c7 | | Action Elaborate_Subprogram 0042 BODY_0008: 0042 00bc | | Action Signal_Activated 0043 00bb | | Action Signal_Completion 0044 0000 0000 | | .BLANK 0000[0x4] 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 004d | M | .CONST 0x004d ; Address of begin 0049 0004 | | .CONST 0x0004 ; Address of exception handler 004a 0002 | | .CONST 0x0002 ; Number of locals 004b INIT_0048: 004b 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x2 = .DEBUG 0x004b,0x020a,0x0002,0x0000,0x0037,0xb184,0x0000,0x000f ; Debug Table 0x2.0x0 = 0x4b,0xffff 004c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 004d BODY_0048: 004d 00cf | | Action Mark_Auxiliary 004e e5ff | | Load 0x2,-0x1 ; Debug Table 0x2.0x1 = 0x4e,0x1 004f 01d9 | | Execute Vector,Reverse_Bounds 0050 0263 | c | Execute Discrete,Above_Bound 0051 7008 |p | Jump_Nonzero 0x5a 0052 00db | | Load_Top At_Offset_3 ; Debug Table 0x2.0x2 = 0x52,0x2 0053 00d9 | | Load_Top At_Offset_1 0054 e5ff | | Load 0x2,-0x1 0055 01d7 | | Execute Vector,Field_Read 0056 0273 | s | Execute Discrete,Plus 0057 c402 | | Store 0x2,0x2 0058 00c8 | | Action Pop_Auxiliary_Range 0059 3ff8 |? | Loop_Increasing 0x52 005a 00ce | | Action Pop_Auxiliary 005b 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x3 = 0x5b,0x3 005c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 005d 0000 0000 | | .XXX[0x3] 005f 0000 | | 0060 ; -------------------------------------------------------------------------------------- 0060 ; SUBPROGRAM 0060 ; -------------------------------------------------------------------------------------- 0060 0072 | r | .CONST 0x0072 ; Address of begin 0061 0004 | | .CONST 0x0004 ; Address of exception handler 0062 0002 | | .CONST 0x0002 ; Number of locals 0063 INIT_0060: 0063 e210 | | Load 0x1,0x10 ; Debug Table 0x3 = .DEBUG 0x0063,0x0214,0x0002,0x0000,0x0037,0xb184,0x0000,0x003e ; Debug Table 0x3.0x0 = 0x63,0xffff 0064 0322 | " | Declare_Variable Record 0065 00db | | Load_Top At_Offset_3 0066 00d9 | | Load_Top At_Offset_1 0067 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0068 e5fe | | Load 0x2,-0x2 0069 00d9 | | Load_Top At_Offset_1 006a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 006b e5fd | | Load 0x2,-0x3 006c 01dd | | Execute Vector,First 006d 00d9 | | Load_Top At_Offset_1 006e 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 006f 4800 |H | Short_Literal 0x0 0070 00d9 | | Load_Top At_Offset_1 0071 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0072 BODY_0060: 0072 e5fd | | Load 0x2,-0x3 ; Debug Table 0x3.0x1 = 0x72,0x1 0073 e20f | | Load 0x1,0xf 0074 01df | | Execute Vector,Equal 0075 680c |h | Jump_Zero 0x82 0076 e5fe | | Load 0x2,-0x2 ; Debug Table 0x3.0x2 = 0x76,0x2 0077 e5ff | | Load 0x2,-0x1 0078 027b | { | Execute Discrete,Greater_Equal 0079 6812 |h | Jump_Zero 0x8c 007a e5fe | | Load 0x2,-0x2 ; Debug Table 0x3.0x3 = 0x7a,0x3 007b e5ff | | Load 0x2,-0x1 007c 0272 | r | Execute Discrete,Minus 007d 0248 | H | Execute Discrete,Check_In_Integer 007e 0a01 | | Execute_Immediate Plus,0x1 007f 00d9 | | Load_Top At_Offset_1 0080 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0081 780a |x | Jump 0x8c 0082 e5fd | | Load 0x2,-0x3 ; Debug Table 0x3.0x4 = 0x82,0x4 0083 01dd | | Execute Vector,First 0084 e5fd | | Load 0x2,-0x3 0085 01d7 | | Execute Vector,Field_Read 0086 00d9 | | Load_Top At_Offset_1 0087 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0088 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x5 = 0x88,0x5 0089 e5fd | | Load 0x2,-0x3 008a 8217 | | Call 0x1,0x17 008b 00d1 | | Pop_Control Pop_Count_1 008c 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x6 = 0x8c,0x6 008d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 008e 0000 0000 | | .XXX[0x2] 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 00da | | Load_Top At_Offset_2 ; Debug Table 0x4 = .DEBUG 0x0093,0x0224,0x0002,0x0000,0x0037,0xb184,0x0000,0x004d ; Debug Table 0x4.0x0 = 0x93,0x1 0094 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0095 00db | | Load_Top At_Offset_3 0096 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0097 027d | } | Execute Discrete,Greater 0098 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0099 0000 0000 | | .BLANK 0000[0x7] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a3 | | .CONST 0x00a3 ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0001 | | .CONST 0x0001 ; Number of locals 00a3 BODY_00a0: 00a3 INIT_00a0: 00a3 00da | | Load_Top At_Offset_2 ; Debug Table 0x5 = .DEBUG 0x00a3,0x0228,0x0002,0x0000,0x0037,0xb184,0x0000,0x0056 ; Debug Table 0x5.0x0 = 0xa3,0x1 00a4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00a5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00a6 0000 0000 | | .XXX[0x2] 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 00db | | Load_Top At_Offset_3 ; Debug Table 0x6 = .DEBUG 0x00ab,0x022c,0x0001,0x0000,0x0037,0xb184,0x0000,0x005f ; Debug Table 0x6.0x0 = 0xab,0x1 00ac 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00ad 0a01 | | Execute_Immediate Plus,0x1 00ae e5fe | | Load 0x2,-0x2 00af 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00b0 00db | | Load_Top At_Offset_3 ; Debug Table 0x6.0x1 = 0xb0,0x2 00b1 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 00b2 0aff | | Execute_Immediate Plus,-0x1 00b3 e5fe | | Load 0x2,-0x2 00b4 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 00b5 00db | | Load_Top At_Offset_3 ; Debug Table 0x6.0x2 = 0xb5,0x3 00b6 00db | | Load_Top At_Offset_3 00b7 8217 | | Call 0x1,0x17 00b8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00b9 0000 0000 | | .BLANK 0000[0x7] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c7 | | .CONST 0x00c7 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0002 | | .CONST 0x0002 ; Number of locals 00c3 INIT_00c0: 00c3 e5fd | | Load 0x2,-0x3 ; Debug Table 0x7 = .DEBUG 0x00c3,0x0234,0x0001,0x0000,0x0037,0xb184,0x0000,0x006c ; Debug Table 0x7.0x0 = 0xc3,0xffff 00c4 01db | | Execute Vector,Length 00c5 00e3 | | Load_Encached Natural_Cache 00c6 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 00c7 BODY_00c0: 00c7 e5fc | | Load 0x2,-0x4 ; Debug Table 0x7.0x1 = 0xc7,0x1 00c8 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 00c9 00d9 | | Load_Top At_Offset_1 00ca 027c | | | Execute Discrete,Less 00cb 6814 |h | Jump_Zero 0xe0 00cc 00cf | | Action Mark_Auxiliary 00cd e5fd | | Load 0x2,-0x3 ; Debug Table 0x7.0x2 = 0xcd,0x2 00ce 01d9 | | Execute Vector,Reverse_Bounds 00cf 0263 | c | Execute Discrete,Above_Bound 00d0 700d |p | Jump_Nonzero 0xde 00d1 e5fc | | Load 0x2,-0x4 ; Debug Table 0x7.0x3 = 0xd1,0x3 00d2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00d3 e5ff | | Load 0x2,-0x1 00d4 01d7 | | Execute Vector,Field_Read 00d5 00d9 | | Load_Top At_Offset_1 00d6 e5fd | | Load 0x2,-0x3 00d7 01d6 | | Execute Vector,Field_Write 00d8 e5fc | | Load 0x2,-0x4 ; Debug Table 0x7.0x4 = 0xd8,0x4 00d9 e5fe | | Load 0x2,-0x2 00da 8214 | | Call 0x1,0x14 00db 00d1 | | Pop_Control Pop_Count_1 00dc 00c8 | | Action Pop_Auxiliary_Range 00dd 3ff3 |? | Loop_Increasing 0xd1 00de 00ce | | Action Pop_Auxiliary 00df 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00e0 e5fc | | Load 0x2,-0x4 ; Debug Table 0x7.0x5 = 0xe0,0x5 00e1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00e2 e5fc | | Load 0x2,-0x4 00e3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00e4 00da | | Load_Top At_Offset_2 00e5 0273 | s | Execute Discrete,Plus 00e6 0aff | | Execute_Immediate Plus,-0x1 00e7 0248 | H | Execute Discrete,Check_In_Integer 00e8 e5ff | | Load 0x2,-0x1 00e9 01cf | | Execute Vector,Slice_Read 00ea e5fd | | Load 0x2,-0x3 00eb 01d4 | | Execute Vector,Structure_Write 00ec e5fc | | Load 0x2,-0x4 ; Debug Table 0x7.0x6 = 0xec,0x6 00ed 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00ee 00d9 | | Load_Top At_Offset_1 00ef 0273 | s | Execute Discrete,Plus 00f0 e5fc | | Load 0x2,-0x4 00f1 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00f2 e5fc | | Load 0x2,-0x4 ; Debug Table 0x7.0x7 = 0xf2,0x7 00f3 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 00f4 00d9 | | Load_Top At_Offset_1 00f5 0272 | r | Execute Discrete,Minus 00f6 e5fc | | Load 0x2,-0x4 00f7 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 00f8 e5fc | | Load 0x2,-0x4 ; Debug Table 0x7.0x8 = 0xf8,0x8 00f9 e5fe | | Load 0x2,-0x2 00fa 8217 | | Call 0x1,0x17 00fb 00d1 | | Pop_Control Pop_Count_1 00fc 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00fd 0000 0000 | | .XXX[0x3] 00ff 0000 | | 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0107 | | .CONST 0x0107 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0002 | | .CONST 0x0002 ; Number of locals 0103 INIT_0100: 0103 00da | | Load_Top At_Offset_2 ; Debug Table 0x8 = .DEBUG 0x0103,0x0248,0x0001,0x0000,0x0037,0xb184,0x0000,0x0085 ; Debug Table 0x8.0x0 = 0x103,0xffff 0104 01db | | Execute Vector,Length 0105 00e3 | | Load_Encached Natural_Cache 0106 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0107 BODY_0100: 0107 e5fc | | Load 0x2,-0x4 ; Debug Table 0x8.0x1 = 0x107,0x1 0108 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0109 00d9 | | Load_Top At_Offset_1 010a 027c | | | Execute Discrete,Less 010b 6814 |h | Jump_Zero 0x120 010c 00cf | | Action Mark_Auxiliary 010d e5ff | | Load 0x2,-0x1 ; Debug Table 0x8.0x2 = 0x10d,0x2 010e 01d9 | | Execute Vector,Reverse_Bounds 010f 0263 | c | Execute Discrete,Above_Bound 0110 700d |p | Jump_Nonzero 0x11e 0111 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x8.0x3 = 0x111,0x3 0112 e5ff | | Load 0x2,-0x1 0113 01d7 | | Execute Vector,Field_Read 0114 e5fc | | Load 0x2,-0x4 0115 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0116 e5fd | | Load 0x2,-0x3 0117 01d6 | | Execute Vector,Field_Write 0118 e5fc | | Load 0x2,-0x4 ; Debug Table 0x8.0x4 = 0x118,0x4 0119 e5fe | | Load 0x2,-0x2 011a 8214 | | Call 0x1,0x14 011b 00d1 | | Pop_Control Pop_Count_1 011c 00c8 | | Action Pop_Auxiliary_Range 011d 3ff3 |? | Loop_Increasing 0x111 011e 00ce | | Action Pop_Auxiliary 011f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0120 00db | | Load_Top At_Offset_3 ; Debug Table 0x8.0x5 = 0x120,0x5 0121 e5fc | | Load 0x2,-0x4 0122 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0123 e5fc | | Load 0x2,-0x4 0124 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0125 00db | | Load_Top At_Offset_3 0126 0273 | s | Execute Discrete,Plus 0127 0aff | | Execute_Immediate Plus,-0x1 0128 0248 | H | Execute Discrete,Check_In_Integer 0129 e5fd | | Load 0x2,-0x3 012a 01ce | | Execute Vector,Slice_Write 012b e5fc | | Load 0x2,-0x4 ; Debug Table 0x8.0x6 = 0x12b,0x6 012c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 012d 00d9 | | Load_Top At_Offset_1 012e 0273 | s | Execute Discrete,Plus 012f e5fc | | Load 0x2,-0x4 0130 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0131 e5fc | | Load 0x2,-0x4 ; Debug Table 0x8.0x7 = 0x131,0x7 0132 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0133 00d9 | | Load_Top At_Offset_1 0134 0272 | r | Execute Discrete,Minus 0135 e5fc | | Load 0x2,-0x4 0136 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0137 e5fc | | Load 0x2,-0x4 ; Debug Table 0x8.0x8 = 0x137,0x8 0138 e5fe | | Load 0x2,-0x2 0139 8217 | | Call 0x1,0x17 013a 00d1 | | Pop_Control Pop_Count_1 013b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 013c 0000 0000 | | .BLANK 0000[0x4] 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 00cf | | Action Mark_Auxiliary ; Debug Table 0x9 = .DEBUG 0x0143,0x025c,0x0001,0x0000,0x0037,0xb2c4,0x0000,0x002a 0144 7835 |x5 | Jump 0x17a 0145 e5fe | | Load 0x2,-0x2 ; Debug Table 0x9.0x0 = 0x145,0x2 0146 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0147 0a02 | | Execute_Immediate Plus,0x2 0148 e5fe | | Load 0x2,-0x2 0149 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 014a e5fe | | Load 0x2,-0x2 ; Debug Table 0x9.0x1 = 0x14a,0x3 014b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 014c e5ff | | Load 0x2,-0x1 014d 01dc | | Execute Vector,Last 014e 0a02 | | Execute_Immediate Plus,0x2 014f 027f | | Execute Discrete,Equal 0150 6806 |h | Jump_Zero 0x157 0151 e5fe | | Load 0x2,-0x2 ; Debug Table 0x9.0x2 = 0x151,0x4 0152 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0153 0a01 | | Execute_Immediate Plus,0x1 0154 e5fe | | Load 0x2,-0x2 0155 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0156 7822 |x" | Jump 0x179 0157 e5fe | | Load 0x2,-0x2 ; Debug Table 0x9.0x3 = 0x157,0x5 0158 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0159 e5fe | | Load 0x2,-0x2 015a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 015b 0aff | | Execute_Immediate Plus,-0x1 015c 0248 | H | Execute Discrete,Check_In_Integer 015d e5ff | | Load 0x2,-0x1 015e 01d7 | | Execute Vector,Field_Read 015f 0273 | s | Execute Discrete,Plus 0160 e5fe | | Load 0x2,-0x2 0161 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0162 e5fe | | Load 0x2,-0x2 ; Debug Table 0x9.0x4 = 0x162,0x6 0163 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0164 e5ff | | Load 0x2,-0x1 0165 01dc | | Execute Vector,Last 0166 0a01 | | Execute_Immediate Plus,0x1 0167 027f | | Execute Discrete,Equal 0168 680a |h | Jump_Zero 0x173 0169 e5fe | | Load 0x2,-0x2 ; Debug Table 0x9.0x5 = 0x169,0x7 016a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 016b e5fe | | Load 0x2,-0x2 016c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 016d 0272 | r | Execute Discrete,Minus 016e 0248 | H | Execute Discrete,Check_In_Integer 016f 0a01 | | Execute_Immediate Plus,0x1 0170 e5fe | | Load 0x2,-0x2 0171 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0172 7806 |x | Jump 0x179 0173 e5fe | | Load 0x2,-0x2 ; Debug Table 0x9.0x6 = 0x173,0x8 0174 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0175 e5ff | | Load 0x2,-0x1 0176 01d7 | | Execute Vector,Field_Read 0177 e5fe | | Load 0x2,-0x2 0178 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0179 00c9 | | Action Pop_Auxiliary_Loop 017a e5fe | | Load 0x2,-0x2 ; Debug Table 0x9.0x7 = 0x17a,0x1 017b 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 017c 700c |p | Jump_Nonzero 0x189 017d e5fe | | Load 0x2,-0x2 017e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 017f e5fe | | Load 0x2,-0x2 0180 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0181 027a | z | Execute Discrete,Less_Equal 0182 6806 |h | Jump_Zero 0x189 0183 e5fe | | Load 0x2,-0x2 0184 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0185 e5ff | | Load 0x2,-0x1 0186 01dc | | Execute Vector,Last 0187 027a | z | Execute Discrete,Less_Equal 0188 77bc |w | Jump_Nonzero 0x145 0189 4502 |E | Exit_Suprogram New_Top_Offset 0x2 018a 0000 0000 | | .BLANK 0000[0x6] 0190 ; -------------------------------------------------------------------------------------- 0190 ; Debug Table 0190 ; -------------------------------------------------------------------------------------- 0190 0003 000a | | .CONST 0x0003,0x000a 0192 000b 01e2 | | .DEBUG 0x000b,0x01e2,0x8000,0x0000,0x0037,0xb184,0x0000,0x0005 019a 0032 01f8 | 2 | .DEBUG 0x0032,0x01f8,0x8000,0x0000,0x0037,0xb2c4,0x0000,0x0003 01a2 004b 020a | K | .DEBUG 0x004b,0x020a,0x0002,0x0000,0x0037,0xb184,0x0000,0x000f 01aa 0063 0214 | c | .DEBUG 0x0063,0x0214,0x0002,0x0000,0x0037,0xb184,0x0000,0x003e 01b2 0093 0224 | $| .DEBUG 0x0093,0x0224,0x0002,0x0000,0x0037,0xb184,0x0000,0x004d 01ba 00a3 0228 | (| .DEBUG 0x00a3,0x0228,0x0002,0x0000,0x0037,0xb184,0x0000,0x0056 01c2 00ab 022c | ,| .DEBUG 0x00ab,0x022c,0x0001,0x0000,0x0037,0xb184,0x0000,0x005f 01ca 00c3 0234 | 4| .DEBUG 0x00c3,0x0234,0x0001,0x0000,0x0037,0xb184,0x0000,0x006c 01d2 0103 0248 | H| .DEBUG 0x0103,0x0248,0x0001,0x0000,0x0037,0xb184,0x0000,0x0085 01da 0143 025c | C \| .DEBUG 0x0143,0x025c,0x0001,0x0000,0x0037,0xb2c4,0x0000,0x002a 01e2 ; -------------------------------------------------------------------------------------- 01e2 ; Debug3 Subtable 0x0 01e2 ; -------------------------------------------------------------------------------------- 01e2 000a 0000 | | .DBG3TAB 0x000a,0x0000 01e4 000b ffff | | .CONST 0x000b,0xffff 01e6 0011 fffe | | .CONST 0x0011,0xfffe 01e8 0013 fffd | | .CONST 0x0013,0xfffd 01ea 001e fffc | | .CONST 0x001e,0xfffc 01ec 0025 fffb | % | .CONST 0x0025,0xfffb 01ee 0027 fffa | ' | .CONST 0x0027,0xfffa 01f0 0029 fff9 | ) | .CONST 0x0029,0xfff9 01f2 002b fff8 | + | .CONST 0x002b,0xfff8 01f4 002d fff7 | - | .CONST 0x002d,0xfff7 01f6 002f fff6 | / | .CONST 0x002f,0xfff6 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; Debug3 Subtable 0x1 01f8 ; -------------------------------------------------------------------------------------- 01f8 0008 0000 | | .DBG3TAB 0x0008,0x0000 01fa 0032 ffff | 2 | .CONST 0x0032,0xffff 01fc 0034 fffe | 4 | .CONST 0x0034,0xfffe 01fe 0036 fffd | 6 | .CONST 0x0036,0xfffd 0200 0038 fffc | 8 | .CONST 0x0038,0xfffc 0202 003a fffb | : | .CONST 0x003a,0xfffb 0204 003c fffa | < | .CONST 0x003c,0xfffa 0206 003e fff9 | > | .CONST 0x003e,0xfff9 0208 0040 fff8 | @ | .CONST 0x0040,0xfff8 020a ; -------------------------------------------------------------------------------------- 020a ; Debug3 Subtable 0x2 020a ; -------------------------------------------------------------------------------------- 020a 0001 0003 | | .DBG3TAB 0x0001,0x0003 020c 004b ffff | K | .CONST 0x004b,0xffff 020e 004e 0001 | N | .CONST 0x004e,0x0001 0210 0052 0002 | R | .CONST 0x0052,0x0002 0212 005b 0003 | [ | .CONST 0x005b,0x0003 0214 ; -------------------------------------------------------------------------------------- 0214 ; Debug3 Subtable 0x3 0214 ; -------------------------------------------------------------------------------------- 0214 0001 0006 | | .DBG3TAB 0x0001,0x0006 0216 0063 ffff | c | .CONST 0x0063,0xffff 0218 0072 0001 | r | .CONST 0x0072,0x0001 021a 0076 0002 | v | .CONST 0x0076,0x0002 021c 007a 0003 | z | .CONST 0x007a,0x0003 021e 0082 0004 | | .CONST 0x0082,0x0004 0220 0088 0005 | | .CONST 0x0088,0x0005 0222 008c 0006 | | .CONST 0x008c,0x0006 0224 ; -------------------------------------------------------------------------------------- 0224 ; Debug3 Subtable 0x4 0224 ; -------------------------------------------------------------------------------------- 0224 0000 0001 | | .DBG3TAB 0x0000,0x0001 0226 0093 0001 | | .CONST 0x0093,0x0001 0228 ; -------------------------------------------------------------------------------------- 0228 ; Debug3 Subtable 0x5 0228 ; -------------------------------------------------------------------------------------- 0228 0000 0001 | | .DBG3TAB 0x0000,0x0001 022a 00a3 0001 | | .CONST 0x00a3,0x0001 022c ; -------------------------------------------------------------------------------------- 022c ; Debug3 Subtable 0x6 022c ; -------------------------------------------------------------------------------------- 022c 0000 0003 | | .DBG3TAB 0x0000,0x0003 022e 00ab 0001 | | .CONST 0x00ab,0x0001 0230 00b0 0002 | | .CONST 0x00b0,0x0002 0232 00b5 0003 | | .CONST 0x00b5,0x0003 0234 ; -------------------------------------------------------------------------------------- 0234 ; Debug3 Subtable 0x7 0234 ; -------------------------------------------------------------------------------------- 0234 0001 0008 | | .DBG3TAB 0x0001,0x0008 0236 00c3 ffff | | .CONST 0x00c3,0xffff 0238 00c7 0001 | | .CONST 0x00c7,0x0001 023a 00cd 0002 | | .CONST 0x00cd,0x0002 023c 00d1 0003 | | .CONST 0x00d1,0x0003 023e 00d8 0004 | | .CONST 0x00d8,0x0004 0240 00e0 0005 | | .CONST 0x00e0,0x0005 0242 00ec 0006 | | .CONST 0x00ec,0x0006 0244 00f2 0007 | | .CONST 0x00f2,0x0007 0246 00f8 0008 | | .CONST 0x00f8,0x0008 0248 ; -------------------------------------------------------------------------------------- 0248 ; Debug3 Subtable 0x8 0248 ; -------------------------------------------------------------------------------------- 0248 0001 0008 | | .DBG3TAB 0x0001,0x0008 024a 0103 ffff | | .CONST 0x0103,0xffff 024c 0107 0001 | | .CONST 0x0107,0x0001 024e 010d 0002 | | .CONST 0x010d,0x0002 0250 0111 0003 | | .CONST 0x0111,0x0003 0252 0118 0004 | | .CONST 0x0118,0x0004 0254 0120 0005 | | .CONST 0x0120,0x0005 0256 012b 0006 | + | .CONST 0x012b,0x0006 0258 0131 0007 | 1 | .CONST 0x0131,0x0007 025a 0137 0008 | 7 | .CONST 0x0137,0x0008 025c ; -------------------------------------------------------------------------------------- 025c ; Debug3 Subtable 0x9 025c ; -------------------------------------------------------------------------------------- 025c 0000 0008 | | .DBG3TAB 0x0000,0x0008 025e 0145 0002 | E | .CONST 0x0145,0x0002 0260 014a 0003 | J | .CONST 0x014a,0x0003 0262 0151 0004 | Q | .CONST 0x0151,0x0004 0264 0157 0005 | W | .CONST 0x0157,0x0005 0266 0162 0006 | b | .CONST 0x0162,0x0006 0268 0169 0007 | i | .CONST 0x0169,0x0007 026a 0173 0008 | s | .CONST 0x0173,0x0008 026c 017a 0001 | z | .CONST 0x017a,0x0001 026e 0000 0000 | | .BLANK 0000[0x192]