|
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, 01_tag, 5811_R1K_CODE, NULL, R1k_Segment, seg_000001
└─⟦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 01c8 | | .CONST 0x01c8 ; 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 006b | k | .CONST 0x006b ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0028 | ( | .CONST 0x0028 ; Number of locals 000b INIT_0008: 000b 4818 |H | Short_Literal 0x18 ; Debug Table 0x0 = .DEBUG 0x000b,0x024a,0xc000,0x0000,0x001b,0xa584,0x0000,0x0003 ; Debug Table 0x0.0x0 = 0xb,0xffff 000c 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected 000d 4818 |H | Short_Literal 0x18 ; Debug Table 0x0.0x1 = 0xd,0xfffe 000e 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected 000f 0007 | | Action Break_Optional ; Debug Table 0x0.0x2 = 0xf,0xfffd 0010 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x10,0xfffc 0012 00c4 | | Action Make_Default ; Debug Table 0x0.0x4 = 0x12,0xfffb 0013 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x13,0xfffa 0015 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x15,0xfff9 0017 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x17,0xfff8 0019 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x19,0xfff7 001b 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x9 = 0x1b,0xfff6 001d 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xa = 0x1d,0xfff5 001f 4803 |H | Short_Literal 0x3 ; Debug Table 0x0.0xb = 0x1f,0xfff4 0020 032b | + | Declare_Type Record,Incomplete,Visible 0021 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xc = 0x21,0xfff3 0023 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xd = 0x23,0xfff2 0025 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xe = 0x25,0xfff1 0027 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xf = 0x27,0xfff0 0029 e20f | | Load 0x1,0xf ; Debug Table 0x0.0x10 = 0x29,0xffef 002a 02a0 | | Declare_Subprogram Null_Subprogram 002b e213 | | Load 0x1,0x13 002c 03c7 | | Complete_Type Access,By_Defining 002d e213 | | Load 0x1,0x13 ; Debug Table 0x0.0x11 = 0x2d,0xffee 002e 0129 | ) | Execute Any,Make_Visible 002f c216 | | Store 0x1,0x16 0030 4801 |H | Short_Literal 0x1 ; Debug Table 0x0.0x12 = 0x30,0xffed 0031 034b | K | Declare_Type Array,Incomplete,Bounds_With_Object 0032 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x13 = 0x32,0xffec 0033 02a0 | | Declare_Subprogram Null_Subprogram 0034 e214 | | Load 0x1,0x14 0035 03c7 | | Complete_Type Access,By_Defining 0036 4802 |H | Short_Literal 0x2 ; Debug Table 0x0.0x14 = 0x36,0xffeb 0037 032a | * | Declare_Type Record,Incomplete 0038 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x15 = 0x38,0xffea 0039 02a0 | | Declare_Subprogram Null_Subprogram 003a 4818 |H | Short_Literal 0x18 003b 03d3 | | Declare_Type Access,Defined,Accesses_Protected 003c 00e2 | | Load_Encached Integer_Cache ; Debug Table 0x0.0x16 = 0x3c,0xffe9 003d e214 | | Load 0x1,0x14 ; Debug Table 0x0.0x17 = 0x3d,0xffe8 003e 00d9 | | Load_Top At_Offset_1 003f 00db | | Load_Top At_Offset_3 0040 02a0 | | Declare_Subprogram Null_Subprogram 0041 e21d | | Load 0x1,0x1d 0042 0326 | & | Complete_Type Record,By_Defining 0043 00bf | | Action Accept_Activation 0044 e213 | | Load 0x1,0x13 ; Debug Table 0x1 = .DEBUG 0x0044,0x027c,0xc000,0x0000,0x001b,0xa594,0x0000,0x0003 ; Debug Table 0x1.0x0 = 0x44,0xffff 0045 00da | | Load_Top At_Offset_2 0046 02a0 | | Declare_Subprogram Null_Subprogram 0047 e223 | # | Load 0x1,0x23 0048 0326 | & | Complete_Type Record,By_Defining 0049 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x1 = 0x49,0xfffe 004a 0266 | f | Execute Discrete,Bounds 004b 00db | | Load_Top At_Offset_3 004c 02a0 | | Declare_Subprogram Null_Subprogram 004d e222 | " | Load 0x1,0x22 004e 0343 | C | Complete_Type Array,By_Defining 004f 029d 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call ; Debug Table 0x1.0x2 = 0x4f,0xfffd 0051 029d 019b | | Declare_Subprogram INIT_0198,For_Outer_Call ; Debug Table 0x1.0x3 = 0x51,0xfffc 0053 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0x4 = 0x53,0xfffb 0054 00c7 | | Action Elaborate_Subprogram 0055 1d17 | | Execute_Immediate Reference_Lex_1,0x17 ; Debug Table 0x1.0x5 = 0x55,0xfffa 0056 00c7 | | Action Elaborate_Subprogram 0057 1d18 | | Execute_Immediate Reference_Lex_1,0x18 ; Debug Table 0x1.0x6 = 0x57,0xfff9 0058 00c7 | | Action Elaborate_Subprogram 0059 1d19 | | Execute_Immediate Reference_Lex_1,0x19 ; Debug Table 0x1.0x7 = 0x59,0xfff8 005a 00c7 | | Action Elaborate_Subprogram 005b 1d1b | | Execute_Immediate Reference_Lex_1,0x1b ; Debug Table 0x1.0x8 = 0x5b,0xfff7 005c 00c7 | | Action Elaborate_Subprogram 005d 1d1c | | Execute_Immediate Reference_Lex_1,0x1c ; Debug Table 0x1.0x9 = 0x5d,0xfff6 005e 00c7 | | Action Elaborate_Subprogram 005f 1d1a | | Execute_Immediate Reference_Lex_1,0x1a ; Debug Table 0x1.0xa = 0x5f,0xfff5 0060 00c7 | | Action Elaborate_Subprogram 0061 029d 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call ; Debug Table 0x1.0xb = 0x61,0xfff4 0063 1d1e | | Execute_Immediate Reference_Lex_1,0x1e ; Debug Table 0x1.0xc = 0x63,0xfff3 0064 00c7 | | Action Elaborate_Subprogram 0065 1d1f | | Execute_Immediate Reference_Lex_1,0x1f ; Debug Table 0x1.0xd = 0x65,0xfff2 0066 00c7 | | Action Elaborate_Subprogram 0067 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 ; Debug Table 0x1.0xe = 0x67,0xfff1 0068 00c7 | | Action Elaborate_Subprogram 0069 1d20 | | Execute_Immediate Reference_Lex_1,0x20 ; Debug Table 0x1.0xf = 0x69,0xfff0 006a 00c7 | | Action Elaborate_Subprogram 006b BODY_0008: 006b 00bc | | Action Signal_Activated 006c 00bb | | Action Signal_Completion 006d 0000 0000 | | .XXX[0x3] 006f 0000 | | 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0073 | s | .CONST 0x0073 ; Address of begin 0071 0004 | | .CONST 0x0004 ; Address of exception handler 0072 0001 | | .CONST 0x0001 ; Number of locals 0073 BODY_0070: 0073 INIT_0070: 0073 4800 |H | Short_Literal 0x0 ; Debug Table 0x2 = .DEBUG 0x0073,0x029e,0x1002,0x0000,0x001b,0xa584,0x0000,0x002c ; Debug Table 0x2.0x0 = 0x73,0x1 0074 00db | | Load_Top At_Offset_3 0075 0aff | | Execute_Immediate Plus,-0x1 0076 0248 | H | Execute Discrete,Check_In_Integer 0077 e214 | | Load 0x1,0x14 0078 03ba | | Declare_Variable Access,By_Allocation,With_Constraint 0079 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 007a 0000 0000 | | .BLANK 0000[0x6] 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0093 | | .CONST 0x0093 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0003 | | .CONST 0x0003 ; Number of locals 0083 INIT_0080: 0083 00db | | Load_Top At_Offset_3 ; Debug Table 0x3 = .DEBUG 0x0083,0x02a2,0x1002,0x0000,0x001b,0xa584,0x0000,0x003a ; Debug Table 0x3.0x0 = 0x83,0xffff 0084 0227 | ' | Execute Access,All_Reference 0085 01db | | Execute Vector,Length 0086 00e4 | | Load_Encached Positive_Cache 0087 025b | [ | Execute Discrete,Check_In_Type 0088 00db | | Load_Top At_Offset_3 0089 e20f | | Load 0x1,0xf 008a 0119 | | Execute Any,Check_In_Formal_Type 008b 8227 | ' | Call 0x1,0x27 008c e5fe | | Load 0x2,-0x2 008d 0227 | ' | Execute Access,All_Reference 008e 01d5 | | Execute Vector,Field_Reference 008f 0007 | | Action Break_Optional 0090 e224 | $ | Load 0x1,0x24 ; Debug Table 0x3.0x1 = 0x90,0xfffe 0091 00d9 | | Load_Top At_Offset_1 0092 0039 | 9 | Store_Top Access,At_Offset_1 0093 BODY_0080: 0093 e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0x2 = 0x93,0x1 0094 e210 | | Load 0x1,0x10 0095 012f | / | Execute Any,Equal 0096 6802 |h | Jump_Zero 0x99 0097 e213 | | Load 0x1,0x13 ; Debug Table 0x3.0x3 = 0x97,0x2 0098 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0099 00cf | | Action Mark_Auxiliary 009a 7810 |x | Jump 0xab 009b e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0x4 = 0x9b,0x4 009c 00da | | Load_Top At_Offset_2 009d 0227 | ' | Execute Access,All_Reference 009e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 009f 0229 | ) | Execute Access,All_Read 00a0 012f | / | Execute Any,Equal 00a1 6804 |h | Jump_Zero 0xa6 00a2 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x5 = 0xa2,0x5 00a3 0227 | ' | Execute Access,All_Reference 00a4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00a5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00a6 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x6 = 0xa6,0x6 00a7 0227 | ' | Execute Access,All_Reference 00a8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00a9 003a | : | Store_Top Access,At_Offset_2 00aa 00c9 | | Action Pop_Auxiliary_Loop 00ab 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x7 = 0xab,0x3 00ac 77ee |w | Jump_Nonzero 0x9b 00ad 00ce | | Action Pop_Auxiliary 00ae e224 | $ | Load 0x1,0x24 ; Debug Table 0x3.0x8 = 0xae,0x7 00af 03bc | | Declare_Variable Access,By_Allocation 00b0 0039 | 9 | Store_Top Access,At_Offset_1 00b1 e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0x9 = 0xb1,0x8 00b2 e20f | | Load 0x1,0xf 00b3 0119 | | Execute Any,Check_In_Formal_Type 00b4 e213 | | Load 0x1,0x13 00b5 03b6 | | Declare_Variable Access,By_Allocation,With_Value 00b6 00d9 | | Load_Top At_Offset_1 00b7 0227 | ' | Execute Access,All_Reference 00b8 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00b9 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0xa = 0xb9,0x9 00ba 00d9 | | Load_Top At_Offset_1 00bb 0227 | ' | Execute Access,All_Reference 00bc 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00bd 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0xb = 0xbd,0xa 00be a402 | | Store_Unchecked 0x2,0x2 00bf 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0xc = 0xbf,0xb 00c0 0227 | ' | Execute Access,All_Reference 00c1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00c2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00c3 0000 0000 | | .BLANK 0000[0x5] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00d9 | | .CONST 0x00d9 ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0002 | | .CONST 0x0002 ; Number of locals 00cb INIT_00c8: 00cb e224 | $ | Load 0x1,0x24 ; Debug Table 0x4 = .DEBUG 0x00cb,0x02be,0x1002,0x0000,0x001b,0xa584,0x0000,0x0047 ; Debug Table 0x4.0x0 = 0xcb,0xffff 00cc e5fe | | Load 0x2,-0x2 00cd 0227 | ' | Execute Access,All_Reference 00ce 01db | | Execute Vector,Length 00cf 00e4 | | Load_Encached Positive_Cache 00d0 025b | [ | Execute Discrete,Check_In_Type 00d1 e5ff | | Load 0x2,-0x1 00d2 e20f | | Load 0x1,0xf 00d3 0119 | | Execute Any,Check_In_Formal_Type 00d4 8227 | ' | Call 0x1,0x27 00d5 e5fe | | Load 0x2,-0x2 00d6 0227 | ' | Execute Access,All_Reference 00d7 01d7 | | Execute Vector,Field_Read 00d8 0039 | 9 | Store_Top Access,At_Offset_1 00d9 BODY_00c8: 00d9 00db | | Load_Top At_Offset_3 ; Debug Table 0x4.0x1 = 0xd9,0x1 00da e210 | | Load 0x1,0x10 00db 012f | / | Execute Any,Equal 00dc 6802 |h | Jump_Zero 0xdf 00dd e213 | | Load 0x1,0x13 ; Debug Table 0x4.0x2 = 0xdd,0x2 00de 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00df 00cf | | Action Mark_Auxiliary 00e0 7810 |x | Jump 0xf1 00e1 e5ff | | Load 0x2,-0x1 ; Debug Table 0x4.0x3 = 0xe1,0x4 00e2 00da | | Load_Top At_Offset_2 00e3 0227 | ' | Execute Access,All_Reference 00e4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00e5 0229 | ) | Execute Access,All_Read 00e6 012f | / | Execute Any,Equal 00e7 6804 |h | Jump_Zero 0xec 00e8 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x4.0x4 = 0xe8,0x5 00e9 0227 | ' | Execute Access,All_Reference 00ea 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00eb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00ec 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x4.0x5 = 0xec,0x6 00ed 0227 | ' | Execute Access,All_Reference 00ee 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00ef 003a | : | Store_Top Access,At_Offset_2 00f0 00c9 | | Action Pop_Auxiliary_Loop 00f1 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x4.0x6 = 0xf1,0x3 00f2 77ee |w | Jump_Nonzero 0xe1 00f3 00ce | | Action Pop_Auxiliary 00f4 e213 | | Load 0x1,0x13 ; Debug Table 0x4.0x7 = 0xf4,0x7 00f5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00f6 0000 0000 | | .XXX[0x2] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 00fb | | .CONST 0x00fb ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0001 | | .CONST 0x0001 ; Number of locals 00fb BODY_00f8: 00fb INIT_00f8: 00fb 00da | | Load_Top At_Offset_2 ; Debug Table 0x5 = .DEBUG 0x00fb,0x02d0,0x1002,0x0000,0x001b,0xa584,0x0000,0x0054 ; Debug Table 0x5.0x0 = 0xfb,0x1 00fc e210 | | Load 0x1,0x10 00fd 012f | / | Execute Any,Equal 00fe 6802 |h | Jump_Zero 0x101 00ff e213 | | Load 0x1,0x13 ; Debug Table 0x5.0x1 = 0xff,0x2 0100 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0101 00da | | Load_Top At_Offset_2 ; Debug Table 0x5.0x2 = 0x101,0x3 0102 e20f | | Load 0x1,0xf 0103 0119 | | Execute Any,Check_In_Formal_Type 0104 e213 | | Load 0x1,0x13 0105 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0106 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0107 0000 | | .XXX[0x1] 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 010b | | .CONST 0x010b ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0001 | | .CONST 0x0001 ; Number of locals 010b BODY_0108: 010b INIT_0108: 010b 00da | | Load_Top At_Offset_2 ; Debug Table 0x6 = .DEBUG 0x010b,0x02d8,0x1002,0x0000,0x001b,0xa584,0x0000,0x005d ; Debug Table 0x6.0x0 = 0x10b,0x1 010c 7009 |p | Jump_Nonzero 0x116 010d e210 | | Load 0x1,0x10 ; Debug Table 0x6.0x1 = 0x10d,0x2 010e 00d8 | | Load_Top At_Offset_0 010f 0120 | | Execute Any,Is_Value 0110 7002 |p | Jump_Nonzero 0x113 0111 00d8 | | Load_Top At_Offset_0 0112 011e | | Execute Any,Convert 0113 e20f | | Load 0x1,0xf 0114 0119 | | Execute Any,Check_In_Formal_Type 0115 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0116 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0x2 = 0x116,0x3 0117 0229 | ) | Execute Access,All_Read 0118 00d8 | | Load_Top At_Offset_0 0119 0120 | | Execute Any,Is_Value 011a 7002 |p | Jump_Nonzero 0x11d 011b 00d8 | | Load_Top At_Offset_0 011c 011e | | Execute Any,Convert 011d e20f | | Load 0x1,0xf 011e 0119 | | Execute Any,Check_In_Formal_Type 011f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 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 00da | | Load_Top At_Offset_2 ; Debug Table 0x7 = .DEBUG 0x0123,0x02e0,0x1002,0x0000,0x001b,0xa584,0x0000,0x0066 ; Debug Table 0x7.0x0 = 0x123,0x1 0124 e5fe | | Load 0x2,-0x2 0125 022f | / | Execute Access,Equal 0126 700f |p | Jump_Nonzero 0x136 0127 00da | | Load_Top At_Offset_2 0128 6803 |h | Jump_Zero 0x12c 0129 00db | | Load_Top At_Offset_3 012a 022c | , | Execute Access,Not_Null 012b 7801 |x | Jump 0x12d 012c 4800 |H | Short_Literal 0x0 012d 6806 |h | Jump_Zero 0x134 012e 00da | | Load_Top At_Offset_2 012f 0229 | ) | Execute Access,All_Read 0130 e5fe | | Load 0x2,-0x2 0131 0229 | ) | Execute Access,All_Read 0132 012f | / | Execute Any,Equal 0133 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0134 4800 |H | Short_Literal 0x0 0135 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0136 4801 |H | Short_Literal 0x1 0137 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 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 00da | | Load_Top At_Offset_2 ; Debug Table 0x8 = .DEBUG 0x013b,0x02e4,0x1002,0x0000,0x001b,0xa584,0x0000,0x0070 ; Debug Table 0x8.0x0 = 0x13b,0x1 013c 821a | | Call 0x1,0x1a 013d e20f | | Load 0x1,0xf 013e 0119 | | Execute Any,Check_In_Formal_Type 013f 8211 | | Call 0x1,0x11 0140 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0141 0000 0000 | | .BLANK 0000[0x7] 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 014d | M | .CONST 0x014d ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0002 | | .CONST 0x0002 ; Number of locals 014b INIT_0148: 014b e21d | | Load 0x1,0x1d ; Debug Table 0x9 = .DEBUG 0x014b,0x02e8,0x1001,0x0000,0x001b,0xa584,0x0000,0x007d ; Debug Table 0x9.0x0 = 0x14b,0xffff 014c 0322 | " | Declare_Variable Record 014d BODY_0148: 014d 00db | | Load_Top At_Offset_3 ; Debug Table 0x9.0x1 = 0x14d,0x1 014e 00d9 | | Load_Top At_Offset_1 014f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0150 4800 |H | Short_Literal 0x0 ; Debug Table 0x9.0x2 = 0x150,0x2 0151 00d9 | | Load_Top At_Offset_1 0152 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0153 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x3 = 0x153,0x3 0154 8228 | ( | Call 0x1,0x28 0155 00d1 | | Pop_Control Pop_Count_1 0156 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x4 = 0x156,0x4 0157 e5fe | | Load 0x2,-0x2 0158 017d | } | Execute Record,Structure_Write 0159 4502 |E | Exit_Suprogram New_Top_Offset 0x2 015a 0000 0000 | | .BLANK 0000[0x6] 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 00da | | Load_Top At_Offset_2 ; Debug Table 0xa = .DEBUG 0x0163,0x02f4,0x1001,0x0000,0x001b,0xa584,0x0000,0x0089 ; Debug Table 0xa.0x0 = 0x163,0x1 0164 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0165 0227 | ' | Execute Access,All_Reference 0166 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0167 00db | | Load_Top At_Offset_3 0168 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0169 00da | | Load_Top At_Offset_2 ; Debug Table 0xa.0x1 = 0x169,0x2 016a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 016b 7010 |p | Jump_Nonzero 0x17c 016c 00da | | Load_Top At_Offset_2 016d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 016e 00db | | Load_Top At_Offset_3 016f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0170 0227 | ' | Execute Access,All_Reference 0171 01dc | | Execute Vector,Last 0172 027e | ~ | Execute Discrete,Not_Equal 0173 6808 |h | Jump_Zero 0x17c 0174 00da | | Load_Top At_Offset_2 ; Debug Table 0xa.0x2 = 0x174,0x3 0175 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0176 0a01 | | Execute_Immediate Plus,0x1 0177 00db | | Load_Top At_Offset_3 0178 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0179 00da | | Load_Top At_Offset_2 ; Debug Table 0xa.0x3 = 0x179,0x4 017a 8228 | ( | Call 0x1,0x28 017b 00d1 | | Pop_Control Pop_Count_1 017c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 017d 0000 0000 | | .XXX[0x3] 017f 0000 | | 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 00da | | Load_Top At_Offset_2 ; Debug Table 0xb = .DEBUG 0x0183,0x02fe,0x1002,0x0000,0x001b,0xa584,0x0000,0x0091 ; Debug Table 0xb.0x0 = 0x183,0x1 0184 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0185 022d | - | Execute Access,Is_Null 0186 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0187 0000 | | .XXX[0x1] 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 018b | | .CONST 0x018b ; Address of begin 0189 0004 | | .CONST 0x0004 ; Address of exception handler 018a 0001 | | .CONST 0x0001 ; Number of locals 018b BODY_0188: 018b INIT_0188: 018b 00da | | Load_Top At_Offset_2 ; Debug Table 0xc = .DEBUG 0x018b,0x0302,0x1002,0x0000,0x001b,0xa584,0x0000,0x009a ; Debug Table 0xc.0x0 = 0x18b,0x1 018c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 018d 0227 | ' | Execute Access,All_Reference 018e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 018f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 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 e213 | | Load 0x1,0x13 ; Debug Table 0xd = .DEBUG 0x0193,0x0306,0x1002,0x0000,0x001b,0xa594,0x0000,0x001b ; Debug Table 0xd.0x0 = 0x193,0x1 0194 00ca | | Action Exit_Nullary_Function 0195 0000 0000 | | .XXX[0x3] 0197 0000 | | 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 019b | | .CONST 0x019b ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0001 | | .CONST 0x0001 ; Number of locals 019b BODY_0198: 019b INIT_0198: 019b 00da | | Load_Top At_Offset_2 ; Debug Table 0xe = .DEBUG 0x019b,0x030a,0x1002,0x0000,0x001b,0xa594,0x0000,0x0026 ; Debug Table 0xe.0x0 = 0x19b,0x1 019c e20f | | Load 0x1,0xf 019d 0119 | | Execute Any,Check_In_Formal_Type 019e 8211 | | Call 0x1,0x11 019f e5fe | | Load 0x2,-0x2 01a0 026e | n | Execute Discrete,Modulo 01a1 0274 | t | Execute Discrete,Absolute_Value 01a2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01a3 0000 0000 | | .BLANK 0000[0x5] 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01ab | | .CONST 0x01ab ; Address of begin 01a9 0004 | | .CONST 0x0004 ; Address of exception handler 01aa 0001 | | .CONST 0x0001 ; Number of locals 01ab BODY_01a8: 01ab INIT_01a8: 01ab 00cf | | Action Mark_Auxiliary ; Debug Table 0xf = .DEBUG 0x01ab,0x030e,0x1001,0x0000,0x001b,0xa594,0x0000,0x018b 01ac 0007 | | Action Break_Optional ; Debug Table 0xf.0x0 = 0x1ac,0x1 01ad 00db | | Load_Top At_Offset_3 ; Debug Table 0xf.0x1 = 0x1ad,0x2 01ae 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01af e5ff | | Load 0x2,-0x1 01b0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01b1 0227 | ' | Execute Access,All_Reference 01b2 01d7 | | Execute Vector,Field_Read 01b3 e5ff | | Load 0x2,-0x1 01b4 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 01b5 00db | | Load_Top At_Offset_3 ; Debug Table 0xf.0x2 = 0x1b5,0x3 01b6 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01b7 700f |p | Jump_Nonzero 0x1c7 01b8 00db | | Load_Top At_Offset_3 01b9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01ba e5ff | | Load 0x2,-0x1 01bb 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01bc 0227 | ' | Execute Access,All_Reference 01bd 01dc | | Execute Vector,Last 01be 027f | | Execute Discrete,Equal 01bf 7007 |p | Jump_Nonzero 0x1c7 01c0 00db | | Load_Top At_Offset_3 ; Debug Table 0xf.0x3 = 0x1c0,0x4 01c1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01c2 0a01 | | Execute_Immediate Plus,0x1 01c3 e5ff | | Load 0x2,-0x1 01c4 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01c5 00c9 | | Action Pop_Auxiliary_Loop 01c6 7fe6 | | Jump 0x1ad 01c7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; Debug Table 01c8 ; -------------------------------------------------------------------------------------- 01c8 0003 0010 | | .CONST 0x0003,0x0010 01ca 000b 024a | J| .DEBUG 0x000b,0x024a,0xc000,0x0000,0x001b,0xa584,0x0000,0x0003 01d2 0044 027c | D || .DEBUG 0x0044,0x027c,0xc000,0x0000,0x001b,0xa594,0x0000,0x0003 01da 0073 029e | s | .DEBUG 0x0073,0x029e,0x1002,0x0000,0x001b,0xa584,0x0000,0x002c 01e2 0083 02a2 | | .DEBUG 0x0083,0x02a2,0x1002,0x0000,0x001b,0xa584,0x0000,0x003a 01ea 00cb 02be | | .DEBUG 0x00cb,0x02be,0x1002,0x0000,0x001b,0xa584,0x0000,0x0047 01f2 00fb 02d0 | | .DEBUG 0x00fb,0x02d0,0x1002,0x0000,0x001b,0xa584,0x0000,0x0054 01fa 010b 02d8 | | .DEBUG 0x010b,0x02d8,0x1002,0x0000,0x001b,0xa584,0x0000,0x005d 0202 0123 02e0 | # | .DEBUG 0x0123,0x02e0,0x1002,0x0000,0x001b,0xa584,0x0000,0x0066 020a 013b 02e4 | ; | .DEBUG 0x013b,0x02e4,0x1002,0x0000,0x001b,0xa584,0x0000,0x0070 0212 014b 02e8 | K | .DEBUG 0x014b,0x02e8,0x1001,0x0000,0x001b,0xa584,0x0000,0x007d 021a 0163 02f4 | c | .DEBUG 0x0163,0x02f4,0x1001,0x0000,0x001b,0xa584,0x0000,0x0089 0222 0183 02fe | | .DEBUG 0x0183,0x02fe,0x1002,0x0000,0x001b,0xa584,0x0000,0x0091 022a 018b 0302 | | .DEBUG 0x018b,0x0302,0x1002,0x0000,0x001b,0xa584,0x0000,0x009a 0232 0193 0306 | | .DEBUG 0x0193,0x0306,0x1002,0x0000,0x001b,0xa594,0x0000,0x001b 023a 019b 030a | | .DEBUG 0x019b,0x030a,0x1002,0x0000,0x001b,0xa594,0x0000,0x0026 0242 01ab 030e | | .DEBUG 0x01ab,0x030e,0x1001,0x0000,0x001b,0xa594,0x0000,0x018b 024a ; -------------------------------------------------------------------------------------- 024a ; Debug3 Subtable 0x0 024a ; -------------------------------------------------------------------------------------- 024a 0018 0000 | | .DBG3TAB 0x0018,0x0000 024c 000b ffff | | .CONST 0x000b,0xffff 024e 000d fffe | | .CONST 0x000d,0xfffe 0250 000f fffd | | .CONST 0x000f,0xfffd 0252 0010 fffc | | .CONST 0x0010,0xfffc 0254 0012 fffb | | .CONST 0x0012,0xfffb 0256 0013 fffa | | .CONST 0x0013,0xfffa 0258 0015 fff9 | | .CONST 0x0015,0xfff9 025a 0017 fff8 | | .CONST 0x0017,0xfff8 025c 0019 fff7 | | .CONST 0x0019,0xfff7 025e 001b fff6 | | .CONST 0x001b,0xfff6 0260 001d fff5 | | .CONST 0x001d,0xfff5 0262 001f fff4 | | .CONST 0x001f,0xfff4 0264 0021 fff3 | ! | .CONST 0x0021,0xfff3 0266 0023 fff2 | # | .CONST 0x0023,0xfff2 0268 0025 fff1 | % | .CONST 0x0025,0xfff1 026a 0027 fff0 | ' | .CONST 0x0027,0xfff0 026c 0029 ffef | ) | .CONST 0x0029,0xffef 026e 002d ffee | - | .CONST 0x002d,0xffee 0270 0030 ffed | 0 | .CONST 0x0030,0xffed 0272 0032 ffec | 2 | .CONST 0x0032,0xffec 0274 0036 ffeb | 6 | .CONST 0x0036,0xffeb 0276 0038 ffea | 8 | .CONST 0x0038,0xffea 0278 003c ffe9 | < | .CONST 0x003c,0xffe9 027a 003d ffe8 | = | .CONST 0x003d,0xffe8 027c ; -------------------------------------------------------------------------------------- 027c ; Debug3 Subtable 0x1 027c ; -------------------------------------------------------------------------------------- 027c 0010 0000 | | .DBG3TAB 0x0010,0x0000 027e 0044 ffff | D | .CONST 0x0044,0xffff 0280 0049 fffe | I | .CONST 0x0049,0xfffe 0282 004f fffd | O | .CONST 0x004f,0xfffd 0284 0051 fffc | Q | .CONST 0x0051,0xfffc 0286 0053 fffb | S | .CONST 0x0053,0xfffb 0288 0055 fffa | U | .CONST 0x0055,0xfffa 028a 0057 fff9 | W | .CONST 0x0057,0xfff9 028c 0059 fff8 | Y | .CONST 0x0059,0xfff8 028e 005b fff7 | [ | .CONST 0x005b,0xfff7 0290 005d fff6 | ] | .CONST 0x005d,0xfff6 0292 005f fff5 | _ | .CONST 0x005f,0xfff5 0294 0061 fff4 | a | .CONST 0x0061,0xfff4 0296 0063 fff3 | c | .CONST 0x0063,0xfff3 0298 0065 fff2 | e | .CONST 0x0065,0xfff2 029a 0067 fff1 | g | .CONST 0x0067,0xfff1 029c 0069 fff0 | i | .CONST 0x0069,0xfff0 029e ; -------------------------------------------------------------------------------------- 029e ; Debug3 Subtable 0x2 029e ; -------------------------------------------------------------------------------------- 029e 0000 0001 | | .DBG3TAB 0x0000,0x0001 02a0 0073 0001 | s | .CONST 0x0073,0x0001 02a2 ; -------------------------------------------------------------------------------------- 02a2 ; Debug3 Subtable 0x3 02a2 ; -------------------------------------------------------------------------------------- 02a2 0002 000b | | .DBG3TAB 0x0002,0x000b 02a4 0083 ffff | | .CONST 0x0083,0xffff 02a6 0090 fffe | | .CONST 0x0090,0xfffe 02a8 0093 0001 | | .CONST 0x0093,0x0001 02aa 0097 0002 | | .CONST 0x0097,0x0002 02ac 009b 0004 | | .CONST 0x009b,0x0004 02ae 00a2 0005 | | .CONST 0x00a2,0x0005 02b0 00a6 0006 | | .CONST 0x00a6,0x0006 02b2 00ab 0003 | | .CONST 0x00ab,0x0003 02b4 00ae 0007 | | .CONST 0x00ae,0x0007 02b6 00b1 0008 | | .CONST 0x00b1,0x0008 02b8 00b9 0009 | | .CONST 0x00b9,0x0009 02ba 00bd 000a | | .CONST 0x00bd,0x000a 02bc 00bf 000b | | .CONST 0x00bf,0x000b 02be ; -------------------------------------------------------------------------------------- 02be ; Debug3 Subtable 0x4 02be ; -------------------------------------------------------------------------------------- 02be 0001 0007 | | .DBG3TAB 0x0001,0x0007 02c0 00cb ffff | | .CONST 0x00cb,0xffff 02c2 00d9 0001 | | .CONST 0x00d9,0x0001 02c4 00dd 0002 | | .CONST 0x00dd,0x0002 02c6 00e1 0004 | | .CONST 0x00e1,0x0004 02c8 00e8 0005 | | .CONST 0x00e8,0x0005 02ca 00ec 0006 | | .CONST 0x00ec,0x0006 02cc 00f1 0003 | | .CONST 0x00f1,0x0003 02ce 00f4 0007 | | .CONST 0x00f4,0x0007 02d0 ; -------------------------------------------------------------------------------------- 02d0 ; Debug3 Subtable 0x5 02d0 ; -------------------------------------------------------------------------------------- 02d0 0000 0003 | | .DBG3TAB 0x0000,0x0003 02d2 00fb 0001 | | .CONST 0x00fb,0x0001 02d4 00ff 0002 | | .CONST 0x00ff,0x0002 02d6 0101 0003 | | .CONST 0x0101,0x0003 02d8 ; -------------------------------------------------------------------------------------- 02d8 ; Debug3 Subtable 0x6 02d8 ; -------------------------------------------------------------------------------------- 02d8 0000 0003 | | .DBG3TAB 0x0000,0x0003 02da 010b 0001 | | .CONST 0x010b,0x0001 02dc 010d 0002 | | .CONST 0x010d,0x0002 02de 0116 0003 | | .CONST 0x0116,0x0003 02e0 ; -------------------------------------------------------------------------------------- 02e0 ; Debug3 Subtable 0x7 02e0 ; -------------------------------------------------------------------------------------- 02e0 0000 0001 | | .DBG3TAB 0x0000,0x0001 02e2 0123 0001 | # | .CONST 0x0123,0x0001 02e4 ; -------------------------------------------------------------------------------------- 02e4 ; Debug3 Subtable 0x8 02e4 ; -------------------------------------------------------------------------------------- 02e4 0000 0001 | | .DBG3TAB 0x0000,0x0001 02e6 013b 0001 | ; | .CONST 0x013b,0x0001 02e8 ; -------------------------------------------------------------------------------------- 02e8 ; Debug3 Subtable 0x9 02e8 ; -------------------------------------------------------------------------------------- 02e8 0001 0004 | | .DBG3TAB 0x0001,0x0004 02ea 014b ffff | K | .CONST 0x014b,0xffff 02ec 014d 0001 | M | .CONST 0x014d,0x0001 02ee 0150 0002 | P | .CONST 0x0150,0x0002 02f0 0153 0003 | S | .CONST 0x0153,0x0003 02f2 0156 0004 | V | .CONST 0x0156,0x0004 02f4 ; -------------------------------------------------------------------------------------- 02f4 ; Debug3 Subtable 0xa 02f4 ; -------------------------------------------------------------------------------------- 02f4 0000 0004 | | .DBG3TAB 0x0000,0x0004 02f6 0163 0001 | c | .CONST 0x0163,0x0001 02f8 0169 0002 | i | .CONST 0x0169,0x0002 02fa 0174 0003 | t | .CONST 0x0174,0x0003 02fc 0179 0004 | y | .CONST 0x0179,0x0004 02fe ; -------------------------------------------------------------------------------------- 02fe ; Debug3 Subtable 0xb 02fe ; -------------------------------------------------------------------------------------- 02fe 0000 0001 | | .DBG3TAB 0x0000,0x0001 0300 0183 0001 | | .CONST 0x0183,0x0001 0302 ; -------------------------------------------------------------------------------------- 0302 ; Debug3 Subtable 0xc 0302 ; -------------------------------------------------------------------------------------- 0302 0000 0001 | | .DBG3TAB 0x0000,0x0001 0304 018b 0001 | | .CONST 0x018b,0x0001 0306 ; -------------------------------------------------------------------------------------- 0306 ; Debug3 Subtable 0xd 0306 ; -------------------------------------------------------------------------------------- 0306 0000 0001 | | .DBG3TAB 0x0000,0x0001 0308 0193 0001 | | .CONST 0x0193,0x0001 030a ; -------------------------------------------------------------------------------------- 030a ; Debug3 Subtable 0xe 030a ; -------------------------------------------------------------------------------------- 030a 0000 0001 | | .DBG3TAB 0x0000,0x0001 030c 019b 0001 | | .CONST 0x019b,0x0001 030e ; -------------------------------------------------------------------------------------- 030e ; Debug3 Subtable 0xf 030e ; -------------------------------------------------------------------------------------- 030e 0000 0004 | | .DBG3TAB 0x0000,0x0004 0310 01ac 0001 | | .CONST 0x01ac,0x0001 0312 01ad 0002 | | .CONST 0x01ad,0x0002 0314 01b5 0003 | | .CONST 0x01b5,0x0003 0316 01c0 0004 | | .CONST 0x01c0,0x0004 0318 0000 0000 | | .BLANK 0000[0xe8]