|
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: 5120 (0x1400)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03bcfe
└─⟦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 0920 | | .CONST 0x0920 ; 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 8005 | | .CONST 0x8005 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0081 | | .CONST 0x0081 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0028 | ( | .CONST 0x0028 ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 4802 |H | Short_Literal 0x2
000d 029f 008b | | Declare_Subprogram INIT_0088,For_Call
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 4800 |H | Short_Literal 0x0
0011 4802 |H | Short_Literal 0x2
0012 029f 00b3 | | Declare_Subprogram INIT_00b0,For_Call
0014 03fe | | Declare_Type Discrete,Defined,Visible
0015 4800 |H | Short_Literal 0x0
0016 4802 |H | Short_Literal 0x2
0017 029f 00db | | Declare_Subprogram INIT_00d8,For_Call
0019 03fe | | Declare_Type Discrete,Defined,Visible
001a 4800 |H | Short_Literal 0x0
001b 4815 |H | Short_Literal 0x15
001c 029f 0103 | | Declare_Subprogram INIT_0100,For_Call
001e 03fe | | Declare_Type Discrete,Defined,Visible
001f 4800 |H | Short_Literal 0x0
0020 480f |H | Short_Literal 0xf
0021 00da | | Load_Top At_Offset_2
0022 03f9 | | Declare_Type Discrete,Constrained,Visible
0023 4811 |H | Short_Literal 0x11
0024 4815 |H | Short_Literal 0x15
0025 00db | | Load_Top At_Offset_3
0026 03f9 | | Declare_Type Discrete,Constrained,Visible
0027 4800 |H | Short_Literal 0x0
0028 4bff |K | Short_Literal 0x3ff
0029 e002 | | Load 0x0,0x2
002a 1b11 | | Execute Package,Field_Read,Field_Number 0x11
002b 02a0 | | Declare_Subprogram Null_Subprogram
002c 4801 |H | Short_Literal 0x1
002d 035e | ^ | Declare_Type Array,Defined,Visible
002e 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated
0030 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated
0032 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated
0034 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated
0036 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated
0038 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated
003a 029a 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call,Visible,Unelaborated
003c 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated
003e 029a 028b | | Declare_Subprogram INIT_0288,For_Outer_Call,Visible,Unelaborated
0040 029a 03c3 | | Declare_Subprogram INIT_03c0,For_Outer_Call,Visible,Unelaborated
0042 029a 03f3 | | Declare_Subprogram INIT_03f0,For_Outer_Call,Visible,Unelaborated
0044 029a 042b | +| Declare_Subprogram INIT_0428,For_Outer_Call,Visible,Unelaborated
0046 029a 045b | [| Declare_Subprogram INIT_0458,For_Outer_Call,Visible,Unelaborated
0048 029a 046b | k| Declare_Subprogram INIT_0468,For_Outer_Call,Visible,Unelaborated
004a 4805 |H | Short_Literal 0x5
004b 032b | + | Declare_Type Record,Incomplete,Visible
004c 00d8 | | Load_Top At_Offset_0
004d 02a0 | | Declare_Subprogram Null_Subprogram
004e 4818 |H | Short_Literal 0x18
004f 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected
0050 00bf | | Action Accept_Activation
0051 e003 | | Load 0x0,0x3
0052 e004 | | Load 0x0,0x4
0053 e005 | | Load 0x0,0x5
0054 e006 | | Load 0x0,0x6
0055 e007 | | Load 0x0,0x7
0056 02a0 | | Declare_Subprogram Null_Subprogram
0057 e222 | " | Load 0x1,0x22
0058 0326 | & | Complete_Type Record,By_Defining
0059 00d8 | | Load_Top At_Offset_0
005a 03c4 | | Complete_Type Access,By_Component_Completion
005b 0092 07ca | | Action Push_String_Extended,0x7ca ; "DFS_RELEASE"
005d 0092 07cb | | Action Push_String_Extended,0x7cb ; "R1000_DUMP1"
005f 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0060 00c7 | | Action Elaborate_Subprogram
0061 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0062 00c7 | | Action Elaborate_Subprogram
0063 029d 049b | | Declare_Subprogram INIT_0498,For_Outer_Call
0065 029d 04d3 | | Declare_Subprogram INIT_04d0,For_Outer_Call
0067 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0068 00c7 | | Action Elaborate_Subprogram
0069 029d 0513 | | Declare_Subprogram INIT_0510,For_Outer_Call
006b 1d18 | | Execute_Immediate Reference_Lex_1,0x18
006c 00c7 | | Action Elaborate_Subprogram
006d 1d17 | | Execute_Immediate Reference_Lex_1,0x17
006e 00c7 | | Action Elaborate_Subprogram
006f 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0070 00c7 | | Action Elaborate_Subprogram
0071 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0072 00c7 | | Action Elaborate_Subprogram
0073 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0074 00c7 | | Action Elaborate_Subprogram
0075 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0076 00c7 | | Action Elaborate_Subprogram
0077 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0078 00c7 | | Action Elaborate_Subprogram
0079 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
007a 00c7 | | Action Elaborate_Subprogram
007b 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
007c 00c7 | | Action Elaborate_Subprogram
007d 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
007e 00c7 | | Action Elaborate_Subprogram
007f 1d20 | | Execute_Immediate Reference_Lex_1,0x20
0080 00c7 | | Action Elaborate_Subprogram
0081 BODY_0008:
0081 00bc | | Action Signal_Activated
0082 00bb | | Action Signal_Completion
0083 0000 0000 | | .BLANK 0000[0x5]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b | | .CONST 0x008b ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0001 | | .CONST 0x0001 ; Number of locals
008b BODY_0088:
008b INIT_0088:
008b 4607 |F | Jump_Case 0x8
008c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
008d 7807 |x | Jump 0x95 ; case 0x1
008e 780a |x | Jump 0x99 ; case 0x2
008f 780e |x | Jump 0x9e ; case 0x3
0090 7811 |x | Jump 0xa2 ; case 0x4
0091 7812 |x | Jump 0xa4 ; case 0x5
0092 7813 |x | Jump 0xa6 ; case 0x6
0093 7816 |x | Jump 0xaa ; case 0x7
0094 4302 |C | .XXX[0x1]
0095 00da | | Load_Top At_Offset_2
0096 0091 07ab | | Action Push_String_Extended_Indexed,0x7ab ; "IGNORE_ERRORS"
0098 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0099 00db | | Load_Top At_Offset_3
009a 00db | | Load_Top At_Offset_3
009b 00e0 | | Load_Encached Standard_Cache
009c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
009d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
009e 00da | | Load_Top At_Offset_2
009f 00e0 | | Load_Encached Standard_Cache
00a0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00a1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00a2 00db | | Load_Top At_Offset_3
00a3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00a4 00db | | Load_Top At_Offset_3
00a5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00a6 e20d | | Load 0x1,0xd
00a7 00dc | | Load_Top At_Offset_4
00a8 0267 | g | Execute Discrete,Predecessor
00a9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00aa e20d | | Load 0x1,0xd
00ab 00dc | | Load_Top At_Offset_4
00ac 0268 | h | Execute Discrete,Successor
00ad 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00ae 0000 0000 | | .XXX[0x2]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3 | | .CONST 0x00b3 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0001 | | .CONST 0x0001 ; Number of locals
00b3 BODY_00b0:
00b3 INIT_00b0:
00b3 4607 |F | Jump_Case 0x8
00b4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00b5 7807 |x | Jump 0xbd ; case 0x1
00b6 780a |x | Jump 0xc1 ; case 0x2
00b7 780e |x | Jump 0xc6 ; case 0x3
00b8 7811 |x | Jump 0xca ; case 0x4
00b9 7812 |x | Jump 0xcc ; case 0x5
00ba 7813 |x | Jump 0xce ; case 0x6
00bb 7816 |x | Jump 0xd2 ; case 0x7
00bc 4302 |C | .XXX[0x1]
00bd 00da | | Load_Top At_Offset_2
00be 0091 07ae | | Action Push_String_Extended_Indexed,0x7ae ; "MUST_EXIST"
00c0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00c1 00db | | Load_Top At_Offset_3
00c2 00db | | Load_Top At_Offset_3
00c3 00e0 | | Load_Encached Standard_Cache
00c4 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00c5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00c6 00da | | Load_Top At_Offset_2
00c7 00e0 | | Load_Encached Standard_Cache
00c8 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00c9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00ca 00db | | Load_Top At_Offset_3
00cb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00cc 00db | | Load_Top At_Offset_3
00cd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00ce e20e | | Load 0x1,0xe
00cf 00dc | | Load_Top At_Offset_4
00d0 0267 | g | Execute Discrete,Predecessor
00d1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00d2 e20e | | Load 0x1,0xe
00d3 00dc | | Load_Top At_Offset_4
00d4 0268 | h | Execute Discrete,Successor
00d5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00d6 0000 0000 | | .XXX[0x2]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db | | .CONST 0x00db ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0001 | | .CONST 0x0001 ; Number of locals
00db BODY_00d8:
00db INIT_00d8:
00db 4607 |F | Jump_Case 0x8
00dc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00dd 7807 |x | Jump 0xe5 ; case 0x1
00de 780a |x | Jump 0xe9 ; case 0x2
00df 780e |x | Jump 0xee ; case 0x3
00e0 7811 |x | Jump 0xf2 ; case 0x4
00e1 7812 |x | Jump 0xf4 ; case 0x5
00e2 7813 |x | Jump 0xf6 ; case 0x6
00e3 7816 |x | Jump 0xfa ; case 0x7
00e4 4302 |C | .XXX[0x1]
00e5 00da | | Load_Top At_Offset_2
00e6 0091 07b1 | | Action Push_String_Extended_Indexed,0x7b1 ; "CLOSE"
00e8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00e9 00db | | Load_Top At_Offset_3
00ea 00db | | Load_Top At_Offset_3
00eb 00e0 | | Load_Encached Standard_Cache
00ec 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00ed 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00ee 00da | | Load_Top At_Offset_2
00ef 00e0 | | Load_Encached Standard_Cache
00f0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00f1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00f2 00db | | Load_Top At_Offset_3
00f3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00f4 00db | | Load_Top At_Offset_3
00f5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00f6 e20f | | Load 0x1,0xf
00f7 00dc | | Load_Top At_Offset_4
00f8 0267 | g | Execute Discrete,Predecessor
00f9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00fa e20f | | Load 0x1,0xf
00fb 00dc | | Load_Top At_Offset_4
00fc 0268 | h | Execute Discrete,Successor
00fd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00fe 0000 0000 | | .XXX[0x2]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 4607 |F | Jump_Case 0x8
0104 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0105 7807 |x | Jump 0x10d ; case 0x1
0106 780a |x | Jump 0x111 ; case 0x2
0107 780e |x | Jump 0x116 ; case 0x3
0108 7811 |x | Jump 0x11a ; case 0x4
0109 7812 |x | Jump 0x11c ; case 0x5
010a 7813 |x | Jump 0x11e ; case 0x6
010b 7816 |x | Jump 0x122 ; case 0x7
010c 4302 |C | .XXX[0x1]
010d 00da | | Load_Top At_Offset_2
010e 0091 07b4 | | Action Push_String_Extended_Indexed,0x7b4 ; "FS_OK"
0110 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0111 00db | | Load_Top At_Offset_3
0112 00db | | Load_Top At_Offset_3
0113 00e0 | | Load_Encached Standard_Cache
0114 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0115 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0116 00da | | Load_Top At_Offset_2
0117 00e0 | | Load_Encached Standard_Cache
0118 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0119 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
011a 00db | | Load_Top At_Offset_3
011b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
011c 00db | | Load_Top At_Offset_3
011d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
011e e210 | | Load 0x1,0x10
011f 00dc | | Load_Top At_Offset_4
0120 0267 | g | Execute Discrete,Predecessor
0121 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0122 e210 | | Load 0x1,0x10
0123 00dc | | Load_Top At_Offset_4
0124 0268 | h | Execute Discrete,Successor
0125 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0126 0000 0000 | | .XXX[0x2]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 0133 | 3 | .CONST 0x0133 ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0003 | | .CONST 0x0003 ; Number of locals
012b INIT_0128:
012b e008 | | Load 0x0,0x8
012c 0007 | | Action Break_Optional
012d 4850 |HP | Short_Literal 0x50
012e e009 | | Load 0x0,0x9
012f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0130 1c08 | | Execute_Immediate Run_Utility,0x8
0131 00d8 | | Load_Top At_Offset_0
0132 1c00 | | Execute_Immediate Run_Utility,0x0
0133 BODY_0128:
0133 00d8 | | Load_Top At_Offset_0
0134 e5ff | | Load 0x2,-0x1
0135 e009 | | Load 0x0,0x9
0136 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0137 00d1 | | Pop_Control Pop_Count_1
0138 e223 | # | Load 0x1,0x23
0139 03bc | | Declare_Variable Access,By_Allocation
013a a5fb | | Store_Unchecked 0x2,-0x5
013b e008 | | Load 0x0,0x8
013c 03bc | | Declare_Variable Access,By_Allocation
013d 003a | : | Store_Top Access,At_Offset_2
013e 00d9 | | Load_Top At_Offset_1
013f e5fa | | Load 0x2,-0x6
0140 e5fd | | Load 0x2,-0x3
0141 e5fc | | Load 0x2,-0x4
0142 e5fe | | Load 0x2,-0x2
0143 e403 | | Load 0x2,0x3
0144 800a | | Call 0x0,0xa
0145 c5fa | | Store 0x2,-0x6
0146 003a | : | Store_Top Access,At_Offset_2
0147 e5fa | | Load 0x2,-0x6
0148 6801 |h | Jump_Zero 0x14a
0149 4505 |E | Exit_Suprogram New_Top_Offset 0x5
014a 00cf | | Action Mark_Auxiliary
014b 481e |H | Short_Literal 0x1e
014c 4801 |H | Short_Literal 0x1
014d 0007 | | Action Break_Optional
014e 00d8 | | Load_Top At_Offset_0
014f e402 | | Load 0x2,0x2
0150 0227 | ' | Execute Access,All_Reference
0151 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0152 01d7 | | Execute Vector,Field_Read
0153 00d9 | | Load_Top At_Offset_1
0154 e5fb | | Load 0x2,-0x5
0155 0227 | ' | Execute Access,All_Reference
0156 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0157 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0158 01d6 | | Execute Vector,Field_Write
0159 00c8 | | Action Pop_Auxiliary_Range
015a 3ff3 |? | Loop_Increasing 0x14e
015b 00ce | | Action Pop_Auxiliary
015c 00d9 | | Load_Top At_Offset_1
015d 0227 | ' | Execute Access,All_Reference
015e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
015f e5fb | | Load 0x2,-0x5
0160 0227 | ' | Execute Access,All_Reference
0161 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0162 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0163 00d9 | | Load_Top At_Offset_1
0164 0227 | ' | Execute Access,All_Reference
0165 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0166 e5fb | | Load 0x2,-0x5
0167 0227 | ' | Execute Access,All_Reference
0168 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0169 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
016a 4800 |H | Short_Literal 0x0
016b e5fb | | Load 0x2,-0x5
016c 0227 | ' | Execute Access,All_Reference
016d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
016e 4800 |H | Short_Literal 0x0
016f e5fb | | Load 0x2,-0x5
0170 0227 | ' | Execute Access,All_Reference
0171 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0172 e5fb | | Load 0x2,-0x5
0173 0227 | ' | Execute Access,All_Reference
0174 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0175 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0176 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0177 e5fb | | Load 0x2,-0x5
0178 0227 | ' | Execute Access,All_Reference
0179 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
017a 4505 |E | Exit_Suprogram New_Top_Offset 0x5
017b 0000 0000 | | .BLANK 0000[0x5]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183 | | .CONST 0x0183 ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0001 | | .CONST 0x0001 ; Number of locals
0183 BODY_0180:
0183 INIT_0180:
0183 00db | | Load_Top At_Offset_3
0184 0227 | ' | Execute Access,All_Reference
0185 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0186 e5fe | | Load 0x2,-0x2
0187 0227 | ' | Execute Access,All_Reference
0188 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0189 027c | | | Execute Discrete,Less
018a 681a |h | Jump_Zero 0x1a5
018b e5fc | | Load 0x2,-0x4
018c e5fd | | Load 0x2,-0x3
018d e5ff | | Load 0x2,-0x1
018e e5fe | | Load 0x2,-0x2
018f 0227 | ' | Execute Access,All_Reference
0190 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0191 e5fe | | Load 0x2,-0x2
0192 0227 | ' | Execute Access,All_Reference
0193 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0194 e5fe | | Load 0x2,-0x2
0195 0227 | ' | Execute Access,All_Reference
0196 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0197 e5fe | | Load 0x2,-0x2
0198 0227 | ' | Execute Access,All_Reference
0199 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
019a 800b | | Call 0x0,0xb
019b 00d1 | | Pop_Control Pop_Count_1
019c c5fc | | Store 0x2,-0x4
019d 00db | | Load_Top At_Offset_3
019e 0227 | ' | Execute Access,All_Reference
019f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01a0 0a01 | | Execute_Immediate Plus,0x1
01a1 e5fe | | Load 0x2,-0x2
01a2 0227 | ' | Execute Access,All_Reference
01a3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01a4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01a5 4809 |H | Short_Literal 0x9
01a6 a5fc | | Store_Unchecked 0x2,-0x4
01a7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01b3 | | .CONST 0x01b3 ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0003 | | .CONST 0x0003 ; Number of locals
01ab INIT_01a8:
01ab e210 | | Load 0x1,0x10
01ac 0007 | | Action Break_Optional
01ad 4850 |HP | Short_Literal 0x50
01ae e009 | | Load 0x0,0x9
01af 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01b0 1c08 | | Execute_Immediate Run_Utility,0x8
01b1 00d8 | | Load_Top At_Offset_0
01b2 1c00 | | Execute_Immediate Run_Utility,0x0
01b3 BODY_01a8:
01b3 00d9 | | Load_Top At_Offset_1
01b4 4800 |H | Short_Literal 0x0
01b5 e5fd | | Load 0x2,-0x3
01b6 e5fe | | Load 0x2,-0x2
01b7 e5ff | | Load 0x2,-0x1
01b8 8227 | ' | Call 0x1,0x27
01b9 005a | Z | Store_Top Discrete,At_Offset_2
01ba 00d9 | | Load_Top At_Offset_1
01bb 4615 |F | Jump_Case 0x16
01bc 7829 |x) | Jump 0x1e6 ; case 0x0
01bd 7828 |x( | Jump 0x1e6 ; case 0x1
01be 7827 |x' | Jump 0x1e6 ; case 0x2
01bf 7826 |x& | Jump 0x1e6 ; case 0x3
01c0 7825 |x% | Jump 0x1e6 ; case 0x4
01c1 7824 |x$ | Jump 0x1e6 ; case 0x5
01c2 7823 |x# | Jump 0x1e6 ; case 0x6
01c3 7822 |x" | Jump 0x1e6 ; case 0x7
01c4 7821 |x! | Jump 0x1e6 ; case 0x8
01c5 7820 |x | Jump 0x1e6 ; case 0x9
01c6 781f |x | Jump 0x1e6 ; case 0xa
01c7 781e |x | Jump 0x1e6 ; case 0xb
01c8 781d |x | Jump 0x1e6 ; case 0xc
01c9 781c |x | Jump 0x1e6 ; case 0xd
01ca 781b |x | Jump 0x1e6 ; case 0xe
01cb 781a |x | Jump 0x1e6 ; case 0xf
01cc 7819 |x | Jump 0x1e6 ; case 0x10
01cd 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x11
01ce 780d |x | Jump 0x1dc ; case 0x12
01cf 7811 |x | Jump 0x1e1 ; case 0x13
01d0 7806 |x | Jump 0x1d7 ; case 0x14
01d1 7800 |x | Jump 0x1d2 ; case 0x15
01d2 0092 07cc | | Action Push_String_Extended,0x7cc ; "Error accessing environment file"
01d4 e00c | | Load 0x0,0xc
01d5 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01d6 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01d7 0092 07cd | | Action Push_String_Extended,0x7cd ; "Environment file already open"
01d9 e00c | | Load 0x0,0xc
01da 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01db 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01dc 0092 07ce | | Action Push_String_Extended,0x7ce ; "Invalid environment file name"
01de e00c | | Load 0x0,0xc
01df 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01e0 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01e1 0092 07cf | | Action Push_String_Extended,0x7cf ; "Environment file already exists, not overwritten"
01e3 e00c | | Load 0x0,0xc
01e4 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01e5 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01e6 00d8 | | Load_Top At_Offset_0
01e7 00da | | Load_Top At_Offset_2
01e8 00d8 | | Load_Top At_Offset_0
01e9 e211 | | Load 0x1,0x11
01ea 0260 | ` | Execute Discrete,In_Type
01eb 7001 |p | Jump_Nonzero 0x1ed
01ec 0801 | | Execute_Immediate Raise,0x1
01ed 800d | | Call 0x0,0xd
01ee 00d1 | | Pop_Control Pop_Count_1
01ef 00d8 | | Load_Top At_Offset_0
01f0 e009 | | Load 0x0,0x9
01f1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01f2 e00c | | Load 0x0,0xc
01f3 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01f4 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01f5 0000 0000 | | .XXX[0x3]
01f7 0000 | |
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb | | .CONST 0x01fb ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0001 | | .CONST 0x0001 ; Number of locals
01fb BODY_01f8:
01fb INIT_01f8:
01fb e5fc | | Load 0x2,-0x4
01fc 4801 |H | Short_Literal 0x1
01fd e5fd | | Load 0x2,-0x3
01fe e5fe | | Load 0x2,-0x2
01ff e5ff | | Load 0x2,-0x1
0200 8227 | ' | Call 0x1,0x27
0201 c5fc | | Store 0x2,-0x4
0202 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0203 0000 0000 | | .BLANK 0000[0x5]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 0221 | ! | .CONST 0x0221 ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0009 | | .CONST 0x0009 ; Number of locals
020b INIT_0208:
020b e223 | # | Load 0x1,0x23
020c 0007 | | Action Break_Optional
020d e213 | | Load 0x1,0x13
020e 0337 | 7 | Declare_Variable Array
020f 00e2 | | Load_Encached Integer_Cache
0210 e00e | | Load 0x0,0xe
0211 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0212 02c7 | | Declare_Variable Any
0213 00d8 | | Load_Top At_Offset_0
0214 1c00 | | Execute_Immediate Run_Utility,0x0
0215 e211 | | Load 0x1,0x11
0216 0007 | | Action Break_Optional
0217 e210 | | Load 0x1,0x10
0218 0007 | | Action Break_Optional
0219 4850 |HP | Short_Literal 0x50
021a e009 | | Load 0x0,0x9
021b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
021c 1c08 | | Execute_Immediate Run_Utility,0x8
021d 00d8 | | Load_Top At_Offset_0
021e 1c00 | | Execute_Immediate Run_Utility,0x0
021f 029f 0523 | #| Declare_Subprogram INIT_0520,For_Call
0221 BODY_0208:
0221 00db | | Load_Top At_Offset_3
0222 e402 | | Load 0x2,0x2
0223 4801 |H | Short_Literal 0x1
0224 4800 |H | Short_Literal 0x0
0225 4800 |H | Short_Literal 0x0
0226 e5ff | | Load 0x2,-0x1
0227 8214 | | Call 0x1,0x14
0228 c402 | | Store 0x2,0x2
0229 c406 | | Store 0x2,0x6
022a 00db | | Load_Top At_Offset_3
022b 7002 |p | Jump_Nonzero 0x22e
022c 8409 | | Call 0x2,0x9
022d 7802 |x | Jump 0x230
022e 00db | | Load_Top At_Offset_3
022f 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0230 00da | | Load_Top At_Offset_2
0231 0e10 | | Execute_Immediate Not_Equal,0x10
0232 680e |h | Jump_Zero 0x241
0233 00d9 | | Load_Top At_Offset_1
0234 00db | | Load_Top At_Offset_3
0235 00d8 | | Load_Top At_Offset_0
0236 e211 | | Load 0x1,0x11
0237 0260 | ` | Execute Discrete,In_Type
0238 7001 |p | Jump_Nonzero 0x23a
0239 0801 | | Execute_Immediate Raise,0x1
023a 800d | | Call 0x0,0xd
023b 00d1 | | Pop_Control Pop_Count_1
023c 00d9 | | Load_Top At_Offset_1
023d e009 | | Load 0x0,0x9
023e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
023f e00c | | Load 0x0,0xc
0240 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0241 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0242 0000 0000 | | .BLANK 0000[0x6]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024b | K | .CONST 0x024b ; Address of begin
0249 0004 | | .CONST 0x0004 ; Address of exception handler
024a 0001 | | .CONST 0x0001 ; Number of locals
024b BODY_0248:
024b INIT_0248:
024b 00db | | Load_Top At_Offset_3
024c 00db | | Load_Top At_Offset_3
024d 800f | | Call 0x0,0xf
024e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
024f 0000 | | .XXX[0x1]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253 | S | .CONST 0x0253 ; Address of begin
0251 0004 | | .CONST 0x0004 ; Address of exception handler
0252 0001 | | .CONST 0x0001 ; Number of locals
0253 BODY_0250:
0253 INIT_0250:
0253 00da | | Load_Top At_Offset_2
0254 0227 | ' | Execute Access,All_Reference
0255 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0256 a5fe | | Store_Unchecked 0x2,-0x2
0257 00da | | Load_Top At_Offset_2
0258 0227 | ' | Execute Access,All_Reference
0259 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
025a 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
025b 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
025c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
025d a5fd | | Store_Unchecked 0x2,-0x3
025e 00da | | Load_Top At_Offset_2
025f 0227 | ' | Execute Access,All_Reference
0260 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0261 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0262 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0263 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0264 a5fc | | Store_Unchecked 0x2,-0x4
0265 00da | | Load_Top At_Offset_2
0266 0227 | ' | Execute Access,All_Reference
0267 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0268 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0269 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
026a 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
026b a5fb | | Store_Unchecked 0x2,-0x5
026c 00da | | Load_Top At_Offset_2
026d 0227 | ' | Execute Access,All_Reference
026e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
026f 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0270 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0271 e5fa | | Load 0x2,-0x6
0272 017d | } | Execute Record,Structure_Write
0273 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0274 0000 0000 | | .BLANK 0000[0x4]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 0281 | | .CONST 0x0281 ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0002 | | .CONST 0x0002 ; Number of locals
027b INIT_0278:
027b 481e |H | Short_Literal 0x1e
027c e009 | | Load 0x0,0x9
027d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
027e 1c08 | | Execute_Immediate Run_Utility,0x8
027f 00d8 | | Load_Top At_Offset_0
0280 1c00 | | Execute_Immediate Run_Utility,0x0
0281 BODY_0278:
0281 00d8 | | Load_Top At_Offset_0
0282 e5fd | | Load 0x2,-0x3
0283 e009 | | Load 0x0,0x9
0284 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0285 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0286 0000 0000 | | .XXX[0x2]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 02a8 | | .CONST 0x02a8 ; Address of begin
0289 03a0 | | .CONST 0x03a0 ; Address of exception handler
028a 000b | | .CONST 0x000b ; Number of locals
028b INIT_0288:
028b e010 | | Load 0x0,0x10
028c 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
028d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
028e 02c7 | | Declare_Variable Any
028f 00d8 | | Load_Top At_Offset_0
0290 1c00 | | Execute_Immediate Run_Utility,0x0
0291 e213 | | Load 0x1,0x13
0292 0337 | 7 | Declare_Variable Array
0293 00e2 | | Load_Encached Integer_Cache
0294 e00e | | Load 0x0,0xe
0295 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0296 02c7 | | Declare_Variable Any
0297 00d8 | | Load_Top At_Offset_0
0298 1c00 | | Execute_Immediate Run_Utility,0x0
0299 e010 | | Load 0x0,0x10
029a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
029b e211 | | Load 0x1,0x11
029c 0007 | | Action Break_Optional
029d e010 | | Load 0x0,0x10
029e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
029f 02c7 | | Declare_Variable Any
02a0 00d8 | | Load_Top At_Offset_0
02a1 1c00 | | Execute_Immediate Run_Utility,0x0
02a2 00e2 | | Load_Encached Integer_Cache
02a3 e010 | | Load 0x0,0x10
02a4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02a5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02a6 e223 | # | Load 0x1,0x23
02a7 0007 | | Action Break_Optional
02a8 BODY_0288:
02a8 e5fe | | Load 0x2,-0x2
02a9 8226 | & | Call 0x1,0x26
02aa 700c |p | Jump_Nonzero 0x2b7
02ab 4815 |H | Short_Literal 0x15
02ac a5fd | | Store_Unchecked 0x2,-0x3
02ad 0092 07d0 | | Action Push_String_Extended,0x7d0 ; "Environment file "
02af e5fe | | Load 0x2,-0x2
02b0 01cc | | Execute Vector,Catenate
02b1 0092 07d1 | | Action Push_String_Extended,0x7d1 ; " does not exist."
02b3 01cc | | Execute Vector,Catenate
02b4 e00c | | Load 0x0,0xc
02b5 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
02b6 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02b7 e010 | | Load 0x0,0x10
02b8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02b9 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02ba e408 | | Load 0x2,0x8
02bb 0120 | | Execute Any,Is_Value
02bc 6803 |h | Jump_Zero 0x2c0
02bd e010 | | Load 0x0,0x10
02be 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02bf 7801 |x | Jump 0x2c1
02c0 e408 | | Load 0x2,0x8
02c1 60fa |` | Indirect_Literal Discrete,0x3bc,{0x00000000, 0x00004000}
02c2 e011 | | Load 0x0,0x11
02c3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02c4 e012 | | Load 0x0,0x12
02c5 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02c6 e010 | | Load 0x0,0x10
02c7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02c8 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02c9 e5fe | | Load 0x2,-0x2
02ca e010 | | Load 0x0,0x10
02cb 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02cc 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
02cd c408 | | Store 0x2,0x8
02ce 005a | Z | Store_Top Discrete,At_Offset_2
02cf 00d9 | | Load_Top At_Offset_1
02d0 6807 |h | Jump_Zero 0x2d8
02d1 4815 |H | Short_Literal 0x15
02d2 a5fd | | Store_Unchecked 0x2,-0x3
02d3 0092 07d2 | | Action Push_String_Extended,0x7d2 ; "Error accessing environment file information"
02d5 e00c | | Load 0x0,0xc
02d6 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
02d7 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02d8 e010 | | Load 0x0,0x10
02d9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02da e402 | | Load 0x2,0x2
02db 0120 | | Execute Any,Is_Value
02dc 6804 |h | Jump_Zero 0x2e1
02dd e010 | | Load 0x0,0x10
02de 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
02df 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02e0 7801 |x | Jump 0x2e2
02e1 e402 | | Load 0x2,0x2
02e2 60d9 |` | Indirect_Literal Discrete,0x3bc,{0x00000000, 0x00004000}
02e3 e011 | | Load 0x0,0x11
02e4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02e5 4800 |H | Short_Literal 0x0
02e6 e408 | | Load 0x2,0x8
02e7 e010 | | Load 0x0,0x10
02e8 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
02e9 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02ea c402 | | Store 0x2,0x2
02eb c406 | | Store 0x2,0x6
02ec e406 | | Load 0x2,0x6
02ed 6807 |h | Jump_Zero 0x2f5
02ee 4815 |H | Short_Literal 0x15
02ef a5fd | | Store_Unchecked 0x2,-0x3
02f0 0092 07d2 | | Action Push_String_Extended,0x7d2 ; "Error accessing environment file information"
02f2 e00c | | Load 0x0,0xc
02f3 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
02f4 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02f5 e402 | | Load 0x2,0x2
02f6 e010 | | Load 0x0,0x10
02f7 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
02f8 181d | | Execute Package,Field_Execute,Field_Number 0x1d
02f9 00d8 | | Load_Top At_Offset_0
02fa 00e2 | | Load_Encached Integer_Cache
02fb 0260 | ` | Execute Discrete,In_Type
02fc 7001 |p | Jump_Nonzero 0x2fe
02fd 0801 | | Execute_Immediate Raise,0x1
02fe 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
02ff e405 | | Load 0x2,0x5
0300 e011 | | Load 0x0,0x11
0301 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0302 e010 | | Load 0x0,0x10
0303 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0304 00ea | | Load_Encached Null_String_Cache
0305 e5fe | | Load 0x2,-0x2
0306 4800 |H | Short_Literal 0x0
0307 e00e | | Load 0x0,0xe
0308 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0309 c405 | | Store 0x2,0x5
030a e407 | | Load 0x2,0x7
030b 00d9 | | Load_Top At_Offset_1
030c 4801 |H | Short_Literal 0x1
030d e409 | | Load 0x2,0x9
030e 4802 |H | Short_Literal 0x2
030f e5ff | | Load 0x2,-0x1
0310 8214 | | Call 0x1,0x14
0311 003a | : | Store_Top Access,At_Offset_2
0312 c407 | | Store 0x2,0x7
0313 e407 | | Load 0x2,0x7
0314 7088 |p | Jump_Nonzero 0x39d
0315 4811 |H | Short_Literal 0x11
0316 a5fd | | Store_Unchecked 0x2,-0x3
0317 00cf | | Action Mark_Auxiliary
0318 787a |xz | Jump 0x393
0319 4bff |K | Short_Literal 0x3ff
031a a409 | | Store_Unchecked 0x2,0x9
031b 00e3 | | Load_Encached Natural_Cache
031c e403 | | Load 0x2,0x3
031d 00d8 | | Load_Top At_Offset_0
031e 01da | | Execute Vector,Bounds
031f e002 | | Load 0x0,0x2
0320 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0321 0334 | 4 | Declare_Variable Array,With_Constraint
0322 00d0 | | Action Swap_Control
0323 00d8 | | Load_Top At_Offset_0
0324 01dd | | Execute Vector,First
0325 00da | | Load_Top At_Offset_2
0326 01dd | | Execute Vector,First
0327 0272 | r | Execute Discrete,Minus
0328 00da | | Load_Top At_Offset_2
0329 01d9 | | Execute Vector,Reverse_Bounds
032a 0263 | c | Execute Discrete,Above_Bound
032b 700a |p | Jump_Nonzero 0x336
032c 00d8 | | Load_Top At_Offset_0
032d 00db | | Load_Top At_Offset_3
032e 0273 | s | Execute Discrete,Plus
032f e40f | | Load 0x2,0xf
0330 01d7 | | Execute Vector,Field_Read
0331 00d9 | | Load_Top At_Offset_1
0332 e40e | | Load 0x2,0xe
0333 01d5 | | Execute Vector,Field_Reference
0334 0118 | | Execute Any,Write_Unchecked
0335 3ff6 |? | Loop_Increasing 0x32c
0336 00d2 | | Pop_Control Pop_Count_2
0337 e405 | | Load 0x2,0x5
0338 e00e | | Load 0x0,0xe
0339 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
033a 00d8 | | Load_Top At_Offset_0
033b 01db | | Execute Vector,Length
033c e213 | | Load 0x1,0x13
033d 01db | | Execute Vector,Length
033e 027f | | Execute Discrete,Equal
033f 7001 |p | Jump_Nonzero 0x341
0340 08e0 | | Execute_Immediate Raise,0xe0
0341 e213 | | Load 0x1,0x13
0342 0337 | 7 | Declare_Variable Array
0343 00d0 | | Action Swap_Control
0344 00d8 | | Load_Top At_Offset_0
0345 01dd | | Execute Vector,First
0346 00da | | Load_Top At_Offset_2
0347 01dd | | Execute Vector,First
0348 0272 | r | Execute Discrete,Minus
0349 00da | | Load_Top At_Offset_2
034a 01d9 | | Execute Vector,Reverse_Bounds
034b 0263 | c | Execute Discrete,Above_Bound
034c 700a |p | Jump_Nonzero 0x357
034d 00d8 | | Load_Top At_Offset_0
034e 00db | | Load_Top At_Offset_3
034f 0273 | s | Execute Discrete,Plus
0350 e40f | | Load 0x2,0xf
0351 01d7 | | Execute Vector,Field_Read
0352 00d9 | | Load_Top At_Offset_1
0353 e40e | | Load 0x2,0xe
0354 01d5 | | Execute Vector,Field_Reference
0355 0118 | | Execute Any,Write_Unchecked
0356 3ff6 |? | Loop_Increasing 0x34d
0357 00d2 | | Pop_Control Pop_Count_2
0358 e403 | | Load 0x2,0x3
0359 01d4 | | Execute Vector,Structure_Write
035a c409 | | Store 0x2,0x9
035b 00db | | Load_Top At_Offset_3
035c 4bff |K | Short_Literal 0x3ff
035d 027c | | | Execute Discrete,Less
035e 6812 |h | Jump_Zero 0x371
035f 00cf | | Action Mark_Auxiliary
0360 4bff |K | Short_Literal 0x3ff
0361 e409 | | Load 0x2,0x9
0362 0a01 | | Execute_Immediate Plus,0x1
0363 00d8 | | Load_Top At_Offset_0
0364 00e2 | | Load_Encached Integer_Cache
0365 0260 | ` | Execute Discrete,In_Type
0366 7001 |p | Jump_Nonzero 0x368
0367 0801 | | Execute_Immediate Raise,0x1
0368 0263 | c | Execute Discrete,Above_Bound
0369 7006 |p | Jump_Nonzero 0x370
036a 4800 |H | Short_Literal 0x0
036b 00d9 | | Load_Top At_Offset_1
036c e403 | | Load 0x2,0x3
036d 01d6 | | Execute Vector,Field_Write
036e 00c8 | | Action Pop_Auxiliary_Range
036f 3ffa |? | Loop_Increasing 0x36a
0370 00ce | | Action Pop_Auxiliary
0371 e407 | | Load 0x2,0x7
0372 e403 | | Load 0x2,0x3
0373 4801 |H | Short_Literal 0x1
0374 e40b | | Load 0x2,0xb
0375 0227 | ' | Execute Access,All_Reference
0376 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0377 e40b | | Load 0x2,0xb
0378 0227 | ' | Execute Access,All_Reference
0379 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
037a e40b | | Load 0x2,0xb
037b 0227 | ' | Execute Access,All_Reference
037c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
037d e40b | | Load 0x2,0xb
037e 0227 | ' | Execute Access,All_Reference
037f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0380 8013 | | Call 0x0,0x13
0381 c407 | | Store 0x2,0x7
0382 00d9 | | Load_Top At_Offset_1
0383 0227 | ' | Execute Access,All_Reference
0384 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0385 0a01 | | Execute_Immediate Plus,0x1
0386 00da | | Load_Top At_Offset_2
0387 0227 | ' | Execute Access,All_Reference
0388 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0389 e407 | | Load 0x2,0x7
038a 6807 |h | Jump_Zero 0x392
038b e407 | | Load 0x2,0x7
038c a5fd | | Store_Unchecked 0x2,-0x3
038d e405 | | Load 0x2,0x5
038e e00e | | Load 0x0,0xe
038f 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0390 c405 | | Store 0x2,0x5
0391 7805 |x | Jump 0x397
0392 00c9 | | Action Pop_Auxiliary_Loop
0393 e405 | | Load 0x2,0x5
0394 e00e | | Load 0x0,0xe
0395 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0396 6f82 |o | Jump_Zero 0x319
0397 00ce | | Action Pop_Auxiliary
0398 e405 | | Load 0x2,0x5
0399 e00e | | Load 0x0,0xe
039a 1819 | | Execute Package,Field_Execute,Field_Number 0x19
039b c405 | | Store 0x2,0x5
039c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
039d e407 | | Load 0x2,0x7
039e a5fd | | Store_Unchecked 0x2,-0x3
039f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
03a0 TRAP_0288:
03a0 00d8 | | Load_Top At_Offset_0
03a1 0107 | | Execute Exception,Get_Name
03a2 4900 |I | Short_Literal 0x100
03a3 490f |I | Short_Literal 0x10f
03a4 0262 | b | Execute Discrete,In_Range
03a5 6803 |h | Jump_Zero 0x3a9
03a6 4814 |H | Short_Literal 0x14
03a7 a5fd | | Store_Unchecked 0x2,-0x3
03a8 4503 |E | Exit_Suprogram New_Top_Offset 0x3
03a9 00d8 | | Load_Top At_Offset_0
03aa 0107 | | Execute Exception,Get_Name
03ab 4920 |I | Short_Literal 0x120
03ac 492f |I/ | Short_Literal 0x12f
03ad 0262 | b | Execute Discrete,In_Range
03ae 6803 |h | Jump_Zero 0x3b2
03af 4812 |H | Short_Literal 0x12
03b0 a5fd | | Store_Unchecked 0x2,-0x3
03b1 4503 |E | Exit_Suprogram New_Top_Offset 0x3
03b2 00d8 | | Load_Top At_Offset_0
03b3 0107 | | Execute Exception,Get_Name
03b4 4930 |I0 | Short_Literal 0x130
03b5 493f |I? | Short_Literal 0x13f
03b6 0262 | b | Execute Discrete,In_Range
03b7 6803 |h | Jump_Zero 0x3bb
03b8 4815 |H | Short_Literal 0x15
03b9 a5fd | | Store_Unchecked 0x2,-0x3
03ba 4503 |E | Exit_Suprogram New_Top_Offset 0x3
03bb 0100 | | Execute Exception,Raise
03bc 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03ce | | .CONST 0x03ce ; Address of begin
03c1 0004 | | .CONST 0x0004 ; Address of exception handler
03c2 0002 | | .CONST 0x0002 ; Number of locals
03c3 INIT_03c0:
03c3 00db | | Load_Top At_Offset_3
03c4 0227 | ' | Execute Access,All_Reference
03c5 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
03c6 0aff | | Execute_Immediate Plus,-0x1
03c7 00d8 | | Load_Top At_Offset_0
03c8 e004 | | Load 0x0,0x4
03c9 0260 | ` | Execute Discrete,In_Type
03ca 7001 |p | Jump_Nonzero 0x3cc
03cb 0801 | | Execute_Immediate Raise,0x1
03cc e004 | | Load 0x0,0x4
03cd 03f1 | | Declare_Variable Discrete,With_Value
03ce BODY_03c0:
03ce e5fb | | Load 0x2,-0x5
03cf e5fd | | Load 0x2,-0x3
03d0 e5ff | | Load 0x2,-0x1
03d1 e5fe | | Load 0x2,-0x2
03d2 0227 | ' | Execute Access,All_Reference
03d3 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
03d4 e5fe | | Load 0x2,-0x2
03d5 0227 | ' | Execute Access,All_Reference
03d6 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
03d7 e402 | | Load 0x2,0x2
03d8 e5fe | | Load 0x2,-0x2
03d9 0227 | ' | Execute Access,All_Reference
03da 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
03db 800b | | Call 0x0,0xb
03dc 00d1 | | Pop_Control Pop_Count_1
03dd c5fb | | Store 0x2,-0x5
03de 4bff |K | Short_Literal 0x3ff
03df a5fc | | Store_Unchecked 0x2,-0x4
03e0 00cf | | Action Mark_Auxiliary
03e1 4800 |H | Short_Literal 0x0
03e2 4bff |K | Short_Literal 0x3ff
03e3 0007 | | Action Break_Optional
03e4 00d8 | | Load_Top At_Offset_0
03e5 e5fd | | Load 0x2,-0x3
03e6 01d7 | | Execute Vector,Field_Read
03e7 6804 |h | Jump_Zero 0x3ec
03e8 00d8 | | Load_Top At_Offset_0
03e9 a5fc | | Store_Unchecked 0x2,-0x4
03ea 00d2 | | Pop_Control Pop_Count_2
03eb 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03ec 00c8 | | Action Pop_Auxiliary_Range
03ed 37f6 |7 | Loop_Decreasing 0x3e4
03ee 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03ef 0000 | | .XXX[0x1]
03f0 ; --------------------------------------------------------------------------------------
03f0 ; SUBPROGRAM
03f0 ; --------------------------------------------------------------------------------------
03f0 0405 | | .CONST 0x0405 ; Address of begin
03f1 0004 | | .CONST 0x0004 ; Address of exception handler
03f2 0009 | | .CONST 0x0009 ; Number of locals
03f3 INIT_03f0:
03f3 e223 | # | Load 0x1,0x23
03f4 0007 | | Action Break_Optional
03f5 e213 | | Load 0x1,0x13
03f6 0337 | 7 | Declare_Variable Array
03f7 00e2 | | Load_Encached Integer_Cache
03f8 00e2 | | Load_Encached Integer_Cache
03f9 e211 | | Load 0x1,0x11
03fa 0007 | | Action Break_Optional
03fb e210 | | Load 0x1,0x10
03fc 0007 | | Action Break_Optional
03fd 4850 |HP | Short_Literal 0x50
03fe e009 | | Load 0x0,0x9
03ff 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0400 1c08 | | Execute_Immediate Run_Utility,0x8
0401 00d8 | | Load_Top At_Offset_0
0402 1c00 | | Execute_Immediate Run_Utility,0x0
0403 029f 059b | | Declare_Subprogram INIT_0598,For_Call
0405 BODY_03f0:
0405 00db | | Load_Top At_Offset_3
0406 e402 | | Load 0x2,0x2
0407 4801 |H | Short_Literal 0x1
0408 4800 |H | Short_Literal 0x0
0409 4800 |H | Short_Literal 0x0
040a e224 | $ | Load 0x1,0x24
040b 8214 | | Call 0x1,0x14
040c c402 | | Store 0x2,0x2
040d c406 | | Store 0x2,0x6
040e 00db | | Load_Top At_Offset_3
040f 7002 |p | Jump_Nonzero 0x412
0410 8409 | | Call 0x2,0x9
0411 7802 |x | Jump 0x414
0412 00db | | Load_Top At_Offset_3
0413 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0414 00da | | Load_Top At_Offset_2
0415 0e10 | | Execute_Immediate Not_Equal,0x10
0416 680e |h | Jump_Zero 0x425
0417 00d9 | | Load_Top At_Offset_1
0418 00db | | Load_Top At_Offset_3
0419 00d8 | | Load_Top At_Offset_0
041a e211 | | Load 0x1,0x11
041b 0260 | ` | Execute Discrete,In_Type
041c 7001 |p | Jump_Nonzero 0x41e
041d 0801 | | Execute_Immediate Raise,0x1
041e 800d | | Call 0x0,0xd
041f 00d1 | | Pop_Control Pop_Count_1
0420 00d9 | | Load_Top At_Offset_1
0421 e009 | | Load 0x0,0x9
0422 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0423 e00c | | Load 0x0,0xc
0424 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0425 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0426 0000 0000 | | .XXX[0x2]
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 043c | < | .CONST 0x043c ; Address of begin
0429 0004 | | .CONST 0x0004 ; Address of exception handler
042a 0008 | | .CONST 0x0008 ; Number of locals
042b INIT_0428:
042b e223 | # | Load 0x1,0x23
042c 0007 | | Action Break_Optional
042d e213 | | Load 0x1,0x13
042e 0337 | 7 | Declare_Variable Array
042f 00e2 | | Load_Encached Integer_Cache
0430 e211 | | Load 0x1,0x11
0431 0007 | | Action Break_Optional
0432 e210 | | Load 0x1,0x10
0433 0007 | | Action Break_Optional
0434 4850 |HP | Short_Literal 0x50
0435 e009 | | Load 0x0,0x9
0436 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0437 1c08 | | Execute_Immediate Run_Utility,0x8
0438 00d8 | | Load_Top At_Offset_0
0439 1c00 | | Execute_Immediate Run_Utility,0x0
043a 029f 064b | K| Declare_Subprogram INIT_0648,For_Call
043c BODY_0428:
043c 00db | | Load_Top At_Offset_3
043d e402 | | Load 0x2,0x2
043e 4801 |H | Short_Literal 0x1
043f 4800 |H | Short_Literal 0x0
0440 4800 |H | Short_Literal 0x0
0441 e224 | $ | Load 0x1,0x24
0442 8214 | | Call 0x1,0x14
0443 c402 | | Store 0x2,0x2
0444 c405 | | Store 0x2,0x5
0445 00db | | Load_Top At_Offset_3
0446 7002 |p | Jump_Nonzero 0x449
0447 8408 | | Call 0x2,0x8
0448 7802 |x | Jump 0x44b
0449 00db | | Load_Top At_Offset_3
044a 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
044b 00da | | Load_Top At_Offset_2
044c 0e10 | | Execute_Immediate Not_Equal,0x10
044d 6803 |h | Jump_Zero 0x451
044e 0092 07d3 | | Action Push_String_Extended,0x7d3 ; "DFS *** unable to get revision ***"
0450 00ca | | Action Exit_Nullary_Function
0451 0831 | 1 | Execute_Immediate Raise,0x31
0452 0000 0000 | | .BLANK 0000[0x6]
0458 ; --------------------------------------------------------------------------------------
0458 ; SUBPROGRAM
0458 ; --------------------------------------------------------------------------------------
0458 045d | ] | .CONST 0x045d ; Address of begin
0459 0460 | ` | .CONST 0x0460 ; Address of exception handler
045a 0002 | | .CONST 0x0002 ; Number of locals
045b INIT_0458:
045b 029f 069b | | Declare_Subprogram INIT_0698,For_Call
045d BODY_0458:
045d 8221 | ! | Call 0x1,0x21
045e 8402 | | Call 0x2,0x2
045f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0460 TRAP_0458:
0460 0007 | | Action Break_Optional
0461 00ea | | Load_Encached Null_String_Cache
0462 8402 | | Call 0x2,0x2
0463 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0464 0000 0000 | | .BLANK 0000[0x4]
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 047e | ~ | .CONST 0x047e ; Address of begin
0469 0004 | | .CONST 0x0004 ; Address of exception handler
046a 000a | | .CONST 0x000a ; Number of locals
046b INIT_0468:
046b e223 | # | Load 0x1,0x23
046c 0007 | | Action Break_Optional
046d e213 | | Load 0x1,0x13
046e 0337 | 7 | Declare_Variable Array
046f 00e2 | | Load_Encached Integer_Cache
0470 03e9 | | Declare_Variable Discrete,Duplicate
0471 03e9 | | Declare_Variable Discrete,Duplicate
0472 e211 | | Load 0x1,0x11
0473 0007 | | Action Break_Optional
0474 e210 | | Load 0x1,0x10
0475 0007 | | Action Break_Optional
0476 4850 |HP | Short_Literal 0x50
0477 e009 | | Load 0x0,0x9
0478 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0479 1c08 | | Execute_Immediate Run_Utility,0x8
047a 00d8 | | Load_Top At_Offset_0
047b 1c00 | | Execute_Immediate Run_Utility,0x0
047c 029f 06ab | | Declare_Subprogram INIT_06a8,For_Call
047e BODY_0468:
047e 00db | | Load_Top At_Offset_3
047f e402 | | Load 0x2,0x2
0480 4801 |H | Short_Literal 0x1
0481 4800 |H | Short_Literal 0x0
0482 4800 |H | Short_Literal 0x0
0483 e225 | % | Load 0x1,0x25
0484 8214 | | Call 0x1,0x14
0485 c402 | | Store 0x2,0x2
0486 c407 | | Store 0x2,0x7
0487 00db | | Load_Top At_Offset_3
0488 7002 |p | Jump_Nonzero 0x48b
0489 840a | | Call 0x2,0xa
048a 7802 |x | Jump 0x48d
048b 00db | | Load_Top At_Offset_3
048c 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
048d 00da | | Load_Top At_Offset_2
048e 0e10 | | Execute_Immediate Not_Equal,0x10
048f 6802 |h | Jump_Zero 0x492
0490 00ea | | Load_Encached Null_String_Cache
0491 00ca | | Action Exit_Nullary_Function
0492 0831 | 1 | Execute_Immediate Raise,0x31
0493 0000 0000 | | .BLANK 0000[0x5]
0498 ; --------------------------------------------------------------------------------------
0498 ; SUBPROGRAM
0498 ; --------------------------------------------------------------------------------------
0498 04a0 | | .CONST 0x04a0 ; Address of begin
0499 04b1 | | .CONST 0x04b1 ; Address of exception handler
049a 0002 | | .CONST 0x0002 ; Number of locals
049b INIT_0498:
049b e00e | | Load 0x0,0xe
049c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
049d 02c7 | | Declare_Variable Any
049e 00d8 | | Load_Top At_Offset_0
049f 1c00 | | Execute_Immediate Run_Utility,0x0
04a0 BODY_0498:
04a0 00d8 | | Load_Top At_Offset_0
04a1 e011 | | Load 0x0,0x11
04a2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04a3 e010 | | Load 0x0,0x10
04a4 181e | | Execute Package,Field_Execute,Field_Number 0x1e
04a5 00ea | | Load_Encached Null_String_Cache
04a6 e5ff | | Load 0x2,-0x1
04a7 4801 |H | Short_Literal 0x1
04a8 e00e | | Load 0x0,0xe
04a9 1814 | | Execute Package,Field_Execute,Field_Number 0x14
04aa c402 | | Store 0x2,0x2
04ab 00d8 | | Load_Top At_Offset_0
04ac e00e | | Load 0x0,0xe
04ad 1819 | | Execute Package,Field_Execute,Field_Number 0x19
04ae c402 | | Store 0x2,0x2
04af 4800 |H | Short_Literal 0x0
04b0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04b1 TRAP_0498:
04b1 00d8 | | Load_Top At_Offset_0
04b2 0107 | | Execute Exception,Get_Name
04b3 4900 |I | Short_Literal 0x100
04b4 490f |I | Short_Literal 0x10f
04b5 0262 | b | Execute Discrete,In_Range
04b6 6802 |h | Jump_Zero 0x4b9
04b7 4801 |H | Short_Literal 0x1
04b8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04b9 00d8 | | Load_Top At_Offset_0
04ba 0107 | | Execute Exception,Get_Name
04bb 4920 |I | Short_Literal 0x120
04bc 492f |I/ | Short_Literal 0x12f
04bd 0262 | b | Execute Discrete,In_Range
04be 6802 |h | Jump_Zero 0x4c1
04bf 4800 |H | Short_Literal 0x0
04c0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04c1 00d8 | | Load_Top At_Offset_0
04c2 0107 | | Execute Exception,Get_Name
04c3 4930 |I0 | Short_Literal 0x130
04c4 493f |I? | Short_Literal 0x13f
04c5 0262 | b | Execute Discrete,In_Range
04c6 6802 |h | Jump_Zero 0x4c9
04c7 4801 |H | Short_Literal 0x1
04c8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04c9 0100 | | Execute Exception,Raise
04ca 0000 0000 | | .BLANK 0000[0x6]
04d0 ; --------------------------------------------------------------------------------------
04d0 ; SUBPROGRAM
04d0 ; --------------------------------------------------------------------------------------
04d0 04e0 | | .CONST 0x04e0 ; Address of begin
04d1 04f0 | | .CONST 0x04f0 ; Address of exception handler
04d2 0007 | | .CONST 0x0007 ; Number of locals
04d3 INIT_04d0:
04d3 e223 | # | Load 0x1,0x23
04d4 0007 | | Action Break_Optional
04d5 e213 | | Load 0x1,0x13
04d6 0337 | 7 | Declare_Variable Array
04d7 00e2 | | Load_Encached Integer_Cache
04d8 e00e | | Load 0x0,0xe
04d9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04da 02c7 | | Declare_Variable Any
04db 00d8 | | Load_Top At_Offset_0
04dc 1c00 | | Execute_Immediate Run_Utility,0x0
04dd e211 | | Load 0x1,0x11
04de 029f 0723 | #| Declare_Subprogram INIT_0720,For_Call
04e0 BODY_04d0:
04e0 00d9 | | Load_Top At_Offset_1
04e1 e402 | | Load 0x2,0x2
04e2 4801 |H | Short_Literal 0x1
04e3 4800 |H | Short_Literal 0x0
04e4 4800 |H | Short_Literal 0x0
04e5 e5ff | | Load 0x2,-0x1
04e6 8214 | | Call 0x1,0x14
04e7 c402 | | Store 0x2,0x2
04e8 005a | Z | Store_Top Discrete,At_Offset_2
04e9 00d9 | | Load_Top At_Offset_1
04ea 7002 |p | Jump_Nonzero 0x4ed
04eb 8407 | | Call 0x2,0x7
04ec 4505 |E | Exit_Suprogram New_Top_Offset 0x5
04ed 00d9 | | Load_Top At_Offset_1
04ee a5fb | | Store_Unchecked 0x2,-0x5
04ef 4505 |E | Exit_Suprogram New_Top_Offset 0x5
04f0 TRAP_04d0:
04f0 00d8 | | Load_Top At_Offset_0
04f1 0107 | | Execute Exception,Get_Name
04f2 4900 |I | Short_Literal 0x100
04f3 490f |I | Short_Literal 0x10f
04f4 0262 | b | Execute Discrete,In_Range
04f5 6803 |h | Jump_Zero 0x4f9
04f6 4814 |H | Short_Literal 0x14
04f7 a5fb | | Store_Unchecked 0x2,-0x5
04f8 4505 |E | Exit_Suprogram New_Top_Offset 0x5
04f9 00d8 | | Load_Top At_Offset_0
04fa 0107 | | Execute Exception,Get_Name
04fb 4920 |I | Short_Literal 0x120
04fc 492f |I/ | Short_Literal 0x12f
04fd 0262 | b | Execute Discrete,In_Range
04fe 6803 |h | Jump_Zero 0x502
04ff 4812 |H | Short_Literal 0x12
0500 a5fb | | Store_Unchecked 0x2,-0x5
0501 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0502 00d8 | | Load_Top At_Offset_0
0503 0107 | | Execute Exception,Get_Name
0504 4930 |I0 | Short_Literal 0x130
0505 493f |I? | Short_Literal 0x13f
0506 0262 | b | Execute Discrete,In_Range
0507 6803 |h | Jump_Zero 0x50b
0508 4815 |H | Short_Literal 0x15
0509 a5fb | | Store_Unchecked 0x2,-0x5
050a 4505 |E | Exit_Suprogram New_Top_Offset 0x5
050b 0100 | | Execute Exception,Raise
050c 0000 0000 | | .BLANK 0000[0x4]
0510 ; --------------------------------------------------------------------------------------
0510 ; SUBPROGRAM
0510 ; --------------------------------------------------------------------------------------
0510 0513 | | .CONST 0x0513 ; Address of begin
0511 0004 | | .CONST 0x0004 ; Address of exception handler
0512 0001 | | .CONST 0x0001 ; Number of locals
0513 BODY_0510:
0513 INIT_0510:
0513 00da | | Load_Top At_Offset_2
0514 e014 | | Load 0x0,0x14
0515 180d | | Execute Package,Field_Execute,Field_Number 0xd
0516 e00c | | Load 0x0,0xc
0517 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
0518 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0519 0000 0000 | | .BLANK 0000[0x7]
0520 ; --------------------------------------------------------------------------------------
0520 ; SUBPROGRAM
0520 ; --------------------------------------------------------------------------------------
0520 0523 | # | .CONST 0x0523 ; Address of begin
0521 0004 | | .CONST 0x0004 ; Address of exception handler
0522 0001 | | .CONST 0x0001 ; Number of locals
0523 BODY_0520:
0523 INIT_0520:
0523 4810 |H | Short_Literal 0x10
0524 a407 | | Store_Unchecked 0x2,0x7
0525 00cf | | Action Mark_Auxiliary
0526 e402 | | Load 0x2,0x2
0527 0227 | ' | Execute Access,All_Reference
0528 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0529 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
052a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
052b 0aff | | Execute_Immediate Plus,-0x1
052c 4801 |H | Short_Literal 0x1
052d 0263 | c | Execute Discrete,Above_Bound
052e 702d |p- | Jump_Nonzero 0x55c
052f e406 | | Load 0x2,0x6
0530 e403 | | Load 0x2,0x3
0531 e402 | | Load 0x2,0x2
0532 4801 |H | Short_Literal 0x1
0533 8215 | | Call 0x1,0x15
0534 c402 | | Store 0x2,0x2
0535 00d1 | | Pop_Control Pop_Count_1
0536 c406 | | Store 0x2,0x6
0537 e406 | | Load 0x2,0x6
0538 701d |p | Jump_Nonzero 0x556
0539 e403 | | Load 0x2,0x3
053a 00d8 | | Load_Top At_Offset_0
053b 01da | | Execute Vector,Bounds
053c e002 | | Load 0x0,0x2
053d 1b12 | | Execute Package,Field_Read,Field_Number 0x12
053e 0334 | 4 | Declare_Variable Array,With_Constraint
053f 00d0 | | Action Swap_Control
0540 00d8 | | Load_Top At_Offset_0
0541 01dd | | Execute Vector,First
0542 00da | | Load_Top At_Offset_2
0543 01dd | | Execute Vector,First
0544 0272 | r | Execute Discrete,Minus
0545 00da | | Load_Top At_Offset_2
0546 01d9 | | Execute Vector,Reverse_Bounds
0547 0263 | c | Execute Discrete,Above_Bound
0548 700a |p | Jump_Nonzero 0x553
0549 00d8 | | Load_Top At_Offset_0
054a 00db | | Load_Top At_Offset_3
054b 0273 | s | Execute Discrete,Plus
054c e606 | | Load 0x3,0x6
054d 01d7 | | Execute Vector,Field_Read
054e 00d9 | | Load_Top At_Offset_1
054f e605 | | Load 0x3,0x5
0550 01d5 | | Execute Vector,Field_Reference
0551 0118 | | Execute Any,Write_Unchecked
0552 3ff6 |? | Loop_Increasing 0x549
0553 00d2 | | Pop_Control Pop_Count_2
0554 8228 | ( | Call 0x1,0x28
0555 7804 |x | Jump 0x55a
0556 e406 | | Load 0x2,0x6
0557 a407 | | Store_Unchecked 0x2,0x7
0558 00d2 | | Pop_Control Pop_Count_2
0559 7802 |x | Jump 0x55c
055a 00c8 | | Action Pop_Auxiliary_Range
055b 3fd3 |? | Loop_Increasing 0x52f
055c 00ce | | Action Pop_Auxiliary
055d e407 | | Load 0x2,0x7
055e 0f10 | | Execute_Immediate Equal,0x10
055f 6836 |h6 | Jump_Zero 0x596
0560 e406 | | Load 0x2,0x6
0561 e403 | | Load 0x2,0x3
0562 e402 | | Load 0x2,0x2
0563 4801 |H | Short_Literal 0x1
0564 8215 | | Call 0x1,0x15
0565 c402 | | Store 0x2,0x2
0566 00d1 | | Pop_Control Pop_Count_1
0567 c406 | | Store 0x2,0x6
0568 00cf | | Action Mark_Auxiliary
0569 4800 |H | Short_Literal 0x0
056a 4bff |K | Short_Literal 0x3ff
056b 0007 | | Action Break_Optional
056c 00d8 | | Load_Top At_Offset_0
056d e403 | | Load 0x2,0x3
056e 01d7 | | Execute Vector,Field_Read
056f 6804 |h | Jump_Zero 0x574
0570 00d8 | | Load_Top At_Offset_0
0571 a404 | | Store_Unchecked 0x2,0x4
0572 00d2 | | Pop_Control Pop_Count_2
0573 7802 |x | Jump 0x576
0574 00c8 | | Action Pop_Auxiliary_Range
0575 37f6 |7 | Loop_Decreasing 0x56c
0576 00ce | | Action Pop_Auxiliary
0577 4800 |H | Short_Literal 0x0
0578 e404 | | Load 0x2,0x4
0579 e403 | | Load 0x2,0x3
057a 01cf | | Execute Vector,Slice_Read
057b 00d8 | | Load_Top At_Offset_0
057c 01da | | Execute Vector,Bounds
057d e002 | | Load 0x0,0x2
057e 1b12 | | Execute Package,Field_Read,Field_Number 0x12
057f 0334 | 4 | Declare_Variable Array,With_Constraint
0580 00d0 | | Action Swap_Control
0581 00d8 | | Load_Top At_Offset_0
0582 01dd | | Execute Vector,First
0583 00da | | Load_Top At_Offset_2
0584 01dd | | Execute Vector,First
0585 0272 | r | Execute Discrete,Minus
0586 00da | | Load_Top At_Offset_2
0587 01d9 | | Execute Vector,Reverse_Bounds
0588 0263 | c | Execute Discrete,Above_Bound
0589 700a |p | Jump_Nonzero 0x594
058a 00d8 | | Load_Top At_Offset_0
058b 00db | | Load_Top At_Offset_3
058c 0273 | s | Execute Discrete,Plus
058d e603 | | Load 0x3,0x3
058e 01d7 | | Execute Vector,Field_Read
058f 00d9 | | Load_Top At_Offset_1
0590 e602 | | Load 0x3,0x2
0591 01d5 | | Execute Vector,Field_Reference
0592 0118 | | Execute Any,Write_Unchecked
0593 3ff6 |? | Loop_Increasing 0x58a
0594 00d2 | | Pop_Control Pop_Count_2
0595 8228 | ( | Call 0x1,0x28
0596 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0597 0000 | | .XXX[0x1]
0598 ; --------------------------------------------------------------------------------------
0598 ; SUBPROGRAM
0598 ; --------------------------------------------------------------------------------------
0598 059b | | .CONST 0x059b ; Address of begin
0599 0004 | | .CONST 0x0004 ; Address of exception handler
059a 0001 | | .CONST 0x0001 ; Number of locals
059b BODY_0598:
059b INIT_0598:
059b 4810 |H | Short_Literal 0x10
059c a407 | | Store_Unchecked 0x2,0x7
059d 00cf | | Action Mark_Auxiliary
059e e402 | | Load 0x2,0x2
059f 0227 | ' | Execute Access,All_Reference
05a0 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
05a1 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
05a2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
05a3 0aff | | Execute_Immediate Plus,-0x1
05a4 4801 |H | Short_Literal 0x1
05a5 0263 | c | Execute Discrete,Above_Bound
05a6 7066 |pf | Jump_Nonzero 0x60d
05a7 e406 | | Load 0x2,0x6
05a8 e403 | | Load 0x2,0x3
05a9 e402 | | Load 0x2,0x2
05aa 4801 |H | Short_Literal 0x1
05ab 8215 | | Call 0x1,0x15
05ac c402 | | Store 0x2,0x2
05ad 00d1 | | Pop_Control Pop_Count_1
05ae c406 | | Store 0x2,0x6
05af e406 | | Load 0x2,0x6
05b0 7056 |pV | Jump_Nonzero 0x607
05b1 e5ff | | Load 0x2,-0x1
05b2 7037 |p7 | Jump_Nonzero 0x5ea
05b3 00cf | | Action Mark_Auxiliary
05b4 4bfe |K | Short_Literal 0x3fe
05b5 4802 |H | Short_Literal 0x2
05b6 0007 | | Action Break_Optional
05b7 00d8 | | Load_Top At_Offset_0
05b8 e403 | | Load 0x2,0x3
05b9 01d7 | | Execute Vector,Field_Read
05ba 0f0a | | Execute_Immediate Equal,0xa
05bb 680b |h | Jump_Zero 0x5c7
05bc 00d8 | | Load_Top At_Offset_0
05bd 0a01 | | Execute_Immediate Plus,0x1
05be e403 | | Load 0x2,0x3
05bf 01d7 | | Execute Vector,Field_Read
05c0 0f0a | | Execute_Immediate Equal,0xa
05c1 6805 |h | Jump_Zero 0x5c7
05c2 00d8 | | Load_Top At_Offset_0
05c3 0aff | | Execute_Immediate Plus,-0x1
05c4 a404 | | Store_Unchecked 0x2,0x4
05c5 00d2 | | Pop_Control Pop_Count_2
05c6 7802 |x | Jump 0x5c9
05c7 00c8 | | Action Pop_Auxiliary_Range
05c8 3fee |? | Loop_Increasing 0x5b7
05c9 00ce | | Action Pop_Auxiliary
05ca 4800 |H | Short_Literal 0x0
05cb e404 | | Load 0x2,0x4
05cc e403 | | Load 0x2,0x3
05cd 01cf | | Execute Vector,Slice_Read
05ce 00d8 | | Load_Top At_Offset_0
05cf 01da | | Execute Vector,Bounds
05d0 e002 | | Load 0x0,0x2
05d1 1b12 | | Execute Package,Field_Read,Field_Number 0x12
05d2 0334 | 4 | Declare_Variable Array,With_Constraint
05d3 00d0 | | Action Swap_Control
05d4 00d8 | | Load_Top At_Offset_0
05d5 01dd | | Execute Vector,First
05d6 00da | | Load_Top At_Offset_2
05d7 01dd | | Execute Vector,First
05d8 0272 | r | Execute Discrete,Minus
05d9 00da | | Load_Top At_Offset_2
05da 01d9 | | Execute Vector,Reverse_Bounds
05db 0263 | c | Execute Discrete,Above_Bound
05dc 700a |p | Jump_Nonzero 0x5e7
05dd 00d8 | | Load_Top At_Offset_0
05de 00db | | Load_Top At_Offset_3
05df 0273 | s | Execute Discrete,Plus
05e0 e606 | | Load 0x3,0x6
05e1 01d7 | | Execute Vector,Field_Read
05e2 00d9 | | Load_Top At_Offset_1
05e3 e605 | | Load 0x3,0x5
05e4 01d5 | | Execute Vector,Field_Reference
05e5 0118 | | Execute Any,Write_Unchecked
05e6 3ff6 |? | Loop_Increasing 0x5dd
05e7 00d2 | | Pop_Control Pop_Count_2
05e8 8228 | ( | Call 0x1,0x28
05e9 7821 |x! | Jump 0x60b
05ea e403 | | Load 0x2,0x3
05eb 00d8 | | Load_Top At_Offset_0
05ec 01da | | Execute Vector,Bounds
05ed e002 | | Load 0x0,0x2
05ee 1b12 | | Execute Package,Field_Read,Field_Number 0x12
05ef 0334 | 4 | Declare_Variable Array,With_Constraint
05f0 00d0 | | Action Swap_Control
05f1 00d8 | | Load_Top At_Offset_0
05f2 01dd | | Execute Vector,First
05f3 00da | | Load_Top At_Offset_2
05f4 01dd | | Execute Vector,First
05f5 0272 | r | Execute Discrete,Minus
05f6 00da | | Load_Top At_Offset_2
05f7 01d9 | | Execute Vector,Reverse_Bounds
05f8 0263 | c | Execute Discrete,Above_Bound
05f9 700a |p | Jump_Nonzero 0x604
05fa 00d8 | | Load_Top At_Offset_0
05fb 00db | | Load_Top At_Offset_3
05fc 0273 | s | Execute Discrete,Plus
05fd e606 | | Load 0x3,0x6
05fe 01d7 | | Execute Vector,Field_Read
05ff 00d9 | | Load_Top At_Offset_1
0600 e605 | | Load 0x3,0x5
0601 01d5 | | Execute Vector,Field_Reference
0602 0118 | | Execute Any,Write_Unchecked
0603 3ff6 |? | Loop_Increasing 0x5fa
0604 00d2 | | Pop_Control Pop_Count_2
0605 8228 | ( | Call 0x1,0x28
0606 7804 |x | Jump 0x60b
0607 e406 | | Load 0x2,0x6
0608 a407 | | Store_Unchecked 0x2,0x7
0609 00d2 | | Pop_Control Pop_Count_2
060a 7802 |x | Jump 0x60d
060b 00c8 | | Action Pop_Auxiliary_Range
060c 3f9a |? | Loop_Increasing 0x5a7
060d 00ce | | Action Pop_Auxiliary
060e e407 | | Load 0x2,0x7
060f 0f10 | | Execute_Immediate Equal,0x10
0610 6836 |h6 | Jump_Zero 0x647
0611 e406 | | Load 0x2,0x6
0612 e403 | | Load 0x2,0x3
0613 e402 | | Load 0x2,0x2
0614 4801 |H | Short_Literal 0x1
0615 8215 | | Call 0x1,0x15
0616 c402 | | Store 0x2,0x2
0617 00d1 | | Pop_Control Pop_Count_1
0618 c406 | | Store 0x2,0x6
0619 00cf | | Action Mark_Auxiliary
061a 4800 |H | Short_Literal 0x0
061b 4bff |K | Short_Literal 0x3ff
061c 0007 | | Action Break_Optional
061d 00d8 | | Load_Top At_Offset_0
061e e403 | | Load 0x2,0x3
061f 01d7 | | Execute Vector,Field_Read
0620 6804 |h | Jump_Zero 0x625
0621 00d8 | | Load_Top At_Offset_0
0622 a405 | | Store_Unchecked 0x2,0x5
0623 00d2 | | Pop_Control Pop_Count_2
0624 7802 |x | Jump 0x627
0625 00c8 | | Action Pop_Auxiliary_Range
0626 37f6 |7 | Loop_Decreasing 0x61d
0627 00ce | | Action Pop_Auxiliary
0628 4800 |H | Short_Literal 0x0
0629 e405 | | Load 0x2,0x5
062a e403 | | Load 0x2,0x3
062b 01cf | | Execute Vector,Slice_Read
062c 00d8 | | Load_Top At_Offset_0
062d 01da | | Execute Vector,Bounds
062e e002 | | Load 0x0,0x2
062f 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0630 0334 | 4 | Declare_Variable Array,With_Constraint
0631 00d0 | | Action Swap_Control
0632 00d8 | | Load_Top At_Offset_0
0633 01dd | | Execute Vector,First
0634 00da | | Load_Top At_Offset_2
0635 01dd | | Execute Vector,First
0636 0272 | r | Execute Discrete,Minus
0637 00da | | Load_Top At_Offset_2
0638 01d9 | | Execute Vector,Reverse_Bounds
0639 0263 | c | Execute Discrete,Above_Bound
063a 700a |p | Jump_Nonzero 0x645
063b 00d8 | | Load_Top At_Offset_0
063c 00db | | Load_Top At_Offset_3
063d 0273 | s | Execute Discrete,Plus
063e e603 | | Load 0x3,0x3
063f 01d7 | | Execute Vector,Field_Read
0640 00d9 | | Load_Top At_Offset_1
0641 e602 | | Load 0x3,0x2
0642 01d5 | | Execute Vector,Field_Reference
0643 0118 | | Execute Any,Write_Unchecked
0644 3ff6 |? | Loop_Increasing 0x63b
0645 00d2 | | Pop_Control Pop_Count_2
0646 8228 | ( | Call 0x1,0x28
0647 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0648 ; --------------------------------------------------------------------------------------
0648 ; SUBPROGRAM
0648 ; --------------------------------------------------------------------------------------
0648 064b | K | .CONST 0x064b ; Address of begin
0649 0004 | | .CONST 0x0004 ; Address of exception handler
064a 0001 | | .CONST 0x0001 ; Number of locals
064b BODY_0648:
064b INIT_0648:
064b 4810 |H | Short_Literal 0x10
064c a406 | | Store_Unchecked 0x2,0x6
064d e405 | | Load 0x2,0x5
064e e403 | | Load 0x2,0x3
064f e402 | | Load 0x2,0x2
0650 4801 |H | Short_Literal 0x1
0651 8215 | | Call 0x1,0x15
0652 c402 | | Store 0x2,0x2
0653 00d1 | | Pop_Control Pop_Count_1
0654 c405 | | Store 0x2,0x5
0655 e405 | | Load 0x2,0x5
0656 703b |p; | Jump_Nonzero 0x692
0657 4bff |K | Short_Literal 0x3ff
0658 a404 | | Store_Unchecked 0x2,0x4
0659 00cf | | Action Mark_Auxiliary
065a 4bfe |K | Short_Literal 0x3fe
065b 4802 |H | Short_Literal 0x2
065c 0007 | | Action Break_Optional
065d 00d8 | | Load_Top At_Offset_0
065e e403 | | Load 0x2,0x3
065f 01d7 | | Execute Vector,Field_Read
0660 0f0a | | Execute_Immediate Equal,0xa
0661 680b |h | Jump_Zero 0x66d
0662 00d8 | | Load_Top At_Offset_0
0663 0a01 | | Execute_Immediate Plus,0x1
0664 e403 | | Load 0x2,0x3
0665 01d7 | | Execute Vector,Field_Read
0666 0f0a | | Execute_Immediate Equal,0xa
0667 6805 |h | Jump_Zero 0x66d
0668 00d8 | | Load_Top At_Offset_0
0669 0aff | | Execute_Immediate Plus,-0x1
066a a404 | | Store_Unchecked 0x2,0x4
066b 00d2 | | Pop_Control Pop_Count_2
066c 7802 |x | Jump 0x66f
066d 00c8 | | Action Pop_Auxiliary_Range
066e 3fee |? | Loop_Increasing 0x65d
066f 00ce | | Action Pop_Auxiliary
0670 4800 |H | Short_Literal 0x0
0671 e404 | | Load 0x2,0x4
0672 e403 | | Load 0x2,0x3
0673 01cf | | Execute Vector,Slice_Read
0674 00d8 | | Load_Top At_Offset_0
0675 01da | | Execute Vector,Bounds
0676 e002 | | Load 0x0,0x2
0677 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0678 0334 | 4 | Declare_Variable Array,With_Constraint
0679 00d0 | | Action Swap_Control
067a 00d8 | | Load_Top At_Offset_0
067b 01dd | | Execute Vector,First
067c 00da | | Load_Top At_Offset_2
067d 01dd | | Execute Vector,First
067e 0272 | r | Execute Discrete,Minus
067f 00da | | Load_Top At_Offset_2
0680 01d9 | | Execute Vector,Reverse_Bounds
0681 0263 | c | Execute Discrete,Above_Bound
0682 700a |p | Jump_Nonzero 0x68d
0683 00d8 | | Load_Top At_Offset_0
0684 00db | | Load_Top At_Offset_3
0685 0273 | s | Execute Discrete,Plus
0686 e603 | | Load 0x3,0x3
0687 01d7 | | Execute Vector,Field_Read
0688 00d9 | | Load_Top At_Offset_1
0689 e602 | | Load 0x3,0x2
068a 01d5 | | Execute Vector,Field_Reference
068b 0118 | | Execute Any,Write_Unchecked
068c 3ff6 |? | Loop_Increasing 0x683
068d 00d2 | | Pop_Control Pop_Count_2
068e e014 | | Load 0x0,0x14
068f 180d | | Execute Package,Field_Execute,Field_Number 0xd
0690 00cb | | Action Pop_Block_With_Result
0691 00ca | | Action Exit_Nullary_Function
0692 e405 | | Load 0x2,0x5
0693 a406 | | Store_Unchecked 0x2,0x6
0694 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0695 0000 0000 | | .XXX[0x3]
0697 0000 | |
0698 ; --------------------------------------------------------------------------------------
0698 ; SUBPROGRAM
0698 ; --------------------------------------------------------------------------------------
0698 069b | | .CONST 0x069b ; Address of begin
0699 0004 | | .CONST 0x0004 ; Address of exception handler
069a 0001 | | .CONST 0x0001 ; Number of locals
069b BODY_0698:
069b INIT_0698:
069b 00da | | Load_Top At_Offset_2
069c 01db | | Execute Vector,Length
069d 7005 |p | Jump_Nonzero 0x6a3
069e 0092 07d4 | | Action Push_String_Extended,0x7d4 ; "*** Could not get kernel version ***"
06a0 e00c | | Load 0x0,0xc
06a1 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
06a2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
06a3 00da | | Load_Top At_Offset_2
06a4 e00c | | Load 0x0,0xc
06a5 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
06a6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
06a7 0000 | | .XXX[0x1]
06a8 ; --------------------------------------------------------------------------------------
06a8 ; SUBPROGRAM
06a8 ; --------------------------------------------------------------------------------------
06a8 06ab | | .CONST 0x06ab ; Address of begin
06a9 0004 | | .CONST 0x0004 ; Address of exception handler
06aa 0001 | | .CONST 0x0001 ; Number of locals
06ab BODY_06a8:
06ab INIT_06a8:
06ab 4810 |H | Short_Literal 0x10
06ac a408 | | Store_Unchecked 0x2,0x8
06ad e407 | | Load 0x2,0x7
06ae e403 | | Load 0x2,0x3
06af e402 | | Load 0x2,0x2
06b0 4801 |H | Short_Literal 0x1
06b1 8215 | | Call 0x1,0x15
06b2 c402 | | Store 0x2,0x2
06b3 00d1 | | Pop_Control Pop_Count_1
06b4 c407 | | Store 0x2,0x7
06b5 e407 | | Load 0x2,0x7
06b6 7065 |pe | Jump_Nonzero 0x71c
06b7 e407 | | Load 0x2,0x7
06b8 e403 | | Load 0x2,0x3
06b9 e402 | | Load 0x2,0x2
06ba 4801 |H | Short_Literal 0x1
06bb 8215 | | Call 0x1,0x15
06bc c402 | | Store 0x2,0x2
06bd 00d1 | | Pop_Control Pop_Count_1
06be c407 | | Store 0x2,0x7
06bf e407 | | Load 0x2,0x7
06c0 7039 |p9 | Jump_Nonzero 0x6fa
06c1 4801 |H | Short_Literal 0x1
06c2 a404 | | Store_Unchecked 0x2,0x4
06c3 4800 |H | Short_Literal 0x0
06c4 a406 | | Store_Unchecked 0x2,0x6
06c5 00cf | | Action Mark_Auxiliary
06c6 4bfc |K | Short_Literal 0x3fc
06c7 4801 |H | Short_Literal 0x1
06c8 0007 | | Action Break_Optional
06c9 00d8 | | Load_Top At_Offset_0
06ca e403 | | Load 0x2,0x3
06cb 01d7 | | Execute Vector,Field_Read
06cc 0f40 | @ | Execute_Immediate Equal,0x40
06cd 6829 |h) | Jump_Zero 0x6f7
06ce 00d8 | | Load_Top At_Offset_0
06cf 0a01 | | Execute_Immediate Plus,0x1
06d0 e403 | | Load 0x2,0x3
06d1 01d7 | | Execute Vector,Field_Read
06d2 0f28 | ( | Execute_Immediate Equal,0x28
06d3 6823 |h# | Jump_Zero 0x6f7
06d4 00d8 | | Load_Top At_Offset_0
06d5 0a02 | | Execute_Immediate Plus,0x2
06d6 e403 | | Load 0x2,0x3
06d7 01d7 | | Execute Vector,Field_Read
06d8 0f23 | # | Execute_Immediate Equal,0x23
06d9 681d |h | Jump_Zero 0x6f7
06da 00d8 | | Load_Top At_Offset_0
06db 0a03 | | Execute_Immediate Plus,0x3
06dc e403 | | Load 0x2,0x3
06dd 01d7 | | Execute Vector,Field_Read
06de 0f29 | ) | Execute_Immediate Equal,0x29
06df 6817 |h | Jump_Zero 0x6f7
06e0 00d8 | | Load_Top At_Offset_0
06e1 0a04 | | Execute_Immediate Plus,0x4
06e2 a405 | | Store_Unchecked 0x2,0x5
06e3 00cf | | Action Mark_Auxiliary
06e4 4bff |K | Short_Literal 0x3ff
06e5 e405 | | Load 0x2,0x5
06e6 0263 | c | Execute Discrete,Above_Bound
06e7 700e |p | Jump_Nonzero 0x6f6
06e8 00d8 | | Load_Top At_Offset_0
06e9 e403 | | Load 0x2,0x3
06ea 01d7 | | Execute Vector,Field_Read
06eb 0f5c | \ | Execute_Immediate Equal,0x5c
06ec 6807 |h | Jump_Zero 0x6f4
06ed e405 | | Load 0x2,0x5
06ee a404 | | Store_Unchecked 0x2,0x4
06ef 00d8 | | Load_Top At_Offset_0
06f0 0aff | | Execute_Immediate Plus,-0x1
06f1 c406 | | Store 0x2,0x6
06f2 00d2 | | Pop_Control Pop_Count_2
06f3 7802 |x | Jump 0x6f6
06f4 00c8 | | Action Pop_Auxiliary_Range
06f5 3ff2 |? | Loop_Increasing 0x6e8
06f6 00ce | | Action Pop_Auxiliary
06f7 00c8 | | Action Pop_Auxiliary_Range
06f8 3fd0 |? | Loop_Increasing 0x6c9
06f9 00ce | | Action Pop_Auxiliary
06fa e404 | | Load 0x2,0x4
06fb e406 | | Load 0x2,0x6
06fc e403 | | Load 0x2,0x3
06fd 01cf | | Execute Vector,Slice_Read
06fe 00d8 | | Load_Top At_Offset_0
06ff 01da | | Execute Vector,Bounds
0700 e002 | | Load 0x0,0x2
0701 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0702 0334 | 4 | Declare_Variable Array,With_Constraint
0703 00d0 | | Action Swap_Control
0704 00d8 | | Load_Top At_Offset_0
0705 01dd | | Execute Vector,First
0706 00da | | Load_Top At_Offset_2
0707 01dd | | Execute Vector,First
0708 0272 | r | Execute Discrete,Minus
0709 00da | | Load_Top At_Offset_2
070a 01d9 | | Execute Vector,Reverse_Bounds
070b 0263 | c | Execute Discrete,Above_Bound
070c 700a |p | Jump_Nonzero 0x717
070d 00d8 | | Load_Top At_Offset_0
070e 00db | | Load_Top At_Offset_3
070f 0273 | s | Execute Discrete,Plus
0710 e603 | | Load 0x3,0x3
0711 01d7 | | Execute Vector,Field_Read
0712 00d9 | | Load_Top At_Offset_1
0713 e602 | | Load 0x3,0x2
0714 01d5 | | Execute Vector,Field_Reference
0715 0118 | | Execute Any,Write_Unchecked
0716 3ff6 |? | Loop_Increasing 0x70d
0717 00d2 | | Pop_Control Pop_Count_2
0718 e014 | | Load 0x0,0x14
0719 180d | | Execute Package,Field_Execute,Field_Number 0xd
071a 00cb | | Action Pop_Block_With_Result
071b 00ca | | Action Exit_Nullary_Function
071c e407 | | Load 0x2,0x7
071d a408 | | Store_Unchecked 0x2,0x8
071e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
071f 0000 | | .XXX[0x1]
0720 ; --------------------------------------------------------------------------------------
0720 ; SUBPROGRAM
0720 ; --------------------------------------------------------------------------------------
0720 0723 | # | .CONST 0x0723 ; Address of begin
0721 0004 | | .CONST 0x0004 ; Address of exception handler
0722 0001 | | .CONST 0x0001 ; Number of locals
0723 BODY_0720:
0723 INIT_0720:
0723 e5fd | | Load 0x2,-0x3
0724 7006 |p | Jump_Nonzero 0x72b
0725 e5fe | | Load 0x2,-0x2
0726 8226 | & | Call 0x1,0x26
0727 6803 |h | Jump_Zero 0x72b
0728 4813 |H | Short_Literal 0x13
0729 a5fb | | Store_Unchecked 0x2,-0x5
072a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
072b e405 | | Load 0x2,0x5
072c e011 | | Load 0x0,0x11
072d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
072e e010 | | Load 0x0,0x10
072f 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0730 e010 | | Load 0x0,0x10
0731 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0732 00ea | | Load_Encached Null_String_Cache
0733 e5fe | | Load 0x2,-0x2
0734 4801 |H | Short_Literal 0x1
0735 e00e | | Load 0x0,0xe
0736 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0737 c405 | | Store 0x2,0x5
0738 4811 |H | Short_Literal 0x11
0739 a5fb | | Store_Unchecked 0x2,-0x5
073a 00cf | | Action Mark_Auxiliary
073b e402 | | Load 0x2,0x2
073c 0227 | ' | Execute Access,All_Reference
073d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
073e 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
073f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0740 0aff | | Execute_Immediate Plus,-0x1
0741 4801 |H | Short_Literal 0x1
0742 0263 | c | Execute Discrete,Above_Bound
0743 702f |p/ | Jump_Nonzero 0x773
0744 e406 | | Load 0x2,0x6
0745 e403 | | Load 0x2,0x3
0746 e402 | | Load 0x2,0x2
0747 4801 |H | Short_Literal 0x1
0748 8215 | | Call 0x1,0x15
0749 c402 | | Store 0x2,0x2
074a 00d1 | | Pop_Control Pop_Count_1
074b c406 | | Store 0x2,0x6
074c e406 | | Load 0x2,0x6
074d 701f |p | Jump_Nonzero 0x76d
074e e403 | | Load 0x2,0x3
074f 00d8 | | Load_Top At_Offset_0
0750 01da | | Execute Vector,Bounds
0751 e002 | | Load 0x0,0x2
0752 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0753 0334 | 4 | Declare_Variable Array,With_Constraint
0754 00d0 | | Action Swap_Control
0755 00d8 | | Load_Top At_Offset_0
0756 01dd | | Execute Vector,First
0757 00da | | Load_Top At_Offset_2
0758 01dd | | Execute Vector,First
0759 0272 | r | Execute Discrete,Minus
075a 00da | | Load_Top At_Offset_2
075b 01d9 | | Execute Vector,Reverse_Bounds
075c 0263 | c | Execute Discrete,Above_Bound
075d 700a |p | Jump_Nonzero 0x768
075e 00d8 | | Load_Top At_Offset_0
075f 00db | | Load_Top At_Offset_3
0760 0273 | s | Execute Discrete,Plus
0761 e606 | | Load 0x3,0x6
0762 01d7 | | Execute Vector,Field_Read
0763 00d9 | | Load_Top At_Offset_1
0764 e605 | | Load 0x3,0x5
0765 01d5 | | Execute Vector,Field_Reference
0766 0118 | | Execute Any,Write_Unchecked
0767 3ff6 |? | Loop_Increasing 0x75e
0768 00d2 | | Pop_Control Pop_Count_2
0769 e405 | | Load 0x2,0x5
076a e00e | | Load 0x0,0xe
076b 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
076c 7804 |x | Jump 0x771
076d e406 | | Load 0x2,0x6
076e a5fb | | Store_Unchecked 0x2,-0x5
076f 00d2 | | Pop_Control Pop_Count_2
0770 7802 |x | Jump 0x773
0771 00c8 | | Action Pop_Auxiliary_Range
0772 3fd1 |? | Loop_Increasing 0x744
0773 00ce | | Action Pop_Auxiliary
0774 e406 | | Load 0x2,0x6
0775 7030 |p0 | Jump_Nonzero 0x7a6
0776 e406 | | Load 0x2,0x6
0777 e404 | | Load 0x2,0x4
0778 e403 | | Load 0x2,0x3
0779 e402 | | Load 0x2,0x2
077a 4801 |H | Short_Literal 0x1
077b 821d | | Call 0x1,0x1d
077c c402 | | Store 0x2,0x2
077d 00d1 | | Pop_Control Pop_Count_1
077e c404 | | Store 0x2,0x4
077f c406 | | Store 0x2,0x6
0780 e406 | | Load 0x2,0x6
0781 7022 |p" | Jump_Nonzero 0x7a4
0782 4800 |H | Short_Literal 0x0
0783 e404 | | Load 0x2,0x4
0784 e403 | | Load 0x2,0x3
0785 01cf | | Execute Vector,Slice_Read
0786 00d8 | | Load_Top At_Offset_0
0787 01da | | Execute Vector,Bounds
0788 e002 | | Load 0x0,0x2
0789 1b12 | | Execute Package,Field_Read,Field_Number 0x12
078a 0334 | 4 | Declare_Variable Array,With_Constraint
078b 00d0 | | Action Swap_Control
078c 00d8 | | Load_Top At_Offset_0
078d 01dd | | Execute Vector,First
078e 00da | | Load_Top At_Offset_2
078f 01dd | | Execute Vector,First
0790 0272 | r | Execute Discrete,Minus
0791 00da | | Load_Top At_Offset_2
0792 01d9 | | Execute Vector,Reverse_Bounds
0793 0263 | c | Execute Discrete,Above_Bound
0794 700a |p | Jump_Nonzero 0x79f
0795 00d8 | | Load_Top At_Offset_0
0796 00db | | Load_Top At_Offset_3
0797 0273 | s | Execute Discrete,Plus
0798 e603 | | Load 0x3,0x3
0799 01d7 | | Execute Vector,Field_Read
079a 00d9 | | Load_Top At_Offset_1
079b e602 | | Load 0x3,0x2
079c 01d5 | | Execute Vector,Field_Reference
079d 0118 | | Execute Any,Write_Unchecked
079e 3ff6 |? | Loop_Increasing 0x795
079f 00d2 | | Pop_Control Pop_Count_2
07a0 e405 | | Load 0x2,0x5
07a1 e00e | | Load 0x0,0xe
07a2 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
07a3 7802 |x | Jump 0x7a6
07a4 e406 | | Load 0x2,0x6
07a5 a5fb | | Store_Unchecked 0x2,-0x5
07a6 e405 | | Load 0x2,0x5
07a7 e00e | | Load 0x0,0xe
07a8 1819 | | Execute Package,Field_Execute,Field_Number 0x19
07a9 c405 | | Store 0x2,0x5
07aa 4501 |E | Exit_Suprogram New_Top_Offset 0x1
07ab ; --------------------------------------------------------------------------------------
07ab ; STRING TABLE
07ab ; --------------------------------------------------------------------------------------
07ab 0056 | V | .STRTAB 0x0056->0x07d6 ; "IGNORE_ERRORS"
07ac 0061 | a | .STRTAB 0x0061->0x07dc ; "REPORT_ERRORS"
07ad 006c | l | .STRTAB 0x006c->0x07e3 ; "DIE_ON_ERRORS"
07ae 0077 | w | .STRTAB 0x0077->0x07e9 ; "MUST_EXIST"
07af 007f | | .STRTAB 0x007f->0x07ee ; "NEED_NOT_EXIST"
07b0 008b | | .STRTAB 0x008b->0x07f5 ; "MUST_NOT_EXIST"
07b1 0097 | | .STRTAB 0x0097->0x07fc ; "CLOSE"
07b2 009a | | .STRTAB 0x009a->0x07ff ; "RENAME"
07b3 009e | | .STRTAB 0x009e->0x0802 ; "DELETE"
07b4 00a2 | | .STRTAB 0x00a2->0x0805 ; "FS_OK"
07b5 00a5 | | .STRTAB 0x00a5->0x0807 ; "BAD_FILENAME"
07b6 00af | | .STRTAB 0x00af->0x080d ; "FILE_DOES_NOT_EXIST"
07b7 00c0 | | .STRTAB 0x00c0->0x0817 ; "FILE_IS_NOT_OPEN"
07b8 00ce | | .STRTAB 0x00ce->0x081f ; "DISK_FULL"
07b9 00d5 | | .STRTAB 0x00d5->0x0823 ; "DIRECTORY_FULL"
07ba 00e1 | | .STRTAB 0x00e1->0x082a ; "FILE_ALLREADY_EXISTS"
07bb 00f3 | | .STRTAB 0x00f3->0x0834 ; "CANT_RENAME"
07bc 00fc | | .STRTAB 0x00fc->0x083a ; "CANT_DELETE"
07bd 0105 | | .STRTAB 0x0105->0x083f ; "PAGE_ERROR"
07be 010d | | .STRTAB 0x010d->0x0844 ; "SLICE_ERROR"
07bf 0116 | | .STRTAB 0x0116->0x084a ; "BAD_ADDRESS"
07c0 011f | | .STRTAB 0x011f->0x084f ; "DISK_ERROR"
07c1 0127 | ' | .STRTAB 0x0127->0x0854 ; "NO_LABELS"
07c2 012e | . | .STRTAB 0x012e->0x0859 ; "NO_DOS"
07c3 0132 | 2 | .STRTAB 0x0132->0x085c ; "NO_DISK"
07c4 0137 | 7 | .STRTAB 0x0137->0x085f ; "DFS_OK"
07c5 013b | ; | .STRTAB 0x013b->0x0862 ; "ENV_OK"
07c6 013f | ? | .STRTAB 0x013f->0x0865 ; "ENV_NAME_ERROR"
07c7 014b | K | .STRTAB 0x014b->0x086c ; "ENV_ALREADY_EXISTS"
07c8 015b | [ | .STRTAB 0x015b->0x0875 ; "ENV_STATUS_ERROR"
07c9 0169 | i | .STRTAB 0x0169->0x087d ; "ENV_USE_ERROR"
07ca 0174 | t | .STRTAB 0x0174->0x0884 ; "DFS_RELEASE"
07cb 017d | } | .STRTAB 0x017d->0x0889 ; "R1000_DUMP1"
07cc 0186 | | .STRTAB 0x0186->0x088f ; "Error accessing environment file"
07cd 01a4 | | .STRTAB 0x01a4->0x089f ; "Environment file already open"
07ce 01bf | | .STRTAB 0x01bf->0x08ad ; "Invalid environment file name"
07cf 01da | | .STRTAB 0x01da->0x08bc ; "Environment file already exists, not overwritten"
07d0 0208 | | .STRTAB 0x0208->0x08d4 ; "Environment file "
07d1 0217 | | .STRTAB 0x0217->0x08dc ; " does not exist."
07d2 0225 | % | .STRTAB 0x0225->0x08e4 ; "Error accessing environment file information"
07d3 024f | O | .STRTAB 0x024f->0x08fa ; "DFS *** unable to get revision ***"
07d4 026f | o | .STRTAB 0x026f->0x090b ; "*** Could not get kernel version ***"
07d5 0291 | | .STREND 0x0291->0x091d
07d6 4947 4e4f |IGNO| .STRTAB_STRINGS
091e 0000 0000 | | .XXX[0x2]
0920 ; --------------------------------------------------------------------------------------
0920 ; Debug Table
0920 ; --------------------------------------------------------------------------------------
0920 0004 0011 | | .DEBUG4 0x0004,0x0011,0x347b,0x0000,0x0001,0x0000
0926 1010 1024 | $| .XXX[0x13]
0928 b6b6 b2b2 | |
092a 34b0 ba32 |4 2|
092c 901d 1021 | !|
092e 37b7 b632 |7 2|
0930 b0b7 101d | |
0932 1e90 2330 | #0|
0934 b639 b294 | 9 |
0936 9d80 0000 | |
0938 0080 | |
0939 0000 0000 | | .BLANK 0000[0x5]
093e 2080 0000 | | .XXX[0x25]
0940 0000 0000 | |
0942 2000 0000 | |
0944 2180 0000 |! |
0946 05a2 22a9 | " |
0948 a1a9 24a8 | $ |
094a 2a24 a7a7 |*$ |
094c 0000 0021 | !|
094e 0000 0006 | |
0950 1022 22a9 | "" |
0952 a1a9 24a8 | $ |
0954 2a24 a7a7 |*$ |
0956 0000 0021 | !|
0958 0000 0006 | |
095a 1022 22a9 | "" |
095c a1a9 24a8 | $ |
095e 2a24 a7a7 |*$ |
0960 0000 0000 | |
0962 8000 | |
0963 0000 0000 | | .BLANK 0000[0x4]
0967 0027 8000 | ' | .XXX[0x54]
0969 0000 0000 | |
096b 0027 0000 | ' |
096d 0028 8000 | ( |
096f 0015 2932 | )2|
0971 b6b7 bb32 | 2|
0973 b990 3a34 | :4|
0975 3290 3232 |2 22|
0977 bb34 b1b2 | 4 |
0979 9033 3937 | 397|
097b b690 3a34 | :4|
097d 3290 3839 |2 89|
097f 34b7 3a10 |4 : |
0981 39b8 37b7 |9 7 |
0983 b632 b917 | 2 |
0985 0000 0028 | (|
0987 0000 0015 | |
0989 9029 32b6 | )2 |
098b b7bb 32b9 | 2 |
098d 903a 3432 | :42|
098f 9032 32bb | 22 |
0991 34b1 b290 |4 |
0993 3339 37b6 |397 |
0995 903a 3432 | :42|
0997 9038 3934 | 894|
0999 b73a 1039 | : 9|
099b b837 b7b6 | 7 |
099d 32b9 1700 |2 |
099f 0000 2800 | ( |
09a1 0000 1590 | |
09a3 2932 b6b7 |)2 |
09a5 bb32 b990 | 2 |
09a7 3a34 3290 |:42 |
09a9 3232 bb34 |22 4|
09ab b1b2 9033 | 3|
09ad 3937 b690 |97 |
09af 3a34 3290 |:42 |
09b1 3839 34b7 |894 |
09b3 3a10 39b8 |: 9 |
09b5 37b7 b632 |7 2|
09b7 b917 0000 | |
09b9 0000 8000 | |
09bb 0000 0000 | | .BLANK 0000[0x4]
09bf 003e 0000 | > | .XXX[0x41]
09c1 0000 0000 | |
09c3 003d 8000 | = |
09c5 003f 0000 | ? |
09c7 0022 aa34 | " 4|
09c9 3290 3b30 |2 ;0|
09cb b63a b290 | : |
09cd 37b3 103a |7 :|
09cf 3432 9024 |42 $|
09d1 b6b6 b2b2 | |
09d3 34b0 ba32 |4 2|
09d5 9038 30b9 | 80 |
09d7 30b6 b2ba |0 |
09d9 32b9 1032 |2 2|
09db 32ba 32b9 |2 2 |
09dd 36b4 b732 |6 2|
09df b990 3bb4 | ; |
09e1 32ba 3432 |2 42|
09e3 b910 3a34 | :4|
09e5 3290 3839 |2 89|
09e7 37b1 b2b2 |7 |
09e9 3ab9 3280 |: 2 |
09eb 0000 3e80 | > |
09ed 0000 2310 | # |
09ef 2a34 3290 |*42 |
09f1 3b30 b63a |;0 :|
09f3 b290 37b3 | 7 |
09f5 103a 3432 | :42|
09f7 9024 b6b6 | $ |
09f9 b2b2 34b0 | 4 |
09fb ba32 9038 | 2 8|
09fd 30b9 30b6 |0 0 |
09ff b2ba | |