|
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 - metrics - 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 For_Outer_Call,Visible,Unelaborated,INIT_0078
0012 029a 0083 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0080
0014 029a 00f3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00f0
0016 4800 |H | Short_Literal 0x0
0017 4801 |H | Short_Literal 0x1
0018 029f 014b | K| Declare_Subprogram For_Call,INIT_0148
001a 03fe | | Declare_Type Discrete,Defined,Visible
001b 029a 0173 | s| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0170
001d 029a 0203 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0200
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 For_Call,INIT_05c0
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 For_Call,INIT_03e0
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 For_Outer_Call,INIT_0408
0061 029d 041b | | Declare_Subprogram For_Outer_Call,INIT_0418
0063 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0064 00c7 | | Action Elaborate_Subprogram
0065 029d 04d3 | | Declare_Subprogram For_Outer_Call,INIT_04d0
0067 029d 04fb | | Declare_Subprogram For_Outer_Call,INIT_04f8
0069 029d 052b | +| Declare_Subprogram For_Outer_Call,INIT_0528
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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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 0x7
014c 4302 |C | Exit_Subprogram From_Utility,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,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,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,0x1
0161 00db | | Load_Top At_Offset_3
0162 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0163 00db | | Load_Top At_Offset_3
0164 4202 |B | Exit_Subprogram From_Utility,With_Result,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,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,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_Subprogram 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 For_Call,INIT_0558
0215 029f 0583 | | Declare_Subprogram For_Call,INIT_0580
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_Result,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 0x7
03e4 4302 |C | Exit_Subprogram From_Utility,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,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,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,0x1
03f9 00db | | Load_Top At_Offset_3
03fa 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
03fb 00db | | Load_Top At_Offset_3
03fc 4202 |B | Exit_Subprogram From_Utility,With_Result,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,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,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_Result,0x2
0411 00db | | Load_Top At_Offset_3
0412 4402 |D | Exit_Subprogram With_Result,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_Unchecked 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_Unchecked 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_Subprogram 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_Result,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_Result,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_Result,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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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 0x8
05c4 7808 |x | Jump 0x5cd ; case 0x0
05c5 4302 |C | Exit_Subprogram From_Utility,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,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"
; "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]