|
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, 5811_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_07b4f8
└─⟦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 5811 |X | .CONST 0x5811 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 01e8 | | .CONST 0x01e8 ; 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 002d | - | .CONST 0x002d ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0014 | | .CONST 0x0014 ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0 ; Debug Table 0x0 = .DEBUG 0x000b,0x0232,0x8000,0x0000,0x0032,0xc7f4,0x0000,0x0007
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 4803 |H | Short_Literal 0x3
000d 029f 0033 | 3| Declare_Subprogram INIT_0030,For_Call
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x1 = 0x10,0xfffe
0011 4801 |H | Short_Literal 0x1
0012 00da | | Load_Top At_Offset_2
0013 03f9 | | Declare_Type Discrete,Constrained,Visible
0014 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0x14,0xfffd
0016 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x16,0xfffc
0018 00bf | | Action Accept_Activation
0019 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x0019,0x023c,0x8000,0x0000,0x0033,0xd704,0x0000,0x0009
; Debug Table 0x1.0x0 = 0x19,0xffff
001a 0007 | | Action Break_Optional ; Debug Table 0x1.0x1 = 0x1a,0xfffe
001b 0007 | | Action Break_Optional ; Debug Table 0x1.0x2 = 0x1b,0xfffd
001c 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x1.0x3 = 0x1c,0xfffc
001d 00eb | | Load_Encached Diana_Cache
001e 1812 | | Execute Package,Field_Execute,Field_Number 0x12
001f 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0020 029d 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call ; Debug Table 0x1.0x4 = 0x20,0xfffb
0022 0007 | | Action Break_Optional ; Debug Table 0x1.0x5 = 0x22,0xfffa
0023 029d 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call ; Debug Table 0x1.0x6 = 0x23,0xfff9
0025 0007 | | Action Break_Optional ; Debug Table 0x1.0x7 = 0x25,0xfff8
0026 029d 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call ; Debug Table 0x1.0x8 = 0x26,0xfff7
0028 0007 | | Action Break_Optional ; Debug Table 0x1.0x9 = 0x28,0xfff6
0029 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0xa = 0x29,0xfff5
002a 00c7 | | Action Elaborate_Subprogram
002b 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0xb = 0x2b,0xfff4
002c 00c7 | | Action Elaborate_Subprogram
002d BODY_0008:
002d 00bc | | Action Signal_Activated
002e 00bb | | Action Signal_Completion
002f 0000 | | .XXX[0x1]
0030 ; --------------------------------------------------------------------------------------
0030 ; SUBPROGRAM
0030 ; --------------------------------------------------------------------------------------
0030 0033 | 3 | .CONST 0x0033 ; Address of begin
0031 0004 | | .CONST 0x0004 ; Address of exception handler
0032 0001 | | .CONST 0x0001 ; Number of locals
0033 BODY_0030:
0033 INIT_0030:
0033 4603 |F | Jump_Case 0x4 ; Debug Table 0x2 = .DEBUG 0x0033,0x0256,0x0005,0x0000,0x0032,0xc7f4,0x0000,0x0008
0034 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0035 7802 |x | Jump 0x38 ; case 0x1
0036 7805 |x | Jump 0x3c ; case 0x2
0037 7809 |x | Jump 0x41 ; case 0x3
0038 00da | | Load_Top At_Offset_2
0039 0091 01ce | | Action Push_String_Extended_Indexed,0x1ce ; "BEFORE"
003b 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
003c 00db | | Load_Top At_Offset_3
003d 00db | | Load_Top At_Offset_3
003e 00e0 | | Load_Encached Standard_Cache
003f 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0040 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0041 00da | | Load_Top At_Offset_2
0042 00e0 | | Load_Encached Standard_Cache
0043 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0044 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0045 0000 0000 | | .XXX[0x3]
0047 0000 | |
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 0052 | R | .CONST 0x0052 ; Address of begin
0049 0004 | | .CONST 0x0004 ; Address of exception handler
004a 0004 | | .CONST 0x0004 ; Number of locals
004b INIT_0048:
004b e001 | | Load 0x0,0x1 ; Debug Table 0x3 = .DEBUG 0x004b,0x0258,0x0002,0x0000,0x0032,0xc7f4,0x0000,0x0017
; Debug Table 0x3.0x0 = 0x4b,0xffff
004c 1b14 | | Execute Package,Field_Read,Field_Number 0x14
004d 0322 | " | Declare_Variable Record
004e e001 | | Load 0x0,0x1
004f 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0050 0322 | " | Declare_Variable Record
0051 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x3.0x1 = 0x51,0xfffe
0052 BODY_0048:
0052 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0x2 = 0x52,0x1
0053 e5fe | | Load 0x2,-0x2
0054 e5ff | | Load 0x2,-0x1
0055 e001 | | Load 0x0,0x1
0056 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0057 00db | | Load_Top At_Offset_3
0058 017d | } | Execute Record,Structure_Write
0059 e5fd | | Load 0x2,-0x3 ; Debug Table 0x3.0x3 = 0x59,0x2
005a 0f02 | | Execute_Immediate Equal,0x2
005b 6802 |h | Jump_Zero 0x5e
005c 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0x4 = 0x5c,0x3
005d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
005e e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0x5 = 0x5e,0x4
005f 8213 | | Call 0x1,0x13
0060 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0061 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x6 = 0x61,0x5
0062 e211 | | Load 0x1,0x11
0063 021f | | Execute Heap_Access,Equal
0064 6802 |h | Jump_Zero 0x67
0065 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0x7 = 0x65,0x6
0066 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0067 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0x8 = 0x67,0x7
0068 e5fe | | Load 0x2,-0x2
0069 00da | | Load_Top At_Offset_2
006a e001 | | Load 0x0,0x1
006b 1819 | | Execute Package,Field_Execute,Field_Number 0x19
006c 00da | | Load_Top At_Offset_2
006d 017d | } | Execute Record,Structure_Write
006e e5fd | | Load 0x2,-0x3 ; Debug Table 0x3.0x9 = 0x6e,0x8
006f 4603 |F | Jump_Case 0x4
0070 7805 |x | Jump 0x76 ; case 0x0
0071 7813 |x | Jump 0x85 ; case 0x1
0072 7801 |x | Jump 0x74 ; case 0x2
0073 781a |x | Jump 0x8e ; case 0x3
0074 48e2 |H | Short_Literal 0xe2 ; Debug Table 0x3.0xa = 0x74,0x9
0075 0257 | W | Execute Discrete,Raise
0076 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0xb = 0x76,0xa
0077 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0078 0aff | | Execute_Immediate Plus,-0x1
0079 00db | | Load_Top At_Offset_3
007a 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
007b e5fe | | Load 0x2,-0x2 ; Debug Table 0x3.0xc = 0x7b,0xb
007c 00db | | Load_Top At_Offset_3
007d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
007e 00e4 | | Load_Encached Positive_Cache
007f 025b | [ | Execute Discrete,Check_In_Type
0080 e001 | | Load 0x0,0x1
0081 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0082 00db | | Load_Top At_Offset_3
0083 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0084 780b |x | Jump 0x90
0085 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0xd = 0x85,0xc
0086 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0087 0a01 | | Execute_Immediate Plus,0x1
0088 00db | | Load_Top At_Offset_3
0089 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
008a 4801 |H | Short_Literal 0x1 ; Debug Table 0x3.0xe = 0x8a,0xd
008b 00db | | Load_Top At_Offset_3
008c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
008d 7802 |x | Jump 0x90
008e 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0xf = 0x8e,0xe
008f 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0090 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0x10 = 0x90,0xf
0091 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0092 0000 0000 | | .BLANK 0000[0x6]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009f | | .CONST 0x009f ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0003 | | .CONST 0x0003 ; Number of locals
009b INIT_0098:
009b e001 | | Load 0x0,0x1 ; Debug Table 0x4 = .DEBUG 0x009b,0x027c,0x0002,0x0000,0x0032,0xc7f4,0x0000,0x002f
; Debug Table 0x4.0x0 = 0x9b,0xffff
009c 1b14 | | Execute Package,Field_Read,Field_Number 0x14
009d 0322 | " | Declare_Variable Record
009e 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x4.0x1 = 0x9e,0xfffe
009f BODY_0098:
009f e5fd | | Load 0x2,-0x3 ; Debug Table 0x4.0x2 = 0x9f,0x1
00a0 4603 |F | Jump_Case 0x4
00a1 7803 |x | Jump 0xa5 ; case 0x0
00a2 780b |x | Jump 0xae ; case 0x1
00a3 7801 |x | Jump 0xa5 ; case 0x2
00a4 7811 |x | Jump 0xb6 ; case 0x3
00a5 e5fe | | Load 0x2,-0x2 ; Debug Table 0x4.0x3 = 0xa5,0x2
00a6 4801 |H | Short_Literal 0x1
00a7 e5ff | | Load 0x2,-0x1
00a8 8212 | | Call 0x1,0x12
00a9 e001 | | Load 0x0,0x1
00aa 181f | | Execute Package,Field_Execute,Field_Number 0x1f
00ab 00da | | Load_Top At_Offset_2
00ac 017d | } | Execute Record,Structure_Write
00ad 781a |x | Jump 0xc8
00ae e5fe | | Load 0x2,-0x2 ; Debug Table 0x4.0x4 = 0xae,0x3
00af 4801 |H | Short_Literal 0x1
00b0 e5ff | | Load 0x2,-0x1
00b1 e001 | | Load 0x0,0x1
00b2 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00b3 00da | | Load_Top At_Offset_2
00b4 017d | } | Execute Record,Structure_Write
00b5 7812 |x | Jump 0xc8
00b6 e5ff | | Load 0x2,-0x1 ; Debug Table 0x4.0x5 = 0xb6,0x4
00b7 8213 | | Call 0x1,0x13
00b8 0031 | 1 | Store_Top Heap_Access,At_Offset_1
00b9 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x6 = 0xb9,0x5
00ba e211 | | Load 0x1,0x11
00bb 021f | | Execute Heap_Access,Equal
00bc 7008 |p | Jump_Nonzero 0xc5
00bd e5fe | | Load 0x2,-0x2 ; Debug Table 0x4.0x7 = 0xbd,0x6
00be 4801 |H | Short_Literal 0x1
00bf 00da | | Load_Top At_Offset_2
00c0 e001 | | Load 0x0,0x1
00c1 181f | | Execute Package,Field_Execute,Field_Number 0x1f
00c2 00da | | Load_Top At_Offset_2
00c3 017d | } | Execute Record,Structure_Write
00c4 7803 |x | Jump 0xc8
00c5 e001 | | Load 0x0,0x1 ; Debug Table 0x4.0x8 = 0xc5,0x7
00c6 1b15 | | Execute Package,Field_Read,Field_Number 0x15
00c7 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
00c8 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x4.0x9 = 0xc8,0x8
00c9 e5fa | | Load 0x2,-0x6
00ca e5fb | | Load 0x2,-0x5
00cb e5fc | | Load 0x2,-0x4
00cc 0f00 | | Execute_Immediate Equal,0x0
00cd e5fe | | Load 0x2,-0x2
00ce 8214 | | Call 0x1,0x14
00cf 00d1 | | Pop_Control Pop_Count_1
00d0 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x4.0xa = 0xd0,0x9
00d1 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
00d2 0000 0000 | | .BLANK 0000[0x6]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00dc | | .CONST 0x00dc ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0002 | | .CONST 0x0002 ; Number of locals
00db INIT_00d8:
00db 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x5 = .DEBUG 0x00db,0x0294,0x0002,0x0000,0x0033,0xd704,0x0000,0x0038
; Debug Table 0x5.0x0 = 0xdb,0xffff
00dc BODY_00d8:
00dc 00db | | Load_Top At_Offset_3 ; Debug Table 0x5.0x1 = 0xdc,0x1
00dd 00eb | | Load_Encached Diana_Cache
00de 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00df 0ba8 | | Execute_Immediate Case_Compare,0xa8
00e0 700f |p | Jump_Nonzero 0xf0
00e1 e5ff | | Load 0x2,-0x1 ; Debug Table 0x5.0x2 = 0xe1,0x3
00e2 00eb | | Load_Encached Diana_Cache
00e3 18ec | | Execute Package,Field_Execute,Field_Number 0xec
00e4 0032 | 2 | Store_Top Heap_Access,At_Offset_2
00e5 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x5.0x3 = 0xe5,0x4
00e6 00eb | | Load_Encached Diana_Cache
00e7 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00e8 0ba8 | | Execute_Immediate Case_Compare,0xa8
00e9 7002 |p | Jump_Nonzero 0xec
00ea e5ff | | Load 0x2,-0x1 ; Debug Table 0x5.0x4 = 0xea,0x6
00eb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00ec 00da | | Load_Top At_Offset_2 ; Debug Table 0x5.0x5 = 0xec,0x5
00ed 00eb | | Load_Encached Diana_Cache
00ee 18bb | | Execute Package,Field_Execute,Field_Number 0xbb
00ef 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00f0 e5ff | | Load 0x2,-0x1 ; Debug Table 0x5.0x6 = 0xf0,0x2
00f1 00eb | | Load_Encached Diana_Cache
00f2 18bb | | Execute Package,Field_Execute,Field_Number 0xbb
00f3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00f4 0000 0000 | | .BLANK 0000[0x4]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fe | | .CONST 0x00fe ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0002 | | .CONST 0x0002 ; Number of locals
00fb INIT_00f8:
00fb 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x6 = .DEBUG 0x00fb,0x02a4,0x0002,0x0000,0x0033,0xd704,0x0000,0x0090
; Debug Table 0x6.0x0 = 0xfb,0xffff
00fc 00db | | Load_Top At_Offset_3
00fd 0031 | 1 | Store_Top Heap_Access,At_Offset_1
00fe BODY_00f8:
00fe 00cf | | Action Mark_Auxiliary
00ff 0007 | | Action Break_Optional ; Debug Table 0x6.0x1 = 0xff,0x1
0100 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x6.0x2 = 0x100,0x2
0101 00eb | | Load_Encached Diana_Cache
0102 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0103 0ba8 | | Execute_Immediate Case_Compare,0xa8
0104 7016 |p | Jump_Nonzero 0x11b
0105 0b49 | I | Execute_Immediate Case_Compare,0x49
0106 7019 |p | Jump_Nonzero 0x120
0107 0b41 | A | Execute_Immediate Case_Compare,0x41
0108 701c |p | Jump_Nonzero 0x125
0109 0b3b | ; | Execute_Immediate Case_Compare,0x3b
010a 701f |p | Jump_Nonzero 0x12a
010b 0b3f | ? | Execute_Immediate Case_Compare,0x3f
010c 702a |p* | Jump_Nonzero 0x137
010d 0b3e | > | Execute_Immediate Case_Compare,0x3e
010e 702c |p, | Jump_Nonzero 0x13b
010f 0b73 | s | Execute_Immediate Case_Compare,0x73
0110 702e |p. | Jump_Nonzero 0x13f
0111 0b47 | G | Execute_Immediate Case_Compare,0x47
0112 702e |p. | Jump_Nonzero 0x141
0113 0b46 | F | Execute_Immediate Case_Compare,0x46
0114 702c |p, | Jump_Nonzero 0x141
0115 0b48 | H | Execute_Immediate Case_Compare,0x48
0116 702a |p* | Jump_Nonzero 0x141
0117 0b7c | | | Execute_Immediate Case_Compare,0x7c
0118 702c |p, | Jump_Nonzero 0x145
0119 e211 | | Load 0x1,0x11 ; Debug Table 0x6.0x3 = 0x119,0xf
011a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
011b 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0x4 = 0x11b,0x3
011c 00eb | | Load_Encached Diana_Cache
011d 18e9 | | Execute Package,Field_Execute,Field_Number 0xe9
011e 0033 | 3 | Store_Top Heap_Access,At_Offset_3
011f 7827 |x' | Jump 0x147
0120 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0x5 = 0x120,0x4
0121 00eb | | Load_Encached Diana_Cache
0122 18e5 | | Execute Package,Field_Execute,Field_Number 0xe5
0123 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0124 7822 |x" | Jump 0x147
0125 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0x6 = 0x125,0x5
0126 00eb | | Load_Encached Diana_Cache
0127 18cc | | Execute Package,Field_Execute,Field_Number 0xcc
0128 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0129 781d |x | Jump 0x147
012a 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0x7 = 0x12a,0x6
012b 00eb | | Load_Encached Diana_Cache
012c 18e8 | | Execute Package,Field_Execute,Field_Number 0xe8
012d 0033 | 3 | Store_Top Heap_Access,At_Offset_3
012e 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0x8 = 0x12e,0x7
012f 00eb | | Load_Encached Diana_Cache
0130 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0131 0b73 | s | Execute_Immediate Case_Compare,0x73
0132 7002 |p | Jump_Nonzero 0x135
0133 e211 | | Load 0x1,0x11 ; Debug Table 0x6.0x9 = 0x133,0x9
0134 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0135 00db | | Load_Top At_Offset_3 ; Debug Table 0x6.0xa = 0x135,0x8
0136 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0137 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0xb = 0x137,0xa
0138 00eb | | Load_Encached Diana_Cache
0139 18e6 | | Execute Package,Field_Execute,Field_Number 0xe6
013a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
013b 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0xc = 0x13b,0xb
013c 00eb | | Load_Encached Diana_Cache
013d 18d8 | | Execute Package,Field_Execute,Field_Number 0xd8
013e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
013f 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0xd = 0x13f,0xc
0140 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0141 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0xe = 0x141,0xd
0142 00eb | | Load_Encached Diana_Cache
0143 18b6 | | Execute Package,Field_Execute,Field_Number 0xb6
0144 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0145 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0xf = 0x145,0xe
0146 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0147 00d1 | | Pop_Control Pop_Count_1
0148 00c9 | | Action Pop_Auxiliary_Loop
0149 7fb6 | | Jump 0x100
014a 0000 0000 | | .BLANK 0000[0x6]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0155 | U | .CONST 0x0155 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0002 | | .CONST 0x0002 ; Number of locals
0153 INIT_0150:
0153 029f 0193 | | Declare_Subprogram INIT_0190,For_Call ; Debug Table 0x7 = .DEBUG 0x0153,0x02c6,0x0001,0x0000,0x0033,0xd704,0x0000,0x0148
; Debug Table 0x7.0x0 = 0x153,0xffff
0155 BODY_0150:
0155 e5fe | | Load 0x2,-0x2 ; Debug Table 0x7.0x1 = 0x155,0x1
0156 6814 |h | Jump_Zero 0x16b
0157 00cf | | Action Mark_Auxiliary
0158 e5fb | | Load 0x2,-0x5 ; Debug Table 0x7.0x2 = 0x158,0x2
0159 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
015a e5fb | | Load 0x2,-0x5
015b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
015c 0264 | d | Execute Discrete,Below_Bound
015d 700b |p | Jump_Nonzero 0x169
015e 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x3 = 0x15e,0x3
015f 8402 | | Call 0x2,0x2
0160 6806 |h | Jump_Zero 0x167
0161 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x4 = 0x161,0x4
0162 0a01 | | Execute_Immediate Plus,0x1
0163 e5fb | | Load 0x2,-0x5
0164 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0165 00d2 | | Pop_Control Pop_Count_2 ; Debug Table 0x7.0x5 = 0x165,0x5
0166 7802 |x | Jump 0x169
0167 00c8 | | Action Pop_Auxiliary_Range
0168 37f5 |7 | Loop_Decreasing 0x15e
0169 00ce | | Action Pop_Auxiliary
016a 7813 |x | Jump 0x17e
016b 00cf | | Action Mark_Auxiliary
016c e5fb | | Load 0x2,-0x5 ; Debug Table 0x7.0x6 = 0x16c,0x6
016d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
016e e5fb | | Load 0x2,-0x5
016f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0170 0263 | c | Execute Discrete,Above_Bound
0171 700b |p | Jump_Nonzero 0x17d
0172 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x7 = 0x172,0x7
0173 8402 | | Call 0x2,0x2
0174 6806 |h | Jump_Zero 0x17b
0175 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x8 = 0x175,0x8
0176 0aff | | Execute_Immediate Plus,-0x1
0177 e5fb | | Load 0x2,-0x5
0178 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0179 00d2 | | Pop_Control Pop_Count_2 ; Debug Table 0x7.0x9 = 0x179,0x9
017a 7802 |x | Jump 0x17d
017b 00c8 | | Action Pop_Auxiliary_Range
017c 3ff5 |? | Loop_Increasing 0x172
017d 00ce | | Action Pop_Auxiliary
017e e5fb | | Load 0x2,-0x5 ; Debug Table 0x7.0xa = 0x17e,0xa
017f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0180 e5fb | | Load 0x2,-0x5
0181 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0182 027d | } | Execute Discrete,Greater
0183 6804 |h | Jump_Zero 0x188
0184 e001 | | Load 0x0,0x1 ; Debug Table 0x7.0xb = 0x184,0xb
0185 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0186 e5fb | | Load 0x2,-0x5
0187 017d | } | Execute Record,Structure_Write
0188 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0189 0000 0000 | | .BLANK 0000[0x7]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 019c | | .CONST 0x019c ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0002 | | .CONST 0x0002 ; Number of locals
0193 INIT_0190:
0193 4820 |H | Short_Literal 0x20 ; Debug Table 0x8 = .DEBUG 0x0193,0x02e0,0x0002,0x0000,0x0033,0xd704,0x0000,0x0163
; Debug Table 0x8.0x0 = 0x193,0xffff
0194 e5ff | | Load 0x2,-0x1
0195 e7ff | | Load 0x3,-0x1
0196 00e4 | | Load_Encached Positive_Cache
0197 025b | [ | Execute Discrete,Check_In_Type
0198 e001 | | Load 0x0,0x1
0199 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
019a e002 | | Load 0x0,0x2
019b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
019c BODY_0190:
019c 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x8.0x1 = 0x19c,0x1
019d 01db | | Execute Vector,Length
019e 0b00 | | Execute_Immediate Case_Compare,0x0
019f 702a |p* | Jump_Nonzero 0x1ca
01a0 0b01 | | Execute_Immediate Case_Compare,0x1
01a1 702a |p* | Jump_Nonzero 0x1cc
01a2 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x8.0x2 = 0x1a2,0x4
01a3 01dd | | Execute Vector,First
01a4 00da | | Load_Top At_Offset_2
01a5 01dd | | Execute Vector,First
01a6 0a01 | | Execute_Immediate Plus,0x1
01a7 0248 | H | Execute Discrete,Check_In_Integer
01a8 00db | | Load_Top At_Offset_3
01a9 01cf | | Execute Vector,Slice_Read
01aa 0092 01d2 | | Action Push_String_Extended,0x1d2 ; "--"
01ac 01df | | Execute Vector,Equal
01ad 681a |h | Jump_Zero 0x1c8
01ae e5fc | | Load 0x2,-0x4 ; Debug Table 0x8.0x3 = 0x1ae,0x5
01af 01db | | Execute Vector,Length
01b0 7002 |p | Jump_Nonzero 0x1b3
01b1 4800 |H | Short_Literal 0x0 ; Debug Table 0x8.0x4 = 0x1b1,0x6
01b2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01b3 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x8.0x5 = 0x1b3,0x7
01b4 01dd | | Execute Vector,First
01b5 0a02 | | Execute_Immediate Plus,0x2
01b6 00da | | Load_Top At_Offset_2
01b7 01dc | | Execute Vector,Last
01b8 027a | z | Execute Discrete,Less_Equal
01b9 680c |h | Jump_Zero 0x1c6
01ba 4800 |H | Short_Literal 0x0 ; Debug Table 0x8.0x6 = 0x1ba,0x8
01bb e5fc | | Load 0x2,-0x4
01bc 00db | | Load_Top At_Offset_3
01bd 01dd | | Execute Vector,First
01be 0a02 | | Execute_Immediate Plus,0x2
01bf 0248 | H | Execute Discrete,Check_In_Integer
01c0 e602 | | Load 0x3,0x2
01c1 01d7 | | Execute Vector,Field_Read
01c2 e002 | | Load 0x0,0x2
01c3 181e | | Execute Package,Field_Execute,Field_Number 0x1e
01c4 0f00 | | Execute_Immediate Equal,0x0
01c5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01c6 4801 |H | Short_Literal 0x1 ; Debug Table 0x8.0x7 = 0x1c6,0x9
01c7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01c8 4801 |H | Short_Literal 0x1 ; Debug Table 0x8.0x8 = 0x1c8,0xa
01c9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ca e5fd | | Load 0x2,-0x3 ; Debug Table 0x8.0x9 = 0x1ca,0x2
01cb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01cc 4801 |H | Short_Literal 0x1 ; Debug Table 0x8.0xa = 0x1cc,0x3
01cd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ce ; --------------------------------------------------------------------------------------
01ce ; STRING TABLE
01ce ; --------------------------------------------------------------------------------------
01ce 000c | | .STRTAB 0x000c->0x01d4 ; "BEFORE"
01cf 0010 | | .STRTAB 0x0010->0x01d7 ; "AFTER"
01d0 0013 | | .STRTAB 0x0013->0x01d9 ; "EVERYTHING"
01d1 001b | | .STRTAB 0x001b->0x01de ; "INSIDE"
01d2 001f | | .STRTAB 0x001f->0x01e1 ; "--"
01d3 001f | | .STREND 0x001f->0x01e2
01d4 4245 464f |BEFO| .STRTAB_STRINGS
01e3 0000 0000 | | .BLANK 0000[0x5]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; Debug Table
01e8 ; --------------------------------------------------------------------------------------
01e8 0003 0009 | | .CONST 0x0003,0x0009
01ea 000b 0232 | 2| .DEBUG 0x000b,0x0232,0x8000,0x0000,0x0032,0xc7f4,0x0000,0x0007
01f2 0019 023c | <| .DEBUG 0x0019,0x023c,0x8000,0x0000,0x0033,0xd704,0x0000,0x0009
01fa 0033 0256 | 3 V| .DEBUG 0x0033,0x0256,0x0005,0x0000,0x0032,0xc7f4,0x0000,0x0008
0202 004b 0258 | K X| .DEBUG 0x004b,0x0258,0x0002,0x0000,0x0032,0xc7f4,0x0000,0x0017
020a 009b 027c | || .DEBUG 0x009b,0x027c,0x0002,0x0000,0x0032,0xc7f4,0x0000,0x002f
0212 00db 0294 | | .DEBUG 0x00db,0x0294,0x0002,0x0000,0x0033,0xd704,0x0000,0x0038
021a 00fb 02a4 | | .DEBUG 0x00fb,0x02a4,0x0002,0x0000,0x0033,0xd704,0x0000,0x0090
0222 0153 02c6 | S | .DEBUG 0x0153,0x02c6,0x0001,0x0000,0x0033,0xd704,0x0000,0x0148
022a 0193 02e0 | | .DEBUG 0x0193,0x02e0,0x0002,0x0000,0x0033,0xd704,0x0000,0x0163
0232 ; --------------------------------------------------------------------------------------
0232 ; Debug3 Subtable 0x0
0232 ; --------------------------------------------------------------------------------------
0232 0004 0000 | | .DBG3TAB 0x0004,0x0000
0234 000b ffff | | .CONST 0x000b,0xffff
0236 0010 fffe | | .CONST 0x0010,0xfffe
0238 0014 fffd | | .CONST 0x0014,0xfffd
023a 0016 fffc | | .CONST 0x0016,0xfffc
023c ; --------------------------------------------------------------------------------------
023c ; Debug3 Subtable 0x1
023c ; --------------------------------------------------------------------------------------
023c 000c 0000 | | .DBG3TAB 0x000c,0x0000
023e 0019 ffff | | .CONST 0x0019,0xffff
0240 001a fffe | | .CONST 0x001a,0xfffe
0242 001b fffd | | .CONST 0x001b,0xfffd
0244 001c fffc | | .CONST 0x001c,0xfffc
0246 0020 fffb | | .CONST 0x0020,0xfffb
0248 0022 fffa | " | .CONST 0x0022,0xfffa
024a 0023 fff9 | # | .CONST 0x0023,0xfff9
024c 0025 fff8 | % | .CONST 0x0025,0xfff8
024e 0026 fff7 | & | .CONST 0x0026,0xfff7
0250 0028 fff6 | ( | .CONST 0x0028,0xfff6
0252 0029 fff5 | ) | .CONST 0x0029,0xfff5
0254 002b fff4 | + | .CONST 0x002b,0xfff4
0256 ; --------------------------------------------------------------------------------------
0256 ; Debug3 Subtable 0x2
0256 ; --------------------------------------------------------------------------------------
0256 0000 0000 | | .DBG3TAB 0x0000,0x0000
0258 ; --------------------------------------------------------------------------------------
0258 ; Debug3 Subtable 0x3
0258 ; --------------------------------------------------------------------------------------
0258 0002 000f | | .DBG3TAB 0x0002,0x000f
025a 004b ffff | K | .CONST 0x004b,0xffff
025c 0051 fffe | Q | .CONST 0x0051,0xfffe
025e 0052 0001 | R | .CONST 0x0052,0x0001
0260 0059 0002 | Y | .CONST 0x0059,0x0002
0262 005c 0003 | \ | .CONST 0x005c,0x0003
0264 005e 0004 | ^ | .CONST 0x005e,0x0004
0266 0061 0005 | a | .CONST 0x0061,0x0005
0268 0065 0006 | e | .CONST 0x0065,0x0006
026a 0067 0007 | g | .CONST 0x0067,0x0007
026c 006e 0008 | n | .CONST 0x006e,0x0008
026e 0074 0009 | t | .CONST 0x0074,0x0009
0270 0076 000a | v | .CONST 0x0076,0x000a
0272 007b 000b | { | .CONST 0x007b,0x000b
0274 0085 000c | | .CONST 0x0085,0x000c
0276 008a 000d | | .CONST 0x008a,0x000d
0278 008e 000e | | .CONST 0x008e,0x000e
027a 0090 000f | | .CONST 0x0090,0x000f
027c ; --------------------------------------------------------------------------------------
027c ; Debug3 Subtable 0x4
027c ; --------------------------------------------------------------------------------------
027c 0002 0009 | | .DBG3TAB 0x0002,0x0009
027e 009b ffff | | .CONST 0x009b,0xffff
0280 009e fffe | | .CONST 0x009e,0xfffe
0282 009f 0001 | | .CONST 0x009f,0x0001
0284 00a5 0002 | | .CONST 0x00a5,0x0002
0286 00ae 0003 | | .CONST 0x00ae,0x0003
0288 00b6 0004 | | .CONST 0x00b6,0x0004
028a 00b9 0005 | | .CONST 0x00b9,0x0005
028c 00bd 0006 | | .CONST 0x00bd,0x0006
028e 00c5 0007 | | .CONST 0x00c5,0x0007
0290 00c8 0008 | | .CONST 0x00c8,0x0008
0292 00d0 0009 | | .CONST 0x00d0,0x0009
0294 ; --------------------------------------------------------------------------------------
0294 ; Debug3 Subtable 0x5
0294 ; --------------------------------------------------------------------------------------
0294 0001 0006 | | .DBG3TAB 0x0001,0x0006
0296 00db ffff | | .CONST 0x00db,0xffff
0298 00dc 0001 | | .CONST 0x00dc,0x0001
029a 00e1 0003 | | .CONST 0x00e1,0x0003
029c 00e5 0004 | | .CONST 0x00e5,0x0004
029e 00ea 0006 | | .CONST 0x00ea,0x0006
02a0 00ec 0005 | | .CONST 0x00ec,0x0005
02a2 00f0 0002 | | .CONST 0x00f0,0x0002
02a4 ; --------------------------------------------------------------------------------------
02a4 ; Debug3 Subtable 0x6
02a4 ; --------------------------------------------------------------------------------------
02a4 0001 000f | | .DBG3TAB 0x0001,0x000f
02a6 00fb ffff | | .CONST 0x00fb,0xffff
02a8 00ff 0001 | | .CONST 0x00ff,0x0001
02aa 0100 0002 | | .CONST 0x0100,0x0002
02ac 0119 000f | | .CONST 0x0119,0x000f
02ae 011b 0003 | | .CONST 0x011b,0x0003
02b0 0120 0004 | | .CONST 0x0120,0x0004
02b2 0125 0005 | % | .CONST 0x0125,0x0005
02b4 012a 0006 | * | .CONST 0x012a,0x0006
02b6 012e 0007 | . | .CONST 0x012e,0x0007
02b8 0133 0009 | 3 | .CONST 0x0133,0x0009
02ba 0135 0008 | 5 | .CONST 0x0135,0x0008
02bc 0137 000a | 7 | .CONST 0x0137,0x000a
02be 013b 000b | ; | .CONST 0x013b,0x000b
02c0 013f 000c | ? | .CONST 0x013f,0x000c
02c2 0141 000d | A | .CONST 0x0141,0x000d
02c4 0145 000e | E | .CONST 0x0145,0x000e
02c6 ; --------------------------------------------------------------------------------------
02c6 ; Debug3 Subtable 0x7
02c6 ; --------------------------------------------------------------------------------------
02c6 0001 000b | | .DBG3TAB 0x0001,0x000b
02c8 0153 ffff | S | .CONST 0x0153,0xffff
02ca 0155 0001 | U | .CONST 0x0155,0x0001
02cc 0158 0002 | X | .CONST 0x0158,0x0002
02ce 015e 0003 | ^ | .CONST 0x015e,0x0003
02d0 0161 0004 | a | .CONST 0x0161,0x0004
02d2 0165 0005 | e | .CONST 0x0165,0x0005
02d4 016c 0006 | l | .CONST 0x016c,0x0006
02d6 0172 0007 | r | .CONST 0x0172,0x0007
02d8 0175 0008 | u | .CONST 0x0175,0x0008
02da 0179 0009 | y | .CONST 0x0179,0x0009
02dc 017e 000a | ~ | .CONST 0x017e,0x000a
02de 0184 000b | | .CONST 0x0184,0x000b
02e0 ; --------------------------------------------------------------------------------------
02e0 ; Debug3 Subtable 0x8
02e0 ; --------------------------------------------------------------------------------------
02e0 0001 000a | | .DBG3TAB 0x0001,0x000a
02e2 0193 ffff | | .CONST 0x0193,0xffff
02e4 019c 0001 | | .CONST 0x019c,0x0001
02e6 01a2 0004 | | .CONST 0x01a2,0x0004
02e8 01ae 0005 | | .CONST 0x01ae,0x0005
02ea 01b1 0006 | | .CONST 0x01b1,0x0006
02ec 01b3 0007 | | .CONST 0x01b3,0x0007
02ee 01ba 0008 | | .CONST 0x01ba,0x0008
02f0 01c6 0009 | | .CONST 0x01c6,0x0009
02f2 01c8 000a | | .CONST 0x01c8,0x000a
02f4 01ca 0002 | | .CONST 0x01ca,0x0002
02f6 01cc 0003 | | .CONST 0x01cc,0x0003
02f8 0000 0000 | | .BLANK 0000[0x108]