|
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: 4096 (0x1000) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_1884fe
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0600 | | .CONST 0x0600 ; 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 0003 | | .CONST 0x0003 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 006f | o | .CONST 0x006f ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0022 | " | .CONST 0x0022 ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 000c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 000d 0129 | ) | Execute Any,Make_Visible 000e 4818 |H | Short_Literal 0x18 000f 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected 0010 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated 0012 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated 0014 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 0016 4800 |H | Short_Literal 0x0 0017 4801 |H | Short_Literal 0x1 0018 029f 014b | K| Declare_Subprogram INIT_0148,For_Call 001a 03fe | | Declare_Type Discrete,Defined,Visible 001b 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated 001d 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated 001f 4808 |H | Short_Literal 0x8 0020 032a | * | Declare_Type Record,Incomplete 0021 00d8 | | Load_Top At_Offset_0 0022 02a0 | | Declare_Subprogram Null_Subprogram 0023 4818 |H | Short_Literal 0x18 0024 03d3 | | Declare_Type Access,Defined,Accesses_Protected 0025 00d9 | | Load_Top At_Offset_1 0026 02a0 | | Declare_Subprogram Null_Subprogram 0027 e213 | | Load 0x1,0x13 0028 03c7 | | Complete_Type Access,By_Defining 0029 e20f | | Load 0x1,0xf 002a 00e4 | | Load_Encached Positive_Cache 002b 00e8 | | Load_Encached Character_Cache 002c 00e4 | | Load_Encached Positive_Cache 002d 00e4 | | Load_Encached Positive_Cache 002e e213 | | Load 0x1,0x13 002f 00d8 | | Load_Top At_Offset_0 0030 e213 | | Load 0x1,0x13 0031 029f 05c3 | | Declare_Subprogram INIT_05c0,For_Call 0033 e21a | | Load 0x1,0x1a 0034 0326 | & | Complete_Type Record,By_Defining 0035 00bf | | Action Accept_Activation 0036 4800 |H | Short_Literal 0x0 0037 4801 |H | Short_Literal 0x1 0038 029f 03e3 | | Declare_Subprogram INIT_03e0,For_Call 003a 03fd | | Declare_Type Discrete,Defined 003b e001 | | Load 0x0,0x1 003c 1b20 | | Execute Package,Field_Read,Field_Number 0x20 003d 0322 | " | Declare_Variable Record 003e 4800 |H | Short_Literal 0x0 003f 00d9 | | Load_Top At_Offset_1 0040 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0041 00d8 | | Load_Top At_Offset_0 0042 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0043 4801 |H | Short_Literal 0x1 0044 00d9 | | Load_Top At_Offset_1 0045 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0046 4800 |H | Short_Literal 0x0 0047 00d9 | | Load_Top At_Offset_1 0048 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0049 4800 |H | Short_Literal 0x0 004a 00d9 | | Load_Top At_Offset_1 004b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 004c 4800 |H | Short_Literal 0x0 004d 00d9 | | Load_Top At_Offset_1 004e 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 004f 4800 |H | Short_Literal 0x0 0050 00d9 | | Load_Top At_Offset_1 0051 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0052 4800 |H | Short_Literal 0x0 0053 00d9 | | Load_Top At_Offset_1 0054 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0055 4800 |H | Short_Literal 0x0 0056 00d9 | | Load_Top At_Offset_1 0057 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 0058 4800 |H | Short_Literal 0x0 0059 00d0 | | Action Swap_Control 005a 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 005b 1d14 | | Execute_Immediate Reference_Lex_1,0x14 005c 00c7 | | Action Elaborate_Subprogram 005d 1d15 | | Execute_Immediate Reference_Lex_1,0x15 005e 00c7 | | Action Elaborate_Subprogram 005f 029d 040b | | Declare_Subprogram INIT_0408,For_Outer_Call 0061 029d 041b | | Declare_Subprogram INIT_0418,For_Outer_Call 0063 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0064 00c7 | | Action Elaborate_Subprogram 0065 029d 04d3 | | Declare_Subprogram INIT_04d0,For_Outer_Call 0067 029d 04fb | | Declare_Subprogram INIT_04f8,For_Outer_Call 0069 029d 052b | +| Declare_Subprogram INIT_0528,For_Outer_Call 006b 1d19 | | Execute_Immediate Reference_Lex_1,0x19 006c 00c7 | | Action Elaborate_Subprogram 006d 1d16 | | Execute_Immediate Reference_Lex_1,0x16 006e 00c7 | | Action Elaborate_Subprogram 006f BODY_0008: 006f 00bc | | Action Signal_Activated 0070 00bb | | Action Signal_Completion 0071 0000 0000 | | .BLANK 0000[0x7] 0078 ; -------------------------------------------------------------------------------------- 0078 ; SUBPROGRAM 0078 ; -------------------------------------------------------------------------------------- 0078 007b | { | .CONST 0x007b ; Address of begin 0079 0004 | | .CONST 0x0004 ; Address of exception handler 007a 0001 | | .CONST 0x0001 ; Number of locals 007b BODY_0078: 007b INIT_0078: 007b e213 | | Load 0x1,0x13 007c 00ca | | Action Exit_Nullary_Function 007d 0000 0000 | | .XXX[0x3] 007f 0000 | | 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0089 | | .CONST 0x0089 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0003 | | .CONST 0x0003 ; Number of locals 0083 INIT_0080: 0083 e213 | | Load 0x1,0x13 0084 0007 | | Action Break_Optional 0085 00db | | Load_Top At_Offset_3 0086 e20f | | Load 0x1,0xf 0087 0119 | | Execute Any,Check_In_Formal_Type 0088 8210 | | Call 0x1,0x10 0089 BODY_0080: 0089 e5fe | | Load 0x2,-0x2 008a 702c |p, | Jump_Nonzero 0xb7 008b e21a | | Load 0x1,0x1a 008c 0322 | " | Declare_Variable Record 008d e5ff | | Load 0x2,-0x1 008e e21a | | Load 0x1,0x1a 008f 3000 |0 | Execute Record,Field_Type,Field_Number 0x0 0090 0119 | | Execute Any,Check_In_Formal_Type 0091 00d9 | | Load_Top At_Offset_1 0092 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0093 4801 |H | Short_Literal 0x1 0094 00d9 | | Load_Top At_Offset_1 0095 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0096 00d9 | | Load_Top At_Offset_1 0097 01dd | | Execute Vector,First 0098 00da | | Load_Top At_Offset_2 0099 01d7 | | Execute Vector,Field_Read 009a 00d9 | | Load_Top At_Offset_1 009b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 009c 4801 |H | Short_Literal 0x1 009d 00d9 | | Load_Top At_Offset_1 009e 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 009f 4801 |H | Short_Literal 0x1 00a0 00d9 | | Load_Top At_Offset_1 00a1 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 00a2 e213 | | Load 0x1,0x13 00a3 00d9 | | Load_Top At_Offset_1 00a4 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 00a5 e213 | | Load 0x1,0x13 00a6 00d9 | | Load_Top At_Offset_1 00a7 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 00a8 e213 | | Load 0x1,0x13 00a9 00d9 | | Load_Top At_Offset_1 00aa 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 00ab e213 | | Load 0x1,0x13 00ac 03b6 | | Declare_Variable Access,By_Allocation,With_Value 00ad a5fe | | Store_Unchecked 0x2,-0x2 00ae e5fe | | Load 0x2,-0x2 00af 00d8 | | Load_Top At_Offset_0 00b0 0227 | ' | Execute Access,All_Reference 00b1 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 00b2 e5fe | | Load 0x2,-0x2 00b3 00d8 | | Load_Top At_Offset_0 00b4 0227 | ' | Execute Access,All_Reference 00b5 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 00b6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00b7 e5fe | | Load 0x2,-0x2 00b8 0227 | ' | Execute Access,All_Reference 00b9 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 00ba 003a | : | Store_Top Access,At_Offset_2 00bb e21a | | Load 0x1,0x1a 00bc 0322 | " | Declare_Variable Record 00bd e5ff | | Load 0x2,-0x1 00be e21a | | Load 0x1,0x1a 00bf 3000 |0 | Execute Record,Field_Type,Field_Number 0x0 00c0 0119 | | Execute Any,Check_In_Formal_Type 00c1 00d9 | | Load_Top At_Offset_1 00c2 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00c3 00da | | Load_Top At_Offset_2 00c4 0227 | ' | Execute Access,All_Reference 00c5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00c6 0a01 | | Execute_Immediate Plus,0x1 00c7 00d9 | | Load_Top At_Offset_1 00c8 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00c9 00d9 | | Load_Top At_Offset_1 00ca 01dd | | Execute Vector,First 00cb 00da | | Load_Top At_Offset_2 00cc 01d7 | | Execute Vector,Field_Read 00cd 00d9 | | Load_Top At_Offset_1 00ce 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00cf 4801 |H | Short_Literal 0x1 00d0 00d9 | | Load_Top At_Offset_1 00d1 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 00d2 4801 |H | Short_Literal 0x1 00d3 00d9 | | Load_Top At_Offset_1 00d4 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 00d5 e213 | | Load 0x1,0x13 00d6 00d9 | | Load_Top At_Offset_1 00d7 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 00d8 00da | | Load_Top At_Offset_2 00d9 00d9 | | Load_Top At_Offset_1 00da 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 00db e213 | | Load 0x1,0x13 00dc 00d9 | | Load_Top At_Offset_1 00dd 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 00de e213 | | Load 0x1,0x13 00df 03b6 | | Declare_Variable Access,By_Allocation,With_Value 00e0 00da | | Load_Top At_Offset_2 00e1 0227 | ' | Execute Access,All_Reference 00e2 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 00e3 e5fe | | Load 0x2,-0x2 00e4 00da | | Load_Top At_Offset_2 00e5 0227 | ' | Execute Access,All_Reference 00e6 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 00e7 0227 | ' | Execute Access,All_Reference 00e8 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 00e9 00d9 | | Load_Top At_Offset_1 00ea 0227 | ' | Execute Access,All_Reference 00eb 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 00ec e5fe | | Load 0x2,-0x2 00ed 0227 | ' | Execute Access,All_Reference 00ee 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 00ef 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f5 | | .CONST 0x00f5 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0002 | | .CONST 0x0002 ; Number of locals 00f3 INIT_00f0: 00f3 e5fd | | Load 0x2,-0x3 00f4 0007 | | Action Break_Optional 00f5 BODY_00f0: 00f5 00d8 | | Load_Top At_Offset_0 00f6 7001 |p | Jump_Nonzero 0xf8 00f7 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00f8 00d8 | | Load_Top At_Offset_0 00f9 0227 | ' | Execute Access,All_Reference 00fa 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00fb e5fe | | Load 0x2,-0x2 00fc 012f | / | Execute Any,Equal 00fd 6816 |h | Jump_Zero 0x114 00fe 4800 |H | Short_Literal 0x0 00ff 00d9 | | Load_Top At_Offset_1 0100 0227 | ' | Execute Access,All_Reference 0101 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0102 00da | | Load_Top At_Offset_2 0103 0227 | ' | Execute Access,All_Reference 0104 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0105 e5ff | | Load 0x2,-0x1 0106 e001 | | Load 0x0,0x1 0107 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0108 4800 |H | Short_Literal 0x0 0109 e5fc | | Load 0x2,-0x4 010a 00da | | Load_Top At_Offset_2 010b 0227 | ' | Execute Access,All_Reference 010c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 010d e20f | | Load 0x1,0xf 010e 0119 | | Execute Any,Check_In_Formal_Type 010f 8210 | | Call 0x1,0x10 0110 e5ff | | Load 0x2,-0x1 0111 e001 | | Load 0x0,0x1 0112 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0113 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0114 00d8 | | Load_Top At_Offset_0 0115 0227 | ' | Execute Access,All_Reference 0116 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0117 0039 | 9 | Store_Top Access,At_Offset_1 0118 00cf | | Action Mark_Auxiliary 0119 7821 |x! | Jump 0x13b 011a 00d9 | | Load_Top At_Offset_1 011b 0227 | ' | Execute Access,All_Reference 011c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 011d e5fe | | Load 0x2,-0x2 011e 012f | / | Execute Any,Equal 011f 6816 |h | Jump_Zero 0x136 0120 4800 |H | Short_Literal 0x0 0121 00da | | Load_Top At_Offset_2 0122 0227 | ' | Execute Access,All_Reference 0123 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0124 00db | | Load_Top At_Offset_3 0125 0227 | ' | Execute Access,All_Reference 0126 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0127 e5ff | | Load 0x2,-0x1 0128 e001 | | Load 0x0,0x1 0129 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 012a 4800 |H | Short_Literal 0x0 012b e5fc | | Load 0x2,-0x4 012c 00db | | Load_Top At_Offset_3 012d 0227 | ' | Execute Access,All_Reference 012e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 012f e20f | | Load 0x1,0xf 0130 0119 | | Execute Any,Check_In_Formal_Type 0131 8210 | | Call 0x1,0x10 0132 e5ff | | Load 0x2,-0x1 0133 e001 | | Load 0x0,0x1 0134 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0135 7809 |x | Jump 0x13f 0136 00d9 | | Load_Top At_Offset_1 0137 0227 | ' | Execute Access,All_Reference 0138 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0139 003a | : | Store_Top Access,At_Offset_2 013a 00c9 | | Action Pop_Auxiliary_Loop 013b 00d9 | | Load_Top At_Offset_1 013c e5fd | | Load 0x2,-0x3 013d 022e | . | Execute Access,Not_Equal 013e 77db |w | Jump_Nonzero 0x11a 013f 00ce | | Action Pop_Auxiliary 0140 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0141 0000 0000 | | .BLANK 0000[0x7] 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 014b | K | .CONST 0x014b ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0001 | | .CONST 0x0001 ; Number of locals 014b BODY_0148: 014b INIT_0148: 014b 4607 |F | Jump_Case 0x8 014c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 014d 7806 |x | Jump 0x154 ; case 0x1 014e 7809 |x | Jump 0x158 ; case 0x2 014f 780d |x | Jump 0x15d ; case 0x3 0150 7810 |x | Jump 0x161 ; case 0x4 0151 7811 |x | Jump 0x163 ; case 0x5 0152 7812 |x | Jump 0x165 ; case 0x6 0153 7815 |x | Jump 0x169 ; case 0x7 0154 00da | | Load_Top At_Offset_2 0155 0091 05d5 | | Action Push_String_Extended_Indexed,0x5d5 ; "VERTICAL" 0157 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0158 00db | | Load_Top At_Offset_3 0159 00db | | Load_Top At_Offset_3 015a 00e0 | | Load_Encached Standard_Cache 015b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 015c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 015d 00da | | Load_Top At_Offset_2 015e 00e0 | | Load_Encached Standard_Cache 015f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0160 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0161 00db | | Load_Top At_Offset_3 0162 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0163 00db | | Load_Top At_Offset_3 0164 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0165 e217 | | Load 0x1,0x17 0166 00dc | | Load_Top At_Offset_4 0167 0267 | g | Execute Discrete,Predecessor 0168 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0169 e217 | | Load 0x1,0x17 016a 00dc | | Load_Top At_Offset_4 016b 0268 | h | Execute Discrete,Successor 016c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 016d 0000 0000 | | .XXX[0x3] 016f 0000 | | 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0177 | w | .CONST 0x0177 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0004 | | .CONST 0x0004 ; Number of locals 0173 INIT_0170: 0173 00db | | Load_Top At_Offset_3 0174 0007 | | Action Break_Optional 0175 00e4 | | Load_Encached Positive_Cache 0176 03e9 | | Declare_Variable Discrete,Duplicate 0177 BODY_0170: 0177 e5fe | | Load 0x2,-0x2 0178 0227 | ' | Execute Access,All_Reference 0179 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 017a 7004 |p | Jump_Nonzero 0x17f 017b e5fe | | Load 0x2,-0x2 017c 00d8 | | Load_Top At_Offset_0 017d 0227 | ' | Execute Access,All_Reference 017e 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 017f e001 | | Load 0x0,0x1 0180 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0181 e001 | | Load 0x0,0x1 0182 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0183 e5ff | | Load 0x2,-0x1 0184 e001 | | Load 0x0,0x1 0185 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0186 005b | [ | Store_Top Discrete,At_Offset_3 0187 0059 | Y | Store_Top Discrete,At_Offset_1 0188 00d9 | | Load_Top At_Offset_1 0189 e5fa | | Load 0x2,-0x6 018a e5fb | | Load 0x2,-0x5 018b e5fc | | Load 0x2,-0x4 018c e5fe | | Load 0x2,-0x2 018d 821f | | Call 0x1,0x1f 018e e5fd | | Load 0x2,-0x3 018f 01db | | Execute Vector,Length 0190 7001 |p | Jump_Nonzero 0x192 0191 7826 |x& | Jump 0x1b8 0192 4800 |H | Short_Literal 0x0 0193 00db | | Load_Top At_Offset_3 0194 0227 | ' | Execute Access,All_Reference 0195 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0196 e402 | | Load 0x2,0x2 0197 0227 | ' | Execute Access,All_Reference 0198 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0199 e5ff | | Load 0x2,-0x1 019a e001 | | Load 0x0,0x1 019b 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 019c 4800 |H | Short_Literal 0x0 019d e002 | | Load 0x0,0x2 019e 1b17 | | Execute Package,Field_Read,Field_Number 0x17 019f e5fd | | Load 0x2,-0x3 01a0 0092 05d9 | | Action Push_String_Extended,0x5d9 ; ": " 01a2 01cc | | Execute Vector,Catenate 01a3 e5ff | | Load 0x2,-0x1 01a4 e001 | | Load 0x0,0x1 01a5 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 01a6 00d9 | | Load_Top At_Offset_1 01a7 e5fa | | Load 0x2,-0x6 01a8 e5fb | | Load 0x2,-0x5 01a9 0a02 | | Execute_Immediate Plus,0x2 01aa 00d8 | | Load_Top At_Offset_0 01ab 00e3 | | Load_Encached Natural_Cache 01ac 0260 | ` | Execute Discrete,In_Type 01ad 7001 |p | Jump_Nonzero 0x1af 01ae 0801 | | Execute_Immediate Raise,0x1 01af e5fc | | Load 0x2,-0x4 01b0 0a02 | | Execute_Immediate Plus,0x2 01b1 00d8 | | Load_Top At_Offset_0 01b2 00e3 | | Load_Encached Natural_Cache 01b3 0260 | ` | Execute Discrete,In_Type 01b4 7001 |p | Jump_Nonzero 0x1b6 01b5 0801 | | Execute_Immediate Raise,0x1 01b6 e5fe | | Load 0x2,-0x2 01b7 821f | | Call 0x1,0x1f 01b8 4800 |H | Short_Literal 0x0 01b9 00db | | Load_Top At_Offset_3 01ba 0227 | ' | Execute Access,All_Reference 01bb 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 01bc e402 | | Load 0x2,0x2 01bd 0227 | ' | Execute Access,All_Reference 01be 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 01bf e5ff | | Load 0x2,-0x1 01c0 e001 | | Load 0x0,0x1 01c1 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 01c2 4800 |H | Short_Literal 0x0 01c3 e001 | | Load 0x0,0x1 01c4 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 01c5 e402 | | Load 0x2,0x2 01c6 0227 | ' | Execute Access,All_Reference 01c7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01c8 e20f | | Load 0x1,0xf 01c9 0119 | | Execute Any,Check_In_Formal_Type 01ca 8210 | | Call 0x1,0x10 01cb e5ff | | Load 0x2,-0x1 01cc e001 | | Load 0x0,0x1 01cd 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 01ce 00da | | Load_Top At_Offset_2 01cf 0227 | ' | Execute Access,All_Reference 01d0 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 01d1 003b | ; | Store_Top Access,At_Offset_3 01d2 00cf | | Action Mark_Auxiliary 01d3 781b |x | Jump 0x1ef 01d4 4800 |H | Short_Literal 0x0 01d5 e402 | | Load 0x2,0x2 01d6 0227 | ' | Execute Access,All_Reference 01d7 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 01d8 e402 | | Load 0x2,0x2 01d9 0227 | ' | Execute Access,All_Reference 01da 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 01db e5ff | | Load 0x2,-0x1 01dc e001 | | Load 0x0,0x1 01dd 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 01de 4800 |H | Short_Literal 0x0 01df e001 | | Load 0x0,0x1 01e0 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 01e1 e402 | | Load 0x2,0x2 01e2 0227 | ' | Execute Access,All_Reference 01e3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01e4 e20f | | Load 0x1,0xf 01e5 0119 | | Execute Any,Check_In_Formal_Type 01e6 8210 | | Call 0x1,0x10 01e7 e5ff | | Load 0x2,-0x1 01e8 e001 | | Load 0x0,0x1 01e9 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 01ea 00db | | Load_Top At_Offset_3 01eb 0227 | ' | Execute Access,All_Reference 01ec 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 01ed a402 | | Store_Unchecked 0x2,0x2 01ee 00c9 | | Action Pop_Auxiliary_Loop 01ef 00db | | Load_Top At_Offset_3 01f0 e5fe | | Load 0x2,-0x2 01f1 022e | . | Execute Access,Not_Equal 01f2 77e1 |w | Jump_Nonzero 0x1d4 01f3 00ce | | Action Pop_Auxiliary 01f4 4800 |H | Short_Literal 0x0 01f5 00db | | Load_Top At_Offset_3 01f6 0227 | ' | Execute Access,All_Reference 01f7 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 01f8 e402 | | Load 0x2,0x2 01f9 0227 | ' | Execute Access,All_Reference 01fa 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 01fb e5ff | | Load 0x2,-0x1 01fc e001 | | Load 0x0,0x1 01fd 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 01fe 4507 |E | Exit_Suprogram New_Top_Offset 0x7 01ff 0000 | | .XXX[0x1] 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 0217 | | .CONST 0x0217 ; Address of begin 0201 0004 | | .CONST 0x0004 ; Address of exception handler 0202 0008 | | .CONST 0x0008 ; Number of locals 0203 INIT_0200: 0203 e5fd | | Load 0x2,-0x3 0204 0007 | | Action Break_Optional 0205 e001 | | Load 0x0,0x1 0206 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0207 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0208 02c7 | | Declare_Variable Any 0209 00d8 | | Load_Top At_Offset_0 020a 1c00 | | Execute_Immediate Run_Utility,0x0 020b e001 | | Load 0x0,0x1 020c 1b17 | | Execute Package,Field_Read,Field_Number 0x17 020d 1b11 | | Execute Package,Field_Read,Field_Number 0x11 020e e001 | | Load 0x0,0x1 020f 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0210 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0211 00e3 | | Load_Encached Natural_Cache 0212 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0213 029f 055b | [| Declare_Subprogram INIT_0558,For_Call 0215 029f 0583 | | Declare_Subprogram INIT_0580,For_Call 0217 BODY_0200: 0217 00cf | | Action Mark_Auxiliary 0218 8407 | | Call 0x2,0x7 0219 00c9 | | Action Pop_Auxiliary_Loop 021a 7ffd | | Jump 0x218 021b 00c9 | | Action Pop_Auxiliary_Loop 021c 4800 |H | Short_Literal 0x0 021d e5fd | | Load 0x2,-0x3 021e 0227 | ' | Execute Access,All_Reference 021f 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0220 0227 | ' | Execute Access,All_Reference 0221 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0222 e5fd | | Load 0x2,-0x3 0223 0227 | ' | Execute Access,All_Reference 0224 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0225 0227 | ' | Execute Access,All_Reference 0226 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0227 e5fe | | Load 0x2,-0x2 0228 e001 | | Load 0x0,0x1 0229 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 022a 4800 |H | Short_Literal 0x0 022b e21d | | Load 0x1,0x1d 022c e5fd | | Load 0x2,-0x3 022d 0227 | ' | Execute Access,All_Reference 022e 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 022f 0227 | ' | Execute Access,All_Reference 0230 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0231 e20f | | Load 0x1,0xf 0232 0119 | | Execute Any,Check_In_Formal_Type 0233 8210 | | Call 0x1,0x10 0234 e5fe | | Load 0x2,-0x2 0235 e001 | | Load 0x0,0x1 0236 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0237 e001 | | Load 0x0,0x1 0238 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0239 1b11 | | Execute Package,Field_Read,Field_Number 0x11 023a e403 | | Load 0x2,0x3 023b e001 | | Load 0x0,0x1 023c 1b17 | | Execute Package,Field_Read,Field_Number 0x17 023d 1814 | | Execute Package,Field_Execute,Field_Number 0x14 023e c404 | | Store 0x2,0x4 023f e404 | | Load 0x2,0x4 0240 e003 | | Load 0x0,0x3 0241 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0242 027f | | Execute Discrete,Equal 0243 e404 | | Load 0x2,0x4 0244 e003 | | Load 0x0,0x3 0245 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0246 027f | | Execute Discrete,Equal 0247 0278 | x | Execute Discrete,Or 0248 684e |hN | Jump_Zero 0x297 0249 4800 |H | Short_Literal 0x0 024a e5fd | | Load 0x2,-0x3 024b 0227 | ' | Execute Access,All_Reference 024c 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 024d 0227 | ' | Execute Access,All_Reference 024e 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 024f e5fd | | Load 0x2,-0x3 0250 0227 | ' | Execute Access,All_Reference 0251 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0252 0227 | ' | Execute Access,All_Reference 0253 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0254 e5fe | | Load 0x2,-0x2 0255 e001 | | Load 0x0,0x1 0256 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0257 4800 |H | Short_Literal 0x0 0258 e001 | | Load 0x0,0x1 0259 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 025a e5fd | | Load 0x2,-0x3 025b 0227 | ' | Execute Access,All_Reference 025c 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 025d 0227 | ' | Execute Access,All_Reference 025e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 025f e20f | | Load 0x1,0xf 0260 0119 | | Execute Any,Check_In_Formal_Type 0261 8210 | | Call 0x1,0x10 0262 e5fe | | Load 0x2,-0x2 0263 e001 | | Load 0x0,0x1 0264 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0265 00db | | Load_Top At_Offset_3 0266 7009 |p | Jump_Nonzero 0x270 0267 e5fd | | Load 0x2,-0x3 0268 0227 | ' | Execute Access,All_Reference 0269 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 026a 0227 | ' | Execute Access,All_Reference 026b 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 026c e5fd | | Load 0x2,-0x3 026d 0227 | ' | Execute Access,All_Reference 026e 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 026f 780b |x | Jump 0x27b 0270 4801 |H | Short_Literal 0x1 0271 e406 | | Load 0x2,0x6 0272 e5fd | | Load 0x2,-0x3 0273 0227 | ' | Execute Access,All_Reference 0274 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0275 8220 | | Call 0x1,0x20 0276 e5fd | | Load 0x2,-0x3 0277 0227 | ' | Execute Access,All_Reference 0278 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 0279 4800 |H | Short_Literal 0x0 027a a406 | | Store_Unchecked 0x2,0x6 027b 4800 |H | Short_Literal 0x0 027c e5fd | | Load 0x2,-0x3 027d 0227 | ' | Execute Access,All_Reference 027e 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 027f 0227 | ' | Execute Access,All_Reference 0280 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0281 e5fd | | Load 0x2,-0x3 0282 0227 | ' | Execute Access,All_Reference 0283 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0284 0227 | ' | Execute Access,All_Reference 0285 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0286 e5fe | | Load 0x2,-0x2 0287 e001 | | Load 0x0,0x1 0288 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0289 4800 |H | Short_Literal 0x0 028a e21d | | Load 0x1,0x1d 028b e5fd | | Load 0x2,-0x3 028c 0227 | ' | Execute Access,All_Reference 028d 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 028e 0227 | ' | Execute Access,All_Reference 028f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0290 e20f | | Load 0x1,0xf 0291 0119 | | Execute Any,Check_In_Formal_Type 0292 8210 | | Call 0x1,0x10 0293 e5fe | | Load 0x2,-0x2 0294 e001 | | Load 0x0,0x1 0295 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0296 7946 |yF | Jump 0x3dd 0297 e404 | | Load 0x2,0x4 0298 e003 | | Load 0x0,0x3 0299 1b15 | | Execute Package,Field_Read,Field_Number 0x15 029a 027f | | Execute Discrete,Equal 029b e404 | | Load 0x2,0x4 029c e003 | | Load 0x0,0x3 029d 1b17 | | Execute Package,Field_Read,Field_Number 0x17 029e 027f | | Execute Discrete,Equal 029f 0278 | x | Execute Discrete,Or 02a0 684e |hN | Jump_Zero 0x2ef 02a1 4800 |H | Short_Literal 0x0 02a2 e5fd | | Load 0x2,-0x3 02a3 0227 | ' | Execute Access,All_Reference 02a4 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 02a5 0227 | ' | Execute Access,All_Reference 02a6 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 02a7 e5fd | | Load 0x2,-0x3 02a8 0227 | ' | Execute Access,All_Reference 02a9 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 02aa 0227 | ' | Execute Access,All_Reference 02ab 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 02ac e5fe | | Load 0x2,-0x2 02ad e001 | | Load 0x0,0x1 02ae 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 02af 4800 |H | Short_Literal 0x0 02b0 e001 | | Load 0x0,0x1 02b1 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 02b2 e5fd | | Load 0x2,-0x3 02b3 0227 | ' | Execute Access,All_Reference 02b4 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 02b5 0227 | ' | Execute Access,All_Reference 02b6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02b7 e20f | | Load 0x1,0xf 02b8 0119 | | Execute Any,Check_In_Formal_Type 02b9 8210 | | Call 0x1,0x10 02ba e5fe | | Load 0x2,-0x2 02bb e001 | | Load 0x0,0x1 02bc 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 02bd 00db | | Load_Top At_Offset_3 02be 7009 |p | Jump_Nonzero 0x2c8 02bf e5fd | | Load 0x2,-0x3 02c0 0227 | ' | Execute Access,All_Reference 02c1 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 02c2 0227 | ' | Execute Access,All_Reference 02c3 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 02c4 e5fd | | Load 0x2,-0x3 02c5 0227 | ' | Execute Access,All_Reference 02c6 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 02c7 780b |x | Jump 0x2d3 02c8 4800 |H | Short_Literal 0x0 02c9 e406 | | Load 0x2,0x6 02ca e5fd | | Load 0x2,-0x3 02cb 0227 | ' | Execute Access,All_Reference 02cc 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 02cd 8220 | | Call 0x1,0x20 02ce e5fd | | Load 0x2,-0x3 02cf 0227 | ' | Execute Access,All_Reference 02d0 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 02d1 4800 |H | Short_Literal 0x0 02d2 a406 | | Store_Unchecked 0x2,0x6 02d3 4800 |H | Short_Literal 0x0 02d4 e5fd | | Load 0x2,-0x3 02d5 0227 | ' | Execute Access,All_Reference 02d6 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 02d7 0227 | ' | Execute Access,All_Reference 02d8 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 02d9 e5fd | | Load 0x2,-0x3 02da 0227 | ' | Execute Access,All_Reference 02db 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 02dc 0227 | ' | Execute Access,All_Reference 02dd 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 02de e5fe | | Load 0x2,-0x2 02df e001 | | Load 0x0,0x1 02e0 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 02e1 4800 |H | Short_Literal 0x0 02e2 e21d | | Load 0x1,0x1d 02e3 e5fd | | Load 0x2,-0x3 02e4 0227 | ' | Execute Access,All_Reference 02e5 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 02e6 0227 | ' | Execute Access,All_Reference 02e7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02e8 e20f | | Load 0x1,0xf 02e9 0119 | | Execute Any,Check_In_Formal_Type 02ea 8210 | | Call 0x1,0x10 02eb e5fe | | Load 0x2,-0x2 02ec e001 | | Load 0x0,0x1 02ed 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 02ee 78ee |x | Jump 0x3dd 02ef e404 | | Load 0x2,0x4 02f0 e003 | | Load 0x0,0x3 02f1 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 02f2 027f | | Execute Discrete,Equal 02f3 683e |h> | Jump_Zero 0x332 02f4 4800 |H | Short_Literal 0x0 02f5 e5fd | | Load 0x2,-0x3 02f6 0227 | ' | Execute Access,All_Reference 02f7 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 02f8 0227 | ' | Execute Access,All_Reference 02f9 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 02fa e5fd | | Load 0x2,-0x3 02fb 0227 | ' | Execute Access,All_Reference 02fc 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 02fd 0227 | ' | Execute Access,All_Reference 02fe 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 02ff e5fe | | Load 0x2,-0x2 0300 e001 | | Load 0x0,0x1 0301 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0302 4800 |H | Short_Literal 0x0 0303 e001 | | Load 0x0,0x1 0304 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0305 e5fd | | Load 0x2,-0x3 0306 0227 | ' | Execute Access,All_Reference 0307 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0308 0227 | ' | Execute Access,All_Reference 0309 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 030a e20f | | Load 0x1,0xf 030b 0119 | | Execute Any,Check_In_Formal_Type 030c 8210 | | Call 0x1,0x10 030d e5fe | | Load 0x2,-0x2 030e e001 | | Load 0x0,0x1 030f 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0310 e5fd | | Load 0x2,-0x3 0311 00d8 | | Load_Top At_Offset_0 0312 0227 | ' | Execute Access,All_Reference 0313 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 0314 4800 |H | Short_Literal 0x0 0315 a406 | | Store_Unchecked 0x2,0x6 0316 4800 |H | Short_Literal 0x0 0317 e5fd | | Load 0x2,-0x3 0318 0227 | ' | Execute Access,All_Reference 0319 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 031a 0227 | ' | Execute Access,All_Reference 031b 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 031c e5fd | | Load 0x2,-0x3 031d 0227 | ' | Execute Access,All_Reference 031e 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 031f 0227 | ' | Execute Access,All_Reference 0320 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0321 e5fe | | Load 0x2,-0x2 0322 e001 | | Load 0x0,0x1 0323 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0324 4800 |H | Short_Literal 0x0 0325 e21d | | Load 0x1,0x1d 0326 e5fd | | Load 0x2,-0x3 0327 0227 | ' | Execute Access,All_Reference 0328 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0329 0227 | ' | Execute Access,All_Reference 032a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 032b e20f | | Load 0x1,0xf 032c 0119 | | Execute Any,Check_In_Formal_Type 032d 8210 | | Call 0x1,0x10 032e e5fe | | Load 0x2,-0x2 032f e001 | | Load 0x0,0x1 0330 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0331 78ab |x | Jump 0x3dd 0332 e404 | | Load 0x2,0x4 0333 e003 | | Load 0x0,0x3 0334 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0335 027f | | Execute Discrete,Equal 0336 6806 |h | Jump_Zero 0x33d 0337 e003 | | Load 0x0,0x3 0338 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0339 e5ff | | Load 0x2,-0x1 033a e5fe | | Load 0x2,-0x2 033b 8222 | " | Call 0x1,0x22 033c 78a0 |x | Jump 0x3dd 033d e404 | | Load 0x2,0x4 033e e003 | | Load 0x0,0x3 033f 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0340 027f | | Execute Discrete,Equal 0341 6806 |h | Jump_Zero 0x348 0342 e003 | | Load 0x0,0x3 0343 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0344 e5ff | | Load 0x2,-0x1 0345 e5fe | | Load 0x2,-0x2 0346 8222 | " | Call 0x1,0x22 0347 7895 |x | Jump 0x3dd 0348 e404 | | Load 0x2,0x4 0349 e003 | | Load 0x0,0x3 034a 1b11 | | Execute Package,Field_Read,Field_Number 0x11 034b 027f | | Execute Discrete,Equal 034c 6822 |h" | Jump_Zero 0x36f 034d e001 | | Load 0x0,0x1 034e 1b17 | | Execute Package,Field_Read,Field_Number 0x17 034f 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0350 e403 | | Load 0x2,0x3 0351 e001 | | Load 0x0,0x1 0352 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0353 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0354 c405 | | Store 0x2,0x5 0355 e405 | | Load 0x2,0x5 0356 e003 | | Load 0x0,0x3 0357 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0358 027f | | Execute Discrete,Equal 0359 6806 |h | Jump_Zero 0x360 035a e003 | | Load 0x0,0x3 035b 1b14 | | Execute Package,Field_Read,Field_Number 0x14 035c e5ff | | Load 0x2,-0x1 035d e5fe | | Load 0x2,-0x2 035e 8222 | " | Call 0x1,0x22 035f 787d |x} | Jump 0x3dd 0360 e405 | | Load 0x2,0x5 0361 e003 | | Load 0x0,0x3 0362 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0363 027f | | Execute Discrete,Equal 0364 6806 |h | Jump_Zero 0x36b 0365 e003 | | Load 0x0,0x3 0366 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0367 e5ff | | Load 0x2,-0x1 0368 e5fe | | Load 0x2,-0x2 0369 8222 | " | Call 0x1,0x22 036a 7872 |xr | Jump 0x3dd 036b e5fe | | Load 0x2,-0x2 036c e001 | | Load 0x0,0x1 036d 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 036e 786e |xn | Jump 0x3dd 036f e404 | | Load 0x2,0x4 0370 e003 | | Load 0x0,0x3 0371 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0372 681d |h | Jump_Zero 0x390 0373 8408 | | Call 0x2,0x8 0374 4800 |H | Short_Literal 0x0 0375 e5fd | | Load 0x2,-0x3 0376 0227 | ' | Execute Access,All_Reference 0377 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0378 0227 | ' | Execute Access,All_Reference 0379 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 037a e5fd | | Load 0x2,-0x3 037b 0227 | ' | Execute Access,All_Reference 037c 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 037d 0227 | ' | Execute Access,All_Reference 037e 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 037f e5fe | | Load 0x2,-0x2 0380 e001 | | Load 0x0,0x1 0381 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0382 4800 |H | Short_Literal 0x0 0383 e21d | | Load 0x1,0x1d 0384 e5fd | | Load 0x2,-0x3 0385 0227 | ' | Execute Access,All_Reference 0386 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0387 0227 | ' | Execute Access,All_Reference 0388 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0389 e20f | | Load 0x1,0xf 038a 0119 | | Execute Any,Check_In_Formal_Type 038b 8210 | | Call 0x1,0x10 038c e5fe | | Load 0x2,-0x2 038d e001 | | Load 0x0,0x1 038e 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 038f 784d |xM | Jump 0x3dd 0390 e404 | | Load 0x2,0x4 0391 e003 | | Load 0x0,0x3 0392 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 0393 027f | | Execute Discrete,Equal 0394 6803 |h | Jump_Zero 0x398 0395 4800 |H | Short_Literal 0x0 0396 a406 | | Store_Unchecked 0x2,0x6 0397 7845 |xE | Jump 0x3dd 0398 e404 | | Load 0x2,0x4 0399 e003 | | Load 0x0,0x3 039a 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 039b 027f | | Execute Discrete,Equal 039c 6813 |h | Jump_Zero 0x3b0 039d e403 | | Load 0x2,0x3 039e 4801 |H | Short_Literal 0x1 039f e001 | | Load 0x0,0x1 03a0 1b17 | | Execute Package,Field_Read,Field_Number 0x17 03a1 180f | | Execute Package,Field_Execute,Field_Number 0xf 03a2 c403 | | Store 0x2,0x3 03a3 e5fd | | Load 0x2,-0x3 03a4 0227 | ' | Execute Access,All_Reference 03a5 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 03a6 0227 | ' | Execute Access,All_Reference 03a7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03a8 00d8 | | Load_Top At_Offset_0 03a9 0120 | | Execute Any,Is_Value 03aa 7002 |p | Jump_Nonzero 0x3ad 03ab 00d8 | | Load_Top At_Offset_0 03ac 011e | | Execute Any,Convert 03ad e20f | | Load 0x1,0xf 03ae 0119 | | Execute Any,Check_In_Formal_Type 03af 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 03b0 e404 | | Load 0x2,0x4 03b1 e003 | | Load 0x0,0x3 03b2 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 03b3 6809 |h | Jump_Zero 0x3bd 03b4 00db | | Load_Top At_Offset_3 03b5 480a |H | Short_Literal 0xa 03b6 0271 | q | Execute Discrete,Times 03b7 e404 | | Load 0x2,0x4 03b8 e003 | | Load 0x0,0x3 03b9 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 03ba 0273 | s | Execute Discrete,Plus 03bb c406 | | Store 0x2,0x6 03bc 7820 |x | Jump 0x3dd 03bd e403 | | Load 0x2,0x3 03be 4800 |H | Short_Literal 0x0 03bf e001 | | Load 0x0,0x1 03c0 1b17 | | Execute Package,Field_Read,Field_Number 0x17 03c1 180f | | Execute Package,Field_Execute,Field_Number 0xf 03c2 c403 | | Store 0x2,0x3 03c3 e5fd | | Load 0x2,-0x3 03c4 0229 | ) | Execute Access,All_Read 03c5 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 03c6 0229 | ) | Execute Access,All_Read 03c7 00d8 | | Load_Top At_Offset_0 03c8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03c9 00d8 | | Load_Top At_Offset_0 03ca 0120 | | Execute Any,Is_Value 03cb 6803 |h | Jump_Zero 0x3cf 03cc e20f | | Load 0x1,0xf 03cd 011e | | Execute Any,Convert 03ce 7802 |x | Jump 0x3d1 03cf e20f | | Load 0x1,0xf 03d0 0119 | | Execute Any,Check_In_Formal_Type 03d1 e404 | | Load 0x2,0x4 03d2 8211 | | Call 0x1,0x11 03d3 00d9 | | Load_Top At_Offset_1 03d4 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 03d5 00d1 | | Pop_Control Pop_Count_1 03d6 e403 | | Load 0x2,0x3 03d7 e001 | | Load 0x0,0x1 03d8 1b17 | | Execute Package,Field_Read,Field_Number 0x17 03d9 180e | | Execute Package,Field_Execute,Field_Number 0xe 03da c403 | | Store 0x2,0x3 03db 4800 |H | Short_Literal 0x0 03dc a406 | | Store_Unchecked 0x2,0x6 03dd 00c9 | | Action Pop_Auxiliary_Loop 03de 7e3d |~= | Jump 0x21c 03df 0000 | | .XXX[0x1] 03e0 ; -------------------------------------------------------------------------------------- 03e0 ; SUBPROGRAM 03e0 ; -------------------------------------------------------------------------------------- 03e0 03e3 | | .CONST 0x03e3 ; Address of begin 03e1 0004 | | .CONST 0x0004 ; Address of exception handler 03e2 0001 | | .CONST 0x0001 ; Number of locals 03e3 BODY_03e0: 03e3 INIT_03e0: 03e3 4607 |F | Jump_Case 0x8 03e4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 03e5 7806 |x | Jump 0x3ec ; case 0x1 03e6 7809 |x | Jump 0x3f0 ; case 0x2 03e7 780d |x | Jump 0x3f5 ; case 0x3 03e8 7810 |x | Jump 0x3f9 ; case 0x4 03e9 7811 |x | Jump 0x3fb ; case 0x5 03ea 7812 |x | Jump 0x3fd ; case 0x6 03eb 7815 |x | Jump 0x401 ; case 0x7 03ec 00da | | Load_Top At_Offset_2 03ed 0091 05d7 | | Action Push_String_Extended_Indexed,0x5d7 ; "FORWARD" 03ef 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 03f0 00db | | Load_Top At_Offset_3 03f1 00db | | Load_Top At_Offset_3 03f2 00e0 | | Load_Encached Standard_Cache 03f3 181b | | Execute Package,Field_Execute,Field_Number 0x1b 03f4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 03f5 00da | | Load_Top At_Offset_2 03f6 00e0 | | Load_Encached Standard_Cache 03f7 181c | | Execute Package,Field_Execute,Field_Number 0x1c 03f8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 03f9 00db | | Load_Top At_Offset_3 03fa 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 03fb 00db | | Load_Top At_Offset_3 03fc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 03fd e21c | | Load 0x1,0x1c 03fe 00dc | | Load_Top At_Offset_4 03ff 0267 | g | Execute Discrete,Predecessor 0400 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0401 e21c | | Load 0x1,0x1c 0402 00dc | | Load_Top At_Offset_4 0403 0268 | h | Execute Discrete,Successor 0404 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0405 0000 0000 | | .XXX[0x3] 0407 0000 | | 0408 ; -------------------------------------------------------------------------------------- 0408 ; SUBPROGRAM 0408 ; -------------------------------------------------------------------------------------- 0408 040b | | .CONST 0x040b ; Address of begin 0409 0004 | | .CONST 0x0004 ; Address of exception handler 040a 0001 | | .CONST 0x0001 ; Number of locals 040b BODY_0408: 040b INIT_0408: 040b 00da | | Load_Top At_Offset_2 040c e5fe | | Load 0x2,-0x2 040d 027d | } | Execute Discrete,Greater 040e 6802 |h | Jump_Zero 0x411 040f 00da | | Load_Top At_Offset_2 0410 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0411 00db | | Load_Top At_Offset_3 0412 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0413 0000 0000 | | .BLANK 0000[0x5] 0418 ; -------------------------------------------------------------------------------------- 0418 ; SUBPROGRAM 0418 ; -------------------------------------------------------------------------------------- 0418 042f | / | .CONST 0x042f ; Address of begin 0419 0004 | | .CONST 0x0004 ; Address of exception handler 041a 0007 | | .CONST 0x0007 ; Number of locals 041b INIT_0418: 041b 00da | | Load_Top At_Offset_2 041c 0007 | | Action Break_Optional 041d e5fd | | Load 0x2,-0x3 041e 0a01 | | Execute_Immediate Plus,0x1 041f 00e4 | | Load_Encached Positive_Cache 0420 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0421 e5fe | | Load 0x2,-0x2 0422 0a01 | | Execute_Immediate Plus,0x1 0423 00e4 | | Load_Encached Positive_Cache 0424 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0425 e5ff | | Load 0x2,-0x1 0426 0227 | ' | Execute Access,All_Reference 0427 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 0428 0227 | ' | Execute Access,All_Reference 0429 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 042a 00e4 | | Load_Encached Positive_Cache 042b 03f1 | | Declare_Variable Discrete,With_Value 042c 00e4 | | Load_Encached Positive_Cache 042d 00e3 | | Load_Encached Natural_Cache 042e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 042f BODY_0418: 042f 00da | | Load_Top At_Offset_2 0430 e5fd | | Load 0x2,-0x3 0431 0273 | s | Execute Discrete,Plus 0432 e5fb | | Load 0x2,-0x5 0433 027d | } | Execute Discrete,Greater 0434 6809 |h | Jump_Zero 0x43e 0435 00da | | Load_Top At_Offset_2 0436 09ff | | Execute_Immediate Binary_Scale,-0x1 0437 005a | Z | Store_Top Discrete,At_Offset_2 0438 484e |HN | Short_Literal 0x4e 0439 e5fe | | Load 0x2,-0x2 043a 0272 | r | Execute Discrete,Minus 043b 09ff | | Execute_Immediate Binary_Scale,-0x1 043c 0059 | Y | Store_Top Discrete,At_Offset_1 043d 7802 |x | Jump 0x440 043e 00da | | Load_Top At_Offset_2 043f 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0440 e403 | | Load 0x2,0x3 0441 e402 | | Load 0x2,0x2 0442 0227 | ' | Execute Access,All_Reference 0443 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0444 00db | | Load_Top At_Offset_3 0445 e402 | | Load 0x2,0x2 0446 0227 | ' | Execute Access,All_Reference 0447 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0448 e5fc | | Load 0x2,-0x4 0449 681f |h | Jump_Zero 0x469 044a 00db | | Load_Top At_Offset_3 044b e402 | | Load 0x2,0x2 044c 0227 | ' | Execute Access,All_Reference 044d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 044e e20f | | Load 0x1,0xf 044f 0119 | | Execute Any,Check_In_Formal_Type 0450 8210 | | Call 0x1,0x10 0451 01db | | Execute Vector,Length 0452 0273 | s | Execute Discrete,Plus 0453 0a04 | | Execute_Immediate Plus,0x4 0454 c404 | | Store 0x2,0x4 0455 00db | | Load_Top At_Offset_3 0456 e402 | | Load 0x2,0x2 0457 0227 | ' | Execute Access,All_Reference 0458 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0459 0227 | ' | Execute Access,All_Reference 045a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 045b e20f | | Load 0x1,0xf 045c 0119 | | Execute Any,Check_In_Formal_Type 045d 8210 | | Call 0x1,0x10 045e 01db | | Execute Vector,Length 045f 0273 | s | Execute Discrete,Plus 0460 0c4f | O | Execute_Immediate Greater_Equal,0x4f 0461 680a |h | Jump_Zero 0x46c 0462 e403 | | Load 0x2,0x3 0463 0a01 | | Execute_Immediate Plus,0x1 0464 c403 | | Store 0x2,0x3 0465 e5fe | | Load 0x2,-0x2 0466 0a01 | | Execute_Immediate Plus,0x1 0467 c404 | | Store 0x2,0x4 0468 7803 |x | Jump 0x46c 0469 e403 | | Load 0x2,0x3 046a 0a01 | | Execute_Immediate Plus,0x1 046b c403 | | Store 0x2,0x3 046c e402 | | Load 0x2,0x2 046d 0227 | ' | Execute Access,All_Reference 046e 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 046f a402 | | Store_Unchecked 0x2,0x2 0470 00cf | | Action Mark_Auxiliary 0471 784e |xN | Jump 0x4c0 0472 e402 | | Load 0x2,0x2 0473 0227 | ' | Execute Access,All_Reference 0474 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0475 00db | | Load_Top At_Offset_3 0476 027d | } | Execute Discrete,Greater 0477 6808 |h | Jump_Zero 0x480 0478 604f |`O | Indirect_Literal Discrete,0x4c8,{0x00000000, 0x0001869f} 0479 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 047a e5fd | | Load 0x2,-0x3 047b 0a01 | | Execute_Immediate Plus,0x1 047c c403 | | Store 0x2,0x3 047d 00d9 | | Load_Top At_Offset_1 047e 0a01 | | Execute_Immediate Plus,0x1 047f c404 | | Store 0x2,0x4 0480 e403 | | Load 0x2,0x3 0481 e402 | | Load 0x2,0x2 0482 0227 | ' | Execute Access,All_Reference 0483 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0484 e404 | | Load 0x2,0x4 0485 e402 | | Load 0x2,0x2 0486 0227 | ' | Execute Access,All_Reference 0487 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0488 e5fc | | Load 0x2,-0x4 0489 681f |h | Jump_Zero 0x4a9 048a e404 | | Load 0x2,0x4 048b e402 | | Load 0x2,0x2 048c 0227 | ' | Execute Access,All_Reference 048d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 048e e20f | | Load 0x1,0xf 048f 0119 | | Execute Any,Check_In_Formal_Type 0490 8210 | | Call 0x1,0x10 0491 01db | | Execute Vector,Length 0492 0273 | s | Execute Discrete,Plus 0493 0a04 | | Execute_Immediate Plus,0x4 0494 c404 | | Store 0x2,0x4 0495 e404 | | Load 0x2,0x4 0496 e402 | | Load 0x2,0x2 0497 0227 | ' | Execute Access,All_Reference 0498 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0499 0227 | ' | Execute Access,All_Reference 049a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 049b e20f | | Load 0x1,0xf 049c 0119 | | Execute Any,Check_In_Formal_Type 049d 8210 | | Call 0x1,0x10 049e 01db | | Execute Vector,Length 049f 0273 | s | Execute Discrete,Plus 04a0 0c4f | O | Execute_Immediate Greater_Equal,0x4f 04a1 6819 |h | Jump_Zero 0x4bb 04a2 e5fe | | Load 0x2,-0x2 04a3 0a01 | | Execute_Immediate Plus,0x1 04a4 c404 | | Store 0x2,0x4 04a5 e403 | | Load 0x2,0x3 04a6 0a01 | | Execute_Immediate Plus,0x1 04a7 c403 | | Store 0x2,0x3 04a8 7812 |x | Jump 0x4bb 04a9 e402 | | Load 0x2,0x2 04aa 0227 | ' | Execute Access,All_Reference 04ab 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 04ac 00db | | Load_Top At_Offset_3 04ad 027d | } | Execute Discrete,Greater 04ae 6809 |h | Jump_Zero 0x4b8 04af 6018 |` | Indirect_Literal Discrete,0x4c8,{0x00000000, 0x0001869f} 04b0 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 04b1 e5fd | | Load 0x2,-0x3 04b2 0a01 | | Execute_Immediate Plus,0x1 04b3 c403 | | Store 0x2,0x3 04b4 00d9 | | Load_Top At_Offset_1 04b5 0a01 | | Execute_Immediate Plus,0x1 04b6 c404 | | Store 0x2,0x4 04b7 7803 |x | Jump 0x4bb 04b8 e403 | | Load 0x2,0x3 04b9 0a01 | | Execute_Immediate Plus,0x1 04ba c403 | | Store 0x2,0x3 04bb e402 | | Load 0x2,0x2 04bc 0227 | ' | Execute Access,All_Reference 04bd 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 04be a402 | | Store_Unchecked 0x2,0x2 04bf 00c9 | | Action Pop_Auxiliary_Loop 04c0 e402 | | Load 0x2,0x2 04c1 e5ff | | Load 0x2,-0x1 04c2 022e | . | Execute Access,Not_Equal 04c3 77ae |w | Jump_Nonzero 0x472 04c4 4506 |E | Exit_Suprogram New_Top_Offset 0x6 04c5 0000 0000 | | .XXX[0x3] 04c7 0000 | | 04c8 0000 0000 | | .LITERAL {0x00000000, 0x0001869f} 04cc 0000 0000 | | .BLANK 0000[0x4] 04d0 ; -------------------------------------------------------------------------------------- 04d0 ; SUBPROGRAM 04d0 ; -------------------------------------------------------------------------------------- 04d0 04d5 | | .CONST 0x04d5 ; Address of begin 04d1 0004 | | .CONST 0x0004 ; Address of exception handler 04d2 0002 | | .CONST 0x0002 ; Number of locals 04d3 INIT_04d0: 04d3 00da | | Load_Top At_Offset_2 04d4 0007 | | Action Break_Optional 04d5 BODY_04d0: 04d5 e5fd | | Load 0x2,-0x3 04d6 680d |h | Jump_Zero 0x4e4 04d7 00cf | | Action Mark_Auxiliary 04d8 e5fe | | Load 0x2,-0x2 04d9 4801 |H | Short_Literal 0x1 04da 0263 | c | Execute Discrete,Above_Bound 04db 7006 |p | Jump_Nonzero 0x4e2 04dc 00db | | Load_Top At_Offset_3 04dd 0227 | ' | Execute Access,All_Reference 04de 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 04df a402 | | Store_Unchecked 0x2,0x2 04e0 00c8 | | Action Pop_Auxiliary_Range 04e1 3ffa |? | Loop_Increasing 0x4dc 04e2 00ce | | Action Pop_Auxiliary 04e3 780c |x | Jump 0x4f0 04e4 00cf | | Action Mark_Auxiliary 04e5 e5fe | | Load 0x2,-0x2 04e6 4801 |H | Short_Literal 0x1 04e7 0263 | c | Execute Discrete,Above_Bound 04e8 7006 |p | Jump_Nonzero 0x4ef 04e9 00db | | Load_Top At_Offset_3 04ea 0227 | ' | Execute Access,All_Reference 04eb 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 04ec a402 | | Store_Unchecked 0x2,0x2 04ed 00c8 | | Action Pop_Auxiliary_Range 04ee 3ffa |? | Loop_Increasing 0x4e9 04ef 00ce | | Action Pop_Auxiliary 04f0 00d8 | | Load_Top At_Offset_0 04f1 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 04f2 0000 0000 | | .BLANK 0000[0x6] 04f8 ; -------------------------------------------------------------------------------------- 04f8 ; SUBPROGRAM 04f8 ; -------------------------------------------------------------------------------------- 04f8 04fd | | .CONST 0x04fd ; Address of begin 04f9 0004 | | .CONST 0x0004 ; Address of exception handler 04fa 0002 | | .CONST 0x0002 ; Number of locals 04fb INIT_04f8: 04fb 00db | | Load_Top At_Offset_3 04fc 0007 | | Action Break_Optional 04fd BODY_04f8: 04fd 00d8 | | Load_Top At_Offset_0 04fe 7002 |p | Jump_Nonzero 0x501 04ff e004 | | Load 0x0,0x4 0500 0257 | W | Execute Discrete,Raise 0501 00d8 | | Load_Top At_Offset_0 0502 0227 | ' | Execute Access,All_Reference 0503 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0504 e5ff | | Load 0x2,-0x1 0505 027f | | Execute Discrete,Equal 0506 6802 |h | Jump_Zero 0x509 0507 00d8 | | Load_Top At_Offset_0 0508 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0509 00d8 | | Load_Top At_Offset_0 050a 0227 | ' | Execute Access,All_Reference 050b 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 050c 0039 | 9 | Store_Top Access,At_Offset_1 050d 00cf | | Action Mark_Auxiliary 050e 780d |x | Jump 0x51c 050f 00d9 | | Load_Top At_Offset_1 0510 0227 | ' | Execute Access,All_Reference 0511 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0512 e5ff | | Load 0x2,-0x1 0513 027f | | Execute Discrete,Equal 0514 6802 |h | Jump_Zero 0x517 0515 00d9 | | Load_Top At_Offset_1 0516 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0517 00d9 | | Load_Top At_Offset_1 0518 0227 | ' | Execute Access,All_Reference 0519 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 051a 003a | : | Store_Top Access,At_Offset_2 051b 00c9 | | Action Pop_Auxiliary_Loop 051c 00d9 | | Load_Top At_Offset_1 051d e5fe | | Load 0x2,-0x2 051e 022e | . | Execute Access,Not_Equal 051f 77ef |w | Jump_Nonzero 0x50f 0520 00ce | | Action Pop_Auxiliary 0521 e004 | | Load 0x0,0x4 0522 0257 | W | Execute Discrete,Raise 0523 0000 0000 | | .BLANK 0000[0x5] 0528 ; -------------------------------------------------------------------------------------- 0528 ; SUBPROGRAM 0528 ; -------------------------------------------------------------------------------------- 0528 052c | , | .CONST 0x052c ; Address of begin 0529 0004 | | .CONST 0x0004 ; Address of exception handler 052a 0002 | | .CONST 0x0002 ; Number of locals 052b INIT_0528: 052b 00e8 | | Load_Encached Character_Cache 052c BODY_0528: 052c 4800 |H | Short_Literal 0x0 052d 4801 |H | Short_Literal 0x1 052e 4801 |H | Short_Literal 0x1 052f e5ff | | Load 0x2,-0x1 0530 e001 | | Load 0x0,0x1 0531 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0532 4801 |H | Short_Literal 0x1 0533 e5ff | | Load 0x2,-0x1 0534 e001 | | Load 0x0,0x1 0535 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0536 e5fd | | Load 0x2,-0x3 0537 e003 | | Load 0x0,0x3 0538 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0539 027f | | Execute Discrete,Equal 053a 6805 |h | Jump_Zero 0x540 053b 4801 |H | Short_Literal 0x1 053c e005 | | Load 0x0,0x5 053d 1b14 | | Execute Package,Field_Read,Field_Number 0x14 053e 181a | | Execute Package,Field_Execute,Field_Number 0x1a 053f 7809 |x | Jump 0x549 0540 e5fd | | Load 0x2,-0x3 0541 e003 | | Load 0x0,0x3 0542 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0543 027f | | Execute Discrete,Equal 0544 6804 |h | Jump_Zero 0x549 0545 4801 |H | Short_Literal 0x1 0546 e005 | | Load 0x0,0x5 0547 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0548 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0549 4800 |H | Short_Literal 0x0 054a e006 | | Load 0x0,0x6 054b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 054c 4801 |H | Short_Literal 0x1 054d 4801 |H | Short_Literal 0x1 054e 0092 05da | | Action Push_String_Extended,0x5da ; "Hit Enter on this window to Reconnect" 0550 e5ff | | Load 0x2,-0x1 0551 e5fe | | Load 0x2,-0x2 0552 e007 | | Load 0x0,0x7 0553 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0554 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0555 0000 0000 | | .XXX[0x3] 0557 0000 | | 0558 ; -------------------------------------------------------------------------------------- 0558 ; SUBPROGRAM 0558 ; -------------------------------------------------------------------------------------- 0558 055b | [ | .CONST 0x055b ; Address of begin 0559 0562 | b | .CONST 0x0562 ; Address of exception handler 055a 0001 | | .CONST 0x0001 ; Number of locals 055b BODY_0558: 055b INIT_0558: 055b e403 | | Load 0x2,0x3 055c e001 | | Load 0x0,0x1 055d 1b17 | | Execute Package,Field_Read,Field_Number 0x17 055e 180e | | Execute Package,Field_Execute,Field_Number 0xe 055f c403 | | Store 0x2,0x3 0560 00cc | | Action Pop_Block 0561 7cb9 || | Jump 0x21b 0562 TRAP_0558: 0562 00d8 | | Load_Top At_Offset_0 0563 0107 | | Execute Exception,Get_Name 0564 4900 |I | Short_Literal 0x100 0565 490f |I | Short_Literal 0x10f 0566 0262 | b | Execute Discrete,In_Range 0567 6813 |h | Jump_Zero 0x57b 0568 4800 |H | Short_Literal 0x0 0569 4801 |H | Short_Literal 0x1 056a 4801 |H | Short_Literal 0x1 056b e5fe | | Load 0x2,-0x2 056c e001 | | Load 0x0,0x1 056d 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 056e 4801 |H | Short_Literal 0x1 056f e5fe | | Load 0x2,-0x2 0570 e001 | | Load 0x0,0x1 0571 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0572 4801 |H | Short_Literal 0x1 0573 4801 |H | Short_Literal 0x1 0574 0092 05da | | Action Push_String_Extended,0x5da ; "Hit Enter on this window to Reconnect" 0576 e5fe | | Load 0x2,-0x2 0577 e5ff | | Load 0x2,-0x1 0578 e007 | | Load 0x0,0x7 0579 1816 | | Execute Package,Field_Execute,Field_Number 0x16 057a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 057b 0100 | | Execute Exception,Raise 057c 0000 0000 | | .BLANK 0000[0x4] 0580 ; -------------------------------------------------------------------------------------- 0580 ; SUBPROGRAM 0580 ; -------------------------------------------------------------------------------------- 0580 0583 | | .CONST 0x0583 ; Address of begin 0581 05b7 | | .CONST 0x05b7 ; Address of exception handler 0582 0001 | | .CONST 0x0001 ; Number of locals 0583 BODY_0580: 0583 INIT_0580: 0583 4800 |H | Short_Literal 0x0 0584 e5fd | | Load 0x2,-0x3 0585 0227 | ' | Execute Access,All_Reference 0586 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0587 0227 | ' | Execute Access,All_Reference 0588 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0589 e5fd | | Load 0x2,-0x3 058a 0227 | ' | Execute Access,All_Reference 058b 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 058c 0227 | ' | Execute Access,All_Reference 058d 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 058e e5fe | | Load 0x2,-0x2 058f e001 | | Load 0x0,0x1 0590 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0591 4800 |H | Short_Literal 0x0 0592 e001 | | Load 0x0,0x1 0593 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0594 e5fd | | Load 0x2,-0x3 0595 0227 | ' | Execute Access,All_Reference 0596 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0597 0227 | ' | Execute Access,All_Reference 0598 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0599 e20f | | Load 0x1,0xf 059a 0119 | | Execute Any,Check_In_Formal_Type 059b 8210 | | Call 0x1,0x10 059c e5fe | | Load 0x2,-0x2 059d e001 | | Load 0x0,0x1 059e 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 059f e5fd | | Load 0x2,-0x3 05a0 0227 | ' | Execute Access,All_Reference 05a1 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 05a2 0227 | ' | Execute Access,All_Reference 05a3 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 05a4 e404 | | Load 0x2,0x4 05a5 e001 | | Load 0x0,0x1 05a6 1b17 | | Execute Package,Field_Read,Field_Number 0x17 05a7 1b13 | | Execute Package,Field_Read,Field_Number 0x13 05a8 00d9 | | Load_Top At_Offset_1 05a9 00d0 | | Action Swap_Control 05aa 0260 | ` | Execute Discrete,In_Type 05ab 7001 |p | Jump_Nonzero 0x5ad 05ac 0801 | | Execute_Immediate Raise,0x1 05ad e001 | | Load 0x0,0x1 05ae 1b17 | | Execute Package,Field_Read,Field_Number 0x17 05af 1817 | | Execute Package,Field_Execute,Field_Number 0x17 05b0 e008 | | Load 0x0,0x8 05b1 1810 | | Execute Package,Field_Execute,Field_Number 0x10 05b2 8221 | ! | Call 0x1,0x21 05b3 e5fd | | Load 0x2,-0x3 05b4 0227 | ' | Execute Access,All_Reference 05b5 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 05b6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 05b7 TRAP_0580: 05b7 e004 | | Load 0x0,0x4 05b8 010f | | Execute Exception,Equal 05b9 6804 |h | Jump_Zero 0x5be 05ba e5fe | | Load 0x2,-0x2 05bb e001 | | Load 0x0,0x1 05bc 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 05bd 4501 |E | Exit_Suprogram New_Top_Offset 0x1 05be 0100 | | Execute Exception,Raise 05bf 0000 | | .XXX[0x1] 05c0 ; -------------------------------------------------------------------------------------- 05c0 ; SUBPROGRAM 05c0 ; -------------------------------------------------------------------------------------- 05c0 05c3 | | .CONST 0x05c3 ; Address of begin 05c1 0004 | | .CONST 0x0004 ; Address of exception handler 05c2 0001 | | .CONST 0x0001 ; Number of locals 05c3 BODY_05c0: 05c3 INIT_05c0: 05c3 4608 |F | Jump_Case 0x9 05c4 7808 |x | Jump 0x5cd ; case 0x0 05c5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 05c6 780d |x | Jump 0x5d4 ; case 0x2 05c7 780c |x | Jump 0x5d4 ; case 0x3 05c8 780b |x | Jump 0x5d4 ; case 0x4 05c9 780a |x | Jump 0x5d4 ; case 0x5 05ca 7809 |x | Jump 0x5d4 ; case 0x6 05cb 7808 |x | Jump 0x5d4 ; case 0x7 05cc 7807 |x | Jump 0x5d4 ; case 0x8 05cd 00da | | Load_Top At_Offset_2 05ce 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 05cf 0125 | % | Execute Any,Set_Constraint 05d0 00da | | Load_Top At_Offset_2 05d1 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 05d2 1c00 | | Execute_Immediate Run_Utility,0x0 05d3 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 05d4 0869 | i | Execute_Immediate Raise,0x69 05d5 ; -------------------------------------------------------------------------------------- 05d5 ; STRING TABLE 05d5 ; -------------------------------------------------------------------------------------- 05d5 000e | | .STRTAB 0x000e->0x05dc ; "VERTICAL" 05d6 0014 | | .STRTAB 0x0014->0x05e0 ; "HORIZONTAL" 05d7 001c | | .STRTAB 0x001c->0x05e5 ; "FORWARD" 05d8 0021 | ! | .STRTAB 0x0021->0x05e8 ; "BACKWARD" 05d9 0027 | ' | .STRTAB 0x0027->0x05ec ; ": " 05da 0027 | ' | .STRTAB 0x0027->0x05ed ; "Hit Enter on this window to Reconnect" 05db 004a | J | .STREND 0x004a->0x0600 05dc 5645 5254 |VERT| .STRTAB_STRINGS 0600 ; -------------------------------------------------------------------------------------- 0600 ; Debug Table 0600 ; -------------------------------------------------------------------------------------- 0600 0004 0001 | | .DEBUG4 0x0004,0x0001,0x7157,0x0000,0x0001,0x0011 0606 000b 064a | J| .DBG4T 0x000b,0x064a,0xc000,0x0000 060a 0036 0658 | 6 X| .DBG4T 0x0036,0x0658,0xc000,0x8000 060e 007b 0672 | { r| .DBG4T 0x007b,0x0672,0x1002,0x0000 0612 0083 0675 | u| .DBG4T 0x0083,0x0675,0x1001,0x0000 0616 00f3 0681 | | .DBG4T 0x00f3,0x0681,0x1001,0x4000 061a 014b 0000 | K | .DBG4T 0x014b,0x0000,0x1005,0x0000 061e 0173 069c | s | .DBG4T 0x0173,0x069c,0x1001,0x4000 0622 0203 06c2 | | .DBG4T 0x0203,0x06c2,0x1002,0x4000 0626 03e3 0000 | | .DBG4T 0x03e3,0x0000,0x1005,0x0000 062a 040b 0737 | 7| .DBG4T 0x040b,0x0737,0x1002,0x0000 062e 041b 073c | <| .DBG4T 0x041b,0x073c,0x1001,0x4000 0632 04d3 0782 | | .DBG4T 0x04d3,0x0782,0x1002,0x4000 0636 04fb 0791 | | .DBG4T 0x04fb,0x0791,0x1002,0x4000 063a 052b 07a8 | + | .DBG4T 0x052b,0x07a8,0x1001,0x0000 063e 055b 07b3 | [ | .DBG4T 0x055b,0x07b3,0x1004,0x0000 0642 0583 07ba | | .DBG4T 0x0583,0x07ba,0x1004,0x0000 0646 05c3 0000 | | .DBG4T 0x05c3,0x0000,0x1005,0x0000 064a ; -------------------------------------------------------------------------------------- 064a ; Debug chain 064a ; -------------------------------------------------------------------------------------- 064a 000c 0000 | | .DBGLEN 0x000c,0x0000 064c 000b 000e | | .DBGLNO 0x000b,0x000e,0x0010,0x0012,0x0014,0x0016,0x001b,0x001d,0x001f,0x0021,0x0025,0x0029 0658 ; -------------------------------------------------------------------------------------- 0658 ; Debug chain 0658 ; -------------------------------------------------------------------------------------- 0658 000c 0000 | | .DBGLEN 0x000c,0x0000 065a 0036 003b | 6 ;| .DBGLNO 0x0036,0x003b,0x005b,0x005d,0x005f,0x0061,0x0063,0x0065,0x0067,0x0069,0x006b,0x006d 0666 0001 0005 | | .XXX[0xc] 0668 0006 0007 | | 066a 0008 0009 | | 066c 000a 000b | | 066e 000c 000d | | 0670 000e 000f | | 0672 ; -------------------------------------------------------------------------------------- 0672 ; Debug chain 0672 ; -------------------------------------------------------------------------------------- 0672 0000 0001 | | .DBGLEN 0x0000,0x0001 0674 007b | { | .DBGLNO 0x007b 0675 ; -------------------------------------------------------------------------------------- 0675 ; Debug chain 0675 ; -------------------------------------------------------------------------------------- 0675 0002 0008 | | .DBGLEN 0x0002,0x0008 0677 0083 0085 | | .DBGLNO 0x0083,0x0085,0x0089,0x008b,0x00ae,0x00b2,0x00b7,0x00bb,0x00e3,0x00e9 0681 ; -------------------------------------------------------------------------------------- 0681 ; Debug chain 0681 ; -------------------------------------------------------------------------------------- 0681 0001 000c | | .DBGLEN 0x0001,0x000c 0683 00f3 00f5 | | .DBGLNO 0x00f3,0x00f5,0x00f7,0x00f8,0x00fe,0x0108,0x0114,0x011a,0x0120,0x012a,0x0135,0x0136,0x013b 0690 0001 0002 | | .XXX[0xc] 0692 0003 0004 | | 0694 0005 0006 | | 0696 0008 0009 | | 0698 000a 000b | | 069a 000c 0007 | | 069c ; -------------------------------------------------------------------------------------- 069c ; Debug chain 069c ; -------------------------------------------------------------------------------------- 069c 0002 0011 | | .DBGLEN 0x0002,0x0011 069e 0173 0175 | s u| .DBGLNO 0x0173,0x0175,0x0177,0x017b,0x017f,0x0188,0x018e,0x0191,0x0192,0x019c,0x01a6,0x01b8,0x01c2,0x01ce,0x01d4,0x01de,0x01ea,0x01ef,0x01f4 06b1 0001 0002 | | .XXX[0x11] 06b3 0003 0004 | | 06b5 0005 0006 | | 06b7 0007 0008 | | 06b9 0009 000a | | 06bb 000b 000c | | 06bd 000e 000f | | 06bf 0010 000d | | 06c1 0011 | | 06c2 ; -------------------------------------------------------------------------------------- 06c2 ; Debug chain 06c2 ; -------------------------------------------------------------------------------------- 06c2 0005 0037 | 7| .DBGLEN 0x0005,0x0037 06c4 0203 0205 | | .DBGLNO 0x0203,0x0205,0x020b,0x020e,0x0211,0x0218,0x021c,0x022a,0x0237,0x023f,0x0249,0x0257,0x0265,0x0267,0x0270,0x0279,0x027b,0x0289,0x0297,0x02a1,0x02af,0x02bd,0x02bf,0x02c8,0x02d1,0x02d3,0x02e1,0x02ef,0x02f4,0x0302,0x0310,0x0314,0x0316,0x0324,0x0332,0x0337,0x033d,0x0342,0x0348,0x034d,0x0355,0x035a,0x0360,0x0365,0x036b,0x036f,0x0373,0x0374,0x0382,0x0390,0x0395,0x0398,0x039d,0x03a3,0x03b0,0x03b4,0x03bd,0x03c3,0x03d6,0x03db 0700 0002 0004 | | .XXX[0x37] 0702 0005 0006 | | 0704 0007 0008 | | 0706 0009 000a | | 0708 000b 000c | | 070a 000d 000e | | 070c 000f 0010 | | 070e 0011 0012 | | 0710 0013 0014 | | 0712 0015 0016 | | 0714 0017 0018 | | 0716 0019 001a | | 0718 001b 001c | | 071a 001d 001e | | 071c 001f 0020 | | 071e 0021 0022 | ! "| 0720 0023 0024 | # $| 0722 0025 0026 | % &| 0724 0027 0028 | ' (| 0726 0029 002a | ) *| 0728 002b 002c | + ,| 072a 002d 002e | - .| 072c 002f 0031 | / 1| 072e 0032 0033 | 2 3| 0730 0034 0035 | 4 5| 0732 0036 0037 | 6 7| 0734 0038 0039 | 8 9| 0736 003a | : | 0737 ; -------------------------------------------------------------------------------------- 0737 ; Debug chain 0737 ; -------------------------------------------------------------------------------------- 0737 0000 0003 | | .DBGLEN 0x0000,0x0003 0739 040b 040f | | .DBGLNO 0x040b,0x040f,0x0411 073c ; -------------------------------------------------------------------------------------- 073c ; Debug chain 073c ; -------------------------------------------------------------------------------------- 073c 0006 001f | | .DBGLEN 0x0006,0x001f 073e 041b 041d | | .DBGLNO 0x041b,0x041d,0x0421,0x0425,0x042c,0x042d,0x042f,0x0435,0x0438,0x043e,0x0440,0x0444,0x0448,0x044a,0x0455,0x0462,0x0465,0x0469,0x046c,0x0472,0x0478,0x047a,0x047d,0x0480,0x0484,0x0488,0x048a,0x0495,0x04a2,0x04a5,0x04a9,0x04af,0x04b1,0x04b4,0x04b8,0x04bb,0x04c0 0763 0001 0002 | | .XXX[0x1f] 0765 0003 0004 | | 0767 0005 0006 | | 0769 0007 0009 | | 076b 000a 000b | | 076d 000c 0008 | | 076f 000d 000f | | 0771 0010 0011 | | 0773 0012 0013 | | 0775 0014 0015 | | 0777 001b 001c | | 0779 001d 001e | | 077b 0016 0017 | | 077d 0018 0019 | | 077f 001a 001f | | 0781 000e | | 0782 ; -------------------------------------------------------------------------------------- 0782 ; Debug chain 0782 ; -------------------------------------------------------------------------------------- 0782 0001 0006 | | .DBGLEN 0x0001,0x0006 0784 04d3 04d5 | | .DBGLNO 0x04d3,0x04d5,0x04d8,0x04dc,0x04e5,0x04e9,0x04f0 078b 0001 0004 | | .XXX[0x6] 078d 0005 0002 | | 078f 0003 0006 | | 0791 ; -------------------------------------------------------------------------------------- 0791 ; Debug chain 0791 ; -------------------------------------------------------------------------------------- 0791 0001 000a | | .DBGLEN 0x0001,0x000a 0793 04fb 04fd | | .DBGLNO 0x04fb,0x04fd,0x04ff,0x0501,0x0507,0x0509,0x050f,0x0515,0x0517,0x051c,0x0521 079e 0001 0002 | | .XXX[0xa] 07a0 0003 0004 | | 07a2 0005 0007 | | 07a4 0008 0009 | | 07a6 0006 000a | | 07a8 ; -------------------------------------------------------------------------------------- 07a8 ; Debug chain 07a8 ; -------------------------------------------------------------------------------------- 07a8 0001 0008 | | .DBGLEN 0x0001,0x0008 07aa 052b 052c | + ,| .DBGLNO 0x052b,0x052c,0x0532,0x0536,0x053b,0x0540,0x0545,0x0549,0x054c 07b3 ; -------------------------------------------------------------------------------------- 07b3 ; Debug chain 07b3 ; -------------------------------------------------------------------------------------- 07b3 0000 0005 | | .DBGLEN 0x0000,0x0005 07b5 055b 0560 | [ `| .DBGLNO 0x055b,0x0560,0x0568,0x056e,0x0572 07ba ; -------------------------------------------------------------------------------------- 07ba ; Debug chain 07ba ; -------------------------------------------------------------------------------------- 07ba 0000 0004 | | .DBGLEN 0x0000,0x0004 07bc 0583 0591 | | .DBGLNO 0x0583,0x0591,0x059f,0x05ba 07c0 0000 0000 | | .BLANK 0000[0x40]