|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 DFS Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 DFS Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2048 (0x800)
Types: SEG
Notes: 5808_R1K_CODE
Names: »12986385.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »12986385.SEG«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »12986385.SEG«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »12986385.SEG«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »12986385.SEG«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »12986385.SEG«
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5808 |X | .CONST 0x5808 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 01c0 | | .CONST 0x01c0 ; 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 0101 | | .CONST 0x0101 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 005a | Z | .CONST 0x005a ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001a | | .CONST 0x001a ; Number of locals
000b INIT_0008:
000b 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x024a,0x8000,0x0000,0x000e,0x4924,0x0000,0x0005
; Debug Table 0x0.0x0 = 0xb,0xffff
000d 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xd,0xfffe
000f 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0xf,0xfffd
0011 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x11,0xfffc
0013 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x13,0xfffb
0015 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x15,0xfffa
0017 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x17,0xfff9
0019 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x19,0xfff8
001b 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x1b,0xfff7
001d 00bf | | Action Accept_Activation
001e 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x001e,0x025e,0x8000,0x0000,0x000e,0x49b4,0x0000,0x000e
; Debug Table 0x1.0x0 = 0x1e,0xffff
001f 0007 | | Action Break_Optional ; Debug Table 0x1.0x1 = 0x1f,0xfffe
0020 4801 |H | Short_Literal 0x1 ; Debug Table 0x1.0x2 = 0x20,0xfffd
0021 4802 |H | Short_Literal 0x2
0022 00e9 | | Load_Encached String_Cache
0023 0334 | 4 | Declare_Variable Array,With_Constraint
0024 4801 |H | Short_Literal 0x1
0025 4802 |H | Short_Literal 0x2
0026 00e9 | | Load_Encached String_Cache
0027 0334 | 4 | Declare_Variable Array,With_Constraint
0028 480d |H | Short_Literal 0xd
0029 4801 |H | Short_Literal 0x1
002a e217 | | Load 0x1,0x17
002b 01d6 | | Execute Vector,Field_Write
002c 480a |H | Short_Literal 0xa
002d 4802 |H | Short_Literal 0x2
002e e217 | | Load 0x1,0x17
002f 01d6 | | Execute Vector,Field_Write
0030 e216 | | Load 0x1,0x16
0031 01d4 | | Execute Vector,Structure_Write
0032 e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x3 = 0x32,0xfffc
0033 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0034 0616 | | Execute_Immediate Set_Value_Unchecked,0x16
0035 e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x4 = 0x35,0xfffb
0036 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0037 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0038 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0x5 = 0x38,0xfffa
0039 6136 |a6 | Indirect_Literal Discrete,0x170,{0x00c62811, 0x000017b0} ; 0xc62811 = KERNEL_IO
003a 02a0 | | Declare_Subprogram Null_Subprogram
003b 037d | } | Declare_Type Task,Defined
003c 036f | o | Declare_Variable Task
003d e002 | | Load 0x0,0x2 ; Debug Table 0x1.0x6 = 0x3d,0xfff9
003e e003 | | Load 0x0,0x3
003f 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0040 e004 | | Load 0x0,0x4
0041 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0042 4805 |H | Short_Literal 0x5
0043 e219 | | Load 0x1,0x19
0044 020e | | Execute Module,Augment_Imports
0045 0007 | | Action Break_Optional
0046 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1.0x7 = 0x46,0xfff8
0047 00c7 | | Action Elaborate_Subprogram
0048 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x8 = 0x48,0xfff7
0049 00c7 | | Action Elaborate_Subprogram
004a 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x9 = 0x4a,0xfff6
004b 00c7 | | Action Elaborate_Subprogram
004c 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0xa = 0x4c,0xfff5
004d 00c7 | | Action Elaborate_Subprogram
004e 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0xb = 0x4e,0xfff4
004f 00c7 | | Action Elaborate_Subprogram
0050 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0xc = 0x50,0xfff3
0051 00c7 | | Action Elaborate_Subprogram
0052 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0xd = 0x52,0xfff2
0053 00c7 | | Action Elaborate_Subprogram
0054 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0xe = 0x54,0xfff1
0055 00c7 | | Action Elaborate_Subprogram
0056 029d 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call ; Debug Table 0x1.0xf = 0x56,0xfff0
0058 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0x10 = 0x58,0xffef
0059 00c7 | | Action Elaborate_Subprogram
005a BODY_0008:
005a 00be | | Action Activate_Tasks
005b 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0x11 = 0x5b,0x1
005c 4816 |H | Short_Literal 0x16
005d e004 | | Load 0x0,0x4
005e 181b | | Execute Package,Field_Execute,Field_Number 0x1b
005f 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0x12 = 0x5f,0x2
0060 4817 |H | Short_Literal 0x17
0061 e004 | | Load 0x0,0x4
0062 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0063 00bc | | Action Signal_Activated
0064 00bb | | Action Signal_Completion
0065 0000 0000 | | .XXX[0x3]
0067 0000 | |
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b | k | .CONST 0x006b ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0001 | | .CONST 0x0001 ; Number of locals
006b BODY_0068:
006b INIT_0068:
006b e005 | | Load 0x0,0x5 ; Debug Table 0x2 = .DEBUG 0x006b,0x0286,0x0001,0x0000,0x000e,0x4924,0x0000,0x0006
; Debug Table 0x2.0x0 = 0x6b,0x1
006c 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
006d 7002 |p | Jump_Nonzero 0x70
006e e5fe | | Load 0x2,-0x2
006f 6822 |h" | Jump_Zero 0x92
0070 e5ff | | Load 0x2,-0x1 ; Debug Table 0x2.0x1 = 0x70,0x2
0071 01db | | Execute Vector,Length
0072 7001 |p | Jump_Nonzero 0x74
0073 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; Debug Table 0x2.0x2 = 0x73,0x3
0074 e5ff | | Load 0x2,-0x1 ; Debug Table 0x2.0x3 = 0x74,0x4
0075 01db | | Execute Vector,Length
0076 0c51 | Q | Execute_Immediate Greater_Equal,0x51
0077 6815 |h | Jump_Zero 0x8d
0078 4800 |H | Short_Literal 0x0 ; Debug Table 0x2.0x4 = 0x78,0x5
0079 e5ff | | Load 0x2,-0x1
007a 01dd | | Execute Vector,First
007b e5ff | | Load 0x2,-0x1
007c 01dd | | Execute Vector,First
007d 0a4f | O | Execute_Immediate Plus,0x4f
007e 0248 | H | Execute Discrete,Check_In_Integer
007f e5ff | | Load 0x2,-0x1
0080 01cf | | Execute Vector,Slice_Read
0081 820d | | Call 0x1,0xd
0082 4800 |H | Short_Literal 0x0 ; Debug Table 0x2.0x5 = 0x82,0x6
0083 e5ff | | Load 0x2,-0x1
0084 01dd | | Execute Vector,First
0085 0a50 | P | Execute_Immediate Plus,0x50
0086 0248 | H | Execute Discrete,Check_In_Integer
0087 e5ff | | Load 0x2,-0x1
0088 01dc | | Execute Vector,Last
0089 e5ff | | Load 0x2,-0x1
008a 01cf | | Execute Vector,Slice_Read
008b 820d | | Call 0x1,0xd
008c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
008d e5fe | | Load 0x2,-0x2 ; Debug Table 0x2.0x6 = 0x8d,0x7
008e e5ff | | Load 0x2,-0x1
008f 4802 |H | Short_Literal 0x2
0090 e219 | | Load 0x1,0x19
0091 170d | | Execute Task,Entry_Call,Field_Number 0xd
0092 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; Debug Table 0x2.0x7 = 0x92,0x8
0093 0000 0000 | | .BLANK 0000[0x5]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009f | | .CONST 0x009f ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0002 | | .CONST 0x0002 ; Number of locals
009b INIT_0098:
009b 4801 |H | Short_Literal 0x1 ; Debug Table 0x3 = .DEBUG 0x009b,0x0298,0x0001,0x0000,0x000e,0x4924,0x0000,0x0013
; Debug Table 0x3.0x0 = 0x9b,0xffff
009c 4802 |H | Short_Literal 0x2
009d 00e9 | | Load_Encached String_Cache
009e 0334 | 4 | Declare_Variable Array,With_Constraint
009f BODY_0098:
009f e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0x1 = 0x9f,0x1
00a0 4802 |H | Short_Literal 0x2
00a1 e402 | | Load 0x2,0x2
00a2 01d6 | | Execute Vector,Field_Write
00a3 e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0x2 = 0xa3,0x2
00a4 0d20 | | Execute_Immediate Less,0x20
00a5 6819 |h | Jump_Zero 0xbf
00a6 e5ff | | Load 0x2,-0x1
00a7 0e0d | | Execute_Immediate Not_Equal,0xd
00a8 6816 |h | Jump_Zero 0xbf
00a9 e5ff | | Load 0x2,-0x1
00aa 0e0a | | Execute_Immediate Not_Equal,0xa
00ab 6813 |h | Jump_Zero 0xbf
00ac 485e |H^ | Short_Literal 0x5e ; Debug Table 0x3.0x3 = 0xac,0x3
00ad 4801 |H | Short_Literal 0x1
00ae e402 | | Load 0x2,0x2
00af 01d6 | | Execute Vector,Field_Write
00b0 e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0x4 = 0xb0,0x4
00b1 0a40 | @ | Execute_Immediate Plus,0x40
00b2 00d8 | | Load_Top At_Offset_0
00b3 00e8 | | Load_Encached Character_Cache
00b4 0260 | ` | Execute Discrete,In_Type
00b5 7002 |p | Jump_Nonzero 0xb8
00b6 48e0 |H | Short_Literal 0xe0
00b7 0257 | W | Execute Discrete,Raise
00b8 4802 |H | Short_Literal 0x2
00b9 e402 | | Load 0x2,0x2
00ba 01d6 | | Execute Vector,Field_Write
00bb e5fe | | Load 0x2,-0x2 ; Debug Table 0x3.0x5 = 0xbb,0x5
00bc e402 | | Load 0x2,0x2
00bd 820d | | Call 0x1,0xd
00be 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00bf e5fe | | Load 0x2,-0x2 ; Debug Table 0x3.0x6 = 0xbf,0x6
00c0 4802 |H | Short_Literal 0x2
00c1 4802 |H | Short_Literal 0x2
00c2 e402 | | Load 0x2,0x2
00c3 01cf | | Execute Vector,Slice_Read
00c4 820d | | Call 0x1,0xd
00c5 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00c6 0000 0000 | | .XXX[0x2]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb | | .CONST 0x00cb ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0001 | | .CONST 0x0001 ; Number of locals
00cb BODY_00c8:
00cb INIT_00c8:
00cb e5fd | | Load 0x2,-0x3 ; Debug Table 0x4 = .DEBUG 0x00cb,0x02a8,0x0001,0x0000,0x000e,0x4924,0x0000,0x0020
; Debug Table 0x4.0x0 = 0xcb,0x1
00cc 4820 |H | Short_Literal 0x20
00cd 4800 |H | Short_Literal 0x0
00ce e5fe | | Load 0x2,-0x2
00cf e5ff | | Load 0x2,-0x1
00d0 e006 | | Load 0x0,0x6
00d1 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00d2 820d | | Call 0x1,0xd
00d3 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00d4 0000 0000 | | .BLANK 0000[0x4]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db | | .CONST 0x00db ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0001 | | .CONST 0x0001 ; Number of locals
00db BODY_00d8:
00db INIT_00d8:
00db e5ff | | Load 0x2,-0x1 ; Debug Table 0x5 = .DEBUG 0x00db,0x02ac,0x0001,0x0000,0x000e,0x4924,0x0000,0x0032
; Debug Table 0x5.0x0 = 0xdb,0x1
00dc e216 | | Load 0x1,0x16
00dd 820d | | Call 0x1,0xd
00de 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00df 0000 | | .XXX[0x1]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3 | | .CONST 0x00e3 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0001 | | .CONST 0x0001 ; Number of locals
00e3 BODY_00e0:
00e3 INIT_00e0:
00e3 e005 | | Load 0x0,0x5 ; Debug Table 0x6 = .DEBUG 0x00e3,0x02b0,0x0001,0x0000,0x000e,0x4924,0x0000,0x003b
; Debug Table 0x6.0x0 = 0xe3,0x1
00e4 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
00e5 6803 |h | Jump_Zero 0xe9
00e6 4800 |H | Short_Literal 0x0 ; Debug Table 0x6.0x1 = 0xe6,0x2
00e7 e5ff | | Load 0x2,-0x1
00e8 820d | | Call 0x1,0xd
00e9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00ea 0000 0000 | | .BLANK 0000[0x6]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3 | | .CONST 0x00f3 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0001 | | .CONST 0x0001 ; Number of locals
00f3 BODY_00f0:
00f3 INIT_00f0:
00f3 e005 | | Load 0x0,0x5 ; Debug Table 0x7 = .DEBUG 0x00f3,0x02b6,0x0001,0x0000,0x000e,0x4924,0x0000,0x0043
; Debug Table 0x7.0x0 = 0xf3,0x1
00f4 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
00f5 6803 |h | Jump_Zero 0xf9
00f6 4800 |H | Short_Literal 0x0 ; Debug Table 0x7.0x1 = 0xf6,0x2
00f7 e5ff | | Load 0x2,-0x1
00f8 820e | | Call 0x1,0xe
00f9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00fa 0000 0000 | | .BLANK 0000[0x6]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 e005 | | Load 0x0,0x5 ; Debug Table 0x8 = .DEBUG 0x0103,0x02bc,0x0001,0x0000,0x000e,0x4924,0x0000,0x004b
; Debug Table 0x8.0x0 = 0x103,0x1
0104 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0105 6804 |h | Jump_Zero 0x10a
0106 4800 |H | Short_Literal 0x0 ; Debug Table 0x8.0x1 = 0x106,0x2
0107 e5fe | | Load 0x2,-0x2
0108 e5ff | | Load 0x2,-0x1
0109 820f | | Call 0x1,0xf
010a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
010b 0000 0000 | | .BLANK 0000[0x5]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113 | | .CONST 0x0113 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0001 | | .CONST 0x0001 ; Number of locals
0113 BODY_0110:
0113 INIT_0110:
0113 e005 | | Load 0x0,0x5 ; Debug Table 0x9 = .DEBUG 0x0113,0x02c2,0x0001,0x0000,0x000e,0x4924,0x0000,0x0058
; Debug Table 0x9.0x0 = 0x113,0x1
0114 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0115 6802 |h | Jump_Zero 0x118
0116 4800 |H | Short_Literal 0x0 ; Debug Table 0x9.0x1 = 0x116,0x2
0117 8210 | | Call 0x1,0x10
0118 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0119 0000 0000 | | .BLANK 0000[0x7]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0124 | $ | .CONST 0x0124 ; Address of begin
0121 013d | = | .CONST 0x013d ; Address of exception handler
0122 0002 | | .CONST 0x0002 ; Number of locals
0123 INIT_0120:
0123 00e8 | | Load_Encached Character_Cache ; Debug Table 0xa = .DEBUG 0x0123,0x02c8,0x0001,0x0000,0x000e,0x4924,0x0000,0x005c
; Debug Table 0xa.0x0 = 0x123,0xffff
0124 BODY_0120:
0124 e5ff | | Load 0x2,-0x1 ; Debug Table 0xa.0x1 = 0x124,0x1
0125 00ea | | Load_Encached Null_String_Cache
0126 e007 | | Load 0x0,0x7
0127 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0128 00d1 | | Pop_Control Pop_Count_1
0129 0007 | | Action Break_Optional ; Debug Table 0xa.0x2 = 0x129,0x2
012a 821a | | Call 0x1,0x1a ; Debug Table 0xa.0x3 = 0x12a,0x3
012b a402 | | Store_Unchecked 0x2,0x2
012c 4800 |H | Short_Literal 0x0 ; Debug Table 0xa.0x4 = 0x12c,0x4
012d e402 | | Load 0x2,0x2
012e 820e | | Call 0x1,0xe
012f e402 | | Load 0x2,0x2 ; Debug Table 0xa.0x5 = 0x12f,0x5
0130 0f0d | | Execute_Immediate Equal,0xd
0131 6801 |h | Jump_Zero 0x133
0132 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; Debug Table 0xa.0x6 = 0x132,0x6
0133 e402 | | Load 0x2,0x2 ; Debug Table 0xa.0x7 = 0x133,0x7
0134 0f0a | | Execute_Immediate Equal,0xa
0135 6801 |h | Jump_Zero 0x137
0136 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; Debug Table 0xa.0x8 = 0x136,0x8
0137 e5ff | | Load 0x2,-0x1 ; Debug Table 0xa.0x9 = 0x137,0x9
0138 e402 | | Load 0x2,0x2
0139 e007 | | Load 0x0,0x7
013a 1819 | | Execute Package,Field_Execute,Field_Number 0x19
013b 00d1 | | Pop_Control Pop_Count_1
013c 7fed | | Jump 0x12a
013d TRAP_0120:
013d 0007 | | Action Break_Optional
013e e403 | | Load 0x2,0x3 ; Debug Table 0xa.0xa = 0x13e,0xa
013f 0101 | | Execute Exception,Reraise
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 014b | K | .CONST 0x014b ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0005 | | .CONST 0x0005 ; Number of locals
0143 INIT_0140:
0143 00e8 | | Load_Encached Character_Cache ; Debug Table 0xb = .DEBUG 0x0143,0x02e0,0x0002,0x0000,0x000e,0x49b4,0x0000,0x01ef
; Debug Table 0xb.0x0 = 0x143,0xffff
0144 4801 |H | Short_Literal 0x1 ; Debug Table 0xb.0x1 = 0x144,0xfffe
0145 4801 |H | Short_Literal 0x1
0146 00e9 | | Load_Encached String_Cache
0147 0334 | 4 | Declare_Variable Array,With_Constraint
0148 e001 | | Load 0x0,0x1 ; Debug Table 0xb.0x2 = 0x148,0xfffd
0149 1b10 | | Execute Package,Field_Read,Field_Number 0x10
014a 00e3 | | Load_Encached Natural_Cache ; Debug Table 0xb.0x3 = 0x14a,0xfffc
014b BODY_0140:
014b 0007 | | Action Break_Optional ; Debug Table 0xb.0x4 = 0x14b,0x1
014c e403 | | Load 0x2,0x3 ; Debug Table 0xb.0x5 = 0x14c,0x2
014d 00e3 | | Load_Encached Natural_Cache
014e e001 | | Load 0x0,0x1
014f 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0150 581b |X | Indirect_Literal Float,0x16c,4294967296.0
0151 5816 |X | Indirect_Literal Float,0x168,3.0517578125e-05
0152 023a | : | Execute Float,Divide
0153 0236 | 6 | Execute Float,Truncate_To_Discrete
0154 e217 | | Load 0x1,0x17
0155 e004 | | Load 0x0,0x4
0156 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0157 c404 | | Store 0x2,0x4
0158 c405 | | Store 0x2,0x5
0159 00d1 | | Pop_Control Pop_Count_1
015a e404 | | Load 0x2,0x4 ; Debug Table 0xb.0x6 = 0x15a,0x3
015b 77f0 |w | Jump_Nonzero 0x14c
015c e405 | | Load 0x2,0x5
015d 6fee |o | Jump_Zero 0x14c
015e 7800 |x | Jump 0x15f ; Debug Table 0xb.0x7 = 0x15e,0x4
015f 4801 |H | Short_Literal 0x1 ; Debug Table 0xb.0x8 = 0x15f,0x5
0160 e403 | | Load 0x2,0x3
0161 01d7 | | Execute Vector,Field_Read
0162 a402 | | Store_Unchecked 0x2,0x2
0163 e402 | | Load 0x2,0x2 ; Debug Table 0xb.0x9 = 0x163,0x6
0164 00ca | | Action Exit_Nullary_Function
0165 0000 0000 | | .XXX[0x3]
0167 0000 | |
0168 3f00 0000 |? | .DBL 3.0517578125e-05
016a 0000 0000 | |
016c 41f0 0000 |A | .DBL 4294967296.0
016e 0000 0000 | |
0170 00c6 2811 | ( | .LITERAL {0x00c62811, 0x000017b0}
0174 0000 0000 | | .BLANK 0000[0x4]
0178 0181 0004 | | .XXX[0x3]
017a 000e | |
017b 4802 |H | Short_Literal 0x2 ; Debug Table 0xc = .DEBUG 0x017b,0x02f6,0x0000,0x0000,0x000e,0x49b4,0x0000,0x0044
017c 02cb | | Declare_Variable Entry
017d 00bf | | Action Accept_Activation
017e 029f 0193 | | Declare_Subprogram INIT_0190,For_Call ; Debug Table 0xd = .DEBUG 0x017e,0x02f8,0x0000,0x0000,0x000e,0x49b4,0x0000,0x0055
0180 00bc | | Action Signal_Activated
0181 e001 | | Load 0x0,0x1 ; Debug Table 0xd.0x0 = 0x181,0x1
0182 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0183 4808 |H | Short_Literal 0x8
0184 4801 |H | Short_Literal 0x1
0185 4801 |H | Short_Literal 0x1
0186 4802 |H | Short_Literal 0x2
0187 4800 |H | Short_Literal 0x0
0188 e002 | | Load 0x0,0x2
0189 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
018a 0007 | | Action Break_Optional ; Debug Table 0xd.0x1 = 0x18a,0x2
018b 820e | | Call 0x1,0xe ; Debug Table 0xd.0x2 = 0x18b,0x3
018c 7ffe | | Jump 0x18b
018d 0000 0000 | | .XXX[0x3]
018f 0000 | |
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0196 | | .CONST 0x0196 ; Address of begin
0191 019c | | .CONST 0x019c ; Address of exception handler
0192 0002 | | .CONST 0x0002 ; Number of locals
0193 INIT_0190:
0193 480d |H | Short_Literal 0xd ; Debug Table 0xe = .DEBUG 0x0193,0x0300,0x0004,0x0000,0x000e,0x49b4,0x0000,0x009d
0194 0299 01a3 | | Declare_Subprogram INIT_01a0,For_Accept
0196 BODY_0190:
0196 4802 |H | Short_Literal 0x2 ; Debug Table 0xe.0x0 = 0x196,0x1
0197 4802 |H | Short_Literal 0x2
0198 0099 | | Action Reference_Dynamic
0199 1d0d | | Execute_Immediate Reference_Lex_1,0xd
019a 0137 | 7 | Execute Entry,Rendezvous
019b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
019c TRAP_0190:
019c 0007 | | Action Break_Optional
019d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; Debug Table 0xe.0x1 = 0x19d,0x2
019e 0000 0000 | | .XXX[0x2]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3 | | .CONST 0x01a3 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0001 | | .CONST 0x0001 ; Number of locals
01a3 BODY_01a0:
01a3 INIT_01a0:
01a3 029f 01ab | | Declare_Subprogram INIT_01a8,For_Call ; Debug Table 0xf = .DEBUG 0x01a3,0x0306,0x0003,0x0000,0x000e,0x49b4,0x0000,0x0095
01a5 8602 | | Call 0x3,0x2 ; Debug Table 0xf.0x0 = 0x1a5,0x1
01a6 4100 |A | End_Rendezvous 0x0
01a7 0000 | | .XXX[0x1]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab | | .CONST 0x01ab ; Address of begin
01a9 01b7 | | .CONST 0x01b7 ; Address of exception handler
01aa 0001 | | .CONST 0x0001 ; Number of locals
01ab BODY_01a8:
01ab INIT_01a8:
01ab e7fd | | Load 0x3,-0x3 ; Debug Table 0x10 = .DEBUG 0x01ab,0x030a,0x0004,0x0000,0x000e,0x49b4,0x0000,0x0093
; Debug Table 0x10.0x0 = 0x1ab,0x1
01ac 6805 |h | Jump_Zero 0x1b2
01ad e7fe | | Load 0x3,-0x2 ; Debug Table 0x10.0x1 = 0x1ad,0x2
01ae e003 | | Load 0x0,0x3
01af e004 | | Load 0x0,0x4
01b0 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01b1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01b2 e7fe | | Load 0x3,-0x2 ; Debug Table 0x10.0x2 = 0x1b2,0x3
01b3 e005 | | Load 0x0,0x5
01b4 e004 | | Load 0x0,0x4
01b5 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01b6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01b7 TRAP_01a8:
01b7 0007 | | Action Break_Optional
01b8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; Debug Table 0x10.0x3 = 0x1b8,0x4
01b9 0000 0000 | | .BLANK 0000[0x7]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; Debug Table
01c0 ; --------------------------------------------------------------------------------------
01c0 0003 0011 | | .CONST 0x0003,0x0011
01c2 000b 024a | J| .DEBUG 0x000b,0x024a,0x8000,0x0000,0x000e,0x4924,0x0000,0x0005
01ca 001e 025e | ^| .DEBUG 0x001e,0x025e,0x8000,0x0000,0x000e,0x49b4,0x0000,0x000e
01d2 006b 0286 | k | .DEBUG 0x006b,0x0286,0x0001,0x0000,0x000e,0x4924,0x0000,0x0006
01da 009b 0298 | | .DEBUG 0x009b,0x0298,0x0001,0x0000,0x000e,0x4924,0x0000,0x0013
01e2 00cb 02a8 | | .DEBUG 0x00cb,0x02a8,0x0001,0x0000,0x000e,0x4924,0x0000,0x0020
01ea 00db 02ac | | .DEBUG 0x00db,0x02ac,0x0001,0x0000,0x000e,0x4924,0x0000,0x0032
01f2 00e3 02b0 | | .DEBUG 0x00e3,0x02b0,0x0001,0x0000,0x000e,0x4924,0x0000,0x003b
01fa 00f3 02b6 | | .DEBUG 0x00f3,0x02b6,0x0001,0x0000,0x000e,0x4924,0x0000,0x0043
0202 0103 02bc | | .DEBUG 0x0103,0x02bc,0x0001,0x0000,0x000e,0x4924,0x0000,0x004b
020a 0113 02c2 | | .DEBUG 0x0113,0x02c2,0x0001,0x0000,0x000e,0x4924,0x0000,0x0058
0212 0123 02c8 | # | .DEBUG 0x0123,0x02c8,0x0001,0x0000,0x000e,0x4924,0x0000,0x005c
021a 0143 02e0 | C | .DEBUG 0x0143,0x02e0,0x0002,0x0000,0x000e,0x49b4,0x0000,0x01ef
0222 017b 02f6 | { | .DEBUG 0x017b,0x02f6,0x0000,0x0000,0x000e,0x49b4,0x0000,0x0044
022a 017e 02f8 | ~ | .DEBUG 0x017e,0x02f8,0x0000,0x0000,0x000e,0x49b4,0x0000,0x0055
0232 0193 0300 | | .DEBUG 0x0193,0x0300,0x0004,0x0000,0x000e,0x49b4,0x0000,0x009d
023a 01a3 0306 | | .DEBUG 0x01a3,0x0306,0x0003,0x0000,0x000e,0x49b4,0x0000,0x0095
0242 01ab 030a | | .DEBUG 0x01ab,0x030a,0x0004,0x0000,0x000e,0x49b4,0x0000,0x0093
024a ; --------------------------------------------------------------------------------------
024a ; Debug3 Subtable 0x0
024a ; --------------------------------------------------------------------------------------
024a 0009 0000 | | .DBG3TAB 0x0009,0x0000
024c 000b ffff | | .CONST 0x000b,0xffff
024e 000d fffe | | .CONST 0x000d,0xfffe
0250 000f fffd | | .CONST 0x000f,0xfffd
0252 0011 fffc | | .CONST 0x0011,0xfffc
0254 0013 fffb | | .CONST 0x0013,0xfffb
0256 0015 fffa | | .CONST 0x0015,0xfffa
0258 0017 fff9 | | .CONST 0x0017,0xfff9
025a 0019 fff8 | | .CONST 0x0019,0xfff8
025c 001b fff7 | | .CONST 0x001b,0xfff7
025e ; --------------------------------------------------------------------------------------
025e ; Debug3 Subtable 0x1
025e ; --------------------------------------------------------------------------------------
025e 0011 0002 | | .DBG3TAB 0x0011,0x0002
0260 001e ffff | | .CONST 0x001e,0xffff
0262 001f fffe | | .CONST 0x001f,0xfffe
0264 0020 fffd | | .CONST 0x0020,0xfffd
0266 0032 fffc | 2 | .CONST 0x0032,0xfffc
0268 0035 fffb | 5 | .CONST 0x0035,0xfffb
026a 0038 fffa | 8 | .CONST 0x0038,0xfffa
026c 003d fff9 | = | .CONST 0x003d,0xfff9
026e 0046 fff8 | F | .CONST 0x0046,0xfff8
0270 0048 fff7 | H | .CONST 0x0048,0xfff7
0272 004a fff6 | J | .CONST 0x004a,0xfff6
0274 004c fff5 | L | .CONST 0x004c,0xfff5
0276 004e fff4 | N | .CONST 0x004e,0xfff4
0278 0050 fff3 | P | .CONST 0x0050,0xfff3
027a 0052 fff2 | R | .CONST 0x0052,0xfff2
027c 0054 fff1 | T | .CONST 0x0054,0xfff1
027e 0056 fff0 | V | .CONST 0x0056,0xfff0
0280 0058 ffef | X | .CONST 0x0058,0xffef
0282 005b 0001 | [ | .CONST 0x005b,0x0001
0284 005f 0002 | _ | .CONST 0x005f,0x0002
0286 ; --------------------------------------------------------------------------------------
0286 ; Debug3 Subtable 0x2
0286 ; --------------------------------------------------------------------------------------
0286 0000 0008 | | .DBG3TAB 0x0000,0x0008
0288 006b 0001 | k | .CONST 0x006b,0x0001
028a 0070 0002 | p | .CONST 0x0070,0x0002
028c 0073 0003 | s | .CONST 0x0073,0x0003
028e 0074 0004 | t | .CONST 0x0074,0x0004
0290 0078 0005 | x | .CONST 0x0078,0x0005
0292 0082 0006 | | .CONST 0x0082,0x0006
0294 008d 0007 | | .CONST 0x008d,0x0007
0296 0092 0008 | | .CONST 0x0092,0x0008
0298 ; --------------------------------------------------------------------------------------
0298 ; Debug3 Subtable 0x3
0298 ; --------------------------------------------------------------------------------------
0298 0001 0006 | | .DBG3TAB 0x0001,0x0006
029a 009b ffff | | .CONST 0x009b,0xffff
029c 009f 0001 | | .CONST 0x009f,0x0001
029e 00a3 0002 | | .CONST 0x00a3,0x0002
02a0 00ac 0003 | | .CONST 0x00ac,0x0003
02a2 00b0 0004 | | .CONST 0x00b0,0x0004
02a4 00bb 0005 | | .CONST 0x00bb,0x0005
02a6 00bf 0006 | | .CONST 0x00bf,0x0006
02a8 ; --------------------------------------------------------------------------------------
02a8 ; Debug3 Subtable 0x4
02a8 ; --------------------------------------------------------------------------------------
02a8 0000 0001 | | .DBG3TAB 0x0000,0x0001
02aa 00cb 0001 | | .CONST 0x00cb,0x0001
02ac ; --------------------------------------------------------------------------------------
02ac ; Debug3 Subtable 0x5
02ac ; --------------------------------------------------------------------------------------
02ac 0000 0001 | | .DBG3TAB 0x0000,0x0001
02ae 00db 0001 | | .CONST 0x00db,0x0001
02b0 ; --------------------------------------------------------------------------------------
02b0 ; Debug3 Subtable 0x6
02b0 ; --------------------------------------------------------------------------------------
02b0 0000 0002 | | .DBG3TAB 0x0000,0x0002
02b2 00e3 0001 | | .CONST 0x00e3,0x0001
02b4 00e6 0002 | | .CONST 0x00e6,0x0002
02b6 ; --------------------------------------------------------------------------------------
02b6 ; Debug3 Subtable 0x7
02b6 ; --------------------------------------------------------------------------------------
02b6 0000 0002 | | .DBG3TAB 0x0000,0x0002
02b8 00f3 0001 | | .CONST 0x00f3,0x0001
02ba 00f6 0002 | | .CONST 0x00f6,0x0002
02bc ; --------------------------------------------------------------------------------------
02bc ; Debug3 Subtable 0x8
02bc ; --------------------------------------------------------------------------------------
02bc 0000 0002 | | .DBG3TAB 0x0000,0x0002
02be 0103 0001 | | .CONST 0x0103,0x0001
02c0 0106 0002 | | .CONST 0x0106,0x0002
02c2 ; --------------------------------------------------------------------------------------
02c2 ; Debug3 Subtable 0x9
02c2 ; --------------------------------------------------------------------------------------
02c2 0000 0002 | | .DBG3TAB 0x0000,0x0002
02c4 0113 0001 | | .CONST 0x0113,0x0001
02c6 0116 0002 | | .CONST 0x0116,0x0002
02c8 ; --------------------------------------------------------------------------------------
02c8 ; Debug3 Subtable 0xa
02c8 ; --------------------------------------------------------------------------------------
02c8 0001 000a | | .DBG3TAB 0x0001,0x000a
02ca 0123 ffff | # | .CONST 0x0123,0xffff
02cc 0124 0001 | $ | .CONST 0x0124,0x0001
02ce 0129 0002 | ) | .CONST 0x0129,0x0002
02d0 012a 0003 | * | .CONST 0x012a,0x0003
02d2 012c 0004 | , | .CONST 0x012c,0x0004
02d4 012f 0005 | / | .CONST 0x012f,0x0005
02d6 0132 0006 | 2 | .CONST 0x0132,0x0006
02d8 0133 0007 | 3 | .CONST 0x0133,0x0007
02da 0136 0008 | 6 | .CONST 0x0136,0x0008
02dc 0137 0009 | 7 | .CONST 0x0137,0x0009
02de 013e 000a | > | .CONST 0x013e,0x000a
02e0 ; --------------------------------------------------------------------------------------
02e0 ; Debug3 Subtable 0xb
02e0 ; --------------------------------------------------------------------------------------
02e0 0004 0006 | | .DBG3TAB 0x0004,0x0006
02e2 0143 ffff | C | .CONST 0x0143,0xffff
02e4 0144 fffe | D | .CONST 0x0144,0xfffe
02e6 0148 fffd | H | .CONST 0x0148,0xfffd
02e8 014a fffc | J | .CONST 0x014a,0xfffc
02ea 014b 0001 | K | .CONST 0x014b,0x0001
02ec 014c 0002 | L | .CONST 0x014c,0x0002
02ee 015a 0003 | Z | .CONST 0x015a,0x0003
02f0 015e 0004 | ^ | .CONST 0x015e,0x0004
02f2 015f 0005 | _ | .CONST 0x015f,0x0005
02f4 0163 0006 | c | .CONST 0x0163,0x0006
02f6 ; --------------------------------------------------------------------------------------
02f6 ; Debug3 Subtable 0xc
02f6 ; --------------------------------------------------------------------------------------
02f6 0000 0000 | | .DBG3TAB 0x0000,0x0000
02f8 ; --------------------------------------------------------------------------------------
02f8 ; Debug3 Subtable 0xd
02f8 ; --------------------------------------------------------------------------------------
02f8 0000 0003 | | .DBG3TAB 0x0000,0x0003
02fa 0181 0001 | | .CONST 0x0181,0x0001
02fc 018a 0002 | | .CONST 0x018a,0x0002
02fe 018b 0003 | | .CONST 0x018b,0x0003
0300 ; --------------------------------------------------------------------------------------
0300 ; Debug3 Subtable 0xe
0300 ; --------------------------------------------------------------------------------------
0300 0000 0002 | | .DBG3TAB 0x0000,0x0002
0302 0196 0001 | | .CONST 0x0196,0x0001
0304 019d 0002 | | .CONST 0x019d,0x0002
0306 ; --------------------------------------------------------------------------------------
0306 ; Debug3 Subtable 0xf
0306 ; --------------------------------------------------------------------------------------
0306 0000 0001 | | .DBG3TAB 0x0000,0x0001
0308 01a5 0001 | | .CONST 0x01a5,0x0001
030a ; --------------------------------------------------------------------------------------
030a ; Debug3 Subtable 0x10
030a ; --------------------------------------------------------------------------------------
030a 0000 0004 | | .DBG3TAB 0x0000,0x0004
030c 01ab 0001 | | .CONST 0x01ab,0x0001
030e 01ad 0002 | | .CONST 0x01ad,0x0002
0310 01b2 0003 | | .CONST 0x01b2,0x0003
0312 01b8 0004 | | .CONST 0x01b8,0x0004
0314 0000 0000 | | .BLANK 0000[0xec]