|
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: »3980297.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293 └─ ⟦this⟧ »3980297.SEG« └─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3 └─ ⟦this⟧ »3980297.SEG« └─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288 └─ ⟦this⟧ »3980297.SEG« └─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5 └─ ⟦this⟧ »3980297.SEG« └─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000 └─ ⟦this⟧ »3980297.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 0170 | p | .CONST 0x0170 ; 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 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0010 | | .CONST 0x0010 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0001 | | .CONST 0x0001 ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x01ba,0x8000,0x0000,0x0030,0x6324,0x0000,0x0005 000d 00bf | | Action Accept_Activation 000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 000f 00c7 | | Action Elaborate_Subprogram 0010 BODY_0008: 0010 00bc | | Action Signal_Activated 0011 00bb | | Action Signal_Completion 0012 0000 0000 | | .BLANK 0000[0x6] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 0031 | 1 | .CONST 0x0031 ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 000b | | .CONST 0x000b ; Number of locals 001b INIT_0018: 001b 00e5 | | Load_Encached Long_Integer_Cache ; Debug Table 0x1 = .DEBUG 0x001b,0x01bc,0xa802,0x0002,0x0030,0x6324,0x0000,0x0005 ; Debug Table 0x1.0x0 = 0x1b,0xffff 001c 00dc | | Load_Top At_Offset_4 ; Debug Table 0x1.0x1 = 0x1c,0xfffe 001d 026a | j | Execute Discrete,First 001e 00dd | | Load_Top At_Offset_5 001f 0269 | i | Execute Discrete,Last 0020 00e5 | | Load_Encached Long_Integer_Cache 0021 03f8 | | Declare_Type Discrete,Constrained 0022 00dd | | Load_Top At_Offset_5 ; Debug Table 0x1.0x2 = 0x22,0xfffd 0023 029f 0043 | C| Declare_Subprogram INIT_0040,For_Call ; Debug Table 0x1.0x3 = 0x23,0xfffc 0025 029f 006b | k| Declare_Subprogram INIT_0068,For_Call ; Debug Table 0x1.0x4 = 0x25,0xfffb 0027 029f 008b | | Declare_Subprogram INIT_0088,For_Call ; Debug Table 0x1.0x5 = 0x27,0xfffa 0029 029f 0093 | | Declare_Subprogram INIT_0090,For_Call ; Debug Table 0x1.0x6 = 0x29,0xfff9 002b 029f 00b3 | | Declare_Subprogram INIT_00b0,For_Call ; Debug Table 0x1.0x7 = 0x2b,0xfff8 002d 029f 011b | | Declare_Subprogram INIT_0118,For_Call ; Debug Table 0x1.0x8 = 0x2d,0xfff7 002f 029f 012b | +| Declare_Subprogram INIT_0128,For_Call 0031 BODY_0018: 0031 00cf | | Action Mark_Auxiliary 0032 840b | | Call 0x2,0xb ; Debug Table 0x1.0x9 = 0x32,0x1 ; Debug Table 0x1.0xa = 0x32,0x2 0033 00c9 | | Action Pop_Auxiliary_Loop 0034 7ffd | | Jump 0x32 0035 00ce | | Action Pop_Auxiliary 0036 e404 | | Load 0x2,0x4 ; Debug Table 0x1.0xb = 0x36,0x3 0037 e5fe | | Load 0x2,-0x2 0038 025b | [ | Execute Discrete,Check_In_Type 0039 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 003a 0000 0000 | | .BLANK 0000[0x6] 0040 ; -------------------------------------------------------------------------------------- 0040 ; SUBPROGRAM 0040 ; -------------------------------------------------------------------------------------- 0040 0049 | I | .CONST 0x0049 ; Address of begin 0041 005f | _ | .CONST 0x005f ; Address of exception handler 0042 0002 | | .CONST 0x0002 ; Number of locals 0043 INIT_0040: 0043 e5fe | | Load 0x2,-0x2 ; Debug Table 0x2 = .DEBUG 0x0043,0x01d6,0x0802,0x0002,0x0030,0x6434,0x0000,0x003c ; Debug Table 0x2.0x0 = 0x43,0xffff 0044 026a | j | Execute Discrete,First 0045 e5fe | | Load 0x2,-0x2 0046 0122 | " | Execute Any,Make_Root_Type 0047 025e | ^ | Execute Discrete,Convert 0048 1c01 | | Execute_Immediate Run_Utility,0x1 0049 BODY_0040: 0049 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x1 = 0x49,0x1 004a 01dd | | Execute Vector,First 004b 00d9 | | Load_Top At_Offset_1 004c 01d7 | | Execute Vector,Field_Read 004d 0f20 | | Execute_Immediate Equal,0x20 004e 00d9 | | Load_Top At_Offset_1 004f 01dd | | Execute Vector,First 0050 00da | | Load_Top At_Offset_2 0051 01d7 | | Execute Vector,Field_Read 0052 0f2d | - | Execute_Immediate Equal,0x2d 0053 0278 | x | Execute Discrete,Or 0054 00d9 | | Load_Top At_Offset_1 0055 01dd | | Execute Vector,First 0056 0a01 | | Execute_Immediate Plus,0x1 0057 0248 | H | Execute Discrete,Check_In_Integer 0058 00da | | Load_Top At_Offset_2 0059 01d7 | | Execute Vector,Field_Read 005a 4830 |H0 | Short_Literal 0x30 005b 4839 |H9 | Short_Literal 0x39 005c 0262 | b | Execute Discrete,In_Range 005d 0279 | y | Execute Discrete,And 005e 00ca | | Action Exit_Nullary_Function 005f TRAP_0040: 005f 010e | | Execute Exception,Is_Constraint_Error 0060 6802 |h | Jump_Zero 0x63 0061 4800 |H | Short_Literal 0x0 ; Debug Table 0x2.0x2 = 0x61,0x2 0062 00ca | | Action Exit_Nullary_Function 0063 0100 | | Execute Exception,Raise 0064 0000 0000 | | .BLANK 0000[0x4] 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 e5fb | | Load 0x2,-0x5 ; Debug Table 0x3 = .DEBUG 0x006b,0x01de,0x0801,0x0002,0x0030,0x6434,0x0000,0x0083 ; Debug Table 0x3.0x0 = 0x6b,0x1 006c 0092 015c | \| Action Push_String_Extended,0x15c ; "EXPECTED VALUES ARE: " 006e e5fe | | Load 0x2,-0x2 006f 026a | j | Execute Discrete,First 0070 e5fe | | Load 0x2,-0x2 0071 0122 | " | Execute Any,Make_Root_Type 0072 025e | ^ | Execute Discrete,Convert 0073 1c01 | | Execute_Immediate Run_Utility,0x1 0074 01cc | | Execute Vector,Catenate 0075 0092 015d | ]| Action Push_String_Extended,0x15d ; " .. " 0077 01cc | | Execute Vector,Catenate 0078 e5fe | | Load 0x2,-0x2 0079 0269 | i | Execute Discrete,Last 007a e5fe | | Load 0x2,-0x2 007b 0122 | " | Execute Any,Make_Root_Type 007c 025e | ^ | Execute Discrete,Convert 007d 1c01 | | Execute_Immediate Run_Utility,0x1 007e 01cc | | Execute Vector,Catenate 007f e001 | | Load 0x0,0x1 0080 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0081 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0082 0000 0000 | | .BLANK 0000[0x6] 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 008b | | .CONST 0x008b ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0001 | | .CONST 0x0001 ; Number of locals 008b BODY_0088: 008b INIT_0088: 008b 00da | | Load_Top At_Offset_2 ; Debug Table 0x4 = .DEBUG 0x008b,0x01e2,0x0802,0x0002,0x0030,0x6434,0x0000,0x00a8 ; Debug Table 0x4.0x0 = 0x8b,0x1 008c 01db | | Execute Vector,Length 008d 00e3 | | Load_Encached Natural_Cache 008e 025b | [ | Execute Discrete,Check_In_Type 008f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0095 | | .CONST 0x0095 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0002 | | .CONST 0x0002 ; Number of locals 0093 INIT_0090: 0093 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x5 = .DEBUG 0x0093,0x01e6,0x0802,0x0002,0x0030,0x6434,0x0000,0x00b9 ; Debug Table 0x5.0x0 = 0x93,0xffff 0094 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0095 BODY_0090: 0095 00cf | | Action Mark_Auxiliary 0096 e5fe | | Load 0x2,-0x2 ; Debug Table 0x5.0x1 = 0x96,0x1 0097 0265 | e | Execute Discrete,Reverse_Bounds 0098 0263 | c | Execute Discrete,Above_Bound 0099 700c |p | Jump_Nonzero 0xa6 009a 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x2 = 0x9a,0x2 009b e5fe | | Load 0x2,-0x2 009c 0122 | " | Execute Any,Make_Root_Type 009d 025e | ^ | Execute Discrete,Convert 009e 1c01 | | Execute_Immediate Run_Utility,0x1 009f 8407 | | Call 0x2,0x7 00a0 00dc | | Load_Top At_Offset_4 00a1 e002 | | Load 0x0,0x2 00a2 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00a3 005c | \ | Store_Top Discrete,At_Offset_4 00a4 00c8 | | Action Pop_Auxiliary_Range 00a5 3ff4 |? | Loop_Increasing 0x9a 00a6 00ce | | Action Pop_Auxiliary 00a7 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x3 = 0xa7,0x3 00a8 00ca | | Action Exit_Nullary_Function 00a9 0000 0000 | | .BLANK 0000[0x7] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00c7 | | .CONST 0x00c7 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0006 | | .CONST 0x0006 ; Number of locals 00b3 INIT_00b0: 00b3 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x6 = .DEBUG 0x00b3,0x01f0,0x0801,0x0002,0x0030,0x6434,0x0000,0x00de ; Debug Table 0x6.0x0 = 0xb3,0xffff 00b4 064e | N | Execute_Immediate Set_Value_Unchecked,0x4e 00b5 8408 | | Call 0x2,0x8 ; Debug Table 0x6.0x1 = 0xb5,0xfffe 00b6 0a02 | | Execute_Immediate Plus,0x2 00b7 00e3 | | Load_Encached Natural_Cache 00b8 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 00b9 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x6.0x2 = 0xb9,0xfffd 00ba 00d9 | | Load_Top At_Offset_1 00bb 0270 | p | Execute Discrete,Divide 00bc 00e3 | | Load_Encached Natural_Cache 00bd 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 00be e003 | | Load 0x0,0x3 ; Debug Table 0x6.0x3 = 0xbe,0xfffc 00bf 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00c0 02ff | | Declare_Variable Variant_Record 00c1 00d8 | | Load_Top At_Offset_0 00c2 1c00 | | Execute_Immediate Run_Utility,0x0 00c3 e5fe | | Load 0x2,-0x2 ; Debug Table 0x6.0x4 = 0xc3,0xfffb 00c4 026a | j | Execute Discrete,First 00c5 e5fe | | Load 0x2,-0x2 00c6 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 00c7 BODY_00b0: 00c7 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0x5 = 0xc7,0x1 00c8 7002 |p | Jump_Nonzero 0xcb 00c9 4801 |H | Short_Literal 0x1 ; Debug Table 0x6.0x6 = 0xc9,0x2 00ca 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 00cb e5fb | | Load 0x2,-0x5 ; Debug Table 0x6.0x7 = 0xcb,0x3 00cc 0092 015c | \| Action Push_String_Extended,0x15c ; "EXPECTED VALUES ARE: " 00ce e001 | | Load 0x0,0x1 00cf 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00d0 00cf | | Action Mark_Auxiliary ; Debug Table 0x6.0x8 = 0xd0,0x4 00d1 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0x9 = 0xd1,0x4 ; Debug Table 0x6.0xa = 0xd1,0x5 00d2 e003 | | Load 0x0,0x3 00d3 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00d4 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00d5 00d1 | | Pop_Control Pop_Count_1 00d6 00cf | | Action Mark_Auxiliary 00d7 00dc | | Load_Top At_Offset_4 ; Debug Table 0x6.0xb = 0xd7,0x6 00d8 4801 |H | Short_Literal 0x1 00d9 0263 | c | Execute Discrete,Above_Bound 00da 702a |p* | Jump_Nonzero 0x105 00db 00dd | | Load_Top At_Offset_5 ; Debug Table 0x6.0xc = 0xdb,0x7 00dc e603 | | Load 0x3,0x3 00dd 00e4 | | Load_Encached Positive_Cache 00de 025b | [ | Execute Discrete,Check_In_Type 00df 00de | | Load_Top At_Offset_6 00e0 e5fe | | Load 0x2,-0x2 00e1 0122 | " | Execute Any,Make_Root_Type 00e2 025e | ^ | Execute Discrete,Convert 00e3 1c01 | | Execute_Immediate Run_Utility,0x1 00e4 e003 | | Load 0x0,0x3 00e5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00e6 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00e7 e003 | | Load 0x0,0x3 00e8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00e9 e003 | | Load 0x0,0x3 00ea 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00eb 181e | | Execute Package,Field_Execute,Field_Number 0x1e 00ec 00d1 | | Pop_Control Pop_Count_1 00ed 00dc | | Load_Top At_Offset_4 ; Debug Table 0x6.0xd = 0xed,0x8 00ee e5fe | | Load 0x2,-0x2 00ef 0269 | i | Execute Discrete,Last 00f0 027f | | Execute Discrete,Equal 00f1 680d |h | Jump_Zero 0xff 00f2 e5fb | | Load 0x2,-0x5 ; Debug Table 0x6.0xe = 0xf2,0x9 00f3 0092 015e | ^| Action Push_String_Extended,0x15e ; " " 00f5 e605 | | Load 0x3,0x5 00f6 e003 | | Load 0x0,0x3 00f7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00f8 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00f9 01cc | | Execute Vector,Catenate 00fa e001 | | Load 0x0,0x1 00fb 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00fc 00d2 | | Pop_Control Pop_Count_2 ; Debug Table 0x6.0xf = 0xfc,0xa 00fd 00ce | | Action Pop_Auxiliary 00fe 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00ff e5fe | | Load 0x2,-0x2 ; Debug Table 0x6.0x10 = 0xff,0xb 0100 00dd | | Load_Top At_Offset_5 0101 0268 | h | Execute Discrete,Successor 0102 005d | ] | Store_Top Discrete,At_Offset_5 0103 00c8 | | Action Pop_Auxiliary_Range 0104 3fd6 |? | Loop_Increasing 0xdb 0105 00ce | | Action Pop_Auxiliary 0106 e5fb | | Load 0x2,-0x5 ; Debug Table 0x6.0x11 = 0x106,0xc 0107 0092 015e | ^| Action Push_String_Extended,0x15e ; " " 0109 00dc | | Load_Top At_Offset_4 010a e003 | | Load 0x0,0x3 010b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 010c 1815 | | Execute Package,Field_Execute,Field_Number 0x15 010d 01cc | | Execute Vector,Catenate 010e e001 | | Load 0x0,0x1 010f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0110 00c9 | | Action Pop_Auxiliary_Loop 0111 7fbf | | Jump 0xd1 0112 0000 0000 | | .BLANK 0000[0x6] 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 8405 | | Call 0x2,0x5 ; Debug Table 0x7 = .DEBUG 0x011b,0x0216,0x0801,0x0002,0x0030,0x6434,0x0000,0x0177 ; Debug Table 0x7.0x0 = 0x11b,0x1 011c 6802 |h | Jump_Zero 0x11f 011d 8406 | | Call 0x2,0x6 ; Debug Table 0x7.0x1 = 0x11d,0x2 011e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 011f 8409 | | Call 0x2,0x9 ; Debug Table 0x7.0x2 = 0x11f,0x3 0120 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0121 0000 0000 | | .BLANK 0000[0x7] 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 013a | : | .CONST 0x013a ; Address of begin 0129 0157 | W | .CONST 0x0157 ; Address of exception handler 012a 0002 | | .CONST 0x0002 ; Number of locals 012b INIT_0128: 012b e5fb | | Load 0x2,-0x5 ; Debug Table 0x8 = .DEBUG 0x012b,0x021e,0x0804,0x0002,0x0030,0x6434,0x0000,0x01de ; Debug Table 0x8.0x0 = 0x12b,0xffff 012c 485b |H[ | Short_Literal 0x5b 012d e5fd | | Load 0x2,-0x3 012e 01cb | | Execute Vector,Append 012f e5fc | | Load 0x2,-0x4 0130 e5fe | | Load 0x2,-0x2 0131 0122 | " | Execute Any,Make_Root_Type 0132 025e | ^ | Execute Discrete,Convert 0133 1c01 | | Execute_Immediate Run_Utility,0x1 0134 01cc | | Execute Vector,Catenate 0135 0092 015f | _| Action Push_String_Extended,0x15f ; "] " 0137 01cc | | Execute Vector,Catenate 0138 e001 | | Load 0x0,0x1 0139 1811 | | Execute Package,Field_Execute,Field_Number 0x11 013a BODY_0128: 013a 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x8.0x1 = 0x13a,0x1 013b 01db | | Execute Vector,Length 013c 7004 |p | Jump_Nonzero 0x141 013d e5fc | | Load 0x2,-0x4 ; Debug Table 0x8.0x2 = 0x13d,0x2 013e c404 | | Store 0x2,0x4 013f 00cc | | Action Pop_Block ; Debug Table 0x8.0x3 = 0x13f,0x3 0140 7ef4 |~ | Jump 0x35 0141 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x8.0x4 = 0x141,0x4 0142 e5fe | | Load 0x2,-0x2 0143 0122 | " | Execute Any,Make_Root_Type 0144 1c02 | | Execute_Immediate Run_Utility,0x2 0145 a402 | | Store_Unchecked 0x2,0x2 0146 e402 | | Load 0x2,0x2 ; Debug Table 0x8.0x5 = 0x146,0x5 0147 e403 | | Load 0x2,0x3 0148 0260 | ` | Execute Discrete,In_Type 0149 680b |h | Jump_Zero 0x155 014a e402 | | Load 0x2,0x2 ; Debug Table 0x8.0x6 = 0x14a,0x6 014b 00d8 | | Load_Top At_Offset_0 014c e5fe | | Load 0x2,-0x2 014d 0122 | " | Execute Any,Make_Root_Type 014e 0260 | ` | Execute Discrete,In_Type 014f 7002 |p | Jump_Nonzero 0x152 0150 48e0 |H | Short_Literal 0xe0 0151 0257 | W | Execute Discrete,Raise 0152 c404 | | Store 0x2,0x4 0153 00cc | | Action Pop_Block ; Debug Table 0x8.0x7 = 0x153,0x7 0154 7ee0 |~ | Jump 0x35 0155 48e0 |H | Short_Literal 0xe0 ; Debug Table 0x8.0x8 = 0x155,0x8 0156 0257 | W | Execute Discrete,Raise 0157 TRAP_0128: 0157 010e | | Execute Exception,Is_Constraint_Error 0158 6802 |h | Jump_Zero 0x15b 0159 840a | | Call 0x2,0xa ; Debug Table 0x8.0x9 = 0x159,0x9 015a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 015b 0100 | | Execute Exception,Raise 015c ; -------------------------------------------------------------------------------------- 015c ; STRING TABLE 015c ; -------------------------------------------------------------------------------------- 015c 000a | | .STRTAB 0x000a->0x0161 ; "EXPECTED VALUES ARE: " 015d 001d | | .STRTAB 0x001d->0x016b ; " .. " 015e 001f | | .STRTAB 0x001f->0x016d ; " " 015f 001e | | .STRTAB 0x001e->0x016e ; "] " 0160 001e | | .STREND 0x001e->0x016f 0161 4558 5045 |EXPE| .STRTAB_STRINGS 016f 0000 | | .XXX[0x1] 0170 ; -------------------------------------------------------------------------------------- 0170 ; Debug Table 0170 ; -------------------------------------------------------------------------------------- 0170 0003 0009 | | .CONST 0x0003,0x0009 0172 000b 01ba | | .DEBUG 0x000b,0x01ba,0x8000,0x0000,0x0030,0x6324,0x0000,0x0005 017a 001b 01bc | | .DEBUG 0x001b,0x01bc,0xa802,0x0002,0x0030,0x6324,0x0000,0x0005 0182 0043 01d6 | C | .DEBUG 0x0043,0x01d6,0x0802,0x0002,0x0030,0x6434,0x0000,0x003c 018a 006b 01de | k | .DEBUG 0x006b,0x01de,0x0801,0x0002,0x0030,0x6434,0x0000,0x0083 0192 008b 01e2 | | .DEBUG 0x008b,0x01e2,0x0802,0x0002,0x0030,0x6434,0x0000,0x00a8 019a 0093 01e6 | | .DEBUG 0x0093,0x01e6,0x0802,0x0002,0x0030,0x6434,0x0000,0x00b9 01a2 00b3 01f0 | | .DEBUG 0x00b3,0x01f0,0x0801,0x0002,0x0030,0x6434,0x0000,0x00de 01aa 011b 0216 | | .DEBUG 0x011b,0x0216,0x0801,0x0002,0x0030,0x6434,0x0000,0x0177 01b2 012b 021e | + | .DEBUG 0x012b,0x021e,0x0804,0x0002,0x0030,0x6434,0x0000,0x01de 01ba ; -------------------------------------------------------------------------------------- 01ba ; Debug3 Subtable 0x0 01ba ; -------------------------------------------------------------------------------------- 01ba 0000 0000 | | .DBG3TAB 0x0000,0x0000 01bc ; -------------------------------------------------------------------------------------- 01bc ; Debug3 Subtable 0x1 01bc ; -------------------------------------------------------------------------------------- 01bc 0009 0003 | | .DBG3TAB 0x0009,0x0003 01be 001b ffff | | .CONST 0x001b,0xffff 01c0 001c fffe | | .CONST 0x001c,0xfffe 01c2 0022 fffd | " | .CONST 0x0022,0xfffd 01c4 0023 fffc | # | .CONST 0x0023,0xfffc 01c6 0025 fffb | % | .CONST 0x0025,0xfffb 01c8 0027 fffa | ' | .CONST 0x0027,0xfffa 01ca 0029 fff9 | ) | .CONST 0x0029,0xfff9 01cc 002b fff8 | + | .CONST 0x002b,0xfff8 01ce 002d fff7 | - | .CONST 0x002d,0xfff7 01d0 0032 0001 | 2 | .CONST 0x0032,0x0001 01d2 0032 0002 | 2 | .CONST 0x0032,0x0002 01d4 0036 0003 | 6 | .CONST 0x0036,0x0003 01d6 ; -------------------------------------------------------------------------------------- 01d6 ; Debug3 Subtable 0x2 01d6 ; -------------------------------------------------------------------------------------- 01d6 0001 0002 | | .DBG3TAB 0x0001,0x0002 01d8 0043 ffff | C | .CONST 0x0043,0xffff 01da 0049 0001 | I | .CONST 0x0049,0x0001 01dc 0061 0002 | a | .CONST 0x0061,0x0002 01de ; -------------------------------------------------------------------------------------- 01de ; Debug3 Subtable 0x3 01de ; -------------------------------------------------------------------------------------- 01de 0000 0001 | | .DBG3TAB 0x0000,0x0001 01e0 006b 0001 | k | .CONST 0x006b,0x0001 01e2 ; -------------------------------------------------------------------------------------- 01e2 ; Debug3 Subtable 0x4 01e2 ; -------------------------------------------------------------------------------------- 01e2 0000 0001 | | .DBG3TAB 0x0000,0x0001 01e4 008b 0001 | | .CONST 0x008b,0x0001 01e6 ; -------------------------------------------------------------------------------------- 01e6 ; Debug3 Subtable 0x5 01e6 ; -------------------------------------------------------------------------------------- 01e6 0001 0003 | | .DBG3TAB 0x0001,0x0003 01e8 0093 ffff | | .CONST 0x0093,0xffff 01ea 0096 0001 | | .CONST 0x0096,0x0001 01ec 009a 0002 | | .CONST 0x009a,0x0002 01ee 00a7 0003 | | .CONST 0x00a7,0x0003 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; Debug3 Subtable 0x6 01f0 ; -------------------------------------------------------------------------------------- 01f0 0005 000d | | .DBG3TAB 0x0005,0x000d 01f2 00b3 ffff | | .CONST 0x00b3,0xffff 01f4 00b5 fffe | | .CONST 0x00b5,0xfffe 01f6 00b9 fffd | | .CONST 0x00b9,0xfffd 01f8 00be fffc | | .CONST 0x00be,0xfffc 01fa 00c3 fffb | | .CONST 0x00c3,0xfffb 01fc 00c7 0001 | | .CONST 0x00c7,0x0001 01fe 00c9 0002 | | .CONST 0x00c9,0x0002 0200 00cb 0003 | | .CONST 0x00cb,0x0003 0202 00d0 0004 | | .CONST 0x00d0,0x0004 0204 00d1 0004 | | .CONST 0x00d1,0x0004 0206 00d1 0005 | | .CONST 0x00d1,0x0005 0208 00d7 0006 | | .CONST 0x00d7,0x0006 020a 00db 0007 | | .CONST 0x00db,0x0007 020c 00ed 0008 | | .CONST 0x00ed,0x0008 020e 00f2 0009 | | .CONST 0x00f2,0x0009 0210 00fc 000a | | .CONST 0x00fc,0x000a 0212 00ff 000b | | .CONST 0x00ff,0x000b 0214 0106 000c | | .CONST 0x0106,0x000c 0216 ; -------------------------------------------------------------------------------------- 0216 ; Debug3 Subtable 0x7 0216 ; -------------------------------------------------------------------------------------- 0216 0000 0003 | | .DBG3TAB 0x0000,0x0003 0218 011b 0001 | | .CONST 0x011b,0x0001 021a 011d 0002 | | .CONST 0x011d,0x0002 021c 011f 0003 | | .CONST 0x011f,0x0003 021e ; -------------------------------------------------------------------------------------- 021e ; Debug3 Subtable 0x8 021e ; -------------------------------------------------------------------------------------- 021e 0001 0009 | | .DBG3TAB 0x0001,0x0009 0220 012b ffff | + | .CONST 0x012b,0xffff 0222 013a 0001 | : | .CONST 0x013a,0x0001 0224 013d 0002 | = | .CONST 0x013d,0x0002 0226 013f 0003 | ? | .CONST 0x013f,0x0003 0228 0141 0004 | A | .CONST 0x0141,0x0004 022a 0146 0005 | F | .CONST 0x0146,0x0005 022c 014a 0006 | J | .CONST 0x014a,0x0006 022e 0153 0007 | S | .CONST 0x0153,0x0007 0230 0155 0008 | U | .CONST 0x0155,0x0008 0232 0159 0009 | Y | .CONST 0x0159,0x0009 0234 0000 0000 | | .BLANK 0000[0x1cc]