|
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: 8192 (0x2000) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_1060f5
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0eb8 | | .CONST 0x0eb8 ; 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 8009 | | .CONST 0x8009 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0093 | | .CONST 0x0093 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0037 | 7 | .CONST 0x0037 ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 000c 0129 | ) | Execute Any,Make_Visible 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 e002 | | Load 0x0,0x2 002b 0129 | ) | Execute Any,Make_Visible 002c c219 | | Store 0x1,0x19 002d 4800 |H | Short_Literal 0x0 002e 4801 |H | Short_Literal 0x1 002f 029f 009b | | Declare_Subprogram INIT_0098,For_Call 0031 03fe | | Declare_Type Discrete,Defined,Visible 0032 c227 | ' | Store 0x1,0x27 0033 e003 | | Load 0x0,0x3 0034 e004 | | Load 0x0,0x4 0035 4be8 |K | Short_Literal 0x3e8 0036 e005 | | Load 0x0,0x5 0037 0386 | | Declare_Variable Package,Visible 0038 00d8 | | Load_Top At_Offset_0 0039 020f | | Execute Module,Activate 003a c20e | | Store 0x1,0xe 003b 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated 003d c21e | | Store 0x1,0x1e 003e 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated 0040 c21f | | Store 0x1,0x1f 0041 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated 0043 c220 | | Store 0x1,0x20 0044 029a 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call,Visible,Unelaborated 0046 c228 | ( | Store 0x1,0x28 0047 029a 042b | +| Declare_Subprogram INIT_0428,For_Outer_Call,Visible,Unelaborated 0049 c221 | ! | Store 0x1,0x21 004a 029a 05e3 | | Declare_Subprogram INIT_05e0,For_Outer_Call,Visible,Unelaborated 004c c226 | & | Store 0x1,0x26 004d 029a 064b | K| Declare_Subprogram INIT_0648,For_Outer_Call,Visible,Unelaborated 004f c22a | * | Store 0x1,0x2a 0050 029a 069b | | Declare_Subprogram INIT_0698,For_Outer_Call,Visible,Unelaborated 0052 c222 | " | Store 0x1,0x22 0053 029a 075b | [| Declare_Subprogram INIT_0758,For_Outer_Call,Visible,Unelaborated 0055 c223 | # | Store 0x1,0x23 0056 029a 076b | k| Declare_Subprogram INIT_0768,For_Outer_Call,Visible,Unelaborated 0058 c224 | $ | Store 0x1,0x24 0059 029a 077b | {| Declare_Subprogram INIT_0778,For_Outer_Call,Visible,Unelaborated 005b c21d | | Store 0x1,0x1d 005c 00bf | | Action Accept_Activation 005d 0092 0e48 | H| Action Push_String_Extended,0xe48 ; "--- INSIGHT DIAGRAM ---" 005f e006 | | Load 0x0,0x6 0060 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0061 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0062 02c7 | | Declare_Variable Any 0063 e006 | | Load 0x0,0x6 0064 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0065 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0066 a22c | , | Store_Unchecked 0x1,0x2c 0067 029d 0783 | | Declare_Subprogram INIT_0780,For_Outer_Call 0069 029d 07ab | | Declare_Subprogram INIT_07a8,For_Outer_Call 006b 029d 07bb | | Declare_Subprogram INIT_07b8,For_Outer_Call 006d 029d 07fb | | Declare_Subprogram INIT_07f8,For_Outer_Call 006f 029d 0823 | #| Declare_Subprogram INIT_0820,For_Outer_Call 0071 029d 0863 | c| Declare_Subprogram INIT_0860,For_Outer_Call 0073 029d 090b | | Declare_Subprogram INIT_0908,For_Outer_Call 0075 029d 09b3 | | Declare_Subprogram INIT_09b0,For_Outer_Call 0077 029d 09db | | Declare_Subprogram INIT_09d8,For_Outer_Call 0079 029d 09fb | | Declare_Subprogram INIT_09f8,For_Outer_Call 007b 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 007c 00c7 | | Action Elaborate_Subprogram 007d 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 007e 00c7 | | Action Elaborate_Subprogram 007f 1d20 | | Execute_Immediate Reference_Lex_1,0x20 0080 00c7 | | Action Elaborate_Subprogram 0081 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28 0082 00c7 | | Action Elaborate_Subprogram 0083 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 0084 00c7 | | Action Elaborate_Subprogram 0085 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 0086 00c7 | | Action Elaborate_Subprogram 0087 029d 0afb | | Declare_Subprogram INIT_0af8,For_Outer_Call 0089 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 008a 00c7 | | Action Elaborate_Subprogram 008b 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 008c 00c7 | | Action Elaborate_Subprogram 008d 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 008e 00c7 | | Action Elaborate_Subprogram 008f 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 0090 00c7 | | Action Elaborate_Subprogram 0091 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 0092 00c7 | | Action Elaborate_Subprogram 0093 BODY_0008: 0093 e007 | | Load 0x0,0x7 0094 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0095 00bc | | Action Signal_Activated 0096 00bb | | Action Signal_Completion 0097 0000 | | .XXX[0x1] 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 009b | | .CONST 0x009b ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0001 | | .CONST 0x0001 ; Number of locals 009b BODY_0098: 009b INIT_0098: 009b 4607 |F | Jump_Case 0x8 009c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 009d 7806 |x | Jump 0xa4 ; case 0x1 009e 7809 |x | Jump 0xa8 ; case 0x2 009f 780d |x | Jump 0xad ; case 0x3 00a0 7810 |x | Jump 0xb1 ; case 0x4 00a1 7811 |x | Jump 0xb3 ; case 0x5 00a2 7812 |x | Jump 0xb5 ; case 0x6 00a3 7815 |x | Jump 0xb9 ; case 0x7 00a4 00da | | Load_Top At_Offset_2 00a5 0091 0e46 | F| Action Push_String_Extended_Indexed,0xe46 ; "POSTSCRIPT" 00a7 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00a8 00db | | Load_Top At_Offset_3 00a9 00db | | Load_Top At_Offset_3 00aa 00e0 | | Load_Encached Standard_Cache 00ab 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00ac 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00ad 00da | | Load_Top At_Offset_2 00ae 00e0 | | Load_Encached Standard_Cache 00af 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00b0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00b1 00db | | Load_Top At_Offset_3 00b2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00b3 00db | | Load_Top At_Offset_3 00b4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00b5 e227 | ' | Load 0x1,0x27 00b6 00dc | | Load_Top At_Offset_4 00b7 0267 | g | Execute Discrete,Predecessor 00b8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00b9 e227 | ' | Load 0x1,0x27 00ba 00dc | | Load_Top At_Offset_4 00bb 0268 | h | Execute Discrete,Successor 00bc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00bd 0000 0000 | | .XXX[0x3] 00bf 0000 | | 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c4 | | .CONST 0x00c4 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0002 | | .CONST 0x0002 ; Number of locals 00c3 INIT_00c0: 00c3 00e1 | | Load_Encached Boolean_Cache 00c4 BODY_00c0: 00c4 00e1 | | Load_Encached Boolean_Cache 00c5 00e1 | | Load_Encached Boolean_Cache 00c6 e5fd | | Load 0x2,-0x3 00c7 e5fe | | Load 0x2,-0x2 00c8 e5ff | | Load 0x2,-0x1 00c9 8236 | 6 | Call 0x1,0x36 00ca 00d2 | | Pop_Control Pop_Count_2 00cb c5fc | | Store 0x2,-0x4 00cc 0059 | Y | Store_Top Discrete,At_Offset_1 00cd 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00ce 0000 0000 | | .XXX[0x2] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00dc | | .CONST 0x00dc ; Address of begin 00d1 010d | | .CONST 0x010d ; Address of exception handler 00d2 0005 | | .CONST 0x0005 ; Number of locals 00d3 INIT_00d0: 00d3 e008 | | Load 0x0,0x8 00d4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00d5 02c7 | | Declare_Variable Any 00d6 00d8 | | Load_Top At_Offset_0 00d7 1c00 | | Execute_Immediate Run_Utility,0x0 00d8 00e8 | | Load_Encached Character_Cache 00d9 e20e | | Load 0x1,0xe 00da 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 00db 00e3 | | Load_Encached Natural_Cache 00dc BODY_00d0: 00dc 00be | | Action Activate_Tasks 00dd 8235 | 5 | Call 0x1,0x35 00de 00db | | Load_Top At_Offset_3 00df 00ea | | Load_Encached Null_String_Cache 00e0 e5ff | | Load 0x2,-0x1 00e1 e009 | | Load 0x0,0x9 00e2 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00e3 4800 |H | Short_Literal 0x0 00e4 e008 | | Load 0x0,0x8 00e5 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00e6 c402 | | Store 0x2,0x2 00e7 00db | | Load_Top At_Offset_3 00e8 822d | - | Call 0x1,0x2d 00e9 00cf | | Action Mark_Auxiliary 00ea 7816 |x | Jump 0x101 00eb e402 | | Load 0x2,0x2 00ec e008 | | Load 0x0,0x8 00ed 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 00ee 6806 |h | Jump_Zero 0xf5 00ef 00da | | Load_Top At_Offset_2 00f0 4801 |H | Short_Literal 0x1 00f1 480a |H | Short_Literal 0xa 00f2 e20e | | Load 0x1,0xe 00f3 181f | | Execute Package,Field_Execute,Field_Number 0x1f 00f4 003b | ; | Store_Top Access,At_Offset_3 00f5 00e8 | | Load_Encached Character_Cache 00f6 e402 | | Load 0x2,0x2 00f7 e008 | | Load 0x0,0x8 00f8 1844 | D | Execute Package,Field_Execute,Field_Number 0x44 00f9 c403 | | Store 0x2,0x3 00fa 00da | | Load_Top At_Offset_2 00fb 4801 |H | Short_Literal 0x1 00fc e403 | | Load 0x2,0x3 00fd e20e | | Load 0x1,0xe 00fe 181f | | Execute Package,Field_Execute,Field_Number 0x1f 00ff 003b | ; | Store_Top Access,At_Offset_3 0100 00c9 | | Action Pop_Auxiliary_Loop 0101 e402 | | Load 0x2,0x2 0102 e008 | | Load 0x0,0x8 0103 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0104 6fe6 |o | Jump_Zero 0xeb 0105 00ce | | Action Pop_Auxiliary 0106 00db | | Load_Top At_Offset_3 0107 e008 | | Load 0x0,0x8 0108 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0109 c402 | | Store 0x2,0x2 010a 00d9 | | Load_Top At_Offset_1 010b a5fe | | Store_Unchecked 0x2,-0x2 010c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 010d TRAP_00d0: 010d 00d8 | | Load_Top At_Offset_0 010e 0107 | | Execute Exception,Get_Name 010f 4950 |IP | Short_Literal 0x150 0110 495f |I_ | Short_Literal 0x15f 0111 0262 | b | Execute Discrete,In_Range 0112 6811 |h | Jump_Zero 0x124 0113 00da | | Load_Top At_Offset_2 0114 4801 |H | Short_Literal 0x1 0115 480a |H | Short_Literal 0xa 0116 e20e | | Load 0x1,0xe 0117 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0118 003b | ; | Store_Top Access,At_Offset_3 0119 e402 | | Load 0x2,0x2 011a e008 | | Load 0x0,0x8 011b 1816 | | Execute Package,Field_Execute,Field_Number 0x16 011c c402 | | Store 0x2,0x2 011d 00da | | Load_Top At_Offset_2 011e a5fe | | Store_Unchecked 0x2,-0x2 011f 00da | | Load_Top At_Offset_2 0120 e20e | | Load 0x1,0xe 0121 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0122 003b | ; | Store_Top Access,At_Offset_3 0123 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0124 4921 |I! | Short_Literal 0x121 0125 010f | | Execute Exception,Equal 0126 6807 |h | Jump_Zero 0x12e 0127 4801 |H | Short_Literal 0x1 0128 e5ff | | Load 0x2,-0x1 0129 e009 | | Load 0x0,0x9 012a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 012b e00a | | Load 0x0,0xa 012c 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 012d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 012e 4922 |I" | Short_Literal 0x122 012f 010f | | Execute Exception,Equal 0130 6807 |h | Jump_Zero 0x138 0131 4801 |H | Short_Literal 0x1 0132 e5ff | | Load 0x2,-0x1 0133 e009 | | Load 0x0,0x9 0134 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0135 e00a | | Load 0x0,0xa 0136 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0137 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0138 4923 |I# | Short_Literal 0x123 0139 010f | | Execute Exception,Equal 013a 6809 |h | Jump_Zero 0x144 013b 4801 |H | Short_Literal 0x1 013c e5ff | | Load 0x2,-0x1 013d e009 | | Load 0x0,0x9 013e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 013f 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 0141 e00a | | Load 0x0,0xa 0142 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 0143 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0144 4924 |I$ | Short_Literal 0x124 0145 010f | | Execute Exception,Equal 0146 6809 |h | Jump_Zero 0x150 0147 4801 |H | Short_Literal 0x1 0148 e5ff | | Load 0x2,-0x1 0149 e009 | | Load 0x0,0x9 014a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 014b 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 014d e00a | | Load 0x0,0xa 014e 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 014f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0150 4925 |I% | Short_Literal 0x125 0151 010f | | Execute Exception,Equal 0152 6807 |h | Jump_Zero 0x15a 0153 4801 |H | Short_Literal 0x1 0154 e5ff | | Load 0x2,-0x1 0155 e009 | | Load 0x0,0x9 0156 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0157 e00a | | Load 0x0,0xa 0158 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0159 4502 |E | Exit_Suprogram New_Top_Offset 0x2 015a 4931 |I1 | Short_Literal 0x131 015b 010f | | Execute Exception,Equal 015c 680b |h | Jump_Zero 0x168 015d 4801 |H | Short_Literal 0x1 015e 0092 0e4a | J| Action Push_String_Extended,0xe4a ; "read" 0160 e5ff | | Load 0x2,-0x1 0161 e009 | | Load 0x0,0x9 0162 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0163 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 0165 e00a | | Load 0x0,0xa 0166 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 0167 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0168 4932 |I2 | Short_Literal 0x132 0169 010f | | Execute Exception,Equal 016a 680b |h | Jump_Zero 0x176 016b 4801 |H | Short_Literal 0x1 016c 0092 0e4a | J| Action Push_String_Extended,0xe4a ; "read" 016e e5ff | | Load 0x2,-0x1 016f e009 | | Load 0x0,0x9 0170 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0171 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 0173 e00a | | Load 0x0,0xa 0174 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 0175 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0176 4933 |I3 | Short_Literal 0x133 0177 010f | | Execute Exception,Equal 0178 6809 |h | Jump_Zero 0x182 0179 4801 |H | Short_Literal 0x1 017a e5ff | | Load 0x2,-0x1 017b e009 | | Load 0x0,0x9 017c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 017d 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 017f e00a | | Load 0x0,0xa 0180 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 0181 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0182 e20d | | Load 0x1,0xd 0183 010f | | Execute Exception,Equal 0184 680d |h | Jump_Zero 0x192 0185 e402 | | Load 0x2,0x2 0186 e008 | | Load 0x0,0x8 0187 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0188 c402 | | Store 0x2,0x2 0189 4801 |H | Short_Literal 0x1 018a e5ff | | Load 0x2,-0x1 018b e009 | | Load 0x0,0x9 018c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 018d 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 018f e00a | | Load 0x0,0xa 0190 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 0191 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0192 4934 |I4 | Short_Literal 0x134 0193 010f | | Execute Exception,Equal 0194 680b |h | Jump_Zero 0x1a0 0195 4801 |H | Short_Literal 0x1 0196 0092 0e4a | J| Action Push_String_Extended,0xe4a ; "read" 0198 e5ff | | Load 0x2,-0x1 0199 e009 | | Load 0x0,0x9 019a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 019b 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 019d e00a | | Load 0x0,0xa 019e 183c | < | Execute Package,Field_Execute,Field_Number 0x3c 019f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01a0 4935 |I5 | Short_Literal 0x135 01a1 010f | | Execute Exception,Equal 01a2 680b |h | Jump_Zero 0x1ae 01a3 4801 |H | Short_Literal 0x1 01a4 0092 0e4a | J| Action Push_String_Extended,0xe4a ; "read" 01a6 e5ff | | Load 0x2,-0x1 01a7 e009 | | Load 0x0,0x9 01a8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01a9 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 01ab e00a | | Load 0x0,0xa 01ac 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 01ad 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01ae 4936 |I6 | Short_Literal 0x136 01af 010f | | Execute Exception,Equal 01b0 680b |h | Jump_Zero 0x1bc 01b1 4801 |H | Short_Literal 0x1 01b2 0092 0e4a | J| Action Push_String_Extended,0xe4a ; "read" 01b4 e5ff | | Load 0x2,-0x1 01b5 e009 | | Load 0x0,0x9 01b6 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01b7 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 01b9 e00a | | Load 0x0,0xa 01ba 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 01bb 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01bc 00d8 | | Load_Top At_Offset_0 01bd 0107 | | Execute Exception,Get_Name 01be 4940 |I@ | Short_Literal 0x140 01bf 494f |IO | Short_Literal 0x14f 01c0 0262 | b | Execute Discrete,In_Range 01c1 680f |h | Jump_Zero 0x1d1 01c2 e402 | | Load 0x2,0x2 01c3 e008 | | Load 0x0,0x8 01c4 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01c5 c402 | | Store 0x2,0x2 01c6 4801 |H | Short_Literal 0x1 01c7 0092 0e4a | J| Action Push_String_Extended,0xe4a ; "read" 01c9 e5ff | | Load 0x2,-0x1 01ca e009 | | Load 0x0,0x9 01cb 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01cc 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 01ce e00a | | Load 0x0,0xa 01cf 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 01d0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01d1 00d8 | | Load_Top At_Offset_0 01d2 0107 | | Execute Exception,Get_Name 01d3 4960 |I` | Short_Literal 0x160 01d4 496f |Io | Short_Literal 0x16f 01d5 0262 | b | Execute Discrete,In_Range 01d6 680b |h | Jump_Zero 0x1e2 01d7 e402 | | Load 0x2,0x2 01d8 e008 | | Load 0x0,0x8 01d9 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01da c402 | | Store 0x2,0x2 01db 4801 |H | Short_Literal 0x1 01dc e5ff | | Load 0x2,-0x1 01dd e009 | | Load 0x0,0x9 01de 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01df e00a | | Load 0x0,0xa 01e0 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 01e1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01e2 0100 | | Execute Exception,Raise 01e3 0000 0000 | | .BLANK 0000[0x5] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 0219 | | .CONST 0x0219 ; Address of begin 01e9 0274 | t | .CONST 0x0274 ; Address of exception handler 01ea 000c | | .CONST 0x000c ; Number of locals 01eb INIT_01e8: 01eb e008 | | Load 0x0,0x8 01ec 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01ed 02c7 | | Declare_Variable Any 01ee 00d8 | | Load_Top At_Offset_0 01ef 1c00 | | Execute_Immediate Run_Utility,0x0 01f0 00e8 | | Load_Encached Character_Cache 01f1 48ff |H | Short_Literal 0xff 01f2 e009 | | Load 0x0,0x9 01f3 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01f4 1c08 | | Execute_Immediate Run_Utility,0x8 01f5 00d8 | | Load_Top At_Offset_0 01f6 1c00 | | Execute_Immediate Run_Utility,0x0 01f7 48ff |H | Short_Literal 0xff 01f8 e009 | | Load 0x0,0x9 01f9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01fa 1c08 | | Execute_Immediate Run_Utility,0x8 01fb 00d8 | | Load_Top At_Offset_0 01fc 1c00 | | Execute_Immediate Run_Utility,0x0 01fd 48ff |H | Short_Literal 0xff 01fe e009 | | Load 0x0,0x9 01ff 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0200 1c08 | | Execute_Immediate Run_Utility,0x8 0201 00d8 | | Load_Top At_Offset_0 0202 1c00 | | Execute_Immediate Run_Utility,0x0 0203 48ff |H | Short_Literal 0xff 0204 e009 | | Load 0x0,0x9 0205 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0206 1c08 | | Execute_Immediate Run_Utility,0x8 0207 00d8 | | Load_Top At_Offset_0 0208 1c00 | | Execute_Immediate Run_Utility,0x0 0209 48ff |H | Short_Literal 0xff 020a e009 | | Load 0x0,0x9 020b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 020c 1c08 | | Execute_Immediate Run_Utility,0x8 020d 00d8 | | Load_Top At_Offset_0 020e 1c00 | | Execute_Immediate Run_Utility,0x0 020f 00e1 | | Load_Encached Boolean_Cache 0210 00e1 | | Load_Encached Boolean_Cache 0211 e006 | | Load 0x0,0x6 0212 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0213 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0214 02c7 | | Declare_Variable Any 0215 00d8 | | Load_Top At_Offset_0 0216 1c00 | | Execute_Immediate Run_Utility,0x0 0217 029f 0b4b | K| Declare_Subprogram INIT_0b48,For_Call 0219 BODY_01e8: 0219 00be | | Action Activate_Tasks 021a 00e1 | | Load_Encached Boolean_Cache 021b 00e1 | | Load_Encached Boolean_Cache 021c e408 | | Load 0x2,0x8 021d e407 | | Load 0x2,0x7 021e e5ff | | Load 0x2,-0x1 021f 8236 | 6 | Call 0x1,0x36 0220 00d2 | | Pop_Control Pop_Count_2 0221 c409 | | Store 0x2,0x9 0222 005b | [ | Store_Top Discrete,At_Offset_3 0223 e406 | | Load 0x2,0x6 0224 e405 | | Load 0x2,0x5 0225 e404 | | Load 0x2,0x4 0226 e5fe | | Load 0x2,-0x2 0227 8234 | 4 | Call 0x1,0x34 0228 00d3 | | Pop_Control Pop_Count_3 0229 00da | | Load_Top At_Offset_2 022a 6819 |h | Jump_Zero 0x244 022b e406 | | Load 0x2,0x6 022c e009 | | Load 0x0,0x9 022d 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 022e 0c01 | | Execute_Immediate Greater_Equal,0x1 022f 6814 |h | Jump_Zero 0x244 0230 e407 | | Load 0x2,0x7 0231 e009 | | Load 0x0,0x9 0232 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0233 e406 | | Load 0x2,0x6 0234 e009 | | Load 0x0,0x9 0235 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0236 e007 | | Load 0x0,0x7 0237 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0238 680b |h | Jump_Zero 0x244 0239 4801 |H | Short_Literal 0x1 023a e406 | | Load 0x2,0x6 023b e009 | | Load 0x0,0x9 023c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 023d e007 | | Load 0x0,0x7 023e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 023f e406 | | Load 0x2,0x6 0240 e009 | | Load 0x0,0x9 0241 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0242 e00a | | Load 0x0,0xa 0243 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 0244 e402 | | Load 0x2,0x2 0245 00ea | | Load_Encached Null_String_Cache 0246 e407 | | Load 0x2,0x7 0247 e009 | | Load 0x0,0x9 0248 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0249 4801 |H | Short_Literal 0x1 024a e008 | | Load 0x0,0x8 024b 1814 | | Execute Package,Field_Execute,Field_Number 0x14 024c c402 | | Store 0x2,0x2 024d e22b | + | Load 0x1,0x2b 024e e402 | | Load 0x2,0x2 024f e008 | | Load 0x0,0x8 0250 184e | N | Execute Package,Field_Execute,Field_Number 0x4e 0251 00cf | | Action Mark_Auxiliary 0252 e5fe | | Load 0x2,-0x2 0253 e20e | | Load 0x1,0xe 0254 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0255 4801 |H | Short_Literal 0x1 0256 0263 | c | Execute Discrete,Above_Bound 0257 7013 |p | Jump_Nonzero 0x26b 0258 00d8 | | Load_Top At_Offset_0 0259 e5fe | | Load 0x2,-0x2 025a e20e | | Load 0x1,0xe 025b 1814 | | Execute Package,Field_Execute,Field_Number 0x14 025c a403 | | Store_Unchecked 0x2,0x3 025d e403 | | Load 0x2,0x3 025e 0f0a | | Execute_Immediate Equal,0xa 025f 6805 |h | Jump_Zero 0x265 0260 4801 |H | Short_Literal 0x1 0261 e402 | | Load 0x2,0x2 0262 e008 | | Load 0x0,0x8 0263 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0264 7804 |x | Jump 0x269 0265 e403 | | Load 0x2,0x3 0266 e402 | | Load 0x2,0x2 0267 e008 | | Load 0x0,0x8 0268 1846 | F | Execute Package,Field_Execute,Field_Number 0x46 0269 00c8 | | Action Pop_Auxiliary_Range 026a 3fed |? | Loop_Increasing 0x258 026b 00ce | | Action Pop_Auxiliary 026c e402 | | Load 0x2,0x2 026d e008 | | Load 0x0,0x8 026e 1816 | | Execute Package,Field_Execute,Field_Number 0x16 026f c402 | | Store 0x2,0x2 0270 00da | | Load_Top At_Offset_2 0271 6801 |h | Jump_Zero 0x273 0272 840c | | Call 0x2,0xc 0273 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0274 TRAP_01e8: 0274 4921 |I! | Short_Literal 0x121 0275 010f | | Execute Exception,Equal 0276 6807 |h | Jump_Zero 0x27e 0277 4801 |H | Short_Literal 0x1 0278 e5ff | | Load 0x2,-0x1 0279 e009 | | Load 0x0,0x9 027a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 027b e00a | | Load 0x0,0xa 027c 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 027d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 027e 4922 |I" | Short_Literal 0x122 027f 010f | | Execute Exception,Equal 0280 6807 |h | Jump_Zero 0x288 0281 4801 |H | Short_Literal 0x1 0282 e5ff | | Load 0x2,-0x1 0283 e009 | | Load 0x0,0x9 0284 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0285 e00a | | Load 0x0,0xa 0286 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0287 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0288 4923 |I# | Short_Literal 0x123 0289 010f | | Execute Exception,Equal 028a 6809 |h | Jump_Zero 0x294 028b 4801 |H | Short_Literal 0x1 028c e5ff | | Load 0x2,-0x1 028d e009 | | Load 0x0,0x9 028e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 028f 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 0291 e00a | | Load 0x0,0xa 0292 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 0293 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0294 4924 |I$ | Short_Literal 0x124 0295 010f | | Execute Exception,Equal 0296 6809 |h | Jump_Zero 0x2a0 0297 4801 |H | Short_Literal 0x1 0298 e5ff | | Load 0x2,-0x1 0299 e009 | | Load 0x0,0x9 029a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 029b 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 029d e00a | | Load 0x0,0xa 029e 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 029f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02a0 4925 |I% | Short_Literal 0x125 02a1 010f | | Execute Exception,Equal 02a2 6807 |h | Jump_Zero 0x2aa 02a3 4801 |H | Short_Literal 0x1 02a4 e5ff | | Load 0x2,-0x1 02a5 e009 | | Load 0x0,0x9 02a6 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02a7 e00a | | Load 0x0,0xa 02a8 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 02a9 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02aa 4931 |I1 | Short_Literal 0x131 02ab 010f | | Execute Exception,Equal 02ac 680b |h | Jump_Zero 0x2b8 02ad 4801 |H | Short_Literal 0x1 02ae 0092 0e4b | K| Action Push_String_Extended,0xe4b ; "written" 02b0 e5ff | | Load 0x2,-0x1 02b1 e009 | | Load 0x0,0x9 02b2 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02b3 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 02b5 e00a | | Load 0x0,0xa 02b6 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 02b7 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02b8 4932 |I2 | Short_Literal 0x132 02b9 010f | | Execute Exception,Equal 02ba 680b |h | Jump_Zero 0x2c6 02bb 4801 |H | Short_Literal 0x1 02bc 0092 0e4b | K| Action Push_String_Extended,0xe4b ; "written" 02be e5ff | | Load 0x2,-0x1 02bf e009 | | Load 0x0,0x9 02c0 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02c1 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 02c3 e00a | | Load 0x0,0xa 02c4 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 02c5 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02c6 4933 |I3 | Short_Literal 0x133 02c7 010f | | Execute Exception,Equal 02c8 6809 |h | Jump_Zero 0x2d2 02c9 4801 |H | Short_Literal 0x1 02ca e5ff | | Load 0x2,-0x1 02cb e009 | | Load 0x0,0x9 02cc 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02cd 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 02cf e00a | | Load 0x0,0xa 02d0 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 02d1 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02d2 4934 |I4 | Short_Literal 0x134 02d3 010f | | Execute Exception,Equal 02d4 680b |h | Jump_Zero 0x2e0 02d5 4801 |H | Short_Literal 0x1 02d6 0092 0e4b | K| Action Push_String_Extended,0xe4b ; "written" 02d8 e5ff | | Load 0x2,-0x1 02d9 e009 | | Load 0x0,0x9 02da 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02db 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 02dd e00a | | Load 0x0,0xa 02de 183c | < | Execute Package,Field_Execute,Field_Number 0x3c 02df 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02e0 4935 |I5 | Short_Literal 0x135 02e1 010f | | Execute Exception,Equal 02e2 680b |h | Jump_Zero 0x2ee 02e3 4801 |H | Short_Literal 0x1 02e4 0092 0e4b | K| Action Push_String_Extended,0xe4b ; "written" 02e6 e5ff | | Load 0x2,-0x1 02e7 e009 | | Load 0x0,0x9 02e8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02e9 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 02eb e00a | | Load 0x0,0xa 02ec 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 02ed 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02ee 4936 |I6 | Short_Literal 0x136 02ef 010f | | Execute Exception,Equal 02f0 680b |h | Jump_Zero 0x2fc 02f1 4801 |H | Short_Literal 0x1 02f2 0092 0e4b | K| Action Push_String_Extended,0xe4b ; "written" 02f4 e5ff | | Load 0x2,-0x1 02f5 e009 | | Load 0x0,0x9 02f6 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02f7 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 02f9 e00a | | Load 0x0,0xa 02fa 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 02fb 4503 |E | Exit_Suprogram New_Top_Offset 0x3 02fc 00d8 | | Load_Top At_Offset_0 02fd 0107 | | Execute Exception,Get_Name 02fe 4940 |I@ | Short_Literal 0x140 02ff 494f |IO | Short_Literal 0x14f 0300 0262 | b | Execute Discrete,In_Range 0301 680f |h | Jump_Zero 0x311 0302 e402 | | Load 0x2,0x2 0303 e008 | | Load 0x0,0x8 0304 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0305 c402 | | Store 0x2,0x2 0306 4801 |H | Short_Literal 0x1 0307 0092 0e4b | K| Action Push_String_Extended,0xe4b ; "written" 0309 e5ff | | Load 0x2,-0x1 030a e009 | | Load 0x0,0x9 030b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 030c 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 030e e00a | | Load 0x0,0xa 030f 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 0310 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0311 00d8 | | Load_Top At_Offset_0 0312 0107 | | Execute Exception,Get_Name 0313 4960 |I` | Short_Literal 0x160 0314 496f |Io | Short_Literal 0x16f 0315 0262 | b | Execute Discrete,In_Range 0316 6807 |h | Jump_Zero 0x31e 0317 4801 |H | Short_Literal 0x1 0318 e5ff | | Load 0x2,-0x1 0319 e009 | | Load 0x0,0x9 031a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 031b e00a | | Load 0x0,0xa 031c 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 031d 4503 |E | Exit_Suprogram New_Top_Offset 0x3 031e 0100 | | Execute Exception,Raise 031f 0000 | | .XXX[0x1] 0320 ; -------------------------------------------------------------------------------------- 0320 ; SUBPROGRAM 0320 ; -------------------------------------------------------------------------------------- 0320 032c | , | .CONST 0x032c ; Address of begin 0321 0376 | v | .CONST 0x0376 ; Address of exception handler 0322 0004 | | .CONST 0x0004 ; Number of locals 0323 INIT_0320: 0323 e008 | | Load 0x0,0x8 0324 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0325 02c7 | | Declare_Variable Any 0326 00d8 | | Load_Top At_Offset_0 0327 1c00 | | Execute_Immediate Run_Utility,0x0 0328 00e8 | | Load_Encached Character_Cache 0329 e00b | | Load 0x0,0xb 032a 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 032b 0337 | 7 | Declare_Variable Array 032c BODY_0320: 032c 00be | | Action Activate_Tasks 032d 8235 | 5 | Call 0x1,0x35 032e 00da | | Load_Top At_Offset_2 032f 00ea | | Load_Encached Null_String_Cache 0330 e5ff | | Load 0x2,-0x1 0331 e009 | | Load 0x0,0x9 0332 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0333 4801 |H | Short_Literal 0x1 0334 e008 | | Load 0x0,0x8 0335 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0336 c402 | | Store 0x2,0x2 0337 00cf | | Action Mark_Auxiliary 0338 e5fd | | Load 0x2,-0x3 0339 e20e | | Load 0x1,0xe 033a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 033b 4801 |H | Short_Literal 0x1 033c 0263 | c | Execute Discrete,Above_Bound 033d 7013 |p | Jump_Nonzero 0x351 033e 00d8 | | Load_Top At_Offset_0 033f e5fd | | Load 0x2,-0x3 0340 e20e | | Load 0x1,0xe 0341 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0342 a403 | | Store_Unchecked 0x2,0x3 0343 e403 | | Load 0x2,0x3 0344 0f0a | | Execute_Immediate Equal,0xa 0345 6805 |h | Jump_Zero 0x34b 0346 4801 |H | Short_Literal 0x1 0347 e402 | | Load 0x2,0x2 0348 e008 | | Load 0x0,0x8 0349 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 034a 7804 |x | Jump 0x34f 034b e403 | | Load 0x2,0x3 034c e402 | | Load 0x2,0x2 034d e008 | | Load 0x0,0x8 034e 1846 | F | Execute Package,Field_Execute,Field_Number 0x46 034f 00c8 | | Action Pop_Auxiliary_Range 0350 3fed |? | Loop_Increasing 0x33e 0351 00ce | | Action Pop_Auxiliary 0352 00da | | Load_Top At_Offset_2 0353 e008 | | Load 0x0,0x8 0354 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0355 c402 | | Store 0x2,0x2 0356 e5fe | | Load 0x2,-0x2 0357 701d |p | Jump_Nonzero 0x375 0358 e00b | | Load 0x0,0xb 0359 180e | | Execute Package,Field_Execute,Field_Number 0xe 035a e00b | | Load 0x0,0xb 035b 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 035c 00d9 | | Load_Top At_Offset_1 035d 01d4 | | Execute Vector,Structure_Write 035e 4801 |H | Short_Literal 0x1 035f 00d9 | | Load_Top At_Offset_1 0360 01d7 | | Execute Vector,Field_Read 0361 680a |h | Jump_Zero 0x36c 0362 0092 0e4c | L| Action Push_String_Extended,0xe4c ; "<PROFILE>" 0364 0092 0e46 | F| Action Push_String_Extended,0xe46 ; "POSTSCRIPT" 0366 e5ff | | Load 0x2,-0x1 0367 e009 | | Load 0x0,0x9 0368 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0369 e00c | | Load 0x0,0xc 036a 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 036b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 036c 0092 0e4d | M| Action Push_String_Extended,0xe4d ; "<QUIET>" 036e 0092 0e46 | F| Action Push_String_Extended,0xe46 ; "POSTSCRIPT" 0370 e5ff | | Load 0x2,-0x1 0371 e009 | | Load 0x0,0x9 0372 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0373 e00c | | Load 0x0,0xc 0374 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0375 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0376 TRAP_0320: 0376 4921 |I! | Short_Literal 0x121 0377 010f | | Execute Exception,Equal 0378 6807 |h | Jump_Zero 0x380 0379 4801 |H | Short_Literal 0x1 037a e5ff | | Load 0x2,-0x1 037b e009 | | Load 0x0,0x9 037c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 037d e00a | | Load 0x0,0xa 037e 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 037f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0380 4922 |I" | Short_Literal 0x122 0381 010f | | Execute Exception,Equal 0382 6807 |h | Jump_Zero 0x38a 0383 4801 |H | Short_Literal 0x1 0384 e5ff | | Load 0x2,-0x1 0385 e009 | | Load 0x0,0x9 0386 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0387 e00a | | Load 0x0,0xa 0388 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0389 4504 |E | Exit_Suprogram New_Top_Offset 0x4 038a 4923 |I# | Short_Literal 0x123 038b 010f | | Execute Exception,Equal 038c 6809 |h | Jump_Zero 0x396 038d 4801 |H | Short_Literal 0x1 038e e5ff | | Load 0x2,-0x1 038f e009 | | Load 0x0,0x9 0390 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0391 0092 0e4e | N| Action Push_String_Extended,0xe4e ; "print file" 0393 e00a | | Load 0x0,0xa 0394 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 0395 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0396 4924 |I$ | Short_Literal 0x124 0397 010f | | Execute Exception,Equal 0398 6809 |h | Jump_Zero 0x3a2 0399 4801 |H | Short_Literal 0x1 039a e5ff | | Load 0x2,-0x1 039b e009 | | Load 0x0,0x9 039c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 039d 0092 0e4e | N| Action Push_String_Extended,0xe4e ; "print file" 039f e00a | | Load 0x0,0xa 03a0 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 03a1 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03a2 4925 |I% | Short_Literal 0x125 03a3 010f | | Execute Exception,Equal 03a4 6807 |h | Jump_Zero 0x3ac 03a5 4801 |H | Short_Literal 0x1 03a6 e5ff | | Load 0x2,-0x1 03a7 e009 | | Load 0x0,0x9 03a8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03a9 e00a | | Load 0x0,0xa 03aa 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 03ab 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03ac 4931 |I1 | Short_Literal 0x131 03ad 010f | | Execute Exception,Equal 03ae 680b |h | Jump_Zero 0x3ba 03af 4801 |H | Short_Literal 0x1 03b0 0092 0e4b | K| Action Push_String_Extended,0xe4b ; "written" 03b2 e5ff | | Load 0x2,-0x1 03b3 e009 | | Load 0x0,0x9 03b4 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03b5 0092 0e4e | N| Action Push_String_Extended,0xe4e ; "print file" 03b7 e00a | | Load 0x0,0xa 03b8 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 03b9 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03ba 4932 |I2 | Short_Literal 0x132 03bb 010f | | Execute Exception,Equal 03bc 680b |h | Jump_Zero 0x3c8 03bd 4801 |H | Short_Literal 0x1 03be 0092 0e4b | K| Action Push_String_Extended,0xe4b ; "written" 03c0 e5ff | | Load 0x2,-0x1 03c1 e009 | | Load 0x0,0x9 03c2 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03c3 0092 0e4e | N| Action Push_String_Extended,0xe4e ; "print file" 03c5 e00a | | Load 0x0,0xa 03c6 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 03c7 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03c8 4933 |I3 | Short_Literal 0x133 03c9 010f | | Execute Exception,Equal 03ca 6809 |h | Jump_Zero 0x3d4 03cb 4801 |H | Short_Literal 0x1 03cc e5ff | | Load 0x2,-0x1 03cd e009 | | Load 0x0,0x9 03ce 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03cf 0092 0e4e | N| Action Push_String_Extended,0xe4e ; "print file" 03d1 e00a | | Load 0x0,0xa 03d2 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 03d3 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03d4 4934 |I4 | Short_Literal 0x134 03d5 010f | | Execute Exception,Equal 03d6 680b |h | Jump_Zero 0x3e2 03d7 4801 |H | Short_Literal 0x1 03d8 0092 0e4b | K| Action Push_String_Extended,0xe4b ; "written" 03da e5ff | | Load 0x2,-0x1 03db e009 | | Load 0x0,0x9 03dc 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03dd 0092 0e4e | N| Action Push_String_Extended,0xe4e ; "print file" 03df e00a | | Load 0x0,0xa 03e0 183c | < | Execute Package,Field_Execute,Field_Number 0x3c 03e1 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03e2 4935 |I5 | Short_Literal 0x135 03e3 010f | | Execute Exception,Equal 03e4 680b |h | Jump_Zero 0x3f0 03e5 4801 |H | Short_Literal 0x1 03e6 0092 0e4b | K| Action Push_String_Extended,0xe4b ; "written" 03e8 e5ff | | Load 0x2,-0x1 03e9 e009 | | Load 0x0,0x9 03ea 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03eb 0092 0e4e | N| Action Push_String_Extended,0xe4e ; "print file" 03ed e00a | | Load 0x0,0xa 03ee 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 03ef 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03f0 4936 |I6 | Short_Literal 0x136 03f1 010f | | Execute Exception,Equal 03f2 680b |h | Jump_Zero 0x3fe 03f3 4801 |H | Short_Literal 0x1 03f4 0092 0e4b | K| Action Push_String_Extended,0xe4b ; "written" 03f6 e5ff | | Load 0x2,-0x1 03f7 e009 | | Load 0x0,0x9 03f8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03f9 0092 0e4e | N| Action Push_String_Extended,0xe4e ; "print file" 03fb e00a | | Load 0x0,0xa 03fc 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 03fd 4504 |E | Exit_Suprogram New_Top_Offset 0x4 03fe 00d8 | | Load_Top At_Offset_0 03ff 0107 | | Execute Exception,Get_Name 0400 4940 |I@ | Short_Literal 0x140 0401 494f |IO | Short_Literal 0x14f 0402 0262 | b | Execute Discrete,In_Range 0403 680f |h | Jump_Zero 0x413 0404 00db | | Load_Top At_Offset_3 0405 e008 | | Load 0x0,0x8 0406 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0407 c402 | | Store 0x2,0x2 0408 4801 |H | Short_Literal 0x1 0409 0092 0e4b | K| Action Push_String_Extended,0xe4b ; "written" 040b e5ff | | Load 0x2,-0x1 040c e009 | | Load 0x0,0x9 040d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 040e 0092 0e4e | N| Action Push_String_Extended,0xe4e ; "print file" 0410 e00a | | Load 0x0,0xa 0411 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 0412 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0413 00d8 | | Load_Top At_Offset_0 0414 0107 | | Execute Exception,Get_Name 0415 4960 |I` | Short_Literal 0x160 0416 496f |Io | Short_Literal 0x16f 0417 0262 | b | Execute Discrete,In_Range 0418 680b |h | Jump_Zero 0x424 0419 00db | | Load_Top At_Offset_3 041a e008 | | Load 0x0,0x8 041b 1816 | | Execute Package,Field_Execute,Field_Number 0x16 041c c402 | | Store 0x2,0x2 041d 4801 |H | Short_Literal 0x1 041e e5ff | | Load 0x2,-0x1 041f e009 | | Load 0x0,0x9 0420 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0421 e00a | | Load 0x0,0xa 0422 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0423 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0424 0100 | | Execute Exception,Raise 0425 0000 0000 | | .XXX[0x3] 0427 0000 | | 0428 ; -------------------------------------------------------------------------------------- 0428 ; SUBPROGRAM 0428 ; -------------------------------------------------------------------------------------- 0428 0449 | I | .CONST 0x0449 ; Address of begin 0429 052c | , | .CONST 0x052c ; Address of exception handler 042a 0006 | | .CONST 0x0006 ; Number of locals 042b INIT_0428: 042b e006 | | Load 0x0,0x6 042c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 042d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 042e 02c7 | | Declare_Variable Any 042f 00d8 | | Load_Top At_Offset_0 0430 1c00 | | Execute_Immediate Run_Utility,0x0 0431 e006 | | Load 0x0,0x6 0432 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0433 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30 0434 02c7 | | Declare_Variable Any 0435 00d8 | | Load_Top At_Offset_0 0436 1c00 | | Execute_Immediate Run_Utility,0x0 0437 48ff |H | Short_Literal 0xff 0438 e009 | | Load 0x0,0x9 0439 1b0e | | Execute Package,Field_Read,Field_Number 0xe 043a 1c08 | | Execute_Immediate Run_Utility,0x8 043b 00d8 | | Load_Top At_Offset_0 043c 1c00 | | Execute_Immediate Run_Utility,0x0 043d 48ff |H | Short_Literal 0xff 043e e009 | | Load 0x0,0x9 043f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0440 1c08 | | Execute_Immediate Run_Utility,0x8 0441 00d8 | | Load_Top At_Offset_0 0442 1c00 | | Execute_Immediate Run_Utility,0x0 0443 48ff |H | Short_Literal 0xff 0444 e009 | | Load 0x0,0x9 0445 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0446 1c08 | | Execute_Immediate Run_Utility,0x8 0447 00d8 | | Load_Top At_Offset_0 0448 1c00 | | Execute_Immediate Run_Utility,0x0 0449 BODY_0428: 0449 8235 | 5 | Call 0x1,0x35 044a 00d8 | | Load_Top At_Offset_0 044b 00da | | Load_Top At_Offset_2 044c e404 | | Load 0x2,0x4 044d e5ff | | Load 0x2,-0x1 044e e009 | | Load 0x0,0x9 044f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0450 8231 | 1 | Call 0x1,0x31 0451 00d3 | | Pop_Control Pop_Count_3 0452 00d8 | | Load_Top At_Offset_0 0453 e009 | | Load 0x0,0x9 0454 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0455 0c01 | | Execute_Immediate Greater_Equal,0x1 0456 6805 |h | Jump_Zero 0x45c 0457 00d8 | | Load_Top At_Offset_0 0458 e009 | | Load 0x0,0x9 0459 1813 | | Execute Package,Field_Execute,Field_Number 0x13 045a e007 | | Load 0x0,0x7 045b 1810 | | Execute Package,Field_Execute,Field_Number 0x10 045c 4801 |H | Short_Literal 0x1 045d e006 | | Load 0x0,0x6 045e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 045f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0460 e5ff | | Load 0x2,-0x1 0461 e009 | | Load 0x0,0x9 0462 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0463 e006 | | Load 0x0,0x6 0464 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0465 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0466 c402 | | Store 0x2,0x2 0467 e402 | | Load 0x2,0x2 0468 e006 | | Load 0x0,0x6 0469 1b0d | | Execute Package,Field_Read,Field_Number 0xd 046a 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 046b c403 | | Store 0x2,0x3 046c 00db | | Load_Top At_Offset_3 046d e006 | | Load 0x0,0x6 046e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 046f 1845 | E | Execute Package,Field_Execute,Field_Number 0x45 0470 4618 |F | Jump_Case 0x19 0471 7866 |xf | Jump 0x4d8 ; case 0x0 0472 7865 |xe | Jump 0x4d8 ; case 0x1 0473 781f |x | Jump 0x493 ; case 0x2 0474 7815 |x | Jump 0x48a ; case 0x3 0475 7814 |x | Jump 0x48a ; case 0x4 0476 7813 |x | Jump 0x48a ; case 0x5 0477 7812 |x | Jump 0x48a ; case 0x6 0478 7811 |x | Jump 0x48a ; case 0x7 0479 7810 |x | Jump 0x48a ; case 0x8 047a 7823 |x# | Jump 0x49e ; case 0x9 047b 780e |x | Jump 0x48a ; case 0xa 047c 780d |x | Jump 0x48a ; case 0xb 047d 7829 |x) | Jump 0x4a7 ; case 0xc 047e 782f |x/ | Jump 0x4ae ; case 0xd 047f 7837 |x7 | Jump 0x4b7 ; case 0xe 0480 783d |x= | Jump 0x4be ; case 0xf 0481 7843 |xC | Jump 0x4c5 ; case 0x10 0482 784d |xM | Jump 0x4d0 ; case 0x11 0483 7806 |x | Jump 0x48a ; case 0x12 0484 7805 |x | Jump 0x48a ; case 0x13 0485 7804 |x | Jump 0x48a ; case 0x14 0486 7803 |x | Jump 0x48a ; case 0x15 0487 7802 |x | Jump 0x48a ; case 0x16 0488 7801 |x | Jump 0x48a ; case 0x17 0489 7800 |x | Jump 0x48a ; case 0x18 048a 4801 |H | Short_Literal 0x1 048b e5ff | | Load 0x2,-0x1 048c e009 | | Load 0x0,0x9 048d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 048e 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 0490 e00a | | Load 0x0,0xa 0491 1844 | D | Execute Package,Field_Execute,Field_Number 0x44 0492 7845 |xE | Jump 0x4d8 0493 4801 |H | Short_Literal 0x1 0494 0092 0e4f | O| Action Push_String_Extended,0xe4f ; "deleted" 0496 e5ff | | Load 0x2,-0x1 0497 e009 | | Load 0x0,0x9 0498 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0499 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 049b e00a | | Load 0x0,0xa 049c 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 049d 783a |x: | Jump 0x4d8 049e 4801 |H | Short_Literal 0x1 049f e5ff | | Load 0x2,-0x1 04a0 e009 | | Load 0x0,0x9 04a1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 04a2 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 04a4 e00a | | Load 0x0,0xa 04a5 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 04a6 7831 |x1 | Jump 0x4d8 04a7 4801 |H | Short_Literal 0x1 04a8 e5ff | | Load 0x2,-0x1 04a9 e009 | | Load 0x0,0x9 04aa 1813 | | Execute Package,Field_Execute,Field_Number 0x13 04ab e00a | | Load 0x0,0xa 04ac 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 04ad 782a |x* | Jump 0x4d8 04ae 4801 |H | Short_Literal 0x1 04af e5ff | | Load 0x2,-0x1 04b0 e009 | | Load 0x0,0x9 04b1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 04b2 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 04b4 e00a | | Load 0x0,0xa 04b5 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 04b6 7821 |x! | Jump 0x4d8 04b7 4801 |H | Short_Literal 0x1 04b8 e5ff | | Load 0x2,-0x1 04b9 e009 | | Load 0x0,0x9 04ba 1813 | | Execute Package,Field_Execute,Field_Number 0x13 04bb e00a | | Load 0x0,0xa 04bc 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 04bd 781a |x | Jump 0x4d8 04be 4801 |H | Short_Literal 0x1 04bf e5ff | | Load 0x2,-0x1 04c0 e009 | | Load 0x0,0x9 04c1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 04c2 e00a | | Load 0x0,0xa 04c3 1843 | C | Execute Package,Field_Execute,Field_Number 0x43 04c4 7813 |x | Jump 0x4d8 04c5 4801 |H | Short_Literal 0x1 04c6 0092 0e4f | O| Action Push_String_Extended,0xe4f ; "deleted" 04c8 e5ff | | Load 0x2,-0x1 04c9 e009 | | Load 0x0,0x9 04ca 1813 | | Execute Package,Field_Execute,Field_Number 0x13 04cb 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 04cd e00a | | Load 0x0,0xa 04ce 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 04cf 7808 |x | Jump 0x4d8 04d0 4801 |H | Short_Literal 0x1 04d1 e5ff | | Load 0x2,-0x1 04d2 e009 | | Load 0x0,0x9 04d3 1813 | | Execute Package,Field_Execute,Field_Number 0x13 04d4 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 04d6 e00a | | Load 0x0,0xa 04d7 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 04d8 00db | | Load_Top At_Offset_3 04d9 0120 | | Execute Any,Is_Value 04da 6804 |h | Jump_Zero 0x4df 04db e006 | | Load 0x0,0x6 04dc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04dd 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30 04de 7801 |x | Jump 0x4e0 04df 00db | | Load_Top At_Offset_3 04e0 4fff |O | Short_Literal -0x1 04e1 e402 | | Load 0x2,0x2 04e2 e006 | | Load 0x0,0x6 04e3 1b10 | | Execute Package,Field_Read,Field_Number 0x10 04e4 1819 | | Execute Package,Field_Execute,Field_Number 0x19 04e5 c403 | | Store 0x2,0x3 04e6 00db | | Load_Top At_Offset_3 04e7 e006 | | Load 0x0,0x6 04e8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 04e9 1845 | E | Execute Package,Field_Execute,Field_Number 0x45 04ea 4618 |F | Jump_Case 0x19 04eb 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x0 04ec 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x1 04ed 781f |x | Jump 0x50d ; case 0x2 04ee 7815 |x | Jump 0x504 ; case 0x3 04ef 7814 |x | Jump 0x504 ; case 0x4 04f0 7813 |x | Jump 0x504 ; case 0x5 04f1 7812 |x | Jump 0x504 ; case 0x6 04f2 7811 |x | Jump 0x504 ; case 0x7 04f3 7810 |x | Jump 0x504 ; case 0x8 04f4 780f |x | Jump 0x504 ; case 0x9 04f5 780e |x | Jump 0x504 ; case 0xa 04f6 780d |x | Jump 0x504 ; case 0xb 04f7 780c |x | Jump 0x504 ; case 0xc 04f8 780b |x | Jump 0x504 ; case 0xd 04f9 780a |x | Jump 0x504 ; case 0xe 04fa 7809 |x | Jump 0x504 ; case 0xf 04fb 781c |x | Jump 0x518 ; case 0x10 04fc 7826 |x& | Jump 0x523 ; case 0x11 04fd 7806 |x | Jump 0x504 ; case 0x12 04fe 7805 |x | Jump 0x504 ; case 0x13 04ff 7804 |x | Jump 0x504 ; case 0x14 0500 7803 |x | Jump 0x504 ; case 0x15 0501 7802 |x | Jump 0x504 ; case 0x16 0502 7801 |x | Jump 0x504 ; case 0x17 0503 7800 |x | Jump 0x504 ; case 0x18 0504 4801 |H | Short_Literal 0x1 0505 e5ff | | Load 0x2,-0x1 0506 e009 | | Load 0x0,0x9 0507 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0508 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 050a e00a | | Load 0x0,0xa 050b 1844 | D | Execute Package,Field_Execute,Field_Number 0x44 050c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 050d 4801 |H | Short_Literal 0x1 050e 0092 0e50 | P| Action Push_String_Extended,0xe50 ; "deleted);" 0510 e5ff | | Load 0x2,-0x1 0511 e009 | | Load 0x0,0x9 0512 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0513 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 0515 e00a | | Load 0x0,0xa 0516 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 0517 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0518 4801 |H | Short_Literal 0x1 0519 0092 0e50 | P| Action Push_String_Extended,0xe50 ; "deleted);" 051b e5ff | | Load 0x2,-0x1 051c e009 | | Load 0x0,0x9 051d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 051e 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 0520 e00a | | Load 0x0,0xa 0521 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 0522 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0523 4801 |H | Short_Literal 0x1 0524 e5ff | | Load 0x2,-0x1 0525 e009 | | Load 0x0,0x9 0526 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0527 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 0529 e00a | | Load 0x0,0xa 052a 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 052b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 052c TRAP_0428: 052c 4921 |I! | Short_Literal 0x121 052d 010f | | Execute Exception,Equal 052e 6807 |h | Jump_Zero 0x536 052f 4801 |H | Short_Literal 0x1 0530 e5ff | | Load 0x2,-0x1 0531 e009 | | Load 0x0,0x9 0532 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0533 e00a | | Load 0x0,0xa 0534 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 0535 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0536 4922 |I" | Short_Literal 0x122 0537 010f | | Execute Exception,Equal 0538 6807 |h | Jump_Zero 0x540 0539 4801 |H | Short_Literal 0x1 053a e5ff | | Load 0x2,-0x1 053b e009 | | Load 0x0,0x9 053c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 053d e00a | | Load 0x0,0xa 053e 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 053f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0540 4923 |I# | Short_Literal 0x123 0541 010f | | Execute Exception,Equal 0542 6809 |h | Jump_Zero 0x54c 0543 4801 |H | Short_Literal 0x1 0544 e5ff | | Load 0x2,-0x1 0545 e009 | | Load 0x0,0x9 0546 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0547 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 0549 e00a | | Load 0x0,0xa 054a 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 054b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 054c 4924 |I$ | Short_Literal 0x124 054d 010f | | Execute Exception,Equal 054e 6809 |h | Jump_Zero 0x558 054f 4801 |H | Short_Literal 0x1 0550 e5ff | | Load 0x2,-0x1 0551 e009 | | Load 0x0,0x9 0552 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0553 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 0555 e00a | | Load 0x0,0xa 0556 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 0557 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0558 4925 |I% | Short_Literal 0x125 0559 010f | | Execute Exception,Equal 055a 6807 |h | Jump_Zero 0x562 055b 4801 |H | Short_Literal 0x1 055c e5ff | | Load 0x2,-0x1 055d e009 | | Load 0x0,0x9 055e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 055f e00a | | Load 0x0,0xa 0560 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0561 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0562 4931 |I1 | Short_Literal 0x131 0563 010f | | Execute Exception,Equal 0564 680b |h | Jump_Zero 0x570 0565 4801 |H | Short_Literal 0x1 0566 0092 0e4a | J| Action Push_String_Extended,0xe4a ; "read" 0568 e5ff | | Load 0x2,-0x1 0569 e009 | | Load 0x0,0x9 056a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 056b 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 056d e00a | | Load 0x0,0xa 056e 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 056f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0570 4932 |I2 | Short_Literal 0x132 0571 010f | | Execute Exception,Equal 0572 680b |h | Jump_Zero 0x57e 0573 4801 |H | Short_Literal 0x1 0574 0092 0e4a | J| Action Push_String_Extended,0xe4a ; "read" 0576 e5ff | | Load 0x2,-0x1 0577 e009 | | Load 0x0,0x9 0578 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0579 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 057b e00a | | Load 0x0,0xa 057c 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 057d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 057e 4933 |I3 | Short_Literal 0x133 057f 010f | | Execute Exception,Equal 0580 6809 |h | Jump_Zero 0x58a 0581 4801 |H | Short_Literal 0x1 0582 e5ff | | Load 0x2,-0x1 0583 e009 | | Load 0x0,0x9 0584 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0585 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 0587 e00a | | Load 0x0,0xa 0588 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 0589 4502 |E | Exit_Suprogram New_Top_Offset 0x2 058a e20d | | Load 0x1,0xd 058b 010f | | Execute Exception,Equal 058c 6809 |h | Jump_Zero 0x596 058d 4801 |H | Short_Literal 0x1 058e e5ff | | Load 0x2,-0x1 058f e009 | | Load 0x0,0x9 0590 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0591 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 0593 e00a | | Load 0x0,0xa 0594 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 0595 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0596 4934 |I4 | Short_Literal 0x134 0597 010f | | Execute Exception,Equal 0598 680b |h | Jump_Zero 0x5a4 0599 4801 |H | Short_Literal 0x1 059a 0092 0e4a | J| Action Push_String_Extended,0xe4a ; "read" 059c e5ff | | Load 0x2,-0x1 059d e009 | | Load 0x0,0x9 059e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 059f 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 05a1 e00a | | Load 0x0,0xa 05a2 183c | < | Execute Package,Field_Execute,Field_Number 0x3c 05a3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05a4 4935 |I5 | Short_Literal 0x135 05a5 010f | | Execute Exception,Equal 05a6 680b |h | Jump_Zero 0x5b2 05a7 4801 |H | Short_Literal 0x1 05a8 0092 0e4a | J| Action Push_String_Extended,0xe4a ; "read" 05aa e5ff | | Load 0x2,-0x1 05ab e009 | | Load 0x0,0x9 05ac 1813 | | Execute Package,Field_Execute,Field_Number 0x13 05ad 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 05af e00a | | Load 0x0,0xa 05b0 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 05b1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05b2 4936 |I6 | Short_Literal 0x136 05b3 010f | | Execute Exception,Equal 05b4 680b |h | Jump_Zero 0x5c0 05b5 4801 |H | Short_Literal 0x1 05b6 0092 0e4a | J| Action Push_String_Extended,0xe4a ; "read" 05b8 e5ff | | Load 0x2,-0x1 05b9 e009 | | Load 0x0,0x9 05ba 1813 | | Execute Package,Field_Execute,Field_Number 0x13 05bb 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 05bd e00a | | Load 0x0,0xa 05be 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 05bf 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05c0 00d8 | | Load_Top At_Offset_0 05c1 0107 | | Execute Exception,Get_Name 05c2 4940 |I@ | Short_Literal 0x140 05c3 494f |IO | Short_Literal 0x14f 05c4 0262 | b | Execute Discrete,In_Range 05c5 680b |h | Jump_Zero 0x5d1 05c6 4801 |H | Short_Literal 0x1 05c7 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "reading" 05c9 e5ff | | Load 0x2,-0x1 05ca e009 | | Load 0x0,0x9 05cb 1813 | | Execute Package,Field_Execute,Field_Number 0x13 05cc 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 05ce e00a | | Load 0x0,0xa 05cf 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 05d0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05d1 00d8 | | Load_Top At_Offset_0 05d2 0107 | | Execute Exception,Get_Name 05d3 4960 |I` | Short_Literal 0x160 05d4 496f |Io | Short_Literal 0x16f 05d5 0262 | b | Execute Discrete,In_Range 05d6 6807 |h | Jump_Zero 0x5de 05d7 4801 |H | Short_Literal 0x1 05d8 e5ff | | Load 0x2,-0x1 05d9 e009 | | Load 0x0,0x9 05da 1813 | | Execute Package,Field_Execute,Field_Number 0x13 05db e00a | | Load 0x0,0xa 05dc 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 05dd 4502 |E | Exit_Suprogram New_Top_Offset 0x2 05de 0100 | | Execute Exception,Raise 05df 0000 | | .XXX[0x1] 05e0 ; -------------------------------------------------------------------------------------- 05e0 ; SUBPROGRAM 05e0 ; -------------------------------------------------------------------------------------- 05e0 0600 | | .CONST 0x0600 ; Address of begin 05e1 0004 | | .CONST 0x0004 ; Address of exception handler 05e2 0006 | | .CONST 0x0006 ; Number of locals 05e3 INIT_05e0: 05e3 e006 | | Load 0x0,0x6 05e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05e5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05e6 02c7 | | Declare_Variable Any 05e7 00d8 | | Load_Top At_Offset_0 05e8 1c00 | | Execute_Immediate Run_Utility,0x0 05e9 e006 | | Load 0x0,0x6 05ea 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05eb 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30 05ec 02c7 | | Declare_Variable Any 05ed 00d8 | | Load_Top At_Offset_0 05ee 1c00 | | Execute_Immediate Run_Utility,0x0 05ef e006 | | Load 0x0,0x6 05f0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 05f1 1b44 | D | Execute Package,Field_Read,Field_Number 0x44 05f2 e5ff | | Load 0x2,-0x1 05f3 e009 | | Load 0x0,0x9 05f4 1813 | | Execute Package,Field_Execute,Field_Number 0x13 05f5 0092 0e52 | R| Action Push_String_Extended,0xe52 ; ".@" 05f7 01cc | | Execute Vector,Catenate 05f8 0007 | | Action Break_Optional 05f9 e5fe | | Load 0x2,-0x2 05fa e009 | | Load 0x0,0x9 05fb 1813 | | Execute Package,Field_Execute,Field_Number 0x13 05fc 0092 0e52 | R| Action Push_String_Extended,0xe52 ; ".@" 05fe 01cc | | Execute Vector,Catenate 05ff 0007 | | Action Break_Optional 0600 BODY_05e0: 0600 8235 | 5 | Call 0x1,0x35 0601 e5ff | | Load 0x2,-0x1 0602 e009 | | Load 0x0,0x9 0603 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0604 8232 | 2 | Call 0x1,0x32 0605 e5fe | | Load 0x2,-0x2 0606 e009 | | Load 0x0,0x9 0607 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0608 8232 | 2 | Call 0x1,0x32 0609 4801 |H | Short_Literal 0x1 060a e006 | | Load 0x0,0x6 060b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 060c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 060d 00da | | Load_Top At_Offset_2 060e e006 | | Load 0x0,0x6 060f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0610 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0611 c402 | | Store 0x2,0x2 0612 e402 | | Load 0x2,0x2 0613 e006 | | Load 0x0,0x6 0614 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0615 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0616 e006 | | Load 0x0,0x6 0617 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0618 1845 | E | Execute Package,Field_Execute,Field_Number 0x45 0619 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 061a 00da | | Load_Top At_Offset_2 061b 0f00 | | Execute_Immediate Equal,0x0 061c 00db | | Load_Top At_Offset_3 061d 0f0e | | Execute_Immediate Equal,0xe 061e 0278 | x | Execute Discrete,Or 061f 6807 |h | Jump_Zero 0x627 0620 0092 0e4c | L| Action Push_String_Extended,0xe4c ; "<PROFILE>" 0622 0092 0e53 | S| Action Push_String_Extended,0xe53 ; "<DIRECTORIES>" 0624 00da | | Load_Top At_Offset_2 0625 e00c | | Load 0x0,0xc 0626 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0627 4801 |H | Short_Literal 0x1 0628 e006 | | Load 0x0,0x6 0629 1b0e | | Execute Package,Field_Read,Field_Number 0xe 062a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 062b 00db | | Load_Top At_Offset_3 062c e006 | | Load 0x0,0x6 062d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 062e 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 062f c402 | | Store 0x2,0x2 0630 e402 | | Load 0x2,0x2 0631 e006 | | Load 0x0,0x6 0632 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0633 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0634 e006 | | Load 0x0,0x6 0635 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0636 1845 | E | Execute Package,Field_Execute,Field_Number 0x45 0637 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0638 00da | | Load_Top At_Offset_2 0639 0f00 | | Execute_Immediate Equal,0x0 063a 00db | | Load_Top At_Offset_3 063b 0f0e | | Execute_Immediate Equal,0xe 063c 0278 | x | Execute Discrete,Or 063d 6809 |h | Jump_Zero 0x647 063e 00ea | | Load_Encached Null_String_Cache 063f 4801 |H | Short_Literal 0x1 0640 0092 0e4c | L| Action Push_String_Extended,0xe4c ; "<PROFILE>" 0642 4801 |H | Short_Literal 0x1 0643 e406 | | Load 0x2,0x6 0644 e405 | | Load 0x2,0x5 0645 e00c | | Load 0x0,0xc 0646 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0647 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0648 ; -------------------------------------------------------------------------------------- 0648 ; SUBPROGRAM 0648 ; -------------------------------------------------------------------------------------- 0648 0661 | a | .CONST 0x0661 ; Address of begin 0649 0004 | | .CONST 0x0004 ; Address of exception handler 064a 0006 | | .CONST 0x0006 ; Number of locals 064b INIT_0648: 064b e006 | | Load 0x0,0x6 064c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 064d 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 064e 02c7 | | Declare_Variable Any 064f 00d8 | | Load_Top At_Offset_0 0650 1c00 | | Execute_Immediate Run_Utility,0x0 0651 e006 | | Load 0x0,0x6 0652 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0653 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0654 02c7 | | Declare_Variable Any 0655 00d8 | | Load_Top At_Offset_0 0656 1c00 | | Execute_Immediate Run_Utility,0x0 0657 e006 | | Load 0x0,0x6 0658 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0659 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 065a 02c7 | | Declare_Variable Any 065b 00d8 | | Load_Top At_Offset_0 065c 1c00 | | Execute_Immediate Run_Utility,0x0 065d e20e | | Load 0x1,0xe 065e 1b11 | | Execute Package,Field_Read,Field_Number 0x11 065f 029f 0b6b | k| Declare_Subprogram INIT_0b68,For_Call 0661 BODY_0648: 0661 8235 | 5 | Call 0x1,0x35 0662 4801 |H | Short_Literal 0x1 0663 e006 | | Load 0x0,0x6 0664 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0665 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0666 e5ff | | Load 0x2,-0x1 0667 e009 | | Load 0x0,0x9 0668 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0669 0092 0e52 | R| Action Push_String_Extended,0xe52 ; ".@" 066b 01cc | | Execute Vector,Catenate 066c e006 | | Load 0x0,0x6 066d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 066e 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 066f c402 | | Store 0x2,0x2 0670 00cf | | Action Mark_Auxiliary 0671 7819 |x | Jump 0x68b 0672 e402 | | Load 0x2,0x2 0673 e006 | | Load 0x0,0x6 0674 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0675 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0676 c403 | | Store 0x2,0x3 0677 e403 | | Load 0x2,0x3 0678 e006 | | Load 0x0,0x6 0679 1b0d | | Execute Package,Field_Read,Field_Number 0xd 067a 181f | | Execute Package,Field_Execute,Field_Number 0x1f 067b c404 | | Store 0x2,0x4 067c 00db | | Load_Top At_Offset_3 067d e006 | | Load 0x0,0x6 067e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 067f 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0680 0092 0e54 | T| Action Push_String_Extended,0xe54 ; "TEXT" 0682 01df | | Execute Vector,Equal 0683 6801 |h | Jump_Zero 0x685 0684 8406 | | Call 0x2,0x6 0685 e402 | | Load 0x2,0x2 0686 e006 | | Load 0x0,0x6 0687 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0688 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0689 c402 | | Store 0x2,0x2 068a 00c9 | | Action Pop_Auxiliary_Loop 068b e402 | | Load 0x2,0x2 068c e006 | | Load 0x0,0x6 068d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 068e 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 068f 6fe2 |o | Jump_Zero 0x672 0690 00ce | | Action Pop_Auxiliary 0691 00d9 | | Load_Top At_Offset_1 0692 a5fd | | Store_Unchecked 0x2,-0x3 0693 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0694 0000 0000 | | .BLANK 0000[0x4] 0698 ; -------------------------------------------------------------------------------------- 0698 ; SUBPROGRAM 0698 ; -------------------------------------------------------------------------------------- 0698 06a9 | | .CONST 0x06a9 ; Address of begin 0699 0004 | | .CONST 0x0004 ; Address of exception handler 069a 0004 | | .CONST 0x0004 ; Number of locals 069b INIT_0698: 069b e006 | | Load 0x0,0x6 069c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 069d 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30 069e 02c7 | | Declare_Variable Any 069f 00d8 | | Load_Top At_Offset_0 06a0 1c00 | | Execute_Immediate Run_Utility,0x0 06a1 e006 | | Load 0x0,0x6 06a2 1b0e | | Execute Package,Field_Read,Field_Number 0xe 06a3 1b0f | | Execute Package,Field_Read,Field_Number 0xf 06a4 02c7 | | Declare_Variable Any 06a5 00d8 | | Load_Top At_Offset_0 06a6 1c00 | | Execute_Immediate Run_Utility,0x0 06a7 029f 0b8b | | Declare_Subprogram INIT_0b88,For_Call 06a9 BODY_0698: 06a9 00da | | Load_Top At_Offset_2 06aa 0120 | | Execute Any,Is_Value 06ab 6804 |h | Jump_Zero 0x6b0 06ac e006 | | Load 0x0,0x6 06ad 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06ae 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30 06af 7801 |x | Jump 0x6b1 06b0 00da | | Load_Top At_Offset_2 06b1 e22c | , | Load 0x1,0x2c 06b2 e006 | | Load 0x0,0x6 06b3 1b0e | | Execute Package,Field_Read,Field_Number 0xe 06b4 1811 | | Execute Package,Field_Execute,Field_Number 0x11 06b5 c402 | | Store 0x2,0x2 06b6 4801 |H | Short_Literal 0x1 06b7 e006 | | Load 0x0,0x6 06b8 1b0e | | Execute Package,Field_Read,Field_Number 0xe 06b9 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06ba e5ff | | Load 0x2,-0x1 06bb e009 | | Load 0x0,0x9 06bc 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06bd e006 | | Load 0x0,0x6 06be 1b0e | | Execute Package,Field_Read,Field_Number 0xe 06bf 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 06c0 c403 | | Store 0x2,0x3 06c1 00d9 | | Load_Top At_Offset_1 06c2 e006 | | Load 0x0,0x6 06c3 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06c4 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 06c5 c402 | | Store 0x2,0x2 06c6 00da | | Load_Top At_Offset_2 06c7 e006 | | Load 0x0,0x6 06c8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 06c9 1845 | E | Execute Package,Field_Execute,Field_Number 0x45 06ca 4618 |F | Jump_Case 0x19 06cb 7823 |x# | Jump 0x6ef ; case 0x0 06cc 7822 |x" | Jump 0x6ef ; case 0x1 06cd 7823 |x# | Jump 0x6f1 ; case 0x2 06ce 7815 |x | Jump 0x6e4 ; case 0x3 06cf 7814 |x | Jump 0x6e4 ; case 0x4 06d0 7813 |x | Jump 0x6e4 ; case 0x5 06d1 7812 |x | Jump 0x6e4 ; case 0x6 06d2 7811 |x | Jump 0x6e4 ; case 0x7 06d3 7810 |x | Jump 0x6e4 ; case 0x8 06d4 7829 |x) | Jump 0x6fe ; case 0x9 06d5 780e |x | Jump 0x6e4 ; case 0xa 06d6 780d |x | Jump 0x6e4 ; case 0xb 06d7 782f |x/ | Jump 0x707 ; case 0xc 06d8 7837 |x7 | Jump 0x710 ; case 0xd 06d9 783f |x? | Jump 0x719 ; case 0xe 06da 7847 |xG | Jump 0x722 ; case 0xf 06db 784f |xO | Jump 0x72b ; case 0x10 06dc 785b |x[ | Jump 0x738 ; case 0x11 06dd 7806 |x | Jump 0x6e4 ; case 0x12 06de 7805 |x | Jump 0x6e4 ; case 0x13 06df 7804 |x | Jump 0x6e4 ; case 0x14 06e0 7803 |x | Jump 0x6e4 ; case 0x15 06e1 7802 |x | Jump 0x6e4 ; case 0x16 06e2 7801 |x | Jump 0x6e4 ; case 0x17 06e3 7800 |x | Jump 0x6e4 ; case 0x18 06e4 4801 |H | Short_Literal 0x1 06e5 e5ff | | Load 0x2,-0x1 06e6 e009 | | Load 0x0,0x9 06e7 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06e8 e00d | | Load 0x0,0xd 06e9 1814 | | Execute Package,Field_Execute,Field_Number 0x14 06ea 0092 0e55 | U| Action Push_String_Extended,0xe55 ; "library" 06ec e00a | | Load 0x0,0xa 06ed 1844 | D | Execute Package,Field_Execute,Field_Number 0x44 06ee 7853 |xS | Jump 0x742 06ef 8404 | | Call 0x2,0x4 06f0 7851 |xQ | Jump 0x742 06f1 4801 |H | Short_Literal 0x1 06f2 0092 0e56 | V| Action Push_String_Extended,0xe56 ; "used as the context" 06f4 e5ff | | Load 0x2,-0x1 06f5 e009 | | Load 0x0,0x9 06f6 1813 | | Execute Package,Field_Execute,Field_Number 0x13 06f7 e00d | | Load 0x0,0xd 06f8 1814 | | Execute Package,Field_Execute,Field_Number 0x14 06f9 0092 0e55 | U| Action Push_String_Extended,0xe55 ; "library" 06fb e00a | | Load 0x0,0xa 06fc 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 06fd 7844 |xD | Jump 0x742 06fe 4801 |H | Short_Literal 0x1 06ff e5ff | | Load 0x2,-0x1 0700 e009 | | Load 0x0,0x9 0701 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0702 e00d | | Load 0x0,0xd 0703 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0704 e00a | | Load 0x0,0xa 0705 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0706 783b |x; | Jump 0x742 0707 4801 |H | Short_Literal 0x1 0708 e5ff | | Load 0x2,-0x1 0709 e009 | | Load 0x0,0x9 070a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 070b e00d | | Load 0x0,0xd 070c 1814 | | Execute Package,Field_Execute,Field_Number 0x14 070d e00a | | Load 0x0,0xa 070e 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 070f 7832 |x2 | Jump 0x742 0710 4801 |H | Short_Literal 0x1 0711 e5ff | | Load 0x2,-0x1 0712 e009 | | Load 0x0,0x9 0713 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0714 e00d | | Load 0x0,0xd 0715 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0716 e00a | | Load 0x0,0xa 0717 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0718 7829 |x) | Jump 0x742 0719 4801 |H | Short_Literal 0x1 071a e5ff | | Load 0x2,-0x1 071b e009 | | Load 0x0,0x9 071c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 071d e00d | | Load 0x0,0xd 071e 1814 | | Execute Package,Field_Execute,Field_Number 0x14 071f e00a | | Load 0x0,0xa 0720 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0721 7820 |x | Jump 0x742 0722 4801 |H | Short_Literal 0x1 0723 e5ff | | Load 0x2,-0x1 0724 e009 | | Load 0x0,0x9 0725 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0726 e00d | | Load 0x0,0xd 0727 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0728 e00a | | Load 0x0,0xa 0729 1843 | C | Execute Package,Field_Execute,Field_Number 0x43 072a 7817 |x | Jump 0x742 072b 4801 |H | Short_Literal 0x1 072c 0092 0e56 | V| Action Push_String_Extended,0xe56 ; "used as the context" 072e e5ff | | Load 0x2,-0x1 072f e009 | | Load 0x0,0x9 0730 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0731 e00d | | Load 0x0,0xd 0732 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0733 0092 0e55 | U| Action Push_String_Extended,0xe55 ; "library" 0735 e00a | | Load 0x0,0xa 0736 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 0737 780a |x | Jump 0x742 0738 4801 |H | Short_Literal 0x1 0739 e5ff | | Load 0x2,-0x1 073a e009 | | Load 0x0,0x9 073b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 073c e00d | | Load 0x0,0xd 073d 1814 | | Execute Package,Field_Execute,Field_Number 0x14 073e 0092 0e55 | U| Action Push_String_Extended,0xe55 ; "library" 0740 e00a | | Load 0x0,0xa 0741 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 0742 00d9 | | Load_Top At_Offset_1 0743 e006 | | Load 0x0,0x6 0744 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0745 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0746 0e01 | | Execute_Immediate Not_Equal,0x1 0747 680a |h | Jump_Zero 0x752 0748 4801 |H | Short_Literal 0x1 0749 e5ff | | Load 0x2,-0x1 074a e009 | | Load 0x0,0x9 074b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 074c e00d | | Load 0x0,0xd 074d 1814 | | Execute Package,Field_Execute,Field_Number 0x14 074e 0092 0e55 | U| Action Push_String_Extended,0xe55 ; "library" 0750 e00a | | Load 0x0,0xa 0751 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 0752 00d9 | | Load_Top At_Offset_1 0753 c22c | , | Store 0x1,0x2c 0754 8235 | 5 | Call 0x1,0x35 0755 e22c | , | Load 0x1,0x2c 0756 8237 | 7 | Call 0x1,0x37 0757 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0758 ; -------------------------------------------------------------------------------------- 0758 ; SUBPROGRAM 0758 ; -------------------------------------------------------------------------------------- 0758 075b | [ | .CONST 0x075b ; Address of begin 0759 0004 | | .CONST 0x0004 ; Address of exception handler 075a 0001 | | .CONST 0x0001 ; Number of locals 075b BODY_0758: 075b INIT_0758: 075b 00da | | Load_Top At_Offset_2 075c e22c | , | Load 0x1,0x2c 075d e006 | | Load 0x0,0x6 075e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 075f 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0760 e009 | | Load 0x0,0x9 0761 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0762 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0763 0000 0000 | | .BLANK 0000[0x5] 0768 ; -------------------------------------------------------------------------------------- 0768 ; SUBPROGRAM 0768 ; -------------------------------------------------------------------------------------- 0768 076b | k | .CONST 0x076b ; Address of begin 0769 0004 | | .CONST 0x0004 ; Address of exception handler 076a 0001 | | .CONST 0x0001 ; Number of locals 076b BODY_0768: 076b INIT_0768: 076b 00db | | Load_Top At_Offset_3 076c 00db | | Load_Top At_Offset_3 076d e009 | | Load 0x0,0x9 076e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 076f e007 | | Load 0x0,0x7 0770 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0771 e009 | | Load 0x0,0x9 0772 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0773 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0774 0000 0000 | | .BLANK 0000[0x4] 0778 ; -------------------------------------------------------------------------------------- 0778 ; SUBPROGRAM 0778 ; -------------------------------------------------------------------------------------- 0778 077b | { | .CONST 0x077b ; Address of begin 0779 0004 | | .CONST 0x0004 ; Address of exception handler 077a 0001 | | .CONST 0x0001 ; Number of locals 077b BODY_0778: 077b INIT_0778: 077b e22c | , | Load 0x1,0x2c 077c 8237 | 7 | Call 0x1,0x37 077d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 077e 0000 0000 | | .XXX[0x2] 0780 ; -------------------------------------------------------------------------------------- 0780 ; SUBPROGRAM 0780 ; -------------------------------------------------------------------------------------- 0780 0789 | | .CONST 0x0789 ; Address of begin 0781 079a | | .CONST 0x079a ; Address of exception handler 0782 0003 | | .CONST 0x0003 ; Number of locals 0783 INIT_0780: 0783 e22b | + | Load 0x1,0x2b 0784 01da | | Execute Vector,Bounds 0785 00e9 | | Load_Encached String_Cache 0786 035b | [ | Declare_Type Array,Constrained 0787 0337 | 7 | Declare_Variable Array 0788 00e2 | | Load_Encached Integer_Cache 0789 BODY_0780: 0789 00e3 | | Load_Encached Natural_Cache 078a 00da | | Load_Top At_Offset_2 078b e5ff | | Load 0x2,-0x1 078c e008 | | Load 0x0,0x8 078d 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 078e 00d1 | | Pop_Control Pop_Count_1 078f 0059 | Y | Store_Top Discrete,At_Offset_1 0790 4801 |H | Short_Literal 0x1 0791 00d9 | | Load_Top At_Offset_1 0792 00db | | Load_Top At_Offset_3 0793 01cf | | Execute Vector,Slice_Read 0794 e22b | + | Load 0x1,0x2b 0795 01de | | Execute Vector,Not_Equal 0796 6802 |h | Jump_Zero 0x799 0797 e20d | | Load 0x1,0xd 0798 0257 | W | Execute Discrete,Raise 0799 4502 |E | Exit_Suprogram New_Top_Offset 0x2 079a TRAP_0780: 079a 00d8 | | Load_Top At_Offset_0 079b 0107 | | Execute Exception,Get_Name 079c 4950 |IP | Short_Literal 0x150 079d 495f |I_ | Short_Literal 0x15f 079e 0262 | b | Execute Discrete,In_Range 079f 6802 |h | Jump_Zero 0x7a2 07a0 e20d | | Load 0x1,0xd 07a1 0257 | W | Execute Discrete,Raise 07a2 0100 | | Execute Exception,Raise 07a3 0000 0000 | | .BLANK 0000[0x5] 07a8 ; -------------------------------------------------------------------------------------- 07a8 ; SUBPROGRAM 07a8 ; -------------------------------------------------------------------------------------- 07a8 07ab | | .CONST 0x07ab ; Address of begin 07a9 0004 | | .CONST 0x0004 ; Address of exception handler 07aa 0001 | | .CONST 0x0001 ; Number of locals 07ab BODY_07a8: 07ab INIT_07a8: 07ab 00da | | Load_Top At_Offset_2 07ac 0f20 | | Execute_Immediate Equal,0x20 07ad 00db | | Load_Top At_Offset_3 07ae 0f09 | | Execute_Immediate Equal,0x9 07af 0278 | x | Execute Discrete,Or 07b0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 07b1 0000 0000 | | .BLANK 0000[0x7] 07b8 ; -------------------------------------------------------------------------------------- 07b8 ; SUBPROGRAM 07b8 ; -------------------------------------------------------------------------------------- 07b8 07c2 | | .CONST 0x07c2 ; Address of begin 07b9 0004 | | .CONST 0x0004 ; Address of exception handler 07ba 0004 | | .CONST 0x0004 ; Number of locals 07bb INIT_07b8: 07bb 4801 |H | Short_Literal 0x1 07bc 4a00 |J | Short_Literal 0x200 07bd 00e9 | | Load_Encached String_Cache 07be 035b | [ | Declare_Type Array,Constrained 07bf 0337 | 7 | Declare_Variable Array 07c0 00e2 | | Load_Encached Integer_Cache 07c1 00e2 | | Load_Encached Integer_Cache 07c2 BODY_07b8: 07c2 00cf | | Action Mark_Auxiliary 07c3 00e3 | | Load_Encached Natural_Cache 07c4 e402 | | Load 0x2,0x2 07c5 e5ff | | Load 0x2,-0x1 07c6 e008 | | Load 0x0,0x8 07c7 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 07c8 00d1 | | Pop_Control Pop_Count_1 07c9 005a | Z | Store_Top Discrete,At_Offset_2 07ca 4801 |H | Short_Literal 0x1 07cb 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 07cc 00cf | | Action Mark_Auxiliary 07cd 7804 |x | Jump 0x7d2 07ce 00db | | Load_Top At_Offset_3 07cf 0a01 | | Execute_Immediate Plus,0x1 07d0 c403 | | Store 0x2,0x3 07d1 00c9 | | Action Pop_Auxiliary_Loop 07d2 00db | | Load_Top At_Offset_3 07d3 00db | | Load_Top At_Offset_3 07d4 027a | z | Execute Discrete,Less_Equal 07d5 6805 |h | Jump_Zero 0x7db 07d6 00db | | Load_Top At_Offset_3 07d7 e402 | | Load 0x2,0x2 07d8 01d7 | | Execute Vector,Field_Read 07d9 822e | . | Call 0x1,0x2e 07da 77f3 |w | Jump_Nonzero 0x7ce 07db 00ce | | Action Pop_Auxiliary 07dc 00da | | Load_Top At_Offset_2 07dd 00da | | Load_Top At_Offset_2 07de 027a | z | Execute Discrete,Less_Equal 07df 7002 |p | Jump_Nonzero 0x7e2 07e0 00c9 | | Action Pop_Auxiliary_Loop 07e1 7fe1 | | Jump 0x7c3 07e2 00c9 | | Action Pop_Auxiliary_Loop 07e3 7804 |x | Jump 0x7e8 07e4 00d9 | | Load_Top At_Offset_1 07e5 0aff | | Execute_Immediate Plus,-0x1 07e6 005a | Z | Store_Top Discrete,At_Offset_2 07e7 00c9 | | Action Pop_Auxiliary_Loop 07e8 00d9 | | Load_Top At_Offset_1 07e9 e402 | | Load 0x2,0x2 07ea 01d7 | | Execute Vector,Field_Read 07eb 822e | . | Call 0x1,0x2e 07ec 77f7 |w | Jump_Nonzero 0x7e4 07ed 00ce | | Action Pop_Auxiliary 07ee 00d9 | | Load_Top At_Offset_1 07ef 00d9 | | Load_Top At_Offset_1 07f0 e402 | | Load 0x2,0x2 07f1 01cf | | Execute Vector,Slice_Read 07f2 00e9 | | Load_Encached String_Cache 07f3 01c6 | | Execute Vector,Convert_To_Formal 07f4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 07f5 0000 0000 | | .XXX[0x3] 07f7 0000 | | 07f8 ; -------------------------------------------------------------------------------------- 07f8 ; SUBPROGRAM 07f8 ; -------------------------------------------------------------------------------------- 07f8 0805 | | .CONST 0x0805 ; Address of begin 07f9 0004 | | .CONST 0x0004 ; Address of exception handler 07fa 0004 | | .CONST 0x0004 ; Number of locals 07fb INIT_07f8: 07fb 00da | | Load_Top At_Offset_2 07fc 822f | / | Call 0x1,0x2f 07fd 00d8 | | Load_Top At_Offset_0 07fe 01dd | | Execute Vector,First 07ff 00e2 | | Load_Encached Integer_Cache 0800 03f1 | | Declare_Variable Discrete,With_Value 0801 00d9 | | Load_Top At_Offset_1 0802 01dd | | Execute Vector,First 0803 00e2 | | Load_Encached Integer_Cache 0804 03f1 | | Declare_Variable Discrete,With_Value 0805 BODY_07f8: 0805 00cf | | Action Mark_Auxiliary 0806 7804 |x | Jump 0x80b 0807 00d9 | | Load_Top At_Offset_1 0808 0a01 | | Execute_Immediate Plus,0x1 0809 005a | Z | Store_Top Discrete,At_Offset_2 080a 00c9 | | Action Pop_Auxiliary_Loop 080b 00d9 | | Load_Top At_Offset_1 080c e402 | | Load 0x2,0x2 080d 01dc | | Execute Vector,Last 080e 027c | | | Execute Discrete,Less 080f 6805 |h | Jump_Zero 0x815 0810 00d9 | | Load_Top At_Offset_1 0811 e402 | | Load 0x2,0x2 0812 01d7 | | Execute Vector,Field_Read 0813 822e | . | Call 0x1,0x2e 0814 6ff2 |o | Jump_Zero 0x807 0815 00ce | | Action Pop_Auxiliary 0816 00d9 | | Load_Top At_Offset_1 0817 00d9 | | Load_Top At_Offset_1 0818 e402 | | Load 0x2,0x2 0819 01cf | | Execute Vector,Slice_Read 081a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 081b 0000 0000 | | .BLANK 0000[0x5] 0820 ; -------------------------------------------------------------------------------------- 0820 ; SUBPROGRAM 0820 ; -------------------------------------------------------------------------------------- 0820 082a | * | .CONST 0x082a ; Address of begin 0821 0850 | P | .CONST 0x0850 ; Address of exception handler 0822 0003 | | .CONST 0x0003 ; Number of locals 0823 INIT_0820: 0823 e008 | | Load 0x0,0x8 0824 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0825 02c7 | | Declare_Variable Any 0826 00d8 | | Load_Top At_Offset_0 0827 1c00 | | Execute_Immediate Run_Utility,0x0 0828 029f 0ba3 | | Declare_Subprogram INIT_0ba0,For_Call 082a BODY_0820: 082a 00be | | Action Activate_Tasks 082b 00d9 | | Load_Top At_Offset_1 082c 00ea | | Load_Encached Null_String_Cache 082d e5ff | | Load 0x2,-0x1 082e 4800 |H | Short_Literal 0x0 082f e008 | | Load 0x0,0x8 0830 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0831 c402 | | Store 0x2,0x2 0832 00d9 | | Load_Top At_Offset_1 0833 822d | - | Call 0x1,0x2d 0834 e5fe | | Load 0x2,-0x2 0835 00da | | Load_Top At_Offset_2 0836 822f | / | Call 0x1,0x2f 0837 e009 | | Load 0x0,0x9 0838 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0839 00d1 | | Pop_Control Pop_Count_1 083a e5fd | | Load 0x2,-0x3 083b 4820 |H | Short_Literal 0x20 083c 4800 |H | Short_Literal 0x0 083d e009 | | Load 0x0,0x9 083e 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 083f 00d1 | | Pop_Control Pop_Count_1 0840 e5fc | | Load 0x2,-0x4 0841 4820 |H | Short_Literal 0x20 0842 4800 |H | Short_Literal 0x0 0843 e009 | | Load 0x0,0x9 0844 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0845 00d1 | | Pop_Control Pop_Count_1 0846 00cf | | Action Mark_Auxiliary 0847 8403 | | Call 0x2,0x3 0848 00c9 | | Action Pop_Auxiliary_Loop 0849 7ffd | | Jump 0x847 084a 00ce | | Action Pop_Auxiliary 084b 00d9 | | Load_Top At_Offset_1 084c e008 | | Load 0x0,0x8 084d 1816 | | Execute Package,Field_Execute,Field_Number 0x16 084e c402 | | Store 0x2,0x2 084f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0850 TRAP_0820: 0850 00d8 | | Load_Top At_Offset_0 0851 0107 | | Execute Exception,Get_Name 0852 4950 |IP | Short_Literal 0x150 0853 495f |I_ | Short_Literal 0x15f 0854 0262 | b | Execute Discrete,In_Range 0855 7003 |p | Jump_Nonzero 0x859 0856 e20d | | Load 0x1,0xd 0857 010f | | Execute Exception,Equal 0858 6806 |h | Jump_Zero 0x85f 0859 00da | | Load_Top At_Offset_2 085a e008 | | Load 0x0,0x8 085b 1816 | | Execute Package,Field_Execute,Field_Number 0x16 085c c402 | | Store 0x2,0x2 085d e20d | | Load 0x1,0xd 085e 0257 | W | Execute Discrete,Raise 085f 0100 | | Execute Exception,Raise 0860 ; -------------------------------------------------------------------------------------- 0860 ; SUBPROGRAM 0860 ; -------------------------------------------------------------------------------------- 0860 086e | n | .CONST 0x086e ; Address of begin 0861 087d | } | .CONST 0x087d ; Address of exception handler 0862 0005 | | .CONST 0x0005 ; Number of locals 0863 INIT_0860: 0863 e008 | | Load 0x0,0x8 0864 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0865 02c7 | | Declare_Variable Any 0866 00d8 | | Load_Top At_Offset_0 0867 1c00 | | Execute_Immediate Run_Utility,0x0 0868 029f 0c0b | | Declare_Subprogram INIT_0c08,For_Call 086a 029f 0c23 | #| Declare_Subprogram INIT_0c20,For_Call 086c 029f 0c3b | ;| Declare_Subprogram INIT_0c38,For_Call 086e BODY_0860: 086e 00be | | Action Activate_Tasks 086f 00db | | Load_Top At_Offset_3 0870 00ea | | Load_Encached Null_String_Cache 0871 e5ff | | Load 0x2,-0x1 0872 4800 |H | Short_Literal 0x0 0873 e008 | | Load 0x0,0x8 0874 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0875 c402 | | Store 0x2,0x2 0876 00db | | Load_Top At_Offset_3 0877 822d | - | Call 0x1,0x2d 0878 00db | | Load_Top At_Offset_3 0879 e008 | | Load 0x0,0x8 087a 1816 | | Execute Package,Field_Execute,Field_Number 0x16 087b c402 | | Store 0x2,0x2 087c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 087d TRAP_0860: 087d e20d | | Load 0x1,0xd 087e 010f | | Execute Exception,Equal 087f 6802 |h | Jump_Zero 0x882 0880 8403 | | Call 0x2,0x3 0881 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0882 4921 |I! | Short_Literal 0x121 0883 010f | | Execute Exception,Equal 0884 6805 |h | Jump_Zero 0x88a 0885 4801 |H | Short_Literal 0x1 0886 e5ff | | Load 0x2,-0x1 0887 e00a | | Load 0x0,0xa 0888 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 0889 4502 |E | Exit_Suprogram New_Top_Offset 0x2 088a 4922 |I" | Short_Literal 0x122 088b 010f | | Execute Exception,Equal 088c 6805 |h | Jump_Zero 0x892 088d 4801 |H | Short_Literal 0x1 088e e5ff | | Load 0x2,-0x1 088f e00a | | Load 0x0,0xa 0890 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0891 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0892 4923 |I# | Short_Literal 0x123 0893 010f | | Execute Exception,Equal 0894 6807 |h | Jump_Zero 0x89c 0895 4801 |H | Short_Literal 0x1 0896 e5ff | | Load 0x2,-0x1 0897 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 0899 e00a | | Load 0x0,0xa 089a 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 089b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 089c 4924 |I$ | Short_Literal 0x124 089d 010f | | Execute Exception,Equal 089e 6807 |h | Jump_Zero 0x8a6 089f 4801 |H | Short_Literal 0x1 08a0 e5ff | | Load 0x2,-0x1 08a1 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 08a3 e00a | | Load 0x0,0xa 08a4 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 08a5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 08a6 4925 |I% | Short_Literal 0x125 08a7 010f | | Execute Exception,Equal 08a8 6805 |h | Jump_Zero 0x8ae 08a9 4801 |H | Short_Literal 0x1 08aa e5ff | | Load 0x2,-0x1 08ab e00a | | Load 0x0,0xa 08ac 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 08ad 4502 |E | Exit_Suprogram New_Top_Offset 0x2 08ae 4931 |I1 | Short_Literal 0x131 08af 010f | | Execute Exception,Equal 08b0 6809 |h | Jump_Zero 0x8ba 08b1 4801 |H | Short_Literal 0x1 08b2 0092 0e4a | J| Action Push_String_Extended,0xe4a ; "read" 08b4 e5ff | | Load 0x2,-0x1 08b5 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 08b7 e00a | | Load 0x0,0xa 08b8 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 08b9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 08ba 4932 |I2 | Short_Literal 0x132 08bb 010f | | Execute Exception,Equal 08bc 6809 |h | Jump_Zero 0x8c6 08bd 4801 |H | Short_Literal 0x1 08be 0092 0e4a | J| Action Push_String_Extended,0xe4a ; "read" 08c0 e5ff | | Load 0x2,-0x1 08c1 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 08c3 e00a | | Load 0x0,0xa 08c4 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 08c5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 08c6 4933 |I3 | Short_Literal 0x133 08c7 010f | | Execute Exception,Equal 08c8 6807 |h | Jump_Zero 0x8d0 08c9 4801 |H | Short_Literal 0x1 08ca e5ff | | Load 0x2,-0x1 08cb 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 08cd e00a | | Load 0x0,0xa 08ce 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 08cf 4502 |E | Exit_Suprogram New_Top_Offset 0x2 08d0 4934 |I4 | Short_Literal 0x134 08d1 010f | | Execute Exception,Equal 08d2 6809 |h | Jump_Zero 0x8dc 08d3 4801 |H | Short_Literal 0x1 08d4 0092 0e4a | J| Action Push_String_Extended,0xe4a ; "read" 08d6 e5ff | | Load 0x2,-0x1 08d7 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 08d9 e00a | | Load 0x0,0xa 08da 183c | < | Execute Package,Field_Execute,Field_Number 0x3c 08db 4502 |E | Exit_Suprogram New_Top_Offset 0x2 08dc 4935 |I5 | Short_Literal 0x135 08dd 010f | | Execute Exception,Equal 08de 6809 |h | Jump_Zero 0x8e8 08df 4801 |H | Short_Literal 0x1 08e0 0092 0e4a | J| Action Push_String_Extended,0xe4a ; "read" 08e2 e5ff | | Load 0x2,-0x1 08e3 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 08e5 e00a | | Load 0x0,0xa 08e6 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 08e7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 08e8 4936 |I6 | Short_Literal 0x136 08e9 010f | | Execute Exception,Equal 08ea 6809 |h | Jump_Zero 0x8f4 08eb 4801 |H | Short_Literal 0x1 08ec 0092 0e4a | J| Action Push_String_Extended,0xe4a ; "read" 08ee e5ff | | Load 0x2,-0x1 08ef 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 08f1 e00a | | Load 0x0,0xa 08f2 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 08f3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 08f4 00d8 | | Load_Top At_Offset_0 08f5 0107 | | Execute Exception,Get_Name 08f6 4940 |I@ | Short_Literal 0x140 08f7 494f |IO | Short_Literal 0x14f 08f8 0262 | b | Execute Discrete,In_Range 08f9 6802 |h | Jump_Zero 0x8fc 08fa 8404 | | Call 0x2,0x4 08fb 4502 |E | Exit_Suprogram New_Top_Offset 0x2 08fc 00d8 | | Load_Top At_Offset_0 08fd 0107 | | Execute Exception,Get_Name 08fe 4960 |I` | Short_Literal 0x160 08ff 496f |Io | Short_Literal 0x16f 0900 0262 | b | Execute Discrete,In_Range 0901 6802 |h | Jump_Zero 0x904 0902 8405 | | Call 0x2,0x5 0903 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0904 0100 | | Execute Exception,Raise 0905 0000 0000 | | .XXX[0x3] 0907 0000 | | 0908 ; -------------------------------------------------------------------------------------- 0908 ; SUBPROGRAM 0908 ; -------------------------------------------------------------------------------------- 0908 0916 | | .CONST 0x0916 ; Address of begin 0909 0926 | & | .CONST 0x0926 ; Address of exception handler 090a 0005 | | .CONST 0x0005 ; Number of locals 090b INIT_0908: 090b e008 | | Load 0x0,0x8 090c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 090d 02c7 | | Declare_Variable Any 090e 00d8 | | Load_Top At_Offset_0 090f 1c00 | | Execute_Immediate Run_Utility,0x0 0910 029f 0c4b | K| Declare_Subprogram INIT_0c48,For_Call 0912 029f 0c5b | [| Declare_Subprogram INIT_0c58,For_Call 0914 029f 0c73 | s| Declare_Subprogram INIT_0c70,For_Call 0916 BODY_0908: 0916 00be | | Action Activate_Tasks 0917 00db | | Load_Top At_Offset_3 0918 00ea | | Load_Encached Null_String_Cache 0919 e5ff | | Load 0x2,-0x1 091a 4800 |H | Short_Literal 0x0 091b e008 | | Load 0x0,0x8 091c 1815 | | Execute Package,Field_Execute,Field_Number 0x15 091d c402 | | Store 0x2,0x2 091e 00db | | Load_Top At_Offset_3 091f 822d | - | Call 0x1,0x2d 0920 00db | | Load_Top At_Offset_3 0921 e008 | | Load 0x0,0x8 0922 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0923 c402 | | Store 0x2,0x2 0924 4801 |H | Short_Literal 0x1 0925 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0926 TRAP_0908: 0926 e20d | | Load 0x1,0xd 0927 010f | | Execute Exception,Equal 0928 6802 |h | Jump_Zero 0x92b 0929 8403 | | Call 0x2,0x3 092a 0831 | 1 | Execute_Immediate Raise,0x31 092b 4921 |I! | Short_Literal 0x121 092c 010f | | Execute Exception,Equal 092d 6805 |h | Jump_Zero 0x933 092e 4801 |H | Short_Literal 0x1 092f e5ff | | Load 0x2,-0x1 0930 e00a | | Load 0x0,0xa 0931 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 0932 0831 | 1 | Execute_Immediate Raise,0x31 0933 4922 |I" | Short_Literal 0x122 0934 010f | | Execute Exception,Equal 0935 6805 |h | Jump_Zero 0x93b 0936 4801 |H | Short_Literal 0x1 0937 e5ff | | Load 0x2,-0x1 0938 e00a | | Load 0x0,0xa 0939 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 093a 0831 | 1 | Execute_Immediate Raise,0x31 093b 4923 |I# | Short_Literal 0x123 093c 010f | | Execute Exception,Equal 093d 6807 |h | Jump_Zero 0x945 093e 4801 |H | Short_Literal 0x1 093f e5ff | | Load 0x2,-0x1 0940 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 0942 e00a | | Load 0x0,0xa 0943 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 0944 0831 | 1 | Execute_Immediate Raise,0x31 0945 4924 |I$ | Short_Literal 0x124 0946 010f | | Execute Exception,Equal 0947 6807 |h | Jump_Zero 0x94f 0948 4801 |H | Short_Literal 0x1 0949 e5ff | | Load 0x2,-0x1 094a 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 094c e00a | | Load 0x0,0xa 094d 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 094e 0831 | 1 | Execute_Immediate Raise,0x31 094f 4925 |I% | Short_Literal 0x125 0950 010f | | Execute Exception,Equal 0951 6805 |h | Jump_Zero 0x957 0952 4801 |H | Short_Literal 0x1 0953 e5ff | | Load 0x2,-0x1 0954 e00a | | Load 0x0,0xa 0955 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0956 0831 | 1 | Execute_Immediate Raise,0x31 0957 4931 |I1 | Short_Literal 0x131 0958 010f | | Execute Exception,Equal 0959 6809 |h | Jump_Zero 0x963 095a 4801 |H | Short_Literal 0x1 095b 0092 0e4a | J| Action Push_String_Extended,0xe4a ; "read" 095d e5ff | | Load 0x2,-0x1 095e 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 0960 e00a | | Load 0x0,0xa 0961 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 0962 0831 | 1 | Execute_Immediate Raise,0x31 0963 4932 |I2 | Short_Literal 0x132 0964 010f | | Execute Exception,Equal 0965 6809 |h | Jump_Zero 0x96f 0966 4801 |H | Short_Literal 0x1 0967 0092 0e4a | J| Action Push_String_Extended,0xe4a ; "read" 0969 e5ff | | Load 0x2,-0x1 096a 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 096c e00a | | Load 0x0,0xa 096d 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 096e 0831 | 1 | Execute_Immediate Raise,0x31 096f 4933 |I3 | Short_Literal 0x133 0970 010f | | Execute Exception,Equal 0971 6807 |h | Jump_Zero 0x979 0972 4801 |H | Short_Literal 0x1 0973 e5ff | | Load 0x2,-0x1 0974 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 0976 e00a | | Load 0x0,0xa 0977 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 0978 0831 | 1 | Execute_Immediate Raise,0x31 0979 4934 |I4 | Short_Literal 0x134 097a 010f | | Execute Exception,Equal 097b 6809 |h | Jump_Zero 0x985 097c 4801 |H | Short_Literal 0x1 097d 0092 0e4a | J| Action Push_String_Extended,0xe4a ; "read" 097f e5ff | | Load 0x2,-0x1 0980 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 0982 e00a | | Load 0x0,0xa 0983 183c | < | Execute Package,Field_Execute,Field_Number 0x3c 0984 0831 | 1 | Execute_Immediate Raise,0x31 0985 4935 |I5 | Short_Literal 0x135 0986 010f | | Execute Exception,Equal 0987 6809 |h | Jump_Zero 0x991 0988 4801 |H | Short_Literal 0x1 0989 0092 0e4a | J| Action Push_String_Extended,0xe4a ; "read" 098b e5ff | | Load 0x2,-0x1 098c 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 098e e00a | | Load 0x0,0xa 098f 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 0990 0831 | 1 | Execute_Immediate Raise,0x31 0991 4936 |I6 | Short_Literal 0x136 0992 010f | | Execute Exception,Equal 0993 6809 |h | Jump_Zero 0x99d 0994 4801 |H | Short_Literal 0x1 0995 0092 0e4a | J| Action Push_String_Extended,0xe4a ; "read" 0997 e5ff | | Load 0x2,-0x1 0998 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 099a e00a | | Load 0x0,0xa 099b 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 099c 0831 | 1 | Execute_Immediate Raise,0x31 099d 00d8 | | Load_Top At_Offset_0 099e 0107 | | Execute Exception,Get_Name 099f 4940 |I@ | Short_Literal 0x140 09a0 494f |IO | Short_Literal 0x14f 09a1 0262 | b | Execute Discrete,In_Range 09a2 6802 |h | Jump_Zero 0x9a5 09a3 8404 | | Call 0x2,0x4 09a4 0831 | 1 | Execute_Immediate Raise,0x31 09a5 00d8 | | Load_Top At_Offset_0 09a6 0107 | | Execute Exception,Get_Name 09a7 4960 |I` | Short_Literal 0x160 09a8 496f |Io | Short_Literal 0x16f 09a9 0262 | b | Execute Discrete,In_Range 09aa 6802 |h | Jump_Zero 0x9ad 09ab 8405 | | Call 0x2,0x5 09ac 0831 | 1 | Execute_Immediate Raise,0x31 09ad 0100 | | Execute Exception,Raise 09ae 0000 0000 | | .XXX[0x2] 09b0 ; -------------------------------------------------------------------------------------- 09b0 ; SUBPROGRAM 09b0 ; -------------------------------------------------------------------------------------- 09b0 09bc | | .CONST 0x09bc ; Address of begin 09b1 0004 | | .CONST 0x0004 ; Address of exception handler 09b2 0005 | | .CONST 0x0005 ; Number of locals 09b3 INIT_09b0: 09b3 00da | | Load_Top At_Offset_2 09b4 e20e | | Load 0x1,0xe 09b5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 09b6 00e4 | | Load_Encached Positive_Cache 09b7 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 09b8 029f 0c83 | | Declare_Subprogram INIT_0c80,For_Call 09ba 029f 0ceb | | Declare_Subprogram INIT_0ce8,For_Call 09bc BODY_09b0: 09bc e5fe | | Load 0x2,-0x2 09bd 8404 | | Call 0x2,0x4 09be e009 | | Load 0x0,0x9 09bf 1810 | | Execute Package,Field_Execute,Field_Number 0x10 09c0 00d1 | | Pop_Control Pop_Count_1 09c1 e5fd | | Load 0x2,-0x3 09c2 4820 |H | Short_Literal 0x20 09c3 4800 |H | Short_Literal 0x0 09c4 e009 | | Load 0x0,0x9 09c5 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 09c6 00d1 | | Pop_Control Pop_Count_1 09c7 e5fc | | Load 0x2,-0x4 09c8 4820 |H | Short_Literal 0x20 09c9 4800 |H | Short_Literal 0x0 09ca e009 | | Load 0x0,0x9 09cb 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 09cc 00d1 | | Pop_Control Pop_Count_1 09cd 00cf | | Action Mark_Auxiliary 09ce 8405 | | Call 0x2,0x5 09cf 00c9 | | Action Pop_Auxiliary_Loop 09d0 7ffd | | Jump 0x9ce 09d1 0000 0000 | | .BLANK 0000[0x7] 09d8 ; -------------------------------------------------------------------------------------- 09d8 ; SUBPROGRAM 09d8 ; -------------------------------------------------------------------------------------- 09d8 09e3 | | .CONST 0x09e3 ; Address of begin 09d9 0004 | | .CONST 0x0004 ; Address of exception handler 09da 0003 | | .CONST 0x0003 ; Number of locals 09db INIT_09d8: 09db e006 | | Load 0x0,0x6 09dc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 09dd 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30 09de 02c7 | | Declare_Variable Any 09df 00d8 | | Load_Top At_Offset_0 09e0 1c00 | | Execute_Immediate Run_Utility,0x0 09e1 029f 0d5b | [| Declare_Subprogram INIT_0d58,For_Call 09e3 BODY_09d8: 09e3 00d9 | | Load_Top At_Offset_1 09e4 0120 | | Execute Any,Is_Value 09e5 6804 |h | Jump_Zero 0x9ea 09e6 e006 | | Load 0x0,0x6 09e7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 09e8 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30 09e9 7801 |x | Jump 0x9eb 09ea 00d9 | | Load_Top At_Offset_1 09eb e22c | , | Load 0x1,0x2c 09ec e006 | | Load 0x0,0x6 09ed 1b0e | | Execute Package,Field_Read,Field_Number 0xe 09ee 1811 | | Execute Package,Field_Execute,Field_Number 0x11 09ef c402 | | Store 0x2,0x2 09f0 00d9 | | Load_Top At_Offset_1 09f1 e006 | | Load 0x0,0x6 09f2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 09f3 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 09f4 6801 |h | Jump_Zero 0x9f6 09f5 8403 | | Call 0x2,0x3 09f6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 09f7 0000 | | .XXX[0x1] 09f8 ; -------------------------------------------------------------------------------------- 09f8 ; SUBPROGRAM 09f8 ; -------------------------------------------------------------------------------------- 09f8 0a17 | | .CONST 0x0a17 ; Address of begin 09f9 0004 | | .CONST 0x0004 ; Address of exception handler 09fa 0007 | | .CONST 0x0007 ; Number of locals 09fb INIT_09f8: 09fb e008 | | Load 0x0,0x8 09fc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 09fd 02c7 | | Declare_Variable Any 09fe 00d8 | | Load_Top At_Offset_0 09ff 1c00 | | Execute_Immediate Run_Utility,0x0 0a00 e006 | | Load 0x0,0x6 0a01 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a02 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a03 02c7 | | Declare_Variable Any 0a04 00d8 | | Load_Top At_Offset_0 0a05 1c00 | | Execute_Immediate Run_Utility,0x0 0a06 e006 | | Load 0x0,0x6 0a07 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a08 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a09 02c7 | | Declare_Variable Any 0a0a 00d8 | | Load_Top At_Offset_0 0a0b 1c00 | | Execute_Immediate Run_Utility,0x0 0a0c e006 | | Load 0x0,0x6 0a0d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a0e 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30 0a0f 02c7 | | Declare_Variable Any 0a10 00d8 | | Load_Top At_Offset_0 0a11 1c00 | | Execute_Immediate Run_Utility,0x0 0a12 e006 | | Load 0x0,0x6 0a13 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a14 1b44 | D | Execute Package,Field_Read,Field_Number 0x44 0a15 029f 0dab | | Declare_Subprogram INIT_0da8,For_Call 0a17 BODY_09f8: 0a17 00be | | Action Activate_Tasks 0a18 8235 | 5 | Call 0x1,0x35 0a19 4801 |H | Short_Literal 0x1 0a1a e006 | | Load 0x0,0x6 0a1b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0a1c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0a1d e5ff | | Load 0x2,-0x1 0a1e e009 | | Load 0x0,0x9 0a1f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0a20 e006 | | Load 0x0,0x6 0a21 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0a22 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0a23 c403 | | Store 0x2,0x3 0a24 e403 | | Load 0x2,0x3 0a25 e006 | | Load 0x0,0x6 0a26 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a27 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0a28 c405 | | Store 0x2,0x5 0a29 00da | | Load_Top At_Offset_2 0a2a e006 | | Load 0x0,0x6 0a2b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a2c 1845 | E | Execute Package,Field_Execute,Field_Number 0x45 0a2d 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0a2e 00d9 | | Load_Top At_Offset_1 0a2f 4618 |F | Jump_Case 0x19 0a30 7821 |x! | Jump 0xa52 ; case 0x0 0a31 7820 |x | Jump 0xa52 ; case 0x1 0a32 7859 |xY | Jump 0xa8c ; case 0x2 0a33 7815 |x | Jump 0xa49 ; case 0x3 0a34 7814 |x | Jump 0xa49 ; case 0x4 0a35 7813 |x | Jump 0xa49 ; case 0x5 0a36 7812 |x | Jump 0xa49 ; case 0x6 0a37 7811 |x | Jump 0xa49 ; case 0x7 0a38 7810 |x | Jump 0xa49 ; case 0x8 0a39 785d |x] | Jump 0xa97 ; case 0x9 0a3a 780e |x | Jump 0xa49 ; case 0xa 0a3b 780d |x | Jump 0xa49 ; case 0xb 0a3c 7863 |xc | Jump 0xaa0 ; case 0xc 0a3d 781d |x | Jump 0xa5b ; case 0xd 0a3e 7868 |xh | Jump 0xaa7 ; case 0xe 0a3f 786e |xn | Jump 0xaae ; case 0xf 0a40 7874 |xt | Jump 0xab5 ; case 0x10 0a41 787e |x~ | Jump 0xac0 ; case 0x11 0a42 7806 |x | Jump 0xa49 ; case 0x12 0a43 7805 |x | Jump 0xa49 ; case 0x13 0a44 7804 |x | Jump 0xa49 ; case 0x14 0a45 7803 |x | Jump 0xa49 ; case 0x15 0a46 7802 |x | Jump 0xa49 ; case 0x16 0a47 7801 |x | Jump 0xa49 ; case 0x17 0a48 7800 |x | Jump 0xa49 ; case 0x18 0a49 4801 |H | Short_Literal 0x1 0a4a e5ff | | Load 0x2,-0x1 0a4b e009 | | Load 0x0,0x9 0a4c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0a4d 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 0a4f e00a | | Load 0x0,0xa 0a50 1844 | D | Execute Package,Field_Execute,Field_Number 0x44 0a51 7876 |xv | Jump 0xac8 0a52 8407 | | Call 0x2,0x7 0a53 e403 | | Load 0x2,0x3 0a54 e006 | | Load 0x0,0x6 0a55 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0a56 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0a57 c404 | | Store 0x2,0x4 0a58 4801 |H | Short_Literal 0x1 0a59 a5fc | | Store_Unchecked 0x2,-0x4 0a5a 786d |xm | Jump 0xac8 0a5b 4801 |H | Short_Literal 0x1 0a5c e006 | | Load 0x0,0x6 0a5d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0a5e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0a5f e5ff | | Load 0x2,-0x1 0a60 e009 | | Load 0x0,0x9 0a61 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0a62 e006 | | Load 0x0,0x6 0a63 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0a64 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0a65 e006 | | Load 0x0,0x6 0a66 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0a67 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0a68 c404 | | Store 0x2,0x4 0a69 00db | | Load_Top At_Offset_3 0a6a e006 | | Load 0x0,0x6 0a6b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0a6c 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 0a6d 6808 |h | Jump_Zero 0xa76 0a6e 4801 |H | Short_Literal 0x1 0a6f e5ff | | Load 0x2,-0x1 0a70 e009 | | Load 0x0,0x9 0a71 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0a72 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 0a74 e00a | | Load 0x0,0xa 0a75 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 0a76 e5fe | | Load 0x2,-0x2 0a77 482e |H. | Short_Literal 0x2e 0a78 e404 | | Load 0x2,0x4 0a79 e006 | | Load 0x0,0x6 0a7a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0a7b 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0a7c 01cb | | Execute Vector,Append 0a7d e5ff | | Load 0x2,-0x1 0a7e e009 | | Load 0x0,0x9 0a7f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0a80 e006 | | Load 0x0,0x6 0a81 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0a82 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0a83 e00d | | Load 0x0,0xd 0a84 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0a85 01cc | | Execute Vector,Catenate 0a86 e009 | | Load 0x0,0x9 0a87 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0a88 00d1 | | Pop_Control Pop_Count_1 0a89 4800 |H | Short_Literal 0x0 0a8a a5fc | | Store_Unchecked 0x2,-0x4 0a8b 783c |x< | Jump 0xac8 0a8c 4801 |H | Short_Literal 0x1 0a8d 0092 0e4f | O| Action Push_String_Extended,0xe4f ; "deleted" 0a8f e5ff | | Load 0x2,-0x1 0a90 e009 | | Load 0x0,0x9 0a91 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0a92 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 0a94 e00a | | Load 0x0,0xa 0a95 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 0a96 7831 |x1 | Jump 0xac8 0a97 4801 |H | Short_Literal 0x1 0a98 e5ff | | Load 0x2,-0x1 0a99 e009 | | Load 0x0,0x9 0a9a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0a9b 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 0a9d e00a | | Load 0x0,0xa 0a9e 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 0a9f 7828 |x( | Jump 0xac8 0aa0 4801 |H | Short_Literal 0x1 0aa1 e5ff | | Load 0x2,-0x1 0aa2 e009 | | Load 0x0,0x9 0aa3 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0aa4 e00a | | Load 0x0,0xa 0aa5 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34 0aa6 7821 |x! | Jump 0xac8 0aa7 4801 |H | Short_Literal 0x1 0aa8 e5ff | | Load 0x2,-0x1 0aa9 e009 | | Load 0x0,0x9 0aaa 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0aab e00a | | Load 0x0,0xa 0aac 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0aad 781a |x | Jump 0xac8 0aae 4801 |H | Short_Literal 0x1 0aaf e5ff | | Load 0x2,-0x1 0ab0 e009 | | Load 0x0,0x9 0ab1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0ab2 e00a | | Load 0x0,0xa 0ab3 1843 | C | Execute Package,Field_Execute,Field_Number 0x43 0ab4 7813 |x | Jump 0xac8 0ab5 4801 |H | Short_Literal 0x1 0ab6 0092 0e4f | O| Action Push_String_Extended,0xe4f ; "deleted" 0ab8 e5ff | | Load 0x2,-0x1 0ab9 e009 | | Load 0x0,0x9 0aba 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0abb 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 0abd e00a | | Load 0x0,0xa 0abe 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 0abf 7808 |x | Jump 0xac8 0ac0 4801 |H | Short_Literal 0x1 0ac1 e5ff | | Load 0x2,-0x1 0ac2 e009 | | Load 0x0,0x9 0ac3 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0ac4 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 0ac6 e00a | | Load 0x0,0xa 0ac7 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 0ac8 00db | | Load_Top At_Offset_3 0ac9 e006 | | Load 0x0,0x6 0aca 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0acb 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0acc 0e03 | | Execute_Immediate Not_Equal,0x3 0acd 6806 |h | Jump_Zero 0xad4 0ace e5fd | | Load 0x2,-0x3 0acf 00ea | | Load_Encached Null_String_Cache 0ad0 e009 | | Load 0x0,0x9 0ad1 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0ad2 00d1 | | Pop_Control Pop_Count_1 0ad3 7819 |x | Jump 0xaed 0ad4 00cf | | Action Mark_Auxiliary 0ad5 e404 | | Load 0x2,0x4 0ad6 c403 | | Store 0x2,0x3 0ad7 e403 | | Load 0x2,0x3 0ad8 e006 | | Load 0x0,0x6 0ad9 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0ada 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0adb c404 | | Store 0x2,0x4 0adc e404 | | Load 0x2,0x4 0add e006 | | Load 0x0,0x6 0ade 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0adf 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0ae0 0f01 | | Execute_Immediate Equal,0x1 0ae1 7002 |p | Jump_Nonzero 0xae4 0ae2 00c9 | | Action Pop_Auxiliary_Loop 0ae3 7ff1 | | Jump 0xad5 0ae4 00ce | | Action Pop_Auxiliary 0ae5 e5fd | | Load 0x2,-0x3 0ae6 e403 | | Load 0x2,0x3 0ae7 e006 | | Load 0x0,0x6 0ae8 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0ae9 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0aea e009 | | Load 0x0,0x9 0aeb 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0aec 00d1 | | Pop_Control Pop_Count_1 0aed e22c | , | Load 0x1,0x2c 0aee e404 | | Load 0x2,0x4 0aef e006 | | Load 0x0,0x6 0af0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0af1 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0af2 a5fb | | Store_Unchecked 0x2,-0x5 0af3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0af4 0000 0000 | | .BLANK 0000[0x4] 0af8 ; -------------------------------------------------------------------------------------- 0af8 ; SUBPROGRAM 0af8 ; -------------------------------------------------------------------------------------- 0af8 0b2b | + | .CONST 0x0b2b ; Address of begin 0af9 0004 | | .CONST 0x0004 ; Address of exception handler 0afa 0008 | | .CONST 0x0008 ; Number of locals 0afb INIT_0af8: 0afb 0092 0e57 | W| Action Push_String_Extended,0xe57 ; "text" 0afd e006 | | Load 0x0,0x6 0afe 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0aff 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0b00 e006 | | Load 0x0,0x6 0b01 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0b02 1b1b | | Execute Package,Field_Read,Field_Number 0x1b 0b03 011e | | Execute Any,Convert 0b04 e006 | | Load 0x0,0x6 0b05 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0b06 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0b07 02c7 | | Declare_Variable Any 0b08 4803 |H | Short_Literal 0x3 0b09 4801 |H | Short_Literal 0x1 0b0a 0092 0e58 | X| Action Push_String_Extended,0xe58 ; "@" 0b0c e5ff | | Load 0x2,-0x1 0b0d e006 | | Load 0x0,0x6 0b0e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0b0f 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0b10 a403 | | Store_Unchecked 0x2,0x3 0b11 e006 | | Load 0x0,0x6 0b12 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0b13 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0b14 02c7 | | Declare_Variable Any 0b15 00d8 | | Load_Top At_Offset_0 0b16 1c00 | | Execute_Immediate Run_Utility,0x0 0b17 48ff |H | Short_Literal 0xff 0b18 e009 | | Load 0x0,0x9 0b19 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0b1a 1c08 | | Execute_Immediate Run_Utility,0x8 0b1b 00d8 | | Load_Top At_Offset_0 0b1c 1c00 | | Execute_Immediate Run_Utility,0x0 0b1d 48ff |H | Short_Literal 0xff 0b1e e009 | | Load 0x0,0x9 0b1f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0b20 1c08 | | Execute_Immediate Run_Utility,0x8 0b21 00d8 | | Load_Top At_Offset_0 0b22 1c00 | | Execute_Immediate Run_Utility,0x0 0b23 48ff |H | Short_Literal 0xff 0b24 e009 | | Load 0x0,0x9 0b25 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0b26 1c08 | | Execute_Immediate Run_Utility,0x8 0b27 00d8 | | Load_Top At_Offset_0 0b28 1c00 | | Execute_Immediate Run_Utility,0x0 0b29 029f 0dbb | | Declare_Subprogram INIT_0db8,For_Call 0b2b BODY_0af8: 0b2b e007 | | Load 0x0,0x7 0b2c 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0b2d 00cf | | Action Mark_Auxiliary 0b2e 7813 |x | Jump 0xb42 0b2f e403 | | Load 0x2,0x3 0b30 e006 | | Load 0x0,0x6 0b31 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0b32 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0b33 c404 | | Store 0x2,0x4 0b34 e404 | | Load 0x2,0x4 0b35 e006 | | Load 0x0,0x6 0b36 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0b37 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0b38 e402 | | Load 0x2,0x2 0b39 012f | / | Execute Any,Equal 0b3a 6801 |h | Jump_Zero 0xb3c 0b3b 8408 | | Call 0x2,0x8 0b3c e403 | | Load 0x2,0x3 0b3d e006 | | Load 0x0,0x6 0b3e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0b3f 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0b40 c403 | | Store 0x2,0x3 0b41 00c9 | | Action Pop_Auxiliary_Loop 0b42 e403 | | Load 0x2,0x3 0b43 e006 | | Load 0x0,0x6 0b44 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0b45 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0b46 6fe8 |o | Jump_Zero 0xb2f 0b47 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0b48 ; -------------------------------------------------------------------------------------- 0b48 ; SUBPROGRAM 0b48 ; -------------------------------------------------------------------------------------- 0b48 0b4b | K | .CONST 0x0b4b ; Address of begin 0b49 0b54 | T | .CONST 0x0b54 ; Address of exception handler 0b4a 0001 | | .CONST 0x0001 ; Number of locals 0b4b BODY_0b48: 0b4b INIT_0b48: 0b4b e407 | | Load 0x2,0x7 0b4c e009 | | Load 0x0,0x9 0b4d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0b4e e406 | | Load 0x2,0x6 0b4f e009 | | Load 0x0,0x9 0b50 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0b51 e007 | | Load 0x0,0x7 0b52 180f | | Execute Package,Field_Execute,Field_Number 0xf 0b53 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0b54 TRAP_0b48: 0b54 e007 | | Load 0x0,0x7 0b55 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0b56 010f | | Execute Exception,Equal 0b57 680a |h | Jump_Zero 0xb62 0b58 4801 |H | Short_Literal 0x1 0b59 e407 | | Load 0x2,0x7 0b5a e009 | | Load 0x0,0x9 0b5b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0b5c e406 | | Load 0x2,0x6 0b5d e009 | | Load 0x0,0x9 0b5e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0b5f e00a | | Load 0x0,0xa 0b60 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 0b61 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0b62 0100 | | Execute Exception,Raise 0b63 0000 0000 | | .BLANK 0000[0x5] 0b68 ; -------------------------------------------------------------------------------------- 0b68 ; SUBPROGRAM 0b68 ; -------------------------------------------------------------------------------------- 0b68 0b6f | o | .CONST 0x0b6f ; Address of begin 0b69 0004 | | .CONST 0x0004 ; Address of exception handler 0b6a 0002 | | .CONST 0x0002 ; Number of locals 0b6b INIT_0b68: 0b6b e403 | | Load 0x2,0x3 0b6c e006 | | Load 0x0,0x6 0b6d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0b6e 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0b6f BODY_0b68: 0b6f 00d8 | | Load_Top At_Offset_0 0b70 8233 | 3 | Call 0x1,0x33 0b71 6810 |h | Jump_Zero 0xb82 0b72 e405 | | Load 0x2,0x5 0b73 e403 | | Load 0x2,0x3 0b74 e006 | | Load 0x0,0x6 0b75 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0b76 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0b77 e00d | | Load 0x0,0xd 0b78 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0b79 e20e | | Load 0x1,0xe 0b7a 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0b7b c405 | | Store 0x2,0x5 0b7c e405 | | Load 0x2,0x5 0b7d 4801 |H | Short_Literal 0x1 0b7e 480a |H | Short_Literal 0xa 0b7f e20e | | Load 0x1,0xe 0b80 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0b81 c405 | | Store 0x2,0x5 0b82 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0b83 0000 0000 | | .BLANK 0000[0x5] 0b88 ; -------------------------------------------------------------------------------------- 0b88 ; SUBPROGRAM 0b88 ; -------------------------------------------------------------------------------------- 0b88 0b91 | | .CONST 0x0b91 ; Address of begin 0b89 0004 | | .CONST 0x0004 ; Address of exception handler 0b8a 0002 | | .CONST 0x0002 ; Number of locals 0b8b INIT_0b88: 0b8b e403 | | Load 0x2,0x3 0b8c e006 | | Load 0x0,0x6 0b8d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0b8e 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0b8f e00d | | Load 0x0,0xd 0b90 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0b91 BODY_0b88: 0b91 e00b | | Load 0x0,0xb 0b92 180e | | Execute Package,Field_Execute,Field_Number 0xe 0b93 4803 |H | Short_Literal 0x3 0b94 0092 0e59 | Y| Action Push_String_Extended,0xe59 ; "The new diagram context is " 0b96 00db | | Load_Top At_Offset_3 0b97 01cc | | Execute Vector,Catenate 0b98 e00e | | Load 0x0,0xe 0b99 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0b9a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0b9b 0000 0000 | | .BLANK 0000[0x5] 0ba0 ; -------------------------------------------------------------------------------------- 0ba0 ; SUBPROGRAM 0ba0 ; -------------------------------------------------------------------------------------- 0ba0 0ba5 | | .CONST 0x0ba5 ; Address of begin 0ba1 0004 | | .CONST 0x0004 ; Address of exception handler 0ba2 0002 | | .CONST 0x0002 ; Number of locals 0ba3 INIT_0ba0: 0ba3 e402 | | Load 0x2,0x2 0ba4 8230 | 0 | Call 0x1,0x30 0ba5 BODY_0ba0: 0ba5 00d8 | | Load_Top At_Offset_0 0ba6 01dd | | Execute Vector,First 0ba7 00d9 | | Load_Top At_Offset_1 0ba8 01d7 | | Execute Vector,Field_Read 0ba9 00d8 | | Load_Top At_Offset_0 0baa 0d22 | " | Execute_Immediate Less,0x22 0bab 7014 |p | Jump_Nonzero 0xbc0 0bac 00d8 | | Load_Top At_Offset_0 0bad 0c2b | + | Execute_Immediate Greater_Equal,0x2b 0bae 7007 |p | Jump_Nonzero 0xbb6 0baf 0b22 | " | Execute_Immediate Case_Compare,0x22 0bb0 7013 |p | Jump_Nonzero 0xbc4 0bb1 0b23 | # | Execute_Immediate Case_Compare,0x23 0bb2 703b |p; | Jump_Nonzero 0xbee 0bb3 0f2a | * | Execute_Immediate Equal,0x2a 0bb4 7040 |p@ | Jump_Nonzero 0xbf5 0bb5 780b |x | Jump 0xbc1 0bb6 00d8 | | Load_Top At_Offset_0 0bb7 4841 |HA | Short_Literal 0x41 0bb8 485a |HZ | Short_Literal 0x5a 0bb9 0262 | b | Execute Discrete,In_Range 0bba 7009 |p | Jump_Nonzero 0xbc4 0bbb 4861 |Ha | Short_Literal 0x61 0bbc 487a |Hz | Short_Literal 0x7a 0bbd 0262 | b | Execute Discrete,In_Range 0bbe 7006 |p | Jump_Nonzero 0xbc5 0bbf 7801 |x | Jump 0xbc1 0bc0 00d1 | | Pop_Control Pop_Count_1 0bc1 00cc | | Action Pop_Block 0bc2 00a7 084a | J| Action Jump_Extended,0x84a 0bc4 00d1 | | Pop_Control Pop_Count_1 0bc5 00d8 | | Load_Top At_Offset_0 0bc6 01dd | | Execute Vector,First 0bc7 00d9 | | Load_Top At_Offset_1 0bc8 01d7 | | Execute Vector,Field_Read 0bc9 0f22 | " | Execute_Immediate Equal,0x22 0bca 00d9 | | Load_Top At_Offset_1 0bcb 01dc | | Execute Vector,Last 0bcc 00da | | Load_Top At_Offset_2 0bcd 01d7 | | Execute Vector,Field_Read 0bce 0f22 | " | Execute_Immediate Equal,0x22 0bcf 0279 | y | Execute Discrete,And 0bd0 6817 |h | Jump_Zero 0xbe8 0bd1 e5fd | | Load 0x2,-0x3 0bd2 00d9 | | Load_Top At_Offset_1 0bd3 01dd | | Execute Vector,First 0bd4 0a01 | | Execute_Immediate Plus,0x1 0bd5 00d8 | | Load_Top At_Offset_0 0bd6 00e2 | | Load_Encached Integer_Cache 0bd7 0260 | ` | Execute Discrete,In_Type 0bd8 7001 |p | Jump_Nonzero 0xbda 0bd9 0801 | | Execute_Immediate Raise,0x1 0bda 00da | | Load_Top At_Offset_2 0bdb 01dc | | Execute Vector,Last 0bdc 0aff | | Execute_Immediate Plus,-0x1 0bdd 00d8 | | Load_Top At_Offset_0 0bde 00e2 | | Load_Encached Integer_Cache 0bdf 0260 | ` | Execute Discrete,In_Type 0be0 7001 |p | Jump_Nonzero 0xbe2 0be1 0801 | | Execute_Immediate Raise,0x1 0be2 00db | | Load_Top At_Offset_3 0be3 01cf | | Execute Vector,Slice_Read 0be4 e009 | | Load 0x0,0x9 0be5 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0be6 00d1 | | Pop_Control Pop_Count_1 0be7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0be8 e5fd | | Load 0x2,-0x3 0be9 00d9 | | Load_Top At_Offset_1 0bea e009 | | Load 0x0,0x9 0beb 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0bec 00d1 | | Pop_Control Pop_Count_1 0bed 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0bee 00d1 | | Pop_Control Pop_Count_1 0bef e5fc | | Load 0x2,-0x4 0bf0 00d9 | | Load_Top At_Offset_1 0bf1 e009 | | Load 0x0,0x9 0bf2 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0bf3 00d1 | | Pop_Control Pop_Count_1 0bf4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0bf5 e5fc | | Load 0x2,-0x4 0bf6 00d9 | | Load_Top At_Offset_1 0bf7 01dd | | Execute Vector,First 0bf8 0a01 | | Execute_Immediate Plus,0x1 0bf9 00d8 | | Load_Top At_Offset_0 0bfa 00e2 | | Load_Encached Integer_Cache 0bfb 0260 | ` | Execute Discrete,In_Type 0bfc 7001 |p | Jump_Nonzero 0xbfe 0bfd 0801 | | Execute_Immediate Raise,0x1 0bfe 00da | | Load_Top At_Offset_2 0bff 01dc | | Execute Vector,Last 0c00 00db | | Load_Top At_Offset_3 0c01 01cf | | Execute Vector,Slice_Read 0c02 e009 | | Load 0x0,0x9 0c03 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0c04 00d1 | | Pop_Control Pop_Count_1 0c05 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0c06 0000 0000 | | .XXX[0x2] 0c08 ; -------------------------------------------------------------------------------------- 0c08 ; SUBPROGRAM 0c08 ; -------------------------------------------------------------------------------------- 0c08 0c0e | | .CONST 0x0c0e ; Address of begin 0c09 0004 | | .CONST 0x0004 ; Address of exception handler 0c0a 0002 | | .CONST 0x0002 ; Number of locals 0c0b INIT_0c08: 0c0b e402 | | Load 0x2,0x2 0c0c e008 | | Load 0x0,0x8 0c0d 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0c0e BODY_0c08: 0c0e e402 | | Load 0x2,0x2 0c0f e008 | | Load 0x0,0x8 0c10 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0c11 c402 | | Store 0x2,0x2 0c12 4801 |H | Short_Literal 0x1 0c13 00d9 | | Load_Top At_Offset_1 0c14 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 0c16 e00a | | Load 0x0,0xa 0c17 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 0c18 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0c19 0000 0000 | | .BLANK 0000[0x7] 0c20 ; -------------------------------------------------------------------------------------- 0c20 ; SUBPROGRAM 0c20 ; -------------------------------------------------------------------------------------- 0c20 0c26 | & | .CONST 0x0c26 ; Address of begin 0c21 0004 | | .CONST 0x0004 ; Address of exception handler 0c22 0002 | | .CONST 0x0002 ; Number of locals 0c23 INIT_0c20: 0c23 e402 | | Load 0x2,0x2 0c24 e008 | | Load 0x0,0x8 0c25 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0c26 BODY_0c20: 0c26 e402 | | Load 0x2,0x2 0c27 e008 | | Load 0x0,0x8 0c28 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0c29 c402 | | Store 0x2,0x2 0c2a 4801 |H | Short_Literal 0x1 0c2b 0092 0e4a | J| Action Push_String_Extended,0xe4a ; "read" 0c2d 00da | | Load_Top At_Offset_2 0c2e 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 0c30 e00a | | Load 0x0,0xa 0c31 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 0c32 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0c33 0000 0000 | | .BLANK 0000[0x5] 0c38 ; -------------------------------------------------------------------------------------- 0c38 ; SUBPROGRAM 0c38 ; -------------------------------------------------------------------------------------- 0c38 0c3e | > | .CONST 0x0c3e ; Address of begin 0c39 0004 | | .CONST 0x0004 ; Address of exception handler 0c3a 0002 | | .CONST 0x0002 ; Number of locals 0c3b INIT_0c38: 0c3b e402 | | Load 0x2,0x2 0c3c e008 | | Load 0x0,0x8 0c3d 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0c3e BODY_0c38: 0c3e e402 | | Load 0x2,0x2 0c3f e008 | | Load 0x0,0x8 0c40 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0c41 c402 | | Store 0x2,0x2 0c42 4801 |H | Short_Literal 0x1 0c43 00d9 | | Load_Top At_Offset_1 0c44 e00a | | Load 0x0,0xa 0c45 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0c46 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0c47 0000 | | .XXX[0x1] 0c48 ; -------------------------------------------------------------------------------------- 0c48 ; SUBPROGRAM 0c48 ; -------------------------------------------------------------------------------------- 0c48 0c4e | N | .CONST 0x0c4e ; Address of begin 0c49 0004 | | .CONST 0x0004 ; Address of exception handler 0c4a 0002 | | .CONST 0x0002 ; Number of locals 0c4b INIT_0c48: 0c4b e402 | | Load 0x2,0x2 0c4c e008 | | Load 0x0,0x8 0c4d 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0c4e BODY_0c48: 0c4e e402 | | Load 0x2,0x2 0c4f e008 | | Load 0x0,0x8 0c50 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0c51 c402 | | Store 0x2,0x2 0c52 4800 |H | Short_Literal 0x0 0c53 00cb | | Action Pop_Block_With_Result 0c54 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0c55 0000 0000 | | .XXX[0x3] 0c57 0000 | | 0c58 ; -------------------------------------------------------------------------------------- 0c58 ; SUBPROGRAM 0c58 ; -------------------------------------------------------------------------------------- 0c58 0c5e | ^ | .CONST 0x0c5e ; Address of begin 0c59 0004 | | .CONST 0x0004 ; Address of exception handler 0c5a 0002 | | .CONST 0x0002 ; Number of locals 0c5b INIT_0c58: 0c5b e402 | | Load 0x2,0x2 0c5c e008 | | Load 0x0,0x8 0c5d 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0c5e BODY_0c58: 0c5e e402 | | Load 0x2,0x2 0c5f e008 | | Load 0x0,0x8 0c60 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0c61 c402 | | Store 0x2,0x2 0c62 4801 |H | Short_Literal 0x1 0c63 0092 0e4a | J| Action Push_String_Extended,0xe4a ; "read" 0c65 00da | | Load_Top At_Offset_2 0c66 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 0c68 e00a | | Load 0x0,0xa 0c69 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 0c6a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0c6b 0000 0000 | | .BLANK 0000[0x5] 0c70 ; -------------------------------------------------------------------------------------- 0c70 ; SUBPROGRAM 0c70 ; -------------------------------------------------------------------------------------- 0c70 0c76 | v | .CONST 0x0c76 ; Address of begin 0c71 0004 | | .CONST 0x0004 ; Address of exception handler 0c72 0002 | | .CONST 0x0002 ; Number of locals 0c73 INIT_0c70: 0c73 e402 | | Load 0x2,0x2 0c74 e008 | | Load 0x0,0x8 0c75 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0c76 BODY_0c70: 0c76 e402 | | Load 0x2,0x2 0c77 e008 | | Load 0x0,0x8 0c78 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0c79 c402 | | Store 0x2,0x2 0c7a 4801 |H | Short_Literal 0x1 0c7b 00d9 | | Load_Top At_Offset_1 0c7c e00a | | Load 0x0,0xa 0c7d 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0c7e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0c7f 0000 | | .XXX[0x1] 0c80 ; -------------------------------------------------------------------------------------- 0c80 ; SUBPROGRAM 0c80 ; -------------------------------------------------------------------------------------- 0c80 0c85 | | .CONST 0x0c85 ; Address of begin 0c81 0004 | | .CONST 0x0004 ; Address of exception handler 0c82 0003 | | .CONST 0x0003 ; Number of locals 0c83 INIT_0c80: 0c83 00e2 | | Load_Encached Integer_Cache 0c84 00e2 | | Load_Encached Integer_Cache 0c85 BODY_0c80: 0c85 00cf | | Action Mark_Auxiliary 0c86 00cf | | Action Mark_Auxiliary 0c87 7804 |x | Jump 0xc8c 0c88 e403 | | Load 0x2,0x3 0c89 0a01 | | Execute_Immediate Plus,0x1 0c8a c403 | | Store 0x2,0x3 0c8b 00c9 | | Action Pop_Auxiliary_Loop 0c8c e403 | | Load 0x2,0x3 0c8d e402 | | Load 0x2,0x2 0c8e 027a | z | Execute Discrete,Less_Equal 0c8f 6806 |h | Jump_Zero 0xc96 0c90 e403 | | Load 0x2,0x3 0c91 e5ff | | Load 0x2,-0x1 0c92 e20e | | Load 0x1,0xe 0c93 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0c94 822e | . | Call 0x1,0x2e 0c95 77f2 |w | Jump_Nonzero 0xc88 0c96 00ce | | Action Pop_Auxiliary 0c97 e403 | | Load 0x2,0x3 0c98 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 0c99 00cf | | Action Mark_Auxiliary 0c9a 7804 |x | Jump 0xc9f 0c9b e403 | | Load 0x2,0x3 0c9c 0a01 | | Execute_Immediate Plus,0x1 0c9d c403 | | Store 0x2,0x3 0c9e 00c9 | | Action Pop_Auxiliary_Loop 0c9f e403 | | Load 0x2,0x3 0ca0 e402 | | Load 0x2,0x2 0ca1 027a | z | Execute Discrete,Less_Equal 0ca2 6806 |h | Jump_Zero 0xca9 0ca3 e403 | | Load 0x2,0x3 0ca4 e5ff | | Load 0x2,-0x1 0ca5 e20e | | Load 0x1,0xe 0ca6 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0ca7 0e0a | | Execute_Immediate Not_Equal,0xa 0ca8 77f2 |w | Jump_Nonzero 0xc9b 0ca9 00ce | | Action Pop_Auxiliary 0caa e403 | | Load 0x2,0x3 0cab 0aff | | Execute_Immediate Plus,-0x1 0cac 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0cad 00cf | | Action Mark_Auxiliary 0cae 7804 |x | Jump 0xcb3 0caf 00da | | Load_Top At_Offset_2 0cb0 0aff | | Execute_Immediate Plus,-0x1 0cb1 005b | [ | Store_Top Discrete,At_Offset_3 0cb2 00c9 | | Action Pop_Auxiliary_Loop 0cb3 00da | | Load_Top At_Offset_2 0cb4 e602 | | Load 0x3,0x2 0cb5 027b | { | Execute Discrete,Greater_Equal 0cb6 680b |h | Jump_Zero 0xcc2 0cb7 00da | | Load_Top At_Offset_2 0cb8 00d8 | | Load_Top At_Offset_0 0cb9 00e4 | | Load_Encached Positive_Cache 0cba 0260 | ` | Execute Discrete,In_Type 0cbb 7001 |p | Jump_Nonzero 0xcbd 0cbc 0801 | | Execute_Immediate Raise,0x1 0cbd e5ff | | Load 0x2,-0x1 0cbe e20e | | Load 0x1,0xe 0cbf 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0cc0 822e | . | Call 0x1,0x2e 0cc1 77ed |w | Jump_Nonzero 0xcaf 0cc2 00ce | | Action Pop_Auxiliary 0cc3 e403 | | Load 0x2,0x3 0cc4 e402 | | Load 0x2,0x2 0cc5 027a | z | Execute Discrete,Less_Equal 0cc6 6803 |h | Jump_Zero 0xcca 0cc7 e403 | | Load 0x2,0x3 0cc8 0a01 | | Execute_Immediate Plus,0x1 0cc9 c403 | | Store 0x2,0x3 0cca 00d9 | | Load_Top At_Offset_1 0ccb 00db | | Load_Top At_Offset_3 0ccc 027b | { | Execute Discrete,Greater_Equal 0ccd e403 | | Load 0x2,0x3 0cce e402 | | Load 0x2,0x2 0ccf 027d | } | Execute Discrete,Greater 0cd0 0278 | x | Execute Discrete,Or 0cd1 7002 |p | Jump_Nonzero 0xcd4 0cd2 00c9 | | Action Pop_Auxiliary_Loop 0cd3 7fb2 | | Jump 0xc86 0cd4 00ce | | Action Pop_Auxiliary 0cd5 00d8 | | Load_Top At_Offset_0 0cd6 00d8 | | Load_Top At_Offset_0 0cd7 00e3 | | Load_Encached Natural_Cache 0cd8 0260 | ` | Execute Discrete,In_Type 0cd9 7001 |p | Jump_Nonzero 0xcdb 0cda 0801 | | Execute_Immediate Raise,0x1 0cdb 00da | | Load_Top At_Offset_2 0cdc 00d8 | | Load_Top At_Offset_0 0cdd 00e4 | | Load_Encached Positive_Cache 0cde 0260 | ` | Execute Discrete,In_Type 0cdf 7001 |p | Jump_Nonzero 0xce1 0ce0 0801 | | Execute_Immediate Raise,0x1 0ce1 e5ff | | Load 0x2,-0x1 0ce2 e20e | | Load 0x1,0xe 0ce3 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0ce4 00ca | | Action Exit_Nullary_Function 0ce5 0000 0000 | | .XXX[0x3] 0ce7 0000 | | 0ce8 ; -------------------------------------------------------------------------------------- 0ce8 ; SUBPROGRAM 0ce8 ; -------------------------------------------------------------------------------------- 0ce8 0cec | | .CONST 0x0cec ; Address of begin 0ce9 0004 | | .CONST 0x0004 ; Address of exception handler 0cea 0002 | | .CONST 0x0002 ; Number of locals 0ceb INIT_0ce8: 0ceb 8404 | | Call 0x2,0x4 0cec BODY_0ce8: 0cec 00d8 | | Load_Top At_Offset_0 0ced 01db | | Execute Vector,Length 0cee 7002 |p | Jump_Nonzero 0xcf1 0cef 00cc | | Action Pop_Block 0cf0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0cf1 00d8 | | Load_Top At_Offset_0 0cf2 01dd | | Execute Vector,First 0cf3 00d9 | | Load_Top At_Offset_1 0cf4 01d7 | | Execute Vector,Field_Read 0cf5 00d8 | | Load_Top At_Offset_0 0cf6 0d21 | ! | Execute_Immediate Less,0x21 0cf7 7017 |p | Jump_Nonzero 0xd0f 0cf8 00d8 | | Load_Top At_Offset_0 0cf9 0c2c | , | Execute_Immediate Greater_Equal,0x2c 0cfa 700a |p | Jump_Nonzero 0xd05 0cfb 0b22 | " | Execute_Immediate Case_Compare,0x22 0cfc 7015 |p | Jump_Nonzero 0xd12 0cfd 00d8 | | Load_Top At_Offset_0 0cfe 4823 |H# | Short_Literal 0x23 0cff 4829 |H) | Short_Literal 0x29 0d00 0262 | b | Execute Discrete,In_Range 0d01 700d |p | Jump_Nonzero 0xd0f 0d02 0f2a | * | Execute_Immediate Equal,0x2a 0d03 703e |p> | Jump_Nonzero 0xd42 0d04 7837 |x7 | Jump 0xd3c 0d05 00d8 | | Load_Top At_Offset_0 0d06 4841 |HA | Short_Literal 0x41 0d07 485a |HZ | Short_Literal 0x5a 0d08 0262 | b | Execute Discrete,In_Range 0d09 7008 |p | Jump_Nonzero 0xd12 0d0a 4861 |Ha | Short_Literal 0x61 0d0b 487a |Hz | Short_Literal 0x7a 0d0c 0262 | b | Execute Discrete,In_Range 0d0d 7005 |p | Jump_Nonzero 0xd13 0d0e 7801 |x | Jump 0xd10 0d0f 00d1 | | Pop_Control Pop_Count_1 0d10 00cc | | Action Pop_Block 0d11 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0d12 00d1 | | Pop_Control Pop_Count_1 0d13 00d8 | | Load_Top At_Offset_0 0d14 01dd | | Execute Vector,First 0d15 00d9 | | Load_Top At_Offset_1 0d16 01d7 | | Execute Vector,Field_Read 0d17 0f22 | " | Execute_Immediate Equal,0x22 0d18 00d9 | | Load_Top At_Offset_1 0d19 01dc | | Execute Vector,Last 0d1a 00da | | Load_Top At_Offset_2 0d1b 01d7 | | Execute Vector,Field_Read 0d1c 0f22 | " | Execute_Immediate Equal,0x22 0d1d 0279 | y | Execute Discrete,And 0d1e 6817 |h | Jump_Zero 0xd36 0d1f e5fd | | Load 0x2,-0x3 0d20 00d9 | | Load_Top At_Offset_1 0d21 01dd | | Execute Vector,First 0d22 0a01 | | Execute_Immediate Plus,0x1 0d23 00d8 | | Load_Top At_Offset_0 0d24 00e2 | | Load_Encached Integer_Cache 0d25 0260 | ` | Execute Discrete,In_Type 0d26 7001 |p | Jump_Nonzero 0xd28 0d27 0801 | | Execute_Immediate Raise,0x1 0d28 00da | | Load_Top At_Offset_2 0d29 01dc | | Execute Vector,Last 0d2a 0aff | | Execute_Immediate Plus,-0x1 0d2b 00d8 | | Load_Top At_Offset_0 0d2c 00e2 | | Load_Encached Integer_Cache 0d2d 0260 | ` | Execute Discrete,In_Type 0d2e 7001 |p | Jump_Nonzero 0xd30 0d2f 0801 | | Execute_Immediate Raise,0x1 0d30 00db | | Load_Top At_Offset_3 0d31 01cf | | Execute Vector,Slice_Read 0d32 e009 | | Load 0x0,0x9 0d33 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0d34 00d1 | | Pop_Control Pop_Count_1 0d35 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0d36 e5fd | | Load 0x2,-0x3 0d37 00d9 | | Load_Top At_Offset_1 0d38 e009 | | Load 0x0,0x9 0d39 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0d3a 00d1 | | Pop_Control Pop_Count_1 0d3b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0d3c e5fc | | Load 0x2,-0x4 0d3d 00d9 | | Load_Top At_Offset_1 0d3e e009 | | Load 0x0,0x9 0d3f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0d40 00d1 | | Pop_Control Pop_Count_1 0d41 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0d42 e5fc | | Load 0x2,-0x4 0d43 00d9 | | Load_Top At_Offset_1 0d44 01dd | | Execute Vector,First 0d45 0a01 | | Execute_Immediate Plus,0x1 0d46 00d8 | | Load_Top At_Offset_0 0d47 00e2 | | Load_Encached Integer_Cache 0d48 0260 | ` | Execute Discrete,In_Type 0d49 7001 |p | Jump_Nonzero 0xd4b 0d4a 0801 | | Execute_Immediate Raise,0x1 0d4b 00da | | Load_Top At_Offset_2 0d4c 01dc | | Execute Vector,Last 0d4d 00db | | Load_Top At_Offset_3 0d4e 01cf | | Execute Vector,Slice_Read 0d4f e009 | | Load 0x0,0x9 0d50 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0d51 00d1 | | Pop_Control Pop_Count_1 0d52 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0d53 0000 0000 | | .BLANK 0000[0x5] 0d58 ; -------------------------------------------------------------------------------------- 0d58 ; SUBPROGRAM 0d58 ; -------------------------------------------------------------------------------------- 0d58 0d5f | _ | .CONST 0x0d5f ; Address of begin 0d59 0004 | | .CONST 0x0004 ; Address of exception handler 0d5a 0002 | | .CONST 0x0002 ; Number of locals 0d5b INIT_0d58: 0d5b e22c | , | Load 0x1,0x2c 0d5c e006 | | Load 0x0,0x6 0d5d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0d5e 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0d5f BODY_0d58: 0d5f e402 | | Load 0x2,0x2 0d60 e006 | | Load 0x0,0x6 0d61 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0d62 1845 | E | Execute Package,Field_Execute,Field_Number 0x45 0d63 4618 |F | Jump_Case 0x19 0d64 7818 |x | Jump 0xd7d ; case 0x0 0d65 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x1 0d66 781d |x | Jump 0xd84 ; case 0x2 0d67 7815 |x | Jump 0xd7d ; case 0x3 0d68 7814 |x | Jump 0xd7d ; case 0x4 0d69 7813 |x | Jump 0xd7d ; case 0x5 0d6a 7812 |x | Jump 0xd7d ; case 0x6 0d6b 7811 |x | Jump 0xd7d ; case 0x7 0d6c 7810 |x | Jump 0xd7d ; case 0x8 0d6d 782f |x/ | Jump 0xd9d ; case 0x9 0d6e 780e |x | Jump 0xd7d ; case 0xa 0d6f 780d |x | Jump 0xd7d ; case 0xb 0d70 780c |x | Jump 0xd7d ; case 0xc 0d71 780b |x | Jump 0xd7d ; case 0xd 0d72 780a |x | Jump 0xd7d ; case 0xe 0d73 7809 |x | Jump 0xd7d ; case 0xf 0d74 7818 |x | Jump 0xd8d ; case 0x10 0d75 7820 |x | Jump 0xd96 ; case 0x11 0d76 7806 |x | Jump 0xd7d ; case 0x12 0d77 7805 |x | Jump 0xd7d ; case 0x13 0d78 7804 |x | Jump 0xd7d ; case 0x14 0d79 7803 |x | Jump 0xd7d ; case 0x15 0d7a 7802 |x | Jump 0xd7d ; case 0x16 0d7b 7801 |x | Jump 0xd7d ; case 0x17 0d7c 7800 |x | Jump 0xd7d ; case 0x18 0d7d 4801 |H | Short_Literal 0x1 0d7e 00d9 | | Load_Top At_Offset_1 0d7f 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 0d81 e00a | | Load 0x0,0xa 0d82 1844 | D | Execute Package,Field_Execute,Field_Number 0x44 0d83 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0d84 4801 |H | Short_Literal 0x1 0d85 0092 0e56 | V| Action Push_String_Extended,0xe56 ; "used as the context" 0d87 00da | | Load_Top At_Offset_2 0d88 0092 0e55 | U| Action Push_String_Extended,0xe55 ; "library" 0d8a e00a | | Load 0x0,0xa 0d8b 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 0d8c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0d8d 4801 |H | Short_Literal 0x1 0d8e 0092 0e56 | V| Action Push_String_Extended,0xe56 ; "used as the context" 0d90 00da | | Load_Top At_Offset_2 0d91 0092 0e55 | U| Action Push_String_Extended,0xe55 ; "library" 0d93 e00a | | Load 0x0,0xa 0d94 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 0d95 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0d96 4801 |H | Short_Literal 0x1 0d97 00d9 | | Load_Top At_Offset_1 0d98 0092 0e55 | U| Action Push_String_Extended,0xe55 ; "library" 0d9a e00a | | Load 0x0,0xa 0d9b 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 0d9c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0d9d 4801 |H | Short_Literal 0x1 0d9e 00d9 | | Load_Top At_Offset_1 0d9f 0092 0e55 | U| Action Push_String_Extended,0xe55 ; "library" 0da1 e00a | | Load 0x0,0xa 0da2 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37 0da3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0da4 0000 0000 | | .BLANK 0000[0x4] 0da8 ; -------------------------------------------------------------------------------------- 0da8 ; SUBPROGRAM 0da8 ; -------------------------------------------------------------------------------------- 0da8 0daf | | .CONST 0x0daf ; Address of begin 0da9 0004 | | .CONST 0x0004 ; Address of exception handler 0daa 0002 | | .CONST 0x0002 ; Number of locals 0dab INIT_0da8: 0dab e403 | | Load 0x2,0x3 0dac e006 | | Load 0x0,0x6 0dad 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0dae 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0daf BODY_0da8: 0daf e5fe | | Load 0x2,-0x2 0db0 00d9 | | Load_Top At_Offset_1 0db1 e009 | | Load 0x0,0x9 0db2 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0db3 00d1 | | Pop_Control Pop_Count_1 0db4 00d8 | | Load_Top At_Offset_0 0db5 8232 | 2 | Call 0x1,0x32 0db6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0db7 0000 | | .XXX[0x1] 0db8 ; -------------------------------------------------------------------------------------- 0db8 ; SUBPROGRAM 0db8 ; -------------------------------------------------------------------------------------- 0db8 0dbf | | .CONST 0x0dbf ; Address of begin 0db9 0dd1 | | .CONST 0x0dd1 ; Address of exception handler 0dba 0002 | | .CONST 0x0002 ; Number of locals 0dbb INIT_0db8: 0dbb e404 | | Load 0x2,0x4 0dbc e006 | | Load 0x0,0x6 0dbd 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0dbe 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0dbf BODY_0db8: 0dbf e407 | | Load 0x2,0x7 0dc0 e406 | | Load 0x2,0x6 0dc1 e405 | | Load 0x2,0x5 0dc2 00db | | Load_Top At_Offset_3 0dc3 8231 | 1 | Call 0x1,0x31 0dc4 00d3 | | Pop_Control Pop_Count_3 0dc5 e407 | | Load 0x2,0x7 0dc6 e009 | | Load 0x0,0x9 0dc7 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0dc8 0c01 | | Execute_Immediate Greater_Equal,0x1 0dc9 6806 |h | Jump_Zero 0xdd0 0dca 00d8 | | Load_Top At_Offset_0 0dcb e407 | | Load 0x2,0x7 0dcc e009 | | Load 0x0,0x9 0dcd 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0dce e007 | | Load 0x0,0x7 0dcf 180f | | Execute Package,Field_Execute,Field_Number 0xf 0dd0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0dd1 TRAP_0db8: 0dd1 e20d | | Load 0x1,0xd 0dd2 010f | | Execute Exception,Equal 0dd3 6801 |h | Jump_Zero 0xdd5 0dd4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0dd5 e007 | | Load 0x0,0x7 0dd6 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0dd7 010f | | Execute Exception,Equal 0dd8 680c |h | Jump_Zero 0xde5 0dd9 4801 |H | Short_Literal 0x1 0dda e5ff | | Load 0x2,-0x1 0ddb e006 | | Load 0x0,0x6 0ddc 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0ddd 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0dde e407 | | Load 0x2,0x7 0ddf e009 | | Load 0x0,0x9 0de0 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0de1 e602 | | Load 0x3,0x2 0de2 e00a | | Load 0x0,0xa 0de3 1842 | B | Execute Package,Field_Execute,Field_Number 0x42 0de4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0de5 4931 |I1 | Short_Literal 0x131 0de6 010f | | Execute Exception,Equal 0de7 6809 |h | Jump_Zero 0xdf1 0de8 4801 |H | Short_Literal 0x1 0de9 0092 0e4a | J| Action Push_String_Extended,0xe4a ; "read" 0deb 00db | | Load_Top At_Offset_3 0dec 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 0dee e00a | | Load 0x0,0xa 0def 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 0df0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0df1 4932 |I2 | Short_Literal 0x132 0df2 010f | | Execute Exception,Equal 0df3 6809 |h | Jump_Zero 0xdfd 0df4 4801 |H | Short_Literal 0x1 0df5 0092 0e4a | J| Action Push_String_Extended,0xe4a ; "read" 0df7 00db | | Load_Top At_Offset_3 0df8 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 0dfa e00a | | Load 0x0,0xa 0dfb 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 0dfc 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0dfd 4933 |I3 | Short_Literal 0x133 0dfe 010f | | Execute Exception,Equal 0dff 6807 |h | Jump_Zero 0xe07 0e00 4801 |H | Short_Literal 0x1 0e01 00da | | Load_Top At_Offset_2 0e02 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 0e04 e00a | | Load 0x0,0xa 0e05 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 0e06 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0e07 4934 |I4 | Short_Literal 0x134 0e08 010f | | Execute Exception,Equal 0e09 6809 |h | Jump_Zero 0xe13 0e0a 4801 |H | Short_Literal 0x1 0e0b 0092 0e4a | J| Action Push_String_Extended,0xe4a ; "read" 0e0d 00db | | Load_Top At_Offset_3 0e0e 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 0e10 e00a | | Load 0x0,0xa 0e11 183c | < | Execute Package,Field_Execute,Field_Number 0x3c 0e12 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0e13 4935 |I5 | Short_Literal 0x135 0e14 010f | | Execute Exception,Equal 0e15 6809 |h | Jump_Zero 0xe1f 0e16 4801 |H | Short_Literal 0x1 0e17 0092 0e4a | J| Action Push_String_Extended,0xe4a ; "read" 0e19 00db | | Load_Top At_Offset_3 0e1a 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 0e1c e00a | | Load 0x0,0xa 0e1d 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 0e1e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0e1f 4936 |I6 | Short_Literal 0x136 0e20 010f | | Execute Exception,Equal 0e21 6809 |h | Jump_Zero 0xe2b 0e22 4801 |H | Short_Literal 0x1 0e23 0092 0e4a | J| Action Push_String_Extended,0xe4a ; "read" 0e25 00db | | Load_Top At_Offset_3 0e26 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 0e28 e00a | | Load 0x0,0xa 0e29 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0e2a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0e2b 00d8 | | Load_Top At_Offset_0 0e2c 0107 | | Execute Exception,Get_Name 0e2d 4940 |I@ | Short_Literal 0x140 0e2e 494f |IO | Short_Literal 0x14f 0e2f 0262 | b | Execute Discrete,In_Range 0e30 6809 |h | Jump_Zero 0xe3a 0e31 4801 |H | Short_Literal 0x1 0e32 0092 0e4a | J| Action Push_String_Extended,0xe4a ; "read" 0e34 00db | | Load_Top At_Offset_3 0e35 0092 0e49 | I| Action Push_String_Extended,0xe49 ; "diagram" 0e37 e00a | | Load 0x0,0xa 0e38 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 0e39 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0e3a 00d8 | | Load_Top At_Offset_0 0e3b 0107 | | Execute Exception,Get_Name 0e3c 4960 |I` | Short_Literal 0x160 0e3d 496f |Io | Short_Literal 0x16f 0e3e 0262 | b | Execute Discrete,In_Range 0e3f 6805 |h | Jump_Zero 0xe45 0e40 4801 |H | Short_Literal 0x1 0e41 00da | | Load_Top At_Offset_2 0e42 e00a | | Load 0x0,0xa 0e43 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0e44 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0e45 0100 | | Execute Exception,Raise 0e46 ; -------------------------------------------------------------------------------------- 0e46 ; STRING TABLE 0e46 ; -------------------------------------------------------------------------------------- 0e46 002a | * | .STRTAB 0x002a->0x0e5b ; "POSTSCRIPT" 0e47 0032 | 2 | .STRTAB 0x0032->0x0e60 ; "MIL" 0e48 0033 | 3 | .STRTAB 0x0033->0x0e61 ; "--- INSIGHT DIAGRAM ---" 0e49 0048 | H | .STRTAB 0x0048->0x0e6d ; "diagram" 0e4a 004d | M | .STRTAB 0x004d->0x0e70 ; "read" 0e4b 004f | O | .STRTAB 0x004f->0x0e72 ; "written" 0e4c 0054 | T | .STRTAB 0x0054->0x0e76 ; "<PROFILE>" 0e4d 005b | [ | .STRTAB 0x005b->0x0e7a ; "<QUIET>" 0e4e 0060 | ` | .STRTAB 0x0060->0x0e7e ; "print file" 0e4f 0068 | h | .STRTAB 0x0068->0x0e83 ; "deleted" 0e50 006d | m | .STRTAB 0x006d->0x0e86 ; "deleted);" 0e51 0074 | t | .STRTAB 0x0074->0x0e8b ; "reading" 0e52 0079 | y | .STRTAB 0x0079->0x0e8e ; ".@" 0e53 0079 | y | .STRTAB 0x0079->0x0e8f ; "<DIRECTORIES>" 0e54 0084 | | .STRTAB 0x0084->0x0e96 ; "TEXT" 0e55 0086 | | .STRTAB 0x0086->0x0e98 ; "library" 0e56 008b | | .STRTAB 0x008b->0x0e9b ; "used as the context" 0e57 009c | | .STRTAB 0x009c->0x0ea5 ; "text" 0e58 009e | | .STRTAB 0x009e->0x0ea7 ; "@" 0e59 009d | | .STRTAB 0x009d->0x0ea7 ; "The new diagram context is " 0e5a 00b6 | | .STREND 0x00b6->0x0eb5 0e5b 504f 5354 |POST| .STRTAB_STRINGS 0eb5 0000 0000 | | .XXX[0x3] 0eb7 0000 | | 0eb8 ; -------------------------------------------------------------------------------------- 0eb8 ; Debug Table 0eb8 ; -------------------------------------------------------------------------------------- 0eb8 0004 0014 | | .DEBUG4 0x0004,0x0014,0x0e16,0x0000,0x0001,0x0000 0ebe 0000 0000 | | .BLANK 0000[0x142]