|
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_0500e0
└─⟦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 0298 | | .CONST 0x0298 ; 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 0054 | T | .CONST 0x0054 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0018 | | .CONST 0x0018 ; Number of locals
000b INIT_0008:
000b e001 | | Load 0x0,0x1 ; Debug Table 0x0 = .DEBUG 0x000b,0x02f2,0x8000,0x0000,0x0056,0xf055,0x0000,0x0009
; Debug Table 0x0.0x0 = 0xb,0xffff
; Debug Table 0x0.0x1 = 0xb,0xfffe
000c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
000d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
000e 0129 | ) | Execute Any,Make_Visible
000f 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0xf,0xfffd
0011 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x11,0xfffc
0013 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x13,0xfffb
0015 00bf | | Action Accept_Activation ; Debug Table 0x0.0x5 = 0x15,0xfffa
; Debug Table 0x0.0x6 = 0x15,0xfff9
0016 61a5 |a | Indirect_Literal Discrete,0x1bc,{0x00000000, 0x0056f165} ; Debug Table 0x1 = .DEBUG 0x0016,0x0302,0x8000,0x0000,0x0056,0xf165,0x0000,0x0005
; Debug Table 0x1.0x0 = 0x16,0xffff
0017 4806 |H | Short_Literal 0x6
0018 0092 01c0 | | Action Push_String_Extended,0x1c0 ; "Parser"
001a 4800 |H | Short_Literal 0x0
001b e002 | | Load 0x0,0x2
001c 1b20 | | Execute Package,Field_Read,Field_Number 0x20
001d 0387 | | Declare_Variable Package
001e 00d8 | | Load_Top At_Offset_0
001f 020f | | Execute Module,Activate
0020 e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x1 = 0x20,0xfffe
; Debug Table 0x1.0x2 = 0x20,0xfffd
0021 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0022 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0023 02a0 | | Declare_Subprogram Null_Subprogram
0024 03ad | | Declare_Type Heap_Access,Defined
0025 029d 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call ; Debug Table 0x1.0x3 = 0x25,0xfffc
; Debug Table 0x1.0x4 = 0x25,0xfffb
0027 029d 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call ; Debug Table 0x1.0x5 = 0x27,0xfffa
0029 029d 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call ; Debug Table 0x1.0x6 = 0x29,0xfff9
002b 6190 |a | Indirect_Literal Discrete,0x1bc,{0x00000000, 0x0056f165} ; Debug Table 0x1.0x7 = 0x2b,0xfff8
002c 49f1 |I | Short_Literal 0x1f1
002d e001 | | Load 0x0,0x1
002e 1b13 | | Execute Package,Field_Read,Field_Number 0x13
002f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0030 e212 | | Load 0x1,0x12
0031 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0032 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0033 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0034 0092 01c1 | | Action Push_String_Extended,0x1c1 ; "Switch_Set"
0036 4803 |H | Short_Literal 0x3
0037 e211 | | Load 0x1,0x11
0038 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0039 0387 | | Declare_Variable Package
003a 00d8 | | Load_Top At_Offset_0
003b 020f | | Execute Module,Activate
003c 029d 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call ; Debug Table 0x1.0x8 = 0x3c,0xfff7
003e 617d |a} | Indirect_Literal Discrete,0x1bc,{0x00000000, 0x0056f165} ; Debug Table 0x1.0x9 = 0x3e,0xfff6
003f 4a41 |JA | Short_Literal 0x241
0040 484c |HL | Short_Literal 0x4c
0041 0092 01c2 | | Action Push_String_Extended,0x1c2 ; "Configuration"
0043 e001 | | Load 0x0,0x1
0044 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0045 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0046 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0047 e002 | | Load 0x0,0x2
0048 191e | | Execute Package,Field_Reference,Field_Number 0x1e
0049 e216 | | Load 0x1,0x16
004a 1b16 | | Execute Package,Field_Read,Field_Number 0x16
004b 0387 | | Declare_Variable Package
004c 00d8 | | Load_Top At_Offset_0
004d 020f | | Execute Module,Activate
004e 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0xa = 0x4e,0xfff5
004f 00c7 | | Action Elaborate_Subprogram
0050 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0xb = 0x50,0xfff4
0051 00c7 | | Action Elaborate_Subprogram
0052 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0xc = 0x52,0xfff3
0053 00c7 | | Action Elaborate_Subprogram
0054 BODY_0008:
0054 00bc | | Action Signal_Activated
0055 00bb | | Action Signal_Completion
0056 0000 0000 | | .XXX[0x2]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b | [ | .CONST 0x005b ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0001 | | .CONST 0x0001 ; Number of locals
005b BODY_0058:
005b INIT_0058:
005b 615c |a\ | Indirect_Literal Discrete,0x1b8,{0x00000000, 0x00004000} ; Debug Table 0x2 = .DEBUG 0x005b,0x031e,0x0002,0x0000,0x0056,0xf055,0x0000,0x0016
; Debug Table 0x2.0x0 = 0x5b,0x1
005c e003 | | Load 0x0,0x3
005d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
005e e5ff | | Load 0x2,-0x1
005f e218 | | Load 0x1,0x18
0060 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0061 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0062 0000 0000 | | .BLANK 0000[0x6]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006f | o | .CONST 0x006f ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0002 | | .CONST 0x0002 ; Number of locals
006b INIT_0068:
006b 00db | | Load_Top At_Offset_3 ; Debug Table 0x3 = .DEBUG 0x006b,0x0322,0x0001,0x0000,0x0056,0xf055,0x0000,0x0021
; Debug Table 0x3.0x0 = 0x6b,0xffff
006c 01db | | Execute Vector,Length
006d 00e3 | | Load_Encached Natural_Cache
006e 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
006f BODY_0068:
006f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x1 = 0x6f,0x1
0070 0c80 | | Execute_Immediate Greater_Equal,-0x80
0071 6802 |h | Jump_Zero 0x74
0072 487f |H | Short_Literal 0x7f ; Debug Table 0x3.0x2 = 0x72,0x2
0073 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0074 6143 |aC | Indirect_Literal Discrete,0x1b8,{0x00000000, 0x00004000} ; Debug Table 0x3.0x3 = 0x74,0x3
0075 e003 | | Load 0x0,0x3
0076 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0077 e5fe | | Load 0x2,-0x2
0078 01dd | | Execute Vector,First
0079 e5fe | | Load 0x2,-0x2
007a 01dd | | Execute Vector,First
007b e402 | | Load 0x2,0x2
007c 0273 | s | Execute Discrete,Plus
007d 0aff | | Execute_Immediate Plus,-0x1
007e 0248 | H | Execute Discrete,Check_In_Integer
007f e5fe | | Load 0x2,-0x2
0080 01cf | | Execute Vector,Slice_Read
0081 e5ff | | Load 0x2,-0x1
0082 820e | | Call 0x1,0xe
0083 e001 | | Load 0x0,0x1
0084 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0085 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0086 e5ff | | Load 0x2,-0x1
0087 e218 | | Load 0x1,0x18
0088 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0089 4503 |E | Exit_Suprogram New_Top_Offset 0x3
008a 0000 0000 | | .BLANK 0000[0x6]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0097 | | .CONST 0x0097 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0002 | | .CONST 0x0002 ; Number of locals
0093 INIT_0090:
0093 00db | | Load_Top At_Offset_3 ; Debug Table 0x4 = .DEBUG 0x0093,0x032c,0x0001,0x0000,0x0056,0xf055,0x0000,0x002f
; Debug Table 0x4.0x0 = 0x93,0xffff
0094 01db | | Execute Vector,Length
0095 00e3 | | Load_Encached Natural_Cache
0096 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0097 BODY_0090:
0097 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x1 = 0x97,0x1
0098 0c80 | | Execute_Immediate Greater_Equal,-0x80
0099 6802 |h | Jump_Zero 0x9c
009a 487f |H | Short_Literal 0x7f ; Debug Table 0x4.0x2 = 0x9a,0x2
009b 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
009c 611b |a | Indirect_Literal Discrete,0x1b8,{0x00000000, 0x00004000} ; Debug Table 0x4.0x3 = 0x9c,0x3
009d e003 | | Load 0x0,0x3
009e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
009f e5fe | | Load 0x2,-0x2
00a0 01dd | | Execute Vector,First
00a1 e5fe | | Load 0x2,-0x2
00a2 01dd | | Execute Vector,First
00a3 e402 | | Load 0x2,0x2
00a4 0273 | s | Execute Discrete,Plus
00a5 0aff | | Execute_Immediate Plus,-0x1
00a6 0248 | H | Execute Discrete,Check_In_Integer
00a7 e5fe | | Load 0x2,-0x2
00a8 01cf | | Execute Vector,Slice_Read
00a9 e5ff | | Load 0x2,-0x1
00aa 820e | | Call 0x1,0xe
00ab e001 | | Load 0x0,0x1
00ac 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00ad 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00ae e5ff | | Load 0x2,-0x1
00af e218 | | Load 0x1,0x18
00b0 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00b1 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00b2 0000 0000 | | .BLANK 0000[0x6]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bd | | .CONST 0x00bd ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0002 | | .CONST 0x0002 ; Number of locals
00bb INIT_00b8:
00bb 029f 0143 | C| Declare_Subprogram INIT_0140,For_Call ; Debug Table 0x5 = .DEBUG 0x00bb,0x0336,0x0002,0x0000,0x0056,0xf165,0x0000,0x0020
; Debug Table 0x5.0x0 = 0xbb,0xffff
00bd BODY_00b8:
00bd 0092 01c3 | | Action Push_String_Extended,0x1c3 ; "("
; Debug Table 0x5.0x1 = 0xbd,0x1
00bf 4801 |H | Short_Literal 0x1
00c0 8402 | | Call 0x2,0x2
00c1 01cc | | Execute Vector,Catenate
00c2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00c3 0000 0000 | | .BLANK 0000[0x5]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00d3 | | .CONST 0x00d3 ; Address of begin
00c9 00e0 | | .CONST 0x00e0 ; Address of exception handler
00ca 0005 | | .CONST 0x0005 ; Number of locals
00cb INIT_00c8:
00cb 00da | | Load_Top At_Offset_2 ; Debug Table 0x6 = .DEBUG 0x00cb,0x033c,0x0002,0x0000,0x0056,0xf165,0x0000,0x0084
; Debug Table 0x6.0x0 = 0xcb,0xffff
00cc 01dd | | Execute Vector,First
00cd 00e3 | | Load_Encached Natural_Cache
00ce 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
00cf 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x6.0x1 = 0xcf,0xfffe
00d0 00e8 | | Load_Encached Character_Cache ; Debug Table 0x6.0x2 = 0xd0,0xfffd
00d1 029f 016b | k| Declare_Subprogram INIT_0168,For_Call ; Debug Table 0x6.0x3 = 0xd1,0xfffc
00d3 BODY_00c8:
00d3 00db | | Load_Top At_Offset_3 ; Debug Table 0x6.0x4 = 0xd3,0x1
00d4 e5ff | | Load 0x2,-0x1
00d5 01d7 | | Execute Vector,Field_Read
00d6 0e28 | ( | Execute_Immediate Not_Equal,0x28
00d7 6803 |h | Jump_Zero 0xdb
00d8 e002 | | Load 0x0,0x2 ; Debug Table 0x6.0x5 = 0xd8,0x2
00d9 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00da 0257 | W | Execute Discrete,Raise
00db 00db | | Load_Top At_Offset_3 ; Debug Table 0x6.0x6 = 0xdb,0x3
00dc 0a01 | | Execute_Immediate Plus,0x1
00dd c402 | | Store 0x2,0x2
00de 8405 | | Call 0x2,0x5 ; Debug Table 0x6.0x7 = 0xde,0x4
00df 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00e0 TRAP_00c8:
00e0 0007 | | Action Break_Optional
00e1 e002 | | Load 0x0,0x2 ; Debug Table 0x6.0x8 = 0xe1,0x5
00e2 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00e3 0257 | W | Execute Discrete,Raise
00e4 0000 0000 | | .BLANK 0000[0x4]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00f3 | | .CONST 0x00f3 ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0005 | | .CONST 0x0005 ; Number of locals
00eb INIT_00e8:
00eb 00da | | Load_Top At_Offset_2 ; Debug Table 0x7 = .DEBUG 0x00eb,0x0350,0x0002,0x0000,0x0056,0xf165,0x0000,0x0153
; Debug Table 0x7.0x0 = 0xeb,0xffff
00ec 01dd | | Execute Vector,First
00ed 00e3 | | Load_Encached Natural_Cache
00ee 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
00ef 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x7.0x1 = 0xef,0xfffe
00f0 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x7.0x2 = 0xf0,0xfffd
00f1 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00f2 00e8 | | Load_Encached Character_Cache ; Debug Table 0x7.0x3 = 0xf2,0xfffc
00f3 BODY_00e8:
00f3 00db | | Load_Top At_Offset_3 ; Debug Table 0x7.0x4 = 0xf3,0x1
00f4 e5ff | | Load 0x2,-0x1
00f5 01d7 | | Execute Vector,Field_Read
00f6 0e28 | ( | Execute_Immediate Not_Equal,0x28
00f7 6803 |h | Jump_Zero 0xfb
00f8 0092 01c4 | | Action Push_String_Extended,0x1c4 ; "missing leading parenthesis"
; Debug Table 0x7.0x5 = 0xf8,0x2
00fa 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00fb 00db | | Load_Top At_Offset_3 ; Debug Table 0x7.0x6 = 0xfb,0x3
00fc 0a01 | | Execute_Immediate Plus,0x1
00fd c402 | | Store 0x2,0x2
00fe 00cf | | Action Mark_Auxiliary
00ff e402 | | Load 0x2,0x2 ; Debug Table 0x7.0x7 = 0xff,0x4
; Debug Table 0x7.0x8 = 0xff,0x5
0100 e5ff | | Load 0x2,-0x1
0101 01dc | | Execute Vector,Last
0102 027f | | Execute Discrete,Equal
0103 7024 |p$ | Jump_Nonzero 0x128
0104 e402 | | Load 0x2,0x2 ; Debug Table 0x7.0x9 = 0x104,0x6
0105 e5ff | | Load 0x2,-0x1
0106 01d7 | | Execute Vector,Field_Read
0107 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0108 00da | | Load_Top At_Offset_2 ; Debug Table 0x7.0xa = 0x108,0x7
0109 680c |h | Jump_Zero 0x116
010a 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x7.0xb = 0x10a,0x8
010b 0f20 | | Execute_Immediate Equal,0x20
010c 7006 |p | Jump_Nonzero 0x113
010d 00d9 | | Load_Top At_Offset_1
010e 0f2c | , | Execute_Immediate Equal,0x2c
010f 7003 |p | Jump_Nonzero 0x113
0110 00d9 | | Load_Top At_Offset_1
0111 0f29 | ) | Execute_Immediate Equal,0x29
0112 6810 |h | Jump_Zero 0x123
0113 4800 |H | Short_Literal 0x0 ; Debug Table 0x7.0xc = 0x113,0x9
0114 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0115 780d |x | Jump 0x123
0116 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x7.0xd = 0x116,0xa
0117 0e20 | | Execute_Immediate Not_Equal,0x20
0118 680a |h | Jump_Zero 0x123
0119 00d9 | | Load_Top At_Offset_1
011a 0e2c | , | Execute_Immediate Not_Equal,0x2c
011b 6807 |h | Jump_Zero 0x123
011c 00d9 | | Load_Top At_Offset_1
011d 0e29 | ) | Execute_Immediate Not_Equal,0x29
011e 6804 |h | Jump_Zero 0x123
011f 4801 |H | Short_Literal 0x1 ; Debug Table 0x7.0xe = 0x11f,0xb
0120 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0121 e402 | | Load 0x2,0x2 ; Debug Table 0x7.0xf = 0x121,0xc
0122 a403 | | Store_Unchecked 0x2,0x3
0123 e402 | | Load 0x2,0x2 ; Debug Table 0x7.0x10 = 0x123,0xd
0124 0a01 | | Execute_Immediate Plus,0x1
0125 c402 | | Store 0x2,0x2
0126 00c9 | | Action Pop_Auxiliary_Loop
0127 7fd7 | | Jump 0xff
0128 00ce | | Action Pop_Auxiliary
0129 00db | | Load_Top At_Offset_3 ; Debug Table 0x7.0x11 = 0x129,0xe
012a e5ff | | Load 0x2,-0x1
012b 01d7 | | Execute Vector,Field_Read
012c 0e29 | ) | Execute_Immediate Not_Equal,0x29
012d 6803 |h | Jump_Zero 0x131
012e 0092 01c5 | | Action Push_String_Extended,0x1c5 ; "missing closing parenthesis"
; Debug Table 0x7.0x12 = 0x12e,0xf
0130 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0131 00ea | | Load_Encached Null_String_Cache ; Debug Table 0x7.0x13 = 0x131,0x10
0132 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0133 0000 0000 | | .BLANK 0000[0x5]
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 0092 01c6 | | Action Push_String_Extended,0x1c6 ; "Contains a list of configuration keywords. For a list of\x0a\x22(foo,bar)\x22, any comment line where the comment begins\x0awith --/foo or --/bar will be treated, minus the --/ and\x0athe keyword, as an ordinary Ada source line. This is a\x0auseful way to hide pragmas and other things on a \x0atarget-configuration-specific basis."
; Debug Table 0x8 = .DEBUG 0x013b,0x037a,0x0002,0x0000,0x0056,0xf165,0x0000,0x0200
; Debug Table 0x8.0x0 = 0x13b,0x1
013d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
013e 0000 0000 | | .XXX[0x2]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0148 | H | .CONST 0x0148 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0002 | | .CONST 0x0002 ; Number of locals
0143 INIT_0140:
0143 00da | | Load_Top At_Offset_2 ; Debug Table 0x9 = .DEBUG 0x0143,0x037e,0x0002,0x0000,0x0056,0xf165,0x0000,0x002a
; Debug Table 0x9.0x0 = 0x143,0xffff
0144 e5ff | | Load 0x2,-0x1
0145 e001 | | Load 0x0,0x1
0146 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0147 180f | | Execute Package,Field_Execute,Field_Number 0xf
0148 BODY_0140:
0148 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x1 = 0x148,0x1
0149 01db | | Execute Vector,Length
014a 7003 |p | Jump_Nonzero 0x14e
014b 0092 01c7 | | Action Push_String_Extended,0x1c7 ; ")"
; Debug Table 0x9.0x2 = 0x14b,0x2
014d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
014e 00db | | Load_Top At_Offset_3 ; Debug Table 0x9.0x3 = 0x14e,0x3
014f 0f01 | | Execute_Immediate Equal,0x1
0150 6808 |h | Jump_Zero 0x159
0151 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x4 = 0x151,0x4
0152 e7ff | | Load 0x3,-0x1
0153 0a01 | | Execute_Immediate Plus,0x1
0154 00e3 | | Load_Encached Natural_Cache
0155 025b | [ | Execute Discrete,Check_In_Type
0156 8402 | | Call 0x2,0x2
0157 01cc | | Execute Vector,Catenate
0158 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0159 0092 01c8 | | Action Push_String_Extended,0x1c8 ; ", "
; Debug Table 0x9.0x5 = 0x159,0x5
015b 00d9 | | Load_Top At_Offset_1
015c 01cc | | Execute Vector,Catenate
015d e7ff | | Load 0x3,-0x1
015e 0a01 | | Execute_Immediate Plus,0x1
015f 00e3 | | Load_Encached Natural_Cache
0160 025b | [ | Execute Discrete,Check_In_Type
0161 8402 | | Call 0x2,0x2
0162 01cc | | Execute Vector,Catenate
0163 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0164 0000 0000 | | .BLANK 0000[0x4]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b | k | .CONST 0x016b ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0001 | | .CONST 0x0001 ; Number of locals
016b BODY_0168:
016b INIT_0168:
016b 00cf | | Action Mark_Auxiliary ; Debug Table 0xa = .DEBUG 0x016b,0x038c,0x0002,0x0000,0x0056,0xf165,0x0000,0x00a0
016c e402 | | Load 0x2,0x2 ; Debug Table 0xa.0x0 = 0x16c,0x1
; Debug Table 0xa.0x1 = 0x16c,0x2
016d e5ff | | Load 0x2,-0x1
016e 01dc | | Execute Vector,Last
016f 027f | | Execute Discrete,Equal
0170 7037 |p7 | Jump_Nonzero 0x1a8
0171 e402 | | Load 0x2,0x2 ; Debug Table 0xa.0x2 = 0x171,0x3
0172 e5ff | | Load 0x2,-0x1
0173 01d7 | | Execute Vector,Field_Read
0174 a404 | | Store_Unchecked 0x2,0x4
0175 e404 | | Load 0x2,0x4 ; Debug Table 0xa.0x3 = 0x175,0x4
0176 0e20 | | Execute_Immediate Not_Equal,0x20
0177 682b |h+ | Jump_Zero 0x1a3
0178 e404 | | Load 0x2,0x4
0179 0e2c | , | Execute_Immediate Not_Equal,0x2c
017a 6828 |h( | Jump_Zero 0x1a3
017b e402 | | Load 0x2,0x2 ; Debug Table 0xa.0x4 = 0x17b,0x5
017c a403 | | Store_Unchecked 0x2,0x3
017d 00cf | | Action Mark_Auxiliary
017e e402 | | Load 0x2,0x2 ; Debug Table 0xa.0x5 = 0x17e,0x6
; Debug Table 0xa.0x6 = 0x17e,0x7
017f 0a01 | | Execute_Immediate Plus,0x1
0180 c402 | | Store 0x2,0x2
0181 e402 | | Load 0x2,0x2 ; Debug Table 0xa.0x7 = 0x181,0x8
0182 e5ff | | Load 0x2,-0x1
0183 01dc | | Execute Vector,Last
0184 027d | } | Execute Discrete,Greater
0185 6803 |h | Jump_Zero 0x189
0186 e002 | | Load 0x0,0x2 ; Debug Table 0xa.0x8 = 0x186,0x9
0187 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0188 0257 | W | Execute Discrete,Raise
0189 e402 | | Load 0x2,0x2 ; Debug Table 0xa.0x9 = 0x189,0xa
018a e5ff | | Load 0x2,-0x1
018b 01d7 | | Execute Vector,Field_Read
018c a404 | | Store_Unchecked 0x2,0x4
018d e404 | | Load 0x2,0x4 ; Debug Table 0xa.0xa = 0x18d,0xb
018e 0f20 | | Execute_Immediate Equal,0x20
018f 7006 |p | Jump_Nonzero 0x196
0190 e404 | | Load 0x2,0x4
0191 0f2c | , | Execute_Immediate Equal,0x2c
0192 7003 |p | Jump_Nonzero 0x196
0193 e404 | | Load 0x2,0x4
0194 0f29 | ) | Execute_Immediate Equal,0x29
0195 680b |h | Jump_Zero 0x1a1
0196 e403 | | Load 0x2,0x3 ; Debug Table 0xa.0xb = 0x196,0xc
0197 e402 | | Load 0x2,0x2
0198 0aff | | Execute_Immediate Plus,-0x1
0199 0248 | H | Execute Discrete,Check_In_Integer
019a e5ff | | Load 0x2,-0x1
019b 01cf | | Execute Vector,Slice_Read
019c 8405 | | Call 0x2,0x5
019d e001 | | Load 0x0,0x1
019e 1b13 | | Execute Package,Field_Read,Field_Number 0x13
019f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01a0 00ca | | Action Exit_Nullary_Function
01a1 00c9 | | Action Pop_Auxiliary_Loop
01a2 7fdb | | Jump 0x17e
01a3 e402 | | Load 0x2,0x2 ; Debug Table 0xa.0xc = 0x1a3,0xd
01a4 0a01 | | Execute_Immediate Plus,0x1
01a5 c402 | | Store 0x2,0x2
01a6 00c9 | | Action Pop_Auxiliary_Loop
01a7 7fc4 | | Jump 0x16c
01a8 00ce | | Action Pop_Auxiliary
01a9 e402 | | Load 0x2,0x2 ; Debug Table 0xa.0xd = 0x1a9,0xe
01aa e5ff | | Load 0x2,-0x1
01ab 01d7 | | Execute Vector,Field_Read
01ac 0e29 | ) | Execute_Immediate Not_Equal,0x29
01ad 6803 |h | Jump_Zero 0x1b1
01ae e002 | | Load 0x0,0x2 ; Debug Table 0xa.0xe = 0x1ae,0xf
01af 1b14 | | Execute Package,Field_Read,Field_Number 0x14
01b0 0257 | W | Execute Discrete,Raise
01b1 e001 | | Load 0x0,0x1 ; Debug Table 0xa.0xf = 0x1b1,0x10
01b2 1b13 | | Execute Package,Field_Read,Field_Number 0x13
01b3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01b4 00ca | | Action Exit_Nullary_Function
01b5 0000 0000 | | .XXX[0x3]
01b7 0000 | |
01b8 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
01bc 0000 0000 | | .LITERAL {0x00000000, 0x0056f165}
01c0 ; --------------------------------------------------------------------------------------
01c0 ; STRING TABLE
01c0 ; --------------------------------------------------------------------------------------
01c0 0014 | | .STRTAB 0x0014->0x01ca ; "Parser"
01c1 0018 | | .STRTAB 0x0018->0x01cd ; "Switch_Set"
01c2 0020 | | .STRTAB 0x0020->0x01d2 ; "Configuration"
01c3 002b | + | .STRTAB 0x002b->0x01d8 ; "("
01c4 002a | * | .STRTAB 0x002a->0x01d9 ; "missing leading parenthesis"
01c5 0043 | C | .STRTAB 0x0043->0x01e6 ; "missing closing parenthesis"
01c6 005c | \ | .STRTAB 0x005c->0x01f4 ; "Contains a list of configuration keywords. For a list of\x0a\x22(foo,bar)\x22, any comment line where the comment begins\x0awith --/foo or --/bar will be treated, minus the --/ and\x0athe keyword, as an ordinary Ada source line. This is a\x0auseful way to hide pragmas and other things on a \x0atarget-configuration-specific basis."
01c7 0192 | | .STRTAB 0x0192->0x0290 ; ")"
01c8 0191 | | .STRTAB 0x0191->0x0290 ; ", "
01c9 0191 | | .STREND 0x0191->0x0291
01ca 5061 7273 |Pars| .STRTAB_STRINGS
0292 0000 0000 | | .BLANK 0000[0x6]
0298 ; --------------------------------------------------------------------------------------
0298 ; Debug Table
0298 ; --------------------------------------------------------------------------------------
0298 0003 000b | | .CONST 0x0003,0x000b
029a 000b 02f2 | | .DEBUG 0x000b,0x02f2,0x8000,0x0000,0x0056,0xf055,0x0000,0x0009
02a2 0016 0302 | | .DEBUG 0x0016,0x0302,0x8000,0x0000,0x0056,0xf165,0x0000,0x0005
02aa 005b 031e | [ | .DEBUG 0x005b,0x031e,0x0002,0x0000,0x0056,0xf055,0x0000,0x0016
02b2 006b 0322 | k "| .DEBUG 0x006b,0x0322,0x0001,0x0000,0x0056,0xf055,0x0000,0x0021
02ba 0093 032c | ,| .DEBUG 0x0093,0x032c,0x0001,0x0000,0x0056,0xf055,0x0000,0x002f
02c2 00bb 0336 | 6| .DEBUG 0x00bb,0x0336,0x0002,0x0000,0x0056,0xf165,0x0000,0x0020
02ca 00cb 033c | <| .DEBUG 0x00cb,0x033c,0x0002,0x0000,0x0056,0xf165,0x0000,0x0084
02d2 00eb 0350 | P| .DEBUG 0x00eb,0x0350,0x0002,0x0000,0x0056,0xf165,0x0000,0x0153
02da 013b 037a | ; z| .DEBUG 0x013b,0x037a,0x0002,0x0000,0x0056,0xf165,0x0000,0x0200
02e2 0143 037e | C ~| .DEBUG 0x0143,0x037e,0x0002,0x0000,0x0056,0xf165,0x0000,0x002a
02ea 016b 038c | k | .DEBUG 0x016b,0x038c,0x0002,0x0000,0x0056,0xf165,0x0000,0x00a0
02f2 ; --------------------------------------------------------------------------------------
02f2 ; Debug3 Subtable 0x0
02f2 ; --------------------------------------------------------------------------------------
02f2 0007 0000 | | .DBG3TAB 0x0007,0x0000
02f4 000b ffff | | .CONST 0x000b,0xffff
02f6 000b fffe | | .CONST 0x000b,0xfffe
02f8 000f fffd | | .CONST 0x000f,0xfffd
02fa 0011 fffc | | .CONST 0x0011,0xfffc
02fc 0013 fffb | | .CONST 0x0013,0xfffb
02fe 0015 fffa | | .CONST 0x0015,0xfffa
0300 0015 fff9 | | .CONST 0x0015,0xfff9
0302 ; --------------------------------------------------------------------------------------
0302 ; Debug3 Subtable 0x1
0302 ; --------------------------------------------------------------------------------------
0302 000d 0000 | | .DBG3TAB 0x000d,0x0000
0304 0016 ffff | | .CONST 0x0016,0xffff
0306 0020 fffe | | .CONST 0x0020,0xfffe
0308 0020 fffd | | .CONST 0x0020,0xfffd
030a 0025 fffc | % | .CONST 0x0025,0xfffc
030c 0025 fffb | % | .CONST 0x0025,0xfffb
030e 0027 fffa | ' | .CONST 0x0027,0xfffa
0310 0029 fff9 | ) | .CONST 0x0029,0xfff9
0312 002b fff8 | + | .CONST 0x002b,0xfff8
0314 003c fff7 | < | .CONST 0x003c,0xfff7
0316 003e fff6 | > | .CONST 0x003e,0xfff6
0318 004e fff5 | N | .CONST 0x004e,0xfff5
031a 0050 fff4 | P | .CONST 0x0050,0xfff4
031c 0052 fff3 | R | .CONST 0x0052,0xfff3
031e ; --------------------------------------------------------------------------------------
031e ; Debug3 Subtable 0x2
031e ; --------------------------------------------------------------------------------------
031e 0000 0001 | | .DBG3TAB 0x0000,0x0001
0320 005b 0001 | [ | .CONST 0x005b,0x0001
0322 ; --------------------------------------------------------------------------------------
0322 ; Debug3 Subtable 0x3
0322 ; --------------------------------------------------------------------------------------
0322 0001 0003 | | .DBG3TAB 0x0001,0x0003
0324 006b ffff | k | .CONST 0x006b,0xffff
0326 006f 0001 | o | .CONST 0x006f,0x0001
0328 0072 0002 | r | .CONST 0x0072,0x0002
032a 0074 0003 | t | .CONST 0x0074,0x0003
032c ; --------------------------------------------------------------------------------------
032c ; Debug3 Subtable 0x4
032c ; --------------------------------------------------------------------------------------
032c 0001 0003 | | .DBG3TAB 0x0001,0x0003
032e 0093 ffff | | .CONST 0x0093,0xffff
0330 0097 0001 | | .CONST 0x0097,0x0001
0332 009a 0002 | | .CONST 0x009a,0x0002
0334 009c 0003 | | .CONST 0x009c,0x0003
0336 ; --------------------------------------------------------------------------------------
0336 ; Debug3 Subtable 0x5
0336 ; --------------------------------------------------------------------------------------
0336 0001 0001 | | .DBG3TAB 0x0001,0x0001
0338 00bb ffff | | .CONST 0x00bb,0xffff
033a 00bd 0001 | | .CONST 0x00bd,0x0001
033c ; --------------------------------------------------------------------------------------
033c ; Debug3 Subtable 0x6
033c ; --------------------------------------------------------------------------------------
033c 0004 0005 | | .DBG3TAB 0x0004,0x0005
033e 00cb ffff | | .CONST 0x00cb,0xffff
0340 00cf fffe | | .CONST 0x00cf,0xfffe
0342 00d0 fffd | | .CONST 0x00d0,0xfffd
0344 00d1 fffc | | .CONST 0x00d1,0xfffc
0346 00d3 0001 | | .CONST 0x00d3,0x0001
0348 00d8 0002 | | .CONST 0x00d8,0x0002
034a 00db 0003 | | .CONST 0x00db,0x0003
034c 00de 0004 | | .CONST 0x00de,0x0004
034e 00e1 0005 | | .CONST 0x00e1,0x0005
0350 ; --------------------------------------------------------------------------------------
0350 ; Debug3 Subtable 0x7
0350 ; --------------------------------------------------------------------------------------
0350 0004 0010 | | .DBG3TAB 0x0004,0x0010
0352 00eb ffff | | .CONST 0x00eb,0xffff
0354 00ef fffe | | .CONST 0x00ef,0xfffe
0356 00f0 fffd | | .CONST 0x00f0,0xfffd
0358 00f2 fffc | | .CONST 0x00f2,0xfffc
035a 00f3 0001 | | .CONST 0x00f3,0x0001
035c 00f8 0002 | | .CONST 0x00f8,0x0002
035e 00fb 0003 | | .CONST 0x00fb,0x0003
0360 00ff 0004 | | .CONST 0x00ff,0x0004
0362 00ff 0005 | | .CONST 0x00ff,0x0005
0364 0104 0006 | | .CONST 0x0104,0x0006
0366 0108 0007 | | .CONST 0x0108,0x0007
0368 010a 0008 | | .CONST 0x010a,0x0008
036a 0113 0009 | | .CONST 0x0113,0x0009
036c 0116 000a | | .CONST 0x0116,0x000a
036e 011f 000b | | .CONST 0x011f,0x000b
0370 0121 000c | ! | .CONST 0x0121,0x000c
0372 0123 000d | # | .CONST 0x0123,0x000d
0374 0129 000e | ) | .CONST 0x0129,0x000e
0376 012e 000f | . | .CONST 0x012e,0x000f
0378 0131 0010 | 1 | .CONST 0x0131,0x0010
037a ; --------------------------------------------------------------------------------------
037a ; Debug3 Subtable 0x8
037a ; --------------------------------------------------------------------------------------
037a 0000 0001 | | .DBG3TAB 0x0000,0x0001
037c 013b 0001 | ; | .CONST 0x013b,0x0001
037e ; --------------------------------------------------------------------------------------
037e ; Debug3 Subtable 0x9
037e ; --------------------------------------------------------------------------------------
037e 0001 0005 | | .DBG3TAB 0x0001,0x0005
0380 0143 ffff | C | .CONST 0x0143,0xffff
0382 0148 0001 | H | .CONST 0x0148,0x0001
0384 014b 0002 | K | .CONST 0x014b,0x0002
0386 014e 0003 | N | .CONST 0x014e,0x0003
0388 0151 0004 | Q | .CONST 0x0151,0x0004
038a 0159 0005 | Y | .CONST 0x0159,0x0005
038c ; --------------------------------------------------------------------------------------
038c ; Debug3 Subtable 0xa
038c ; --------------------------------------------------------------------------------------
038c 0000 0010 | | .DBG3TAB 0x0000,0x0010
038e 016c 0001 | l | .CONST 0x016c,0x0001
0390 016c 0002 | l | .CONST 0x016c,0x0002
0392 0171 0003 | q | .CONST 0x0171,0x0003
0394 0175 0004 | u | .CONST 0x0175,0x0004
0396 017b 0005 | { | .CONST 0x017b,0x0005
0398 017e 0006 | ~ | .CONST 0x017e,0x0006
039a 017e 0007 | ~ | .CONST 0x017e,0x0007
039c 0181 0008 | | .CONST 0x0181,0x0008
039e 0186 0009 | | .CONST 0x0186,0x0009
03a0 0189 000a | | .CONST 0x0189,0x000a
03a2 018d 000b | | .CONST 0x018d,0x000b
03a4 0196 000c | | .CONST 0x0196,0x000c
03a6 01a3 000d | | .CONST 0x01a3,0x000d
03a8 01a9 000e | | .CONST 0x01a9,0x000e
03aa 01ae 000f | | .CONST 0x01ae,0x000f
03ac 01b1 0010 | | .CONST 0x01b1,0x0010
03ae 0000 0000 | | .BLANK 0000[0x52]