|
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: 7168 (0x1c00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_11cacfe
└─⟦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 0c70 | p | .CONST 0x0c70 ; 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 8007 | | .CONST 0x8007 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0080 | | .CONST 0x0080 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0031 | 1 | .CONST 0x0031 ; 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 e002 | | Load 0x0,0x2
0027 0129 | ) | Execute Any,Make_Visible
0028 c219 | | Store 0x1,0x19
0029 e003 | | Load 0x0,0x3
002a e004 | | Load 0x0,0x4
002b 4be8 |K | Short_Literal 0x3e8
002c e005 | | Load 0x0,0x5
002d 0386 | | Declare_Variable Package,Visible
002e 00d8 | | Load_Top At_Offset_0
002f 020f | | Execute Module,Activate
0030 c20e | | Store 0x1,0xe
0031 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated
0033 c21e | | Store 0x1,0x1e
0034 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated
0036 c21f | | Store 0x1,0x1f
0037 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated
0039 c220 | | Store 0x1,0x20
003a 029a 02eb | | Declare_Subprogram INIT_02e8,For_Outer_Call,Visible,Unelaborated
003c c225 | % | Store 0x1,0x25
003d 029a 03d3 | | Declare_Subprogram INIT_03d0,For_Outer_Call,Visible,Unelaborated
003f c221 | ! | Store 0x1,0x21
0040 029a 058b | | Declare_Subprogram INIT_0588,For_Outer_Call,Visible,Unelaborated
0042 c226 | & | Store 0x1,0x26
0043 029a 05f3 | | Declare_Subprogram INIT_05f0,For_Outer_Call,Visible,Unelaborated
0045 c222 | " | Store 0x1,0x22
0046 029a 06a3 | | Declare_Subprogram INIT_06a0,For_Outer_Call,Visible,Unelaborated
0048 c223 | # | Store 0x1,0x23
0049 029a 06b3 | | Declare_Subprogram INIT_06b0,For_Outer_Call,Visible,Unelaborated
004b c224 | $ | Store 0x1,0x24
004c 029a 06c3 | | Declare_Subprogram INIT_06c0,For_Outer_Call,Visible,Unelaborated
004e c21d | | Store 0x1,0x1d
004f 00bf | | Action Accept_Activation
0050 0092 0c16 | | Action Push_String_Extended,0xc16 ; "--- DISCOVER DIAGRAM ---"
0052 e006 | | Load 0x0,0x6
0053 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0054 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0055 02c7 | | Declare_Variable Any
0056 e006 | | Load 0x0,0x6
0057 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0058 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0059 a228 | ( | Store_Unchecked 0x1,0x28
005a 029d 06cb | | Declare_Subprogram INIT_06c8,For_Outer_Call
005c 029d 06f3 | | Declare_Subprogram INIT_06f0,For_Outer_Call
005e 029d 0703 | | Declare_Subprogram INIT_0700,For_Outer_Call
0060 029d 0743 | C| Declare_Subprogram INIT_0740,For_Outer_Call
0062 029d 0783 | | Declare_Subprogram INIT_0780,For_Outer_Call
0064 029d 0833 | 3| Declare_Subprogram INIT_0830,For_Outer_Call
0066 029d 085b | [| Declare_Subprogram INIT_0858,For_Outer_Call
0068 029d 087b | {| Declare_Subprogram INIT_0878,For_Outer_Call
006a 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
006b 00c7 | | Action Elaborate_Subprogram
006c 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
006d 00c7 | | Action Elaborate_Subprogram
006e 1d20 | | Execute_Immediate Reference_Lex_1,0x20
006f 00c7 | | Action Elaborate_Subprogram
0070 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
0071 00c7 | | Action Elaborate_Subprogram
0072 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
0073 00c7 | | Action Elaborate_Subprogram
0074 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
0075 00c7 | | Action Elaborate_Subprogram
0076 029d 097b | {| Declare_Subprogram INIT_0978,For_Outer_Call
0078 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0079 00c7 | | Action Elaborate_Subprogram
007a 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
007b 00c7 | | Action Elaborate_Subprogram
007c 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
007d 00c7 | | Action Elaborate_Subprogram
007e 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
007f 00c7 | | Action Elaborate_Subprogram
0080 BODY_0008:
0080 e007 | | Load 0x0,0x7
0081 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0082 00bc | | Action Signal_Activated
0083 00bb | | Action Signal_Completion
0084 0000 0000 | | .BLANK 0000[0x4]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008c | | .CONST 0x008c ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0002 | | .CONST 0x0002 ; Number of locals
008b INIT_0088:
008b 00e1 | | Load_Encached Boolean_Cache
008c BODY_0088:
008c 00e1 | | Load_Encached Boolean_Cache
008d 00e1 | | Load_Encached Boolean_Cache
008e e5fd | | Load 0x2,-0x3
008f e5fe | | Load 0x2,-0x2
0090 e5ff | | Load 0x2,-0x1
0091 8230 | 0 | Call 0x1,0x30
0092 00d2 | | Pop_Control Pop_Count_2
0093 c5fc | | Store 0x2,-0x4
0094 0059 | Y | Store_Top Discrete,At_Offset_1
0095 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0096 0000 0000 | | .XXX[0x2]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 00a4 | | .CONST 0x00a4 ; Address of begin
0099 00d5 | | .CONST 0x00d5 ; Address of exception handler
009a 0005 | | .CONST 0x0005 ; Number of locals
009b INIT_0098:
009b e008 | | Load 0x0,0x8
009c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
009d 02c7 | | Declare_Variable Any
009e 00d8 | | Load_Top At_Offset_0
009f 1c00 | | Execute_Immediate Run_Utility,0x0
00a0 00e8 | | Load_Encached Character_Cache
00a1 e20e | | Load 0x1,0xe
00a2 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
00a3 00e3 | | Load_Encached Natural_Cache
00a4 BODY_0098:
00a4 00be | | Action Activate_Tasks
00a5 822f | / | Call 0x1,0x2f
00a6 00db | | Load_Top At_Offset_3
00a7 00ea | | Load_Encached Null_String_Cache
00a8 e5ff | | Load 0x2,-0x1
00a9 e009 | | Load 0x0,0x9
00aa 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00ab 4800 |H | Short_Literal 0x0
00ac e008 | | Load 0x0,0x8
00ad 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00ae c402 | | Store 0x2,0x2
00af 00db | | Load_Top At_Offset_3
00b0 8229 | ) | Call 0x1,0x29
00b1 00cf | | Action Mark_Auxiliary
00b2 7816 |x | Jump 0xc9
00b3 e402 | | Load 0x2,0x2
00b4 e008 | | Load 0x0,0x8
00b5 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
00b6 6806 |h | Jump_Zero 0xbd
00b7 00da | | Load_Top At_Offset_2
00b8 4801 |H | Short_Literal 0x1
00b9 480a |H | Short_Literal 0xa
00ba e20e | | Load 0x1,0xe
00bb 181f | | Execute Package,Field_Execute,Field_Number 0x1f
00bc 003b | ; | Store_Top Access,At_Offset_3
00bd 00e8 | | Load_Encached Character_Cache
00be e402 | | Load 0x2,0x2
00bf e008 | | Load 0x0,0x8
00c0 1844 | D | Execute Package,Field_Execute,Field_Number 0x44
00c1 c403 | | Store 0x2,0x3
00c2 00da | | Load_Top At_Offset_2
00c3 4801 |H | Short_Literal 0x1
00c4 e403 | | Load 0x2,0x3
00c5 e20e | | Load 0x1,0xe
00c6 181f | | Execute Package,Field_Execute,Field_Number 0x1f
00c7 003b | ; | Store_Top Access,At_Offset_3
00c8 00c9 | | Action Pop_Auxiliary_Loop
00c9 e402 | | Load 0x2,0x2
00ca e008 | | Load 0x0,0x8
00cb 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
00cc 6fe6 |o | Jump_Zero 0xb3
00cd 00ce | | Action Pop_Auxiliary
00ce 00db | | Load_Top At_Offset_3
00cf e008 | | Load 0x0,0x8
00d0 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00d1 c402 | | Store 0x2,0x2
00d2 00d9 | | Load_Top At_Offset_1
00d3 a5fe | | Store_Unchecked 0x2,-0x2
00d4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00d5 TRAP_0098:
00d5 00d8 | | Load_Top At_Offset_0
00d6 0107 | | Execute Exception,Get_Name
00d7 4950 |IP | Short_Literal 0x150
00d8 495f |I_ | Short_Literal 0x15f
00d9 0262 | b | Execute Discrete,In_Range
00da 6811 |h | Jump_Zero 0xec
00db 00da | | Load_Top At_Offset_2
00dc 4801 |H | Short_Literal 0x1
00dd 480a |H | Short_Literal 0xa
00de e20e | | Load 0x1,0xe
00df 181f | | Execute Package,Field_Execute,Field_Number 0x1f
00e0 003b | ; | Store_Top Access,At_Offset_3
00e1 e402 | | Load 0x2,0x2
00e2 e008 | | Load 0x0,0x8
00e3 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00e4 c402 | | Store 0x2,0x2
00e5 00da | | Load_Top At_Offset_2
00e6 a5fe | | Store_Unchecked 0x2,-0x2
00e7 00da | | Load_Top At_Offset_2
00e8 e20e | | Load 0x1,0xe
00e9 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00ea 003b | ; | Store_Top Access,At_Offset_3
00eb 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00ec 4921 |I! | Short_Literal 0x121
00ed 010f | | Execute Exception,Equal
00ee 6807 |h | Jump_Zero 0xf6
00ef 4801 |H | Short_Literal 0x1
00f0 e5ff | | Load 0x2,-0x1
00f1 e009 | | Load 0x0,0x9
00f2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00f3 e00a | | Load 0x0,0xa
00f4 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
00f5 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00f6 4922 |I" | Short_Literal 0x122
00f7 010f | | Execute Exception,Equal
00f8 6807 |h | Jump_Zero 0x100
00f9 4801 |H | Short_Literal 0x1
00fa e5ff | | Load 0x2,-0x1
00fb e009 | | Load 0x0,0x9
00fc 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00fd e00a | | Load 0x0,0xa
00fe 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
00ff 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0100 4923 |I# | Short_Literal 0x123
0101 010f | | Execute Exception,Equal
0102 6809 |h | Jump_Zero 0x10c
0103 4801 |H | Short_Literal 0x1
0104 e5ff | | Load 0x2,-0x1
0105 e009 | | Load 0x0,0x9
0106 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0107 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
0109 e00a | | Load 0x0,0xa
010a 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
010b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
010c 4924 |I$ | Short_Literal 0x124
010d 010f | | Execute Exception,Equal
010e 6809 |h | Jump_Zero 0x118
010f 4801 |H | Short_Literal 0x1
0110 e5ff | | Load 0x2,-0x1
0111 e009 | | Load 0x0,0x9
0112 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0113 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
0115 e00a | | Load 0x0,0xa
0116 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0117 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0118 4925 |I% | Short_Literal 0x125
0119 010f | | Execute Exception,Equal
011a 6807 |h | Jump_Zero 0x122
011b 4801 |H | Short_Literal 0x1
011c e5ff | | Load 0x2,-0x1
011d e009 | | Load 0x0,0x9
011e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
011f e00a | | Load 0x0,0xa
0120 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0121 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0122 4931 |I1 | Short_Literal 0x131
0123 010f | | Execute Exception,Equal
0124 680b |h | Jump_Zero 0x130
0125 4801 |H | Short_Literal 0x1
0126 0092 0c18 | | Action Push_String_Extended,0xc18 ; "read"
0128 e5ff | | Load 0x2,-0x1
0129 e009 | | Load 0x0,0x9
012a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
012b 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
012d e00a | | Load 0x0,0xa
012e 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
012f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0130 4932 |I2 | Short_Literal 0x132
0131 010f | | Execute Exception,Equal
0132 680b |h | Jump_Zero 0x13e
0133 4801 |H | Short_Literal 0x1
0134 0092 0c18 | | Action Push_String_Extended,0xc18 ; "read"
0136 e5ff | | Load 0x2,-0x1
0137 e009 | | Load 0x0,0x9
0138 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0139 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
013b e00a | | Load 0x0,0xa
013c 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
013d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
013e 4933 |I3 | Short_Literal 0x133
013f 010f | | Execute Exception,Equal
0140 6809 |h | Jump_Zero 0x14a
0141 4801 |H | Short_Literal 0x1
0142 e5ff | | Load 0x2,-0x1
0143 e009 | | Load 0x0,0x9
0144 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0145 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
0147 e00a | | Load 0x0,0xa
0148 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
0149 4502 |E | Exit_Suprogram New_Top_Offset 0x2
014a e20d | | Load 0x1,0xd
014b 010f | | Execute Exception,Equal
014c 680d |h | Jump_Zero 0x15a
014d e402 | | Load 0x2,0x2
014e e008 | | Load 0x0,0x8
014f 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0150 c402 | | Store 0x2,0x2
0151 4801 |H | Short_Literal 0x1
0152 e5ff | | Load 0x2,-0x1
0153 e009 | | Load 0x0,0x9
0154 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0155 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
0157 e00a | | Load 0x0,0xa
0158 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
0159 4502 |E | Exit_Suprogram New_Top_Offset 0x2
015a 4934 |I4 | Short_Literal 0x134
015b 010f | | Execute Exception,Equal
015c 680b |h | Jump_Zero 0x168
015d 4801 |H | Short_Literal 0x1
015e 0092 0c18 | | Action Push_String_Extended,0xc18 ; "read"
0160 e5ff | | Load 0x2,-0x1
0161 e009 | | Load 0x0,0x9
0162 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0163 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
0165 e00a | | Load 0x0,0xa
0166 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
0167 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0168 4935 |I5 | Short_Literal 0x135
0169 010f | | Execute Exception,Equal
016a 680b |h | Jump_Zero 0x176
016b 4801 |H | Short_Literal 0x1
016c 0092 0c18 | | Action Push_String_Extended,0xc18 ; "read"
016e e5ff | | Load 0x2,-0x1
016f e009 | | Load 0x0,0x9
0170 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0171 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
0173 e00a | | Load 0x0,0xa
0174 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0175 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0176 4936 |I6 | Short_Literal 0x136
0177 010f | | Execute Exception,Equal
0178 680b |h | Jump_Zero 0x184
0179 4801 |H | Short_Literal 0x1
017a 0092 0c18 | | Action Push_String_Extended,0xc18 ; "read"
017c e5ff | | Load 0x2,-0x1
017d e009 | | Load 0x0,0x9
017e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
017f 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
0181 e00a | | Load 0x0,0xa
0182 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0183 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0184 00d8 | | Load_Top At_Offset_0
0185 0107 | | Execute Exception,Get_Name
0186 4940 |I@ | Short_Literal 0x140
0187 494f |IO | Short_Literal 0x14f
0188 0262 | b | Execute Discrete,In_Range
0189 680f |h | Jump_Zero 0x199
018a e402 | | Load 0x2,0x2
018b e008 | | Load 0x0,0x8
018c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
018d c402 | | Store 0x2,0x2
018e 4801 |H | Short_Literal 0x1
018f 0092 0c18 | | Action Push_String_Extended,0xc18 ; "read"
0191 e5ff | | Load 0x2,-0x1
0192 e009 | | Load 0x0,0x9
0193 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0194 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
0196 e00a | | Load 0x0,0xa
0197 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
0198 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0199 00d8 | | Load_Top At_Offset_0
019a 0107 | | Execute Exception,Get_Name
019b 4960 |I` | Short_Literal 0x160
019c 496f |Io | Short_Literal 0x16f
019d 0262 | b | Execute Discrete,In_Range
019e 680b |h | Jump_Zero 0x1aa
019f e402 | | Load 0x2,0x2
01a0 e008 | | Load 0x0,0x8
01a1 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01a2 c402 | | Store 0x2,0x2
01a3 4801 |H | Short_Literal 0x1
01a4 e5ff | | Load 0x2,-0x1
01a5 e009 | | Load 0x0,0x9
01a6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01a7 e00a | | Load 0x0,0xa
01a8 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
01a9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01aa 0100 | | Execute Exception,Raise
01ab 0000 0000 | | .BLANK 0000[0x5]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01e1 | | .CONST 0x01e1 ; Address of begin
01b1 023c | < | .CONST 0x023c ; Address of exception handler
01b2 000c | | .CONST 0x000c ; Number of locals
01b3 INIT_01b0:
01b3 e008 | | Load 0x0,0x8
01b4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01b5 02c7 | | Declare_Variable Any
01b6 00d8 | | Load_Top At_Offset_0
01b7 1c00 | | Execute_Immediate Run_Utility,0x0
01b8 00e8 | | Load_Encached Character_Cache
01b9 48ff |H | Short_Literal 0xff
01ba e009 | | Load 0x0,0x9
01bb 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01bc 1c08 | | Execute_Immediate Run_Utility,0x8
01bd 00d8 | | Load_Top At_Offset_0
01be 1c00 | | Execute_Immediate Run_Utility,0x0
01bf 48ff |H | Short_Literal 0xff
01c0 e009 | | Load 0x0,0x9
01c1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01c2 1c08 | | Execute_Immediate Run_Utility,0x8
01c3 00d8 | | Load_Top At_Offset_0
01c4 1c00 | | Execute_Immediate Run_Utility,0x0
01c5 48ff |H | Short_Literal 0xff
01c6 e009 | | Load 0x0,0x9
01c7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01c8 1c08 | | Execute_Immediate Run_Utility,0x8
01c9 00d8 | | Load_Top At_Offset_0
01ca 1c00 | | Execute_Immediate Run_Utility,0x0
01cb 48ff |H | Short_Literal 0xff
01cc e009 | | Load 0x0,0x9
01cd 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01ce 1c08 | | Execute_Immediate Run_Utility,0x8
01cf 00d8 | | Load_Top At_Offset_0
01d0 1c00 | | Execute_Immediate Run_Utility,0x0
01d1 48ff |H | Short_Literal 0xff
01d2 e009 | | Load 0x0,0x9
01d3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01d4 1c08 | | Execute_Immediate Run_Utility,0x8
01d5 00d8 | | Load_Top At_Offset_0
01d6 1c00 | | Execute_Immediate Run_Utility,0x0
01d7 00e1 | | Load_Encached Boolean_Cache
01d8 00e1 | | Load_Encached Boolean_Cache
01d9 e006 | | Load 0x0,0x6
01da 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01db 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01dc 02c7 | | Declare_Variable Any
01dd 00d8 | | Load_Top At_Offset_0
01de 1c00 | | Execute_Immediate Run_Utility,0x0
01df 029f 09cb | | Declare_Subprogram INIT_09c8,For_Call
01e1 BODY_01b0:
01e1 00be | | Action Activate_Tasks
01e2 00e1 | | Load_Encached Boolean_Cache
01e3 00e1 | | Load_Encached Boolean_Cache
01e4 e408 | | Load 0x2,0x8
01e5 e407 | | Load 0x2,0x7
01e6 e5ff | | Load 0x2,-0x1
01e7 8230 | 0 | Call 0x1,0x30
01e8 00d2 | | Pop_Control Pop_Count_2
01e9 c409 | | Store 0x2,0x9
01ea 005b | [ | Store_Top Discrete,At_Offset_3
01eb e406 | | Load 0x2,0x6
01ec e405 | | Load 0x2,0x5
01ed e404 | | Load 0x2,0x4
01ee e5fe | | Load 0x2,-0x2
01ef 822e | . | Call 0x1,0x2e
01f0 00d3 | | Pop_Control Pop_Count_3
01f1 00da | | Load_Top At_Offset_2
01f2 6819 |h | Jump_Zero 0x20c
01f3 e406 | | Load 0x2,0x6
01f4 e009 | | Load 0x0,0x9
01f5 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
01f6 0c01 | | Execute_Immediate Greater_Equal,0x1
01f7 6814 |h | Jump_Zero 0x20c
01f8 e407 | | Load 0x2,0x7
01f9 e009 | | Load 0x0,0x9
01fa 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01fb e406 | | Load 0x2,0x6
01fc e009 | | Load 0x0,0x9
01fd 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01fe e007 | | Load 0x0,0x7
01ff 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0200 680b |h | Jump_Zero 0x20c
0201 4801 |H | Short_Literal 0x1
0202 e406 | | Load 0x2,0x6
0203 e009 | | Load 0x0,0x9
0204 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0205 e007 | | Load 0x0,0x7
0206 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0207 e406 | | Load 0x2,0x6
0208 e009 | | Load 0x0,0x9
0209 1813 | | Execute Package,Field_Execute,Field_Number 0x13
020a e00a | | Load 0x0,0xa
020b 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
020c e402 | | Load 0x2,0x2
020d 00ea | | Load_Encached Null_String_Cache
020e e407 | | Load 0x2,0x7
020f e009 | | Load 0x0,0x9
0210 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0211 4801 |H | Short_Literal 0x1
0212 e008 | | Load 0x0,0x8
0213 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0214 c402 | | Store 0x2,0x2
0215 e227 | ' | Load 0x1,0x27
0216 e402 | | Load 0x2,0x2
0217 e008 | | Load 0x0,0x8
0218 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
0219 00cf | | Action Mark_Auxiliary
021a e5fe | | Load 0x2,-0x2
021b e20e | | Load 0x1,0xe
021c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
021d 4801 |H | Short_Literal 0x1
021e 0263 | c | Execute Discrete,Above_Bound
021f 7013 |p | Jump_Nonzero 0x233
0220 00d8 | | Load_Top At_Offset_0
0221 e5fe | | Load 0x2,-0x2
0222 e20e | | Load 0x1,0xe
0223 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0224 a403 | | Store_Unchecked 0x2,0x3
0225 e403 | | Load 0x2,0x3
0226 0f0a | | Execute_Immediate Equal,0xa
0227 6805 |h | Jump_Zero 0x22d
0228 4801 |H | Short_Literal 0x1
0229 e402 | | Load 0x2,0x2
022a e008 | | Load 0x0,0x8
022b 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
022c 7804 |x | Jump 0x231
022d e403 | | Load 0x2,0x3
022e e402 | | Load 0x2,0x2
022f e008 | | Load 0x0,0x8
0230 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
0231 00c8 | | Action Pop_Auxiliary_Range
0232 3fed |? | Loop_Increasing 0x220
0233 00ce | | Action Pop_Auxiliary
0234 e402 | | Load 0x2,0x2
0235 e008 | | Load 0x0,0x8
0236 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0237 c402 | | Store 0x2,0x2
0238 00da | | Load_Top At_Offset_2
0239 6801 |h | Jump_Zero 0x23b
023a 840c | | Call 0x2,0xc
023b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
023c TRAP_01b0:
023c 4921 |I! | Short_Literal 0x121
023d 010f | | Execute Exception,Equal
023e 6807 |h | Jump_Zero 0x246
023f 4801 |H | Short_Literal 0x1
0240 e5ff | | Load 0x2,-0x1
0241 e009 | | Load 0x0,0x9
0242 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0243 e00a | | Load 0x0,0xa
0244 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
0245 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0246 4922 |I" | Short_Literal 0x122
0247 010f | | Execute Exception,Equal
0248 6807 |h | Jump_Zero 0x250
0249 4801 |H | Short_Literal 0x1
024a e5ff | | Load 0x2,-0x1
024b e009 | | Load 0x0,0x9
024c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
024d e00a | | Load 0x0,0xa
024e 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
024f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0250 4923 |I# | Short_Literal 0x123
0251 010f | | Execute Exception,Equal
0252 6809 |h | Jump_Zero 0x25c
0253 4801 |H | Short_Literal 0x1
0254 e5ff | | Load 0x2,-0x1
0255 e009 | | Load 0x0,0x9
0256 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0257 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
0259 e00a | | Load 0x0,0xa
025a 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
025b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
025c 4924 |I$ | Short_Literal 0x124
025d 010f | | Execute Exception,Equal
025e 6809 |h | Jump_Zero 0x268
025f 4801 |H | Short_Literal 0x1
0260 e5ff | | Load 0x2,-0x1
0261 e009 | | Load 0x0,0x9
0262 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0263 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
0265 e00a | | Load 0x0,0xa
0266 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0267 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0268 4925 |I% | Short_Literal 0x125
0269 010f | | Execute Exception,Equal
026a 6807 |h | Jump_Zero 0x272
026b 4801 |H | Short_Literal 0x1
026c e5ff | | Load 0x2,-0x1
026d e009 | | Load 0x0,0x9
026e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
026f e00a | | Load 0x0,0xa
0270 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0271 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0272 4931 |I1 | Short_Literal 0x131
0273 010f | | Execute Exception,Equal
0274 680b |h | Jump_Zero 0x280
0275 4801 |H | Short_Literal 0x1
0276 0092 0c19 | | Action Push_String_Extended,0xc19 ; "written"
0278 e5ff | | Load 0x2,-0x1
0279 e009 | | Load 0x0,0x9
027a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
027b 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
027d e00a | | Load 0x0,0xa
027e 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
027f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0280 4932 |I2 | Short_Literal 0x132
0281 010f | | Execute Exception,Equal
0282 680b |h | Jump_Zero 0x28e
0283 4801 |H | Short_Literal 0x1
0284 0092 0c19 | | Action Push_String_Extended,0xc19 ; "written"
0286 e5ff | | Load 0x2,-0x1
0287 e009 | | Load 0x0,0x9
0288 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0289 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
028b e00a | | Load 0x0,0xa
028c 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
028d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
028e 4933 |I3 | Short_Literal 0x133
028f 010f | | Execute Exception,Equal
0290 6809 |h | Jump_Zero 0x29a
0291 4801 |H | Short_Literal 0x1
0292 e5ff | | Load 0x2,-0x1
0293 e009 | | Load 0x0,0x9
0294 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0295 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
0297 e00a | | Load 0x0,0xa
0298 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
0299 4503 |E | Exit_Suprogram New_Top_Offset 0x3
029a 4934 |I4 | Short_Literal 0x134
029b 010f | | Execute Exception,Equal
029c 680b |h | Jump_Zero 0x2a8
029d 4801 |H | Short_Literal 0x1
029e 0092 0c19 | | Action Push_String_Extended,0xc19 ; "written"
02a0 e5ff | | Load 0x2,-0x1
02a1 e009 | | Load 0x0,0x9
02a2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02a3 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
02a5 e00a | | Load 0x0,0xa
02a6 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
02a7 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02a8 4935 |I5 | Short_Literal 0x135
02a9 010f | | Execute Exception,Equal
02aa 680b |h | Jump_Zero 0x2b6
02ab 4801 |H | Short_Literal 0x1
02ac 0092 0c19 | | Action Push_String_Extended,0xc19 ; "written"
02ae e5ff | | Load 0x2,-0x1
02af e009 | | Load 0x0,0x9
02b0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02b1 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
02b3 e00a | | Load 0x0,0xa
02b4 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
02b5 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02b6 4936 |I6 | Short_Literal 0x136
02b7 010f | | Execute Exception,Equal
02b8 680b |h | Jump_Zero 0x2c4
02b9 4801 |H | Short_Literal 0x1
02ba 0092 0c19 | | Action Push_String_Extended,0xc19 ; "written"
02bc e5ff | | Load 0x2,-0x1
02bd e009 | | Load 0x0,0x9
02be 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02bf 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
02c1 e00a | | Load 0x0,0xa
02c2 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
02c3 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02c4 00d8 | | Load_Top At_Offset_0
02c5 0107 | | Execute Exception,Get_Name
02c6 4940 |I@ | Short_Literal 0x140
02c7 494f |IO | Short_Literal 0x14f
02c8 0262 | b | Execute Discrete,In_Range
02c9 680f |h | Jump_Zero 0x2d9
02ca e402 | | Load 0x2,0x2
02cb e008 | | Load 0x0,0x8
02cc 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02cd c402 | | Store 0x2,0x2
02ce 4801 |H | Short_Literal 0x1
02cf 0092 0c19 | | Action Push_String_Extended,0xc19 ; "written"
02d1 e5ff | | Load 0x2,-0x1
02d2 e009 | | Load 0x0,0x9
02d3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02d4 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
02d6 e00a | | Load 0x0,0xa
02d7 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
02d8 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02d9 00d8 | | Load_Top At_Offset_0
02da 0107 | | Execute Exception,Get_Name
02db 4960 |I` | Short_Literal 0x160
02dc 496f |Io | Short_Literal 0x16f
02dd 0262 | b | Execute Discrete,In_Range
02de 6807 |h | Jump_Zero 0x2e6
02df 4801 |H | Short_Literal 0x1
02e0 e5ff | | Load 0x2,-0x1
02e1 e009 | | Load 0x0,0x9
02e2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02e3 e00a | | Load 0x0,0xa
02e4 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
02e5 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02e6 0100 | | Execute Exception,Raise
02e7 0000 | | .XXX[0x1]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02f1 | | .CONST 0x02f1 ; Address of begin
02e9 031f | | .CONST 0x031f ; Address of exception handler
02ea 0003 | | .CONST 0x0003 ; Number of locals
02eb INIT_02e8:
02eb e008 | | Load 0x0,0x8
02ec 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02ed 02c7 | | Declare_Variable Any
02ee 00d8 | | Load_Top At_Offset_0
02ef 1c00 | | Execute_Immediate Run_Utility,0x0
02f0 00e8 | | Load_Encached Character_Cache
02f1 BODY_02e8:
02f1 00be | | Action Activate_Tasks
02f2 822f | / | Call 0x1,0x2f
02f3 00d9 | | Load_Top At_Offset_1
02f4 00ea | | Load_Encached Null_String_Cache
02f5 e5ff | | Load 0x2,-0x1
02f6 e009 | | Load 0x0,0x9
02f7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02f8 0092 0c1a | | Action Push_String_Extended,0xc1a ; "_ps"
02fa 01cc | | Execute Vector,Catenate
02fb 4801 |H | Short_Literal 0x1
02fc e008 | | Load 0x0,0x8
02fd 1814 | | Execute Package,Field_Execute,Field_Number 0x14
02fe c402 | | Store 0x2,0x2
02ff 00cf | | Action Mark_Auxiliary
0300 e5fe | | Load 0x2,-0x2
0301 e20e | | Load 0x1,0xe
0302 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0303 4801 |H | Short_Literal 0x1
0304 0263 | c | Execute Discrete,Above_Bound
0305 7013 |p | Jump_Nonzero 0x319
0306 00d8 | | Load_Top At_Offset_0
0307 e5fe | | Load 0x2,-0x2
0308 e20e | | Load 0x1,0xe
0309 1814 | | Execute Package,Field_Execute,Field_Number 0x14
030a a403 | | Store_Unchecked 0x2,0x3
030b 00db | | Load_Top At_Offset_3
030c 0f0a | | Execute_Immediate Equal,0xa
030d 6805 |h | Jump_Zero 0x313
030e 4801 |H | Short_Literal 0x1
030f e402 | | Load 0x2,0x2
0310 e008 | | Load 0x0,0x8
0311 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0312 7804 |x | Jump 0x317
0313 00db | | Load_Top At_Offset_3
0314 e402 | | Load 0x2,0x2
0315 e008 | | Load 0x0,0x8
0316 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
0317 00c8 | | Action Pop_Auxiliary_Range
0318 3fed |? | Loop_Increasing 0x306
0319 00ce | | Action Pop_Auxiliary
031a 00d9 | | Load_Top At_Offset_1
031b e008 | | Load 0x0,0x8
031c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
031d c402 | | Store 0x2,0x2
031e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
031f TRAP_02e8:
031f 4921 |I! | Short_Literal 0x121
0320 010f | | Execute Exception,Equal
0321 6807 |h | Jump_Zero 0x329
0322 4801 |H | Short_Literal 0x1
0323 e5ff | | Load 0x2,-0x1
0324 e009 | | Load 0x0,0x9
0325 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0326 e00a | | Load 0x0,0xa
0327 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
0328 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0329 4922 |I" | Short_Literal 0x122
032a 010f | | Execute Exception,Equal
032b 6807 |h | Jump_Zero 0x333
032c 4801 |H | Short_Literal 0x1
032d e5ff | | Load 0x2,-0x1
032e e009 | | Load 0x0,0x9
032f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0330 e00a | | Load 0x0,0xa
0331 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0332 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0333 4923 |I# | Short_Literal 0x123
0334 010f | | Execute Exception,Equal
0335 6809 |h | Jump_Zero 0x33f
0336 4801 |H | Short_Literal 0x1
0337 e5ff | | Load 0x2,-0x1
0338 e009 | | Load 0x0,0x9
0339 1813 | | Execute Package,Field_Execute,Field_Number 0x13
033a 0092 0c1b | | Action Push_String_Extended,0xc1b ; "postscript file"
033c e00a | | Load 0x0,0xa
033d 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
033e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
033f 4924 |I$ | Short_Literal 0x124
0340 010f | | Execute Exception,Equal
0341 6809 |h | Jump_Zero 0x34b
0342 4801 |H | Short_Literal 0x1
0343 e5ff | | Load 0x2,-0x1
0344 e009 | | Load 0x0,0x9
0345 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0346 0092 0c1b | | Action Push_String_Extended,0xc1b ; "postscript file"
0348 e00a | | Load 0x0,0xa
0349 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
034a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
034b 4925 |I% | Short_Literal 0x125
034c 010f | | Execute Exception,Equal
034d 6807 |h | Jump_Zero 0x355
034e 4801 |H | Short_Literal 0x1
034f e5ff | | Load 0x2,-0x1
0350 e009 | | Load 0x0,0x9
0351 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0352 e00a | | Load 0x0,0xa
0353 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0354 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0355 4931 |I1 | Short_Literal 0x131
0356 010f | | Execute Exception,Equal
0357 680b |h | Jump_Zero 0x363
0358 4801 |H | Short_Literal 0x1
0359 0092 0c19 | | Action Push_String_Extended,0xc19 ; "written"
035b e5ff | | Load 0x2,-0x1
035c e009 | | Load 0x0,0x9
035d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
035e 0092 0c1b | | Action Push_String_Extended,0xc1b ; "postscript file"
0360 e00a | | Load 0x0,0xa
0361 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
0362 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0363 4932 |I2 | Short_Literal 0x132
0364 010f | | Execute Exception,Equal
0365 680b |h | Jump_Zero 0x371
0366 4801 |H | Short_Literal 0x1
0367 0092 0c19 | | Action Push_String_Extended,0xc19 ; "written"
0369 e5ff | | Load 0x2,-0x1
036a e009 | | Load 0x0,0x9
036b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
036c 0092 0c1b | | Action Push_String_Extended,0xc1b ; "postscript file"
036e e00a | | Load 0x0,0xa
036f 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0370 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0371 4933 |I3 | Short_Literal 0x133
0372 010f | | Execute Exception,Equal
0373 6809 |h | Jump_Zero 0x37d
0374 4801 |H | Short_Literal 0x1
0375 e5ff | | Load 0x2,-0x1
0376 e009 | | Load 0x0,0x9
0377 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0378 0092 0c1b | | Action Push_String_Extended,0xc1b ; "postscript file"
037a e00a | | Load 0x0,0xa
037b 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
037c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
037d 4934 |I4 | Short_Literal 0x134
037e 010f | | Execute Exception,Equal
037f 680b |h | Jump_Zero 0x38b
0380 4801 |H | Short_Literal 0x1
0381 0092 0c19 | | Action Push_String_Extended,0xc19 ; "written"
0383 e5ff | | Load 0x2,-0x1
0384 e009 | | Load 0x0,0x9
0385 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0386 0092 0c1b | | Action Push_String_Extended,0xc1b ; "postscript file"
0388 e00a | | Load 0x0,0xa
0389 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
038a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
038b 4935 |I5 | Short_Literal 0x135
038c 010f | | Execute Exception,Equal
038d 680b |h | Jump_Zero 0x399
038e 4801 |H | Short_Literal 0x1
038f 0092 0c19 | | Action Push_String_Extended,0xc19 ; "written"
0391 e5ff | | Load 0x2,-0x1
0392 e009 | | Load 0x0,0x9
0393 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0394 0092 0c1b | | Action Push_String_Extended,0xc1b ; "postscript file"
0396 e00a | | Load 0x0,0xa
0397 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0398 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0399 4936 |I6 | Short_Literal 0x136
039a 010f | | Execute Exception,Equal
039b 680b |h | Jump_Zero 0x3a7
039c 4801 |H | Short_Literal 0x1
039d 0092 0c19 | | Action Push_String_Extended,0xc19 ; "written"
039f e5ff | | Load 0x2,-0x1
03a0 e009 | | Load 0x0,0x9
03a1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03a2 0092 0c1b | | Action Push_String_Extended,0xc1b ; "postscript file"
03a4 e00a | | Load 0x0,0xa
03a5 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
03a6 4503 |E | Exit_Suprogram New_Top_Offset 0x3
03a7 00d8 | | Load_Top At_Offset_0
03a8 0107 | | Execute Exception,Get_Name
03a9 4940 |I@ | Short_Literal 0x140
03aa 494f |IO | Short_Literal 0x14f
03ab 0262 | b | Execute Discrete,In_Range
03ac 680f |h | Jump_Zero 0x3bc
03ad 00da | | Load_Top At_Offset_2
03ae e008 | | Load 0x0,0x8
03af 1816 | | Execute Package,Field_Execute,Field_Number 0x16
03b0 c402 | | Store 0x2,0x2
03b1 4801 |H | Short_Literal 0x1
03b2 0092 0c19 | | Action Push_String_Extended,0xc19 ; "written"
03b4 e5ff | | Load 0x2,-0x1
03b5 e009 | | Load 0x0,0x9
03b6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03b7 0092 0c1b | | Action Push_String_Extended,0xc1b ; "postscript file"
03b9 e00a | | Load 0x0,0xa
03ba 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
03bb 4503 |E | Exit_Suprogram New_Top_Offset 0x3
03bc 00d8 | | Load_Top At_Offset_0
03bd 0107 | | Execute Exception,Get_Name
03be 4960 |I` | Short_Literal 0x160
03bf 496f |Io | Short_Literal 0x16f
03c0 0262 | b | Execute Discrete,In_Range
03c1 680b |h | Jump_Zero 0x3cd
03c2 00da | | Load_Top At_Offset_2
03c3 e008 | | Load 0x0,0x8
03c4 1816 | | Execute Package,Field_Execute,Field_Number 0x16
03c5 c402 | | Store 0x2,0x2
03c6 4801 |H | Short_Literal 0x1
03c7 e5ff | | Load 0x2,-0x1
03c8 e009 | | Load 0x0,0x9
03c9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03ca e00a | | Load 0x0,0xa
03cb 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
03cc 4503 |E | Exit_Suprogram New_Top_Offset 0x3
03cd 0100 | | Execute Exception,Raise
03ce 0000 0000 | | .XXX[0x2]
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03f1 | | .CONST 0x03f1 ; Address of begin
03d1 04d4 | | .CONST 0x04d4 ; Address of exception handler
03d2 0006 | | .CONST 0x0006 ; Number of locals
03d3 INIT_03d0:
03d3 e006 | | Load 0x0,0x6
03d4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03d5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03d6 02c7 | | Declare_Variable Any
03d7 00d8 | | Load_Top At_Offset_0
03d8 1c00 | | Execute_Immediate Run_Utility,0x0
03d9 e006 | | Load 0x0,0x6
03da 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03db 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
03dc 02c7 | | Declare_Variable Any
03dd 00d8 | | Load_Top At_Offset_0
03de 1c00 | | Execute_Immediate Run_Utility,0x0
03df 48ff |H | Short_Literal 0xff
03e0 e009 | | Load 0x0,0x9
03e1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03e2 1c08 | | Execute_Immediate Run_Utility,0x8
03e3 00d8 | | Load_Top At_Offset_0
03e4 1c00 | | Execute_Immediate Run_Utility,0x0
03e5 48ff |H | Short_Literal 0xff
03e6 e009 | | Load 0x0,0x9
03e7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03e8 1c08 | | Execute_Immediate Run_Utility,0x8
03e9 00d8 | | Load_Top At_Offset_0
03ea 1c00 | | Execute_Immediate Run_Utility,0x0
03eb 48ff |H | Short_Literal 0xff
03ec e009 | | Load 0x0,0x9
03ed 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03ee 1c08 | | Execute_Immediate Run_Utility,0x8
03ef 00d8 | | Load_Top At_Offset_0
03f0 1c00 | | Execute_Immediate Run_Utility,0x0
03f1 BODY_03d0:
03f1 822f | / | Call 0x1,0x2f
03f2 00d8 | | Load_Top At_Offset_0
03f3 00da | | Load_Top At_Offset_2
03f4 e404 | | Load 0x2,0x4
03f5 e5ff | | Load 0x2,-0x1
03f6 e009 | | Load 0x0,0x9
03f7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03f8 822c | , | Call 0x1,0x2c
03f9 00d3 | | Pop_Control Pop_Count_3
03fa 00d8 | | Load_Top At_Offset_0
03fb e009 | | Load 0x0,0x9
03fc 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
03fd 0c01 | | Execute_Immediate Greater_Equal,0x1
03fe 6805 |h | Jump_Zero 0x404
03ff 00d8 | | Load_Top At_Offset_0
0400 e009 | | Load 0x0,0x9
0401 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0402 e007 | | Load 0x0,0x7
0403 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0404 4801 |H | Short_Literal 0x1
0405 e006 | | Load 0x0,0x6
0406 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0407 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0408 e5ff | | Load 0x2,-0x1
0409 e009 | | Load 0x0,0x9
040a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
040b e006 | | Load 0x0,0x6
040c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
040d 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
040e c402 | | Store 0x2,0x2
040f e402 | | Load 0x2,0x2
0410 e006 | | Load 0x0,0x6
0411 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0412 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0413 c403 | | Store 0x2,0x3
0414 00db | | Load_Top At_Offset_3
0415 e006 | | Load 0x0,0x6
0416 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0417 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
0418 4618 |F | Jump_Case 0x19
0419 7866 |xf | Jump 0x480 ; case 0x0
041a 7865 |xe | Jump 0x480 ; case 0x1
041b 781f |x | Jump 0x43b ; case 0x2
041c 7815 |x | Jump 0x432 ; case 0x3
041d 7814 |x | Jump 0x432 ; case 0x4
041e 7813 |x | Jump 0x432 ; case 0x5
041f 7812 |x | Jump 0x432 ; case 0x6
0420 7811 |x | Jump 0x432 ; case 0x7
0421 7810 |x | Jump 0x432 ; case 0x8
0422 7823 |x# | Jump 0x446 ; case 0x9
0423 780e |x | Jump 0x432 ; case 0xa
0424 780d |x | Jump 0x432 ; case 0xb
0425 7829 |x) | Jump 0x44f ; case 0xc
0426 782f |x/ | Jump 0x456 ; case 0xd
0427 7837 |x7 | Jump 0x45f ; case 0xe
0428 783d |x= | Jump 0x466 ; case 0xf
0429 7843 |xC | Jump 0x46d ; case 0x10
042a 784d |xM | Jump 0x478 ; case 0x11
042b 7806 |x | Jump 0x432 ; case 0x12
042c 7805 |x | Jump 0x432 ; case 0x13
042d 7804 |x | Jump 0x432 ; case 0x14
042e 7803 |x | Jump 0x432 ; case 0x15
042f 7802 |x | Jump 0x432 ; case 0x16
0430 7801 |x | Jump 0x432 ; case 0x17
0431 7800 |x | Jump 0x432 ; case 0x18
0432 4801 |H | Short_Literal 0x1
0433 e5ff | | Load 0x2,-0x1
0434 e009 | | Load 0x0,0x9
0435 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0436 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
0438 e00a | | Load 0x0,0xa
0439 1844 | D | Execute Package,Field_Execute,Field_Number 0x44
043a 7845 |xE | Jump 0x480
043b 4801 |H | Short_Literal 0x1
043c 0092 0c1c | | Action Push_String_Extended,0xc1c ; "deleted"
043e e5ff | | Load 0x2,-0x1
043f e009 | | Load 0x0,0x9
0440 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0441 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
0443 e00a | | Load 0x0,0xa
0444 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0445 783a |x: | Jump 0x480
0446 4801 |H | Short_Literal 0x1
0447 e5ff | | Load 0x2,-0x1
0448 e009 | | Load 0x0,0x9
0449 1813 | | Execute Package,Field_Execute,Field_Number 0x13
044a 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
044c e00a | | Load 0x0,0xa
044d 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
044e 7831 |x1 | Jump 0x480
044f 4801 |H | Short_Literal 0x1
0450 e5ff | | Load 0x2,-0x1
0451 e009 | | Load 0x0,0x9
0452 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0453 e00a | | Load 0x0,0xa
0454 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
0455 782a |x* | Jump 0x480
0456 4801 |H | Short_Literal 0x1
0457 e5ff | | Load 0x2,-0x1
0458 e009 | | Load 0x0,0x9
0459 1813 | | Execute Package,Field_Execute,Field_Number 0x13
045a 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
045c e00a | | Load 0x0,0xa
045d 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
045e 7821 |x! | Jump 0x480
045f 4801 |H | Short_Literal 0x1
0460 e5ff | | Load 0x2,-0x1
0461 e009 | | Load 0x0,0x9
0462 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0463 e00a | | Load 0x0,0xa
0464 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0465 781a |x | Jump 0x480
0466 4801 |H | Short_Literal 0x1
0467 e5ff | | Load 0x2,-0x1
0468 e009 | | Load 0x0,0x9
0469 1813 | | Execute Package,Field_Execute,Field_Number 0x13
046a e00a | | Load 0x0,0xa
046b 1843 | C | Execute Package,Field_Execute,Field_Number 0x43
046c 7813 |x | Jump 0x480
046d 4801 |H | Short_Literal 0x1
046e 0092 0c1c | | Action Push_String_Extended,0xc1c ; "deleted"
0470 e5ff | | Load 0x2,-0x1
0471 e009 | | Load 0x0,0x9
0472 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0473 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
0475 e00a | | Load 0x0,0xa
0476 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
0477 7808 |x | Jump 0x480
0478 4801 |H | Short_Literal 0x1
0479 e5ff | | Load 0x2,-0x1
047a e009 | | Load 0x0,0x9
047b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
047c 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
047e e00a | | Load 0x0,0xa
047f 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
0480 00db | | Load_Top At_Offset_3
0481 0120 | | Execute Any,Is_Value
0482 6804 |h | Jump_Zero 0x487
0483 e006 | | Load 0x0,0x6
0484 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0485 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
0486 7801 |x | Jump 0x488
0487 00db | | Load_Top At_Offset_3
0488 4fff |O | Short_Literal -0x1
0489 e402 | | Load 0x2,0x2
048a e006 | | Load 0x0,0x6
048b 1b10 | | Execute Package,Field_Read,Field_Number 0x10
048c 1819 | | Execute Package,Field_Execute,Field_Number 0x19
048d c403 | | Store 0x2,0x3
048e 00db | | Load_Top At_Offset_3
048f e006 | | Load 0x0,0x6
0490 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0491 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
0492 4618 |F | Jump_Case 0x19
0493 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x0
0494 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x1
0495 781f |x | Jump 0x4b5 ; case 0x2
0496 7815 |x | Jump 0x4ac ; case 0x3
0497 7814 |x | Jump 0x4ac ; case 0x4
0498 7813 |x | Jump 0x4ac ; case 0x5
0499 7812 |x | Jump 0x4ac ; case 0x6
049a 7811 |x | Jump 0x4ac ; case 0x7
049b 7810 |x | Jump 0x4ac ; case 0x8
049c 780f |x | Jump 0x4ac ; case 0x9
049d 780e |x | Jump 0x4ac ; case 0xa
049e 780d |x | Jump 0x4ac ; case 0xb
049f 780c |x | Jump 0x4ac ; case 0xc
04a0 780b |x | Jump 0x4ac ; case 0xd
04a1 780a |x | Jump 0x4ac ; case 0xe
04a2 7809 |x | Jump 0x4ac ; case 0xf
04a3 781c |x | Jump 0x4c0 ; case 0x10
04a4 7826 |x& | Jump 0x4cb ; case 0x11
04a5 7806 |x | Jump 0x4ac ; case 0x12
04a6 7805 |x | Jump 0x4ac ; case 0x13
04a7 7804 |x | Jump 0x4ac ; case 0x14
04a8 7803 |x | Jump 0x4ac ; case 0x15
04a9 7802 |x | Jump 0x4ac ; case 0x16
04aa 7801 |x | Jump 0x4ac ; case 0x17
04ab 7800 |x | Jump 0x4ac ; case 0x18
04ac 4801 |H | Short_Literal 0x1
04ad e5ff | | Load 0x2,-0x1
04ae e009 | | Load 0x0,0x9
04af 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04b0 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
04b2 e00a | | Load 0x0,0xa
04b3 1844 | D | Execute Package,Field_Execute,Field_Number 0x44
04b4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04b5 4801 |H | Short_Literal 0x1
04b6 0092 0c1d | | Action Push_String_Extended,0xc1d ; "deleted);"
04b8 e5ff | | Load 0x2,-0x1
04b9 e009 | | Load 0x0,0x9
04ba 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04bb 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
04bd e00a | | Load 0x0,0xa
04be 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
04bf 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04c0 4801 |H | Short_Literal 0x1
04c1 0092 0c1d | | Action Push_String_Extended,0xc1d ; "deleted);"
04c3 e5ff | | Load 0x2,-0x1
04c4 e009 | | Load 0x0,0x9
04c5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04c6 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
04c8 e00a | | Load 0x0,0xa
04c9 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
04ca 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04cb 4801 |H | Short_Literal 0x1
04cc e5ff | | Load 0x2,-0x1
04cd e009 | | Load 0x0,0x9
04ce 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04cf 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
04d1 e00a | | Load 0x0,0xa
04d2 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
04d3 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04d4 TRAP_03d0:
04d4 4921 |I! | Short_Literal 0x121
04d5 010f | | Execute Exception,Equal
04d6 6807 |h | Jump_Zero 0x4de
04d7 4801 |H | Short_Literal 0x1
04d8 e5ff | | Load 0x2,-0x1
04d9 e009 | | Load 0x0,0x9
04da 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04db e00a | | Load 0x0,0xa
04dc 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
04dd 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04de 4922 |I" | Short_Literal 0x122
04df 010f | | Execute Exception,Equal
04e0 6807 |h | Jump_Zero 0x4e8
04e1 4801 |H | Short_Literal 0x1
04e2 e5ff | | Load 0x2,-0x1
04e3 e009 | | Load 0x0,0x9
04e4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04e5 e00a | | Load 0x0,0xa
04e6 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
04e7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04e8 4923 |I# | Short_Literal 0x123
04e9 010f | | Execute Exception,Equal
04ea 6809 |h | Jump_Zero 0x4f4
04eb 4801 |H | Short_Literal 0x1
04ec e5ff | | Load 0x2,-0x1
04ed e009 | | Load 0x0,0x9
04ee 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04ef 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
04f1 e00a | | Load 0x0,0xa
04f2 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
04f3 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04f4 4924 |I$ | Short_Literal 0x124
04f5 010f | | Execute Exception,Equal
04f6 6809 |h | Jump_Zero 0x500
04f7 4801 |H | Short_Literal 0x1
04f8 e5ff | | Load 0x2,-0x1
04f9 e009 | | Load 0x0,0x9
04fa 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04fb 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
04fd e00a | | Load 0x0,0xa
04fe 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
04ff 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0500 4925 |I% | Short_Literal 0x125
0501 010f | | Execute Exception,Equal
0502 6807 |h | Jump_Zero 0x50a
0503 4801 |H | Short_Literal 0x1
0504 e5ff | | Load 0x2,-0x1
0505 e009 | | Load 0x0,0x9
0506 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0507 e00a | | Load 0x0,0xa
0508 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0509 4502 |E | Exit_Suprogram New_Top_Offset 0x2
050a 4931 |I1 | Short_Literal 0x131
050b 010f | | Execute Exception,Equal
050c 680b |h | Jump_Zero 0x518
050d 4801 |H | Short_Literal 0x1
050e 0092 0c18 | | Action Push_String_Extended,0xc18 ; "read"
0510 e5ff | | Load 0x2,-0x1
0511 e009 | | Load 0x0,0x9
0512 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0513 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
0515 e00a | | Load 0x0,0xa
0516 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
0517 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0518 4932 |I2 | Short_Literal 0x132
0519 010f | | Execute Exception,Equal
051a 680b |h | Jump_Zero 0x526
051b 4801 |H | Short_Literal 0x1
051c 0092 0c18 | | Action Push_String_Extended,0xc18 ; "read"
051e e5ff | | Load 0x2,-0x1
051f e009 | | Load 0x0,0x9
0520 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0521 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
0523 e00a | | Load 0x0,0xa
0524 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0525 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0526 4933 |I3 | Short_Literal 0x133
0527 010f | | Execute Exception,Equal
0528 6809 |h | Jump_Zero 0x532
0529 4801 |H | Short_Literal 0x1
052a e5ff | | Load 0x2,-0x1
052b e009 | | Load 0x0,0x9
052c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
052d 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
052f e00a | | Load 0x0,0xa
0530 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
0531 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0532 e20d | | Load 0x1,0xd
0533 010f | | Execute Exception,Equal
0534 6809 |h | Jump_Zero 0x53e
0535 4801 |H | Short_Literal 0x1
0536 e5ff | | Load 0x2,-0x1
0537 e009 | | Load 0x0,0x9
0538 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0539 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
053b e00a | | Load 0x0,0xa
053c 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
053d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
053e 4934 |I4 | Short_Literal 0x134
053f 010f | | Execute Exception,Equal
0540 680b |h | Jump_Zero 0x54c
0541 4801 |H | Short_Literal 0x1
0542 0092 0c18 | | Action Push_String_Extended,0xc18 ; "read"
0544 e5ff | | Load 0x2,-0x1
0545 e009 | | Load 0x0,0x9
0546 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0547 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
0549 e00a | | Load 0x0,0xa
054a 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
054b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
054c 4935 |I5 | Short_Literal 0x135
054d 010f | | Execute Exception,Equal
054e 680b |h | Jump_Zero 0x55a
054f 4801 |H | Short_Literal 0x1
0550 0092 0c18 | | Action Push_String_Extended,0xc18 ; "read"
0552 e5ff | | Load 0x2,-0x1
0553 e009 | | Load 0x0,0x9
0554 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0555 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
0557 e00a | | Load 0x0,0xa
0558 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0559 4502 |E | Exit_Suprogram New_Top_Offset 0x2
055a 4936 |I6 | Short_Literal 0x136
055b 010f | | Execute Exception,Equal
055c 680b |h | Jump_Zero 0x568
055d 4801 |H | Short_Literal 0x1
055e 0092 0c18 | | Action Push_String_Extended,0xc18 ; "read"
0560 e5ff | | Load 0x2,-0x1
0561 e009 | | Load 0x0,0x9
0562 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0563 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
0565 e00a | | Load 0x0,0xa
0566 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0567 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0568 00d8 | | Load_Top At_Offset_0
0569 0107 | | Execute Exception,Get_Name
056a 4940 |I@ | Short_Literal 0x140
056b 494f |IO | Short_Literal 0x14f
056c 0262 | b | Execute Discrete,In_Range
056d 680b |h | Jump_Zero 0x579
056e 4801 |H | Short_Literal 0x1
056f 0092 0c1e | | Action Push_String_Extended,0xc1e ; "reading"
0571 e5ff | | Load 0x2,-0x1
0572 e009 | | Load 0x0,0x9
0573 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0574 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
0576 e00a | | Load 0x0,0xa
0577 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
0578 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0579 00d8 | | Load_Top At_Offset_0
057a 0107 | | Execute Exception,Get_Name
057b 4960 |I` | Short_Literal 0x160
057c 496f |Io | Short_Literal 0x16f
057d 0262 | b | Execute Discrete,In_Range
057e 6807 |h | Jump_Zero 0x586
057f 4801 |H | Short_Literal 0x1
0580 e5ff | | Load 0x2,-0x1
0581 e009 | | Load 0x0,0x9
0582 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0583 e00a | | Load 0x0,0xa
0584 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0585 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0586 0100 | | Execute Exception,Raise
0587 0000 | | .XXX[0x1]
0588 ; --------------------------------------------------------------------------------------
0588 ; SUBPROGRAM
0588 ; --------------------------------------------------------------------------------------
0588 05a8 | | .CONST 0x05a8 ; Address of begin
0589 0004 | | .CONST 0x0004 ; Address of exception handler
058a 0006 | | .CONST 0x0006 ; Number of locals
058b INIT_0588:
058b e006 | | Load 0x0,0x6
058c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
058d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
058e 02c7 | | Declare_Variable Any
058f 00d8 | | Load_Top At_Offset_0
0590 1c00 | | Execute_Immediate Run_Utility,0x0
0591 e006 | | Load 0x0,0x6
0592 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0593 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
0594 02c7 | | Declare_Variable Any
0595 00d8 | | Load_Top At_Offset_0
0596 1c00 | | Execute_Immediate Run_Utility,0x0
0597 e006 | | Load 0x0,0x6
0598 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0599 1b44 | D | Execute Package,Field_Read,Field_Number 0x44
059a e5ff | | Load 0x2,-0x1
059b e009 | | Load 0x0,0x9
059c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
059d 0092 0c1f | | Action Push_String_Extended,0xc1f ; ".@"
059f 01cc | | Execute Vector,Catenate
05a0 0007 | | Action Break_Optional
05a1 e5fe | | Load 0x2,-0x2
05a2 e009 | | Load 0x0,0x9
05a3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05a4 0092 0c1f | | Action Push_String_Extended,0xc1f ; ".@"
05a6 01cc | | Execute Vector,Catenate
05a7 0007 | | Action Break_Optional
05a8 BODY_0588:
05a8 822f | / | Call 0x1,0x2f
05a9 e5ff | | Load 0x2,-0x1
05aa e009 | | Load 0x0,0x9
05ab 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05ac 822d | - | Call 0x1,0x2d
05ad e5fe | | Load 0x2,-0x2
05ae e009 | | Load 0x0,0x9
05af 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05b0 822d | - | Call 0x1,0x2d
05b1 4801 |H | Short_Literal 0x1
05b2 e006 | | Load 0x0,0x6
05b3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05b4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05b5 00da | | Load_Top At_Offset_2
05b6 e006 | | Load 0x0,0x6
05b7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05b8 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
05b9 c402 | | Store 0x2,0x2
05ba e402 | | Load 0x2,0x2
05bb e006 | | Load 0x0,0x6
05bc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05bd 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
05be e006 | | Load 0x0,0x6
05bf 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05c0 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
05c1 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
05c2 00da | | Load_Top At_Offset_2
05c3 0f00 | | Execute_Immediate Equal,0x0
05c4 00db | | Load_Top At_Offset_3
05c5 0f0e | | Execute_Immediate Equal,0xe
05c6 0278 | x | Execute Discrete,Or
05c7 6807 |h | Jump_Zero 0x5cf
05c8 0092 0c20 | | Action Push_String_Extended,0xc20 ; "<PROFILE>"
05ca 0092 0c21 | !| Action Push_String_Extended,0xc21 ; "<DIRECTORIES>"
05cc 00da | | Load_Top At_Offset_2
05cd e00b | | Load 0x0,0xb
05ce 1819 | | Execute Package,Field_Execute,Field_Number 0x19
05cf 4801 |H | Short_Literal 0x1
05d0 e006 | | Load 0x0,0x6
05d1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05d2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05d3 00db | | Load_Top At_Offset_3
05d4 e006 | | Load 0x0,0x6
05d5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05d6 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
05d7 c402 | | Store 0x2,0x2
05d8 e402 | | Load 0x2,0x2
05d9 e006 | | Load 0x0,0x6
05da 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05db 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
05dc e006 | | Load 0x0,0x6
05dd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05de 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
05df 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
05e0 00da | | Load_Top At_Offset_2
05e1 0f00 | | Execute_Immediate Equal,0x0
05e2 00db | | Load_Top At_Offset_3
05e3 0f0e | | Execute_Immediate Equal,0xe
05e4 0278 | x | Execute Discrete,Or
05e5 6809 |h | Jump_Zero 0x5ef
05e6 00ea | | Load_Encached Null_String_Cache
05e7 4801 |H | Short_Literal 0x1
05e8 0092 0c20 | | Action Push_String_Extended,0xc20 ; "<PROFILE>"
05ea 4801 |H | Short_Literal 0x1
05eb e406 | | Load 0x2,0x6
05ec e405 | | Load 0x2,0x5
05ed e00b | | Load 0x0,0xb
05ee 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05ef 4503 |E | Exit_Suprogram New_Top_Offset 0x3
05f0 ; --------------------------------------------------------------------------------------
05f0 ; SUBPROGRAM
05f0 ; --------------------------------------------------------------------------------------
05f0 05ff | | .CONST 0x05ff ; Address of begin
05f1 0004 | | .CONST 0x0004 ; Address of exception handler
05f2 0003 | | .CONST 0x0003 ; Number of locals
05f3 INIT_05f0:
05f3 e006 | | Load 0x0,0x6
05f4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05f5 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
05f6 02c7 | | Declare_Variable Any
05f7 00d8 | | Load_Top At_Offset_0
05f8 1c00 | | Execute_Immediate Run_Utility,0x0
05f9 e006 | | Load 0x0,0x6
05fa 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05fb 1b0f | | Execute Package,Field_Read,Field_Number 0xf
05fc 02c7 | | Declare_Variable Any
05fd 00d8 | | Load_Top At_Offset_0
05fe 1c00 | | Execute_Immediate Run_Utility,0x0
05ff BODY_05f0:
05ff 00d9 | | Load_Top At_Offset_1
0600 0120 | | Execute Any,Is_Value
0601 6804 |h | Jump_Zero 0x606
0602 e006 | | Load 0x0,0x6
0603 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0604 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
0605 7801 |x | Jump 0x607
0606 00d9 | | Load_Top At_Offset_1
0607 e228 | ( | Load 0x1,0x28
0608 e006 | | Load 0x0,0x6
0609 1b0e | | Execute Package,Field_Read,Field_Number 0xe
060a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
060b c402 | | Store 0x2,0x2
060c 4801 |H | Short_Literal 0x1
060d e006 | | Load 0x0,0x6
060e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
060f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0610 e5ff | | Load 0x2,-0x1
0611 e009 | | Load 0x0,0x9
0612 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0613 e006 | | Load 0x0,0x6
0614 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0615 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0616 c403 | | Store 0x2,0x3
0617 00d8 | | Load_Top At_Offset_0
0618 e006 | | Load 0x0,0x6
0619 1b0d | | Execute Package,Field_Read,Field_Number 0xd
061a 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
061b c402 | | Store 0x2,0x2
061c 00d9 | | Load_Top At_Offset_1
061d e006 | | Load 0x0,0x6
061e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
061f 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
0620 4618 |F | Jump_Case 0x19
0621 7866 |xf | Jump 0x688 ; case 0x0
0622 7865 |xe | Jump 0x688 ; case 0x1
0623 781f |x | Jump 0x643 ; case 0x2
0624 7815 |x | Jump 0x63a ; case 0x3
0625 7814 |x | Jump 0x63a ; case 0x4
0626 7813 |x | Jump 0x63a ; case 0x5
0627 7812 |x | Jump 0x63a ; case 0x6
0628 7811 |x | Jump 0x63a ; case 0x7
0629 7810 |x | Jump 0x63a ; case 0x8
062a 7823 |x# | Jump 0x64e ; case 0x9
062b 780e |x | Jump 0x63a ; case 0xa
062c 780d |x | Jump 0x63a ; case 0xb
062d 7829 |x) | Jump 0x657 ; case 0xc
062e 782f |x/ | Jump 0x65e ; case 0xd
062f 7837 |x7 | Jump 0x667 ; case 0xe
0630 783d |x= | Jump 0x66e ; case 0xf
0631 7843 |xC | Jump 0x675 ; case 0x10
0632 784d |xM | Jump 0x680 ; case 0x11
0633 7806 |x | Jump 0x63a ; case 0x12
0634 7805 |x | Jump 0x63a ; case 0x13
0635 7804 |x | Jump 0x63a ; case 0x14
0636 7803 |x | Jump 0x63a ; case 0x15
0637 7802 |x | Jump 0x63a ; case 0x16
0638 7801 |x | Jump 0x63a ; case 0x17
0639 7800 |x | Jump 0x63a ; case 0x18
063a 4801 |H | Short_Literal 0x1
063b e5ff | | Load 0x2,-0x1
063c e009 | | Load 0x0,0x9
063d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
063e 0092 0c22 | "| Action Push_String_Extended,0xc22 ; "library"
0640 e00a | | Load 0x0,0xa
0641 1844 | D | Execute Package,Field_Execute,Field_Number 0x44
0642 7845 |xE | Jump 0x688
0643 4801 |H | Short_Literal 0x1
0644 0092 0c23 | #| Action Push_String_Extended,0xc23 ; "used as the context"
0646 e5ff | | Load 0x2,-0x1
0647 e009 | | Load 0x0,0x9
0648 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0649 0092 0c22 | "| Action Push_String_Extended,0xc22 ; "library"
064b e00a | | Load 0x0,0xa
064c 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
064d 783a |x: | Jump 0x688
064e 4801 |H | Short_Literal 0x1
064f e5ff | | Load 0x2,-0x1
0650 e009 | | Load 0x0,0x9
0651 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0652 0092 0c22 | "| Action Push_String_Extended,0xc22 ; "library"
0654 e00a | | Load 0x0,0xa
0655 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0656 7831 |x1 | Jump 0x688
0657 4801 |H | Short_Literal 0x1
0658 e5ff | | Load 0x2,-0x1
0659 e009 | | Load 0x0,0x9
065a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
065b e00a | | Load 0x0,0xa
065c 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
065d 782a |x* | Jump 0x688
065e 4801 |H | Short_Literal 0x1
065f e5ff | | Load 0x2,-0x1
0660 e009 | | Load 0x0,0x9
0661 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0662 0092 0c22 | "| Action Push_String_Extended,0xc22 ; "library"
0664 e00a | | Load 0x0,0xa
0665 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0666 7821 |x! | Jump 0x688
0667 4801 |H | Short_Literal 0x1
0668 e5ff | | Load 0x2,-0x1
0669 e009 | | Load 0x0,0x9
066a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
066b e00a | | Load 0x0,0xa
066c 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
066d 781a |x | Jump 0x688
066e 4801 |H | Short_Literal 0x1
066f e5ff | | Load 0x2,-0x1
0670 e009 | | Load 0x0,0x9
0671 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0672 e00a | | Load 0x0,0xa
0673 1843 | C | Execute Package,Field_Execute,Field_Number 0x43
0674 7813 |x | Jump 0x688
0675 4801 |H | Short_Literal 0x1
0676 0092 0c23 | #| Action Push_String_Extended,0xc23 ; "used as the context"
0678 e5ff | | Load 0x2,-0x1
0679 e009 | | Load 0x0,0x9
067a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
067b 0092 0c22 | "| Action Push_String_Extended,0xc22 ; "library"
067d e00a | | Load 0x0,0xa
067e 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
067f 7808 |x | Jump 0x688
0680 4801 |H | Short_Literal 0x1
0681 e5ff | | Load 0x2,-0x1
0682 e009 | | Load 0x0,0x9
0683 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0684 0092 0c22 | "| Action Push_String_Extended,0xc22 ; "library"
0686 e00a | | Load 0x0,0xa
0687 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
0688 00d8 | | Load_Top At_Offset_0
0689 e006 | | Load 0x0,0x6
068a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
068b 1817 | | Execute Package,Field_Execute,Field_Number 0x17
068c 0e01 | | Execute_Immediate Not_Equal,0x1
068d 6808 |h | Jump_Zero 0x696
068e 4801 |H | Short_Literal 0x1
068f e5ff | | Load 0x2,-0x1
0690 e009 | | Load 0x0,0x9
0691 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0692 0092 0c22 | "| Action Push_String_Extended,0xc22 ; "library"
0694 e00a | | Load 0x0,0xa
0695 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
0696 00d8 | | Load_Top At_Offset_0
0697 c228 | ( | Store 0x1,0x28
0698 822f | / | Call 0x1,0x2f
0699 e228 | ( | Load 0x1,0x28
069a 8231 | 1 | Call 0x1,0x31
069b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
069c 0000 0000 | | .BLANK 0000[0x4]
06a0 ; --------------------------------------------------------------------------------------
06a0 ; SUBPROGRAM
06a0 ; --------------------------------------------------------------------------------------
06a0 06a3 | | .CONST 0x06a3 ; Address of begin
06a1 0004 | | .CONST 0x0004 ; Address of exception handler
06a2 0001 | | .CONST 0x0001 ; Number of locals
06a3 BODY_06a0:
06a3 INIT_06a0:
06a3 00da | | Load_Top At_Offset_2
06a4 e228 | ( | Load 0x1,0x28
06a5 e006 | | Load 0x0,0x6
06a6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
06a7 1820 | | Execute Package,Field_Execute,Field_Number 0x20
06a8 e009 | | Load 0x0,0x9
06a9 1810 | | Execute Package,Field_Execute,Field_Number 0x10
06aa 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06ab 0000 0000 | | .BLANK 0000[0x5]
06b0 ; --------------------------------------------------------------------------------------
06b0 ; SUBPROGRAM
06b0 ; --------------------------------------------------------------------------------------
06b0 06b3 | | .CONST 0x06b3 ; Address of begin
06b1 0004 | | .CONST 0x0004 ; Address of exception handler
06b2 0001 | | .CONST 0x0001 ; Number of locals
06b3 BODY_06b0:
06b3 INIT_06b0:
06b3 00db | | Load_Top At_Offset_3
06b4 00db | | Load_Top At_Offset_3
06b5 e009 | | Load 0x0,0x9
06b6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
06b7 e007 | | Load 0x0,0x7
06b8 1811 | | Execute Package,Field_Execute,Field_Number 0x11
06b9 e009 | | Load 0x0,0x9
06ba 1810 | | Execute Package,Field_Execute,Field_Number 0x10
06bb 4502 |E | Exit_Suprogram New_Top_Offset 0x2
06bc 0000 0000 | | .BLANK 0000[0x4]
06c0 ; --------------------------------------------------------------------------------------
06c0 ; SUBPROGRAM
06c0 ; --------------------------------------------------------------------------------------
06c0 06c3 | | .CONST 0x06c3 ; Address of begin
06c1 0004 | | .CONST 0x0004 ; Address of exception handler
06c2 0001 | | .CONST 0x0001 ; Number of locals
06c3 BODY_06c0:
06c3 INIT_06c0:
06c3 e228 | ( | Load 0x1,0x28
06c4 8231 | 1 | Call 0x1,0x31
06c5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06c6 0000 0000 | | .XXX[0x2]
06c8 ; --------------------------------------------------------------------------------------
06c8 ; SUBPROGRAM
06c8 ; --------------------------------------------------------------------------------------
06c8 06d1 | | .CONST 0x06d1 ; Address of begin
06c9 06e3 | | .CONST 0x06e3 ; Address of exception handler
06ca 0003 | | .CONST 0x0003 ; Number of locals
06cb INIT_06c8:
06cb e227 | ' | Load 0x1,0x27
06cc 01da | | Execute Vector,Bounds
06cd 00e9 | | Load_Encached String_Cache
06ce 035b | [ | Declare_Type Array,Constrained
06cf 0337 | 7 | Declare_Variable Array
06d0 00e2 | | Load_Encached Integer_Cache
06d1 BODY_06c8:
06d1 00e3 | | Load_Encached Natural_Cache
06d2 00da | | Load_Top At_Offset_2
06d3 e5ff | | Load 0x2,-0x1
06d4 e008 | | Load 0x0,0x8
06d5 184c | L | Execute Package,Field_Execute,Field_Number 0x4c
06d6 00d1 | | Pop_Control Pop_Count_1
06d7 0059 | Y | Store_Top Discrete,At_Offset_1
06d8 00d9 | | Load_Top At_Offset_1
06d9 e227 | ' | Load 0x1,0x27
06da 01de | | Execute Vector,Not_Equal
06db 6802 |h | Jump_Zero 0x6de
06dc e20d | | Load 0x1,0xd
06dd 0257 | W | Execute Discrete,Raise
06de 4801 |H | Short_Literal 0x1
06df e5ff | | Load 0x2,-0x1
06e0 e008 | | Load 0x0,0x8
06e1 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
06e2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
06e3 TRAP_06c8:
06e3 00d8 | | Load_Top At_Offset_0
06e4 0107 | | Execute Exception,Get_Name
06e5 4950 |IP | Short_Literal 0x150
06e6 495f |I_ | Short_Literal 0x15f
06e7 0262 | b | Execute Discrete,In_Range
06e8 6802 |h | Jump_Zero 0x6eb
06e9 e20d | | Load 0x1,0xd
06ea 0257 | W | Execute Discrete,Raise
06eb 0100 | | Execute Exception,Raise
06ec 0000 0000 | | .BLANK 0000[0x4]
06f0 ; --------------------------------------------------------------------------------------
06f0 ; SUBPROGRAM
06f0 ; --------------------------------------------------------------------------------------
06f0 06f3 | | .CONST 0x06f3 ; Address of begin
06f1 0004 | | .CONST 0x0004 ; Address of exception handler
06f2 0001 | | .CONST 0x0001 ; Number of locals
06f3 BODY_06f0:
06f3 INIT_06f0:
06f3 00da | | Load_Top At_Offset_2
06f4 0f20 | | Execute_Immediate Equal,0x20
06f5 00db | | Load_Top At_Offset_3
06f6 0f09 | | Execute_Immediate Equal,0x9
06f7 0278 | x | Execute Discrete,Or
06f8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06f9 0000 0000 | | .BLANK 0000[0x7]
0700 ; --------------------------------------------------------------------------------------
0700 ; SUBPROGRAM
0700 ; --------------------------------------------------------------------------------------
0700 070a | | .CONST 0x070a ; Address of begin
0701 0004 | | .CONST 0x0004 ; Address of exception handler
0702 0004 | | .CONST 0x0004 ; Number of locals
0703 INIT_0700:
0703 4801 |H | Short_Literal 0x1
0704 4a00 |J | Short_Literal 0x200
0705 00e9 | | Load_Encached String_Cache
0706 035b | [ | Declare_Type Array,Constrained
0707 0337 | 7 | Declare_Variable Array
0708 00e2 | | Load_Encached Integer_Cache
0709 00e2 | | Load_Encached Integer_Cache
070a BODY_0700:
070a 00cf | | Action Mark_Auxiliary
070b 00e3 | | Load_Encached Natural_Cache
070c e402 | | Load 0x2,0x2
070d e5ff | | Load 0x2,-0x1
070e e008 | | Load 0x0,0x8
070f 184c | L | Execute Package,Field_Execute,Field_Number 0x4c
0710 00d1 | | Pop_Control Pop_Count_1
0711 005a | Z | Store_Top Discrete,At_Offset_2
0712 4801 |H | Short_Literal 0x1
0713 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0714 00cf | | Action Mark_Auxiliary
0715 7804 |x | Jump 0x71a
0716 00db | | Load_Top At_Offset_3
0717 0a01 | | Execute_Immediate Plus,0x1
0718 c403 | | Store 0x2,0x3
0719 00c9 | | Action Pop_Auxiliary_Loop
071a 00db | | Load_Top At_Offset_3
071b 00db | | Load_Top At_Offset_3
071c 027a | z | Execute Discrete,Less_Equal
071d 6805 |h | Jump_Zero 0x723
071e 00db | | Load_Top At_Offset_3
071f e402 | | Load 0x2,0x2
0720 01d7 | | Execute Vector,Field_Read
0721 822a | * | Call 0x1,0x2a
0722 77f3 |w | Jump_Nonzero 0x716
0723 00ce | | Action Pop_Auxiliary
0724 00da | | Load_Top At_Offset_2
0725 00da | | Load_Top At_Offset_2
0726 027a | z | Execute Discrete,Less_Equal
0727 7002 |p | Jump_Nonzero 0x72a
0728 00c9 | | Action Pop_Auxiliary_Loop
0729 7fe1 | | Jump 0x70b
072a 00c9 | | Action Pop_Auxiliary_Loop
072b 7804 |x | Jump 0x730
072c 00d9 | | Load_Top At_Offset_1
072d 0aff | | Execute_Immediate Plus,-0x1
072e 005a | Z | Store_Top Discrete,At_Offset_2
072f 00c9 | | Action Pop_Auxiliary_Loop
0730 00d9 | | Load_Top At_Offset_1
0731 e402 | | Load 0x2,0x2
0732 01d7 | | Execute Vector,Field_Read
0733 822a | * | Call 0x1,0x2a
0734 77f7 |w | Jump_Nonzero 0x72c
0735 00ce | | Action Pop_Auxiliary
0736 00d9 | | Load_Top At_Offset_1
0737 00d9 | | Load_Top At_Offset_1
0738 e402 | | Load 0x2,0x2
0739 01cf | | Execute Vector,Slice_Read
073a 00e9 | | Load_Encached String_Cache
073b 01c6 | | Execute Vector,Convert_To_Formal
073c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
073d 0000 0000 | | .XXX[0x3]
073f 0000 | |
0740 ; --------------------------------------------------------------------------------------
0740 ; SUBPROGRAM
0740 ; --------------------------------------------------------------------------------------
0740 074a | J | .CONST 0x074a ; Address of begin
0741 0770 | p | .CONST 0x0770 ; Address of exception handler
0742 0003 | | .CONST 0x0003 ; Number of locals
0743 INIT_0740:
0743 e008 | | Load 0x0,0x8
0744 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0745 02c7 | | Declare_Variable Any
0746 00d8 | | Load_Top At_Offset_0
0747 1c00 | | Execute_Immediate Run_Utility,0x0
0748 029f 09eb | | Declare_Subprogram INIT_09e8,For_Call
074a BODY_0740:
074a 00be | | Action Activate_Tasks
074b 00d9 | | Load_Top At_Offset_1
074c 00ea | | Load_Encached Null_String_Cache
074d e5ff | | Load 0x2,-0x1
074e 4800 |H | Short_Literal 0x0
074f e008 | | Load 0x0,0x8
0750 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0751 c402 | | Store 0x2,0x2
0752 00d9 | | Load_Top At_Offset_1
0753 8229 | ) | Call 0x1,0x29
0754 e5fe | | Load 0x2,-0x2
0755 00da | | Load_Top At_Offset_2
0756 822b | + | Call 0x1,0x2b
0757 e009 | | Load 0x0,0x9
0758 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0759 00d1 | | Pop_Control Pop_Count_1
075a e5fd | | Load 0x2,-0x3
075b 4820 |H | Short_Literal 0x20
075c 4800 |H | Short_Literal 0x0
075d e009 | | Load 0x0,0x9
075e 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
075f 00d1 | | Pop_Control Pop_Count_1
0760 e5fc | | Load 0x2,-0x4
0761 4820 |H | Short_Literal 0x20
0762 4800 |H | Short_Literal 0x0
0763 e009 | | Load 0x0,0x9
0764 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0765 00d1 | | Pop_Control Pop_Count_1
0766 00cf | | Action Mark_Auxiliary
0767 8403 | | Call 0x2,0x3
0768 00c9 | | Action Pop_Auxiliary_Loop
0769 7ffd | | Jump 0x767
076a 00ce | | Action Pop_Auxiliary
076b 00d9 | | Load_Top At_Offset_1
076c e008 | | Load 0x0,0x8
076d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
076e c402 | | Store 0x2,0x2
076f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0770 TRAP_0740:
0770 00d8 | | Load_Top At_Offset_0
0771 0107 | | Execute Exception,Get_Name
0772 4950 |IP | Short_Literal 0x150
0773 495f |I_ | Short_Literal 0x15f
0774 0262 | b | Execute Discrete,In_Range
0775 6806 |h | Jump_Zero 0x77c
0776 00da | | Load_Top At_Offset_2
0777 e008 | | Load 0x0,0x8
0778 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0779 c402 | | Store 0x2,0x2
077a e20d | | Load 0x1,0xd
077b 0257 | W | Execute Discrete,Raise
077c 0100 | | Execute Exception,Raise
077d 0000 0000 | | .XXX[0x3]
077f 0000 | |
0780 ; --------------------------------------------------------------------------------------
0780 ; SUBPROGRAM
0780 ; --------------------------------------------------------------------------------------
0780 078c | | .CONST 0x078c ; Address of begin
0781 079b | | .CONST 0x079b ; Address of exception handler
0782 0004 | | .CONST 0x0004 ; Number of locals
0783 INIT_0780:
0783 e008 | | Load 0x0,0x8
0784 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0785 02c7 | | Declare_Variable Any
0786 00d8 | | Load_Top At_Offset_0
0787 1c00 | | Execute_Immediate Run_Utility,0x0
0788 029f 0a43 | C| Declare_Subprogram INIT_0a40,For_Call
078a 029f 0a5b | [| Declare_Subprogram INIT_0a58,For_Call
078c BODY_0780:
078c 00be | | Action Activate_Tasks
078d 00da | | Load_Top At_Offset_2
078e 00ea | | Load_Encached Null_String_Cache
078f e5ff | | Load 0x2,-0x1
0790 4800 |H | Short_Literal 0x0
0791 e008 | | Load 0x0,0x8
0792 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0793 c402 | | Store 0x2,0x2
0794 00da | | Load_Top At_Offset_2
0795 8229 | ) | Call 0x1,0x29
0796 00da | | Load_Top At_Offset_2
0797 e008 | | Load 0x0,0x8
0798 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0799 c402 | | Store 0x2,0x2
079a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
079b TRAP_0780:
079b e20d | | Load 0x1,0xd
079c 010f | | Execute Exception,Equal
079d 680d |h | Jump_Zero 0x7ab
079e 4801 |H | Short_Literal 0x1
079f e402 | | Load 0x2,0x2
07a0 e008 | | Load 0x0,0x8
07a1 181b | | Execute Package,Field_Execute,Field_Number 0x1b
07a2 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
07a4 e00a | | Load 0x0,0xa
07a5 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
07a6 00db | | Load_Top At_Offset_3
07a7 e008 | | Load 0x0,0x8
07a8 1816 | | Execute Package,Field_Execute,Field_Number 0x16
07a9 c402 | | Store 0x2,0x2
07aa 4502 |E | Exit_Suprogram New_Top_Offset 0x2
07ab 4921 |I! | Short_Literal 0x121
07ac 010f | | Execute Exception,Equal
07ad 6805 |h | Jump_Zero 0x7b3
07ae 4801 |H | Short_Literal 0x1
07af e5ff | | Load 0x2,-0x1
07b0 e00a | | Load 0x0,0xa
07b1 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
07b2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
07b3 4922 |I" | Short_Literal 0x122
07b4 010f | | Execute Exception,Equal
07b5 6805 |h | Jump_Zero 0x7bb
07b6 4801 |H | Short_Literal 0x1
07b7 e5ff | | Load 0x2,-0x1
07b8 e00a | | Load 0x0,0xa
07b9 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
07ba 4502 |E | Exit_Suprogram New_Top_Offset 0x2
07bb 4923 |I# | Short_Literal 0x123
07bc 010f | | Execute Exception,Equal
07bd 6807 |h | Jump_Zero 0x7c5
07be 4801 |H | Short_Literal 0x1
07bf e5ff | | Load 0x2,-0x1
07c0 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
07c2 e00a | | Load 0x0,0xa
07c3 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
07c4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
07c5 4924 |I$ | Short_Literal 0x124
07c6 010f | | Execute Exception,Equal
07c7 6807 |h | Jump_Zero 0x7cf
07c8 4801 |H | Short_Literal 0x1
07c9 e5ff | | Load 0x2,-0x1
07ca 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
07cc e00a | | Load 0x0,0xa
07cd 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
07ce 4502 |E | Exit_Suprogram New_Top_Offset 0x2
07cf 4925 |I% | Short_Literal 0x125
07d0 010f | | Execute Exception,Equal
07d1 6805 |h | Jump_Zero 0x7d7
07d2 4801 |H | Short_Literal 0x1
07d3 e5ff | | Load 0x2,-0x1
07d4 e00a | | Load 0x0,0xa
07d5 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
07d6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
07d7 4931 |I1 | Short_Literal 0x131
07d8 010f | | Execute Exception,Equal
07d9 6809 |h | Jump_Zero 0x7e3
07da 4801 |H | Short_Literal 0x1
07db 0092 0c18 | | Action Push_String_Extended,0xc18 ; "read"
07dd e5ff | | Load 0x2,-0x1
07de 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
07e0 e00a | | Load 0x0,0xa
07e1 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
07e2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
07e3 4932 |I2 | Short_Literal 0x132
07e4 010f | | Execute Exception,Equal
07e5 6809 |h | Jump_Zero 0x7ef
07e6 4801 |H | Short_Literal 0x1
07e7 0092 0c18 | | Action Push_String_Extended,0xc18 ; "read"
07e9 e5ff | | Load 0x2,-0x1
07ea 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
07ec e00a | | Load 0x0,0xa
07ed 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
07ee 4502 |E | Exit_Suprogram New_Top_Offset 0x2
07ef 4933 |I3 | Short_Literal 0x133
07f0 010f | | Execute Exception,Equal
07f1 6807 |h | Jump_Zero 0x7f9
07f2 4801 |H | Short_Literal 0x1
07f3 e5ff | | Load 0x2,-0x1
07f4 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
07f6 e00a | | Load 0x0,0xa
07f7 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
07f8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
07f9 4934 |I4 | Short_Literal 0x134
07fa 010f | | Execute Exception,Equal
07fb 6809 |h | Jump_Zero 0x805
07fc 4801 |H | Short_Literal 0x1
07fd 0092 0c18 | | Action Push_String_Extended,0xc18 ; "read"
07ff e5ff | | Load 0x2,-0x1
0800 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
0802 e00a | | Load 0x0,0xa
0803 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
0804 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0805 4935 |I5 | Short_Literal 0x135
0806 010f | | Execute Exception,Equal
0807 6809 |h | Jump_Zero 0x811
0808 4801 |H | Short_Literal 0x1
0809 0092 0c18 | | Action Push_String_Extended,0xc18 ; "read"
080b e5ff | | Load 0x2,-0x1
080c 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
080e e00a | | Load 0x0,0xa
080f 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0810 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0811 4936 |I6 | Short_Literal 0x136
0812 010f | | Execute Exception,Equal
0813 6809 |h | Jump_Zero 0x81d
0814 4801 |H | Short_Literal 0x1
0815 0092 0c18 | | Action Push_String_Extended,0xc18 ; "read"
0817 e5ff | | Load 0x2,-0x1
0818 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
081a e00a | | Load 0x0,0xa
081b 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
081c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
081d 00d8 | | Load_Top At_Offset_0
081e 0107 | | Execute Exception,Get_Name
081f 4940 |I@ | Short_Literal 0x140
0820 494f |IO | Short_Literal 0x14f
0821 0262 | b | Execute Discrete,In_Range
0822 6802 |h | Jump_Zero 0x825
0823 8403 | | Call 0x2,0x3
0824 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0825 00d8 | | Load_Top At_Offset_0
0826 0107 | | Execute Exception,Get_Name
0827 4960 |I` | Short_Literal 0x160
0828 496f |Io | Short_Literal 0x16f
0829 0262 | b | Execute Discrete,In_Range
082a 6802 |h | Jump_Zero 0x82d
082b 8404 | | Call 0x2,0x4
082c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
082d 0100 | | Execute Exception,Raise
082e 0000 0000 | | .XXX[0x2]
0830 ; --------------------------------------------------------------------------------------
0830 ; SUBPROGRAM
0830 ; --------------------------------------------------------------------------------------
0830 083c | < | .CONST 0x083c ; Address of begin
0831 0004 | | .CONST 0x0004 ; Address of exception handler
0832 0005 | | .CONST 0x0005 ; Number of locals
0833 INIT_0830:
0833 00da | | Load_Top At_Offset_2
0834 e20e | | Load 0x1,0xe
0835 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0836 00e4 | | Load_Encached Positive_Cache
0837 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0838 029f 0a6b | k| Declare_Subprogram INIT_0a68,For_Call
083a 029f 0ad3 | | Declare_Subprogram INIT_0ad0,For_Call
083c BODY_0830:
083c e5fe | | Load 0x2,-0x2
083d 8404 | | Call 0x2,0x4
083e e009 | | Load 0x0,0x9
083f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0840 00d1 | | Pop_Control Pop_Count_1
0841 e5fd | | Load 0x2,-0x3
0842 4820 |H | Short_Literal 0x20
0843 4800 |H | Short_Literal 0x0
0844 e009 | | Load 0x0,0x9
0845 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0846 00d1 | | Pop_Control Pop_Count_1
0847 e5fc | | Load 0x2,-0x4
0848 4820 |H | Short_Literal 0x20
0849 4800 |H | Short_Literal 0x0
084a e009 | | Load 0x0,0x9
084b 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
084c 00d1 | | Pop_Control Pop_Count_1
084d 00cf | | Action Mark_Auxiliary
084e 8405 | | Call 0x2,0x5
084f 00c9 | | Action Pop_Auxiliary_Loop
0850 7ffd | | Jump 0x84e
0851 0000 0000 | | .BLANK 0000[0x7]
0858 ; --------------------------------------------------------------------------------------
0858 ; SUBPROGRAM
0858 ; --------------------------------------------------------------------------------------
0858 0863 | c | .CONST 0x0863 ; Address of begin
0859 0004 | | .CONST 0x0004 ; Address of exception handler
085a 0003 | | .CONST 0x0003 ; Number of locals
085b INIT_0858:
085b e006 | | Load 0x0,0x6
085c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
085d 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
085e 02c7 | | Declare_Variable Any
085f 00d8 | | Load_Top At_Offset_0
0860 1c00 | | Execute_Immediate Run_Utility,0x0
0861 029f 0b2b | +| Declare_Subprogram INIT_0b28,For_Call
0863 BODY_0858:
0863 00d9 | | Load_Top At_Offset_1
0864 0120 | | Execute Any,Is_Value
0865 6804 |h | Jump_Zero 0x86a
0866 e006 | | Load 0x0,0x6
0867 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0868 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
0869 7801 |x | Jump 0x86b
086a 00d9 | | Load_Top At_Offset_1
086b e228 | ( | Load 0x1,0x28
086c e006 | | Load 0x0,0x6
086d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
086e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
086f c402 | | Store 0x2,0x2
0870 00d9 | | Load_Top At_Offset_1
0871 e006 | | Load 0x0,0x6
0872 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0873 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
0874 6801 |h | Jump_Zero 0x876
0875 8403 | | Call 0x2,0x3
0876 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0877 0000 | | .XXX[0x1]
0878 ; --------------------------------------------------------------------------------------
0878 ; SUBPROGRAM
0878 ; --------------------------------------------------------------------------------------
0878 0897 | | .CONST 0x0897 ; Address of begin
0879 0004 | | .CONST 0x0004 ; Address of exception handler
087a 0007 | | .CONST 0x0007 ; Number of locals
087b INIT_0878:
087b e008 | | Load 0x0,0x8
087c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
087d 02c7 | | Declare_Variable Any
087e 00d8 | | Load_Top At_Offset_0
087f 1c00 | | Execute_Immediate Run_Utility,0x0
0880 e006 | | Load 0x0,0x6
0881 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0882 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0883 02c7 | | Declare_Variable Any
0884 00d8 | | Load_Top At_Offset_0
0885 1c00 | | Execute_Immediate Run_Utility,0x0
0886 e006 | | Load 0x0,0x6
0887 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0888 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0889 02c7 | | Declare_Variable Any
088a 00d8 | | Load_Top At_Offset_0
088b 1c00 | | Execute_Immediate Run_Utility,0x0
088c e006 | | Load 0x0,0x6
088d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
088e 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
088f 02c7 | | Declare_Variable Any
0890 00d8 | | Load_Top At_Offset_0
0891 1c00 | | Execute_Immediate Run_Utility,0x0
0892 e006 | | Load 0x0,0x6
0893 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0894 1b44 | D | Execute Package,Field_Read,Field_Number 0x44
0895 029f 0b7b | {| Declare_Subprogram INIT_0b78,For_Call
0897 BODY_0878:
0897 00be | | Action Activate_Tasks
0898 822f | / | Call 0x1,0x2f
0899 4801 |H | Short_Literal 0x1
089a e006 | | Load 0x0,0x6
089b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
089c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
089d e5ff | | Load 0x2,-0x1
089e e009 | | Load 0x0,0x9
089f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
08a0 e006 | | Load 0x0,0x6
08a1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
08a2 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
08a3 c403 | | Store 0x2,0x3
08a4 e403 | | Load 0x2,0x3
08a5 e006 | | Load 0x0,0x6
08a6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08a7 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
08a8 c405 | | Store 0x2,0x5
08a9 00da | | Load_Top At_Offset_2
08aa e006 | | Load 0x0,0x6
08ab 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08ac 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
08ad 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
08ae 00d9 | | Load_Top At_Offset_1
08af 4618 |F | Jump_Case 0x19
08b0 7821 |x! | Jump 0x8d2 ; case 0x0
08b1 7820 |x | Jump 0x8d2 ; case 0x1
08b2 7859 |xY | Jump 0x90c ; case 0x2
08b3 7815 |x | Jump 0x8c9 ; case 0x3
08b4 7814 |x | Jump 0x8c9 ; case 0x4
08b5 7813 |x | Jump 0x8c9 ; case 0x5
08b6 7812 |x | Jump 0x8c9 ; case 0x6
08b7 7811 |x | Jump 0x8c9 ; case 0x7
08b8 7810 |x | Jump 0x8c9 ; case 0x8
08b9 785d |x] | Jump 0x917 ; case 0x9
08ba 780e |x | Jump 0x8c9 ; case 0xa
08bb 780d |x | Jump 0x8c9 ; case 0xb
08bc 7863 |xc | Jump 0x920 ; case 0xc
08bd 781d |x | Jump 0x8db ; case 0xd
08be 7868 |xh | Jump 0x927 ; case 0xe
08bf 786e |xn | Jump 0x92e ; case 0xf
08c0 7874 |xt | Jump 0x935 ; case 0x10
08c1 787e |x~ | Jump 0x940 ; case 0x11
08c2 7806 |x | Jump 0x8c9 ; case 0x12
08c3 7805 |x | Jump 0x8c9 ; case 0x13
08c4 7804 |x | Jump 0x8c9 ; case 0x14
08c5 7803 |x | Jump 0x8c9 ; case 0x15
08c6 7802 |x | Jump 0x8c9 ; case 0x16
08c7 7801 |x | Jump 0x8c9 ; case 0x17
08c8 7800 |x | Jump 0x8c9 ; case 0x18
08c9 4801 |H | Short_Literal 0x1
08ca e5ff | | Load 0x2,-0x1
08cb e009 | | Load 0x0,0x9
08cc 1813 | | Execute Package,Field_Execute,Field_Number 0x13
08cd 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
08cf e00a | | Load 0x0,0xa
08d0 1844 | D | Execute Package,Field_Execute,Field_Number 0x44
08d1 7876 |xv | Jump 0x948
08d2 8407 | | Call 0x2,0x7
08d3 e403 | | Load 0x2,0x3
08d4 e006 | | Load 0x0,0x6
08d5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
08d6 1810 | | Execute Package,Field_Execute,Field_Number 0x10
08d7 c404 | | Store 0x2,0x4
08d8 4801 |H | Short_Literal 0x1
08d9 a5fc | | Store_Unchecked 0x2,-0x4
08da 786d |xm | Jump 0x948
08db 4801 |H | Short_Literal 0x1
08dc e006 | | Load 0x0,0x6
08dd 1b0e | | Execute Package,Field_Read,Field_Number 0xe
08de 1813 | | Execute Package,Field_Execute,Field_Number 0x13
08df e5ff | | Load 0x2,-0x1
08e0 e009 | | Load 0x0,0x9
08e1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
08e2 e006 | | Load 0x0,0x6
08e3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
08e4 1815 | | Execute Package,Field_Execute,Field_Number 0x15
08e5 e006 | | Load 0x0,0x6
08e6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
08e7 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
08e8 c404 | | Store 0x2,0x4
08e9 00db | | Load_Top At_Offset_3
08ea e006 | | Load 0x0,0x6
08eb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08ec 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
08ed 6808 |h | Jump_Zero 0x8f6
08ee 4801 |H | Short_Literal 0x1
08ef e5ff | | Load 0x2,-0x1
08f0 e009 | | Load 0x0,0x9
08f1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
08f2 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
08f4 e00a | | Load 0x0,0xa
08f5 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
08f6 e5fe | | Load 0x2,-0x2
08f7 482e |H. | Short_Literal 0x2e
08f8 e404 | | Load 0x2,0x4
08f9 e006 | | Load 0x0,0x6
08fa 1b0e | | Execute Package,Field_Read,Field_Number 0xe
08fb 1820 | | Execute Package,Field_Execute,Field_Number 0x20
08fc 01cb | | Execute Vector,Append
08fd e5ff | | Load 0x2,-0x1
08fe e009 | | Load 0x0,0x9
08ff 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0900 e006 | | Load 0x0,0x6
0901 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0902 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0903 e00c | | Load 0x0,0xc
0904 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0905 01cc | | Execute Vector,Catenate
0906 e009 | | Load 0x0,0x9
0907 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0908 00d1 | | Pop_Control Pop_Count_1
0909 4800 |H | Short_Literal 0x0
090a a5fc | | Store_Unchecked 0x2,-0x4
090b 783c |x< | Jump 0x948
090c 4801 |H | Short_Literal 0x1
090d 0092 0c1c | | Action Push_String_Extended,0xc1c ; "deleted"
090f e5ff | | Load 0x2,-0x1
0910 e009 | | Load 0x0,0x9
0911 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0912 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
0914 e00a | | Load 0x0,0xa
0915 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0916 7831 |x1 | Jump 0x948
0917 4801 |H | Short_Literal 0x1
0918 e5ff | | Load 0x2,-0x1
0919 e009 | | Load 0x0,0x9
091a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
091b 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
091d e00a | | Load 0x0,0xa
091e 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
091f 7828 |x( | Jump 0x948
0920 4801 |H | Short_Literal 0x1
0921 e5ff | | Load 0x2,-0x1
0922 e009 | | Load 0x0,0x9
0923 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0924 e00a | | Load 0x0,0xa
0925 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
0926 7821 |x! | Jump 0x948
0927 4801 |H | Short_Literal 0x1
0928 e5ff | | Load 0x2,-0x1
0929 e009 | | Load 0x0,0x9
092a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
092b e00a | | Load 0x0,0xa
092c 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
092d 781a |x | Jump 0x948
092e 4801 |H | Short_Literal 0x1
092f e5ff | | Load 0x2,-0x1
0930 e009 | | Load 0x0,0x9
0931 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0932 e00a | | Load 0x0,0xa
0933 1843 | C | Execute Package,Field_Execute,Field_Number 0x43
0934 7813 |x | Jump 0x948
0935 4801 |H | Short_Literal 0x1
0936 0092 0c1c | | Action Push_String_Extended,0xc1c ; "deleted"
0938 e5ff | | Load 0x2,-0x1
0939 e009 | | Load 0x0,0x9
093a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
093b 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
093d e00a | | Load 0x0,0xa
093e 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
093f 7808 |x | Jump 0x948
0940 4801 |H | Short_Literal 0x1
0941 e5ff | | Load 0x2,-0x1
0942 e009 | | Load 0x0,0x9
0943 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0944 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
0946 e00a | | Load 0x0,0xa
0947 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
0948 00db | | Load_Top At_Offset_3
0949 e006 | | Load 0x0,0x6
094a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
094b 1817 | | Execute Package,Field_Execute,Field_Number 0x17
094c 0e03 | | Execute_Immediate Not_Equal,0x3
094d 6806 |h | Jump_Zero 0x954
094e e5fd | | Load 0x2,-0x3
094f 00ea | | Load_Encached Null_String_Cache
0950 e009 | | Load 0x0,0x9
0951 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0952 00d1 | | Pop_Control Pop_Count_1
0953 7819 |x | Jump 0x96d
0954 00cf | | Action Mark_Auxiliary
0955 e404 | | Load 0x2,0x4
0956 c403 | | Store 0x2,0x3
0957 e403 | | Load 0x2,0x3
0958 e006 | | Load 0x0,0x6
0959 1b0f | | Execute Package,Field_Read,Field_Number 0xf
095a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
095b c404 | | Store 0x2,0x4
095c e404 | | Load 0x2,0x4
095d e006 | | Load 0x0,0x6
095e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
095f 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0960 0f01 | | Execute_Immediate Equal,0x1
0961 7002 |p | Jump_Nonzero 0x964
0962 00c9 | | Action Pop_Auxiliary_Loop
0963 7ff1 | | Jump 0x955
0964 00ce | | Action Pop_Auxiliary
0965 e5fd | | Load 0x2,-0x3
0966 e403 | | Load 0x2,0x3
0967 e006 | | Load 0x0,0x6
0968 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0969 1820 | | Execute Package,Field_Execute,Field_Number 0x20
096a e009 | | Load 0x0,0x9
096b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
096c 00d1 | | Pop_Control Pop_Count_1
096d e228 | ( | Load 0x1,0x28
096e e404 | | Load 0x2,0x4
096f e006 | | Load 0x0,0x6
0970 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0971 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0972 a5fb | | Store_Unchecked 0x2,-0x5
0973 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0974 0000 0000 | | .BLANK 0000[0x4]
0978 ; --------------------------------------------------------------------------------------
0978 ; SUBPROGRAM
0978 ; --------------------------------------------------------------------------------------
0978 09ab | | .CONST 0x09ab ; Address of begin
0979 0004 | | .CONST 0x0004 ; Address of exception handler
097a 0008 | | .CONST 0x0008 ; Number of locals
097b INIT_0978:
097b 0092 0c24 | $| Action Push_String_Extended,0xc24 ; "text"
097d e006 | | Load 0x0,0x6
097e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
097f 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0980 e006 | | Load 0x0,0x6
0981 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0982 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0983 011e | | Execute Any,Convert
0984 e006 | | Load 0x0,0x6
0985 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0986 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0987 02c7 | | Declare_Variable Any
0988 4803 |H | Short_Literal 0x3
0989 4801 |H | Short_Literal 0x1
098a 0092 0c25 | %| Action Push_String_Extended,0xc25 ; "@"
098c e5ff | | Load 0x2,-0x1
098d e006 | | Load 0x0,0x6
098e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
098f 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0990 a403 | | Store_Unchecked 0x2,0x3
0991 e006 | | Load 0x0,0x6
0992 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0993 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0994 02c7 | | Declare_Variable Any
0995 00d8 | | Load_Top At_Offset_0
0996 1c00 | | Execute_Immediate Run_Utility,0x0
0997 48ff |H | Short_Literal 0xff
0998 e009 | | Load 0x0,0x9
0999 1b0e | | Execute Package,Field_Read,Field_Number 0xe
099a 1c08 | | Execute_Immediate Run_Utility,0x8
099b 00d8 | | Load_Top At_Offset_0
099c 1c00 | | Execute_Immediate Run_Utility,0x0
099d 48ff |H | Short_Literal 0xff
099e e009 | | Load 0x0,0x9
099f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
09a0 1c08 | | Execute_Immediate Run_Utility,0x8
09a1 00d8 | | Load_Top At_Offset_0
09a2 1c00 | | Execute_Immediate Run_Utility,0x0
09a3 48ff |H | Short_Literal 0xff
09a4 e009 | | Load 0x0,0x9
09a5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
09a6 1c08 | | Execute_Immediate Run_Utility,0x8
09a7 00d8 | | Load_Top At_Offset_0
09a8 1c00 | | Execute_Immediate Run_Utility,0x0
09a9 029f 0b8b | | Declare_Subprogram INIT_0b88,For_Call
09ab BODY_0978:
09ab e007 | | Load 0x0,0x7
09ac 1816 | | Execute Package,Field_Execute,Field_Number 0x16
09ad 00cf | | Action Mark_Auxiliary
09ae 7813 |x | Jump 0x9c2
09af e403 | | Load 0x2,0x3
09b0 e006 | | Load 0x0,0x6
09b1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
09b2 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
09b3 c404 | | Store 0x2,0x4
09b4 e404 | | Load 0x2,0x4
09b5 e006 | | Load 0x0,0x6
09b6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
09b7 181f | | Execute Package,Field_Execute,Field_Number 0x1f
09b8 e402 | | Load 0x2,0x2
09b9 012f | / | Execute Any,Equal
09ba 6801 |h | Jump_Zero 0x9bc
09bb 8408 | | Call 0x2,0x8
09bc e403 | | Load 0x2,0x3
09bd e006 | | Load 0x0,0x6
09be 1b0d | | Execute Package,Field_Read,Field_Number 0xd
09bf 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
09c0 c403 | | Store 0x2,0x3
09c1 00c9 | | Action Pop_Auxiliary_Loop
09c2 e403 | | Load 0x2,0x3
09c3 e006 | | Load 0x0,0x6
09c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
09c5 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
09c6 6fe8 |o | Jump_Zero 0x9af
09c7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
09c8 ; --------------------------------------------------------------------------------------
09c8 ; SUBPROGRAM
09c8 ; --------------------------------------------------------------------------------------
09c8 09cb | | .CONST 0x09cb ; Address of begin
09c9 09d4 | | .CONST 0x09d4 ; Address of exception handler
09ca 0001 | | .CONST 0x0001 ; Number of locals
09cb BODY_09c8:
09cb INIT_09c8:
09cb e407 | | Load 0x2,0x7
09cc e009 | | Load 0x0,0x9
09cd 1813 | | Execute Package,Field_Execute,Field_Number 0x13
09ce e406 | | Load 0x2,0x6
09cf e009 | | Load 0x0,0x9
09d0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
09d1 e007 | | Load 0x0,0x7
09d2 180f | | Execute Package,Field_Execute,Field_Number 0xf
09d3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
09d4 TRAP_09c8:
09d4 e007 | | Load 0x0,0x7
09d5 1b12 | | Execute Package,Field_Read,Field_Number 0x12
09d6 010f | | Execute Exception,Equal
09d7 680a |h | Jump_Zero 0x9e2
09d8 4801 |H | Short_Literal 0x1
09d9 e407 | | Load 0x2,0x7
09da e009 | | Load 0x0,0x9
09db 1813 | | Execute Package,Field_Execute,Field_Number 0x13
09dc e406 | | Load 0x2,0x6
09dd e009 | | Load 0x0,0x9
09de 1813 | | Execute Package,Field_Execute,Field_Number 0x13
09df e00a | | Load 0x0,0xa
09e0 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
09e1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
09e2 0100 | | Execute Exception,Raise
09e3 0000 0000 | | .BLANK 0000[0x5]
09e8 ; --------------------------------------------------------------------------------------
09e8 ; SUBPROGRAM
09e8 ; --------------------------------------------------------------------------------------
09e8 09ed | | .CONST 0x09ed ; Address of begin
09e9 0004 | | .CONST 0x0004 ; Address of exception handler
09ea 0002 | | .CONST 0x0002 ; Number of locals
09eb INIT_09e8:
09eb e402 | | Load 0x2,0x2
09ec 822b | + | Call 0x1,0x2b
09ed BODY_09e8:
09ed 00d8 | | Load_Top At_Offset_0
09ee 01dd | | Execute Vector,First
09ef 00d9 | | Load_Top At_Offset_1
09f0 01d7 | | Execute Vector,Field_Read
09f1 00d8 | | Load_Top At_Offset_0
09f2 0d21 | ! | Execute_Immediate Less,0x21
09f3 7014 |p | Jump_Nonzero 0xa08
09f4 00d8 | | Load_Top At_Offset_0
09f5 0c2c | , | Execute_Immediate Greater_Equal,0x2c
09f6 7007 |p | Jump_Nonzero 0x9fe
09f7 0b22 | " | Execute_Immediate Case_Compare,0x22
09f8 7012 |p | Jump_Nonzero 0xa0b
09f9 4823 |H# | Short_Literal 0x23
09fa 482a |H* | Short_Literal 0x2a
09fb 0262 | b | Execute Discrete,In_Range
09fc 700c |p | Jump_Nonzero 0xa09
09fd 7837 |x7 | Jump 0xa35
09fe 00d8 | | Load_Top At_Offset_0
09ff 4841 |HA | Short_Literal 0x41
0a00 485a |HZ | Short_Literal 0x5a
0a01 0262 | b | Execute Discrete,In_Range
0a02 7008 |p | Jump_Nonzero 0xa0b
0a03 4861 |Ha | Short_Literal 0x61
0a04 487a |Hz | Short_Literal 0x7a
0a05 0262 | b | Execute Discrete,In_Range
0a06 7005 |p | Jump_Nonzero 0xa0c
0a07 7801 |x | Jump 0xa09
0a08 00d1 | | Pop_Control Pop_Count_1
0a09 00cc | | Action Pop_Block
0a0a 7d5f |}_ | Jump 0x76a
0a0b 00d1 | | Pop_Control Pop_Count_1
0a0c 00d8 | | Load_Top At_Offset_0
0a0d 01dd | | Execute Vector,First
0a0e 00d9 | | Load_Top At_Offset_1
0a0f 01d7 | | Execute Vector,Field_Read
0a10 0f22 | " | Execute_Immediate Equal,0x22
0a11 00d9 | | Load_Top At_Offset_1
0a12 01dc | | Execute Vector,Last
0a13 00da | | Load_Top At_Offset_2
0a14 01d7 | | Execute Vector,Field_Read
0a15 0f22 | " | Execute_Immediate Equal,0x22
0a16 0279 | y | Execute Discrete,And
0a17 6817 |h | Jump_Zero 0xa2f
0a18 e5fd | | Load 0x2,-0x3
0a19 00d9 | | Load_Top At_Offset_1
0a1a 01dd | | Execute Vector,First
0a1b 0a01 | | Execute_Immediate Plus,0x1
0a1c 00d8 | | Load_Top At_Offset_0
0a1d 00e2 | | Load_Encached Integer_Cache
0a1e 0260 | ` | Execute Discrete,In_Type
0a1f 7001 |p | Jump_Nonzero 0xa21
0a20 0801 | | Execute_Immediate Raise,0x1
0a21 00da | | Load_Top At_Offset_2
0a22 01dc | | Execute Vector,Last
0a23 0aff | | Execute_Immediate Plus,-0x1
0a24 00d8 | | Load_Top At_Offset_0
0a25 00e2 | | Load_Encached Integer_Cache
0a26 0260 | ` | Execute Discrete,In_Type
0a27 7001 |p | Jump_Nonzero 0xa29
0a28 0801 | | Execute_Immediate Raise,0x1
0a29 00db | | Load_Top At_Offset_3
0a2a 01cf | | Execute Vector,Slice_Read
0a2b e009 | | Load 0x0,0x9
0a2c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0a2d 00d1 | | Pop_Control Pop_Count_1
0a2e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0a2f e5fd | | Load 0x2,-0x3
0a30 00d9 | | Load_Top At_Offset_1
0a31 e009 | | Load 0x0,0x9
0a32 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0a33 00d1 | | Pop_Control Pop_Count_1
0a34 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0a35 e5fc | | Load 0x2,-0x4
0a36 00d9 | | Load_Top At_Offset_1
0a37 e009 | | Load 0x0,0x9
0a38 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0a39 00d1 | | Pop_Control Pop_Count_1
0a3a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0a3b 0000 0000 | | .BLANK 0000[0x5]
0a40 ; --------------------------------------------------------------------------------------
0a40 ; SUBPROGRAM
0a40 ; --------------------------------------------------------------------------------------
0a40 0a46 | F | .CONST 0x0a46 ; Address of begin
0a41 0004 | | .CONST 0x0004 ; Address of exception handler
0a42 0002 | | .CONST 0x0002 ; Number of locals
0a43 INIT_0a40:
0a43 e402 | | Load 0x2,0x2
0a44 e008 | | Load 0x0,0x8
0a45 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0a46 BODY_0a40:
0a46 e402 | | Load 0x2,0x2
0a47 e008 | | Load 0x0,0x8
0a48 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0a49 c402 | | Store 0x2,0x2
0a4a 4801 |H | Short_Literal 0x1
0a4b 0092 0c18 | | Action Push_String_Extended,0xc18 ; "read"
0a4d 00da | | Load_Top At_Offset_2
0a4e 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
0a50 e00a | | Load 0x0,0xa
0a51 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
0a52 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0a53 0000 0000 | | .BLANK 0000[0x5]
0a58 ; --------------------------------------------------------------------------------------
0a58 ; SUBPROGRAM
0a58 ; --------------------------------------------------------------------------------------
0a58 0a5e | ^ | .CONST 0x0a5e ; Address of begin
0a59 0004 | | .CONST 0x0004 ; Address of exception handler
0a5a 0002 | | .CONST 0x0002 ; Number of locals
0a5b INIT_0a58:
0a5b e402 | | Load 0x2,0x2
0a5c e008 | | Load 0x0,0x8
0a5d 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0a5e BODY_0a58:
0a5e e402 | | Load 0x2,0x2
0a5f e008 | | Load 0x0,0x8
0a60 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0a61 c402 | | Store 0x2,0x2
0a62 4801 |H | Short_Literal 0x1
0a63 00d9 | | Load_Top At_Offset_1
0a64 e00a | | Load 0x0,0xa
0a65 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0a66 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0a67 0000 | | .XXX[0x1]
0a68 ; --------------------------------------------------------------------------------------
0a68 ; SUBPROGRAM
0a68 ; --------------------------------------------------------------------------------------
0a68 0a6d | m | .CONST 0x0a6d ; Address of begin
0a69 0004 | | .CONST 0x0004 ; Address of exception handler
0a6a 0003 | | .CONST 0x0003 ; Number of locals
0a6b INIT_0a68:
0a6b 00e2 | | Load_Encached Integer_Cache
0a6c 00e2 | | Load_Encached Integer_Cache
0a6d BODY_0a68:
0a6d 00cf | | Action Mark_Auxiliary
0a6e 00cf | | Action Mark_Auxiliary
0a6f 7804 |x | Jump 0xa74
0a70 e403 | | Load 0x2,0x3
0a71 0a01 | | Execute_Immediate Plus,0x1
0a72 c403 | | Store 0x2,0x3
0a73 00c9 | | Action Pop_Auxiliary_Loop
0a74 e403 | | Load 0x2,0x3
0a75 e402 | | Load 0x2,0x2
0a76 027a | z | Execute Discrete,Less_Equal
0a77 6806 |h | Jump_Zero 0xa7e
0a78 e403 | | Load 0x2,0x3
0a79 e5ff | | Load 0x2,-0x1
0a7a e20e | | Load 0x1,0xe
0a7b 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0a7c 822a | * | Call 0x1,0x2a
0a7d 77f2 |w | Jump_Nonzero 0xa70
0a7e 00ce | | Action Pop_Auxiliary
0a7f e403 | | Load 0x2,0x3
0a80 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0a81 00cf | | Action Mark_Auxiliary
0a82 7804 |x | Jump 0xa87
0a83 e403 | | Load 0x2,0x3
0a84 0a01 | | Execute_Immediate Plus,0x1
0a85 c403 | | Store 0x2,0x3
0a86 00c9 | | Action Pop_Auxiliary_Loop
0a87 e403 | | Load 0x2,0x3
0a88 e402 | | Load 0x2,0x2
0a89 027a | z | Execute Discrete,Less_Equal
0a8a 6806 |h | Jump_Zero 0xa91
0a8b e403 | | Load 0x2,0x3
0a8c e5ff | | Load 0x2,-0x1
0a8d e20e | | Load 0x1,0xe
0a8e 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0a8f 0e0a | | Execute_Immediate Not_Equal,0xa
0a90 77f2 |w | Jump_Nonzero 0xa83
0a91 00ce | | Action Pop_Auxiliary
0a92 e403 | | Load 0x2,0x3
0a93 0aff | | Execute_Immediate Plus,-0x1
0a94 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0a95 00cf | | Action Mark_Auxiliary
0a96 7804 |x | Jump 0xa9b
0a97 00da | | Load_Top At_Offset_2
0a98 0aff | | Execute_Immediate Plus,-0x1
0a99 005b | [ | Store_Top Discrete,At_Offset_3
0a9a 00c9 | | Action Pop_Auxiliary_Loop
0a9b 00da | | Load_Top At_Offset_2
0a9c e602 | | Load 0x3,0x2
0a9d 027b | { | Execute Discrete,Greater_Equal
0a9e 680b |h | Jump_Zero 0xaaa
0a9f 00da | | Load_Top At_Offset_2
0aa0 00d8 | | Load_Top At_Offset_0
0aa1 00e4 | | Load_Encached Positive_Cache
0aa2 0260 | ` | Execute Discrete,In_Type
0aa3 7001 |p | Jump_Nonzero 0xaa5
0aa4 0801 | | Execute_Immediate Raise,0x1
0aa5 e5ff | | Load 0x2,-0x1
0aa6 e20e | | Load 0x1,0xe
0aa7 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0aa8 822a | * | Call 0x1,0x2a
0aa9 77ed |w | Jump_Nonzero 0xa97
0aaa 00ce | | Action Pop_Auxiliary
0aab e403 | | Load 0x2,0x3
0aac e402 | | Load 0x2,0x2
0aad 027a | z | Execute Discrete,Less_Equal
0aae 6803 |h | Jump_Zero 0xab2
0aaf e403 | | Load 0x2,0x3
0ab0 0a01 | | Execute_Immediate Plus,0x1
0ab1 c403 | | Store 0x2,0x3
0ab2 00d9 | | Load_Top At_Offset_1
0ab3 00db | | Load_Top At_Offset_3
0ab4 027b | { | Execute Discrete,Greater_Equal
0ab5 e403 | | Load 0x2,0x3
0ab6 e402 | | Load 0x2,0x2
0ab7 027d | } | Execute Discrete,Greater
0ab8 0278 | x | Execute Discrete,Or
0ab9 7002 |p | Jump_Nonzero 0xabc
0aba 00c9 | | Action Pop_Auxiliary_Loop
0abb 7fb2 | | Jump 0xa6e
0abc 00ce | | Action Pop_Auxiliary
0abd 00d8 | | Load_Top At_Offset_0
0abe 00d8 | | Load_Top At_Offset_0
0abf 00e3 | | Load_Encached Natural_Cache
0ac0 0260 | ` | Execute Discrete,In_Type
0ac1 7001 |p | Jump_Nonzero 0xac3
0ac2 0801 | | Execute_Immediate Raise,0x1
0ac3 00da | | Load_Top At_Offset_2
0ac4 00d8 | | Load_Top At_Offset_0
0ac5 00e4 | | Load_Encached Positive_Cache
0ac6 0260 | ` | Execute Discrete,In_Type
0ac7 7001 |p | Jump_Nonzero 0xac9
0ac8 0801 | | Execute_Immediate Raise,0x1
0ac9 e5ff | | Load 0x2,-0x1
0aca e20e | | Load 0x1,0xe
0acb 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0acc 00ca | | Action Exit_Nullary_Function
0acd 0000 0000 | | .XXX[0x3]
0acf 0000 | |
0ad0 ; --------------------------------------------------------------------------------------
0ad0 ; SUBPROGRAM
0ad0 ; --------------------------------------------------------------------------------------
0ad0 0ad4 | | .CONST 0x0ad4 ; Address of begin
0ad1 0004 | | .CONST 0x0004 ; Address of exception handler
0ad2 0002 | | .CONST 0x0002 ; Number of locals
0ad3 INIT_0ad0:
0ad3 8404 | | Call 0x2,0x4
0ad4 BODY_0ad0:
0ad4 00d8 | | Load_Top At_Offset_0
0ad5 01db | | Execute Vector,Length
0ad6 7002 |p | Jump_Nonzero 0xad9
0ad7 00cc | | Action Pop_Block
0ad8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0ad9 00d8 | | Load_Top At_Offset_0
0ada 01dd | | Execute Vector,First
0adb 00d9 | | Load_Top At_Offset_1
0adc 01d7 | | Execute Vector,Field_Read
0add 00d8 | | Load_Top At_Offset_0
0ade 0d21 | ! | Execute_Immediate Less,0x21
0adf 7014 |p | Jump_Nonzero 0xaf4
0ae0 00d8 | | Load_Top At_Offset_0
0ae1 0c2c | , | Execute_Immediate Greater_Equal,0x2c
0ae2 7007 |p | Jump_Nonzero 0xaea
0ae3 0b22 | " | Execute_Immediate Case_Compare,0x22
0ae4 7012 |p | Jump_Nonzero 0xaf7
0ae5 4823 |H# | Short_Literal 0x23
0ae6 482a |H* | Short_Literal 0x2a
0ae7 0262 | b | Execute Discrete,In_Range
0ae8 700c |p | Jump_Nonzero 0xaf5
0ae9 7837 |x7 | Jump 0xb21
0aea 00d8 | | Load_Top At_Offset_0
0aeb 4841 |HA | Short_Literal 0x41
0aec 485a |HZ | Short_Literal 0x5a
0aed 0262 | b | Execute Discrete,In_Range
0aee 7008 |p | Jump_Nonzero 0xaf7
0aef 4861 |Ha | Short_Literal 0x61
0af0 487a |Hz | Short_Literal 0x7a
0af1 0262 | b | Execute Discrete,In_Range
0af2 7005 |p | Jump_Nonzero 0xaf8
0af3 7801 |x | Jump 0xaf5
0af4 00d1 | | Pop_Control Pop_Count_1
0af5 00cc | | Action Pop_Block
0af6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0af7 00d1 | | Pop_Control Pop_Count_1
0af8 00d8 | | Load_Top At_Offset_0
0af9 01dd | | Execute Vector,First
0afa 00d9 | | Load_Top At_Offset_1
0afb 01d7 | | Execute Vector,Field_Read
0afc 0f22 | " | Execute_Immediate Equal,0x22
0afd 00d9 | | Load_Top At_Offset_1
0afe 01dc | | Execute Vector,Last
0aff 00da | | Load_Top At_Offset_2
0b00 01d7 | | Execute Vector,Field_Read
0b01 0f22 | " | Execute_Immediate Equal,0x22
0b02 0279 | y | Execute Discrete,And
0b03 6817 |h | Jump_Zero 0xb1b
0b04 e5fd | | Load 0x2,-0x3
0b05 00d9 | | Load_Top At_Offset_1
0b06 01dd | | Execute Vector,First
0b07 0a01 | | Execute_Immediate Plus,0x1
0b08 00d8 | | Load_Top At_Offset_0
0b09 00e2 | | Load_Encached Integer_Cache
0b0a 0260 | ` | Execute Discrete,In_Type
0b0b 7001 |p | Jump_Nonzero 0xb0d
0b0c 0801 | | Execute_Immediate Raise,0x1
0b0d 00da | | Load_Top At_Offset_2
0b0e 01dc | | Execute Vector,Last
0b0f 0aff | | Execute_Immediate Plus,-0x1
0b10 00d8 | | Load_Top At_Offset_0
0b11 00e2 | | Load_Encached Integer_Cache
0b12 0260 | ` | Execute Discrete,In_Type
0b13 7001 |p | Jump_Nonzero 0xb15
0b14 0801 | | Execute_Immediate Raise,0x1
0b15 00db | | Load_Top At_Offset_3
0b16 01cf | | Execute Vector,Slice_Read
0b17 e009 | | Load 0x0,0x9
0b18 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0b19 00d1 | | Pop_Control Pop_Count_1
0b1a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0b1b e5fd | | Load 0x2,-0x3
0b1c 00d9 | | Load_Top At_Offset_1
0b1d e009 | | Load 0x0,0x9
0b1e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0b1f 00d1 | | Pop_Control Pop_Count_1
0b20 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0b21 e5fc | | Load 0x2,-0x4
0b22 00d9 | | Load_Top At_Offset_1
0b23 e009 | | Load 0x0,0x9
0b24 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0b25 00d1 | | Pop_Control Pop_Count_1
0b26 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0b27 0000 | | .XXX[0x1]
0b28 ; --------------------------------------------------------------------------------------
0b28 ; SUBPROGRAM
0b28 ; --------------------------------------------------------------------------------------
0b28 0b2f | / | .CONST 0x0b2f ; Address of begin
0b29 0004 | | .CONST 0x0004 ; Address of exception handler
0b2a 0002 | | .CONST 0x0002 ; Number of locals
0b2b INIT_0b28:
0b2b e228 | ( | Load 0x1,0x28
0b2c e006 | | Load 0x0,0x6
0b2d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0b2e 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0b2f BODY_0b28:
0b2f e402 | | Load 0x2,0x2
0b30 e006 | | Load 0x0,0x6
0b31 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0b32 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
0b33 4618 |F | Jump_Case 0x19
0b34 7818 |x | Jump 0xb4d ; case 0x0
0b35 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x1
0b36 781d |x | Jump 0xb54 ; case 0x2
0b37 7815 |x | Jump 0xb4d ; case 0x3
0b38 7814 |x | Jump 0xb4d ; case 0x4
0b39 7813 |x | Jump 0xb4d ; case 0x5
0b3a 7812 |x | Jump 0xb4d ; case 0x6
0b3b 7811 |x | Jump 0xb4d ; case 0x7
0b3c 7810 |x | Jump 0xb4d ; case 0x8
0b3d 782f |x/ | Jump 0xb6d ; case 0x9
0b3e 780e |x | Jump 0xb4d ; case 0xa
0b3f 780d |x | Jump 0xb4d ; case 0xb
0b40 780c |x | Jump 0xb4d ; case 0xc
0b41 780b |x | Jump 0xb4d ; case 0xd
0b42 780a |x | Jump 0xb4d ; case 0xe
0b43 7809 |x | Jump 0xb4d ; case 0xf
0b44 7818 |x | Jump 0xb5d ; case 0x10
0b45 7820 |x | Jump 0xb66 ; case 0x11
0b46 7806 |x | Jump 0xb4d ; case 0x12
0b47 7805 |x | Jump 0xb4d ; case 0x13
0b48 7804 |x | Jump 0xb4d ; case 0x14
0b49 7803 |x | Jump 0xb4d ; case 0x15
0b4a 7802 |x | Jump 0xb4d ; case 0x16
0b4b 7801 |x | Jump 0xb4d ; case 0x17
0b4c 7800 |x | Jump 0xb4d ; case 0x18
0b4d 4801 |H | Short_Literal 0x1
0b4e 00d9 | | Load_Top At_Offset_1
0b4f 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
0b51 e00a | | Load 0x0,0xa
0b52 1844 | D | Execute Package,Field_Execute,Field_Number 0x44
0b53 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0b54 4801 |H | Short_Literal 0x1
0b55 0092 0c23 | #| Action Push_String_Extended,0xc23 ; "used as the context"
0b57 00da | | Load_Top At_Offset_2
0b58 0092 0c22 | "| Action Push_String_Extended,0xc22 ; "library"
0b5a e00a | | Load 0x0,0xa
0b5b 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0b5c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0b5d 4801 |H | Short_Literal 0x1
0b5e 0092 0c23 | #| Action Push_String_Extended,0xc23 ; "used as the context"
0b60 00da | | Load_Top At_Offset_2
0b61 0092 0c22 | "| Action Push_String_Extended,0xc22 ; "library"
0b63 e00a | | Load 0x0,0xa
0b64 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
0b65 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0b66 4801 |H | Short_Literal 0x1
0b67 00d9 | | Load_Top At_Offset_1
0b68 0092 0c22 | "| Action Push_String_Extended,0xc22 ; "library"
0b6a e00a | | Load 0x0,0xa
0b6b 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
0b6c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0b6d 4801 |H | Short_Literal 0x1
0b6e 00d9 | | Load_Top At_Offset_1
0b6f 0092 0c22 | "| Action Push_String_Extended,0xc22 ; "library"
0b71 e00a | | Load 0x0,0xa
0b72 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0b73 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0b74 0000 0000 | | .BLANK 0000[0x4]
0b78 ; --------------------------------------------------------------------------------------
0b78 ; SUBPROGRAM
0b78 ; --------------------------------------------------------------------------------------
0b78 0b7f | | .CONST 0x0b7f ; Address of begin
0b79 0004 | | .CONST 0x0004 ; Address of exception handler
0b7a 0002 | | .CONST 0x0002 ; Number of locals
0b7b INIT_0b78:
0b7b e403 | | Load 0x2,0x3
0b7c e006 | | Load 0x0,0x6
0b7d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0b7e 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0b7f BODY_0b78:
0b7f e5fe | | Load 0x2,-0x2
0b80 00d9 | | Load_Top At_Offset_1
0b81 e009 | | Load 0x0,0x9
0b82 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0b83 00d1 | | Pop_Control Pop_Count_1
0b84 00d8 | | Load_Top At_Offset_0
0b85 822d | - | Call 0x1,0x2d
0b86 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0b87 0000 | | .XXX[0x1]
0b88 ; --------------------------------------------------------------------------------------
0b88 ; SUBPROGRAM
0b88 ; --------------------------------------------------------------------------------------
0b88 0b8f | | .CONST 0x0b8f ; Address of begin
0b89 0ba1 | | .CONST 0x0ba1 ; Address of exception handler
0b8a 0002 | | .CONST 0x0002 ; Number of locals
0b8b INIT_0b88:
0b8b e404 | | Load 0x2,0x4
0b8c e006 | | Load 0x0,0x6
0b8d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0b8e 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0b8f BODY_0b88:
0b8f e407 | | Load 0x2,0x7
0b90 e406 | | Load 0x2,0x6
0b91 e405 | | Load 0x2,0x5
0b92 00db | | Load_Top At_Offset_3
0b93 822c | , | Call 0x1,0x2c
0b94 00d3 | | Pop_Control Pop_Count_3
0b95 e407 | | Load 0x2,0x7
0b96 e009 | | Load 0x0,0x9
0b97 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0b98 0c01 | | Execute_Immediate Greater_Equal,0x1
0b99 6806 |h | Jump_Zero 0xba0
0b9a 00d8 | | Load_Top At_Offset_0
0b9b e407 | | Load 0x2,0x7
0b9c e009 | | Load 0x0,0x9
0b9d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0b9e e007 | | Load 0x0,0x7
0b9f 180f | | Execute Package,Field_Execute,Field_Number 0xf
0ba0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0ba1 TRAP_0b88:
0ba1 e20d | | Load 0x1,0xd
0ba2 010f | | Execute Exception,Equal
0ba3 6801 |h | Jump_Zero 0xba5
0ba4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0ba5 e007 | | Load 0x0,0x7
0ba6 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0ba7 010f | | Execute Exception,Equal
0ba8 680c |h | Jump_Zero 0xbb5
0ba9 4801 |H | Short_Literal 0x1
0baa e5ff | | Load 0x2,-0x1
0bab e006 | | Load 0x0,0x6
0bac 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0bad 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0bae e407 | | Load 0x2,0x7
0baf e009 | | Load 0x0,0x9
0bb0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0bb1 e602 | | Load 0x3,0x2
0bb2 e00a | | Load 0x0,0xa
0bb3 1842 | B | Execute Package,Field_Execute,Field_Number 0x42
0bb4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0bb5 4931 |I1 | Short_Literal 0x131
0bb6 010f | | Execute Exception,Equal
0bb7 6809 |h | Jump_Zero 0xbc1
0bb8 4801 |H | Short_Literal 0x1
0bb9 0092 0c18 | | Action Push_String_Extended,0xc18 ; "read"
0bbb 00db | | Load_Top At_Offset_3
0bbc 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
0bbe e00a | | Load 0x0,0xa
0bbf 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
0bc0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0bc1 4932 |I2 | Short_Literal 0x132
0bc2 010f | | Execute Exception,Equal
0bc3 6809 |h | Jump_Zero 0xbcd
0bc4 4801 |H | Short_Literal 0x1
0bc5 0092 0c18 | | Action Push_String_Extended,0xc18 ; "read"
0bc7 00db | | Load_Top At_Offset_3
0bc8 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
0bca e00a | | Load 0x0,0xa
0bcb 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0bcc 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0bcd 4933 |I3 | Short_Literal 0x133
0bce 010f | | Execute Exception,Equal
0bcf 6807 |h | Jump_Zero 0xbd7
0bd0 4801 |H | Short_Literal 0x1
0bd1 00da | | Load_Top At_Offset_2
0bd2 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
0bd4 e00a | | Load 0x0,0xa
0bd5 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
0bd6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0bd7 4934 |I4 | Short_Literal 0x134
0bd8 010f | | Execute Exception,Equal
0bd9 6809 |h | Jump_Zero 0xbe3
0bda 4801 |H | Short_Literal 0x1
0bdb 0092 0c18 | | Action Push_String_Extended,0xc18 ; "read"
0bdd 00db | | Load_Top At_Offset_3
0bde 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
0be0 e00a | | Load 0x0,0xa
0be1 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
0be2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0be3 4935 |I5 | Short_Literal 0x135
0be4 010f | | Execute Exception,Equal
0be5 6809 |h | Jump_Zero 0xbef
0be6 4801 |H | Short_Literal 0x1
0be7 0092 0c18 | | Action Push_String_Extended,0xc18 ; "read"
0be9 00db | | Load_Top At_Offset_3
0bea 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
0bec e00a | | Load 0x0,0xa
0bed 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0bee 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0bef 4936 |I6 | Short_Literal 0x136
0bf0 010f | | Execute Exception,Equal
0bf1 6809 |h | Jump_Zero 0xbfb
0bf2 4801 |H | Short_Literal 0x1
0bf3 0092 0c18 | | Action Push_String_Extended,0xc18 ; "read"
0bf5 00db | | Load_Top At_Offset_3
0bf6 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
0bf8 e00a | | Load 0x0,0xa
0bf9 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0bfa 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0bfb 00d8 | | Load_Top At_Offset_0
0bfc 0107 | | Execute Exception,Get_Name
0bfd 4940 |I@ | Short_Literal 0x140
0bfe 494f |IO | Short_Literal 0x14f
0bff 0262 | b | Execute Discrete,In_Range
0c00 6809 |h | Jump_Zero 0xc0a
0c01 4801 |H | Short_Literal 0x1
0c02 0092 0c18 | | Action Push_String_Extended,0xc18 ; "read"
0c04 00db | | Load_Top At_Offset_3
0c05 0092 0c17 | | Action Push_String_Extended,0xc17 ; "diagram"
0c07 e00a | | Load 0x0,0xa
0c08 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
0c09 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0c0a 00d8 | | Load_Top At_Offset_0
0c0b 0107 | | Execute Exception,Get_Name
0c0c 4960 |I` | Short_Literal 0x160
0c0d 496f |Io | Short_Literal 0x16f
0c0e 0262 | b | Execute Discrete,In_Range
0c0f 6805 |h | Jump_Zero 0xc15
0c10 4801 |H | Short_Literal 0x1
0c11 00da | | Load_Top At_Offset_2
0c12 e00a | | Load 0x0,0xa
0c13 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0c14 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0c15 0100 | | Execute Exception,Raise
0c16 ; --------------------------------------------------------------------------------------
0c16 ; STRING TABLE
0c16 ; --------------------------------------------------------------------------------------
0c16 0022 | " | .STRTAB 0x0022->0x0c27 ; "--- DISCOVER DIAGRAM ---"
0c17 0038 | 8 | .STRTAB 0x0038->0x0c33 ; "diagram"
0c18 003d | = | .STRTAB 0x003d->0x0c36 ; "read"
0c19 003f | ? | .STRTAB 0x003f->0x0c38 ; "written"
0c1a 0044 | D | .STRTAB 0x0044->0x0c3c ; "_ps"
0c1b 0045 | E | .STRTAB 0x0045->0x0c3d ; "postscript file"
0c1c 0052 | R | .STRTAB 0x0052->0x0c45 ; "deleted"
0c1d 0057 | W | .STRTAB 0x0057->0x0c48 ; "deleted);"
0c1e 005e | ^ | .STRTAB 0x005e->0x0c4d ; "reading"
0c1f 0063 | c | .STRTAB 0x0063->0x0c50 ; ".@"
0c20 0063 | c | .STRTAB 0x0063->0x0c51 ; "<PROFILE>"
0c21 006a | j | .STRTAB 0x006a->0x0c56 ; "<DIRECTORIES>"
0c22 0075 | u | .STRTAB 0x0075->0x0c5c ; "library"
0c23 007a | z | .STRTAB 0x007a->0x0c60 ; "used as the context"
0c24 008b | | .STRTAB 0x008b->0x0c69 ; "text"
0c25 008d | | .STRTAB 0x008d->0x0c6b ; "@"
0c26 008c | | .STREND 0x008c->0x0c6c
0c27 2d2d 2d20 |--- | .STRTAB_STRINGS
0c6c 0000 0000 | | .BLANK 0000[0x4]
0c70 ; --------------------------------------------------------------------------------------
0c70 ; Debug Table
0c70 ; --------------------------------------------------------------------------------------
0c70 0004 0011 | | .DEBUG4 0x0004,0x0011,0x9634,0x0000,0x0001,0x0000
0c76 15e1 8d95 | | .XXX[0x5d]
0c78 c1d1 a5bd | |
0c7a b8e8 a0c0 | |
0c7c b0dc c8a4 | |
0c7e b0c4 d8c0 | |
0c80 b0d8 d0ec | |
0c82 ec01 49bd | I |
0c84 cd95 7d4d | }M|
0c86 d1c9 a5b9 | |
0c88 9d7d 4185 | }A |
0c8a cdcd a5d9 | |
0c8c 957d 25d1 | }% |
0c8e 95c9 85d1 | |
0c90 bdc8 e950 | P|
0c92 a0c0 b0dc | |
0c94 e4a4 f5cc | |
0c96 c8d1 9185 | |
0c98 d185 7db1 | } |
0c9a 95b9 7d7c | }||
0c9c c8e1 49bd | I |
0c9e cd95 7d4d | }M|
0ca0 d1c9 a5b9 | |
0ca2 9d7d 4185 | }A |
0ca4 cdcd a5d9 | |
0ca6 957d 25d1 | }% |
0ca8 95c9 85d1 | |
0caa bdc8 e8a0 | |
0cac c0b0 e0a4 | |
0cae b0c0 b0cc | |
0cb0 c8ed 9185 | |
0cb2 d185 7d7c | }||
0cb4 c8e1 49bd | I |
0cb6 cd95 7d4d | }M|
0cb8 d1c9 a5b9 | |
0cba 9d7d 4185 | }A |
0cbc cdcd a5d9 | |
0cbe 957d 25d1 | }% |
0cc0 95c9 85d1 | |
0cc2 bdc8 e8a0 | |
0cc4 c0b0 c8cc | |
0cc6 a4b0 ccc8 | |
0cc8 b0cc c8ed | |
0cca 7d7d d9c1 |}} |
0ccc d1c9 7d7c | }||
0cce c8e1 49bd | I |
0cd0 cd95 67d5 | g |
0cd2 6000 |` |
0cd3 0000 0000 | | .BLANK 0000[0x4]
0cd7 010c 9100 | | .XXX[0x1b]
0cd9 2bf5 8000 |+ |
0cdb 0000 039a | |
0cdd f000 02ca | |
0cdf a000 0118 | |
0ce1 2900 2c1e |) , |
0ce3 800e 3fb0 | ? |
0ce5 0940 0000 | @ |
0ce7 0000 0000 | |
0ce9 57eb 0040 |W @|
0ceb 12be a008 | |
0ced 0257 d400 | W |
0cef 0213 1200 | |
0cf1 57eb |W |
0cf2 0000 0000 | | .BLANK 0000[0x4]
0cf6 0213 2e00 | . | .XXX[0x3]
0cf8 57eb |W |
0cf9 0000 0000 | | .BLANK 0000[0x4]
0cfd 020c 9c00 | | .XXX[0x16]
0cff 583d 0000 |X= |
0d01 0000 056b | k|
0d03 b801 5ecc | ^ |
0d05 0057 7b00 | W{ |
0d07 0020 88e0 | |
0d09 058f 2000 | |
0d0b 0000 0057 | W|
0d0d 0380 15fa | |
0d0f c000 084c | L|
0d11 a801 63c8 | c |
0d13 0000 0000 | | .BLANK 0000[0x4]
0d17 084c 2001 | L | .XXX[0x3]
0d19 63c8 |c |
0d1a 0000 0000 | | .BLANK 0000[0x4]
0d1e 0895 4000 | @ | .XXX[0x15]
0d20 0000 0000 | |
0d22 0000 162e | .|
0d24 8005 83d0 | |
0d26 0162 0800 | b |
0d28 0186 5000 | P |
0d2a 0000 0000 | |
0d2c 0200 00b2 | |
0d2e e800 0000 | |
0d30 0000 0000 | |
0d32 8000 | |
0d33 0000 0000 | | .BLANK 0000[0x60]
0d93 00e7 7b00 | { | .XXX[0x2]
0d95 0000 0000 | | .BLANK 0000[0x18]
0dad 00eb 6400 | d | .XXX[0x2]
0daf 0000 0000 | | .BLANK 0000[0x51]