|
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: 2048 (0x800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0694fc
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0280 | | .CONST 0x0280 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 00fe | | .CONST 0x00fe ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0043 | C | .CONST 0x0043 ; Number of locals 000b INIT_0008: 000b 00c4 | | Action Make_Default 000c 00c4 | | Action Make_Default 000d 00c4 | | Action Make_Default 000e 00c4 | | Action Make_Default 000f 00c4 | | Action Make_Default 0010 00c4 | | Action Make_Default 0011 00c4 | | Action Make_Default 0012 00c4 | | Action Make_Default 0013 00c4 | | Action Make_Default 0014 00c4 | | Action Make_Default 0015 00c4 | | Action Make_Default 0016 00c4 | | Action Make_Default 0017 00c4 | | Action Make_Default 0018 00c4 | | Action Make_Default 0019 00c4 | | Action Make_Default 001a 00c4 | | Action Make_Default 001b 00c4 | | Action Make_Default 001c 00c4 | | Action Make_Default 001d 00c4 | | Action Make_Default 001e 00c4 | | Action Make_Default 001f 00c4 | | Action Make_Default 0020 00c4 | | Action Make_Default 0021 00c4 | | Action Make_Default 0022 00c4 | | Action Make_Default 0023 00c4 | | Action Make_Default 0024 00c4 | | Action Make_Default 0025 00c4 | | Action Make_Default 0026 00c4 | | Action Make_Default 0027 00c4 | | Action Make_Default 0028 00c4 | | Action Make_Default 0029 00c4 | | Action Make_Default 002a 00c4 | | Action Make_Default 002b 00c4 | | Action Make_Default 002c 00c4 | | Action Make_Default 002d 00c4 | | Action Make_Default 002e 00c4 | | Action Make_Default 002f 00c4 | | Action Make_Default 0030 00c4 | | Action Make_Default 0031 00c4 | | Action Make_Default 0032 00c4 | | Action Make_Default 0033 00c4 | | Action Make_Default 0034 00c4 | | Action Make_Default 0035 00c4 | | Action Make_Default 0036 00c4 | | Action Make_Default 0037 00c4 | | Action Make_Default 0038 00c4 | | Action Make_Default 0039 00c4 | | Action Make_Default 003a 00c4 | | Action Make_Default 003b 00c4 | | Action Make_Default 003c 00c4 | | Action Make_Default 003d 00c4 | | Action Make_Default 003e 00c4 | | Action Make_Default 003f 00c4 | | Action Make_Default 0040 00c4 | | Action Make_Default 0041 00c4 | | Action Make_Default 0042 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 0044 c221 | ! | Store 0x1,0x21 0045 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated 0047 c227 | ' | Store 0x1,0x27 0048 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated 004a c23a | : | Store 0x1,0x3a 004b 4800 |H | Short_Literal 0x0 004c 4802 |H | Short_Literal 0x2 004d 029f 015b | [| Declare_Subprogram INIT_0158,For_Call 004f 03fe | | Declare_Type Discrete,Defined,Visible 0050 c21e | | Store 0x1,0x1e 0051 4800 |H | Short_Literal 0x0 0052 4803 |H | Short_Literal 0x3 0053 029f 0183 | | Declare_Subprogram INIT_0180,For_Call 0055 03fe | | Declare_Type Discrete,Defined,Visible 0056 c241 | A | Store 0x1,0x41 0057 00da | | Load_Top At_Offset_2 0058 00e6 | | Load_Encached Float_Cache 0059 00e6 | | Load_Encached Float_Cache 005a 02a0 | | Declare_Subprogram Null_Subprogram 005b 4803 |H | Short_Literal 0x3 005c 032e | . | Declare_Type Record,Defined,Visible 005d c216 | | Store 0x1,0x16 005e 00da | | Load_Top At_Offset_2 005f 00e6 | | Load_Encached Float_Cache 0060 00e6 | | Load_Encached Float_Cache 0061 00e6 | | Load_Encached Float_Cache 0062 00e6 | | Load_Encached Float_Cache 0063 02a0 | | Declare_Subprogram Null_Subprogram 0064 4805 |H | Short_Literal 0x5 0065 032e | . | Declare_Type Record,Defined,Visible 0066 c217 | | Store 0x1,0x17 0067 00e2 | | Load_Encached Integer_Cache 0068 00e2 | | Load_Encached Integer_Cache 0069 02a0 | | Declare_Subprogram Null_Subprogram 006a 4802 |H | Short_Literal 0x2 006b 032e | . | Declare_Type Record,Defined,Visible 006c c218 | | Store 0x1,0x18 006d e216 | | Load 0x1,0x16 006e 0322 | " | Declare_Variable Record 006f 4801 |H | Short_Literal 0x1 0070 00d9 | | Load_Top At_Offset_1 0071 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0072 58c5 |X | Indirect_Literal Float,0x138,84.1 0073 00d9 | | Load_Top At_Offset_1 0074 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0075 58be |X | Indirect_Literal Float,0x134,118.89999999999999 0076 00d9 | | Load_Top At_Offset_1 0077 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0078 0129 | ) | Execute Any,Make_Visible 0079 c23d | = | Store 0x1,0x3d 007a e216 | | Load 0x1,0x16 007b 0322 | " | Declare_Variable Record 007c 4801 |H | Short_Literal 0x1 007d 00d9 | | Load_Top At_Offset_1 007e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 007f 58b0 |X | Indirect_Literal Float,0x130,59.4 0080 00d9 | | Load_Top At_Offset_1 0081 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0082 58b5 |X | Indirect_Literal Float,0x138,84.1 0083 00d9 | | Load_Top At_Offset_1 0084 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0085 0129 | ) | Execute Any,Make_Visible 0086 c23e | > | Store 0x1,0x3e 0087 e216 | | Load 0x1,0x16 0088 0322 | " | Declare_Variable Record 0089 4801 |H | Short_Literal 0x1 008a 00d9 | | Load_Top At_Offset_1 008b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 008c 589f |X | Indirect_Literal Float,0x12c,42.0 008d 00d9 | | Load_Top At_Offset_1 008e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 008f 58a0 |X | Indirect_Literal Float,0x130,59.4 0090 00d9 | | Load_Top At_Offset_1 0091 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0092 0129 | ) | Execute Any,Make_Visible 0093 c22a | * | Store 0x1,0x2a 0094 e216 | | Load 0x1,0x16 0095 0322 | " | Declare_Variable Record 0096 4801 |H | Short_Literal 0x1 0097 00d9 | | Load_Top At_Offset_1 0098 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0099 588e |X | Indirect_Literal Float,0x128,29.7 009a 00d9 | | Load_Top At_Offset_1 009b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 009c 588f |X | Indirect_Literal Float,0x12c,42.0 009d 00d9 | | Load_Top At_Offset_1 009e 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 009f 0129 | ) | Execute Any,Make_Visible 00a0 c22b | + | Store 0x1,0x2b 00a1 e216 | | Load 0x1,0x16 00a2 0322 | " | Declare_Variable Record 00a3 4801 |H | Short_Literal 0x1 00a4 00d9 | | Load_Top At_Offset_1 00a5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00a6 587d |X} | Indirect_Literal Float,0x124,21.0 00a7 00d9 | | Load_Top At_Offset_1 00a8 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00a9 587e |X~ | Indirect_Literal Float,0x128,29.7 00aa 00d9 | | Load_Top At_Offset_1 00ab 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00ac 0129 | ) | Execute Any,Make_Visible 00ad c22c | , | Store 0x1,0x2c 00ae e216 | | Load 0x1,0x16 00af 0322 | " | Declare_Variable Record 00b0 4801 |H | Short_Literal 0x1 00b1 00d9 | | Load_Top At_Offset_1 00b2 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00b3 586c |Xl | Indirect_Literal Float,0x120,14.799999999999999 00b4 00d9 | | Load_Top At_Offset_1 00b5 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00b6 586d |Xm | Indirect_Literal Float,0x124,21.0 00b7 00d9 | | Load_Top At_Offset_1 00b8 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00b9 0129 | ) | Execute Any,Make_Visible 00ba c22d | - | Store 0x1,0x2d 00bb e216 | | Load 0x1,0x16 00bc 0322 | " | Declare_Variable Record 00bd 4800 |H | Short_Literal 0x0 00be 00d9 | | Load_Top At_Offset_1 00bf 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00c0 585b |X[ | Indirect_Literal Float,0x11c,8.5 00c1 00d9 | | Load_Top At_Offset_1 00c2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00c3 5854 |XT | Indirect_Literal Float,0x118,11.0 00c4 00d9 | | Load_Top At_Offset_1 00c5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00c6 0129 | ) | Execute Any,Make_Visible 00c7 c22e | . | Store 0x1,0x2e 00c8 e216 | | Load 0x1,0x16 00c9 0322 | " | Declare_Variable Record 00ca 4800 |H | Short_Literal 0x0 00cb 00d9 | | Load_Top At_Offset_1 00cc 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00cd 584e |XN | Indirect_Literal Float,0x11c,8.5 00ce 00d9 | | Load_Top At_Offset_1 00cf 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00d0 5843 |XC | Indirect_Literal Float,0x114,14.0 00d1 00d9 | | Load_Top At_Offset_1 00d2 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00d3 0129 | ) | Execute Any,Make_Visible 00d4 c22f | / | Store 0x1,0x2f 00d5 e217 | | Load 0x1,0x17 00d6 0322 | " | Declare_Variable Record 00d7 4800 |H | Short_Literal 0x0 00d8 00d9 | | Load_Top At_Offset_1 00d9 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00da 5835 |X5 | Indirect_Literal Float,0x110,1.0 00db 00d9 | | Load_Top At_Offset_1 00dc 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00dd 5832 |X2 | Indirect_Literal Float,0x110,1.0 00de 00d9 | | Load_Top At_Offset_1 00df 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00e0 582f |X/ | Indirect_Literal Float,0x110,1.0 00e1 00d9 | | Load_Top At_Offset_1 00e2 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 00e3 582c |X, | Indirect_Literal Float,0x110,1.0 00e4 00d9 | | Load_Top At_Offset_1 00e5 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 00e6 0129 | ) | Execute Any,Make_Visible 00e7 c238 | 8 | Store 0x1,0x38 00e8 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated 00ea c242 | B | Store 0x1,0x42 00eb 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated 00ed c237 | 7 | Store 0x1,0x37 00ee 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated 00f0 c243 | C | Store 0x1,0x43 00f1 00bf | | Action Accept_Activation 00f2 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 00f3 00c7 | | Action Elaborate_Subprogram 00f4 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27 00f5 00c7 | | Action Elaborate_Subprogram 00f6 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a 00f7 00c7 | | Action Elaborate_Subprogram 00f8 1d42 | B | Execute_Immediate Reference_Lex_1,0x42 00f9 00c7 | | Action Elaborate_Subprogram 00fa 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37 00fb 00c7 | | Action Elaborate_Subprogram 00fc 1d43 | C | Execute_Immediate Reference_Lex_1,0x43 00fd 00c7 | | Action Elaborate_Subprogram 00fe BODY_0008: 00fe 00bc | | Action Signal_Activated 00ff 00bb | | Action Signal_Completion 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 e5f6 | | Load 0x2,-0xa 0104 e5f7 | | Load 0x2,-0x9 0105 e5f8 | | Load 0x2,-0x8 0106 e5f9 | | Load 0x2,-0x7 0107 e5fa | | Load 0x2,-0x6 0108 e5fb | | Load 0x2,-0x5 0109 e5fc | | Load 0x2,-0x4 010a e5fd | | Load 0x2,-0x3 010b e5fe | | Load 0x2,-0x2 010c e5ff | | Load 0x2,-0x1 010d 8001 | | Call 0x0,0x1 010e 450b |E | Exit_Suprogram New_Top_Offset 0xb 010f 0000 | | .XXX[0x1] 0110 3ff0 0000 |? | .DBL 1.0 0112 0000 0000 | | 0114 402c 0000 |@, | .DBL 14.0 0116 0000 0000 | | 0118 4026 0000 |@& | .DBL 11.0 011a 0000 0000 | | 011c 4021 0000 |@! | .DBL 8.5 011e 0000 0000 | | 0120 402d 9999 |@- | .DBL 14.799999999999999 0122 9999 9999 | | 0124 4035 0000 |@5 | .DBL 21.0 0126 0000 0000 | | 0128 403d b333 |@= 3| .DBL 29.7 012a 3333 3333 |3333| 012c 4045 0000 |@E | .DBL 42.0 012e 0000 0000 | | 0130 404d b333 |@M 3| .DBL 59.4 0132 3333 3333 |3333| 0134 405d b999 |@] | .DBL 118.89999999999999 0136 9999 9999 | | 0138 4055 0666 |@U f| .DBL 84.1 013a 6666 6666 |ffff| 013c 0000 0000 | | .BLANK 0000[0x4] 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0143 | C | .CONST 0x0143 ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0001 | | .CONST 0x0001 ; Number of locals 0143 BODY_0140: 0143 INIT_0140: 0143 e5f6 | | Load 0x2,-0xa 0144 e5f7 | | Load 0x2,-0x9 0145 e5f8 | | Load 0x2,-0x8 0146 e5f9 | | Load 0x2,-0x7 0147 e5fa | | Load 0x2,-0x6 0148 e5fb | | Load 0x2,-0x5 0149 e5fc | | Load 0x2,-0x4 014a e5fd | | Load 0x2,-0x3 014b e5fe | | Load 0x2,-0x2 014c e5ff | | Load 0x2,-0x1 014d 8002 | | Call 0x0,0x2 014e 450b |E | Exit_Suprogram New_Top_Offset 0xb 014f 0000 | | .XXX[0x1] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0153 | S | .CONST 0x0153 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0001 | | .CONST 0x0001 ; Number of locals 0153 BODY_0150: 0153 INIT_0150: 0153 e5fd | | Load 0x2,-0x3 0154 e5fe | | Load 0x2,-0x2 0155 e5ff | | Load 0x2,-0x1 0156 8003 | | Call 0x0,0x3 0157 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 015b | [ | .CONST 0x015b ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0001 | | .CONST 0x0001 ; Number of locals 015b BODY_0158: 015b INIT_0158: 015b 4607 |F | Jump_Case 0x8 015c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 015d 7806 |x | Jump 0x164 ; case 0x1 015e 7809 |x | Jump 0x168 ; case 0x2 015f 780d |x | Jump 0x16d ; case 0x3 0160 7810 |x | Jump 0x171 ; case 0x4 0161 7811 |x | Jump 0x173 ; case 0x5 0162 7812 |x | Jump 0x175 ; case 0x6 0163 7815 |x | Jump 0x179 ; case 0x7 0164 00da | | Load_Top At_Offset_2 0165 0091 0249 | I| Action Push_String_Extended_Indexed,0x249 ; "BEST" 0167 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0168 00db | | Load_Top At_Offset_3 0169 00db | | Load_Top At_Offset_3 016a 00e0 | | Load_Encached Standard_Cache 016b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 016c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 016d 00da | | Load_Top At_Offset_2 016e 00e0 | | Load_Encached Standard_Cache 016f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0170 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0171 00db | | Load_Top At_Offset_3 0172 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0173 00db | | Load_Top At_Offset_3 0174 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0175 e21e | | Load 0x1,0x1e 0176 00dc | | Load_Top At_Offset_4 0177 0267 | g | Execute Discrete,Predecessor 0178 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0179 e21e | | Load 0x1,0x1e 017a 00dc | | Load_Top At_Offset_4 017b 0268 | h | Execute Discrete,Successor 017c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 017d 0000 0000 | | .XXX[0x3] 017f 0000 | | 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0183 | | .CONST 0x0183 ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0001 | | .CONST 0x0001 ; Number of locals 0183 BODY_0180: 0183 INIT_0180: 0183 4607 |F | Jump_Case 0x8 0184 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0185 7806 |x | Jump 0x18c ; case 0x1 0186 7809 |x | Jump 0x190 ; case 0x2 0187 780d |x | Jump 0x195 ; case 0x3 0188 7810 |x | Jump 0x199 ; case 0x4 0189 7811 |x | Jump 0x19b ; case 0x5 018a 7812 |x | Jump 0x19d ; case 0x6 018b 7815 |x | Jump 0x1a1 ; case 0x7 018c 00da | | Load_Top At_Offset_2 018d 0091 024c | L| Action Push_String_Extended_Indexed,0x24c ; "INCHES" 018f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0190 00db | | Load_Top At_Offset_3 0191 00db | | Load_Top At_Offset_3 0192 00e0 | | Load_Encached Standard_Cache 0193 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0194 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0195 00da | | Load_Top At_Offset_2 0196 00e0 | | Load_Encached Standard_Cache 0197 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0198 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0199 00db | | Load_Top At_Offset_3 019a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 019b 00db | | Load_Top At_Offset_3 019c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 019d e241 | A | Load 0x1,0x41 019e 00dc | | Load_Top At_Offset_4 019f 0267 | g | Execute Discrete,Predecessor 01a0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01a1 e241 | A | Load 0x1,0x41 01a2 00dc | | Load_Top At_Offset_4 01a3 0268 | h | Execute Discrete,Successor 01a4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01a5 0000 0000 | | .XXX[0x3] 01a7 0000 | | 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01ab | | .CONST 0x01ab ; Address of begin 01a9 0004 | | .CONST 0x0004 ; Address of exception handler 01aa 0001 | | .CONST 0x0001 ; Number of locals 01ab BODY_01a8: 01ab INIT_01a8: 01ab e5e9 | | Load 0x2,-0x17 01ac e5ea | | Load 0x2,-0x16 01ad e5eb | | Load 0x2,-0x15 01ae e5ec | | Load 0x2,-0x14 01af e5ed | | Load 0x2,-0x13 01b0 e5ee | | Load 0x2,-0x12 01b1 e5ef | | Load 0x2,-0x11 01b2 e5f0 | | Load 0x2,-0x10 01b3 e5f1 | | Load 0x2,-0xf 01b4 e5f2 | | Load 0x2,-0xe 01b5 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 01b6 e5f2 | | Load 0x2,-0xe 01b7 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 01b8 e5f2 | | Load 0x2,-0xe 01b9 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01ba e5f2 | | Load 0x2,-0xe 01bb 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01bc e5f3 | | Load 0x2,-0xd 01bd 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01be e5f3 | | Load 0x2,-0xd 01bf 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01c0 e5f3 | | Load 0x2,-0xd 01c1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01c2 e241 | A | Load 0x1,0x41 01c3 011c | | Execute Any,Convert_Unchecked 01c4 1c01 | | Execute_Immediate Run_Utility,0x1 01c5 e5f4 | | Load 0x2,-0xc 01c6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01c7 e5f4 | | Load 0x2,-0xc 01c8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01c9 e5f5 | | Load 0x2,-0xb 01ca e5f6 | | Load 0x2,-0xa 01cb e5f7 | | Load 0x2,-0x9 01cc e5f8 | | Load 0x2,-0x8 01cd e5f9 | | Load 0x2,-0x7 01ce e21e | | Load 0x1,0x1e 01cf 011c | | Execute Any,Convert_Unchecked 01d0 1c01 | | Execute_Immediate Run_Utility,0x1 01d1 e5fa | | Load 0x2,-0x6 01d2 e5fb | | Load 0x2,-0x5 01d3 e5fc | | Load 0x2,-0x4 01d4 e5fd | | Load 0x2,-0x3 01d5 e5fe | | Load 0x2,-0x2 01d6 e5ff | | Load 0x2,-0x1 01d7 8004 | | Call 0x0,0x4 01d8 4518 |E | Exit_Suprogram New_Top_Offset 0x18 01d9 0000 0000 | | .BLANK 0000[0x7] 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01e3 | | .CONST 0x01e3 ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0001 | | .CONST 0x0001 ; Number of locals 01e3 BODY_01e0: 01e3 INIT_01e0: 01e3 e5f9 | | Load 0x2,-0x7 01e4 4806 |H | Short_Literal 0x6 01e5 0092 0250 | P| Action Push_String_Extended,0x250 ; "Helvetica" 01e7 480e |H | Short_Literal 0xe 01e8 0092 0250 | P| Action Push_String_Extended,0x250 ; "Helvetica" 01ea 480a |H | Short_Literal 0xa 01eb 0092 0251 | Q| Action Push_String_Extended,0x251 ; "Helvetica-Oblique" 01ed 480a |H | Short_Literal 0xa 01ee 0092 0250 | P| Action Push_String_Extended,0x250 ; "Helvetica" 01f0 581f |X | Indirect_Literal Float,0x210,1.0 01f1 581e |X | Indirect_Literal Float,0x210,1.0 01f2 581d |X | Indirect_Literal Float,0x210,1.0 01f3 581c |X | Indirect_Literal Float,0x210,1.0 01f4 5817 |X | Indirect_Literal Float,0x20c,11.0 01f5 5812 |X | Indirect_Literal Float,0x208,8.5 01f6 0092 024c | L| Action Push_String_Extended,0x24c ; "INCHES" 01f8 4864 |Hd | Short_Literal 0x64 01f9 4832 |H2 | Short_Literal 0x32 01fa 4800 |H | Short_Literal 0x0 01fb 4800 |H | Short_Literal 0x0 01fc 4800 |H | Short_Literal 0x0 01fd 4800 |H | Short_Literal 0x0 01fe 0092 0249 | I| Action Push_String_Extended,0x249 ; "BEST" 0200 e5fa | | Load 0x2,-0x6 0201 e5fb | | Load 0x2,-0x5 0202 e5fc | | Load 0x2,-0x4 0203 e5fd | | Load 0x2,-0x3 0204 e5fe | | Load 0x2,-0x2 0205 e5ff | | Load 0x2,-0x1 0206 8004 | | Call 0x0,0x4 0207 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0208 4021 0000 |@! | .DBL 8.5 020a 0000 0000 | | 020c 4026 0000 |@& | .DBL 11.0 020e 0000 0000 | | 0210 3ff0 0000 |? | .DBL 1.0 0212 0000 0000 | | 0214 0000 0000 | | .BLANK 0000[0x4] 0218 ; -------------------------------------------------------------------------------------- 0218 ; SUBPROGRAM 0218 ; -------------------------------------------------------------------------------------- 0218 021b | | .CONST 0x021b ; Address of begin 0219 0004 | | .CONST 0x0004 ; Address of exception handler 021a 0001 | | .CONST 0x0001 ; Number of locals 021b BODY_0218: 021b INIT_0218: 021b e5e9 | | Load 0x2,-0x17 021c e5ea | | Load 0x2,-0x16 021d e5eb | | Load 0x2,-0x15 021e e5ec | | Load 0x2,-0x14 021f e5ed | | Load 0x2,-0x13 0220 e5ee | | Load 0x2,-0x12 0221 e5ef | | Load 0x2,-0x11 0222 e5f0 | | Load 0x2,-0x10 0223 e5f1 | | Load 0x2,-0xf 0224 e5f2 | | Load 0x2,-0xe 0225 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0226 e5f2 | | Load 0x2,-0xe 0227 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0228 e5f2 | | Load 0x2,-0xe 0229 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 022a e5f2 | | Load 0x2,-0xe 022b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 022c e5f3 | | Load 0x2,-0xd 022d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 022e e5f3 | | Load 0x2,-0xd 022f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0230 e5f3 | | Load 0x2,-0xd 0231 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0232 e241 | A | Load 0x1,0x41 0233 011c | | Execute Any,Convert_Unchecked 0234 1c01 | | Execute_Immediate Run_Utility,0x1 0235 e5f4 | | Load 0x2,-0xc 0236 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0237 e5f4 | | Load 0x2,-0xc 0238 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0239 e5f5 | | Load 0x2,-0xb 023a e5f6 | | Load 0x2,-0xa 023b e5f7 | | Load 0x2,-0x9 023c e5f8 | | Load 0x2,-0x8 023d e5f9 | | Load 0x2,-0x7 023e e21e | | Load 0x1,0x1e 023f 011c | | Execute Any,Convert_Unchecked 0240 1c01 | | Execute_Immediate Run_Utility,0x1 0241 e5fa | | Load 0x2,-0x6 0242 e5fb | | Load 0x2,-0x5 0243 e5fc | | Load 0x2,-0x4 0244 e5fd | | Load 0x2,-0x3 0245 e5fe | | Load 0x2,-0x2 0246 e5ff | | Load 0x2,-0x1 0247 8005 | | Call 0x0,0x5 0248 4518 |E | Exit_Suprogram New_Top_Offset 0x18 0249 ; -------------------------------------------------------------------------------------- 0249 ; STRING TABLE 0249 ; -------------------------------------------------------------------------------------- 0249 0014 | | .STRTAB 0x0014->0x0253 ; "BEST" 024a 0016 | | .STRTAB 0x0016->0x0255 ; "PORTRAIT" 024b 001c | | .STRTAB 0x001c->0x0259 ; "LANDSCAPE" 024c 0023 | # | .STRTAB 0x0023->0x025d ; "INCHES" 024d 0027 | ' | .STRTAB 0x0027->0x0260 ; "CENTIMETERS" 024e 0030 | 0 | .STRTAB 0x0030->0x0266 ; "PICAS" 024f 0033 | 3 | .STRTAB 0x0033->0x0268 ; "POINTS" 0250 0037 | 7 | .STRTAB 0x0037->0x026b ; "Helvetica" 0251 003e | > | .STRTAB 0x003e->0x0270 ; "Helvetica-Oblique" 0252 004d | M | .STREND 0x004d->0x0278 0253 4245 5354 |BEST| .STRTAB_STRINGS 0279 0000 0000 | | .BLANK 0000[0x7] 0280 ; -------------------------------------------------------------------------------------- 0280 ; Debug Table 0280 ; -------------------------------------------------------------------------------------- 0280 0004 0014 | | .DEBUG4 0x0004,0x0014,0x1b62,0x0000,0x0001,0x0000 0286 0000 0000 | | .BLANK 0000[0xd5] 035b 0001 | | .XXX[0x1] 035c 0000 0000 | | .BLANK 0000[0xa4]