|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2048 (0x800)
Notes: 00_class, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0ea8df
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5813 |X | .CONST 0x5813 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0198 | | .CONST 0x0198 ; 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 002f | / | .CONST 0x002f ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0016 | | .CONST 0x0016 ; Number of locals
000b INIT_0008:
000b 0007 | | Action Break_Optional ; Debug Table 0x0 = .DEBUG 0x000b,0x01f2,0x8000,0x0000,0x005a,0x3e15,0x0000,0x000b
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 0007 | | Action Break_Optional ; Debug Table 0x0.0x1 = 0xc,0xfffe
000d 0007 | | Action Break_Optional ; Debug Table 0x0.0x2 = 0xd,0xfffd
000e 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x3 = 0xe,0xfffc
000f 4803 |H | Short_Literal 0x3
0010 029f 003b | ;| Declare_Subprogram INIT_0038,For_Call
0012 03fe | | Declare_Type Discrete,Defined,Visible
0013 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x13,0xfffb
0015 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x15,0xfffa
0017 00bf | | Action Accept_Activation
0018 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x0018,0x0200,0x8000,0x0000,0x005a,0x3ff5,0x0000,0x000f
; Debug Table 0x1.0x0 = 0x18,0xffff
0019 0007 | | Action Break_Optional ; Debug Table 0x1.0x1 = 0x19,0xfffe
001a e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x2 = 0x1a,0xfffd
001b 1b15 | | Execute Package,Field_Read,Field_Number 0x15
001c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
001d e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x3 = 0x1d,0xfffc
001e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
001f 0007 | | Action Break_Optional ; Debug Table 0x1.0x4 = 0x1f,0xfffb
0020 0007 | | Action Break_Optional ; Debug Table 0x1.0x5 = 0x20,0xfffa
0021 029d 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call ; Debug Table 0x1.0x6 = 0x21,0xfff9
0023 029d 009b | | Declare_Subprogram INIT_0098,For_Outer_Call ; Debug Table 0x1.0x7 = 0x23,0xfff8
0025 029d 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call ; Debug Table 0x1.0x8 = 0x25,0xfff7
0027 029d 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call ; Debug Table 0x1.0x9 = 0x27,0xfff6
0029 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0xa = 0x29,0xfff5
002a 00c7 | | Action Elaborate_Subprogram
002b 029d 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call ; Debug Table 0x1.0xb = 0x2b,0xfff4
002d 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0xc = 0x2d,0xfff3
002e 00c7 | | Action Elaborate_Subprogram
002f BODY_0008:
002f 00bc | | Action Signal_Activated
0030 00bb | | Action Signal_Completion
0031 0000 0000 | | .BLANK 0000[0x7]
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 003b | ; | .CONST 0x003b ; Address of begin
0039 0004 | | .CONST 0x0004 ; Address of exception handler
003a 0001 | | .CONST 0x0001 ; Number of locals
003b BODY_0038:
003b INIT_0038:
003b 4603 |F | Jump_Case 0x4 ; Debug Table 0x2 = .DEBUG 0x003b,0x021c,0x0005,0x0000,0x005a,0x3e15,0x0000,0x001f
003c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
003d 7802 |x | Jump 0x40 ; case 0x1
003e 7805 |x | Jump 0x44 ; case 0x2
003f 7809 |x | Jump 0x49 ; case 0x3
0040 00da | | Load_Top At_Offset_2
0041 0091 0168 | h| Action Push_String_Extended_Indexed,0x168 ; "IDENTICAL"
0043 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0044 00db | | Load_Top At_Offset_3
0045 00db | | Load_Top At_Offset_3
0046 00e0 | | Load_Encached Standard_Cache
0047 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0048 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0049 00da | | Load_Top At_Offset_2
004a 00e0 | | Load_Encached Standard_Cache
004b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
004c 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
004d 0000 0000 | | .XXX[0x3]
004f 0000 | |
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0059 | Y | .CONST 0x0059 ; Address of begin
0051 0004 | | .CONST 0x0004 ; Address of exception handler
0052 0003 | | .CONST 0x0003 ; Number of locals
0053 INIT_0050:
0053 00da | | Load_Top At_Offset_2 ; Debug Table 0x3 = .DEBUG 0x0053,0x021e,0x0001,0x0000,0x005a,0x3e15,0x0000,0x0027
; Debug Table 0x3.0x0 = 0x53,0xffff
0054 e001 | | Load 0x0,0x1
0055 180f | | Execute Package,Field_Execute,Field_Number 0xf
0056 e5fe | | Load 0x2,-0x2 ; Debug Table 0x3.0x1 = 0x56,0xfffe
0057 e001 | | Load 0x0,0x1
0058 180f | | Execute Package,Field_Execute,Field_Number 0xf
0059 BODY_0050:
0059 e5fc | | Load 0x2,-0x4 ; Debug Table 0x3.0x2 = 0x59,0x1
005a 0120 | | Execute Any,Is_Value
005b 6803 |h | Jump_Zero 0x5f
005c e002 | | Load 0x0,0x2
005d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
005e 7801 |x | Jump 0x60
005f e5fc | | Load 0x2,-0x4
0060 e20d | | Load 0x1,0xd
0061 e5fe | | Load 0x2,-0x2
0062 00db | | Load_Top At_Offset_3
0063 e402 | | Load 0x2,0x2
0064 8215 | | Call 0x1,0x15
0065 c5fd | | Store 0x2,-0x3
0066 c5fc | | Store 0x2,-0x4
0067 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 0070 | p | .CONST 0x0070 ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0003 | | .CONST 0x0003 ; Number of locals
006b INIT_0068:
006b 00da | | Load_Top At_Offset_2 ; Debug Table 0x4 = .DEBUG 0x006b,0x0226,0x0001,0x0000,0x005a,0x3e15,0x0000,0x0041
; Debug Table 0x4.0x0 = 0x6b,0xffff
006c 8216 | | Call 0x1,0x16
006d e5fe | | Load 0x2,-0x2 ; Debug Table 0x4.0x1 = 0x6d,0xfffe
006e e001 | | Load 0x0,0x1
006f 180f | | Execute Package,Field_Execute,Field_Number 0xf
0070 BODY_0068:
0070 e5fc | | Load 0x2,-0x4 ; Debug Table 0x4.0x2 = 0x70,0x1
0071 0120 | | Execute Any,Is_Value
0072 6803 |h | Jump_Zero 0x76
0073 e002 | | Load 0x0,0x2
0074 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0075 7801 |x | Jump 0x77
0076 e5fc | | Load 0x2,-0x4
0077 e20d | | Load 0x1,0xd
0078 e5fe | | Load 0x2,-0x2
0079 00db | | Load_Top At_Offset_3
007a e402 | | Load 0x2,0x2
007b 8215 | | Call 0x1,0x15
007c c5fd | | Store 0x2,-0x3
007d c5fc | | Store 0x2,-0x4
007e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
007f 0000 | | .XXX[0x1]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083 | | .CONST 0x0083 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0001 | | .CONST 0x0001 ; Number of locals
0083 BODY_0080:
0083 INIT_0080:
0083 0007 | | Action Break_Optional ; Debug Table 0x5 = .DEBUG 0x0083,0x022e,0x0002,0x0000,0x005a,0x3ff5,0x0000,0x0046
; Debug Table 0x5.0x0 = 0x83,0x1
0084 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x5.0x1 = 0x84,0x401
0085 0007 | | Action Break_Optional ; Debug Table 0x5.0x2 = 0x85,0x1
0086 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x5.0x3 = 0x86,0x801
0087 e003 | | Load 0x0,0x3 ; Debug Table 0x5.0x4 = 0x87,0x401
0088 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0089 e004 | | Load 0x0,0x4
008a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
008b 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x5.0x5 = 0x8b,0xc01
008c e5fd | | Load 0x2,-0x3 ; Debug Table 0x5.0x6 = 0x8c,0x801
008d e5fe | | Load 0x2,-0x2
008e 4802 |H | Short_Literal 0x2
008f e5ff | | Load 0x2,-0x1
0090 e002 | | Load 0x0,0x2
0091 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0092 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0093 0000 0000 | | .BLANK 0000[0x5]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b | | .CONST 0x009b ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0001 | | .CONST 0x0001 ; Number of locals
009b BODY_0098:
009b INIT_0098:
009b 0092 016c | l| Action Push_String_Extended,0x16c ; "No corresponding declaration exists for "
; Debug Table 0x6 = .DEBUG 0x009b,0x023e,0x0002,0x0000,0x005a,0x3ff5,0x0000,0x007f
; Debug Table 0x6.0x0 = 0x9b,0x1
009d 00db | | Load_Top At_Offset_3
009e 00eb | | Load_Encached Diana_Cache
009f 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
00a0 00eb | | Load_Encached Diana_Cache
00a1 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
00a2 01cc | | Execute Vector,Catenate
00a3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00a4 0000 0000 | | .BLANK 0000[0x4]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00bc | | .CONST 0x00bc ; Address of begin
00a9 00cd | | .CONST 0x00cd ; Address of exception handler
00aa 0009 | | .CONST 0x0009 ; Number of locals
00ab INIT_00a8:
00ab e210 | | Load 0x1,0x10 ; Debug Table 0x7 = .DEBUG 0x00ab,0x0242,0x0002,0x0000,0x005a,0x3ff5,0x0000,0x009e
; Debug Table 0x7.0x0 = 0xab,0xffff
00ac 0007 | | Action Break_Optional
00ad 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x7.0x1 = 0xad,0xfffe
00ae 0007 | | Action Break_Optional ; Debug Table 0x7.0x2 = 0xae,0xfffd
00af 029f 0153 | S| Declare_Subprogram INIT_0150,For_Call ; Debug Table 0x7.0x3 = 0xaf,0xfffc
00b1 e005 | | Load 0x0,0x5 ; Debug Table 0x7.0x4 = 0xb1,0xfffb
00b2 190d | | Execute Package,Field_Reference,Field_Number 0xd
00b3 00c6 | | Action Check_Subprogram_Elaborated
00b4 e210 | | Load 0x1,0x10
00b5 4804 |H | Short_Literal 0x4
00b6 4802 |H | Short_Literal 0x2
00b7 0099 | | Action Reference_Dynamic
00b8 60ab |` | Indirect_Literal Discrete,0x164,{0x00000000, 0x005a3ff5}
00b9 48e1 |H | Short_Literal 0xe1
00ba 4809 |H | Short_Literal 0x9
00bb 0007 | | Action Break_Optional
00bc BODY_00a8:
00bc e5fe | | Load 0x2,-0x2 ; Debug Table 0x7.0x5 = 0xbc,0x1
00bd a402 | | Store_Unchecked 0x2,0x2
00be e402 | | Load 0x2,0x2 ; Debug Table 0x7.0x6 = 0xbe,0x2
00bf e5ff | | Load 0x2,-0x1
00c0 e405 | | Load 0x2,0x5
00c1 4806 |H | Short_Literal 0x6
00c2 4802 |H | Short_Literal 0x2
00c3 0099 | | Action Reference_Dynamic
00c4 4807 |H | Short_Literal 0x7
00c5 4802 |H | Short_Literal 0x2
00c6 0099 | | Action Reference_Dynamic
00c7 e005 | | Load 0x0,0x5
00c8 180d | | Execute Package,Field_Execute,Field_Number 0xd
00c9 c402 | | Store 0x2,0x2
00ca 0007 | | Action Break_Optional ; Debug Table 0x7.0x7 = 0xca,0x3
00cb 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x7.0x8 = 0xcb,0x401
00cc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 ; Debug Table 0x7.0x9 = 0xcc,0x3
00cd TRAP_00a8:
00cd 6092 |` | Indirect_Literal Discrete,0x160,{0x00000000, 0x5a3ff501}
00ce 010f | | Execute Exception,Equal
00cf 6802 |h | Jump_Zero 0xd2
00d0 e403 | | Load 0x2,0x3 ; Debug Table 0x7.0xa = 0xd0,0x4
00d1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00d2 0100 | | Execute Exception,Raise
00d3 0000 0000 | | .BLANK 0000[0x5]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00fb | | .CONST 0x00fb ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0005 | | .CONST 0x0005 ; Number of locals
00db INIT_00d8:
00db 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x8 = .DEBUG 0x00db,0x025a,0x0001,0x0000,0x005a,0x3ff5,0x0000,0x0107
; Debug Table 0x8.0x0 = 0xdb,0xffff
00dc 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x8.0x1 = 0xdc,0xfffe
00dd 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
00de e002 | | Load 0x0,0x2 ; Debug Table 0x8.0x2 = 0xde,0xfffd
00df 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00e0 02c7 | | Declare_Variable Any
00e1 00d8 | | Load_Top At_Offset_0
00e2 1c00 | | Execute_Immediate Run_Utility,0x0
00e3 e5fe | | Load 0x2,-0x2 ; Debug Table 0x8.0x3 = 0xe3,0xfffc
00e4 01da | | Execute Vector,Bounds
00e5 e001 | | Load 0x0,0x1
00e6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00e7 035b | [ | Declare_Type Array,Constrained
00e8 0337 | 7 | Declare_Variable Array
00e9 00d8 | | Load_Top At_Offset_0
00ea 01da | | Execute Vector,Bounds
00eb 49a3 |I | Short_Literal 0x1a3
00ec 00eb | | Load_Encached Diana_Cache
00ed 0098 | | Execute Package,Field_Read_Dynamic
00ee 035b | [ | Declare_Type Array,Constrained
00ef 0337 | 7 | Declare_Variable Array
00f0 00d8 | | Load_Top At_Offset_0
00f1 01d9 | | Execute Vector,Reverse_Bounds
00f2 0263 | c | Execute Discrete,Above_Bound
00f3 7005 |p | Jump_Nonzero 0xf9
00f4 4800 |H | Short_Literal 0x0
00f5 00d9 | | Load_Top At_Offset_1
00f6 e406 | | Load 0x2,0x6
00f7 01d6 | | Execute Vector,Field_Write
00f8 3ffb |? | Loop_Increasing 0xf4
00f9 00d9 | | Load_Top At_Offset_1
00fa 01d4 | | Execute Vector,Structure_Write
00fb BODY_00d8:
00fb 00cf | | Action Mark_Auxiliary
00fc e5fe | | Load 0x2,-0x2 ; Debug Table 0x8.0x4 = 0xfc,0x1
00fd 01d9 | | Execute Vector,Reverse_Bounds
00fe 0263 | c | Execute Discrete,Above_Bound
00ff 7017 |p | Jump_Nonzero 0x117
0100 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x8.0x5 = 0x100,0x2
0101 e5ff | | Load 0x2,-0x1
0102 01da | | Execute Vector,Bounds
0103 0261 | a | Execute Discrete,Not_In_Range
0104 6802 |h | Jump_Zero 0x107
0105 00d2 | | Pop_Control Pop_Count_2
0106 7810 |x | Jump 0x117
0107 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x8.0x6 = 0x107,0x3
0108 e5fe | | Load 0x2,-0x2
0109 01d7 | | Execute Vector,Field_Read
010a 680a |h | Jump_Zero 0x115
010b 00d8 | | Load_Top At_Offset_0
010c e5ff | | Load 0x2,-0x1
010d 01d7 | | Execute Vector,Field_Read
010e 7006 |p | Jump_Nonzero 0x115
010f 4801 |H | Short_Literal 0x1 ; Debug Table 0x8.0x7 = 0x10f,0x4
0110 00d9 | | Load_Top At_Offset_1
0111 e405 | | Load 0x2,0x5
0112 01d6 | | Execute Vector,Field_Write
0113 4800 |H | Short_Literal 0x0 ; Debug Table 0x8.0x8 = 0x113,0x5
0114 a403 | | Store_Unchecked 0x2,0x3
0115 00c8 | | Action Pop_Auxiliary_Range
0116 3fe9 |? | Loop_Increasing 0x100
0117 00ce | | Action Pop_Auxiliary
0118 00da | | Load_Top At_Offset_2 ; Debug Table 0x8.0x9 = 0x118,0x6
0119 680a |h | Jump_Zero 0x124
011a e5ff | | Load 0x2,-0x1 ; Debug Table 0x8.0xa = 0x11a,0x7
011b e5fe | | Load 0x2,-0x2
011c 01df | | Execute Vector,Equal
011d 6803 |h | Jump_Zero 0x121
011e 4800 |H | Short_Literal 0x0 ; Debug Table 0x8.0xb = 0x11e,0x8
011f a5fc | | Store_Unchecked 0x2,-0x4
0120 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0121 4801 |H | Short_Literal 0x1 ; Debug Table 0x8.0xc = 0x121,0x9
0122 a5fc | | Store_Unchecked 0x2,-0x4
0123 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0124 4802 |H | Short_Literal 0x2 ; Debug Table 0x8.0xd = 0x124,0xa
0125 a5fc | | Store_Unchecked 0x2,-0x4
0126 00cf | | Action Mark_Auxiliary
0127 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x8.0xe = 0x127,0xb
0128 01d9 | | Execute Vector,Reverse_Bounds
0129 0263 | c | Execute Discrete,Above_Bound
012a 7010 |p | Jump_Nonzero 0x13b
012b 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x8.0xf = 0x12b,0xc
012c e405 | | Load 0x2,0x5
012d 01d7 | | Execute Vector,Field_Read
012e 680a |h | Jump_Zero 0x139
012f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x8.0x10 = 0x12f,0xd
0130 e5fd | | Load 0x2,-0x3
0131 8214 | | Call 0x1,0x14
0132 a402 | | Store_Unchecked 0x2,0x2
0133 e402 | | Load 0x2,0x2 ; Debug Table 0x8.0x11 = 0x133,0xe
0134 8213 | | Call 0x1,0x13
0135 e402 | | Load 0x2,0x2
0136 e404 | | Load 0x2,0x4
0137 8212 | | Call 0x1,0x12
0138 c404 | | Store 0x2,0x4
0139 00c8 | | Action Pop_Auxiliary_Range
013a 3ff0 |? | Loop_Increasing 0x12b
013b 00ce | | Action Pop_Auxiliary
013c 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x8.0x12 = 0x13c,0xf
013d c5fb | | Store 0x2,-0x5
013e 4504 |E | Exit_Suprogram New_Top_Offset 0x4
013f 0000 | | .XXX[0x1]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143 | C | .CONST 0x0143 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0001 | | .CONST 0x0001 ; Number of locals
0143 BODY_0140:
0143 INIT_0140:
0143 00da | | Load_Top At_Offset_2 ; Debug Table 0x9 = .DEBUG 0x0143,0x0282,0x0002,0x0000,0x005a,0x3ff5,0x0000,0x01f5
; Debug Table 0x9.0x0 = 0x143,0x1
0144 0217 | | Execute Heap_Access,All_Reference
0145 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0146 0217 | | Execute Heap_Access,All_Reference
0147 0335 | 5 | Declare_Variable Array,Duplicate
0148 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0149 0000 0000 | | .BLANK 0000[0x7]
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 00da | | Load_Top At_Offset_2 ; Debug Table 0xa = .DEBUG 0x0153,0x0286,0x0001,0x0000,0x005a,0x3ff5,0x0000,0x00bd
; Debug Table 0xa.0x0 = 0x153,0x1
0154 e006 | | Load 0x0,0x6
0155 189d | | Execute Package,Field_Execute,Field_Number 0x9d
0156 e7fe | | Load 0x3,-0x2
0157 027f | | Execute Discrete,Equal
0158 6804 |h | Jump_Zero 0x15d
0159 00da | | Load_Top At_Offset_2 ; Debug Table 0xa.0x1 = 0x159,0x2
015a a403 | | Store_Unchecked 0x2,0x3
015b 6004 |` | Indirect_Literal Discrete,0x160,{0x00000000, 0x5a3ff501} ; Debug Table 0xa.0x2 = 0x15b,0x3
015c 0257 | W | Execute Discrete,Raise
015d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
015e 0000 0000 | | .XXX[0x2]
0160 0000 0000 | | .LITERAL {0x00000000, 0x5a3ff501}
0164 0000 0000 | | .LITERAL {0x00000000, 0x005a3ff5}
0168 ; --------------------------------------------------------------------------------------
0168 ; STRING TABLE
0168 ; --------------------------------------------------------------------------------------
0168 000c | | .STRTAB 0x000c->0x016e ; "IDENTICAL"
0169 0013 | | .STRTAB 0x0013->0x0172 ; "UPWARD_COMPATIBLE"
016a 0022 | " | .STRTAB 0x0022->0x017b ; "INCOMPATIBLE"
016b 002c | , | .STRTAB 0x002c->0x0181 ; "ERROR"
016c 002f | / | .STRTAB 0x002f->0x0183 ; "No corresponding declaration exists for "
016d 0055 | U | .STREND 0x0055->0x0197
016e 4944 454e |IDEN| .STRTAB_STRINGS
0198 ; --------------------------------------------------------------------------------------
0198 ; Debug Table
0198 ; --------------------------------------------------------------------------------------
0198 0003 000b | | .CONST 0x0003,0x000b
019a 000b 01f2 | | .DEBUG 0x000b,0x01f2,0x8000,0x0000,0x005a,0x3e15,0x0000,0x000b
01a2 0018 0200 | | .DEBUG 0x0018,0x0200,0x8000,0x0000,0x005a,0x3ff5,0x0000,0x000f
01aa 003b 021c | ; | .DEBUG 0x003b,0x021c,0x0005,0x0000,0x005a,0x3e15,0x0000,0x001f
01b2 0053 021e | S | .DEBUG 0x0053,0x021e,0x0001,0x0000,0x005a,0x3e15,0x0000,0x0027
01ba 006b 0226 | k &| .DEBUG 0x006b,0x0226,0x0001,0x0000,0x005a,0x3e15,0x0000,0x0041
01c2 0083 022e | .| .DEBUG 0x0083,0x022e,0x0002,0x0000,0x005a,0x3ff5,0x0000,0x0046
01ca 009b 023e | >| .DEBUG 0x009b,0x023e,0x0002,0x0000,0x005a,0x3ff5,0x0000,0x007f
01d2 00ab 0242 | B| .DEBUG 0x00ab,0x0242,0x0002,0x0000,0x005a,0x3ff5,0x0000,0x009e
01da 00db 025a | Z| .DEBUG 0x00db,0x025a,0x0001,0x0000,0x005a,0x3ff5,0x0000,0x0107
01e2 0143 0282 | C | .DEBUG 0x0143,0x0282,0x0002,0x0000,0x005a,0x3ff5,0x0000,0x01f5
01ea 0153 0286 | S | .DEBUG 0x0153,0x0286,0x0001,0x0000,0x005a,0x3ff5,0x0000,0x00bd
01f2 ; --------------------------------------------------------------------------------------
01f2 ; Debug3 Subtable 0x0
01f2 ; --------------------------------------------------------------------------------------
01f2 0006 0000 | | .DBG3TAB 0x0006,0x0000
01f4 000b ffff | | .CONST 0x000b,0xffff
01f6 000c fffe | | .CONST 0x000c,0xfffe
01f8 000d fffd | | .CONST 0x000d,0xfffd
01fa 000e fffc | | .CONST 0x000e,0xfffc
01fc 0013 fffb | | .CONST 0x0013,0xfffb
01fe 0015 fffa | | .CONST 0x0015,0xfffa
0200 ; --------------------------------------------------------------------------------------
0200 ; Debug3 Subtable 0x1
0200 ; --------------------------------------------------------------------------------------
0200 000d 0000 | | .DBG3TAB 0x000d,0x0000
0202 0018 ffff | | .CONST 0x0018,0xffff
0204 0019 fffe | | .CONST 0x0019,0xfffe
0206 001a fffd | | .CONST 0x001a,0xfffd
0208 001d fffc | | .CONST 0x001d,0xfffc
020a 001f fffb | | .CONST 0x001f,0xfffb
020c 0020 fffa | | .CONST 0x0020,0xfffa
020e 0021 fff9 | ! | .CONST 0x0021,0xfff9
0210 0023 fff8 | # | .CONST 0x0023,0xfff8
0212 0025 fff7 | % | .CONST 0x0025,0xfff7
0214 0027 fff6 | ' | .CONST 0x0027,0xfff6
0216 0029 fff5 | ) | .CONST 0x0029,0xfff5
0218 002b fff4 | + | .CONST 0x002b,0xfff4
021a 002d fff3 | - | .CONST 0x002d,0xfff3
021c ; --------------------------------------------------------------------------------------
021c ; Debug3 Subtable 0x2
021c ; --------------------------------------------------------------------------------------
021c 0000 0000 | | .DBG3TAB 0x0000,0x0000
021e ; --------------------------------------------------------------------------------------
021e ; Debug3 Subtable 0x3
021e ; --------------------------------------------------------------------------------------
021e 0002 0001 | | .DBG3TAB 0x0002,0x0001
0220 0053 ffff | S | .CONST 0x0053,0xffff
0222 0056 fffe | V | .CONST 0x0056,0xfffe
0224 0059 0001 | Y | .CONST 0x0059,0x0001
0226 ; --------------------------------------------------------------------------------------
0226 ; Debug3 Subtable 0x4
0226 ; --------------------------------------------------------------------------------------
0226 0002 0001 | | .DBG3TAB 0x0002,0x0001
0228 006b ffff | k | .CONST 0x006b,0xffff
022a 006d fffe | m | .CONST 0x006d,0xfffe
022c 0070 0001 | p | .CONST 0x0070,0x0001
022e ; --------------------------------------------------------------------------------------
022e ; Debug3 Subtable 0x5
022e ; --------------------------------------------------------------------------------------
022e 0000 0007 | | .DBG3TAB 0x0000,0x0007
0230 0083 0001 | | .CONST 0x0083,0x0001
0232 0084 0401 | | .CONST 0x0084,0x0401
0234 0085 0001 | | .CONST 0x0085,0x0001
0236 0086 0801 | | .CONST 0x0086,0x0801
0238 0087 0401 | | .CONST 0x0087,0x0401
023a 008b 0c01 | | .CONST 0x008b,0x0c01
023c 008c 0801 | | .CONST 0x008c,0x0801
023e ; --------------------------------------------------------------------------------------
023e ; Debug3 Subtable 0x6
023e ; --------------------------------------------------------------------------------------
023e 0000 0001 | | .DBG3TAB 0x0000,0x0001
0240 009b 0001 | | .CONST 0x009b,0x0001
0242 ; --------------------------------------------------------------------------------------
0242 ; Debug3 Subtable 0x7
0242 ; --------------------------------------------------------------------------------------
0242 0005 0006 | | .DBG3TAB 0x0005,0x0006
0244 00ab ffff | | .CONST 0x00ab,0xffff
0246 00ad fffe | | .CONST 0x00ad,0xfffe
0248 00ae fffd | | .CONST 0x00ae,0xfffd
024a 00af fffc | | .CONST 0x00af,0xfffc
024c 00b1 fffb | | .CONST 0x00b1,0xfffb
024e 00bc 0001 | | .CONST 0x00bc,0x0001
0250 00be 0002 | | .CONST 0x00be,0x0002
0252 00ca 0003 | | .CONST 0x00ca,0x0003
0254 00cb 0401 | | .CONST 0x00cb,0x0401
0256 00cc 0003 | | .CONST 0x00cc,0x0003
0258 00d0 0004 | | .CONST 0x00d0,0x0004
025a ; --------------------------------------------------------------------------------------
025a ; Debug3 Subtable 0x8
025a ; --------------------------------------------------------------------------------------
025a 0004 000f | | .DBG3TAB 0x0004,0x000f
025c 00db ffff | | .CONST 0x00db,0xffff
025e 00dc fffe | | .CONST 0x00dc,0xfffe
0260 00de fffd | | .CONST 0x00de,0xfffd
0262 00e3 fffc | | .CONST 0x00e3,0xfffc
0264 00fc 0001 | | .CONST 0x00fc,0x0001
0266 0100 0002 | | .CONST 0x0100,0x0002
0268 0107 0003 | | .CONST 0x0107,0x0003
026a 010f 0004 | | .CONST 0x010f,0x0004
026c 0113 0005 | | .CONST 0x0113,0x0005
026e 0118 0006 | | .CONST 0x0118,0x0006
0270 011a 0007 | | .CONST 0x011a,0x0007
0272 011e 0008 | | .CONST 0x011e,0x0008
0274 0121 0009 | ! | .CONST 0x0121,0x0009
0276 0124 000a | $ | .CONST 0x0124,0x000a
0278 0127 000b | ' | .CONST 0x0127,0x000b
027a 012b 000c | + | .CONST 0x012b,0x000c
027c 012f 000d | / | .CONST 0x012f,0x000d
027e 0133 000e | 3 | .CONST 0x0133,0x000e
0280 013c 000f | < | .CONST 0x013c,0x000f
0282 ; --------------------------------------------------------------------------------------
0282 ; Debug3 Subtable 0x9
0282 ; --------------------------------------------------------------------------------------
0282 0000 0001 | | .DBG3TAB 0x0000,0x0001
0284 0143 0001 | C | .CONST 0x0143,0x0001
0286 ; --------------------------------------------------------------------------------------
0286 ; Debug3 Subtable 0xa
0286 ; --------------------------------------------------------------------------------------
0286 0000 0003 | | .DBG3TAB 0x0000,0x0003
0288 0153 0001 | S | .CONST 0x0153,0x0001
028a 0159 0002 | Y | .CONST 0x0159,0x0002
028c 015b 0003 | [ | .CONST 0x015b,0x0003
028e 0000 0000 | | .BLANK 0000[0x172]