|
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: 2048 (0x800)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0694fc
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 03d8 | | .CONST 0x03d8 ; 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 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00a3 | | .CONST 0x00a3 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 003d | = | .CONST 0x003d ; Number of locals
000b INIT_0008:
000b 00c4 | | Action Make_Default
000c 00c4 | | Action Make_Default
000d 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated
000f c20e | | Store 0x1,0xe
0010 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated
0012 c20d | | Store 0x1,0xd
0013 00bf | | Action Accept_Activation
0014 00e1 | | Load_Encached Boolean_Cache
0015 00e1 | | Load_Encached Boolean_Cache
0016 00e2 | | Load_Encached Integer_Cache
0017 00e1 | | Load_Encached Boolean_Cache
0018 e001 | | Load 0x0,0x1
0019 1910 | | Execute Package,Field_Reference,Field_Number 0x10
001a 0007 | | Action Break_Optional
001b e002 | | Load 0x0,0x2
001c e003 | | Load 0x0,0x3
001d 00e8 | | Load_Encached Character_Cache
001e 00e9 | | Load_Encached String_Cache
001f 4820 |H | Short_Literal 0x20
0020 4814 |H | Short_Literal 0x14
0021 60a2 |` | Indirect_Literal Discrete,0xc4,{0x00000000, 0x7fffffff}
0022 e004 | | Load 0x0,0x4
0023 0387 | | Declare_Variable Package
0024 00d8 | | Load_Top At_Offset_0
0025 020f | | Execute Module,Activate
0026 029d 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call
0028 029d 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call
002a 029d 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call
002c 029d 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call
002e 029d 010b | | Declare_Subprogram INIT_0108,For_Outer_Call
0030 029d 011b | | Declare_Subprogram INIT_0118,For_Outer_Call
0032 029d 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call
0034 029d 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call
0036 029d 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call
0038 029d 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call
003a 029d 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call
003c 029d 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call
003e 029d 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call
0040 029d 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call
0042 029d 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call
0044 029d 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call
0046 029d 018b | | Declare_Subprogram INIT_0188,For_Outer_Call
0048 029d 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call
004a 029d 019b | | Declare_Subprogram INIT_0198,For_Outer_Call
004c 029d 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call
004e 029d 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call
0050 029d 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call
0052 029d 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call
0054 029d 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call
0056 029d 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call
0058 029d 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call
005a 029d 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call
005c e005 | | Load 0x0,0x5
005d e006 | | Load 0x0,0x6
005e e20f | | Load 0x1,0xf
005f e210 | | Load 0x1,0x10
0060 e211 | | Load 0x1,0x11
0061 e212 | | Load 0x1,0x12
0062 4800 |H | Short_Literal 0x0
0063 4800 |H | Short_Literal 0x0
0064 4800 |H | Short_Literal 0x0
0065 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0066 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0067 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0068 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0069 1d19 | | Execute_Immediate Reference_Lex_1,0x19
006a 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
006b 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
006c 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
006d 1d13 | | Execute_Immediate Reference_Lex_1,0x13
006e 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
006f 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0070 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0071 1d20 | | Execute_Immediate Reference_Lex_1,0x20
0072 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
0073 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
0074 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0075 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
0076 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
0077 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
0078 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
0079 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
007a 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
007b 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
007c 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
007d 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
007e 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
007f 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e
0080 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
0081 e007 | | Load 0x0,0x7
0082 0387 | | Declare_Variable Package
0083 00d8 | | Load_Top At_Offset_0
0084 020f | | Execute Module,Activate
0085 029d 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call
0087 029d 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call
0089 029d 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call
008b 029d 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call
008d 029d 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call
008f 029d 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call
0091 029d 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call
0093 029d 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call
0095 029d 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call
0097 029d 02eb | | Declare_Subprogram INIT_02e8,For_Outer_Call
0099 029d 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call
009b 029d 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call
009d 029d 03a3 | | Declare_Subprogram INIT_03a0,For_Outer_Call
009f 1d0d | | Execute_Immediate Reference_Lex_1,0xd
00a0 00c7 | | Action Elaborate_Subprogram
00a1 1d0e | | Execute_Immediate Reference_Lex_1,0xe
00a2 00c7 | | Action Elaborate_Subprogram
00a3 BODY_0008:
00a3 00bc | | Action Signal_Activated
00a4 00bb | | Action Signal_Completion
00a5 0000 0000 | | .XXX[0x3]
00a7 0000 | |
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ac | | .CONST 0x00ac ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0002 | | .CONST 0x0002 ; Number of locals
00ab INIT_00a8:
00ab 00ec | | Load_Encached Diana_Tree_Cache
00ac BODY_00a8:
00ac 00db | | Load_Top At_Offset_3
00ad e008 | | Load 0x0,0x8
00ae 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00af 0f01 | | Execute_Immediate Equal,0x1
00b0 7003 |p | Jump_Nonzero 0xb4
00b1 0092 03c6 | | Action Push_String_Extended,0x3c6 ; " "
00b3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00b4 00db | | Load_Top At_Offset_3
00b5 e008 | | Load 0x0,0x8
00b6 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
00b7 0031 | 1 | Store_Top Heap_Access,At_Offset_1
00b8 00d8 | | Load_Top At_Offset_0
00b9 7005 |p | Jump_Nonzero 0xbf
00ba 0092 03c7 | | Action Push_String_Extended,0x3c7 ; "<Cursor>"
00bc e008 | | Load 0x0,0x8
00bd 180f | | Execute Package,Field_Execute,Field_Number 0xf
00be 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00bf 00d8 | | Load_Top At_Offset_0
00c0 820d | | Call 0x1,0xd
00c1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00c2 0000 0000 | | .XXX[0x2]
00c4 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00d2 | | .CONST 0x00d2 ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0003 | | .CONST 0x0003 ; Number of locals
00cb INIT_00c8:
00cb e009 | | Load 0x0,0x9
00cc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00cd 02c7 | | Declare_Variable Any
00ce 00d8 | | Load_Top At_Offset_0
00cf 1c00 | | Execute_Immediate Run_Utility,0x0
00d0 e214 | | Load 0x1,0x14
00d1 1b15 | | Execute Package,Field_Read,Field_Number 0x15
00d2 BODY_00c8:
00d2 00d9 | | Load_Top At_Offset_1
00d3 00d9 | | Load_Top At_Offset_1
00d4 4801 |H | Short_Literal 0x1
00d5 e5ff | | Load 0x2,-0x1
00d6 823d | = | Call 0x1,0x3d
00d7 003a | : | Store_Top Access,At_Offset_2
00d8 c402 | | Store 0x2,0x2
00d9 00d8 | | Load_Top At_Offset_0
00da e214 | | Load 0x1,0x14
00db 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00dc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00dd 0000 0000 | | .XXX[0x3]
00df 0000 | |
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3 | | .CONST 0x00e3 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0001 | | .CONST 0x0001 ; Number of locals
00e3 BODY_00e0:
00e3 INIT_00e0:
00e3 00da | | Load_Top At_Offset_2
00e4 0d00 | | Execute_Immediate Less,0x0
00e5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00e6 0000 0000 | | .XXX[0x2]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb | | .CONST 0x00eb ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0001 | | .CONST 0x0001 ; Number of locals
00eb BODY_00e8:
00eb INIT_00e8:
00eb 00da | | Load_Top At_Offset_2
00ec 0c01 | | Execute_Immediate Greater_Equal,0x1
00ed 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00ee 0000 0000 | | .XXX[0x2]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3 | | .CONST 0x00f3 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0001 | | .CONST 0x0001 ; Number of locals
00f3 BODY_00f0:
00f3 INIT_00f0:
00f3 08e2 | | Execute_Immediate Raise,0xe2
00f4 0000 0000 | | .BLANK 0000[0x4]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb | | .CONST 0x00fb ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0001 | | .CONST 0x0001 ; Number of locals
00fb BODY_00f8:
00fb INIT_00f8:
00fb 00da | | Load_Top At_Offset_2
00fc 0275 | u | Execute Discrete,Unary_Minus
00fd 00d8 | | Load_Top At_Offset_0
00fe 00e3 | | Load_Encached Natural_Cache
00ff 0260 | ` | Execute Discrete,In_Type
0100 7001 |p | Jump_Nonzero 0x102
0101 0801 | | Execute_Immediate Raise,0x1
0102 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0103 0000 0000 | | .BLANK 0000[0x5]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b | | .CONST 0x010b ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0001 | | .CONST 0x0001 ; Number of locals
010b BODY_0108:
010b INIT_0108:
010b 00da | | Load_Top At_Offset_2
010c 00d8 | | Load_Top At_Offset_0
010d 00e3 | | Load_Encached Natural_Cache
010e 0260 | ` | Execute Discrete,In_Type
010f 7001 |p | Jump_Nonzero 0x111
0110 0801 | | Execute_Immediate Raise,0x1
0111 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0112 0000 0000 | | .BLANK 0000[0x6]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b | | .CONST 0x011b ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0001 | | .CONST 0x0001 ; Number of locals
011b BODY_0118:
011b INIT_0118:
011b 08e2 | | Execute_Immediate Raise,0xe2
011c 0000 0000 | | .BLANK 0000[0x4]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123 | # | .CONST 0x0123 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0001 | | .CONST 0x0001 ; Number of locals
0123 BODY_0120:
0123 INIT_0120:
0123 00da | | Load_Top At_Offset_2
0124 0c01 | | Execute_Immediate Greater_Equal,0x1
0125 680a |h | Jump_Zero 0x130
0126 4820 |H | Short_Literal 0x20
0127 4800 |H | Short_Literal 0x0
0128 480a |H | Short_Literal 0xa
0129 e5ff | | Load 0x2,-0x1
012a e00a | | Load 0x0,0xa
012b 1816 | | Execute Package,Field_Execute,Field_Number 0x16
012c 0092 03c8 | | Action Push_String_Extended,0x3c8 ; "s"
012e 01cc | | Execute Vector,Catenate
012f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0130 4820 |H | Short_Literal 0x20
0131 4800 |H | Short_Literal 0x0
0132 480a |H | Short_Literal 0xa
0133 e5ff | | Load 0x2,-0x1
0134 0275 | u | Execute Discrete,Unary_Minus
0135 e00a | | Load 0x0,0xa
0136 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0137 0092 03c9 | | Action Push_String_Extended,0x3c9 ; "d"
0139 01cc | | Execute Vector,Catenate
013a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
013b 0000 0000 | | .BLANK 0000[0x5]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143 | C | .CONST 0x0143 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0001 | | .CONST 0x0001 ; Number of locals
0143 BODY_0140:
0143 INIT_0140:
0143 08e2 | | Execute_Immediate Raise,0xe2
0144 0000 0000 | | .BLANK 0000[0x4]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b | K | .CONST 0x014b ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0001 | | .CONST 0x0001 ; Number of locals
014b BODY_0148:
014b INIT_0148:
014b 08e2 | | Execute_Immediate Raise,0xe2
014c 0000 0000 | | .BLANK 0000[0x4]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153 | S | .CONST 0x0153 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0001 | | .CONST 0x0001 ; Number of locals
0153 BODY_0150:
0153 INIT_0150:
0153 08e2 | | Execute_Immediate Raise,0xe2
0154 0000 0000 | | .BLANK 0000[0x4]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b | [ | .CONST 0x015b ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0001 | | .CONST 0x0001 ; Number of locals
015b BODY_0158:
015b INIT_0158:
015b 08e2 | | Execute_Immediate Raise,0xe2
015c 0000 0000 | | .BLANK 0000[0x4]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163 | c | .CONST 0x0163 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0001 | | .CONST 0x0001 ; Number of locals
0163 BODY_0160:
0163 INIT_0160:
0163 4800 |H | Short_Literal 0x0
0164 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0165 0000 0000 | | .XXX[0x3]
0167 0000 | |
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b | k | .CONST 0x016b ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0001 | | .CONST 0x0001 ; Number of locals
016b BODY_0168:
016b INIT_0168:
016b 00ec | | Load_Encached Diana_Tree_Cache
016c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
016d 0000 0000 | | .XXX[0x3]
016f 0000 | |
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173 | s | .CONST 0x0173 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0001 | | .CONST 0x0001 ; Number of locals
0173 BODY_0170:
0173 INIT_0170:
0173 00da | | Load_Top At_Offset_2
0174 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0175 0000 0000 | | .XXX[0x3]
0177 0000 | |
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b | { | .CONST 0x017b ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0001 | | .CONST 0x0001 ; Number of locals
017b BODY_0178:
017b INIT_0178:
017b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
017c 0000 0000 | | .BLANK 0000[0x4]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183 | | .CONST 0x0183 ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0001 | | .CONST 0x0001 ; Number of locals
0183 BODY_0180:
0183 INIT_0180:
0183 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0184 0000 0000 | | .BLANK 0000[0x4]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b | | .CONST 0x018b ; Address of begin
0189 0004 | | .CONST 0x0004 ; Address of exception handler
018a 0001 | | .CONST 0x0001 ; Number of locals
018b BODY_0188:
018b INIT_0188:
018b 08e2 | | Execute_Immediate Raise,0xe2
018c 0000 0000 | | .BLANK 0000[0x4]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193 | | .CONST 0x0193 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0001 | | .CONST 0x0001 ; Number of locals
0193 BODY_0190:
0193 INIT_0190:
0193 08e2 | | Execute_Immediate Raise,0xe2
0194 0000 0000 | | .BLANK 0000[0x4]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b | | .CONST 0x019b ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0001 | | .CONST 0x0001 ; Number of locals
019b BODY_0198:
019b INIT_0198:
019b 08e2 | | Execute_Immediate Raise,0xe2
019c 0000 0000 | | .BLANK 0000[0x4]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3 | | .CONST 0x01a3 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0001 | | .CONST 0x0001 ; Number of locals
01a3 BODY_01a0:
01a3 INIT_01a0:
01a3 08e2 | | Execute_Immediate Raise,0xe2
01a4 0000 0000 | | .BLANK 0000[0x4]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab | | .CONST 0x01ab ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0001 | | .CONST 0x0001 ; Number of locals
01ab BODY_01a8:
01ab INIT_01a8:
01ab 08e2 | | Execute_Immediate Raise,0xe2
01ac 0000 0000 | | .BLANK 0000[0x4]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3 | | .CONST 0x01b3 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0001 | | .CONST 0x0001 ; Number of locals
01b3 BODY_01b0:
01b3 INIT_01b0:
01b3 08e2 | | Execute_Immediate Raise,0xe2
01b4 0000 0000 | | .BLANK 0000[0x4]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb | | .CONST 0x01bb ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0001 | | .CONST 0x0001 ; Number of locals
01bb BODY_01b8:
01bb INIT_01b8:
01bb 08e2 | | Execute_Immediate Raise,0xe2
01bc 0000 0000 | | .BLANK 0000[0x4]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3 | | .CONST 0x01c3 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0001 | | .CONST 0x0001 ; Number of locals
01c3 BODY_01c0:
01c3 INIT_01c0:
01c3 00da | | Load_Top At_Offset_2
01c4 4976 |Iv | Short_Literal 0x176
01c5 00eb | | Load_Encached Diana_Cache
01c6 0098 | | Execute Package,Field_Read_Dynamic
01c7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01c8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01c9 0000 0000 | | .BLANK 0000[0x7]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3 | | .CONST 0x01d3 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0001 | | .CONST 0x0001 ; Number of locals
01d3 BODY_01d0:
01d3 INIT_01d0:
01d3 4800 |H | Short_Literal 0x0
01d4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01d5 0000 0000 | | .XXX[0x3]
01d7 0000 | |
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db | | .CONST 0x01db ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0001 | | .CONST 0x0001 ; Number of locals
01db BODY_01d8:
01db INIT_01d8:
01db 08e2 | | Execute_Immediate Raise,0xe2
01dc 0000 0000 | | .BLANK 0000[0x4]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3 | | .CONST 0x01e3 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0001 | | .CONST 0x0001 ; Number of locals
01e3 BODY_01e0:
01e3 INIT_01e0:
01e3 08e2 | | Execute_Immediate Raise,0xe2
01e4 0000 0000 | | .BLANK 0000[0x4]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01ee | | .CONST 0x01ee ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0004 | | .CONST 0x0004 ; Number of locals
01eb INIT_01e8:
01eb 00ec | | Load_Encached Diana_Tree_Cache
01ec 039d | | Declare_Variable Heap_Access,Duplicate
01ed 00e3 | | Load_Encached Natural_Cache
01ee BODY_01e8:
01ee e009 | | Load 0x0,0x9
01ef 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01f0 c5fb | | Store 0x2,-0x5
01f1 e5ff | | Load 0x2,-0x1
01f2 00eb | | Load_Encached Diana_Cache
01f3 18ec | | Execute Package,Field_Execute,Field_Number 0xec
01f4 e00b | | Load 0x0,0xb
01f5 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
01f6 0033 | 3 | Store_Top Heap_Access,At_Offset_3
01f7 00da | | Load_Top At_Offset_2
01f8 0145 | E | Execute Heap_Access,Diana_Tree_Kind
01f9 0f4e | N | Execute_Immediate Equal,0x4e
01fa 6809 |h | Jump_Zero 0x204
01fb 00da | | Load_Top At_Offset_2
01fc e00b | | Load 0x0,0xb
01fd 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
01fe 7005 |p | Jump_Nonzero 0x204
01ff 00da | | Load_Top At_Offset_2
0200 e00b | | Load 0x0,0xb
0201 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0202 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0203 7802 |x | Jump 0x206
0204 00da | | Load_Top At_Offset_2
0205 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0206 00d9 | | Load_Top At_Offset_1
0207 a5fe | | Store_Unchecked 0x2,-0x2
0208 4802 |H | Short_Literal 0x2
0209 e5fb | | Load 0x2,-0x5
020a e009 | | Load 0x0,0x9
020b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
020c 6805 |h | Jump_Zero 0x212
020d 4820 |H | Short_Literal 0x20
020e a5fc | | Store_Unchecked 0x2,-0x4
020f 4800 |H | Short_Literal 0x0
0210 a5fd | | Store_Unchecked 0x2,-0x3
0211 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0212 e5ff | | Load 0x2,-0x1
0213 e00b | | Load 0x0,0xb
0214 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0215 680a |h | Jump_Zero 0x220
0216 4873 |Hs | Short_Literal 0x73
0217 a5fc | | Store_Unchecked 0x2,-0x4
0218 e5ff | | Load 0x2,-0x1
0219 00db | | Load_Top At_Offset_3
021a e001 | | Load 0x0,0x1
021b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
021c 0059 | Y | Store_Top Discrete,At_Offset_1
021d 00d8 | | Load_Top At_Offset_0
021e a5fd | | Store_Unchecked 0x2,-0x3
021f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0220 e5ff | | Load 0x2,-0x1
0221 e00b | | Load 0x0,0xb
0222 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0223 680a |h | Jump_Zero 0x22e
0224 4873 |Hs | Short_Literal 0x73
0225 a5fc | | Store_Unchecked 0x2,-0x4
0226 e5ff | | Load 0x2,-0x1
0227 e00b | | Load 0x0,0xb
0228 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
0229 00db | | Load_Top At_Offset_3
022a e001 | | Load 0x0,0x1
022b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
022c c5fd | | Store 0x2,-0x3
022d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
022e 4864 |Hd | Short_Literal 0x64
022f a5fc | | Store_Unchecked 0x2,-0x4
0230 4802 |H | Short_Literal 0x2
0231 e5fb | | Load 0x2,-0x5
0232 e009 | | Load 0x0,0x9
0233 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0234 6803 |h | Jump_Zero 0x238
0235 4800 |H | Short_Literal 0x0
0236 a5fd | | Store_Unchecked 0x2,-0x3
0237 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0238 e5ff | | Load 0x2,-0x1
0239 00db | | Load_Top At_Offset_3
023a e001 | | Load 0x0,0x1
023b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
023c 0275 | u | Execute Discrete,Unary_Minus
023d c5fd | | Store 0x2,-0x3
023e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
023f 0000 | | .XXX[0x1]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243 | C | .CONST 0x0243 ; Address of begin
0241 0004 | | .CONST 0x0004 ; Address of exception handler
0242 0001 | | .CONST 0x0001 ; Number of locals
0243 BODY_0240:
0243 INIT_0240:
0243 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0244 0000 0000 | | .BLANK 0000[0x4]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024b | K | .CONST 0x024b ; Address of begin
0249 0004 | | .CONST 0x0004 ; Address of exception handler
024a 0001 | | .CONST 0x0001 ; Number of locals
024b BODY_0248:
024b INIT_0248:
024b 4801 |H | Short_Literal 0x1
024c 4800 |H | Short_Literal 0x0
024d 4800 |H | Short_Literal 0x0
024e e5ff | | Load 0x2,-0x1
024f e230 | 0 | Load 0x1,0x30
0250 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0251 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0252 0000 0000 | | .BLANK 0000[0x6]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b | [ | .CONST 0x025b ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0001 | | .CONST 0x0001 ; Number of locals
025b BODY_0258:
025b INIT_0258:
025b 00da | | Load_Top At_Offset_2
025c 7002 |p | Jump_Nonzero 0x25f
025d 00ea | | Load_Encached Null_String_Cache
025e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
025f 00db | | Load_Top At_Offset_3
0260 0092 03ca | | Action Push_String_Extended,0x3ca ; "."
0262 4820 |H | Short_Literal 0x20
0263 4800 |H | Short_Literal 0x0
0264 480a |H | Short_Literal 0xa
0265 e5ff | | Load 0x2,-0x1
0266 e00a | | Load 0x0,0xa
0267 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0268 01cc | | Execute Vector,Catenate
0269 01cb | | Execute Vector,Append
026a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
026b 0000 0000 | | .BLANK 0000[0x5]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0273 | s | .CONST 0x0273 ; Address of begin
0271 0004 | | .CONST 0x0004 ; Address of exception handler
0272 0001 | | .CONST 0x0001 ; Number of locals
0273 BODY_0270:
0273 INIT_0270:
0273 00da | | Load_Top At_Offset_2
0274 8233 | 3 | Call 0x1,0x33
0275 e5fd | | Load 0x2,-0x3
0276 e5fe | | Load 0x2,-0x2
0277 8234 | 4 | Call 0x1,0x34
0278 01cc | | Execute Vector,Catenate
0279 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
027a 0000 0000 | | .BLANK 0000[0x6]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283 | | .CONST 0x0283 ; Address of begin
0281 0004 | | .CONST 0x0004 ; Address of exception handler
0282 0001 | | .CONST 0x0001 ; Number of locals
0283 BODY_0280:
0283 INIT_0280:
0283 4801 |H | Short_Literal 0x1
0284 e5fe | | Load 0x2,-0x2
0285 4800 |H | Short_Literal 0x0
0286 e5ff | | Load 0x2,-0x1
0287 e00b | | Load 0x0,0xb
0288 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0289 e230 | 0 | Load 0x1,0x30
028a 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
028b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
028c 0000 0000 | | .BLANK 0000[0x4]
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 0293 | | .CONST 0x0293 ; Address of begin
0291 0004 | | .CONST 0x0004 ; Address of exception handler
0292 0001 | | .CONST 0x0001 ; Number of locals
0293 BODY_0290:
0293 INIT_0290:
0293 e5fc | | Load 0x2,-0x4
0294 00db | | Load_Top At_Offset_3
0295 8236 | 6 | Call 0x1,0x36
0296 e5fd | | Load 0x2,-0x3
0297 e5fe | | Load 0x2,-0x2
0298 8234 | 4 | Call 0x1,0x34
0299 01cc | | Execute Vector,Catenate
029a 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
029b 0000 0000 | | .BLANK 0000[0x5]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a3 | | .CONST 0x02a3 ; Address of begin
02a1 0004 | | .CONST 0x0004 ; Address of exception handler
02a2 0001 | | .CONST 0x0001 ; Number of locals
02a3 BODY_02a0:
02a3 INIT_02a0:
02a3 e5fc | | Load 0x2,-0x4
02a4 4800 |H | Short_Literal 0x0
02a5 e5fd | | Load 0x2,-0x3
02a6 e5fe | | Load 0x2,-0x2
02a7 e5ff | | Load 0x2,-0x1
02a8 8237 | 7 | Call 0x1,0x37
02a9 e214 | | Load 0x1,0x14
02aa 181d | | Execute Package,Field_Execute,Field_Number 0x1d
02ab c5fc | | Store 0x2,-0x4
02ac 4504 |E | Exit_Suprogram New_Top_Offset 0x4
02ad 0000 0000 | | .XXX[0x3]
02af 0000 | |
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b6 | | .CONST 0x02b6 ; Address of begin
02b1 0004 | | .CONST 0x0004 ; Address of exception handler
02b2 0004 | | .CONST 0x0004 ; Number of locals
02b3 INIT_02b0:
02b3 00ec | | Load_Encached Diana_Tree_Cache
02b4 00e3 | | Load_Encached Natural_Cache
02b5 00e8 | | Load_Encached Character_Cache
02b6 BODY_02b0:
02b6 e5fc | | Load 0x2,-0x4
02b7 e5fd | | Load 0x2,-0x3
02b8 e5fe | | Load 0x2,-0x2
02b9 e5ff | | Load 0x2,-0x1
02ba 8232 | 2 | Call 0x1,0x32
02bb c5fd | | Store 0x2,-0x3
02bc c5fc | | Store 0x2,-0x4
02bd 4802 |H | Short_Literal 0x2
02be e5fc | | Load 0x2,-0x4
02bf e009 | | Load 0x0,0x9
02c0 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02c1 6801 |h | Jump_Zero 0x2c3
02c2 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02c3 e5fc | | Load 0x2,-0x4
02c4 00e8 | | Load_Encached Character_Cache
02c5 00e3 | | Load_Encached Natural_Cache
02c6 00ec | | Load_Encached Diana_Tree_Cache
02c7 e5ff | | Load 0x2,-0x1
02c8 8231 | 1 | Call 0x1,0x31
02c9 c402 | | Store 0x2,0x2
02ca c403 | | Store 0x2,0x3
02cb 005a | Z | Store_Top Discrete,At_Offset_2
02cc c5fc | | Store 0x2,-0x4
02cd 4802 |H | Short_Literal 0x2
02ce e5fc | | Load 0x2,-0x4
02cf e009 | | Load 0x0,0x9
02d0 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02d1 6801 |h | Jump_Zero 0x2d3
02d2 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02d3 4802 |H | Short_Literal 0x2
02d4 e5fc | | Load 0x2,-0x4
02d5 e009 | | Load 0x0,0x9
02d6 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02d7 6801 |h | Jump_Zero 0x2d9
02d8 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02d9 e5fc | | Load 0x2,-0x4
02da e5fd | | Load 0x2,-0x3
02db 00da | | Load_Top At_Offset_2
02dc e403 | | Load 0x2,0x3
02dd e402 | | Load 0x2,0x2
02de 8238 | 8 | Call 0x1,0x38
02df c5fd | | Store 0x2,-0x3
02e0 c5fc | | Store 0x2,-0x4
02e1 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02e2 0000 0000 | | .BLANK 0000[0x6]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02eb | | .CONST 0x02eb ; Address of begin
02e9 0004 | | .CONST 0x0004 ; Address of exception handler
02ea 0001 | | .CONST 0x0001 ; Number of locals
02eb BODY_02e8:
02eb INIT_02e8:
02eb 00da | | Load_Top At_Offset_2
02ec e00b | | Load 0x0,0xb
02ed 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
02ee 7004 |p | Jump_Nonzero 0x2f3
02ef 00da | | Load_Top At_Offset_2
02f0 e00b | | Load 0x0,0xb
02f1 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
02f2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02f3 4801 |H | Short_Literal 0x1
02f4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02f5 0000 0000 | | .XXX[0x3]
02f7 0000 | |
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 0301 | | .CONST 0x0301 ; Address of begin
02f9 0004 | | .CONST 0x0004 ; Address of exception handler
02fa 0005 | | .CONST 0x0005 ; Number of locals
02fb INIT_02f8:
02fb 00da | | Load_Top At_Offset_2
02fc 00eb | | Load_Encached Diana_Cache
02fd 18ec | | Execute Package,Field_Execute,Field_Number 0xec
02fe 00ec | | Load_Encached Diana_Tree_Cache
02ff 00e3 | | Load_Encached Natural_Cache
0300 00e8 | | Load_Encached Character_Cache
0301 BODY_02f8:
0301 00cf | | Action Mark_Auxiliary
0302 7825 |x% | Jump 0x328
0303 e402 | | Load 0x2,0x2
0304 e00b | | Load 0x0,0xb
0305 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0306 681c |h | Jump_Zero 0x323
0307 e5fd | | Load 0x2,-0x3
0308 00e8 | | Load_Encached Character_Cache
0309 00e3 | | Load_Encached Natural_Cache
030a 00ec | | Load_Encached Diana_Tree_Cache
030b e402 | | Load 0x2,0x2
030c 8231 | 1 | Call 0x1,0x31
030d c403 | | Store 0x2,0x3
030e c404 | | Store 0x2,0x4
030f 005b | [ | Store_Top Discrete,At_Offset_3
0310 c5fd | | Store 0x2,-0x3
0311 4802 |H | Short_Literal 0x2
0312 e5fd | | Load 0x2,-0x3
0313 e009 | | Load 0x0,0x9
0314 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0315 700d |p | Jump_Nonzero 0x323
0316 00da | | Load_Top At_Offset_2
0317 0c01 | | Execute_Immediate Greater_Equal,0x1
0318 680a |h | Jump_Zero 0x323
0319 e5fe | | Load 0x2,-0x2
031a 4800 |H | Short_Literal 0x0
031b 00db | | Load_Top At_Offset_3
031c e404 | | Load 0x2,0x4
031d e403 | | Load 0x2,0x3
031e 8237 | 7 | Call 0x1,0x37
031f e214 | | Load 0x1,0x14
0320 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0321 c5fe | | Store 0x2,-0x2
0322 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0323 e402 | | Load 0x2,0x2
0324 00eb | | Load_Encached Diana_Cache
0325 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0326 a402 | | Store_Unchecked 0x2,0x2
0327 00c9 | | Action Pop_Auxiliary_Loop
0328 e402 | | Load 0x2,0x2
0329 6809 |h | Jump_Zero 0x333
032a e402 | | Load 0x2,0x2
032b 0145 | E | Execute Heap_Access,Diana_Tree_Kind
032c 0f4e | N | Execute_Immediate Equal,0x4e
032d 7005 |p | Jump_Nonzero 0x333
032e 4800 |H | Short_Literal 0x0
032f e402 | | Load 0x2,0x2
0330 e230 | 0 | Load 0x1,0x30
0331 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
0332 6fd0 |o | Jump_Zero 0x303
0333 00ce | | Action Pop_Auxiliary
0334 e5fe | | Load 0x2,-0x2
0335 0092 03cb | | Action Push_String_Extended,0x3cb ; "<cursor>"
0337 e008 | | Load 0x0,0x8
0338 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0339 e214 | | Load 0x1,0x14
033a 181d | | Execute Package,Field_Execute,Field_Number 0x1d
033b c5fe | | Store 0x2,-0x2
033c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
033d 0000 0000 | | .XXX[0x3]
033f 0000 | |
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0349 | I | .CONST 0x0349 ; Address of begin
0341 0004 | | .CONST 0x0004 ; Address of exception handler
0342 0005 | | .CONST 0x0005 ; Number of locals
0343 INIT_0340:
0343 00da | | Load_Top At_Offset_2
0344 00eb | | Load_Encached Diana_Cache
0345 18ec | | Execute Package,Field_Execute,Field_Number 0xec
0346 00ec | | Load_Encached Diana_Tree_Cache
0347 00e3 | | Load_Encached Natural_Cache
0348 00e8 | | Load_Encached Character_Cache
0349 BODY_0340:
0349 00cf | | Action Mark_Auxiliary
034a 7846 |xF | Jump 0x391
034b e402 | | Load 0x2,0x2
034c 823a | : | Call 0x1,0x3a
034d 6831 |h1 | Jump_Zero 0x37f
034e e5fc | | Load 0x2,-0x4
034f 00e8 | | Load_Encached Character_Cache
0350 00e3 | | Load_Encached Natural_Cache
0351 00ec | | Load_Encached Diana_Tree_Cache
0352 e402 | | Load 0x2,0x2
0353 8231 | 1 | Call 0x1,0x31
0354 c403 | | Store 0x2,0x3
0355 c404 | | Store 0x2,0x4
0356 005b | [ | Store_Top Discrete,At_Offset_3
0357 c5fc | | Store 0x2,-0x4
0358 4802 |H | Short_Literal 0x2
0359 e5fc | | Load 0x2,-0x4
035a e009 | | Load 0x0,0x9
035b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
035c 6809 |h | Jump_Zero 0x366
035d e5fd | | Load 0x2,-0x3
035e 0092 03cb | | Action Push_String_Extended,0x3cb ; "<cursor>"
0360 e008 | | Load 0x0,0x8
0361 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0362 e214 | | Load 0x1,0x14
0363 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0364 c5fd | | Store 0x2,-0x3
0365 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0366 00da | | Load_Top At_Offset_2
0367 0c01 | | Execute_Immediate Greater_Equal,0x1
0368 680a |h | Jump_Zero 0x373
0369 e5fd | | Load 0x2,-0x3
036a 4800 |H | Short_Literal 0x0
036b 00db | | Load_Top At_Offset_3
036c e404 | | Load 0x2,0x4
036d e403 | | Load 0x2,0x3
036e 8237 | 7 | Call 0x1,0x37
036f e214 | | Load 0x1,0x14
0370 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0371 c5fd | | Store 0x2,-0x3
0372 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0373 e402 | | Load 0x2,0x2
0374 e00b | | Load 0x0,0xb
0375 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0376 6801 |h | Jump_Zero 0x378
0377 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0378 e5fc | | Load 0x2,-0x4
0379 e5fd | | Load 0x2,-0x3
037a e402 | | Load 0x2,0x2
037b 823b | ; | Call 0x1,0x3b
037c c5fd | | Store 0x2,-0x3
037d c5fc | | Store 0x2,-0x4
037e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
037f 4800 |H | Short_Literal 0x0
0380 e402 | | Load 0x2,0x2
0381 e230 | 0 | Load 0x1,0x30
0382 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
0383 6808 |h | Jump_Zero 0x38c
0384 e5fd | | Load 0x2,-0x3
0385 4800 |H | Short_Literal 0x0
0386 e402 | | Load 0x2,0x2
0387 8236 | 6 | Call 0x1,0x36
0388 e214 | | Load 0x1,0x14
0389 181d | | Execute Package,Field_Execute,Field_Number 0x1d
038a c5fd | | Store 0x2,-0x3
038b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
038c e402 | | Load 0x2,0x2
038d 00eb | | Load_Encached Diana_Cache
038e 18ec | | Execute Package,Field_Execute,Field_Number 0xec
038f a402 | | Store_Unchecked 0x2,0x2
0390 00c9 | | Action Pop_Auxiliary_Loop
0391 e402 | | Load 0x2,0x2
0392 77b8 |w | Jump_Nonzero 0x34b
0393 00ce | | Action Pop_Auxiliary
0394 e5fd | | Load 0x2,-0x3
0395 0092 03cb | | Action Push_String_Extended,0x3cb ; "<cursor>"
0397 e008 | | Load 0x0,0x8
0398 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0399 e214 | | Load 0x1,0x14
039a 181d | | Execute Package,Field_Execute,Field_Number 0x1d
039b c5fd | | Store 0x2,-0x3
039c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
039d 0000 0000 | | .XXX[0x3]
039f 0000 | |
03a0 ; --------------------------------------------------------------------------------------
03a0 ; SUBPROGRAM
03a0 ; --------------------------------------------------------------------------------------
03a0 03a3 | | .CONST 0x03a3 ; Address of begin
03a1 0004 | | .CONST 0x0004 ; Address of exception handler
03a2 0001 | | .CONST 0x0001 ; Number of locals
03a3 BODY_03a0:
03a3 INIT_03a0:
03a3 e009 | | Load 0x0,0x9
03a4 1819 | | Execute Package,Field_Execute,Field_Number 0x19
03a5 c5fc | | Store 0x2,-0x4
03a6 00da | | Load_Top At_Offset_2
03a7 823a | : | Call 0x1,0x3a
03a8 6808 |h | Jump_Zero 0x3b1
03a9 e5fc | | Load 0x2,-0x4
03aa e5fd | | Load 0x2,-0x3
03ab e5fe | | Load 0x2,-0x2
03ac e5ff | | Load 0x2,-0x1
03ad 8239 | 9 | Call 0x1,0x39
03ae c5fd | | Store 0x2,-0x3
03af c5fc | | Store 0x2,-0x4
03b0 4503 |E | Exit_Suprogram New_Top_Offset 0x3
03b1 4800 |H | Short_Literal 0x0
03b2 00db | | Load_Top At_Offset_3
03b3 e230 | 0 | Load 0x1,0x30
03b4 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
03b5 6808 |h | Jump_Zero 0x3be
03b6 e5fd | | Load 0x2,-0x3
03b7 4800 |H | Short_Literal 0x0
03b8 e5ff | | Load 0x2,-0x1
03b9 8236 | 6 | Call 0x1,0x36
03ba e214 | | Load 0x1,0x14
03bb 181d | | Execute Package,Field_Execute,Field_Number 0x1d
03bc c5fd | | Store 0x2,-0x3
03bd 4503 |E | Exit_Suprogram New_Top_Offset 0x3
03be e5fc | | Load 0x2,-0x4
03bf e5fd | | Load 0x2,-0x3
03c0 e5fe | | Load 0x2,-0x2
03c1 e5ff | | Load 0x2,-0x1
03c2 823c | < | Call 0x1,0x3c
03c3 c5fd | | Store 0x2,-0x3
03c4 c5fc | | Store 0x2,-0x4
03c5 4503 |E | Exit_Suprogram New_Top_Offset 0x3
03c6 ; --------------------------------------------------------------------------------------
03c6 ; STRING TABLE
03c6 ; --------------------------------------------------------------------------------------
03c6 000e | | .STRTAB 0x000e->0x03cd ; " "
03c7 000d | | .STRTAB 0x000d->0x03cd ; "<Cursor>"
03c8 0013 | | .STRTAB 0x0013->0x03d1 ; "s"
03c9 0012 | | .STRTAB 0x0012->0x03d2 ; "d"
03ca 0011 | | .STRTAB 0x0011->0x03d2 ; "."
03cb 0010 | | .STRTAB 0x0010->0x03d3 ; "<cursor>"
03cc 0016 | | .STREND 0x0016->0x03d7
03cd 203c 4375 | <Cu| .STRTAB_STRINGS
03d7 0000 | | .XXX[0x1]
03d8 ; --------------------------------------------------------------------------------------
03d8 ; Debug Table
03d8 ; --------------------------------------------------------------------------------------
03d8 0004 0012 | | .DEBUG4 0x0004,0x0012,0x5bff,0x0000,0x0001,0x0000
03de 0000 0000 | | .BLANK 0000[0x22]