|
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_0694fc
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0ec0 | | .CONST 0x0ec0 ; 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 0097 | | .CONST 0x0097 ; 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 00c4 | | Action Make_Default
002b e002 | | Load 0x0,0x2
002c 0129 | ) | Execute Any,Make_Visible
002d c219 | | Store 0x1,0x19
002e 4800 |H | Short_Literal 0x0
002f 4801 |H | Short_Literal 0x1
0030 029f 00a3 | | Declare_Subprogram INIT_00a0,For_Call
0032 03fe | | Declare_Type Discrete,Defined,Visible
0033 c227 | ' | Store 0x1,0x27
0034 e003 | | Load 0x0,0x3
0035 e004 | | Load 0x0,0x4
0036 4be8 |K | Short_Literal 0x3e8
0037 e005 | | Load 0x0,0x5
0038 0386 | | Declare_Variable Package,Visible
0039 00d8 | | Load_Top At_Offset_0
003a 020f | | Execute Module,Activate
003b c20e | | Store 0x1,0xe
003c 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated
003e c21e | | Store 0x1,0x1e
003f 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated
0041 c21f | | Store 0x1,0x1f
0042 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated
0044 c220 | | Store 0x1,0x20
0045 029a 032b | +| Declare_Subprogram INIT_0328,For_Outer_Call,Visible,Unelaborated
0047 c228 | ( | Store 0x1,0x28
0048 029a 0433 | 3| Declare_Subprogram INIT_0430,For_Outer_Call,Visible,Unelaborated
004a c221 | ! | Store 0x1,0x21
004b 029a 05eb | | Declare_Subprogram INIT_05e8,For_Outer_Call,Visible,Unelaborated
004d c226 | & | Store 0x1,0x26
004e 029a 0653 | S| Declare_Subprogram INIT_0650,For_Outer_Call,Visible,Unelaborated
0050 c22a | * | Store 0x1,0x2a
0051 029a 06a3 | | Declare_Subprogram INIT_06a0,For_Outer_Call,Visible,Unelaborated
0053 c222 | " | Store 0x1,0x22
0054 029a 0763 | c| Declare_Subprogram INIT_0760,For_Outer_Call,Visible,Unelaborated
0056 c223 | # | Store 0x1,0x23
0057 029a 0773 | s| Declare_Subprogram INIT_0770,For_Outer_Call,Visible,Unelaborated
0059 c224 | $ | Store 0x1,0x24
005a 029a 0783 | | Declare_Subprogram INIT_0780,For_Outer_Call,Visible,Unelaborated
005c c21d | | Store 0x1,0x1d
005d 029a 078b | | Declare_Subprogram INIT_0788,For_Outer_Call,Visible,Unelaborated
005f c22b | + | Store 0x1,0x2b
0060 00bf | | Action Accept_Activation
0061 0092 0e50 | P| Action Push_String_Extended,0xe50 ; "--- INSIGHT DIAGRAM ---"
0063 e006 | | Load 0x0,0x6
0064 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0065 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0066 02c7 | | Declare_Variable Any
0067 e006 | | Load 0x0,0x6
0068 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0069 1813 | | Execute Package,Field_Execute,Field_Number 0x13
006a a22d | - | Store_Unchecked 0x1,0x2d
006b 029d 0833 | 3| Declare_Subprogram INIT_0830,For_Outer_Call
006d 029d 085b | [| Declare_Subprogram INIT_0858,For_Outer_Call
006f 029d 086b | k| Declare_Subprogram INIT_0868,For_Outer_Call
0071 029d 08ab | | Declare_Subprogram INIT_08a8,For_Outer_Call
0073 029d 08d3 | | Declare_Subprogram INIT_08d0,For_Outer_Call
0075 029d 0913 | | Declare_Subprogram INIT_0910,For_Outer_Call
0077 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
0078 00c7 | | Action Elaborate_Subprogram
0079 029d 09bb | | Declare_Subprogram INIT_09b8,For_Outer_Call
007b 029d 09e3 | | Declare_Subprogram INIT_09e0,For_Outer_Call
007d 029d 0a03 | | Declare_Subprogram INIT_0a00,For_Outer_Call
007f 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0080 00c7 | | Action Elaborate_Subprogram
0081 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0082 00c7 | | Action Elaborate_Subprogram
0083 1d20 | | Execute_Immediate Reference_Lex_1,0x20
0084 00c7 | | Action Elaborate_Subprogram
0085 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
0086 00c7 | | Action Elaborate_Subprogram
0087 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
0088 00c7 | | Action Elaborate_Subprogram
0089 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
008a 00c7 | | Action Elaborate_Subprogram
008b 029d 0b03 | | Declare_Subprogram INIT_0b00,For_Outer_Call
008d 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
008e 00c7 | | Action Elaborate_Subprogram
008f 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
0090 00c7 | | Action Elaborate_Subprogram
0091 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
0092 00c7 | | Action Elaborate_Subprogram
0093 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0094 00c7 | | Action Elaborate_Subprogram
0095 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
0096 00c7 | | Action Elaborate_Subprogram
0097 BODY_0008:
0097 e007 | | Load 0x0,0x7
0098 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0099 00bc | | Action Signal_Activated
009a 00bb | | Action Signal_Completion
009b 0000 0000 | | .BLANK 0000[0x5]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3 | | .CONST 0x00a3 ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0001 | | .CONST 0x0001 ; Number of locals
00a3 BODY_00a0:
00a3 INIT_00a0:
00a3 4607 |F | Jump_Case 0x8
00a4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00a5 7806 |x | Jump 0xac ; case 0x1
00a6 7809 |x | Jump 0xb0 ; case 0x2
00a7 780d |x | Jump 0xb5 ; case 0x3
00a8 7810 |x | Jump 0xb9 ; case 0x4
00a9 7811 |x | Jump 0xbb ; case 0x5
00aa 7812 |x | Jump 0xbd ; case 0x6
00ab 7815 |x | Jump 0xc1 ; case 0x7
00ac 00da | | Load_Top At_Offset_2
00ad 0091 0e4e | N| Action Push_String_Extended_Indexed,0xe4e ; "POSTSCRIPT"
00af 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00b0 00db | | Load_Top At_Offset_3
00b1 00db | | Load_Top At_Offset_3
00b2 00e0 | | Load_Encached Standard_Cache
00b3 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00b4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00b5 00da | | Load_Top At_Offset_2
00b6 00e0 | | Load_Encached Standard_Cache
00b7 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00b8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00b9 00db | | Load_Top At_Offset_3
00ba 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00bb 00db | | Load_Top At_Offset_3
00bc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00bd e227 | ' | Load 0x1,0x27
00be 00dc | | Load_Top At_Offset_4
00bf 0267 | g | Execute Discrete,Predecessor
00c0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00c1 e227 | ' | Load 0x1,0x27
00c2 00dc | | Load_Top At_Offset_4
00c3 0268 | h | Execute Discrete,Successor
00c4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00c5 0000 0000 | | .XXX[0x3]
00c7 0000 | |
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cc | | .CONST 0x00cc ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0002 | | .CONST 0x0002 ; Number of locals
00cb INIT_00c8:
00cb 00e1 | | Load_Encached Boolean_Cache
00cc BODY_00c8:
00cc 00e1 | | Load_Encached Boolean_Cache
00cd 00e1 | | Load_Encached Boolean_Cache
00ce e5fd | | Load 0x2,-0x3
00cf e5fe | | Load 0x2,-0x2
00d0 e5ff | | Load 0x2,-0x1
00d1 8236 | 6 | Call 0x1,0x36
00d2 00d2 | | Pop_Control Pop_Count_2
00d3 c5fc | | Store 0x2,-0x4
00d4 0059 | Y | Store_Top Discrete,At_Offset_1
00d5 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00d6 0000 0000 | | .XXX[0x2]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00e4 | | .CONST 0x00e4 ; Address of begin
00d9 0115 | | .CONST 0x0115 ; Address of exception handler
00da 0005 | | .CONST 0x0005 ; Number of locals
00db INIT_00d8:
00db e008 | | Load 0x0,0x8
00dc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00dd 02c7 | | Declare_Variable Any
00de 00d8 | | Load_Top At_Offset_0
00df 1c00 | | Execute_Immediate Run_Utility,0x0
00e0 00e8 | | Load_Encached Character_Cache
00e1 e20e | | Load 0x1,0xe
00e2 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
00e3 00e3 | | Load_Encached Natural_Cache
00e4 BODY_00d8:
00e4 00be | | Action Activate_Tasks
00e5 8235 | 5 | Call 0x1,0x35
00e6 00db | | Load_Top At_Offset_3
00e7 00ea | | Load_Encached Null_String_Cache
00e8 e5ff | | Load 0x2,-0x1
00e9 e009 | | Load 0x0,0x9
00ea 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00eb 4800 |H | Short_Literal 0x0
00ec e008 | | Load 0x0,0x8
00ed 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00ee c402 | | Store 0x2,0x2
00ef 00db | | Load_Top At_Offset_3
00f0 822e | . | Call 0x1,0x2e
00f1 00cf | | Action Mark_Auxiliary
00f2 7816 |x | Jump 0x109
00f3 e402 | | Load 0x2,0x2
00f4 e008 | | Load 0x0,0x8
00f5 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
00f6 6806 |h | Jump_Zero 0xfd
00f7 00da | | Load_Top At_Offset_2
00f8 4801 |H | Short_Literal 0x1
00f9 480a |H | Short_Literal 0xa
00fa e20e | | Load 0x1,0xe
00fb 181f | | Execute Package,Field_Execute,Field_Number 0x1f
00fc 003b | ; | Store_Top Access,At_Offset_3
00fd 00e8 | | Load_Encached Character_Cache
00fe e402 | | Load 0x2,0x2
00ff e008 | | Load 0x0,0x8
0100 1844 | D | Execute Package,Field_Execute,Field_Number 0x44
0101 c403 | | Store 0x2,0x3
0102 00da | | Load_Top At_Offset_2
0103 4801 |H | Short_Literal 0x1
0104 e403 | | Load 0x2,0x3
0105 e20e | | Load 0x1,0xe
0106 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0107 003b | ; | Store_Top Access,At_Offset_3
0108 00c9 | | Action Pop_Auxiliary_Loop
0109 e402 | | Load 0x2,0x2
010a e008 | | Load 0x0,0x8
010b 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
010c 6fe6 |o | Jump_Zero 0xf3
010d 00ce | | Action Pop_Auxiliary
010e 00db | | Load_Top At_Offset_3
010f e008 | | Load 0x0,0x8
0110 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0111 c402 | | Store 0x2,0x2
0112 00d9 | | Load_Top At_Offset_1
0113 a5fe | | Store_Unchecked 0x2,-0x2
0114 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0115 TRAP_00d8:
0115 00d8 | | Load_Top At_Offset_0
0116 0107 | | Execute Exception,Get_Name
0117 4950 |IP | Short_Literal 0x150
0118 495f |I_ | Short_Literal 0x15f
0119 0262 | b | Execute Discrete,In_Range
011a 6811 |h | Jump_Zero 0x12c
011b 00da | | Load_Top At_Offset_2
011c 4801 |H | Short_Literal 0x1
011d 480a |H | Short_Literal 0xa
011e e20e | | Load 0x1,0xe
011f 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0120 003b | ; | Store_Top Access,At_Offset_3
0121 e402 | | Load 0x2,0x2
0122 e008 | | Load 0x0,0x8
0123 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0124 c402 | | Store 0x2,0x2
0125 00da | | Load_Top At_Offset_2
0126 a5fe | | Store_Unchecked 0x2,-0x2
0127 00da | | Load_Top At_Offset_2
0128 e20e | | Load 0x1,0xe
0129 1812 | | Execute Package,Field_Execute,Field_Number 0x12
012a 003b | ; | Store_Top Access,At_Offset_3
012b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
012c 4921 |I! | Short_Literal 0x121
012d 010f | | Execute Exception,Equal
012e 6807 |h | Jump_Zero 0x136
012f 4801 |H | Short_Literal 0x1
0130 e5ff | | Load 0x2,-0x1
0131 e009 | | Load 0x0,0x9
0132 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0133 e00a | | Load 0x0,0xa
0134 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
0135 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0136 4922 |I" | Short_Literal 0x122
0137 010f | | Execute Exception,Equal
0138 6807 |h | Jump_Zero 0x140
0139 4801 |H | Short_Literal 0x1
013a e5ff | | Load 0x2,-0x1
013b e009 | | Load 0x0,0x9
013c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
013d e00a | | Load 0x0,0xa
013e 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
013f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0140 4923 |I# | Short_Literal 0x123
0141 010f | | Execute Exception,Equal
0142 6809 |h | Jump_Zero 0x14c
0143 4801 |H | Short_Literal 0x1
0144 e5ff | | Load 0x2,-0x1
0145 e009 | | Load 0x0,0x9
0146 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0147 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
0149 e00a | | Load 0x0,0xa
014a 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
014b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
014c 4924 |I$ | Short_Literal 0x124
014d 010f | | Execute Exception,Equal
014e 6809 |h | Jump_Zero 0x158
014f 4801 |H | Short_Literal 0x1
0150 e5ff | | Load 0x2,-0x1
0151 e009 | | Load 0x0,0x9
0152 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0153 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
0155 e00a | | Load 0x0,0xa
0156 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0157 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0158 4925 |I% | Short_Literal 0x125
0159 010f | | Execute Exception,Equal
015a 6807 |h | Jump_Zero 0x162
015b 4801 |H | Short_Literal 0x1
015c e5ff | | Load 0x2,-0x1
015d e009 | | Load 0x0,0x9
015e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
015f e00a | | Load 0x0,0xa
0160 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0161 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0162 4931 |I1 | Short_Literal 0x131
0163 010f | | Execute Exception,Equal
0164 680b |h | Jump_Zero 0x170
0165 4801 |H | Short_Literal 0x1
0166 0092 0e52 | R| Action Push_String_Extended,0xe52 ; "read"
0168 e5ff | | Load 0x2,-0x1
0169 e009 | | Load 0x0,0x9
016a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
016b 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
016d e00a | | Load 0x0,0xa
016e 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
016f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0170 4932 |I2 | Short_Literal 0x132
0171 010f | | Execute Exception,Equal
0172 680b |h | Jump_Zero 0x17e
0173 4801 |H | Short_Literal 0x1
0174 0092 0e52 | R| Action Push_String_Extended,0xe52 ; "read"
0176 e5ff | | Load 0x2,-0x1
0177 e009 | | Load 0x0,0x9
0178 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0179 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
017b e00a | | Load 0x0,0xa
017c 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
017d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
017e 4933 |I3 | Short_Literal 0x133
017f 010f | | Execute Exception,Equal
0180 6809 |h | Jump_Zero 0x18a
0181 4801 |H | Short_Literal 0x1
0182 e5ff | | Load 0x2,-0x1
0183 e009 | | Load 0x0,0x9
0184 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0185 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
0187 e00a | | Load 0x0,0xa
0188 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
0189 4502 |E | Exit_Suprogram New_Top_Offset 0x2
018a e20d | | Load 0x1,0xd
018b 010f | | Execute Exception,Equal
018c 680d |h | Jump_Zero 0x19a
018d e402 | | Load 0x2,0x2
018e e008 | | Load 0x0,0x8
018f 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0190 c402 | | Store 0x2,0x2
0191 4801 |H | Short_Literal 0x1
0192 e5ff | | Load 0x2,-0x1
0193 e009 | | Load 0x0,0x9
0194 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0195 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
0197 e00a | | Load 0x0,0xa
0198 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
0199 4502 |E | Exit_Suprogram New_Top_Offset 0x2
019a 4934 |I4 | Short_Literal 0x134
019b 010f | | Execute Exception,Equal
019c 680b |h | Jump_Zero 0x1a8
019d 4801 |H | Short_Literal 0x1
019e 0092 0e52 | R| Action Push_String_Extended,0xe52 ; "read"
01a0 e5ff | | Load 0x2,-0x1
01a1 e009 | | Load 0x0,0x9
01a2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01a3 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
01a5 e00a | | Load 0x0,0xa
01a6 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
01a7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01a8 4935 |I5 | Short_Literal 0x135
01a9 010f | | Execute Exception,Equal
01aa 680b |h | Jump_Zero 0x1b6
01ab 4801 |H | Short_Literal 0x1
01ac 0092 0e52 | R| Action Push_String_Extended,0xe52 ; "read"
01ae e5ff | | Load 0x2,-0x1
01af e009 | | Load 0x0,0x9
01b0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01b1 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
01b3 e00a | | Load 0x0,0xa
01b4 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
01b5 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01b6 4936 |I6 | Short_Literal 0x136
01b7 010f | | Execute Exception,Equal
01b8 680b |h | Jump_Zero 0x1c4
01b9 4801 |H | Short_Literal 0x1
01ba 0092 0e52 | R| Action Push_String_Extended,0xe52 ; "read"
01bc e5ff | | Load 0x2,-0x1
01bd e009 | | Load 0x0,0x9
01be 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01bf 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
01c1 e00a | | Load 0x0,0xa
01c2 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
01c3 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01c4 00d8 | | Load_Top At_Offset_0
01c5 0107 | | Execute Exception,Get_Name
01c6 4940 |I@ | Short_Literal 0x140
01c7 494f |IO | Short_Literal 0x14f
01c8 0262 | b | Execute Discrete,In_Range
01c9 680f |h | Jump_Zero 0x1d9
01ca e402 | | Load 0x2,0x2
01cb e008 | | Load 0x0,0x8
01cc 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01cd c402 | | Store 0x2,0x2
01ce 4801 |H | Short_Literal 0x1
01cf 0092 0e52 | R| Action Push_String_Extended,0xe52 ; "read"
01d1 e5ff | | Load 0x2,-0x1
01d2 e009 | | Load 0x0,0x9
01d3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01d4 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
01d6 e00a | | Load 0x0,0xa
01d7 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
01d8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01d9 00d8 | | Load_Top At_Offset_0
01da 0107 | | Execute Exception,Get_Name
01db 4960 |I` | Short_Literal 0x160
01dc 496f |Io | Short_Literal 0x16f
01dd 0262 | b | Execute Discrete,In_Range
01de 680b |h | Jump_Zero 0x1ea
01df e402 | | Load 0x2,0x2
01e0 e008 | | Load 0x0,0x8
01e1 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01e2 c402 | | Store 0x2,0x2
01e3 4801 |H | Short_Literal 0x1
01e4 e5ff | | Load 0x2,-0x1
01e5 e009 | | Load 0x0,0x9
01e6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01e7 e00a | | Load 0x0,0xa
01e8 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
01e9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01ea 0100 | | Execute Exception,Raise
01eb 0000 0000 | | .BLANK 0000[0x5]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 0221 | ! | .CONST 0x0221 ; Address of begin
01f1 027c | | | .CONST 0x027c ; Address of exception handler
01f2 000c | | .CONST 0x000c ; Number of locals
01f3 INIT_01f0:
01f3 e008 | | Load 0x0,0x8
01f4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01f5 02c7 | | Declare_Variable Any
01f6 00d8 | | Load_Top At_Offset_0
01f7 1c00 | | Execute_Immediate Run_Utility,0x0
01f8 00e8 | | Load_Encached Character_Cache
01f9 48ff |H | Short_Literal 0xff
01fa e009 | | Load 0x0,0x9
01fb 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01fc 1c08 | | Execute_Immediate Run_Utility,0x8
01fd 00d8 | | Load_Top At_Offset_0
01fe 1c00 | | Execute_Immediate Run_Utility,0x0
01ff 48ff |H | Short_Literal 0xff
0200 e009 | | Load 0x0,0x9
0201 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0202 1c08 | | Execute_Immediate Run_Utility,0x8
0203 00d8 | | Load_Top At_Offset_0
0204 1c00 | | Execute_Immediate Run_Utility,0x0
0205 48ff |H | Short_Literal 0xff
0206 e009 | | Load 0x0,0x9
0207 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0208 1c08 | | Execute_Immediate Run_Utility,0x8
0209 00d8 | | Load_Top At_Offset_0
020a 1c00 | | Execute_Immediate Run_Utility,0x0
020b 48ff |H | Short_Literal 0xff
020c e009 | | Load 0x0,0x9
020d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
020e 1c08 | | Execute_Immediate Run_Utility,0x8
020f 00d8 | | Load_Top At_Offset_0
0210 1c00 | | Execute_Immediate Run_Utility,0x0
0211 48ff |H | Short_Literal 0xff
0212 e009 | | Load 0x0,0x9
0213 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0214 1c08 | | Execute_Immediate Run_Utility,0x8
0215 00d8 | | Load_Top At_Offset_0
0216 1c00 | | Execute_Immediate Run_Utility,0x0
0217 00e1 | | Load_Encached Boolean_Cache
0218 00e1 | | Load_Encached Boolean_Cache
0219 e006 | | Load 0x0,0x6
021a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
021b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
021c 02c7 | | Declare_Variable Any
021d 00d8 | | Load_Top At_Offset_0
021e 1c00 | | Execute_Immediate Run_Utility,0x0
021f 029f 0b53 | S| Declare_Subprogram INIT_0b50,For_Call
0221 BODY_01f0:
0221 00be | | Action Activate_Tasks
0222 00e1 | | Load_Encached Boolean_Cache
0223 00e1 | | Load_Encached Boolean_Cache
0224 e408 | | Load 0x2,0x8
0225 e407 | | Load 0x2,0x7
0226 e5ff | | Load 0x2,-0x1
0227 8236 | 6 | Call 0x1,0x36
0228 00d2 | | Pop_Control Pop_Count_2
0229 c409 | | Store 0x2,0x9
022a 005b | [ | Store_Top Discrete,At_Offset_3
022b e406 | | Load 0x2,0x6
022c e405 | | Load 0x2,0x5
022d e404 | | Load 0x2,0x4
022e e5fe | | Load 0x2,-0x2
022f 8234 | 4 | Call 0x1,0x34
0230 00d3 | | Pop_Control Pop_Count_3
0231 00da | | Load_Top At_Offset_2
0232 6819 |h | Jump_Zero 0x24c
0233 e406 | | Load 0x2,0x6
0234 e009 | | Load 0x0,0x9
0235 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0236 0c01 | | Execute_Immediate Greater_Equal,0x1
0237 6814 |h | Jump_Zero 0x24c
0238 e407 | | Load 0x2,0x7
0239 e009 | | Load 0x0,0x9
023a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
023b e406 | | Load 0x2,0x6
023c e009 | | Load 0x0,0x9
023d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
023e e007 | | Load 0x0,0x7
023f 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0240 680b |h | Jump_Zero 0x24c
0241 4801 |H | Short_Literal 0x1
0242 e406 | | Load 0x2,0x6
0243 e009 | | Load 0x0,0x9
0244 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0245 e007 | | Load 0x0,0x7
0246 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0247 e406 | | Load 0x2,0x6
0248 e009 | | Load 0x0,0x9
0249 1813 | | Execute Package,Field_Execute,Field_Number 0x13
024a e00a | | Load 0x0,0xa
024b 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
024c e402 | | Load 0x2,0x2
024d 00ea | | Load_Encached Null_String_Cache
024e e407 | | Load 0x2,0x7
024f e009 | | Load 0x0,0x9
0250 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0251 4801 |H | Short_Literal 0x1
0252 e008 | | Load 0x0,0x8
0253 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0254 c402 | | Store 0x2,0x2
0255 e22c | , | Load 0x1,0x2c
0256 e402 | | Load 0x2,0x2
0257 e008 | | Load 0x0,0x8
0258 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
0259 00cf | | Action Mark_Auxiliary
025a e5fe | | Load 0x2,-0x2
025b e20e | | Load 0x1,0xe
025c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
025d 4801 |H | Short_Literal 0x1
025e 0263 | c | Execute Discrete,Above_Bound
025f 7013 |p | Jump_Nonzero 0x273
0260 00d8 | | Load_Top At_Offset_0
0261 e5fe | | Load 0x2,-0x2
0262 e20e | | Load 0x1,0xe
0263 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0264 a403 | | Store_Unchecked 0x2,0x3
0265 e403 | | Load 0x2,0x3
0266 0f0a | | Execute_Immediate Equal,0xa
0267 6805 |h | Jump_Zero 0x26d
0268 4801 |H | Short_Literal 0x1
0269 e402 | | Load 0x2,0x2
026a e008 | | Load 0x0,0x8
026b 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
026c 7804 |x | Jump 0x271
026d e403 | | Load 0x2,0x3
026e e402 | | Load 0x2,0x2
026f e008 | | Load 0x0,0x8
0270 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
0271 00c8 | | Action Pop_Auxiliary_Range
0272 3fed |? | Loop_Increasing 0x260
0273 00ce | | Action Pop_Auxiliary
0274 e402 | | Load 0x2,0x2
0275 e008 | | Load 0x0,0x8
0276 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0277 c402 | | Store 0x2,0x2
0278 00da | | Load_Top At_Offset_2
0279 6801 |h | Jump_Zero 0x27b
027a 840c | | Call 0x2,0xc
027b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
027c TRAP_01f0:
027c 4921 |I! | Short_Literal 0x121
027d 010f | | Execute Exception,Equal
027e 6807 |h | Jump_Zero 0x286
027f 4801 |H | Short_Literal 0x1
0280 e5ff | | Load 0x2,-0x1
0281 e009 | | Load 0x0,0x9
0282 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0283 e00a | | Load 0x0,0xa
0284 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
0285 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0286 4922 |I" | Short_Literal 0x122
0287 010f | | Execute Exception,Equal
0288 6807 |h | Jump_Zero 0x290
0289 4801 |H | Short_Literal 0x1
028a e5ff | | Load 0x2,-0x1
028b e009 | | Load 0x0,0x9
028c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
028d e00a | | Load 0x0,0xa
028e 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
028f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0290 4923 |I# | Short_Literal 0x123
0291 010f | | Execute Exception,Equal
0292 6809 |h | Jump_Zero 0x29c
0293 4801 |H | Short_Literal 0x1
0294 e5ff | | Load 0x2,-0x1
0295 e009 | | Load 0x0,0x9
0296 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0297 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
0299 e00a | | Load 0x0,0xa
029a 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
029b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
029c 4924 |I$ | Short_Literal 0x124
029d 010f | | Execute Exception,Equal
029e 6809 |h | Jump_Zero 0x2a8
029f 4801 |H | Short_Literal 0x1
02a0 e5ff | | Load 0x2,-0x1
02a1 e009 | | Load 0x0,0x9
02a2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02a3 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
02a5 e00a | | Load 0x0,0xa
02a6 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
02a7 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02a8 4925 |I% | Short_Literal 0x125
02a9 010f | | Execute Exception,Equal
02aa 6807 |h | Jump_Zero 0x2b2
02ab 4801 |H | Short_Literal 0x1
02ac e5ff | | Load 0x2,-0x1
02ad e009 | | Load 0x0,0x9
02ae 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02af e00a | | Load 0x0,0xa
02b0 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
02b1 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02b2 4931 |I1 | Short_Literal 0x131
02b3 010f | | Execute Exception,Equal
02b4 680b |h | Jump_Zero 0x2c0
02b5 4801 |H | Short_Literal 0x1
02b6 0092 0e53 | S| Action Push_String_Extended,0xe53 ; "written"
02b8 e5ff | | Load 0x2,-0x1
02b9 e009 | | Load 0x0,0x9
02ba 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02bb 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
02bd e00a | | Load 0x0,0xa
02be 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
02bf 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02c0 4932 |I2 | Short_Literal 0x132
02c1 010f | | Execute Exception,Equal
02c2 680b |h | Jump_Zero 0x2ce
02c3 4801 |H | Short_Literal 0x1
02c4 0092 0e53 | S| Action Push_String_Extended,0xe53 ; "written"
02c6 e5ff | | Load 0x2,-0x1
02c7 e009 | | Load 0x0,0x9
02c8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02c9 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
02cb e00a | | Load 0x0,0xa
02cc 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
02cd 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02ce 4933 |I3 | Short_Literal 0x133
02cf 010f | | Execute Exception,Equal
02d0 6809 |h | Jump_Zero 0x2da
02d1 4801 |H | Short_Literal 0x1
02d2 e5ff | | Load 0x2,-0x1
02d3 e009 | | Load 0x0,0x9
02d4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02d5 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
02d7 e00a | | Load 0x0,0xa
02d8 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
02d9 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02da 4934 |I4 | Short_Literal 0x134
02db 010f | | Execute Exception,Equal
02dc 680b |h | Jump_Zero 0x2e8
02dd 4801 |H | Short_Literal 0x1
02de 0092 0e53 | S| Action Push_String_Extended,0xe53 ; "written"
02e0 e5ff | | Load 0x2,-0x1
02e1 e009 | | Load 0x0,0x9
02e2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02e3 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
02e5 e00a | | Load 0x0,0xa
02e6 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
02e7 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02e8 4935 |I5 | Short_Literal 0x135
02e9 010f | | Execute Exception,Equal
02ea 680b |h | Jump_Zero 0x2f6
02eb 4801 |H | Short_Literal 0x1
02ec 0092 0e53 | S| Action Push_String_Extended,0xe53 ; "written"
02ee e5ff | | Load 0x2,-0x1
02ef e009 | | Load 0x0,0x9
02f0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02f1 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
02f3 e00a | | Load 0x0,0xa
02f4 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
02f5 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02f6 4936 |I6 | Short_Literal 0x136
02f7 010f | | Execute Exception,Equal
02f8 680b |h | Jump_Zero 0x304
02f9 4801 |H | Short_Literal 0x1
02fa 0092 0e53 | S| Action Push_String_Extended,0xe53 ; "written"
02fc e5ff | | Load 0x2,-0x1
02fd e009 | | Load 0x0,0x9
02fe 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02ff 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
0301 e00a | | Load 0x0,0xa
0302 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0303 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0304 00d8 | | Load_Top At_Offset_0
0305 0107 | | Execute Exception,Get_Name
0306 4940 |I@ | Short_Literal 0x140
0307 494f |IO | Short_Literal 0x14f
0308 0262 | b | Execute Discrete,In_Range
0309 680f |h | Jump_Zero 0x319
030a e402 | | Load 0x2,0x2
030b e008 | | Load 0x0,0x8
030c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
030d c402 | | Store 0x2,0x2
030e 4801 |H | Short_Literal 0x1
030f 0092 0e53 | S| Action Push_String_Extended,0xe53 ; "written"
0311 e5ff | | Load 0x2,-0x1
0312 e009 | | Load 0x0,0x9
0313 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0314 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
0316 e00a | | Load 0x0,0xa
0317 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
0318 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0319 00d8 | | Load_Top At_Offset_0
031a 0107 | | Execute Exception,Get_Name
031b 4960 |I` | Short_Literal 0x160
031c 496f |Io | Short_Literal 0x16f
031d 0262 | b | Execute Discrete,In_Range
031e 6807 |h | Jump_Zero 0x326
031f 4801 |H | Short_Literal 0x1
0320 e5ff | | Load 0x2,-0x1
0321 e009 | | Load 0x0,0x9
0322 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0323 e00a | | Load 0x0,0xa
0324 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0325 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0326 0100 | | Execute Exception,Raise
0327 0000 | | .XXX[0x1]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 0334 | 4 | .CONST 0x0334 ; Address of begin
0329 037e | ~ | .CONST 0x037e ; Address of exception handler
032a 0004 | | .CONST 0x0004 ; Number of locals
032b INIT_0328:
032b e008 | | Load 0x0,0x8
032c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
032d 02c7 | | Declare_Variable Any
032e 00d8 | | Load_Top At_Offset_0
032f 1c00 | | Execute_Immediate Run_Utility,0x0
0330 00e8 | | Load_Encached Character_Cache
0331 e00b | | Load 0x0,0xb
0332 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0333 0337 | 7 | Declare_Variable Array
0334 BODY_0328:
0334 00be | | Action Activate_Tasks
0335 8235 | 5 | Call 0x1,0x35
0336 00da | | Load_Top At_Offset_2
0337 00ea | | Load_Encached Null_String_Cache
0338 e5ff | | Load 0x2,-0x1
0339 e009 | | Load 0x0,0x9
033a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
033b 4801 |H | Short_Literal 0x1
033c e008 | | Load 0x0,0x8
033d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
033e c402 | | Store 0x2,0x2
033f 00cf | | Action Mark_Auxiliary
0340 e5fd | | Load 0x2,-0x3
0341 e20e | | Load 0x1,0xe
0342 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0343 4801 |H | Short_Literal 0x1
0344 0263 | c | Execute Discrete,Above_Bound
0345 7013 |p | Jump_Nonzero 0x359
0346 00d8 | | Load_Top At_Offset_0
0347 e5fd | | Load 0x2,-0x3
0348 e20e | | Load 0x1,0xe
0349 1814 | | Execute Package,Field_Execute,Field_Number 0x14
034a a403 | | Store_Unchecked 0x2,0x3
034b e403 | | Load 0x2,0x3
034c 0f0a | | Execute_Immediate Equal,0xa
034d 6805 |h | Jump_Zero 0x353
034e 4801 |H | Short_Literal 0x1
034f e402 | | Load 0x2,0x2
0350 e008 | | Load 0x0,0x8
0351 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0352 7804 |x | Jump 0x357
0353 e403 | | Load 0x2,0x3
0354 e402 | | Load 0x2,0x2
0355 e008 | | Load 0x0,0x8
0356 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
0357 00c8 | | Action Pop_Auxiliary_Range
0358 3fed |? | Loop_Increasing 0x346
0359 00ce | | Action Pop_Auxiliary
035a 00da | | Load_Top At_Offset_2
035b e008 | | Load 0x0,0x8
035c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
035d c402 | | Store 0x2,0x2
035e e5fe | | Load 0x2,-0x2
035f 701d |p | Jump_Nonzero 0x37d
0360 e00b | | Load 0x0,0xb
0361 180e | | Execute Package,Field_Execute,Field_Number 0xe
0362 e00b | | Load 0x0,0xb
0363 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0364 00d9 | | Load_Top At_Offset_1
0365 01d4 | | Execute Vector,Structure_Write
0366 4801 |H | Short_Literal 0x1
0367 00d9 | | Load_Top At_Offset_1
0368 01d7 | | Execute Vector,Field_Read
0369 680a |h | Jump_Zero 0x374
036a 0092 0e54 | T| Action Push_String_Extended,0xe54 ; "<PROFILE>"
036c 0092 0e4e | N| Action Push_String_Extended,0xe4e ; "POSTSCRIPT"
036e e5ff | | Load 0x2,-0x1
036f e009 | | Load 0x0,0x9
0370 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0371 e00c | | Load 0x0,0xc
0372 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0373 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0374 0092 0e55 | U| Action Push_String_Extended,0xe55 ; "<QUIET>"
0376 0092 0e4e | N| Action Push_String_Extended,0xe4e ; "POSTSCRIPT"
0378 e5ff | | Load 0x2,-0x1
0379 e009 | | Load 0x0,0x9
037a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
037b e00c | | Load 0x0,0xc
037c 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
037d 4504 |E | Exit_Suprogram New_Top_Offset 0x4
037e TRAP_0328:
037e 4921 |I! | Short_Literal 0x121
037f 010f | | Execute Exception,Equal
0380 6807 |h | Jump_Zero 0x388
0381 4801 |H | Short_Literal 0x1
0382 e5ff | | Load 0x2,-0x1
0383 e009 | | Load 0x0,0x9
0384 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0385 e00a | | Load 0x0,0xa
0386 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
0387 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0388 4922 |I" | Short_Literal 0x122
0389 010f | | Execute Exception,Equal
038a 6807 |h | Jump_Zero 0x392
038b 4801 |H | Short_Literal 0x1
038c e5ff | | Load 0x2,-0x1
038d e009 | | Load 0x0,0x9
038e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
038f e00a | | Load 0x0,0xa
0390 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0391 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0392 4923 |I# | Short_Literal 0x123
0393 010f | | Execute Exception,Equal
0394 6809 |h | Jump_Zero 0x39e
0395 4801 |H | Short_Literal 0x1
0396 e5ff | | Load 0x2,-0x1
0397 e009 | | Load 0x0,0x9
0398 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0399 0092 0e56 | V| Action Push_String_Extended,0xe56 ; "print file"
039b e00a | | Load 0x0,0xa
039c 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
039d 4504 |E | Exit_Suprogram New_Top_Offset 0x4
039e 4924 |I$ | Short_Literal 0x124
039f 010f | | Execute Exception,Equal
03a0 6809 |h | Jump_Zero 0x3aa
03a1 4801 |H | Short_Literal 0x1
03a2 e5ff | | Load 0x2,-0x1
03a3 e009 | | Load 0x0,0x9
03a4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03a5 0092 0e56 | V| Action Push_String_Extended,0xe56 ; "print file"
03a7 e00a | | Load 0x0,0xa
03a8 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
03a9 4504 |E | Exit_Suprogram New_Top_Offset 0x4
03aa 4925 |I% | Short_Literal 0x125
03ab 010f | | Execute Exception,Equal
03ac 6807 |h | Jump_Zero 0x3b4
03ad 4801 |H | Short_Literal 0x1
03ae e5ff | | Load 0x2,-0x1
03af e009 | | Load 0x0,0x9
03b0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03b1 e00a | | Load 0x0,0xa
03b2 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
03b3 4504 |E | Exit_Suprogram New_Top_Offset 0x4
03b4 4931 |I1 | Short_Literal 0x131
03b5 010f | | Execute Exception,Equal
03b6 680b |h | Jump_Zero 0x3c2
03b7 4801 |H | Short_Literal 0x1
03b8 0092 0e53 | S| Action Push_String_Extended,0xe53 ; "written"
03ba e5ff | | Load 0x2,-0x1
03bb e009 | | Load 0x0,0x9
03bc 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03bd 0092 0e56 | V| Action Push_String_Extended,0xe56 ; "print file"
03bf e00a | | Load 0x0,0xa
03c0 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
03c1 4504 |E | Exit_Suprogram New_Top_Offset 0x4
03c2 4932 |I2 | Short_Literal 0x132
03c3 010f | | Execute Exception,Equal
03c4 680b |h | Jump_Zero 0x3d0
03c5 4801 |H | Short_Literal 0x1
03c6 0092 0e53 | S| Action Push_String_Extended,0xe53 ; "written"
03c8 e5ff | | Load 0x2,-0x1
03c9 e009 | | Load 0x0,0x9
03ca 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03cb 0092 0e56 | V| Action Push_String_Extended,0xe56 ; "print file"
03cd e00a | | Load 0x0,0xa
03ce 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
03cf 4504 |E | Exit_Suprogram New_Top_Offset 0x4
03d0 4933 |I3 | Short_Literal 0x133
03d1 010f | | Execute Exception,Equal
03d2 6809 |h | Jump_Zero 0x3dc
03d3 4801 |H | Short_Literal 0x1
03d4 e5ff | | Load 0x2,-0x1
03d5 e009 | | Load 0x0,0x9
03d6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03d7 0092 0e56 | V| Action Push_String_Extended,0xe56 ; "print file"
03d9 e00a | | Load 0x0,0xa
03da 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
03db 4504 |E | Exit_Suprogram New_Top_Offset 0x4
03dc 4934 |I4 | Short_Literal 0x134
03dd 010f | | Execute Exception,Equal
03de 680b |h | Jump_Zero 0x3ea
03df 4801 |H | Short_Literal 0x1
03e0 0092 0e53 | S| Action Push_String_Extended,0xe53 ; "written"
03e2 e5ff | | Load 0x2,-0x1
03e3 e009 | | Load 0x0,0x9
03e4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03e5 0092 0e56 | V| Action Push_String_Extended,0xe56 ; "print file"
03e7 e00a | | Load 0x0,0xa
03e8 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
03e9 4504 |E | Exit_Suprogram New_Top_Offset 0x4
03ea 4935 |I5 | Short_Literal 0x135
03eb 010f | | Execute Exception,Equal
03ec 680b |h | Jump_Zero 0x3f8
03ed 4801 |H | Short_Literal 0x1
03ee 0092 0e53 | S| Action Push_String_Extended,0xe53 ; "written"
03f0 e5ff | | Load 0x2,-0x1
03f1 e009 | | Load 0x0,0x9
03f2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03f3 0092 0e56 | V| Action Push_String_Extended,0xe56 ; "print file"
03f5 e00a | | Load 0x0,0xa
03f6 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
03f7 4504 |E | Exit_Suprogram New_Top_Offset 0x4
03f8 4936 |I6 | Short_Literal 0x136
03f9 010f | | Execute Exception,Equal
03fa 680b |h | Jump_Zero 0x406
03fb 4801 |H | Short_Literal 0x1
03fc 0092 0e53 | S| Action Push_String_Extended,0xe53 ; "written"
03fe e5ff | | Load 0x2,-0x1
03ff e009 | | Load 0x0,0x9
0400 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0401 0092 0e56 | V| Action Push_String_Extended,0xe56 ; "print file"
0403 e00a | | Load 0x0,0xa
0404 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0405 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0406 00d8 | | Load_Top At_Offset_0
0407 0107 | | Execute Exception,Get_Name
0408 4940 |I@ | Short_Literal 0x140
0409 494f |IO | Short_Literal 0x14f
040a 0262 | b | Execute Discrete,In_Range
040b 680f |h | Jump_Zero 0x41b
040c 00db | | Load_Top At_Offset_3
040d e008 | | Load 0x0,0x8
040e 1816 | | Execute Package,Field_Execute,Field_Number 0x16
040f c402 | | Store 0x2,0x2
0410 4801 |H | Short_Literal 0x1
0411 0092 0e53 | S| Action Push_String_Extended,0xe53 ; "written"
0413 e5ff | | Load 0x2,-0x1
0414 e009 | | Load 0x0,0x9
0415 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0416 0092 0e56 | V| Action Push_String_Extended,0xe56 ; "print file"
0418 e00a | | Load 0x0,0xa
0419 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
041a 4504 |E | Exit_Suprogram New_Top_Offset 0x4
041b 00d8 | | Load_Top At_Offset_0
041c 0107 | | Execute Exception,Get_Name
041d 4960 |I` | Short_Literal 0x160
041e 496f |Io | Short_Literal 0x16f
041f 0262 | b | Execute Discrete,In_Range
0420 680b |h | Jump_Zero 0x42c
0421 00db | | Load_Top At_Offset_3
0422 e008 | | Load 0x0,0x8
0423 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0424 c402 | | Store 0x2,0x2
0425 4801 |H | Short_Literal 0x1
0426 e5ff | | Load 0x2,-0x1
0427 e009 | | Load 0x0,0x9
0428 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0429 e00a | | Load 0x0,0xa
042a 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
042b 4504 |E | Exit_Suprogram New_Top_Offset 0x4
042c 0100 | | Execute Exception,Raise
042d 0000 0000 | | .XXX[0x3]
042f 0000 | |
0430 ; --------------------------------------------------------------------------------------
0430 ; SUBPROGRAM
0430 ; --------------------------------------------------------------------------------------
0430 0451 | Q | .CONST 0x0451 ; Address of begin
0431 0534 | 4 | .CONST 0x0534 ; Address of exception handler
0432 0006 | | .CONST 0x0006 ; Number of locals
0433 INIT_0430:
0433 e006 | | Load 0x0,0x6
0434 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0435 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0436 02c7 | | Declare_Variable Any
0437 00d8 | | Load_Top At_Offset_0
0438 1c00 | | Execute_Immediate Run_Utility,0x0
0439 e006 | | Load 0x0,0x6
043a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
043b 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
043c 02c7 | | Declare_Variable Any
043d 00d8 | | Load_Top At_Offset_0
043e 1c00 | | Execute_Immediate Run_Utility,0x0
043f 48ff |H | Short_Literal 0xff
0440 e009 | | Load 0x0,0x9
0441 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0442 1c08 | | Execute_Immediate Run_Utility,0x8
0443 00d8 | | Load_Top At_Offset_0
0444 1c00 | | Execute_Immediate Run_Utility,0x0
0445 48ff |H | Short_Literal 0xff
0446 e009 | | Load 0x0,0x9
0447 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0448 1c08 | | Execute_Immediate Run_Utility,0x8
0449 00d8 | | Load_Top At_Offset_0
044a 1c00 | | Execute_Immediate Run_Utility,0x0
044b 48ff |H | Short_Literal 0xff
044c e009 | | Load 0x0,0x9
044d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
044e 1c08 | | Execute_Immediate Run_Utility,0x8
044f 00d8 | | Load_Top At_Offset_0
0450 1c00 | | Execute_Immediate Run_Utility,0x0
0451 BODY_0430:
0451 8235 | 5 | Call 0x1,0x35
0452 00d8 | | Load_Top At_Offset_0
0453 00da | | Load_Top At_Offset_2
0454 e404 | | Load 0x2,0x4
0455 e5ff | | Load 0x2,-0x1
0456 e009 | | Load 0x0,0x9
0457 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0458 8232 | 2 | Call 0x1,0x32
0459 00d3 | | Pop_Control Pop_Count_3
045a 00d8 | | Load_Top At_Offset_0
045b e009 | | Load 0x0,0x9
045c 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
045d 0c01 | | Execute_Immediate Greater_Equal,0x1
045e 6805 |h | Jump_Zero 0x464
045f 00d8 | | Load_Top At_Offset_0
0460 e009 | | Load 0x0,0x9
0461 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0462 e007 | | Load 0x0,0x7
0463 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0464 4801 |H | Short_Literal 0x1
0465 e006 | | Load 0x0,0x6
0466 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0467 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0468 e5ff | | Load 0x2,-0x1
0469 e009 | | Load 0x0,0x9
046a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
046b e006 | | Load 0x0,0x6
046c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
046d 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
046e c402 | | Store 0x2,0x2
046f e402 | | Load 0x2,0x2
0470 e006 | | Load 0x0,0x6
0471 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0472 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0473 c403 | | Store 0x2,0x3
0474 00db | | Load_Top At_Offset_3
0475 e006 | | Load 0x0,0x6
0476 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0477 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
0478 4618 |F | Jump_Case 0x19
0479 7866 |xf | Jump 0x4e0 ; case 0x0
047a 7865 |xe | Jump 0x4e0 ; case 0x1
047b 781f |x | Jump 0x49b ; case 0x2
047c 7815 |x | Jump 0x492 ; case 0x3
047d 7814 |x | Jump 0x492 ; case 0x4
047e 7813 |x | Jump 0x492 ; case 0x5
047f 7812 |x | Jump 0x492 ; case 0x6
0480 7811 |x | Jump 0x492 ; case 0x7
0481 7810 |x | Jump 0x492 ; case 0x8
0482 7823 |x# | Jump 0x4a6 ; case 0x9
0483 780e |x | Jump 0x492 ; case 0xa
0484 780d |x | Jump 0x492 ; case 0xb
0485 7829 |x) | Jump 0x4af ; case 0xc
0486 782f |x/ | Jump 0x4b6 ; case 0xd
0487 7837 |x7 | Jump 0x4bf ; case 0xe
0488 783d |x= | Jump 0x4c6 ; case 0xf
0489 7843 |xC | Jump 0x4cd ; case 0x10
048a 784d |xM | Jump 0x4d8 ; case 0x11
048b 7806 |x | Jump 0x492 ; case 0x12
048c 7805 |x | Jump 0x492 ; case 0x13
048d 7804 |x | Jump 0x492 ; case 0x14
048e 7803 |x | Jump 0x492 ; case 0x15
048f 7802 |x | Jump 0x492 ; case 0x16
0490 7801 |x | Jump 0x492 ; case 0x17
0491 7800 |x | Jump 0x492 ; case 0x18
0492 4801 |H | Short_Literal 0x1
0493 e5ff | | Load 0x2,-0x1
0494 e009 | | Load 0x0,0x9
0495 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0496 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
0498 e00a | | Load 0x0,0xa
0499 1844 | D | Execute Package,Field_Execute,Field_Number 0x44
049a 7845 |xE | Jump 0x4e0
049b 4801 |H | Short_Literal 0x1
049c 0092 0e57 | W| Action Push_String_Extended,0xe57 ; "deleted"
049e e5ff | | Load 0x2,-0x1
049f e009 | | Load 0x0,0x9
04a0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04a1 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
04a3 e00a | | Load 0x0,0xa
04a4 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
04a5 783a |x: | Jump 0x4e0
04a6 4801 |H | Short_Literal 0x1
04a7 e5ff | | Load 0x2,-0x1
04a8 e009 | | Load 0x0,0x9
04a9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04aa 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
04ac e00a | | Load 0x0,0xa
04ad 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
04ae 7831 |x1 | Jump 0x4e0
04af 4801 |H | Short_Literal 0x1
04b0 e5ff | | Load 0x2,-0x1
04b1 e009 | | Load 0x0,0x9
04b2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04b3 e00a | | Load 0x0,0xa
04b4 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
04b5 782a |x* | Jump 0x4e0
04b6 4801 |H | Short_Literal 0x1
04b7 e5ff | | Load 0x2,-0x1
04b8 e009 | | Load 0x0,0x9
04b9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04ba 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
04bc e00a | | Load 0x0,0xa
04bd 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
04be 7821 |x! | Jump 0x4e0
04bf 4801 |H | Short_Literal 0x1
04c0 e5ff | | Load 0x2,-0x1
04c1 e009 | | Load 0x0,0x9
04c2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04c3 e00a | | Load 0x0,0xa
04c4 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
04c5 781a |x | Jump 0x4e0
04c6 4801 |H | Short_Literal 0x1
04c7 e5ff | | Load 0x2,-0x1
04c8 e009 | | Load 0x0,0x9
04c9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04ca e00a | | Load 0x0,0xa
04cb 1843 | C | Execute Package,Field_Execute,Field_Number 0x43
04cc 7813 |x | Jump 0x4e0
04cd 4801 |H | Short_Literal 0x1
04ce 0092 0e57 | W| Action Push_String_Extended,0xe57 ; "deleted"
04d0 e5ff | | Load 0x2,-0x1
04d1 e009 | | Load 0x0,0x9
04d2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04d3 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
04d5 e00a | | Load 0x0,0xa
04d6 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
04d7 7808 |x | Jump 0x4e0
04d8 4801 |H | Short_Literal 0x1
04d9 e5ff | | Load 0x2,-0x1
04da e009 | | Load 0x0,0x9
04db 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04dc 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
04de e00a | | Load 0x0,0xa
04df 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
04e0 00db | | Load_Top At_Offset_3
04e1 0120 | | Execute Any,Is_Value
04e2 6804 |h | Jump_Zero 0x4e7
04e3 e006 | | Load 0x0,0x6
04e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04e5 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
04e6 7801 |x | Jump 0x4e8
04e7 00db | | Load_Top At_Offset_3
04e8 4fff |O | Short_Literal -0x1
04e9 e402 | | Load 0x2,0x2
04ea e006 | | Load 0x0,0x6
04eb 1b10 | | Execute Package,Field_Read,Field_Number 0x10
04ec 1819 | | Execute Package,Field_Execute,Field_Number 0x19
04ed c403 | | Store 0x2,0x3
04ee 00db | | Load_Top At_Offset_3
04ef e006 | | Load 0x0,0x6
04f0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04f1 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
04f2 4618 |F | Jump_Case 0x19
04f3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x0
04f4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x1
04f5 781f |x | Jump 0x515 ; case 0x2
04f6 7815 |x | Jump 0x50c ; case 0x3
04f7 7814 |x | Jump 0x50c ; case 0x4
04f8 7813 |x | Jump 0x50c ; case 0x5
04f9 7812 |x | Jump 0x50c ; case 0x6
04fa 7811 |x | Jump 0x50c ; case 0x7
04fb 7810 |x | Jump 0x50c ; case 0x8
04fc 780f |x | Jump 0x50c ; case 0x9
04fd 780e |x | Jump 0x50c ; case 0xa
04fe 780d |x | Jump 0x50c ; case 0xb
04ff 780c |x | Jump 0x50c ; case 0xc
0500 780b |x | Jump 0x50c ; case 0xd
0501 780a |x | Jump 0x50c ; case 0xe
0502 7809 |x | Jump 0x50c ; case 0xf
0503 781c |x | Jump 0x520 ; case 0x10
0504 7826 |x& | Jump 0x52b ; case 0x11
0505 7806 |x | Jump 0x50c ; case 0x12
0506 7805 |x | Jump 0x50c ; case 0x13
0507 7804 |x | Jump 0x50c ; case 0x14
0508 7803 |x | Jump 0x50c ; case 0x15
0509 7802 |x | Jump 0x50c ; case 0x16
050a 7801 |x | Jump 0x50c ; case 0x17
050b 7800 |x | Jump 0x50c ; case 0x18
050c 4801 |H | Short_Literal 0x1
050d e5ff | | Load 0x2,-0x1
050e e009 | | Load 0x0,0x9
050f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0510 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
0512 e00a | | Load 0x0,0xa
0513 1844 | D | Execute Package,Field_Execute,Field_Number 0x44
0514 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0515 4801 |H | Short_Literal 0x1
0516 0092 0e58 | X| Action Push_String_Extended,0xe58 ; "deleted);"
0518 e5ff | | Load 0x2,-0x1
0519 e009 | | Load 0x0,0x9
051a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
051b 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
051d e00a | | Load 0x0,0xa
051e 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
051f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0520 4801 |H | Short_Literal 0x1
0521 0092 0e58 | X| Action Push_String_Extended,0xe58 ; "deleted);"
0523 e5ff | | Load 0x2,-0x1
0524 e009 | | Load 0x0,0x9
0525 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0526 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
0528 e00a | | Load 0x0,0xa
0529 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
052a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
052b 4801 |H | Short_Literal 0x1
052c e5ff | | Load 0x2,-0x1
052d e009 | | Load 0x0,0x9
052e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
052f 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
0531 e00a | | Load 0x0,0xa
0532 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
0533 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0534 TRAP_0430:
0534 4921 |I! | Short_Literal 0x121
0535 010f | | Execute Exception,Equal
0536 6807 |h | Jump_Zero 0x53e
0537 4801 |H | Short_Literal 0x1
0538 e5ff | | Load 0x2,-0x1
0539 e009 | | Load 0x0,0x9
053a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
053b e00a | | Load 0x0,0xa
053c 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
053d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
053e 4922 |I" | Short_Literal 0x122
053f 010f | | Execute Exception,Equal
0540 6807 |h | Jump_Zero 0x548
0541 4801 |H | Short_Literal 0x1
0542 e5ff | | Load 0x2,-0x1
0543 e009 | | Load 0x0,0x9
0544 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0545 e00a | | Load 0x0,0xa
0546 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0547 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0548 4923 |I# | Short_Literal 0x123
0549 010f | | Execute Exception,Equal
054a 6809 |h | Jump_Zero 0x554
054b 4801 |H | Short_Literal 0x1
054c e5ff | | Load 0x2,-0x1
054d e009 | | Load 0x0,0x9
054e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
054f 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
0551 e00a | | Load 0x0,0xa
0552 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0553 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0554 4924 |I$ | Short_Literal 0x124
0555 010f | | Execute Exception,Equal
0556 6809 |h | Jump_Zero 0x560
0557 4801 |H | Short_Literal 0x1
0558 e5ff | | Load 0x2,-0x1
0559 e009 | | Load 0x0,0x9
055a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
055b 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
055d e00a | | Load 0x0,0xa
055e 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
055f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0560 4925 |I% | Short_Literal 0x125
0561 010f | | Execute Exception,Equal
0562 6807 |h | Jump_Zero 0x56a
0563 4801 |H | Short_Literal 0x1
0564 e5ff | | Load 0x2,-0x1
0565 e009 | | Load 0x0,0x9
0566 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0567 e00a | | Load 0x0,0xa
0568 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0569 4502 |E | Exit_Suprogram New_Top_Offset 0x2
056a 4931 |I1 | Short_Literal 0x131
056b 010f | | Execute Exception,Equal
056c 680b |h | Jump_Zero 0x578
056d 4801 |H | Short_Literal 0x1
056e 0092 0e52 | R| Action Push_String_Extended,0xe52 ; "read"
0570 e5ff | | Load 0x2,-0x1
0571 e009 | | Load 0x0,0x9
0572 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0573 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
0575 e00a | | Load 0x0,0xa
0576 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
0577 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0578 4932 |I2 | Short_Literal 0x132
0579 010f | | Execute Exception,Equal
057a 680b |h | Jump_Zero 0x586
057b 4801 |H | Short_Literal 0x1
057c 0092 0e52 | R| Action Push_String_Extended,0xe52 ; "read"
057e e5ff | | Load 0x2,-0x1
057f e009 | | Load 0x0,0x9
0580 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0581 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
0583 e00a | | Load 0x0,0xa
0584 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0585 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0586 4933 |I3 | Short_Literal 0x133
0587 010f | | Execute Exception,Equal
0588 6809 |h | Jump_Zero 0x592
0589 4801 |H | Short_Literal 0x1
058a e5ff | | Load 0x2,-0x1
058b e009 | | Load 0x0,0x9
058c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
058d 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
058f e00a | | Load 0x0,0xa
0590 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
0591 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0592 e20d | | Load 0x1,0xd
0593 010f | | Execute Exception,Equal
0594 6809 |h | Jump_Zero 0x59e
0595 4801 |H | Short_Literal 0x1
0596 e5ff | | Load 0x2,-0x1
0597 e009 | | Load 0x0,0x9
0598 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0599 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
059b e00a | | Load 0x0,0xa
059c 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
059d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
059e 4934 |I4 | Short_Literal 0x134
059f 010f | | Execute Exception,Equal
05a0 680b |h | Jump_Zero 0x5ac
05a1 4801 |H | Short_Literal 0x1
05a2 0092 0e52 | R| Action Push_String_Extended,0xe52 ; "read"
05a4 e5ff | | Load 0x2,-0x1
05a5 e009 | | Load 0x0,0x9
05a6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05a7 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
05a9 e00a | | Load 0x0,0xa
05aa 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
05ab 4502 |E | Exit_Suprogram New_Top_Offset 0x2
05ac 4935 |I5 | Short_Literal 0x135
05ad 010f | | Execute Exception,Equal
05ae 680b |h | Jump_Zero 0x5ba
05af 4801 |H | Short_Literal 0x1
05b0 0092 0e52 | R| Action Push_String_Extended,0xe52 ; "read"
05b2 e5ff | | Load 0x2,-0x1
05b3 e009 | | Load 0x0,0x9
05b4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05b5 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
05b7 e00a | | Load 0x0,0xa
05b8 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
05b9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
05ba 4936 |I6 | Short_Literal 0x136
05bb 010f | | Execute Exception,Equal
05bc 680b |h | Jump_Zero 0x5c8
05bd 4801 |H | Short_Literal 0x1
05be 0092 0e52 | R| Action Push_String_Extended,0xe52 ; "read"
05c0 e5ff | | Load 0x2,-0x1
05c1 e009 | | Load 0x0,0x9
05c2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05c3 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
05c5 e00a | | Load 0x0,0xa
05c6 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
05c7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
05c8 00d8 | | Load_Top At_Offset_0
05c9 0107 | | Execute Exception,Get_Name
05ca 4940 |I@ | Short_Literal 0x140
05cb 494f |IO | Short_Literal 0x14f
05cc 0262 | b | Execute Discrete,In_Range
05cd 680b |h | Jump_Zero 0x5d9
05ce 4801 |H | Short_Literal 0x1
05cf 0092 0e59 | Y| Action Push_String_Extended,0xe59 ; "reading"
05d1 e5ff | | Load 0x2,-0x1
05d2 e009 | | Load 0x0,0x9
05d3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05d4 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
05d6 e00a | | Load 0x0,0xa
05d7 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
05d8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
05d9 00d8 | | Load_Top At_Offset_0
05da 0107 | | Execute Exception,Get_Name
05db 4960 |I` | Short_Literal 0x160
05dc 496f |Io | Short_Literal 0x16f
05dd 0262 | b | Execute Discrete,In_Range
05de 6807 |h | Jump_Zero 0x5e6
05df 4801 |H | Short_Literal 0x1
05e0 e5ff | | Load 0x2,-0x1
05e1 e009 | | Load 0x0,0x9
05e2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05e3 e00a | | Load 0x0,0xa
05e4 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
05e5 4502 |E | Exit_Suprogram New_Top_Offset 0x2
05e6 0100 | | Execute Exception,Raise
05e7 0000 | | .XXX[0x1]
05e8 ; --------------------------------------------------------------------------------------
05e8 ; SUBPROGRAM
05e8 ; --------------------------------------------------------------------------------------
05e8 0608 | | .CONST 0x0608 ; Address of begin
05e9 0004 | | .CONST 0x0004 ; Address of exception handler
05ea 0006 | | .CONST 0x0006 ; Number of locals
05eb INIT_05e8:
05eb e006 | | Load 0x0,0x6
05ec 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05ed 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05ee 02c7 | | Declare_Variable Any
05ef 00d8 | | Load_Top At_Offset_0
05f0 1c00 | | Execute_Immediate Run_Utility,0x0
05f1 e006 | | Load 0x0,0x6
05f2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05f3 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
05f4 02c7 | | Declare_Variable Any
05f5 00d8 | | Load_Top At_Offset_0
05f6 1c00 | | Execute_Immediate Run_Utility,0x0
05f7 e006 | | Load 0x0,0x6
05f8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05f9 1b44 | D | Execute Package,Field_Read,Field_Number 0x44
05fa e5ff | | Load 0x2,-0x1
05fb e009 | | Load 0x0,0x9
05fc 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05fd 0092 0e5a | Z| Action Push_String_Extended,0xe5a ; ".@"
05ff 01cc | | Execute Vector,Catenate
0600 0007 | | Action Break_Optional
0601 e5fe | | Load 0x2,-0x2
0602 e009 | | Load 0x0,0x9
0603 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0604 0092 0e5a | Z| Action Push_String_Extended,0xe5a ; ".@"
0606 01cc | | Execute Vector,Catenate
0607 0007 | | Action Break_Optional
0608 BODY_05e8:
0608 8235 | 5 | Call 0x1,0x35
0609 e5ff | | Load 0x2,-0x1
060a e009 | | Load 0x0,0x9
060b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
060c 8233 | 3 | Call 0x1,0x33
060d e5fe | | Load 0x2,-0x2
060e e009 | | Load 0x0,0x9
060f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0610 8233 | 3 | Call 0x1,0x33
0611 4801 |H | Short_Literal 0x1
0612 e006 | | Load 0x0,0x6
0613 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0614 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0615 00da | | Load_Top At_Offset_2
0616 e006 | | Load 0x0,0x6
0617 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0618 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0619 c402 | | Store 0x2,0x2
061a e402 | | Load 0x2,0x2
061b e006 | | Load 0x0,0x6
061c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
061d 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
061e e006 | | Load 0x0,0x6
061f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0620 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
0621 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0622 00da | | Load_Top At_Offset_2
0623 0f00 | | Execute_Immediate Equal,0x0
0624 00db | | Load_Top At_Offset_3
0625 0f0e | | Execute_Immediate Equal,0xe
0626 0278 | x | Execute Discrete,Or
0627 6807 |h | Jump_Zero 0x62f
0628 0092 0e54 | T| Action Push_String_Extended,0xe54 ; "<PROFILE>"
062a 0092 0e5b | [| Action Push_String_Extended,0xe5b ; "<DIRECTORIES>"
062c 00da | | Load_Top At_Offset_2
062d e00c | | Load 0x0,0xc
062e 1819 | | Execute Package,Field_Execute,Field_Number 0x19
062f 4801 |H | Short_Literal 0x1
0630 e006 | | Load 0x0,0x6
0631 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0632 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0633 00db | | Load_Top At_Offset_3
0634 e006 | | Load 0x0,0x6
0635 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0636 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0637 c402 | | Store 0x2,0x2
0638 e402 | | Load 0x2,0x2
0639 e006 | | Load 0x0,0x6
063a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
063b 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
063c e006 | | Load 0x0,0x6
063d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
063e 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
063f 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0640 00da | | Load_Top At_Offset_2
0641 0f00 | | Execute_Immediate Equal,0x0
0642 00db | | Load_Top At_Offset_3
0643 0f0e | | Execute_Immediate Equal,0xe
0644 0278 | x | Execute Discrete,Or
0645 6809 |h | Jump_Zero 0x64f
0646 00ea | | Load_Encached Null_String_Cache
0647 4801 |H | Short_Literal 0x1
0648 0092 0e54 | T| Action Push_String_Extended,0xe54 ; "<PROFILE>"
064a 4801 |H | Short_Literal 0x1
064b e406 | | Load 0x2,0x6
064c e405 | | Load 0x2,0x5
064d e00c | | Load 0x0,0xc
064e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
064f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0650 ; --------------------------------------------------------------------------------------
0650 ; SUBPROGRAM
0650 ; --------------------------------------------------------------------------------------
0650 0669 | i | .CONST 0x0669 ; Address of begin
0651 0004 | | .CONST 0x0004 ; Address of exception handler
0652 0006 | | .CONST 0x0006 ; Number of locals
0653 INIT_0650:
0653 e006 | | Load 0x0,0x6
0654 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0655 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0656 02c7 | | Declare_Variable Any
0657 00d8 | | Load_Top At_Offset_0
0658 1c00 | | Execute_Immediate Run_Utility,0x0
0659 e006 | | Load 0x0,0x6
065a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
065b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
065c 02c7 | | Declare_Variable Any
065d 00d8 | | Load_Top At_Offset_0
065e 1c00 | | Execute_Immediate Run_Utility,0x0
065f e006 | | Load 0x0,0x6
0660 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0661 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0662 02c7 | | Declare_Variable Any
0663 00d8 | | Load_Top At_Offset_0
0664 1c00 | | Execute_Immediate Run_Utility,0x0
0665 e20e | | Load 0x1,0xe
0666 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0667 029f 0b73 | s| Declare_Subprogram INIT_0b70,For_Call
0669 BODY_0650:
0669 8235 | 5 | Call 0x1,0x35
066a 4801 |H | Short_Literal 0x1
066b e006 | | Load 0x0,0x6
066c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
066d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
066e e5ff | | Load 0x2,-0x1
066f e009 | | Load 0x0,0x9
0670 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0671 0092 0e5a | Z| Action Push_String_Extended,0xe5a ; ".@"
0673 01cc | | Execute Vector,Catenate
0674 e006 | | Load 0x0,0x6
0675 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0676 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0677 c402 | | Store 0x2,0x2
0678 00cf | | Action Mark_Auxiliary
0679 7819 |x | Jump 0x693
067a e402 | | Load 0x2,0x2
067b e006 | | Load 0x0,0x6
067c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
067d 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
067e c403 | | Store 0x2,0x3
067f e403 | | Load 0x2,0x3
0680 e006 | | Load 0x0,0x6
0681 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0682 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0683 c404 | | Store 0x2,0x4
0684 00db | | Load_Top At_Offset_3
0685 e006 | | Load 0x0,0x6
0686 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0687 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0688 0092 0e5c | \| Action Push_String_Extended,0xe5c ; "TEXT"
068a 01df | | Execute Vector,Equal
068b 6801 |h | Jump_Zero 0x68d
068c 8406 | | Call 0x2,0x6
068d e402 | | Load 0x2,0x2
068e e006 | | Load 0x0,0x6
068f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0690 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0691 c402 | | Store 0x2,0x2
0692 00c9 | | Action Pop_Auxiliary_Loop
0693 e402 | | Load 0x2,0x2
0694 e006 | | Load 0x0,0x6
0695 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0696 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0697 6fe2 |o | Jump_Zero 0x67a
0698 00ce | | Action Pop_Auxiliary
0699 00d9 | | Load_Top At_Offset_1
069a a5fd | | Store_Unchecked 0x2,-0x3
069b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
069c 0000 0000 | | .BLANK 0000[0x4]
06a0 ; --------------------------------------------------------------------------------------
06a0 ; SUBPROGRAM
06a0 ; --------------------------------------------------------------------------------------
06a0 06b1 | | .CONST 0x06b1 ; Address of begin
06a1 0004 | | .CONST 0x0004 ; Address of exception handler
06a2 0004 | | .CONST 0x0004 ; Number of locals
06a3 INIT_06a0:
06a3 e006 | | Load 0x0,0x6
06a4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06a5 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
06a6 02c7 | | Declare_Variable Any
06a7 00d8 | | Load_Top At_Offset_0
06a8 1c00 | | Execute_Immediate Run_Utility,0x0
06a9 e006 | | Load 0x0,0x6
06aa 1b0e | | Execute Package,Field_Read,Field_Number 0xe
06ab 1b0f | | Execute Package,Field_Read,Field_Number 0xf
06ac 02c7 | | Declare_Variable Any
06ad 00d8 | | Load_Top At_Offset_0
06ae 1c00 | | Execute_Immediate Run_Utility,0x0
06af 029f 0b93 | | Declare_Subprogram INIT_0b90,For_Call
06b1 BODY_06a0:
06b1 00da | | Load_Top At_Offset_2
06b2 0120 | | Execute Any,Is_Value
06b3 6804 |h | Jump_Zero 0x6b8
06b4 e006 | | Load 0x0,0x6
06b5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06b6 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
06b7 7801 |x | Jump 0x6b9
06b8 00da | | Load_Top At_Offset_2
06b9 e22d | - | Load 0x1,0x2d
06ba e006 | | Load 0x0,0x6
06bb 1b0e | | Execute Package,Field_Read,Field_Number 0xe
06bc 1811 | | Execute Package,Field_Execute,Field_Number 0x11
06bd c402 | | Store 0x2,0x2
06be 4801 |H | Short_Literal 0x1
06bf e006 | | Load 0x0,0x6
06c0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
06c1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
06c2 e5ff | | Load 0x2,-0x1
06c3 e009 | | Load 0x0,0x9
06c4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
06c5 e006 | | Load 0x0,0x6
06c6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
06c7 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
06c8 c403 | | Store 0x2,0x3
06c9 00d9 | | Load_Top At_Offset_1
06ca e006 | | Load 0x0,0x6
06cb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06cc 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
06cd c402 | | Store 0x2,0x2
06ce 00da | | Load_Top At_Offset_2
06cf e006 | | Load 0x0,0x6
06d0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06d1 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
06d2 4618 |F | Jump_Case 0x19
06d3 7823 |x# | Jump 0x6f7 ; case 0x0
06d4 7822 |x" | Jump 0x6f7 ; case 0x1
06d5 7823 |x# | Jump 0x6f9 ; case 0x2
06d6 7815 |x | Jump 0x6ec ; case 0x3
06d7 7814 |x | Jump 0x6ec ; case 0x4
06d8 7813 |x | Jump 0x6ec ; case 0x5
06d9 7812 |x | Jump 0x6ec ; case 0x6
06da 7811 |x | Jump 0x6ec ; case 0x7
06db 7810 |x | Jump 0x6ec ; case 0x8
06dc 7829 |x) | Jump 0x706 ; case 0x9
06dd 780e |x | Jump 0x6ec ; case 0xa
06de 780d |x | Jump 0x6ec ; case 0xb
06df 782f |x/ | Jump 0x70f ; case 0xc
06e0 7837 |x7 | Jump 0x718 ; case 0xd
06e1 783f |x? | Jump 0x721 ; case 0xe
06e2 7847 |xG | Jump 0x72a ; case 0xf
06e3 784f |xO | Jump 0x733 ; case 0x10
06e4 785b |x[ | Jump 0x740 ; case 0x11
06e5 7806 |x | Jump 0x6ec ; case 0x12
06e6 7805 |x | Jump 0x6ec ; case 0x13
06e7 7804 |x | Jump 0x6ec ; case 0x14
06e8 7803 |x | Jump 0x6ec ; case 0x15
06e9 7802 |x | Jump 0x6ec ; case 0x16
06ea 7801 |x | Jump 0x6ec ; case 0x17
06eb 7800 |x | Jump 0x6ec ; case 0x18
06ec 4801 |H | Short_Literal 0x1
06ed e5ff | | Load 0x2,-0x1
06ee e009 | | Load 0x0,0x9
06ef 1813 | | Execute Package,Field_Execute,Field_Number 0x13
06f0 e00d | | Load 0x0,0xd
06f1 1814 | | Execute Package,Field_Execute,Field_Number 0x14
06f2 0092 0e5d | ]| Action Push_String_Extended,0xe5d ; "library"
06f4 e00a | | Load 0x0,0xa
06f5 1844 | D | Execute Package,Field_Execute,Field_Number 0x44
06f6 7853 |xS | Jump 0x74a
06f7 8404 | | Call 0x2,0x4
06f8 7851 |xQ | Jump 0x74a
06f9 4801 |H | Short_Literal 0x1
06fa 0092 0e5e | ^| Action Push_String_Extended,0xe5e ; "used as the context"
06fc e5ff | | Load 0x2,-0x1
06fd e009 | | Load 0x0,0x9
06fe 1813 | | Execute Package,Field_Execute,Field_Number 0x13
06ff e00d | | Load 0x0,0xd
0700 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0701 0092 0e5d | ]| Action Push_String_Extended,0xe5d ; "library"
0703 e00a | | Load 0x0,0xa
0704 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0705 7844 |xD | Jump 0x74a
0706 4801 |H | Short_Literal 0x1
0707 e5ff | | Load 0x2,-0x1
0708 e009 | | Load 0x0,0x9
0709 1813 | | Execute Package,Field_Execute,Field_Number 0x13
070a e00d | | Load 0x0,0xd
070b 1814 | | Execute Package,Field_Execute,Field_Number 0x14
070c e00a | | Load 0x0,0xa
070d 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
070e 783b |x; | Jump 0x74a
070f 4801 |H | Short_Literal 0x1
0710 e5ff | | Load 0x2,-0x1
0711 e009 | | Load 0x0,0x9
0712 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0713 e00d | | Load 0x0,0xd
0714 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0715 e00a | | Load 0x0,0xa
0716 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
0717 7832 |x2 | Jump 0x74a
0718 4801 |H | Short_Literal 0x1
0719 e5ff | | Load 0x2,-0x1
071a e009 | | Load 0x0,0x9
071b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
071c e00d | | Load 0x0,0xd
071d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
071e e00a | | Load 0x0,0xa
071f 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0720 7829 |x) | Jump 0x74a
0721 4801 |H | Short_Literal 0x1
0722 e5ff | | Load 0x2,-0x1
0723 e009 | | Load 0x0,0x9
0724 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0725 e00d | | Load 0x0,0xd
0726 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0727 e00a | | Load 0x0,0xa
0728 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0729 7820 |x | Jump 0x74a
072a 4801 |H | Short_Literal 0x1
072b e5ff | | Load 0x2,-0x1
072c e009 | | Load 0x0,0x9
072d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
072e e00d | | Load 0x0,0xd
072f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0730 e00a | | Load 0x0,0xa
0731 1843 | C | Execute Package,Field_Execute,Field_Number 0x43
0732 7817 |x | Jump 0x74a
0733 4801 |H | Short_Literal 0x1
0734 0092 0e5e | ^| Action Push_String_Extended,0xe5e ; "used as the context"
0736 e5ff | | Load 0x2,-0x1
0737 e009 | | Load 0x0,0x9
0738 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0739 e00d | | Load 0x0,0xd
073a 1814 | | Execute Package,Field_Execute,Field_Number 0x14
073b 0092 0e5d | ]| Action Push_String_Extended,0xe5d ; "library"
073d e00a | | Load 0x0,0xa
073e 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
073f 780a |x | Jump 0x74a
0740 4801 |H | Short_Literal 0x1
0741 e5ff | | Load 0x2,-0x1
0742 e009 | | Load 0x0,0x9
0743 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0744 e00d | | Load 0x0,0xd
0745 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0746 0092 0e5d | ]| Action Push_String_Extended,0xe5d ; "library"
0748 e00a | | Load 0x0,0xa
0749 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
074a 00d9 | | Load_Top At_Offset_1
074b e006 | | Load 0x0,0x6
074c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
074d 1817 | | Execute Package,Field_Execute,Field_Number 0x17
074e 0e01 | | Execute_Immediate Not_Equal,0x1
074f 680a |h | Jump_Zero 0x75a
0750 4801 |H | Short_Literal 0x1
0751 e5ff | | Load 0x2,-0x1
0752 e009 | | Load 0x0,0x9
0753 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0754 e00d | | Load 0x0,0xd
0755 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0756 0092 0e5d | ]| Action Push_String_Extended,0xe5d ; "library"
0758 e00a | | Load 0x0,0xa
0759 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
075a 00d9 | | Load_Top At_Offset_1
075b c22d | - | Store 0x1,0x2d
075c 8235 | 5 | Call 0x1,0x35
075d e22d | - | Load 0x1,0x2d
075e 8237 | 7 | Call 0x1,0x37
075f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0760 ; --------------------------------------------------------------------------------------
0760 ; SUBPROGRAM
0760 ; --------------------------------------------------------------------------------------
0760 0763 | c | .CONST 0x0763 ; Address of begin
0761 0004 | | .CONST 0x0004 ; Address of exception handler
0762 0001 | | .CONST 0x0001 ; Number of locals
0763 BODY_0760:
0763 INIT_0760:
0763 00da | | Load_Top At_Offset_2
0764 e22d | - | Load 0x1,0x2d
0765 e006 | | Load 0x0,0x6
0766 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0767 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0768 e009 | | Load 0x0,0x9
0769 1810 | | Execute Package,Field_Execute,Field_Number 0x10
076a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
076b 0000 0000 | | .BLANK 0000[0x5]
0770 ; --------------------------------------------------------------------------------------
0770 ; SUBPROGRAM
0770 ; --------------------------------------------------------------------------------------
0770 0773 | s | .CONST 0x0773 ; Address of begin
0771 0004 | | .CONST 0x0004 ; Address of exception handler
0772 0001 | | .CONST 0x0001 ; Number of locals
0773 BODY_0770:
0773 INIT_0770:
0773 00db | | Load_Top At_Offset_3
0774 00db | | Load_Top At_Offset_3
0775 e009 | | Load 0x0,0x9
0776 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0777 e007 | | Load 0x0,0x7
0778 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0779 e009 | | Load 0x0,0x9
077a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
077b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
077c 0000 0000 | | .BLANK 0000[0x4]
0780 ; --------------------------------------------------------------------------------------
0780 ; SUBPROGRAM
0780 ; --------------------------------------------------------------------------------------
0780 0783 | | .CONST 0x0783 ; Address of begin
0781 0004 | | .CONST 0x0004 ; Address of exception handler
0782 0001 | | .CONST 0x0001 ; Number of locals
0783 BODY_0780:
0783 INIT_0780:
0783 e22d | - | Load 0x1,0x2d
0784 8237 | 7 | Call 0x1,0x37
0785 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0786 0000 0000 | | .XXX[0x2]
0788 ; --------------------------------------------------------------------------------------
0788 ; SUBPROGRAM
0788 ; --------------------------------------------------------------------------------------
0788 0796 | | .CONST 0x0796 ; Address of begin
0789 07a6 | | .CONST 0x07a6 ; Address of exception handler
078a 0005 | | .CONST 0x0005 ; Number of locals
078b INIT_0788:
078b e008 | | Load 0x0,0x8
078c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
078d 02c7 | | Declare_Variable Any
078e 00d8 | | Load_Top At_Offset_0
078f 1c00 | | Execute_Immediate Run_Utility,0x0
0790 029f 0bab | | Declare_Subprogram INIT_0ba8,For_Call
0792 029f 0bbb | | Declare_Subprogram INIT_0bb8,For_Call
0794 029f 0bd3 | | Declare_Subprogram INIT_0bd0,For_Call
0796 BODY_0788:
0796 00be | | Action Activate_Tasks
0797 00db | | Load_Top At_Offset_3
0798 00ea | | Load_Encached Null_String_Cache
0799 e5ff | | Load 0x2,-0x1
079a 4800 |H | Short_Literal 0x0
079b e008 | | Load 0x0,0x8
079c 1815 | | Execute Package,Field_Execute,Field_Number 0x15
079d c402 | | Store 0x2,0x2
079e 00db | | Load_Top At_Offset_3
079f 822e | . | Call 0x1,0x2e
07a0 00db | | Load_Top At_Offset_3
07a1 e008 | | Load 0x0,0x8
07a2 1816 | | Execute Package,Field_Execute,Field_Number 0x16
07a3 c402 | | Store 0x2,0x2
07a4 4801 |H | Short_Literal 0x1
07a5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
07a6 TRAP_0788:
07a6 e20d | | Load 0x1,0xd
07a7 010f | | Execute Exception,Equal
07a8 6802 |h | Jump_Zero 0x7ab
07a9 8403 | | Call 0x2,0x3
07aa 0831 | 1 | Execute_Immediate Raise,0x31
07ab 4921 |I! | Short_Literal 0x121
07ac 010f | | Execute Exception,Equal
07ad 6805 |h | Jump_Zero 0x7b3
07ae 4801 |H | Short_Literal 0x1
07af e5ff | | Load 0x2,-0x1
07b0 e00a | | Load 0x0,0xa
07b1 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
07b2 0831 | 1 | Execute_Immediate Raise,0x31
07b3 4922 |I" | Short_Literal 0x122
07b4 010f | | Execute Exception,Equal
07b5 6805 |h | Jump_Zero 0x7bb
07b6 4801 |H | Short_Literal 0x1
07b7 e5ff | | Load 0x2,-0x1
07b8 e00a | | Load 0x0,0xa
07b9 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
07ba 0831 | 1 | Execute_Immediate Raise,0x31
07bb 4923 |I# | Short_Literal 0x123
07bc 010f | | Execute Exception,Equal
07bd 6807 |h | Jump_Zero 0x7c5
07be 4801 |H | Short_Literal 0x1
07bf e5ff | | Load 0x2,-0x1
07c0 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
07c2 e00a | | Load 0x0,0xa
07c3 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
07c4 0831 | 1 | Execute_Immediate Raise,0x31
07c5 4924 |I$ | Short_Literal 0x124
07c6 010f | | Execute Exception,Equal
07c7 6807 |h | Jump_Zero 0x7cf
07c8 4801 |H | Short_Literal 0x1
07c9 e5ff | | Load 0x2,-0x1
07ca 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
07cc e00a | | Load 0x0,0xa
07cd 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
07ce 0831 | 1 | Execute_Immediate Raise,0x31
07cf 4925 |I% | Short_Literal 0x125
07d0 010f | | Execute Exception,Equal
07d1 6805 |h | Jump_Zero 0x7d7
07d2 4801 |H | Short_Literal 0x1
07d3 e5ff | | Load 0x2,-0x1
07d4 e00a | | Load 0x0,0xa
07d5 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
07d6 0831 | 1 | Execute_Immediate Raise,0x31
07d7 4931 |I1 | Short_Literal 0x131
07d8 010f | | Execute Exception,Equal
07d9 6809 |h | Jump_Zero 0x7e3
07da 4801 |H | Short_Literal 0x1
07db 0092 0e52 | R| Action Push_String_Extended,0xe52 ; "read"
07dd e5ff | | Load 0x2,-0x1
07de 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
07e0 e00a | | Load 0x0,0xa
07e1 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
07e2 0831 | 1 | Execute_Immediate Raise,0x31
07e3 4932 |I2 | Short_Literal 0x132
07e4 010f | | Execute Exception,Equal
07e5 6809 |h | Jump_Zero 0x7ef
07e6 4801 |H | Short_Literal 0x1
07e7 0092 0e52 | R| Action Push_String_Extended,0xe52 ; "read"
07e9 e5ff | | Load 0x2,-0x1
07ea 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
07ec e00a | | Load 0x0,0xa
07ed 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
07ee 0831 | 1 | Execute_Immediate Raise,0x31
07ef 4933 |I3 | Short_Literal 0x133
07f0 010f | | Execute Exception,Equal
07f1 6807 |h | Jump_Zero 0x7f9
07f2 4801 |H | Short_Literal 0x1
07f3 e5ff | | Load 0x2,-0x1
07f4 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
07f6 e00a | | Load 0x0,0xa
07f7 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
07f8 0831 | 1 | Execute_Immediate Raise,0x31
07f9 4934 |I4 | Short_Literal 0x134
07fa 010f | | Execute Exception,Equal
07fb 6809 |h | Jump_Zero 0x805
07fc 4801 |H | Short_Literal 0x1
07fd 0092 0e52 | R| Action Push_String_Extended,0xe52 ; "read"
07ff e5ff | | Load 0x2,-0x1
0800 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
0802 e00a | | Load 0x0,0xa
0803 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
0804 0831 | 1 | Execute_Immediate Raise,0x31
0805 4935 |I5 | Short_Literal 0x135
0806 010f | | Execute Exception,Equal
0807 6809 |h | Jump_Zero 0x811
0808 4801 |H | Short_Literal 0x1
0809 0092 0e52 | R| Action Push_String_Extended,0xe52 ; "read"
080b e5ff | | Load 0x2,-0x1
080c 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
080e e00a | | Load 0x0,0xa
080f 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0810 0831 | 1 | Execute_Immediate Raise,0x31
0811 4936 |I6 | Short_Literal 0x136
0812 010f | | Execute Exception,Equal
0813 6809 |h | Jump_Zero 0x81d
0814 4801 |H | Short_Literal 0x1
0815 0092 0e52 | R| Action Push_String_Extended,0xe52 ; "read"
0817 e5ff | | Load 0x2,-0x1
0818 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
081a e00a | | Load 0x0,0xa
081b 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
081c 0831 | 1 | Execute_Immediate Raise,0x31
081d 00d8 | | Load_Top At_Offset_0
081e 0107 | | Execute Exception,Get_Name
081f 4940 |I@ | Short_Literal 0x140
0820 494f |IO | Short_Literal 0x14f
0821 0262 | b | Execute Discrete,In_Range
0822 6802 |h | Jump_Zero 0x825
0823 8404 | | Call 0x2,0x4
0824 0831 | 1 | Execute_Immediate Raise,0x31
0825 00d8 | | Load_Top At_Offset_0
0826 0107 | | Execute Exception,Get_Name
0827 4960 |I` | Short_Literal 0x160
0828 496f |Io | Short_Literal 0x16f
0829 0262 | b | Execute Discrete,In_Range
082a 6802 |h | Jump_Zero 0x82d
082b 8405 | | Call 0x2,0x5
082c 0831 | 1 | Execute_Immediate Raise,0x31
082d 0100 | | Execute Exception,Raise
082e 0000 0000 | | .XXX[0x2]
0830 ; --------------------------------------------------------------------------------------
0830 ; SUBPROGRAM
0830 ; --------------------------------------------------------------------------------------
0830 0839 | 9 | .CONST 0x0839 ; Address of begin
0831 084a | J | .CONST 0x084a ; Address of exception handler
0832 0003 | | .CONST 0x0003 ; Number of locals
0833 INIT_0830:
0833 e22c | , | Load 0x1,0x2c
0834 01da | | Execute Vector,Bounds
0835 00e9 | | Load_Encached String_Cache
0836 035b | [ | Declare_Type Array,Constrained
0837 0337 | 7 | Declare_Variable Array
0838 00e2 | | Load_Encached Integer_Cache
0839 BODY_0830:
0839 00e3 | | Load_Encached Natural_Cache
083a 00da | | Load_Top At_Offset_2
083b e5ff | | Load 0x2,-0x1
083c e008 | | Load 0x0,0x8
083d 184c | L | Execute Package,Field_Execute,Field_Number 0x4c
083e 00d1 | | Pop_Control Pop_Count_1
083f 0059 | Y | Store_Top Discrete,At_Offset_1
0840 4801 |H | Short_Literal 0x1
0841 00d9 | | Load_Top At_Offset_1
0842 00db | | Load_Top At_Offset_3
0843 01cf | | Execute Vector,Slice_Read
0844 e22c | , | Load 0x1,0x2c
0845 01de | | Execute Vector,Not_Equal
0846 6802 |h | Jump_Zero 0x849
0847 e20d | | Load 0x1,0xd
0848 0257 | W | Execute Discrete,Raise
0849 4502 |E | Exit_Suprogram New_Top_Offset 0x2
084a TRAP_0830:
084a 00d8 | | Load_Top At_Offset_0
084b 0107 | | Execute Exception,Get_Name
084c 4950 |IP | Short_Literal 0x150
084d 495f |I_ | Short_Literal 0x15f
084e 0262 | b | Execute Discrete,In_Range
084f 6802 |h | Jump_Zero 0x852
0850 e20d | | Load 0x1,0xd
0851 0257 | W | Execute Discrete,Raise
0852 0100 | | Execute Exception,Raise
0853 0000 0000 | | .BLANK 0000[0x5]
0858 ; --------------------------------------------------------------------------------------
0858 ; SUBPROGRAM
0858 ; --------------------------------------------------------------------------------------
0858 085b | [ | .CONST 0x085b ; Address of begin
0859 0004 | | .CONST 0x0004 ; Address of exception handler
085a 0001 | | .CONST 0x0001 ; Number of locals
085b BODY_0858:
085b INIT_0858:
085b 00da | | Load_Top At_Offset_2
085c 0f20 | | Execute_Immediate Equal,0x20
085d 00db | | Load_Top At_Offset_3
085e 0f09 | | Execute_Immediate Equal,0x9
085f 0278 | x | Execute Discrete,Or
0860 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0861 0000 0000 | | .BLANK 0000[0x7]
0868 ; --------------------------------------------------------------------------------------
0868 ; SUBPROGRAM
0868 ; --------------------------------------------------------------------------------------
0868 0872 | r | .CONST 0x0872 ; Address of begin
0869 0004 | | .CONST 0x0004 ; Address of exception handler
086a 0004 | | .CONST 0x0004 ; Number of locals
086b INIT_0868:
086b 4801 |H | Short_Literal 0x1
086c 4a00 |J | Short_Literal 0x200
086d 00e9 | | Load_Encached String_Cache
086e 035b | [ | Declare_Type Array,Constrained
086f 0337 | 7 | Declare_Variable Array
0870 00e2 | | Load_Encached Integer_Cache
0871 00e2 | | Load_Encached Integer_Cache
0872 BODY_0868:
0872 00cf | | Action Mark_Auxiliary
0873 00e3 | | Load_Encached Natural_Cache
0874 e402 | | Load 0x2,0x2
0875 e5ff | | Load 0x2,-0x1
0876 e008 | | Load 0x0,0x8
0877 184c | L | Execute Package,Field_Execute,Field_Number 0x4c
0878 00d1 | | Pop_Control Pop_Count_1
0879 005a | Z | Store_Top Discrete,At_Offset_2
087a 4801 |H | Short_Literal 0x1
087b 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
087c 00cf | | Action Mark_Auxiliary
087d 7804 |x | Jump 0x882
087e 00db | | Load_Top At_Offset_3
087f 0a01 | | Execute_Immediate Plus,0x1
0880 c403 | | Store 0x2,0x3
0881 00c9 | | Action Pop_Auxiliary_Loop
0882 00db | | Load_Top At_Offset_3
0883 00db | | Load_Top At_Offset_3
0884 027a | z | Execute Discrete,Less_Equal
0885 6805 |h | Jump_Zero 0x88b
0886 00db | | Load_Top At_Offset_3
0887 e402 | | Load 0x2,0x2
0888 01d7 | | Execute Vector,Field_Read
0889 822f | / | Call 0x1,0x2f
088a 77f3 |w | Jump_Nonzero 0x87e
088b 00ce | | Action Pop_Auxiliary
088c 00da | | Load_Top At_Offset_2
088d 00da | | Load_Top At_Offset_2
088e 027a | z | Execute Discrete,Less_Equal
088f 7002 |p | Jump_Nonzero 0x892
0890 00c9 | | Action Pop_Auxiliary_Loop
0891 7fe1 | | Jump 0x873
0892 00c9 | | Action Pop_Auxiliary_Loop
0893 7804 |x | Jump 0x898
0894 00d9 | | Load_Top At_Offset_1
0895 0aff | | Execute_Immediate Plus,-0x1
0896 005a | Z | Store_Top Discrete,At_Offset_2
0897 00c9 | | Action Pop_Auxiliary_Loop
0898 00d9 | | Load_Top At_Offset_1
0899 e402 | | Load 0x2,0x2
089a 01d7 | | Execute Vector,Field_Read
089b 822f | / | Call 0x1,0x2f
089c 77f7 |w | Jump_Nonzero 0x894
089d 00ce | | Action Pop_Auxiliary
089e 00d9 | | Load_Top At_Offset_1
089f 00d9 | | Load_Top At_Offset_1
08a0 e402 | | Load 0x2,0x2
08a1 01cf | | Execute Vector,Slice_Read
08a2 00e9 | | Load_Encached String_Cache
08a3 01c6 | | Execute Vector,Convert_To_Formal
08a4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
08a5 0000 0000 | | .XXX[0x3]
08a7 0000 | |
08a8 ; --------------------------------------------------------------------------------------
08a8 ; SUBPROGRAM
08a8 ; --------------------------------------------------------------------------------------
08a8 08b5 | | .CONST 0x08b5 ; Address of begin
08a9 0004 | | .CONST 0x0004 ; Address of exception handler
08aa 0004 | | .CONST 0x0004 ; Number of locals
08ab INIT_08a8:
08ab 00da | | Load_Top At_Offset_2
08ac 8230 | 0 | Call 0x1,0x30
08ad 00d8 | | Load_Top At_Offset_0
08ae 01dd | | Execute Vector,First
08af 00e2 | | Load_Encached Integer_Cache
08b0 03f1 | | Declare_Variable Discrete,With_Value
08b1 00d9 | | Load_Top At_Offset_1
08b2 01dd | | Execute Vector,First
08b3 00e2 | | Load_Encached Integer_Cache
08b4 03f1 | | Declare_Variable Discrete,With_Value
08b5 BODY_08a8:
08b5 00cf | | Action Mark_Auxiliary
08b6 7804 |x | Jump 0x8bb
08b7 00d9 | | Load_Top At_Offset_1
08b8 0a01 | | Execute_Immediate Plus,0x1
08b9 005a | Z | Store_Top Discrete,At_Offset_2
08ba 00c9 | | Action Pop_Auxiliary_Loop
08bb 00d9 | | Load_Top At_Offset_1
08bc e402 | | Load 0x2,0x2
08bd 01dc | | Execute Vector,Last
08be 027c | | | Execute Discrete,Less
08bf 6805 |h | Jump_Zero 0x8c5
08c0 00d9 | | Load_Top At_Offset_1
08c1 e402 | | Load 0x2,0x2
08c2 01d7 | | Execute Vector,Field_Read
08c3 822f | / | Call 0x1,0x2f
08c4 6ff2 |o | Jump_Zero 0x8b7
08c5 00ce | | Action Pop_Auxiliary
08c6 00d9 | | Load_Top At_Offset_1
08c7 00d9 | | Load_Top At_Offset_1
08c8 e402 | | Load 0x2,0x2
08c9 01cf | | Execute Vector,Slice_Read
08ca 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
08cb 0000 0000 | | .BLANK 0000[0x5]
08d0 ; --------------------------------------------------------------------------------------
08d0 ; SUBPROGRAM
08d0 ; --------------------------------------------------------------------------------------
08d0 08da | | .CONST 0x08da ; Address of begin
08d1 0900 | | .CONST 0x0900 ; Address of exception handler
08d2 0003 | | .CONST 0x0003 ; Number of locals
08d3 INIT_08d0:
08d3 e008 | | Load 0x0,0x8
08d4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08d5 02c7 | | Declare_Variable Any
08d6 00d8 | | Load_Top At_Offset_0
08d7 1c00 | | Execute_Immediate Run_Utility,0x0
08d8 029f 0be3 | | Declare_Subprogram INIT_0be0,For_Call
08da BODY_08d0:
08da 00be | | Action Activate_Tasks
08db 00d9 | | Load_Top At_Offset_1
08dc 00ea | | Load_Encached Null_String_Cache
08dd e5ff | | Load 0x2,-0x1
08de 4800 |H | Short_Literal 0x0
08df e008 | | Load 0x0,0x8
08e0 1815 | | Execute Package,Field_Execute,Field_Number 0x15
08e1 c402 | | Store 0x2,0x2
08e2 00d9 | | Load_Top At_Offset_1
08e3 822e | . | Call 0x1,0x2e
08e4 e5fe | | Load 0x2,-0x2
08e5 00da | | Load_Top At_Offset_2
08e6 8230 | 0 | Call 0x1,0x30
08e7 e009 | | Load 0x0,0x9
08e8 1810 | | Execute Package,Field_Execute,Field_Number 0x10
08e9 00d1 | | Pop_Control Pop_Count_1
08ea e5fd | | Load 0x2,-0x3
08eb 4820 |H | Short_Literal 0x20
08ec 4800 |H | Short_Literal 0x0
08ed e009 | | Load 0x0,0x9
08ee 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
08ef 00d1 | | Pop_Control Pop_Count_1
08f0 e5fc | | Load 0x2,-0x4
08f1 4820 |H | Short_Literal 0x20
08f2 4800 |H | Short_Literal 0x0
08f3 e009 | | Load 0x0,0x9
08f4 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
08f5 00d1 | | Pop_Control Pop_Count_1
08f6 00cf | | Action Mark_Auxiliary
08f7 8403 | | Call 0x2,0x3
08f8 00c9 | | Action Pop_Auxiliary_Loop
08f9 7ffd | | Jump 0x8f7
08fa 00ce | | Action Pop_Auxiliary
08fb 00d9 | | Load_Top At_Offset_1
08fc e008 | | Load 0x0,0x8
08fd 1816 | | Execute Package,Field_Execute,Field_Number 0x16
08fe c402 | | Store 0x2,0x2
08ff 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0900 TRAP_08d0:
0900 00d8 | | Load_Top At_Offset_0
0901 0107 | | Execute Exception,Get_Name
0902 4950 |IP | Short_Literal 0x150
0903 495f |I_ | Short_Literal 0x15f
0904 0262 | b | Execute Discrete,In_Range
0905 7003 |p | Jump_Nonzero 0x909
0906 e20d | | Load 0x1,0xd
0907 010f | | Execute Exception,Equal
0908 6806 |h | Jump_Zero 0x90f
0909 00da | | Load_Top At_Offset_2
090a e008 | | Load 0x0,0x8
090b 1816 | | Execute Package,Field_Execute,Field_Number 0x16
090c c402 | | Store 0x2,0x2
090d e20d | | Load 0x1,0xd
090e 0257 | W | Execute Discrete,Raise
090f 0100 | | Execute Exception,Raise
0910 ; --------------------------------------------------------------------------------------
0910 ; SUBPROGRAM
0910 ; --------------------------------------------------------------------------------------
0910 091e | | .CONST 0x091e ; Address of begin
0911 092d | - | .CONST 0x092d ; Address of exception handler
0912 0005 | | .CONST 0x0005 ; Number of locals
0913 INIT_0910:
0913 e008 | | Load 0x0,0x8
0914 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0915 02c7 | | Declare_Variable Any
0916 00d8 | | Load_Top At_Offset_0
0917 1c00 | | Execute_Immediate Run_Utility,0x0
0918 029f 0c4b | K| Declare_Subprogram INIT_0c48,For_Call
091a 029f 0c63 | c| Declare_Subprogram INIT_0c60,For_Call
091c 029f 0c7b | {| Declare_Subprogram INIT_0c78,For_Call
091e BODY_0910:
091e 00be | | Action Activate_Tasks
091f 00db | | Load_Top At_Offset_3
0920 00ea | | Load_Encached Null_String_Cache
0921 e5ff | | Load 0x2,-0x1
0922 4800 |H | Short_Literal 0x0
0923 e008 | | Load 0x0,0x8
0924 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0925 c402 | | Store 0x2,0x2
0926 00db | | Load_Top At_Offset_3
0927 822e | . | Call 0x1,0x2e
0928 00db | | Load_Top At_Offset_3
0929 e008 | | Load 0x0,0x8
092a 1816 | | Execute Package,Field_Execute,Field_Number 0x16
092b c402 | | Store 0x2,0x2
092c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
092d TRAP_0910:
092d e20d | | Load 0x1,0xd
092e 010f | | Execute Exception,Equal
092f 6802 |h | Jump_Zero 0x932
0930 8403 | | Call 0x2,0x3
0931 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0932 4921 |I! | Short_Literal 0x121
0933 010f | | Execute Exception,Equal
0934 6805 |h | Jump_Zero 0x93a
0935 4801 |H | Short_Literal 0x1
0936 e5ff | | Load 0x2,-0x1
0937 e00a | | Load 0x0,0xa
0938 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
0939 4502 |E | Exit_Suprogram New_Top_Offset 0x2
093a 4922 |I" | Short_Literal 0x122
093b 010f | | Execute Exception,Equal
093c 6805 |h | Jump_Zero 0x942
093d 4801 |H | Short_Literal 0x1
093e e5ff | | Load 0x2,-0x1
093f e00a | | Load 0x0,0xa
0940 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0941 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0942 4923 |I# | Short_Literal 0x123
0943 010f | | Execute Exception,Equal
0944 6807 |h | Jump_Zero 0x94c
0945 4801 |H | Short_Literal 0x1
0946 e5ff | | Load 0x2,-0x1
0947 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
0949 e00a | | Load 0x0,0xa
094a 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
094b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
094c 4924 |I$ | Short_Literal 0x124
094d 010f | | Execute Exception,Equal
094e 6807 |h | Jump_Zero 0x956
094f 4801 |H | Short_Literal 0x1
0950 e5ff | | Load 0x2,-0x1
0951 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
0953 e00a | | Load 0x0,0xa
0954 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0955 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0956 4925 |I% | Short_Literal 0x125
0957 010f | | Execute Exception,Equal
0958 6805 |h | Jump_Zero 0x95e
0959 4801 |H | Short_Literal 0x1
095a e5ff | | Load 0x2,-0x1
095b e00a | | Load 0x0,0xa
095c 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
095d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
095e 4931 |I1 | Short_Literal 0x131
095f 010f | | Execute Exception,Equal
0960 6809 |h | Jump_Zero 0x96a
0961 4801 |H | Short_Literal 0x1
0962 0092 0e52 | R| Action Push_String_Extended,0xe52 ; "read"
0964 e5ff | | Load 0x2,-0x1
0965 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
0967 e00a | | Load 0x0,0xa
0968 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
0969 4502 |E | Exit_Suprogram New_Top_Offset 0x2
096a 4932 |I2 | Short_Literal 0x132
096b 010f | | Execute Exception,Equal
096c 6809 |h | Jump_Zero 0x976
096d 4801 |H | Short_Literal 0x1
096e 0092 0e52 | R| Action Push_String_Extended,0xe52 ; "read"
0970 e5ff | | Load 0x2,-0x1
0971 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
0973 e00a | | Load 0x0,0xa
0974 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0975 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0976 4933 |I3 | Short_Literal 0x133
0977 010f | | Execute Exception,Equal
0978 6807 |h | Jump_Zero 0x980
0979 4801 |H | Short_Literal 0x1
097a e5ff | | Load 0x2,-0x1
097b 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
097d e00a | | Load 0x0,0xa
097e 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
097f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0980 4934 |I4 | Short_Literal 0x134
0981 010f | | Execute Exception,Equal
0982 6809 |h | Jump_Zero 0x98c
0983 4801 |H | Short_Literal 0x1
0984 0092 0e52 | R| Action Push_String_Extended,0xe52 ; "read"
0986 e5ff | | Load 0x2,-0x1
0987 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
0989 e00a | | Load 0x0,0xa
098a 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
098b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
098c 4935 |I5 | Short_Literal 0x135
098d 010f | | Execute Exception,Equal
098e 6809 |h | Jump_Zero 0x998
098f 4801 |H | Short_Literal 0x1
0990 0092 0e52 | R| Action Push_String_Extended,0xe52 ; "read"
0992 e5ff | | Load 0x2,-0x1
0993 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
0995 e00a | | Load 0x0,0xa
0996 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0997 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0998 4936 |I6 | Short_Literal 0x136
0999 010f | | Execute Exception,Equal
099a 6809 |h | Jump_Zero 0x9a4
099b 4801 |H | Short_Literal 0x1
099c 0092 0e52 | R| Action Push_String_Extended,0xe52 ; "read"
099e e5ff | | Load 0x2,-0x1
099f 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
09a1 e00a | | Load 0x0,0xa
09a2 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
09a3 4502 |E | Exit_Suprogram New_Top_Offset 0x2
09a4 00d8 | | Load_Top At_Offset_0
09a5 0107 | | Execute Exception,Get_Name
09a6 4940 |I@ | Short_Literal 0x140
09a7 494f |IO | Short_Literal 0x14f
09a8 0262 | b | Execute Discrete,In_Range
09a9 6802 |h | Jump_Zero 0x9ac
09aa 8404 | | Call 0x2,0x4
09ab 4502 |E | Exit_Suprogram New_Top_Offset 0x2
09ac 00d8 | | Load_Top At_Offset_0
09ad 0107 | | Execute Exception,Get_Name
09ae 4960 |I` | Short_Literal 0x160
09af 496f |Io | Short_Literal 0x16f
09b0 0262 | b | Execute Discrete,In_Range
09b1 6802 |h | Jump_Zero 0x9b4
09b2 8405 | | Call 0x2,0x5
09b3 4502 |E | Exit_Suprogram New_Top_Offset 0x2
09b4 0100 | | Execute Exception,Raise
09b5 0000 0000 | | .XXX[0x3]
09b7 0000 | |
09b8 ; --------------------------------------------------------------------------------------
09b8 ; SUBPROGRAM
09b8 ; --------------------------------------------------------------------------------------
09b8 09c4 | | .CONST 0x09c4 ; Address of begin
09b9 0004 | | .CONST 0x0004 ; Address of exception handler
09ba 0005 | | .CONST 0x0005 ; Number of locals
09bb INIT_09b8:
09bb 00da | | Load_Top At_Offset_2
09bc e20e | | Load 0x1,0xe
09bd 1813 | | Execute Package,Field_Execute,Field_Number 0x13
09be 00e4 | | Load_Encached Positive_Cache
09bf 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
09c0 029f 0c8b | | Declare_Subprogram INIT_0c88,For_Call
09c2 029f 0cf3 | | Declare_Subprogram INIT_0cf0,For_Call
09c4 BODY_09b8:
09c4 e5fe | | Load 0x2,-0x2
09c5 8404 | | Call 0x2,0x4
09c6 e009 | | Load 0x0,0x9
09c7 1810 | | Execute Package,Field_Execute,Field_Number 0x10
09c8 00d1 | | Pop_Control Pop_Count_1
09c9 e5fd | | Load 0x2,-0x3
09ca 4820 |H | Short_Literal 0x20
09cb 4800 |H | Short_Literal 0x0
09cc e009 | | Load 0x0,0x9
09cd 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
09ce 00d1 | | Pop_Control Pop_Count_1
09cf e5fc | | Load 0x2,-0x4
09d0 4820 |H | Short_Literal 0x20
09d1 4800 |H | Short_Literal 0x0
09d2 e009 | | Load 0x0,0x9
09d3 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
09d4 00d1 | | Pop_Control Pop_Count_1
09d5 00cf | | Action Mark_Auxiliary
09d6 8405 | | Call 0x2,0x5
09d7 00c9 | | Action Pop_Auxiliary_Loop
09d8 7ffd | | Jump 0x9d6
09d9 0000 0000 | | .BLANK 0000[0x7]
09e0 ; --------------------------------------------------------------------------------------
09e0 ; SUBPROGRAM
09e0 ; --------------------------------------------------------------------------------------
09e0 09eb | | .CONST 0x09eb ; Address of begin
09e1 0004 | | .CONST 0x0004 ; Address of exception handler
09e2 0003 | | .CONST 0x0003 ; Number of locals
09e3 INIT_09e0:
09e3 e006 | | Load 0x0,0x6
09e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
09e5 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
09e6 02c7 | | Declare_Variable Any
09e7 00d8 | | Load_Top At_Offset_0
09e8 1c00 | | Execute_Immediate Run_Utility,0x0
09e9 029f 0d63 | c| Declare_Subprogram INIT_0d60,For_Call
09eb BODY_09e0:
09eb 00d9 | | Load_Top At_Offset_1
09ec 0120 | | Execute Any,Is_Value
09ed 6804 |h | Jump_Zero 0x9f2
09ee e006 | | Load 0x0,0x6
09ef 1b0d | | Execute Package,Field_Read,Field_Number 0xd
09f0 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
09f1 7801 |x | Jump 0x9f3
09f2 00d9 | | Load_Top At_Offset_1
09f3 e22d | - | Load 0x1,0x2d
09f4 e006 | | Load 0x0,0x6
09f5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
09f6 1811 | | Execute Package,Field_Execute,Field_Number 0x11
09f7 c402 | | Store 0x2,0x2
09f8 00d9 | | Load_Top At_Offset_1
09f9 e006 | | Load 0x0,0x6
09fa 1b0d | | Execute Package,Field_Read,Field_Number 0xd
09fb 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
09fc 6801 |h | Jump_Zero 0x9fe
09fd 8403 | | Call 0x2,0x3
09fe 4501 |E | Exit_Suprogram New_Top_Offset 0x1
09ff 0000 | | .XXX[0x1]
0a00 ; --------------------------------------------------------------------------------------
0a00 ; SUBPROGRAM
0a00 ; --------------------------------------------------------------------------------------
0a00 0a1f | | .CONST 0x0a1f ; Address of begin
0a01 0004 | | .CONST 0x0004 ; Address of exception handler
0a02 0007 | | .CONST 0x0007 ; Number of locals
0a03 INIT_0a00:
0a03 e008 | | Load 0x0,0x8
0a04 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0a05 02c7 | | Declare_Variable Any
0a06 00d8 | | Load_Top At_Offset_0
0a07 1c00 | | Execute_Immediate Run_Utility,0x0
0a08 e006 | | Load 0x0,0x6
0a09 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0a0a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0a0b 02c7 | | Declare_Variable Any
0a0c 00d8 | | Load_Top At_Offset_0
0a0d 1c00 | | Execute_Immediate Run_Utility,0x0
0a0e e006 | | Load 0x0,0x6
0a0f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0a10 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0a11 02c7 | | Declare_Variable Any
0a12 00d8 | | Load_Top At_Offset_0
0a13 1c00 | | Execute_Immediate Run_Utility,0x0
0a14 e006 | | Load 0x0,0x6
0a15 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0a16 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
0a17 02c7 | | Declare_Variable Any
0a18 00d8 | | Load_Top At_Offset_0
0a19 1c00 | | Execute_Immediate Run_Utility,0x0
0a1a e006 | | Load 0x0,0x6
0a1b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0a1c 1b44 | D | Execute Package,Field_Read,Field_Number 0x44
0a1d 029f 0db3 | | Declare_Subprogram INIT_0db0,For_Call
0a1f BODY_0a00:
0a1f 00be | | Action Activate_Tasks
0a20 8235 | 5 | Call 0x1,0x35
0a21 4801 |H | Short_Literal 0x1
0a22 e006 | | Load 0x0,0x6
0a23 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0a24 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0a25 e5ff | | Load 0x2,-0x1
0a26 e009 | | Load 0x0,0x9
0a27 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0a28 e006 | | Load 0x0,0x6
0a29 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0a2a 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0a2b c403 | | Store 0x2,0x3
0a2c e403 | | Load 0x2,0x3
0a2d e006 | | Load 0x0,0x6
0a2e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0a2f 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0a30 c405 | | Store 0x2,0x5
0a31 00da | | Load_Top At_Offset_2
0a32 e006 | | Load 0x0,0x6
0a33 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0a34 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
0a35 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0a36 00d9 | | Load_Top At_Offset_1
0a37 4618 |F | Jump_Case 0x19
0a38 7821 |x! | Jump 0xa5a ; case 0x0
0a39 7820 |x | Jump 0xa5a ; case 0x1
0a3a 7859 |xY | Jump 0xa94 ; case 0x2
0a3b 7815 |x | Jump 0xa51 ; case 0x3
0a3c 7814 |x | Jump 0xa51 ; case 0x4
0a3d 7813 |x | Jump 0xa51 ; case 0x5
0a3e 7812 |x | Jump 0xa51 ; case 0x6
0a3f 7811 |x | Jump 0xa51 ; case 0x7
0a40 7810 |x | Jump 0xa51 ; case 0x8
0a41 785d |x] | Jump 0xa9f ; case 0x9
0a42 780e |x | Jump 0xa51 ; case 0xa
0a43 780d |x | Jump 0xa51 ; case 0xb
0a44 7863 |xc | Jump 0xaa8 ; case 0xc
0a45 781d |x | Jump 0xa63 ; case 0xd
0a46 7868 |xh | Jump 0xaaf ; case 0xe
0a47 786e |xn | Jump 0xab6 ; case 0xf
0a48 7874 |xt | Jump 0xabd ; case 0x10
0a49 787e |x~ | Jump 0xac8 ; case 0x11
0a4a 7806 |x | Jump 0xa51 ; case 0x12
0a4b 7805 |x | Jump 0xa51 ; case 0x13
0a4c 7804 |x | Jump 0xa51 ; case 0x14
0a4d 7803 |x | Jump 0xa51 ; case 0x15
0a4e 7802 |x | Jump 0xa51 ; case 0x16
0a4f 7801 |x | Jump 0xa51 ; case 0x17
0a50 7800 |x | Jump 0xa51 ; case 0x18
0a51 4801 |H | Short_Literal 0x1
0a52 e5ff | | Load 0x2,-0x1
0a53 e009 | | Load 0x0,0x9
0a54 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0a55 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
0a57 e00a | | Load 0x0,0xa
0a58 1844 | D | Execute Package,Field_Execute,Field_Number 0x44
0a59 7876 |xv | Jump 0xad0
0a5a 8407 | | Call 0x2,0x7
0a5b e403 | | Load 0x2,0x3
0a5c e006 | | Load 0x0,0x6
0a5d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0a5e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0a5f c404 | | Store 0x2,0x4
0a60 4801 |H | Short_Literal 0x1
0a61 a5fc | | Store_Unchecked 0x2,-0x4
0a62 786d |xm | Jump 0xad0
0a63 4801 |H | Short_Literal 0x1
0a64 e006 | | Load 0x0,0x6
0a65 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0a66 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0a67 e5ff | | Load 0x2,-0x1
0a68 e009 | | Load 0x0,0x9
0a69 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0a6a e006 | | Load 0x0,0x6
0a6b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0a6c 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0a6d e006 | | Load 0x0,0x6
0a6e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0a6f 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0a70 c404 | | Store 0x2,0x4
0a71 00db | | Load_Top At_Offset_3
0a72 e006 | | Load 0x0,0x6
0a73 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0a74 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
0a75 6808 |h | Jump_Zero 0xa7e
0a76 4801 |H | Short_Literal 0x1
0a77 e5ff | | Load 0x2,-0x1
0a78 e009 | | Load 0x0,0x9
0a79 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0a7a 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
0a7c e00a | | Load 0x0,0xa
0a7d 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0a7e e5fe | | Load 0x2,-0x2
0a7f 482e |H. | Short_Literal 0x2e
0a80 e404 | | Load 0x2,0x4
0a81 e006 | | Load 0x0,0x6
0a82 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0a83 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0a84 01cb | | Execute Vector,Append
0a85 e5ff | | Load 0x2,-0x1
0a86 e009 | | Load 0x0,0x9
0a87 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0a88 e006 | | Load 0x0,0x6
0a89 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0a8a 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0a8b e00d | | Load 0x0,0xd
0a8c 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0a8d 01cc | | Execute Vector,Catenate
0a8e e009 | | Load 0x0,0x9
0a8f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0a90 00d1 | | Pop_Control Pop_Count_1
0a91 4800 |H | Short_Literal 0x0
0a92 a5fc | | Store_Unchecked 0x2,-0x4
0a93 783c |x< | Jump 0xad0
0a94 4801 |H | Short_Literal 0x1
0a95 0092 0e57 | W| Action Push_String_Extended,0xe57 ; "deleted"
0a97 e5ff | | Load 0x2,-0x1
0a98 e009 | | Load 0x0,0x9
0a99 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0a9a 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
0a9c e00a | | Load 0x0,0xa
0a9d 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0a9e 7831 |x1 | Jump 0xad0
0a9f 4801 |H | Short_Literal 0x1
0aa0 e5ff | | Load 0x2,-0x1
0aa1 e009 | | Load 0x0,0x9
0aa2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0aa3 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
0aa5 e00a | | Load 0x0,0xa
0aa6 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0aa7 7828 |x( | Jump 0xad0
0aa8 4801 |H | Short_Literal 0x1
0aa9 e5ff | | Load 0x2,-0x1
0aaa e009 | | Load 0x0,0x9
0aab 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0aac e00a | | Load 0x0,0xa
0aad 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
0aae 7821 |x! | Jump 0xad0
0aaf 4801 |H | Short_Literal 0x1
0ab0 e5ff | | Load 0x2,-0x1
0ab1 e009 | | Load 0x0,0x9
0ab2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0ab3 e00a | | Load 0x0,0xa
0ab4 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0ab5 781a |x | Jump 0xad0
0ab6 4801 |H | Short_Literal 0x1
0ab7 e5ff | | Load 0x2,-0x1
0ab8 e009 | | Load 0x0,0x9
0ab9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0aba e00a | | Load 0x0,0xa
0abb 1843 | C | Execute Package,Field_Execute,Field_Number 0x43
0abc 7813 |x | Jump 0xad0
0abd 4801 |H | Short_Literal 0x1
0abe 0092 0e57 | W| Action Push_String_Extended,0xe57 ; "deleted"
0ac0 e5ff | | Load 0x2,-0x1
0ac1 e009 | | Load 0x0,0x9
0ac2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0ac3 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
0ac5 e00a | | Load 0x0,0xa
0ac6 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
0ac7 7808 |x | Jump 0xad0
0ac8 4801 |H | Short_Literal 0x1
0ac9 e5ff | | Load 0x2,-0x1
0aca e009 | | Load 0x0,0x9
0acb 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0acc 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
0ace e00a | | Load 0x0,0xa
0acf 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
0ad0 00db | | Load_Top At_Offset_3
0ad1 e006 | | Load 0x0,0x6
0ad2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0ad3 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0ad4 0e03 | | Execute_Immediate Not_Equal,0x3
0ad5 6806 |h | Jump_Zero 0xadc
0ad6 e5fd | | Load 0x2,-0x3
0ad7 00ea | | Load_Encached Null_String_Cache
0ad8 e009 | | Load 0x0,0x9
0ad9 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0ada 00d1 | | Pop_Control Pop_Count_1
0adb 7819 |x | Jump 0xaf5
0adc 00cf | | Action Mark_Auxiliary
0add e404 | | Load 0x2,0x4
0ade c403 | | Store 0x2,0x3
0adf e403 | | Load 0x2,0x3
0ae0 e006 | | Load 0x0,0x6
0ae1 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0ae2 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0ae3 c404 | | Store 0x2,0x4
0ae4 e404 | | Load 0x2,0x4
0ae5 e006 | | Load 0x0,0x6
0ae6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0ae7 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0ae8 0f01 | | Execute_Immediate Equal,0x1
0ae9 7002 |p | Jump_Nonzero 0xaec
0aea 00c9 | | Action Pop_Auxiliary_Loop
0aeb 7ff1 | | Jump 0xadd
0aec 00ce | | Action Pop_Auxiliary
0aed e5fd | | Load 0x2,-0x3
0aee e403 | | Load 0x2,0x3
0aef e006 | | Load 0x0,0x6
0af0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0af1 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0af2 e009 | | Load 0x0,0x9
0af3 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0af4 00d1 | | Pop_Control Pop_Count_1
0af5 e22d | - | Load 0x1,0x2d
0af6 e404 | | Load 0x2,0x4
0af7 e006 | | Load 0x0,0x6
0af8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0af9 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0afa a5fb | | Store_Unchecked 0x2,-0x5
0afb 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0afc 0000 0000 | | .BLANK 0000[0x4]
0b00 ; --------------------------------------------------------------------------------------
0b00 ; SUBPROGRAM
0b00 ; --------------------------------------------------------------------------------------
0b00 0b33 | 3 | .CONST 0x0b33 ; Address of begin
0b01 0004 | | .CONST 0x0004 ; Address of exception handler
0b02 0008 | | .CONST 0x0008 ; Number of locals
0b03 INIT_0b00:
0b03 0092 0e5f | _| Action Push_String_Extended,0xe5f ; "text"
0b05 e006 | | Load 0x0,0x6
0b06 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0b07 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0b08 e006 | | Load 0x0,0x6
0b09 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0b0a 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0b0b 011e | | Execute Any,Convert
0b0c e006 | | Load 0x0,0x6
0b0d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0b0e 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0b0f 02c7 | | Declare_Variable Any
0b10 4803 |H | Short_Literal 0x3
0b11 4801 |H | Short_Literal 0x1
0b12 0092 0e60 | `| Action Push_String_Extended,0xe60 ; "@"
0b14 e5ff | | Load 0x2,-0x1
0b15 e006 | | Load 0x0,0x6
0b16 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0b17 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0b18 a403 | | Store_Unchecked 0x2,0x3
0b19 e006 | | Load 0x0,0x6
0b1a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0b1b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0b1c 02c7 | | Declare_Variable Any
0b1d 00d8 | | Load_Top At_Offset_0
0b1e 1c00 | | Execute_Immediate Run_Utility,0x0
0b1f 48ff |H | Short_Literal 0xff
0b20 e009 | | Load 0x0,0x9
0b21 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0b22 1c08 | | Execute_Immediate Run_Utility,0x8
0b23 00d8 | | Load_Top At_Offset_0
0b24 1c00 | | Execute_Immediate Run_Utility,0x0
0b25 48ff |H | Short_Literal 0xff
0b26 e009 | | Load 0x0,0x9
0b27 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0b28 1c08 | | Execute_Immediate Run_Utility,0x8
0b29 00d8 | | Load_Top At_Offset_0
0b2a 1c00 | | Execute_Immediate Run_Utility,0x0
0b2b 48ff |H | Short_Literal 0xff
0b2c e009 | | Load 0x0,0x9
0b2d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0b2e 1c08 | | Execute_Immediate Run_Utility,0x8
0b2f 00d8 | | Load_Top At_Offset_0
0b30 1c00 | | Execute_Immediate Run_Utility,0x0
0b31 029f 0dc3 | | Declare_Subprogram INIT_0dc0,For_Call
0b33 BODY_0b00:
0b33 e007 | | Load 0x0,0x7
0b34 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0b35 00cf | | Action Mark_Auxiliary
0b36 7813 |x | Jump 0xb4a
0b37 e403 | | Load 0x2,0x3
0b38 e006 | | Load 0x0,0x6
0b39 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0b3a 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0b3b c404 | | Store 0x2,0x4
0b3c e404 | | Load 0x2,0x4
0b3d e006 | | Load 0x0,0x6
0b3e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0b3f 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0b40 e402 | | Load 0x2,0x2
0b41 012f | / | Execute Any,Equal
0b42 6801 |h | Jump_Zero 0xb44
0b43 8408 | | Call 0x2,0x8
0b44 e403 | | Load 0x2,0x3
0b45 e006 | | Load 0x0,0x6
0b46 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0b47 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0b48 c403 | | Store 0x2,0x3
0b49 00c9 | | Action Pop_Auxiliary_Loop
0b4a e403 | | Load 0x2,0x3
0b4b e006 | | Load 0x0,0x6
0b4c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0b4d 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0b4e 6fe8 |o | Jump_Zero 0xb37
0b4f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0b50 ; --------------------------------------------------------------------------------------
0b50 ; SUBPROGRAM
0b50 ; --------------------------------------------------------------------------------------
0b50 0b53 | S | .CONST 0x0b53 ; Address of begin
0b51 0b5c | \ | .CONST 0x0b5c ; Address of exception handler
0b52 0001 | | .CONST 0x0001 ; Number of locals
0b53 BODY_0b50:
0b53 INIT_0b50:
0b53 e407 | | Load 0x2,0x7
0b54 e009 | | Load 0x0,0x9
0b55 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0b56 e406 | | Load 0x2,0x6
0b57 e009 | | Load 0x0,0x9
0b58 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0b59 e007 | | Load 0x0,0x7
0b5a 180f | | Execute Package,Field_Execute,Field_Number 0xf
0b5b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0b5c TRAP_0b50:
0b5c e007 | | Load 0x0,0x7
0b5d 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0b5e 010f | | Execute Exception,Equal
0b5f 680a |h | Jump_Zero 0xb6a
0b60 4801 |H | Short_Literal 0x1
0b61 e407 | | Load 0x2,0x7
0b62 e009 | | Load 0x0,0x9
0b63 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0b64 e406 | | Load 0x2,0x6
0b65 e009 | | Load 0x0,0x9
0b66 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0b67 e00a | | Load 0x0,0xa
0b68 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
0b69 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0b6a 0100 | | Execute Exception,Raise
0b6b 0000 0000 | | .BLANK 0000[0x5]
0b70 ; --------------------------------------------------------------------------------------
0b70 ; SUBPROGRAM
0b70 ; --------------------------------------------------------------------------------------
0b70 0b77 | w | .CONST 0x0b77 ; Address of begin
0b71 0004 | | .CONST 0x0004 ; Address of exception handler
0b72 0002 | | .CONST 0x0002 ; Number of locals
0b73 INIT_0b70:
0b73 e403 | | Load 0x2,0x3
0b74 e006 | | Load 0x0,0x6
0b75 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0b76 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0b77 BODY_0b70:
0b77 00d8 | | Load_Top At_Offset_0
0b78 822b | + | Call 0x1,0x2b
0b79 6810 |h | Jump_Zero 0xb8a
0b7a e405 | | Load 0x2,0x5
0b7b e403 | | Load 0x2,0x3
0b7c e006 | | Load 0x0,0x6
0b7d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0b7e 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0b7f e00d | | Load 0x0,0xd
0b80 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0b81 e20e | | Load 0x1,0xe
0b82 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0b83 c405 | | Store 0x2,0x5
0b84 e405 | | Load 0x2,0x5
0b85 4801 |H | Short_Literal 0x1
0b86 480a |H | Short_Literal 0xa
0b87 e20e | | Load 0x1,0xe
0b88 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0b89 c405 | | Store 0x2,0x5
0b8a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0b8b 0000 0000 | | .BLANK 0000[0x5]
0b90 ; --------------------------------------------------------------------------------------
0b90 ; SUBPROGRAM
0b90 ; --------------------------------------------------------------------------------------
0b90 0b99 | | .CONST 0x0b99 ; Address of begin
0b91 0004 | | .CONST 0x0004 ; Address of exception handler
0b92 0002 | | .CONST 0x0002 ; Number of locals
0b93 INIT_0b90:
0b93 e403 | | Load 0x2,0x3
0b94 e006 | | Load 0x0,0x6
0b95 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0b96 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0b97 e00d | | Load 0x0,0xd
0b98 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0b99 BODY_0b90:
0b99 e00b | | Load 0x0,0xb
0b9a 180e | | Execute Package,Field_Execute,Field_Number 0xe
0b9b 4803 |H | Short_Literal 0x3
0b9c 0092 0e61 | a| Action Push_String_Extended,0xe61 ; "The new diagram context is "
0b9e 00db | | Load_Top At_Offset_3
0b9f 01cc | | Execute Vector,Catenate
0ba0 e00e | | Load 0x0,0xe
0ba1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0ba2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0ba3 0000 0000 | | .BLANK 0000[0x5]
0ba8 ; --------------------------------------------------------------------------------------
0ba8 ; SUBPROGRAM
0ba8 ; --------------------------------------------------------------------------------------
0ba8 0bae | | .CONST 0x0bae ; Address of begin
0ba9 0004 | | .CONST 0x0004 ; Address of exception handler
0baa 0002 | | .CONST 0x0002 ; Number of locals
0bab INIT_0ba8:
0bab e402 | | Load 0x2,0x2
0bac e008 | | Load 0x0,0x8
0bad 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0bae BODY_0ba8:
0bae e402 | | Load 0x2,0x2
0baf e008 | | Load 0x0,0x8
0bb0 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0bb1 c402 | | Store 0x2,0x2
0bb2 4800 |H | Short_Literal 0x0
0bb3 00cb | | Action Pop_Block_With_Result
0bb4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0bb5 0000 0000 | | .XXX[0x3]
0bb7 0000 | |
0bb8 ; --------------------------------------------------------------------------------------
0bb8 ; SUBPROGRAM
0bb8 ; --------------------------------------------------------------------------------------
0bb8 0bbe | | .CONST 0x0bbe ; Address of begin
0bb9 0004 | | .CONST 0x0004 ; Address of exception handler
0bba 0002 | | .CONST 0x0002 ; Number of locals
0bbb INIT_0bb8:
0bbb e402 | | Load 0x2,0x2
0bbc e008 | | Load 0x0,0x8
0bbd 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0bbe BODY_0bb8:
0bbe e402 | | Load 0x2,0x2
0bbf e008 | | Load 0x0,0x8
0bc0 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0bc1 c402 | | Store 0x2,0x2
0bc2 4801 |H | Short_Literal 0x1
0bc3 0092 0e52 | R| Action Push_String_Extended,0xe52 ; "read"
0bc5 00da | | Load_Top At_Offset_2
0bc6 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
0bc8 e00a | | Load 0x0,0xa
0bc9 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
0bca 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0bcb 0000 0000 | | .BLANK 0000[0x5]
0bd0 ; --------------------------------------------------------------------------------------
0bd0 ; SUBPROGRAM
0bd0 ; --------------------------------------------------------------------------------------
0bd0 0bd6 | | .CONST 0x0bd6 ; Address of begin
0bd1 0004 | | .CONST 0x0004 ; Address of exception handler
0bd2 0002 | | .CONST 0x0002 ; Number of locals
0bd3 INIT_0bd0:
0bd3 e402 | | Load 0x2,0x2
0bd4 e008 | | Load 0x0,0x8
0bd5 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0bd6 BODY_0bd0:
0bd6 e402 | | Load 0x2,0x2
0bd7 e008 | | Load 0x0,0x8
0bd8 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0bd9 c402 | | Store 0x2,0x2
0bda 4801 |H | Short_Literal 0x1
0bdb 00d9 | | Load_Top At_Offset_1
0bdc e00a | | Load 0x0,0xa
0bdd 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0bde 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0bdf 0000 | | .XXX[0x1]
0be0 ; --------------------------------------------------------------------------------------
0be0 ; SUBPROGRAM
0be0 ; --------------------------------------------------------------------------------------
0be0 0be5 | | .CONST 0x0be5 ; Address of begin
0be1 0004 | | .CONST 0x0004 ; Address of exception handler
0be2 0002 | | .CONST 0x0002 ; Number of locals
0be3 INIT_0be0:
0be3 e402 | | Load 0x2,0x2
0be4 8231 | 1 | Call 0x1,0x31
0be5 BODY_0be0:
0be5 00d8 | | Load_Top At_Offset_0
0be6 01dd | | Execute Vector,First
0be7 00d9 | | Load_Top At_Offset_1
0be8 01d7 | | Execute Vector,Field_Read
0be9 00d8 | | Load_Top At_Offset_0
0bea 0d22 | " | Execute_Immediate Less,0x22
0beb 7014 |p | Jump_Nonzero 0xc00
0bec 00d8 | | Load_Top At_Offset_0
0bed 0c2b | + | Execute_Immediate Greater_Equal,0x2b
0bee 7007 |p | Jump_Nonzero 0xbf6
0bef 0b22 | " | Execute_Immediate Case_Compare,0x22
0bf0 7012 |p | Jump_Nonzero 0xc03
0bf1 0b23 | # | Execute_Immediate Case_Compare,0x23
0bf2 703a |p: | Jump_Nonzero 0xc2d
0bf3 0f2a | * | Execute_Immediate Equal,0x2a
0bf4 703f |p? | Jump_Nonzero 0xc34
0bf5 780b |x | Jump 0xc01
0bf6 00d8 | | Load_Top At_Offset_0
0bf7 4841 |HA | Short_Literal 0x41
0bf8 485a |HZ | Short_Literal 0x5a
0bf9 0262 | b | Execute Discrete,In_Range
0bfa 7008 |p | Jump_Nonzero 0xc03
0bfb 4861 |Ha | Short_Literal 0x61
0bfc 487a |Hz | Short_Literal 0x7a
0bfd 0262 | b | Execute Discrete,In_Range
0bfe 7005 |p | Jump_Nonzero 0xc04
0bff 7801 |x | Jump 0xc01
0c00 00d1 | | Pop_Control Pop_Count_1
0c01 00cc | | Action Pop_Block
0c02 7cf7 || | Jump 0x8fa
0c03 00d1 | | Pop_Control Pop_Count_1
0c04 00d8 | | Load_Top At_Offset_0
0c05 01dd | | Execute Vector,First
0c06 00d9 | | Load_Top At_Offset_1
0c07 01d7 | | Execute Vector,Field_Read
0c08 0f22 | " | Execute_Immediate Equal,0x22
0c09 00d9 | | Load_Top At_Offset_1
0c0a 01dc | | Execute Vector,Last
0c0b 00da | | Load_Top At_Offset_2
0c0c 01d7 | | Execute Vector,Field_Read
0c0d 0f22 | " | Execute_Immediate Equal,0x22
0c0e 0279 | y | Execute Discrete,And
0c0f 6817 |h | Jump_Zero 0xc27
0c10 e5fd | | Load 0x2,-0x3
0c11 00d9 | | Load_Top At_Offset_1
0c12 01dd | | Execute Vector,First
0c13 0a01 | | Execute_Immediate Plus,0x1
0c14 00d8 | | Load_Top At_Offset_0
0c15 00e2 | | Load_Encached Integer_Cache
0c16 0260 | ` | Execute Discrete,In_Type
0c17 7001 |p | Jump_Nonzero 0xc19
0c18 0801 | | Execute_Immediate Raise,0x1
0c19 00da | | Load_Top At_Offset_2
0c1a 01dc | | Execute Vector,Last
0c1b 0aff | | Execute_Immediate Plus,-0x1
0c1c 00d8 | | Load_Top At_Offset_0
0c1d 00e2 | | Load_Encached Integer_Cache
0c1e 0260 | ` | Execute Discrete,In_Type
0c1f 7001 |p | Jump_Nonzero 0xc21
0c20 0801 | | Execute_Immediate Raise,0x1
0c21 00db | | Load_Top At_Offset_3
0c22 01cf | | Execute Vector,Slice_Read
0c23 e009 | | Load 0x0,0x9
0c24 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0c25 00d1 | | Pop_Control Pop_Count_1
0c26 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0c27 e5fd | | Load 0x2,-0x3
0c28 00d9 | | Load_Top At_Offset_1
0c29 e009 | | Load 0x0,0x9
0c2a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0c2b 00d1 | | Pop_Control Pop_Count_1
0c2c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0c2d 00d1 | | Pop_Control Pop_Count_1
0c2e e5fc | | Load 0x2,-0x4
0c2f 00d9 | | Load_Top At_Offset_1
0c30 e009 | | Load 0x0,0x9
0c31 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0c32 00d1 | | Pop_Control Pop_Count_1
0c33 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0c34 e5fc | | Load 0x2,-0x4
0c35 00d9 | | Load_Top At_Offset_1
0c36 01dd | | Execute Vector,First
0c37 0a01 | | Execute_Immediate Plus,0x1
0c38 00d8 | | Load_Top At_Offset_0
0c39 00e2 | | Load_Encached Integer_Cache
0c3a 0260 | ` | Execute Discrete,In_Type
0c3b 7001 |p | Jump_Nonzero 0xc3d
0c3c 0801 | | Execute_Immediate Raise,0x1
0c3d 00da | | Load_Top At_Offset_2
0c3e 01dc | | Execute Vector,Last
0c3f 00db | | Load_Top At_Offset_3
0c40 01cf | | Execute Vector,Slice_Read
0c41 e009 | | Load 0x0,0x9
0c42 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0c43 00d1 | | Pop_Control Pop_Count_1
0c44 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0c45 0000 0000 | | .XXX[0x3]
0c47 0000 | |
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 4801 |H | Short_Literal 0x1
0c53 00d9 | | Load_Top At_Offset_1
0c54 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
0c56 e00a | | Load 0x0,0xa
0c57 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
0c58 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0c59 0000 0000 | | .BLANK 0000[0x7]
0c60 ; --------------------------------------------------------------------------------------
0c60 ; SUBPROGRAM
0c60 ; --------------------------------------------------------------------------------------
0c60 0c66 | f | .CONST 0x0c66 ; Address of begin
0c61 0004 | | .CONST 0x0004 ; Address of exception handler
0c62 0002 | | .CONST 0x0002 ; Number of locals
0c63 INIT_0c60:
0c63 e402 | | Load 0x2,0x2
0c64 e008 | | Load 0x0,0x8
0c65 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0c66 BODY_0c60:
0c66 e402 | | Load 0x2,0x2
0c67 e008 | | Load 0x0,0x8
0c68 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0c69 c402 | | Store 0x2,0x2
0c6a 4801 |H | Short_Literal 0x1
0c6b 0092 0e52 | R| Action Push_String_Extended,0xe52 ; "read"
0c6d 00da | | Load_Top At_Offset_2
0c6e 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
0c70 e00a | | Load 0x0,0xa
0c71 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
0c72 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0c73 0000 0000 | | .BLANK 0000[0x5]
0c78 ; --------------------------------------------------------------------------------------
0c78 ; SUBPROGRAM
0c78 ; --------------------------------------------------------------------------------------
0c78 0c7e | ~ | .CONST 0x0c7e ; Address of begin
0c79 0004 | | .CONST 0x0004 ; Address of exception handler
0c7a 0002 | | .CONST 0x0002 ; Number of locals
0c7b INIT_0c78:
0c7b e402 | | Load 0x2,0x2
0c7c e008 | | Load 0x0,0x8
0c7d 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0c7e BODY_0c78:
0c7e e402 | | Load 0x2,0x2
0c7f e008 | | Load 0x0,0x8
0c80 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0c81 c402 | | Store 0x2,0x2
0c82 4801 |H | Short_Literal 0x1
0c83 00d9 | | Load_Top At_Offset_1
0c84 e00a | | Load 0x0,0xa
0c85 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0c86 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0c87 0000 | | .XXX[0x1]
0c88 ; --------------------------------------------------------------------------------------
0c88 ; SUBPROGRAM
0c88 ; --------------------------------------------------------------------------------------
0c88 0c8d | | .CONST 0x0c8d ; Address of begin
0c89 0004 | | .CONST 0x0004 ; Address of exception handler
0c8a 0003 | | .CONST 0x0003 ; Number of locals
0c8b INIT_0c88:
0c8b 00e2 | | Load_Encached Integer_Cache
0c8c 00e2 | | Load_Encached Integer_Cache
0c8d BODY_0c88:
0c8d 00cf | | Action Mark_Auxiliary
0c8e 00cf | | Action Mark_Auxiliary
0c8f 7804 |x | Jump 0xc94
0c90 e403 | | Load 0x2,0x3
0c91 0a01 | | Execute_Immediate Plus,0x1
0c92 c403 | | Store 0x2,0x3
0c93 00c9 | | Action Pop_Auxiliary_Loop
0c94 e403 | | Load 0x2,0x3
0c95 e402 | | Load 0x2,0x2
0c96 027a | z | Execute Discrete,Less_Equal
0c97 6806 |h | Jump_Zero 0xc9e
0c98 e403 | | Load 0x2,0x3
0c99 e5ff | | Load 0x2,-0x1
0c9a e20e | | Load 0x1,0xe
0c9b 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0c9c 822f | / | Call 0x1,0x2f
0c9d 77f2 |w | Jump_Nonzero 0xc90
0c9e 00ce | | Action Pop_Auxiliary
0c9f e403 | | Load 0x2,0x3
0ca0 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0ca1 00cf | | Action Mark_Auxiliary
0ca2 7804 |x | Jump 0xca7
0ca3 e403 | | Load 0x2,0x3
0ca4 0a01 | | Execute_Immediate Plus,0x1
0ca5 c403 | | Store 0x2,0x3
0ca6 00c9 | | Action Pop_Auxiliary_Loop
0ca7 e403 | | Load 0x2,0x3
0ca8 e402 | | Load 0x2,0x2
0ca9 027a | z | Execute Discrete,Less_Equal
0caa 6806 |h | Jump_Zero 0xcb1
0cab e403 | | Load 0x2,0x3
0cac e5ff | | Load 0x2,-0x1
0cad e20e | | Load 0x1,0xe
0cae 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0caf 0e0a | | Execute_Immediate Not_Equal,0xa
0cb0 77f2 |w | Jump_Nonzero 0xca3
0cb1 00ce | | Action Pop_Auxiliary
0cb2 e403 | | Load 0x2,0x3
0cb3 0aff | | Execute_Immediate Plus,-0x1
0cb4 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0cb5 00cf | | Action Mark_Auxiliary
0cb6 7804 |x | Jump 0xcbb
0cb7 00da | | Load_Top At_Offset_2
0cb8 0aff | | Execute_Immediate Plus,-0x1
0cb9 005b | [ | Store_Top Discrete,At_Offset_3
0cba 00c9 | | Action Pop_Auxiliary_Loop
0cbb 00da | | Load_Top At_Offset_2
0cbc e602 | | Load 0x3,0x2
0cbd 027b | { | Execute Discrete,Greater_Equal
0cbe 680b |h | Jump_Zero 0xcca
0cbf 00da | | Load_Top At_Offset_2
0cc0 00d8 | | Load_Top At_Offset_0
0cc1 00e4 | | Load_Encached Positive_Cache
0cc2 0260 | ` | Execute Discrete,In_Type
0cc3 7001 |p | Jump_Nonzero 0xcc5
0cc4 0801 | | Execute_Immediate Raise,0x1
0cc5 e5ff | | Load 0x2,-0x1
0cc6 e20e | | Load 0x1,0xe
0cc7 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0cc8 822f | / | Call 0x1,0x2f
0cc9 77ed |w | Jump_Nonzero 0xcb7
0cca 00ce | | Action Pop_Auxiliary
0ccb e403 | | Load 0x2,0x3
0ccc e402 | | Load 0x2,0x2
0ccd 027a | z | Execute Discrete,Less_Equal
0cce 6803 |h | Jump_Zero 0xcd2
0ccf e403 | | Load 0x2,0x3
0cd0 0a01 | | Execute_Immediate Plus,0x1
0cd1 c403 | | Store 0x2,0x3
0cd2 00d9 | | Load_Top At_Offset_1
0cd3 00db | | Load_Top At_Offset_3
0cd4 027b | { | Execute Discrete,Greater_Equal
0cd5 e403 | | Load 0x2,0x3
0cd6 e402 | | Load 0x2,0x2
0cd7 027d | } | Execute Discrete,Greater
0cd8 0278 | x | Execute Discrete,Or
0cd9 7002 |p | Jump_Nonzero 0xcdc
0cda 00c9 | | Action Pop_Auxiliary_Loop
0cdb 7fb2 | | Jump 0xc8e
0cdc 00ce | | Action Pop_Auxiliary
0cdd 00d8 | | Load_Top At_Offset_0
0cde 00d8 | | Load_Top At_Offset_0
0cdf 00e3 | | Load_Encached Natural_Cache
0ce0 0260 | ` | Execute Discrete,In_Type
0ce1 7001 |p | Jump_Nonzero 0xce3
0ce2 0801 | | Execute_Immediate Raise,0x1
0ce3 00da | | Load_Top At_Offset_2
0ce4 00d8 | | Load_Top At_Offset_0
0ce5 00e4 | | Load_Encached Positive_Cache
0ce6 0260 | ` | Execute Discrete,In_Type
0ce7 7001 |p | Jump_Nonzero 0xce9
0ce8 0801 | | Execute_Immediate Raise,0x1
0ce9 e5ff | | Load 0x2,-0x1
0cea e20e | | Load 0x1,0xe
0ceb 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0cec 00ca | | Action Exit_Nullary_Function
0ced 0000 0000 | | .XXX[0x3]
0cef 0000 | |
0cf0 ; --------------------------------------------------------------------------------------
0cf0 ; SUBPROGRAM
0cf0 ; --------------------------------------------------------------------------------------
0cf0 0cf4 | | .CONST 0x0cf4 ; Address of begin
0cf1 0004 | | .CONST 0x0004 ; Address of exception handler
0cf2 0002 | | .CONST 0x0002 ; Number of locals
0cf3 INIT_0cf0:
0cf3 8404 | | Call 0x2,0x4
0cf4 BODY_0cf0:
0cf4 00d8 | | Load_Top At_Offset_0
0cf5 01db | | Execute Vector,Length
0cf6 7002 |p | Jump_Nonzero 0xcf9
0cf7 00cc | | Action Pop_Block
0cf8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0cf9 00d8 | | Load_Top At_Offset_0
0cfa 01dd | | Execute Vector,First
0cfb 00d9 | | Load_Top At_Offset_1
0cfc 01d7 | | Execute Vector,Field_Read
0cfd 00d8 | | Load_Top At_Offset_0
0cfe 0d21 | ! | Execute_Immediate Less,0x21
0cff 7017 |p | Jump_Nonzero 0xd17
0d00 00d8 | | Load_Top At_Offset_0
0d01 0c2c | , | Execute_Immediate Greater_Equal,0x2c
0d02 700a |p | Jump_Nonzero 0xd0d
0d03 0b22 | " | Execute_Immediate Case_Compare,0x22
0d04 7015 |p | Jump_Nonzero 0xd1a
0d05 00d8 | | Load_Top At_Offset_0
0d06 4823 |H# | Short_Literal 0x23
0d07 4829 |H) | Short_Literal 0x29
0d08 0262 | b | Execute Discrete,In_Range
0d09 700d |p | Jump_Nonzero 0xd17
0d0a 0f2a | * | Execute_Immediate Equal,0x2a
0d0b 703e |p> | Jump_Nonzero 0xd4a
0d0c 7837 |x7 | Jump 0xd44
0d0d 00d8 | | Load_Top At_Offset_0
0d0e 4841 |HA | Short_Literal 0x41
0d0f 485a |HZ | Short_Literal 0x5a
0d10 0262 | b | Execute Discrete,In_Range
0d11 7008 |p | Jump_Nonzero 0xd1a
0d12 4861 |Ha | Short_Literal 0x61
0d13 487a |Hz | Short_Literal 0x7a
0d14 0262 | b | Execute Discrete,In_Range
0d15 7005 |p | Jump_Nonzero 0xd1b
0d16 7801 |x | Jump 0xd18
0d17 00d1 | | Pop_Control Pop_Count_1
0d18 00cc | | Action Pop_Block
0d19 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0d1a 00d1 | | Pop_Control Pop_Count_1
0d1b 00d8 | | Load_Top At_Offset_0
0d1c 01dd | | Execute Vector,First
0d1d 00d9 | | Load_Top At_Offset_1
0d1e 01d7 | | Execute Vector,Field_Read
0d1f 0f22 | " | Execute_Immediate Equal,0x22
0d20 00d9 | | Load_Top At_Offset_1
0d21 01dc | | Execute Vector,Last
0d22 00da | | Load_Top At_Offset_2
0d23 01d7 | | Execute Vector,Field_Read
0d24 0f22 | " | Execute_Immediate Equal,0x22
0d25 0279 | y | Execute Discrete,And
0d26 6817 |h | Jump_Zero 0xd3e
0d27 e5fd | | Load 0x2,-0x3
0d28 00d9 | | Load_Top At_Offset_1
0d29 01dd | | Execute Vector,First
0d2a 0a01 | | 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 00da | | Load_Top At_Offset_2
0d31 01dc | | Execute Vector,Last
0d32 0aff | | Execute_Immediate Plus,-0x1
0d33 00d8 | | Load_Top At_Offset_0
0d34 00e2 | | Load_Encached Integer_Cache
0d35 0260 | ` | Execute Discrete,In_Type
0d36 7001 |p | Jump_Nonzero 0xd38
0d37 0801 | | Execute_Immediate Raise,0x1
0d38 00db | | Load_Top At_Offset_3
0d39 01cf | | Execute Vector,Slice_Read
0d3a e009 | | Load 0x0,0x9
0d3b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0d3c 00d1 | | Pop_Control Pop_Count_1
0d3d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0d3e e5fd | | Load 0x2,-0x3
0d3f 00d9 | | Load_Top At_Offset_1
0d40 e009 | | Load 0x0,0x9
0d41 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0d42 00d1 | | Pop_Control Pop_Count_1
0d43 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0d44 e5fc | | Load 0x2,-0x4
0d45 00d9 | | Load_Top At_Offset_1
0d46 e009 | | Load 0x0,0x9
0d47 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0d48 00d1 | | Pop_Control Pop_Count_1
0d49 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0d4a e5fc | | Load 0x2,-0x4
0d4b 00d9 | | Load_Top At_Offset_1
0d4c 01dd | | Execute Vector,First
0d4d 0a01 | | Execute_Immediate Plus,0x1
0d4e 00d8 | | Load_Top At_Offset_0
0d4f 00e2 | | Load_Encached Integer_Cache
0d50 0260 | ` | Execute Discrete,In_Type
0d51 7001 |p | Jump_Nonzero 0xd53
0d52 0801 | | Execute_Immediate Raise,0x1
0d53 00da | | Load_Top At_Offset_2
0d54 01dc | | Execute Vector,Last
0d55 00db | | Load_Top At_Offset_3
0d56 01cf | | Execute Vector,Slice_Read
0d57 e009 | | Load 0x0,0x9
0d58 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0d59 00d1 | | Pop_Control Pop_Count_1
0d5a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0d5b 0000 0000 | | .BLANK 0000[0x5]
0d60 ; --------------------------------------------------------------------------------------
0d60 ; SUBPROGRAM
0d60 ; --------------------------------------------------------------------------------------
0d60 0d67 | g | .CONST 0x0d67 ; Address of begin
0d61 0004 | | .CONST 0x0004 ; Address of exception handler
0d62 0002 | | .CONST 0x0002 ; Number of locals
0d63 INIT_0d60:
0d63 e22d | - | Load 0x1,0x2d
0d64 e006 | | Load 0x0,0x6
0d65 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0d66 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0d67 BODY_0d60:
0d67 e402 | | Load 0x2,0x2
0d68 e006 | | Load 0x0,0x6
0d69 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0d6a 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
0d6b 4618 |F | Jump_Case 0x19
0d6c 7818 |x | Jump 0xd85 ; case 0x0
0d6d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x1
0d6e 781d |x | Jump 0xd8c ; case 0x2
0d6f 7815 |x | Jump 0xd85 ; case 0x3
0d70 7814 |x | Jump 0xd85 ; case 0x4
0d71 7813 |x | Jump 0xd85 ; case 0x5
0d72 7812 |x | Jump 0xd85 ; case 0x6
0d73 7811 |x | Jump 0xd85 ; case 0x7
0d74 7810 |x | Jump 0xd85 ; case 0x8
0d75 782f |x/ | Jump 0xda5 ; case 0x9
0d76 780e |x | Jump 0xd85 ; case 0xa
0d77 780d |x | Jump 0xd85 ; case 0xb
0d78 780c |x | Jump 0xd85 ; case 0xc
0d79 780b |x | Jump 0xd85 ; case 0xd
0d7a 780a |x | Jump 0xd85 ; case 0xe
0d7b 7809 |x | Jump 0xd85 ; case 0xf
0d7c 7818 |x | Jump 0xd95 ; case 0x10
0d7d 7820 |x | Jump 0xd9e ; case 0x11
0d7e 7806 |x | Jump 0xd85 ; case 0x12
0d7f 7805 |x | Jump 0xd85 ; case 0x13
0d80 7804 |x | Jump 0xd85 ; case 0x14
0d81 7803 |x | Jump 0xd85 ; case 0x15
0d82 7802 |x | Jump 0xd85 ; case 0x16
0d83 7801 |x | Jump 0xd85 ; case 0x17
0d84 7800 |x | Jump 0xd85 ; case 0x18
0d85 4801 |H | Short_Literal 0x1
0d86 00d9 | | Load_Top At_Offset_1
0d87 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
0d89 e00a | | Load 0x0,0xa
0d8a 1844 | D | Execute Package,Field_Execute,Field_Number 0x44
0d8b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0d8c 4801 |H | Short_Literal 0x1
0d8d 0092 0e5e | ^| Action Push_String_Extended,0xe5e ; "used as the context"
0d8f 00da | | Load_Top At_Offset_2
0d90 0092 0e5d | ]| Action Push_String_Extended,0xe5d ; "library"
0d92 e00a | | Load 0x0,0xa
0d93 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0d94 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0d95 4801 |H | Short_Literal 0x1
0d96 0092 0e5e | ^| Action Push_String_Extended,0xe5e ; "used as the context"
0d98 00da | | Load_Top At_Offset_2
0d99 0092 0e5d | ]| Action Push_String_Extended,0xe5d ; "library"
0d9b e00a | | Load 0x0,0xa
0d9c 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
0d9d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0d9e 4801 |H | Short_Literal 0x1
0d9f 00d9 | | Load_Top At_Offset_1
0da0 0092 0e5d | ]| Action Push_String_Extended,0xe5d ; "library"
0da2 e00a | | Load 0x0,0xa
0da3 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
0da4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0da5 4801 |H | Short_Literal 0x1
0da6 00d9 | | Load_Top At_Offset_1
0da7 0092 0e5d | ]| Action Push_String_Extended,0xe5d ; "library"
0da9 e00a | | Load 0x0,0xa
0daa 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0dab 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0dac 0000 0000 | | .BLANK 0000[0x4]
0db0 ; --------------------------------------------------------------------------------------
0db0 ; SUBPROGRAM
0db0 ; --------------------------------------------------------------------------------------
0db0 0db7 | | .CONST 0x0db7 ; Address of begin
0db1 0004 | | .CONST 0x0004 ; Address of exception handler
0db2 0002 | | .CONST 0x0002 ; Number of locals
0db3 INIT_0db0:
0db3 e403 | | Load 0x2,0x3
0db4 e006 | | Load 0x0,0x6
0db5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0db6 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0db7 BODY_0db0:
0db7 e5fe | | Load 0x2,-0x2
0db8 00d9 | | Load_Top At_Offset_1
0db9 e009 | | Load 0x0,0x9
0dba 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0dbb 00d1 | | Pop_Control Pop_Count_1
0dbc 00d8 | | Load_Top At_Offset_0
0dbd 8233 | 3 | Call 0x1,0x33
0dbe 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0dbf 0000 | | .XXX[0x1]
0dc0 ; --------------------------------------------------------------------------------------
0dc0 ; SUBPROGRAM
0dc0 ; --------------------------------------------------------------------------------------
0dc0 0dc7 | | .CONST 0x0dc7 ; Address of begin
0dc1 0dd9 | | .CONST 0x0dd9 ; Address of exception handler
0dc2 0002 | | .CONST 0x0002 ; Number of locals
0dc3 INIT_0dc0:
0dc3 e404 | | Load 0x2,0x4
0dc4 e006 | | Load 0x0,0x6
0dc5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0dc6 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0dc7 BODY_0dc0:
0dc7 e407 | | Load 0x2,0x7
0dc8 e406 | | Load 0x2,0x6
0dc9 e405 | | Load 0x2,0x5
0dca 00db | | Load_Top At_Offset_3
0dcb 8232 | 2 | Call 0x1,0x32
0dcc 00d3 | | Pop_Control Pop_Count_3
0dcd e407 | | Load 0x2,0x7
0dce e009 | | Load 0x0,0x9
0dcf 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0dd0 0c01 | | Execute_Immediate Greater_Equal,0x1
0dd1 6806 |h | Jump_Zero 0xdd8
0dd2 00d8 | | Load_Top At_Offset_0
0dd3 e407 | | Load 0x2,0x7
0dd4 e009 | | Load 0x0,0x9
0dd5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0dd6 e007 | | Load 0x0,0x7
0dd7 180f | | Execute Package,Field_Execute,Field_Number 0xf
0dd8 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0dd9 TRAP_0dc0:
0dd9 e20d | | Load 0x1,0xd
0dda 010f | | Execute Exception,Equal
0ddb 6801 |h | Jump_Zero 0xddd
0ddc 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0ddd e007 | | Load 0x0,0x7
0dde 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0ddf 010f | | Execute Exception,Equal
0de0 680c |h | Jump_Zero 0xded
0de1 4801 |H | Short_Literal 0x1
0de2 e5ff | | Load 0x2,-0x1
0de3 e006 | | Load 0x0,0x6
0de4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0de5 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0de6 e407 | | Load 0x2,0x7
0de7 e009 | | Load 0x0,0x9
0de8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0de9 e602 | | Load 0x3,0x2
0dea e00a | | Load 0x0,0xa
0deb 1842 | B | Execute Package,Field_Execute,Field_Number 0x42
0dec 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0ded 4931 |I1 | Short_Literal 0x131
0dee 010f | | Execute Exception,Equal
0def 6809 |h | Jump_Zero 0xdf9
0df0 4801 |H | Short_Literal 0x1
0df1 0092 0e52 | R| Action Push_String_Extended,0xe52 ; "read"
0df3 00db | | Load_Top At_Offset_3
0df4 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
0df6 e00a | | Load 0x0,0xa
0df7 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
0df8 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0df9 4932 |I2 | Short_Literal 0x132
0dfa 010f | | Execute Exception,Equal
0dfb 6809 |h | Jump_Zero 0xe05
0dfc 4801 |H | Short_Literal 0x1
0dfd 0092 0e52 | R| Action Push_String_Extended,0xe52 ; "read"
0dff 00db | | Load_Top At_Offset_3
0e00 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
0e02 e00a | | Load 0x0,0xa
0e03 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0e04 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0e05 4933 |I3 | Short_Literal 0x133
0e06 010f | | Execute Exception,Equal
0e07 6807 |h | Jump_Zero 0xe0f
0e08 4801 |H | Short_Literal 0x1
0e09 00da | | Load_Top At_Offset_2
0e0a 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
0e0c e00a | | Load 0x0,0xa
0e0d 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
0e0e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0e0f 4934 |I4 | Short_Literal 0x134
0e10 010f | | Execute Exception,Equal
0e11 6809 |h | Jump_Zero 0xe1b
0e12 4801 |H | Short_Literal 0x1
0e13 0092 0e52 | R| Action Push_String_Extended,0xe52 ; "read"
0e15 00db | | Load_Top At_Offset_3
0e16 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
0e18 e00a | | Load 0x0,0xa
0e19 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
0e1a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0e1b 4935 |I5 | Short_Literal 0x135
0e1c 010f | | Execute Exception,Equal
0e1d 6809 |h | Jump_Zero 0xe27
0e1e 4801 |H | Short_Literal 0x1
0e1f 0092 0e52 | R| Action Push_String_Extended,0xe52 ; "read"
0e21 00db | | Load_Top At_Offset_3
0e22 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
0e24 e00a | | Load 0x0,0xa
0e25 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0e26 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0e27 4936 |I6 | Short_Literal 0x136
0e28 010f | | Execute Exception,Equal
0e29 6809 |h | Jump_Zero 0xe33
0e2a 4801 |H | Short_Literal 0x1
0e2b 0092 0e52 | R| Action Push_String_Extended,0xe52 ; "read"
0e2d 00db | | Load_Top At_Offset_3
0e2e 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
0e30 e00a | | Load 0x0,0xa
0e31 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0e32 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0e33 00d8 | | Load_Top At_Offset_0
0e34 0107 | | Execute Exception,Get_Name
0e35 4940 |I@ | Short_Literal 0x140
0e36 494f |IO | Short_Literal 0x14f
0e37 0262 | b | Execute Discrete,In_Range
0e38 6809 |h | Jump_Zero 0xe42
0e39 4801 |H | Short_Literal 0x1
0e3a 0092 0e52 | R| Action Push_String_Extended,0xe52 ; "read"
0e3c 00db | | Load_Top At_Offset_3
0e3d 0092 0e51 | Q| Action Push_String_Extended,0xe51 ; "diagram"
0e3f e00a | | Load 0x0,0xa
0e40 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
0e41 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0e42 00d8 | | Load_Top At_Offset_0
0e43 0107 | | Execute Exception,Get_Name
0e44 4960 |I` | Short_Literal 0x160
0e45 496f |Io | Short_Literal 0x16f
0e46 0262 | b | Execute Discrete,In_Range
0e47 6805 |h | Jump_Zero 0xe4d
0e48 4801 |H | Short_Literal 0x1
0e49 00da | | Load_Top At_Offset_2
0e4a e00a | | Load 0x0,0xa
0e4b 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0e4c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0e4d 0100 | | Execute Exception,Raise
0e4e ; --------------------------------------------------------------------------------------
0e4e ; STRING TABLE
0e4e ; --------------------------------------------------------------------------------------
0e4e 002a | * | .STRTAB 0x002a->0x0e63 ; "POSTSCRIPT"
0e4f 0032 | 2 | .STRTAB 0x0032->0x0e68 ; "MIL"
0e50 0033 | 3 | .STRTAB 0x0033->0x0e69 ; "--- INSIGHT DIAGRAM ---"
0e51 0048 | H | .STRTAB 0x0048->0x0e75 ; "diagram"
0e52 004d | M | .STRTAB 0x004d->0x0e78 ; "read"
0e53 004f | O | .STRTAB 0x004f->0x0e7a ; "written"
0e54 0054 | T | .STRTAB 0x0054->0x0e7e ; "<PROFILE>"
0e55 005b | [ | .STRTAB 0x005b->0x0e82 ; "<QUIET>"
0e56 0060 | ` | .STRTAB 0x0060->0x0e86 ; "print file"
0e57 0068 | h | .STRTAB 0x0068->0x0e8b ; "deleted"
0e58 006d | m | .STRTAB 0x006d->0x0e8e ; "deleted);"
0e59 0074 | t | .STRTAB 0x0074->0x0e93 ; "reading"
0e5a 0079 | y | .STRTAB 0x0079->0x0e96 ; ".@"
0e5b 0079 | y | .STRTAB 0x0079->0x0e97 ; "<DIRECTORIES>"
0e5c 0084 | | .STRTAB 0x0084->0x0e9e ; "TEXT"
0e5d 0086 | | .STRTAB 0x0086->0x0ea0 ; "library"
0e5e 008b | | .STRTAB 0x008b->0x0ea3 ; "used as the context"
0e5f 009c | | .STRTAB 0x009c->0x0ead ; "text"
0e60 009e | | .STRTAB 0x009e->0x0eaf ; "@"
0e61 009d | | .STRTAB 0x009d->0x0eaf ; "The new diagram context is "
0e62 00b6 | | .STREND 0x00b6->0x0ebd
0e63 504f 5354 |POST| .STRTAB_STRINGS
0ebd 0000 0000 | | .XXX[0x3]
0ebf 0000 | |
0ec0 ; --------------------------------------------------------------------------------------
0ec0 ; Debug Table
0ec0 ; --------------------------------------------------------------------------------------
0ec0 0004 0014 | | .DEBUG4 0x0004,0x0014,0x3653,0x0000,0x0001,0x0000
0ec6 06be 8af1 | | .XXX[0x13a]
0ec8 7cd2 c95e || ^|
0eca 0ce7 2013 | |
0ecc 7b69 8809 |{i |
0ece 0802 0891 | |
0ed0 a683 b7e0 | |
0ed2 8aac 23b0 | # |
0ed4 03b1 7136 | q6|
0ed6 4dee 107f |M |
0ed8 8390 142b | +|
0eda 8007 e2e7 | |
0edc 1806 08e9 | |
0ede 6993 311c |i 1 |
0ee0 4b83 0408 |K |
0ee2 1f30 2b88 | 0+ |
0ee4 abb0 004d | M|
0ee6 8b67 096e | g n|
0ee8 05c3 0c13 | |
0eea e028 1009 | ( |
0eec 8669 c12e | i .|
0eee 9910 ee23 | #|
0ef0 cfe8 10c0 | |
0ef2 2648 1b78 |&H x|
0ef4 2548 16e8 |%H |
0ef6 1878 40f7 | x@ |
0ef8 11da 1405 | |
0efa 7804 123d |x =|
0efc b716 5c40 | \@|
0efe 3200 0dc0 |2 |
0f00 88a3 7c08 | | |
0f02 19e4 843a | :|
0f04 8810 8072 | r|
0f06 002e a12a | . *|
0f08 db1c 0830 | 0|
0f0a 6812 ae6d |h m|
0f0c 5496 1da0 |T |
0f0e c211 2218 | " |
0f10 0208 07d4 | |
0f12 c23a 00bb | : |
0f14 0084 cb72 | r|
0f16 8438 b0e7 | 8 |
0f18 b243 a707 | C |
0f1a 9735 6901 | 5i |
0f1c 6583 b30f |e |
0f1e 2d10 011a |- |
0f20 4844 0b28 |HD (|
0f22 1506 c97a | z|
0f24 125d 0570 | ] p|
0f26 9000 2248 | "H|
0f28 bd24 3700 | $7 |
0f2a f6c8 940a | |
0f2c 6a30 04a4 |j0 |
0f2e 0fba 4411 | D |
0f30 27b2 0610 |' |
0f32 1657 56a0 | WV |
0f34 ac10 e403 | |
0f36 3978 5a8d |9xZ |
0f38 fb36 6e98 | 6n |
0f3a 9de5 ad65 | e|
0f3c 34d8 9cc8 |4 |
0f3e 038c e54c | L|
0f40 3d3c 4947 |=<IG|
0f42 9e20 f37a | z|
0f44 f748 420e | HB |
0f46 bed1 9e40 | @|
0f48 0c00 7981 | y |
0f4a fdc4 0192 | |
0f4c 6cd9 5c1d |l \ |
0f4e 1ab3 887b | {|
0f50 13ab 44ce | D |
0f52 23c5 000a |# |
0f54 122b 38a6 | +8 |
0f56 3d8f 9203 |= |
0f58 df84 0a86 | |
0f5a 55f1 39a0 |U 9 |
0f5c 14f5 0ffb | |
0f5e 35ce 9bb7 |5 |
0f60 4ccd 203d |L =|
0f62 8854 5438 | TT8|
0f64 0203 6a21 | j!|
0f66 ccbd 01db | |
0f68 292c 62e0 |),b |
0f6a aa89 2092 | |
0f6c 4449 5063 |DIPc|
0f6e 4542 0004 |EB |
0f70 e13c f83f | < ?|
0f72 fd94 5002 | P |
0f74 7544 bcab |uD |
0f76 bd5e 09eb | ^ |
0f78 4594 1188 |E |
0f7a d8ba 9d71 | q|
0f7c 5241 06f8 |RA |
0f7e ca93 c80b | |
0f80 c097 9511 | |
0f82 7a01 be00 |z |
0f84 14b2 c04c | L|
0f86 fcac 8a91 | |
0f88 2580 00ce |% |
0f8a 6b11 381b |k 8 |
0f8c 4186 604f |A `O|
0f8e e009 607c | `||
0f90 94d1 967b | {|
0f92 0d0d 2b03 | + |
0f94 6a4d fc40 |jM @|
0f96 a998 6ca6 | l |
0f98 3106 0700 |1 |
0f9a 3b97 1b4f |; O|
0f9c 4407 43d1 |D C |
0f9e 945d c5e2 | ] |
0fa0 a657 0339 | W 9|
0fa2 5689 144d |V M|
0fa4 8302 1ab0 | |
0fa6 78d0 313e |x 1>|
0fa8 6704 0efe |g |
0faa b5b9 0c1e | |
0fac e060 1569 | ` i|
0fae ca24 8800 | $ |
0fb0 7b8c c23a |{ :|
0fb2 e98e 420c | B |
0fb4 1973 9110 | s |
0fb6 c456 dc26 | V &|
0fb8 96a8 2c7d | ,}|
0fba 43f3 8079 |C y|
0fbc 2404 08c1 |$ |
0fbe 780c bf00 |x |
0fc0 d700 b823 | #|
0fc2 9c8f 1a05 | |
0fc4 b8e1 0b18 | |
0fc6 24ac 0eef |$ |
0fc8 239f c168 |# h|
0fca 403a e463 |@: c|
0fcc 8c55 7911 | Uy |
0fce f203 0b36 | 6|
0fd0 2ea0 3f42 |. ?B|
0fd2 4c24 02f0 |L$ |
0fd4 00ec 3234 | 24|
0fd6 1531 9edc | 1 |
0fd8 a000 a00d | |
0fda 4111 782f |A x/|
0fdc 5485 907d |T }|
0fde dba1 7123 | q#|
0fe0 de44 2be5 | D+ |
0fe2 db5a 16c0 | Z |
0fe4 84bd 00fe | |
0fe6 02b7 80d7 | |
0fe8 e00b 60d6 | ` |
0fea d9e3 0077 | w|
0fec 3d66 35ac |=f5 |
0fee 7787 d30a |w |
0ff0 9361 3400 | a4 |
0ff2 0108 112c | ,|
0ff4 3dd4 3010 |= 0 |
0ff6 c0c7 c05a | Z|
0ff8 3697 4216 |6 B |
0ffa 48a6 284f |H (O|
0ffc cc18 3701 | 7 |
0ffe 80a4 4d2b | M+|