|
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 0690 | | .CONST 0x0690 ; 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 8004 | | .CONST 0x8004 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0036 | 6 | .CONST 0x0036 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0010 | | .CONST 0x0010 ; Number of locals 000b INIT_0008: 000b e062 | b | Load 0x0,0x62 000c e063 | c | Load 0x0,0x63 000d 4be8 |K | Short_Literal 0x3e8 000e e055 | U | Load 0x0,0x55 000f 0387 | | Declare_Variable Package 0010 00d8 | | Load_Top At_Offset_0 0011 020f | | Execute Module,Activate 0012 00e9 | | Load_Encached String_Cache 0013 02a0 | | Declare_Subprogram Null_Subprogram 0014 4818 |H | Short_Literal 0x18 0015 03d3 | | Declare_Type Access,Defined,Accesses_Protected 0016 4800 |H | Short_Literal 0x0 0017 4802 |H | Short_Literal 0x2 0018 029f 00b3 | | Declare_Subprogram INIT_00b0,For_Call 001a 03fd | | Declare_Type Discrete,Defined 001b 00d8 | | Load_Top At_Offset_0 001c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 001d 00da | | Load_Top At_Offset_2 001e 0007 | | Action Break_Optional 001f 00db | | Load_Top At_Offset_3 0020 0007 | | Action Break_Optional 0021 e056 | V | Load 0x0,0x56 0022 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0023 02c7 | | Declare_Variable Any 0024 00d8 | | Load_Top At_Offset_0 0025 1c00 | | Execute_Immediate Run_Utility,0x0 0026 e402 | | Load 0x2,0x2 0027 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0028 029f 00db | | Declare_Subprogram INIT_00d8,For_Call 002a 029f 00f3 | | Declare_Subprogram INIT_00f0,For_Call 002c 029f 0133 | 3| Declare_Subprogram INIT_0130,For_Call 002e 029f 014b | K| Declare_Subprogram INIT_0148,For_Call 0030 029f 0193 | | Declare_Subprogram INIT_0190,For_Call 0032 029f 022b | +| Declare_Subprogram INIT_0228,For_Call 0034 029f 02b3 | | Declare_Subprogram INIT_02b0,For_Call 0036 BODY_0008: 0036 e407 | | Load 0x2,0x7 0037 e408 | | Load 0x2,0x8 0038 4801 |H | Short_Literal 0x1 0039 4801 |H | Short_Literal 0x1 003a 840a | | Call 0x2,0xa 003b c408 | | Store 0x2,0x8 003c c407 | | Store 0x2,0x7 003d e5e4 | | Load 0x2,-0x1c 003e e5e5 | | Load 0x2,-0x1b 003f e5e6 | | Load 0x2,-0x1a 0040 e5e7 | | Load 0x2,-0x19 0041 e5e8 | | Load 0x2,-0x18 0042 e5e9 | | Load 0x2,-0x17 0043 e5ea | | Load 0x2,-0x16 0044 e5eb | | Load 0x2,-0x15 0045 e5ec | | Load 0x2,-0x14 0046 e5ed | | Load 0x2,-0x13 0047 e5ee | | Load 0x2,-0x12 0048 e5ef | | Load 0x2,-0x11 0049 e5f0 | | Load 0x2,-0x10 004a e5f1 | | Load 0x2,-0xf 004b e5f2 | | Load 0x2,-0xe 004c e5f3 | | Load 0x2,-0xd 004d e5f4 | | Load 0x2,-0xc 004e e5f5 | | Load 0x2,-0xb 004f e5f6 | | Load 0x2,-0xa 0050 e5f7 | | Load 0x2,-0x9 0051 e5f8 | | Load 0x2,-0x8 0052 e5f9 | | Load 0x2,-0x7 0053 e5fa | | Load 0x2,-0x6 0054 e5fb | | Load 0x2,-0x5 0055 e5fc | | Load 0x2,-0x4 0056 e407 | | Load 0x2,0x7 0057 0227 | ' | Execute Access,All_Reference 0058 e5fe | | Load 0x2,-0x2 0059 e5ff | | Load 0x2,-0x1 005a 821f | | Call 0x1,0x1f 005b e405 | | Load 0x2,0x5 005c 840e | | Call 0x2,0xe 005d c405 | | Store 0x2,0x5 005e e405 | | Load 0x2,0x5 005f 4602 |F | Jump_Case 0x3 0060 783b |x; | Jump 0x9c ; case 0x0 0061 781d |x | Jump 0x7f ; case 0x1 0062 7800 |x | Jump 0x63 ; case 0x2 0063 4801 |H | Short_Literal 0x1 0064 0092 049e | | Action Push_String_Extended,0x49e ; "<DEFAULT>" 0066 e5fd | | Load 0x2,-0x3 0067 e057 | W | Load 0x0,0x57 0068 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0069 680f |h | Jump_Zero 0x79 006a 840c | | Call 0x2,0xc 006b e403 | | Load 0x2,0x3 006c 03b6 | | Declare_Variable Access,By_Allocation,With_Value 006d a406 | | Store_Unchecked 0x2,0x6 006e e058 | X | Load 0x0,0x58 006f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0070 4801 |H | Short_Literal 0x1 0071 0092 049f | | Action Push_String_Extended,0x49f ; "The default printer resolved to => " 0073 e406 | | Load 0x2,0x6 0074 0227 | ' | Execute Access,All_Reference 0075 01cc | | Execute Vector,Catenate 0076 e059 | Y | Load 0x0,0x59 0077 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0078 7804 |x | Jump 0x7d 0079 e5fd | | Load 0x2,-0x3 007a e403 | | Load 0x2,0x3 007b 03b6 | | Declare_Variable Access,By_Allocation,With_Value 007c a406 | | Store_Unchecked 0x2,0x6 007d 840f | | Call 0x2,0xf 007e 7821 |x! | Jump 0xa0 007f 4801 |H | Short_Literal 0x1 0080 0092 049e | | Action Push_String_Extended,0x49e ; "<DEFAULT>" 0082 e5fd | | Load 0x2,-0x3 0083 e057 | W | Load 0x0,0x57 0084 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0085 680e |h | Jump_Zero 0x94 0086 840b | | Call 0x2,0xb 0087 e406 | | Load 0x2,0x6 0088 0228 | ( | Execute Access,All_Write 0089 e058 | X | Load 0x0,0x58 008a 180e | | Execute Package,Field_Execute,Field_Number 0xe 008b 4801 |H | Short_Literal 0x1 008c 0092 049f | | Action Push_String_Extended,0x49f ; "The default printer resolved to => " 008e e406 | | Load 0x2,0x6 008f 0227 | ' | Execute Access,All_Reference 0090 01cc | | Execute Vector,Catenate 0091 e059 | Y | Load 0x0,0x59 0092 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0093 7804 |x | Jump 0x98 0094 e5fd | | Load 0x2,-0x3 0095 e403 | | Load 0x2,0x3 0096 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0097 a406 | | Store_Unchecked 0x2,0x6 0098 e5fa | | Load 0x2,-0x6 0099 7006 |p | Jump_Nonzero 0xa0 009a 8410 | | Call 0x2,0x10 009b 7804 |x | Jump 0xa0 009c 0092 04a0 | | Action Push_String_Extended,0x4a0 ; "Unknown Environment version" 009e e04e | N | Load 0x0,0x4e 009f 180f | | Execute Package,Field_Execute,Field_Number 0xf 00a0 0092 04a1 | | Action Push_String_Extended,0x4a1 ; "<QUIET>" 00a2 0092 04a2 | | Action Push_String_Extended,0x4a2 ; "<DIRECTORIES>" 00a4 e407 | | Load 0x2,0x7 00a5 0227 | ' | Execute Access,All_Reference 00a6 e05a | Z | Load 0x0,0x5a 00a7 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00a8 451d |E | Exit_Suprogram New_Top_Offset 0x1d 00a9 0000 0000 | | .BLANK 0000[0x7] 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 7806 |x | Jump 0xbc ; case 0x1 00b6 7809 |x | Jump 0xc0 ; case 0x2 00b7 780d |x | Jump 0xc5 ; case 0x3 00b8 7810 |x | Jump 0xc9 ; case 0x4 00b9 7811 |x | Jump 0xcb ; case 0x5 00ba 7812 |x | Jump 0xcd ; case 0x6 00bb 7815 |x | Jump 0xd1 ; case 0x7 00bc 00da | | Load_Top At_Offset_2 00bd 0091 049b | | Action Push_String_Extended_Indexed,0x49b ; "UNKNOWN" 00bf 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00c0 00db | | Load_Top At_Offset_3 00c1 00db | | Load_Top At_Offset_3 00c2 00e0 | | Load_Encached Standard_Cache 00c3 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00c4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00c5 00da | | Load_Top At_Offset_2 00c6 00e0 | | Load_Encached Standard_Cache 00c7 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00c8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00c9 00db | | Load_Top At_Offset_3 00ca 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00cb 00db | | Load_Top At_Offset_3 00cc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00cd e404 | | Load 0x2,0x4 00ce 00dc | | Load_Top At_Offset_4 00cf 0267 | g | Execute Discrete,Predecessor 00d0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00d1 e404 | | Load 0x2,0x4 00d2 00dc | | Load_Top At_Offset_4 00d3 0268 | h | Execute Discrete,Successor 00d4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00d5 0000 0000 | | .XXX[0x3] 00d7 0000 | | 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00dd | | .CONST 0x00dd ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0002 | | .CONST 0x0002 ; Number of locals 00db INIT_00d8: 00db 029f 02e3 | | Declare_Subprogram INIT_02e0,For_Call 00dd BODY_00d8: 00dd e7fd | | Load 0x3,-0x3 00de 00ea | | Load_Encached Null_String_Cache 00df 00ea | | Load_Encached Null_String_Cache 00e0 e7ff | | Load 0x3,-0x1 00e1 e056 | V | Load 0x0,0x56 00e2 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00e3 c7fd | | Store 0x3,-0x3 00e4 8602 | | Call 0x3,0x2 00e5 e7fe | | Load 0x3,-0x2 00e6 6804 |h | Jump_Zero 0xeb 00e7 e7fd | | Load 0x3,-0x3 00e8 e056 | V | Load 0x0,0x56 00e9 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00ea c7fd | | Store 0x3,-0x3 00eb 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00ec 0000 0000 | | .BLANK 0000[0x4] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 0106 | | .CONST 0x0106 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0006 | | .CONST 0x0006 ; Number of locals 00f3 INIT_00f0: 00f3 e056 | V | Load 0x0,0x56 00f4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00f5 02c7 | | Declare_Variable Any 00f6 00d8 | | Load_Top At_Offset_0 00f7 1c00 | | Execute_Immediate Run_Utility,0x0 00f8 e056 | V | Load 0x0,0x56 00f9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00fa 02c7 | | Declare_Variable Any 00fb 00d8 | | Load_Top At_Offset_0 00fc 1c00 | | Execute_Immediate Run_Utility,0x0 00fd e403 | | Load 0x2,0x3 00fe 0007 | | Action Break_Optional 00ff e056 | V | Load 0x0,0x56 0100 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0101 02c7 | | Declare_Variable Any 0102 00d8 | | Load_Top At_Offset_0 0103 1c00 | | Execute_Immediate Run_Utility,0x0 0104 029f 02f3 | | Declare_Subprogram INIT_02f0,For_Call 0106 BODY_00f0: 0106 00da | | Load_Top At_Offset_2 0107 00da | | Load_Top At_Offset_2 0108 4801 |H | Short_Literal 0x1 0109 4801 |H | Short_Literal 0x1 010a 840a | | Call 0x2,0xa 010b c605 | | Store 0x3,0x5 010c 003b | ; | Store_Top Access,At_Offset_3 010d e056 | V | Load 0x0,0x56 010e 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 010f c602 | | Store 0x3,0x2 0110 00d9 | | Load_Top At_Offset_1 0111 e056 | V | Load 0x0,0x56 0112 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0113 e056 | V | Load 0x0,0x56 0114 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 0115 c603 | | Store 0x3,0x3 0116 00ea | | Load_Encached Null_String_Cache 0117 e05b | [ | Load 0x0,0x5b 0118 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0119 00db | | Load_Top At_Offset_3 011a e056 | V | Load 0x0,0x56 011b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 011c c603 | | Store 0x3,0x3 011d e602 | | Load 0x3,0x2 011e e056 | V | Load 0x0,0x56 011f 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0120 00d9 | | Load_Top At_Offset_1 0121 00ea | | Load_Encached Null_String_Cache 0122 e604 | | Load 0x3,0x4 0123 0227 | ' | Execute Access,All_Reference 0124 4800 |H | Short_Literal 0x0 0125 e056 | V | Load 0x0,0x56 0126 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0127 c605 | | Store 0x3,0x5 0128 8606 | | Call 0x3,0x6 0129 0831 | 1 | Execute_Immediate Raise,0x31 012a 0000 0000 | | .BLANK 0000[0x6] 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0141 | A | .CONST 0x0141 ; Address of begin 0131 0004 | | .CONST 0x0004 ; Address of exception handler 0132 0006 | | .CONST 0x0006 ; Number of locals 0133 INIT_0130: 0133 00e1 | | Load_Encached Boolean_Cache 0134 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0135 4864 |Hd | Short_Literal 0x64 0136 e010 | | Load 0x0,0x10 0137 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0138 1c08 | | Execute_Immediate Run_Utility,0x8 0139 00d8 | | Load_Top At_Offset_0 013a 1c00 | | Execute_Immediate Run_Utility,0x0 013b 029f 032b | +| Declare_Subprogram INIT_0328,For_Call 013d 029f 0383 | | Declare_Subprogram INIT_0380,For_Call 013f 029f 03eb | | Declare_Subprogram INIT_03e8,For_Call 0141 BODY_0130: 0141 8604 | | Call 0x3,0x4 0142 8605 | | Call 0x3,0x5 0143 8606 | | Call 0x3,0x6 0144 840b | | Call 0x2,0xb 0145 00ca | | Action Exit_Nullary_Function 0146 0000 0000 | | .XXX[0x2] 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 0151 | Q | .CONST 0x0151 ; Address of begin 0149 0178 | x | .CONST 0x0178 ; Address of exception handler 014a 0003 | | .CONST 0x0003 ; Number of locals 014b INIT_0148: 014b e056 | V | Load 0x0,0x56 014c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 014d 02c7 | | Declare_Variable Any 014e 00d8 | | Load_Top At_Offset_0 014f 1c00 | | Execute_Immediate Run_Utility,0x0 0150 00e8 | | Load_Encached Character_Cache 0151 BODY_0148: 0151 00d9 | | Load_Top At_Offset_1 0152 00ea | | Load_Encached Null_String_Cache 0153 e7ff | | Load 0x3,-0x1 0154 4800 |H | Short_Literal 0x0 0155 e056 | V | Load 0x0,0x56 0156 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0157 c602 | | Store 0x3,0x2 0158 00cf | | Action Mark_Auxiliary 0159 7814 |x | Jump 0x16e 015a 00da | | Load_Top At_Offset_2 015b e056 | V | Load 0x0,0x56 015c 1843 | C | Execute Package,Field_Execute,Field_Number 0x43 015d 6805 |h | Jump_Zero 0x163 015e e409 | | Load 0x2,0x9 015f 480a |H | Short_Literal 0xa 0160 e402 | | Load 0x2,0x2 0161 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0162 c409 | | Store 0x2,0x9 0163 00e8 | | Load_Encached Character_Cache 0164 00db | | Load_Top At_Offset_3 0165 e056 | V | Load 0x0,0x56 0166 1857 | W | Execute Package,Field_Execute,Field_Number 0x57 0167 005a | Z | Store_Top Discrete,At_Offset_2 0168 e409 | | Load 0x2,0x9 0169 00da | | Load_Top At_Offset_2 016a e402 | | Load 0x2,0x2 016b 181e | | Execute Package,Field_Execute,Field_Number 0x1e 016c c409 | | Store 0x2,0x9 016d 00c9 | | Action Pop_Auxiliary_Loop 016e 00da | | Load_Top At_Offset_2 016f e056 | V | Load 0x0,0x56 0170 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0171 6fe8 |o | Jump_Zero 0x15a 0172 00ce | | Action Pop_Auxiliary 0173 00d9 | | Load_Top At_Offset_1 0174 e056 | V | Load 0x0,0x56 0175 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0176 c602 | | Store 0x3,0x2 0177 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0178 TRAP_0148: 0178 00d8 | | Load_Top At_Offset_0 0179 0107 | | Execute Exception,Get_Name 017a 4950 |IP | Short_Literal 0x150 017b 495f |I_ | Short_Literal 0x15f 017c 0262 | b | Execute Discrete,In_Range 017d 680a |h | Jump_Zero 0x188 017e e409 | | Load 0x2,0x9 017f 480a |H | Short_Literal 0xa 0180 e402 | | Load 0x2,0x2 0181 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0182 c409 | | Store 0x2,0x9 0183 00da | | Load_Top At_Offset_2 0184 e056 | V | Load 0x0,0x56 0185 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0186 c602 | | Store 0x3,0x2 0187 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0188 00d8 | | Load_Top At_Offset_0 0189 0101 | | Execute Exception,Reraise 018a 0000 0000 | | .BLANK 0000[0x6] 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 01b8 | | .CONST 0x01b8 ; Address of begin 0191 0217 | | .CONST 0x0217 ; Address of exception handler 0192 0006 | | .CONST 0x0006 ; Number of locals 0193 INIT_0190: 0193 4801 |H | Short_Literal 0x1 0194 4803 |H | Short_Literal 0x3 0195 00e2 | | Load_Encached Integer_Cache 0196 02a0 | | Declare_Subprogram Null_Subprogram 0197 4801 |H | Short_Literal 0x1 0198 035d | ] | Declare_Type Array,Defined 0199 00d8 | | Load_Top At_Offset_0 019a 0337 | 7 | Declare_Variable Array 019b 00d8 | | Load_Top At_Offset_0 019c 0335 | 5 | Declare_Variable Array,Duplicate 019d 00cd | | Action Spare6_Action 019e 4800 |H | Short_Literal 0x0 019f 4801 |H | Short_Literal 0x1 01a0 00da | | Load_Top At_Offset_2 01a1 01d6 | | Execute Vector,Field_Write 01a2 4800 |H | Short_Literal 0x0 01a3 4802 |H | Short_Literal 0x2 01a4 00da | | Load_Top At_Offset_2 01a5 01d6 | | Execute Vector,Field_Write 01a6 4800 |H | Short_Literal 0x0 01a7 4803 |H | Short_Literal 0x3 01a8 00da | | Load_Top At_Offset_2 01a9 01d6 | | Execute Vector,Field_Write 01aa 00d9 | | Load_Top At_Offset_1 01ab 01d4 | | Execute Vector,Structure_Write 01ac e056 | V | Load 0x0,0x56 01ad 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01ae 02c7 | | Declare_Variable Any 01af 00d8 | | Load_Top At_Offset_0 01b0 1c00 | | Execute_Immediate Run_Utility,0x0 01b1 4801 |H | Short_Literal 0x1 01b2 4801 |H | Short_Literal 0x1 01b3 00e9 | | Load_Encached String_Cache 01b4 035b | [ | Declare_Type Array,Constrained 01b5 0337 | 7 | Declare_Variable Array 01b6 029f 0453 | S| Declare_Subprogram INIT_0450,For_Call 01b8 BODY_0190: 01b8 4800 |H | Short_Literal 0x0 01b9 a7ff | | Store_Unchecked 0x3,-0x1 01ba 8606 | | Call 0x3,0x6 01bb 00cf | | Action Mark_Auxiliary 01bc 00e8 | | Load_Encached Character_Cache 01bd e604 | | Load 0x3,0x4 01be e056 | V | Load 0x0,0x56 01bf 1857 | W | Execute Package,Field_Execute,Field_Number 0x57 01c0 4801 |H | Short_Literal 0x1 01c1 e605 | | Load 0x3,0x5 01c2 01d6 | | Execute Vector,Field_Write 01c3 4801 |H | Short_Literal 0x1 01c4 00db | | Load_Top At_Offset_3 01c5 01d7 | | Execute Vector,Field_Read 01c6 0f5f | _ | Execute_Immediate Equal,0x5f 01c7 7002 |p | Jump_Nonzero 0x1ca 01c8 00c9 | | Action Pop_Auxiliary_Loop 01c9 7ff2 | | Jump 0x1bc 01ca 00c9 | | Action Pop_Auxiliary_Loop 01cb e602 | | Load 0x3,0x2 01cc 01d9 | | Execute Vector,Reverse_Bounds 01cd 00cf | | Action Mark_Auxiliary 01ce 00e8 | | Load_Encached Character_Cache 01cf e604 | | Load 0x3,0x4 01d0 e056 | V | Load 0x0,0x56 01d1 1857 | W | Execute Package,Field_Execute,Field_Number 0x57 01d2 4801 |H | Short_Literal 0x1 01d3 e605 | | Load 0x3,0x5 01d4 01d6 | | Execute Vector,Field_Write 01d5 4801 |H | Short_Literal 0x1 01d6 e605 | | Load 0x3,0x5 01d7 01d7 | | Execute Vector,Field_Read 01d8 0f5f | _ | Execute_Immediate Equal,0x5f 01d9 e604 | | Load 0x3,0x4 01da e056 | V | Load 0x0,0x56 01db 1843 | C | Execute Package,Field_Execute,Field_Number 0x43 01dc 0278 | x | Execute Discrete,Or 01dd 7016 |p | Jump_Nonzero 0x1f4 01de 4801 |H | Short_Literal 0x1 01df e605 | | Load 0x3,0x5 01e0 01d7 | | Execute Vector,Field_Read 01e1 4830 |H0 | Short_Literal 0x30 01e2 4839 |H9 | Short_Literal 0x39 01e3 0262 | b | Execute Discrete,In_Range 01e4 680d |h | Jump_Zero 0x1f2 01e5 00d9 | | Load_Top At_Offset_1 01e6 e603 | | Load 0x3,0x3 01e7 01d7 | | Execute Vector,Field_Read 01e8 480a |H | Short_Literal 0xa 01e9 0271 | q | Execute Discrete,Times 01ea e605 | | Load 0x3,0x5 01eb 00e2 | | Load_Encached Integer_Cache 01ec 00e0 | | Load_Encached Standard_Cache 01ed 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01ee 0273 | s | Execute Discrete,Plus 01ef 00da | | Load_Top At_Offset_2 01f0 e603 | | Load 0x3,0x3 01f1 01d6 | | Execute Vector,Field_Write 01f2 00c9 | | Action Pop_Auxiliary_Loop 01f3 7fda | | Jump 0x1ce 01f4 00ce | | Action Pop_Auxiliary 01f5 e604 | | Load 0x3,0x4 01f6 e056 | V | Load 0x0,0x56 01f7 1843 | C | Execute Package,Field_Execute,Field_Number 0x43 01f8 6802 |h | Jump_Zero 0x1fb 01f9 00d2 | | Pop_Control Pop_Count_2 01fa 7802 |x | Jump 0x1fd 01fb 00c8 | | Action Pop_Auxiliary_Range 01fc 3fd0 |? | Loop_Increasing 0x1cd 01fd 00ce | | Action Pop_Auxiliary 01fe 00da | | Load_Top At_Offset_2 01ff e056 | V | Load 0x0,0x56 0200 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0201 c604 | | Store 0x3,0x4 0202 4801 |H | Short_Literal 0x1 0203 e603 | | Load 0x3,0x3 0204 01d7 | | Execute Vector,Field_Read 0205 0c0c | | Execute_Immediate Greater_Equal,0xc 0206 4802 |H | Short_Literal 0x2 0207 e603 | | Load 0x3,0x3 0208 01d7 | | Execute Vector,Field_Read 0209 0c05 | | Execute_Immediate Greater_Equal,0x5 020a 0279 | y | Execute Discrete,And 020b 4803 |H | Short_Literal 0x3 020c e603 | | Load 0x3,0x3 020d 01d7 | | Execute Vector,Field_Read 020e 0c00 | | Execute_Immediate Greater_Equal,0x0 020f 0279 | y | Execute Discrete,And 0210 6803 |h | Jump_Zero 0x214 0211 4802 |H | Short_Literal 0x2 0212 a7ff | | Store_Unchecked 0x3,-0x1 0213 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0214 4801 |H | Short_Literal 0x1 0215 a7ff | | Store_Unchecked 0x3,-0x1 0216 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0217 TRAP_0190: 0217 e04e | N | Load 0x0,0x4e 0218 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0219 010f | | Execute Exception,Equal 021a 6802 |h | Jump_Zero 0x21d 021b 00d8 | | Load_Top At_Offset_0 021c 0101 | | Execute Exception,Reraise 021d 00db | | Load_Top At_Offset_3 021e e056 | V | Load 0x0,0x56 021f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0220 c604 | | Store 0x3,0x4 0221 0092 04a3 | | Action Push_String_Extended,0x4a3 ; "Trouble parsing !Machine.Release.Environment.Current" 0223 e04e | N | Load 0x0,0x4e 0224 180f | | Execute Package,Field_Execute,Field_Number 0xf 0225 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0226 0000 0000 | | .XXX[0x2] 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 0240 | @ | .CONST 0x0240 ; Address of begin 0229 0004 | | .CONST 0x0004 ; Address of exception handler 022a 0007 | | .CONST 0x0007 ; Number of locals 022b INIT_0228: 022b e403 | | Load 0x2,0x3 022c 0007 | | Action Break_Optional 022d e056 | V | Load 0x0,0x56 022e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 022f 02c7 | | Declare_Variable Any 0230 00d8 | | Load_Top At_Offset_0 0231 1c00 | | Execute_Immediate Run_Utility,0x0 0232 e056 | V | Load 0x0,0x56 0233 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0234 02c7 | | Declare_Variable Any 0235 00d8 | | Load_Top At_Offset_0 0236 1c00 | | Execute_Immediate Run_Utility,0x0 0237 e056 | V | Load 0x0,0x56 0238 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0239 02c7 | | Declare_Variable Any 023a 00d8 | | Load_Top At_Offset_0 023b 1c00 | | Execute_Immediate Run_Utility,0x0 023c 00e1 | | Load_Encached Boolean_Cache 023d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 023e 029f 046b | k| Declare_Subprogram INIT_0468,For_Call 0240 BODY_0228: 0240 e602 | | Load 0x3,0x2 0241 e603 | | Load 0x3,0x3 0242 4801 |H | Short_Literal 0x1 0243 4801 |H | Short_Literal 0x1 0244 840a | | Call 0x2,0xa 0245 c603 | | Store 0x3,0x3 0246 c602 | | Store 0x3,0x2 0247 e056 | V | Load 0x0,0x56 0248 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0249 c604 | | Store 0x3,0x4 024a e5fa | | Load 0x2,-0x6 024b 704e |pN | Jump_Nonzero 0x29a 024c e058 | X | Load 0x0,0x58 024d 180e | | Execute Package,Field_Execute,Field_Number 0xe 024e 4802 |H | Short_Literal 0x2 024f 0092 04a4 | | Action Push_String_Extended,0x4a4 ; "Queueing diagram to printer" 0251 e059 | Y | Load 0x0,0x59 0252 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0253 e602 | | Load 0x3,0x2 0254 0227 | ' | Execute Access,All_Reference 0255 e056 | V | Load 0x0,0x56 0256 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0257 0092 04a5 | | Action Push_String_Extended,0x4a5 ; "<raise_exception>" 0259 0092 04a6 | | Action Push_String_Extended,0x4a6 ; "$" 025b 0092 04a7 | | Action Push_String_Extended,0x4a7 ; "print (object_or_image => \x22" 025d e407 | | Load 0x2,0x7 025e 0227 | ' | Execute Access,All_Reference 025f 01cc | | Execute Vector,Catenate 0260 0092 04a8 | | Action Push_String_Extended,0x4a8 ; "\x22, printer => \x22" 0262 01cc | | Execute Vector,Catenate 0263 e406 | | Load 0x2,0x6 0264 0227 | ' | Execute Access,All_Reference 0265 01cc | | Execute Vector,Catenate 0266 0092 04a9 | | Action Push_String_Extended,0x4a9 ; "\x22, effort_only => " 0268 01cc | | Execute Vector,Catenate 0269 e5fa | | Load 0x2,-0x6 026a 00e1 | | Load_Encached Boolean_Cache 026b 011c | | Execute Any,Convert_Unchecked 026c 1c01 | | Execute_Immediate Run_Utility,0x1 026d 01cc | | Execute Vector,Catenate 026e 0092 04aa | | Action Push_String_Extended,0x4aa ; ")" 0270 01cc | | Execute Vector,Catenate 0271 e05c | \ | Load 0x0,0x5c 0272 180f | | Execute Package,Field_Execute,Field_Number 0xf 0273 e056 | V | Load 0x0,0x56 0274 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0275 c605 | | Store 0x3,0x5 0276 00da | | Load_Top At_Offset_2 0277 e056 | V | Load 0x0,0x56 0278 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0279 c605 | | Store 0x3,0x5 027a 00db | | Load_Top At_Offset_3 027b e056 | V | Load 0x0,0x56 027c 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 027d 00da | | Load_Top At_Offset_2 027e 00ea | | Load_Encached Null_String_Cache 027f e602 | | Load 0x3,0x2 0280 0227 | ' | Execute Access,All_Reference 0281 4800 |H | Short_Literal 0x0 0282 e056 | V | Load 0x0,0x56 0283 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0284 c605 | | Store 0x3,0x5 0285 00cf | | Action Mark_Auxiliary 0286 7802 |x | Jump 0x289 0287 8607 | | Call 0x3,0x7 0288 00c9 | | Action Pop_Auxiliary_Loop 0289 00db | | Load_Top At_Offset_3 028a e056 | V | Load 0x0,0x56 028b 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 028c 6ffa |o | Jump_Zero 0x287 028d 00ce | | Action Pop_Auxiliary 028e 00da | | Load_Top At_Offset_2 028f e056 | V | Load 0x0,0x56 0290 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0291 c605 | | Store 0x3,0x5 0292 0092 04a1 | | Action Push_String_Extended,0x4a1 ; "<QUIET>" 0294 0092 04a2 | | Action Push_String_Extended,0x4a2 ; "<DIRECTORIES>" 0296 e602 | | Load 0x3,0x2 0297 0227 | ' | Execute Access,All_Reference 0298 e05a | Z | Load 0x0,0x5a 0299 1819 | | Execute Package,Field_Execute,Field_Number 0x19 029a 00d9 | | Load_Top At_Offset_1 029b 680c |h | Jump_Zero 0x2a8 029c 0092 04a1 | | Action Push_String_Extended,0x4a1 ; "<QUIET>" 029e 0092 04a2 | | Action Push_String_Extended,0x4a2 ; "<DIRECTORIES>" 02a0 e407 | | Load 0x2,0x7 02a1 0227 | ' | Execute Access,All_Reference 02a2 e05a | Z | Load 0x0,0x5a 02a3 1819 | | Execute Package,Field_Execute,Field_Number 0x19 02a4 0092 04ab | | Action Push_String_Extended,0x4ab ; "Error encountered while queing file to printer, see r1000 log for information" 02a6 e04e | N | Load 0x0,0x4e 02a7 180f | | Execute Package,Field_Execute,Field_Number 0xf 02a8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02a9 0000 0000 | | .BLANK 0000[0x7] 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; SUBPROGRAM 02b0 ; -------------------------------------------------------------------------------------- 02b0 02b3 | | .CONST 0x02b3 ; Address of begin 02b1 0004 | | .CONST 0x0004 ; Address of exception handler 02b2 0001 | | .CONST 0x0001 ; Number of locals 02b3 BODY_02b0: 02b3 INIT_02b0: 02b3 e058 | X | Load 0x0,0x58 02b4 180e | | Execute Package,Field_Execute,Field_Number 0xe 02b5 4802 |H | Short_Literal 0x2 02b6 0092 04a4 | | Action Push_String_Extended,0x4a4 ; "Queueing diagram to printer" 02b8 e059 | Y | Load 0x0,0x59 02b9 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02ba 0092 04a5 | | Action Push_String_Extended,0x4a5 ; "<raise_exception>" 02bc 0092 04a6 | | Action Push_String_Extended,0x4a6 ; "$" 02be 0092 04ac | | Action Push_String_Extended,0x4ac ; "queue.print (name => \x22" 02c0 e407 | | Load 0x2,0x7 02c1 0227 | ' | Execute Access,All_Reference 02c2 01cc | | Execute Vector,Catenate 02c3 0092 04ad | | Action Push_String_Extended,0x4ad ; "\x22 ,options => (\x22class => " 02c5 01cc | | Execute Vector,Catenate 02c6 e406 | | Load 0x2,0x6 02c7 0227 | ' | Execute Access,All_Reference 02c8 01cc | | Execute Vector,Catenate 02c9 0092 04ae | | Action Push_String_Extended,0x4ae ; ",postscript => (~Reversed)" 02cb 01cc | | Execute Vector,Catenate 02cc 0092 04af | | Action Push_String_Extended,0x4af ; "\x22)" 02ce 01cc | | Execute Vector,Catenate 02cf e05c | \ | Load 0x0,0x5c 02d0 180f | | Execute Package,Field_Execute,Field_Number 0xf 02d1 0092 04a1 | | Action Push_String_Extended,0x4a1 ; "<QUIET>" 02d3 0092 04a2 | | Action Push_String_Extended,0x4a2 ; "<DIRECTORIES>" 02d5 e407 | | Load 0x2,0x7 02d6 0227 | ' | Execute Access,All_Reference 02d7 e05a | Z | Load 0x0,0x5a 02d8 1819 | | Execute Package,Field_Execute,Field_Number 0x19 02d9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02da 0000 0000 | | .BLANK 0000[0x6] 02e0 ; -------------------------------------------------------------------------------------- 02e0 ; SUBPROGRAM 02e0 ; -------------------------------------------------------------------------------------- 02e0 02e6 | | .CONST 0x02e6 ; Address of begin 02e1 0004 | | .CONST 0x0004 ; Address of exception handler 02e2 0002 | | .CONST 0x0002 ; Number of locals 02e3 INIT_02e0: 02e3 e7fd | | Load 0x3,-0x3 02e4 e056 | V | Load 0x0,0x56 02e5 1820 | | Execute Package,Field_Execute,Field_Number 0x20 02e6 BODY_02e0: 02e6 00d8 | | Load_Top At_Offset_0 02e7 01da | | Execute Vector,Bounds 02e8 e403 | | Load 0x2,0x3 02e9 03ba | | Declare_Variable Access,By_Allocation,With_Constraint 02ea a7fc | | Store_Unchecked 0x3,-0x4 02eb 00d8 | | Load_Top At_Offset_0 02ec e7fc | | Load 0x3,-0x4 02ed 0228 | ( | Execute Access,All_Write 02ee 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02ef 0000 | | .XXX[0x1] 02f0 ; -------------------------------------------------------------------------------------- 02f0 ; SUBPROGRAM 02f0 ; -------------------------------------------------------------------------------------- 02f0 02f6 | | .CONST 0x02f6 ; Address of begin 02f1 0004 | | .CONST 0x0004 ; Address of exception handler 02f2 0002 | | .CONST 0x0002 ; Number of locals 02f3 INIT_02f0: 02f3 e605 | | Load 0x3,0x5 02f4 e056 | V | Load 0x0,0x56 02f5 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 02f6 BODY_02f0: 02f6 e605 | | Load 0x3,0x5 02f7 e056 | V | Load 0x0,0x56 02f8 181b | | Execute Package,Field_Execute,Field_Number 0x1b 02f9 c605 | | Store 0x3,0x5 02fa 0092 04a1 | | Action Push_String_Extended,0x4a1 ; "<QUIET>" 02fc 0092 04a2 | | Action Push_String_Extended,0x4a2 ; "<DIRECTORIES>" 02fe e604 | | Load 0x3,0x4 02ff 0227 | ' | Execute Access,All_Reference 0300 e05a | Z | Load 0x0,0x5a 0301 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0302 4801 |H | Short_Literal 0x1 0303 0092 04b0 | | Action Push_String_Extended,0x4b0 ; "There is no default class." 0305 00da | | Load_Top At_Offset_2 0306 e057 | W | Load 0x0,0x57 0307 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0308 6805 |h | Jump_Zero 0x30e 0309 0092 04b1 | | Action Push_String_Extended,0x4b1 ; "Cant determine default printer or class" 030b e04e | N | Load 0x0,0x4e 030c 180f | | Execute Package,Field_Execute,Field_Number 0xf 030d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 030e 4801 |H | Short_Literal 0x1 030f 00d9 | | Load_Top At_Offset_1 0310 4822 |H" | Short_Literal 0x22 0311 e057 | W | Load 0x0,0x57 0312 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0313 0a01 | | Execute_Immediate Plus,0x1 0314 00d8 | | Load_Top At_Offset_0 0315 00e2 | | Load_Encached Integer_Cache 0316 0260 | ` | Execute Discrete,In_Type 0317 7001 |p | Jump_Nonzero 0x319 0318 0801 | | Execute_Immediate Raise,0x1 0319 4801 |H | Short_Literal 0x1 031a 00da | | Load_Top At_Offset_2 031b 4822 |H" | Short_Literal 0x22 031c e057 | W | Load 0x0,0x57 031d 1820 | | Execute Package,Field_Execute,Field_Number 0x20 031e 0aff | | Execute_Immediate Plus,-0x1 031f 00da | | Load_Top At_Offset_2 0320 01cf | | Execute Vector,Slice_Read 0321 00cb | | Action Pop_Block_With_Result 0322 00ca | | Action Exit_Nullary_Function 0323 0000 0000 | | .BLANK 0000[0x5] 0328 ; -------------------------------------------------------------------------------------- 0328 ; SUBPROGRAM 0328 ; -------------------------------------------------------------------------------------- 0328 0334 | 4 | .CONST 0x0334 ; Address of begin 0329 037a | z | .CONST 0x037a ; Address of exception handler 032a 0003 | | .CONST 0x0003 ; Number of locals 032b INIT_0328: 032b e056 | V | Load 0x0,0x56 032c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 032d 02c7 | | Declare_Variable Any 032e 00d8 | | Load_Top At_Offset_0 032f 1c00 | | Execute_Immediate Run_Utility,0x0 0330 e05d | ] | Load 0x0,0x5d 0331 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0332 e05d | ] | Load 0x0,0x5d 0333 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0334 BODY_0328: 0334 00d9 | | Load_Top At_Offset_1 0335 00ea | | Load_Encached Null_String_Cache 0336 0092 04b2 | | Action Push_String_Extended,0x4b2 ; "!machine.initialization.local.user_printer_map" 0338 4800 |H | Short_Literal 0x0 0339 e056 | V | Load 0x0,0x56 033a 1815 | | Execute Package,Field_Execute,Field_Number 0x15 033b c802 | | Store 0x4,0x2 033c 00cf | | Action Mark_Auxiliary 033d 7815 |x | Jump 0x353 033e e603 | | Load 0x3,0x3 033f 00db | | Load_Top At_Offset_3 0340 e056 | V | Load 0x0,0x56 0341 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0342 e057 | W | Load 0x0,0x57 0343 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0344 e010 | | Load 0x0,0x10 0345 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0346 00d1 | | Pop_Control Pop_Count_1 0347 4801 |H | Short_Literal 0x1 0348 e603 | | Load 0x3,0x3 0349 e010 | | Load 0x0,0x10 034a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 034b 00db | | Load_Top At_Offset_3 034c e057 | W | Load 0x0,0x57 034d 181d | | Execute Package,Field_Execute,Field_Number 0x1d 034e 0f01 | | Execute_Immediate Equal,0x1 034f a602 | | Store_Unchecked 0x3,0x2 0350 e602 | | Load 0x3,0x2 0351 7005 |p | Jump_Nonzero 0x357 0352 00c9 | | Action Pop_Auxiliary_Loop 0353 00da | | Load_Top At_Offset_2 0354 e056 | V | Load 0x0,0x56 0355 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0356 6fe7 |o | Jump_Zero 0x33e 0357 00ce | | Action Pop_Auxiliary 0358 00d9 | | Load_Top At_Offset_1 0359 e056 | V | Load 0x0,0x56 035a 181b | | Execute Package,Field_Execute,Field_Number 0x1b 035b c802 | | Store 0x4,0x2 035c e602 | | Load 0x3,0x2 035d 681b |h | Jump_Zero 0x379 035e e603 | | Load 0x3,0x3 035f 00d9 | | Load_Top At_Offset_1 0360 01db | | Execute Vector,Length 0361 00d8 | | Load_Top At_Offset_0 0362 00e3 | | Load_Encached Natural_Cache 0363 0260 | ` | Execute Discrete,In_Type 0364 7001 |p | Jump_Nonzero 0x366 0365 0801 | | Execute_Immediate Raise,0x1 0366 4801 |H | Short_Literal 0x1 0367 e010 | | Load 0x0,0x10 0368 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0369 00d1 | | Pop_Control Pop_Count_1 036a e058 | X | Load 0x0,0x58 036b 180e | | Execute Package,Field_Execute,Field_Number 0xe 036c 4801 |H | Short_Literal 0x1 036d 0092 04b3 | | Action Push_String_Extended,0x4b3 ; "Default printer found in !Machine.Initialization.Local.User_Printer_Map" 036f e059 | Y | Load 0x0,0x59 0370 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0371 4820 |H | Short_Literal 0x20 0372 e603 | | Load 0x3,0x3 0373 e010 | | Load 0x0,0x10 0374 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0375 e057 | W | Load 0x0,0x57 0376 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0377 00cb | | Action Pop_Block_With_Result 0378 00ca | | Action Exit_Nullary_Function 0379 4501 |E | Exit_Suprogram New_Top_Offset 0x1 037a TRAP_0328: 037a 0007 | | Action Break_Optional 037b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 037c 0000 0000 | | .BLANK 0000[0x4] 0380 ; -------------------------------------------------------------------------------------- 0380 ; SUBPROGRAM 0380 ; -------------------------------------------------------------------------------------- 0380 0388 | | .CONST 0x0388 ; Address of begin 0381 03e3 | | .CONST 0x03e3 ; Address of exception handler 0382 0002 | | .CONST 0x0002 ; Number of locals 0383 INIT_0380: 0383 e056 | V | Load 0x0,0x56 0384 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0385 02c7 | | Declare_Variable Any 0386 00d8 | | Load_Top At_Offset_0 0387 1c00 | | Execute_Immediate Run_Utility,0x0 0388 BODY_0380: 0388 00d8 | | Load_Top At_Offset_0 0389 00ea | | Load_Encached Null_String_Cache 038a 0092 04b4 | | Action Push_String_Extended,0x4b4 ; "!machine.initialization.site.printer_configuration" 038c 4800 |H | Short_Literal 0x0 038d e056 | V | Load 0x0,0x56 038e 1815 | | Execute Package,Field_Execute,Field_Number 0x15 038f c802 | | Store 0x4,0x2 0390 00cf | | Action Mark_Auxiliary 0391 781d |x | Jump 0x3af 0392 e603 | | Load 0x3,0x3 0393 4820 |H | Short_Literal 0x20 0394 00db | | Load_Top At_Offset_3 0395 e056 | V | Load 0x0,0x56 0396 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0397 e057 | W | Load 0x0,0x57 0398 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0399 e057 | W | Load 0x0,0x57 039a 1814 | | Execute Package,Field_Execute,Field_Number 0x14 039b e010 | | Load 0x0,0x10 039c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 039d 00d1 | | Pop_Control Pop_Count_1 039e e603 | | Load 0x3,0x3 039f e010 | | Load 0x0,0x10 03a0 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 03a1 0c01 | | Execute_Immediate Greater_Equal,0x1 03a2 6807 |h | Jump_Zero 0x3aa 03a3 4801 |H | Short_Literal 0x1 03a4 e603 | | Load 0x3,0x3 03a5 e010 | | Load 0x0,0x10 03a6 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 03a7 0e2d | - | Execute_Immediate Not_Equal,0x2d 03a8 a602 | | Store_Unchecked 0x3,0x2 03a9 7802 |x | Jump 0x3ac 03aa 4800 |H | Short_Literal 0x0 03ab a602 | | Store_Unchecked 0x3,0x2 03ac e602 | | Load 0x3,0x2 03ad 7005 |p | Jump_Nonzero 0x3b3 03ae 00c9 | | Action Pop_Auxiliary_Loop 03af 00d9 | | Load_Top At_Offset_1 03b0 e056 | V | Load 0x0,0x56 03b1 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 03b2 6fdf |o | Jump_Zero 0x392 03b3 00ce | | Action Pop_Auxiliary 03b4 00d8 | | Load_Top At_Offset_0 03b5 e056 | V | Load 0x0,0x56 03b6 181b | | Execute Package,Field_Execute,Field_Number 0x1b 03b7 c802 | | Store 0x4,0x2 03b8 e602 | | Load 0x3,0x2 03b9 6828 |h( | Jump_Zero 0x3e2 03ba e058 | X | Load 0x0,0x58 03bb 180e | | Execute Package,Field_Execute,Field_Number 0xe 03bc 4801 |H | Short_Literal 0x1 03bd 0092 04b5 | | Action Push_String_Extended,0x4b5 ; "Default printer found in !Machine.Initialization.Site.Printer_Configuration" 03bf e059 | Y | Load 0x0,0x59 03c0 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03c1 4801 |H | Short_Literal 0x1 03c2 e603 | | Load 0x3,0x3 03c3 e010 | | Load 0x0,0x10 03c4 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03c5 0092 04b6 | | Action Push_String_Extended,0x4b6 ; " " 03c7 e057 | W | Load 0x0,0x57 03c8 181d | | Execute Package,Field_Execute,Field_Number 0x1d 03c9 6813 |h | Jump_Zero 0x3dd 03ca 4801 |H | Short_Literal 0x1 03cb e603 | | Load 0x3,0x3 03cc e010 | | Load 0x0,0x10 03cd 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03ce 4820 |H | Short_Literal 0x20 03cf e057 | W | Load 0x0,0x57 03d0 181e | | Execute Package,Field_Execute,Field_Number 0x1e 03d1 0aff | | Execute_Immediate Plus,-0x1 03d2 00d8 | | Load_Top At_Offset_0 03d3 00e3 | | Load_Encached Natural_Cache 03d4 0260 | ` | Execute Discrete,In_Type 03d5 7001 |p | Jump_Nonzero 0x3d7 03d6 0801 | | Execute_Immediate Raise,0x1 03d7 4801 |H | Short_Literal 0x1 03d8 e603 | | Load 0x3,0x3 03d9 e010 | | Load 0x0,0x10 03da 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 03db 00cb | | Action Pop_Block_With_Result 03dc 00ca | | Action Exit_Nullary_Function 03dd e603 | | Load 0x3,0x3 03de e010 | | Load 0x0,0x10 03df 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03e0 00cb | | Action Pop_Block_With_Result 03e1 00ca | | Action Exit_Nullary_Function 03e2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03e3 TRAP_0380: 03e3 0007 | | Action Break_Optional 03e4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03e5 0000 0000 | | .XXX[0x3] 03e7 0000 | | 03e8 ; -------------------------------------------------------------------------------------- 03e8 ; SUBPROGRAM 03e8 ; -------------------------------------------------------------------------------------- 03e8 03f0 | | .CONST 0x03f0 ; Address of begin 03e9 0447 | G | .CONST 0x0447 ; Address of exception handler 03ea 0002 | | .CONST 0x0002 ; Number of locals 03eb INIT_03e8: 03eb e056 | V | Load 0x0,0x56 03ec 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03ed 02c7 | | Declare_Variable Any 03ee 00d8 | | Load_Top At_Offset_0 03ef 1c00 | | Execute_Immediate Run_Utility,0x0 03f0 BODY_03e8: 03f0 00d8 | | Load_Top At_Offset_0 03f1 00ea | | Load_Encached Null_String_Cache 03f2 0092 04b7 | | Action Push_String_Extended,0x4b7 ; "!machine.initialization.local.printer_configuration" 03f4 4800 |H | Short_Literal 0x0 03f5 e056 | V | Load 0x0,0x56 03f6 1815 | | Execute Package,Field_Execute,Field_Number 0x15 03f7 c802 | | Store 0x4,0x2 03f8 00cf | | Action Mark_Auxiliary 03f9 7819 |x | Jump 0x413 03fa e603 | | Load 0x3,0x3 03fb 4820 |H | Short_Literal 0x20 03fc 00db | | Load_Top At_Offset_3 03fd e056 | V | Load 0x0,0x56 03fe 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 03ff e057 | W | Load 0x0,0x57 0400 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0401 e057 | W | Load 0x0,0x57 0402 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0403 e010 | | Load 0x0,0x10 0404 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0405 00d1 | | Pop_Control Pop_Count_1 0406 e603 | | Load 0x3,0x3 0407 e010 | | Load 0x0,0x10 0408 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0409 0c01 | | Execute_Immediate Greater_Equal,0x1 040a 6807 |h | Jump_Zero 0x412 040b 4801 |H | Short_Literal 0x1 040c e603 | | Load 0x3,0x3 040d e010 | | Load 0x0,0x10 040e 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 040f 0e2d | - | Execute_Immediate Not_Equal,0x2d 0410 6801 |h | Jump_Zero 0x412 0411 7805 |x | Jump 0x417 0412 00c9 | | Action Pop_Auxiliary_Loop 0413 00d9 | | Load_Top At_Offset_1 0414 e056 | V | Load 0x0,0x56 0415 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0416 6fe3 |o | Jump_Zero 0x3fa 0417 00ce | | Action Pop_Auxiliary 0418 00d8 | | Load_Top At_Offset_0 0419 e056 | V | Load 0x0,0x56 041a 181b | | Execute Package,Field_Execute,Field_Number 0x1b 041b c802 | | Store 0x4,0x2 041c e602 | | Load 0x3,0x2 041d 6828 |h( | Jump_Zero 0x446 041e e058 | X | Load 0x0,0x58 041f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0420 4801 |H | Short_Literal 0x1 0421 0092 04b8 | | Action Push_String_Extended,0x4b8 ; "Default printer found in !Machine.Initialization.Local.Printer_Configuration" 0423 e059 | Y | Load 0x0,0x59 0424 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0425 4801 |H | Short_Literal 0x1 0426 e603 | | Load 0x3,0x3 0427 e010 | | Load 0x0,0x10 0428 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0429 0092 04b6 | | Action Push_String_Extended,0x4b6 ; " " 042b e057 | W | Load 0x0,0x57 042c 181d | | Execute Package,Field_Execute,Field_Number 0x1d 042d 6813 |h | Jump_Zero 0x441 042e 4801 |H | Short_Literal 0x1 042f e603 | | Load 0x3,0x3 0430 e010 | | Load 0x0,0x10 0431 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0432 4820 |H | Short_Literal 0x20 0433 e057 | W | Load 0x0,0x57 0434 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0435 0aff | | Execute_Immediate Plus,-0x1 0436 00d8 | | Load_Top At_Offset_0 0437 00e3 | | Load_Encached Natural_Cache 0438 0260 | ` | Execute Discrete,In_Type 0439 7001 |p | Jump_Nonzero 0x43b 043a 0801 | | Execute_Immediate Raise,0x1 043b 4801 |H | Short_Literal 0x1 043c e603 | | Load 0x3,0x3 043d e010 | | Load 0x0,0x10 043e 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 043f 00cb | | Action Pop_Block_With_Result 0440 00ca | | Action Exit_Nullary_Function 0441 e603 | | Load 0x3,0x3 0442 e010 | | Load 0x0,0x10 0443 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0444 00cb | | Action Pop_Block_With_Result 0445 00ca | | Action Exit_Nullary_Function 0446 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0447 TRAP_03e8: 0447 0007 | | Action Break_Optional 0448 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0449 0000 0000 | | .BLANK 0000[0x7] 0450 ; -------------------------------------------------------------------------------------- 0450 ; SUBPROGRAM 0450 ; -------------------------------------------------------------------------------------- 0450 0453 | S | .CONST 0x0453 ; Address of begin 0451 045c | \ | .CONST 0x045c ; Address of exception handler 0452 0001 | | .CONST 0x0001 ; Number of locals 0453 BODY_0450: 0453 INIT_0450: 0453 e604 | | Load 0x3,0x4 0454 00ea | | Load_Encached Null_String_Cache 0455 0092 04b9 | | Action Push_String_Extended,0x4b9 ; "!machine.release.environment.current" 0457 4800 |H | Short_Literal 0x0 0458 e056 | V | Load 0x0,0x56 0459 1815 | | Execute Package,Field_Execute,Field_Number 0x15 045a c604 | | Store 0x3,0x4 045b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 045c TRAP_0450: 045c 0007 | | Action Break_Optional 045d 0092 04ba | | Action Push_String_Extended,0x4ba ; "Cant open !Machine.Release.Environment.Current" 045f e04e | N | Load 0x0,0x4e 0460 180f | | Execute Package,Field_Execute,Field_Number 0xf 0461 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0462 0000 0000 | | .BLANK 0000[0x6] 0468 ; -------------------------------------------------------------------------------------- 0468 ; SUBPROGRAM 0468 ; -------------------------------------------------------------------------------------- 0468 046e | n | .CONST 0x046e ; Address of begin 0469 0004 | | .CONST 0x0004 ; Address of exception handler 046a 0002 | | .CONST 0x0002 ; Number of locals 046b INIT_0468: 046b e605 | | Load 0x3,0x5 046c e056 | V | Load 0x0,0x56 046d 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 046e BODY_0468: 046e 4801 |H | Short_Literal 0x1 046f 00d9 | | Load_Top At_Offset_1 0470 0092 04bb | | Action Push_String_Extended,0x4bb ; "***" 0472 e057 | W | Load 0x0,0x57 0473 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0474 6814 |h | Jump_Zero 0x489 0475 4801 |H | Short_Literal 0x1 0476 a606 | | Store_Unchecked 0x3,0x6 0477 e058 | X | Load 0x0,0x58 0478 180e | | Execute Package,Field_Execute,Field_Number 0xe 0479 4807 |H | Short_Literal 0x7 047a 00da | | Load_Top At_Offset_2 047b 01dd | | Execute Vector,First 047c 0a16 | | Execute_Immediate Plus,0x16 047d 00d8 | | Load_Top At_Offset_0 047e 00e2 | | Load_Encached Integer_Cache 047f 0260 | ` | Execute Discrete,In_Type 0480 7001 |p | Jump_Nonzero 0x482 0481 0801 | | Execute_Immediate Raise,0x1 0482 00db | | Load_Top At_Offset_3 0483 01dc | | Execute Vector,Last 0484 e802 | | Load 0x4,0x2 0485 01cf | | Execute Vector,Slice_Read 0486 e059 | Y | Load 0x0,0x59 0487 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0488 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0489 e058 | X | Load 0x0,0x58 048a 180e | | Execute Package,Field_Execute,Field_Number 0xe 048b 4802 |H | Short_Literal 0x2 048c 00da | | Load_Top At_Offset_2 048d 01dd | | Execute Vector,First 048e 0a16 | | Execute_Immediate Plus,0x16 048f 00d8 | | Load_Top At_Offset_0 0490 00e2 | | Load_Encached Integer_Cache 0491 0260 | ` | Execute Discrete,In_Type 0492 7001 |p | Jump_Nonzero 0x494 0493 0801 | | Execute_Immediate Raise,0x1 0494 00db | | Load_Top At_Offset_3 0495 01dc | | Execute Vector,Last 0496 e802 | | Load 0x4,0x2 0497 01cf | | Execute Vector,Slice_Read 0498 e059 | Y | Load 0x0,0x59 0499 1813 | | Execute Package,Field_Execute,Field_Number 0x13 049a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 049b ; -------------------------------------------------------------------------------------- 049b ; STRING TABLE 049b ; -------------------------------------------------------------------------------------- 049b 0044 | D | .STRTAB 0x0044->0x04bd ; "UNKNOWN" 049c 0049 | I | .STRTAB 0x0049->0x04c0 ; "D2" 049d 0049 | I | .STRTAB 0x0049->0x04c1 ; "D3" 049e 0049 | I | .STRTAB 0x0049->0x04c2 ; "<DEFAULT>" 049f 0050 | P | .STRTAB 0x0050->0x04c7 ; "The default printer resolved to => " 04a0 0071 | q | .STRTAB 0x0071->0x04d8 ; "Unknown Environment version" 04a1 008a | | .STRTAB 0x008a->0x04e6 ; "<QUIET>" 04a2 008f | | .STRTAB 0x008f->0x04e9 ; "<DIRECTORIES>" 04a3 009a | | .STRTAB 0x009a->0x04f0 ; "Trouble parsing !Machine.Release.Environment.Current" 04a4 00cc | | .STRTAB 0x00cc->0x050a ; "Queueing diagram to printer" 04a5 00e5 | | .STRTAB 0x00e5->0x0517 ; "<raise_exception>" 04a6 00f4 | | .STRTAB 0x00f4->0x0520 ; "$" 04a7 00f3 | | .STRTAB 0x00f3->0x0520 ; "print (object_or_image => \x22" 04a8 010c | | .STRTAB 0x010c->0x052e ; "\x22, printer => \x22" 04a9 0119 | | .STRTAB 0x0119->0x0535 ; "\x22, effort_only => " 04aa 0129 | ) | .STRTAB 0x0129->0x053e ; ")" 04ab 0128 | ( | .STRTAB 0x0128->0x053f ; "Error encountered while queing file to printer, see r1000 log for information" 04ac 0173 | s | .STRTAB 0x0173->0x0565 ; "queue.print (name => \x22" 04ad 0187 | | .STRTAB 0x0187->0x0570 ; "\x22 ,options => (\x22class => " 04ae 019e | | .STRTAB 0x019e->0x057d ; ",postscript => (~Reversed)" 04af 01b6 | | .STRTAB 0x01b6->0x058a ; "\x22)" 04b0 01b6 | | .STRTAB 0x01b6->0x058b ; "There is no default class." 04b1 01ce | | .STRTAB 0x01ce->0x0598 ; "Cant determine default printer or class" 04b2 01f3 | | .STRTAB 0x01f3->0x05ab ; "!machine.initialization.local.user_printer_map" 04b3 021f | | .STRTAB 0x021f->0x05c2 ; "Default printer found in !Machine.Initialization.Local.User_Printer_Map" 04b4 0264 | d | .STRTAB 0x0264->0x05e6 ; "!machine.initialization.site.printer_configuration" 04b5 0294 | | .STRTAB 0x0294->0x05ff ; "Default printer found in !Machine.Initialization.Site.Printer_Configuration" 04b6 02dd | | .STRTAB 0x02dd->0x0624 ; " " 04b7 02dc | | .STRTAB 0x02dc->0x0625 ; "!machine.initialization.local.printer_configuration" 04b8 030d | | .STRTAB 0x030d->0x063e ; "Default printer found in !Machine.Initialization.Local.Printer_Configuration" 04b9 0357 | W | .STRTAB 0x0357->0x0664 ; "!machine.release.environment.current" 04ba 0379 | y | .STRTAB 0x0379->0x0676 ; "Cant open !Machine.Release.Environment.Current" 04bb 03a5 | | .STRTAB 0x03a5->0x068d ; "***" 04bc 03a6 | | .STREND 0x03a6->0x068f 04bd 554e 4b4e |UNKN| .STRTAB_STRINGS 068f 0000 | | .XXX[0x1] 0690 ; -------------------------------------------------------------------------------------- 0690 ; Debug Table 0690 ; -------------------------------------------------------------------------------------- 0690 0004 0014 | | .DEBUG4 0x0004,0x0014,0x13ba,0x0000,0x0001,0x0000 0696 0000 0000 | | .BLANK 0000[0x16a]