|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 4096 (0x1000)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_1060f5
└─⟦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 07d0 | | .CONST 0x07d0 ; 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 0020 | | .CONST 0x0020 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0009 | | .CONST 0x0009 ; Number of locals
000b INIT_0008:
000b e016 | | Load 0x0,0x16
000c 1819 | | Execute Package,Field_Execute,Field_Number 0x19
000d e016 | | Load 0x0,0x16
000e 181c | | Execute Package,Field_Execute,Field_Number 0x1c
000f e017 | | Load 0x0,0x17
0010 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0011 02c7 | | Declare_Variable Any
0012 00d8 | | Load_Top At_Offset_0
0013 1c00 | | Execute_Immediate Run_Utility,0x0
0014 029f 0033 | 3| Declare_Subprogram INIT_0030,For_Call
0016 029f 004b | K| Declare_Subprogram INIT_0048,For_Call
0018 029f 0053 | S| Declare_Subprogram INIT_0050,For_Call
001a 029f 006b | k| Declare_Subprogram INIT_0068,For_Call
001c 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call
001e 029f 00db | | Declare_Subprogram INIT_00d8,For_Call
0020 BODY_0008:
0020 e5fe | | Load 0x2,-0x2
0021 4602 |F | Jump_Case 0x3
0022 7808 |x | Jump 0x2b ; case 0x0
0023 7804 |x | Jump 0x28 ; case 0x1
0024 7800 |x | Jump 0x25 ; case 0x2
0025 8408 | | Call 0x2,0x8
0026 a5ff | | Store_Unchecked 0x2,-0x1
0027 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0028 8409 | | Call 0x2,0x9
0029 a5ff | | Store_Unchecked 0x2,-0x1
002a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
002b 0092 06cf | | Action Push_String_Extended,0x6cf ; "Unknown Environment version"
002d e006 | | Load 0x0,0x6
002e 180f | | Execute Package,Field_Execute,Field_Number 0xf
002f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0030 ; --------------------------------------------------------------------------------------
0030 ; SUBPROGRAM
0030 ; --------------------------------------------------------------------------------------
0030 003a | : | .CONST 0x003a ; Address of begin
0031 0004 | | .CONST 0x0004 ; Address of exception handler
0032 0003 | | .CONST 0x0003 ; Number of locals
0033 INIT_0030:
0033 e014 | | Load 0x0,0x14
0034 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0035 02c7 | | Declare_Variable Any
0036 00d8 | | Load_Top At_Offset_0
0037 1c00 | | Execute_Immediate Run_Utility,0x0
0038 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call
003a BODY_0030:
003a 00d9 | | Load_Top At_Offset_1
003b 00ea | | Load_Encached Null_String_Cache
003c 00ea | | Load_Encached Null_String_Cache
003d 4801 |H | Short_Literal 0x1
003e e014 | | Load 0x0,0x14
003f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0040 c602 | | Store 0x3,0x2
0041 8603 | | Call 0x3,0x3
0042 0831 | 1 | Execute_Immediate Raise,0x31
0043 0000 0000 | | .BLANK 0000[0x5]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 004d | M | .CONST 0x004d ; Address of begin
0049 0004 | | .CONST 0x0004 ; Address of exception handler
004a 0002 | | .CONST 0x0002 ; Number of locals
004b INIT_0048:
004b 029f 010b | | Declare_Subprogram INIT_0108,For_Call
004d BODY_0048:
004d 8602 | | Call 0x3,0x2
004e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
004f 0000 | | .XXX[0x1]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0060 | ` | .CONST 0x0060 ; Address of begin
0051 0004 | | .CONST 0x0004 ; Address of exception handler
0052 0007 | | .CONST 0x0007 ; Number of locals
0053 INIT_0050:
0053 00e1 | | Load_Encached Boolean_Cache
0054 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0055 e001 | | Load 0x0,0x1
0056 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0057 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0058 029f 0143 | C| Declare_Subprogram INIT_0140,For_Call
005a 029f 017b | {| Declare_Subprogram INIT_0178,For_Call
005c 029f 01d3 | | Declare_Subprogram INIT_01d0,For_Call
005e 029f 0243 | C| Declare_Subprogram INIT_0240,For_Call
0060 BODY_0050:
0060 8605 | | Call 0x3,0x5
0061 8606 | | Call 0x3,0x6
0062 8607 | | Call 0x3,0x7
0063 4801 |H | Short_Literal 0x1
0064 a5fe | | Store_Unchecked 0x2,-0x2
0065 8604 | | Call 0x3,0x4
0066 00ca | | Action Exit_Nullary_Function
0067 0000 | | .XXX[0x1]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 008d | | .CONST 0x008d ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 000c | | .CONST 0x000c ; Number of locals
006b INIT_0068:
006b e017 | | Load 0x0,0x17
006c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
006d 02c7 | | Declare_Variable Any
006e 00d8 | | Load_Top At_Offset_0
006f 1c00 | | Execute_Immediate Run_Utility,0x0
0070 00e1 | | Load_Encached Boolean_Cache
0071 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0072 00e2 | | Load_Encached Integer_Cache
0073 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0074 e014 | | Load 0x0,0x14
0075 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0076 02c7 | | Declare_Variable Any
0077 00d8 | | Load_Top At_Offset_0
0078 1c00 | | Execute_Immediate Run_Utility,0x0
0079 e014 | | Load 0x0,0x14
007a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
007b 02c7 | | Declare_Variable Any
007c 00d8 | | Load_Top At_Offset_0
007d 1c00 | | Execute_Immediate Run_Utility,0x0
007e 00e2 | | Load_Encached Integer_Cache
007f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0080 e014 | | Load 0x0,0x14
0081 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0082 02c7 | | Declare_Variable Any
0083 00d8 | | Load_Top At_Offset_0
0084 1c00 | | Execute_Immediate Run_Utility,0x0
0085 e001 | | Load 0x0,0x1
0086 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0087 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0088 8404 | | Call 0x2,0x4
0089 029f 02ab | | Declare_Subprogram INIT_02a8,For_Call
008b 029f 02cb | | Declare_Subprogram INIT_02c8,For_Call
008d BODY_0068:
008d 48c8 |H | Short_Literal 0xc8
008e e017 | | Load 0x0,0x17
008f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0090 c602 | | Store 0x3,0x2
0091 00db | | Load_Top At_Offset_3
0092 4820 |H | Short_Literal 0x20
0093 4800 |H | Short_Literal 0x0
0094 e001 | | Load 0x0,0x1
0095 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0096 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0097 c609 | | Store 0x3,0x9
0098 e014 | | Load 0x0,0x14
0099 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
009a c606 | | Store 0x3,0x6
009b 00da | | Load_Top At_Offset_2
009c e014 | | Load 0x0,0x14
009d 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
009e e014 | | Load 0x0,0x14
009f 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
00a0 c608 | | Store 0x3,0x8
00a1 4801 |H | Short_Literal 0x1
00a2 0092 06d0 | | Action Push_String_Extended,0x6d0 ; "all"
00a4 e018 | | Load 0x0,0x18
00a5 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00a6 e608 | | Load 0x3,0x8
00a7 e014 | | Load 0x0,0x14
00a8 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00a9 c608 | | Store 0x3,0x8
00aa e606 | | Load 0x3,0x6
00ab e014 | | Load 0x0,0x14
00ac 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
00ad e605 | | Load 0x3,0x5
00ae 00ea | | Load_Encached Null_String_Cache
00af e60a | | Load 0x3,0xa
00b0 4800 |H | Short_Literal 0x0
00b1 e014 | | Load 0x0,0x14
00b2 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00b3 c605 | | Store 0x3,0x5
00b4 00cf | | Action Mark_Auxiliary
00b5 7802 |x | Jump 0xb8
00b6 860b | | Call 0x3,0xb
00b7 00c9 | | Action Pop_Auxiliary_Loop
00b8 e605 | | Load 0x3,0x5
00b9 e014 | | Load 0x0,0x14
00ba 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
00bb 6ffa |o | Jump_Zero 0xb6
00bc 00ce | | Action Pop_Auxiliary
00bd e605 | | Load 0x3,0x5
00be e014 | | Load 0x0,0x14
00bf 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00c0 c605 | | Store 0x3,0x5
00c1 0092 06d1 | | Action Push_String_Extended,0x6d1 ; "<QUIET>"
00c3 0092 06d2 | | Action Push_String_Extended,0x6d2 ; "<DIRECTORIES>"
00c5 e60a | | Load 0x3,0xa
00c6 e015 | | Load 0x0,0x15
00c7 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00c8 860c | | Call 0x3,0xc
00c9 00db | | Load_Top At_Offset_3
00ca 00ca | | Action Exit_Nullary_Function
00cb 0000 0000 | | .BLANK 0000[0x5]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d5 | | .CONST 0x00d5 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0002 | | .CONST 0x0002 ; Number of locals
00d3 INIT_00d0:
00d3 029f 035b | [| Declare_Subprogram INIT_0358,For_Call
00d5 BODY_00d0:
00d5 8602 | | Call 0x3,0x2
00d6 0831 | 1 | Execute_Immediate Raise,0x31
00d7 0000 | | .XXX[0x1]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00e3 | | .CONST 0x00e3 ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0005 | | .CONST 0x0005 ; Number of locals
00db INIT_00d8:
00db e001 | | Load 0x0,0x1
00dc 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00dd 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00de 8404 | | Call 0x2,0x4
00df 029f 03ab | | Declare_Subprogram INIT_03a8,For_Call
00e1 029f 03db | | Declare_Subprogram INIT_03d8,For_Call
00e3 BODY_00d8:
00e3 00db | | Load_Top At_Offset_3
00e4 8604 | | Call 0x3,0x4
00e5 e001 | | Load 0x0,0x1
00e6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00e7 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00e8 c602 | | Store 0x3,0x2
00e9 00db | | Load_Top At_Offset_3
00ea 480a |H | Short_Literal 0xa
00eb e001 | | Load 0x0,0x1
00ec 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00ed 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00ee c602 | | Store 0x3,0x2
00ef 00db | | Load_Top At_Offset_3
00f0 8605 | | Call 0x3,0x5
00f1 e001 | | Load 0x0,0x1
00f2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00f3 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00f4 c602 | | Store 0x3,0x2
00f5 00db | | Load_Top At_Offset_3
00f6 00ca | | Action Exit_Nullary_Function
00f7 0000 | | .XXX[0x1]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fe | | .CONST 0x00fe ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0002 | | .CONST 0x0002 ; Number of locals
00fb INIT_00f8:
00fb e602 | | Load 0x3,0x2
00fc e014 | | Load 0x0,0x14
00fd 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00fe BODY_00f8:
00fe e602 | | Load 0x3,0x2
00ff e014 | | Load 0x0,0x14
0100 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0101 c602 | | Store 0x3,0x2
0102 00d8 | | Load_Top At_Offset_0
0103 00cb | | Action Pop_Block_With_Result
0104 00ca | | Action Exit_Nullary_Function
0105 0000 0000 | | .XXX[0x3]
0107 0000 | |
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 0121 | ! | .CONST 0x0121 ; Address of begin
0109 013c | < | .CONST 0x013c ; Address of exception handler
010a 0009 | | .CONST 0x0009 ; Number of locals
010b INIT_0108:
010b 00e2 | | Load_Encached Integer_Cache
010c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
010d 00e1 | | Load_Encached Boolean_Cache
010e e017 | | Load 0x0,0x17
010f 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0110 02c7 | | Declare_Variable Any
0111 00d8 | | Load_Top At_Offset_0
0112 1c00 | | Execute_Immediate Run_Utility,0x0
0113 e001 | | Load 0x0,0x1
0114 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0115 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0116 00e2 | | Load_Encached Integer_Cache
0117 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0118 e014 | | Load 0x0,0x14
0119 1b0d | | Execute Package,Field_Read,Field_Number 0xd
011a 02c7 | | Declare_Variable Any
011b 00d8 | | Load_Top At_Offset_0
011c 1c00 | | Execute_Immediate Run_Utility,0x0
011d 029f 042b | +| Declare_Subprogram INIT_0428,For_Call
011f 029f 0453 | S| Declare_Subprogram INIT_0450,For_Call
0121 BODY_0108:
0121 48c8 |H | Short_Literal 0xc8
0122 e017 | | Load 0x0,0x17
0123 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0124 c403 | | Store 0x2,0x3
0125 00da | | Load_Top At_Offset_2
0126 00ea | | Load_Encached Null_String_Cache
0127 0092 06d3 | | Action Push_String_Extended,0x6d3 ; "!MACHINE.QUEUES.USER_TO_PRINTER_MAP"
0129 4800 |H | Short_Literal 0x0
012a e014 | | Load 0x0,0x14
012b 1815 | | Execute Package,Field_Execute,Field_Number 0x15
012c c807 | | Store 0x4,0x7
012d 00cf | | Action Mark_Auxiliary
012e 7802 |x | Jump 0x131
012f 8808 | | Call 0x4,0x8
0130 00c9 | | Action Pop_Auxiliary_Loop
0131 00db | | Load_Top At_Offset_3
0132 e014 | | Load 0x0,0x14
0133 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0134 6ffa |o | Jump_Zero 0x12f
0135 00ce | | Action Pop_Auxiliary
0136 00da | | Load_Top At_Offset_2
0137 e014 | | Load 0x0,0x14
0138 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0139 c807 | | Store 0x4,0x7
013a 8809 | | Call 0x4,0x9
013b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
013c TRAP_0108:
013c 0007 | | Action Break_Optional
013d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
013e 0000 0000 | | .XXX[0x2]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0155 | U | .CONST 0x0155 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0006 | | .CONST 0x0006 ; Number of locals
0143 INIT_0140:
0143 e014 | | Load 0x0,0x14
0144 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0145 02c7 | | Declare_Variable Any
0146 00d8 | | Load_Top At_Offset_0
0147 1c00 | | Execute_Immediate Run_Utility,0x0
0148 e014 | | Load 0x0,0x14
0149 1b0d | | Execute Package,Field_Read,Field_Number 0xd
014a 02c7 | | Declare_Variable Any
014b 00d8 | | Load_Top At_Offset_0
014c 1c00 | | Execute_Immediate Run_Utility,0x0
014d e014 | | Load 0x0,0x14
014e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
014f 02c7 | | Declare_Variable Any
0150 00d8 | | Load_Top At_Offset_0
0151 1c00 | | Execute_Immediate Run_Utility,0x0
0152 8404 | | Call 0x2,0x4
0153 029f 04bb | | Declare_Subprogram INIT_04b8,For_Call
0155 BODY_0140:
0155 e014 | | Load 0x0,0x14
0156 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0157 c802 | | Store 0x4,0x2
0158 00d9 | | Load_Top At_Offset_1
0159 e014 | | Load 0x0,0x14
015a 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
015b e014 | | Load 0x0,0x14
015c 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
015d c803 | | Store 0x4,0x3
015e 00ea | | Load_Encached Null_String_Cache
015f e018 | | Load 0x0,0x18
0160 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0161 00db | | Load_Top At_Offset_3
0162 e014 | | Load 0x0,0x14
0163 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0164 c803 | | Store 0x4,0x3
0165 e802 | | Load 0x4,0x2
0166 e014 | | Load 0x0,0x14
0167 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0168 00da | | Load_Top At_Offset_2
0169 00ea | | Load_Encached Null_String_Cache
016a 00db | | Load_Top At_Offset_3
016b 4800 |H | Short_Literal 0x0
016c e014 | | Load 0x0,0x14
016d 1815 | | Execute Package,Field_Execute,Field_Number 0x15
016e c804 | | Store 0x4,0x4
016f 8806 | | Call 0x4,0x6
0170 0092 06d1 | | Action Push_String_Extended,0x6d1 ; "<QUIET>"
0172 0092 06d2 | | Action Push_String_Extended,0x6d2 ; "<DIRECTORIES>"
0174 00db | | Load_Top At_Offset_3
0175 e015 | | Load 0x0,0x15
0176 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0177 0831 | 1 | Execute_Immediate Raise,0x31
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 0180 | | .CONST 0x0180 ; Address of begin
0179 01ca | | .CONST 0x01ca ; Address of exception handler
017a 0002 | | .CONST 0x0002 ; Number of locals
017b INIT_0178:
017b e014 | | Load 0x0,0x14
017c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
017d 02c7 | | Declare_Variable Any
017e 00d8 | | Load_Top At_Offset_0
017f 1c00 | | Execute_Immediate Run_Utility,0x0
0180 BODY_0178:
0180 00d8 | | Load_Top At_Offset_0
0181 00ea | | Load_Encached Null_String_Cache
0182 0092 06d4 | | Action Push_String_Extended,0x6d4 ; "!machine.initialization.local.user_printer_map"
0184 4800 |H | Short_Literal 0x0
0185 e014 | | Load 0x0,0x14
0186 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0187 c802 | | Store 0x4,0x2
0188 00cf | | Action Mark_Auxiliary
0189 7817 |x | Jump 0x1a1
018a e603 | | Load 0x3,0x3
018b 00da | | Load_Top At_Offset_2
018c e014 | | Load 0x0,0x14
018d 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
018e e00a | | Load 0x0,0xa
018f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0190 e001 | | Load 0x0,0x1
0191 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0192 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0193 c603 | | Store 0x3,0x3
0194 4801 |H | Short_Literal 0x1
0195 e603 | | Load 0x3,0x3
0196 e001 | | Load 0x0,0x1
0197 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0198 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0199 e402 | | Load 0x2,0x2
019a e00a | | Load 0x0,0xa
019b 181d | | Execute Package,Field_Execute,Field_Number 0x1d
019c 0f01 | | Execute_Immediate Equal,0x1
019d a602 | | Store_Unchecked 0x3,0x2
019e e602 | | Load 0x3,0x2
019f 7005 |p | Jump_Nonzero 0x1a5
01a0 00c9 | | Action Pop_Auxiliary_Loop
01a1 00d9 | | Load_Top At_Offset_1
01a2 e014 | | Load 0x0,0x14
01a3 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
01a4 6fe5 |o | Jump_Zero 0x18a
01a5 00ce | | Action Pop_Auxiliary
01a6 00d8 | | Load_Top At_Offset_0
01a7 e014 | | Load 0x0,0x14
01a8 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01a9 c802 | | Store 0x4,0x2
01aa e602 | | Load 0x3,0x2
01ab 681d |h | Jump_Zero 0x1c9
01ac e603 | | Load 0x3,0x3
01ad e402 | | Load 0x2,0x2
01ae 01db | | Execute Vector,Length
01af 00d8 | | Load_Top At_Offset_0
01b0 00e3 | | Load_Encached Natural_Cache
01b1 0260 | ` | Execute Discrete,In_Type
01b2 7001 |p | Jump_Nonzero 0x1b4
01b3 0801 | | Execute_Immediate Raise,0x1
01b4 4801 |H | Short_Literal 0x1
01b5 e001 | | Load 0x0,0x1
01b6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01b7 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
01b8 c603 | | Store 0x3,0x3
01b9 e009 | | Load 0x0,0x9
01ba 180e | | Execute Package,Field_Execute,Field_Number 0xe
01bb 4801 |H | Short_Literal 0x1
01bc 0092 06d5 | | Action Push_String_Extended,0x6d5 ; "Default printer found in !Machine.Initialization.Local.User_Printer_Map"
01be e00b | | Load 0x0,0xb
01bf 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01c0 4820 |H | Short_Literal 0x20
01c1 e603 | | Load 0x3,0x3
01c2 e001 | | Load 0x0,0x1
01c3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01c4 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01c5 e00a | | Load 0x0,0xa
01c6 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01c7 00cb | | Action Pop_Block_With_Result
01c8 00ca | | Action Exit_Nullary_Function
01c9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01ca TRAP_0178:
01ca 0007 | | Action Break_Optional
01cb 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01cc 0000 0000 | | .BLANK 0000[0x4]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d8 | | .CONST 0x01d8 ; Address of begin
01d1 023a | : | .CONST 0x023a ; Address of exception handler
01d2 0002 | | .CONST 0x0002 ; Number of locals
01d3 INIT_01d0:
01d3 e014 | | Load 0x0,0x14
01d4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01d5 02c7 | | Declare_Variable Any
01d6 00d8 | | Load_Top At_Offset_0
01d7 1c00 | | Execute_Immediate Run_Utility,0x0
01d8 BODY_01d0:
01d8 00d8 | | Load_Top At_Offset_0
01d9 00ea | | Load_Encached Null_String_Cache
01da 0092 06d6 | | Action Push_String_Extended,0x6d6 ; "!machine.initialization.site.printer_configuration"
01dc 4800 |H | Short_Literal 0x0
01dd e014 | | Load 0x0,0x14
01de 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01df c802 | | Store 0x4,0x2
01e0 00cf | | Action Mark_Auxiliary
01e1 7820 |x | Jump 0x202
01e2 e603 | | Load 0x3,0x3
01e3 4820 |H | Short_Literal 0x20
01e4 00db | | Load_Top At_Offset_3
01e5 e014 | | Load 0x0,0x14
01e6 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
01e7 e00a | | Load 0x0,0xa
01e8 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01e9 e00a | | Load 0x0,0xa
01ea 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01eb e001 | | Load 0x0,0x1
01ec 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01ed 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01ee c603 | | Store 0x3,0x3
01ef e603 | | Load 0x3,0x3
01f0 e001 | | Load 0x0,0x1
01f1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01f2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01f3 0c01 | | Execute_Immediate Greater_Equal,0x1
01f4 6808 |h | Jump_Zero 0x1fd
01f5 4801 |H | Short_Literal 0x1
01f6 e603 | | Load 0x3,0x3
01f7 e001 | | Load 0x0,0x1
01f8 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01f9 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01fa 0e2d | - | Execute_Immediate Not_Equal,0x2d
01fb a602 | | Store_Unchecked 0x3,0x2
01fc 7802 |x | Jump 0x1ff
01fd 4800 |H | Short_Literal 0x0
01fe a602 | | Store_Unchecked 0x3,0x2
01ff e602 | | Load 0x3,0x2
0200 7005 |p | Jump_Nonzero 0x206
0201 00c9 | | Action Pop_Auxiliary_Loop
0202 00d9 | | Load_Top At_Offset_1
0203 e014 | | Load 0x0,0x14
0204 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0205 6fdc |o | Jump_Zero 0x1e2
0206 00ce | | Action Pop_Auxiliary
0207 00d8 | | Load_Top At_Offset_0
0208 e014 | | Load 0x0,0x14
0209 181b | | Execute Package,Field_Execute,Field_Number 0x1b
020a c802 | | Store 0x4,0x2
020b e602 | | Load 0x3,0x2
020c 682c |h, | Jump_Zero 0x239
020d e009 | | Load 0x0,0x9
020e 180e | | Execute Package,Field_Execute,Field_Number 0xe
020f 4801 |H | Short_Literal 0x1
0210 0092 06d7 | | Action Push_String_Extended,0x6d7 ; "Default printer found in !Machine.Initialization.Site.Printer_Configuration"
0212 e00b | | Load 0x0,0xb
0213 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0214 4801 |H | Short_Literal 0x1
0215 e603 | | Load 0x3,0x3
0216 e001 | | Load 0x0,0x1
0217 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0218 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0219 0092 06d8 | | Action Push_String_Extended,0x6d8 ; " "
021b e00a | | Load 0x0,0xa
021c 181d | | Execute Package,Field_Execute,Field_Number 0x1d
021d 6815 |h | Jump_Zero 0x233
021e 4801 |H | Short_Literal 0x1
021f e603 | | Load 0x3,0x3
0220 e001 | | Load 0x0,0x1
0221 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0222 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0223 4820 |H | Short_Literal 0x20
0224 e00a | | Load 0x0,0xa
0225 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0226 0aff | | Execute_Immediate Plus,-0x1
0227 00d8 | | Load_Top At_Offset_0
0228 00e3 | | Load_Encached Natural_Cache
0229 0260 | ` | Execute Discrete,In_Type
022a 7001 |p | Jump_Nonzero 0x22c
022b 0801 | | Execute_Immediate Raise,0x1
022c 4801 |H | Short_Literal 0x1
022d e603 | | Load 0x3,0x3
022e e001 | | Load 0x0,0x1
022f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0230 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0231 00cb | | Action Pop_Block_With_Result
0232 00ca | | Action Exit_Nullary_Function
0233 e603 | | Load 0x3,0x3
0234 e001 | | Load 0x0,0x1
0235 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0236 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0237 00cb | | Action Pop_Block_With_Result
0238 00ca | | Action Exit_Nullary_Function
0239 4501 |E | Exit_Suprogram New_Top_Offset 0x1
023a TRAP_01d0:
023a 0007 | | Action Break_Optional
023b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
023c 0000 0000 | | .BLANK 0000[0x4]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0248 | H | .CONST 0x0248 ; Address of begin
0241 02a6 | | .CONST 0x02a6 ; Address of exception handler
0242 0002 | | .CONST 0x0002 ; Number of locals
0243 INIT_0240:
0243 e014 | | Load 0x0,0x14
0244 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0245 02c7 | | Declare_Variable Any
0246 00d8 | | Load_Top At_Offset_0
0247 1c00 | | Execute_Immediate Run_Utility,0x0
0248 BODY_0240:
0248 00d8 | | Load_Top At_Offset_0
0249 00ea | | Load_Encached Null_String_Cache
024a 0092 06d9 | | Action Push_String_Extended,0x6d9 ; "!machine.initialization.local.printer_configuration"
024c 4800 |H | Short_Literal 0x0
024d e014 | | Load 0x0,0x14
024e 1815 | | Execute Package,Field_Execute,Field_Number 0x15
024f c802 | | Store 0x4,0x2
0250 00cf | | Action Mark_Auxiliary
0251 781c |x | Jump 0x26e
0252 e603 | | Load 0x3,0x3
0253 4820 |H | Short_Literal 0x20
0254 00db | | Load_Top At_Offset_3
0255 e014 | | Load 0x0,0x14
0256 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
0257 e00a | | Load 0x0,0xa
0258 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0259 e00a | | Load 0x0,0xa
025a 1814 | | Execute Package,Field_Execute,Field_Number 0x14
025b e001 | | Load 0x0,0x1
025c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
025d 1819 | | Execute Package,Field_Execute,Field_Number 0x19
025e c603 | | Store 0x3,0x3
025f e603 | | Load 0x3,0x3
0260 e001 | | Load 0x0,0x1
0261 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0262 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0263 0c01 | | Execute_Immediate Greater_Equal,0x1
0264 6808 |h | Jump_Zero 0x26d
0265 4801 |H | Short_Literal 0x1
0266 e603 | | Load 0x3,0x3
0267 e001 | | Load 0x0,0x1
0268 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0269 1814 | | Execute Package,Field_Execute,Field_Number 0x14
026a 0e2d | - | Execute_Immediate Not_Equal,0x2d
026b 6801 |h | Jump_Zero 0x26d
026c 7805 |x | Jump 0x272
026d 00c9 | | Action Pop_Auxiliary_Loop
026e 00d9 | | Load_Top At_Offset_1
026f e014 | | Load 0x0,0x14
0270 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0271 6fe0 |o | Jump_Zero 0x252
0272 00ce | | Action Pop_Auxiliary
0273 00d8 | | Load_Top At_Offset_0
0274 e014 | | Load 0x0,0x14
0275 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0276 c802 | | Store 0x4,0x2
0277 e602 | | Load 0x3,0x2
0278 682c |h, | Jump_Zero 0x2a5
0279 e009 | | Load 0x0,0x9
027a 180e | | Execute Package,Field_Execute,Field_Number 0xe
027b 4801 |H | Short_Literal 0x1
027c 0092 06da | | Action Push_String_Extended,0x6da ; "Default printer found in !Machine.Initialization.Local.Printer_Configuration"
027e e00b | | Load 0x0,0xb
027f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0280 4801 |H | Short_Literal 0x1
0281 e603 | | Load 0x3,0x3
0282 e001 | | Load 0x0,0x1
0283 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0284 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0285 0092 06d8 | | Action Push_String_Extended,0x6d8 ; " "
0287 e00a | | Load 0x0,0xa
0288 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0289 6815 |h | Jump_Zero 0x29f
028a 4801 |H | Short_Literal 0x1
028b e603 | | Load 0x3,0x3
028c e001 | | Load 0x0,0x1
028d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
028e 1816 | | Execute Package,Field_Execute,Field_Number 0x16
028f 4820 |H | Short_Literal 0x20
0290 e00a | | Load 0x0,0xa
0291 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0292 0aff | | Execute_Immediate Plus,-0x1
0293 00d8 | | Load_Top At_Offset_0
0294 00e3 | | Load_Encached Natural_Cache
0295 0260 | ` | Execute Discrete,In_Type
0296 7001 |p | Jump_Nonzero 0x298
0297 0801 | | Execute_Immediate Raise,0x1
0298 4801 |H | Short_Literal 0x1
0299 e603 | | Load 0x3,0x3
029a e001 | | Load 0x0,0x1
029b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
029c 1815 | | Execute Package,Field_Execute,Field_Number 0x15
029d 00cb | | Action Pop_Block_With_Result
029e 00ca | | Action Exit_Nullary_Function
029f e603 | | Load 0x3,0x3
02a0 e001 | | Load 0x0,0x1
02a1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02a2 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02a3 00cb | | Action Pop_Block_With_Result
02a4 00ca | | Action Exit_Nullary_Function
02a5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02a6 TRAP_0240:
02a6 0007 | | Action Break_Optional
02a7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02b0 | | .CONST 0x02b0 ; Address of begin
02a9 0004 | | .CONST 0x0004 ; Address of exception handler
02aa 0003 | | .CONST 0x0003 ; Number of locals
02ab INIT_02a8:
02ab e605 | | Load 0x3,0x5
02ac e014 | | Load 0x0,0x14
02ad 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
02ae 029f 04eb | | Declare_Subprogram INIT_04e8,For_Call
02b0 BODY_02a8:
02b0 4801 |H | Short_Literal 0x1
02b1 00da | | Load_Top At_Offset_2
02b2 0092 06db | | Action Push_String_Extended,0x6db ; "=="
02b4 e00a | | Load 0x0,0xa
02b5 181d | | Execute Package,Field_Execute,Field_Number 0x1d
02b6 00da | | Load_Top At_Offset_2
02b7 01dd | | Execute Vector,First
02b8 027f | | Execute Discrete,Equal
02b9 6803 |h | Jump_Zero 0x2bd
02ba 4801 |H | Short_Literal 0x1
02bb a603 | | Store_Unchecked 0x3,0x3
02bc 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02bd e603 | | Load 0x3,0x3
02be 6801 |h | Jump_Zero 0x2c0
02bf 8803 | | Call 0x4,0x3
02c0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02c1 0000 0000 | | .BLANK 0000[0x7]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02ee | | .CONST 0x02ee ; Address of begin
02c9 0004 | | .CONST 0x0004 ; Address of exception handler
02ca 000e | | .CONST 0x000e ; Number of locals
02cb INIT_02c8:
02cb e001 | | Load 0x0,0x1
02cc 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02cd 1b11 | | Execute Package,Field_Read,Field_Number 0x11
02ce 00e4 | | Load_Encached Positive_Cache
02cf 0266 | f | Execute Discrete,Bounds
02d0 00da | | Load_Top At_Offset_2
02d1 02a0 | | Declare_Subprogram Null_Subprogram
02d2 4801 |H | Short_Literal 0x1
02d3 0350 | P | Declare_Type Array,Defined,Bounds_With_Object
02d4 4801 |H | Short_Literal 0x1
02d5 e604 | | Load 0x3,0x4
02d6 00da | | Load_Top At_Offset_2
02d7 035b | [ | Declare_Type Array,Constrained
02d8 0337 | 7 | Declare_Variable Array
02d9 00e2 | | Load_Encached Integer_Cache
02da 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
02db e017 | | Load 0x0,0x17
02dc 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
02dd 02c7 | | Declare_Variable Any
02de 00d8 | | Load_Top At_Offset_0
02df 1c00 | | Execute_Immediate Run_Utility,0x0
02e0 029f 051b | | Declare_Subprogram INIT_0518,For_Call
02e2 a019 | | Store_Unchecked 0x0,0x19
02e3 00c6 | | Action Check_Subprogram_Elaborated
02e4 e802 | | Load 0x4,0x2
02e5 00e4 | | Load_Encached Positive_Cache
02e6 e803 | | Load 0x4,0x3
02e7 4807 |H | Short_Literal 0x7
02e8 4804 |H | Short_Literal 0x4
02e9 0099 | | Action Reference_Dynamic
02ea e01a | | Load 0x0,0x1a
02eb e01b | | Load 0x0,0x1b
02ec 480e |H | Short_Literal 0xe
02ed 0007 | | Action Break_Optional
02ee BODY_02c8:
02ee e806 | | Load 0x4,0x6
02ef 0120 | | Execute Any,Is_Value
02f0 6803 |h | Jump_Zero 0x2f4
02f1 e017 | | Load 0x0,0x17
02f2 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
02f3 7801 |x | Jump 0x2f5
02f4 e806 | | Load 0x4,0x6
02f5 e602 | | Load 0x3,0x2
02f6 e017 | | Load 0x0,0x17
02f7 181c | | Execute Package,Field_Execute,Field_Number 0x1c
02f8 c806 | | Store 0x4,0x6
02f9 00cf | | Action Mark_Auxiliary
02fa e806 | | Load 0x4,0x6
02fb e017 | | Load 0x0,0x17
02fc 181e | | Execute Package,Field_Execute,Field_Number 0x1e
02fd e017 | | Load 0x0,0x17
02fe 181a | | Execute Package,Field_Execute,Field_Number 0x1a
02ff 7018 |p | Jump_Nonzero 0x318
0300 e804 | | Load 0x4,0x4
0301 e805 | | Load 0x4,0x5
0302 00d8 | | Load_Top At_Offset_0
0303 00da | | Load_Top At_Offset_2
0304 01d7 | | Execute Vector,Field_Read
0305 e001 | | Load 0x0,0x1
0306 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0307 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0308 0226 | & | Execute Access,Convert
0309 e806 | | Load 0x4,0x6
030a e017 | | Load 0x0,0x17
030b 181e | | Execute Package,Field_Execute,Field_Number 0x1e
030c e017 | | Load 0x0,0x17
030d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
030e e001 | | Load 0x0,0x1
030f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0310 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0311 00d9 | | Load_Top At_Offset_1
0312 00db | | Load_Top At_Offset_3
0313 01d6 | | Execute Vector,Field_Write
0314 00d2 | | Pop_Control Pop_Count_2
0315 e805 | | Load 0x4,0x5
0316 0a01 | | Execute_Immediate Plus,0x1
0317 c805 | | Store 0x4,0x5
0318 e806 | | Load 0x4,0x6
0319 e017 | | Load 0x0,0x17
031a 181d | | Execute Package,Field_Execute,Field_Number 0x1d
031b c806 | | Store 0x4,0x6
031c e806 | | Load 0x4,0x6
031d e017 | | Load 0x0,0x17
031e 181f | | Execute Package,Field_Execute,Field_Number 0x1f
031f 7002 |p | Jump_Nonzero 0x322
0320 00c9 | | Action Pop_Auxiliary_Loop
0321 7fd8 | | Jump 0x2fa
0322 00ce | | Action Pop_Auxiliary
0323 e804 | | Load 0x4,0x4
0324 e808 | | Load 0x4,0x8
0325 e809 | | Load 0x4,0x9
0326 e80a | | Load 0x4,0xa
0327 480b |H | Short_Literal 0xb
0328 4804 |H | Short_Literal 0x4
0329 0099 | | Action Reference_Dynamic
032a 480c |H | Short_Literal 0xc
032b 4804 |H | Short_Literal 0x4
032c 0099 | | Action Reference_Dynamic
032d 8019 | | Call 0x0,0x19
032e 00d1 | | Pop_Control Pop_Count_1
032f e806 | | Load 0x4,0x6
0330 0120 | | Execute Any,Is_Value
0331 6803 |h | Jump_Zero 0x335
0332 e017 | | Load 0x0,0x17
0333 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0334 7801 |x | Jump 0x336
0335 e806 | | Load 0x4,0x6
0336 e602 | | Load 0x3,0x2
0337 e017 | | Load 0x0,0x17
0338 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0339 c806 | | Store 0x4,0x6
033a 00cf | | Action Mark_Auxiliary
033b e604 | | Load 0x3,0x4
033c 4801 |H | Short_Literal 0x1
033d 0263 | c | Execute Discrete,Above_Bound
033e 7011 |p | Jump_Nonzero 0x350
033f e609 | | Load 0x3,0x9
0340 00d9 | | Load_Top At_Offset_1
0341 e804 | | Load 0x4,0x4
0342 01d7 | | Execute Vector,Field_Read
0343 e001 | | Load 0x0,0x1
0344 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0345 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0346 c609 | | Store 0x3,0x9
0347 e609 | | Load 0x3,0x9
0348 4801 |H | Short_Literal 0x1
0349 480a |H | Short_Literal 0xa
034a e001 | | Load 0x0,0x1
034b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
034c 181f | | Execute Package,Field_Execute,Field_Number 0x1f
034d c609 | | Store 0x3,0x9
034e 00c8 | | Action Pop_Auxiliary_Range
034f 3fef |? | Loop_Increasing 0x33f
0350 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0351 0000 0000 | | .BLANK 0000[0x7]
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 0376 | v | .CONST 0x0376 ; Address of begin
0359 03a0 | | .CONST 0x03a0 ; Address of exception handler
035a 000b | | .CONST 0x000b ; Number of locals
035b INIT_0358:
035b 00e2 | | Load_Encached Integer_Cache
035c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
035d 00e1 | | Load_Encached Boolean_Cache
035e e017 | | Load 0x0,0x17
035f 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0360 02c7 | | Declare_Variable Any
0361 00d8 | | Load_Top At_Offset_0
0362 1c00 | | Execute_Immediate Run_Utility,0x0
0363 e001 | | Load 0x0,0x1
0364 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0365 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0366 00e2 | | Load_Encached Integer_Cache
0367 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0368 e001 | | Load 0x0,0x1
0369 1b0e | | Execute Package,Field_Read,Field_Number 0xe
036a 1b11 | | Execute Package,Field_Read,Field_Number 0x11
036b e014 | | Load 0x0,0x14
036c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
036d 02c7 | | Declare_Variable Any
036e 00d8 | | Load_Top At_Offset_0
036f 1c00 | | Execute_Immediate Run_Utility,0x0
0370 029f 052b | +| Declare_Subprogram INIT_0528,For_Call
0372 029f 054b | K| Declare_Subprogram INIT_0548,For_Call
0374 029f 0573 | s| Declare_Subprogram INIT_0570,For_Call
0376 BODY_0358:
0376 48c8 |H | Short_Literal 0xc8
0377 e017 | | Load 0x0,0x17
0378 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0379 c403 | | Store 0x2,0x3
037a e807 | | Load 0x4,0x7
037b 4820 |H | Short_Literal 0x20
037c 4800 |H | Short_Literal 0x0
037d e001 | | Load 0x0,0x1
037e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
037f 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0380 c807 | | Store 0x4,0x7
0381 e807 | | Load 0x4,0x7
0382 8406 | | Call 0x2,0x6
0383 e001 | | Load 0x0,0x1
0384 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0385 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0386 c807 | | Store 0x4,0x7
0387 e807 | | Load 0x4,0x7
0388 4801 |H | Short_Literal 0x1
0389 480a |H | Short_Literal 0xa
038a e001 | | Load 0x0,0x1
038b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
038c 181f | | Execute Package,Field_Execute,Field_Number 0x1f
038d c807 | | Store 0x4,0x7
038e 8809 | | Call 0x4,0x9
038f 00cf | | Action Mark_Auxiliary
0390 7802 |x | Jump 0x393
0391 880a | | Call 0x4,0xa
0392 00c9 | | Action Pop_Auxiliary_Loop
0393 e808 | | Load 0x4,0x8
0394 e014 | | Load 0x0,0x14
0395 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0396 6ffa |o | Jump_Zero 0x391
0397 00ce | | Action Pop_Auxiliary
0398 00db | | Load_Top At_Offset_3
0399 e014 | | Load 0x0,0x14
039a 181b | | Execute Package,Field_Execute,Field_Number 0x1b
039b c808 | | Store 0x4,0x8
039c 880b | | Call 0x4,0xb
039d e807 | | Load 0x4,0x7
039e 00cb | | Action Pop_Block_With_Result
039f 00ca | | Action Exit_Nullary_Function
03a0 TRAP_0358:
03a0 0007 | | Action Break_Optional
03a1 00d8 | | Load_Top At_Offset_0
03a2 0101 | | Execute Exception,Reraise
03a3 0000 0000 | | .BLANK 0000[0x5]
03a8 ; --------------------------------------------------------------------------------------
03a8 ; SUBPROGRAM
03a8 ; --------------------------------------------------------------------------------------
03a8 03bc | | .CONST 0x03bc ; Address of begin
03a9 0004 | | .CONST 0x0004 ; Address of exception handler
03aa 0005 | | .CONST 0x0005 ; Number of locals
03ab INIT_03a8:
03ab e014 | | Load 0x0,0x14
03ac 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03ad 02c7 | | Declare_Variable Any
03ae 00d8 | | Load_Top At_Offset_0
03af 1c00 | | Execute_Immediate Run_Utility,0x0
03b0 e014 | | Load 0x0,0x14
03b1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03b2 02c7 | | Declare_Variable Any
03b3 00d8 | | Load_Top At_Offset_0
03b4 1c00 | | Execute_Immediate Run_Utility,0x0
03b5 e014 | | Load 0x0,0x14
03b6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03b7 02c7 | | Declare_Variable Any
03b8 00d8 | | Load_Top At_Offset_0
03b9 1c00 | | Execute_Immediate Run_Utility,0x0
03ba 029f 05eb | | Declare_Subprogram INIT_05e8,For_Call
03bc BODY_03a8:
03bc e014 | | Load 0x0,0x14
03bd 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
03be c802 | | Store 0x4,0x2
03bf e603 | | Load 0x3,0x3
03c0 e014 | | Load 0x0,0x14
03c1 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
03c2 e014 | | Load 0x0,0x14
03c3 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
03c4 c803 | | Store 0x4,0x3
03c5 00ea | | Load_Encached Null_String_Cache
03c6 e018 | | Load 0x0,0x18
03c7 181a | | Execute Package,Field_Execute,Field_Number 0x1a
03c8 00da | | Load_Top At_Offset_2
03c9 e014 | | Load 0x0,0x14
03ca 181b | | Execute Package,Field_Execute,Field_Number 0x1b
03cb c803 | | Store 0x4,0x3
03cc 00db | | Load_Top At_Offset_3
03cd e014 | | Load 0x0,0x14
03ce 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
03cf 00d9 | | Load_Top At_Offset_1
03d0 00ea | | Load_Encached Null_String_Cache
03d1 e603 | | Load 0x3,0x3
03d2 4800 |H | Short_Literal 0x0
03d3 e014 | | Load 0x0,0x14
03d4 1815 | | Execute Package,Field_Execute,Field_Number 0x15
03d5 c804 | | Store 0x4,0x4
03d6 8805 | | Call 0x4,0x5
03d7 0831 | 1 | Execute_Immediate Raise,0x31
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03f1 | | .CONST 0x03f1 ; Address of begin
03d9 0004 | | .CONST 0x0004 ; Address of exception handler
03da 0007 | | .CONST 0x0007 ; Number of locals
03db INIT_03d8:
03db 00e1 | | Load_Encached Boolean_Cache
03dc 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
03dd e014 | | Load 0x0,0x14
03de 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03df 02c7 | | Declare_Variable Any
03e0 00d8 | | Load_Top At_Offset_0
03e1 1c00 | | Execute_Immediate Run_Utility,0x0
03e2 e014 | | Load 0x0,0x14
03e3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03e4 02c7 | | Declare_Variable Any
03e5 00d8 | | Load_Top At_Offset_0
03e6 1c00 | | Execute_Immediate Run_Utility,0x0
03e7 e014 | | Load 0x0,0x14
03e8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03e9 02c7 | | Declare_Variable Any
03ea 00d8 | | Load_Top At_Offset_0
03eb 1c00 | | Execute_Immediate Run_Utility,0x0
03ec e001 | | Load 0x0,0x1
03ed 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03ee 1b11 | | Execute Package,Field_Read,Field_Number 0x11
03ef 029f 061b | | Declare_Subprogram INIT_0618,For_Call
03f1 BODY_03d8:
03f1 00d9 | | Load_Top At_Offset_1
03f2 4820 |H | Short_Literal 0x20
03f3 4800 |H | Short_Literal 0x0
03f4 e001 | | Load 0x0,0x1
03f5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03f6 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
03f7 003a | : | Store_Top Access,At_Offset_2
03f8 e014 | | Load 0x0,0x14
03f9 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
03fa c804 | | Store 0x4,0x4
03fb e603 | | Load 0x3,0x3
03fc e014 | | Load 0x0,0x14
03fd 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
03fe e014 | | Load 0x0,0x14
03ff 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0400 c805 | | Store 0x4,0x5
0401 4801 |H | Short_Literal 0x1
0402 0092 06d0 | | Action Push_String_Extended,0x6d0 ; "all"
0404 e018 | | Load 0x0,0x18
0405 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0406 00da | | Load_Top At_Offset_2
0407 e014 | | Load 0x0,0x14
0408 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0409 c805 | | Store 0x4,0x5
040a 00db | | Load_Top At_Offset_3
040b e014 | | Load 0x0,0x14
040c 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
040d e803 | | Load 0x4,0x3
040e 00ea | | Load_Encached Null_String_Cache
040f e603 | | Load 0x3,0x3
0410 4800 |H | Short_Literal 0x0
0411 e014 | | Load 0x0,0x14
0412 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0413 c803 | | Store 0x4,0x3
0414 00cf | | Action Mark_Auxiliary
0415 7802 |x | Jump 0x418
0416 8807 | | Call 0x4,0x7
0417 00c9 | | Action Pop_Auxiliary_Loop
0418 e803 | | Load 0x4,0x3
0419 e014 | | Load 0x0,0x14
041a 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
041b 6ffa |o | Jump_Zero 0x416
041c 00ce | | Action Pop_Auxiliary
041d e803 | | Load 0x4,0x3
041e e014 | | Load 0x0,0x14
041f 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0420 c803 | | Store 0x4,0x3
0421 00d9 | | Load_Top At_Offset_1
0422 00ca | | Action Exit_Nullary_Function
0423 0000 0000 | | .BLANK 0000[0x5]
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 0435 | 5 | .CONST 0x0435 ; Address of begin
0429 0004 | | .CONST 0x0004 ; Address of exception handler
042a 0004 | | .CONST 0x0004 ; Number of locals
042b INIT_0428:
042b e807 | | Load 0x4,0x7
042c e014 | | Load 0x0,0x14
042d 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
042e e017 | | Load 0x0,0x17
042f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0430 02c7 | | Declare_Variable Any
0431 00d8 | | Load_Top At_Offset_0
0432 1c00 | | Execute_Immediate Run_Utility,0x0
0433 029f 064b | K| Declare_Subprogram INIT_0648,For_Call
0435 BODY_0428:
0435 00da | | Load_Top At_Offset_2
0436 01db | | Execute Vector,Length
0437 0c01 | | Execute_Immediate Greater_Equal,0x1
0438 6807 |h | Jump_Zero 0x440
0439 00da | | Load_Top At_Offset_2
043a 01dd | | Execute Vector,First
043b 00db | | Load_Top At_Offset_3
043c 01d7 | | Execute Vector,Field_Read
043d 0f2a | * | Execute_Immediate Equal,0x2a
043e a803 | | Store_Unchecked 0x4,0x3
043f 7802 |x | Jump 0x442
0440 4800 |H | Short_Literal 0x0
0441 a803 | | Store_Unchecked 0x4,0x3
0442 e803 | | Load 0x4,0x3
0443 6807 |h | Jump_Zero 0x44b
0444 e805 | | Load 0x4,0x5
0445 00db | | Load_Top At_Offset_3
0446 e001 | | Load 0x0,0x1
0447 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0448 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0449 c805 | | Store 0x4,0x5
044a 8a04 | | Call 0x5,0x4
044b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
044c 0000 0000 | | .BLANK 0000[0x4]
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 0471 | q | .CONST 0x0471 ; Address of begin
0451 0004 | | .CONST 0x0004 ; Address of exception handler
0452 000d | | .CONST 0x000d ; Number of locals
0453 INIT_0450:
0453 e001 | | Load 0x0,0x1
0454 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0455 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0456 00e4 | | Load_Encached Positive_Cache
0457 0266 | f | Execute Discrete,Bounds
0458 00da | | Load_Top At_Offset_2
0459 02a0 | | Declare_Subprogram Null_Subprogram
045a 4801 |H | Short_Literal 0x1
045b 0350 | P | Declare_Type Array,Defined,Bounds_With_Object
045c 4801 |H | Short_Literal 0x1
045d e802 | | Load 0x4,0x2
045e 00da | | Load_Top At_Offset_2
045f 035b | [ | Declare_Type Array,Constrained
0460 0337 | 7 | Declare_Variable Array
0461 00e2 | | Load_Encached Integer_Cache
0462 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0463 029f 0683 | | Declare_Subprogram INIT_0680,For_Call
0465 a019 | | Store_Unchecked 0x0,0x19
0466 00c6 | | Action Check_Subprogram_Elaborated
0467 ea02 | | Load 0x5,0x2
0468 00e4 | | Load_Encached Positive_Cache
0469 ea03 | | Load 0x5,0x3
046a 4806 |H | Short_Literal 0x6
046b 4805 |H | Short_Literal 0x5
046c 0099 | | Action Reference_Dynamic
046d e01c | | Load 0x0,0x1c
046e e01d | | Load 0x0,0x1d
046f 480d |H | Short_Literal 0xd
0470 0007 | | Action Break_Optional
0471 BODY_0450:
0471 e804 | | Load 0x4,0x4
0472 0120 | | Execute Any,Is_Value
0473 6803 |h | Jump_Zero 0x477
0474 e017 | | Load 0x0,0x17
0475 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0476 7801 |x | Jump 0x478
0477 e804 | | Load 0x4,0x4
0478 e403 | | Load 0x2,0x3
0479 e017 | | Load 0x0,0x17
047a 181c | | Execute Package,Field_Execute,Field_Number 0x1c
047b c804 | | Store 0x4,0x4
047c 00cf | | Action Mark_Auxiliary
047d e804 | | Load 0x4,0x4
047e e017 | | Load 0x0,0x17
047f 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0480 e017 | | Load 0x0,0x17
0481 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0482 7018 |p | Jump_Nonzero 0x49b
0483 ea04 | | Load 0x5,0x4
0484 ea05 | | Load 0x5,0x5
0485 00d8 | | Load_Top At_Offset_0
0486 00da | | Load_Top At_Offset_2
0487 01d7 | | Execute Vector,Field_Read
0488 e001 | | Load 0x0,0x1
0489 1b0e | | Execute Package,Field_Read,Field_Number 0xe
048a 1b11 | | Execute Package,Field_Read,Field_Number 0x11
048b 0226 | & | Execute Access,Convert
048c e804 | | Load 0x4,0x4
048d e017 | | Load 0x0,0x17
048e 181e | | Execute Package,Field_Execute,Field_Number 0x1e
048f e017 | | Load 0x0,0x17
0490 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0491 e001 | | Load 0x0,0x1
0492 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0493 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0494 00d9 | | Load_Top At_Offset_1
0495 00db | | Load_Top At_Offset_3
0496 01d6 | | Execute Vector,Field_Write
0497 00d2 | | Pop_Control Pop_Count_2
0498 ea05 | | Load 0x5,0x5
0499 0a01 | | Execute_Immediate Plus,0x1
049a ca05 | | Store 0x5,0x5
049b e804 | | Load 0x4,0x4
049c e017 | | Load 0x0,0x17
049d 181d | | Execute Package,Field_Execute,Field_Number 0x1d
049e c804 | | Store 0x4,0x4
049f e804 | | Load 0x4,0x4
04a0 e017 | | Load 0x0,0x17
04a1 181f | | Execute Package,Field_Execute,Field_Number 0x1f
04a2 7002 |p | Jump_Nonzero 0x4a5
04a3 00c9 | | Action Pop_Auxiliary_Loop
04a4 7fd8 | | Jump 0x47d
04a5 00ce | | Action Pop_Auxiliary
04a6 ea04 | | Load 0x5,0x4
04a7 ea07 | | Load 0x5,0x7
04a8 ea08 | | Load 0x5,0x8
04a9 ea09 | | Load 0x5,0x9
04aa 480a |H | Short_Literal 0xa
04ab 4805 |H | Short_Literal 0x5
04ac 0099 | | Action Reference_Dynamic
04ad 480b |H | Short_Literal 0xb
04ae 4805 |H | Short_Literal 0x5
04af 0099 | | Action Reference_Dynamic
04b0 8019 | | Call 0x0,0x19
04b1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04b2 0000 0000 | | .BLANK 0000[0x6]
04b8 ; --------------------------------------------------------------------------------------
04b8 ; SUBPROGRAM
04b8 ; --------------------------------------------------------------------------------------
04b8 04be | | .CONST 0x04be ; Address of begin
04b9 0004 | | .CONST 0x0004 ; Address of exception handler
04ba 0002 | | .CONST 0x0002 ; Number of locals
04bb INIT_04b8:
04bb e804 | | Load 0x4,0x4
04bc e014 | | Load 0x0,0x14
04bd 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
04be BODY_04b8:
04be e804 | | Load 0x4,0x4
04bf e014 | | Load 0x0,0x14
04c0 181b | | Execute Package,Field_Execute,Field_Number 0x1b
04c1 c804 | | Store 0x4,0x4
04c2 4801 |H | Short_Literal 0x1
04c3 0092 06dc | | Action Push_String_Extended,0x6dc ; "There is no default class."
04c5 00da | | Load_Top At_Offset_2
04c6 e00a | | Load 0x0,0xa
04c7 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
04c8 6803 |h | Jump_Zero 0x4cc
04c9 00ea | | Load_Encached Null_String_Cache
04ca 00cb | | Action Pop_Block_With_Result
04cb 00ca | | Action Exit_Nullary_Function
04cc 4801 |H | Short_Literal 0x1
04cd 00d9 | | Load_Top At_Offset_1
04ce 4822 |H" | Short_Literal 0x22
04cf e00a | | Load 0x0,0xa
04d0 181e | | Execute Package,Field_Execute,Field_Number 0x1e
04d1 0a01 | | Execute_Immediate Plus,0x1
04d2 00d8 | | Load_Top At_Offset_0
04d3 00e2 | | Load_Encached Integer_Cache
04d4 0260 | ` | Execute Discrete,In_Type
04d5 7001 |p | Jump_Nonzero 0x4d7
04d6 0801 | | Execute_Immediate Raise,0x1
04d7 4801 |H | Short_Literal 0x1
04d8 00da | | Load_Top At_Offset_2
04d9 4822 |H" | Short_Literal 0x22
04da e00a | | Load 0x0,0xa
04db 1820 | | Execute Package,Field_Execute,Field_Number 0x20
04dc 0aff | | Execute_Immediate Plus,-0x1
04dd 00da | | Load_Top At_Offset_2
04de 01cf | | Execute Vector,Slice_Read
04df 00cb | | Action Pop_Block_With_Result
04e0 00ca | | Action Exit_Nullary_Function
04e1 0000 0000 | | .BLANK 0000[0x7]
04e8 ; --------------------------------------------------------------------------------------
04e8 ; SUBPROGRAM
04e8 ; --------------------------------------------------------------------------------------
04e8 04fc | | .CONST 0x04fc ; Address of begin
04e9 0004 | | .CONST 0x0004 ; Address of exception handler
04ea 0003 | | .CONST 0x0003 ; Number of locals
04eb INIT_04e8:
04eb e802 | | Load 0x4,0x2
04ec 01dd | | Execute Vector,First
04ed 4801 |H | Short_Literal 0x1
04ee e802 | | Load 0x4,0x2
04ef 0092 06d8 | | Action Push_String_Extended,0x6d8 ; " "
04f1 e00a | | Load 0x0,0xa
04f2 181d | | Execute Package,Field_Execute,Field_Number 0x1d
04f3 0aff | | Execute_Immediate Plus,-0x1
04f4 e802 | | Load 0x4,0x2
04f5 01cf | | Execute Vector,Slice_Read
04f6 0007 | | Action Break_Optional
04f7 e017 | | Load 0x0,0x17
04f8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04f9 02c7 | | Declare_Variable Any
04fa 00d8 | | Load_Top At_Offset_0
04fb 1c00 | | Execute_Immediate Run_Utility,0x0
04fc BODY_04e8:
04fc 4801 |H | Short_Literal 0x1
04fd e602 | | Load 0x3,0x2
04fe 00db | | Load_Top At_Offset_3
04ff e017 | | Load 0x0,0x17
0500 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0501 e017 | | Load 0x0,0x17
0502 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0503 6811 |h | Jump_Zero 0x515
0504 4801 |H | Short_Literal 0x1
0505 e602 | | Load 0x3,0x2
0506 00db | | Load_Top At_Offset_3
0507 e017 | | Load 0x0,0x17
0508 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0509 ca03 | | Store 0x5,0x3
050a e604 | | Load 0x3,0x4
050b 0a01 | | Execute_Immediate Plus,0x1
050c c604 | | Store 0x3,0x4
050d 00d9 | | Load_Top At_Offset_1
050e 01db | | Execute Vector,Length
050f e607 | | Load 0x3,0x7
0510 027d | } | Execute Discrete,Greater
0511 6803 |h | Jump_Zero 0x515
0512 00d9 | | Load_Top At_Offset_1
0513 01db | | Execute Vector,Length
0514 c607 | | Store 0x3,0x7
0515 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0516 0000 0000 | | .XXX[0x2]
0518 ; --------------------------------------------------------------------------------------
0518 ; SUBPROGRAM
0518 ; --------------------------------------------------------------------------------------
0518 051b | | .CONST 0x051b ; Address of begin
0519 0004 | | .CONST 0x0004 ; Address of exception handler
051a 0001 | | .CONST 0x0001 ; Number of locals
051b BODY_0518:
051b INIT_0518:
051b 4801 |H | Short_Literal 0x1
051c ebfe | | Load 0x5,-0x2
051d e001 | | Load 0x0,0x1
051e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
051f 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0520 ebff | | Load 0x5,-0x1
0521 e001 | | Load 0x0,0x1
0522 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0523 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0524 e00a | | Load 0x0,0xa
0525 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0526 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0527 0000 | | .XXX[0x1]
0528 ; --------------------------------------------------------------------------------------
0528 ; SUBPROGRAM
0528 ; --------------------------------------------------------------------------------------
0528 052b | + | .CONST 0x052b ; Address of begin
0529 0534 | 4 | .CONST 0x0534 ; Address of exception handler
052a 0001 | | .CONST 0x0001 ; Number of locals
052b BODY_0528:
052b INIT_0528:
052b e808 | | Load 0x4,0x8
052c 00ea | | Load_Encached Null_String_Cache
052d 0092 06d3 | | Action Push_String_Extended,0x6d3 ; "!MACHINE.QUEUES.USER_TO_PRINTER_MAP"
052f 4800 |H | Short_Literal 0x0
0530 e014 | | Load 0x0,0x14
0531 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0532 c808 | | Store 0x4,0x8
0533 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0534 TRAP_0528:
0534 0007 | | Action Break_Optional
0535 e807 | | Load 0x4,0x7
0536 8407 | | Call 0x2,0x7
0537 e001 | | Load 0x0,0x1
0538 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0539 181c | | Execute Package,Field_Execute,Field_Number 0x1c
053a c807 | | Store 0x4,0x7
053b e807 | | Load 0x4,0x7
053c 480a |H | Short_Literal 0xa
053d e001 | | Load 0x0,0x1
053e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
053f 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0540 c807 | | Store 0x4,0x7
0541 e807 | | Load 0x4,0x7
0542 00cb | | Action Pop_Block_With_Result
0543 00cb | | Action Pop_Block_With_Result
0544 00ca | | Action Exit_Nullary_Function
0545 0000 0000 | | .XXX[0x3]
0547 0000 | |
0548 ; --------------------------------------------------------------------------------------
0548 ; SUBPROGRAM
0548 ; --------------------------------------------------------------------------------------
0548 0555 | U | .CONST 0x0555 ; Address of begin
0549 0004 | | .CONST 0x0004 ; Address of exception handler
054a 0004 | | .CONST 0x0004 ; Number of locals
054b INIT_0548:
054b e808 | | Load 0x4,0x8
054c e014 | | Load 0x0,0x14
054d 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
054e e017 | | Load 0x0,0x17
054f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0550 02c7 | | Declare_Variable Any
0551 00d8 | | Load_Top At_Offset_0
0552 1c00 | | Execute_Immediate Run_Utility,0x0
0553 029f 0693 | | Declare_Subprogram INIT_0690,For_Call
0555 BODY_0548:
0555 00da | | Load_Top At_Offset_2
0556 01db | | Execute Vector,Length
0557 0c01 | | Execute_Immediate Greater_Equal,0x1
0558 6806 |h | Jump_Zero 0x55f
0559 00da | | Load_Top At_Offset_2
055a 01dd | | Execute Vector,First
055b 00db | | Load_Top At_Offset_3
055c 01d7 | | Execute Vector,Field_Read
055d 0f2a | * | Execute_Immediate Equal,0x2a
055e 7801 |x | Jump 0x560
055f 4800 |H | Short_Literal 0x0
0560 a803 | | Store_Unchecked 0x4,0x3
0561 e803 | | Load 0x4,0x3
0562 6807 |h | Jump_Zero 0x56a
0563 e805 | | Load 0x4,0x5
0564 00db | | Load_Top At_Offset_3
0565 e001 | | Load 0x0,0x1
0566 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0567 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0568 c805 | | Store 0x4,0x5
0569 8a04 | | Call 0x5,0x4
056a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
056b 0000 0000 | | .BLANK 0000[0x5]
0570 ; --------------------------------------------------------------------------------------
0570 ; SUBPROGRAM
0570 ; --------------------------------------------------------------------------------------
0570 0591 | | .CONST 0x0591 ; Address of begin
0571 0004 | | .CONST 0x0004 ; Address of exception handler
0572 000d | | .CONST 0x000d ; Number of locals
0573 INIT_0570:
0573 e001 | | Load 0x0,0x1
0574 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0575 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0576 00e4 | | Load_Encached Positive_Cache
0577 0266 | f | Execute Discrete,Bounds
0578 00da | | Load_Top At_Offset_2
0579 02a0 | | Declare_Subprogram Null_Subprogram
057a 4801 |H | Short_Literal 0x1
057b 0350 | P | Declare_Type Array,Defined,Bounds_With_Object
057c 4801 |H | Short_Literal 0x1
057d e802 | | Load 0x4,0x2
057e 00da | | Load_Top At_Offset_2
057f 035b | [ | Declare_Type Array,Constrained
0580 0337 | 7 | Declare_Variable Array
0581 00e2 | | Load_Encached Integer_Cache
0582 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0583 029f 06c3 | | Declare_Subprogram INIT_06c0,For_Call
0585 a019 | | Store_Unchecked 0x0,0x19
0586 00c6 | | Action Check_Subprogram_Elaborated
0587 ea02 | | Load 0x5,0x2
0588 00e4 | | Load_Encached Positive_Cache
0589 ea03 | | Load 0x5,0x3
058a 4806 |H | Short_Literal 0x6
058b 4805 |H | Short_Literal 0x5
058c 0099 | | Action Reference_Dynamic
058d e01e | | Load 0x0,0x1e
058e e01f | | Load 0x0,0x1f
058f 480d |H | Short_Literal 0xd
0590 0007 | | Action Break_Optional
0591 BODY_0570:
0591 e804 | | Load 0x4,0x4
0592 0120 | | Execute Any,Is_Value
0593 6803 |h | Jump_Zero 0x597
0594 e017 | | Load 0x0,0x17
0595 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0596 7801 |x | Jump 0x598
0597 e804 | | Load 0x4,0x4
0598 e403 | | Load 0x2,0x3
0599 e017 | | Load 0x0,0x17
059a 181c | | Execute Package,Field_Execute,Field_Number 0x1c
059b c804 | | Store 0x4,0x4
059c 00cf | | Action Mark_Auxiliary
059d e804 | | Load 0x4,0x4
059e e017 | | Load 0x0,0x17
059f 181e | | Execute Package,Field_Execute,Field_Number 0x1e
05a0 e017 | | Load 0x0,0x17
05a1 181a | | Execute Package,Field_Execute,Field_Number 0x1a
05a2 7018 |p | Jump_Nonzero 0x5bb
05a3 ea04 | | Load 0x5,0x4
05a4 ea05 | | Load 0x5,0x5
05a5 00d8 | | Load_Top At_Offset_0
05a6 00da | | Load_Top At_Offset_2
05a7 01d7 | | Execute Vector,Field_Read
05a8 e001 | | Load 0x0,0x1
05a9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05aa 1b11 | | Execute Package,Field_Read,Field_Number 0x11
05ab 0226 | & | Execute Access,Convert
05ac e804 | | Load 0x4,0x4
05ad e017 | | Load 0x0,0x17
05ae 181e | | Execute Package,Field_Execute,Field_Number 0x1e
05af e017 | | Load 0x0,0x17
05b0 1818 | | Execute Package,Field_Execute,Field_Number 0x18
05b1 e001 | | Load 0x0,0x1
05b2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05b3 1819 | | Execute Package,Field_Execute,Field_Number 0x19
05b4 00d9 | | Load_Top At_Offset_1
05b5 00db | | Load_Top At_Offset_3
05b6 01d6 | | Execute Vector,Field_Write
05b7 00d2 | | Pop_Control Pop_Count_2
05b8 ea05 | | Load 0x5,0x5
05b9 0a01 | | Execute_Immediate Plus,0x1
05ba ca05 | | Store 0x5,0x5
05bb e804 | | Load 0x4,0x4
05bc e017 | | Load 0x0,0x17
05bd 181d | | Execute Package,Field_Execute,Field_Number 0x1d
05be c804 | | Store 0x4,0x4
05bf e804 | | Load 0x4,0x4
05c0 e017 | | Load 0x0,0x17
05c1 181f | | Execute Package,Field_Execute,Field_Number 0x1f
05c2 7002 |p | Jump_Nonzero 0x5c5
05c3 00c9 | | Action Pop_Auxiliary_Loop
05c4 7fd8 | | Jump 0x59d
05c5 00ce | | Action Pop_Auxiliary
05c6 ea04 | | Load 0x5,0x4
05c7 ea07 | | Load 0x5,0x7
05c8 ea08 | | Load 0x5,0x8
05c9 ea09 | | Load 0x5,0x9
05ca 480a |H | Short_Literal 0xa
05cb 4805 |H | Short_Literal 0x5
05cc 0099 | | Action Reference_Dynamic
05cd 480b |H | Short_Literal 0xb
05ce 4805 |H | Short_Literal 0x5
05cf 0099 | | Action Reference_Dynamic
05d0 8019 | | Call 0x0,0x19
05d1 00d1 | | Pop_Control Pop_Count_1
05d2 00cf | | Action Mark_Auxiliary
05d3 e802 | | Load 0x4,0x2
05d4 4801 |H | Short_Literal 0x1
05d5 0263 | c | Execute Discrete,Above_Bound
05d6 7010 |p | Jump_Nonzero 0x5e7
05d7 e807 | | Load 0x4,0x7
05d8 00d9 | | Load_Top At_Offset_1
05d9 ea04 | | Load 0x5,0x4
05da 01d7 | | Execute Vector,Field_Read
05db e001 | | Load 0x0,0x1
05dc 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05dd 181c | | Execute Package,Field_Execute,Field_Number 0x1c
05de c807 | | Store 0x4,0x7
05df e807 | | Load 0x4,0x7
05e0 480a |H | Short_Literal 0xa
05e1 e001 | | Load 0x0,0x1
05e2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05e3 181e | | Execute Package,Field_Execute,Field_Number 0x1e
05e4 c807 | | Store 0x4,0x7
05e5 00c8 | | Action Pop_Auxiliary_Range
05e6 3ff0 |? | Loop_Increasing 0x5d7
05e7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
05e8 ; --------------------------------------------------------------------------------------
05e8 ; SUBPROGRAM
05e8 ; --------------------------------------------------------------------------------------
05e8 05ee | | .CONST 0x05ee ; Address of begin
05e9 0004 | | .CONST 0x0004 ; Address of exception handler
05ea 0002 | | .CONST 0x0002 ; Number of locals
05eb INIT_05e8:
05eb e804 | | Load 0x4,0x4
05ec e014 | | Load 0x0,0x14
05ed 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
05ee BODY_05e8:
05ee e804 | | Load 0x4,0x4
05ef e014 | | Load 0x0,0x14
05f0 181b | | Execute Package,Field_Execute,Field_Number 0x1b
05f1 c804 | | Store 0x4,0x4
05f2 4801 |H | Short_Literal 0x1
05f3 0092 06dc | | Action Push_String_Extended,0x6dc ; "There is no default class."
05f5 00da | | Load_Top At_Offset_2
05f6 e00a | | Load 0x0,0xa
05f7 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
05f8 6803 |h | Jump_Zero 0x5fc
05f9 00ea | | Load_Encached Null_String_Cache
05fa 00cb | | Action Pop_Block_With_Result
05fb 00ca | | Action Exit_Nullary_Function
05fc 4801 |H | Short_Literal 0x1
05fd 00d9 | | Load_Top At_Offset_1
05fe 4822 |H" | Short_Literal 0x22
05ff e00a | | Load 0x0,0xa
0600 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0601 0a01 | | Execute_Immediate Plus,0x1
0602 00d8 | | Load_Top At_Offset_0
0603 00e2 | | Load_Encached Integer_Cache
0604 0260 | ` | Execute Discrete,In_Type
0605 7001 |p | Jump_Nonzero 0x607
0606 0801 | | Execute_Immediate Raise,0x1
0607 4801 |H | Short_Literal 0x1
0608 00da | | Load_Top At_Offset_2
0609 4822 |H" | Short_Literal 0x22
060a e00a | | Load 0x0,0xa
060b 1820 | | Execute Package,Field_Execute,Field_Number 0x20
060c 0aff | | Execute_Immediate Plus,-0x1
060d 00da | | Load_Top At_Offset_2
060e 01cf | | Execute Vector,Slice_Read
060f 00cb | | Action Pop_Block_With_Result
0610 00ca | | Action Exit_Nullary_Function
0611 0000 0000 | | .BLANK 0000[0x7]
0618 ; --------------------------------------------------------------------------------------
0618 ; SUBPROGRAM
0618 ; --------------------------------------------------------------------------------------
0618 061e | | .CONST 0x061e ; Address of begin
0619 0004 | | .CONST 0x0004 ; Address of exception handler
061a 0002 | | .CONST 0x0002 ; Number of locals
061b INIT_0618:
061b e803 | | Load 0x4,0x3
061c e014 | | Load 0x0,0x14
061d 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
061e BODY_0618:
061e 4801 |H | Short_Literal 0x1
061f 00d9 | | Load_Top At_Offset_1
0620 0092 06db | | Action Push_String_Extended,0x6db ; "=="
0622 e00a | | Load 0x0,0xa
0623 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0624 00d9 | | Load_Top At_Offset_1
0625 01dd | | Execute Vector,First
0626 027f | | Execute Discrete,Equal
0627 6803 |h | Jump_Zero 0x62b
0628 4801 |H | Short_Literal 0x1
0629 a802 | | Store_Unchecked 0x4,0x2
062a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
062b e802 | | Load 0x4,0x2
062c 6816 |h | Jump_Zero 0x643
062d e806 | | Load 0x4,0x6
062e 00d9 | | Load_Top At_Offset_1
062f 01dd | | Execute Vector,First
0630 4801 |H | Short_Literal 0x1
0631 00db | | Load_Top At_Offset_3
0632 0092 06d8 | | Action Push_String_Extended,0x6d8 ; " "
0634 e00a | | Load 0x0,0xa
0635 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0636 0aff | | Execute_Immediate Plus,-0x1
0637 00db | | Load_Top At_Offset_3
0638 01cf | | Execute Vector,Slice_Read
0639 e001 | | Load 0x0,0x1
063a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
063b 181d | | Execute Package,Field_Execute,Field_Number 0x1d
063c c806 | | Store 0x4,0x6
063d e806 | | Load 0x4,0x6
063e 480a |H | Short_Literal 0xa
063f e001 | | Load 0x0,0x1
0640 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0641 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0642 c806 | | Store 0x4,0x6
0643 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0644 0000 0000 | | .BLANK 0000[0x4]
0648 ; --------------------------------------------------------------------------------------
0648 ; SUBPROGRAM
0648 ; --------------------------------------------------------------------------------------
0648 065d | ] | .CONST 0x065d ; Address of begin
0649 0004 | | .CONST 0x0004 ; Address of exception handler
064a 0002 | | .CONST 0x0002 ; Number of locals
064b INIT_0648:
064b 4801 |H | Short_Literal 0x1
064c ea02 | | Load 0x5,0x2
064d 4820 |H | Short_Literal 0x20
064e e00a | | Load 0x0,0xa
064f 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0650 ea02 | | Load 0x5,0x2
0651 01dd | | Execute Vector,First
0652 0272 | r | Execute Discrete,Minus
0653 00d8 | | Load_Top At_Offset_0
0654 00e3 | | Load_Encached Natural_Cache
0655 0260 | ` | Execute Discrete,In_Type
0656 7001 |p | Jump_Nonzero 0x658
0657 0801 | | Execute_Immediate Raise,0x1
0658 4802 |H | Short_Literal 0x2
0659 e805 | | Load 0x4,0x5
065a e001 | | Load 0x0,0x1
065b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
065c 1815 | | Execute Package,Field_Execute,Field_Number 0x15
065d BODY_0648:
065d e009 | | Load 0x0,0x9
065e 180e | | Execute Package,Field_Execute,Field_Number 0xe
065f 4801 |H | Short_Literal 0x1
0660 00da | | Load_Top At_Offset_2
0661 e00b | | Load 0x0,0xb
0662 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0663 4801 |H | Short_Literal 0x1
0664 e403 | | Load 0x2,0x3
0665 00da | | Load_Top At_Offset_2
0666 e017 | | Load 0x0,0x17
0667 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0668 e017 | | Load 0x0,0x17
0669 181a | | Execute Package,Field_Execute,Field_Number 0x1a
066a 6811 |h | Jump_Zero 0x67c
066b 4801 |H | Short_Literal 0x1
066c e403 | | Load 0x2,0x3
066d 00da | | Load_Top At_Offset_2
066e e017 | | Load 0x0,0x17
066f 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0670 ca03 | | Store 0x5,0x3
0671 e802 | | Load 0x4,0x2
0672 0a01 | | Execute_Immediate Plus,0x1
0673 c802 | | Store 0x4,0x2
0674 00d8 | | Load_Top At_Offset_0
0675 01db | | Execute Vector,Length
0676 e806 | | Load 0x4,0x6
0677 027d | } | Execute Discrete,Greater
0678 6803 |h | Jump_Zero 0x67c
0679 00d8 | | Load_Top At_Offset_0
067a 01db | | Execute Vector,Length
067b c806 | | Store 0x4,0x6
067c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
067d 0000 0000 | | .XXX[0x3]
067f 0000 | |
0680 ; --------------------------------------------------------------------------------------
0680 ; SUBPROGRAM
0680 ; --------------------------------------------------------------------------------------
0680 0683 | | .CONST 0x0683 ; Address of begin
0681 0004 | | .CONST 0x0004 ; Address of exception handler
0682 0001 | | .CONST 0x0001 ; Number of locals
0683 BODY_0680:
0683 INIT_0680:
0683 4801 |H | Short_Literal 0x1
0684 edfe | | Load 0x6,-0x2
0685 e001 | | Load 0x0,0x1
0686 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0687 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0688 edff | | Load 0x6,-0x1
0689 e001 | | Load 0x0,0x1
068a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
068b 1816 | | Execute Package,Field_Execute,Field_Number 0x16
068c e00a | | Load 0x0,0xa
068d 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
068e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
068f 0000 | | .XXX[0x1]
0690 ; --------------------------------------------------------------------------------------
0690 ; SUBPROGRAM
0690 ; --------------------------------------------------------------------------------------
0690 06a5 | | .CONST 0x06a5 ; Address of begin
0691 0004 | | .CONST 0x0004 ; Address of exception handler
0692 0002 | | .CONST 0x0002 ; Number of locals
0693 INIT_0690:
0693 4801 |H | Short_Literal 0x1
0694 ea02 | | Load 0x5,0x2
0695 4820 |H | Short_Literal 0x20
0696 e00a | | Load 0x0,0xa
0697 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0698 ea02 | | Load 0x5,0x2
0699 01dd | | Execute Vector,First
069a 0272 | r | Execute Discrete,Minus
069b 00d8 | | Load_Top At_Offset_0
069c 00e3 | | Load_Encached Natural_Cache
069d 0260 | ` | Execute Discrete,In_Type
069e 7001 |p | Jump_Nonzero 0x6a0
069f 0801 | | Execute_Immediate Raise,0x1
06a0 4802 |H | Short_Literal 0x2
06a1 e805 | | Load 0x4,0x5
06a2 e001 | | Load 0x0,0x1
06a3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
06a4 1815 | | Execute Package,Field_Execute,Field_Number 0x15
06a5 BODY_0690:
06a5 4801 |H | Short_Literal 0x1
06a6 e403 | | Load 0x2,0x3
06a7 00da | | Load_Top At_Offset_2
06a8 e017 | | Load 0x0,0x17
06a9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
06aa e017 | | Load 0x0,0x17
06ab 181a | | Execute Package,Field_Execute,Field_Number 0x1a
06ac 6811 |h | Jump_Zero 0x6be
06ad 4801 |H | Short_Literal 0x1
06ae e403 | | Load 0x2,0x3
06af 00da | | Load_Top At_Offset_2
06b0 e017 | | Load 0x0,0x17
06b1 1812 | | Execute Package,Field_Execute,Field_Number 0x12
06b2 ca03 | | Store 0x5,0x3
06b3 e802 | | Load 0x4,0x2
06b4 0a01 | | Execute_Immediate Plus,0x1
06b5 c802 | | Store 0x4,0x2
06b6 00d8 | | Load_Top At_Offset_0
06b7 01db | | Execute Vector,Length
06b8 e806 | | Load 0x4,0x6
06b9 027d | } | Execute Discrete,Greater
06ba 6803 |h | Jump_Zero 0x6be
06bb 00d8 | | Load_Top At_Offset_0
06bc 01db | | Execute Vector,Length
06bd c806 | | Store 0x4,0x6
06be 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06bf 0000 | | .XXX[0x1]
06c0 ; --------------------------------------------------------------------------------------
06c0 ; SUBPROGRAM
06c0 ; --------------------------------------------------------------------------------------
06c0 06c3 | | .CONST 0x06c3 ; Address of begin
06c1 0004 | | .CONST 0x0004 ; Address of exception handler
06c2 0001 | | .CONST 0x0001 ; Number of locals
06c3 BODY_06c0:
06c3 INIT_06c0:
06c3 4801 |H | Short_Literal 0x1
06c4 edfe | | Load 0x6,-0x2
06c5 e001 | | Load 0x0,0x1
06c6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
06c7 1816 | | Execute Package,Field_Execute,Field_Number 0x16
06c8 edff | | Load 0x6,-0x1
06c9 e001 | | Load 0x0,0x1
06ca 1b0e | | Execute Package,Field_Read,Field_Number 0xe
06cb 1816 | | Execute Package,Field_Execute,Field_Number 0x16
06cc e00a | | Load 0x0,0xa
06cd 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
06ce 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
06cf ; --------------------------------------------------------------------------------------
06cf ; STRING TABLE
06cf ; --------------------------------------------------------------------------------------
06cf 001e | | .STRTAB 0x001e->0x06de ; "Unknown Environment version"
06d0 0037 | 7 | .STRTAB 0x0037->0x06eb ; "all"
06d1 0038 | 8 | .STRTAB 0x0038->0x06ed ; "<QUIET>"
06d2 003d | = | .STRTAB 0x003d->0x06f0 ; "<DIRECTORIES>"
06d3 0048 | H | .STRTAB 0x0048->0x06f7 ; "!MACHINE.QUEUES.USER_TO_PRINTER_MAP"
06d4 0069 | i | .STRTAB 0x0069->0x0708 ; "!machine.initialization.local.user_printer_map"
06d5 0095 | | .STRTAB 0x0095->0x071f ; "Default printer found in !Machine.Initialization.Local.User_Printer_Map"
06d6 00da | | .STRTAB 0x00da->0x0743 ; "!machine.initialization.site.printer_configuration"
06d7 010a | | .STRTAB 0x010a->0x075c ; "Default printer found in !Machine.Initialization.Site.Printer_Configuration"
06d8 0153 | S | .STRTAB 0x0153->0x0781 ; " "
06d9 0152 | R | .STRTAB 0x0152->0x0782 ; "!machine.initialization.local.printer_configuration"
06da 0183 | | .STRTAB 0x0183->0x079b ; "Default printer found in !Machine.Initialization.Local.Printer_Configuration"
06db 01cd | | .STRTAB 0x01cd->0x07c1 ; "=="
06dc 01cd | | .STRTAB 0x01cd->0x07c2 ; "There is no default class."
06dd 01e5 | | .STREND 0x01e5->0x07cf
06de 556e 6b6e |Unkn| .STRTAB_STRINGS
07d0 ; --------------------------------------------------------------------------------------
07d0 ; Debug Table
07d0 ; --------------------------------------------------------------------------------------
07d0 0004 0014 | | .DEBUG4 0x0004,0x0014,0x0f72,0x0000,0x0001,0x0000
07d6 0000 0000 | | .BLANK 0000[0x23]
07f9 8000 0010 | | .XXX[0x2]
07fb 0000 0000 | | .BLANK 0000[0x5]