|
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: 5805_R1K_CODE Names: »11156497.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293 └─ ⟦this⟧ »11156497.SEG« └─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3 └─ ⟦this⟧ »11156497.SEG« └─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288 └─ ⟦this⟧ »11156497.SEG« └─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5 └─ ⟦this⟧ »11156497.SEG« └─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000 └─ ⟦this⟧ »11156497.SEG«
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5805 |X | .CONST 0x5805 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 01b8 | | .CONST 0x01b8 ; 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 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x0242,0x8000,0x0000,0x000e,0x18f4,0x0000,0x0005 ; Debug Table 0x0.0x0 = 0xb,0xffff 000d 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xd,0xfffe 000f 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0xf,0xfffd 0011 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x11,0xfffc 0013 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x13,0xfffb 0015 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x15,0xfffa 0017 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x17,0xfff9 0019 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x19,0xfff8 001b 029a 011b | | Declare_Subprogram INIT_0118,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,0x0256,0x8000,0x0000,0x000e,0x1aa4,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 612e |a. | Indirect_Literal Discrete,0x168,{0x00aa3c11, 0x00001730} ; 0xaa3c11 = 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 013b | ;| Declare_Subprogram INIT_0138,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 00bc | | Action Signal_Activated 005c 00bb | | Action Signal_Completion 005d 0000 0000 | | .XXX[0x3] 005f 0000 | | 0060 ; -------------------------------------------------------------------------------------- 0060 ; SUBPROGRAM 0060 ; -------------------------------------------------------------------------------------- 0060 0063 | c | .CONST 0x0063 ; Address of begin 0061 0004 | | .CONST 0x0004 ; Address of exception handler 0062 0001 | | .CONST 0x0001 ; Number of locals 0063 BODY_0060: 0063 INIT_0060: 0063 e005 | | Load 0x0,0x5 ; Debug Table 0x2 = .DEBUG 0x0063,0x027a,0x0001,0x0000,0x000e,0x18f4,0x0000,0x0006 ; Debug Table 0x2.0x0 = 0x63,0x1 0064 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0065 7002 |p | Jump_Nonzero 0x68 0066 e5fe | | Load 0x2,-0x2 0067 6822 |h" | Jump_Zero 0x8a 0068 e5ff | | Load 0x2,-0x1 ; Debug Table 0x2.0x1 = 0x68,0x2 0069 01db | | Execute Vector,Length 006a 7001 |p | Jump_Nonzero 0x6c 006b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; Debug Table 0x2.0x2 = 0x6b,0x3 006c e5ff | | Load 0x2,-0x1 ; Debug Table 0x2.0x3 = 0x6c,0x4 006d 01db | | Execute Vector,Length 006e 0c51 | Q | Execute_Immediate Greater_Equal,0x51 006f 6815 |h | Jump_Zero 0x85 0070 4800 |H | Short_Literal 0x0 ; Debug Table 0x2.0x4 = 0x70,0x5 0071 e5ff | | Load 0x2,-0x1 0072 01dd | | Execute Vector,First 0073 e5ff | | Load 0x2,-0x1 0074 01dd | | Execute Vector,First 0075 0a4f | O | Execute_Immediate Plus,0x4f 0076 0248 | H | Execute Discrete,Check_In_Integer 0077 e5ff | | Load 0x2,-0x1 0078 01cf | | Execute Vector,Slice_Read 0079 820d | | Call 0x1,0xd 007a 4800 |H | Short_Literal 0x0 ; Debug Table 0x2.0x5 = 0x7a,0x6 007b e5ff | | Load 0x2,-0x1 007c 01dd | | Execute Vector,First 007d 0a50 | P | Execute_Immediate Plus,0x50 007e 0248 | H | Execute Discrete,Check_In_Integer 007f e5ff | | Load 0x2,-0x1 0080 01dc | | Execute Vector,Last 0081 e5ff | | Load 0x2,-0x1 0082 01cf | | Execute Vector,Slice_Read 0083 820d | | Call 0x1,0xd 0084 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0085 e5fe | | Load 0x2,-0x2 ; Debug Table 0x2.0x6 = 0x85,0x7 0086 e5ff | | Load 0x2,-0x1 0087 4802 |H | Short_Literal 0x2 0088 e219 | | Load 0x1,0x19 0089 170d | | Execute Task,Entry_Call,Field_Number 0xd 008a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; Debug Table 0x2.0x7 = 0x8a,0x8 008b 0000 0000 | | .BLANK 0000[0x5] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0097 | | .CONST 0x0097 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0002 | | .CONST 0x0002 ; Number of locals 0093 INIT_0090: 0093 4801 |H | Short_Literal 0x1 ; Debug Table 0x3 = .DEBUG 0x0093,0x028c,0x0001,0x0000,0x000e,0x18f4,0x0000,0x0013 ; Debug Table 0x3.0x0 = 0x93,0xffff 0094 4802 |H | Short_Literal 0x2 0095 00e9 | | Load_Encached String_Cache 0096 0334 | 4 | Declare_Variable Array,With_Constraint 0097 BODY_0090: 0097 e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0x1 = 0x97,0x1 0098 4802 |H | Short_Literal 0x2 0099 e402 | | Load 0x2,0x2 009a 01d6 | | Execute Vector,Field_Write 009b e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0x2 = 0x9b,0x2 009c 0d20 | | Execute_Immediate Less,0x20 009d 6819 |h | Jump_Zero 0xb7 009e e5ff | | Load 0x2,-0x1 009f 0e0d | | Execute_Immediate Not_Equal,0xd 00a0 6816 |h | Jump_Zero 0xb7 00a1 e5ff | | Load 0x2,-0x1 00a2 0e0a | | Execute_Immediate Not_Equal,0xa 00a3 6813 |h | Jump_Zero 0xb7 00a4 485e |H^ | Short_Literal 0x5e ; Debug Table 0x3.0x3 = 0xa4,0x3 00a5 4801 |H | Short_Literal 0x1 00a6 e402 | | Load 0x2,0x2 00a7 01d6 | | Execute Vector,Field_Write 00a8 e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0x4 = 0xa8,0x4 00a9 0a40 | @ | Execute_Immediate Plus,0x40 00aa 00d8 | | Load_Top At_Offset_0 00ab 00e8 | | Load_Encached Character_Cache 00ac 0260 | ` | Execute Discrete,In_Type 00ad 7002 |p | Jump_Nonzero 0xb0 00ae 48e0 |H | Short_Literal 0xe0 00af 0257 | W | Execute Discrete,Raise 00b0 4802 |H | Short_Literal 0x2 00b1 e402 | | Load 0x2,0x2 00b2 01d6 | | Execute Vector,Field_Write 00b3 e5fe | | Load 0x2,-0x2 ; Debug Table 0x3.0x5 = 0xb3,0x5 00b4 e402 | | Load 0x2,0x2 00b5 820d | | Call 0x1,0xd 00b6 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00b7 e5fe | | Load 0x2,-0x2 ; Debug Table 0x3.0x6 = 0xb7,0x6 00b8 4802 |H | Short_Literal 0x2 00b9 4802 |H | Short_Literal 0x2 00ba e402 | | Load 0x2,0x2 00bb 01cf | | Execute Vector,Slice_Read 00bc 820d | | Call 0x1,0xd 00bd 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00be 0000 0000 | | .XXX[0x2] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c3 | | .CONST 0x00c3 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0001 | | .CONST 0x0001 ; Number of locals 00c3 BODY_00c0: 00c3 INIT_00c0: 00c3 e5fd | | Load 0x2,-0x3 ; Debug Table 0x4 = .DEBUG 0x00c3,0x029c,0x0001,0x0000,0x000e,0x18f4,0x0000,0x0020 ; Debug Table 0x4.0x0 = 0xc3,0x1 00c4 4820 |H | Short_Literal 0x20 00c5 4800 |H | Short_Literal 0x0 00c6 e5fe | | Load 0x2,-0x2 00c7 e5ff | | Load 0x2,-0x1 00c8 e006 | | Load 0x0,0x6 00c9 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00ca 820d | | Call 0x1,0xd 00cb 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00cc 0000 0000 | | .BLANK 0000[0x4] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d3 | | .CONST 0x00d3 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0001 | | .CONST 0x0001 ; Number of locals 00d3 BODY_00d0: 00d3 INIT_00d0: 00d3 e5ff | | Load 0x2,-0x1 ; Debug Table 0x5 = .DEBUG 0x00d3,0x02a0,0x0001,0x0000,0x000e,0x18f4,0x0000,0x0032 ; Debug Table 0x5.0x0 = 0xd3,0x1 00d4 e216 | | Load 0x1,0x16 00d5 820d | | Call 0x1,0xd 00d6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00d7 0000 | | .XXX[0x1] 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 e005 | | Load 0x0,0x5 ; Debug Table 0x6 = .DEBUG 0x00db,0x02a4,0x0001,0x0000,0x000e,0x18f4,0x0000,0x003b ; Debug Table 0x6.0x0 = 0xdb,0x1 00dc 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 00dd 6803 |h | Jump_Zero 0xe1 00de 4800 |H | Short_Literal 0x0 ; Debug Table 0x6.0x1 = 0xde,0x2 00df e5ff | | Load 0x2,-0x1 00e0 820d | | Call 0x1,0xd 00e1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00e2 0000 0000 | | .BLANK 0000[0x6] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00eb | | .CONST 0x00eb ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0001 | | .CONST 0x0001 ; Number of locals 00eb BODY_00e8: 00eb INIT_00e8: 00eb e005 | | Load 0x0,0x5 ; Debug Table 0x7 = .DEBUG 0x00eb,0x02aa,0x0001,0x0000,0x000e,0x18f4,0x0000,0x0043 ; Debug Table 0x7.0x0 = 0xeb,0x1 00ec 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 00ed 6803 |h | Jump_Zero 0xf1 00ee 4800 |H | Short_Literal 0x0 ; Debug Table 0x7.0x1 = 0xee,0x2 00ef e5ff | | Load 0x2,-0x1 00f0 820e | | Call 0x1,0xe 00f1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00f2 0000 0000 | | .BLANK 0000[0x6] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 00fb | | .CONST 0x00fb ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0001 | | .CONST 0x0001 ; Number of locals 00fb BODY_00f8: 00fb INIT_00f8: 00fb e005 | | Load 0x0,0x5 ; Debug Table 0x8 = .DEBUG 0x00fb,0x02b0,0x0001,0x0000,0x000e,0x18f4,0x0000,0x004b ; Debug Table 0x8.0x0 = 0xfb,0x1 00fc 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 00fd 6804 |h | Jump_Zero 0x102 00fe 4800 |H | Short_Literal 0x0 ; Debug Table 0x8.0x1 = 0xfe,0x2 00ff e5fe | | Load 0x2,-0x2 0100 e5ff | | Load 0x2,-0x1 0101 820f | | Call 0x1,0xf 0102 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0103 0000 0000 | | .BLANK 0000[0x5] 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 010b | | .CONST 0x010b ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0001 | | .CONST 0x0001 ; Number of locals 010b BODY_0108: 010b INIT_0108: 010b e005 | | Load 0x0,0x5 ; Debug Table 0x9 = .DEBUG 0x010b,0x02b6,0x0001,0x0000,0x000e,0x18f4,0x0000,0x0058 ; Debug Table 0x9.0x0 = 0x10b,0x1 010c 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 010d 6802 |h | Jump_Zero 0x110 010e 4800 |H | Short_Literal 0x0 ; Debug Table 0x9.0x1 = 0x10e,0x2 010f 8210 | | Call 0x1,0x10 0110 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0111 0000 0000 | | .BLANK 0000[0x7] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011c | | .CONST 0x011c ; Address of begin 0119 0135 | 5 | .CONST 0x0135 ; Address of exception handler 011a 0002 | | .CONST 0x0002 ; Number of locals 011b INIT_0118: 011b 00e8 | | Load_Encached Character_Cache ; Debug Table 0xa = .DEBUG 0x011b,0x02bc,0x0001,0x0000,0x000e,0x18f4,0x0000,0x005c ; Debug Table 0xa.0x0 = 0x11b,0xffff 011c BODY_0118: 011c e5ff | | Load 0x2,-0x1 ; Debug Table 0xa.0x1 = 0x11c,0x1 011d 00ea | | Load_Encached Null_String_Cache 011e e007 | | Load 0x0,0x7 011f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0120 00d1 | | Pop_Control Pop_Count_1 0121 0007 | | Action Break_Optional ; Debug Table 0xa.0x2 = 0x121,0x2 0122 821a | | Call 0x1,0x1a ; Debug Table 0xa.0x3 = 0x122,0x3 0123 a402 | | Store_Unchecked 0x2,0x2 0124 4800 |H | Short_Literal 0x0 ; Debug Table 0xa.0x4 = 0x124,0x4 0125 e402 | | Load 0x2,0x2 0126 820e | | Call 0x1,0xe 0127 e402 | | Load 0x2,0x2 ; Debug Table 0xa.0x5 = 0x127,0x5 0128 0f0d | | Execute_Immediate Equal,0xd 0129 6801 |h | Jump_Zero 0x12b 012a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; Debug Table 0xa.0x6 = 0x12a,0x6 012b e402 | | Load 0x2,0x2 ; Debug Table 0xa.0x7 = 0x12b,0x7 012c 0f0a | | Execute_Immediate Equal,0xa 012d 6801 |h | Jump_Zero 0x12f 012e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; Debug Table 0xa.0x8 = 0x12e,0x8 012f e5ff | | Load 0x2,-0x1 ; Debug Table 0xa.0x9 = 0x12f,0x9 0130 e402 | | Load 0x2,0x2 0131 e007 | | Load 0x0,0x7 0132 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0133 00d1 | | Pop_Control Pop_Count_1 0134 7fed | | Jump 0x122 0135 TRAP_0118: 0135 0007 | | Action Break_Optional 0136 e403 | | Load 0x2,0x3 ; Debug Table 0xa.0xa = 0x136,0xa 0137 0101 | | Execute Exception,Reraise 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 0143 | C | .CONST 0x0143 ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0005 | | .CONST 0x0005 ; Number of locals 013b INIT_0138: 013b 00e8 | | Load_Encached Character_Cache ; Debug Table 0xb = .DEBUG 0x013b,0x02d4,0x0002,0x0000,0x000e,0x1aa4,0x0000,0x01ef ; Debug Table 0xb.0x0 = 0x13b,0xffff 013c 4801 |H | Short_Literal 0x1 ; Debug Table 0xb.0x1 = 0x13c,0xfffe 013d 4801 |H | Short_Literal 0x1 013e 00e9 | | Load_Encached String_Cache 013f 0334 | 4 | Declare_Variable Array,With_Constraint 0140 e001 | | Load 0x0,0x1 ; Debug Table 0xb.0x2 = 0x140,0xfffd 0141 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0142 00e3 | | Load_Encached Natural_Cache ; Debug Table 0xb.0x3 = 0x142,0xfffc 0143 BODY_0138: 0143 0007 | | Action Break_Optional ; Debug Table 0xb.0x4 = 0x143,0x1 0144 e403 | | Load 0x2,0x3 ; Debug Table 0xb.0x5 = 0x144,0x2 0145 00e3 | | Load_Encached Natural_Cache 0146 e001 | | Load 0x0,0x1 0147 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0148 581b |X | Indirect_Literal Float,0x164,4294967296.0 0149 5816 |X | Indirect_Literal Float,0x160,3.0517578125e-05 014a 023a | : | Execute Float,Divide 014b 0236 | 6 | Execute Float,Truncate_To_Discrete 014c e217 | | Load 0x1,0x17 014d e004 | | Load 0x0,0x4 014e 1815 | | Execute Package,Field_Execute,Field_Number 0x15 014f c404 | | Store 0x2,0x4 0150 c405 | | Store 0x2,0x5 0151 00d1 | | Pop_Control Pop_Count_1 0152 e404 | | Load 0x2,0x4 ; Debug Table 0xb.0x6 = 0x152,0x3 0153 77f0 |w | Jump_Nonzero 0x144 0154 e405 | | Load 0x2,0x5 0155 6fee |o | Jump_Zero 0x144 0156 7800 |x | Jump 0x157 ; Debug Table 0xb.0x7 = 0x156,0x4 0157 4801 |H | Short_Literal 0x1 ; Debug Table 0xb.0x8 = 0x157,0x5 0158 e403 | | Load 0x2,0x3 0159 01d7 | | Execute Vector,Field_Read 015a a402 | | Store_Unchecked 0x2,0x2 015b e402 | | Load 0x2,0x2 ; Debug Table 0xb.0x9 = 0x15b,0x6 015c 00ca | | Action Exit_Nullary_Function 015d 0000 0000 | | .XXX[0x3] 015f 0000 | | 0160 3f00 0000 |? | .DBL 3.0517578125e-05 0162 0000 0000 | | 0164 41f0 0000 |A | .DBL 4294967296.0 0166 0000 0000 | | 0168 00aa 3c11 | < | .LITERAL {0x00aa3c11, 0x00001730} 016c 0000 0000 | | .BLANK 0000[0x4] 0170 0179 0004 | y | .XXX[0x3] 0172 000e | | 0173 4802 |H | Short_Literal 0x2 ; Debug Table 0xc = .DEBUG 0x0173,0x02ea,0x0000,0x0000,0x000e,0x1aa4,0x0000,0x0044 0174 02cb | | Declare_Variable Entry 0175 00bf | | Action Accept_Activation 0176 029f 018b | | Declare_Subprogram INIT_0188,For_Call ; Debug Table 0xd = .DEBUG 0x0176,0x02ec,0x0000,0x0000,0x000e,0x1aa4,0x0000,0x0055 0178 00bc | | Action Signal_Activated 0179 e001 | | Load 0x0,0x1 ; Debug Table 0xd.0x0 = 0x179,0x1 017a 1820 | | Execute Package,Field_Execute,Field_Number 0x20 017b 4808 |H | Short_Literal 0x8 017c 4801 |H | Short_Literal 0x1 017d 4801 |H | Short_Literal 0x1 017e 4802 |H | Short_Literal 0x2 017f 4800 |H | Short_Literal 0x0 0180 e002 | | Load 0x0,0x2 0181 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51 0182 0007 | | Action Break_Optional ; Debug Table 0xd.0x1 = 0x182,0x2 0183 820e | | Call 0x1,0xe ; Debug Table 0xd.0x2 = 0x183,0x3 0184 7ffe | | Jump 0x183 0185 0000 0000 | | .XXX[0x3] 0187 0000 | | 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 018e | | .CONST 0x018e ; Address of begin 0189 0194 | | .CONST 0x0194 ; Address of exception handler 018a 0002 | | .CONST 0x0002 ; Number of locals 018b INIT_0188: 018b 480d |H | Short_Literal 0xd ; Debug Table 0xe = .DEBUG 0x018b,0x02f4,0x0004,0x0000,0x000e,0x1aa4,0x0000,0x009d 018c 0299 019b | | Declare_Subprogram INIT_0198,For_Accept 018e BODY_0188: 018e 4802 |H | Short_Literal 0x2 ; Debug Table 0xe.0x0 = 0x18e,0x1 018f 4802 |H | Short_Literal 0x2 0190 0099 | | Action Reference_Dynamic 0191 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0192 0137 | 7 | Execute Entry,Rendezvous 0193 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0194 TRAP_0188: 0194 0007 | | Action Break_Optional 0195 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; Debug Table 0xe.0x1 = 0x195,0x2 0196 0000 0000 | | .XXX[0x2] 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 019b | | .CONST 0x019b ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0001 | | .CONST 0x0001 ; Number of locals 019b BODY_0198: 019b INIT_0198: 019b 029f 01a3 | | Declare_Subprogram INIT_01a0,For_Call ; Debug Table 0xf = .DEBUG 0x019b,0x02fa,0x0003,0x0000,0x000e,0x1aa4,0x0000,0x0095 019d 8602 | | Call 0x3,0x2 ; Debug Table 0xf.0x0 = 0x19d,0x1 019e 4100 |A | End_Rendezvous 0x0 019f 0000 | | .XXX[0x1] 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01a3 | | .CONST 0x01a3 ; Address of begin 01a1 01af | | .CONST 0x01af ; Address of exception handler 01a2 0001 | | .CONST 0x0001 ; Number of locals 01a3 BODY_01a0: 01a3 INIT_01a0: 01a3 e7fd | | Load 0x3,-0x3 ; Debug Table 0x10 = .DEBUG 0x01a3,0x02fe,0x0004,0x0000,0x000e,0x1aa4,0x0000,0x0093 ; Debug Table 0x10.0x0 = 0x1a3,0x1 01a4 6805 |h | Jump_Zero 0x1aa 01a5 e7fe | | Load 0x3,-0x2 ; Debug Table 0x10.0x1 = 0x1a5,0x2 01a6 e003 | | Load 0x0,0x3 01a7 e004 | | Load 0x0,0x4 01a8 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01a9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01aa e7fe | | Load 0x3,-0x2 ; Debug Table 0x10.0x2 = 0x1aa,0x3 01ab e005 | | Load 0x0,0x5 01ac e004 | | Load 0x0,0x4 01ad 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01ae 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01af TRAP_01a0: 01af 0007 | | Action Break_Optional 01b0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; Debug Table 0x10.0x3 = 0x1b0,0x4 01b1 0000 0000 | | .BLANK 0000[0x7] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; Debug Table 01b8 ; -------------------------------------------------------------------------------------- 01b8 0003 0011 | | .CONST 0x0003,0x0011 01ba 000b 0242 | B| .DEBUG 0x000b,0x0242,0x8000,0x0000,0x000e,0x18f4,0x0000,0x0005 01c2 001e 0256 | V| .DEBUG 0x001e,0x0256,0x8000,0x0000,0x000e,0x1aa4,0x0000,0x000e 01ca 0063 027a | c z| .DEBUG 0x0063,0x027a,0x0001,0x0000,0x000e,0x18f4,0x0000,0x0006 01d2 0093 028c | | .DEBUG 0x0093,0x028c,0x0001,0x0000,0x000e,0x18f4,0x0000,0x0013 01da 00c3 029c | | .DEBUG 0x00c3,0x029c,0x0001,0x0000,0x000e,0x18f4,0x0000,0x0020 01e2 00d3 02a0 | | .DEBUG 0x00d3,0x02a0,0x0001,0x0000,0x000e,0x18f4,0x0000,0x0032 01ea 00db 02a4 | | .DEBUG 0x00db,0x02a4,0x0001,0x0000,0x000e,0x18f4,0x0000,0x003b 01f2 00eb 02aa | | .DEBUG 0x00eb,0x02aa,0x0001,0x0000,0x000e,0x18f4,0x0000,0x0043 01fa 00fb 02b0 | | .DEBUG 0x00fb,0x02b0,0x0001,0x0000,0x000e,0x18f4,0x0000,0x004b 0202 010b 02b6 | | .DEBUG 0x010b,0x02b6,0x0001,0x0000,0x000e,0x18f4,0x0000,0x0058 020a 011b 02bc | | .DEBUG 0x011b,0x02bc,0x0001,0x0000,0x000e,0x18f4,0x0000,0x005c 0212 013b 02d4 | ; | .DEBUG 0x013b,0x02d4,0x0002,0x0000,0x000e,0x1aa4,0x0000,0x01ef 021a 0173 02ea | s | .DEBUG 0x0173,0x02ea,0x0000,0x0000,0x000e,0x1aa4,0x0000,0x0044 0222 0176 02ec | v | .DEBUG 0x0176,0x02ec,0x0000,0x0000,0x000e,0x1aa4,0x0000,0x0055 022a 018b 02f4 | | .DEBUG 0x018b,0x02f4,0x0004,0x0000,0x000e,0x1aa4,0x0000,0x009d 0232 019b 02fa | | .DEBUG 0x019b,0x02fa,0x0003,0x0000,0x000e,0x1aa4,0x0000,0x0095 023a 01a3 02fe | | .DEBUG 0x01a3,0x02fe,0x0004,0x0000,0x000e,0x1aa4,0x0000,0x0093 0242 ; -------------------------------------------------------------------------------------- 0242 ; Debug3 Subtable 0x0 0242 ; -------------------------------------------------------------------------------------- 0242 0009 0000 | | .DBG3TAB 0x0009,0x0000 0244 000b ffff | | .CONST 0x000b,0xffff 0246 000d fffe | | .CONST 0x000d,0xfffe 0248 000f fffd | | .CONST 0x000f,0xfffd 024a 0011 fffc | | .CONST 0x0011,0xfffc 024c 0013 fffb | | .CONST 0x0013,0xfffb 024e 0015 fffa | | .CONST 0x0015,0xfffa 0250 0017 fff9 | | .CONST 0x0017,0xfff9 0252 0019 fff8 | | .CONST 0x0019,0xfff8 0254 001b fff7 | | .CONST 0x001b,0xfff7 0256 ; -------------------------------------------------------------------------------------- 0256 ; Debug3 Subtable 0x1 0256 ; -------------------------------------------------------------------------------------- 0256 0011 0000 | | .DBG3TAB 0x0011,0x0000 0258 001e ffff | | .CONST 0x001e,0xffff 025a 001f fffe | | .CONST 0x001f,0xfffe 025c 0020 fffd | | .CONST 0x0020,0xfffd 025e 0032 fffc | 2 | .CONST 0x0032,0xfffc 0260 0035 fffb | 5 | .CONST 0x0035,0xfffb 0262 0038 fffa | 8 | .CONST 0x0038,0xfffa 0264 003d fff9 | = | .CONST 0x003d,0xfff9 0266 0046 fff8 | F | .CONST 0x0046,0xfff8 0268 0048 fff7 | H | .CONST 0x0048,0xfff7 026a 004a fff6 | J | .CONST 0x004a,0xfff6 026c 004c fff5 | L | .CONST 0x004c,0xfff5 026e 004e fff4 | N | .CONST 0x004e,0xfff4 0270 0050 fff3 | P | .CONST 0x0050,0xfff3 0272 0052 fff2 | R | .CONST 0x0052,0xfff2 0274 0054 fff1 | T | .CONST 0x0054,0xfff1 0276 0056 fff0 | V | .CONST 0x0056,0xfff0 0278 0058 ffef | X | .CONST 0x0058,0xffef 027a ; -------------------------------------------------------------------------------------- 027a ; Debug3 Subtable 0x2 027a ; -------------------------------------------------------------------------------------- 027a 0000 0008 | | .DBG3TAB 0x0000,0x0008 027c 0063 0001 | c | .CONST 0x0063,0x0001 027e 0068 0002 | h | .CONST 0x0068,0x0002 0280 006b 0003 | k | .CONST 0x006b,0x0003 0282 006c 0004 | l | .CONST 0x006c,0x0004 0284 0070 0005 | p | .CONST 0x0070,0x0005 0286 007a 0006 | z | .CONST 0x007a,0x0006 0288 0085 0007 | | .CONST 0x0085,0x0007 028a 008a 0008 | | .CONST 0x008a,0x0008 028c ; -------------------------------------------------------------------------------------- 028c ; Debug3 Subtable 0x3 028c ; -------------------------------------------------------------------------------------- 028c 0001 0006 | | .DBG3TAB 0x0001,0x0006 028e 0093 ffff | | .CONST 0x0093,0xffff 0290 0097 0001 | | .CONST 0x0097,0x0001 0292 009b 0002 | | .CONST 0x009b,0x0002 0294 00a4 0003 | | .CONST 0x00a4,0x0003 0296 00a8 0004 | | .CONST 0x00a8,0x0004 0298 00b3 0005 | | .CONST 0x00b3,0x0005 029a 00b7 0006 | | .CONST 0x00b7,0x0006 029c ; -------------------------------------------------------------------------------------- 029c ; Debug3 Subtable 0x4 029c ; -------------------------------------------------------------------------------------- 029c 0000 0001 | | .DBG3TAB 0x0000,0x0001 029e 00c3 0001 | | .CONST 0x00c3,0x0001 02a0 ; -------------------------------------------------------------------------------------- 02a0 ; Debug3 Subtable 0x5 02a0 ; -------------------------------------------------------------------------------------- 02a0 0000 0001 | | .DBG3TAB 0x0000,0x0001 02a2 00d3 0001 | | .CONST 0x00d3,0x0001 02a4 ; -------------------------------------------------------------------------------------- 02a4 ; Debug3 Subtable 0x6 02a4 ; -------------------------------------------------------------------------------------- 02a4 0000 0002 | | .DBG3TAB 0x0000,0x0002 02a6 00db 0001 | | .CONST 0x00db,0x0001 02a8 00de 0002 | | .CONST 0x00de,0x0002 02aa ; -------------------------------------------------------------------------------------- 02aa ; Debug3 Subtable 0x7 02aa ; -------------------------------------------------------------------------------------- 02aa 0000 0002 | | .DBG3TAB 0x0000,0x0002 02ac 00eb 0001 | | .CONST 0x00eb,0x0001 02ae 00ee 0002 | | .CONST 0x00ee,0x0002 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; Debug3 Subtable 0x8 02b0 ; -------------------------------------------------------------------------------------- 02b0 0000 0002 | | .DBG3TAB 0x0000,0x0002 02b2 00fb 0001 | | .CONST 0x00fb,0x0001 02b4 00fe 0002 | | .CONST 0x00fe,0x0002 02b6 ; -------------------------------------------------------------------------------------- 02b6 ; Debug3 Subtable 0x9 02b6 ; -------------------------------------------------------------------------------------- 02b6 0000 0002 | | .DBG3TAB 0x0000,0x0002 02b8 010b 0001 | | .CONST 0x010b,0x0001 02ba 010e 0002 | | .CONST 0x010e,0x0002 02bc ; -------------------------------------------------------------------------------------- 02bc ; Debug3 Subtable 0xa 02bc ; -------------------------------------------------------------------------------------- 02bc 0001 000a | | .DBG3TAB 0x0001,0x000a 02be 011b ffff | | .CONST 0x011b,0xffff 02c0 011c 0001 | | .CONST 0x011c,0x0001 02c2 0121 0002 | ! | .CONST 0x0121,0x0002 02c4 0122 0003 | " | .CONST 0x0122,0x0003 02c6 0124 0004 | $ | .CONST 0x0124,0x0004 02c8 0127 0005 | ' | .CONST 0x0127,0x0005 02ca 012a 0006 | * | .CONST 0x012a,0x0006 02cc 012b 0007 | + | .CONST 0x012b,0x0007 02ce 012e 0008 | . | .CONST 0x012e,0x0008 02d0 012f 0009 | / | .CONST 0x012f,0x0009 02d2 0136 000a | 6 | .CONST 0x0136,0x000a 02d4 ; -------------------------------------------------------------------------------------- 02d4 ; Debug3 Subtable 0xb 02d4 ; -------------------------------------------------------------------------------------- 02d4 0004 0006 | | .DBG3TAB 0x0004,0x0006 02d6 013b ffff | ; | .CONST 0x013b,0xffff 02d8 013c fffe | < | .CONST 0x013c,0xfffe 02da 0140 fffd | @ | .CONST 0x0140,0xfffd 02dc 0142 fffc | B | .CONST 0x0142,0xfffc 02de 0143 0001 | C | .CONST 0x0143,0x0001 02e0 0144 0002 | D | .CONST 0x0144,0x0002 02e2 0152 0003 | R | .CONST 0x0152,0x0003 02e4 0156 0004 | V | .CONST 0x0156,0x0004 02e6 0157 0005 | W | .CONST 0x0157,0x0005 02e8 015b 0006 | [ | .CONST 0x015b,0x0006 02ea ; -------------------------------------------------------------------------------------- 02ea ; Debug3 Subtable 0xc 02ea ; -------------------------------------------------------------------------------------- 02ea 0000 0000 | | .DBG3TAB 0x0000,0x0000 02ec ; -------------------------------------------------------------------------------------- 02ec ; Debug3 Subtable 0xd 02ec ; -------------------------------------------------------------------------------------- 02ec 0000 0003 | | .DBG3TAB 0x0000,0x0003 02ee 0179 0001 | y | .CONST 0x0179,0x0001 02f0 0182 0002 | | .CONST 0x0182,0x0002 02f2 0183 0003 | | .CONST 0x0183,0x0003 02f4 ; -------------------------------------------------------------------------------------- 02f4 ; Debug3 Subtable 0xe 02f4 ; -------------------------------------------------------------------------------------- 02f4 0000 0002 | | .DBG3TAB 0x0000,0x0002 02f6 018e 0001 | | .CONST 0x018e,0x0001 02f8 0195 0002 | | .CONST 0x0195,0x0002 02fa ; -------------------------------------------------------------------------------------- 02fa ; Debug3 Subtable 0xf 02fa ; -------------------------------------------------------------------------------------- 02fa 0000 0001 | | .DBG3TAB 0x0000,0x0001 02fc 019d 0001 | | .CONST 0x019d,0x0001 02fe ; -------------------------------------------------------------------------------------- 02fe ; Debug3 Subtable 0x10 02fe ; -------------------------------------------------------------------------------------- 02fe 0000 0004 | | .DBG3TAB 0x0000,0x0004 0300 01a3 0001 | | .CONST 0x01a3,0x0001 0302 01a5 0002 | | .CONST 0x01a5,0x0002 0304 01aa 0003 | | .CONST 0x01aa,0x0003 0306 01b0 0004 | | .CONST 0x01b0,0x0004 0308 0000 0000 | | .BLANK 0000[0xf8]