|
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 - metrics - 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 For_Outer_Call,Visible,Unelaborated,INIT_0050 ; Debug Table 0x0.0x8 = 0x1b,0xfff7
001d 029a 007b | {| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0078 ; Debug Table 0x0.0x9 = 0x1d,0xfff6
001f 029a 008b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0088 ; Debug Table 0x0.0xa = 0x1f,0xfff5
0021 029a 00cb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00c8 ; Debug Table 0x0.0xb = 0x21,0xfff4
0023 029a 011b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0118 ; Debug Table 0x0.0xc = 0x23,0xfff3
0025 029a 0193 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0190 ; Debug Table 0x0.0xd = 0x25,0xfff2
0027 029a 01b3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01b0 ; Debug Table 0x0.0xe = 0x27,0xfff1
0029 029a 01eb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01e8 ; Debug Table 0x0.0xf = 0x29,0xfff0
002b 029a 023b | ;| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0238 ; 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 For_Outer_Call,INIT_0280 ; 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 For_Outer_Call,INIT_0308 ; 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_Subprogram 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_Subprogram 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_Result,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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 0x3
0188 TRAP_0118:
0188 0007 | | Action Break_Optional
0189 4503 |E | Exit_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Subprogram 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_Result,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_Result,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_Result,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_Result,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_Result,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]