|
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: 11264 (0x2c00) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03bcfe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦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 1588 | | .CONST 0x1588 ; 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 800c | | .CONST 0x800c ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0194 | | .CONST 0x0194 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0066 | f | .CONST 0x0066 ; Number of locals 000b INIT_0008: 000b 00bf | | Action Accept_Activation 000c e001 | | Load 0x0,0x1 000d 1b20 | | Execute Package,Field_Read,Field_Number 0x20 000e 00e9 | | Load_Encached String_Cache 000f 02a0 | | Declare_Subprogram Null_Subprogram 0010 4818 |H | Short_Literal 0x18 0011 03d3 | | Declare_Type Access,Defined,Accesses_Protected 0012 00d8 | | Load_Top At_Offset_0 0013 e002 | | Load 0x0,0x2 0014 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0015 02a0 | | Declare_Subprogram Null_Subprogram 0016 4802 |H | Short_Literal 0x2 0017 032d | - | Declare_Type Record,Defined 0018 4801 |H | Short_Literal 0x1 0019 4805 |H | Short_Literal 0x5 001a e20f | | Load 0x1,0xf 001b 02a0 | | Declare_Subprogram Null_Subprogram 001c 4801 |H | Short_Literal 0x1 001d 035d | ] | Declare_Type Array,Defined 001e 00d8 | | Load_Top At_Offset_0 001f 0337 | 7 | Declare_Variable Array 0020 00d8 | | Load_Top At_Offset_0 0021 0335 | 5 | Declare_Variable Array,Duplicate 0022 00cd | | Action Spare6_Action 0023 e20f | | Load 0x1,0xf 0024 0322 | " | Declare_Variable Record 0025 0092 0f14 | | Action Push_String_Extended,0xf14 ; "STANDARD" 0027 e20e | | Load 0x1,0xe 0028 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0029 e213 | | Load 0x1,0x13 002a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 002b 00d8 | | Load_Top At_Offset_0 002c 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 002d 619e |a | Indirect_Literal Discrete,0x1cc,{0x00000000, 0x000c15c0} 002e e214 | | Load 0x1,0x14 002f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0030 4800 |H | Short_Literal 0x0 0031 e214 | | Load 0x1,0x14 0032 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0033 6194 |a | Indirect_Literal Discrete,0x1c8,{0x00000000, 0x000956a0} 0034 e214 | | Load 0x1,0x14 0035 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0036 4800 |H | Short_Literal 0x0 0037 e214 | | Load 0x1,0x14 0038 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0039 6192 |a | Indirect_Literal Discrete,0x1cc,{0x00000000, 0x000c15c0} 003a 00d0 | | Action Swap_Control 003b 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 003c 4801 |H | Short_Literal 0x1 003d e212 | | Load 0x1,0x12 003e 01d6 | | Execute Vector,Field_Write 003f 4805 |H | Short_Literal 0x5 0040 4802 |H | Short_Literal 0x2 0041 e20f | | Load 0x1,0xf 0042 0322 | " | Declare_Variable Record 0043 e20e | | Load 0x1,0xe 0044 e215 | | Load 0x1,0x15 0045 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0046 00d8 | | Load_Top At_Offset_0 0047 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0048 4800 |H | Short_Literal 0x0 0049 e216 | | Load 0x1,0x16 004a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 004b 4800 |H | Short_Literal 0x0 004c e216 | | Load 0x1,0x16 004d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 004e 4800 |H | Short_Literal 0x0 004f e216 | | Load 0x1,0x16 0050 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0051 4800 |H | Short_Literal 0x0 0052 e216 | | Load 0x1,0x16 0053 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0054 4800 |H | Short_Literal 0x0 0055 00d0 | | Action Swap_Control 0056 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0057 e214 | | Load 0x1,0x14 0058 e212 | | Load 0x1,0x12 0059 01d6 | | Execute Vector,Field_Write 005a 3fe6 |? | Loop_Increasing 0x41 005b e211 | | Load 0x1,0x11 005c 01d4 | | Execute Vector,Structure_Write 005d 4800 |H | Short_Literal 0x0 005e 4801 |H | Short_Literal 0x1 005f 029f 019b | | Declare_Subprogram INIT_0198,For_Call 0061 03fd | | Declare_Type Discrete,Defined 0062 e003 | | Load 0x0,0x3 0063 e004 | | Load 0x0,0x4 0064 e212 | | Load 0x1,0x12 0065 4800 |H | Short_Literal 0x0 0066 4801 |H | Short_Literal 0x1 0067 4801 |H | Short_Literal 0x1 0068 0092 0f15 | | Action Push_String_Extended,0xf15 ; "others => Unspecified" 006a 00ea | | Load_Encached Null_String_Cache 006b 00ea | | Load_Encached Null_String_Cache 006c 4801 |H | Short_Literal 0x1 006d 4801 |H | Short_Literal 0x1 006e e005 | | Load 0x0,0x5 006f 0387 | | Declare_Variable Package 0070 00d8 | | Load_Top At_Offset_0 0071 020f | | Execute Module,Activate 0072 0092 0f16 | | Action Push_String_Extended,0xf16 ; "CAP-" 0074 00e1 | | Load_Encached Boolean_Cache 0075 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0076 e006 | | Load 0x0,0x6 0077 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0078 00d8 | | Load_Top At_Offset_0 0079 02a0 | | Declare_Subprogram Null_Subprogram 007a 4818 |H | Short_Literal 0x18 007b 03d3 | | Declare_Type Access,Defined,Accesses_Protected 007c e007 | | Load 0x0,0x7 007d e008 | | Load 0x0,0x8 007e e216 | | Load 0x1,0x16 007f e009 | | Load 0x0,0x9 0080 0387 | | Declare_Variable Package 0081 00d8 | | Load_Top At_Offset_0 0082 020f | | Execute Module,Activate 0083 4800 |H | Short_Literal 0x0 0084 4878 |Hx | Short_Literal 0x78 0085 00e2 | | Load_Encached Integer_Cache 0086 03f8 | | Declare_Type Discrete,Constrained 0087 4801 |H | Short_Literal 0x1 0088 4878 |Hx | Short_Literal 0x78 0089 e219 | | Load 0x1,0x19 008a 03f8 | | Declare_Type Discrete,Constrained 008b 4801 |H | Short_Literal 0x1 008c 4878 |Hx | Short_Literal 0x78 008d e20e | | Load 0x1,0xe 008e 02a0 | | Declare_Subprogram Null_Subprogram 008f 4801 |H | Short_Literal 0x1 0090 035d | ] | Declare_Type Array,Defined 0091 00d8 | | Load_Top At_Offset_0 0092 0337 | 7 | Declare_Variable Array 0093 e219 | | Load 0x1,0x19 0094 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0095 4801 |H | Short_Literal 0x1 0096 4878 |Hx | Short_Literal 0x78 0097 e217 | | Load 0x1,0x17 0098 02a0 | | Declare_Subprogram Null_Subprogram 0099 4801 |H | Short_Literal 0x1 009a 035d | ] | Declare_Type Array,Defined 009b 00d8 | | Load_Top At_Offset_0 009c 0337 | 7 | Declare_Variable Array 009d 4801 |H | Short_Literal 0x1 009e 4878 |Hx | Short_Literal 0x78 009f e217 | | Load 0x1,0x17 00a0 02a0 | | Declare_Subprogram Null_Subprogram 00a1 4801 |H | Short_Literal 0x1 00a2 035d | ] | Declare_Type Array,Defined 00a3 00d8 | | Load_Top At_Offset_0 00a4 0337 | 7 | Declare_Variable Array 00a5 4801 |H | Short_Literal 0x1 00a6 4828 |H( | Short_Literal 0x28 00a7 e20e | | Load 0x1,0xe 00a8 02a0 | | Declare_Subprogram Null_Subprogram 00a9 4801 |H | Short_Literal 0x1 00aa 035d | ] | Declare_Type Array,Defined 00ab 00d8 | | Load_Top At_Offset_0 00ac 0337 | 7 | Declare_Variable Array 00ad e001 | | Load 0x0,0x1 00ae 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f 00af 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00b0 4804 |H | Short_Literal 0x4 00b1 48a3 |H | Short_Literal 0xa3 00b2 00e3 | | Load_Encached Natural_Cache 00b3 03f8 | | Declare_Type Discrete,Constrained 00b4 4804 |H | Short_Literal 0x4 00b5 48a3 |H | Short_Literal 0xa3 00b6 e21a | | Load 0x1,0x1a 00b7 02a0 | | Declare_Subprogram Null_Subprogram 00b8 4801 |H | Short_Literal 0x1 00b9 035d | ] | Declare_Type Array,Defined 00ba 00d8 | | Load_Top At_Offset_0 00bb 0337 | 7 | Declare_Variable Array 00bc 4804 |H | Short_Literal 0x4 00bd 48a3 |H | Short_Literal 0xa3 00be e217 | | Load 0x1,0x17 00bf 02a0 | | Declare_Subprogram Null_Subprogram 00c0 4801 |H | Short_Literal 0x1 00c1 035d | ] | Declare_Type Array,Defined 00c2 00d8 | | Load_Top At_Offset_0 00c3 0337 | 7 | Declare_Variable Array 00c4 4804 |H | Short_Literal 0x4 00c5 48a3 |H | Short_Literal 0xa3 00c6 e217 | | Load 0x1,0x17 00c7 02a0 | | Declare_Subprogram Null_Subprogram 00c8 4801 |H | Short_Literal 0x1 00c9 035d | ] | Declare_Type Array,Defined 00ca 00d8 | | Load_Top At_Offset_0 00cb 0337 | 7 | Declare_Variable Array 00cc 4800 |H | Short_Literal 0x0 00cd 4805 |H | Short_Literal 0x5 00ce 029f 01d3 | | Declare_Subprogram INIT_01d0,For_Call 00d0 03fd | | Declare_Type Discrete,Defined 00d1 e00a | | Load 0x0,0xa 00d2 e00b | | Load 0x0,0xb 00d3 e22c | , | Load 0x1,0x2c 00d4 4800 |H | Short_Literal 0x0 00d5 4801 |H | Short_Literal 0x1 00d6 4805 |H | Short_Literal 0x5 00d7 0092 0f15 | | Action Push_String_Extended,0xf15 ; "others => Unspecified" 00d9 00ea | | Load_Encached Null_String_Cache 00da 00ea | | Load_Encached Null_String_Cache 00db 4801 |H | Short_Literal 0x1 00dc 4805 |H | Short_Literal 0x5 00dd e005 | | Load 0x0,0x5 00de 0387 | | Declare_Variable Package 00df 00d8 | | Load_Top At_Offset_0 00e0 020f | | Execute Module,Activate 00e1 e20e | | Load 0x1,0xe 00e2 0007 | | Action Break_Optional 00e3 480b |H | Short_Literal 0xb 00e4 032a | * | Declare_Type Record,Incomplete 00e5 00d8 | | Load_Top At_Offset_0 00e6 02a0 | | Declare_Subprogram Null_Subprogram 00e7 4818 |H | Short_Literal 0x18 00e8 03d3 | | Declare_Type Access,Defined,Accesses_Protected 00e9 e001 | | Load 0x0,0x1 00ea 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00eb 00e1 | | Load_Encached Boolean_Cache 00ec e001 | | Load 0x0,0x1 00ed 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00ee e001 | | Load 0x0,0x1 00ef 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00f0 e001 | | Load 0x0,0x1 00f1 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00f2 e001 | | Load 0x0,0x1 00f3 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00f4 00e3 | | Load_Encached Natural_Cache 00f5 00e3 | | Load_Encached Natural_Cache 00f6 00e3 | | Load_Encached Natural_Cache 00f7 00e1 | | Load_Encached Boolean_Cache 00f8 e230 | 0 | Load 0x1,0x30 00f9 02a0 | | Declare_Subprogram Null_Subprogram 00fa e22f | / | Load 0x1,0x2f 00fb 0326 | & | Complete_Type Record,By_Defining 00fc 00d8 | | Load_Top At_Offset_0 00fd 0007 | | Action Break_Optional 00fe e230 | 0 | Load 0x1,0x30 00ff 0007 | | Action Break_Optional 0100 e00c | | Load 0x0,0xc 0101 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0102 02c7 | | Declare_Variable Any 0103 00d8 | | Load_Top At_Offset_0 0104 1c00 | | Execute_Immediate Run_Utility,0x0 0105 00e3 | | Load_Encached Natural_Cache 0106 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0107 e217 | | Load 0x1,0x17 0108 0007 | | Action Break_Optional 0109 e001 | | Load 0x0,0x1 010a 1b12 | | Execute Package,Field_Read,Field_Number 0x12 010b 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 010c e001 | | Load 0x0,0x1 010d 1b10 | | Execute Package,Field_Read,Field_Number 0x10 010e e001 | | Load 0x0,0x1 010f 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0110 4fff |O | Short_Literal -0x1 0111 e001 | | Load 0x0,0x1 0112 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0113 03f1 | | Declare_Variable Discrete,With_Value 0114 4fff |O | Short_Literal -0x1 0115 e001 | | Load 0x0,0x1 0116 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0117 03f1 | | Declare_Variable Discrete,With_Value 0118 60ab |` | Indirect_Literal Discrete,0x1c4,{0x00000000, 0x00008ca0} 0119 e001 | | Load 0x0,0x1 011a 1b10 | | Execute Package,Field_Read,Field_Number 0x10 011b 03f1 | | Declare_Variable Discrete,With_Value 011c 60a3 |` | Indirect_Literal Discrete,0x1c0,{0x00000000, 0x0008ca00} 011d e001 | | Load 0x0,0x1 011e 1b10 | | Execute Package,Field_Read,Field_Number 0x10 011f 03f1 | | Declare_Variable Discrete,With_Value 0120 00e3 | | Load_Encached Natural_Cache 0121 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0122 e001 | | Load 0x0,0x1 0123 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0124 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0125 029d 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call 0127 029d 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call 0129 029d 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call 012b 029d 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call 012d 029d 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call 012f 029d 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call 0131 029d 029b | | Declare_Subprogram INIT_0298,For_Outer_Call 0133 029d 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call 0135 029d 030b | | Declare_Subprogram INIT_0308,For_Outer_Call 0137 029d 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call 0139 029d 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call 013b 029d 035b | [| Declare_Subprogram INIT_0358,For_Outer_Call 013d 029d 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call 013f 029d 038b | | Declare_Subprogram INIT_0388,For_Outer_Call 0141 029d 03c3 | | Declare_Subprogram INIT_03c0,For_Outer_Call 0143 029d 0433 | 3| Declare_Subprogram INIT_0430,For_Outer_Call 0145 029d 04cb | | Declare_Subprogram INIT_04c8,For_Outer_Call 0147 029d 0503 | | Declare_Subprogram INIT_0500,For_Outer_Call 0149 029d 052b | +| Declare_Subprogram INIT_0528,For_Outer_Call 014b 029d 054b | K| Declare_Subprogram INIT_0548,For_Outer_Call 014d 029d 05cb | | Declare_Subprogram INIT_05c8,For_Outer_Call 014f 029d 063b | ;| Declare_Subprogram INIT_0638,For_Outer_Call 0151 029d 064b | K| Declare_Subprogram INIT_0648,For_Outer_Call 0153 029d 0653 | S| Declare_Subprogram INIT_0650,For_Outer_Call 0155 029d 065b | [| Declare_Subprogram INIT_0658,For_Outer_Call 0157 029d 0663 | c| Declare_Subprogram INIT_0660,For_Outer_Call 0159 029d 066b | k| Declare_Subprogram INIT_0668,For_Outer_Call 015b 029d 068b | | Declare_Subprogram INIT_0688,For_Outer_Call 015d 029d 069b | | Declare_Subprogram INIT_0698,For_Outer_Call 015f 029d 0783 | | Declare_Subprogram INIT_0780,For_Outer_Call 0161 029d 07bb | | Declare_Subprogram INIT_07b8,For_Outer_Call 0163 029d 07c3 | | Declare_Subprogram INIT_07c0,For_Outer_Call 0165 029d 07d3 | | Declare_Subprogram INIT_07d0,For_Outer_Call 0167 029d 083b | ;| Declare_Subprogram INIT_0838,For_Outer_Call 0169 029d 0943 | C| Declare_Subprogram INIT_0940,For_Outer_Call 016b 029d 0973 | s| Declare_Subprogram INIT_0970,For_Outer_Call 016d 029d 09a3 | | Declare_Subprogram INIT_09a0,For_Outer_Call 016f 029d 0ca3 | | Declare_Subprogram INIT_0ca0,For_Outer_Call 0171 029d 0ce3 | | Declare_Subprogram INIT_0ce0,For_Outer_Call 0173 e00d | | Load 0x0,0xd 0174 e00e | | Load 0x0,0xe 0175 1d5b | [ | Execute_Immediate Reference_Lex_1,0x5b 0176 1d5c | \ | Execute_Immediate Reference_Lex_1,0x5c 0177 1d5d | ] | Execute_Immediate Reference_Lex_1,0x5d 0178 1d43 | C | Execute_Immediate Reference_Lex_1,0x43 0179 1d45 | E | Execute_Immediate Reference_Lex_1,0x45 017a 1d47 | G | Execute_Immediate Reference_Lex_1,0x47 017b 1d48 | H | Execute_Immediate Reference_Lex_1,0x48 017c 1d4e | N | Execute_Immediate Reference_Lex_1,0x4e 017d 1d4f | O | Execute_Immediate Reference_Lex_1,0x4f 017e 1d4a | J | Execute_Immediate Reference_Lex_1,0x4a 017f 1d4b | K | Execute_Immediate Reference_Lex_1,0x4b 0180 1d54 | T | Execute_Immediate Reference_Lex_1,0x54 0181 1d57 | W | Execute_Immediate Reference_Lex_1,0x57 0182 1d58 | X | Execute_Immediate Reference_Lex_1,0x58 0183 1d55 | U | Execute_Immediate Reference_Lex_1,0x55 0184 1d56 | V | Execute_Immediate Reference_Lex_1,0x56 0185 1d59 | Y | Execute_Immediate Reference_Lex_1,0x59 0186 1d5a | Z | Execute_Immediate Reference_Lex_1,0x5a 0187 1d63 | c | Execute_Immediate Reference_Lex_1,0x63 0188 1d5f | _ | Execute_Immediate Reference_Lex_1,0x5f 0189 1d5e | ^ | Execute_Immediate Reference_Lex_1,0x5e 018a 1d64 | d | Execute_Immediate Reference_Lex_1,0x64 018b 1d65 | e | Execute_Immediate Reference_Lex_1,0x65 018c 0092 0f17 | | Action Push_String_Extended,0xf17 ; "PostScript" 018e e002 | | Load 0x0,0x2 018f 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0190 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0191 0387 | | Declare_Variable Package 0192 00d8 | | Load_Top At_Offset_0 0193 020f | | Execute Module,Activate 0194 BODY_0008: 0194 00bc | | Action Signal_Activated 0195 00bb | | Action Signal_Completion 0196 0000 0000 | | .XXX[0x2] 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 019b | | .CONST 0x019b ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0001 | | .CONST 0x0001 ; Number of locals 019b BODY_0198: 019b INIT_0198: 019b 4607 |F | Jump_Case 0x8 019c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 019d 7806 |x | Jump 0x1a4 ; case 0x1 019e 7809 |x | Jump 0x1a8 ; case 0x2 019f 780d |x | Jump 0x1ad ; case 0x3 01a0 7810 |x | Jump 0x1b1 ; case 0x4 01a1 7811 |x | Jump 0x1b3 ; case 0x5 01a2 7812 |x | Jump 0x1b5 ; case 0x6 01a3 7815 |x | Jump 0x1b9 ; case 0x7 01a4 00da | | Load_Top At_Offset_2 01a5 0091 0f0c | | Action Push_String_Extended_Indexed,0xf0c ; "NIL" 01a7 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 01a8 00db | | Load_Top At_Offset_3 01a9 00db | | Load_Top At_Offset_3 01aa 00e0 | | Load_Encached Standard_Cache 01ab 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01ac 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01ad 00da | | Load_Top At_Offset_2 01ae 00e0 | | Load_Encached Standard_Cache 01af 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01b0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 01b1 00db | | Load_Top At_Offset_3 01b2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01b3 00db | | Load_Top At_Offset_3 01b4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01b5 e212 | | Load 0x1,0x12 01b6 00dc | | Load_Top At_Offset_4 01b7 0267 | g | Execute Discrete,Predecessor 01b8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01b9 e212 | | Load 0x1,0x12 01ba 00dc | | Load_Top At_Offset_4 01bb 0268 | h | Execute Discrete,Successor 01bc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01bd 0000 0000 | | .XXX[0x3] 01bf 0000 | | 01c0 0000 0000 | | .LITERAL {0x00000000, 0x0008ca00} 01c4 0000 0000 | | .LITERAL {0x00000000, 0x00008ca0} 01c8 0000 0000 | | .LITERAL {0x00000000, 0x000956a0} 01cc 0000 0000 | | .LITERAL {0x00000000, 0x000c15c0} 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01d3 | | .CONST 0x01d3 ; Address of begin 01d1 0004 | | .CONST 0x0004 ; Address of exception handler 01d2 0001 | | .CONST 0x0001 ; Number of locals 01d3 BODY_01d0: 01d3 INIT_01d0: 01d3 4607 |F | Jump_Case 0x8 01d4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 01d5 7806 |x | Jump 0x1dc ; case 0x1 01d6 7809 |x | Jump 0x1e0 ; case 0x2 01d7 780d |x | Jump 0x1e5 ; case 0x3 01d8 7810 |x | Jump 0x1e9 ; case 0x4 01d9 7811 |x | Jump 0x1eb ; case 0x5 01da 7812 |x | Jump 0x1ed ; case 0x6 01db 7815 |x | Jump 0x1f1 ; case 0x7 01dc 00da | | Load_Top At_Offset_2 01dd 0091 0f0e | | Action Push_String_Extended_Indexed,0xf0e ; "NIL" 01df 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 01e0 00db | | Load_Top At_Offset_3 01e1 00db | | Load_Top At_Offset_3 01e2 00e0 | | Load_Encached Standard_Cache 01e3 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01e4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01e5 00da | | Load_Top At_Offset_2 01e6 00e0 | | Load_Encached Standard_Cache 01e7 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01e8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 01e9 00db | | Load_Top At_Offset_3 01ea 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01eb 00db | | Load_Top At_Offset_3 01ec 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01ed e22c | , | Load 0x1,0x2c 01ee 00dc | | Load_Top At_Offset_4 01ef 0267 | g | Execute Discrete,Predecessor 01f0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01f1 e22c | , | Load 0x1,0x2c 01f2 00dc | | Load_Top At_Offset_4 01f3 0268 | h | Execute Discrete,Successor 01f4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01f5 0000 0000 | | .XXX[0x3] 01f7 0000 | | 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 01fd | | .CONST 0x01fd ; Address of begin 01f9 0004 | | .CONST 0x0004 ; Address of exception handler 01fa 0003 | | .CONST 0x0003 ; Number of locals 01fb INIT_01f8: 01fb 00e2 | | Load_Encached Integer_Cache 01fc 03e9 | | Declare_Variable Discrete,Duplicate 01fd BODY_01f8: 01fd e5ff | | Load 0x2,-0x1 01fe 4be8 |K | Short_Literal 0x3e8 01ff 0270 | p | Execute Discrete,Divide 0200 a402 | | Store_Unchecked 0x2,0x2 0201 e5ff | | Load 0x2,-0x1 0202 4be8 |K | Short_Literal 0x3e8 0203 026f | o | Execute Discrete,Remainder 0204 a403 | | Store_Unchecked 0x2,0x3 0205 00d8 | | Load_Top At_Offset_0 0206 6810 |h | Jump_Zero 0x217 0207 482e |H. | Short_Literal 0x2e 0208 4820 |H | Short_Literal 0x20 0209 4800 |H | Short_Literal 0x0 020a 480a |H | Short_Literal 0xa 020b e402 | | Load 0x2,0x2 020c e00f | | Load 0x0,0xf 020d 1816 | | Execute Package,Field_Execute,Field_Number 0x16 020e 01cb | | Execute Vector,Append 020f 4830 |H0 | Short_Literal 0x30 0210 4803 |H | Short_Literal 0x3 0211 480a |H | Short_Literal 0xa 0212 e403 | | Load 0x2,0x3 0213 e00f | | Load 0x0,0xf 0214 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0215 01cc | | Execute Vector,Catenate 0216 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0217 4820 |H | Short_Literal 0x20 0218 4800 |H | Short_Literal 0x0 0219 480a |H | Short_Literal 0xa 021a e402 | | Load 0x2,0x2 021b e00f | | Load 0x0,0xf 021c 1816 | | Execute Package,Field_Execute,Field_Number 0x16 021d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 021e 0000 0000 | | .XXX[0x2] 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 0223 | # | .CONST 0x0223 ; Address of begin 0221 0004 | | .CONST 0x0004 ; Address of exception handler 0222 0001 | | .CONST 0x0001 ; Number of locals 0223 BODY_0220: 0223 INIT_0220: 0223 e5ff | | Load 0x2,-0x1 0224 0d00 | | Execute_Immediate Less,0x0 0225 6806 |h | Jump_Zero 0x22c 0226 482d |H- | Short_Literal 0x2d 0227 e5ff | | Load 0x2,-0x1 0228 0275 | u | Execute Discrete,Unary_Minus 0229 823f | ? | Call 0x1,0x3f 022a 01ca | | Execute Vector,Prepend 022b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 022c e5ff | | Load 0x2,-0x1 022d 823f | ? | Call 0x1,0x3f 022e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 022f 0000 | | .XXX[0x1] 0230 ; -------------------------------------------------------------------------------------- 0230 ; SUBPROGRAM 0230 ; -------------------------------------------------------------------------------------- 0230 0233 | 3 | .CONST 0x0233 ; Address of begin 0231 0004 | | .CONST 0x0004 ; Address of exception handler 0232 0001 | | .CONST 0x0001 ; Number of locals 0233 BODY_0230: 0233 INIT_0230: 0233 485c |H\ | Short_Literal 0x5c 0234 4830 |H0 | Short_Literal 0x30 0235 4803 |H | Short_Literal 0x3 0236 4808 |H | Short_Literal 0x8 0237 e5ff | | Load 0x2,-0x1 0238 00d8 | | Load_Top At_Offset_0 0239 00e2 | | Load_Encached Integer_Cache 023a 0260 | ` | Execute Discrete,In_Type 023b 7001 |p | Jump_Nonzero 0x23d 023c 0801 | | Execute_Immediate Raise,0x1 023d e00f | | Load 0x0,0xf 023e 1816 | | Execute Package,Field_Execute,Field_Number 0x16 023f 01ca | | Execute Vector,Prepend 0240 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0241 0000 0000 | | .BLANK 0000[0x7] 0248 ; -------------------------------------------------------------------------------------- 0248 ; SUBPROGRAM 0248 ; -------------------------------------------------------------------------------------- 0248 0257 | W | .CONST 0x0257 ; Address of begin 0249 0004 | | .CONST 0x0004 ; Address of exception handler 024a 0002 | | .CONST 0x0002 ; Number of locals 024b INIT_0248: 024b e23e | > | Load 0x1,0x3e 024c 4820 |H | Short_Literal 0x20 024d e235 | 5 | Load 0x1,0x35 024e 0227 | ' | Execute Access,All_Reference 024f 2406 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x6 0250 01d7 | | Execute Vector,Field_Read 0251 e236 | 6 | Load 0x1,0x36 0252 0271 | q | Execute Discrete,Times 0253 0272 | r | Execute Discrete,Minus 0254 e001 | | Load 0x0,0x1 0255 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0256 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0257 BODY_0248: 0257 00d8 | | Load_Top At_Offset_0 0258 0c01 | | Execute_Immediate Greater_Equal,0x1 0259 680c |h | Jump_Zero 0x266 025a 0092 0f18 | | Action Push_String_Extended,0xf18 ; ") " 025c e402 | | Load 0x2,0x2 025d 8240 | @ | Call 0x1,0x40 025e 01cc | | Execute Vector,Catenate 025f 0092 0f19 | | Action Push_String_Extended,0xf19 ; " WS" 0261 01cc | | Execute Vector,Catenate 0262 e233 | 3 | Load 0x1,0x33 0263 e00c | | Load 0x0,0xc 0264 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0265 7805 |x | Jump 0x26b 0266 0092 0f1a | | Action Push_String_Extended,0xf1a ; ") show" 0268 e233 | 3 | Load 0x1,0x33 0269 e00c | | Load 0x0,0xc 026a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 026b 4800 |H | Short_Literal 0x0 026c a23e | > | Store_Unchecked 0x1,0x3e 026d 4800 |H | Short_Literal 0x0 026e a23d | = | Store_Unchecked 0x1,0x3d 026f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0270 ; -------------------------------------------------------------------------------------- 0270 ; SUBPROGRAM 0270 ; -------------------------------------------------------------------------------------- 0270 0273 | s | .CONST 0x0273 ; Address of begin 0271 0004 | | .CONST 0x0004 ; Address of exception handler 0272 0001 | | .CONST 0x0001 ; Number of locals 0273 BODY_0270: 0273 INIT_0270: 0273 4801 |H | Short_Literal 0x1 0274 00ca | | Action Exit_Nullary_Function 0275 0000 0000 | | .XXX[0x3] 0277 0000 | | 0278 ; -------------------------------------------------------------------------------------- 0278 ; SUBPROGRAM 0278 ; -------------------------------------------------------------------------------------- 0278 027e | ~ | .CONST 0x027e ; Address of begin 0279 0004 | | .CONST 0x0004 ; Address of exception handler 027a 0002 | | .CONST 0x0002 ; Number of locals 027b INIT_0278: 027b e5ff | | Load 0x2,-0x1 027c e00f | | Load 0x0,0xf 027d 1814 | | Execute Package,Field_Execute,Field_Number 0x14 027e BODY_0278: 027e 00cf | | Action Mark_Auxiliary 027f e211 | | Load 0x1,0x11 0280 01d9 | | Execute Vector,Reverse_Bounds 0281 0007 | | Action Break_Optional 0282 00d8 | | Load_Top At_Offset_0 0283 e211 | | Load 0x1,0x11 0284 01d5 | | Execute Vector,Field_Reference 0285 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0286 7002 |p | Jump_Nonzero 0x289 0287 4800 |H | Short_Literal 0x0 0288 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0289 00d8 | | Load_Top At_Offset_0 028a e211 | | Load 0x1,0x11 028b 01d5 | | Execute Vector,Field_Reference 028c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 028d 0227 | ' | Execute Access,All_Reference 028e e402 | | Load 0x2,0x2 028f 01df | | Execute Vector,Equal 0290 6802 |h | Jump_Zero 0x293 0291 00d8 | | Load_Top At_Offset_0 0292 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0293 00c8 | | Action Pop_Auxiliary_Range 0294 3fed |? | Loop_Increasing 0x282 0295 00ce | | Action Pop_Auxiliary 0296 4800 |H | Short_Literal 0x0 0297 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0298 ; -------------------------------------------------------------------------------------- 0298 ; SUBPROGRAM 0298 ; -------------------------------------------------------------------------------------- 0298 029f | | .CONST 0x029f ; Address of begin 0299 0004 | | .CONST 0x0004 ; Address of exception handler 029a 0002 | | .CONST 0x0002 ; Number of locals 029b INIT_0298: 029b e5ff | | Load 0x2,-0x1 029c 8244 | D | Call 0x1,0x44 029d 00e3 | | Load_Encached Natural_Cache 029e 03f1 | | Declare_Variable Discrete,With_Value 029f BODY_0298: 029f 00d8 | | Load_Top At_Offset_0 02a0 6807 |h | Jump_Zero 0x2a8 02a1 00d8 | | Load_Top At_Offset_0 02a2 e211 | | Load 0x1,0x11 02a3 01d5 | | Execute Vector,Field_Reference 02a4 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 02a5 e5fe | | Load 0x2,-0x2 02a6 017d | } | Execute Record,Structure_Write 02a7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02a8 0092 0f1b | | Action Push_String_Extended,0xf1b ; "Invalid form selection " 02aa e5ff | | Load 0x2,-0x1 02ab 01cc | | Execute Vector,Catenate 02ac 0092 0f1c | | Action Push_String_Extended,0xf1c ; ". Form " 02ae 01cc | | Execute Vector,Catenate 02af 4801 |H | Short_Literal 0x1 02b0 e211 | | Load 0x1,0x11 02b1 01d5 | | Execute Vector,Field_Reference 02b2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02b3 0227 | ' | Execute Access,All_Reference 02b4 01cc | | Execute Vector,Catenate 02b5 0092 0f1d | | Action Push_String_Extended,0xf1d ; " assumed" 02b7 01cc | | Execute Vector,Catenate 02b8 e010 | | Load 0x0,0x10 02b9 180e | | Execute Package,Field_Execute,Field_Number 0xe 02ba 4801 |H | Short_Literal 0x1 02bb e211 | | Load 0x1,0x11 02bc 01d5 | | Execute Vector,Field_Reference 02bd 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 02be e5fe | | Load 0x2,-0x2 02bf 017d | } | Execute Record,Structure_Write 02c0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02c1 0000 0000 | | .BLANK 0000[0x7] 02c8 ; -------------------------------------------------------------------------------------- 02c8 ; SUBPROGRAM 02c8 ; -------------------------------------------------------------------------------------- 02c8 02ce | | .CONST 0x02ce ; Address of begin 02c9 0004 | | .CONST 0x0004 ; Address of exception handler 02ca 0002 | | .CONST 0x0002 ; Number of locals 02cb INIT_02c8: 02cb e5ff | | Load 0x2,-0x1 02cc e00f | | Load 0x0,0xf 02cd 1814 | | Execute Package,Field_Execute,Field_Number 0x14 02ce BODY_02c8: 02ce 00cf | | Action Mark_Auxiliary 02cf e211 | | Load 0x1,0x11 02d0 01d9 | | Execute Vector,Reverse_Bounds 02d1 0007 | | Action Break_Optional 02d2 00d8 | | Load_Top At_Offset_0 02d3 e211 | | Load 0x1,0x11 02d4 01d5 | | Execute Vector,Field_Reference 02d5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02d6 700e |p | Jump_Nonzero 0x2e5 02d7 e20f | | Load 0x1,0xf 02d8 0322 | " | Declare_Variable Record 02d9 e5ff | | Load 0x2,-0x1 02da e20e | | Load 0x1,0xe 02db 03b6 | | Declare_Variable Access,By_Allocation,With_Value 02dc e406 | | Load 0x2,0x6 02dd 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 02de e5fd | | Load 0x2,-0x3 02df e406 | | Load 0x2,0x6 02e0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 02e1 e405 | | Load 0x2,0x5 02e2 e211 | | Load 0x1,0x11 02e3 01d6 | | Execute Vector,Field_Write 02e4 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02e5 00d8 | | Load_Top At_Offset_0 02e6 e211 | | Load 0x1,0x11 02e7 01d5 | | Execute Vector,Field_Reference 02e8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02e9 0227 | ' | Execute Access,All_Reference 02ea e402 | | Load 0x2,0x2 02eb 01df | | Execute Vector,Equal 02ec 680f |h | Jump_Zero 0x2fc 02ed 0092 0f1e | | Action Push_String_Extended,0xf1e ; "Form " 02ef e5ff | | Load 0x2,-0x1 02f0 01cc | | Execute Vector,Catenate 02f1 0092 0f1f | | Action Push_String_Extended,0xf1f ; " is being redefined" 02f3 01cc | | Execute Vector,Catenate 02f4 e010 | | Load 0x0,0x10 02f5 180f | | Execute Package,Field_Execute,Field_Number 0xf 02f6 e5fd | | Load 0x2,-0x3 02f7 e405 | | Load 0x2,0x5 02f8 e211 | | Load 0x1,0x11 02f9 01d5 | | Execute Vector,Field_Reference 02fa 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 02fb 4504 |E | Exit_Suprogram New_Top_Offset 0x4 02fc 00c8 | | Action Pop_Auxiliary_Range 02fd 3fd4 |? | Loop_Increasing 0x2d2 02fe 00ce | | Action Pop_Auxiliary 02ff 0092 0f20 | | Action Push_String_Extended,0xf20 ; "Too many forms defined" 0301 e010 | | Load 0x0,0x10 0302 180e | | Execute Package,Field_Execute,Field_Number 0xe 0303 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0304 0000 0000 | | .BLANK 0000[0x4] 0308 ; -------------------------------------------------------------------------------------- 0308 ; SUBPROGRAM 0308 ; -------------------------------------------------------------------------------------- 0308 030b | | .CONST 0x030b ; Address of begin 0309 0004 | | .CONST 0x0004 ; Address of exception handler 030a 0001 | | .CONST 0x0001 ; Number of locals 030b BODY_0308: 030b INIT_0308: 030b 0092 0f21 | !| Action Push_String_Extended,0xf21 ; "The PostScript device does not support defining forms" 030d e010 | | Load 0x0,0x10 030e 180e | | Execute Package,Field_Execute,Field_Number 0xe 030f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0310 ; -------------------------------------------------------------------------------------- 0310 ; SUBPROGRAM 0310 ; -------------------------------------------------------------------------------------- 0310 031c | | .CONST 0x031c ; Address of begin 0311 0321 | ! | .CONST 0x0321 ; Address of exception handler 0312 0004 | | .CONST 0x0004 ; Number of locals 0313 INIT_0310: 0313 e011 | | Load 0x0,0x11 0314 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0315 02c7 | | Declare_Variable Any 0316 00d8 | | Load_Top At_Offset_0 0317 1c00 | | Execute_Immediate Run_Utility,0x0 0318 029f 0ceb | | Declare_Subprogram INIT_0ce8,For_Call 031a 029f 0d0b | | Declare_Subprogram INIT_0d08,For_Call 031c BODY_0310: 031c 8403 | | Call 0x2,0x3 031d 00cf | | Action Mark_Auxiliary 031e 8404 | | Call 0x2,0x4 031f 00c9 | | Action Pop_Auxiliary_Loop 0320 7ffd | | Jump 0x31e 0321 TRAP_0310: 0321 00d8 | | Load_Top At_Offset_0 0322 0107 | | Execute Exception,Get_Name 0323 4950 |IP | Short_Literal 0x150 0324 495f |I_ | Short_Literal 0x15f 0325 0262 | b | Execute Discrete,In_Range 0326 6805 |h | Jump_Zero 0x32c 0327 e402 | | Load 0x2,0x2 0328 e011 | | Load 0x0,0x11 0329 181b | | Execute Package,Field_Execute,Field_Number 0x1b 032a c402 | | Store 0x2,0x2 032b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 032c e001 | | Load 0x0,0x1 032d 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 032e 010f | | Execute Exception,Equal 032f 6802 |h | Jump_Zero 0x332 0330 00d8 | | Load_Top At_Offset_0 0331 0101 | | Execute Exception,Reraise 0332 0092 0f22 | "| Action Push_String_Extended,0xf22 ; "Could not define forms in " 0334 e5ff | | Load 0x2,-0x1 0335 01cc | | Execute Vector,Catenate 0336 e010 | | Load 0x0,0x10 0337 180e | | Execute Package,Field_Execute,Field_Number 0xe 0338 e001 | | Load 0x0,0x1 0339 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 033a 0257 | W | Execute Discrete,Raise 033b 0000 0000 | | .BLANK 0000[0x5] 0340 ; -------------------------------------------------------------------------------------- 0340 ; SUBPROGRAM 0340 ; -------------------------------------------------------------------------------------- 0340 0343 | C | .CONST 0x0343 ; Address of begin 0341 0004 | | .CONST 0x0004 ; Address of exception handler 0342 0001 | | .CONST 0x0001 ; Number of locals 0343 BODY_0340: 0343 INIT_0340: 0343 00cf | | Action Mark_Auxiliary 0344 e21d | | Load 0x1,0x1d 0345 4801 |H | Short_Literal 0x1 0346 0263 | c | Execute Discrete,Above_Bound 0347 700c |p | Jump_Nonzero 0x354 0348 e5ff | | Load 0x2,-0x1 0349 e404 | | Load 0x2,0x4 034a e21c | | Load 0x1,0x1c 034b 01d7 | | Execute Vector,Field_Read 034c 0227 | ' | Execute Access,All_Reference 034d 01df | | Execute Vector,Equal 034e 6803 |h | Jump_Zero 0x352 034f 00d8 | | Load_Top At_Offset_0 0350 a5fe | | Store_Unchecked 0x2,-0x2 0351 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0352 00c8 | | Action Pop_Auxiliary_Range 0353 3ff4 |? | Loop_Increasing 0x348 0354 00ce | | Action Pop_Auxiliary 0355 4800 |H | Short_Literal 0x0 0356 a5fe | | Store_Unchecked 0x2,-0x2 0357 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0358 ; -------------------------------------------------------------------------------------- 0358 ; SUBPROGRAM 0358 ; -------------------------------------------------------------------------------------- 0358 035e | ^ | .CONST 0x035e ; Address of begin 0359 0004 | | .CONST 0x0004 ; Address of exception handler 035a 0002 | | .CONST 0x0002 ; Number of locals 035b INIT_0358: 035b e5ff | | Load 0x2,-0x1 035c e00f | | Load 0x0,0xf 035d 1814 | | Execute Package,Field_Execute,Field_Number 0x14 035e BODY_0358: 035e 00cf | | Action Mark_Auxiliary 035f e224 | $ | Load 0x1,0x24 0360 4801 |H | Short_Literal 0x1 0361 0263 | c | Execute Discrete,Above_Bound 0362 700c |p | Jump_Nonzero 0x36f 0363 e402 | | Load 0x2,0x2 0364 e405 | | Load 0x2,0x5 0365 e223 | # | Load 0x1,0x23 0366 01d7 | | Execute Vector,Field_Read 0367 0227 | ' | Execute Access,All_Reference 0368 01df | | Execute Vector,Equal 0369 6803 |h | Jump_Zero 0x36d 036a 00d8 | | Load_Top At_Offset_0 036b a5fe | | Store_Unchecked 0x2,-0x2 036c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 036d 00c8 | | Action Pop_Auxiliary_Range 036e 3ff4 |? | Loop_Increasing 0x363 036f 00ce | | Action Pop_Auxiliary 0370 4800 |H | Short_Literal 0x0 0371 a5fe | | Store_Unchecked 0x2,-0x2 0372 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0373 0000 0000 | | .BLANK 0000[0x5] 0378 ; -------------------------------------------------------------------------------------- 0378 ; SUBPROGRAM 0378 ; -------------------------------------------------------------------------------------- 0378 037b | { | .CONST 0x037b ; Address of begin 0379 0382 | | .CONST 0x0382 ; Address of exception handler 037a 0001 | | .CONST 0x0001 ; Number of locals 037b BODY_0378: 037b INIT_0378: 037b e5ff | | Load 0x2,-0x1 037c e223 | # | Load 0x1,0x23 037d 01d7 | | Execute Vector,Field_Read 037e 0227 | ' | Execute Access,All_Reference 037f 0335 | 5 | Declare_Variable Array,Duplicate 0380 00cd | | Action Spare6_Action 0381 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0382 TRAP_0378: 0382 0007 | | Action Break_Optional 0383 0092 0f23 | #| Action Push_String_Extended,0xf23 ; "Standard" 0385 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0386 0000 0000 | | .XXX[0x2] 0388 ; -------------------------------------------------------------------------------------- 0388 ; SUBPROGRAM 0388 ; -------------------------------------------------------------------------------------- 0388 0390 | | .CONST 0x0390 ; Address of begin 0389 0004 | | .CONST 0x0004 ; Address of exception handler 038a 0003 | | .CONST 0x0003 ; Number of locals 038b INIT_0388: 038b e219 | | Load 0x1,0x19 038c 0007 | | Action Break_Optional 038d e5fe | | Load 0x2,-0x2 038e e00f | | Load 0x0,0xf 038f 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0390 BODY_0388: 0390 e219 | | Load 0x1,0x19 0391 e403 | | Load 0x2,0x3 0392 8249 | I | Call 0x1,0x49 0393 c402 | | Store 0x2,0x2 0394 e402 | | Load 0x2,0x2 0395 7013 |p | Jump_Nonzero 0x3a9 0396 e21d | | Load 0x1,0x1d 0397 0c78 | x | Execute_Immediate Greater_Equal,0x78 0398 6805 |h | Jump_Zero 0x39e 0399 0092 0f24 | $| Action Push_String_Extended,0xf24 ; "No more fonts can be defined" 039b e010 | | Load 0x0,0x10 039c 180e | | Execute Package,Field_Execute,Field_Number 0xe 039d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 039e e21d | | Load 0x1,0x1d 039f 0a01 | | Execute_Immediate Plus,0x1 03a0 c21d | | Store 0x1,0x1d 03a1 e21d | | Load 0x1,0x1d 03a2 a402 | | Store_Unchecked 0x2,0x2 03a3 00d8 | | Load_Top At_Offset_0 03a4 e20e | | Load 0x1,0xe 03a5 03b6 | | Declare_Variable Access,By_Allocation,With_Value 03a6 e402 | | Load 0x2,0x2 03a7 e21c | | Load 0x1,0x1c 03a8 01d6 | | Execute Vector,Field_Write 03a9 e402 | | Load 0x2,0x2 03aa e5ff | | Load 0x2,-0x1 03ab e227 | ' | Load 0x1,0x27 03ac 01d6 | | Execute Vector,Field_Write 03ad e402 | | Load 0x2,0x2 03ae e21f | | Load 0x1,0x1f 03af 01d7 | | Execute Vector,Field_Read 03b0 e5ff | | Load 0x2,-0x1 03b1 e229 | ) | Load 0x1,0x29 03b2 01d6 | | Execute Vector,Field_Write 03b3 e402 | | Load 0x2,0x2 03b4 e221 | ! | Load 0x1,0x21 03b5 01d7 | | Execute Vector,Field_Read 03b6 e5ff | | Load 0x2,-0x1 03b7 e22b | + | Load 0x1,0x2b 03b8 01d6 | | Execute Vector,Field_Write 03b9 4503 |E | Exit_Suprogram New_Top_Offset 0x3 03ba 0000 0000 | | .BLANK 0000[0x6] 03c0 ; -------------------------------------------------------------------------------------- 03c0 ; SUBPROGRAM 03c0 ; -------------------------------------------------------------------------------------- 03c0 03c7 | | .CONST 0x03c7 ; Address of begin 03c1 0004 | | .CONST 0x0004 ; Address of exception handler 03c2 0003 | | .CONST 0x0003 ; Number of locals 03c3 INIT_03c0: 03c3 e001 | | Load 0x0,0x1 03c4 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f 03c5 e225 | % | Load 0x1,0x25 03c6 0007 | | Action Break_Optional 03c7 BODY_03c0: 03c7 e001 | | Load 0x0,0x1 03c8 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f 03c9 e5ff | | Load 0x2,-0x1 03ca 824a | J | Call 0x1,0x4a 03cb c402 | | Store 0x2,0x2 03cc e402 | | Load 0x2,0x2 03cd 7015 |p | Jump_Nonzero 0x3e3 03ce e224 | $ | Load 0x1,0x24 03cf 0c28 | ( | Execute_Immediate Greater_Equal,0x28 03d0 6805 |h | Jump_Zero 0x3d6 03d1 0092 0f25 | %| Action Push_String_Extended,0xf25 ; "No more font families can be defined" 03d3 e010 | | Load 0x0,0x10 03d4 180e | | Execute Package,Field_Execute,Field_Number 0xe 03d5 4506 |E | Exit_Suprogram New_Top_Offset 0x6 03d6 e224 | $ | Load 0x1,0x24 03d7 0a01 | | Execute_Immediate Plus,0x1 03d8 c224 | $ | Store 0x1,0x24 03d9 e224 | $ | Load 0x1,0x24 03da a402 | | Store_Unchecked 0x2,0x2 03db e5ff | | Load 0x2,-0x1 03dc e00f | | Load 0x0,0xf 03dd 1814 | | Execute Package,Field_Execute,Field_Number 0x14 03de e20e | | Load 0x1,0xe 03df 03b6 | | Declare_Variable Access,By_Allocation,With_Value 03e0 e402 | | Load 0x2,0x2 03e1 e223 | # | Load 0x1,0x23 03e2 01d6 | | Execute Vector,Field_Write 03e3 e402 | | Load 0x2,0x2 03e4 0902 | | Execute_Immediate Binary_Scale,0x2 03e5 c403 | | Store 0x2,0x3 03e6 e5fe | | Load 0x2,-0x2 03e7 e403 | | Load 0x2,0x3 03e8 824c | L | Call 0x1,0x4c 03e9 e5fd | | Load 0x2,-0x3 03ea 01db | | Execute Vector,Length 03eb 700a |p | Jump_Nonzero 0x3f6 03ec e5fe | | Load 0x2,-0x2 03ed e403 | | Load 0x2,0x3 03ee 0a01 | | Execute_Immediate Plus,0x1 03ef 00d8 | | Load_Top At_Offset_0 03f0 e225 | % | Load 0x1,0x25 03f1 0260 | ` | Execute Discrete,In_Type 03f2 7001 |p | Jump_Nonzero 0x3f4 03f3 0801 | | Execute_Immediate Raise,0x1 03f4 824c | L | Call 0x1,0x4c 03f5 7809 |x | Jump 0x3ff 03f6 e5fd | | Load 0x2,-0x3 03f7 e403 | | Load 0x2,0x3 03f8 0a01 | | Execute_Immediate Plus,0x1 03f9 00d8 | | Load_Top At_Offset_0 03fa e225 | % | Load 0x1,0x25 03fb 0260 | ` | Execute Discrete,In_Type 03fc 7001 |p | Jump_Nonzero 0x3fe 03fd 0801 | | Execute_Immediate Raise,0x1 03fe 824c | L | Call 0x1,0x4c 03ff e5fc | | Load 0x2,-0x4 0400 01db | | Execute Vector,Length 0401 700a |p | Jump_Nonzero 0x40c 0402 e5fe | | Load 0x2,-0x2 0403 e403 | | Load 0x2,0x3 0404 0a02 | | Execute_Immediate Plus,0x2 0405 00d8 | | Load_Top At_Offset_0 0406 e225 | % | Load 0x1,0x25 0407 0260 | ` | Execute Discrete,In_Type 0408 7001 |p | Jump_Nonzero 0x40a 0409 0801 | | Execute_Immediate Raise,0x1 040a 824c | L | Call 0x1,0x4c 040b 7809 |x | Jump 0x415 040c e5fc | | Load 0x2,-0x4 040d e403 | | Load 0x2,0x3 040e 0a02 | | Execute_Immediate Plus,0x2 040f 00d8 | | Load_Top At_Offset_0 0410 e225 | % | Load 0x1,0x25 0411 0260 | ` | Execute Discrete,In_Type 0412 7001 |p | Jump_Nonzero 0x414 0413 0801 | | Execute_Immediate Raise,0x1 0414 824c | L | Call 0x1,0x4c 0415 e5fb | | Load 0x2,-0x5 0416 01db | | Execute Vector,Length 0417 700a |p | Jump_Nonzero 0x422 0418 e5fe | | Load 0x2,-0x2 0419 e403 | | Load 0x2,0x3 041a 0a03 | | Execute_Immediate Plus,0x3 041b 00d8 | | Load_Top At_Offset_0 041c e225 | % | Load 0x1,0x25 041d 0260 | ` | Execute Discrete,In_Type 041e 7001 |p | Jump_Nonzero 0x420 041f 0801 | | Execute_Immediate Raise,0x1 0420 824c | L | Call 0x1,0x4c 0421 4506 |E | Exit_Suprogram New_Top_Offset 0x6 0422 e5fb | | Load 0x2,-0x5 0423 e403 | | Load 0x2,0x3 0424 0a03 | | Execute_Immediate Plus,0x3 0425 00d8 | | Load_Top At_Offset_0 0426 e225 | % | Load 0x1,0x25 0427 0260 | ` | Execute Discrete,In_Type 0428 7001 |p | Jump_Nonzero 0x42a 0429 0801 | | Execute_Immediate Raise,0x1 042a 824c | L | Call 0x1,0x4c 042b 4506 |E | Exit_Suprogram New_Top_Offset 0x6 042c 0000 0000 | | .BLANK 0000[0x4] 0430 ; -------------------------------------------------------------------------------------- 0430 ; SUBPROGRAM 0430 ; -------------------------------------------------------------------------------------- 0430 0444 | D | .CONST 0x0444 ; Address of begin 0431 0004 | | .CONST 0x0004 ; Address of exception handler 0432 0007 | | .CONST 0x0007 ; Number of locals 0433 INIT_0430: 0433 00ea | | Load_Encached Null_String_Cache 0434 e20e | | Load 0x1,0xe 0435 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0436 00ea | | Load_Encached Null_String_Cache 0437 e20e | | Load 0x1,0xe 0438 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0439 00ea | | Load_Encached Null_String_Cache 043a e20e | | Load 0x1,0xe 043b 03b6 | | Declare_Variable Access,By_Allocation,With_Value 043c 00ea | | Load_Encached Null_String_Cache 043d e20e | | Load 0x1,0xe 043e 03b6 | | Declare_Variable Access,By_Allocation,With_Value 043f 00ea | | Load_Encached Null_String_Cache 0440 e20e | | Load 0x1,0xe 0441 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0442 e22d | - | Load 0x1,0x2d 0443 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 0444 BODY_0430: 0444 e5ff | | Load 0x2,-0x1 0445 e22d | - | Load 0x1,0x2d 0446 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0447 a407 | | Store_Unchecked 0x2,0x7 0448 00d8 | | Load_Top At_Offset_0 0449 e22d | - | Load 0x1,0x2d 044a 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 044b e5ff | | Load 0x2,-0x1 044c 01db | | Execute Vector,Length 044d 0e00 | | Execute_Immediate Not_Equal,0x0 044e 0279 | y | Execute Discrete,And 044f 6805 |h | Jump_Zero 0x455 0450 0092 0f26 | &| Action Push_String_Extended,0xf26 ; "Argument to Define_Font was unrecognizable" 0452 e010 | | Load 0x0,0x10 0453 180e | | Execute Package,Field_Execute,Field_Number 0xe 0454 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0455 00cf | | Action Mark_Auxiliary 0456 784a |xJ | Jump 0x4a1 0457 4800 |H | Short_Literal 0x0 0458 e407 | | Load 0x2,0x7 0459 e22d | - | Load 0x1,0x2d 045a 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 045b 6837 |h7 | Jump_Zero 0x493 045c e407 | | Load 0x2,0x7 045d e22d | - | Load 0x1,0x2d 045e 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 045f 4605 |F | Jump_Case 0x6 0460 783b |x; | Jump 0x49c ; case 0x0 0461 780d |x | Jump 0x46f ; case 0x1 0462 7815 |x | Jump 0x478 ; case 0x2 0463 781d |x | Jump 0x481 ; case 0x3 0464 7825 |x% | Jump 0x48a ; case 0x4 0465 7800 |x | Jump 0x466 ; case 0x5 0466 00ea | | Load_Encached Null_String_Cache 0467 4800 |H | Short_Literal 0x0 0468 e407 | | Load 0x2,0x7 0469 e22d | - | Load 0x1,0x2d 046a 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 046b e20e | | Load 0x1,0xe 046c 03b6 | | Declare_Variable Access,By_Allocation,With_Value 046d a406 | | Store_Unchecked 0x2,0x6 046e 782d |x- | Jump 0x49c 046f 00ea | | Load_Encached Null_String_Cache 0470 4800 |H | Short_Literal 0x0 0471 e407 | | Load 0x2,0x7 0472 e22d | - | Load 0x1,0x2d 0473 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0474 e20e | | Load 0x1,0xe 0475 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0476 a402 | | Store_Unchecked 0x2,0x2 0477 7824 |x$ | Jump 0x49c 0478 00ea | | Load_Encached Null_String_Cache 0479 4800 |H | Short_Literal 0x0 047a e407 | | Load 0x2,0x7 047b e22d | - | Load 0x1,0x2d 047c 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 047d e20e | | Load 0x1,0xe 047e 03b6 | | Declare_Variable Access,By_Allocation,With_Value 047f a403 | | Store_Unchecked 0x2,0x3 0480 781b |x | Jump 0x49c 0481 00ea | | Load_Encached Null_String_Cache 0482 4800 |H | Short_Literal 0x0 0483 e407 | | Load 0x2,0x7 0484 e22d | - | Load 0x1,0x2d 0485 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0486 e20e | | Load 0x1,0xe 0487 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0488 a405 | | Store_Unchecked 0x2,0x5 0489 7812 |x | Jump 0x49c 048a 00ea | | Load_Encached Null_String_Cache 048b 4800 |H | Short_Literal 0x0 048c e407 | | Load 0x2,0x7 048d e22d | - | Load 0x1,0x2d 048e 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 048f e20e | | Load 0x1,0xe 0490 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0491 a404 | | Store_Unchecked 0x2,0x4 0492 7809 |x | Jump 0x49c 0493 0092 0f27 | '| Action Push_String_Extended,0xf27 ; "Define_Font" 0495 4800 |H | Short_Literal 0x0 0496 e407 | | Load 0x2,0x7 0497 e22d | - | Load 0x1,0x2d 0498 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0499 01cc | | Execute Vector,Catenate 049a e010 | | Load 0x0,0x10 049b 180e | | Execute Package,Field_Execute,Field_Number 0xe 049c e407 | | Load 0x2,0x7 049d e22d | - | Load 0x1,0x2d 049e 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 049f c407 | | Store 0x2,0x7 04a0 00c9 | | Action Pop_Auxiliary_Loop 04a1 e407 | | Load 0x2,0x7 04a2 e22d | - | Load 0x1,0x2d 04a3 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 04a4 6fb2 |o | Jump_Zero 0x457 04a5 00ce | | Action Pop_Auxiliary 04a6 e402 | | Load 0x2,0x2 04a7 0227 | ' | Execute Access,All_Reference 04a8 01db | | Execute Vector,Length 04a9 7005 |p | Jump_Nonzero 0x4af 04aa 0092 0f28 | (| Action Push_String_Extended,0xf28 ; "Define_Font requires a Family name" 04ac e010 | | Load 0x0,0x10 04ad 180e | | Execute Package,Field_Execute,Field_Number 0xe 04ae 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04af e403 | | Load 0x2,0x3 04b0 0227 | ' | Execute Access,All_Reference 04b1 01db | | Execute Vector,Length 04b2 7005 |p | Jump_Nonzero 0x4b8 04b3 0092 0f29 | )| Action Push_String_Extended,0xf29 ; "Define_Font requires a Normal font" 04b5 e010 | | Load 0x0,0x10 04b6 180e | | Execute Package,Field_Execute,Field_Number 0xe 04b7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04b8 e406 | | Load 0x2,0x6 04b9 0227 | ' | Execute Access,All_Reference 04ba e404 | | Load 0x2,0x4 04bb 0227 | ' | Execute Access,All_Reference 04bc e405 | | Load 0x2,0x5 04bd 0227 | ' | Execute Access,All_Reference 04be e403 | | Load 0x2,0x3 04bf 0227 | ' | Execute Access,All_Reference 04c0 e402 | | Load 0x2,0x2 04c1 0227 | ' | Execute Access,All_Reference 04c2 824d | M | Call 0x1,0x4d 04c3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 04c4 0000 0000 | | .BLANK 0000[0x4] 04c8 ; -------------------------------------------------------------------------------------- 04c8 ; SUBPROGRAM 04c8 ; -------------------------------------------------------------------------------------- 04c8 04d4 | | .CONST 0x04d4 ; Address of begin 04c9 04df | | .CONST 0x04df ; Address of exception handler 04ca 0004 | | .CONST 0x0004 ; Number of locals 04cb INIT_04c8: 04cb e011 | | Load 0x0,0x11 04cc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04cd 02c7 | | Declare_Variable Any 04ce 00d8 | | Load_Top At_Offset_0 04cf 1c00 | | Execute_Immediate Run_Utility,0x0 04d0 029f 0d1b | | Declare_Subprogram INIT_0d18,For_Call 04d2 029f 0d3b | ;| Declare_Subprogram INIT_0d38,For_Call 04d4 BODY_04c8: 04d4 482e |H. | Short_Literal 0x2e 04d5 e5fe | | Load 0x2,-0x2 04d6 01cb | | Execute Vector,Append 04d7 e20e | | Load 0x1,0xe 04d8 03b6 | | Declare_Variable Access,By_Allocation,With_Value 04d9 a22e | . | Store_Unchecked 0x1,0x2e 04da 8403 | | Call 0x2,0x3 04db 00cf | | Action Mark_Auxiliary 04dc 8404 | | Call 0x2,0x4 04dd 00c9 | | Action Pop_Auxiliary_Loop 04de 7ffd | | Jump 0x4dc 04df TRAP_04c8: 04df 00d8 | | Load_Top At_Offset_0 04e0 0107 | | Execute Exception,Get_Name 04e1 4950 |IP | Short_Literal 0x150 04e2 495f |I_ | Short_Literal 0x15f 04e3 0262 | b | Execute Discrete,In_Range 04e4 6805 |h | Jump_Zero 0x4ea 04e5 e402 | | Load 0x2,0x2 04e6 e011 | | Load 0x0,0x11 04e7 181b | | Execute Package,Field_Execute,Field_Number 0x1b 04e8 c402 | | Store 0x2,0x2 04e9 4503 |E | Exit_Suprogram New_Top_Offset 0x3 04ea e001 | | Load 0x0,0x1 04eb 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 04ec 010f | | Execute Exception,Equal 04ed 6802 |h | Jump_Zero 0x4f0 04ee 00d8 | | Load_Top At_Offset_0 04ef 0101 | | Execute Exception,Reraise 04f0 0092 0f2a | *| Action Push_String_Extended,0xf2a ; "Could not define fonts in " 04f2 e5ff | | Load 0x2,-0x1 04f3 01cc | | Execute Vector,Catenate 04f4 e010 | | Load 0x0,0x10 04f5 180e | | Execute Package,Field_Execute,Field_Number 0xe 04f6 e001 | | Load 0x0,0x1 04f7 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 04f8 0257 | W | Execute Discrete,Raise 04f9 0000 0000 | | .BLANK 0000[0x7] 0500 ; -------------------------------------------------------------------------------------- 0500 ; SUBPROGRAM 0500 ; -------------------------------------------------------------------------------------- 0500 0517 | | .CONST 0x0517 ; Address of begin 0501 0004 | | .CONST 0x0004 ; Address of exception handler 0502 0006 | | .CONST 0x0006 ; Number of locals 0503 INIT_0500: 0503 e218 | | Load 0x1,0x18 0504 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0505 02c7 | | Declare_Variable Any 0506 00d8 | | Load_Top At_Offset_0 0507 1c00 | | Execute_Immediate Run_Utility,0x0 0508 e216 | | Load 0x1,0x16 0509 02ff | | Declare_Variable Variant_Record 050a 00d8 | | Load_Top At_Offset_0 050b 1c00 | | Execute_Immediate Run_Utility,0x0 050c e22e | . | Load 0x1,0x2e 050d 0227 | ' | Execute Access,All_Reference 050e e5ff | | Load 0x2,-0x1 050f e21c | | Load 0x1,0x1c 0510 01d7 | | Execute Vector,Field_Read 0511 0227 | ' | Execute Access,All_Reference 0512 01cc | | Execute Vector,Catenate 0513 029f 0d4b | K| Declare_Subprogram INIT_0d48,For_Call 0515 029f 0d6b | k| Declare_Subprogram INIT_0d68,For_Call 0517 BODY_0500: 0517 8405 | | Call 0x2,0x5 0518 8406 | | Call 0x2,0x6 0519 e402 | | Load 0x2,0x2 051a e218 | | Load 0x1,0x18 051b 1814 | | Execute Package,Field_Execute,Field_Number 0x14 051c c402 | | Store 0x2,0x2 051d e403 | | Load 0x2,0x3 051e e217 | | Load 0x1,0x17 051f 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0520 e5ff | | Load 0x2,-0x1 0521 e21f | | Load 0x1,0x1f 0522 01d6 | | Execute Vector,Field_Write 0523 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0524 0000 0000 | | .BLANK 0000[0x4] 0528 ; -------------------------------------------------------------------------------------- 0528 ; SUBPROGRAM 0528 ; -------------------------------------------------------------------------------------- 0528 052b | + | .CONST 0x052b ; Address of begin 0529 0004 | | .CONST 0x0004 ; Address of exception handler 052a 0001 | | .CONST 0x0001 ; Number of locals 052b BODY_0528: 052b INIT_0528: 052b e23d | = | Load 0x1,0x3d 052c 0c01 | | Execute_Immediate Greater_Equal,0x1 052d 6801 |h | Jump_Zero 0x52f 052e 8242 | B | Call 0x1,0x42 052f 0092 0f2b | +| Action Push_String_Extended,0xf2b ; "/" 0531 e5ff | | Load 0x2,-0x1 0532 0227 | ' | Execute Access,All_Reference 0533 2507 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x7 0534 01cc | | Execute Vector,Catenate 0535 0092 0f2c | ,| Action Push_String_Extended,0xf2c ; " /" 0537 01cc | | Execute Vector,Catenate 0538 e5ff | | Load 0x2,-0x1 0539 0227 | ' | Execute Access,All_Reference 053a 2508 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x8 053b 01cc | | Execute Vector,Catenate 053c 0092 0f2d | -| Action Push_String_Extended,0xf2d ; " findfont dup setfont [.9 0 0 FINDSCALE 0 0] makefont COPYFONT dup /Encoding CAP-ENCODING put definefont pop" 053e 01cc | | Execute Vector,Catenate 053f e233 | 3 | Load 0x1,0x33 0540 e00c | | Load 0x0,0xc 0541 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0542 4801 |H | Short_Literal 0x1 0543 a215 | | Store_Unchecked 0x1,0x15 0544 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0545 0000 0000 | | .XXX[0x3] 0547 0000 | | 0548 ; -------------------------------------------------------------------------------------- 0548 ; SUBPROGRAM 0548 ; -------------------------------------------------------------------------------------- 0548 0553 | S | .CONST 0x0553 ; Address of begin 0549 0004 | | .CONST 0x0004 ; Address of exception handler 054a 0003 | | .CONST 0x0003 ; Number of locals 054b INIT_0548: 054b e5ff | | Load 0x2,-0x1 054c e21f | | Load 0x1,0x1f 054d 01d5 | | Execute Vector,Field_Reference 054e 0007 | | Action Break_Optional 054f e5ff | | Load 0x2,-0x1 0550 e221 | ! | Load 0x1,0x21 0551 01d5 | | Execute Vector,Field_Reference 0552 0007 | | Action Break_Optional 0553 BODY_0548: 0553 e402 | | Load 0x2,0x2 0554 0227 | ' | Execute Access,All_Reference 0555 2507 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x7 0556 01db | | Execute Vector,Length 0557 0a04 | | Execute_Immediate Plus,0x4 0558 e402 | | Load 0x2,0x2 0559 0227 | ' | Execute Access,All_Reference 055a 2507 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x7 055b 01db | | Execute Vector,Length 055c e006 | | Load 0x0,0x6 055d 1b11 | | Execute Package,Field_Read,Field_Number 0x11 055e 1c08 | | Execute_Immediate Run_Utility,0x8 055f e214 | | Load 0x1,0x14 0560 e402 | | Load 0x2,0x2 0561 0227 | ' | Execute Access,All_Reference 0562 2507 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x7 0563 01cc | | Execute Vector,Catenate 0564 e404 | | Load 0x2,0x4 0565 00d8 | | Load_Top At_Offset_0 0566 2507 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x7 0567 00da | | Load_Top At_Offset_2 0568 01da | | Execute Vector,Bounds 0569 00da | | Load_Top At_Offset_2 056a 01da | | Execute Vector,Bounds 056b 00da | | Load_Top At_Offset_2 056c 027f | | Execute Discrete,Equal 056d 7001 |p | Jump_Nonzero 0x56f 056e 08e0 | | Execute_Immediate Raise,0xe0 056f 00cd | | Action Spare6_Action 0570 027f | | Execute Discrete,Equal 0571 7001 |p | Jump_Nonzero 0x573 0572 08e0 | | Execute_Immediate Raise,0xe0 0573 00d2 | | Pop_Control Pop_Count_2 0574 e404 | | Load 0x2,0x4 0575 2907 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x7 0576 e402 | | Load 0x2,0x2 0577 0227 | ' | Execute Access,All_Reference 0578 2507 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x7 0579 e404 | | Load 0x2,0x4 057a 00d8 | | Load_Top At_Offset_0 057b 2508 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x8 057c 00da | | Load_Top At_Offset_2 057d 01da | | Execute Vector,Bounds 057e 00da | | Load_Top At_Offset_2 057f 01da | | Execute Vector,Bounds 0580 00da | | Load_Top At_Offset_2 0581 027f | | Execute Discrete,Equal 0582 7001 |p | Jump_Nonzero 0x584 0583 08e0 | | Execute_Immediate Raise,0xe0 0584 00cd | | Action Spare6_Action 0585 027f | | Execute Discrete,Equal 0586 7001 |p | Jump_Nonzero 0x588 0587 08e0 | | Execute_Immediate Raise,0xe0 0588 00d2 | | Pop_Control Pop_Count_2 0589 e404 | | Load 0x2,0x4 058a 2908 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x8 058b e402 | | Load 0x2,0x2 058c 0227 | ' | Execute Access,All_Reference 058d 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3 058e e404 | | Load 0x2,0x4 058f 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 0590 e402 | | Load 0x2,0x2 0591 0227 | ' | Execute Access,All_Reference 0592 2c04 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4 0593 e404 | | Load 0x2,0x4 0594 2804 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4 0595 4800 |H | Short_Literal 0x0 0596 e404 | | Load 0x2,0x4 0597 2805 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x5 0598 e402 | | Load 0x2,0x2 0599 0227 | ' | Execute Access,All_Reference 059a 2406 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x6 059b e006 | | Load 0x0,0x6 059c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 059d 2306 |# | Execute Variant_Record,Field_Type,Field_Number 0x6 059e 0119 | | Execute Any,Check_In_Formal_Type 059f e404 | | Load 0x2,0x4 05a0 2806 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x6 05a1 e217 | | Load 0x1,0x17 05a2 03b6 | | Declare_Variable Access,By_Allocation,With_Value 05a3 a403 | | Store_Unchecked 0x2,0x3 05a4 00cf | | Action Mark_Auxiliary 05a5 e403 | | Load 0x2,0x3 05a6 0227 | ' | Execute Access,All_Reference 05a7 2406 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x6 05a8 01d9 | | Execute Vector,Reverse_Bounds 05a9 0007 | | Action Break_Optional 05aa 00d8 | | Load_Top At_Offset_0 05ab e403 | | Load 0x2,0x3 05ac 0227 | ' | Execute Access,All_Reference 05ad 2406 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x6 05ae 01d7 | | Execute Vector,Field_Read 05af 4809 |H | Short_Literal 0x9 05b0 0271 | q | Execute Discrete,Times 05b1 480a |H | Short_Literal 0xa 05b2 0270 | p | Execute Discrete,Divide 05b3 e406 | | Load 0x2,0x6 05b4 e403 | | Load 0x2,0x3 05b5 0227 | ' | Execute Access,All_Reference 05b6 2406 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x6 05b7 01d6 | | Execute Vector,Field_Write 05b8 00c8 | | Action Pop_Auxiliary_Range 05b9 3ff0 |? | Loop_Increasing 0x5aa 05ba 00ce | | Action Pop_Auxiliary 05bb 4841 |HA | Short_Literal 0x41 05bc 485a |HZ | Short_Literal 0x5a 05bd e403 | | Load 0x2,0x3 05be 0227 | ' | Execute Access,All_Reference 05bf 2406 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x6 05c0 01cf | | Execute Vector,Slice_Read 05c1 4861 |Ha | Short_Literal 0x61 05c2 487a |Hz | Short_Literal 0x7a 05c3 e403 | | Load 0x2,0x3 05c4 0229 | ) | Execute Access,All_Read 05c5 2c06 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x6 05c6 01ce | | Execute Vector,Slice_Write 05c7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05c8 ; -------------------------------------------------------------------------------------- 05c8 ; SUBPROGRAM 05c8 ; -------------------------------------------------------------------------------------- 05c8 05d1 | | .CONST 0x05d1 ; Address of begin 05c9 05fb | | .CONST 0x05fb ; Address of exception handler 05ca 0003 | | .CONST 0x0003 ; Number of locals 05cb INIT_05c8: 05cb e5ff | | Load 0x2,-0x1 05cc 0902 | | Execute_Immediate Binary_Scale,0x2 05cd e225 | % | Load 0x1,0x25 05ce 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 05cf e21a | | Load 0x1,0x1a 05d0 0007 | | Action Break_Optional 05d1 BODY_05c8: 05d1 e5fe | | Load 0x2,-0x2 05d2 6803 |h | Jump_Zero 0x5d6 05d3 e402 | | Load 0x2,0x2 05d4 0a01 | | Execute_Immediate Plus,0x1 05d5 c402 | | Store 0x2,0x2 05d6 e5fd | | Load 0x2,-0x3 05d7 6803 |h | Jump_Zero 0x5db 05d8 e402 | | Load 0x2,0x2 05d9 0a02 | | Execute_Immediate Plus,0x2 05da c402 | | Store 0x2,0x2 05db e5fc | | Load 0x2,-0x4 05dc 6814 |h | Jump_Zero 0x5f1 05dd e402 | | Load 0x2,0x2 05de e22b | + | Load 0x1,0x2b 05df 01d7 | | Execute Vector,Field_Read 05e0 0227 | ' | Execute Access,All_Reference 05e1 2c05 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5 05e2 700a |p | Jump_Nonzero 0x5ed 05e3 4801 |H | Short_Literal 0x1 05e4 e402 | | Load 0x2,0x2 05e5 e22b | + | Load 0x1,0x2b 05e6 01d7 | | Execute Vector,Field_Read 05e7 0227 | ' | Execute Access,All_Reference 05e8 2805 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x5 05e9 e402 | | Load 0x2,0x2 05ea e22b | + | Load 0x1,0x2b 05eb 01d7 | | Execute Vector,Field_Read 05ec 8251 | Q | Call 0x1,0x51 05ed e402 | | Load 0x2,0x2 05ee e22b | + | Load 0x1,0x2b 05ef 01d7 | | Execute Vector,Field_Read 05f0 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 05f1 4801 |H | Short_Literal 0x1 05f2 e402 | | Load 0x2,0x2 05f3 e229 | ) | Load 0x1,0x29 05f4 01d7 | | Execute Vector,Field_Read 05f5 0227 | ' | Execute Access,All_Reference 05f6 2805 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x5 05f7 e402 | | Load 0x2,0x2 05f8 e229 | ) | Load 0x1,0x29 05f9 01d7 | | Execute Vector,Field_Read 05fa 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 05fb TRAP_05c8: 05fb 010e | | Execute Exception,Is_Constraint_Error 05fc 6836 |h6 | Jump_Zero 0x633 05fd e402 | | Load 0x2,0x2 05fe e227 | ' | Load 0x1,0x27 05ff 01d7 | | Execute Vector,Field_Read 0600 a403 | | Store_Unchecked 0x2,0x3 0601 e403 | | Load 0x2,0x3 0602 e21f | | Load 0x1,0x1f 0603 01d7 | | Execute Vector,Field_Read 0604 7002 |p | Jump_Nonzero 0x607 0605 e403 | | Load 0x2,0x3 0606 8250 | P | Call 0x1,0x50 0607 e5fc | | Load 0x2,-0x4 0608 6820 |h | Jump_Zero 0x629 0609 e403 | | Load 0x2,0x3 060a e221 | ! | Load 0x1,0x21 060b 01d7 | | Execute Vector,Field_Read 060c 7002 |p | Jump_Nonzero 0x60f 060d e403 | | Load 0x2,0x3 060e 8252 | R | Call 0x1,0x52 060f e403 | | Load 0x2,0x3 0610 e221 | ! | Load 0x1,0x21 0611 01d7 | | Execute Vector,Field_Read 0612 e402 | | Load 0x2,0x2 0613 e22b | + | Load 0x1,0x2b 0614 01d6 | | Execute Vector,Field_Write 0615 e402 | | Load 0x2,0x2 0616 e22b | + | Load 0x1,0x2b 0617 01d7 | | Execute Vector,Field_Read 0618 0227 | ' | Execute Access,All_Reference 0619 2c05 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5 061a 700a |p | Jump_Nonzero 0x625 061b 4801 |H | Short_Literal 0x1 061c e402 | | Load 0x2,0x2 061d e22b | + | Load 0x1,0x2b 061e 01d7 | | Execute Vector,Field_Read 061f 0227 | ' | Execute Access,All_Reference 0620 2805 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x5 0621 e402 | | Load 0x2,0x2 0622 e22b | + | Load 0x1,0x2b 0623 01d7 | | Execute Vector,Field_Read 0624 8251 | Q | Call 0x1,0x51 0625 e402 | | Load 0x2,0x2 0626 e22b | + | Load 0x1,0x2b 0627 01d7 | | Execute Vector,Field_Read 0628 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0629 e403 | | Load 0x2,0x3 062a e21f | | Load 0x1,0x1f 062b 01d7 | | Execute Vector,Field_Read 062c e402 | | Load 0x2,0x2 062d e229 | ) | Load 0x1,0x29 062e 01d6 | | Execute Vector,Field_Write 062f e402 | | Load 0x2,0x2 0630 e229 | ) | Load 0x1,0x29 0631 01d7 | | Execute Vector,Field_Read 0632 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0633 0100 | | Execute Exception,Raise 0634 0000 0000 | | .BLANK 0000[0x4] 0638 ; -------------------------------------------------------------------------------------- 0638 ; SUBPROGRAM 0638 ; -------------------------------------------------------------------------------------- 0638 063b | ; | .CONST 0x063b ; Address of begin 0639 0004 | | .CONST 0x0004 ; Address of exception handler 063a 0001 | | .CONST 0x0001 ; Number of locals 063b BODY_0638: 063b INIT_0638: 063b e5ff | | Load 0x2,-0x1 063c 0d01 | | Execute_Immediate Less,0x1 063d 6802 |h | Jump_Zero 0x640 063e 4801 |H | Short_Literal 0x1 063f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0640 e5ff | | Load 0x2,-0x1 0641 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0642 0000 0000 | | .BLANK 0000[0x6] 0648 ; -------------------------------------------------------------------------------------- 0648 ; SUBPROGRAM 0648 ; -------------------------------------------------------------------------------------- 0648 064b | K | .CONST 0x064b ; Address of begin 0649 0004 | | .CONST 0x0004 ; Address of exception handler 064a 0001 | | .CONST 0x0001 ; Number of locals 064b BODY_0648: 064b INIT_0648: 064b 4801 |H | Short_Literal 0x1 064c 00ca | | Action Exit_Nullary_Function 064d 0000 0000 | | .XXX[0x3] 064f 0000 | | 0650 ; -------------------------------------------------------------------------------------- 0650 ; SUBPROGRAM 0650 ; -------------------------------------------------------------------------------------- 0650 0653 | S | .CONST 0x0653 ; Address of begin 0651 0004 | | .CONST 0x0004 ; Address of exception handler 0652 0001 | | .CONST 0x0001 ; Number of locals 0653 BODY_0650: 0653 INIT_0650: 0653 4801 |H | Short_Literal 0x1 0654 00ca | | Action Exit_Nullary_Function 0655 0000 0000 | | .XXX[0x3] 0657 0000 | | 0658 ; -------------------------------------------------------------------------------------- 0658 ; SUBPROGRAM 0658 ; -------------------------------------------------------------------------------------- 0658 065b | [ | .CONST 0x065b ; Address of begin 0659 0004 | | .CONST 0x0004 ; Address of exception handler 065a 0001 | | .CONST 0x0001 ; Number of locals 065b BODY_0658: 065b INIT_0658: 065b e5ff | | Load 0x2,-0x1 065c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 065d 0000 0000 | | .XXX[0x3] 065f 0000 | | 0660 ; -------------------------------------------------------------------------------------- 0660 ; SUBPROGRAM 0660 ; -------------------------------------------------------------------------------------- 0660 0663 | c | .CONST 0x0663 ; Address of begin 0661 0004 | | .CONST 0x0004 ; Address of exception handler 0662 0001 | | .CONST 0x0001 ; Number of locals 0663 BODY_0660: 0663 INIT_0660: 0663 e5ff | | Load 0x2,-0x1 0664 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0665 0000 0000 | | .XXX[0x3] 0667 0000 | | 0668 ; -------------------------------------------------------------------------------------- 0668 ; SUBPROGRAM 0668 ; -------------------------------------------------------------------------------------- 0668 066b | k | .CONST 0x066b ; Address of begin 0669 0004 | | .CONST 0x0004 ; Address of exception handler 066a 0001 | | .CONST 0x0001 ; Number of locals 066b BODY_0668: 066b INIT_0668: 066b e5ff | | Load 0x2,-0x1 066c e20d | | Load 0x1,0xd 066d 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 066e e20d | | Load 0x1,0xd 066f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0670 e20d | | Load 0x1,0xd 0671 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0672 e20d | | Load 0x1,0xd 0673 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0674 8253 | S | Call 0x1,0x53 0675 0227 | ' | Execute Access,All_Reference 0676 2406 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x6 0677 01d7 | | Execute Vector,Field_Read 0678 e20d | | Load 0x1,0xd 0679 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 067a 0271 | q | Execute Discrete,Times 067b e001 | | Load 0x0,0x1 067c 1b10 | | Execute Package,Field_Read,Field_Number 0x10 067d 00d9 | | Load_Top At_Offset_1 067e 00d0 | | Action Swap_Control 067f 0260 | ` | Execute Discrete,In_Type 0680 7001 |p | Jump_Nonzero 0x682 0681 0801 | | Execute_Immediate Raise,0x1 0682 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0683 0000 0000 | | .BLANK 0000[0x5] 0688 ; -------------------------------------------------------------------------------------- 0688 ; SUBPROGRAM 0688 ; -------------------------------------------------------------------------------------- 0688 068b | | .CONST 0x068b ; Address of begin 0689 0004 | | .CONST 0x0004 ; Address of exception handler 068a 0001 | | .CONST 0x0001 ; Number of locals 068b BODY_0688: 068b INIT_0688: 068b e20d | | Load 0x1,0xd 068c 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 068d 4be8 |K | Short_Literal 0x3e8 068e 0271 | q | Execute Discrete,Times 068f e001 | | Load 0x0,0x1 0690 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0691 00d9 | | Load_Top At_Offset_1 0692 00d0 | | Action Swap_Control 0693 0260 | ` | Execute Discrete,In_Type 0694 7001 |p | Jump_Nonzero 0x696 0695 0801 | | Execute_Immediate Raise,0x1 0696 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0697 0000 | | .XXX[0x1] 0698 ; -------------------------------------------------------------------------------------- 0698 ; SUBPROGRAM 0698 ; -------------------------------------------------------------------------------------- 0698 06a3 | | .CONST 0x06a3 ; Address of begin 0699 076b | k | .CONST 0x076b ; Address of exception handler 069a 0002 | | .CONST 0x0002 ; Number of locals 069b INIT_0698: 069b e5ff | | Load 0x2,-0x1 069c e012 | | Load 0x0,0x12 069d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 069e 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 069f 0092 0f2e | .| Action Push_String_Extended,0xf2e ; "_PS" 06a1 01cc | | Execute Vector,Catenate 06a2 0007 | | Action Break_Optional 06a3 BODY_0698: 06a3 e233 | 3 | Load 0x1,0x33 06a4 e013 | | Load 0x0,0x13 06a5 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 06a6 e402 | | Load 0x2,0x2 06a7 e00c | | Load 0x0,0xc 06a8 180f | | Execute Package,Field_Execute,Field_Number 0xf 06a9 c233 | 3 | Store 0x1,0x33 06aa 0092 0f2f | /| Action Push_String_Extended,0xf2f ; "%!PS-Adobe-2.0" 06ac e233 | 3 | Load 0x1,0x33 06ad e00c | | Load 0x0,0xc 06ae 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06af e001 | | Load 0x0,0x1 06b0 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 06b1 681a |h | Jump_Zero 0x6cc 06b2 0092 0f30 | 0| Action Push_String_Extended,0xf30 ; "%%Title: " 06b4 e5ff | | Load 0x2,-0x1 06b5 e012 | | Load 0x0,0x12 06b6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 06b7 183c | < | Execute Package,Field_Execute,Field_Number 0x3c 06b8 01cc | | Execute Vector,Catenate 06b9 e233 | 3 | Load 0x1,0x33 06ba e00c | | Load 0x0,0xc 06bb 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06bc 0092 0f31 | 1| Action Push_String_Extended,0xf31 ; "%%Creator: COMPOSE" 06be e233 | 3 | Load 0x1,0x33 06bf e00c | | Load 0x0,0xc 06c0 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06c1 0092 0f32 | 2| Action Push_String_Extended,0xf32 ; "%%CreationDate: MM/DD/YY" 06c3 e233 | 3 | Load 0x1,0x33 06c4 e00c | | Load 0x0,0xc 06c5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06c6 0092 0f33 | 3| Action Push_String_Extended,0xf33 ; "%%For: regression test" 06c8 e233 | 3 | Load 0x1,0x33 06c9 e00c | | Load 0x0,0xc 06ca 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06cb 7826 |x& | Jump 0x6f2 06cc 0092 0f30 | 0| Action Push_String_Extended,0xf30 ; "%%Title: " 06ce e5ff | | Load 0x2,-0x1 06cf e012 | | Load 0x0,0x12 06d0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 06d1 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 06d2 01cc | | Execute Vector,Catenate 06d3 e233 | 3 | Load 0x1,0x33 06d4 e00c | | Load 0x0,0xc 06d5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06d6 0092 0f34 | 4| Action Push_String_Extended,0xf34 ; "%%Creator: COMPOSE " 06d8 e001 | | Load 0x0,0x1 06d9 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 06da 01cc | | Execute Vector,Catenate 06db e233 | 3 | Load 0x1,0x33 06dc e00c | | Load 0x0,0xc 06dd 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06de 0092 0f35 | 5| Action Push_String_Extended,0xf35 ; "%%CreationDate: " 06e0 4800 |H | Short_Literal 0x0 06e1 4800 |H | Short_Literal 0x0 06e2 4800 |H | Short_Literal 0x0 06e3 e014 | | Load 0x0,0x14 06e4 1815 | | Execute Package,Field_Execute,Field_Number 0x15 06e5 e014 | | Load 0x0,0x14 06e6 181f | | Execute Package,Field_Execute,Field_Number 0x1f 06e7 01cc | | Execute Vector,Catenate 06e8 e233 | 3 | Load 0x1,0x33 06e9 e00c | | Load 0x0,0xc 06ea 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06eb 0092 0f36 | 6| Action Push_String_Extended,0xf36 ; "%%For: " 06ed e5fe | | Load 0x2,-0x2 06ee 01cc | | Execute Vector,Catenate 06ef e233 | 3 | Load 0x1,0x33 06f0 e00c | | Load 0x0,0xc 06f1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06f2 0092 0f37 | 7| Action Push_String_Extended,0xf37 ; "%%Pages: (atend)" 06f4 e233 | 3 | Load 0x1,0x33 06f5 e00c | | Load 0x0,0xc 06f6 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06f7 0092 0f38 | 8| Action Push_String_Extended,0xf38 ; "%%DocumentFonts: (atend)" 06f9 e233 | 3 | Load 0x1,0x33 06fa e00c | | Load 0x0,0xc 06fb 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06fc 0092 0f39 | 9| Action Push_String_Extended,0xf39 ; "%%EndComments" 06fe e233 | 3 | Load 0x1,0x33 06ff e00c | | Load 0x0,0xc 0700 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0701 0092 0f3a | :| Action Push_String_Extended,0xf3a ; "/SelectFont {findfont exch dup neg 0 0 3 -1 roll 0 0 MAT astore makefont setfont} bind def" 0703 e233 | 3 | Load 0x1,0x33 0704 e00c | | Load 0x0,0xc 0705 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0706 0092 0f3b | ;| Action Push_String_Extended,0xf3b ; "/BeginPage {/State save def /INITIAL-MATRIX matrix currentmatrix def 1 -1 scale 0.5 setlinewidth} bind def" 0708 e233 | 3 | Load 0x1,0x33 0709 e00c | | Load 0x0,0xc 070a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 070b 0092 0f3c | <| Action Push_String_Extended,0xf3c ; "/PositionPage {{-90 rotate pop} {0 exch neg translate} ifelse} bind def" 070d e233 | 3 | Load 0x1,0x33 070e e00c | | Load 0x0,0xc 070f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0710 0092 0f3d | =| Action Push_String_Extended,0xf3d ; "/EndPage {State restore showpage} def" 0712 e233 | 3 | Load 0x1,0x33 0713 e00c | | Load 0x0,0xc 0714 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0715 0092 0f3e | >| Action Push_String_Extended,0xf3e ; "/WS {0 32 4 -1 roll widthshow} bind def" 0717 e233 | 3 | Load 0x1,0x33 0718 e00c | | Load 0x0,0xc 0719 1813 | | Execute Package,Field_Execute,Field_Number 0x13 071a 0092 0f3f | ?| Action Push_String_Extended,0xf3f ; "/MX {0 rmoveto} bind def" 071c e233 | 3 | Load 0x1,0x33 071d e00c | | Load 0x0,0xc 071e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 071f 0092 0f40 | @| Action Push_String_Extended,0xf40 ; "/LTAB {gsave exch (.) stringwidth pop sub exch {dup 2 div dup 0 rmoveto (.) show 0 rmoveto} repeat pop grestore} bind def" 0721 e233 | 3 | Load 0x1,0x33 0722 e00c | | Load 0x0,0xc 0723 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0724 0092 0f41 | A| Action Push_String_Extended,0xf41 ; "/MAT matrix def" 0726 e233 | 3 | Load 0x1,0x33 0727 e00c | | Load 0x0,0xc 0728 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0729 0092 0f42 | B| Action Push_String_Extended,0xf42 ; "/FINDSCALE {gsave newpath 0 0 moveto (X) false charpath" 072b e233 | 3 | Load 0x1,0x33 072c e00c | | Load 0x0,0xc 072d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 072e 0092 0f43 | C| Action Push_String_Extended,0xf43 ; "flattenpath pathbbox /CAPHEIGHT exch def pop pop pop newpath 0 0 moveto" 0730 e233 | 3 | Load 0x1,0x33 0731 e00c | | Load 0x0,0xc 0732 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0733 0092 0f44 | D| Action Push_String_Extended,0xf44 ; "(x) false charpath flattenpath pathbbox /XHEIGHT exch def pop pop pop" 0735 e233 | 3 | Load 0x1,0x33 0736 e00c | | Load 0x0,0xc 0737 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0738 0092 0f45 | E| Action Push_String_Extended,0xf45 ; "grestore XHEIGHT CAPHEIGHT XHEIGHT sub 3 div add CAPHEIGHT div } bind def" 073a e233 | 3 | Load 0x1,0x33 073b e00c | | Load 0x0,0xc 073c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 073d 0092 0f46 | F| Action Push_String_Extended,0xf46 ; "/CAP-ENCODING [ StandardEncoding aload pop ] def" 073f e233 | 3 | Load 0x1,0x33 0740 e00c | | Load 0x0,0xc 0741 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0742 0092 0f47 | G| Action Push_String_Extended,0xf47 ; "8#141 1 8#172 {CAP-ENCODING exch dup 1 string dup 0 4 -1 roll 8#40 sub put cvn put} for" 0744 e233 | 3 | Load 0x1,0x33 0745 e00c | | Load 0x0,0xc 0746 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0747 0092 0f48 | H| Action Push_String_Extended,0xf48 ; "/COPYFONT {dup length dict /TMPDICT exch def {1 index /FID ne {TMPDICT 3 1 roll put} {pop pop} ifelse } forall TMPDICT }bind def" 0749 e233 | 3 | Load 0x1,0x33 074a e00c | | Load 0x0,0xc 074b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 074c 0092 0f49 | I| Action Push_String_Extended,0xf49 ; "/SYM {save exch /newfont currentfont maxlength dict def currentfont" 074e e233 | 3 | Load 0x1,0x33 074f e00c | | Load 0x0,0xc 0750 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0751 0092 0f4a | J| Action Push_String_Extended,0xf4a ; "{exch dup /FID ne {dup /Encoding eq {exch dup length array copy newfont 3 1 roll put}" 0753 e233 | 3 | Load 0x1,0x33 0754 e00c | | Load 0x0,0xc 0755 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0756 0092 0f4b | K| Action Push_String_Extended,0xf4b ; "{exch newfont 3 1 roll put} ifelse } {pop pop} ifelse} forall" 0758 e233 | 3 | Load 0x1,0x33 0759 e00c | | Load 0x0,0xc 075a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 075b 0092 0f4c | L| Action Push_String_Extended,0xf4c ; "newfont /Encoding get 8#377 3 -1 roll put /NEWFONT newfont definefont setfont" 075d e233 | 3 | Load 0x1,0x33 075e e00c | | Load 0x0,0xc 075f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0760 0092 0f4d | M| Action Push_String_Extended,0xf4d ; "(\x5c377) show restore} bind def" 0762 e233 | 3 | Load 0x1,0x33 0763 e00c | | Load 0x0,0xc 0764 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0765 0092 0f4e | N| Action Push_String_Extended,0xf4e ; "%%EndProlog" 0767 e233 | 3 | Load 0x1,0x33 0768 e00c | | Load 0x0,0xc 0769 1813 | | Execute Package,Field_Execute,Field_Number 0x13 076a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 076b TRAP_0698: 076b 0007 | | Action Break_Optional 076c 4829 |H) | Short_Literal 0x29 076d 0092 0f4f | O| Action Push_String_Extended,0xf4f ; "Cannot create output " 076f e402 | | Load 0x2,0x2 0770 01cc | | Execute Vector,Catenate 0771 0092 0f50 | P| Action Push_String_Extended,0xf50 ; " (" 0773 01cc | | Execute Vector,Catenate 0774 4800 |H | Short_Literal 0x0 0775 4801 |H | Short_Literal 0x1 0776 e015 | | Load 0x0,0x15 0777 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0778 01cc | | Execute Vector,Catenate 0779 01cb | | Execute Vector,Append 077a e010 | | Load 0x0,0x10 077b 180e | | Execute Package,Field_Execute,Field_Number 0xe 077c e001 | | Load 0x0,0x1 077d 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 077e 0257 | W | Execute Discrete,Raise 077f 0000 | | .XXX[0x1] 0780 ; -------------------------------------------------------------------------------------- 0780 ; SUBPROGRAM 0780 ; -------------------------------------------------------------------------------------- 0780 0783 | | .CONST 0x0783 ; Address of begin 0781 0004 | | .CONST 0x0004 ; Address of exception handler 0782 0001 | | .CONST 0x0001 ; Number of locals 0783 BODY_0780: 0783 INIT_0780: 0783 0092 0f51 | Q| Action Push_String_Extended,0xf51 ; "%%Trailer" 0785 e233 | 3 | Load 0x1,0x33 0786 e00c | | Load 0x0,0xc 0787 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0788 0092 0f52 | R| Action Push_String_Extended,0xf52 ; "%%Pages:" 078a e234 | 4 | Load 0x1,0x34 078b 00e0 | | Load_Encached Standard_Cache 078c 1818 | | Execute Package,Field_Execute,Field_Number 0x18 078d 01cc | | Execute Vector,Catenate 078e 0092 0f53 | S| Action Push_String_Extended,0xf53 ; " 1" 0790 01cc | | Execute Vector,Catenate 0791 e233 | 3 | Load 0x1,0x33 0792 e00c | | Load 0x0,0xc 0793 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0794 0092 0f54 | T| Action Push_String_Extended,0xf54 ; "%%DocumentFonts:" 0796 e233 | 3 | Load 0x1,0x33 0797 e00c | | Load 0x0,0xc 0798 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0799 00cf | | Action Mark_Auxiliary 079a e21d | | Load 0x1,0x1d 079b 4801 |H | Short_Literal 0x1 079c 0263 | c | Execute Discrete,Above_Bound 079d 7010 |p | Jump_Nonzero 0x7ae 079e 00d8 | | Load_Top At_Offset_0 079f e21f | | Load 0x1,0x1f 07a0 01d7 | | Execute Vector,Field_Read 07a1 680a |h | Jump_Zero 0x7ac 07a2 4820 |H | Short_Literal 0x20 07a3 e404 | | Load 0x2,0x4 07a4 e21f | | Load 0x1,0x1f 07a5 01d7 | | Execute Vector,Field_Read 07a6 0227 | ' | Execute Access,All_Reference 07a7 2507 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x7 07a8 01ca | | Execute Vector,Prepend 07a9 e233 | 3 | Load 0x1,0x33 07aa e00c | | Load 0x0,0xc 07ab 1812 | | Execute Package,Field_Execute,Field_Number 0x12 07ac 00c8 | | Action Pop_Auxiliary_Range 07ad 3ff0 |? | Loop_Increasing 0x79e 07ae 00ce | | Action Pop_Auxiliary 07af 00ea | | Load_Encached Null_String_Cache 07b0 e233 | 3 | Load 0x1,0x33 07b1 e00c | | Load 0x0,0xc 07b2 1813 | | Execute Package,Field_Execute,Field_Number 0x13 07b3 e233 | 3 | Load 0x1,0x33 07b4 e00c | | Load 0x0,0xc 07b5 1810 | | Execute Package,Field_Execute,Field_Number 0x10 07b6 c233 | 3 | Store 0x1,0x33 07b7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 07b8 ; -------------------------------------------------------------------------------------- 07b8 ; SUBPROGRAM 07b8 ; -------------------------------------------------------------------------------------- 07b8 07bb | | .CONST 0x07bb ; Address of begin 07b9 0004 | | .CONST 0x0004 ; Address of exception handler 07ba 0001 | | .CONST 0x0001 ; Number of locals 07bb BODY_07b8: 07bb INIT_07b8: 07bb 0092 0f55 | U| Action Push_String_Extended,0xf55 ; "_PS_AUX" 07bd 00ca | | Action Exit_Nullary_Function 07be 0000 0000 | | .XXX[0x2] 07c0 ; -------------------------------------------------------------------------------------- 07c0 ; SUBPROGRAM 07c0 ; -------------------------------------------------------------------------------------- 07c0 07c3 | | .CONST 0x07c3 ; Address of begin 07c1 0004 | | .CONST 0x0004 ; Address of exception handler 07c2 0001 | | .CONST 0x0001 ; Number of locals 07c3 BODY_07c0: 07c3 INIT_07c0: 07c3 0092 0f56 | V| Action Push_String_Extended,0xf56 ; "EndPage" 07c5 e233 | 3 | Load 0x1,0x33 07c6 e00c | | Load 0x0,0xc 07c7 1813 | | Execute Package,Field_Execute,Field_Number 0x13 07c8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 07c9 0000 0000 | | .BLANK 0000[0x7] 07d0 ; -------------------------------------------------------------------------------------- 07d0 ; SUBPROGRAM 07d0 ; -------------------------------------------------------------------------------------- 07d0 07d7 | | .CONST 0x07d7 ; Address of begin 07d1 0004 | | .CONST 0x0004 ; Address of exception handler 07d2 0002 | | .CONST 0x0002 ; Number of locals 07d3 INIT_07d0: 07d3 e5ff | | Load 0x2,-0x1 07d4 8244 | D | Call 0x1,0x44 07d5 00e3 | | Load_Encached Natural_Cache 07d6 03f1 | | Declare_Variable Discrete,With_Value 07d7 BODY_07d0: 07d7 e234 | 4 | Load 0x1,0x34 07d8 0a01 | | Execute_Immediate Plus,0x1 07d9 c234 | 4 | Store 0x1,0x34 07da 0092 0f57 | W| Action Push_String_Extended,0xf57 ; "%%Page: " 07dc e5fd | | Load 0x2,-0x3 07dd 01cc | | Execute Vector,Catenate 07de e234 | 4 | Load 0x1,0x34 07df 00e0 | | Load_Encached Standard_Cache 07e0 1818 | | Execute Package,Field_Execute,Field_Number 0x18 07e1 01cc | | Execute Vector,Catenate 07e2 e233 | 3 | Load 0x1,0x33 07e3 e00c | | Load 0x0,0xc 07e4 1813 | | Execute Package,Field_Execute,Field_Number 0x13 07e5 0092 0f58 | X| Action Push_String_Extended,0xf58 ; "BeginPage" 07e7 e233 | 3 | Load 0x1,0x33 07e8 e00c | | Load 0x0,0xc 07e9 1813 | | Execute Package,Field_Execute,Field_Number 0x13 07ea 00d8 | | Load_Top At_Offset_0 07eb 680a |h | Jump_Zero 0x7f6 07ec 00d8 | | Load_Top At_Offset_0 07ed e211 | | Load 0x1,0x11 07ee 01d5 | | Execute Vector,Field_Reference 07ef 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 07f0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 07f1 8240 | @ | Call 0x1,0x40 07f2 e233 | 3 | Load 0x1,0x33 07f3 e00c | | Load 0x0,0xc 07f4 1812 | | Execute Package,Field_Execute,Field_Number 0x12 07f5 7816 |x | Jump 0x80c 07f6 0092 0f59 | Y| Action Push_String_Extended,0xf59 ; "Page started with unknown form selected. " 07f8 4801 |H | Short_Literal 0x1 07f9 e211 | | Load 0x1,0x11 07fa 01d5 | | Execute Vector,Field_Reference 07fb 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 07fc 0227 | ' | Execute Access,All_Reference 07fd 01cc | | Execute Vector,Catenate 07fe 0092 0f1d | | Action Push_String_Extended,0xf1d ; " assumed" 0800 01cc | | Execute Vector,Catenate 0801 e010 | | Load 0x0,0x10 0802 180f | | Execute Package,Field_Execute,Field_Number 0xf 0803 4801 |H | Short_Literal 0x1 0804 e211 | | Load 0x1,0x11 0805 01d5 | | Execute Vector,Field_Reference 0806 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0807 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0808 8240 | @ | Call 0x1,0x40 0809 e233 | 3 | Load 0x1,0x33 080a e00c | | Load 0x0,0xc 080b 1812 | | Execute Package,Field_Execute,Field_Number 0x12 080c e5fe | | Load 0x2,-0x2 080d 6806 |h | Jump_Zero 0x814 080e 0092 0f5a | Z| Action Push_String_Extended,0xf5a ; " true" 0810 e233 | 3 | Load 0x1,0x33 0811 e00c | | Load 0x0,0xc 0812 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0813 7805 |x | Jump 0x819 0814 0092 0f5b | [| Action Push_String_Extended,0xf5b ; " false" 0816 e233 | 3 | Load 0x1,0x33 0817 e00c | | Load 0x0,0xc 0818 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0819 0092 0f5c | \| Action Push_String_Extended,0xf5c ; " PositionPage" 081b e233 | 3 | Load 0x1,0x33 081c e00c | | Load 0x0,0xc 081d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 081e e217 | | Load 0x1,0x17 081f a235 | 5 | Store_Unchecked 0x1,0x35 0820 e215 | | Load 0x1,0x15 0821 6814 |h | Jump_Zero 0x836 0822 00cf | | Action Mark_Auxiliary 0823 e21d | | Load 0x1,0x1d 0824 4801 |H | Short_Literal 0x1 0825 0263 | c | Execute Discrete,Above_Bound 0826 700c |p | Jump_Nonzero 0x833 0827 00d8 | | Load_Top At_Offset_0 0828 e221 | ! | Load 0x1,0x21 0829 01d7 | | Execute Vector,Field_Read 082a 6806 |h | Jump_Zero 0x831 082b 4800 |H | Short_Literal 0x0 082c e405 | | Load 0x2,0x5 082d e221 | ! | Load 0x1,0x21 082e 01d7 | | Execute Vector,Field_Read 082f 0227 | ' | Execute Access,All_Reference 0830 2805 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x5 0831 00c8 | | Action Pop_Auxiliary_Range 0832 3ff4 |? | Loop_Increasing 0x827 0833 00ce | | Action Pop_Auxiliary 0834 4800 |H | Short_Literal 0x0 0835 a215 | | Store_Unchecked 0x1,0x15 0836 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0837 0000 | | .XXX[0x1] 0838 ; -------------------------------------------------------------------------------------- 0838 ; SUBPROGRAM 0838 ; -------------------------------------------------------------------------------------- 0838 084f | O | .CONST 0x084f ; Address of begin 0839 0004 | | .CONST 0x0004 ; Address of exception handler 083a 0007 | | .CONST 0x0007 ; Number of locals 083b INIT_0838: 083b e232 | 2 | Load 0x1,0x32 083c 0227 | ' | Execute Access,All_Reference 083d 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 083e 0007 | | Action Break_Optional 083f e232 | 2 | Load 0x1,0x32 0840 0227 | ' | Execute Access,All_Reference 0841 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0842 0007 | | Action Break_Optional 0843 e232 | 2 | Load 0x1,0x32 0844 0227 | ' | Execute Access,All_Reference 0845 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 0846 0007 | | Action Break_Optional 0847 e232 | 2 | Load 0x1,0x32 0848 0227 | ' | Execute Access,All_Reference 0849 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 084a 0007 | | Action Break_Optional 084b 029f 0d8b | | Declare_Subprogram INIT_0d88,For_Call 084d 029f 0dab | | Declare_Subprogram INIT_0da8,For_Call 084f BODY_0838: 084f 0092 0f5d | ]| Action Push_String_Extended,0xf5d ; "/PICSAVE save def newpath" 0851 e233 | 3 | Load 0x1,0x33 0852 e00c | | Load 0x0,0xc 0853 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0854 e232 | 2 | Load 0x1,0x32 0855 0227 | ' | Execute Access,All_Reference 0856 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 0857 682c |h, | Jump_Zero 0x884 0858 4820 |H | Short_Literal 0x20 0859 e237 | 7 | Load 0x1,0x37 085a 8240 | @ | Call 0x1,0x40 085b 01cb | | Execute Vector,Append 085c e238 | 8 | Load 0x1,0x38 085d 8240 | @ | Call 0x1,0x40 085e 01cc | | Execute Vector,Catenate 085f 0092 0f5e | ^| Action Push_String_Extended,0xf5e ; " moveto" 0861 01cc | | Execute Vector,Catenate 0862 e233 | 3 | Load 0x1,0x33 0863 e00c | | Load 0x0,0xc 0864 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0865 0092 0f5f | _| Action Push_String_Extended,0xf5f ; "0 " 0867 e403 | | Load 0x2,0x3 0868 0275 | u | Execute Discrete,Unary_Minus 0869 8240 | @ | Call 0x1,0x40 086a 01cc | | Execute Vector,Catenate 086b 0092 0f60 | `| Action Push_String_Extended,0xf60 ; " rlineto " 086d 01cc | | Execute Vector,Catenate 086e e402 | | Load 0x2,0x2 086f 8240 | @ | Call 0x1,0x40 0870 01cc | | Execute Vector,Catenate 0871 0092 0f61 | a| Action Push_String_Extended,0xf61 ; " 0 rlineto 0 " 0873 01cc | | Execute Vector,Catenate 0874 e403 | | Load 0x2,0x3 0875 8240 | @ | Call 0x1,0x40 0876 01cc | | Execute Vector,Catenate 0877 0092 0f60 | `| Action Push_String_Extended,0xf60 ; " rlineto " 0879 01cc | | Execute Vector,Catenate 087a e402 | | Load 0x2,0x2 087b 0275 | u | Execute Discrete,Unary_Minus 087c 8240 | @ | Call 0x1,0x40 087d 01cc | | Execute Vector,Catenate 087e 0092 0f62 | b| Action Push_String_Extended,0xf62 ; " 0 rlineto closepath clip" 0880 01cc | | Execute Vector,Catenate 0881 e233 | 3 | Load 0x1,0x33 0882 e00c | | Load 0x0,0xc 0883 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0884 4820 |H | Short_Literal 0x20 0885 e237 | 7 | Load 0x1,0x37 0886 e404 | | Load 0x2,0x4 0887 0273 | s | Execute Discrete,Plus 0888 e001 | | Load 0x0,0x1 0889 1b10 | | Execute Package,Field_Read,Field_Number 0x10 088a 00d9 | | Load_Top At_Offset_1 088b 00d0 | | Action Swap_Control 088c 0260 | ` | Execute Discrete,In_Type 088d 7001 |p | Jump_Nonzero 0x88f 088e 0801 | | Execute_Immediate Raise,0x1 088f 8240 | @ | Call 0x1,0x40 0890 01cb | | Execute Vector,Append 0891 e238 | 8 | Load 0x1,0x38 0892 e405 | | Load 0x2,0x5 0893 0272 | r | Execute Discrete,Minus 0894 e001 | | Load 0x0,0x1 0895 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0896 00d9 | | Load_Top At_Offset_1 0897 00d0 | | Action Swap_Control 0898 0260 | ` | Execute Discrete,In_Type 0899 7001 |p | Jump_Nonzero 0x89b 089a 0801 | | Execute_Immediate Raise,0x1 089b 8240 | @ | Call 0x1,0x40 089c 01cc | | Execute Vector,Catenate 089d 0092 0f5e | ^| Action Push_String_Extended,0xf5e ; " moveto" 089f 01cc | | Execute Vector,Catenate 08a0 e233 | 3 | Load 0x1,0x33 08a1 e00c | | Load 0x0,0xc 08a2 1813 | | Execute Package,Field_Execute,Field_Number 0x13 08a3 0092 0f63 | c| Action Push_String_Extended,0xf63 ; "INITIAL-MATRIX setmatrix" 08a5 e233 | 3 | Load 0x1,0x33 08a6 e00c | | Load 0x0,0xc 08a7 1813 | | Execute Package,Field_Execute,Field_Number 0x13 08a8 0092 0f64 | d| Action Push_String_Extended,0xf64 ; "currentpoint translate" 08aa e233 | 3 | Load 0x1,0x33 08ab e00c | | Load 0x0,0xc 08ac 1813 | | Execute Package,Field_Execute,Field_Number 0x13 08ad e232 | 2 | Load 0x1,0x32 08ae 0227 | ' | Execute Access,All_Reference 08af 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 08b0 683d |h= | Jump_Zero 0x8ee 08b1 4820 |H | Short_Literal 0x20 08b2 4820 |H | Short_Literal 0x20 08b3 4820 |H | Short_Literal 0x20 08b4 4820 |H | Short_Literal 0x20 08b5 e402 | | Load 0x2,0x2 08b6 09ff | | Execute_Immediate Binary_Scale,-0x1 08b7 8240 | @ | Call 0x1,0x40 08b8 01cb | | Execute Vector,Append 08b9 4be8 |K | Short_Literal 0x3e8 08ba 8240 | @ | Call 0x1,0x40 08bb 01cc | | Execute Vector,Catenate 08bc 0092 0f65 | e| Action Push_String_Extended,0xf65 ; " div " 08be 01cc | | Execute Vector,Catenate 08bf e403 | | Load 0x2,0x3 08c0 09ff | | Execute_Immediate Binary_Scale,-0x1 08c1 8240 | @ | Call 0x1,0x40 08c2 01cc | | Execute Vector,Catenate 08c3 01cb | | Execute Vector,Append 08c4 4be8 |K | Short_Literal 0x3e8 08c5 8240 | @ | Call 0x1,0x40 08c6 01cc | | Execute Vector,Catenate 08c7 0092 0f66 | f| Action Push_String_Extended,0xf66 ; " div translate " 08c9 01cc | | Execute Vector,Catenate 08ca e232 | 2 | Load 0x1,0x32 08cb 0227 | ' | Execute Access,All_Reference 08cc 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 08cd 00e0 | | Load_Encached Standard_Cache 08ce 1818 | | Execute Package,Field_Execute,Field_Number 0x18 08cf 01cc | | Execute Vector,Catenate 08d0 0092 0f67 | g| Action Push_String_Extended,0xf67 ; " rotate " 08d2 01cc | | Execute Vector,Catenate 08d3 e402 | | Load 0x2,0x2 08d4 09ff | | Execute_Immediate Binary_Scale,-0x1 08d5 0275 | u | Execute Discrete,Unary_Minus 08d6 8240 | @ | Call 0x1,0x40 08d7 01cc | | Execute Vector,Catenate 08d8 01cb | | Execute Vector,Append 08d9 4be8 |K | Short_Literal 0x3e8 08da 8240 | @ | Call 0x1,0x40 08db 01cc | | Execute Vector,Catenate 08dc 0092 0f65 | e| Action Push_String_Extended,0xf65 ; " div " 08de 01cc | | Execute Vector,Catenate 08df e403 | | Load 0x2,0x3 08e0 09ff | | Execute_Immediate Binary_Scale,-0x1 08e1 0275 | u | Execute Discrete,Unary_Minus 08e2 8240 | @ | Call 0x1,0x40 08e3 01cc | | Execute Vector,Catenate 08e4 01cb | | Execute Vector,Append 08e5 4be8 |K | Short_Literal 0x3e8 08e6 8240 | @ | Call 0x1,0x40 08e7 01cc | | Execute Vector,Catenate 08e8 0092 0f68 | h| Action Push_String_Extended,0xf68 ; " div translate" 08ea 01cc | | Execute Vector,Catenate 08eb e233 | 3 | Load 0x1,0x33 08ec e00c | | Load 0x0,0xc 08ed 1813 | | Execute Package,Field_Execute,Field_Number 0x13 08ee e232 | 2 | Load 0x1,0x32 08ef 0227 | ' | Execute Access,All_Reference 08f0 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 08f1 0e64 | d | Execute_Immediate Not_Equal,0x64 08f2 7005 |p | Jump_Nonzero 0x8f8 08f3 e232 | 2 | Load 0x1,0x32 08f4 0227 | ' | Execute Access,All_Reference 08f5 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 08f6 0e64 | d | Execute_Immediate Not_Equal,0x64 08f7 6811 |h | Jump_Zero 0x909 08f8 4820 |H | Short_Literal 0x20 08f9 e232 | 2 | Load 0x1,0x32 08fa 0227 | ' | Execute Access,All_Reference 08fb 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 08fc 8406 | | Call 0x2,0x6 08fd 01cb | | Execute Vector,Append 08fe e232 | 2 | Load 0x1,0x32 08ff 0227 | ' | Execute Access,All_Reference 0900 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0901 8406 | | Call 0x2,0x6 0902 01cc | | Execute Vector,Catenate 0903 0092 0f69 | i| Action Push_String_Extended,0xf69 ; " scale" 0905 01cc | | Execute Vector,Catenate 0906 e233 | 3 | Load 0x1,0x33 0907 e00c | | Load 0x0,0xc 0908 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0909 0092 0f6a | j| Action Push_String_Extended,0xf6a ; "newpath 0 0 moveto /Helvetica findfont 10 scalefont setfont" 090b e233 | 3 | Load 0x1,0x33 090c e00c | | Load 0x0,0xc 090d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 090e 0092 0f6b | k| Action Push_String_Extended,0xf6b ; "/showpage { } def" 0910 e233 | 3 | Load 0x1,0x33 0911 e00c | | Load 0x0,0xc 0912 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0913 e232 | 2 | Load 0x1,0x32 0914 0227 | ' | Execute Access,All_Reference 0915 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0916 680f |h | Jump_Zero 0x926 0917 0092 0f6c | l| Action Push_String_Extended,0xf6c ; "%%BeginDocument: (literal)" 0919 e233 | 3 | Load 0x1,0x33 091a e00c | | Load 0x0,0xc 091b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 091c e232 | 2 | Load 0x1,0x32 091d 0227 | ' | Execute Access,All_Reference 091e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 091f e001 | | Load 0x0,0x1 0920 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0921 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0922 e233 | 3 | Load 0x1,0x33 0923 e00c | | Load 0x0,0xc 0924 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0925 7801 |x | Jump 0x927 0926 8407 | | Call 0x2,0x7 0927 0092 0f6d | m| Action Push_String_Extended,0xf6d ; "%%EndDocument" 0929 e233 | 3 | Load 0x1,0x33 092a e00c | | Load 0x0,0xc 092b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 092c 4820 |H | Short_Literal 0x20 092d 0092 0f6e | n| Action Push_String_Extended,0xf6e ; "PICSAVE restore " 092f e237 | 7 | Load 0x1,0x37 0930 8240 | @ | Call 0x1,0x40 0931 01cc | | Execute Vector,Catenate 0932 01cb | | Execute Vector,Append 0933 e238 | 8 | Load 0x1,0x38 0934 8240 | @ | Call 0x1,0x40 0935 01cc | | Execute Vector,Catenate 0936 0092 0f5e | ^| Action Push_String_Extended,0xf5e ; " moveto" 0938 01cc | | Execute Vector,Catenate 0939 e233 | 3 | Load 0x1,0x33 093a e00c | | Load 0x0,0xc 093b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 093c e217 | | Load 0x1,0x17 093d a235 | 5 | Store_Unchecked 0x1,0x35 093e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 093f 0000 | | .XXX[0x1] 0940 ; -------------------------------------------------------------------------------------- 0940 ; SUBPROGRAM 0940 ; -------------------------------------------------------------------------------------- 0940 0943 | C | .CONST 0x0943 ; Address of begin 0941 0004 | | .CONST 0x0004 ; Address of exception handler 0942 0001 | | .CONST 0x0001 ; Number of locals 0943 BODY_0940: 0943 INIT_0940: 0943 4820 |H | Short_Literal 0x20 0944 0092 0f6f | o| Action Push_String_Extended,0xf6f ; "newpath " 0946 e237 | 7 | Load 0x1,0x37 0947 8240 | @ | Call 0x1,0x40 0948 01cc | | Execute Vector,Catenate 0949 01cb | | Execute Vector,Append 094a e238 | 8 | Load 0x1,0x38 094b 8240 | @ | Call 0x1,0x40 094c 01cc | | Execute Vector,Catenate 094d 0092 0f5e | ^| Action Push_String_Extended,0xf5e ; " moveto" 094f 01cc | | Execute Vector,Catenate 0950 e233 | 3 | Load 0x1,0x33 0951 e00c | | Load 0x0,0xc 0952 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0953 4820 |H | Short_Literal 0x20 0954 e5ff | | Load 0x2,-0x1 0955 8240 | @ | Call 0x1,0x40 0956 01cb | | Execute Vector,Append 0957 e5fe | | Load 0x2,-0x2 0958 8240 | @ | Call 0x1,0x40 0959 01cc | | Execute Vector,Catenate 095a 0092 0f70 | p| Action Push_String_Extended,0xf70 ; " rlineto stroke" 095c 01cc | | Execute Vector,Catenate 095d e233 | 3 | Load 0x1,0x33 095e e00c | | Load 0x0,0xc 095f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0960 e237 | 7 | Load 0x1,0x37 0961 e5ff | | Load 0x2,-0x1 0962 0273 | s | Execute Discrete,Plus 0963 c237 | 7 | Store 0x1,0x37 0964 e238 | 8 | Load 0x1,0x38 0965 e5fe | | Load 0x2,-0x2 0966 0273 | s | Execute Discrete,Plus 0967 c238 | 8 | Store 0x1,0x38 0968 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0969 0000 0000 | | .BLANK 0000[0x7] 0970 ; -------------------------------------------------------------------------------------- 0970 ; SUBPROGRAM 0970 ; -------------------------------------------------------------------------------------- 0970 0973 | s | .CONST 0x0973 ; Address of begin 0971 0004 | | .CONST 0x0004 ; Address of exception handler 0972 0001 | | .CONST 0x0001 ; Number of locals 0973 BODY_0970: 0973 INIT_0970: 0973 4820 |H | Short_Literal 0x20 0974 0092 0f6f | o| Action Push_String_Extended,0xf6f ; "newpath " 0976 e237 | 7 | Load 0x1,0x37 0977 8240 | @ | Call 0x1,0x40 0978 01cc | | Execute Vector,Catenate 0979 01cb | | Execute Vector,Append 097a e238 | 8 | Load 0x1,0x38 097b 8240 | @ | Call 0x1,0x40 097c 01cc | | Execute Vector,Catenate 097d 0092 0f5e | ^| Action Push_String_Extended,0xf5e ; " moveto" 097f 01cc | | Execute Vector,Catenate 0980 e233 | 3 | Load 0x1,0x33 0981 e00c | | Load 0x0,0xc 0982 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0983 e5ff | | Load 0x2,-0x1 0984 8240 | @ | Call 0x1,0x40 0985 0092 0f71 | q| Action Push_String_Extended,0xf71 ; " 0 rlineto" 0987 01cc | | Execute Vector,Catenate 0988 e233 | 3 | Load 0x1,0x33 0989 e00c | | Load 0x0,0xc 098a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 098b 0092 0f5f | _| Action Push_String_Extended,0xf5f ; "0 " 098d e5fe | | Load 0x2,-0x2 098e 8240 | @ | Call 0x1,0x40 098f 01cc | | Execute Vector,Catenate 0990 0092 0f72 | r| Action Push_String_Extended,0xf72 ; " rlineto" 0992 01cc | | Execute Vector,Catenate 0993 e233 | 3 | Load 0x1,0x33 0994 e00c | | Load 0x0,0xc 0995 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0996 e5ff | | Load 0x2,-0x1 0997 0275 | u | Execute Discrete,Unary_Minus 0998 8240 | @ | Call 0x1,0x40 0999 0092 0f73 | s| Action Push_String_Extended,0xf73 ; " 0 rlineto closepath stroke" 099b 01cc | | Execute Vector,Catenate 099c e233 | 3 | Load 0x1,0x33 099d e00c | | Load 0x0,0xc 099e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 099f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 09a0 ; -------------------------------------------------------------------------------------- 09a0 ; SUBPROGRAM 09a0 ; -------------------------------------------------------------------------------------- 09a0 09b7 | | .CONST 0x09b7 ; Address of begin 09a1 0004 | | .CONST 0x0004 ; Address of exception handler 09a2 000a | | .CONST 0x000a ; Number of locals 09a3 INIT_09a0: 09a3 e001 | | Load 0x0,0x1 09a4 1b16 | | Execute Package,Field_Read,Field_Number 0x16 09a5 0322 | " | Declare_Variable Record 09a6 e001 | | Load 0x0,0x1 09a7 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a 09a8 e001 | | Load 0x0,0x1 09a9 1b10 | | Execute Package,Field_Read,Field_Number 0x10 09aa e217 | | Load 0x1,0x17 09ab 0007 | | Action Break_Optional 09ac e001 | | Load 0x0,0x1 09ad 1b10 | | Execute Package,Field_Read,Field_Number 0x10 09ae 00e1 | | Load_Encached Boolean_Cache 09af 4fff |O | Short_Literal -0x1 09b0 e001 | | Load 0x0,0x1 09b1 1b10 | | Execute Package,Field_Read,Field_Number 0x10 09b2 03f1 | | Declare_Variable Discrete,With_Value 09b3 029f 0e0b | | Declare_Subprogram INIT_0e08,For_Call 09b5 029f 0e63 | c| Declare_Subprogram INIT_0e60,For_Call 09b7 BODY_09a0: 09b7 e5ff | | Load 0x2,-0x1 09b8 0227 | ' | Execute Access,All_Reference 09b9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 09ba 0f02 | | Execute_Immediate Equal,0x2 09bb 6801 |h | Jump_Zero 0x9bd 09bc 4502 |E | Exit_Suprogram New_Top_Offset 0x2 09bd 4800 |H | Short_Literal 0x0 09be a23d | = | Store_Unchecked 0x1,0x3d 09bf 4800 |H | Short_Literal 0x0 09c0 a407 | | Store_Unchecked 0x2,0x7 09c1 4800 |H | Short_Literal 0x0 09c2 a23e | > | Store_Unchecked 0x1,0x3e 09c3 e20d | | Load 0x1,0xd 09c4 3c1b |< | Execute Record,Field_Read,Field_Number 0x1b 09c5 a237 | 7 | Store_Unchecked 0x1,0x37 09c6 e5ff | | Load 0x2,-0x1 09c7 0227 | ' | Execute Access,All_Reference 09c8 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 09c9 a238 | 8 | Store_Unchecked 0x1,0x38 09ca e5ff | | Load 0x2,-0x1 09cb 0227 | ' | Execute Access,All_Reference 09cc 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 09cd 687f |h | Jump_Zero 0xa4d 09ce 00cf | | Action Mark_Auxiliary 09cf e5ff | | Load 0x2,-0x1 09d0 0227 | ' | Execute Access,All_Reference 09d1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 09d2 4801 |H | Short_Literal 0x1 09d3 0263 | c | Execute Discrete,Above_Bound 09d4 7077 |pw | Jump_Nonzero 0xa4c 09d5 00d8 | | Load_Top At_Offset_0 09d6 e5ff | | Load 0x2,-0x1 09d7 0227 | ' | Execute Access,All_Reference 09d8 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 09d9 01d5 | | Execute Vector,Field_Reference 09da 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 09db 00d8 | | Load_Top At_Offset_0 09dc 494e |IN | Short_Literal 0x14e 09dd 027c | | | Execute Discrete,Less 09de 7025 |p% | Jump_Nonzero 0xa04 09df 4eb2 |N | Short_Literal -0x14e 09e0 0273 | s | Execute Discrete,Plus 09e1 4606 |F | Jump_Case 0x7 09e2 785d |x] | Jump 0xa40 ; case 0x0 09e3 7822 |x" | Jump 0xa06 ; case 0x1 09e4 7829 |x) | Jump 0xa0e ; case 0x2 09e5 7832 |x2 | Jump 0xa18 ; case 0x3 09e6 783b |x; | Jump 0xa22 ; case 0x4 09e7 7849 |xI | Jump 0xa31 ; case 0x5 09e8 7800 |x | Jump 0x9e9 ; case 0x6 09e9 e232 | 2 | Load 0x1,0x32 09ea 685f |h_ | Jump_Zero 0xa4a 09eb e237 | 7 | Load 0x1,0x37 09ec 4801 |H | Short_Literal 0x1 09ed e5ff | | Load 0x2,-0x1 09ee 0227 | ' | Execute Access,All_Reference 09ef 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 09f0 01d5 | | Execute Vector,Field_Reference 09f1 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 09f2 0273 | s | Execute Discrete,Plus 09f3 c237 | 7 | Store 0x1,0x37 09f4 8260 | ` | Call 0x1,0x60 09f5 e232 | 2 | Load 0x1,0x32 09f6 0229 | ) | Execute Access,All_Read 09f7 00d8 | | Load_Top At_Offset_0 09f8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 09f9 e001 | | Load 0x0,0x1 09fa 1b0d | | Execute Package,Field_Read,Field_Number 0xd 09fb 1812 | | Execute Package,Field_Execute,Field_Number 0x12 09fc e40e | | Load 0x2,0xe 09fd 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 09fe 00d1 | | Pop_Control Pop_Count_1 09ff e232 | 2 | Load 0x1,0x32 0a00 0227 | ' | Execute Access,All_Reference 0a01 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 0a02 a232 | 2 | Store_Unchecked 0x1,0x32 0a03 7846 |xF | Jump 0xa4a 0a04 00d1 | | Pop_Control Pop_Count_1 0a05 7844 |xD | Jump 0xa4a 0a06 00d8 | | Load_Top At_Offset_0 0a07 e5ff | | Load 0x2,-0x1 0a08 0227 | ' | Execute Access,All_Reference 0a09 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0a0a 01d5 | | Execute Vector,Field_Reference 0a0b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0a0c a238 | 8 | Store_Unchecked 0x1,0x38 0a0d 783c |x< | Jump 0xa4a 0a0e e237 | 7 | Load 0x1,0x37 0a0f e40d | | Load 0x2,0xd 0a10 e5ff | | Load 0x2,-0x1 0a11 0227 | ' | Execute Access,All_Reference 0a12 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0a13 01d5 | | Execute Vector,Field_Reference 0a14 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0a15 0273 | s | Execute Discrete,Plus 0a16 c237 | 7 | Store 0x1,0x37 0a17 7832 |x2 | Jump 0xa4a 0a18 e238 | 8 | Load 0x1,0x38 0a19 e40d | | Load 0x2,0xd 0a1a e5ff | | Load 0x2,-0x1 0a1b 0227 | ' | Execute Access,All_Reference 0a1c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0a1d 01d5 | | Execute Vector,Field_Reference 0a1e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0a1f 0273 | s | Execute Discrete,Plus 0a20 c238 | 8 | Store 0x1,0x38 0a21 7828 |x( | Jump 0xa4a 0a22 00d8 | | Load_Top At_Offset_0 0a23 0a01 | | Execute_Immediate Plus,0x1 0a24 e5ff | | Load 0x2,-0x1 0a25 0227 | ' | Execute Access,All_Reference 0a26 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0a27 01d5 | | Execute Vector,Field_Reference 0a28 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0a29 e40d | | Load 0x2,0xd 0a2a e5ff | | Load 0x2,-0x1 0a2b 0227 | ' | Execute Access,All_Reference 0a2c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0a2d 01d5 | | Execute Vector,Field_Reference 0a2e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0a2f 8261 | a | Call 0x1,0x61 0a30 7819 |x | Jump 0xa4a 0a31 00d8 | | Load_Top At_Offset_0 0a32 0a01 | | Execute_Immediate Plus,0x1 0a33 e5ff | | Load 0x2,-0x1 0a34 0227 | ' | Execute Access,All_Reference 0a35 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0a36 01d5 | | Execute Vector,Field_Reference 0a37 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0a38 e40d | | Load 0x2,0xd 0a39 e5ff | | Load 0x2,-0x1 0a3a 0227 | ' | Execute Access,All_Reference 0a3b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0a3c 01d5 | | Execute Vector,Field_Reference 0a3d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0a3e 8262 | b | Call 0x1,0x62 0a3f 780a |x | Jump 0xa4a 0a40 00d8 | | Load_Top At_Offset_0 0a41 e5ff | | Load 0x2,-0x1 0a42 0227 | ' | Execute Access,All_Reference 0a43 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0a44 01d5 | | Execute Vector,Field_Reference 0a45 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0a46 e20d | | Load 0x1,0xd 0a47 3c1b |< | Execute Record,Field_Read,Field_Number 0x1b 0a48 0273 | s | Execute Discrete,Plus 0a49 c237 | 7 | Store 0x1,0x37 0a4a 00c8 | | Action Pop_Auxiliary_Range 0a4b 3f89 |? | Loop_Increasing 0x9d5 0a4c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0a4d e237 | 7 | Load 0x1,0x37 0a4e 4801 |H | Short_Literal 0x1 0a4f e5ff | | Load 0x2,-0x1 0a50 0227 | ' | Execute Access,All_Reference 0a51 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0a52 01d5 | | Execute Vector,Field_Reference 0a53 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0a54 0273 | s | Execute Discrete,Plus 0a55 c237 | 7 | Store 0x1,0x37 0a56 4820 |H | Short_Literal 0x20 0a57 e237 | 7 | Load 0x1,0x37 0a58 8240 | @ | Call 0x1,0x40 0a59 01cb | | Execute Vector,Append 0a5a e5ff | | Load 0x2,-0x1 0a5b 0227 | ' | Execute Access,All_Reference 0a5c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0a5d 8240 | @ | Call 0x1,0x40 0a5e 01cc | | Execute Vector,Catenate 0a5f 0092 0f5e | ^| Action Push_String_Extended,0xf5e ; " moveto" 0a61 01cc | | Execute Vector,Catenate 0a62 e233 | 3 | Load 0x1,0x33 0a63 e00c | | Load 0x0,0xc 0a64 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0a65 00cf | | Action Mark_Auxiliary 0a66 e5ff | | Load 0x2,-0x1 0a67 0227 | ' | Execute Access,All_Reference 0a68 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0a69 0aff | | Execute_Immediate Plus,-0x1 0a6a 4802 |H | Short_Literal 0x2 0a6b 0263 | c | Execute Discrete,Above_Bound 0a6c 71df |q | Jump_Nonzero 0xc4c 0a6d 00d8 | | Load_Top At_Offset_0 0a6e e5ff | | Load 0x2,-0x1 0a6f 0227 | ' | Execute Access,All_Reference 0a70 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0a71 01d5 | | Execute Vector,Field_Reference 0a72 e402 | | Load 0x2,0x2 0a73 017d | } | Execute Record,Structure_Write 0a74 e402 | | Load 0x2,0x2 0a75 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0a76 a403 | | Store_Unchecked 0x2,0x3 0a77 e402 | | Load 0x2,0x2 0a78 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0a79 a406 | | Store_Unchecked 0x2,0x6 0a7a e402 | | Load 0x2,0x2 0a7b 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0a7c e402 | | Load 0x2,0x2 0a7d 3c06 |< | Execute Record,Field_Read,Field_Number 0x6 0a7e e402 | | Load 0x2,0x2 0a7f 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0a80 e402 | | Load 0x2,0x2 0a81 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0a82 8253 | S | Call 0x1,0x53 0a83 a405 | | Store_Unchecked 0x2,0x5 0a84 e403 | | Load 0x2,0x3 0a85 4945 |IE | Short_Literal 0x145 0a86 4949 |II | Short_Literal 0x149 0a87 0262 | b | Execute Discrete,In_Range 0a88 7026 |p& | Jump_Nonzero 0xaaf 0a89 e405 | | Load 0x2,0x5 0a8a e235 | 5 | Load 0x1,0x35 0a8b 022e | . | Execute Access,Not_Equal 0a8c e236 | 6 | Load 0x1,0x36 0a8d e402 | | Load 0x2,0x2 0a8e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0a8f 027e | ~ | Execute Discrete,Not_Equal 0a90 0278 | x | Execute Discrete,Or 0a91 681d |h | Jump_Zero 0xaaf 0a92 e23d | = | Load 0x1,0x3d 0a93 0c01 | | Execute_Immediate Greater_Equal,0x1 0a94 6801 |h | Jump_Zero 0xa96 0a95 8242 | B | Call 0x1,0x42 0a96 4820 |H | Short_Literal 0x20 0a97 4800 |H | Short_Literal 0x0 0a98 480a |H | Short_Literal 0xa 0a99 e402 | | Load 0x2,0x2 0a9a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0a9b e00f | | Load 0x0,0xf 0a9c 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0a9d 0092 0f2c | ,| Action Push_String_Extended,0xf2c ; " /" 0a9f 01cc | | Execute Vector,Catenate 0aa0 e405 | | Load 0x2,0x5 0aa1 0227 | ' | Execute Access,All_Reference 0aa2 2507 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x7 0aa3 01cc | | Execute Vector,Catenate 0aa4 0092 0f74 | t| Action Push_String_Extended,0xf74 ; " SelectFont" 0aa6 01cc | | Execute Vector,Catenate 0aa7 e233 | 3 | Load 0x1,0x33 0aa8 e00c | | Load 0x0,0xc 0aa9 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0aaa e405 | | Load 0x2,0x5 0aab a235 | 5 | Store_Unchecked 0x1,0x35 0aac e402 | | Load 0x2,0x2 0aad 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0aae a236 | 6 | Store_Unchecked 0x1,0x36 0aaf e402 | | Load 0x2,0x2 0ab0 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0ab1 6806 |h | Jump_Zero 0xab8 0ab2 e408 | | Load 0x2,0x8 0ab3 0d00 | | Execute_Immediate Less,0x0 0ab4 6854 |hT | Jump_Zero 0xb09 0ab5 e237 | 7 | Load 0x1,0x37 0ab6 a408 | | Store_Unchecked 0x2,0x8 0ab7 7851 |xQ | Jump 0xb09 0ab8 e408 | | Load 0x2,0x8 0ab9 0c00 | | Execute_Immediate Greater_Equal,0x0 0aba 684e |hN | Jump_Zero 0xb09 0abb e23d | = | Load 0x1,0x3d 0abc 0c01 | | Execute_Immediate Greater_Equal,0x1 0abd 6801 |h | Jump_Zero 0xabf 0abe 8242 | B | Call 0x1,0x42 0abf 4820 |H | Short_Literal 0x20 0ac0 0092 0f75 | u| Action Push_String_Extended,0xf75 ; "gsave " 0ac2 e408 | | Load 0x2,0x8 0ac3 e237 | 7 | Load 0x1,0x37 0ac4 0272 | r | Execute Discrete,Minus 0ac5 e001 | | Load 0x0,0x1 0ac6 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0ac7 00d9 | | Load_Top At_Offset_1 0ac8 00d0 | | Action Swap_Control 0ac9 0260 | ` | Execute Discrete,In_Type 0aca 7001 |p | Jump_Nonzero 0xacc 0acb 0801 | | Execute_Immediate Raise,0x1 0acc 8240 | @ | Call 0x1,0x40 0acd 01cc | | Execute Vector,Catenate 0ace 01cb | | Execute Vector,Append 0acf e405 | | Load 0x2,0x5 0ad0 0227 | ' | Execute Access,All_Reference 0ad1 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3 0ad2 e236 | 6 | Load 0x1,0x36 0ad3 0271 | q | Execute Discrete,Times 0ad4 e001 | | Load 0x0,0x1 0ad5 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0ad6 00d9 | | Load_Top At_Offset_1 0ad7 00d0 | | Action Swap_Control 0ad8 0260 | ` | Execute Discrete,In_Type 0ad9 7001 |p | Jump_Nonzero 0xadb 0ada 0801 | | Execute_Immediate Raise,0x1 0adb 8240 | @ | Call 0x1,0x40 0adc 01cc | | Execute Vector,Catenate 0add 0092 0f76 | v| Action Push_String_Extended,0xf76 ; " rmoveto" 0adf 01cc | | Execute Vector,Catenate 0ae0 e233 | 3 | Load 0x1,0x33 0ae1 e00c | | Load 0x0,0xc 0ae2 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0ae3 e405 | | Load 0x2,0x5 0ae4 0227 | ' | Execute Access,All_Reference 0ae5 2c04 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4 0ae6 e236 | 6 | Load 0x1,0x36 0ae7 0271 | q | Execute Discrete,Times 0ae8 e001 | | Load 0x0,0x1 0ae9 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0aea 00d9 | | Load_Top At_Offset_1 0aeb 00d0 | | Action Swap_Control 0aec 0260 | ` | Execute Discrete,In_Type 0aed 7001 |p | Jump_Nonzero 0xaef 0aee 0801 | | Execute_Immediate Raise,0x1 0aef 8240 | @ | Call 0x1,0x40 0af0 0092 0f77 | w| Action Push_String_Extended,0xf77 ; " setlinewidth" 0af2 01cc | | Execute Vector,Catenate 0af3 e233 | 3 | Load 0x1,0x33 0af4 e00c | | Load 0x0,0xc 0af5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0af6 e237 | 7 | Load 0x1,0x37 0af7 e408 | | Load 0x2,0x8 0af8 0272 | r | Execute Discrete,Minus 0af9 e001 | | Load 0x0,0x1 0afa 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0afb 00d9 | | Load_Top At_Offset_1 0afc 00d0 | | Action Swap_Control 0afd 0260 | ` | Execute Discrete,In_Type 0afe 7001 |p | Jump_Nonzero 0xb00 0aff 0801 | | Execute_Immediate Raise,0x1 0b00 8240 | @ | Call 0x1,0x40 0b01 0092 0f78 | x| Action Push_String_Extended,0xf78 ; " 0 rlineto stroke grestore" 0b03 01cc | | Execute Vector,Catenate 0b04 e233 | 3 | Load 0x1,0x33 0b05 e00c | | Load 0x0,0xc 0b06 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0b07 4fff |O | Short_Literal -0x1 0b08 a408 | | Store_Unchecked 0x2,0x8 0b09 e403 | | Load 0x2,0x3 0b0a 00d8 | | Load_Top At_Offset_0 0b0b 4938 |I8 | Short_Literal 0x138 0b0c 027c | | | Execute Discrete,Less 0b0d 7090 |p | Jump_Nonzero 0xb9e 0b0e 4ec8 |N | Short_Literal -0x138 0b0f 0273 | s | Execute Discrete,Plus 0b10 461c |F | Jump_Case 0x1d 0b11 7929 |y) | Jump 0xc3b ; case 0x0 0b12 7928 |y( | Jump 0xc3b ; case 0x1 0b13 7927 |y' | Jump 0xc3b ; case 0x2 0b14 7926 |y& | Jump 0xc3b ; case 0x3 0b15 7925 |y% | Jump 0xc3b ; case 0x4 0b16 7817 |x | Jump 0xb2e ; case 0x5 0b17 7816 |x | Jump 0xb2e ; case 0x6 0b18 7815 |x | Jump 0xb2e ; case 0x7 0b19 7814 |x | Jump 0xb2e ; case 0x8 0b1a 7813 |x | Jump 0xb2e ; case 0x9 0b1b 78a4 |x | Jump 0xbc0 ; case 0xa 0b1c 78b0 |x | Jump 0xbcd ; case 0xb 0b1d 7810 |x | Jump 0xb2e ; case 0xc 0b1e 7889 |x | Jump 0xba8 ; case 0xd 0b1f 7888 |x | Jump 0xba8 ; case 0xe 0b20 7887 |x | Jump 0xba8 ; case 0xf 0b21 7886 |x | Jump 0xba8 ; case 0x10 0b22 7885 |x | Jump 0xba8 ; case 0x11 0b23 7884 |x | Jump 0xba8 ; case 0x12 0b24 7809 |x | Jump 0xb2e ; case 0x13 0b25 7808 |x | Jump 0xb2e ; case 0x14 0b26 78ef |x | Jump 0xc16 ; case 0x15 0b27 7806 |x | Jump 0xb2e ; case 0x16 0b28 7805 |x | Jump 0xb2e ; case 0x17 0b29 7804 |x | Jump 0xb2e ; case 0x18 0b2a 7803 |x | Jump 0xb2e ; case 0x19 0b2b 7802 |x | Jump 0xb2e ; case 0x1a 0b2c 7801 |x | Jump 0xb2e ; case 0x1b 0b2d 7800 |x | Jump 0xb2e ; case 0x1c 0b2e e407 | | Load 0x2,0x7 0b2f 680a |h | Jump_Zero 0xb3a 0b30 4800 |H | Short_Literal 0x0 0b31 a407 | | Store_Unchecked 0x2,0x7 0b32 e404 | | Load 0x2,0x4 0b33 8240 | @ | Call 0x1,0x40 0b34 0092 0f79 | y| Action Push_String_Extended,0xf79 ; " MX" 0b36 01cc | | Execute Vector,Catenate 0b37 e233 | 3 | Load 0x1,0x33 0b38 e00c | | Load 0x0,0xc 0b39 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0b3a e23d | = | Load 0x1,0x3d 0b3b 7005 |p | Jump_Nonzero 0xb41 0b3c 0092 0f7a | z| Action Push_String_Extended,0xf7a ; "(" 0b3e e233 | 3 | Load 0x1,0x33 0b3f e00c | | Load 0x0,0xc 0b40 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0b41 e23d | = | Load 0x1,0x3d 0b42 0a01 | | Execute_Immediate Plus,0x1 0b43 c23d | = | Store 0x1,0x3d 0b44 e403 | | Load 0x2,0x3 0b45 00d8 | | Load_Top At_Offset_0 0b46 0d2a | * | Execute_Immediate Less,0x2a 0b47 7018 |p | Jump_Nonzero 0xb60 0b48 00d8 | | Load_Top At_Offset_0 0b49 0c5c | \ | Execute_Immediate Greater_Equal,0x5c 0b4a 700b |p | Jump_Nonzero 0xb56 0b4b 00d1 | | Pop_Control Pop_Count_1 0b4c e403 | | Load 0x2,0x3 0b4d 00d8 | | Load_Top At_Offset_0 0b4e 00e8 | | Load_Encached Character_Cache 0b4f 0260 | ` | Execute Discrete,In_Type 0b50 7001 |p | Jump_Nonzero 0xb52 0b51 0801 | | Execute_Immediate Raise,0x1 0b52 e233 | 3 | Load 0x1,0x33 0b53 e00c | | Load 0x0,0xc 0b54 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0b55 78ef |x | Jump 0xc45 0b56 00d8 | | Load_Top At_Offset_0 0b57 485d |H] | Short_Literal 0x5d 0b58 487f |H | Short_Literal 0x7f 0b59 0262 | b | Execute Discrete,In_Range 0b5a 77f0 |w | Jump_Nonzero 0xb4b 0b5b 4900 |I | Short_Literal 0x100 0b5c 4954 |IT | Short_Literal 0x154 0b5d 0262 | b | Execute Discrete,In_Range 0b5e 702f |p/ | Jump_Nonzero 0xb8e 0b5f 7828 |x( | Jump 0xb88 0b60 0b20 | | Execute_Immediate Case_Compare,0x20 0b61 700a |p | Jump_Nonzero 0xb6c 0b62 00d8 | | Load_Top At_Offset_0 0b63 4821 |H! | Short_Literal 0x21 0b64 4827 |H' | Short_Literal 0x27 0b65 0262 | b | Execute Discrete,In_Range 0b66 77e4 |w | Jump_Nonzero 0xb4b 0b67 4828 |H( | Short_Literal 0x28 0b68 4829 |H) | Short_Literal 0x29 0b69 0262 | b | Execute Discrete,In_Range 0b6a 701d |p | Jump_Nonzero 0xb88 0b6b 7822 |x" | Jump 0xb8e 0b6c 00d1 | | Pop_Control Pop_Count_1 0b6d e23e | > | Load 0x1,0x3e 0b6e e406 | | Load 0x2,0x6 0b6f 027f | | Execute Discrete,Equal 0b70 6805 |h | Jump_Zero 0xb76 0b71 4820 |H | Short_Literal 0x20 0b72 e233 | 3 | Load 0x1,0x33 0b73 e00c | | Load 0x0,0xc 0b74 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0b75 78cf |x | Jump 0xc45 0b76 e23e | > | Load 0x1,0x3e 0b77 7007 |p | Jump_Nonzero 0xb7f 0b78 e406 | | Load 0x2,0x6 0b79 a23e | > | Store_Unchecked 0x1,0x3e 0b7a 4820 |H | Short_Literal 0x20 0b7b e233 | 3 | Load 0x1,0x33 0b7c e00c | | Load 0x0,0xc 0b7d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0b7e 78c6 |x | Jump 0xc45 0b7f e23d | = | Load 0x1,0x3d 0b80 0c01 | | Execute_Immediate Greater_Equal,0x1 0b81 6801 |h | Jump_Zero 0xb83 0b82 8242 | B | Call 0x1,0x42 0b83 4801 |H | Short_Literal 0x1 0b84 a407 | | Store_Unchecked 0x2,0x7 0b85 e406 | | Load 0x2,0x6 0b86 a404 | | Store_Unchecked 0x2,0x4 0b87 78bd |x | Jump 0xc45 0b88 e403 | | Load 0x2,0x3 0b89 8241 | A | Call 0x1,0x41 0b8a e233 | 3 | Load 0x1,0x33 0b8b e00c | | Load 0x0,0xc 0b8c 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0b8d 78b7 |x | Jump 0xc45 0b8e 482c |H, | Short_Literal 0x2c 0b8f 0092 0f7b | {| Action Push_String_Extended,0xf7b ; "Non-printing character," 0b91 e403 | | Load 0x2,0x3 0b92 00d8 | | Load_Top At_Offset_0 0b93 00e2 | | Load_Encached Integer_Cache 0b94 0260 | ` | Execute Discrete,In_Type 0b95 7001 |p | Jump_Nonzero 0xb97 0b96 0801 | | Execute_Immediate Raise,0x1 0b97 00e0 | | Load_Encached Standard_Cache 0b98 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0b99 01cc | | Execute Vector,Catenate 0b9a 01cb | | Execute Vector,Append 0b9b e010 | | Load 0x0,0x10 0b9c 180f | | Execute Package,Field_Execute,Field_Number 0xf 0b9d 78a7 |x | Jump 0xc45 0b9e 00d8 | | Load_Top At_Offset_0 0b9f 4900 |I | Short_Literal 0x100 0ba0 491b |I | Short_Literal 0x11b 0ba1 0262 | b | Execute Discrete,In_Range 0ba2 7083 |p | Jump_Nonzero 0xc26 0ba3 491c |I | Short_Literal 0x11c 0ba4 4937 |I7 | Short_Literal 0x137 0ba5 0262 | b | Execute Discrete,In_Range 0ba6 708a |p | Jump_Nonzero 0xc31 0ba7 7f86 | | Jump 0xb2e 0ba8 e23d | = | Load 0x1,0x3d 0ba9 0c01 | | Execute_Immediate Greater_Equal,0x1 0baa 6801 |h | Jump_Zero 0xbac 0bab 8242 | B | Call 0x1,0x42 0bac e402 | | Load 0x2,0x2 0bad 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0bae 0d00 | | Execute_Immediate Less,0x0 0baf 680c |h | Jump_Zero 0xbbc 0bb0 e407 | | Load 0x2,0x7 0bb1 6805 |h | Jump_Zero 0xbb7 0bb2 e404 | | Load 0x2,0x4 0bb3 e406 | | Load 0x2,0x6 0bb4 0273 | s | Execute Discrete,Plus 0bb5 c404 | | Store 0x2,0x4 0bb6 788e |x | Jump 0xc45 0bb7 4801 |H | Short_Literal 0x1 0bb8 a407 | | Store_Unchecked 0x2,0x7 0bb9 e406 | | Load 0x2,0x6 0bba a404 | | Store_Unchecked 0x2,0x4 0bbb 7889 |x | Jump 0xc45 0bbc e402 | | Load 0x2,0x2 0bbd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0bbe 840a | | Call 0x2,0xa 0bbf 7885 |x | Jump 0xc45 0bc0 e406 | | Load 0x2,0x6 0bc1 0d00 | | Execute_Immediate Less,0x0 0bc2 6805 |h | Jump_Zero 0xbc8 0bc3 e238 | 8 | Load 0x1,0x38 0bc4 e406 | | Load 0x2,0x6 0bc5 0273 | s | Execute Discrete,Plus 0bc6 c239 | 9 | Store 0x1,0x39 0bc7 787d |x} | Jump 0xc45 0bc8 e238 | 8 | Load 0x1,0x38 0bc9 e406 | | Load 0x2,0x6 0bca 0272 | r | Execute Discrete,Minus 0bcb c23a | : | Store 0x1,0x3a 0bcc 7878 |xx | Jump 0xc45 0bcd e23d | = | Load 0x1,0x3d 0bce 0c01 | | Execute_Immediate Greater_Equal,0x1 0bcf 6801 |h | Jump_Zero 0xbd1 0bd0 8242 | B | Call 0x1,0x42 0bd1 e239 | 9 | Load 0x1,0x39 0bd2 0c00 | | Execute_Immediate Greater_Equal,0x0 0bd3 681f |h | Jump_Zero 0xbf3 0bd4 4820 |H | Short_Literal 0x20 0bd5 0092 0f75 | u| Action Push_String_Extended,0xf75 ; "gsave " 0bd7 e23b | ; | Load 0x1,0x3b 0bd8 8240 | @ | Call 0x1,0x40 0bd9 01cc | | Execute Vector,Catenate 0bda 01cb | | Execute Vector,Append 0bdb e239 | 9 | Load 0x1,0x39 0bdc 8240 | @ | Call 0x1,0x40 0bdd 01cc | | Execute Vector,Catenate 0bde 0092 0f5e | ^| Action Push_String_Extended,0xf5e ; " moveto" 0be0 01cc | | Execute Vector,Catenate 0be1 e233 | 3 | Load 0x1,0x33 0be2 e00c | | Load 0x0,0xc 0be3 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0be4 4820 |H | Short_Literal 0x20 0be5 e23b | ; | Load 0x1,0x3b 0be6 8240 | @ | Call 0x1,0x40 0be7 01cb | | Execute Vector,Append 0be8 e238 | 8 | Load 0x1,0x38 0be9 8240 | @ | Call 0x1,0x40 0bea 01cc | | Execute Vector,Catenate 0beb 0092 0f7c | || Action Push_String_Extended,0xf7c ; " lineto stroke grestore" 0bed 01cc | | Execute Vector,Catenate 0bee e233 | 3 | Load 0x1,0x33 0bef e00c | | Load 0x0,0xc 0bf0 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0bf1 4fff |O | Short_Literal -0x1 0bf2 a239 | 9 | Store_Unchecked 0x1,0x39 0bf3 e23a | : | Load 0x1,0x3a 0bf4 0c00 | | Execute_Immediate Greater_Equal,0x0 0bf5 684f |hO | Jump_Zero 0xc45 0bf6 4820 |H | Short_Literal 0x20 0bf7 0092 0f75 | u| Action Push_String_Extended,0xf75 ; "gsave " 0bf9 e23c | < | Load 0x1,0x3c 0bfa 8240 | @ | Call 0x1,0x40 0bfb 01cc | | Execute Vector,Catenate 0bfc 01cb | | Execute Vector,Append 0bfd e23a | : | Load 0x1,0x3a 0bfe 8240 | @ | Call 0x1,0x40 0bff 01cc | | Execute Vector,Catenate 0c00 0092 0f5e | ^| Action Push_String_Extended,0xf5e ; " moveto" 0c02 01cc | | Execute Vector,Catenate 0c03 e233 | 3 | Load 0x1,0x33 0c04 e00c | | Load 0x0,0xc 0c05 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0c06 4820 |H | Short_Literal 0x20 0c07 e23c | < | Load 0x1,0x3c 0c08 8240 | @ | Call 0x1,0x40 0c09 01cb | | Execute Vector,Append 0c0a e238 | 8 | Load 0x1,0x38 0c0b 8240 | @ | Call 0x1,0x40 0c0c 01cc | | Execute Vector,Catenate 0c0d 0092 0f7c | || Action Push_String_Extended,0xf7c ; " lineto stroke grestore" 0c0f 01cc | | Execute Vector,Catenate 0c10 e233 | 3 | Load 0x1,0x33 0c11 e00c | | Load 0x0,0xc 0c12 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0c13 4fff |O | Short_Literal -0x1 0c14 a23a | : | Store_Unchecked 0x1,0x3a 0c15 782f |x/ | Jump 0xc45 0c16 e23d | = | Load 0x1,0x3d 0c17 0c01 | | Execute_Immediate Greater_Equal,0x1 0c18 6801 |h | Jump_Zero 0xc1a 0c19 8242 | B | Call 0x1,0x42 0c1a 0092 0f5f | _| Action Push_String_Extended,0xf5f ; "0 " 0c1c e406 | | Load 0x2,0x6 0c1d 8240 | @ | Call 0x1,0x40 0c1e 01cc | | Execute Vector,Catenate 0c1f 0092 0f76 | v| Action Push_String_Extended,0xf76 ; " rmoveto" 0c21 01cc | | Execute Vector,Catenate 0c22 e233 | 3 | Load 0x1,0x33 0c23 e00c | | Load 0x0,0xc 0c24 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0c25 781f |x | Jump 0xc45 0c26 00d1 | | Pop_Control Pop_Count_1 0c27 e406 | | Load 0x2,0x6 0c28 4801 |H | Short_Literal 0x1 0c29 4804 |H | Short_Literal 0x4 0c2a e403 | | Load 0x2,0x3 0c2b e001 | | Load 0x0,0x1 0c2c 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a 0c2d 011c | | Execute Any,Convert_Unchecked 0c2e 1c01 | | Execute_Immediate Run_Utility,0x1 0c2f 8409 | | Call 0x2,0x9 0c30 7814 |x | Jump 0xc45 0c31 e406 | | Load 0x2,0x6 0c32 4800 |H | Short_Literal 0x0 0c33 4806 |H | Short_Literal 0x6 0c34 e403 | | Load 0x2,0x3 0c35 e001 | | Load 0x0,0x1 0c36 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a 0c37 011c | | Execute Any,Convert_Unchecked 0c38 1c01 | | Execute_Immediate Run_Utility,0x1 0c39 8409 | | Call 0x2,0x9 0c3a 780a |x | Jump 0xc45 0c3b e406 | | Load 0x2,0x6 0c3c 4800 |H | Short_Literal 0x0 0c3d 4800 |H | Short_Literal 0x0 0c3e e403 | | Load 0x2,0x3 0c3f e001 | | Load 0x0,0x1 0c40 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a 0c41 011c | | Execute Any,Convert_Unchecked 0c42 1c01 | | Execute_Immediate Run_Utility,0x1 0c43 8409 | | Call 0x2,0x9 0c44 7800 |x | Jump 0xc45 0c45 e237 | 7 | Load 0x1,0x37 0c46 e406 | | Load 0x2,0x6 0c47 0273 | s | Execute Discrete,Plus 0c48 c237 | 7 | Store 0x1,0x37 0c49 00c8 | | Action Pop_Auxiliary_Range 0c4a 00a4 0a6d | m| Action Loop_Increasing_Extended,0xa6d 0c4c 00ce | | Action Pop_Auxiliary 0c4d e23d | = | Load 0x1,0x3d 0c4e 0c01 | | Execute_Immediate Greater_Equal,0x1 0c4f 6801 |h | Jump_Zero 0xc51 0c50 8242 | B | Call 0x1,0x42 0c51 e408 | | Load 0x2,0x8 0c52 0c00 | | Execute_Immediate Greater_Equal,0x0 0c53 6848 |hH | Jump_Zero 0xc9c 0c54 4820 |H | Short_Literal 0x20 0c55 0092 0f75 | u| Action Push_String_Extended,0xf75 ; "gsave " 0c57 e408 | | Load 0x2,0x8 0c58 e237 | 7 | Load 0x1,0x37 0c59 0272 | r | Execute Discrete,Minus 0c5a e001 | | Load 0x0,0x1 0c5b 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0c5c 00d9 | | Load_Top At_Offset_1 0c5d 00d0 | | Action Swap_Control 0c5e 0260 | ` | Execute Discrete,In_Type 0c5f 7001 |p | Jump_Nonzero 0xc61 0c60 0801 | | Execute_Immediate Raise,0x1 0c61 8240 | @ | Call 0x1,0x40 0c62 01cc | | Execute Vector,Catenate 0c63 01cb | | Execute Vector,Append 0c64 e405 | | Load 0x2,0x5 0c65 0227 | ' | Execute Access,All_Reference 0c66 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3 0c67 e236 | 6 | Load 0x1,0x36 0c68 0271 | q | Execute Discrete,Times 0c69 e001 | | Load 0x0,0x1 0c6a 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0c6b 00d9 | | Load_Top At_Offset_1 0c6c 00d0 | | Action Swap_Control 0c6d 0260 | ` | Execute Discrete,In_Type 0c6e 7001 |p | Jump_Nonzero 0xc70 0c6f 0801 | | Execute_Immediate Raise,0x1 0c70 8240 | @ | Call 0x1,0x40 0c71 01cc | | Execute Vector,Catenate 0c72 0092 0f76 | v| Action Push_String_Extended,0xf76 ; " rmoveto" 0c74 01cc | | Execute Vector,Catenate 0c75 e233 | 3 | Load 0x1,0x33 0c76 e00c | | Load 0x0,0xc 0c77 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0c78 e405 | | Load 0x2,0x5 0c79 0227 | ' | Execute Access,All_Reference 0c7a 2c04 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4 0c7b e236 | 6 | Load 0x1,0x36 0c7c 0271 | q | Execute Discrete,Times 0c7d e001 | | Load 0x0,0x1 0c7e 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0c7f 00d9 | | Load_Top At_Offset_1 0c80 00d0 | | Action Swap_Control 0c81 0260 | ` | Execute Discrete,In_Type 0c82 7001 |p | Jump_Nonzero 0xc84 0c83 0801 | | Execute_Immediate Raise,0x1 0c84 8240 | @ | Call 0x1,0x40 0c85 0092 0f77 | w| Action Push_String_Extended,0xf77 ; " setlinewidth" 0c87 01cc | | Execute Vector,Catenate 0c88 e233 | 3 | Load 0x1,0x33 0c89 e00c | | Load 0x0,0xc 0c8a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0c8b e237 | 7 | Load 0x1,0x37 0c8c e408 | | Load 0x2,0x8 0c8d 0272 | r | Execute Discrete,Minus 0c8e e001 | | Load 0x0,0x1 0c8f 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0c90 00d9 | | Load_Top At_Offset_1 0c91 00d0 | | Action Swap_Control 0c92 0260 | ` | Execute Discrete,In_Type 0c93 7001 |p | Jump_Nonzero 0xc95 0c94 0801 | | Execute_Immediate Raise,0x1 0c95 8240 | @ | Call 0x1,0x40 0c96 0092 0f78 | x| Action Push_String_Extended,0xf78 ; " 0 rlineto stroke grestore" 0c98 01cc | | Execute Vector,Catenate 0c99 e233 | 3 | Load 0x1,0x33 0c9a e00c | | Load 0x0,0xc 0c9b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0c9c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0c9d 0000 0000 | | .XXX[0x3] 0c9f 0000 | | 0ca0 ; -------------------------------------------------------------------------------------- 0ca0 ; SUBPROGRAM 0ca0 ; -------------------------------------------------------------------------------------- 0ca0 0ca5 | | .CONST 0x0ca5 ; Address of begin 0ca1 0004 | | .CONST 0x0004 ; Address of exception handler 0ca2 0002 | | .CONST 0x0002 ; Number of locals 0ca3 INIT_0ca0: 0ca3 e230 | 0 | Load 0x1,0x30 0ca4 0007 | | Action Break_Optional 0ca5 BODY_0ca0: 0ca5 e22f | / | Load 0x1,0x2f 0ca6 0322 | " | Declare_Variable Record 0ca7 e5ff | | Load 0x2,-0x1 0ca8 e001 | | Load 0x0,0x1 0ca9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0caa 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0cab e403 | | Load 0x2,0x3 0cac 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0cad e5fe | | Load 0x2,-0x2 0cae e403 | | Load 0x2,0x3 0caf 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0cb0 e5fd | | Load 0x2,-0x3 0cb1 e403 | | Load 0x2,0x3 0cb2 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0cb3 e5fc | | Load 0x2,-0x4 0cb4 e403 | | Load 0x2,0x3 0cb5 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0cb6 e5fb | | Load 0x2,-0x5 0cb7 e403 | | Load 0x2,0x3 0cb8 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0cb9 e5fa | | Load 0x2,-0x6 0cba e403 | | Load 0x2,0x3 0cbb 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0cbc e5f9 | | Load 0x2,-0x7 0cbd e403 | | Load 0x2,0x3 0cbe 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 0cbf e5f8 | | Load 0x2,-0x8 0cc0 e403 | | Load 0x2,0x3 0cc1 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 0cc2 e5f7 | | Load 0x2,-0x9 0cc3 e403 | | Load 0x2,0x3 0cc4 3808 |8 | Execute Record,Field_Write,Field_Number 0x8 0cc5 e5f6 | | Load 0x2,-0xa 0cc6 e403 | | Load 0x2,0x3 0cc7 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 0cc8 e230 | 0 | Load 0x1,0x30 0cc9 e403 | | Load 0x2,0x3 0cca 380a |8 | Execute Record,Field_Write,Field_Number 0xa 0ccb e230 | 0 | Load 0x1,0x30 0ccc 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0ccd a402 | | Store_Unchecked 0x2,0x2 0cce e231 | 1 | Load 0x1,0x31 0ccf 6804 |h | Jump_Zero 0xcd4 0cd0 00d8 | | Load_Top At_Offset_0 0cd1 e231 | 1 | Load 0x1,0x31 0cd2 0227 | ' | Execute Access,All_Reference 0cd3 380a |8 | Execute Record,Field_Write,Field_Number 0xa 0cd4 00d8 | | Load_Top At_Offset_0 0cd5 a231 | 1 | Store_Unchecked 0x1,0x31 0cd6 e232 | 2 | Load 0x1,0x32 0cd7 7002 |p | Jump_Nonzero 0xcda 0cd8 e231 | 1 | Load 0x1,0x31 0cd9 a232 | 2 | Store_Unchecked 0x1,0x32 0cda 450b |E | Exit_Suprogram New_Top_Offset 0xb 0cdb 0000 0000 | | .BLANK 0000[0x5] 0ce0 ; -------------------------------------------------------------------------------------- 0ce0 ; SUBPROGRAM 0ce0 ; -------------------------------------------------------------------------------------- 0ce0 0ce3 | | .CONST 0x0ce3 ; Address of begin 0ce1 0004 | | .CONST 0x0004 ; Address of exception handler 0ce2 0001 | | .CONST 0x0001 ; Number of locals 0ce3 BODY_0ce0: 0ce3 INIT_0ce0: 0ce3 e5ff | | Load 0x2,-0x1 0ce4 a23b | ; | Store_Unchecked 0x1,0x3b 0ce5 e5fe | | Load 0x2,-0x2 0ce6 a23c | < | Store_Unchecked 0x1,0x3c 0ce7 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0ce8 ; -------------------------------------------------------------------------------------- 0ce8 ; SUBPROGRAM 0ce8 ; -------------------------------------------------------------------------------------- 0ce8 0ceb | | .CONST 0x0ceb ; Address of begin 0ce9 0cf3 | | .CONST 0x0cf3 ; Address of exception handler 0cea 0001 | | .CONST 0x0001 ; Number of locals 0ceb BODY_0ce8: 0ceb INIT_0ce8: 0ceb e402 | | Load 0x2,0x2 0cec 00ea | | Load_Encached Null_String_Cache 0ced e5ff | | Load 0x2,-0x1 0cee 4800 |H | Short_Literal 0x0 0cef e011 | | Load 0x0,0x11 0cf0 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0cf1 c402 | | Store 0x2,0x2 0cf2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0cf3 TRAP_0ce8: 0cf3 0007 | | Action Break_Optional 0cf4 4829 |H) | Short_Literal 0x29 0cf5 0092 0f7d | }| Action Push_String_Extended,0xf7d ; "Could not open the form setup file " 0cf7 e5ff | | Load 0x2,-0x1 0cf8 01cc | | Execute Vector,Catenate 0cf9 0092 0f50 | P| Action Push_String_Extended,0xf50 ; " (" 0cfb 01cc | | Execute Vector,Catenate 0cfc 4800 |H | Short_Literal 0x0 0cfd 4801 |H | Short_Literal 0x1 0cfe e015 | | Load 0x0,0x15 0cff 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0d00 01cc | | Execute Vector,Catenate 0d01 01cb | | Execute Vector,Append 0d02 e010 | | Load 0x0,0x10 0d03 180e | | Execute Package,Field_Execute,Field_Number 0xe 0d04 e001 | | Load 0x0,0x1 0d05 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 0d06 0257 | W | Execute Discrete,Raise 0d07 0000 | | .XXX[0x1] 0d08 ; -------------------------------------------------------------------------------------- 0d08 ; SUBPROGRAM 0d08 ; -------------------------------------------------------------------------------------- 0d08 0d0e | | .CONST 0x0d0e ; Address of begin 0d09 0004 | | .CONST 0x0004 ; Address of exception handler 0d0a 0002 | | .CONST 0x0002 ; Number of locals 0d0b INIT_0d08: 0d0b e402 | | Load 0x2,0x2 0d0c e011 | | Load 0x0,0x11 0d0d 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0d0e BODY_0d08: 0d0e 00d8 | | Load_Top At_Offset_0 0d0f 01db | | Execute Vector,Length 0d10 0c01 | | Execute_Immediate Greater_Equal,0x1 0d11 6802 |h | Jump_Zero 0xd14 0d12 00d8 | | Load_Top At_Offset_0 0d13 8247 | G | Call 0x1,0x47 0d14 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0d15 0000 0000 | | .XXX[0x3] 0d17 0000 | | 0d18 ; -------------------------------------------------------------------------------------- 0d18 ; SUBPROGRAM 0d18 ; -------------------------------------------------------------------------------------- 0d18 0d1b | | .CONST 0x0d1b ; Address of begin 0d19 0d23 | # | .CONST 0x0d23 ; Address of exception handler 0d1a 0001 | | .CONST 0x0001 ; Number of locals 0d1b BODY_0d18: 0d1b INIT_0d18: 0d1b e402 | | Load 0x2,0x2 0d1c 00ea | | Load_Encached Null_String_Cache 0d1d e5ff | | Load 0x2,-0x1 0d1e 4800 |H | Short_Literal 0x0 0d1f e011 | | Load 0x0,0x11 0d20 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0d21 c402 | | Store 0x2,0x2 0d22 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0d23 TRAP_0d18: 0d23 0007 | | Action Break_Optional 0d24 4829 |H) | Short_Literal 0x29 0d25 0092 0f7e | ~| Action Push_String_Extended,0xf7e ; "Could not open the font setup file " 0d27 e5ff | | Load 0x2,-0x1 0d28 01cc | | Execute Vector,Catenate 0d29 0092 0f50 | P| Action Push_String_Extended,0xf50 ; " (" 0d2b 01cc | | Execute Vector,Catenate 0d2c 4800 |H | Short_Literal 0x0 0d2d 4801 |H | Short_Literal 0x1 0d2e e015 | | Load 0x0,0x15 0d2f 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0d30 01cc | | Execute Vector,Catenate 0d31 01cb | | Execute Vector,Append 0d32 e010 | | Load 0x0,0x10 0d33 180e | | Execute Package,Field_Execute,Field_Number 0xe 0d34 e001 | | Load 0x0,0x1 0d35 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 0d36 0257 | W | Execute Discrete,Raise 0d37 0000 | | .XXX[0x1] 0d38 ; -------------------------------------------------------------------------------------- 0d38 ; SUBPROGRAM 0d38 ; -------------------------------------------------------------------------------------- 0d38 0d3e | > | .CONST 0x0d3e ; Address of begin 0d39 0004 | | .CONST 0x0004 ; Address of exception handler 0d3a 0002 | | .CONST 0x0002 ; Number of locals 0d3b INIT_0d38: 0d3b e402 | | Load 0x2,0x2 0d3c e011 | | Load 0x0,0x11 0d3d 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0d3e BODY_0d38: 0d3e 00d8 | | Load_Top At_Offset_0 0d3f 01db | | Execute Vector,Length 0d40 0c01 | | Execute_Immediate Greater_Equal,0x1 0d41 6802 |h | Jump_Zero 0xd44 0d42 00d8 | | Load_Top At_Offset_0 0d43 824e | N | Call 0x1,0x4e 0d44 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0d45 0000 0000 | | .XXX[0x3] 0d47 0000 | | 0d48 ; -------------------------------------------------------------------------------------- 0d48 ; SUBPROGRAM 0d48 ; -------------------------------------------------------------------------------------- 0d48 0d4b | K | .CONST 0x0d4b ; Address of begin 0d49 0d53 | S | .CONST 0x0d53 ; Address of exception handler 0d4a 0001 | | .CONST 0x0001 ; Number of locals 0d4b BODY_0d48: 0d4b INIT_0d48: 0d4b e402 | | Load 0x2,0x2 0d4c 00ea | | Load_Encached Null_String_Cache 0d4d e404 | | Load 0x2,0x4 0d4e 4800 |H | Short_Literal 0x0 0d4f e218 | | Load 0x1,0x18 0d50 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0d51 c402 | | Store 0x2,0x2 0d52 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0d53 TRAP_0d48: 0d53 0007 | | Action Break_Optional 0d54 4829 |H) | Short_Literal 0x29 0d55 0092 0f7f | | Action Push_String_Extended,0xf7f ; "Could not open the font file " 0d57 e404 | | Load 0x2,0x4 0d58 01cc | | Execute Vector,Catenate 0d59 0092 0f50 | P| Action Push_String_Extended,0xf50 ; " (" 0d5b 01cc | | Execute Vector,Catenate 0d5c 4800 |H | Short_Literal 0x0 0d5d 4801 |H | Short_Literal 0x1 0d5e e015 | | Load 0x0,0x15 0d5f 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0d60 01cc | | Execute Vector,Catenate 0d61 01cb | | Execute Vector,Append 0d62 e010 | | Load 0x0,0x10 0d63 180e | | Execute Package,Field_Execute,Field_Number 0xe 0d64 e001 | | Load 0x0,0x1 0d65 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 0d66 0257 | W | Execute Discrete,Raise 0d67 0000 | | .XXX[0x1] 0d68 ; -------------------------------------------------------------------------------------- 0d68 ; SUBPROGRAM 0d68 ; -------------------------------------------------------------------------------------- 0d68 0d6b | k | .CONST 0x0d6b ; Address of begin 0d69 0d70 | p | .CONST 0x0d70 ; Address of exception handler 0d6a 0001 | | .CONST 0x0001 ; Number of locals 0d6b BODY_0d68: 0d6b INIT_0d68: 0d6b e403 | | Load 0x2,0x3 0d6c e402 | | Load 0x2,0x2 0d6d e218 | | Load 0x1,0x18 0d6e 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0d6f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0d70 TRAP_0d68: 0d70 0007 | | Action Break_Optional 0d71 4829 |H) | Short_Literal 0x29 0d72 0092 0f80 | | Action Push_String_Extended,0xf80 ; "Could not read the font file " 0d74 e404 | | Load 0x2,0x4 0d75 01cc | | Execute Vector,Catenate 0d76 0092 0f50 | P| Action Push_String_Extended,0xf50 ; " (" 0d78 01cc | | Execute Vector,Catenate 0d79 4800 |H | Short_Literal 0x0 0d7a 4801 |H | Short_Literal 0x1 0d7b e015 | | Load 0x0,0x15 0d7c 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0d7d 01cc | | Execute Vector,Catenate 0d7e 01cb | | Execute Vector,Append 0d7f e010 | | Load 0x0,0x10 0d80 180e | | Execute Package,Field_Execute,Field_Number 0xe 0d81 e402 | | Load 0x2,0x2 0d82 e218 | | Load 0x1,0x18 0d83 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0d84 c402 | | Store 0x2,0x2 0d85 e001 | | Load 0x0,0x1 0d86 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 0d87 0257 | W | Execute Discrete,Raise 0d88 ; -------------------------------------------------------------------------------------- 0d88 ; SUBPROGRAM 0d88 ; -------------------------------------------------------------------------------------- 0d88 0d8b | | .CONST 0x0d8b ; Address of begin 0d89 0004 | | .CONST 0x0004 ; Address of exception handler 0d8a 0001 | | .CONST 0x0001 ; Number of locals 0d8b BODY_0d88: 0d8b INIT_0d88: 0d8b e7ff | | Load 0x3,-0x1 0d8c 0f64 | d | Execute_Immediate Equal,0x64 0d8d 6803 |h | Jump_Zero 0xd91 0d8e 0092 0f81 | | Action Push_String_Extended,0xf81 ; "1" 0d90 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0d91 482e |H. | Short_Literal 0x2e 0d92 4820 |H | Short_Literal 0x20 0d93 4800 |H | Short_Literal 0x0 0d94 480a |H | Short_Literal 0xa 0d95 e7ff | | Load 0x3,-0x1 0d96 4864 |Hd | Short_Literal 0x64 0d97 0270 | p | Execute Discrete,Divide 0d98 e00f | | Load 0x0,0xf 0d99 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0d9a 01cb | | Execute Vector,Append 0d9b 4830 |H0 | Short_Literal 0x30 0d9c 4802 |H | Short_Literal 0x2 0d9d 480a |H | Short_Literal 0xa 0d9e e7ff | | Load 0x3,-0x1 0d9f 4864 |Hd | Short_Literal 0x64 0da0 026e | n | Execute Discrete,Modulo 0da1 e00f | | Load 0x0,0xf 0da2 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0da3 01cc | | Execute Vector,Catenate 0da4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0da5 0000 0000 | | .XXX[0x3] 0da7 0000 | | 0da8 ; -------------------------------------------------------------------------------------- 0da8 ; SUBPROGRAM 0da8 ; -------------------------------------------------------------------------------------- 0da8 0db2 | | .CONST 0x0db2 ; Address of begin 0da9 0dcb | | .CONST 0x0dcb ; Address of exception handler 0daa 0003 | | .CONST 0x0003 ; Number of locals 0dab INIT_0da8: 0dab e011 | | Load 0x0,0x11 0dac 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0dad 02c7 | | Declare_Variable Any 0dae 00d8 | | Load_Top At_Offset_0 0daf 1c00 | | Execute_Immediate Run_Utility,0x0 0db0 029f 0edb | | Declare_Subprogram INIT_0ed8,For_Call 0db2 BODY_0da8: 0db2 e602 | | Load 0x3,0x2 0db3 00ea | | Load_Encached Null_String_Cache 0db4 e232 | 2 | Load 0x1,0x32 0db5 0227 | ' | Execute Access,All_Reference 0db6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0db7 e001 | | Load 0x0,0x1 0db8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0db9 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0dba 4800 |H | Short_Literal 0x0 0dbb e011 | | Load 0x0,0x11 0dbc 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0dbd c602 | | Store 0x3,0x2 0dbe 0092 0f82 | | Action Push_String_Extended,0xf82 ; "%%BeginDocument: " 0dc0 e602 | | Load 0x3,0x2 0dc1 e011 | | Load 0x0,0x11 0dc2 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0dc3 01cc | | Execute Vector,Catenate 0dc4 e233 | 3 | Load 0x1,0x33 0dc5 e00c | | Load 0x0,0xc 0dc6 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0dc7 00cf | | Action Mark_Auxiliary 0dc8 8603 | | Call 0x3,0x3 0dc9 00c9 | | Action Pop_Auxiliary_Loop 0dca 7ffd | | Jump 0xdc8 0dcb TRAP_0da8: 0dcb 00d8 | | Load_Top At_Offset_0 0dcc 0107 | | Execute Exception,Get_Name 0dcd 4950 |IP | Short_Literal 0x150 0dce 495f |I_ | Short_Literal 0x15f 0dcf 0262 | b | Execute Discrete,In_Range 0dd0 6805 |h | Jump_Zero 0xdd6 0dd1 e602 | | Load 0x3,0x2 0dd2 e011 | | Load 0x0,0x11 0dd3 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0dd4 c602 | | Store 0x3,0x2 0dd5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0dd6 e602 | | Load 0x3,0x2 0dd7 e011 | | Load 0x0,0x11 0dd8 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0dd9 680a |h | Jump_Zero 0xde4 0dda e602 | | Load 0x3,0x2 0ddb e011 | | Load 0x0,0x11 0ddc 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0ddd c602 | | Store 0x3,0x2 0dde 0092 0f83 | | Action Push_String_Extended,0xf83 ; "% ERROR INTERPOLATING PICTURE" 0de0 e233 | 3 | Load 0x1,0x33 0de1 e00c | | Load 0x0,0xc 0de2 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0de3 780a |x | Jump 0xdee 0de4 0092 0f84 | | Action Push_String_Extended,0xf84 ; "%%BeginDocument: ?" 0de6 e233 | 3 | Load 0x1,0x33 0de7 e00c | | Load 0x0,0xc 0de8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0de9 0092 0f85 | | Action Push_String_Extended,0xf85 ; "% PICTURE NOT FOUND" 0deb e233 | 3 | Load 0x1,0x33 0dec e00c | | Load 0x0,0xc 0ded 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0dee 4829 |H) | Short_Literal 0x29 0def 0092 0f86 | | Action Push_String_Extended,0xf86 ; "Could not interpolate file " 0df1 e232 | 2 | Load 0x1,0x32 0df2 0227 | ' | Execute Access,All_Reference 0df3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0df4 e001 | | Load 0x0,0x1 0df5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0df6 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0df7 01cc | | Execute Vector,Catenate 0df8 0092 0f50 | P| Action Push_String_Extended,0xf50 ; " (" 0dfa 01cc | | Execute Vector,Catenate 0dfb 4800 |H | Short_Literal 0x0 0dfc 4801 |H | Short_Literal 0x1 0dfd e015 | | Load 0x0,0x15 0dfe 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0dff 01cc | | Execute Vector,Catenate 0e00 01cb | | Execute Vector,Append 0e01 e010 | | Load 0x0,0x10 0e02 180e | | Execute Package,Field_Execute,Field_Number 0xe 0e03 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0e04 0000 0000 | | .BLANK 0000[0x4] 0e08 ; -------------------------------------------------------------------------------------- 0e08 ; SUBPROGRAM 0e08 ; -------------------------------------------------------------------------------------- 0e08 0e0b | | .CONST 0x0e0b ; Address of begin 0e09 0004 | | .CONST 0x0004 ; Address of exception handler 0e0a 0001 | | .CONST 0x0001 ; Number of locals 0e0b BODY_0e08: 0e0b INIT_0e08: 0e0b e407 | | Load 0x2,0x7 0e0c 680b |h | Jump_Zero 0xe18 0e0d 4800 |H | Short_Literal 0x0 0e0e a407 | | Store_Unchecked 0x2,0x7 0e0f e404 | | Load 0x2,0x4 0e10 8240 | @ | Call 0x1,0x40 0e11 0092 0f79 | y| Action Push_String_Extended,0xf79 ; " MX" 0e13 01cc | | Execute Vector,Catenate 0e14 e233 | 3 | Load 0x1,0x33 0e15 e00c | | Load 0x0,0xc 0e16 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0e17 7804 |x | Jump 0xe1c 0e18 e23d | = | Load 0x1,0x3d 0e19 0c01 | | Execute_Immediate Greater_Equal,0x1 0e1a 6801 |h | Jump_Zero 0xe1c 0e1b 8242 | B | Call 0x1,0x42 0e1c e7fd | | Load 0x3,-0x3 0e1d 681e |h | Jump_Zero 0xe3c 0e1e 482f |H/ | Short_Literal 0x2f 0e1f e7ff | | Load 0x3,-0x1 0e20 01dd | | Execute Vector,First 0e21 e7fe | | Load 0x3,-0x2 0e22 0273 | s | Execute Discrete,Plus 0e23 00d8 | | Load_Top At_Offset_0 0e24 00e2 | | Load_Encached Integer_Cache 0e25 0260 | ` | Execute Discrete,In_Type 0e26 7001 |p | Jump_Nonzero 0xe28 0e27 0801 | | Execute_Immediate Raise,0x1 0e28 e7ff | | Load 0x3,-0x1 0e29 01dc | | Execute Vector,Last 0e2a e7ff | | Load 0x3,-0x1 0e2b 01cf | | Execute Vector,Slice_Read 0e2c e00f | | Load 0x0,0xf 0e2d 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0e2e 01ca | | Execute Vector,Prepend 0e2f 0092 0f87 | | Action Push_String_Extended,0xf87 ; " SYM " 0e31 01cc | | Execute Vector,Catenate 0e32 e7fc | | Load 0x3,-0x4 0e33 8240 | @ | Call 0x1,0x40 0e34 01cc | | Execute Vector,Catenate 0e35 0092 0f79 | y| Action Push_String_Extended,0xf79 ; " MX" 0e37 01cc | | Execute Vector,Catenate 0e38 e233 | 3 | Load 0x1,0x33 0e39 e00c | | Load 0x0,0xc 0e3a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0e3b 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0e3c 482f |H/ | Short_Literal 0x2f 0e3d e7ff | | Load 0x3,-0x1 0e3e 01dd | | Execute Vector,First 0e3f e7fe | | Load 0x3,-0x2 0e40 0273 | s | Execute Discrete,Plus 0e41 00d8 | | Load_Top At_Offset_0 0e42 00e2 | | Load_Encached Integer_Cache 0e43 0260 | ` | Execute Discrete,In_Type 0e44 7001 |p | Jump_Nonzero 0xe46 0e45 0801 | | Execute_Immediate Raise,0x1 0e46 e7ff | | Load 0x3,-0x1 0e47 01dc | | Execute Vector,Last 0e48 e7ff | | Load 0x3,-0x1 0e49 01cf | | Execute Vector,Slice_Read 0e4a e00f | | Load 0x0,0xf 0e4b 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0e4c 01ca | | Execute Vector,Prepend 0e4d 0092 0f87 | | Action Push_String_Extended,0xf87 ; " SYM " 0e4f 01cc | | Execute Vector,Catenate 0e50 e7fc | | Load 0x3,-0x4 0e51 8240 | @ | Call 0x1,0x40 0e52 01cc | | Execute Vector,Catenate 0e53 0092 0f79 | y| Action Push_String_Extended,0xf79 ; " MX" 0e55 01cc | | Execute Vector,Catenate 0e56 e233 | 3 | Load 0x1,0x33 0e57 e00c | | Load 0x0,0xc 0e58 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0e59 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0e5a 0000 0000 | | .BLANK 0000[0x6] 0e60 ; -------------------------------------------------------------------------------------- 0e60 ; SUBPROGRAM 0e60 ; -------------------------------------------------------------------------------------- 0e60 0e6c | l | .CONST 0x0e6c ; Address of begin 0e61 0004 | | .CONST 0x0004 ; Address of exception handler 0e62 0003 | | .CONST 0x0003 ; Number of locals 0e63 INIT_0e60: 0e63 e7ff | | Load 0x3,-0x1 0e64 4be8 |K | Short_Literal 0x3e8 0e65 0271 | q | Execute Discrete,Times 0e66 e001 | | Load 0x0,0x1 0e67 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0e68 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0e69 e001 | | Load 0x0,0x1 0e6a 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0e6b 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0e6c BODY_0e60: 0e6c e602 | | Load 0x3,0x2 0e6d 7011 |p | Jump_Nonzero 0xe7f 0e6e 4800 |H | Short_Literal 0x0 0e6f e406 | | Load 0x2,0x6 0e70 8261 | a | Call 0x1,0x61 0e71 4820 |H | Short_Literal 0x20 0e72 e237 | 7 | Load 0x1,0x37 0e73 8240 | @ | Call 0x1,0x40 0e74 01cb | | Execute Vector,Append 0e75 e238 | 8 | Load 0x1,0x38 0e76 8240 | @ | Call 0x1,0x40 0e77 01cc | | Execute Vector,Catenate 0e78 0092 0f5e | ^| Action Push_String_Extended,0xf5e ; " moveto" 0e7a 01cc | | Execute Vector,Catenate 0e7b e233 | 3 | Load 0x1,0x33 0e7c e00c | | Load 0x0,0xc 0e7d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0e7e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0e7f e602 | | Load 0x3,0x2 0e80 e237 | 7 | Load 0x1,0x37 0e81 e602 | | Load 0x3,0x2 0e82 026e | n | Execute Discrete,Modulo 0e83 0272 | r | Execute Discrete,Minus 0e84 c603 | | Store 0x3,0x3 0e85 00d8 | | Load_Top At_Offset_0 0e86 e602 | | Load 0x3,0x2 0e87 0273 | s | Execute Discrete,Plus 0e88 e406 | | Load 0x2,0x6 0e89 027d | } | Execute Discrete,Greater 0e8a 680c |h | Jump_Zero 0xe97 0e8b e407 | | Load 0x2,0x7 0e8c 6805 |h | Jump_Zero 0xe92 0e8d e404 | | Load 0x2,0x4 0e8e e406 | | Load 0x2,0x6 0e8f 0273 | s | Execute Discrete,Plus 0e90 c404 | | Store 0x2,0x4 0e91 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0e92 4801 |H | Short_Literal 0x1 0e93 a407 | | Store_Unchecked 0x2,0x7 0e94 e406 | | Load 0x2,0x6 0e95 a404 | | Store_Unchecked 0x2,0x4 0e96 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0e97 e407 | | Load 0x2,0x7 0e98 680f |h | Jump_Zero 0xea8 0e99 e404 | | Load 0x2,0x4 0e9a e603 | | Load 0x3,0x3 0e9b 0273 | s | Execute Discrete,Plus 0e9c c404 | | Store 0x2,0x4 0e9d e404 | | Load 0x2,0x4 0e9e 8240 | @ | Call 0x1,0x40 0e9f 0092 0f79 | y| Action Push_String_Extended,0xf79 ; " MX" 0ea1 01cc | | Execute Vector,Catenate 0ea2 e233 | 3 | Load 0x1,0x33 0ea3 e00c | | Load 0x0,0xc 0ea4 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0ea5 4800 |H | Short_Literal 0x0 0ea6 a407 | | Store_Unchecked 0x2,0x7 0ea7 7808 |x | Jump 0xeb0 0ea8 00d8 | | Load_Top At_Offset_0 0ea9 8240 | @ | Call 0x1,0x40 0eaa 0092 0f79 | y| Action Push_String_Extended,0xf79 ; " MX" 0eac 01cc | | Execute Vector,Catenate 0ead e233 | 3 | Load 0x1,0x33 0eae e00c | | Load 0x0,0xc 0eaf 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0eb0 e237 | 7 | Load 0x1,0x37 0eb1 e603 | | Load 0x3,0x3 0eb2 0273 | s | Execute Discrete,Plus 0eb3 c237 | 7 | Store 0x1,0x37 0eb4 e406 | | Load 0x2,0x6 0eb5 e603 | | Load 0x3,0x3 0eb6 0272 | r | Execute Discrete,Minus 0eb7 c406 | | Store 0x2,0x6 0eb8 e406 | | Load 0x2,0x6 0eb9 e602 | | Load 0x3,0x2 0eba 0270 | p | Execute Discrete,Divide 0ebb 0c01 | | Execute_Immediate Greater_Equal,0x1 0ebc 7001 |p | Jump_Nonzero 0xebe 0ebd 0887 | | Execute_Immediate Raise,0x87 0ebe e602 | | Load 0x3,0x2 0ebf 8240 | @ | Call 0x1,0x40 0ec0 e406 | | Load 0x2,0x6 0ec1 e602 | | Load 0x3,0x2 0ec2 0270 | p | Execute Discrete,Divide 0ec3 00d8 | | Load_Top At_Offset_0 0ec4 00e3 | | Load_Encached Natural_Cache 0ec5 0260 | ` | Execute Discrete,In_Type 0ec6 7001 |p | Jump_Nonzero 0xec8 0ec7 0801 | | Execute_Immediate Raise,0x1 0ec8 00e0 | | Load_Encached Standard_Cache 0ec9 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0eca 01cc | | Execute Vector,Catenate 0ecb 0092 0f88 | | Action Push_String_Extended,0xf88 ; " LTAB " 0ecd 01cc | | Execute Vector,Catenate 0ece e406 | | Load 0x2,0x6 0ecf 8240 | @ | Call 0x1,0x40 0ed0 01cc | | Execute Vector,Catenate 0ed1 0092 0f79 | y| Action Push_String_Extended,0xf79 ; " MX" 0ed3 01cc | | Execute Vector,Catenate 0ed4 e233 | 3 | Load 0x1,0x33 0ed5 e00c | | Load 0x0,0xc 0ed6 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0ed7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0ed8 ; -------------------------------------------------------------------------------------- 0ed8 ; SUBPROGRAM 0ed8 ; -------------------------------------------------------------------------------------- 0ed8 0ede | | .CONST 0x0ede ; Address of begin 0ed9 0004 | | .CONST 0x0004 ; Address of exception handler 0eda 0002 | | .CONST 0x0002 ; Number of locals 0edb INIT_0ed8: 0edb e602 | | Load 0x3,0x2 0edc e011 | | Load 0x0,0x11 0edd 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0ede BODY_0ed8: 0ede 4800 |H | Short_Literal 0x0 0edf e802 | | Load 0x4,0x2 0ee0 0092 0f89 | | Action Push_String_Extended,0xf89 ; "%%Page:" 0ee2 e00f | | Load 0x0,0xf 0ee3 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0ee4 e802 | | Load 0x4,0x2 0ee5 01dd | | Execute Vector,First 0ee6 027f | | Execute Discrete,Equal 0ee7 4800 |H | Short_Literal 0x0 0ee8 e802 | | Load 0x4,0x2 0ee9 0092 0f51 | Q| Action Push_String_Extended,0xf51 ; "%%Trailer" 0eeb e00f | | Load 0x0,0xf 0eec 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0eed e802 | | Load 0x4,0x2 0eee 01dd | | Execute Vector,First 0eef 027f | | Execute Discrete,Equal 0ef0 0278 | x | Execute Discrete,Or 0ef1 6815 |h | Jump_Zero 0xf07 0ef2 485d |H] | Short_Literal 0x5d 0ef3 0092 0f8a | | Action Push_String_Extended,0xf8a ; "%%[" 0ef5 e802 | | Load 0x4,0x2 0ef6 01dd | | Execute Vector,First 0ef7 0a02 | | Execute_Immediate Plus,0x2 0ef8 00d8 | | Load_Top At_Offset_0 0ef9 00e2 | | Load_Encached Integer_Cache 0efa 0260 | ` | Execute Discrete,In_Type 0efb 7001 |p | Jump_Nonzero 0xefd 0efc 0801 | | Execute_Immediate Raise,0x1 0efd e802 | | Load 0x4,0x2 0efe 01dc | | Execute Vector,Last 0eff e802 | | Load 0x4,0x2 0f00 01cf | | Execute Vector,Slice_Read 0f01 01cc | | Execute Vector,Catenate 0f02 01cb | | Execute Vector,Append 0f03 e233 | 3 | Load 0x1,0x33 0f04 e00c | | Load 0x0,0xc 0f05 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0f06 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0f07 00d8 | | Load_Top At_Offset_0 0f08 e233 | 3 | Load 0x1,0x33 0f09 e00c | | Load 0x0,0xc 0f0a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0f0b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0f0c ; -------------------------------------------------------------------------------------- 0f0c ; STRING TABLE 0f0c ; -------------------------------------------------------------------------------------- 0f0c 0100 | | .STRTAB 0x0100->0x0f8c ; "NIL" 0f0d 0101 | | .STRTAB 0x0101->0x0f8d ; "TO_BE_SUPPLIED" 0f0e 010d | | .STRTAB 0x010d->0x0f94 ; "NIL" 0f0f 010e | | .STRTAB 0x010e->0x0f96 ; "FAMILY" 0f10 0112 | | .STRTAB 0x0112->0x0f99 ; "NORMAL" 0f11 0116 | | .STRTAB 0x0116->0x0f9c ; "BOLD" 0f12 0118 | | .STRTAB 0x0118->0x0f9e ; "ITALIC" 0f13 011c | | .STRTAB 0x011c->0x0fa1 ; "BOLD_ITALIC" 0f14 0125 | % | .STRTAB 0x0125->0x0fa6 ; "STANDARD" 0f15 012b | + | .STRTAB 0x012b->0x0faa ; "others => Unspecified" 0f16 013e | > | .STRTAB 0x013e->0x0fb5 ; "CAP-" 0f17 0140 | @ | .STRTAB 0x0140->0x0fb7 ; "PostScript" 0f18 0148 | H | .STRTAB 0x0148->0x0fbc ; ") " 0f19 0148 | H | .STRTAB 0x0148->0x0fbd ; " WS" 0f1a 0149 | I | .STRTAB 0x0149->0x0fbe ; ") show" 0f1b 014d | M | .STRTAB 0x014d->0x0fc1 ; "Invalid form selection " 0f1c 0162 | b | .STRTAB 0x0162->0x0fcd ; ". Form " 0f1d 0168 | h | .STRTAB 0x0168->0x0fd1 ; " assumed" 0f1e 016e | n | .STRTAB 0x016e->0x0fd5 ; "Form " 0f1f 0171 | q | .STRTAB 0x0171->0x0fd7 ; " is being redefined" 0f20 0182 | | .STRTAB 0x0182->0x0fe1 ; "Too many forms defined" 0f21 0196 | | .STRTAB 0x0196->0x0fec ; "The PostScript device does not support defining forms" 0f22 01c9 | | .STRTAB 0x01c9->0x1006 ; "Could not define forms in " 0f23 01e1 | | .STRTAB 0x01e1->0x1013 ; "Standard" 0f24 01e7 | | .STRTAB 0x01e7->0x1017 ; "No more fonts can be defined" 0f25 0201 | | .STRTAB 0x0201->0x1025 ; "No more font families can be defined" 0f26 0223 | # | .STRTAB 0x0223->0x1037 ; "Argument to Define_Font was unrecognizable" 0f27 024b | K | .STRTAB 0x024b->0x104c ; "Define_Font" 0f28 0254 | T | .STRTAB 0x0254->0x1052 ; "Define_Font requires a Family name" 0f29 0274 | t | .STRTAB 0x0274->0x1063 ; "Define_Font requires a Normal font" 0f2a 0294 | | .STRTAB 0x0294->0x1074 ; "Could not define fonts in " 0f2b 02ac | | .STRTAB 0x02ac->0x1081 ; "/" 0f2c 02ab | | .STRTAB 0x02ab->0x1081 ; " /" 0f2d 02ab | | .STRTAB 0x02ab->0x1082 ; " findfont dup setfont [.9 0 0 FINDSCALE 0 0] makefont COPYFONT dup /Encoding CAP-ENCODING put definefont pop" 0f2e 0315 | | .STRTAB 0x0315->0x10b8 ; "_PS" 0f2f 0316 | | .STRTAB 0x0316->0x10ba ; "%!PS-Adobe-2.0" 0f30 0322 | " | .STRTAB 0x0322->0x10c1 ; "%%Title: " 0f31 0329 | ) | .STRTAB 0x0329->0x10c5 ; "%%Creator: COMPOSE" 0f32 0339 | 9 | .STRTAB 0x0339->0x10ce ; "%%CreationDate: MM/DD/YY" 0f33 034f | O | .STRTAB 0x034f->0x10da ; "%%For: regression test" 0f34 0363 | c | .STRTAB 0x0363->0x10e5 ; "%%Creator: COMPOSE " 0f35 0374 | t | .STRTAB 0x0374->0x10ef ; "%%CreationDate: " 0f36 0382 | | .STRTAB 0x0382->0x10f7 ; "%%For: " 0f37 0387 | | .STRTAB 0x0387->0x10fa ; "%%Pages: (atend)" 0f38 0395 | | .STRTAB 0x0395->0x1102 ; "%%DocumentFonts: (atend)" 0f39 03ab | | .STRTAB 0x03ab->0x110e ; "%%EndComments" 0f3a 03b6 | | .STRTAB 0x03b6->0x1115 ; "/SelectFont {findfont exch dup neg 0 0 3 -1 roll 0 0 MAT astore makefont setfont} bind def" 0f3b 040e | | .STRTAB 0x040e->0x1142 ; "/BeginPage {/State save def /INITIAL-MATRIX matrix currentmatrix def 1 -1 scale 0.5 setlinewidth} bind def" 0f3c 0476 | v | .STRTAB 0x0476->0x1177 ; "/PositionPage {{-90 rotate pop} {0 exch neg translate} ifelse} bind def" 0f3d 04bb | | .STRTAB 0x04bb->0x119a ; "/EndPage {State restore showpage} def" 0f3e 04de | | .STRTAB 0x04de->0x11ad ; "/WS {0 32 4 -1 roll widthshow} bind def" 0f3f 0503 | | .STRTAB 0x0503->0x11c0 ; "/MX {0 rmoveto} bind def" 0f40 0519 | | .STRTAB 0x0519->0x11cc ; "/LTAB {gsave exch (.) stringwidth pop sub exch {dup 2 div dup 0 rmoveto (.) show 0 rmoveto} repeat pop grestore} bind def" 0f41 0590 | | .STRTAB 0x0590->0x1209 ; "/MAT matrix def" 0f42 059d | | .STRTAB 0x059d->0x1210 ; "/FINDSCALE {gsave newpath 0 0 moveto (X) false charpath" 0f43 05d2 | | .STRTAB 0x05d2->0x122c ; "flattenpath pathbbox /CAPHEIGHT exch def pop pop pop newpath 0 0 moveto" 0f44 0617 | | .STRTAB 0x0617->0x124f ; "(x) false charpath flattenpath pathbbox /XHEIGHT exch def pop pop pop" 0f45 065a | Z | .STRTAB 0x065a->0x1272 ; "grestore XHEIGHT CAPHEIGHT XHEIGHT sub 3 div add CAPHEIGHT div } bind def" 0f46 06a1 | | .STRTAB 0x06a1->0x1296 ; "/CAP-ENCODING [ StandardEncoding aload pop ] def" 0f47 06cf | | .STRTAB 0x06cf->0x12ae ; "8#141 1 8#172 {CAP-ENCODING exch dup 1 string dup 0 4 -1 roll 8#40 sub put cvn put} for" 0f48 0724 | $ | .STRTAB 0x0724->0x12da ; "/COPYFONT {dup length dict /TMPDICT exch def {1 index /FID ne {TMPDICT 3 1 roll put} {pop pop} ifelse } forall TMPDICT }bind def" 0f49 07a2 | | .STRTAB 0x07a2->0x131a ; "/SYM {save exch /newfont currentfont maxlength dict def currentfont" 0f4a 07e3 | | .STRTAB 0x07e3->0x133b ; "{exch dup /FID ne {dup /Encoding eq {exch dup length array copy newfont 3 1 roll put}" 0f4b 0836 | 6 | .STRTAB 0x0836->0x1366 ; "{exch newfont 3 1 roll put} ifelse } {pop pop} ifelse} forall" 0f4c 0871 | q | .STRTAB 0x0871->0x1384 ; "newfont /Encoding get 8#377 3 -1 roll put /NEWFONT newfont definefont setfont" 0f4d 08bc | | .STRTAB 0x08bc->0x13ab ; "(\x5c377) show restore} bind def" 0f4e 08d7 | | .STRTAB 0x08d7->0x13b9 ; "%%EndProlog" 0f4f 08e0 | | .STRTAB 0x08e0->0x13bf ; "Cannot create output " 0f50 08f3 | | .STRTAB 0x08f3->0x13c9 ; " (" 0f51 08f3 | | .STRTAB 0x08f3->0x13ca ; "%%Trailer" 0f52 08fa | | .STRTAB 0x08fa->0x13cf ; "%%Pages:" 0f53 0900 | | .STRTAB 0x0900->0x13d3 ; " 1" 0f54 0900 | | .STRTAB 0x0900->0x13d4 ; "%%DocumentFonts:" 0f55 090e | | .STRTAB 0x090e->0x13dc ; "_PS_AUX" 0f56 0913 | | .STRTAB 0x0913->0x13df ; "EndPage" 0f57 0918 | | .STRTAB 0x0918->0x13e3 ; "%%Page: " 0f58 091e | | .STRTAB 0x091e->0x13e7 ; "BeginPage" 0f59 0925 | % | .STRTAB 0x0925->0x13eb ; "Page started with unknown form selected. " 0f5a 094d | M | .STRTAB 0x094d->0x1400 ; " true" 0f5b 0950 | P | .STRTAB 0x0950->0x1403 ; " false" 0f5c 0954 | T | .STRTAB 0x0954->0x1406 ; " PositionPage" 0f5d 095f | _ | .STRTAB 0x095f->0x140c ; "/PICSAVE save def newpath" 0f5e 0976 | v | .STRTAB 0x0976->0x1419 ; " moveto" 0f5f 097b | { | .STRTAB 0x097b->0x141c ; "0 " 0f60 097b | { | .STRTAB 0x097b->0x141d ; " rlineto " 0f61 0982 | | .STRTAB 0x0982->0x1422 ; " 0 rlineto 0 " 0f62 098d | | .STRTAB 0x098d->0x1428 ; " 0 rlineto closepath clip" 0f63 09a4 | | .STRTAB 0x09a4->0x1435 ; "INITIAL-MATRIX setmatrix" 0f64 09ba | | .STRTAB 0x09ba->0x1441 ; "currentpoint translate" 0f65 09ce | | .STRTAB 0x09ce->0x144c ; " div " 0f66 09d1 | | .STRTAB 0x09d1->0x144e ; " div translate " 0f67 09de | | .STRTAB 0x09de->0x1456 ; " rotate " 0f68 09e4 | | .STRTAB 0x09e4->0x145a ; " div translate" 0f69 09f0 | | .STRTAB 0x09f0->0x1461 ; " scale" 0f6a 09f4 | | .STRTAB 0x09f4->0x1464 ; "newpath 0 0 moveto /Helvetica findfont 10 scalefont setfont" 0f6b 0a2d | - | .STRTAB 0x0a2d->0x1481 ; "/showpage { } def" 0f6c 0a3c | < | .STRTAB 0x0a3c->0x148a ; "%%BeginDocument: (literal)" 0f6d 0a54 | T | .STRTAB 0x0a54->0x1497 ; "%%EndDocument" 0f6e 0a5f | _ | .STRTAB 0x0a5f->0x149d ; "PICSAVE restore " 0f6f 0a6d | m | .STRTAB 0x0a6d->0x14a5 ; "newpath " 0f70 0a73 | s | .STRTAB 0x0a73->0x14a9 ; " rlineto stroke" 0f71 0a80 | | .STRTAB 0x0a80->0x14b1 ; " 0 rlineto" 0f72 0a88 | | .STRTAB 0x0a88->0x14b6 ; " rlineto" 0f73 0a8e | | .STRTAB 0x0a8e->0x14ba ; " 0 rlineto closepath stroke" 0f74 0aa7 | | .STRTAB 0x0aa7->0x14c7 ; " SelectFont" 0f75 0ab0 | | .STRTAB 0x0ab0->0x14cd ; "gsave " 0f76 0ab4 | | .STRTAB 0x0ab4->0x14d0 ; " rmoveto" 0f77 0aba | | .STRTAB 0x0aba->0x14d4 ; " setlinewidth" 0f78 0ac5 | | .STRTAB 0x0ac5->0x14da ; " 0 rlineto stroke grestore" 0f79 0add | | .STRTAB 0x0add->0x14e7 ; " MX" 0f7a 0ade | | .STRTAB 0x0ade->0x14e9 ; "(" 0f7b 0add | | .STRTAB 0x0add->0x14e9 ; "Non-printing character," 0f7c 0af2 | | .STRTAB 0x0af2->0x14f5 ; " lineto stroke grestore" 0f7d 0b07 | | .STRTAB 0x0b07->0x1500 ; "Could not open the form setup file " 0f7e 0b28 | ( | .STRTAB 0x0b28->0x1512 ; "Could not open the font setup file " 0f7f 0b49 | I | .STRTAB 0x0b49->0x1523 ; "Could not open the font file " 0f80 0b64 | d | .STRTAB 0x0b64->0x1532 ; "Could not read the font file " 0f81 0b7f | | .STRTAB 0x0b7f->0x1540 ; "1" 0f82 0b7e | ~ | .STRTAB 0x0b7e->0x1541 ; "%%BeginDocument: " 0f83 0b8d | | .STRTAB 0x0b8d->0x1549 ; "% ERROR INTERPOLATING PICTURE" 0f84 0ba8 | | .STRTAB 0x0ba8->0x1558 ; "%%BeginDocument: ?" 0f85 0bb8 | | .STRTAB 0x0bb8->0x1561 ; "% PICTURE NOT FOUND" 0f86 0bc9 | | .STRTAB 0x0bc9->0x156a ; "Could not interpolate file " 0f87 0be2 | | .STRTAB 0x0be2->0x1578 ; " SYM " 0f88 0be5 | | .STRTAB 0x0be5->0x157a ; " LTAB " 0f89 0be9 | | .STRTAB 0x0be9->0x157d ; "%%Page:" 0f8a 0bee | | .STRTAB 0x0bee->0x1581 ; "%%[" 0f8b 0bef | | .STREND 0x0bef->0x1582 0f8c 4e49 4c54 |NILT| .STRTAB_STRINGS 1583 0000 0000 | | .BLANK 0000[0x5] 1588 ; -------------------------------------------------------------------------------------- 1588 ; Debug Table 1588 ; -------------------------------------------------------------------------------------- 1588 0004 000f | | .DEBUG4 0x0004,0x000f,0x4316,0x0000,0x0001,0x0000 158e 731b 432b |s C+| .XXX[0x72] 1590 1b5b 2b22 | [+"| 1592 fb23 2b0b | #+ | 1594 6363 7b1b |cc{ | 1596 0ba3 4b7b | K{| 1598 7173 7b13 |qs{ | 159a 532b 1ba0 |S+ | 159c 0000 0010 | | 159e 0000 0090 | | 15a0 0000 0222 | "| 15a2 14c7 26d2 | & | 15a4 e556 e636 | V 6| 15a6 8656 36b6 | V6 | 15a8 5645 f446 |VE F| 15aa 5616 c6c6 |V | 15ac f636 1746 | 6 F| 15ae 96f6 e2e4 | | 15b0 f626 a656 | & V| 15b2 3740 0000 |7@ | 15b4 00a0 0000 | | 15b6 0126 c726 | & &| 15b8 d2e7 3797 | 7 | 15ba 3746 56d2 |7FV | 15bc e616 4647 | FG| 15be 2657 3730 |&W70| 15c0 0000 0020 | | 15c2 0000 0120 | | 15c4 0000 0264 | d| 15c6 298e 4da5 |) M | 15c8 ca6f 2e6e | o.n| 15ca 8cad a5c8 | | 15cc 2c8c 8e4c |, L| 15ce ae6e 6000 | n` | 15d0 0001 4000 | @ | 15d2 0001 4d8e | M | 15d4 4da5 ce6f |M o| 15d6 2e6e 8cad |.n | 15d8 a000 0000 | | 15da 4000 0002 |@ | 15dc 4000 0002 |@ | 15de c853 1c9b | S | 15e0 4b94 de5c |K \| 15e2 dd19 5b40 | [@| 15e4 0000 0280 | | 15e6 0000 059b | | 15e8 1c9b 4b9c | K | 15ea de5c dd19 | \ | 15ec 5b4b 989e |[K | 15ee 5d19 57dc |] W | 15f0 dd1c 9a5b | [| 15f2 99c0 0000 | | 15f4 0080 0000 | | 15f6 0480 0000 | | 15f8 0b90 a639 | 9| 15fa 3697 29bc |6 ) | 15fc b9ba 32b6 | 2 | 15fe 9721 3cba | !< |