|
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: 3072 (0xc00)
Notes: 00_class, 5811_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 5811 |X | .CONST 0x5811 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0410 | | .CONST 0x0410 ; 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 0002 | | .CONST 0x0002 ; 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,0x045a,0x8000,0x0000,0x002c,0xbba4,0x0000,0x000f
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 005b | [ | .CONST 0x005b ; Address of begin
0019 0077 | w | .CONST 0x0077 ; Address of exception handler
001a 0013 | | .CONST 0x0013 ; Number of locals
001b INIT_0018:
001b 4801 |H | Short_Literal 0x1 ; Debug Table 0x1 = .DEBUG 0x001b,0x045c,0x8001,0x0000,0x002c,0xbba4,0x0000,0x000f
; Debug Table 0x1.0x0 = 0x1b,0xffff
001c 480a |H | Short_Literal 0xa
001d 00e9 | | Load_Encached String_Cache
001e 035b | [ | Declare_Type Array,Constrained
001f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x1 = 0x1f,0xfffe
0020 0337 | 7 | Declare_Variable Array
0021 52ee |R | Indirect_Literal Any,0x310,{0x31323334, 0x35363738}
0022 4801 |H | Short_Literal 0x1 ; Debug Table 0x1.0x2 = 0x22,0xfffd
0023 480c |H | Short_Literal 0xc
0024 00e9 | | Load_Encached String_Cache
0025 0334 | 4 | Declare_Variable Array,With_Constraint
0026 52f1 |R | Indirect_Literal Any,0x318,{0x61626364, 0x65666768}
0027 029f 008b | | Declare_Subprogram INIT_0088,For_Call ; Debug Table 0x1.0x3 = 0x27,0xfffc
0029 029e 00a3 | | Declare_Subprogram INIT_00a0,For_Call,Unelaborated ; Debug Table 0x1.0x4 = 0x29,0xfffb
002b 4806 |H | Short_Literal 0x6 ; Debug Table 0x1.0x5 = 0x2b,0xfffa
002c 4802 |H | Short_Literal 0x2
002d 0099 | | Action Reference_Dynamic
002e 00c7 | | Action Elaborate_Subprogram
002f 4806 |H | Short_Literal 0x6 ; Debug Table 0x1.0x6 = 0x2f,0xfff9
0030 4802 |H | Short_Literal 0x2
0031 0099 | | Action Reference_Dynamic
0032 00c6 | | Action Check_Subprogram_Elaborated
0033 e402 | | Load 0x2,0x2
0034 e403 | | Load 0x2,0x3
0035 0335 | 5 | Declare_Variable Array,Duplicate
0036 00d0 | | Action Swap_Control
0037 00d1 | | Pop_Control Pop_Count_1
0038 4801 |H | Short_Literal 0x1
0039 480a |H | Short_Literal 0xa
003a e404 | | Load 0x2,0x4
003b 01cf | | Execute Vector,Slice_Read
003c 0335 | 5 | Declare_Variable Array,Duplicate
003d 00d0 | | Action Swap_Control
003e 00d1 | | Pop_Control Pop_Count_1
003f e402 | | Load 0x2,0x2
0040 01c3 | | Execute Vector,Check_In_Type
0041 62ca |b | Indirect_Literal Discrete,0x30c,{0x00000000, 0x002cbba4}
0042 4983 |I | Short_Literal 0x183
0043 480c |H | Short_Literal 0xc
0044 0007 | | Action Break_Optional
0045 4806 |H | Short_Literal 0x6 ; Debug Table 0x1.0x7 = 0x45,0xfff8
0046 4802 |H | Short_Literal 0x2
0047 0099 | | Action Reference_Dynamic
0048 00c6 | | Action Check_Subprogram_Elaborated
0049 00e9 | | Load_Encached String_Cache
004a e403 | | Load 0x2,0x3
004b 0335 | 5 | Declare_Variable Array,Duplicate
004c 00d0 | | Action Swap_Control
004d 00d1 | | Pop_Control Pop_Count_1
004e 4802 |H | Short_Literal 0x2
004f 480b |H | Short_Literal 0xb
0050 e404 | | Load 0x2,0x4
0051 01cf | | Execute Vector,Slice_Read
0052 0335 | 5 | Declare_Variable Array,Duplicate
0053 00d0 | | Action Swap_Control
0054 00d1 | | Pop_Control Pop_Count_1
0055 62b6 |b | Indirect_Literal Discrete,0x30c,{0x00000000, 0x002cbba4}
0056 4991 |I | Short_Literal 0x191
0057 4812 |H | Short_Literal 0x12
0058 0007 | | Action Break_Optional
0059 029f 016b | k| Declare_Subprogram INIT_0168,For_Call ; Debug Table 0x1.0x8 = 0x59,0xfff7
005b BODY_0018:
005b 0092 0320 | | Action Push_String_Extended,0x320 ; "read/write of arrays and records"
; Debug Table 0x1.0x9 = 0x5b,0x1
005d 0092 0321 | !| Action Push_String_Extended,0x321 ; "bounds-file"
005f e001 | | Load 0x0,0x1
0060 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0061 0092 0322 | "| Action Push_String_Extended,0x322 ; "Bounds with type test"
; Debug Table 0x1.0xa = 0x61,0x2
0063 e407 | | Load 0x2,0x7
0064 e408 | | Load 0x2,0x8
0065 e409 | | Load 0x2,0x9
0066 480a |H | Short_Literal 0xa
0067 4802 |H | Short_Literal 0x2
0068 0099 | | Action Reference_Dynamic
0069 8406 | | Call 0x2,0x6
006a 0092 0323 | #| Action Push_String_Extended,0x323 ; "Bounds with object test"
; Debug Table 0x1.0xb = 0x6a,0x3
006c e40d | | Load 0x2,0xd
006d e40e | | Load 0x2,0xe
006e e40f | | Load 0x2,0xf
006f 4810 |H | Short_Literal 0x10
0070 4802 |H | Short_Literal 0x2
0071 0099 | | Action Reference_Dynamic
0072 8406 | | Call 0x2,0x6
0073 8413 | | Call 0x2,0x13 ; Debug Table 0x1.0xc = 0x73,0x4
0074 e001 | | Load 0x0,0x1 ; Debug Table 0x1.0xd = 0x74,0x5
0075 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0076 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0077 TRAP_0018:
0077 0007 | | Action Break_Optional
0078 0092 0324 | $| Action Push_String_Extended,0x324 ; "Exception: "
; Debug Table 0x1.0xe = 0x78,0x6
007a e002 | | Load 0x0,0x2
007b 180d | | Execute Package,Field_Execute,Field_Number 0xd
007c 01cc | | Execute Vector,Catenate
007d e001 | | Load 0x0,0x1
007e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
007f e001 | | Load 0x0,0x1 ; Debug Table 0x1.0xf = 0x7f,0x7
0080 1815 | | Execute Package,Field_Execute,Field_Number 0x15
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 00db | | Load_Top At_Offset_3 ; Debug Table 0x2 = .DEBUG 0x008b,0x047e,0x0001,0x0000,0x002c,0xbba4,0x0000,0x002a
; Debug Table 0x2.0x0 = 0x8b,0x1
008c 680c |h | Jump_Zero 0x99
008d 00da | | Load_Top At_Offset_2 ; Debug Table 0x2.0x1 = 0x8d,0x2
008e 0092 0325 | %| Action Push_String_Extended,0x325 ; " failed: "
0090 01cc | | Execute Vector,Catenate
0091 e7fe | | Load 0x3,-0x2
0092 e003 | | Load 0x0,0x3
0093 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0094 025e | ^ | Execute Discrete,Convert
0095 1c01 | | Execute_Immediate Run_Utility,0x1
0096 01cc | | Execute Vector,Catenate
0097 e001 | | Load 0x0,0x1
0098 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0099 4503 |E | Exit_Suprogram New_Top_Offset 0x3
009a 0000 0000 | | .BLANK 0000[0x6]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00c7 | | .CONST 0x00c7 ; Address of begin
00a1 0153 | S | .CONST 0x0153 ; Address of exception handler
00a2 0008 | | .CONST 0x0008 ; Number of locals
00a3 INIT_00a0:
00a3 e004 | | Load 0x0,0x4 ; Debug Table 0x3 = .DEBUG 0x00a3,0x0484,0x2801,0x0003,0x002c,0xbba4,0x0000,0x0058
; Debug Table 0x3.0x0 = 0xa3,0xffff
00a4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00a5 02ff | | Declare_Variable Variant_Record
00a6 00d8 | | Load_Top At_Offset_0
00a7 1c00 | | Execute_Immediate Run_Utility,0x0
00a8 e004 | | Load 0x0,0x4 ; Debug Table 0x3.0x1 = 0xa8,0xfffe
00a9 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00aa 02c7 | | Declare_Variable Any
00ab 00d8 | | Load_Top At_Offset_0
00ac 1c00 | | Execute_Immediate Run_Utility,0x0
00ad e004 | | Load 0x0,0x4 ; Debug Table 0x3.0x2 = 0xad,0xfffd
00ae 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00af 02c7 | | Declare_Variable Any
00b0 e004 | | Load 0x0,0x4
00b1 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00b2 c604 | | Store 0x3,0x4
00b3 e005 | | Load 0x0,0x5 ; Debug Table 0x3.0x3 = 0xb3,0xfffc
00b4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00b5 02c7 | | Declare_Variable Any
00b6 e006 | | Load 0x0,0x6
00b7 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00b8 e005 | | Load 0x0,0x5
00b9 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00ba c605 | | Store 0x3,0x5
00bb 6250 |bP | Indirect_Literal Discrete,0x30c,{0x00000000, 0x002cbba4} ; Debug Table 0x3.0x4 = 0xbb,0xfffb
00bc 4896 |H | Short_Literal 0x96
00bd e7fc | | Load 0x3,-0x4
00be e004 | | Load 0x0,0x4
00bf 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c
00c0 0387 | | Declare_Variable Package
00c1 00d8 | | Load_Top At_Offset_0
00c2 020f | | Execute Module,Activate
00c3 e003 | | Load 0x0,0x3 ; Debug Table 0x3.0x5 = 0xc3,0xfffa
00c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00c5 029f 020b | | Declare_Subprogram INIT_0208,For_Call ; Debug Table 0x3.0x6 = 0xc5,0xfff9
00c7 BODY_00a0:
00c7 00be | | Action Activate_Tasks
00c8 0092 0326 | &| Action Push_String_Extended,0x326 ; "Start "
; Debug Table 0x3.0x7 = 0xc8,0x1
00ca e7fb | | Load 0x3,-0x5
00cb 01cc | | Execute Vector,Catenate
00cc e001 | | Load 0x0,0x1
00cd 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00ce 0092 0327 | '| Action Push_String_Extended,0x327 ; "Create and open a file"
; Debug Table 0x3.0x8 = 0xce,0x2
00d0 e001 | | Load 0x0,0x1
00d1 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00d2 e003 | | Load 0x0,0x3 ; Debug Table 0x3.0x9 = 0xd2,0x3
00d3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00d4 e602 | | Load 0x3,0x2
00d5 e005 | | Load 0x0,0x5
00d6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00d7 4800 |H | Short_Literal 0x0
00d8 4800 |H | Short_Literal 0x0
00d9 e004 | | Load 0x0,0x4
00da 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00db 4800 |H | Short_Literal 0x0
00dc 4800 |H | Short_Literal 0x0
00dd e007 | | Load 0x0,0x7
00de 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00df 4800 |H | Short_Literal 0x0
00e0 e008 | | Load 0x0,0x8
00e1 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00e2 e004 | | Load 0x0,0x4
00e3 181f | | Execute Package,Field_Execute,Field_Number 0x1f
00e4 00d1 | | Pop_Control Pop_Count_1
00e5 005a | Z | Store_Top Discrete,At_Offset_2
00e6 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0xa = 0xe6,0x4
00e7 0092 0328 | (| Action Push_String_Extended,0x328 ; "Create"
00e9 8405 | | Call 0x2,0x5
00ea e003 | | Load 0x0,0x3 ; Debug Table 0x3.0xb = 0xea,0x5
00eb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ec e603 | | Load 0x3,0x3
00ed 0120 | | Execute Any,Is_Value
00ee 6803 |h | Jump_Zero 0xf2
00ef e004 | | Load 0x0,0x4
00f0 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00f1 7801 |x | Jump 0xf3
00f2 e603 | | Load 0x3,0x3
00f3 e605 | | Load 0x3,0x5
00f4 4800 |H | Short_Literal 0x0
00f5 4802 |H | Short_Literal 0x2
00f6 e602 | | Load 0x3,0x2
00f7 e004 | | Load 0x0,0x4
00f8 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
00f9 c603 | | Store 0x3,0x3
00fa 005a | Z | Store_Top Discrete,At_Offset_2
00fb 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0xc = 0xfb,0x6
00fc 0092 0329 | )| Action Push_String_Extended,0x329 ; "Open"
00fe 8405 | | Call 0x2,0x5
00ff e7fd | | Load 0x3,-0x3 ; Debug Table 0x3.0xd = 0xff,0x7
0100 e7fc | | Load 0x3,-0x4
0101 0119 | | Execute Any,Check_In_Formal_Type
0102 e604 | | Load 0x3,0x4
0103 e603 | | Load 0x3,0x3
0104 e606 | | Load 0x3,0x6
0105 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0106 e604 | | Load 0x3,0x4 ; Debug Table 0x3.0xe = 0x106,0x8
0107 e603 | | Load 0x3,0x3
0108 e606 | | Load 0x3,0x6
0109 1810 | | Execute Package,Field_Execute,Field_Number 0x10
010a c604 | | Store 0x3,0x4
010b e7fe | | Load 0x3,-0x2 ; Debug Table 0x3.0xf = 0x10b,0x9
010c e7fc | | Load 0x3,-0x4
010d 0119 | | Execute Any,Check_In_Formal_Type
010e e604 | | Load 0x3,0x4
010f e603 | | Load 0x3,0x3
0110 e606 | | Load 0x3,0x6
0111 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0112 0092 032a | *| Action Push_String_Extended,0x32a ; "Write Finished."
; Debug Table 0x3.0x10 = 0x112,0xa
0114 e001 | | Load 0x0,0x1
0115 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0116 e004 | | Load 0x0,0x4 ; Debug Table 0x3.0x11 = 0x116,0xb
0117 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0118 c604 | | Store 0x3,0x4
0119 0092 032b | +| Action Push_String_Extended,0x32b ; "Read of Bounds_With_Type_Data"
; Debug Table 0x3.0x12 = 0x119,0xc
011b e7fd | | Load 0x3,-0x3
011c e7fc | | Load 0x3,-0x4
011d 0119 | | Execute Any,Check_In_Formal_Type
011e e604 | | Load 0x3,0x4
011f e603 | | Load 0x3,0x3
0120 e606 | | Load 0x3,0x6
0121 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0122 e7fc | | Load 0x3,-0x4
0123 0119 | | Execute Any,Check_In_Formal_Type
0124 8608 | | Call 0x3,0x8
0125 e604 | | Load 0x3,0x4 ; Debug Table 0x3.0x13 = 0x125,0xd
0126 e603 | | Load 0x3,0x3
0127 e606 | | Load 0x3,0x6
0128 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0129 c604 | | Store 0x3,0x4
012a 0092 032c | ,| Action Push_String_Extended,0x32c ; "Read of Bounds_With_Object"
; Debug Table 0x3.0x14 = 0x12a,0xe
012c e7fe | | Load 0x3,-0x2
012d e7fc | | Load 0x3,-0x4
012e 0119 | | Execute Any,Check_In_Formal_Type
012f e604 | | Load 0x3,0x4
0130 e603 | | Load 0x3,0x3
0131 e606 | | Load 0x3,0x6
0132 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0133 e7fc | | Load 0x3,-0x4
0134 0119 | | Execute Any,Check_In_Formal_Type
0135 8608 | | Call 0x3,0x8
0136 0092 032d | -| Action Push_String_Extended,0x32d ; "Read Finished"
; Debug Table 0x3.0x15 = 0x136,0xf
0138 e001 | | Load 0x0,0x1
0139 1814 | | Execute Package,Field_Execute,Field_Number 0x14
013a e003 | | Load 0x0,0x3 ; Debug Table 0x3.0x16 = 0x13a,0x10
013b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
013c e603 | | Load 0x3,0x3
013d 4800 |H | Short_Literal 0x0
013e e004 | | Load 0x0,0x4
013f 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0140 c603 | | Store 0x3,0x3
0141 005a | Z | Store_Top Discrete,At_Offset_2
0142 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x17 = 0x142,0x11
0143 0092 032e | .| Action Push_String_Extended,0x32e ; "Close"
0145 8405 | | Call 0x2,0x5
0146 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0x18 = 0x146,0x12
0147 4801 |H | Short_Literal 0x1
0148 4800 |H | Short_Literal 0x0
0149 e005 | | Load 0x0,0x5
014a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
014b c605 | | Store 0x3,0x5
014c 0092 032f | /| Action Push_String_Extended,0x32f ; "Finished "
; Debug Table 0x3.0x19 = 0x14c,0x13
014e e7fb | | Load 0x3,-0x5
014f 01cc | | Execute Vector,Catenate
0150 e001 | | Load 0x0,0x1
0151 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0152 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0153 TRAP_00a0:
0153 0007 | | Action Break_Optional
0154 0092 0324 | $| Action Push_String_Extended,0x324 ; "Exception: "
; Debug Table 0x3.0x1a = 0x154,0x14
0156 e002 | | Load 0x0,0x2
0157 180d | | Execute Package,Field_Execute,Field_Number 0xd
0158 01cc | | Execute Vector,Catenate
0159 e001 | | Load 0x0,0x1
015a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
015b e605 | | Load 0x3,0x5 ; Debug Table 0x3.0x1b = 0x15b,0x15
015c 4801 |H | Short_Literal 0x1
015d 4800 |H | Short_Literal 0x0
015e e005 | | Load 0x0,0x5
015f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0160 c605 | | Store 0x3,0x5
0161 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0162 0000 0000 | | .BLANK 0000[0x6]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 01fe | | .CONST 0x01fe ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 000c | | .CONST 0x000c ; Number of locals
016b INIT_0168:
016b 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x4 = .DEBUG 0x016b,0x04be,0x0001,0x0000,0x002c,0xbba4,0x0000,0x019f
; Debug Table 0x4.0x0 = 0x16b,0xffff
016c 00e7 | | Load_Encached Duration_Cache
016d 4801 |H | Short_Literal 0x1
016e 00e2 | | Load_Encached Integer_Cache
016f 4801 |H | Short_Literal 0x1
0170 e402 | | Load 0x2,0x2
0171 029f 021b | | Declare_Subprogram INIT_0218,For_Call
0173 4802 |H | Short_Literal 0x2
0174 4801 |H | Short_Literal 0x1
0175 4802 |H | Short_Literal 0x2
0176 4800 |H | Short_Literal 0x0
0177 4801 |H | Short_Literal 0x1
0178 031d | | Declare_Type Variant_Record,Defined
0179 4801 |H | Short_Literal 0x1 ; Debug Table 0x4.0x1 = 0x179,0xfffe
017a 00d9 | | Load_Top At_Offset_1
017b 1c07 | | Execute_Immediate Run_Utility,0x7
017c 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x4.0x2 = 0x17c,0xfffd
017d 02ff | | Declare_Variable Variant_Record
017e 4801 |H | Short_Literal 0x1
017f 00db | | Load_Top At_Offset_3
0180 1c08 | | Execute_Immediate Run_Utility,0x8
0181 6186 |a | Indirect_Literal Discrete,0x308,{0x00000000, 0x00008000}
0182 00d9 | | Load_Top At_Offset_1
0183 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0184 4803 |H | Short_Literal 0x3
0185 00d9 | | Load_Top At_Offset_1
0186 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0187 00d9 | | Load_Top At_Offset_1
0188 016d | m | Execute Variant_Record,Structure_Write
0189 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x4.0x3 = 0x189,0xfffc
018a 02ff | | Declare_Variable Variant_Record
018b 4801 |H | Short_Literal 0x1
018c e602 | | Load 0x3,0x2
018d 1c08 | | Execute_Immediate Run_Utility,0x8
018e 6175 |au | Indirect_Literal Discrete,0x304,{0x00000000, 0x00010000}
018f 00d9 | | Load_Top At_Offset_1
0190 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0191 4804 |H | Short_Literal 0x4
0192 00d9 | | Load_Top At_Offset_1
0193 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0194 00d9 | | Load_Top At_Offset_1
0195 016d | m | Execute Variant_Record,Structure_Write
0196 4801 |H | Short_Literal 0x1 ; Debug Table 0x4.0x4 = 0x196,0xfffb
0197 e602 | | Load 0x3,0x2
0198 1c08 | | Execute_Immediate Run_Utility,0x8
0199 4801 |H | Short_Literal 0x1
019a e602 | | Load 0x3,0x2
019b 1c08 | | Execute_Immediate Run_Utility,0x8
019c 6163 |ac | Indirect_Literal Discrete,0x300,{0x00000000, 0x00018000}
019d 00d9 | | Load_Top At_Offset_1
019e 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
019f 4805 |H | Short_Literal 0x5
01a0 00d9 | | Load_Top At_Offset_1
01a1 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
01a2 00d9 | | Load_Top At_Offset_1
01a3 016d | m | Execute Variant_Record,Structure_Write
01a4 e602 | | Load 0x3,0x2 ; Debug Table 0x4.0x5 = 0x1a4,0xfffa
01a5 02ff | | Declare_Variable Variant_Record
01a6 4801 |H | Short_Literal 0x1
01a7 e602 | | Load 0x3,0x2
01a8 1c08 | | Execute_Immediate Run_Utility,0x8
01a9 6152 |aR | Indirect_Literal Discrete,0x2fc,{0x00000000, 0x0002199a}
01aa 00d9 | | Load_Top At_Offset_1
01ab 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01ac 4807 |H | Short_Literal 0x7
01ad 00d9 | | Load_Top At_Offset_1
01ae 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
01af 00d9 | | Load_Top At_Offset_1
01b0 016d | m | Execute Variant_Record,Structure_Write
01b1 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x4.0x6 = 0x1b1,0xfff9
01b2 00e9 | | Load_Encached String_Cache
01b3 029f 0253 | S| Declare_Subprogram INIT_0250,For_Call
01b5 4800 |H | Short_Literal 0x0
01b6 4801 |H | Short_Literal 0x1
01b7 4800 |H | Short_Literal 0x0
01b8 4800 |H | Short_Literal 0x0
01b9 4801 |H | Short_Literal 0x1
01ba 4801 |H | Short_Literal 0x1
01bb 031d | | Declare_Type Variant_Record,Defined
01bc 4805 |H | Short_Literal 0x5 ; Debug Table 0x4.0x7 = 0x1bc,0xfff8
01bd 00d9 | | Load_Top At_Offset_1
01be 1c07 | | Execute_Immediate Run_Utility,0x7
01bf 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x8 = 0x1bf,0xfff7
01c0 02ff | | Declare_Variable Variant_Record
01c1 4805 |H | Short_Literal 0x5
01c2 00db | | Load_Top At_Offset_3
01c3 1c08 | | Execute_Immediate Run_Utility,0x8
01c4 0092 0330 | 0| Action Push_String_Extended,0x330 ; "Coral"
01c6 00d9 | | Load_Top At_Offset_1
01c7 00d8 | | Load_Top At_Offset_0
01c8 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
01c9 00da | | Load_Top At_Offset_2
01ca 01da | | Execute Vector,Bounds
01cb 00da | | Load_Top At_Offset_2
01cc 01da | | Execute Vector,Bounds
01cd 00da | | Load_Top At_Offset_2
01ce 027f | | Execute Discrete,Equal
01cf 7002 |p | Jump_Nonzero 0x1d2
01d0 48e0 |H | Short_Literal 0xe0
01d1 0257 | W | Execute Discrete,Raise
01d2 00d0 | | Action Swap_Control
01d3 00d1 | | Pop_Control Pop_Count_1
01d4 027f | | Execute Discrete,Equal
01d5 7002 |p | Jump_Nonzero 0x1d8
01d6 48e0 |H | Short_Literal 0xe0
01d7 0257 | W | Execute Discrete,Raise
01d8 00d2 | | Pop_Control Pop_Count_2
01d9 00d9 | | Load_Top At_Offset_1
01da 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
01db 00d9 | | Load_Top At_Offset_1
01dc 016d | m | Execute Variant_Record,Structure_Write
01dd 4805 |H | Short_Literal 0x5 ; Debug Table 0x4.0x9 = 0x1dd,0xfff6
01de 00db | | Load_Top At_Offset_3
01df 1c08 | | Execute_Immediate Run_Utility,0x8
01e0 4805 |H | Short_Literal 0x5
01e1 e608 | | Load 0x3,0x8
01e2 1c08 | | Execute_Immediate Run_Utility,0x8
01e3 0092 0331 | 1| Action Push_String_Extended,0x331 ; "Beach"
01e5 00d9 | | Load_Top At_Offset_1
01e6 00d8 | | Load_Top At_Offset_0
01e7 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
01e8 00da | | Load_Top At_Offset_2
01e9 01da | | Execute Vector,Bounds
01ea 00da | | Load_Top At_Offset_2
01eb 01da | | Execute Vector,Bounds
01ec 00da | | Load_Top At_Offset_2
01ed 027f | | Execute Discrete,Equal
01ee 7002 |p | Jump_Nonzero 0x1f1
01ef 48e0 |H | Short_Literal 0xe0
01f0 0257 | W | Execute Discrete,Raise
01f1 00d0 | | Action Swap_Control
01f2 00d1 | | Pop_Control Pop_Count_1
01f3 027f | | Execute Discrete,Equal
01f4 7002 |p | Jump_Nonzero 0x1f7
01f5 48e0 |H | Short_Literal 0xe0
01f6 0257 | W | Execute Discrete,Raise
01f7 00d2 | | Pop_Control Pop_Count_2
01f8 00d9 | | Load_Top At_Offset_1
01f9 2902 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x2
01fa 00d9 | | Load_Top At_Offset_1
01fb 016d | m | Execute Variant_Record,Structure_Write
01fc 029f 0273 | s| Declare_Subprogram INIT_0270,For_Call ; Debug Table 0x4.0xa = 0x1fc,0xfff5
01fe BODY_0168:
01fe e607 | | Load 0x3,0x7 ; Debug Table 0x4.0xb = 0x1fe,0x1
01ff e603 | | Load 0x3,0x3
0200 0161 | a | Execute Variant_Record,Check_In_Formal_Type
0201 860c | | Call 0x3,0xc
0202 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0203 0000 0000 | | .BLANK 0000[0x5]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b | | .CONST 0x020b ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0001 | | .CONST 0x0001 ; Number of locals
020b BODY_0208:
020b INIT_0208:
020b 00da | | Load_Top At_Offset_2 ; Debug Table 0x5 = .DEBUG 0x020b,0x04d8,0x0801,0x0003,0x002c,0xbba4,0x0000,0x00a5
; Debug Table 0x5.0x0 = 0x20b,0x1
020c e9fe | | Load 0x4,-0x2
020d 012e | . | Execute Any,Not_Equal
020e 6806 |h | Jump_Zero 0x215
020f e9fd | | Load 0x4,-0x3 ; Debug Table 0x5.0x1 = 0x20f,0x2
0210 0092 0332 | 2| Action Push_String_Extended,0x332 ; " failed check_data"
0212 01cc | | Execute Vector,Catenate
0213 e001 | | Load 0x0,0x1
0214 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0215 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0216 0000 0000 | | .XXX[0x2]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b | | .CONST 0x021b ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0001 | | .CONST 0x0001 ; Number of locals
021b BODY_0218:
021b INIT_0218:
021b 4608 |F | Jump_Case 0x9 ; Debug Table 0x6 = .DEBUG 0x021b,0x04de,0x0005,0x0000,0x002c,0xbba4,0x0000,0x01a2
021c 7808 |x | Jump 0x225 ; case 0x0
021d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
021e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
021f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0220 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0221 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
0222 7813 |x | Jump 0x236 ; case 0x6
0223 781a |x | Jump 0x23e ; case 0x7
0224 7824 |x$ | Jump 0x249 ; case 0x8
0225 00da | | Load_Top At_Offset_2
0226 016c | l | Execute Variant_Record,Is_Constrained
0227 7009 |p | Jump_Nonzero 0x231
0228 00cf | | Action Mark_Auxiliary
0229 4801 |H | Short_Literal 0x1
022a e9ff | | Load 0x4,-0x1
022b 1c08 | | Execute_Immediate Run_Utility,0x8
022c 00d8 | | Load_Top At_Offset_0
022d 1c00 | | Execute_Immediate Run_Utility,0x0
022e c9ff | | Store 0x4,-0x1
022f 00ce | | Action Pop_Auxiliary
0230 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0231 00da | | Load_Top At_Offset_2
0232 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0233 4601 |F | Jump_Case 0x2
0234 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0235 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0236 00db | | Load_Top At_Offset_3
0237 4601 |F | Jump_Case 0x2
0238 7803 |x | Jump 0x23c ; case 0x0
0239 7800 |x | Jump 0x23a ; case 0x1
023a 4801 |H | Short_Literal 0x1
023b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
023c 4802 |H | Short_Literal 0x2
023d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
023e 00db | | Load_Top At_Offset_3
023f e9fe | | Load 0x4,-0x2
0240 4601 |F | Jump_Case 0x2
0241 7803 |x | Jump 0x245 ; case 0x0
0242 7800 |x | Jump 0x243 ; case 0x1
0243 4801 |H | Short_Literal 0x1
0244 7801 |x | Jump 0x246
0245 4802 |H | Short_Literal 0x2
0246 e9ff | | Load 0x4,-0x1
0247 031b | | Declare_Type Variant_Record,Constrained
0248 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0249 00db | | Load_Top At_Offset_3
024a e9fe | | Load 0x4,-0x2
024b e9ff | | Load 0x4,-0x1
024c 1c06 | | Execute_Immediate Run_Utility,0x6
024d e9ff | | Load 0x4,-0x1
024e 02fc | | Declare_Variable Variant_Record,With_Constraint
024f 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253 | S | .CONST 0x0253 ; Address of begin
0251 0004 | | .CONST 0x0004 ; Address of exception handler
0252 0001 | | .CONST 0x0001 ; Number of locals
0253 BODY_0250:
0253 INIT_0250:
0253 4608 |F | Jump_Case 0x9 ; Debug Table 0x7 = .DEBUG 0x0253,0x04e0,0x0005,0x0000,0x002c,0xbba4,0x0000,0x01f1
0254 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0255 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0256 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
0257 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0258 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0259 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
025a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6
025b 7801 |x | Jump 0x25d ; case 0x7
025c 7809 |x | Jump 0x266 ; case 0x8
025d 00db | | Load_Top At_Offset_3
025e 4801 |H | Short_Literal 0x1
025f e9fe | | Load 0x4,-0x2
0260 00e9 | | Load_Encached String_Cache
0261 035b | [ | Declare_Type Array,Constrained
0262 4801 |H | Short_Literal 0x1
0263 e9ff | | Load 0x4,-0x1
0264 031b | | Declare_Type Variant_Record,Constrained
0265 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0266 00db | | Load_Top At_Offset_3
0267 00db | | Load_Top At_Offset_3
0268 02fc | | Declare_Variable Variant_Record,With_Constraint
0269 4801 |H | Short_Literal 0x1
026a e9fe | | Load 0x4,-0x2
026b 00e9 | | Load_Encached String_Cache
026c 0334 | 4 | Declare_Variable Array,With_Constraint
026d 2d02 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x2
026e 016a | j | QQ_execute Variant_Record,XXX
026f 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 02ce | | .CONST 0x02ce ; Address of begin
0271 0004 | | .CONST 0x0004 ; Address of exception handler
0272 001f | | .CONST 0x001f ; Number of locals
0273 INIT_0270:
0273 4806 |H | Short_Literal 0x6 ; Debug Table 0x8 = .DEBUG 0x0273,0x04e2,0x0001,0x0000,0x002c,0xbba4,0x0000,0x021a
; Debug Table 0x8.0x0 = 0x273,0xffff
0274 4802 |H | Short_Literal 0x2
0275 0099 | | Action Reference_Dynamic
0276 00c6 | | Action Check_Subprogram_Elaborated
0277 e602 | | Load 0x3,0x2
0278 e604 | | Load 0x3,0x4
0279 02fd | | Declare_Variable Variant_Record,Duplicate
027a 00d0 | | Action Swap_Control
027b 00d1 | | Pop_Control Pop_Count_1
027c e605 | | Load 0x3,0x5
027d 02fd | | Declare_Variable Variant_Record,Duplicate
027e 00d0 | | Action Swap_Control
027f 00d1 | | Pop_Control Pop_Count_1
0280 608b |` | Indirect_Literal Discrete,0x30c,{0x00000000, 0x002cbba4}
0281 4a21 |J! | Short_Literal 0x221
0282 4807 |H | Short_Literal 0x7
0283 0007 | | Action Break_Optional
0284 4806 |H | Short_Literal 0x6 ; Debug Table 0x8.0x1 = 0x284,0xfffe
0285 4802 |H | Short_Literal 0x2
0286 0099 | | Action Reference_Dynamic
0287 00c6 | | Action Check_Subprogram_Elaborated
0288 e602 | | Load 0x3,0x2
0289 e606 | | Load 0x3,0x6
028a 02fd | | Declare_Variable Variant_Record,Duplicate
028b 00d0 | | Action Swap_Control
028c 00d1 | | Pop_Control Pop_Count_1
028d e9ff | | Load 0x4,-0x1
028e 02fd | | Declare_Variable Variant_Record,Duplicate
028f 00d0 | | Action Swap_Control
0290 00d1 | | Pop_Control Pop_Count_1
0291 607a |`z | Indirect_Literal Discrete,0x30c,{0x00000000, 0x002cbba4}
0292 4a2b |J+ | Short_Literal 0x22b
0293 480d |H | Short_Literal 0xd
0294 0007 | | Action Break_Optional
0295 4806 |H | Short_Literal 0x6 ; Debug Table 0x8.0x2 = 0x295,0xfffd
0296 4802 |H | Short_Literal 0x2
0297 0099 | | Action Reference_Dynamic
0298 00c6 | | Action Check_Subprogram_Elaborated
0299 e603 | | Load 0x3,0x3
029a e604 | | Load 0x3,0x4
029b 02fd | | Declare_Variable Variant_Record,Duplicate
029c 00d0 | | Action Swap_Control
029d 00d1 | | Pop_Control Pop_Count_1
029e e603 | | Load 0x3,0x3
029f 0162 | b | Execute Variant_Record,Check_In_Type
02a0 e605 | | Load 0x3,0x5
02a1 02fd | | Declare_Variable Variant_Record,Duplicate
02a2 00d0 | | Action Swap_Control
02a3 00d1 | | Pop_Control Pop_Count_1
02a4 6067 |`g | Indirect_Literal Discrete,0x30c,{0x00000000, 0x002cbba4}
02a5 4a35 |J5 | Short_Literal 0x235
02a6 4813 |H | Short_Literal 0x13
02a7 0007 | | Action Break_Optional
02a8 4806 |H | Short_Literal 0x6 ; Debug Table 0x8.0x3 = 0x2a8,0xfffc
02a9 4802 |H | Short_Literal 0x2
02aa 0099 | | Action Reference_Dynamic
02ab 00c6 | | Action Check_Subprogram_Elaborated
02ac e603 | | Load 0x3,0x3
02ad e606 | | Load 0x3,0x6
02ae 02fd | | Declare_Variable Variant_Record,Duplicate
02af 00d0 | | Action Swap_Control
02b0 00d1 | | Pop_Control Pop_Count_1
02b1 e603 | | Load 0x3,0x3
02b2 0162 | b | Execute Variant_Record,Check_In_Type
02b3 e9ff | | Load 0x4,-0x1
02b4 02fd | | Declare_Variable Variant_Record,Duplicate
02b5 00d0 | | Action Swap_Control
02b6 00d1 | | Pop_Control Pop_Count_1
02b7 6054 |`T | Indirect_Literal Discrete,0x30c,{0x00000000, 0x002cbba4}
02b8 4a3f |J? | Short_Literal 0x23f
02b9 4819 |H | Short_Literal 0x19
02ba 0007 | | Action Break_Optional
02bb 4806 |H | Short_Literal 0x6 ; Debug Table 0x8.0x4 = 0x2bb,0xfffb
02bc 4802 |H | Short_Literal 0x2
02bd 0099 | | Action Reference_Dynamic
02be 00c6 | | Action Check_Subprogram_Elaborated
02bf e609 | | Load 0x3,0x9
02c0 e60a | | Load 0x3,0xa
02c1 02fd | | Declare_Variable Variant_Record,Duplicate
02c2 00d0 | | Action Swap_Control
02c3 00d1 | | Pop_Control Pop_Count_1
02c4 e60b | | Load 0x3,0xb
02c5 02fd | | Declare_Variable Variant_Record,Duplicate
02c6 00d0 | | Action Swap_Control
02c7 00d1 | | Pop_Control Pop_Count_1
02c8 e609 | | Load 0x3,0x9
02c9 0162 | b | Execute Variant_Record,Check_In_Type
02ca 6041 |`A | Indirect_Literal Discrete,0x30c,{0x00000000, 0x002cbba4}
02cb 4a49 |JI | Short_Literal 0x249
02cc 481f |H | Short_Literal 0x1f
02cd 0007 | | Action Break_Optional
02ce BODY_0270:
02ce 0092 0333 | 3| Action Push_String_Extended,0x333 ; "Unconstrained record (simple)"
; Debug Table 0x8.0x5 = 0x2ce,0x1
02d0 e802 | | Load 0x4,0x2
02d1 e803 | | Load 0x4,0x3
02d2 e804 | | Load 0x4,0x4
02d3 4805 |H | Short_Literal 0x5
02d4 4804 |H | Short_Literal 0x4
02d5 0099 | | Action Reference_Dynamic
02d6 8406 | | Call 0x2,0x6
02d7 0092 0334 | 4| Action Push_String_Extended,0x334 ; "Unconstrained record (obscure)"
; Debug Table 0x8.0x6 = 0x2d7,0x2
02d9 e808 | | Load 0x4,0x8
02da e809 | | Load 0x4,0x9
02db e80a | | Load 0x4,0xa
02dc 480b |H | Short_Literal 0xb
02dd 4804 |H | Short_Literal 0x4
02de 0099 | | Action Reference_Dynamic
02df 8406 | | Call 0x2,0x6
02e0 0092 0335 | 5| Action Push_String_Extended,0x335 ; "Constrained record (simple)"
; Debug Table 0x8.0x7 = 0x2e0,0x3
02e2 e80e | | Load 0x4,0xe
02e3 e80f | | Load 0x4,0xf
02e4 e810 | | Load 0x4,0x10
02e5 4811 |H | Short_Literal 0x11
02e6 4804 |H | Short_Literal 0x4
02e7 0099 | | Action Reference_Dynamic
02e8 8406 | | Call 0x2,0x6
02e9 0092 0336 | 6| Action Push_String_Extended,0x336 ; "Constrained record (obscure)"
; Debug Table 0x8.0x8 = 0x2e9,0x4
02eb e814 | | Load 0x4,0x14
02ec e815 | | Load 0x4,0x15
02ed e816 | | Load 0x4,0x16
02ee 4817 |H | Short_Literal 0x17
02ef 4804 |H | Short_Literal 0x4
02f0 0099 | | Action Reference_Dynamic
02f1 8406 | | Call 0x2,0x6
02f2 0092 0337 | 7| Action Push_String_Extended,0x337 ; "Constrained record (no default)"
; Debug Table 0x8.0x9 = 0x2f2,0x5
02f4 e81a | | Load 0x4,0x1a
02f5 e81b | | Load 0x4,0x1b
02f6 e81c | | Load 0x4,0x1c
02f7 481d |H | Short_Literal 0x1d
02f8 4804 |H | Short_Literal 0x4
02f9 0099 | | Action Reference_Dynamic
02fa 8406 | | Call 0x2,0x6
02fb 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02fc 0000 0000 | | .LITERAL {0x00000000, 0x0002199a}
0300 0000 0000 | | .LITERAL {0x00000000, 0x00018000}
0304 0000 0000 | | .LITERAL {0x00000000, 0x00010000}
0308 0000 0000 | | .LITERAL {0x00000000, 0x00008000}
030c 0000 0000 | | .LITERAL {0x00000000, 0x002cbba4}
0310 3132 3334 |1234| .LITERAL {0x31323334, 0x35363738}
0314 3930 2020 |90 | .XXX[0x4]
0316 2020 2020 | |
0318 6162 6364 |abcd| .LITERAL {0x61626364, 0x65666768}
031c 696a 6b6c |ijkl| .XXX[0x4]
031e 2020 2020 | |
0320 ; --------------------------------------------------------------------------------------
0320 ; STRING TABLE
0320 ; --------------------------------------------------------------------------------------
0320 0032 | 2 | .STRTAB 0x0032->0x0339 ; "read/write of arrays and records"
0321 0050 | P | .STRTAB 0x0050->0x0349 ; "bounds-file"
0322 0059 | Y | .STRTAB 0x0059->0x034e ; "Bounds with type test"
0323 006c | l | .STRTAB 0x006c->0x0359 ; "Bounds with object test"
0324 0081 | | .STRTAB 0x0081->0x0364 ; "Exception: "
0325 008a | | .STRTAB 0x008a->0x036a ; " failed: "
0326 0091 | | .STRTAB 0x0091->0x036e ; "Start "
0327 0095 | | .STRTAB 0x0095->0x0371 ; "Create and open a file"
0328 00a9 | | .STRTAB 0x00a9->0x037c ; "Create"
0329 00ad | | .STRTAB 0x00ad->0x037f ; "Open"
032a 00af | | .STRTAB 0x00af->0x0381 ; "Write Finished."
032b 00bc | | .STRTAB 0x00bc->0x0389 ; "Read of Bounds_With_Type_Data"
032c 00d7 | | .STRTAB 0x00d7->0x0397 ; "Read of Bounds_With_Object"
032d 00ef | | .STRTAB 0x00ef->0x03a4 ; "Read Finished"
032e 00fa | | .STRTAB 0x00fa->0x03ab ; "Close"
032f 00fd | | .STRTAB 0x00fd->0x03ad ; "Finished "
0330 0104 | | .STRTAB 0x0104->0x03b2 ; "Coral"
0331 0107 | | .STRTAB 0x0107->0x03b4 ; "Beach"
0332 010a | | .STRTAB 0x010a->0x03b7 ; " failed check_data"
0333 011a | | .STRTAB 0x011a->0x03c0 ; "Unconstrained record (simple)"
0334 0135 | 5 | .STRTAB 0x0135->0x03ce ; "Unconstrained record (obscure)"
0335 0151 | Q | .STRTAB 0x0151->0x03dd ; "Constrained record (simple)"
0336 016a | j | .STRTAB 0x016a->0x03eb ; "Constrained record (obscure)"
0337 0184 | | .STRTAB 0x0184->0x03f9 ; "Constrained record (no default)"
0338 01a1 | | .STREND 0x01a1->0x0408
0339 7265 6164 |read| .STRTAB_STRINGS
0409 0000 0000 | | .BLANK 0000[0x7]
0410 ; --------------------------------------------------------------------------------------
0410 ; Debug Table
0410 ; --------------------------------------------------------------------------------------
0410 0003 0009 | | .CONST 0x0003,0x0009
0412 000b 045a | Z| .DEBUG 0x000b,0x045a,0x8000,0x0000,0x002c,0xbba4,0x0000,0x000f
041a 001b 045c | \| .DEBUG 0x001b,0x045c,0x8001,0x0000,0x002c,0xbba4,0x0000,0x000f
0422 008b 047e | ~| .DEBUG 0x008b,0x047e,0x0001,0x0000,0x002c,0xbba4,0x0000,0x002a
042a 00a3 0484 | | .DEBUG 0x00a3,0x0484,0x2801,0x0003,0x002c,0xbba4,0x0000,0x0058
0432 016b 04be | k | .DEBUG 0x016b,0x04be,0x0001,0x0000,0x002c,0xbba4,0x0000,0x019f
043a 020b 04d8 | | .DEBUG 0x020b,0x04d8,0x0801,0x0003,0x002c,0xbba4,0x0000,0x00a5
0442 021b 04de | | .DEBUG 0x021b,0x04de,0x0005,0x0000,0x002c,0xbba4,0x0000,0x01a2
044a 0253 04e0 | S | .DEBUG 0x0253,0x04e0,0x0005,0x0000,0x002c,0xbba4,0x0000,0x01f1
0452 0273 04e2 | s | .DEBUG 0x0273,0x04e2,0x0001,0x0000,0x002c,0xbba4,0x0000,0x021a
045a ; --------------------------------------------------------------------------------------
045a ; Debug3 Subtable 0x0
045a ; --------------------------------------------------------------------------------------
045a 0000 0000 | | .DBG3TAB 0x0000,0x0000
045c ; --------------------------------------------------------------------------------------
045c ; Debug3 Subtable 0x1
045c ; --------------------------------------------------------------------------------------
045c 0009 0007 | | .DBG3TAB 0x0009,0x0007
045e 001b ffff | | .CONST 0x001b,0xffff
0460 001f fffe | | .CONST 0x001f,0xfffe
0462 0022 fffd | " | .CONST 0x0022,0xfffd
0464 0027 fffc | ' | .CONST 0x0027,0xfffc
0466 0029 fffb | ) | .CONST 0x0029,0xfffb
0468 002b fffa | + | .CONST 0x002b,0xfffa
046a 002f fff9 | / | .CONST 0x002f,0xfff9
046c 0045 fff8 | E | .CONST 0x0045,0xfff8
046e 0059 fff7 | Y | .CONST 0x0059,0xfff7
0470 005b 0001 | [ | .CONST 0x005b,0x0001
0472 0061 0002 | a | .CONST 0x0061,0x0002
0474 006a 0003 | j | .CONST 0x006a,0x0003
0476 0073 0004 | s | .CONST 0x0073,0x0004
0478 0074 0005 | t | .CONST 0x0074,0x0005
047a 0078 0006 | x | .CONST 0x0078,0x0006
047c 007f 0007 | | .CONST 0x007f,0x0007
047e ; --------------------------------------------------------------------------------------
047e ; Debug3 Subtable 0x2
047e ; --------------------------------------------------------------------------------------
047e 0000 0002 | | .DBG3TAB 0x0000,0x0002
0480 008b 0001 | | .CONST 0x008b,0x0001
0482 008d 0002 | | .CONST 0x008d,0x0002
0484 ; --------------------------------------------------------------------------------------
0484 ; Debug3 Subtable 0x3
0484 ; --------------------------------------------------------------------------------------
0484 0007 0015 | | .DBG3TAB 0x0007,0x0015
0486 00a3 ffff | | .CONST 0x00a3,0xffff
0488 00a8 fffe | | .CONST 0x00a8,0xfffe
048a 00ad fffd | | .CONST 0x00ad,0xfffd
048c 00b3 fffc | | .CONST 0x00b3,0xfffc
048e 00bb fffb | | .CONST 0x00bb,0xfffb
0490 00c3 fffa | | .CONST 0x00c3,0xfffa
0492 00c5 fff9 | | .CONST 0x00c5,0xfff9
0494 00c8 0001 | | .CONST 0x00c8,0x0001
0496 00ce 0002 | | .CONST 0x00ce,0x0002
0498 00d2 0003 | | .CONST 0x00d2,0x0003
049a 00e6 0004 | | .CONST 0x00e6,0x0004
049c 00ea 0005 | | .CONST 0x00ea,0x0005
049e 00fb 0006 | | .CONST 0x00fb,0x0006
04a0 00ff 0007 | | .CONST 0x00ff,0x0007
04a2 0106 0008 | | .CONST 0x0106,0x0008
04a4 010b 0009 | | .CONST 0x010b,0x0009
04a6 0112 000a | | .CONST 0x0112,0x000a
04a8 0116 000b | | .CONST 0x0116,0x000b
04aa 0119 000c | | .CONST 0x0119,0x000c
04ac 0125 000d | % | .CONST 0x0125,0x000d
04ae 012a 000e | * | .CONST 0x012a,0x000e
04b0 0136 000f | 6 | .CONST 0x0136,0x000f
04b2 013a 0010 | : | .CONST 0x013a,0x0010
04b4 0142 0011 | B | .CONST 0x0142,0x0011
04b6 0146 0012 | F | .CONST 0x0146,0x0012
04b8 014c 0013 | L | .CONST 0x014c,0x0013
04ba 0154 0014 | T | .CONST 0x0154,0x0014
04bc 015b 0015 | [ | .CONST 0x015b,0x0015
04be ; --------------------------------------------------------------------------------------
04be ; Debug3 Subtable 0x4
04be ; --------------------------------------------------------------------------------------
04be 000b 0001 | | .DBG3TAB 0x000b,0x0001
04c0 016b ffff | k | .CONST 0x016b,0xffff
04c2 0179 fffe | y | .CONST 0x0179,0xfffe
04c4 017c fffd | | | .CONST 0x017c,0xfffd
04c6 0189 fffc | | .CONST 0x0189,0xfffc
04c8 0196 fffb | | .CONST 0x0196,0xfffb
04ca 01a4 fffa | | .CONST 0x01a4,0xfffa
04cc 01b1 fff9 | | .CONST 0x01b1,0xfff9
04ce 01bc fff8 | | .CONST 0x01bc,0xfff8
04d0 01bf fff7 | | .CONST 0x01bf,0xfff7
04d2 01dd fff6 | | .CONST 0x01dd,0xfff6
04d4 01fc fff5 | | .CONST 0x01fc,0xfff5
04d6 01fe 0001 | | .CONST 0x01fe,0x0001
04d8 ; --------------------------------------------------------------------------------------
04d8 ; Debug3 Subtable 0x5
04d8 ; --------------------------------------------------------------------------------------
04d8 0000 0002 | | .DBG3TAB 0x0000,0x0002
04da 020b 0001 | | .CONST 0x020b,0x0001
04dc 020f 0002 | | .CONST 0x020f,0x0002
04de ; --------------------------------------------------------------------------------------
04de ; Debug3 Subtable 0x6
04de ; --------------------------------------------------------------------------------------
04de 0000 0000 | | .DBG3TAB 0x0000,0x0000
04e0 ; --------------------------------------------------------------------------------------
04e0 ; Debug3 Subtable 0x7
04e0 ; --------------------------------------------------------------------------------------
04e0 0000 0000 | | .DBG3TAB 0x0000,0x0000
04e2 ; --------------------------------------------------------------------------------------
04e2 ; Debug3 Subtable 0x8
04e2 ; --------------------------------------------------------------------------------------
04e2 0005 0005 | | .DBG3TAB 0x0005,0x0005
04e4 0273 ffff | s | .CONST 0x0273,0xffff
04e6 0284 fffe | | .CONST 0x0284,0xfffe
04e8 0295 fffd | | .CONST 0x0295,0xfffd
04ea 02a8 fffc | | .CONST 0x02a8,0xfffc
04ec 02bb fffb | | .CONST 0x02bb,0xfffb
04ee 02ce 0001 | | .CONST 0x02ce,0x0001
04f0 02d7 0002 | | .CONST 0x02d7,0x0002
04f2 02e0 0003 | | .CONST 0x02e0,0x0003
04f4 02e9 0004 | | .CONST 0x02e9,0x0004
04f6 02f2 0005 | | .CONST 0x02f2,0x0005
04f8 0000 0000 | | .BLANK 0000[0x108]