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