|
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: 5811_R1K_CODE
Names: »998419.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »998419.SEG«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »998419.SEG«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »998419.SEG«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »998419.SEG«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »998419.SEG«
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 01d8 | | .CONST 0x01d8 ; 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 004c | L | .CONST 0x004c ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0017 | | .CONST 0x0017 ; Number of locals 000b INIT_0008: 000b 4801 |H | Short_Literal 0x1 ; Debug Table 0x0 = .DEBUG 0x000b,0x022a,0x8000,0x0000,0x0037,0x0ce4,0x0000,0x0007 ; Debug Table 0x0.0x0 = 0xb,0xffff 000c 4be8 |K | Short_Literal 0x3e8 000d 00e4 | | Load_Encached Positive_Cache 000e 03f9 | | Declare_Type Discrete,Constrained,Visible 000f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x1 = 0xf,0xfffe 0010 0129 | ) | Execute Any,Make_Visible 0011 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x2 = 0x11,0xfffd 0012 00e4 | | Load_Encached Positive_Cache 0013 4800 |H | Short_Literal 0x0 0014 4803 |H | Short_Literal 0x3 0015 4802 |H | Short_Literal 0x2 0016 4807 |H | Short_Literal 0x7 0017 0319 | | Declare_Type Variant_Record,Incomplete,Visible 0018 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x18,0xfffc 001a 4801 |H | Short_Literal 0x1 ; Debug Table 0x0.0x4 = 0x1a,0xfffb 001b 4803 |H | Short_Literal 0x3 001c 00e4 | | Load_Encached Positive_Cache 001d 03f9 | | Declare_Type Discrete,Constrained,Visible 001e 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x1e,0xfffa 0020 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x20,0xfff9 0022 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x22,0xfff8 0024 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x0.0x8 = 0x24,0xfff7 0025 00e3 | | Load_Encached Natural_Cache 0026 00e3 | | Load_Encached Natural_Cache 0027 00e3 | | Load_Encached Natural_Cache 0028 029f 011b | | Declare_Subprogram INIT_0118,For_Call 002a 4804 |H | Short_Literal 0x4 002b 032d | - | Declare_Type Record,Defined 002c e20d | | Load 0x1,0xd ; Debug Table 0x0.0x9 = 0x2c,0xfff6 002d 0266 | f | Execute Discrete,Bounds 002e 00da | | Load_Top At_Offset_2 002f 029f 013b | ;| Declare_Subprogram INIT_0138,For_Call 0031 4801 |H | Short_Literal 0x1 0032 0350 | P | Declare_Type Array,Defined,Bounds_With_Object 0033 e20d | | Load 0x1,0xd ; Debug Table 0x0.0xa = 0x33,0xfff5 0034 00e3 | | Load_Encached Natural_Cache 0035 00da | | Load_Top At_Offset_2 0036 e001 | | Load 0x0,0x1 0037 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0038 e001 | | Load 0x0,0x1 0039 1b0f | | Execute Package,Field_Read,Field_Number 0xf 003a 029f 0153 | S| Declare_Subprogram INIT_0150,For_Call 003c 4800 |H | Short_Literal 0x0 003d 4803 |H | Short_Literal 0x3 003e 4802 |H | Short_Literal 0x2 003f e20f | | Load 0x1,0xf 0040 0307 | | Complete_Type Variant_Record,By_Defining 0041 00bf | | Action Accept_Activation 0042 029d 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call ; Debug Table 0x1 = .DEBUG 0x0042,0x0242,0x8000,0x0000,0x0037,0x1524,0x0000,0x0007 ; Debug Table 0x1.0x0 = 0x42,0xffff 0044 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x1 = 0x44,0xfffe 0045 00c7 | | Action Elaborate_Subprogram 0046 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x2 = 0x46,0xfffd 0047 00c7 | | Action Elaborate_Subprogram 0048 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0x3 = 0x48,0xfffc 0049 00c7 | | Action Elaborate_Subprogram 004a 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0x4 = 0x4a,0xfffb 004b 00c7 | | Action Elaborate_Subprogram 004c BODY_0008: 004c 00bc | | Action Signal_Activated 004d 00bb | | Action Signal_Completion 004e 0000 0000 | | .XXX[0x2] 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 0066 | f | .CONST 0x0066 ; Address of begin 0051 0004 | | .CONST 0x0004 ; Address of exception handler 0052 0007 | | .CONST 0x0007 ; Number of locals 0053 INIT_0050: 0053 e5fb | | Load 0x2,-0x5 ; Debug Table 0x2 = .DEBUG 0x0053,0x024e,0x0001,0x0000,0x0037,0x0ce4,0x0000,0x0021 ; Debug Table 0x2.0x0 = 0x53,0xffff 0054 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3 0055 e5fb | | Load 0x2,-0x5 0056 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5 0057 01d5 | | Execute Vector,Field_Reference 0058 0007 | | Action Break_Optional 0059 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x1 = 0x59,0xfffe 005a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 005b 0007 | | Action Break_Optional 005c 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x2.0x2 = 0x5c,0xfffd 005d 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 005e 0007 | | Action Break_Optional 005f 00da | | Load_Top At_Offset_2 ; Debug Table 0x2.0x3 = 0x5f,0xfffc 0060 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0061 0007 | | Action Break_Optional 0062 00db | | Load_Top At_Offset_3 ; Debug Table 0x2.0x4 = 0x62,0xfffb 0063 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0064 0007 | | Action Break_Optional 0065 00e4 | | Load_Encached Positive_Cache ; Debug Table 0x2.0x5 = 0x65,0xfffa 0066 BODY_0050: 0066 e5ff | | Load 0x2,-0x1 ; Debug Table 0x2.0x6 = 0x66,0x1 0067 a403 | | Store_Unchecked 0x2,0x3 0068 e5fd | | Load 0x2,-0x3 ; Debug Table 0x2.0x7 = 0x68,0x2 0069 e001 | | Load 0x0,0x1 006a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 006b 1818 | | Execute Package,Field_Execute,Field_Number 0x18 006c e5fe | | Load 0x2,-0x2 006d e001 | | Load 0x0,0x1 006e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 006f 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0070 e002 | | Load 0x0,0x2 0071 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0072 0059 | Y | Store_Top Discrete,At_Offset_1 0073 e403 | | Load 0x2,0x3 ; Debug Table 0x2.0x8 = 0x73,0x3 0074 0901 | | Execute_Immediate Binary_Scale,0x1 0075 0248 | H | Execute Discrete,Check_In_Integer 0076 e5fc | | Load 0x2,-0x4 0077 00da | | Load_Top At_Offset_2 0078 e002 | | Load 0x0,0x2 0079 1814 | | Execute Package,Field_Execute,Field_Number 0x14 007a 0273 | s | Execute Discrete,Plus 007b c406 | | Store 0x2,0x6 007c 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x2.0x9 = 0x7c,0x4 007d e5fc | | Load 0x2,-0x4 007e 0272 | r | Execute Discrete,Minus 007f 0248 | H | Execute Discrete,Check_In_Integer 0080 09ff | | Execute_Immediate Binary_Scale,-0x1 0081 c405 | | Store 0x2,0x5 0082 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x2.0xa = 0x82,0x5 0083 00db | | Load_Top At_Offset_3 0084 0272 | r | Execute Discrete,Minus 0085 c404 | | Store 0x2,0x4 0086 e5fb | | Load 0x2,-0x5 ; Debug Table 0x2.0xb = 0x86,0x6 0087 2c04 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4 0088 00da | | Load_Top At_Offset_2 0089 0273 | s | Execute Discrete,Plus 008a e5fb | | Load 0x2,-0x5 008b 2804 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4 008c e5fb | | Load 0x2,-0x5 ; Debug Table 0x2.0xc = 0x8c,0x7 008d 2506 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x6 008e 00da | | Load_Top At_Offset_2 008f 00e4 | | Load_Encached Positive_Cache 0090 025b | [ | Execute Discrete,Check_In_Type 0091 e5fe | | Load 0x2,-0x2 0092 8217 | | Call 0x1,0x17 0093 e5fb | | Load 0x2,-0x5 0094 2906 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x6 0095 e5fb | | Load 0x2,-0x5 ; Debug Table 0x2.0xd = 0x95,0x8 0096 2507 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x7 0097 00da | | Load_Top At_Offset_2 0098 00e4 | | Load_Encached Positive_Cache 0099 025b | [ | Execute Discrete,Check_In_Type 009a e5fd | | Load 0x2,-0x3 009b 8217 | | Call 0x1,0x17 009c e5fb | | Load 0x2,-0x5 009d 2907 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x7 009e e5fb | | Load 0x2,-0x5 ; Debug Table 0x2.0xe = 0x9e,0x9 009f 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3 00a0 0a01 | | Execute_Immediate Plus,0x1 00a1 e5fb | | Load 0x2,-0x5 00a2 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 00a3 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00a4 0000 0000 | | .BLANK 0000[0x4] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00ab | | .CONST 0x00ab ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0001 | | .CONST 0x0001 ; Number of locals 00ab BODY_00a8: 00ab INIT_00a8: 00ab 00da | | Load_Top At_Offset_2 ; Debug Table 0x3 = .DEBUG 0x00ab,0x026e,0x0002,0x0000,0x0037,0x0ce4,0x0000,0x0042 ; Debug Table 0x3.0x0 = 0xab,0x1 00ac 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3 00ad 00db | | Load_Top At_Offset_3 00ae 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 00af 027d | } | Execute Discrete,Greater 00b0 7002 |p | Jump_Nonzero 0xb3 00b1 4887 |H | Short_Literal 0x87 00b2 0257 | W | Execute Discrete,Raise 00b3 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0x1 = 0xb3,0x2 00b4 0b01 | | Execute_Immediate Case_Compare,0x1 00b5 7015 |p | Jump_Nonzero 0xcb 00b6 0b02 | | Execute_Immediate Case_Compare,0x2 00b7 7017 |p | Jump_Nonzero 0xcf 00b8 4801 |H | Short_Literal 0x1 ; Debug Table 0x3.0x2 = 0xb8,0x5 00b9 e5ff | | Load 0x2,-0x1 00ba 2c04 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4 00bb 00e9 | | Load_Encached String_Cache 00bc 0334 | 4 | Declare_Variable Array,With_Constraint 00bd 00d8 | | Load_Top At_Offset_0 00be 01dc | | Execute Vector,Last 00bf 4801 |H | Short_Literal 0x1 00c0 0263 | c | Execute Discrete,Above_Bound 00c1 7005 |p | Jump_Nonzero 0xc7 00c2 482d |H- | Short_Literal 0x2d 00c3 00d9 | | Load_Top At_Offset_1 00c4 e403 | | Load 0x2,0x3 00c5 01d6 | | Execute Vector,Field_Write 00c6 3ffb |? | Loop_Increasing 0xc2 00c7 e001 | | Load 0x0,0x1 00c8 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00c9 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00ca 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00cb 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0x3 = 0xcb,0x3 00cc 2506 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x6 00cd 02fd | | Declare_Variable Variant_Record,Duplicate 00ce 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00cf 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0x4 = 0xcf,0x4 00d0 2507 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x7 00d1 02fd | | Declare_Variable Variant_Record,Duplicate 00d2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00d3 0000 0000 | | .BLANK 0000[0x5] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00e6 | | .CONST 0x00e6 ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0004 | | .CONST 0x0004 ; Number of locals 00db INIT_00d8: 00db 00db | | Load_Top At_Offset_3 ; Debug Table 0x4 = .DEBUG 0x00db,0x027a,0x0002,0x0000,0x0037,0x0ce4,0x0000,0x004f ; Debug Table 0x4.0x0 = 0xdb,0xffff 00dc 00db | | Load_Top At_Offset_3 00dd 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5 00de 01d5 | | Execute Vector,Field_Reference 00df 0007 | | Action Break_Optional 00e0 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x1 = 0xe0,0xfffe 00e1 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 00e2 0007 | | Action Break_Optional 00e3 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x4.0x2 = 0xe3,0xfffd 00e4 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 00e5 0007 | | Action Break_Optional 00e6 BODY_00d8: 00e6 e5ff | | Load 0x2,-0x1 ; Debug Table 0x4.0x3 = 0xe6,0x1 00e7 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3 00e8 e5ff | | Load 0x2,-0x1 00e9 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 00ea 027d | } | Execute Discrete,Greater 00eb 7002 |p | Jump_Nonzero 0xee 00ec 4887 |H | Short_Literal 0x87 00ed 0257 | W | Execute Discrete,Raise 00ee 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x4 = 0xee,0x2 00ef 00e4 | | Load_Encached Positive_Cache 00f0 025b | [ | Execute Discrete,Check_In_Type 00f1 e001 | | Load 0x0,0x1 00f2 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00f3 00da | | Load_Top At_Offset_2 00f4 00e4 | | Load_Encached Positive_Cache 00f5 025b | [ | Execute Discrete,Check_In_Type 00f6 e5fd | | Load 0x2,-0x3 00f7 e001 | | Load 0x0,0x1 00f8 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00f9 e001 | | Load 0x0,0x1 00fa 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00fb 181f | | Execute Package,Field_Execute,Field_Number 0x1f 00fc 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 00fd 0000 0000 | | .XXX[0x3] 00ff 0000 | | 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 e5fc | | Load 0x2,-0x4 ; Debug Table 0x5 = .DEBUG 0x0103,0x0286,0x2801,0x0002,0x0037,0x0ce4,0x0000,0x0060 ; Debug Table 0x5.0x0 = 0x103,0x1 0104 01db | | Execute Vector,Length 0105 e5fd | | Load 0x2,-0x3 0106 027d | } | Execute Discrete,Greater 0107 680c |h | Jump_Zero 0x114 0108 e5fc | | Load 0x2,-0x4 ; Debug Table 0x5.0x1 = 0x108,0x2 0109 01dd | | Execute Vector,First 010a e5fc | | Load 0x2,-0x4 010b 01dd | | Execute Vector,First 010c e5fd | | Load 0x2,-0x3 010d 0273 | s | Execute Discrete,Plus 010e 0aff | | Execute_Immediate Plus,-0x1 010f 0248 | H | Execute Discrete,Check_In_Integer 0110 e5fc | | Load 0x2,-0x4 0111 01cf | | Execute Vector,Slice_Read 0112 85fe | | Call 0x2,-0x2 0113 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0114 e5fc | | Load 0x2,-0x4 ; Debug Table 0x5.0x2 = 0x114,0x3 0115 85fe | | Call 0x2,-0x2 0116 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0117 0000 | | .XXX[0x1] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011b | | .CONST 0x011b ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0001 | | .CONST 0x0001 ; Number of locals 011b BODY_0118: 011b INIT_0118: 011b 4608 |F | Jump_Case 0x9 ; Debug Table 0x6 = .DEBUG 0x011b,0x028e,0x0005,0x0000,0x0037,0x0ce4,0x0000,0x0077 011c 7808 |x | Jump 0x125 ; case 0x0 011d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 011e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 011f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 0120 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 0121 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 0122 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6 0123 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7 0124 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8 0125 4800 |H | Short_Literal 0x0 0126 00db | | Load_Top At_Offset_3 0127 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0128 4800 |H | Short_Literal 0x0 0129 00db | | Load_Top At_Offset_3 012a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 012b 4800 |H | Short_Literal 0x0 012c 00db | | Load_Top At_Offset_3 012d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 012e 4800 |H | Short_Literal 0x0 012f 00db | | Load_Top At_Offset_3 0130 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0131 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0132 0000 0000 | | .BLANK 0000[0x6] 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 013b | ; | .CONST 0x013b ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0001 | | .CONST 0x0001 ; Number of locals 013b BODY_0138: 013b INIT_0138: 013b 00d1 | | Pop_Control Pop_Count_1 ; Debug Table 0x7 = .DEBUG 0x013b,0x0290,0x0005,0x0000,0x0037,0x0ce4,0x0000,0x0093 013c 00da | | Load_Top At_Offset_2 013d 01d8 | | Execute Vector,Element_Type 013e 0322 | " | Declare_Variable Record 013f 00d8 | | Load_Top At_Offset_0 0140 1c00 | | Execute_Immediate Run_Utility,0x0 0141 00db | | Load_Top At_Offset_3 0142 01dc | | Execute Vector,Last 0143 e5ff | | Load 0x2,-0x1 0144 01dd | | Execute Vector,First 0145 0263 | c | Execute Discrete,Above_Bound 0146 7006 |p | Jump_Nonzero 0x14d 0147 00da | | Load_Top At_Offset_2 0148 00d9 | | Load_Top At_Offset_1 0149 e5ff | | Load 0x2,-0x1 014a 01d6 | | Execute Vector,Field_Write 014b 0a01 | | Execute_Immediate Plus,0x1 014c 7ff8 | | Jump 0x145 014d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 014e 0000 0000 | | .XXX[0x2] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0153 | S | .CONST 0x0153 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0001 | | .CONST 0x0001 ; Number of locals 0153 BODY_0150: 0153 INIT_0150: 0153 4608 |F | Jump_Case 0x9 ; Debug Table 0x8 = .DEBUG 0x0153,0x0292,0x0005,0x0000,0x0037,0x0ce4,0x0000,0x009c 0154 7808 |x | Jump 0x15d ; case 0x0 0155 781b |x | Jump 0x171 ; case 0x1 0156 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 0157 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 0158 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 0159 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 015a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6 015b 781a |x | Jump 0x176 ; case 0x7 015c 782b |x+ | Jump 0x188 ; case 0x8 015d 00da | | Load_Top At_Offset_2 015e 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5 015f 1c00 | | Execute_Immediate Run_Utility,0x0 0160 4801 |H | Short_Literal 0x1 0161 00db | | Load_Top At_Offset_3 0162 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 0163 00da | | Load_Top At_Offset_2 0164 2206 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x6 0165 00da | | Load_Top At_Offset_2 0166 2506 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x6 0167 1c00 | | Execute_Immediate Run_Utility,0x0 0168 00da | | Load_Top At_Offset_2 0169 2207 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x7 016a 00da | | Load_Top At_Offset_2 016b 2507 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x7 016c 1c00 | | Execute_Immediate Run_Utility,0x0 016d 4800 |H | Short_Literal 0x0 016e 00db | | Load_Top At_Offset_3 016f 2804 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x4 0170 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0171 00da | | Load_Top At_Offset_2 0172 2206 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x6 0173 00da | | Load_Top At_Offset_2 0174 2207 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x7 0175 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0176 e5fd | | Load 0x2,-0x3 0177 e5fe | | Load 0x2,-0x2 0178 4801 |H | Short_Literal 0x1 0179 e5fd | | Load 0x2,-0x3 017a e216 | | Load 0x1,0x16 017b 035b | [ | Declare_Type Array,Constrained 017c e5fe | | Load 0x2,-0x2 017d e001 | | Load 0x0,0x1 017e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 017f 1c07 | | Execute_Immediate Run_Utility,0x7 0180 e5fe | | Load 0x2,-0x2 0181 e001 | | Load 0x0,0x1 0182 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0183 1c07 | | Execute_Immediate Run_Utility,0x7 0184 4803 |H | Short_Literal 0x3 0185 e5ff | | Load 0x2,-0x1 0186 031b | | Declare_Type Variant_Record,Constrained 0187 4203 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x3 0188 e5fd | | Load 0x2,-0x3 0189 e5fe | | Load 0x2,-0x2 018a e5ff | | Load 0x2,-0x1 018b 02fc | | Declare_Variable Variant_Record,With_Constraint 018c 4801 |H | Short_Literal 0x1 018d e5fd | | Load 0x2,-0x3 018e e216 | | Load 0x1,0x16 018f 0334 | 4 | Declare_Variable Array,With_Constraint 0190 2d05 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x5 0191 e5fe | | Load 0x2,-0x2 0192 e001 | | Load 0x0,0x1 0193 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0194 1c08 | | Execute_Immediate Run_Utility,0x8 0195 2d06 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x6 0196 e5fe | | Load 0x2,-0x2 0197 e001 | | Load 0x0,0x1 0198 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0199 1c08 | | Execute_Immediate Run_Utility,0x8 019a 2d07 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x7 019b 016a | j | QQ_execute Variant_Record,XXX 019c 4203 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x3 019d 0000 0000 | | .XXX[0x3] 019f 0000 | | 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01a5 | | .CONST 0x01a5 ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0003 | | .CONST 0x0003 ; Number of locals 01a3 INIT_01a0: 01a3 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x9 = .DEBUG 0x01a3,0x0294,0x0001,0x0000,0x0037,0x1524,0x0000,0x0008 ; Debug Table 0x9.0x0 = 0x1a3,0xffff 01a4 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x9.0x1 = 0x1a4,0xfffe 01a5 BODY_01a0: 01a5 e5fe | | Load 0x2,-0x2 ; Debug Table 0x9.0x2 = 0x1a5,0x1 01a6 e5ff | | Load 0x2,-0x1 01a7 e001 | | Load 0x0,0x1 01a8 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01a9 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01aa 0272 | r | Execute Discrete,Minus 01ab 0248 | H | Execute Discrete,Check_In_Integer 01ac 09ff | | Execute_Immediate Binary_Scale,-0x1 01ad 0059 | Y | Store_Top Discrete,At_Offset_1 01ae e5fe | | Load 0x2,-0x2 ; Debug Table 0x9.0x3 = 0x1ae,0x2 01af e5ff | | Load 0x2,-0x1 01b0 e001 | | Load 0x0,0x1 01b1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01b2 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01b3 0272 | r | Execute Discrete,Minus 01b4 0248 | H | Execute Discrete,Check_In_Integer 01b5 00d9 | | Load_Top At_Offset_1 01b6 0272 | r | Execute Discrete,Minus 01b7 005a | Z | Store_Top Discrete,At_Offset_2 01b8 e5fd | | Load 0x2,-0x3 ; Debug Table 0x9.0x4 = 0x1b8,0x3 01b9 00da | | Load_Top At_Offset_2 01ba 00e4 | | Load_Encached Positive_Cache 01bb 025b | [ | Execute Discrete,Check_In_Type 01bc e001 | | Load 0x0,0x1 01bd 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01be e001 | | Load 0x0,0x1 01bf 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01c0 181e | | Execute Package,Field_Execute,Field_Number 0x1e 01c1 00d1 | | Pop_Control Pop_Count_1 01c2 e5fd | | Load 0x2,-0x3 ; Debug Table 0x9.0x5 = 0x1c2,0x4 01c3 e5ff | | Load 0x2,-0x1 01c4 e001 | | Load 0x0,0x1 01c5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01c6 181e | | Execute Package,Field_Execute,Field_Number 0x1e 01c7 00d1 | | Pop_Control Pop_Count_1 01c8 e5fd | | Load 0x2,-0x3 ; Debug Table 0x9.0x6 = 0x1c8,0x5 01c9 00d9 | | Load_Top At_Offset_1 01ca 00e4 | | Load_Encached Positive_Cache 01cb 025b | [ | Execute Discrete,Check_In_Type 01cc e001 | | Load 0x0,0x1 01cd 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01ce e001 | | Load 0x0,0x1 01cf 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01d0 181e | | Execute Package,Field_Execute,Field_Number 0x1e 01d1 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01d2 0000 0000 | | .BLANK 0000[0x6] 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; Debug Table 01d8 ; -------------------------------------------------------------------------------------- 01d8 0003 000a | | .CONST 0x0003,0x000a 01da 000b 022a | *| .DEBUG 0x000b,0x022a,0x8000,0x0000,0x0037,0x0ce4,0x0000,0x0007 01e2 0042 0242 | B B| .DEBUG 0x0042,0x0242,0x8000,0x0000,0x0037,0x1524,0x0000,0x0007 01ea 0053 024e | S N| .DEBUG 0x0053,0x024e,0x0001,0x0000,0x0037,0x0ce4,0x0000,0x0021 01f2 00ab 026e | n| .DEBUG 0x00ab,0x026e,0x0002,0x0000,0x0037,0x0ce4,0x0000,0x0042 01fa 00db 027a | z| .DEBUG 0x00db,0x027a,0x0002,0x0000,0x0037,0x0ce4,0x0000,0x004f 0202 0103 0286 | | .DEBUG 0x0103,0x0286,0x2801,0x0002,0x0037,0x0ce4,0x0000,0x0060 020a 011b 028e | | .DEBUG 0x011b,0x028e,0x0005,0x0000,0x0037,0x0ce4,0x0000,0x0077 0212 013b 0290 | ; | .DEBUG 0x013b,0x0290,0x0005,0x0000,0x0037,0x0ce4,0x0000,0x0093 021a 0153 0292 | S | .DEBUG 0x0153,0x0292,0x0005,0x0000,0x0037,0x0ce4,0x0000,0x009c 0222 01a3 0294 | | .DEBUG 0x01a3,0x0294,0x0001,0x0000,0x0037,0x1524,0x0000,0x0008 022a ; -------------------------------------------------------------------------------------- 022a ; Debug3 Subtable 0x0 022a ; -------------------------------------------------------------------------------------- 022a 000b 0000 | | .DBG3TAB 0x000b,0x0000 022c 000b ffff | | .CONST 0x000b,0xffff 022e 000f fffe | | .CONST 0x000f,0xfffe 0230 0011 fffd | | .CONST 0x0011,0xfffd 0232 0018 fffc | | .CONST 0x0018,0xfffc 0234 001a fffb | | .CONST 0x001a,0xfffb 0236 001e fffa | | .CONST 0x001e,0xfffa 0238 0020 fff9 | | .CONST 0x0020,0xfff9 023a 0022 fff8 | " | .CONST 0x0022,0xfff8 023c 0024 fff7 | $ | .CONST 0x0024,0xfff7 023e 002c fff6 | , | .CONST 0x002c,0xfff6 0240 0033 fff5 | 3 | .CONST 0x0033,0xfff5 0242 ; -------------------------------------------------------------------------------------- 0242 ; Debug3 Subtable 0x1 0242 ; -------------------------------------------------------------------------------------- 0242 0005 0000 | | .DBG3TAB 0x0005,0x0000 0244 0042 ffff | B | .CONST 0x0042,0xffff 0246 0044 fffe | D | .CONST 0x0044,0xfffe 0248 0046 fffd | F | .CONST 0x0046,0xfffd 024a 0048 fffc | H | .CONST 0x0048,0xfffc 024c 004a fffb | J | .CONST 0x004a,0xfffb 024e ; -------------------------------------------------------------------------------------- 024e ; Debug3 Subtable 0x2 024e ; -------------------------------------------------------------------------------------- 024e 0006 0009 | | .DBG3TAB 0x0006,0x0009 0250 0053 ffff | S | .CONST 0x0053,0xffff 0252 0059 fffe | Y | .CONST 0x0059,0xfffe 0254 005c fffd | \ | .CONST 0x005c,0xfffd 0256 005f fffc | _ | .CONST 0x005f,0xfffc 0258 0062 fffb | b | .CONST 0x0062,0xfffb 025a 0065 fffa | e | .CONST 0x0065,0xfffa 025c 0066 0001 | f | .CONST 0x0066,0x0001 025e 0068 0002 | h | .CONST 0x0068,0x0002 0260 0073 0003 | s | .CONST 0x0073,0x0003 0262 007c 0004 | | | .CONST 0x007c,0x0004 0264 0082 0005 | | .CONST 0x0082,0x0005 0266 0086 0006 | | .CONST 0x0086,0x0006 0268 008c 0007 | | .CONST 0x008c,0x0007 026a 0095 0008 | | .CONST 0x0095,0x0008 026c 009e 0009 | | .CONST 0x009e,0x0009 026e ; -------------------------------------------------------------------------------------- 026e ; Debug3 Subtable 0x3 026e ; -------------------------------------------------------------------------------------- 026e 0000 0005 | | .DBG3TAB 0x0000,0x0005 0270 00ab 0001 | | .CONST 0x00ab,0x0001 0272 00b3 0002 | | .CONST 0x00b3,0x0002 0274 00b8 0005 | | .CONST 0x00b8,0x0005 0276 00cb 0003 | | .CONST 0x00cb,0x0003 0278 00cf 0004 | | .CONST 0x00cf,0x0004 027a ; -------------------------------------------------------------------------------------- 027a ; Debug3 Subtable 0x4 027a ; -------------------------------------------------------------------------------------- 027a 0003 0002 | | .DBG3TAB 0x0003,0x0002 027c 00db ffff | | .CONST 0x00db,0xffff 027e 00e0 fffe | | .CONST 0x00e0,0xfffe 0280 00e3 fffd | | .CONST 0x00e3,0xfffd 0282 00e6 0001 | | .CONST 0x00e6,0x0001 0284 00ee 0002 | | .CONST 0x00ee,0x0002 0286 ; -------------------------------------------------------------------------------------- 0286 ; Debug3 Subtable 0x5 0286 ; -------------------------------------------------------------------------------------- 0286 0000 0003 | | .DBG3TAB 0x0000,0x0003 0288 0103 0001 | | .CONST 0x0103,0x0001 028a 0108 0002 | | .CONST 0x0108,0x0002 028c 0114 0003 | | .CONST 0x0114,0x0003 028e ; -------------------------------------------------------------------------------------- 028e ; Debug3 Subtable 0x6 028e ; -------------------------------------------------------------------------------------- 028e 0000 0000 | | .DBG3TAB 0x0000,0x0000 0290 ; -------------------------------------------------------------------------------------- 0290 ; Debug3 Subtable 0x7 0290 ; -------------------------------------------------------------------------------------- 0290 0000 0000 | | .DBG3TAB 0x0000,0x0000 0292 ; -------------------------------------------------------------------------------------- 0292 ; Debug3 Subtable 0x8 0292 ; -------------------------------------------------------------------------------------- 0292 0000 0000 | | .DBG3TAB 0x0000,0x0000 0294 ; -------------------------------------------------------------------------------------- 0294 ; Debug3 Subtable 0x9 0294 ; -------------------------------------------------------------------------------------- 0294 0002 0005 | | .DBG3TAB 0x0002,0x0005 0296 01a3 ffff | | .CONST 0x01a3,0xffff 0298 01a4 fffe | | .CONST 0x01a4,0xfffe 029a 01a5 0001 | | .CONST 0x01a5,0x0001 029c 01ae 0002 | | .CONST 0x01ae,0x0002 029e 01b8 0003 | | .CONST 0x01b8,0x0003 02a0 01c2 0004 | | .CONST 0x01c2,0x0004 02a2 01c8 0005 | | .CONST 0x01c8,0x0005 02a4 0000 0000 | | .BLANK 0000[0x15c]