|
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_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 0288 | | .CONST 0x0288 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0010 | | .CONST 0x0010 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0001 | | .CONST 0x0001 ; Number of locals
000b INIT_0008:
000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x02b2,0x8000,0x0000,0x002c,0xbd54,0x0000,0x0015
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 006f | o | .CONST 0x006f ; Address of begin
0019 00a6 | | .CONST 0x00a6 ; Address of exception handler
001a 001a | | .CONST 0x001a ; Number of locals
001b INIT_0018:
001b e001 | | Load 0x0,0x1 ; Debug Table 0x1 = .DEBUG 0x001b,0x02b4,0x8001,0x0000,0x002c,0xbd54,0x0000,0x0015
; Debug Table 0x1.0x0 = 0x1b,0xffff
001c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
001d 02ff | | Declare_Variable Variant_Record
001e 00d8 | | Load_Top At_Offset_0
001f 1c00 | | Execute_Immediate Run_Utility,0x0
0020 e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x1 = 0x20,0xfffe
0021 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0022 02c7 | | Declare_Variable Any
0023 00d8 | | Load_Top At_Offset_0
0024 1c00 | | Execute_Immediate Run_Utility,0x0
0025 e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x2 = 0x25,0xfffd
0026 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0027 02c7 | | Declare_Variable Any
0028 e001 | | Load 0x0,0x1
0029 1818 | | Execute Package,Field_Execute,Field_Number 0x18
002a c404 | | Store 0x2,0x4
002b e002 | | Load 0x0,0x2 ; Debug Table 0x1.0x3 = 0x2b,0xfffc
002c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
002d 02c7 | | Declare_Variable Any
002e 00d8 | | Load_Top At_Offset_0
002f 1c00 | | Execute_Immediate Run_Utility,0x0
0030 e003 | | Load 0x0,0x3 ; Debug Table 0x1.0x4 = 0x30,0xfffb
0031 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0032 e003 | | Load 0x0,0x3 ; Debug Table 0x1.0x5 = 0x32,0xfffa
0033 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0034 00e2 | | Load_Encached Integer_Cache ; Debug Table 0x1.0x6 = 0x34,0xfff9
0035 00e8 | | Load_Encached Character_Cache
0036 02a0 | | Declare_Subprogram Null_Subprogram
0037 4802 |H | Short_Literal 0x2
0038 032d | - | Declare_Type Record,Defined
0039 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x7 = 0x39,0xfff8
003a 0322 | " | Declare_Variable Record
003b 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x1.0x8 = 0x3b,0xfff7
003c 0322 | " | Declare_Variable Record
003d 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0x9 = 0x3d,0xfff6
003e 480f |H | Short_Literal 0xf
003f e408 | | Load 0x2,0x8
0040 02a0 | | Declare_Subprogram Null_Subprogram
0041 4801 |H | Short_Literal 0x1
0042 035d | ] | Declare_Type Array,Defined
0043 00d8 | | Load_Top At_Offset_0
0044 0337 | 7 | Declare_Variable Array
0045 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x1.0xa = 0x45,0xfff5
0046 0007 | | Action Break_Optional ; Debug Table 0x1.0xb = 0x46,0xfff4
0047 619c |a | Indirect_Literal Discrete,0x1e4,{0x00000000, 0x002cbd54} ; Debug Table 0x1.0xc = 0x47,0xfff3
0048 486b |Hk | Short_Literal 0x6b
0049 e408 | | Load 0x2,0x8
004a e001 | | Load 0x0,0x1
004b 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c
004c 0387 | | Declare_Variable Package
004d 00d8 | | Load_Top At_Offset_0
004e 020f | | Execute Module,Activate
004f 6194 |a | Indirect_Literal Discrete,0x1e4,{0x00000000, 0x002cbd54} ; Debug Table 0x1.0xd = 0x4f,0xfff2
0050 4873 |Hs | Short_Literal 0x73
0051 e408 | | Load 0x2,0x8
0052 e001 | | Load 0x0,0x1
0053 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
0054 0387 | | Declare_Variable Package
0055 00d8 | | Load_Top At_Offset_0
0056 020f | | Execute Module,Activate
0057 e004 | | Load 0x0,0x4 ; Debug Table 0x1.0xe = 0x57,0xfff1
0058 1915 | | Execute Package,Field_Reference,Field_Number 0x15
0059 00c6 | | Action Check_Subprogram_Elaborated
005a e003 | | Load 0x0,0x3
005b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
005c 6187 |a | Indirect_Literal Discrete,0x1e4,{0x00000000, 0x002cbd54}
005d 487b |H{ | Short_Literal 0x7b
005e 4813 |H | Short_Literal 0x13
005f 0007 | | Action Break_Optional
0060 e004 | | Load 0x0,0x4 ; Debug Table 0x1.0xf = 0x60,0xfff0
0061 1915 | | Execute Package,Field_Reference,Field_Number 0x15
0062 00c6 | | Action Check_Subprogram_Elaborated
0063 e003 | | Load 0x0,0x3
0064 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0065 617e |a~ | Indirect_Literal Discrete,0x1e4,{0x00000000, 0x002cbd54}
0066 4885 |H | Short_Literal 0x85
0067 4817 |H | Short_Literal 0x17
0068 0007 | | Action Break_Optional
0069 029f 00bb | | Declare_Subprogram INIT_00b8,For_Call ; Debug Table 0x1.0x10 = 0x69,0xffef
006b 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call
006d 029f 015b | [| Declare_Subprogram INIT_0158,For_Call
006f BODY_0018:
006f 00be | | Action Activate_Tasks
0070 0092 01e8 | | Action Push_String_Extended,0x1e8 ; "FILE MANAGER TEST - Read and Verify Files"
; Debug Table 0x1.0x11 = 0x70,0x1
0072 0092 01e9 | | Action Push_String_Extended,0x1e9 ; "File_#3"
0074 e004 | | Load 0x0,0x4
0075 180d | | Execute Package,Field_Execute,Field_Number 0xd
0076 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0x12 = 0x76,0x2
0077 8418 | | Call 0x2,0x18
0078 4800 |H | Short_Literal 0x0
0079 e40c | | Load 0x2,0xc
007a 01d6 | | Execute Vector,Field_Write
007b 4801 |H | Short_Literal 0x1 ; Debug Table 0x1.0x13 = 0x7b,0x3
007c 8418 | | Call 0x2,0x18
007d 4801 |H | Short_Literal 0x1
007e e40c | | Load 0x2,0xc
007f 01d6 | | Execute Vector,Field_Write
0080 480f |H | Short_Literal 0xf ; Debug Table 0x1.0x14 = 0x80,0x4
0081 4802 |H | Short_Literal 0x2
0082 0007 | | Action Break_Optional
0083 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x15 = 0x83,0x5
0084 0aff | | Execute_Immediate Plus,-0x1
0085 0248 | H | Execute Discrete,Check_In_Integer
0086 e40c | | Load 0x2,0xc
0087 01d5 | | Execute Vector,Field_Reference
0088 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0089 00d9 | | Load_Top At_Offset_1
008a 0afe | | Execute_Immediate Plus,-0x2
008b 0248 | H | Execute Discrete,Check_In_Integer
008c e40c | | Load 0x2,0xc
008d 01d5 | | Execute Vector,Field_Reference
008e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
008f 0273 | s | Execute Discrete,Plus
0090 0248 | H | Execute Discrete,Check_In_Integer
0091 8418 | | Call 0x2,0x18
0092 00d9 | | Load_Top At_Offset_1
0093 e40c | | Load 0x2,0xc
0094 01d6 | | Execute Vector,Field_Write
0095 3fed |? | Loop_Increasing 0x83
0096 8419 | | Call 0x2,0x19 ; Debug Table 0x1.0x16 = 0x96,0x6
0097 0092 01ea | | Action Push_String_Extended,0x1ea ; "*** End First Test ***"
; Debug Table 0x1.0x17 = 0x97,0x7
0099 e004 | | Load 0x0,0x4
009a 180f | | Execute Package,Field_Execute,Field_Number 0xf
009b 00ea | | Load_Encached Null_String_Cache ; Debug Table 0x1.0x18 = 0x9b,0x8
009c e004 | | Load 0x0,0x4
009d 180f | | Execute Package,Field_Execute,Field_Number 0xf
009e 841a | | Call 0x2,0x1a ; Debug Table 0x1.0x19 = 0x9e,0x9
009f 0092 01eb | | Action Push_String_Extended,0x1eb ; "*** End Second Test"
; Debug Table 0x1.0x1a = 0x9f,0xa
00a1 e004 | | Load 0x0,0x4
00a2 180f | | Execute Package,Field_Execute,Field_Number 0xf
00a3 e004 | | Load 0x0,0x4 ; Debug Table 0x1.0x1b = 0xa3,0xb
00a4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00a5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00a6 TRAP_0018:
00a6 0007 | | Action Break_Optional
00a7 0092 01ec | | Action Push_String_Extended,0x1ec ; "Unhandled exception: "
; Debug Table 0x1.0x1c = 0xa7,0xc
00a9 e005 | | Load 0x0,0x5
00aa 180d | | Execute Package,Field_Execute,Field_Number 0xd
00ab 01cc | | Execute Vector,Catenate
00ac 0092 01ed | | Action Push_String_Extended,0x1ed ; "."
00ae 01cc | | Execute Vector,Catenate
00af e004 | | Load 0x0,0x4
00b0 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00b1 e004 | | Load 0x0,0x4 ; Debug Table 0x1.0x1d = 0xb1,0xd
00b2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00b3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00b4 0000 0000 | | .BLANK 0000[0x4]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb | | .CONST 0x00bb ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0001 | | .CONST 0x0001 ; Number of locals
00bb BODY_00b8:
00bb INIT_00b8:
00bb e408 | | Load 0x2,0x8 ; Debug Table 0x2 = .DEBUG 0x00bb,0x02f2,0x0002,0x0000,0x002c,0xbd54,0x0000,0x008f
; Debug Table 0x2.0x0 = 0xbb,0x1
00bc 0322 | " | Declare_Variable Record
00bd 00db | | Load_Top At_Offset_3
00be 00d9 | | Load_Top At_Offset_1
00bf 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00c0 00db | | Load_Top At_Offset_3
00c1 487f |H | Short_Literal 0x7f
00c2 0279 | y | Execute Discrete,And
00c3 00d8 | | Load_Top At_Offset_0
00c4 00e8 | | Load_Encached Character_Cache
00c5 0260 | ` | Execute Discrete,In_Type
00c6 7002 |p | Jump_Nonzero 0xc9
00c7 48e0 |H | Short_Literal 0xe0
00c8 0257 | W | Execute Discrete,Raise
00c9 00d9 | | Load_Top At_Offset_1
00ca 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00cb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00cc 0000 0000 | | .BLANK 0000[0x4]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3 | | .CONST 0x00d3 ; Address of begin
00d1 0145 | E | .CONST 0x0145 ; Address of exception handler
00d2 0001 | | .CONST 0x0001 ; Number of locals
00d3 BODY_00d0:
00d3 INIT_00d0:
00d3 0092 01ee | | Action Push_String_Extended,0x1ee ; "*** First Test ***"
; Debug Table 0x3 = .DEBUG 0x00d3,0x02f6,0x0004,0x0000,0x002c,0xbd54,0x0000,0x0191
; Debug Table 0x3.0x0 = 0xd3,0x1
00d5 e004 | | Load 0x0,0x4
00d6 180f | | Execute Package,Field_Execute,Field_Number 0xf
00d7 0092 01ef | | Action Push_String_Extended,0x1ef ; "Sequential Read of Fibonacci Numbers"
; Debug Table 0x3.0x1 = 0xd7,0x2
00d9 e004 | | Load 0x0,0x4
00da 180f | | Execute Package,Field_Execute,Field_Number 0xf
00db e006 | | Load 0x0,0x6 ; Debug Table 0x3.0x2 = 0xdb,0x3
00dc 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00dd e002 | | Load 0x0,0x2
00de 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00df c405 | | Store 0x2,0x5
00e0 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x3.0x3 = 0xe0,0x4
00e1 e402 | | Load 0x2,0x2
00e2 e007 | | Load 0x0,0x7
00e3 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00e4 0162 | b | Execute Variant_Record,Check_In_Type
00e5 0092 01f0 | | Action Push_String_Extended,0x1f0 ; "seq_fib.id"
00e7 e008 | | Load 0x0,0x8
00e8 180d | | Execute Package,Field_Execute,Field_Number 0xd
00e9 00d1 | | Pop_Control Pop_Count_1
00ea c40d | | Store 0x2,0xd
00eb e40d | | Load 0x2,0xd ; Debug Table 0x3.0x4 = 0xeb,0x5
00ec 7002 |p | Jump_Nonzero 0xef
00ed 60f2 |` | Indirect_Literal Discrete,0x1e0,{0x00000000, 0x2cbd5401} ; Debug Table 0x3.0x5 = 0xed,0x6
00ee 0257 | W | Execute Discrete,Raise
00ef e003 | | Load 0x0,0x3 ; Debug Table 0x3.0x6 = 0xef,0x7
00f0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00f1 e403 | | Load 0x2,0x3
00f2 0120 | | Execute Any,Is_Value
00f3 6803 |h | Jump_Zero 0xf7
00f4 e001 | | Load 0x0,0x1
00f5 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00f6 7801 |x | Jump 0xf8
00f7 e403 | | Load 0x2,0x3
00f8 e405 | | Load 0x2,0x5
00f9 4800 |H | Short_Literal 0x0
00fa 4802 |H | Short_Literal 0x2
00fb e402 | | Load 0x2,0x2
00fc e001 | | Load 0x0,0x1
00fd 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
00fe c403 | | Store 0x2,0x3
00ff c407 | | Store 0x2,0x7
0100 e407 | | Load 0x2,0x7 ; Debug Table 0x3.0x7 = 0x100,0x8
0101 0092 01f1 | | Action Push_String_Extended,0x1f1 ; "Open"
0103 e414 | | Load 0x2,0x14
0104 4815 |H | Short_Literal 0x15
0105 4802 |H | Short_Literal 0x2
0106 0099 | | Action Reference_Dynamic
0107 e004 | | Load 0x0,0x4
0108 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0109 e001 | | Load 0x0,0x1 ; Debug Table 0x3.0x8 = 0x109,0x9
010a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
010b c404 | | Store 0x2,0x4
010c 480f |H | Short_Literal 0xf ; Debug Table 0x3.0x9 = 0x10c,0xa
010d 4800 |H | Short_Literal 0x0
010e 0007 | | Action Break_Optional
010f e404 | | Load 0x2,0x4 ; Debug Table 0x3.0xa = 0x10f,0xb
0110 e403 | | Load 0x2,0x3
0111 e40e | | Load 0x2,0xe
0112 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0113 e409 | | Load 0x2,0x9
0114 017d | } | Execute Record,Structure_Write
0115 e409 | | Load 0x2,0x9 ; Debug Table 0x3.0xb = 0x115,0xc
0116 00d9 | | Load_Top At_Offset_1
0117 e40c | | Load 0x2,0xc
0118 01d5 | | Execute Vector,Field_Reference
0119 017e | ~ | Execute Record,Not_Equal
011a 6808 |h | Jump_Zero 0x123
011b 0092 01f2 | | Action Push_String_Extended,0x1f2 ; "Read failure in position "
; Debug Table 0x3.0xc = 0x11b,0xd
011d 00d9 | | Load_Top At_Offset_1
011e 00e0 | | Load_Encached Standard_Cache
011f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0120 01cc | | Execute Vector,Catenate
0121 e004 | | Load 0x0,0x4
0122 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0123 e404 | | Load 0x2,0x4 ; Debug Table 0x3.0xd = 0x123,0xe
0124 e403 | | Load 0x2,0x3
0125 e40e | | Load 0x2,0xe
0126 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0127 c404 | | Store 0x2,0x4
0128 3fe6 |? | Loop_Increasing 0x10f
0129 0092 01f3 | | Action Push_String_Extended,0x1f3 ; "Read Finished"
; Debug Table 0x3.0xe = 0x129,0xf
012b e004 | | Load 0x0,0x4
012c 180f | | Execute Package,Field_Execute,Field_Number 0xf
012d e003 | | Load 0x0,0x3 ; Debug Table 0x3.0xf = 0x12d,0x10
012e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
012f e403 | | Load 0x2,0x3
0130 4800 |H | Short_Literal 0x0
0131 e001 | | Load 0x0,0x1
0132 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0133 c403 | | Store 0x2,0x3
0134 c407 | | Store 0x2,0x7
0135 e407 | | Load 0x2,0x7 ; Debug Table 0x3.0x10 = 0x135,0x11
0136 0092 01f4 | | Action Push_String_Extended,0x1f4 ; "Close"
0138 e414 | | Load 0x2,0x14
0139 4815 |H | Short_Literal 0x15
013a 4802 |H | Short_Literal 0x2
013b 0099 | | Action Reference_Dynamic
013c e004 | | Load 0x0,0x4
013d 1815 | | Execute Package,Field_Execute,Field_Number 0x15
013e e405 | | Load 0x2,0x5 ; Debug Table 0x3.0x11 = 0x13e,0x12
013f 4801 |H | Short_Literal 0x1
0140 4801 |H | Short_Literal 0x1
0141 e002 | | Load 0x0,0x2
0142 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0143 c405 | | Store 0x2,0x5
0144 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0145 TRAP_00d0:
0145 0007 | | Action Break_Optional
0146 e405 | | Load 0x2,0x5 ; Debug Table 0x3.0x12 = 0x146,0x13
0147 4801 |H | Short_Literal 0x1
0148 4800 |H | Short_Literal 0x0
0149 e002 | | Load 0x0,0x2
014a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
014b c405 | | Store 0x2,0x5
014c 0092 01f5 | | Action Push_String_Extended,0x1f5 ; "Exception: "
; Debug Table 0x3.0x13 = 0x14c,0x14
014e e005 | | Load 0x0,0x5
014f 180d | | Execute Package,Field_Execute,Field_Number 0xd
0150 01cc | | Execute Vector,Catenate
0151 e004 | | Load 0x0,0x4
0152 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0153 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0154 0000 0000 | | .BLANK 0000[0x4]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b | [ | .CONST 0x015b ; Address of begin
0159 01d1 | | .CONST 0x01d1 ; Address of exception handler
015a 0001 | | .CONST 0x0001 ; Number of locals
015b BODY_0158:
015b INIT_0158:
015b 0092 01f6 | | Action Push_String_Extended,0x1f6 ; "*** Second Test ***"
; Debug Table 0x4 = .DEBUG 0x015b,0x0320,0x0004,0x0000,0x002c,0xbd54,0x0000,0x023d
; Debug Table 0x4.0x0 = 0x15b,0x1
015d e004 | | Load 0x0,0x4
015e 180f | | Execute Package,Field_Execute,Field_Number 0xf
015f 0092 01f7 | | Action Push_String_Extended,0x1f7 ; "Direct Read Test"
; Debug Table 0x4.0x1 = 0x15f,0x2
0161 e004 | | Load 0x0,0x4
0162 180f | | Execute Package,Field_Execute,Field_Number 0xf
0163 e006 | | Load 0x0,0x6 ; Debug Table 0x4.0x2 = 0x163,0x3
0164 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0165 e002 | | Load 0x0,0x2
0166 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0167 c405 | | Store 0x2,0x5
0168 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x4.0x3 = 0x168,0x4
0169 e402 | | Load 0x2,0x2
016a e007 | | Load 0x0,0x7
016b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
016c 0162 | b | Execute Variant_Record,Check_In_Type
016d 0092 01f8 | | Action Push_String_Extended,0x1f8 ; "direct_fib.id"
016f e008 | | Load 0x0,0x8
0170 180d | | Execute Package,Field_Execute,Field_Number 0xd
0171 00d1 | | Pop_Control Pop_Count_1
0172 c40d | | Store 0x2,0xd
0173 e40d | | Load 0x2,0xd ; Debug Table 0x4.0x4 = 0x173,0x5
0174 7002 |p | Jump_Nonzero 0x177
0175 606a |`j | Indirect_Literal Discrete,0x1e0,{0x00000000, 0x2cbd5401} ; Debug Table 0x4.0x5 = 0x175,0x6
0176 0257 | W | Execute Discrete,Raise
0177 e003 | | Load 0x0,0x3 ; Debug Table 0x4.0x6 = 0x177,0x7
0178 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0179 e403 | | Load 0x2,0x3
017a 0120 | | Execute Any,Is_Value
017b 6803 |h | Jump_Zero 0x17f
017c e001 | | Load 0x0,0x1
017d 1b13 | | Execute Package,Field_Read,Field_Number 0x13
017e 7801 |x | Jump 0x180
017f e403 | | Load 0x2,0x3
0180 e405 | | Load 0x2,0x5
0181 4800 |H | Short_Literal 0x0
0182 4802 |H | Short_Literal 0x2
0183 e402 | | Load 0x2,0x2
0184 e001 | | Load 0x0,0x1
0185 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0186 c403 | | Store 0x2,0x3
0187 c407 | | Store 0x2,0x7
0188 e407 | | Load 0x2,0x7 ; Debug Table 0x4.0x7 = 0x188,0x8
0189 0092 01f1 | | Action Push_String_Extended,0x1f1 ; "Open"
018b e414 | | Load 0x2,0x14
018c 4815 |H | Short_Literal 0x15
018d 4802 |H | Short_Literal 0x2
018e 0099 | | Action Reference_Dynamic
018f e004 | | Load 0x0,0x4
0190 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0191 480f |H | Short_Literal 0xf ; Debug Table 0x4.0x8 = 0x191,0x9
0192 4803 |H | Short_Literal 0x3
0193 0007 | | Action Break_Optional
0194 e001 | | Load 0x0,0x1 ; Debug Table 0x4.0x9 = 0x194,0xa
0195 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0196 00d9 | | Load_Top At_Offset_1
0197 e40c | | Load 0x2,0xc
0198 01d5 | | Execute Vector,Field_Reference
0199 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
019a 00e4 | | Load_Encached Positive_Cache
019b 025b | [ | Execute Discrete,Check_In_Type
019c e403 | | Load 0x2,0x3
019d e40f | | Load 0x2,0xf
019e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
019f c404 | | Store 0x2,0x4
01a0 e404 | | Load 0x2,0x4 ; Debug Table 0x4.0xa = 0x1a0,0xb
01a1 e403 | | Load 0x2,0x3
01a2 e40f | | Load 0x2,0xf
01a3 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01a4 e409 | | Load 0x2,0x9
01a5 017d | } | Execute Record,Structure_Write
01a6 e409 | | Load 0x2,0x9 ; Debug Table 0x4.0xb = 0x1a6,0xc
01a7 00d9 | | Load_Top At_Offset_1
01a8 e40c | | Load 0x2,0xc
01a9 01d5 | | Execute Vector,Field_Reference
01aa 017e | ~ | Execute Record,Not_Equal
01ab 6808 |h | Jump_Zero 0x1b4
01ac 0092 01f2 | | Action Push_String_Extended,0x1f2 ; "Read failure in position "
; Debug Table 0x4.0xc = 0x1ac,0xd
01ae 00d9 | | Load_Top At_Offset_1
01af 00e0 | | Load_Encached Standard_Cache
01b0 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01b1 01cc | | Execute Vector,Catenate
01b2 e004 | | Load 0x0,0x4
01b3 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01b4 3fdf |? | Loop_Increasing 0x194
01b5 0092 01f3 | | Action Push_String_Extended,0x1f3 ; "Read Finished"
; Debug Table 0x4.0xd = 0x1b5,0xe
01b7 e004 | | Load 0x0,0x4
01b8 180f | | Execute Package,Field_Execute,Field_Number 0xf
01b9 e003 | | Load 0x0,0x3 ; Debug Table 0x4.0xe = 0x1b9,0xf
01ba 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01bb e403 | | Load 0x2,0x3
01bc 4800 |H | Short_Literal 0x0
01bd e001 | | Load 0x0,0x1
01be 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
01bf c403 | | Store 0x2,0x3
01c0 c407 | | Store 0x2,0x7
01c1 e407 | | Load 0x2,0x7 ; Debug Table 0x4.0xf = 0x1c1,0x10
01c2 0092 01f4 | | Action Push_String_Extended,0x1f4 ; "Close"
01c4 e414 | | Load 0x2,0x14
01c5 4815 |H | Short_Literal 0x15
01c6 4802 |H | Short_Literal 0x2
01c7 0099 | | Action Reference_Dynamic
01c8 e004 | | Load 0x0,0x4
01c9 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01ca e405 | | Load 0x2,0x5 ; Debug Table 0x4.0x10 = 0x1ca,0x11
01cb 4801 |H | Short_Literal 0x1
01cc 4801 |H | Short_Literal 0x1
01cd e002 | | Load 0x0,0x2
01ce 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01cf c405 | | Store 0x2,0x5
01d0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01d1 TRAP_0158:
01d1 0007 | | Action Break_Optional
01d2 e405 | | Load 0x2,0x5 ; Debug Table 0x4.0x11 = 0x1d2,0x12
01d3 4801 |H | Short_Literal 0x1
01d4 4800 |H | Short_Literal 0x0
01d5 e002 | | Load 0x0,0x2
01d6 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01d7 c405 | | Store 0x2,0x5
01d8 0092 01f5 | | Action Push_String_Extended,0x1f5 ; "Exception: "
; Debug Table 0x4.0x12 = 0x1d8,0x13
01da e005 | | Load 0x0,0x5
01db 180d | | Execute Package,Field_Execute,Field_Number 0xd
01dc 01cc | | Execute Vector,Catenate
01dd e004 | | Load 0x0,0x4
01de 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01df 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01e0 0000 0000 | | .LITERAL {0x00000000, 0x2cbd5401}
01e4 0000 0000 | | .LITERAL {0x00000000, 0x002cbd54}
01e8 ; --------------------------------------------------------------------------------------
01e8 ; STRING TABLE
01e8 ; --------------------------------------------------------------------------------------
01e8 0024 | $ | .STRTAB 0x0024->0x01fa ; "FILE MANAGER TEST - Read and Verify Files"
01e9 004b | K | .STRTAB 0x004b->0x020e ; "File_#3"
01ea 0050 | P | .STRTAB 0x0050->0x0212 ; "*** End First Test ***"
01eb 0064 | d | .STRTAB 0x0064->0x021d ; "*** End Second Test"
01ec 0075 | u | .STRTAB 0x0075->0x0226 ; "Unhandled exception: "
01ed 0088 | | .STRTAB 0x0088->0x0231 ; "."
01ee 0087 | | .STRTAB 0x0087->0x0231 ; "*** First Test ***"
01ef 0097 | | .STRTAB 0x0097->0x023a ; "Sequential Read of Fibonacci Numbers"
01f0 00b9 | | .STRTAB 0x00b9->0x024c ; "seq_fib.id"
01f1 00c1 | | .STRTAB 0x00c1->0x0251 ; "Open"
01f2 00c3 | | .STRTAB 0x00c3->0x0253 ; "Read failure in position "
01f3 00da | | .STRTAB 0x00da->0x0260 ; "Read Finished"
01f4 00e5 | | .STRTAB 0x00e5->0x0266 ; "Close"
01f5 00e8 | | .STRTAB 0x00e8->0x0269 ; "Exception: "
01f6 00f1 | | .STRTAB 0x00f1->0x026e ; "*** Second Test ***"
01f7 0102 | | .STRTAB 0x0102->0x0278 ; "Direct Read Test"
01f8 0110 | | .STRTAB 0x0110->0x0280 ; "direct_fib.id"
01f9 011b | | .STREND 0x011b->0x0286
01fa 4649 4c45 |FILE| .STRTAB_STRINGS
0287 0000 | | .XXX[0x1]
0288 ; --------------------------------------------------------------------------------------
0288 ; Debug Table
0288 ; --------------------------------------------------------------------------------------
0288 0003 0005 | | .CONST 0x0003,0x0005
028a 000b 02b2 | | .DEBUG 0x000b,0x02b2,0x8000,0x0000,0x002c,0xbd54,0x0000,0x0015
0292 001b 02b4 | | .DEBUG 0x001b,0x02b4,0x8001,0x0000,0x002c,0xbd54,0x0000,0x0015
029a 00bb 02f2 | | .DEBUG 0x00bb,0x02f2,0x0002,0x0000,0x002c,0xbd54,0x0000,0x008f
02a2 00d3 02f6 | | .DEBUG 0x00d3,0x02f6,0x0004,0x0000,0x002c,0xbd54,0x0000,0x0191
02aa 015b 0320 | [ | .DEBUG 0x015b,0x0320,0x0004,0x0000,0x002c,0xbd54,0x0000,0x023d
02b2 ; --------------------------------------------------------------------------------------
02b2 ; Debug3 Subtable 0x0
02b2 ; --------------------------------------------------------------------------------------
02b2 0000 0000 | | .DBG3TAB 0x0000,0x0000
02b4 ; --------------------------------------------------------------------------------------
02b4 ; Debug3 Subtable 0x1
02b4 ; --------------------------------------------------------------------------------------
02b4 0011 000d | | .DBG3TAB 0x0011,0x000d
02b6 001b ffff | | .CONST 0x001b,0xffff
02b8 0020 fffe | | .CONST 0x0020,0xfffe
02ba 0025 fffd | % | .CONST 0x0025,0xfffd
02bc 002b fffc | + | .CONST 0x002b,0xfffc
02be 0030 fffb | 0 | .CONST 0x0030,0xfffb
02c0 0032 fffa | 2 | .CONST 0x0032,0xfffa
02c2 0034 fff9 | 4 | .CONST 0x0034,0xfff9
02c4 0039 fff8 | 9 | .CONST 0x0039,0xfff8
02c6 003b fff7 | ; | .CONST 0x003b,0xfff7
02c8 003d fff6 | = | .CONST 0x003d,0xfff6
02ca 0045 fff5 | E | .CONST 0x0045,0xfff5
02cc 0046 fff4 | F | .CONST 0x0046,0xfff4
02ce 0047 fff3 | G | .CONST 0x0047,0xfff3
02d0 004f fff2 | O | .CONST 0x004f,0xfff2
02d2 0057 fff1 | W | .CONST 0x0057,0xfff1
02d4 0060 fff0 | ` | .CONST 0x0060,0xfff0
02d6 0069 ffef | i | .CONST 0x0069,0xffef
02d8 0070 0001 | p | .CONST 0x0070,0x0001
02da 0076 0002 | v | .CONST 0x0076,0x0002
02dc 007b 0003 | { | .CONST 0x007b,0x0003
02de 0080 0004 | | .CONST 0x0080,0x0004
02e0 0083 0005 | | .CONST 0x0083,0x0005
02e2 0096 0006 | | .CONST 0x0096,0x0006
02e4 0097 0007 | | .CONST 0x0097,0x0007
02e6 009b 0008 | | .CONST 0x009b,0x0008
02e8 009e 0009 | | .CONST 0x009e,0x0009
02ea 009f 000a | | .CONST 0x009f,0x000a
02ec 00a3 000b | | .CONST 0x00a3,0x000b
02ee 00a7 000c | | .CONST 0x00a7,0x000c
02f0 00b1 000d | | .CONST 0x00b1,0x000d
02f2 ; --------------------------------------------------------------------------------------
02f2 ; Debug3 Subtable 0x2
02f2 ; --------------------------------------------------------------------------------------
02f2 0000 0001 | | .DBG3TAB 0x0000,0x0001
02f4 00bb 0001 | | .CONST 0x00bb,0x0001
02f6 ; --------------------------------------------------------------------------------------
02f6 ; Debug3 Subtable 0x3
02f6 ; --------------------------------------------------------------------------------------
02f6 0000 0014 | | .DBG3TAB 0x0000,0x0014
02f8 00d3 0001 | | .CONST 0x00d3,0x0001
02fa 00d7 0002 | | .CONST 0x00d7,0x0002
02fc 00db 0003 | | .CONST 0x00db,0x0003
02fe 00e0 0004 | | .CONST 0x00e0,0x0004
0300 00eb 0005 | | .CONST 0x00eb,0x0005
0302 00ed 0006 | | .CONST 0x00ed,0x0006
0304 00ef 0007 | | .CONST 0x00ef,0x0007
0306 0100 0008 | | .CONST 0x0100,0x0008
0308 0109 0009 | | .CONST 0x0109,0x0009
030a 010c 000a | | .CONST 0x010c,0x000a
030c 010f 000b | | .CONST 0x010f,0x000b
030e 0115 000c | | .CONST 0x0115,0x000c
0310 011b 000d | | .CONST 0x011b,0x000d
0312 0123 000e | # | .CONST 0x0123,0x000e
0314 0129 000f | ) | .CONST 0x0129,0x000f
0316 012d 0010 | - | .CONST 0x012d,0x0010
0318 0135 0011 | 5 | .CONST 0x0135,0x0011
031a 013e 0012 | > | .CONST 0x013e,0x0012
031c 0146 0013 | F | .CONST 0x0146,0x0013
031e 014c 0014 | L | .CONST 0x014c,0x0014
0320 ; --------------------------------------------------------------------------------------
0320 ; Debug3 Subtable 0x4
0320 ; --------------------------------------------------------------------------------------
0320 0000 0013 | | .DBG3TAB 0x0000,0x0013
0322 015b 0001 | [ | .CONST 0x015b,0x0001
0324 015f 0002 | _ | .CONST 0x015f,0x0002
0326 0163 0003 | c | .CONST 0x0163,0x0003
0328 0168 0004 | h | .CONST 0x0168,0x0004
032a 0173 0005 | s | .CONST 0x0173,0x0005
032c 0175 0006 | u | .CONST 0x0175,0x0006
032e 0177 0007 | w | .CONST 0x0177,0x0007
0330 0188 0008 | | .CONST 0x0188,0x0008
0332 0191 0009 | | .CONST 0x0191,0x0009
0334 0194 000a | | .CONST 0x0194,0x000a
0336 01a0 000b | | .CONST 0x01a0,0x000b
0338 01a6 000c | | .CONST 0x01a6,0x000c
033a 01ac 000d | | .CONST 0x01ac,0x000d
033c 01b5 000e | | .CONST 0x01b5,0x000e
033e 01b9 000f | | .CONST 0x01b9,0x000f
0340 01c1 0010 | | .CONST 0x01c1,0x0010
0342 01ca 0011 | | .CONST 0x01ca,0x0011
0344 01d2 0012 | | .CONST 0x01d2,0x0012
0346 01d8 0013 | | .CONST 0x01d8,0x0013
0348 0000 0000 | | .BLANK 0000[0xb8]