|
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: 3072 (0xc00) Notes: 00_class, 5811_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0500e0
└─⟦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 5811 |X | .CONST 0x5811 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0318 | | .CONST 0x0318 ; 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 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 004d | M | .CONST 0x004d ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001d | | .CONST 0x001d ; Number of locals 000b INIT_0008: 000b 0007 | | Action Break_Optional ; Debug Table 0x0 = .DEBUG 0x000b,0x0382,0x8000,0x0000,0x0036,0xf8d4,0x0000,0x0007 ; Debug Table 0x0.0x0 = 0xb,0xffff 000c e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x1 = 0xc,0xfffe 000d 1b11 | | Execute Package,Field_Read,Field_Number 0x11 000e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 000f 0129 | ) | Execute Any,Make_Visible 0010 0007 | | Action Break_Optional ; Debug Table 0x0.0x2 = 0x10,0xfffd 0011 62ee |b | Indirect_Literal Discrete,0x300,{0x00000000, 0x36f8d401} ; Debug Table 0x0.0x3 = 0x11,0xfffc 0012 0129 | ) | Execute Any,Make_Visible 0013 62e8 |b | Indirect_Literal Discrete,0x2fc,{0x00000000, 0x36f8d402} ; Debug Table 0x0.0x4 = 0x13,0xfffb 0014 0129 | ) | Execute Any,Make_Visible 0015 62e2 |b | Indirect_Literal Discrete,0x2f8,{0x00000000, 0x36f8d403} ; Debug Table 0x0.0x5 = 0x15,0xfffa 0016 0129 | ) | Execute Any,Make_Visible 0017 62dc |b | Indirect_Literal Discrete,0x2f4,{0x00000000, 0x36f8d404} ; Debug Table 0x0.0x6 = 0x17,0xfff9 0018 0129 | ) | Execute Any,Make_Visible 0019 62d6 |b | Indirect_Literal Discrete,0x2f0,{0x00000000, 0x36f8d405} ; Debug Table 0x0.0x7 = 0x19,0xfff8 001a 0129 | ) | Execute Any,Make_Visible 001b 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x1b,0xfff7 001d 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x9 = 0x1d,0xfff6 001f 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xa = 0x1f,0xfff5 0021 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xb = 0x21,0xfff4 0023 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xc = 0x23,0xfff3 0025 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xd = 0x25,0xfff2 0027 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xe = 0x27,0xfff1 0029 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xf = 0x29,0xfff0 002b 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x10 = 0x2b,0xffef 002d 0007 | | Action Break_Optional ; Debug Table 0x0.0x11 = 0x2d,0xffee 002e 0007 | | Action Break_Optional ; Debug Table 0x0.0x12 = 0x2e,0xffed 002f 00bf | | Action Accept_Activation ; Debug Table 0x0.0x13 = 0x2f,0xffec 0030 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x0030,0x03ac,0x8000,0x0000,0x0036,0xf984,0x0000,0x0007 ; Debug Table 0x1.0x0 = 0x30,0xffff 0031 0007 | | Action Break_Optional ; Debug Table 0x1.0x1 = 0x31,0xfffe 0032 0007 | | Action Break_Optional ; Debug Table 0x1.0x2 = 0x32,0xfffd 0033 0007 | | Action Break_Optional ; Debug Table 0x1.0x3 = 0x33,0xfffc 0034 0007 | | Action Break_Optional ; Debug Table 0x1.0x4 = 0x34,0xfffb 0035 0007 | | Action Break_Optional ; Debug Table 0x1.0x5 = 0x35,0xfffa 0036 0007 | | Action Break_Optional ; Debug Table 0x1.0x6 = 0x36,0xfff9 0037 029d 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call ; Debug Table 0x1.0x7 = 0x37,0xfff8 0039 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0x8 = 0x39,0xfff7 003a 00c7 | | Action Elaborate_Subprogram 003b 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0x9 = 0x3b,0xfff6 003c 00c7 | | Action Elaborate_Subprogram 003d 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0xa = 0x3d,0xfff5 003e 00c7 | | Action Elaborate_Subprogram 003f 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x1.0xb = 0x3f,0xfff4 0040 00c7 | | Action Elaborate_Subprogram 0041 029d 030b | | Declare_Subprogram INIT_0308,For_Outer_Call ; Debug Table 0x1.0xc = 0x41,0xfff3 0043 1d17 | | Execute_Immediate Reference_Lex_1,0x17 ; Debug Table 0x1.0xd = 0x43,0xfff2 0044 00c7 | | Action Elaborate_Subprogram 0045 1d1a | | Execute_Immediate Reference_Lex_1,0x1a ; Debug Table 0x1.0xe = 0x45,0xfff1 0046 00c7 | | Action Elaborate_Subprogram 0047 1d1b | | Execute_Immediate Reference_Lex_1,0x1b ; Debug Table 0x1.0xf = 0x47,0xfff0 0048 00c7 | | Action Elaborate_Subprogram 0049 1d18 | | Execute_Immediate Reference_Lex_1,0x18 ; Debug Table 0x1.0x10 = 0x49,0xffef 004a 00c7 | | Action Elaborate_Subprogram 004b 1d19 | | Execute_Immediate Reference_Lex_1,0x19 ; Debug Table 0x1.0x11 = 0x4b,0xffee 004c 00c7 | | Action Elaborate_Subprogram 004d BODY_0008: 004d 00bc | | Action Signal_Activated 004e 00bb | | Action Signal_Completion 004f 0000 | | .XXX[0x1] 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 0053 | S | .CONST 0x0053 ; Address of begin 0051 006a | j | .CONST 0x006a ; Address of exception handler 0052 0001 | | .CONST 0x0001 ; Number of locals 0053 BODY_0050: 0053 INIT_0050: 0053 e5fe | | Load 0x2,-0x2 ; Debug Table 0x2 = .DEBUG 0x0053,0x03d2,0x0001,0x0000,0x0036,0xf8d4,0x0000,0x002b ; Debug Table 0x2.0x0 = 0x53,0x1 0054 7002 |p | Jump_Nonzero 0x57 0055 e212 | | Load 0x1,0x12 ; Debug Table 0x2.0x1 = 0x55,0x2 0056 0257 | W | Execute Discrete,Raise 0057 e5fa | | Load 0x2,-0x6 ; Debug Table 0x2.0x2 = 0x57,0x3 0058 e5fb | | Load 0x2,-0x5 0059 e5fc | | Load 0x2,-0x4 005a e5fd | | Load 0x2,-0x3 005b e5fe | | Load 0x2,-0x2 005c 0aff | | Execute_Immediate Plus,-0x1 005d 0248 | H | Execute Discrete,Check_In_Integer 005e e5fc | | Load 0x2,-0x4 005f 0271 | q | Execute Discrete,Times 0060 e002 | | Load 0x0,0x2 0061 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0062 025b | [ | Execute Discrete,Check_In_Type 0063 0273 | s | Execute Discrete,Plus 0064 0248 | H | Execute Discrete,Check_In_Integer 0065 e5fd | | Load 0x2,-0x3 0066 e5ff | | Load 0x2,-0x1 0067 821c | | Call 0x1,0x1c 0068 a5f9 | | Store_Unchecked 0x2,-0x7 0069 4507 |E | Exit_Suprogram New_Top_Offset 0x7 006a TRAP_0050: 006a e212 | | Load 0x1,0x12 006b 010f | | Execute Exception,Equal 006c 6803 |h | Jump_Zero 0x70 006d 4800 |H | Short_Literal 0x0 ; Debug Table 0x2.0x3 = 0x6d,0x4 006e a5f9 | | Store_Unchecked 0x2,-0x7 006f 4507 |E | Exit_Suprogram New_Top_Offset 0x7 0070 0100 | | Execute Exception,Raise 0071 0000 0000 | | .BLANK 0000[0x7] 0078 ; -------------------------------------------------------------------------------------- 0078 ; SUBPROGRAM 0078 ; -------------------------------------------------------------------------------------- 0078 007b | { | .CONST 0x007b ; Address of begin 0079 0004 | | .CONST 0x0004 ; Address of exception handler 007a 0001 | | .CONST 0x0001 ; Number of locals 007b BODY_0078: 007b INIT_0078: 007b e5ff | | Load 0x2,-0x1 ; Debug Table 0x3 = .DEBUG 0x007b,0x03dc,0x0002,0x0000,0x0036,0xf8d4,0x0000,0x0055 ; Debug Table 0x3.0x0 = 0x7b,0x1 007c e5fe | | Load 0x2,-0x2 007d 0270 | p | Execute Discrete,Divide 007e 4801 |H | Short_Literal 0x1 007f 0279 | y | Execute Discrete,And 0080 0e00 | | Execute_Immediate Not_Equal,0x0 0081 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0082 0000 0000 | | .BLANK 0000[0x6] 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 008d | | .CONST 0x008d ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0002 | | .CONST 0x0002 ; Number of locals 008b INIT_0088: 008b e002 | | Load 0x0,0x2 ; Debug Table 0x4 = .DEBUG 0x008b,0x03e0,0x0001,0x0000,0x0036,0xf8d4,0x0000,0x0064 ; Debug Table 0x4.0x0 = 0x8b,0xffff 008c 1b10 | | Execute Package,Field_Read,Field_Number 0x10 008d BODY_0088: 008d 4803 |H | Short_Literal 0x3 ; Debug Table 0x4.0x1 = 0x8d,0x1 008e e5ff | | Load 0x2,-0x1 008f e002 | | Load 0x0,0x2 0090 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0091 a5fc | | Store_Unchecked 0x2,-0x4 0092 e5fc | | Load 0x2,-0x4 ; Debug Table 0x4.0x2 = 0x92,0x2 0093 7002 |p | Jump_Nonzero 0x96 0094 e210 | | Load 0x1,0x10 ; Debug Table 0x4.0x3 = 0x94,0x3 0095 0257 | W | Execute Discrete,Raise 0096 e5fc | | Load 0x2,-0x4 ; Debug Table 0x4.0x4 = 0x96,0x4 0097 0248 | H | Execute Discrete,Check_In_Integer 0098 e5ff | | Load 0x2,-0x1 0099 e002 | | Load 0x0,0x2 009a 1814 | | Execute Package,Field_Execute,Field_Number 0x14 009b a402 | | Store_Unchecked 0x2,0x2 009c e402 | | Load 0x2,0x2 ; Debug Table 0x4.0x5 = 0x9c,0x5 009d 0e04 | | Execute_Immediate Not_Equal,0x4 009e 6802 |h | Jump_Zero 0xa1 009f e20e | | Load 0x1,0xe ; Debug Table 0x4.0x6 = 0x9f,0x6 00a0 0257 | W | Execute Discrete,Raise 00a1 e5fc | | Load 0x2,-0x4 ; Debug Table 0x4.0x7 = 0xa1,0x7 00a2 0a01 | | Execute_Immediate Plus,0x1 00a3 0248 | H | Execute Discrete,Check_In_Integer 00a4 e5ff | | Load 0x2,-0x1 00a5 e002 | | Load 0x0,0x2 00a6 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00a7 0910 | | Execute_Immediate Binary_Scale,0x10 00a8 e5fc | | Load 0x2,-0x4 00a9 0a02 | | Execute_Immediate Plus,0x2 00aa 0248 | H | Execute Discrete,Check_In_Integer 00ab e5ff | | Load 0x2,-0x1 00ac e002 | | Load 0x0,0x2 00ad 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00ae 0273 | s | Execute Discrete,Plus 00af 00e3 | | Load_Encached Natural_Cache 00b0 025b | [ | Execute Discrete,Check_In_Type 00b1 a5fd | | Store_Unchecked 0x2,-0x3 00b2 e5fc | | Load 0x2,-0x4 ; Debug Table 0x4.0x8 = 0xb2,0x8 00b3 0a04 | | Execute_Immediate Plus,0x4 00b4 0248 | H | Execute Discrete,Check_In_Integer 00b5 e5ff | | Load 0x2,-0x1 00b6 e002 | | Load 0x0,0x2 00b7 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00b8 e003 | | Load 0x0,0x3 00b9 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00ba 025b | [ | Execute Discrete,Check_In_Type 00bb a5fe | | Store_Unchecked 0x2,-0x2 00bc e5fc | | Load 0x2,-0x4 ; Debug Table 0x4.0x9 = 0xbc,0x9 00bd 0a05 | | Execute_Immediate Plus,0x5 00be 0248 | H | Execute Discrete,Check_In_Integer 00bf a5fb | | Store_Unchecked 0x2,-0x5 00c0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00c1 0000 0000 | | .BLANK 0000[0x7] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00cf | | .CONST 0x00cf ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0003 | | .CONST 0x0003 ; Number of locals 00cb INIT_00c8: 00cb e002 | | Load 0x0,0x2 ; Debug Table 0x5 = .DEBUG 0x00cb,0x03f6,0x0001,0x0000,0x0036,0xf8d4,0x0000,0x0082 ; Debug Table 0x5.0x0 = 0xcb,0xffff 00cc 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00cd e002 | | Load 0x0,0x2 ; Debug Table 0x5.0x1 = 0xcd,0xfffe 00ce 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00cf BODY_00c8: 00cf e5fe | | Load 0x2,-0x2 ; Debug Table 0x5.0x2 = 0xcf,0x1 00d0 0afb | | Execute_Immediate Plus,-0x5 00d1 0248 | H | Execute Discrete,Check_In_Integer 00d2 a402 | | Store_Unchecked 0x2,0x2 00d3 e402 | | Load 0x2,0x2 ; Debug Table 0x5.0x3 = 0xd3,0x2 00d4 0a03 | | Execute_Immediate Plus,0x3 00d5 0248 | H | Execute Discrete,Check_In_Integer 00d6 e5ff | | Load 0x2,-0x1 00d7 e002 | | Load 0x0,0x2 00d8 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00d9 a403 | | Store_Unchecked 0x2,0x3 00da e5fd | | Load 0x2,-0x3 ; Debug Table 0x5.0x4 = 0xda,0x3 00db 0a03 | | Execute_Immediate Plus,0x3 00dc 0248 | H | Execute Discrete,Check_In_Integer 00dd e5ff | | Load 0x2,-0x1 00de e002 | | Load 0x0,0x2 00df 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00e0 a5fc | | Store_Unchecked 0x2,-0x4 00e1 620a |b | Indirect_Literal Discrete,0x2ec,{0x00000000, 0x00008000} ; Debug Table 0x5.0x5 = 0xe1,0x4 00e2 e5fc | | Load 0x2,-0x4 00e3 8214 | | Call 0x1,0x14 00e4 a5fb | | Store_Unchecked 0x2,-0x5 00e5 6202 |b | Indirect_Literal Discrete,0x2e8,{0x00000000, 0x00004000} ; Debug Table 0x5.0x6 = 0xe5,0x5 00e6 e5fc | | Load 0x2,-0x4 00e7 8214 | | Call 0x1,0x14 00e8 a5fa | | Store_Unchecked 0x2,-0x6 00e9 e5fd | | Load 0x2,-0x3 ; Debug Table 0x5.0x7 = 0xe9,0x6 00ea e5fe | | Load 0x2,-0x2 00eb 0272 | r | Execute Discrete,Minus 00ec 0248 | H | Execute Discrete,Check_In_Integer 00ed 0aff | | Execute_Immediate Plus,-0x1 00ee 0248 | H | Execute Discrete,Check_In_Integer 00ef 09fe | | Execute_Immediate Binary_Scale,-0x2 00f0 0a01 | | Execute_Immediate Plus,0x1 00f1 0248 | H | Execute Discrete,Check_In_Integer 00f2 e403 | | Load 0x2,0x3 00f3 0273 | s | Execute Discrete,Plus 00f4 0248 | H | Execute Discrete,Check_In_Integer 00f5 a5f9 | | Store_Unchecked 0x2,-0x7 00f6 e5fd | | Load 0x2,-0x3 ; Debug Table 0x5.0x8 = 0xf6,0x7 00f7 0a01 | | Execute_Immediate Plus,0x1 00f8 0248 | H | Execute Discrete,Check_In_Integer 00f9 e5ff | | Load 0x2,-0x1 00fa e002 | | Load 0x0,0x2 00fb 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00fc a5f8 | | Store_Unchecked 0x2,-0x8 00fd e5f8 | | Load 0x2,-0x8 ; Debug Table 0x5.0x9 = 0xfd,0x8 00fe 7005 |p | Jump_Nonzero 0x104 00ff 4800 |H | Short_Literal 0x0 ; Debug Table 0x5.0xa = 0xff,0x9 0100 a5f7 | | Store_Unchecked 0x2,-0x9 0101 4800 |H | Short_Literal 0x0 ; Debug Table 0x5.0xb = 0x101,0xa 0102 a5f6 | | Store_Unchecked 0x2,-0xa 0103 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0104 e5f8 | | Load 0x2,-0x8 ; Debug Table 0x5.0xc = 0x104,0xb 0105 0248 | H | Execute Discrete,Check_In_Integer 0106 e5ff | | Load 0x2,-0x1 0107 e002 | | Load 0x0,0x2 0108 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0109 a5f7 | | Store_Unchecked 0x2,-0x9 010a e5f8 | | Load 0x2,-0x8 ; Debug Table 0x5.0xd = 0x10a,0xc 010b 0a01 | | Execute_Immediate Plus,0x1 010c 0248 | H | Execute Discrete,Check_In_Integer 010d e5ff | | Load 0x2,-0x1 010e e002 | | Load 0x0,0x2 010f 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0110 a5f6 | | Store_Unchecked 0x2,-0xa 0111 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0112 0000 0000 | | .BLANK 0000[0x6] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 012b | + | .CONST 0x012b ; Address of begin 0119 0188 | | .CONST 0x0188 ; Address of exception handler 011a 0009 | | .CONST 0x0009 ; Number of locals 011b INIT_0118: 011b e5ff | | Load 0x2,-0x1 ; Debug Table 0x6 = .DEBUG 0x011b,0x0414,0x0001,0x0000,0x0036,0xf8d4,0x0000,0x00b8 ; Debug Table 0x6.0x0 = 0x11b,0xffff 011c e002 | | Load 0x0,0x2 011d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 011e 03f1 | | Declare_Variable Discrete,With_Value 011f e002 | | Load 0x0,0x2 ; Debug Table 0x6.0x1 = 0x11f,0xfffe 0120 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0121 e002 | | Load 0x0,0x2 ; Debug Table 0x6.0x2 = 0x121,0xfffd 0122 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0123 e002 | | Load 0x0,0x2 ; Debug Table 0x6.0x3 = 0x123,0xfffc 0124 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0125 e002 | | Load 0x0,0x2 ; Debug Table 0x6.0x4 = 0x125,0xfffb 0126 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0127 e20d | | Load 0x1,0xd ; Debug Table 0x6.0x5 = 0x127,0xfffa 0128 0007 | | Action Break_Optional 0129 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x6.0x6 = 0x129,0xfff9 012a 00e2 | | Load_Encached Integer_Cache ; Debug Table 0x6.0x7 = 0x12a,0xfff8 012b BODY_0118: 012b 4800 |H | Short_Literal 0x0 ; Debug Table 0x6.0x8 = 0x12b,0x1 012c a5fd | | Store_Unchecked 0x2,-0x3 012d 4800 |H | Short_Literal 0x0 ; Debug Table 0x6.0x9 = 0x12d,0x2 012e a5fc | | Store_Unchecked 0x2,-0x4 012f e002 | | Load 0x0,0x2 ; Debug Table 0x6.0xa = 0x12f,0x3 0130 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0131 e002 | | Load 0x0,0x2 0132 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0133 00e3 | | Load_Encached Natural_Cache 0134 e20d | | Load 0x1,0xd 0135 e402 | | Load 0x2,0x2 0136 8215 | | Call 0x1,0x15 0137 c407 | | Store 0x2,0x7 0138 c408 | | Store 0x2,0x8 0139 c403 | | Store 0x2,0x3 013a c404 | | Store 0x2,0x4 013b e404 | | Load 0x2,0x4 ; Debug Table 0x6.0xb = 0x13b,0x4 013c 0248 | H | Execute Discrete,Check_In_Integer 013d e402 | | Load 0x2,0x2 013e e002 | | Load 0x0,0x2 013f 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0140 a406 | | Store_Unchecked 0x2,0x6 0141 e403 | | Load 0x2,0x3 ; Debug Table 0x6.0xc = 0x141,0x5 0142 e5fe | | Load 0x2,-0x2 0143 e402 | | Load 0x2,0x2 0144 821d | | Call 0x1,0x1d 0145 a409 | | Store_Unchecked 0x2,0x9 0146 e409 | | Load 0x2,0x9 ; Debug Table 0x6.0xd = 0x146,0x6 0147 e406 | | Load 0x2,0x6 0148 027d | } | Execute Discrete,Greater 0149 7003 |p | Jump_Nonzero 0x14d 014a e409 | | Load 0x2,0x9 014b 0d01 | | Execute_Immediate Less,0x1 014c 6802 |h | Jump_Zero 0x14f 014d e20f | | Load 0x1,0xf ; Debug Table 0x6.0xe = 0x14d,0x7 014e 0257 | W | Execute Discrete,Raise 014f e404 | | Load 0x2,0x4 ; Debug Table 0x6.0xf = 0x14f,0x8 0150 e409 | | Load 0x2,0x9 0151 0aff | | Execute_Immediate Plus,-0x1 0152 0902 | | Execute_Immediate Binary_Scale,0x2 0153 0248 | H | Execute Discrete,Check_In_Integer 0154 0a01 | | Execute_Immediate Plus,0x1 0155 e002 | | Load 0x0,0x2 0156 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0157 025b | [ | Execute Discrete,Check_In_Type 0158 0273 | s | Execute Discrete,Plus 0159 0248 | H | Execute Discrete,Check_In_Integer 015a a405 | | Store_Unchecked 0x2,0x5 015b e405 | | Load 0x2,0x5 ; Debug Table 0x6.0x10 = 0x15b,0x9 015c 0248 | H | Execute Discrete,Check_In_Integer 015d e402 | | Load 0x2,0x2 015e e002 | | Load 0x0,0x2 015f 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0160 e402 | | Load 0x2,0x2 0161 e002 | | Load 0x0,0x2 0162 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0163 a5fd | | Store_Unchecked 0x2,-0x3 0164 e409 | | Load 0x2,0x9 ; Debug Table 0x6.0x11 = 0x164,0xa 0165 0a01 | | Execute_Immediate Plus,0x1 0166 e406 | | Load 0x2,0x6 0167 027d | } | Execute Discrete,Greater 0168 6806 |h | Jump_Zero 0x16f 0169 e404 | | Load 0x2,0x4 ; Debug Table 0x6.0x12 = 0x169,0xb 016a e402 | | Load 0x2,0x2 016b e002 | | Load 0x0,0x2 016c 1818 | | Execute Package,Field_Execute,Field_Number 0x18 016d a5fc | | Store_Unchecked 0x2,-0x4 016e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 016f e404 | | Load 0x2,0x4 ; Debug Table 0x6.0x13 = 0x16f,0xc 0170 e409 | | Load 0x2,0x9 0171 0902 | | Execute_Immediate Binary_Scale,0x2 0172 0248 | H | Execute Discrete,Check_In_Integer 0173 0a01 | | Execute_Immediate Plus,0x1 0174 e002 | | Load 0x0,0x2 0175 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0176 025b | [ | Execute Discrete,Check_In_Type 0177 0273 | s | Execute Discrete,Plus 0178 0248 | H | Execute Discrete,Check_In_Integer 0179 a405 | | Store_Unchecked 0x2,0x5 017a e405 | | Load 0x2,0x5 ; Debug Table 0x6.0x14 = 0x17a,0xd 017b 0248 | H | Execute Discrete,Check_In_Integer 017c e402 | | Load 0x2,0x2 017d e002 | | Load 0x0,0x2 017e 1814 | | Execute Package,Field_Execute,Field_Number 0x14 017f 0aff | | Execute_Immediate Plus,-0x1 0180 e002 | | Load 0x0,0x2 0181 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0182 025b | [ | Execute Discrete,Check_In_Type 0183 e402 | | Load 0x2,0x2 0184 e002 | | Load 0x0,0x2 0185 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0186 a5fc | | Store_Unchecked 0x2,-0x4 0187 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0188 TRAP_0118: 0188 0007 | | Action Break_Optional 0189 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; Debug Table 0x6.0x15 = 0x189,0xe 018a 0000 0000 | | .BLANK 0000[0x6] 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 0197 | | .CONST 0x0197 ; Address of begin 0191 01a6 | | .CONST 0x01a6 ; Address of exception handler 0192 0003 | | .CONST 0x0003 ; Number of locals 0193 INIT_0190: 0193 e002 | | Load 0x0,0x2 ; Debug Table 0x7 = .DEBUG 0x0193,0x0442,0x0001,0x0000,0x0036,0xf8d4,0x0000,0x00d8 ; Debug Table 0x7.0x0 = 0x193,0xffff 0194 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0195 e002 | | Load 0x0,0x2 ; Debug Table 0x7.0x1 = 0x195,0xfffe 0196 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0197 BODY_0190: 0197 e002 | | Load 0x0,0x2 ; Debug Table 0x7.0x2 = 0x197,0x1 0198 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0199 e002 | | Load 0x0,0x2 019a 1b11 | | Execute Package,Field_Read,Field_Number 0x11 019b 00e3 | | Load_Encached Natural_Cache 019c e20d | | Load 0x1,0xd 019d e5ff | | Load 0x2,-0x1 019e 8215 | | Call 0x1,0x15 019f c5fe | | Store 0x2,-0x2 01a0 c5fd | | Store 0x2,-0x3 01a1 c402 | | Store 0x2,0x2 01a2 c403 | | Store 0x2,0x3 01a3 4801 |H | Short_Literal 0x1 ; Debug Table 0x7.0x3 = 0x1a3,0x2 01a4 a5fc | | Store_Unchecked 0x2,-0x4 01a5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01a6 TRAP_0190: 01a6 0007 | | Action Break_Optional 01a7 4800 |H | Short_Literal 0x0 ; Debug Table 0x7.0x4 = 0x1a7,0x3 01a8 a5fc | | Store_Unchecked 0x2,-0x4 01a9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01aa 0000 0000 | | .BLANK 0000[0x6] 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01b7 | | .CONST 0x01b7 ; Address of begin 01b1 01db | | .CONST 0x01db ; Address of exception handler 01b2 0004 | | .CONST 0x0004 ; Number of locals 01b3 INIT_01b0: 01b3 e002 | | Load 0x0,0x2 ; Debug Table 0x8 = .DEBUG 0x01b3,0x044e,0x0001,0x0000,0x0036,0xf8d4,0x0000,0x00f0 ; Debug Table 0x8.0x0 = 0x1b3,0xffff 01b4 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01b5 03e9 | | Declare_Variable Discrete,Duplicate 01b6 03e9 | | Declare_Variable Discrete,Duplicate 01b7 BODY_01b0: 01b7 e002 | | Load 0x0,0x2 ; Debug Table 0x8.0x1 = 0x1b7,0x1 01b8 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01b9 e002 | | Load 0x0,0x2 01ba 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01bb 4801 |H | Short_Literal 0x1 01bc e5ff | | Load 0x2,-0x1 01bd 8217 | | Call 0x1,0x17 01be c403 | | Store 0x2,0x3 01bf c404 | | Store 0x2,0x4 01c0 e403 | | Load 0x2,0x3 ; Debug Table 0x8.0x2 = 0x1c0,0x2 01c1 a5fe | | Store_Unchecked 0x2,-0x2 01c2 e404 | | Load 0x2,0x4 ; Debug Table 0x8.0x3 = 0x1c2,0x3 01c3 a402 | | Store_Unchecked 0x2,0x2 01c4 611f |a | Indirect_Literal Discrete,0x2e4,{0x00000000, 0x7fffffff} ; Debug Table 0x8.0x4 = 0x1c4,0x4 01c5 4801 |H | Short_Literal 0x1 01c6 0007 | | Action Break_Optional 01c7 e002 | | Load 0x0,0x2 ; Debug Table 0x8.0x5 = 0x1c7,0x5 01c8 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01c9 e002 | | Load 0x0,0x2 01ca 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01cb e406 | | Load 0x2,0x6 01cc e5ff | | Load 0x2,-0x1 01cd 8217 | | Call 0x1,0x17 01ce c403 | | Store 0x2,0x3 01cf c404 | | Store 0x2,0x4 01d0 e404 | | Load 0x2,0x4 ; Debug Table 0x8.0x6 = 0x1d0,0x6 01d1 7003 |p | Jump_Nonzero 0x1d5 01d2 e402 | | Load 0x2,0x2 ; Debug Table 0x8.0x7 = 0x1d2,0x7 01d3 a5fd | | Store_Unchecked 0x2,-0x3 01d4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0x8.0x8 = 0x1d4,0x8 01d5 e404 | | Load 0x2,0x4 ; Debug Table 0x8.0x9 = 0x1d5,0x9 01d6 a402 | | Store_Unchecked 0x2,0x2 01d7 3fef |? | Loop_Increasing 0x1c7 01d8 e402 | | Load 0x2,0x2 ; Debug Table 0x8.0xa = 0x1d8,0xa 01d9 a5fd | | Store_Unchecked 0x2,-0x3 01da 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01db TRAP_01b0: 01db e001 | | Load 0x0,0x1 01dc 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01dd 1b13 | | Execute Package,Field_Read,Field_Number 0x13 01de 010f | | Execute Exception,Equal 01df 6803 |h | Jump_Zero 0x1e3 01e0 e402 | | Load 0x2,0x2 ; Debug Table 0x8.0xb = 0x1e0,0xb 01e1 a5fd | | Store_Unchecked 0x2,-0x3 01e2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01e3 0100 | | Execute Exception,Raise 01e4 0000 0000 | | .BLANK 0000[0x4] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01eb | | .CONST 0x01eb ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0001 | | .CONST 0x0001 ; Number of locals 01eb BODY_01e8: 01eb INIT_01e8: 01eb e5fe | | Load 0x2,-0x2 ; Debug Table 0x9 = .DEBUG 0x01eb,0x0468,0x0001,0x0000,0x0036,0xf8d4,0x0000,0x0105 ; Debug Table 0x9.0x0 = 0x1eb,0x1 01ec e5fd | | Load 0x2,-0x3 01ed 0272 | r | Execute Discrete,Minus 01ee 0248 | H | Execute Discrete,Check_In_Integer 01ef 0afe | | Execute_Immediate Plus,-0x2 01f0 0248 | H | Execute Discrete,Check_In_Integer 01f1 a5f8 | | Store_Unchecked 0x2,-0x8 01f2 e5f8 | | Load 0x2,-0x8 ; Debug Table 0x9.0x1 = 0x1f2,0x2 01f3 e5fc | | Load 0x2,-0x4 01f4 027c | | | Execute Discrete,Less 01f5 6819 |h | Jump_Zero 0x20f 01f6 e5fa | | Load 0x2,-0x6 ; Debug Table 0x9.0x2 = 0x1f6,0x3 01f7 6811 |h | Jump_Zero 0x209 01f8 e5fe | | Load 0x2,-0x2 ; Debug Table 0x9.0x3 = 0x1f8,0x4 01f9 e5fb | | Load 0x2,-0x5 01fa e5fc | | Load 0x2,-0x4 01fb 0273 | s | Execute Discrete,Plus 01fc e002 | | Load 0x0,0x2 01fd 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01fe 025b | [ | Execute Discrete,Check_In_Type 01ff 0273 | s | Execute Discrete,Plus 0200 0248 | H | Execute Discrete,Check_In_Integer 0201 e5ff | | Load 0x2,-0x1 0202 e002 | | Load 0x0,0x2 0203 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0204 a5f8 | | Store_Unchecked 0x2,-0x8 0205 e5f8 | | Load 0x2,-0x8 ; Debug Table 0x9.0x4 = 0x205,0x5 0206 0275 | u | Execute Discrete,Unary_Minus 0207 a5f8 | | Store_Unchecked 0x2,-0x8 0208 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0209 e5f8 | | Load 0x2,-0x8 ; Debug Table 0x9.0x5 = 0x209,0x6 020a 0a01 | | Execute_Immediate Plus,0x1 020b 0248 | H | Execute Discrete,Check_In_Integer 020c 0275 | u | Execute Discrete,Unary_Minus 020d a5f8 | | Store_Unchecked 0x2,-0x8 020e 4508 |E | Exit_Suprogram New_Top_Offset 0x8 020f e5f9 | | Load 0x2,-0x7 ; Debug Table 0x9.0x6 = 0x20f,0x7 0210 681c |h | Jump_Zero 0x22d 0211 e5fa | | Load 0x2,-0x6 ; Debug Table 0x9.0x7 = 0x211,0x8 0212 680e |h | Jump_Zero 0x221 0213 e5fe | | Load 0x2,-0x2 ; Debug Table 0x9.0x8 = 0x213,0x9 0214 e5fb | | Load 0x2,-0x5 0215 e5fc | | Load 0x2,-0x4 0216 0273 | s | Execute Discrete,Plus 0217 e002 | | Load 0x0,0x2 0218 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0219 025b | [ | Execute Discrete,Check_In_Type 021a 0273 | s | Execute Discrete,Plus 021b 0248 | H | Execute Discrete,Check_In_Integer 021c e5ff | | Load 0x2,-0x1 021d e002 | | Load 0x0,0x2 021e 1814 | | Execute Package,Field_Execute,Field_Number 0x14 021f a5f8 | | Store_Unchecked 0x2,-0x8 0220 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0221 e5fe | | Load 0x2,-0x2 ; Debug Table 0x9.0x9 = 0x221,0xa 0222 e5fb | | Load 0x2,-0x5 0223 e002 | | Load 0x0,0x2 0224 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0225 025b | [ | Execute Discrete,Check_In_Type 0226 0273 | s | Execute Discrete,Plus 0227 0248 | H | Execute Discrete,Check_In_Integer 0228 e5ff | | Load 0x2,-0x1 0229 e002 | | Load 0x0,0x2 022a 1814 | | Execute Package,Field_Execute,Field_Number 0x14 022b a5f8 | | Store_Unchecked 0x2,-0x8 022c 4508 |E | Exit_Suprogram New_Top_Offset 0x8 022d e5f8 | | Load 0x2,-0x8 ; Debug Table 0x9.0xa = 0x22d,0xb 022e 0a01 | | Execute_Immediate Plus,0x1 022f e5fc | | Load 0x2,-0x4 0230 0272 | r | Execute Discrete,Minus 0231 0248 | H | Execute Discrete,Check_In_Integer 0232 a5f8 | | Store_Unchecked 0x2,-0x8 0233 4508 |E | Exit_Suprogram New_Top_Offset 0x8 0234 0000 0000 | | .BLANK 0000[0x4] 0238 ; -------------------------------------------------------------------------------------- 0238 ; SUBPROGRAM 0238 ; -------------------------------------------------------------------------------------- 0238 0248 | H | .CONST 0x0248 ; Address of begin 0239 027a | z | .CONST 0x027a ; Address of exception handler 023a 0008 | | .CONST 0x0008 ; Number of locals 023b INIT_0238: 023b e20d | | Load 0x1,0xd ; Debug Table 0xa = .DEBUG 0x023b,0x0480,0x0002,0x0000,0x0036,0xf8d4,0x0000,0x012f ; Debug Table 0xa.0x0 = 0x23b,0xffff 023c 0007 | | Action Break_Optional 023d 00e3 | | Load_Encached Natural_Cache ; Debug Table 0xa.0x1 = 0x23d,0xfffe 023e e002 | | Load 0x0,0x2 ; Debug Table 0xa.0x2 = 0x23e,0xfffd 023f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0240 e002 | | Load 0x0,0x2 ; Debug Table 0xa.0x3 = 0x240,0xfffc 0241 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0242 e002 | | Load 0x0,0x2 ; Debug Table 0xa.0x4 = 0x242,0xfffb 0243 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0244 e002 | | Load 0x0,0x2 ; Debug Table 0xa.0x5 = 0x244,0xfffa 0245 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0246 e002 | | Load 0x0,0x2 ; Debug Table 0xa.0x6 = 0x246,0xfff9 0247 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0248 BODY_0238: 0248 e5ff | | Load 0x2,-0x1 ; Debug Table 0xa.0x7 = 0x248,0x1 0249 e002 | | Load 0x0,0x2 024a 1816 | | Execute Package,Field_Execute,Field_Number 0x16 024b a404 | | Store_Unchecked 0x2,0x4 024c e5ff | | Load 0x2,-0x1 ; Debug Table 0xa.0x8 = 0x24c,0x2 024d e002 | | Load 0x0,0x2 024e 1817 | | Execute Package,Field_Execute,Field_Number 0x17 024f a405 | | Store_Unchecked 0x2,0x5 0250 e002 | | Load 0x0,0x2 ; Debug Table 0xa.0x9 = 0x250,0x3 0251 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0252 e002 | | Load 0x0,0x2 0253 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0254 00e3 | | Load_Encached Natural_Cache 0255 e20d | | Load 0x1,0xd 0256 e404 | | Load 0x2,0x4 0257 8215 | | Call 0x1,0x15 0258 c402 | | Store 0x2,0x2 0259 c403 | | Store 0x2,0x3 025a c406 | | Store 0x2,0x6 025b c407 | | Store 0x2,0x7 025c e002 | | Load 0x0,0x2 ; Debug Table 0xa.0xa = 0x25c,0x4 025d 1b11 | | Execute Package,Field_Read,Field_Number 0x11 025e e405 | | Load 0x2,0x5 025f 4800 |H | Short_Literal 0x0 0260 4804 |H | Short_Literal 0x4 0261 e407 | | Load 0x2,0x7 0262 0a01 | | Execute_Immediate Plus,0x1 0263 0248 | H | Execute Discrete,Check_In_Integer 0264 e407 | | Load 0x2,0x7 0265 0248 | H | Execute Discrete,Check_In_Integer 0266 e404 | | Load 0x2,0x4 0267 e002 | | Load 0x0,0x2 0268 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0269 e404 | | Load 0x2,0x4 026a 8213 | | Call 0x1,0x13 026b c408 | | Store 0x2,0x8 026c e408 | | Load 0x2,0x8 ; Debug Table 0xa.0xb = 0x26c,0x5 026d 7002 |p | Jump_Nonzero 0x270 026e 4800 |H | Short_Literal 0x0 ; Debug Table 0xa.0xc = 0x26e,0x6 026f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0270 e5ff | | Load 0x2,-0x1 ; Debug Table 0xa.0xd = 0x270,0x7 0271 e002 | | Load 0x0,0x2 0272 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0273 e408 | | Load 0x2,0x8 0274 0248 | H | Execute Discrete,Check_In_Integer 0275 e404 | | Load 0x2,0x4 0276 e002 | | Load 0x0,0x2 0277 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0278 027f | | Execute Discrete,Equal 0279 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 027a TRAP_0238: 027a 0007 | | Action Break_Optional 027b 4800 |H | Short_Literal 0x0 ; Debug Table 0xa.0xe = 0x27b,0x8 027c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 027d 0000 0000 | | .XXX[0x3] 027f 0000 | | 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; -------------------------------------------------------------------------------------- 0280 0289 | | .CONST 0x0289 ; Address of begin 0281 0004 | | .CONST 0x0004 ; Address of exception handler 0282 0005 | | .CONST 0x0005 ; Number of locals 0283 INIT_0280: 0283 e002 | | Load 0x0,0x2 ; Debug Table 0xb = .DEBUG 0x0283,0x04a0,0x0002,0x0000,0x0036,0xf984,0x0000,0x006e ; Debug Table 0xb.0x0 = 0x283,0xffff 0284 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0285 03e9 | | Declare_Variable Discrete,Duplicate 0286 03e9 | | Declare_Variable Discrete,Duplicate 0287 e002 | | Load 0x0,0x2 ; Debug Table 0xb.0x1 = 0x287,0xfffe 0288 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0289 BODY_0280: 0289 e5fe | | Load 0x2,-0x2 ; Debug Table 0xb.0x2 = 0x289,0x1 028a a402 | | Store_Unchecked 0x2,0x2 028b e5fd | | Load 0x2,-0x3 ; Debug Table 0xb.0x3 = 0x28b,0x2 028c a403 | | Store_Unchecked 0x2,0x3 028d 0007 | | Action Break_Optional ; Debug Table 0xb.0x4 = 0x28d,0x3 028e e402 | | Load 0x2,0x2 ; Debug Table 0xb.0x5 = 0x28e,0x4 028f e403 | | Load 0x2,0x3 0290 e402 | | Load 0x2,0x2 0291 0272 | r | Execute Discrete,Minus 0292 0248 | H | Execute Discrete,Check_In_Integer 0293 e5fc | | Load 0x2,-0x4 0294 e002 | | Load 0x0,0x2 0295 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0296 025b | [ | Execute Discrete,Check_In_Type 0297 0270 | p | Execute Discrete,Divide 0298 09ff | | Execute_Immediate Binary_Scale,-0x1 0299 e5fc | | Load 0x2,-0x4 029a e002 | | Load 0x0,0x2 029b 1b11 | | Execute Package,Field_Read,Field_Number 0x11 029c 025b | [ | Execute Discrete,Check_In_Type 029d 0271 | q | Execute Discrete,Times 029e 0248 | H | Execute Discrete,Check_In_Integer 029f 0273 | s | Execute Discrete,Plus 02a0 0248 | H | Execute Discrete,Check_In_Integer 02a1 a404 | | Store_Unchecked 0x2,0x4 02a2 e404 | | Load 0x2,0x4 ; Debug Table 0xb.0x6 = 0x2a2,0x5 02a3 e5fb | | Load 0x2,-0x5 02a4 0273 | s | Execute Discrete,Plus 02a5 0248 | H | Execute Discrete,Check_In_Integer 02a6 e5ff | | Load 0x2,-0x1 02a7 e002 | | Load 0x0,0x2 02a8 1814 | | Execute Package,Field_Execute,Field_Number 0x14 02a9 a405 | | Store_Unchecked 0x2,0x5 02aa e5fa | | Load 0x2,-0x6 ; Debug Table 0xb.0x7 = 0x2aa,0x6 02ab e405 | | Load 0x2,0x5 02ac 027f | | Execute Discrete,Equal 02ad 701c |p | Jump_Nonzero 0x2ca 02ae e5fa | | Load 0x2,-0x6 02af e405 | | Load 0x2,0x5 02b0 027d | } | Execute Discrete,Greater 02b1 6816 |h | Jump_Zero 0x2c8 02b2 e404 | | Load 0x2,0x4 02b3 e5fd | | Load 0x2,-0x3 02b4 027f | | Execute Discrete,Equal 02b5 7010 |p | Jump_Nonzero 0x2c6 02b6 e5fa | | Load 0x2,-0x6 02b7 e404 | | Load 0x2,0x4 02b8 e5fc | | Load 0x2,-0x4 02b9 e002 | | Load 0x0,0x2 02ba 1b11 | | Execute Package,Field_Read,Field_Number 0x11 02bb 025b | [ | Execute Discrete,Check_In_Type 02bc 0273 | s | Execute Discrete,Plus 02bd 0248 | H | Execute Discrete,Check_In_Integer 02be e5fb | | Load 0x2,-0x5 02bf 0273 | s | Execute Discrete,Plus 02c0 0248 | H | Execute Discrete,Check_In_Integer 02c1 e5ff | | Load 0x2,-0x1 02c2 e002 | | Load 0x0,0x2 02c3 1814 | | Execute Package,Field_Execute,Field_Number 0x14 02c4 027c | | | Execute Discrete,Less 02c5 7803 |x | Jump 0x2c9 02c6 4801 |H | Short_Literal 0x1 02c7 7801 |x | Jump 0x2c9 02c8 4800 |H | Short_Literal 0x0 02c9 6802 |h | Jump_Zero 0x2cc 02ca e404 | | Load 0x2,0x4 ; Debug Table 0xb.0x8 = 0x2ca,0x7 02cb 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6 02cc e402 | | Load 0x2,0x2 ; Debug Table 0xb.0x9 = 0x2cc,0x8 02cd e403 | | Load 0x2,0x3 02ce 027f | | Execute Discrete,Equal 02cf 6802 |h | Jump_Zero 0x2d2 02d0 e212 | | Load 0x1,0x12 ; Debug Table 0xb.0xa = 0x2d0,0x9 02d1 0257 | W | Execute Discrete,Raise 02d2 e5fa | | Load 0x2,-0x6 ; Debug Table 0xb.0xb = 0x2d2,0xa 02d3 e405 | | Load 0x2,0x5 02d4 027d | } | Execute Discrete,Greater 02d5 6809 |h | Jump_Zero 0x2df 02d6 e404 | | Load 0x2,0x4 ; Debug Table 0xb.0xc = 0x2d6,0xb 02d7 e5fc | | Load 0x2,-0x4 02d8 e002 | | Load 0x0,0x2 02d9 1b11 | | Execute Package,Field_Read,Field_Number 0x11 02da 025b | [ | Execute Discrete,Check_In_Type 02db 0273 | s | Execute Discrete,Plus 02dc 0248 | H | Execute Discrete,Check_In_Integer 02dd a402 | | Store_Unchecked 0x2,0x2 02de 7faf | | Jump 0x28e 02df e404 | | Load 0x2,0x4 ; Debug Table 0xb.0xd = 0x2df,0xc 02e0 a403 | | Store_Unchecked 0x2,0x3 02e1 7fac | | Jump 0x28e 02e2 0000 0000 | | .XXX[0x2] 02e4 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 02e8 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 02ec 0000 0000 | | .LITERAL {0x00000000, 0x00008000} 02f0 0000 0000 | | .LITERAL {0x00000000, 0x36f8d405} 02f4 0000 0000 | | .LITERAL {0x00000000, 0x36f8d404} 02f8 0000 0000 | | .LITERAL {0x00000000, 0x36f8d403} 02fc 0000 0000 | | .LITERAL {0x00000000, 0x36f8d402} 0300 0000 0000 | | .LITERAL {0x00000000, 0x36f8d401} 0304 0000 0000 | | .BLANK 0000[0x4] 0308 ; -------------------------------------------------------------------------------------- 0308 ; SUBPROGRAM 0308 ; -------------------------------------------------------------------------------------- 0308 030c | | .CONST 0x030c ; Address of begin 0309 0004 | | .CONST 0x0004 ; Address of exception handler 030a 0002 | | .CONST 0x0002 ; Number of locals 030b INIT_0308: 030b 00e3 | | Load_Encached Natural_Cache ; Debug Table 0xc = .DEBUG 0x030b,0x04be,0x0002,0x0000,0x0036,0xf984,0x0000,0x035f ; Debug Table 0xc.0x0 = 0x30b,0xffff 030c BODY_0308: 030c e5fd | | Load 0x2,-0x3 ; Debug Table 0xc.0x1 = 0x30c,0x1 030d 0a03 | | Execute_Immediate Plus,0x3 030e 0248 | H | Execute Discrete,Check_In_Integer 030f e5ff | | Load 0x2,-0x1 0310 e002 | | Load 0x0,0x2 0311 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0312 a402 | | Store_Unchecked 0x2,0x2 0313 e5fe | | Load 0x2,-0x2 ; Debug Table 0xc.0x2 = 0x313,0x2 0314 e402 | | Load 0x2,0x2 0315 0272 | r | Execute Discrete,Minus 0316 0248 | H | Execute Discrete,Check_In_Integer 0317 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0318 ; -------------------------------------------------------------------------------------- 0318 ; Debug Table 0318 ; -------------------------------------------------------------------------------------- 0318 0003 000d | | .CONST 0x0003,0x000d 031a 000b 0382 | | .DEBUG 0x000b,0x0382,0x8000,0x0000,0x0036,0xf8d4,0x0000,0x0007 0322 0030 03ac | 0 | .DEBUG 0x0030,0x03ac,0x8000,0x0000,0x0036,0xf984,0x0000,0x0007 032a 0053 03d2 | S | .DEBUG 0x0053,0x03d2,0x0001,0x0000,0x0036,0xf8d4,0x0000,0x002b 0332 007b 03dc | { | .DEBUG 0x007b,0x03dc,0x0002,0x0000,0x0036,0xf8d4,0x0000,0x0055 033a 008b 03e0 | | .DEBUG 0x008b,0x03e0,0x0001,0x0000,0x0036,0xf8d4,0x0000,0x0064 0342 00cb 03f6 | | .DEBUG 0x00cb,0x03f6,0x0001,0x0000,0x0036,0xf8d4,0x0000,0x0082 034a 011b 0414 | | .DEBUG 0x011b,0x0414,0x0001,0x0000,0x0036,0xf8d4,0x0000,0x00b8 0352 0193 0442 | B| .DEBUG 0x0193,0x0442,0x0001,0x0000,0x0036,0xf8d4,0x0000,0x00d8 035a 01b3 044e | N| .DEBUG 0x01b3,0x044e,0x0001,0x0000,0x0036,0xf8d4,0x0000,0x00f0 0362 01eb 0468 | h| .DEBUG 0x01eb,0x0468,0x0001,0x0000,0x0036,0xf8d4,0x0000,0x0105 036a 023b 0480 | ; | .DEBUG 0x023b,0x0480,0x0002,0x0000,0x0036,0xf8d4,0x0000,0x012f 0372 0283 04a0 | | .DEBUG 0x0283,0x04a0,0x0002,0x0000,0x0036,0xf984,0x0000,0x006e 037a 030b 04be | | .DEBUG 0x030b,0x04be,0x0002,0x0000,0x0036,0xf984,0x0000,0x035f 0382 ; -------------------------------------------------------------------------------------- 0382 ; Debug3 Subtable 0x0 0382 ; -------------------------------------------------------------------------------------- 0382 0014 0000 | | .DBG3TAB 0x0014,0x0000 0384 000b ffff | | .CONST 0x000b,0xffff 0386 000c fffe | | .CONST 0x000c,0xfffe 0388 0010 fffd | | .CONST 0x0010,0xfffd 038a 0011 fffc | | .CONST 0x0011,0xfffc 038c 0013 fffb | | .CONST 0x0013,0xfffb 038e 0015 fffa | | .CONST 0x0015,0xfffa 0390 0017 fff9 | | .CONST 0x0017,0xfff9 0392 0019 fff8 | | .CONST 0x0019,0xfff8 0394 001b fff7 | | .CONST 0x001b,0xfff7 0396 001d fff6 | | .CONST 0x001d,0xfff6 0398 001f fff5 | | .CONST 0x001f,0xfff5 039a 0021 fff4 | ! | .CONST 0x0021,0xfff4 039c 0023 fff3 | # | .CONST 0x0023,0xfff3 039e 0025 fff2 | % | .CONST 0x0025,0xfff2 03a0 0027 fff1 | ' | .CONST 0x0027,0xfff1 03a2 0029 fff0 | ) | .CONST 0x0029,0xfff0 03a4 002b ffef | + | .CONST 0x002b,0xffef 03a6 002d ffee | - | .CONST 0x002d,0xffee 03a8 002e ffed | . | .CONST 0x002e,0xffed 03aa 002f ffec | / | .CONST 0x002f,0xffec 03ac ; -------------------------------------------------------------------------------------- 03ac ; Debug3 Subtable 0x1 03ac ; -------------------------------------------------------------------------------------- 03ac 0012 0000 | | .DBG3TAB 0x0012,0x0000 03ae 0030 ffff | 0 | .CONST 0x0030,0xffff 03b0 0031 fffe | 1 | .CONST 0x0031,0xfffe 03b2 0032 fffd | 2 | .CONST 0x0032,0xfffd 03b4 0033 fffc | 3 | .CONST 0x0033,0xfffc 03b6 0034 fffb | 4 | .CONST 0x0034,0xfffb 03b8 0035 fffa | 5 | .CONST 0x0035,0xfffa 03ba 0036 fff9 | 6 | .CONST 0x0036,0xfff9 03bc 0037 fff8 | 7 | .CONST 0x0037,0xfff8 03be 0039 fff7 | 9 | .CONST 0x0039,0xfff7 03c0 003b fff6 | ; | .CONST 0x003b,0xfff6 03c2 003d fff5 | = | .CONST 0x003d,0xfff5 03c4 003f fff4 | ? | .CONST 0x003f,0xfff4 03c6 0041 fff3 | A | .CONST 0x0041,0xfff3 03c8 0043 fff2 | C | .CONST 0x0043,0xfff2 03ca 0045 fff1 | E | .CONST 0x0045,0xfff1 03cc 0047 fff0 | G | .CONST 0x0047,0xfff0 03ce 0049 ffef | I | .CONST 0x0049,0xffef 03d0 004b ffee | K | .CONST 0x004b,0xffee 03d2 ; -------------------------------------------------------------------------------------- 03d2 ; Debug3 Subtable 0x2 03d2 ; -------------------------------------------------------------------------------------- 03d2 0000 0004 | | .DBG3TAB 0x0000,0x0004 03d4 0053 0001 | S | .CONST 0x0053,0x0001 03d6 0055 0002 | U | .CONST 0x0055,0x0002 03d8 0057 0003 | W | .CONST 0x0057,0x0003 03da 006d 0004 | m | .CONST 0x006d,0x0004 03dc ; -------------------------------------------------------------------------------------- 03dc ; Debug3 Subtable 0x3 03dc ; -------------------------------------------------------------------------------------- 03dc 0000 0001 | | .DBG3TAB 0x0000,0x0001 03de 007b 0001 | { | .CONST 0x007b,0x0001 03e0 ; -------------------------------------------------------------------------------------- 03e0 ; Debug3 Subtable 0x4 03e0 ; -------------------------------------------------------------------------------------- 03e0 0001 0009 | | .DBG3TAB 0x0001,0x0009 03e2 008b ffff | | .CONST 0x008b,0xffff 03e4 008d 0001 | | .CONST 0x008d,0x0001 03e6 0092 0002 | | .CONST 0x0092,0x0002 03e8 0094 0003 | | .CONST 0x0094,0x0003 03ea 0096 0004 | | .CONST 0x0096,0x0004 03ec 009c 0005 | | .CONST 0x009c,0x0005 03ee 009f 0006 | | .CONST 0x009f,0x0006 03f0 00a1 0007 | | .CONST 0x00a1,0x0007 03f2 00b2 0008 | | .CONST 0x00b2,0x0008 03f4 00bc 0009 | | .CONST 0x00bc,0x0009 03f6 ; -------------------------------------------------------------------------------------- 03f6 ; Debug3 Subtable 0x5 03f6 ; -------------------------------------------------------------------------------------- 03f6 0002 000c | | .DBG3TAB 0x0002,0x000c 03f8 00cb ffff | | .CONST 0x00cb,0xffff 03fa 00cd fffe | | .CONST 0x00cd,0xfffe 03fc 00cf 0001 | | .CONST 0x00cf,0x0001 03fe 00d3 0002 | | .CONST 0x00d3,0x0002 0400 00da 0003 | | .CONST 0x00da,0x0003 0402 00e1 0004 | | .CONST 0x00e1,0x0004 0404 00e5 0005 | | .CONST 0x00e5,0x0005 0406 00e9 0006 | | .CONST 0x00e9,0x0006 0408 00f6 0007 | | .CONST 0x00f6,0x0007 040a 00fd 0008 | | .CONST 0x00fd,0x0008 040c 00ff 0009 | | .CONST 0x00ff,0x0009 040e 0101 000a | | .CONST 0x0101,0x000a 0410 0104 000b | | .CONST 0x0104,0x000b 0412 010a 000c | | .CONST 0x010a,0x000c 0414 ; -------------------------------------------------------------------------------------- 0414 ; Debug3 Subtable 0x6 0414 ; -------------------------------------------------------------------------------------- 0414 0008 000e | | .DBG3TAB 0x0008,0x000e 0416 011b ffff | | .CONST 0x011b,0xffff 0418 011f fffe | | .CONST 0x011f,0xfffe 041a 0121 fffd | ! | .CONST 0x0121,0xfffd 041c 0123 fffc | # | .CONST 0x0123,0xfffc 041e 0125 fffb | % | .CONST 0x0125,0xfffb 0420 0127 fffa | ' | .CONST 0x0127,0xfffa 0422 0129 fff9 | ) | .CONST 0x0129,0xfff9 0424 012a fff8 | * | .CONST 0x012a,0xfff8 0426 012b 0001 | + | .CONST 0x012b,0x0001 0428 012d 0002 | - | .CONST 0x012d,0x0002 042a 012f 0003 | / | .CONST 0x012f,0x0003 042c 013b 0004 | ; | .CONST 0x013b,0x0004 042e 0141 0005 | A | .CONST 0x0141,0x0005 0430 0146 0006 | F | .CONST 0x0146,0x0006 0432 014d 0007 | M | .CONST 0x014d,0x0007 0434 014f 0008 | O | .CONST 0x014f,0x0008 0436 015b 0009 | [ | .CONST 0x015b,0x0009 0438 0164 000a | d | .CONST 0x0164,0x000a 043a 0169 000b | i | .CONST 0x0169,0x000b 043c 016f 000c | o | .CONST 0x016f,0x000c 043e 017a 000d | z | .CONST 0x017a,0x000d 0440 0189 000e | | .CONST 0x0189,0x000e 0442 ; -------------------------------------------------------------------------------------- 0442 ; Debug3 Subtable 0x7 0442 ; -------------------------------------------------------------------------------------- 0442 0002 0003 | | .DBG3TAB 0x0002,0x0003 0444 0193 ffff | | .CONST 0x0193,0xffff 0446 0195 fffe | | .CONST 0x0195,0xfffe 0448 0197 0001 | | .CONST 0x0197,0x0001 044a 01a3 0002 | | .CONST 0x01a3,0x0002 044c 01a7 0003 | | .CONST 0x01a7,0x0003 044e ; -------------------------------------------------------------------------------------- 044e ; Debug3 Subtable 0x8 044e ; -------------------------------------------------------------------------------------- 044e 0001 000b | | .DBG3TAB 0x0001,0x000b 0450 01b3 ffff | | .CONST 0x01b3,0xffff 0452 01b7 0001 | | .CONST 0x01b7,0x0001 0454 01c0 0002 | | .CONST 0x01c0,0x0002 0456 01c2 0003 | | .CONST 0x01c2,0x0003 0458 01c4 0004 | | .CONST 0x01c4,0x0004 045a 01c7 0005 | | .CONST 0x01c7,0x0005 045c 01d0 0006 | | .CONST 0x01d0,0x0006 045e 01d2 0007 | | .CONST 0x01d2,0x0007 0460 01d4 0008 | | .CONST 0x01d4,0x0008 0462 01d5 0009 | | .CONST 0x01d5,0x0009 0464 01d8 000a | | .CONST 0x01d8,0x000a 0466 01e0 000b | | .CONST 0x01e0,0x000b 0468 ; -------------------------------------------------------------------------------------- 0468 ; Debug3 Subtable 0x9 0468 ; -------------------------------------------------------------------------------------- 0468 0000 000b | | .DBG3TAB 0x0000,0x000b 046a 01eb 0001 | | .CONST 0x01eb,0x0001 046c 01f2 0002 | | .CONST 0x01f2,0x0002 046e 01f6 0003 | | .CONST 0x01f6,0x0003 0470 01f8 0004 | | .CONST 0x01f8,0x0004 0472 0205 0005 | | .CONST 0x0205,0x0005 0474 0209 0006 | | .CONST 0x0209,0x0006 0476 020f 0007 | | .CONST 0x020f,0x0007 0478 0211 0008 | | .CONST 0x0211,0x0008 047a 0213 0009 | | .CONST 0x0213,0x0009 047c 0221 000a | ! | .CONST 0x0221,0x000a 047e 022d 000b | - | .CONST 0x022d,0x000b 0480 ; -------------------------------------------------------------------------------------- 0480 ; Debug3 Subtable 0xa 0480 ; -------------------------------------------------------------------------------------- 0480 0007 0008 | | .DBG3TAB 0x0007,0x0008 0482 023b ffff | ; | .CONST 0x023b,0xffff 0484 023d fffe | = | .CONST 0x023d,0xfffe 0486 023e fffd | > | .CONST 0x023e,0xfffd 0488 0240 fffc | @ | .CONST 0x0240,0xfffc 048a 0242 fffb | B | .CONST 0x0242,0xfffb 048c 0244 fffa | D | .CONST 0x0244,0xfffa 048e 0246 fff9 | F | .CONST 0x0246,0xfff9 0490 0248 0001 | H | .CONST 0x0248,0x0001 0492 024c 0002 | L | .CONST 0x024c,0x0002 0494 0250 0003 | P | .CONST 0x0250,0x0003 0496 025c 0004 | \ | .CONST 0x025c,0x0004 0498 026c 0005 | l | .CONST 0x026c,0x0005 049a 026e 0006 | n | .CONST 0x026e,0x0006 049c 0270 0007 | p | .CONST 0x0270,0x0007 049e 027b 0008 | { | .CONST 0x027b,0x0008 04a0 ; -------------------------------------------------------------------------------------- 04a0 ; Debug3 Subtable 0xb 04a0 ; -------------------------------------------------------------------------------------- 04a0 0002 000c | | .DBG3TAB 0x0002,0x000c 04a2 0283 ffff | | .CONST 0x0283,0xffff 04a4 0287 fffe | | .CONST 0x0287,0xfffe 04a6 0289 0001 | | .CONST 0x0289,0x0001 04a8 028b 0002 | | .CONST 0x028b,0x0002 04aa 028d 0003 | | .CONST 0x028d,0x0003 04ac 028e 0004 | | .CONST 0x028e,0x0004 04ae 02a2 0005 | | .CONST 0x02a2,0x0005 04b0 02aa 0006 | | .CONST 0x02aa,0x0006 04b2 02ca 0007 | | .CONST 0x02ca,0x0007 04b4 02cc 0008 | | .CONST 0x02cc,0x0008 04b6 02d0 0009 | | .CONST 0x02d0,0x0009 04b8 02d2 000a | | .CONST 0x02d2,0x000a 04ba 02d6 000b | | .CONST 0x02d6,0x000b 04bc 02df 000c | | .CONST 0x02df,0x000c 04be ; -------------------------------------------------------------------------------------- 04be ; Debug3 Subtable 0xc 04be ; -------------------------------------------------------------------------------------- 04be 0001 0002 | | .DBG3TAB 0x0001,0x0002 04c0 030b ffff | | .CONST 0x030b,0xffff 04c2 030c 0001 | | .CONST 0x030c,0x0001 04c4 0313 0002 | | .CONST 0x0313,0x0002 04c6 0000 0000 | | .BLANK 0000[0x13a]