|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 5120 (0x1400)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0a7cf5
└─⟦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 09c8 | | .CONST 0x09c8 ; 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 8006 | | .CONST 0x8006 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 011c | | .CONST 0x011c ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0041 | A | .CONST 0x0041 ; Number of locals
000b INIT_0008:
000b 00e9 | | Load_Encached String_Cache
000c 0129 | ) | Execute Any,Make_Visible
000d 4800 |H | Short_Literal 0x0
000e 4967 |Ig | Short_Literal 0x167
000f 00e3 | | Load_Encached Natural_Cache
0010 03f9 | | Declare_Type Discrete,Constrained,Visible
0011 4800 |H | Short_Literal 0x0
0012 6129 |a) | Indirect_Literal Discrete,0x13c,{0x00000000, 0x00002710}
0013 00e3 | | Load_Encached Natural_Cache
0014 03f9 | | Declare_Type Discrete,Constrained,Visible
0015 5922 |Y" | Indirect_Literal Float,0x138,-100.0
0016 591d |Y | Indirect_Literal Float,0x134,100.0
0017 00e6 | | Load_Encached Float_Cache
0018 03e4 | | Declare_Type Float,Constrained,Visible
0019 029f 0123 | #| Declare_Subprogram INIT_0120,For_Call
001b 00d9 | | Load_Top At_Offset_1
001c 012a | * | Execute Any,Change_Utility
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 4802 |H | Short_Literal 0x2
0041 032b | + | Declare_Type Record,Incomplete,Visible
0042 c222 | " | Store 0x1,0x22
0043 4805 |H | Short_Literal 0x5
0044 032b | + | Declare_Type Record,Incomplete,Visible
0045 c223 | # | Store 0x1,0x23
0046 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated
0048 c224 | $ | Store 0x1,0x24
0049 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated
004b c225 | % | Store 0x1,0x25
004c 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated
004e c226 | & | Store 0x1,0x26
004f 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated
0051 c227 | ' | Store 0x1,0x27
0052 029a 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call,Visible,Unelaborated
0054 c228 | ( | Store 0x1,0x28
0055 029a 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call,Visible,Unelaborated
0057 c229 | ) | Store 0x1,0x29
0058 029a 02f3 | | Declare_Subprogram INIT_02f0,For_Outer_Call,Visible,Unelaborated
005a c22a | * | Store 0x1,0x2a
005b 029a 0303 | | Declare_Subprogram INIT_0300,For_Outer_Call,Visible,Unelaborated
005d c22b | + | Store 0x1,0x2b
005e 029a 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call,Visible,Unelaborated
0060 c22c | , | Store 0x1,0x2c
0061 029a 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call,Visible,Unelaborated
0063 c22d | - | Store 0x1,0x2d
0064 029a 0333 | 3| Declare_Subprogram INIT_0330,For_Outer_Call,Visible,Unelaborated
0066 c22e | . | Store 0x1,0x2e
0067 029a 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call,Visible,Unelaborated
0069 c22f | / | Store 0x1,0x2f
006a 029a 0383 | | Declare_Subprogram INIT_0380,For_Outer_Call,Visible,Unelaborated
006c c230 | 0 | Store 0x1,0x30
006d 4800 |H | Short_Literal 0x0
006e 4807 |H | Short_Literal 0x7
006f 029f 03c3 | | Declare_Subprogram INIT_03c0,For_Call
0071 03fd | | Declare_Type Discrete,Defined
0072 c211 | | Store 0x1,0x11
0073 4804 |H | Short_Literal 0x4
0074 4807 |H | Short_Literal 0x7
0075 e211 | | Load 0x1,0x11
0076 03f8 | | Declare_Type Discrete,Constrained
0077 c212 | | Store 0x1,0x12
0078 4804 |H | Short_Literal 0x4
0079 4807 |H | Short_Literal 0x7
007a e210 | | Load 0x1,0x10
007b 02a0 | | Declare_Subprogram Null_Subprogram
007c 4801 |H | Short_Literal 0x1
007d 035d | ] | Declare_Type Array,Defined
007e c21f | | Store 0x1,0x1f
007f 00e1 | | Load_Encached Boolean_Cache
0080 e001 | | Load 0x0,0x1
0081 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0082 e20e | | Load 0x1,0xe
0083 e20f | | Load 0x1,0xf
0084 e21f | | Load 0x1,0x1f
0085 029f 073b | ;| Declare_Subprogram INIT_0738,For_Call
0087 e223 | # | Load 0x1,0x23
0088 0326 | & | Complete_Type Record,By_Defining
0089 e002 | | Load 0x0,0x2
008a e003 | | Load 0x0,0x3
008b 4825 |H% | Short_Literal 0x25
008c e001 | | Load 0x0,0x1
008d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
008e e223 | # | Load 0x1,0x23
008f e001 | | Load 0x0,0x1
0090 1912 | | Execute Package,Field_Reference,Field_Number 0x12
0091 e004 | | Load 0x0,0x4
0092 0387 | | Declare_Variable Package
0093 00d8 | | Load_Top At_Offset_0
0094 020f | | Execute Module,Activate
0095 c233 | 3 | Store 0x1,0x33
0096 00d8 | | Load_Top At_Offset_0
0097 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0098 e001 | | Load 0x0,0x1
0099 1b0f | | Execute Package,Field_Read,Field_Number 0xf
009a 029f 0753 | S| Declare_Subprogram INIT_0750,For_Call
009c e222 | " | Load 0x1,0x22
009d 0326 | & | Complete_Type Record,By_Defining
009e 00bf | | Action Accept_Activation
009f e005 | | Load 0x0,0x5
00a0 e006 | | Load 0x0,0x6
00a1 00e6 | | Load_Encached Float_Cache
00a2 e007 | | Load 0x0,0x7
00a3 1b79 | y | Execute Package,Field_Read,Field_Number 0x79
00a4 0387 | | Declare_Variable Package
00a5 00d8 | | Load_Top At_Offset_0
00a6 020f | | Execute Module,Activate
00a7 e008 | | Load 0x0,0x8
00a8 e009 | | Load 0x0,0x9
00a9 4850 |HP | Short_Literal 0x50
00aa e00a | | Load 0x0,0xa
00ab 0387 | | Declare_Variable Package
00ac 00d8 | | Load_Top At_Offset_0
00ad 020f | | Execute Module,Activate
00ae e21f | | Load 0x1,0x1f
00af 0337 | 7 | Declare_Variable Array
00b0 00d8 | | Load_Top At_Offset_0
00b1 0335 | 5 | Declare_Variable Array,Duplicate
00b2 00cd | | Action Spare6_Action
00b3 587c |X| | Indirect_Literal Float,0x130,8.5
00b4 4804 |H | Short_Literal 0x4
00b5 00da | | Load_Top At_Offset_2
00b6 01d6 | | Execute Vector,Field_Write
00b7 5874 |Xt | Indirect_Literal Float,0x12c,6.5
00b8 4805 |H | Short_Literal 0x5
00b9 00da | | Load_Top At_Offset_2
00ba 01d6 | | Execute Vector,Field_Write
00bb 586c |Xl | Indirect_Literal Float,0x128,0.25
00bc 4806 |H | Short_Literal 0x6
00bd 00da | | Load_Top At_Offset_2
00be 01d6 | | Execute Vector,Field_Write
00bf 5868 |Xh | Indirect_Literal Float,0x128,0.25
00c0 4807 |H | Short_Literal 0x7
00c1 00da | | Load_Top At_Offset_2
00c2 01d6 | | Execute Vector,Field_Write
00c3 00d9 | | Load_Top At_Offset_1
00c4 01d4 | | Execute Vector,Structure_Write
00c5 e223 | # | Load 0x1,0x23
00c6 0322 | " | Declare_Variable Record
00c7 4800 |H | Short_Literal 0x0
00c8 00d9 | | Load_Top At_Offset_1
00c9 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00ca e001 | | Load 0x0,0x1
00cb 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00cc e223 | # | Load 0x1,0x23
00cd 3001 |0 | Execute Record,Field_Type,Field_Number 0x1
00ce 0119 | | Execute Any,Check_In_Formal_Type
00cf 00d9 | | Load_Top At_Offset_1
00d0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00d1 4800 |H | Short_Literal 0x0
00d2 00d9 | | Load_Top At_Offset_1
00d3 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00d4 4864 |Hd | Short_Literal 0x64
00d5 00d9 | | Load_Top At_Offset_1
00d6 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
00d7 00d9 | | Load_Top At_Offset_1
00d8 e223 | # | Load 0x1,0x23
00d9 3004 |0 | Execute Record,Field_Type,Field_Number 0x4
00da 0119 | | Execute Any,Check_In_Formal_Type
00db 00d9 | | Load_Top At_Offset_1
00dc 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
00dd e001 | | Load 0x0,0x1
00de 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00df 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00e0 e00b | | Load 0x0,0xb
00e1 1916 | | Execute Package,Field_Reference,Field_Number 0x16
00e2 0007 | | Action Break_Optional
00e3 029d 03eb | | Declare_Subprogram INIT_03e8,For_Outer_Call
00e5 029d 03fb | | Declare_Subprogram INIT_03f8,For_Outer_Call
00e7 029d 040b | | Declare_Subprogram INIT_0408,For_Outer_Call
00e9 029d 0423 | #| Declare_Subprogram INIT_0420,For_Outer_Call
00eb e00c | | Load 0x0,0xc
00ec e00d | | Load 0x0,0xd
00ed e211 | | Load 0x1,0x11
00ee 4800 |H | Short_Literal 0x0
00ef 4801 |H | Short_Literal 0x1
00f0 4807 |H | Short_Literal 0x7
00f1 0092 076d | m| Action Push_String_Extended,0x76d ; "Key=Directory,Rotation|Scale=Integer,Others=Float"
00f3 0092 076e | n| Action Push_String_Extended,0x76e ; "Rotation=0,Scale=100,Height=8.5,Width=6.5,Height_Offset|Width_Offset=0.25"
00f5 00ea | | Load_Encached Null_String_Cache
00f6 4801 |H | Short_Literal 0x1
00f7 4807 |H | Short_Literal 0x7
00f8 e00e | | Load 0x0,0xe
00f9 0387 | | Declare_Variable Package
00fa 00d8 | | Load_Top At_Offset_0
00fb 020f | | Execute Module,Activate
00fc 029d 042b | +| Declare_Subprogram INIT_0428,For_Outer_Call
00fe 029d 0443 | C| Declare_Subprogram INIT_0440,For_Outer_Call
0100 029d 045b | [| Declare_Subprogram INIT_0458,For_Outer_Call
0102 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
0103 00c7 | | Action Elaborate_Subprogram
0104 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
0105 00c7 | | Action Elaborate_Subprogram
0106 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
0107 00c7 | | Action Elaborate_Subprogram
0108 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
0109 00c7 | | Action Elaborate_Subprogram
010a 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
010b 00c7 | | Action Elaborate_Subprogram
010c 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
010d 00c7 | | Action Elaborate_Subprogram
010e 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
010f 00c7 | | Action Elaborate_Subprogram
0110 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
0111 00c7 | | Action Elaborate_Subprogram
0112 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
0113 00c7 | | Action Elaborate_Subprogram
0114 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
0115 00c7 | | Action Elaborate_Subprogram
0116 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e
0117 00c7 | | Action Elaborate_Subprogram
0118 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
0119 00c7 | | Action Elaborate_Subprogram
011a 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
011b 00c7 | | Action Elaborate_Subprogram
011c BODY_0008:
011c 00bc | | Action Signal_Activated
011d 00bb | | Action Signal_Completion
011e 0000 0000 | | .XXX[0x2]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123 | # | .CONST 0x0123 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0001 | | .CONST 0x0001 ; Number of locals
0123 BODY_0120:
0123 INIT_0120:
0123 4601 |F | Jump_Case 0x2
0124 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0125 7800 |x | Jump 0x126 ; case 0x1
0126 4805 |H | Short_Literal 0x5
0127 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0128 3fd0 0000 |? | .DBL 0.25
012a 0000 0000 | |
012c 401a 0000 |@ | .DBL 6.5
012e 0000 0000 | |
0130 4021 0000 |@! | .DBL 8.5
0132 0000 0000 | |
0134 4059 0000 |@Y | .DBL 100.0
0136 0000 0000 | |
0138 c059 0000 | Y | .DBL -100.0
013a 0000 0000 | |
013c 0000 0000 | | .LITERAL {0x00000000, 0x00002710}
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 e237 | 7 | Load 0x1,0x37
0144 00ca | | Action Exit_Nullary_Function
0145 0000 0000 | | .XXX[0x3]
0147 0000 | |
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b | K | .CONST 0x014b ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0001 | | .CONST 0x0001 ; Number of locals
014b BODY_0148:
014b INIT_0148:
014b 00da | | Load_Top At_Offset_2
014c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
014d 0f00 | | Execute_Immediate Equal,0x0
014e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
014f 0000 | | .XXX[0x1]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0178 | x | .CONST 0x0178 ; Address of begin
0151 0232 | 2 | .CONST 0x0232 ; Address of exception handler
0152 000d | | .CONST 0x000d ; Number of locals
0153 INIT_0150:
0153 e001 | | Load 0x0,0x1
0154 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0155 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0156 02c7 | | Declare_Variable Any
0157 e001 | | Load 0x0,0x1
0158 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0159 1819 | | Execute Package,Field_Execute,Field_Number 0x19
015a a402 | | Store_Unchecked 0x2,0x2
015b e007 | | Load 0x0,0x7
015c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
015d 02c7 | | Declare_Variable Any
015e 00d8 | | Load_Top At_Offset_0
015f 1c00 | | Execute_Immediate Run_Utility,0x0
0160 e222 | " | Load 0x1,0x22
0161 0322 | " | Declare_Variable Record
0162 00d8 | | Load_Top At_Offset_0
0163 1c00 | | Execute_Immediate Run_Utility,0x0
0164 00e3 | | Load_Encached Natural_Cache
0165 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0166 e223 | # | Load 0x1,0x23
0167 0322 | " | Declare_Variable Record
0168 00d8 | | Load_Top At_Offset_0
0169 1c00 | | Execute_Immediate Run_Utility,0x0
016a 00e1 | | Load_Encached Boolean_Cache
016b 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
016c e235 | 5 | Load 0x1,0x35
016d 1b11 | | Execute Package,Field_Read,Field_Number 0x11
016e 0092 076f | o| Action Push_String_Extended,0x76f ; "--"
0170 029f 048b | | Declare_Subprogram INIT_0488,For_Call
0172 029f 04ab | | Declare_Subprogram INIT_04a8,For_Call
0174 029f 056b | k| Declare_Subprogram INIT_0568,For_Call
0176 029f 0583 | | Declare_Subprogram INIT_0580,For_Call
0178 BODY_0150:
0178 e5fc | | Load 0x2,-0x4
0179 e00f | | Load 0x0,0xf
017a 1812 | | Execute Package,Field_Execute,Field_Number 0x12
017b c5fc | | Store 0x2,-0x4
017c e233 | 3 | Load 0x1,0x33
017d 1b13 | | Execute Package,Field_Read,Field_Number 0x13
017e e233 | 3 | Load 0x1,0x33
017f 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0180 e404 | | Load 0x2,0x4
0181 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0182 e001 | | Load 0x0,0x1
0183 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0184 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0185 e404 | | Load 0x2,0x4
0186 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0187 0120 | | Execute Any,Is_Value
0188 6803 |h | Jump_Zero 0x18c
0189 e001 | | Load 0x0,0x1
018a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
018b 7802 |x | Jump 0x18e
018c e404 | | Load 0x2,0x4
018d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
018e 60d1 |` | Indirect_Literal Discrete,0x260,{0x00000000, 0x00028000}
018f e010 | | Load 0x0,0x10
0190 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0191 e011 | | Load 0x0,0x11
0192 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0193 e001 | | Load 0x0,0x1
0194 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0195 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0196 e5fe | | Load 0x2,-0x2
0197 e001 | | Load 0x0,0x1
0198 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0199 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
019a e404 | | Load 0x2,0x4
019b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
019c c238 | 8 | Store 0x1,0x38
019d e238 | 8 | Load 0x1,0x38
019e 6817 |h | Jump_Zero 0x1b6
019f e5fc | | Load 0x2,-0x4
01a0 4829 |H) | Short_Literal 0x29
01a1 0092 0770 | p| Action Push_String_Extended,0x770 ; "Unable to resolve IN_CONTEXT parameter "
01a3 e5fe | | Load 0x2,-0x2
01a4 01cc | | Execute Vector,Catenate
01a5 0092 0771 | q| Action Push_String_Extended,0x771 ; " ("
01a7 01cc | | Execute Vector,Catenate
01a8 e5fe | | Load 0x2,-0x2
01a9 e238 | 8 | Load 0x1,0x38
01aa e001 | | Load 0x0,0x1
01ab 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01ac 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01ad 01cc | | Execute Vector,Catenate
01ae 01cb | | Execute Vector,Append
01af e00f | | Load 0x0,0xf
01b0 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a
01b1 e00f | | Load 0x0,0xf
01b2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01b3 c5fc | | Store 0x2,-0x4
01b4 e012 | | Load 0x0,0x12
01b5 0257 | W | Execute Discrete,Raise
01b6 e5ff | | Load 0x2,-0x1
01b7 01db | | Execute Vector,Length
01b8 700a |p | Jump_Nonzero 0x1c3
01b9 e5fc | | Load 0x2,-0x4
01ba 0092 0772 | r| Action Push_String_Extended,0x772 ; "Graphics information file was not specified"
01bc e00f | | Load 0x0,0xf
01bd 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a
01be e00f | | Load 0x0,0xf
01bf 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01c0 c5fc | | Store 0x2,-0x4
01c1 e012 | | Load 0x0,0x12
01c2 0257 | W | Execute Discrete,Raise
01c3 e001 | | Load 0x0,0x1
01c4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01c5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01c6 e402 | | Load 0x2,0x2
01c7 0120 | | Execute Any,Is_Value
01c8 6804 |h | Jump_Zero 0x1cd
01c9 e001 | | Load 0x0,0x1
01ca 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01cb 1b18 | | Execute Package,Field_Read,Field_Number 0x18
01cc 7801 |x | Jump 0x1ce
01cd e402 | | Load 0x2,0x2
01ce 6091 |` | Indirect_Literal Discrete,0x260,{0x00000000, 0x00028000}
01cf e010 | | Load 0x0,0x10
01d0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01d1 e011 | | Load 0x0,0x11
01d2 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01d3 e013 | | Load 0x0,0x13
01d4 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01d5 4801 |H | Short_Literal 0x1
01d6 4800 |H | Short_Literal 0x0
01d7 e011 | | Load 0x0,0x11
01d8 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01d9 e001 | | Load 0x0,0x1
01da 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01db 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01dc e5ff | | Load 0x2,-0x1
01dd e001 | | Load 0x0,0x1
01de 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01df 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01e0 c402 | | Store 0x2,0x2
01e1 c238 | 8 | Store 0x1,0x38
01e2 e402 | | Load 0x2,0x2
01e3 e001 | | Load 0x0,0x1
01e4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01e5 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01e6 680c |h | Jump_Zero 0x1f3
01e7 e5fc | | Load 0x2,-0x4
01e8 0092 0773 | s| Action Push_String_Extended,0x773 ; "Unable to resolve graphics information file "
01ea e5ff | | Load 0x2,-0x1
01eb 01cc | | Execute Vector,Catenate
01ec e00f | | Load 0x0,0xf
01ed 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a
01ee e00f | | Load 0x0,0xf
01ef 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01f0 c5fc | | Store 0x2,-0x4
01f1 e012 | | Load 0x0,0x12
01f2 0257 | W | Execute Discrete,Raise
01f3 e238 | 8 | Load 0x1,0x38
01f4 6817 |h | Jump_Zero 0x20c
01f5 e5fc | | Load 0x2,-0x4
01f6 4829 |H) | Short_Literal 0x29
01f7 0092 0774 | t| Action Push_String_Extended,0x774 ; "Errors detected resolving graphics information file "
01f9 e5ff | | Load 0x2,-0x1
01fa 01cc | | Execute Vector,Catenate
01fb 0092 0771 | q| Action Push_String_Extended,0x771 ; " ("
01fd 01cc | | Execute Vector,Catenate
01fe e5ff | | Load 0x2,-0x1
01ff e238 | 8 | Load 0x1,0x38
0200 e001 | | Load 0x0,0x1
0201 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0202 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0203 01cc | | Execute Vector,Catenate
0204 01cb | | Execute Vector,Append
0205 e00f | | Load 0x0,0xf
0206 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
0207 e00f | | Load 0x0,0xf
0208 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0209 c5fc | | Store 0x2,-0x4
020a e012 | | Load 0x0,0x12
020b 0257 | W | Execute Discrete,Raise
020c 00cf | | Action Mark_Auxiliary
020d 7812 |x | Jump 0x220
020e 840d | | Call 0x2,0xd
020f 840c | | Call 0x2,0xc
0210 e407 | | Load 0x2,0x7
0211 7008 |p | Jump_Nonzero 0x21a
0212 4807 |H | Short_Literal 0x7
0213 0092 0775 | u| Action Push_String_Extended,0x775 ; "Found unexpected End Of File, last graphic was not processed."
0215 840a | | Call 0x2,0xa
0216 e408 | | Load 0x2,0x8
0217 e235 | 5 | Load 0x1,0x35
0218 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0219 c408 | | Store 0x2,0x8
021a e402 | | Load 0x2,0x2
021b e001 | | Load 0x0,0x1
021c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
021d 181d | | Execute Package,Field_Execute,Field_Number 0x1d
021e c402 | | Store 0x2,0x2
021f 00c9 | | Action Pop_Auxiliary_Loop
0220 e402 | | Load 0x2,0x2
0221 e001 | | Load 0x0,0x1
0222 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0223 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0224 6fe9 |o | Jump_Zero 0x20e
0225 00ce | | Action Pop_Auxiliary
0226 e403 | | Load 0x2,0x3
0227 e007 | | Load 0x0,0x7
0228 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0229 6804 |h | Jump_Zero 0x22e
022a e403 | | Load 0x2,0x3
022b e007 | | Load 0x0,0x7
022c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
022d c403 | | Store 0x2,0x3
022e e404 | | Load 0x2,0x4
022f e5fd | | Load 0x2,-0x3
0230 017d | } | Execute Record,Structure_Write
0231 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0232 TRAP_0150:
0232 e012 | | Load 0x0,0x12
0233 010f | | Execute Exception,Equal
0234 680c |h | Jump_Zero 0x241
0235 e404 | | Load 0x2,0x4
0236 e5fd | | Load 0x2,-0x3
0237 017d | } | Execute Record,Structure_Write
0238 e403 | | Load 0x2,0x3
0239 e007 | | Load 0x0,0x7
023a 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
023b 6804 |h | Jump_Zero 0x240
023c e403 | | Load 0x2,0x3
023d e007 | | Load 0x0,0x7
023e 181b | | Execute Package,Field_Execute,Field_Number 0x1b
023f c403 | | Store 0x2,0x3
0240 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0241 e5fc | | Load 0x2,-0x4
0242 4829 |H) | Short_Literal 0x29
0243 0092 0776 | v| Action Push_String_Extended,0x776 ; "Error parsing graphics information file "
0245 e5ff | | Load 0x2,-0x1
0246 01cc | | Execute Vector,Catenate
0247 0092 0771 | q| Action Push_String_Extended,0x771 ; " ("
0249 01cc | | Execute Vector,Catenate
024a e00f | | Load 0x0,0xf
024b 1817 | | Execute Package,Field_Execute,Field_Number 0x17
024c 01cc | | Execute Vector,Catenate
024d 01cb | | Execute Vector,Append
024e e00f | | Load 0x0,0xf
024f 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0250 e00f | | Load 0x0,0xf
0251 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0252 c5fc | | Store 0x2,-0x4
0253 e404 | | Load 0x2,0x4
0254 e5fd | | Load 0x2,-0x3
0255 017d | } | Execute Record,Structure_Write
0256 e403 | | Load 0x2,0x3
0257 e007 | | Load 0x0,0x7
0258 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0259 6804 |h | Jump_Zero 0x25e
025a e403 | | Load 0x2,0x3
025b e007 | | Load 0x0,0x7
025c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
025d c403 | | Store 0x2,0x3
025e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
025f 0000 | | .XXX[0x1]
0260 0000 0000 | | .LITERAL {0x00000000, 0x00028000}
0264 0000 0000 | | .BLANK 0000[0x4]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 0276 | v | .CONST 0x0276 ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 0004 | | .CONST 0x0004 ; Number of locals
026b INIT_0268:
026b e223 | # | Load 0x1,0x23
026c 0322 | " | Declare_Variable Record
026d 00d8 | | Load_Top At_Offset_0
026e 1c00 | | Execute_Immediate Run_Utility,0x0
026f 00e1 | | Load_Encached Boolean_Cache
0270 e001 | | Load 0x0,0x1
0271 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0272 02c7 | | Declare_Variable Any
0273 e001 | | Load 0x0,0x1
0274 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0275 a404 | | Store_Unchecked 0x2,0x4
0276 BODY_0268:
0276 e5fe | | Load 0x2,-0x2
0277 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0278 e233 | 3 | Load 0x1,0x33
0279 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
027a 6802 |h | Jump_Zero 0x27d
027b 8224 | $ | Call 0x1,0x24
027c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
027d e001 | | Load 0x0,0x1
027e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
027f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0280 00d9 | | Load_Top At_Offset_1
0281 0120 | | Execute Any,Is_Value
0282 6803 |h | Jump_Zero 0x286
0283 e001 | | Load 0x0,0x1
0284 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0285 7801 |x | Jump 0x287
0286 00d9 | | Load_Top At_Offset_1
0287 67d8 |g | Indirect_Literal Discrete,0x260,{0x00000000, 0x00028000}
0288 e010 | | Load 0x0,0x10
0289 1b0e | | Execute Package,Field_Read,Field_Number 0xe
028a e011 | | Load 0x0,0x11
028b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
028c e001 | | Load 0x0,0x1
028d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
028e 1816 | | Execute Package,Field_Execute,Field_Number 0x16
028f e5fe | | Load 0x2,-0x2
0290 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0291 e5ff | | Load 0x2,-0x1
0292 823f | ? | Call 0x1,0x3f
0293 e001 | | Load 0x0,0x1
0294 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0295 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0296 c404 | | Store 0x2,0x4
0297 c238 | 8 | Store 0x1,0x38
0298 e238 | 8 | Load 0x1,0x38
0299 6819 |h | Jump_Zero 0x2b3
029a 4800 |H | Short_Literal 0x0
029b 4800 |H | Short_Literal 0x0
029c 4802 |H | Short_Literal 0x2
029d 0092 0777 | w| Action Push_String_Extended,0x777 ; "Unable to resolve "
029f e5ff | | Load 0x2,-0x1
02a0 01cc | | Execute Vector,Catenate
02a1 0092 0778 | x| Action Push_String_Extended,0x778 ; " because "
02a3 01cc | | Execute Vector,Catenate
02a4 e5fe | | Load 0x2,-0x2
02a5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02a6 e5ff | | Load 0x2,-0x1
02a7 823f | ? | Call 0x1,0x3f
02a8 e238 | 8 | Load 0x1,0x38
02a9 e001 | | Load 0x0,0x1
02aa 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02ab 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02ac 01cc | | Execute Vector,Catenate
02ad 0092 0779 | y| Action Push_String_Extended,0x779 ; "Trying to find Graphic File."
02af e00f | | Load 0x0,0xf
02b0 181d | | Execute Package,Field_Execute,Field_Number 0x1d
02b1 8224 | $ | Call 0x1,0x24
02b2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02b3 00e1 | | Load_Encached Boolean_Cache
02b4 00db | | Load_Top At_Offset_3
02b5 00da | | Load_Top At_Offset_2
02b6 e5fe | | Load 0x2,-0x2
02b7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02b8 e233 | 3 | Load 0x1,0x33
02b9 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02ba 00d1 | | Pop_Control Pop_Count_1
02bb 005a | Z | Store_Top Discrete,At_Offset_2
02bc 00d9 | | Load_Top At_Offset_1
02bd 6802 |h | Jump_Zero 0x2c0
02be 00da | | Load_Top At_Offset_2
02bf 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02c0 4800 |H | Short_Literal 0x0
02c1 4800 |H | Short_Literal 0x0
02c2 4806 |H | Short_Literal 0x6
02c3 0092 077a | z| Action Push_String_Extended,0x77a ; "Cannot find "
02c5 e5ff | | Load 0x2,-0x1
02c6 01cc | | Execute Vector,Catenate
02c7 0092 077b | {| Action Push_String_Extended,0x77b ; " in graphics information file "
02c9 01cc | | Execute Vector,Catenate
02ca 00ea | | Load_Encached Null_String_Cache
02cb e00f | | Load 0x0,0xf
02cc 181d | | Execute Package,Field_Execute,Field_Number 0x1d
02cd 8224 | $ | Call 0x1,0x24
02ce 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02cf 0000 | | .XXX[0x1]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d3 | | .CONST 0x02d3 ; Address of begin
02d1 0004 | | .CONST 0x0004 ; Address of exception handler
02d2 0001 | | .CONST 0x0001 ; Number of locals
02d3 BODY_02d0:
02d3 INIT_02d0:
02d3 00da | | Load_Top At_Offset_2
02d4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02d5 6806 |h | Jump_Zero 0x2dc
02d6 00da | | Load_Top At_Offset_2
02d7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02d8 e001 | | Load 0x0,0x1
02d9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02da 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
02db 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02dc 00ea | | Load_Encached Null_String_Cache
02dd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02de 0000 0000 | | .XXX[0x2]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e3 | | .CONST 0x02e3 ; Address of begin
02e1 0004 | | .CONST 0x0004 ; Address of exception handler
02e2 0001 | | .CONST 0x0001 ; Number of locals
02e3 BODY_02e0:
02e3 INIT_02e0:
02e3 00da | | Load_Top At_Offset_2
02e4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02e5 6803 |h | Jump_Zero 0x2e9
02e6 00da | | Load_Top At_Offset_2
02e7 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02e8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02e9 4800 |H | Short_Literal 0x0
02ea 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02eb 0000 0000 | | .BLANK 0000[0x5]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f3 | | .CONST 0x02f3 ; Address of begin
02f1 0004 | | .CONST 0x0004 ; Address of exception handler
02f2 0001 | | .CONST 0x0001 ; Number of locals
02f3 BODY_02f0:
02f3 INIT_02f0:
02f3 00da | | Load_Top At_Offset_2
02f4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02f5 6803 |h | Jump_Zero 0x2f9
02f6 00da | | Load_Top At_Offset_2
02f7 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
02f8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02f9 4864 |Hd | Short_Literal 0x64
02fa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02fb 0000 0000 | | .BLANK 0000[0x5]
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0303 | | .CONST 0x0303 ; Address of begin
0301 0004 | | .CONST 0x0004 ; Address of exception handler
0302 0001 | | .CONST 0x0001 ; Number of locals
0303 BODY_0300:
0303 INIT_0300:
0303 00da | | Load_Top At_Offset_2
0304 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0305 6805 |h | Jump_Zero 0x30b
0306 4804 |H | Short_Literal 0x4
0307 00db | | Load_Top At_Offset_3
0308 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
0309 01d7 | | Execute Vector,Field_Read
030a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
030b 4804 |H | Short_Literal 0x4
030c e236 | 6 | Load 0x1,0x36
030d 01d7 | | Execute Vector,Field_Read
030e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
030f 0000 | | .XXX[0x1]
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0313 | | .CONST 0x0313 ; Address of begin
0311 0004 | | .CONST 0x0004 ; Address of exception handler
0312 0001 | | .CONST 0x0001 ; Number of locals
0313 BODY_0310:
0313 INIT_0310:
0313 00da | | Load_Top At_Offset_2
0314 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0315 6805 |h | Jump_Zero 0x31b
0316 4805 |H | Short_Literal 0x5
0317 00db | | Load_Top At_Offset_3
0318 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
0319 01d7 | | Execute Vector,Field_Read
031a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
031b 4805 |H | Short_Literal 0x5
031c e236 | 6 | Load 0x1,0x36
031d 01d7 | | Execute Vector,Field_Read
031e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
031f 0000 | | .XXX[0x1]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0323 | # | .CONST 0x0323 ; Address of begin
0321 0004 | | .CONST 0x0004 ; Address of exception handler
0322 0001 | | .CONST 0x0001 ; Number of locals
0323 BODY_0320:
0323 INIT_0320:
0323 00da | | Load_Top At_Offset_2
0324 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0325 6805 |h | Jump_Zero 0x32b
0326 4806 |H | Short_Literal 0x6
0327 00db | | Load_Top At_Offset_3
0328 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
0329 01d7 | | Execute Vector,Field_Read
032a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
032b 4806 |H | Short_Literal 0x6
032c e236 | 6 | Load 0x1,0x36
032d 01d7 | | Execute Vector,Field_Read
032e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
032f 0000 | | .XXX[0x1]
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0333 | 3 | .CONST 0x0333 ; Address of begin
0331 0004 | | .CONST 0x0004 ; Address of exception handler
0332 0001 | | .CONST 0x0001 ; Number of locals
0333 BODY_0330:
0333 INIT_0330:
0333 00da | | Load_Top At_Offset_2
0334 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0335 6805 |h | Jump_Zero 0x33b
0336 4807 |H | Short_Literal 0x7
0337 00db | | Load_Top At_Offset_3
0338 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
0339 01d7 | | Execute Vector,Field_Read
033a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
033b 4807 |H | Short_Literal 0x7
033c e236 | 6 | Load 0x1,0x36
033d 01d7 | | Execute Vector,Field_Read
033e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
033f 0000 | | .XXX[0x1]
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 0092 077c | || Action Push_String_Extended,0x77c ; "Valid => "
0345 00db | | Load_Top At_Offset_3
0346 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0347 00e1 | | Load_Encached Boolean_Cache
0348 011c | | Execute Any,Convert_Unchecked
0349 1c01 | | Execute_Immediate Run_Utility,0x1
034a 01cc | | Execute Vector,Catenate
034b e007 | | Load 0x0,0x7
034c 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
034d 0092 077d | }| Action Push_String_Extended,0x77d ; "Key => "
034f 00db | | Load_Top At_Offset_3
0350 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0351 e001 | | Load 0x0,0x1
0352 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0353 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0354 01cc | | Execute Vector,Catenate
0355 e007 | | Load 0x0,0x7
0356 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0357 0092 077e | ~| Action Push_String_Extended,0x77e ; "Rotation => "
0359 00db | | Load_Top At_Offset_3
035a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
035b 823a | : | Call 0x1,0x3a
035c 01cc | | Execute Vector,Catenate
035d e007 | | Load 0x0,0x7
035e 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
035f 0092 077f | | Action Push_String_Extended,0x77f ; "Scale => "
0361 00db | | Load_Top At_Offset_3
0362 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0363 823b | ; | Call 0x1,0x3b
0364 01cc | | Execute Vector,Catenate
0365 e007 | | Load 0x0,0x7
0366 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0367 00cf | | Action Mark_Auxiliary
0368 e21f | | Load 0x1,0x1f
0369 01d9 | | Execute Vector,Reverse_Bounds
036a 0007 | | Action Break_Optional
036b 00d8 | | Load_Top At_Offset_0
036c e211 | | Load 0x1,0x11
036d 011c | | Execute Any,Convert_Unchecked
036e 1c01 | | Execute_Immediate Run_Utility,0x1
036f e00b | | Load 0x0,0xb
0370 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0371 0092 0780 | | Action Push_String_Extended,0x780 ; " => "
0373 01cc | | Execute Vector,Catenate
0374 00d9 | | Load_Top At_Offset_1
0375 e5ff | | Load 0x2,-0x1
0376 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
0377 01d7 | | Execute Vector,Field_Read
0378 823d | = | Call 0x1,0x3d
0379 01cc | | Execute Vector,Catenate
037a e007 | | Load 0x0,0x7
037b 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
037c 00c8 | | Action Pop_Auxiliary_Range
037d 3fed |? | Loop_Increasing 0x36b
037e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
037f 0000 | | .XXX[0x1]
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; --------------------------------------------------------------------------------------
0380 038b | | .CONST 0x038b ; Address of begin
0381 0004 | | .CONST 0x0004 ; Address of exception handler
0382 0004 | | .CONST 0x0004 ; Number of locals
0383 INIT_0380:
0383 e233 | 3 | Load 0x1,0x33
0384 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
0385 0322 | " | Declare_Variable Record
0386 00e1 | | Load_Encached Boolean_Cache
0387 e223 | # | Load 0x1,0x23
0388 0322 | " | Declare_Variable Record
0389 00d8 | | Load_Top At_Offset_0
038a 1c00 | | Execute_Immediate Run_Utility,0x0
038b BODY_0380:
038b 00da | | Load_Top At_Offset_2
038c e5ff | | Load 0x2,-0x1
038d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
038e e233 | 3 | Load 0x1,0x33
038f 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0390 00d1 | | Pop_Control Pop_Count_1
0391 00cf | | Action Mark_Auxiliary
0392 7826 |x& | Jump 0x3b9
0393 4801 |H | Short_Literal 0x1
0394 e007 | | Load 0x0,0x7
0395 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0396 00e1 | | Load_Encached Boolean_Cache
0397 00da | | Load_Top At_Offset_2
0398 e402 | | Load 0x2,0x2
0399 e233 | 3 | Load 0x1,0x33
039a 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
039b e5ff | | Load 0x2,-0x1
039c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
039d e233 | 3 | Load 0x1,0x33
039e 1816 | | Execute Package,Field_Execute,Field_Number 0x16
039f 00d1 | | Pop_Control Pop_Count_1
03a0 005b | [ | Store_Top Discrete,At_Offset_3
03a1 00da | | Load_Top At_Offset_2
03a2 6803 |h | Jump_Zero 0x3a6
03a3 00d9 | | Load_Top At_Offset_1
03a4 822f | / | Call 0x1,0x2f
03a5 780e |x | Jump 0x3b4
03a6 0092 0781 | | Action Push_String_Extended,0x781 ; "*** Could not find key "
03a8 e402 | | Load 0x2,0x2
03a9 e233 | 3 | Load 0x1,0x33
03aa 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
03ab e001 | | Load 0x0,0x1
03ac 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
03ad 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
03ae 01cc | | Execute Vector,Catenate
03af 0092 0782 | | Action Push_String_Extended,0x782 ; " in graphics map!"
03b1 01cc | | Execute Vector,Catenate
03b2 e007 | | Load 0x0,0x7
03b3 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
03b4 00db | | Load_Top At_Offset_3
03b5 e233 | 3 | Load 0x1,0x33
03b6 1820 | | Execute Package,Field_Execute,Field_Number 0x20
03b7 00d1 | | Pop_Control Pop_Count_1
03b8 00c9 | | Action Pop_Auxiliary_Loop
03b9 00db | | Load_Top At_Offset_3
03ba e233 | 3 | Load 0x1,0x33
03bb 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
03bc 6fd6 |o | Jump_Zero 0x393
03bd 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03be 0000 0000 | | .XXX[0x2]
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03c3 | | .CONST 0x03c3 ; Address of begin
03c1 0004 | | .CONST 0x0004 ; Address of exception handler
03c2 0001 | | .CONST 0x0001 ; Number of locals
03c3 BODY_03c0:
03c3 INIT_03c0:
03c3 4607 |F | Jump_Case 0x8
03c4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
03c5 7806 |x | Jump 0x3cc ; case 0x1
03c6 7809 |x | Jump 0x3d0 ; case 0x2
03c7 780d |x | Jump 0x3d5 ; case 0x3
03c8 7810 |x | Jump 0x3d9 ; case 0x4
03c9 7811 |x | Jump 0x3db ; case 0x5
03ca 7812 |x | Jump 0x3dd ; case 0x6
03cb 7815 |x | Jump 0x3e1 ; case 0x7
03cc 00da | | Load_Top At_Offset_2
03cd 0091 0765 | e| Action Push_String_Extended_Indexed,0x765 ; "NIL"
03cf 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
03d0 00db | | Load_Top At_Offset_3
03d1 00db | | Load_Top At_Offset_3
03d2 00e0 | | Load_Encached Standard_Cache
03d3 181b | | Execute Package,Field_Execute,Field_Number 0x1b
03d4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
03d5 00da | | Load_Top At_Offset_2
03d6 00e0 | | Load_Encached Standard_Cache
03d7 181c | | Execute Package,Field_Execute,Field_Number 0x1c
03d8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
03d9 00db | | Load_Top At_Offset_3
03da 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
03db 00db | | Load_Top At_Offset_3
03dc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
03dd e211 | | Load 0x1,0x11
03de 00dc | | Load_Top At_Offset_4
03df 0267 | g | Execute Discrete,Predecessor
03e0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
03e1 e211 | | Load 0x1,0x11
03e2 00dc | | Load_Top At_Offset_4
03e3 0268 | h | Execute Discrete,Successor
03e4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
03e5 0000 0000 | | .XXX[0x3]
03e7 0000 | |
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03eb | | .CONST 0x03eb ; Address of begin
03e9 0004 | | .CONST 0x0004 ; Address of exception handler
03ea 0001 | | .CONST 0x0001 ; Number of locals
03eb BODY_03e8:
03eb INIT_03e8:
03eb 4820 |H | Short_Literal 0x20
03ec 4800 |H | Short_Literal 0x0
03ed 480a |H | Short_Literal 0xa
03ee e5ff | | Load 0x2,-0x1
03ef 8239 | 9 | Call 0x1,0x39
03f0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03f1 0000 0000 | | .BLANK 0000[0x7]
03f8 ; --------------------------------------------------------------------------------------
03f8 ; SUBPROGRAM
03f8 ; --------------------------------------------------------------------------------------
03f8 03fb | | .CONST 0x03fb ; Address of begin
03f9 0004 | | .CONST 0x0004 ; Address of exception handler
03fa 0001 | | .CONST 0x0001 ; Number of locals
03fb BODY_03f8:
03fb INIT_03f8:
03fb 4820 |H | Short_Literal 0x20
03fc 4800 |H | Short_Literal 0x0
03fd 480a |H | Short_Literal 0xa
03fe e5ff | | Load 0x2,-0x1
03ff 8239 | 9 | Call 0x1,0x39
0400 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0401 0000 0000 | | .BLANK 0000[0x7]
0408 ; --------------------------------------------------------------------------------------
0408 ; SUBPROGRAM
0408 ; --------------------------------------------------------------------------------------
0408 0410 | | .CONST 0x0410 ; Address of begin
0409 0004 | | .CONST 0x0004 ; Address of exception handler
040a 0002 | | .CONST 0x0002 ; Number of locals
040b INIT_0408:
040b 4801 |H | Short_Literal 0x1
040c 4805 |H | Short_Literal 0x5
040d 00e9 | | Load_Encached String_Cache
040e 035b | [ | Declare_Type Array,Constrained
040f 0337 | 7 | Declare_Variable Array
0410 BODY_0408:
0410 00d8 | | Load_Top At_Offset_0
0411 4800 |H | Short_Literal 0x0
0412 4802 |H | Short_Literal 0x2
0413 e5ff | | Load 0x2,-0x1
0414 e234 | 4 | Load 0x1,0x34
0415 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0416 00d1 | | Pop_Control Pop_Count_1
0417 00d8 | | Load_Top At_Offset_0
0418 00e9 | | Load_Encached String_Cache
0419 01c6 | | Execute Vector,Convert_To_Formal
041a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
041b 0000 0000 | | .BLANK 0000[0x5]
0420 ; --------------------------------------------------------------------------------------
0420 ; SUBPROGRAM
0420 ; --------------------------------------------------------------------------------------
0420 0423 | # | .CONST 0x0423 ; Address of begin
0421 0004 | | .CONST 0x0004 ; Address of exception handler
0422 0001 | | .CONST 0x0001 ; Number of locals
0423 BODY_0420:
0423 INIT_0420:
0423 00da | | Load_Top At_Offset_2
0424 823c | < | Call 0x1,0x3c
0425 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0426 0000 0000 | | .XXX[0x2]
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 042b | + | .CONST 0x042b ; Address of begin
0429 0004 | | .CONST 0x0004 ; Address of exception handler
042a 0001 | | .CONST 0x0001 ; Number of locals
042b BODY_0428:
042b INIT_0428:
042b 00da | | Load_Top At_Offset_2
042c 01dd | | Execute Vector,First
042d 00db | | Load_Top At_Offset_3
042e 01d7 | | Execute Vector,Field_Read
042f 0f21 | ! | Execute_Immediate Equal,0x21
0430 6802 |h | Jump_Zero 0x433
0431 00da | | Load_Top At_Offset_2
0432 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0433 482e |H. | Short_Literal 0x2e
0434 e5fe | | Load 0x2,-0x2
0435 e001 | | Load 0x0,0x1
0436 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0437 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0438 01cb | | Execute Vector,Append
0439 00db | | Load_Top At_Offset_3
043a 01cc | | Execute Vector,Catenate
043b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
043c 0000 0000 | | .BLANK 0000[0x4]
0440 ; --------------------------------------------------------------------------------------
0440 ; SUBPROGRAM
0440 ; --------------------------------------------------------------------------------------
0440 0443 | C | .CONST 0x0443 ; Address of begin
0441 0004 | | .CONST 0x0004 ; Address of exception handler
0442 0001 | | .CONST 0x0001 ; Number of locals
0443 BODY_0440:
0443 INIT_0440:
0443 00da | | Load_Top At_Offset_2
0444 01dd | | Execute Vector,First
0445 00db | | Load_Top At_Offset_3
0446 01d7 | | Execute Vector,Field_Read
0447 0f21 | ! | Execute_Immediate Equal,0x21
0448 6802 |h | Jump_Zero 0x44b
0449 00da | | Load_Top At_Offset_2
044a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
044b 482e |H. | Short_Literal 0x2e
044c e5fe | | Load 0x2,-0x2
044d 01cb | | Execute Vector,Append
044e 00db | | Load_Top At_Offset_3
044f 01cc | | Execute Vector,Catenate
0450 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0451 0000 0000 | | .BLANK 0000[0x7]
0458 ; --------------------------------------------------------------------------------------
0458 ; SUBPROGRAM
0458 ; --------------------------------------------------------------------------------------
0458 0462 | b | .CONST 0x0462 ; Address of begin
0459 0004 | | .CONST 0x0004 ; Address of exception handler
045a 0003 | | .CONST 0x0003 ; Number of locals
045b INIT_0458:
045b e001 | | Load 0x0,0x1
045c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
045d 02c7 | | Declare_Variable Any
045e 00d8 | | Load_Top At_Offset_0
045f 1c00 | | Execute_Immediate Run_Utility,0x0
0460 e001 | | Load 0x0,0x1
0461 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0462 BODY_0458:
0462 e001 | | Load 0x0,0x1
0463 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0464 00da | | Load_Top At_Offset_2
0465 0120 | | Execute Any,Is_Value
0466 6803 |h | Jump_Zero 0x46a
0467 e001 | | Load 0x0,0x1
0468 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0469 7801 |x | Jump 0x46b
046a 00da | | Load_Top At_Offset_2
046b e5ff | | Load 0x2,-0x1
046c e001 | | Load 0x0,0x1
046d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
046e 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
046f c402 | | Store 0x2,0x2
0470 0059 | Y | Store_Top Discrete,At_Offset_1
0471 00d8 | | Load_Top At_Offset_0
0472 6811 |h | Jump_Zero 0x484
0473 4800 |H | Short_Literal 0x0
0474 4800 |H | Short_Literal 0x0
0475 4802 |H | Short_Literal 0x2
0476 0092 0783 | | Action Push_String_Extended,0x783 ; "Unable to retreive object from iterator because "
0478 e403 | | Load 0x2,0x3
0479 e001 | | Load 0x0,0x1
047a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
047b 011c | | Execute Any,Convert_Unchecked
047c 1c01 | | Execute_Immediate Run_Utility,0x1
047d 01cc | | Execute Vector,Catenate
047e 0092 0784 | | Action Push_String_Extended,0x784 ; "Processing Graphic Information File."
0480 e00f | | Load 0x0,0xf
0481 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0482 e012 | | Load 0x0,0x12
0483 0257 | W | Execute Discrete,Raise
0484 00d9 | | Load_Top At_Offset_1
0485 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0486 0000 0000 | | .XXX[0x2]
0488 ; --------------------------------------------------------------------------------------
0488 ; SUBPROGRAM
0488 ; --------------------------------------------------------------------------------------
0488 048b | | .CONST 0x048b ; Address of begin
0489 0004 | | .CONST 0x0004 ; Address of exception handler
048a 0001 | | .CONST 0x0001 ; Number of locals
048b BODY_0488:
048b INIT_0488:
048b 4800 |H | Short_Literal 0x0
048c 4800 |H | Short_Literal 0x0
048d e7fe | | Load 0x3,-0x2
048e 0092 0785 | | Action Push_String_Extended,0x785 ; "On line "
0490 4820 |H | Short_Literal 0x20
0491 4800 |H | Short_Literal 0x0
0492 480a |H | Short_Literal 0xa
0493 e405 | | Load 0x2,0x5
0494 8239 | 9 | Call 0x1,0x39
0495 01cc | | Execute Vector,Catenate
0496 0092 0786 | | Action Push_String_Extended,0x786 ; ": "
0498 01cc | | Execute Vector,Catenate
0499 e7ff | | Load 0x3,-0x1
049a 01cc | | Execute Vector,Catenate
049b 482e |H. | Short_Literal 0x2e
049c 0092 0787 | | Action Push_String_Extended,0x787 ; "Processing "
049e e403 | | Load 0x2,0x3
049f e007 | | Load 0x0,0x7
04a0 1820 | | Execute Package,Field_Execute,Field_Number 0x20
04a1 01cc | | Execute Vector,Catenate
04a2 01cb | | Execute Vector,Append
04a3 e00f | | Load 0x0,0xf
04a4 181d | | Execute Package,Field_Execute,Field_Number 0x1d
04a5 4503 |E | Exit_Suprogram New_Top_Offset 0x3
04a6 0000 0000 | | .XXX[0x2]
04a8 ; --------------------------------------------------------------------------------------
04a8 ; SUBPROGRAM
04a8 ; --------------------------------------------------------------------------------------
04a8 04c0 | | .CONST 0x04c0 ; Address of begin
04a9 0004 | | .CONST 0x0004 ; Address of exception handler
04aa 0009 | | .CONST 0x0009 ; Number of locals
04ab INIT_04a8:
04ab e001 | | Load 0x0,0x1
04ac 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04ad 1b18 | | Execute Package,Field_Read,Field_Number 0x18
04ae 02c7 | | Declare_Variable Any
04af e001 | | Load 0x0,0x1
04b0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04b1 1819 | | Execute Package,Field_Execute,Field_Number 0x19
04b2 a602 | | Store_Unchecked 0x3,0x2
04b3 e23e | > | Load 0x1,0x3e
04b4 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
04b5 00e1 | | Load_Encached Boolean_Cache
04b6 029f 05d3 | | Declare_Subprogram INIT_05d0,For_Call
04b8 029f 05fb | | Declare_Subprogram INIT_05f8,For_Call
04ba 029f 063b | ;| Declare_Subprogram INIT_0638,For_Call
04bc 029f 0673 | s| Declare_Subprogram INIT_0670,For_Call
04be 029f 06b3 | | Declare_Subprogram INIT_06b0,For_Call
04c0 BODY_04a8:
04c0 00e1 | | Load_Encached Boolean_Cache
04c1 e23e | > | Load 0x1,0x3e
04c2 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
04c3 e7ff | | Load 0x3,-0x1
04c4 e23e | > | Load 0x1,0x3e
04c5 181f | | Execute Package,Field_Execute,Field_Number 0x1f
04c6 c603 | | Store 0x3,0x3
04c7 c604 | | Store 0x3,0x4
04c8 4801 |H | Short_Literal 0x1
04c9 e603 | | Load 0x3,0x3
04ca e23e | > | Load 0x1,0x3e
04cb 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
04cc 7008 |p | Jump_Nonzero 0x4d5
04cd 4807 |H | Short_Literal 0x7
04ce 0092 0788 | | Action Push_String_Extended,0x788 ; "No key specified. Graphic was not processed."
04d0 840a | | Call 0x2,0xa
04d1 8224 | $ | Call 0x1,0x24
04d2 e7fe | | Load 0x3,-0x2
04d3 017d | } | Execute Record,Structure_Write
04d4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04d5 e001 | | Load 0x0,0x1
04d6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04d7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04d8 e602 | | Load 0x3,0x2
04d9 0120 | | Execute Any,Is_Value
04da 6804 |h | Jump_Zero 0x4df
04db e001 | | Load 0x0,0x1
04dc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04dd 1b18 | | Execute Package,Field_Read,Field_Number 0x18
04de 7801 |x | Jump 0x4e0
04df e602 | | Load 0x3,0x2
04e0 6083 |` | Indirect_Literal Discrete,0x564,{0x00000000, 0x00028000}
04e1 e010 | | Load 0x0,0x10
04e2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04e3 e011 | | Load 0x0,0x11
04e4 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04e5 e013 | | Load 0x0,0x13
04e6 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04e7 4801 |H | Short_Literal 0x1
04e8 4800 |H | Short_Literal 0x0
04e9 e011 | | Load 0x0,0x11
04ea 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04eb e001 | | Load 0x0,0x1
04ec 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04ed 1816 | | Execute Package,Field_Execute,Field_Number 0x16
04ee e5fe | | Load 0x2,-0x2
04ef 00ea | | Load_Encached Null_String_Cache
04f0 4801 |H | Short_Literal 0x1
04f1 e603 | | Load 0x3,0x3
04f2 e23e | > | Load 0x1,0x3e
04f3 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
04f4 8240 | @ | Call 0x1,0x40
04f5 e001 | | Load 0x0,0x1
04f6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04f7 181b | | Execute Package,Field_Execute,Field_Number 0x1b
04f8 c602 | | Store 0x3,0x2
04f9 c238 | 8 | Store 0x1,0x38
04fa e238 | 8 | Load 0x1,0x38
04fb 681d |h | Jump_Zero 0x519
04fc 4807 |H | Short_Literal 0x7
04fd 4829 |H) | Short_Literal 0x29
04fe 0092 0777 | w| Action Push_String_Extended,0x777 ; "Unable to resolve "
0500 00ea | | Load_Encached Null_String_Cache
0501 4801 |H | Short_Literal 0x1
0502 e603 | | Load 0x3,0x3
0503 e23e | > | Load 0x1,0x3e
0504 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0505 01cc | | Execute Vector,Catenate
0506 0092 0771 | q| Action Push_String_Extended,0x771 ; " ("
0508 01cc | | Execute Vector,Catenate
0509 e5fe | | Load 0x2,-0x2
050a 00ea | | Load_Encached Null_String_Cache
050b 4801 |H | Short_Literal 0x1
050c e603 | | Load 0x3,0x3
050d e23e | > | Load 0x1,0x3e
050e 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
050f 8240 | @ | Call 0x1,0x40
0510 e238 | 8 | Load 0x1,0x38
0511 e001 | | Load 0x0,0x1
0512 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0513 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0514 01cc | | Execute Vector,Catenate
0515 01cb | | Execute Vector,Append
0516 840a | | Call 0x2,0xa
0517 e012 | | Load 0x0,0x12
0518 0257 | W | Execute Discrete,Raise
0519 00cf | | Action Mark_Auxiliary
051a 7842 |xB | Jump 0x55d
051b e602 | | Load 0x3,0x2
051c 8241 | A | Call 0x1,0x41
051d e7fe | | Load 0x3,-0x2
051e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
051f 4802 |H | Short_Literal 0x2
0520 8605 | | Call 0x3,0x5
0521 e20e | | Load 0x1,0xe
0522 4800 |H | Short_Literal 0x0
0523 4802 |H | Short_Literal 0x2
0524 8607 | | Call 0x3,0x7
0525 e7fe | | Load 0x3,-0x2
0526 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0527 4803 |H | Short_Literal 0x3
0528 8605 | | Call 0x3,0x5
0529 e20f | | Load 0x1,0xf
052a 4864 |Hd | Short_Literal 0x64
052b 4803 |H | Short_Literal 0x3
052c 8608 | | Call 0x3,0x8
052d e7fe | | Load 0x3,-0x2
052e 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
052f 00cf | | Action Mark_Auxiliary
0530 4807 |H | Short_Literal 0x7
0531 4804 |H | Short_Literal 0x4
0532 0007 | | Action Break_Optional
0533 00d8 | | Load_Top At_Offset_0
0534 8605 | | Call 0x3,0x5
0535 e7fe | | Load 0x3,-0x2
0536 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0537 00d9 | | Load_Top At_Offset_1
0538 e210 | | Load 0x1,0x10
0539 00db | | Load_Top At_Offset_3
053a e236 | 6 | Load 0x1,0x36
053b 01d7 | | Execute Vector,Field_Read
053c e60d | | Load 0x3,0xd
053d 8606 | | Call 0x3,0x6
053e 00d9 | | Load_Top At_Offset_1
053f 00db | | Load_Top At_Offset_3
0540 01d6 | | Execute Vector,Field_Write
0541 00d2 | | Pop_Control Pop_Count_2
0542 00c8 | | Action Pop_Auxiliary_Range
0543 3fef |? | Loop_Increasing 0x533
0544 00ce | | Action Pop_Auxiliary
0545 e604 | | Load 0x3,0x4
0546 6809 |h | Jump_Zero 0x550
0547 4801 |H | Short_Literal 0x1
0548 e7fe | | Load 0x3,-0x2
0549 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
054a 8609 | | Call 0x3,0x9
054b e408 | | Load 0x2,0x8
054c e235 | 5 | Load 0x1,0x35
054d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
054e c408 | | Store 0x2,0x8
054f 7807 |x | Jump 0x557
0550 4807 |H | Short_Literal 0x7
0551 0092 0789 | | Action Push_String_Extended,0x789 ; "Some options did not parse. Graphic was not processed."
0553 840a | | Call 0x2,0xa
0554 8224 | $ | Call 0x1,0x24
0555 e7fe | | Load 0x3,-0x2
0556 017d | } | Execute Record,Structure_Write
0557 e602 | | Load 0x3,0x2
0558 e001 | | Load 0x0,0x1
0559 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
055a 181d | | Execute Package,Field_Execute,Field_Number 0x1d
055b c602 | | Store 0x3,0x2
055c 00c9 | | Action Pop_Auxiliary_Loop
055d e602 | | Load 0x3,0x2
055e e001 | | Load 0x0,0x1
055f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0560 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0561 6fb9 |o | Jump_Zero 0x51b
0562 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0563 0000 | | .XXX[0x1]
0564 0000 0000 | | .LITERAL {0x00000000, 0x00028000}
0568 ; --------------------------------------------------------------------------------------
0568 ; SUBPROGRAM
0568 ; --------------------------------------------------------------------------------------
0568 056d | m | .CONST 0x056d ; Address of begin
0569 0004 | | .CONST 0x0004 ; Address of exception handler
056a 0002 | | .CONST 0x0002 ; Number of locals
056b INIT_0568:
056b 029f 06db | | Declare_Subprogram INIT_06d8,For_Call
056d BODY_0568:
056d 00cf | | Action Mark_Auxiliary
056e 7805 |x | Jump 0x574
056f e405 | | Load 0x2,0x5
0570 0a01 | | Execute_Immediate Plus,0x1
0571 c405 | | Store 0x2,0x5
0572 8602 | | Call 0x3,0x2
0573 00c9 | | Action Pop_Auxiliary_Loop
0574 e403 | | Load 0x2,0x3
0575 e007 | | Load 0x0,0x7
0576 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0577 6ff7 |o | Jump_Zero 0x56f
0578 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0579 0000 0000 | | .BLANK 0000[0x7]
0580 ; --------------------------------------------------------------------------------------
0580 ; SUBPROGRAM
0580 ; --------------------------------------------------------------------------------------
0580 0583 | | .CONST 0x0583 ; Address of begin
0581 0597 | | .CONST 0x0597 ; Address of exception handler
0582 0001 | | .CONST 0x0001 ; Number of locals
0583 BODY_0580:
0583 INIT_0580:
0583 e403 | | Load 0x2,0x3
0584 e007 | | Load 0x0,0x7
0585 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0586 6804 |h | Jump_Zero 0x58b
0587 e403 | | Load 0x2,0x3
0588 e007 | | Load 0x0,0x7
0589 181b | | Execute Package,Field_Execute,Field_Number 0x1b
058a c403 | | Store 0x2,0x3
058b e403 | | Load 0x2,0x3
058c 00ea | | Load_Encached Null_String_Cache
058d e402 | | Load 0x2,0x2
058e 8241 | A | Call 0x1,0x41
058f e001 | | Load 0x0,0x1
0590 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0591 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0592 4800 |H | Short_Literal 0x0
0593 e007 | | Load 0x0,0x7
0594 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0595 c403 | | Store 0x2,0x3
0596 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0597 TRAP_0580:
0597 00d8 | | Load_Top At_Offset_0
0598 0107 | | Execute Exception,Get_Name
0599 4920 |I | Short_Literal 0x120
059a 492f |I/ | Short_Literal 0x12f
059b 0262 | b | Execute Discrete,In_Range
059c 6812 |h | Jump_Zero 0x5af
059d e5fc | | Load 0x2,-0x4
059e 0092 078a | | Action Push_String_Extended,0x78a ; "Graphics information file "
05a0 e402 | | Load 0x2,0x2
05a1 8241 | A | Call 0x1,0x41
05a2 e001 | | Load 0x0,0x1
05a3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
05a4 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
05a5 01cc | | Execute Vector,Catenate
05a6 0092 078b | | Action Push_String_Extended,0x78b ; " does not exist"
05a8 01cc | | Execute Vector,Catenate
05a9 e00f | | Load 0x0,0xf
05aa 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a
05ab e00f | | Load 0x0,0xf
05ac 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05ad c5fc | | Store 0x2,-0x4
05ae 4501 |E | Exit_Suprogram New_Top_Offset 0x1
05af 4800 |H | Short_Literal 0x0
05b0 4800 |H | Short_Literal 0x0
05b1 4807 |H | Short_Literal 0x7
05b2 4829 |H) | Short_Literal 0x29
05b3 0092 078c | | Action Push_String_Extended,0x78c ; "Cannot open graphics information file "
05b5 e402 | | Load 0x2,0x2
05b6 8241 | A | Call 0x1,0x41
05b7 e001 | | Load 0x0,0x1
05b8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
05b9 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
05ba 01cc | | Execute Vector,Catenate
05bb 0092 0771 | q| Action Push_String_Extended,0x771 ; " ("
05bd 01cc | | Execute Vector,Catenate
05be e00f | | Load 0x0,0xf
05bf 1817 | | Execute Package,Field_Execute,Field_Number 0x17
05c0 01cc | | Execute Vector,Catenate
05c1 01cb | | Execute Vector,Append
05c2 00ea | | Load_Encached Null_String_Cache
05c3 e00f | | Load 0x0,0xf
05c4 181d | | Execute Package,Field_Execute,Field_Number 0x1d
05c5 e5fc | | Load 0x2,-0x4
05c6 0092 078d | | Action Push_String_Extended,0x78d ; "Cannot open graphics information file"
05c8 e00f | | Load 0x0,0xf
05c9 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
05ca e00f | | Load 0x0,0xf
05cb 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05cc c5fc | | Store 0x2,-0x4
05cd 4501 |E | Exit_Suprogram New_Top_Offset 0x1
05ce 0000 0000 | | .XXX[0x2]
05d0 ; --------------------------------------------------------------------------------------
05d0 ; SUBPROGRAM
05d0 ; --------------------------------------------------------------------------------------
05d0 05d3 | | .CONST 0x05d3 ; Address of begin
05d1 0004 | | .CONST 0x0004 ; Address of exception handler
05d2 0001 | | .CONST 0x0001 ; Number of locals
05d3 BODY_05d0:
05d3 INIT_05d0:
05d3 00da | | Load_Top At_Offset_2
05d4 e603 | | Load 0x3,0x3
05d5 e23e | > | Load 0x1,0x3e
05d6 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
05d7 7018 |p | Jump_Nonzero 0x5f0
05d8 00da | | Load_Top At_Offset_2
05d9 e603 | | Load 0x3,0x3
05da e23e | > | Load 0x1,0x3e
05db 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
05dc 6813 |h | Jump_Zero 0x5f0
05dd 4807 |H | Short_Literal 0x7
05de 482e |H. | Short_Literal 0x2e
05df 0092 078e | | Action Push_String_Extended,0x78e ; "Option "
05e1 e9ff | | Load 0x4,-0x1
05e2 e211 | | Load 0x1,0x11
05e3 011c | | Execute Any,Convert_Unchecked
05e4 1c01 | | Execute_Immediate Run_Utility,0x1
05e5 01cc | | Execute Vector,Catenate
05e6 0092 078f | | Action Push_String_Extended,0x78f ; " error. "
05e8 01cc | | Execute Vector,Catenate
05e9 e9ff | | Load 0x4,-0x1
05ea e603 | | Load 0x3,0x3
05eb e23e | > | Load 0x1,0x3e
05ec 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
05ed 01cc | | Execute Vector,Catenate
05ee 01cb | | Execute Vector,Append
05ef 840a | | Call 0x2,0xa
05f0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
05f1 0000 0000 | | .BLANK 0000[0x7]
05f8 ; --------------------------------------------------------------------------------------
05f8 ; SUBPROGRAM
05f8 ; --------------------------------------------------------------------------------------
05f8 05fc | | .CONST 0x05fc ; Address of begin
05f9 0004 | | .CONST 0x0004 ; Address of exception handler
05fa 0002 | | .CONST 0x0002 ; Number of locals
05fb INIT_05f8:
05fb 00e6 | | Load_Encached Float_Cache
05fc BODY_05f8:
05fc e9fe | | Load 0x4,-0x2
05fd e9ff | | Load 0x4,-0x1
05fe e603 | | Load 0x3,0x3
05ff e23e | > | Load 0x1,0x3e
0600 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0601 0041 | A | Store_Top_Unchecked Float,At_Offset_1
0602 00d8 | | Load_Top At_Offset_0
0603 5830 |X0 | Indirect_Literal Float,0x634,-100.0
0604 0244 | D | Execute Float,Less
0605 7004 |p | Jump_Nonzero 0x60a
0606 00d8 | | Load_Top At_Offset_0
0607 5828 |X( | Indirect_Literal Float,0x630,100.0
0608 0245 | E | Execute Float,Greater
0609 681d |h | Jump_Zero 0x627
060a 4807 |H | Short_Literal 0x7
060b 482e |H. | Short_Literal 0x2e
060c 0092 078e | | Action Push_String_Extended,0x78e ; "Option "
060e e9ff | | Load 0x4,-0x1
060f e211 | | Load 0x1,0x11
0610 011c | | Execute Any,Convert_Unchecked
0611 1c01 | | Execute_Immediate Run_Utility,0x1
0612 01cc | | Execute Vector,Catenate
0613 0092 0790 | | Action Push_String_Extended,0x790 ; " range error. "
0615 01cc | | Execute Vector,Catenate
0616 00db | | Load_Top At_Offset_3
0617 823c | < | Call 0x1,0x3c
0618 01cc | | Execute Vector,Catenate
0619 0092 0791 | | Action Push_String_Extended,0x791 ; " is not within "
061b 01cc | | Execute Vector,Catenate
061c 5817 |X | Indirect_Literal Float,0x634,-100.0
061d 823d | = | Call 0x1,0x3d
061e 01cc | | Execute Vector,Catenate
061f 0092 0792 | | Action Push_String_Extended,0x792 ; " .. "
0621 01cc | | Execute Vector,Catenate
0622 580d |X | Indirect_Literal Float,0x630,100.0
0623 823d | = | Call 0x1,0x3d
0624 01cc | | Execute Vector,Catenate
0625 01cb | | Execute Vector,Append
0626 840a | | Call 0x2,0xa
0627 00d8 | | Load_Top At_Offset_0
0628 00d8 | | Load_Top At_Offset_0
0629 e210 | | Load 0x1,0x10
062a 0234 | 4 | Execute Float,In_Type
062b 7001 |p | Jump_Nonzero 0x62d
062c 0801 | | Execute_Immediate Raise,0x1
062d a9fd | | Store_Unchecked 0x4,-0x3
062e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
062f 0000 | | .XXX[0x1]
0630 4059 0000 |@Y | .DBL 100.0
0632 0000 0000 | |
0634 c059 0000 | Y | .DBL -100.0
0636 0000 0000 | |
0638 ; --------------------------------------------------------------------------------------
0638 ; SUBPROGRAM
0638 ; --------------------------------------------------------------------------------------
0638 063c | < | .CONST 0x063c ; Address of begin
0639 0004 | | .CONST 0x0004 ; Address of exception handler
063a 0002 | | .CONST 0x0002 ; Number of locals
063b INIT_0638:
063b 00e2 | | Load_Encached Integer_Cache
063c BODY_0638:
063c e9fe | | Load 0x4,-0x2
063d e9ff | | Load 0x4,-0x1
063e e603 | | Load 0x3,0x3
063f e23e | > | Load 0x1,0x3e
0640 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0641 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0642 00d8 | | Load_Top At_Offset_0
0643 4800 |H | Short_Literal 0x0
0644 4967 |Ig | Short_Literal 0x167
0645 0261 | a | Execute Discrete,Not_In_Range
0646 6820 |h | Jump_Zero 0x667
0647 4807 |H | Short_Literal 0x7
0648 482e |H. | Short_Literal 0x2e
0649 0092 078e | | Action Push_String_Extended,0x78e ; "Option "
064b e9ff | | Load 0x4,-0x1
064c e211 | | Load 0x1,0x11
064d 011c | | Execute Any,Convert_Unchecked
064e 1c01 | | Execute_Immediate Run_Utility,0x1
064f 01cc | | Execute Vector,Catenate
0650 0092 0790 | | Action Push_String_Extended,0x790 ; " range error. "
0652 01cc | | Execute Vector,Catenate
0653 4820 |H | Short_Literal 0x20
0654 4800 |H | Short_Literal 0x0
0655 480a |H | Short_Literal 0xa
0656 e802 | | Load 0x4,0x2
0657 8239 | 9 | Call 0x1,0x39
0658 01cc | | Execute Vector,Catenate
0659 0092 0791 | | Action Push_String_Extended,0x791 ; " is not within "
065b 01cc | | Execute Vector,Catenate
065c 4800 |H | Short_Literal 0x0
065d 823a | : | Call 0x1,0x3a
065e 01cc | | Execute Vector,Catenate
065f 0092 0792 | | Action Push_String_Extended,0x792 ; " .. "
0661 01cc | | Execute Vector,Catenate
0662 4967 |Ig | Short_Literal 0x167
0663 823a | : | Call 0x1,0x3a
0664 01cc | | Execute Vector,Catenate
0665 01cb | | Execute Vector,Append
0666 840a | | Call 0x2,0xa
0667 00d8 | | Load_Top At_Offset_0
0668 00d8 | | Load_Top At_Offset_0
0669 e20e | | Load 0x1,0xe
066a 0260 | ` | Execute Discrete,In_Type
066b 7001 |p | Jump_Nonzero 0x66d
066c 0801 | | Execute_Immediate Raise,0x1
066d a9fd | | Store_Unchecked 0x4,-0x3
066e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
066f 0000 | | .XXX[0x1]
0670 ; --------------------------------------------------------------------------------------
0670 ; SUBPROGRAM
0670 ; --------------------------------------------------------------------------------------
0670 0674 | t | .CONST 0x0674 ; Address of begin
0671 0004 | | .CONST 0x0004 ; Address of exception handler
0672 0002 | | .CONST 0x0002 ; Number of locals
0673 INIT_0670:
0673 00e2 | | Load_Encached Integer_Cache
0674 BODY_0670:
0674 e9fe | | Load 0x4,-0x2
0675 e9ff | | Load 0x4,-0x1
0676 e603 | | Load 0x3,0x3
0677 e23e | > | Load 0x1,0x3e
0678 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0679 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
067a 00d8 | | Load_Top At_Offset_0
067b 4800 |H | Short_Literal 0x0
067c 602b |`+ | Indirect_Literal Discrete,0x6a8,{0x00000000, 0x00002710}
067d 0261 | a | Execute Discrete,Not_In_Range
067e 6820 |h | Jump_Zero 0x69f
067f 4807 |H | Short_Literal 0x7
0680 482e |H. | Short_Literal 0x2e
0681 0092 078e | | Action Push_String_Extended,0x78e ; "Option "
0683 e9ff | | Load 0x4,-0x1
0684 e211 | | Load 0x1,0x11
0685 011c | | Execute Any,Convert_Unchecked
0686 1c01 | | Execute_Immediate Run_Utility,0x1
0687 01cc | | Execute Vector,Catenate
0688 0092 0790 | | Action Push_String_Extended,0x790 ; " range error. "
068a 01cc | | Execute Vector,Catenate
068b 4820 |H | Short_Literal 0x20
068c 4800 |H | Short_Literal 0x0
068d 480a |H | Short_Literal 0xa
068e e802 | | Load 0x4,0x2
068f 8239 | 9 | Call 0x1,0x39
0690 01cc | | Execute Vector,Catenate
0691 0092 0791 | | Action Push_String_Extended,0x791 ; " is not within "
0693 01cc | | Execute Vector,Catenate
0694 4800 |H | Short_Literal 0x0
0695 823b | ; | Call 0x1,0x3b
0696 01cc | | Execute Vector,Catenate
0697 0092 0792 | | Action Push_String_Extended,0x792 ; " .. "
0699 01cc | | Execute Vector,Catenate
069a 600d |` | Indirect_Literal Discrete,0x6a8,{0x00000000, 0x00002710}
069b 823b | ; | Call 0x1,0x3b
069c 01cc | | Execute Vector,Catenate
069d 01cb | | Execute Vector,Append
069e 840a | | Call 0x2,0xa
069f 00d8 | | Load_Top At_Offset_0
06a0 00d8 | | Load_Top At_Offset_0
06a1 e20f | | Load 0x1,0xf
06a2 0260 | ` | Execute Discrete,In_Type
06a3 7001 |p | Jump_Nonzero 0x6a5
06a4 0801 | | Execute_Immediate Raise,0x1
06a5 a9fd | | Store_Unchecked 0x4,-0x3
06a6 4503 |E | Exit_Suprogram New_Top_Offset 0x3
06a7 0000 | | .XXX[0x1]
06a8 0000 0000 | | .LITERAL {0x00000000, 0x00002710}
06ac 0000 0000 | | .BLANK 0000[0x4]
06b0 ; --------------------------------------------------------------------------------------
06b0 ; SUBPROGRAM
06b0 ; --------------------------------------------------------------------------------------
06b0 06b3 | | .CONST 0x06b3 ; Address of begin
06b1 06be | | .CONST 0x06be ; Address of exception handler
06b2 0001 | | .CONST 0x0001 ; Number of locals
06b3 BODY_06b0:
06b3 INIT_06b0:
06b3 e404 | | Load 0x2,0x4
06b4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
06b5 4801 |H | Short_Literal 0x1
06b6 e7fe | | Load 0x3,-0x2
06b7 00d8 | | Load_Top At_Offset_0
06b8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
06b9 e233 | 3 | Load 0x1,0x33
06ba 1818 | | Execute Package,Field_Execute,Field_Number 0x18
06bb e404 | | Load 0x2,0x4
06bc 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
06bd 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06be TRAP_06b0:
06be e233 | 3 | Load 0x1,0x33
06bf 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
06c0 010f | | Execute Exception,Equal
06c1 680e |h | Jump_Zero 0x6d0
06c2 4807 |H | Short_Literal 0x7
06c3 0092 0793 | | Action Push_String_Extended,0x793 ; "Multiply defined key \x22"
06c5 e7fe | | Load 0x3,-0x2
06c6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
06c7 e001 | | Load 0x0,0x1
06c8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
06c9 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
06ca 01cc | | Execute Vector,Catenate
06cb 0092 0794 | | Action Push_String_Extended,0x794 ; "\x22. Ignoring this one."
06cd 01cc | | Execute Vector,Catenate
06ce 840a | | Call 0x2,0xa
06cf 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06d0 0100 | | Execute Exception,Raise
06d1 0000 0000 | | .BLANK 0000[0x7]
06d8 ; --------------------------------------------------------------------------------------
06d8 ; SUBPROGRAM
06d8 ; --------------------------------------------------------------------------------------
06d8 06e9 | | .CONST 0x06e9 ; Address of begin
06d9 0004 | | .CONST 0x0004 ; Address of exception handler
06da 0004 | | .CONST 0x0004 ; Number of locals
06db INIT_06d8:
06db 4820 |H | Short_Literal 0x20
06dc e403 | | Load 0x2,0x3
06dd e007 | | Load 0x0,0x7
06de 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
06df e00b | | Load 0x0,0xb
06e0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
06e1 00d8 | | Load_Top At_Offset_0
06e2 01dd | | Execute Vector,First
06e3 00e3 | | Load_Encached Natural_Cache
06e4 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
06e5 00d9 | | Load_Top At_Offset_1
06e6 01dc | | Execute Vector,Last
06e7 00e3 | | Load_Encached Natural_Cache
06e8 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
06e9 BODY_06d8:
06e9 00da | | Load_Top At_Offset_2
06ea 01db | | Execute Vector,Length
06eb 0c02 | | Execute_Immediate Greater_Equal,0x2
06ec 680e |h | Jump_Zero 0x6fb
06ed 00d9 | | Load_Top At_Offset_1
06ee 00da | | Load_Top At_Offset_2
06ef 0a01 | | Execute_Immediate Plus,0x1
06f0 00d8 | | Load_Top At_Offset_0
06f1 00e2 | | Load_Encached Integer_Cache
06f2 0260 | ` | Execute Discrete,In_Type
06f3 7001 |p | Jump_Nonzero 0x6f5
06f4 0801 | | Execute_Immediate Raise,0x1
06f5 e802 | | Load 0x4,0x2
06f6 01cf | | Execute Vector,Slice_Read
06f7 e409 | | Load 0x2,0x9
06f8 01df | | Execute Vector,Equal
06f9 6801 |h | Jump_Zero 0x6fb
06fa 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06fb 00da | | Load_Top At_Offset_2
06fc 01db | | Execute Vector,Length
06fd 0c01 | | Execute_Immediate Greater_Equal,0x1
06fe 6838 |h8 | Jump_Zero 0x737
06ff 00d9 | | Load_Top At_Offset_1
0700 00db | | Load_Top At_Offset_3
0701 01d7 | | Execute Vector,Field_Read
0702 0f28 | ( | Execute_Immediate Equal,0x28
0703 680b |h | Jump_Zero 0x70f
0704 e407 | | Load 0x2,0x7
0705 7004 |p | Jump_Nonzero 0x70a
0706 4807 |H | Short_Literal 0x7
0707 0092 0795 | | Action Push_String_Extended,0x795 ; "Found unexpected '(', ignoring it."
0709 840a | | Call 0x2,0xa
070a 00d9 | | Load_Top At_Offset_1
070b 0a01 | | Execute_Immediate Plus,0x1
070c 005a | Z | Store_Top Discrete,At_Offset_2
070d 4800 |H | Short_Literal 0x0
070e a407 | | Store_Unchecked 0x2,0x7
070f 00d8 | | Load_Top At_Offset_0
0710 00db | | Load_Top At_Offset_3
0711 01d7 | | Execute Vector,Field_Read
0712 0f29 | ) | Execute_Immediate Equal,0x29
0713 6817 |h | Jump_Zero 0x72b
0714 e407 | | Load 0x2,0x7
0715 6805 |h | Jump_Zero 0x71b
0716 4807 |H | Short_Literal 0x7
0717 0092 0796 | | Action Push_String_Extended,0x796 ; "Found unexpected ')', ignoring line."
0719 840a | | Call 0x2,0xa
071a 780e |x | Jump 0x729
071b e406 | | Load 0x2,0x6
071c e408 | | Load 0x2,0x8
071d e235 | 5 | Load 0x1,0x35
071e 1816 | | Execute Package,Field_Execute,Field_Number 0x16
071f 00db | | Load_Top At_Offset_3
0720 00db | | Load_Top At_Offset_3
0721 0aff | | Execute_Immediate Plus,-0x1
0722 e802 | | Load 0x4,0x2
0723 01cf | | Execute Vector,Slice_Read
0724 01cc | | Execute Vector,Catenate
0725 840b | | Call 0x2,0xb
0726 00d1 | | Pop_Control Pop_Count_1
0727 4801 |H | Short_Literal 0x1
0728 a407 | | Store_Unchecked 0x2,0x7
0729 4800 |H | Short_Literal 0x0
072a 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
072b 00d8 | | Load_Top At_Offset_0
072c 00da | | Load_Top At_Offset_2
072d 027d | } | Execute Discrete,Greater
072e 6808 |h | Jump_Zero 0x737
072f e408 | | Load 0x2,0x8
0730 00da | | Load_Top At_Offset_2
0731 00da | | Load_Top At_Offset_2
0732 e802 | | Load 0x4,0x2
0733 01cf | | Execute Vector,Slice_Read
0734 e235 | 5 | Load 0x1,0x35
0735 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0736 c408 | | Store 0x2,0x8
0737 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0738 ; --------------------------------------------------------------------------------------
0738 ; SUBPROGRAM
0738 ; --------------------------------------------------------------------------------------
0738 073b | ; | .CONST 0x073b ; Address of begin
0739 0004 | | .CONST 0x0004 ; Address of exception handler
073a 0001 | | .CONST 0x0001 ; Number of locals
073b BODY_0738:
073b INIT_0738:
073b 4608 |F | Jump_Case 0x9
073c 7808 |x | Jump 0x745 ; case 0x0
073d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
073e 7810 |x | Jump 0x74f ; case 0x2
073f 780f |x | Jump 0x74f ; case 0x3
0740 780e |x | Jump 0x74f ; case 0x4
0741 780d |x | Jump 0x74f ; case 0x5
0742 780c |x | Jump 0x74f ; case 0x6
0743 780b |x | Jump 0x74f ; case 0x7
0744 780a |x | Jump 0x74f ; case 0x8
0745 4800 |H | Short_Literal 0x0
0746 00db | | Load_Top At_Offset_3
0747 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0748 00da | | Load_Top At_Offset_2
0749 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
074a 0125 | % | Execute Any,Set_Constraint
074b 00da | | Load_Top At_Offset_2
074c 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
074d 1c00 | | Execute_Immediate Run_Utility,0x0
074e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
074f 0869 | i | Execute_Immediate Raise,0x69
0750 ; --------------------------------------------------------------------------------------
0750 ; SUBPROGRAM
0750 ; --------------------------------------------------------------------------------------
0750 0753 | S | .CONST 0x0753 ; Address of begin
0751 0004 | | .CONST 0x0004 ; Address of exception handler
0752 0001 | | .CONST 0x0001 ; Number of locals
0753 BODY_0750:
0753 INIT_0750:
0753 4608 |F | Jump_Case 0x9
0754 7808 |x | Jump 0x75d ; case 0x0
0755 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0756 780d |x | Jump 0x764 ; case 0x2
0757 780c |x | Jump 0x764 ; case 0x3
0758 780b |x | Jump 0x764 ; case 0x4
0759 780a |x | Jump 0x764 ; case 0x5
075a 7809 |x | Jump 0x764 ; case 0x6
075b 7808 |x | Jump 0x764 ; case 0x7
075c 7807 |x | Jump 0x764 ; case 0x8
075d 00da | | Load_Top At_Offset_2
075e 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
075f 0125 | % | Execute Any,Set_Constraint
0760 00da | | Load_Top At_Offset_2
0761 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0762 1c00 | | Execute_Immediate Run_Utility,0x0
0763 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0764 0869 | i | Execute_Immediate Raise,0x69
0765 ; --------------------------------------------------------------------------------------
0765 ; STRING TABLE
0765 ; --------------------------------------------------------------------------------------
0765 0066 | f | .STRTAB 0x0066->0x0798 ; "NIL"
0766 0067 | g | .STRTAB 0x0067->0x0799 ; "KEY"
0767 0068 | h | .STRTAB 0x0068->0x079b ; "ROTATION"
0768 006e | n | .STRTAB 0x006e->0x079f ; "SCALE"
0769 0071 | q | .STRTAB 0x0071->0x07a1 ; "HEIGHT"
076a 0075 | u | .STRTAB 0x0075->0x07a4 ; "WIDTH"
076b 0078 | x | .STRTAB 0x0078->0x07a7 ; "HEIGHT_OFFSET"
076c 0083 | | .STRTAB 0x0083->0x07ad ; "WIDTH_OFFSET"
076d 008d | | .STRTAB 0x008d->0x07b3 ; "Key=Directory,Rotation|Scale=Integer,Others=Float"
076e 00bc | | .STRTAB 0x00bc->0x07cc ; "Rotation=0,Scale=100,Height=8.5,Width=6.5,Height_Offset|Width_Offset=0.25"
076f 0103 | | .STRTAB 0x0103->0x07f0 ; "--"
0770 0103 | | .STRTAB 0x0103->0x07f1 ; "Unable to resolve IN_CONTEXT parameter "
0771 0128 | ( | .STRTAB 0x0128->0x0805 ; " ("
0772 0128 | ( | .STRTAB 0x0128->0x0806 ; "Graphics information file was not specified"
0773 0151 | Q | .STRTAB 0x0151->0x081b ; "Unable to resolve graphics information file "
0774 017b | { | .STRTAB 0x017b->0x0831 ; "Errors detected resolving graphics information file "
0775 01ad | | .STRTAB 0x01ad->0x084b ; "Found unexpected End Of File, last graphic was not processed."
0776 01e8 | | .STRTAB 0x01e8->0x086a ; "Error parsing graphics information file "
0777 020e | | .STRTAB 0x020e->0x087e ; "Unable to resolve "
0778 021e | | .STRTAB 0x021e->0x0887 ; " because "
0779 0225 | % | .STRTAB 0x0225->0x088b ; "Trying to find Graphic File."
077a 023f | ? | .STRTAB 0x023f->0x0899 ; "Cannot find "
077b 0249 | I | .STRTAB 0x0249->0x089f ; " in graphics information file "
077c 0265 | e | .STRTAB 0x0265->0x08ae ; "Valid => "
077d 026c | l | .STRTAB 0x026c->0x08b3 ; "Key => "
077e 0271 | q | .STRTAB 0x0271->0x08b6 ; "Rotation => "
077f 027b | { | .STRTAB 0x027b->0x08bc ; "Scale => "
0780 0282 | | .STRTAB 0x0282->0x08c1 ; " => "
0781 0284 | | .STRTAB 0x0284->0x08c3 ; "*** Could not find key "
0782 0299 | | .STRTAB 0x0299->0x08ce ; " in graphics map!"
0783 02a8 | | .STRTAB 0x02a8->0x08d7 ; "Unable to retreive object from iterator because "
0784 02d6 | | .STRTAB 0x02d6->0x08ef ; "Processing Graphic Information File."
0785 02f8 | | .STRTAB 0x02f8->0x0901 ; "On line "
0786 02fe | | .STRTAB 0x02fe->0x0905 ; ": "
0787 02fe | | .STRTAB 0x02fe->0x0906 ; "Processing "
0788 0307 | | .STRTAB 0x0307->0x090b ; "No key specified. Graphic was not processed."
0789 0331 | 1 | .STRTAB 0x0331->0x0921 ; "Some options did not parse. Graphic was not processed."
078a 0365 | e | .STRTAB 0x0365->0x093c ; "Graphics information file "
078b 037d | } | .STRTAB 0x037d->0x0949 ; " does not exist"
078c 038a | | .STRTAB 0x038a->0x0951 ; "Cannot open graphics information file "
078d 03ae | | .STRTAB 0x03ae->0x0964 ; "Cannot open graphics information file"
078e 03d1 | | .STRTAB 0x03d1->0x0976 ; "Option "
078f 03d6 | | .STRTAB 0x03d6->0x097a ; " error. "
0790 03dc | | .STRTAB 0x03dc->0x097e ; " range error. "
0791 03e8 | | .STRTAB 0x03e8->0x0985 ; " is not within "
0792 03f5 | | .STRTAB 0x03f5->0x098c ; " .. "
0793 03f7 | | .STRTAB 0x03f7->0x098e ; "Multiply defined key \x22"
0794 040b | | .STRTAB 0x040b->0x0999 ; "\x22. Ignoring this one."
0795 041e | | .STRTAB 0x041e->0x09a4 ; "Found unexpected '(', ignoring it."
0796 043e | > | .STRTAB 0x043e->0x09b5 ; "Found unexpected ')', ignoring line."
0797 0460 | ` | .STREND 0x0460->0x09c7
0798 4e49 4c4b |NILK| .STRTAB_STRINGS
09c7 0000 | | .XXX[0x1]
09c8 ; --------------------------------------------------------------------------------------
09c8 ; Debug Table
09c8 ; --------------------------------------------------------------------------------------
09c8 0004 0012 | | .DEBUG4 0x0004,0x0012,0xc78f,0x0000,0x0001,0x0000
09ce d9bf 8733 | 3| .XXX[0x32]
09d0 021b c968 | h|
09d2 0f8a a165 | e|
09d4 79ac 0074 |y t|
09d6 d6b6 f774 | t|
09d8 d5af 1cba | |
09da 4b6b 5a03 |KkZ |
09dc c1b9 6bef | k |
09de 898b fed4 | |
09e0 18d1 78b1 | x |
09e2 6c56 01af |lV |
09e4 01a9 af41 | A|
09e6 ec36 03d9 | 6 |
09e8 780f c2bd |x |
09ea e7b7 624e | bN|
09ec 73e8 6a02 |s j |
09ee 0217 c9d8 | |
09f0 64aa f618 |d |
09f2 c50c bcd9 | |
09f4 8191 6007 | ` |
09f6 201a 8212 | |
09f8 cc07 0737 | 7|
09fa 1adb 34e8 | 4 |
09fc 6e41 052f |nA /|
09fe db29 c436 | ) 6|