|
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 02e8 | | .CONST 0x02e8 ; 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,0x0312,0x8000,0x0000,0x002c,0xbd44,0x0000,0x0017
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 00a3 | | .CONST 0x00a3 ; Address of exception handler
001a 001a | | .CONST 0x001a ; Number of locals
001b INIT_0018:
001b e001 | | Load 0x0,0x1 ; Debug Table 0x1 = .DEBUG 0x001b,0x0314,0x8001,0x0000,0x002c,0xbd44,0x0000,0x0017
; 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 61f4 |a | Indirect_Literal Discrete,0x23c,{0x00000000, 0x002cbd44} ; Debug Table 0x1.0xc = 0x47,0xfff3
0048 486d |Hm | Short_Literal 0x6d
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 61ec |a | Indirect_Literal Discrete,0x23c,{0x00000000, 0x002cbd44} ; Debug Table 0x1.0xd = 0x4f,0xfff2
0050 4875 |Hu | Short_Literal 0x75
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 61df |a | Indirect_Literal Discrete,0x23c,{0x00000000, 0x002cbd44}
005d 487d |H} | Short_Literal 0x7d
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 61d6 |a | Indirect_Literal Discrete,0x23c,{0x00000000, 0x002cbd44}
0066 4887 |H | Short_Literal 0x87
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 0183 | | Declare_Subprogram INIT_0180,For_Call
006f BODY_0018:
006f 00be | | Action Activate_Tasks
0070 0092 0240 | @| Action Push_String_Extended,0x240 ; "FILE MANAGER TEST - Create Perm. Files"
; Debug Table 0x1.0x11 = 0x70,0x1
0072 0092 0241 | A| Action Push_String_Extended,0x241 ; "File_#2"
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 0242 | B| Action Push_String_Extended,0x242 ; "*** End First Test ***"
; Debug Table 0x1.0x17 = 0x97,0x7
0099 e004 | | Load 0x0,0x4
009a 180f | | Execute Package,Field_Execute,Field_Number 0xf
009b 841a | | Call 0x2,0x1a ; Debug Table 0x1.0x18 = 0x9b,0x8
009c 0092 0243 | C| Action Push_String_Extended,0x243 ; "*** End Second Test"
; Debug Table 0x1.0x19 = 0x9c,0x9
009e e004 | | Load 0x0,0x4
009f 180f | | Execute Package,Field_Execute,Field_Number 0xf
00a0 e004 | | Load 0x0,0x4 ; Debug Table 0x1.0x1a = 0xa0,0xa
00a1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00a2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00a3 TRAP_0018:
00a3 0007 | | Action Break_Optional
00a4 0092 0244 | D| Action Push_String_Extended,0x244 ; "Unhandled exception: "
; Debug Table 0x1.0x1b = 0xa4,0xb
00a6 e005 | | Load 0x0,0x5
00a7 180d | | Execute Package,Field_Execute,Field_Number 0xd
00a8 01cc | | Execute Vector,Catenate
00a9 0092 0245 | E| Action Push_String_Extended,0x245 ; "."
00ab 01cc | | Execute Vector,Catenate
00ac e004 | | Load 0x0,0x4
00ad 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00ae e004 | | Load 0x0,0x4 ; Debug Table 0x1.0x1c = 0xae,0xc
00af 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00b0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00b1 0000 0000 | | .BLANK 0000[0x7]
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,0x0350,0x0002,0x0000,0x002c,0xbd44,0x0000,0x0091
; 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 016b | k | .CONST 0x016b ; Address of exception handler
00d2 0001 | | .CONST 0x0001 ; Number of locals
00d3 BODY_00d0:
00d3 INIT_00d0:
00d3 0092 0246 | F| Action Push_String_Extended,0x246 ; "Sequential Write of Fibonacci Numbers"
; Debug Table 0x3 = .DEBUG 0x00d3,0x0354,0x0004,0x0000,0x002c,0xbd44,0x0000,0x01b8
; Debug Table 0x3.0x0 = 0xd3,0x1
00d5 e004 | | Load 0x0,0x4
00d6 180f | | Execute Package,Field_Execute,Field_Number 0xf
00d7 e006 | | Load 0x0,0x6 ; Debug Table 0x3.0x1 = 0xd7,0x2
00d8 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00d9 e002 | | Load 0x0,0x2
00da 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00db c405 | | Store 0x2,0x5
00dc e003 | | Load 0x0,0x3 ; Debug Table 0x3.0x2 = 0xdc,0x3
00dd 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00de e402 | | Load 0x2,0x2
00df e002 | | Load 0x0,0x2
00e0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00e1 4800 |H | Short_Literal 0x0
00e2 4800 |H | Short_Literal 0x0
00e3 e001 | | Load 0x0,0x1
00e4 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00e5 4800 |H | Short_Literal 0x0
00e6 4800 |H | Short_Literal 0x0
00e7 e007 | | Load 0x0,0x7
00e8 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00e9 4800 |H | Short_Literal 0x0
00ea e008 | | Load 0x0,0x8
00eb 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00ec e001 | | Load 0x0,0x1
00ed 181f | | Execute Package,Field_Execute,Field_Number 0x1f
00ee 00d1 | | Pop_Control Pop_Count_1
00ef c406 | | Store 0x2,0x6
00f0 e406 | | Load 0x2,0x6 ; Debug Table 0x3.0x3 = 0xf0,0x4
00f1 0092 0247 | G| Action Push_String_Extended,0x247 ; "Create"
00f3 e410 | | Load 0x2,0x10
00f4 4811 |H | Short_Literal 0x11
00f5 4802 |H | Short_Literal 0x2
00f6 0099 | | Action Reference_Dynamic
00f7 e004 | | Load 0x0,0x4
00f8 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00f9 e003 | | Load 0x0,0x3 ; Debug Table 0x3.0x4 = 0xf9,0x5
00fa 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00fb e403 | | Load 0x2,0x3
00fc 0120 | | Execute Any,Is_Value
00fd 6803 |h | Jump_Zero 0x101
00fe e001 | | Load 0x0,0x1
00ff 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0100 7801 |x | Jump 0x102
0101 e403 | | Load 0x2,0x3
0102 e405 | | Load 0x2,0x5
0103 4800 |H | Short_Literal 0x0
0104 4802 |H | Short_Literal 0x2
0105 e402 | | Load 0x2,0x2
0106 e001 | | Load 0x0,0x1
0107 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0108 c403 | | Store 0x2,0x3
0109 c407 | | Store 0x2,0x7
010a e407 | | Load 0x2,0x7 ; Debug Table 0x3.0x5 = 0x10a,0x6
010b 0092 0248 | H| Action Push_String_Extended,0x248 ; "Open"
010d e414 | | Load 0x2,0x14
010e 4815 |H | Short_Literal 0x15
010f 4802 |H | Short_Literal 0x2
0110 0099 | | Action Reference_Dynamic
0111 e004 | | Load 0x0,0x4
0112 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0113 e001 | | Load 0x0,0x1 ; Debug Table 0x3.0x6 = 0x113,0x7
0114 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0115 c404 | | Store 0x2,0x4
0116 480f |H | Short_Literal 0xf ; Debug Table 0x3.0x7 = 0x116,0x8
0117 4800 |H | Short_Literal 0x0
0118 0007 | | Action Break_Optional
0119 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x8 = 0x119,0x9
011a e40c | | Load 0x2,0xc
011b 01d5 | | Execute Vector,Field_Reference
011c e404 | | Load 0x2,0x4
011d e403 | | Load 0x2,0x3
011e e40e | | Load 0x2,0xe
011f 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0120 e404 | | Load 0x2,0x4 ; Debug Table 0x3.0x9 = 0x120,0xa
0121 e403 | | Load 0x2,0x3
0122 e40e | | Load 0x2,0xe
0123 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0124 c404 | | Store 0x2,0x4
0125 3ff3 |? | Loop_Increasing 0x119
0126 0092 0249 | I| Action Push_String_Extended,0x249 ; "Write Finished."
; Debug Table 0x3.0xa = 0x126,0xb
0128 e004 | | Load 0x0,0x4
0129 180f | | Execute Package,Field_Execute,Field_Number 0xf
012a e001 | | Load 0x0,0x1 ; Debug Table 0x3.0xb = 0x12a,0xc
012b 1818 | | Execute Package,Field_Execute,Field_Number 0x18
012c c404 | | Store 0x2,0x4
012d 480f |H | Short_Literal 0xf ; Debug Table 0x3.0xc = 0x12d,0xd
012e 4800 |H | Short_Literal 0x0
012f 0007 | | Action Break_Optional
0130 e404 | | Load 0x2,0x4 ; Debug Table 0x3.0xd = 0x130,0xe
0131 e403 | | Load 0x2,0x3
0132 e40e | | Load 0x2,0xe
0133 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0134 e409 | | Load 0x2,0x9
0135 017d | } | Execute Record,Structure_Write
0136 e409 | | Load 0x2,0x9 ; Debug Table 0x3.0xe = 0x136,0xf
0137 00d9 | | Load_Top At_Offset_1
0138 e40c | | Load 0x2,0xc
0139 01d5 | | Execute Vector,Field_Reference
013a 017e | ~ | Execute Record,Not_Equal
013b 6808 |h | Jump_Zero 0x144
013c 0092 024a | J| Action Push_String_Extended,0x24a ; "Read failure in position "
; Debug Table 0x3.0xf = 0x13c,0x10
013e 00d9 | | Load_Top At_Offset_1
013f 00e0 | | Load_Encached Standard_Cache
0140 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0141 01cc | | Execute Vector,Catenate
0142 e004 | | Load 0x0,0x4
0143 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0144 e404 | | Load 0x2,0x4 ; Debug Table 0x3.0x10 = 0x144,0x11
0145 e403 | | Load 0x2,0x3
0146 e40e | | Load 0x2,0xe
0147 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0148 c404 | | Store 0x2,0x4
0149 3fe6 |? | Loop_Increasing 0x130
014a 0092 024b | K| Action Push_String_Extended,0x24b ; "Read Finished"
; Debug Table 0x3.0x11 = 0x14a,0x12
014c e004 | | Load 0x0,0x4
014d 180f | | Execute Package,Field_Execute,Field_Number 0xf
014e e003 | | Load 0x0,0x3 ; Debug Table 0x3.0x12 = 0x14e,0x13
014f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0150 e403 | | Load 0x2,0x3
0151 4800 |H | Short_Literal 0x0
0152 e001 | | Load 0x0,0x1
0153 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0154 c403 | | Store 0x2,0x3
0155 c407 | | Store 0x2,0x7
0156 e407 | | Load 0x2,0x7 ; Debug Table 0x3.0x13 = 0x156,0x14
0157 0092 024c | L| Action Push_String_Extended,0x24c ; "Close"
0159 e414 | | Load 0x2,0x14
015a 4815 |H | Short_Literal 0x15
015b 4802 |H | Short_Literal 0x2
015c 0099 | | Action Reference_Dynamic
015d e004 | | Load 0x0,0x4
015e 1815 | | Execute Package,Field_Execute,Field_Number 0x15
015f e405 | | Load 0x2,0x5 ; Debug Table 0x3.0x14 = 0x15f,0x15
0160 4801 |H | Short_Literal 0x1
0161 4801 |H | Short_Literal 0x1
0162 e002 | | Load 0x0,0x2
0163 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0164 c405 | | Store 0x2,0x5
0165 e402 | | Load 0x2,0x2 ; Debug Table 0x3.0x15 = 0x165,0x16
0166 0092 024d | M| Action Push_String_Extended,0x24d ; "seq_fib.id"
0168 e009 | | Load 0x0,0x9
0169 180e | | Execute Package,Field_Execute,Field_Number 0xe
016a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
016b TRAP_00d0:
016b 0007 | | Action Break_Optional
016c e405 | | Load 0x2,0x5 ; Debug Table 0x3.0x16 = 0x16c,0x17
016d 4801 |H | Short_Literal 0x1
016e 4800 |H | Short_Literal 0x0
016f e002 | | Load 0x0,0x2
0170 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0171 c405 | | Store 0x2,0x5
0172 0092 024e | N| Action Push_String_Extended,0x24e ; "Exception: "
; Debug Table 0x3.0x17 = 0x172,0x18
0174 e005 | | Load 0x0,0x5
0175 180d | | Execute Package,Field_Execute,Field_Number 0xd
0176 01cc | | Execute Vector,Catenate
0177 e004 | | Load 0x0,0x4
0178 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0179 4501 |E | Exit_Suprogram New_Top_Offset 0x1
017a 0000 0000 | | .BLANK 0000[0x6]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183 | | .CONST 0x0183 ; Address of begin
0181 022a | * | .CONST 0x022a ; Address of exception handler
0182 0001 | | .CONST 0x0001 ; Number of locals
0183 BODY_0180:
0183 INIT_0180:
0183 0092 024f | O| Action Push_String_Extended,0x24f ; "*** Second Test ***"
; Debug Table 0x4 = .DEBUG 0x0183,0x0386,0x0004,0x0000,0x002c,0xbd44,0x0000,0x028e
; Debug Table 0x4.0x0 = 0x183,0x1
0185 e004 | | Load 0x0,0x4
0186 180f | | Execute Package,Field_Execute,Field_Number 0xf
0187 0092 0250 | P| Action Push_String_Extended,0x250 ; "Direct Read/Write Test"
; Debug Table 0x4.0x1 = 0x187,0x2
0189 e004 | | Load 0x0,0x4
018a 180f | | Execute Package,Field_Execute,Field_Number 0xf
018b e006 | | Load 0x0,0x6 ; Debug Table 0x4.0x2 = 0x18b,0x3
018c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
018d e002 | | Load 0x0,0x2
018e 1814 | | Execute Package,Field_Execute,Field_Number 0x14
018f c405 | | Store 0x2,0x5
0190 e003 | | Load 0x0,0x3 ; Debug Table 0x4.0x3 = 0x190,0x4
0191 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0192 e402 | | Load 0x2,0x2
0193 e002 | | Load 0x0,0x2
0194 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0195 4800 |H | Short_Literal 0x0
0196 4800 |H | Short_Literal 0x0
0197 e001 | | Load 0x0,0x1
0198 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0199 4800 |H | Short_Literal 0x0
019a 4800 |H | Short_Literal 0x0
019b e007 | | Load 0x0,0x7
019c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
019d 4800 |H | Short_Literal 0x0
019e e008 | | Load 0x0,0x8
019f 181e | | Execute Package,Field_Execute,Field_Number 0x1e
01a0 e001 | | Load 0x0,0x1
01a1 181f | | Execute Package,Field_Execute,Field_Number 0x1f
01a2 00d1 | | Pop_Control Pop_Count_1
01a3 c406 | | Store 0x2,0x6
01a4 e406 | | Load 0x2,0x6 ; Debug Table 0x4.0x4 = 0x1a4,0x5
01a5 0092 0247 | G| Action Push_String_Extended,0x247 ; "Create"
01a7 e410 | | Load 0x2,0x10
01a8 4811 |H | Short_Literal 0x11
01a9 4802 |H | Short_Literal 0x2
01aa 0099 | | Action Reference_Dynamic
01ab e004 | | Load 0x0,0x4
01ac 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01ad e003 | | Load 0x0,0x3 ; Debug Table 0x4.0x5 = 0x1ad,0x6
01ae 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01af e403 | | Load 0x2,0x3
01b0 0120 | | Execute Any,Is_Value
01b1 6803 |h | Jump_Zero 0x1b5
01b2 e001 | | Load 0x0,0x1
01b3 1b13 | | Execute Package,Field_Read,Field_Number 0x13
01b4 7801 |x | Jump 0x1b6
01b5 e403 | | Load 0x2,0x3
01b6 e405 | | Load 0x2,0x5
01b7 4800 |H | Short_Literal 0x0
01b8 4802 |H | Short_Literal 0x2
01b9 e402 | | Load 0x2,0x2
01ba e001 | | Load 0x0,0x1
01bb 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
01bc c403 | | Store 0x2,0x3
01bd c407 | | Store 0x2,0x7
01be e407 | | Load 0x2,0x7 ; Debug Table 0x4.0x6 = 0x1be,0x7
01bf 0092 0248 | H| Action Push_String_Extended,0x248 ; "Open"
01c1 e414 | | Load 0x2,0x14
01c2 4815 |H | Short_Literal 0x15
01c3 4802 |H | Short_Literal 0x2
01c4 0099 | | Action Reference_Dynamic
01c5 e004 | | Load 0x0,0x4
01c6 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01c7 e001 | | Load 0x0,0x1 ; Debug Table 0x4.0x7 = 0x1c7,0x8
01c8 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01c9 c404 | | Store 0x2,0x4
01ca 480f |H | Short_Literal 0xf ; Debug Table 0x4.0x8 = 0x1ca,0x9
01cb 4803 |H | Short_Literal 0x3
01cc 0007 | | Action Break_Optional
01cd e001 | | Load 0x0,0x1 ; Debug Table 0x4.0x9 = 0x1cd,0xa
01ce 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01cf 00d9 | | Load_Top At_Offset_1
01d0 e40c | | Load 0x2,0xc
01d1 01d5 | | Execute Vector,Field_Reference
01d2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01d3 00e4 | | Load_Encached Positive_Cache
01d4 025b | [ | Execute Discrete,Check_In_Type
01d5 e403 | | Load 0x2,0x3
01d6 e40f | | Load 0x2,0xf
01d7 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01d8 c404 | | Store 0x2,0x4
01d9 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0xa = 0x1d9,0xb
01da e40c | | Load 0x2,0xc
01db 01d5 | | Execute Vector,Field_Reference
01dc e404 | | Load 0x2,0x4
01dd e403 | | Load 0x2,0x3
01de e40f | | Load 0x2,0xf
01df 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01e0 3fec |? | Loop_Increasing 0x1cd
01e1 0092 0249 | I| Action Push_String_Extended,0x249 ; "Write Finished."
; Debug Table 0x4.0xb = 0x1e1,0xc
01e3 e004 | | Load 0x0,0x4
01e4 180f | | Execute Package,Field_Execute,Field_Number 0xf
01e5 480f |H | Short_Literal 0xf ; Debug Table 0x4.0xc = 0x1e5,0xd
01e6 4803 |H | Short_Literal 0x3
01e7 0007 | | Action Break_Optional
01e8 e001 | | Load 0x0,0x1 ; Debug Table 0x4.0xd = 0x1e8,0xe
01e9 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01ea 00d9 | | Load_Top At_Offset_1
01eb e40c | | Load 0x2,0xc
01ec 01d5 | | Execute Vector,Field_Reference
01ed 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01ee 00e4 | | Load_Encached Positive_Cache
01ef 025b | [ | Execute Discrete,Check_In_Type
01f0 e403 | | Load 0x2,0x3
01f1 e40f | | Load 0x2,0xf
01f2 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01f3 c404 | | Store 0x2,0x4
01f4 e404 | | Load 0x2,0x4 ; Debug Table 0x4.0xe = 0x1f4,0xf
01f5 e403 | | Load 0x2,0x3
01f6 e40f | | Load 0x2,0xf
01f7 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01f8 e409 | | Load 0x2,0x9
01f9 017d | } | Execute Record,Structure_Write
01fa e409 | | Load 0x2,0x9 ; Debug Table 0x4.0xf = 0x1fa,0x10
01fb 00d9 | | Load_Top At_Offset_1
01fc e40c | | Load 0x2,0xc
01fd 01d5 | | Execute Vector,Field_Reference
01fe 017e | ~ | Execute Record,Not_Equal
01ff 6808 |h | Jump_Zero 0x208
0200 0092 024a | J| Action Push_String_Extended,0x24a ; "Read failure in position "
; Debug Table 0x4.0x10 = 0x200,0x11
0202 00d9 | | Load_Top At_Offset_1
0203 00e0 | | Load_Encached Standard_Cache
0204 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0205 01cc | | Execute Vector,Catenate
0206 e004 | | Load 0x0,0x4
0207 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0208 3fdf |? | Loop_Increasing 0x1e8
0209 0092 024b | K| Action Push_String_Extended,0x24b ; "Read Finished"
; Debug Table 0x4.0x11 = 0x209,0x12
020b e004 | | Load 0x0,0x4
020c 180f | | Execute Package,Field_Execute,Field_Number 0xf
020d e003 | | Load 0x0,0x3 ; Debug Table 0x4.0x12 = 0x20d,0x13
020e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
020f e403 | | Load 0x2,0x3
0210 4800 |H | Short_Literal 0x0
0211 e001 | | Load 0x0,0x1
0212 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0213 c403 | | Store 0x2,0x3
0214 c407 | | Store 0x2,0x7
0215 e407 | | Load 0x2,0x7 ; Debug Table 0x4.0x13 = 0x215,0x14
0216 0092 024c | L| Action Push_String_Extended,0x24c ; "Close"
0218 e414 | | Load 0x2,0x14
0219 4815 |H | Short_Literal 0x15
021a 4802 |H | Short_Literal 0x2
021b 0099 | | Action Reference_Dynamic
021c e004 | | Load 0x0,0x4
021d 1815 | | Execute Package,Field_Execute,Field_Number 0x15
021e e405 | | Load 0x2,0x5 ; Debug Table 0x4.0x14 = 0x21e,0x15
021f 4801 |H | Short_Literal 0x1
0220 4801 |H | Short_Literal 0x1
0221 e002 | | Load 0x0,0x2
0222 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0223 c405 | | Store 0x2,0x5
0224 e402 | | Load 0x2,0x2 ; Debug Table 0x4.0x15 = 0x224,0x16
0225 0092 0251 | Q| Action Push_String_Extended,0x251 ; "direct_fib.id"
0227 e009 | | Load 0x0,0x9
0228 180e | | Execute Package,Field_Execute,Field_Number 0xe
0229 4501 |E | Exit_Suprogram New_Top_Offset 0x1
022a TRAP_0180:
022a 0007 | | Action Break_Optional
022b e405 | | Load 0x2,0x5 ; Debug Table 0x4.0x16 = 0x22b,0x17
022c 4801 |H | Short_Literal 0x1
022d 4800 |H | Short_Literal 0x0
022e e002 | | Load 0x0,0x2
022f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0230 c405 | | Store 0x2,0x5
0231 0092 024e | N| Action Push_String_Extended,0x24e ; "Exception: "
; Debug Table 0x4.0x17 = 0x231,0x18
0233 e005 | | Load 0x0,0x5
0234 180d | | Execute Package,Field_Execute,Field_Number 0xd
0235 01cc | | Execute Vector,Catenate
0236 e004 | | Load 0x0,0x4
0237 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0238 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0239 0000 0000 | | .XXX[0x3]
023b 0000 | |
023c 0000 0000 | | .LITERAL {0x00000000, 0x002cbd44}
0240 ; --------------------------------------------------------------------------------------
0240 ; STRING TABLE
0240 ; --------------------------------------------------------------------------------------
0240 0026 | & | .STRTAB 0x0026->0x0253 ; "FILE MANAGER TEST - Create Perm. Files"
0241 004a | J | .STRTAB 0x004a->0x0266 ; "File_#2"
0242 004f | O | .STRTAB 0x004f->0x0269 ; "*** End First Test ***"
0243 0063 | c | .STRTAB 0x0063->0x0274 ; "*** End Second Test"
0244 0074 | t | .STRTAB 0x0074->0x027e ; "Unhandled exception: "
0245 0087 | | .STRTAB 0x0087->0x0288 ; "."
0246 0086 | | .STRTAB 0x0086->0x0289 ; "Sequential Write of Fibonacci Numbers"
0247 00a9 | | .STRTAB 0x00a9->0x029b ; "Create"
0248 00ad | | .STRTAB 0x00ad->0x029e ; "Open"
0249 00af | | .STRTAB 0x00af->0x02a0 ; "Write Finished."
024a 00bc | | .STRTAB 0x00bc->0x02a8 ; "Read failure in position "
024b 00d3 | | .STRTAB 0x00d3->0x02b4 ; "Read Finished"
024c 00de | | .STRTAB 0x00de->0x02bb ; "Close"
024d 00e1 | | .STRTAB 0x00e1->0x02bd ; "seq_fib.id"
024e 00e9 | | .STRTAB 0x00e9->0x02c2 ; "Exception: "
024f 00f2 | | .STRTAB 0x00f2->0x02c8 ; "*** Second Test ***"
0250 0103 | | .STRTAB 0x0103->0x02d1 ; "Direct Read/Write Test"
0251 0117 | | .STRTAB 0x0117->0x02dc ; "direct_fib.id"
0252 0122 | " | .STREND 0x0122->0x02e3
0253 4649 4c45 |FILE| .STRTAB_STRINGS
02e3 0000 0000 | | .BLANK 0000[0x5]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; Debug Table
02e8 ; --------------------------------------------------------------------------------------
02e8 0003 0005 | | .CONST 0x0003,0x0005
02ea 000b 0312 | | .DEBUG 0x000b,0x0312,0x8000,0x0000,0x002c,0xbd44,0x0000,0x0017
02f2 001b 0314 | | .DEBUG 0x001b,0x0314,0x8001,0x0000,0x002c,0xbd44,0x0000,0x0017
02fa 00bb 0350 | P| .DEBUG 0x00bb,0x0350,0x0002,0x0000,0x002c,0xbd44,0x0000,0x0091
0302 00d3 0354 | T| .DEBUG 0x00d3,0x0354,0x0004,0x0000,0x002c,0xbd44,0x0000,0x01b8
030a 0183 0386 | | .DEBUG 0x0183,0x0386,0x0004,0x0000,0x002c,0xbd44,0x0000,0x028e
0312 ; --------------------------------------------------------------------------------------
0312 ; Debug3 Subtable 0x0
0312 ; --------------------------------------------------------------------------------------
0312 0000 0000 | | .DBG3TAB 0x0000,0x0000
0314 ; --------------------------------------------------------------------------------------
0314 ; Debug3 Subtable 0x1
0314 ; --------------------------------------------------------------------------------------
0314 0011 000c | | .DBG3TAB 0x0011,0x000c
0316 001b ffff | | .CONST 0x001b,0xffff
0318 0020 fffe | | .CONST 0x0020,0xfffe
031a 0025 fffd | % | .CONST 0x0025,0xfffd
031c 002b fffc | + | .CONST 0x002b,0xfffc
031e 0030 fffb | 0 | .CONST 0x0030,0xfffb
0320 0032 fffa | 2 | .CONST 0x0032,0xfffa
0322 0034 fff9 | 4 | .CONST 0x0034,0xfff9
0324 0039 fff8 | 9 | .CONST 0x0039,0xfff8
0326 003b fff7 | ; | .CONST 0x003b,0xfff7
0328 003d fff6 | = | .CONST 0x003d,0xfff6
032a 0045 fff5 | E | .CONST 0x0045,0xfff5
032c 0046 fff4 | F | .CONST 0x0046,0xfff4
032e 0047 fff3 | G | .CONST 0x0047,0xfff3
0330 004f fff2 | O | .CONST 0x004f,0xfff2
0332 0057 fff1 | W | .CONST 0x0057,0xfff1
0334 0060 fff0 | ` | .CONST 0x0060,0xfff0
0336 0069 ffef | i | .CONST 0x0069,0xffef
0338 0070 0001 | p | .CONST 0x0070,0x0001
033a 0076 0002 | v | .CONST 0x0076,0x0002
033c 007b 0003 | { | .CONST 0x007b,0x0003
033e 0080 0004 | | .CONST 0x0080,0x0004
0340 0083 0005 | | .CONST 0x0083,0x0005
0342 0096 0006 | | .CONST 0x0096,0x0006
0344 0097 0007 | | .CONST 0x0097,0x0007
0346 009b 0008 | | .CONST 0x009b,0x0008
0348 009c 0009 | | .CONST 0x009c,0x0009
034a 00a0 000a | | .CONST 0x00a0,0x000a
034c 00a4 000b | | .CONST 0x00a4,0x000b
034e 00ae 000c | | .CONST 0x00ae,0x000c
0350 ; --------------------------------------------------------------------------------------
0350 ; Debug3 Subtable 0x2
0350 ; --------------------------------------------------------------------------------------
0350 0000 0001 | | .DBG3TAB 0x0000,0x0001
0352 00bb 0001 | | .CONST 0x00bb,0x0001
0354 ; --------------------------------------------------------------------------------------
0354 ; Debug3 Subtable 0x3
0354 ; --------------------------------------------------------------------------------------
0354 0000 0018 | | .DBG3TAB 0x0000,0x0018
0356 00d3 0001 | | .CONST 0x00d3,0x0001
0358 00d7 0002 | | .CONST 0x00d7,0x0002
035a 00dc 0003 | | .CONST 0x00dc,0x0003
035c 00f0 0004 | | .CONST 0x00f0,0x0004
035e 00f9 0005 | | .CONST 0x00f9,0x0005
0360 010a 0006 | | .CONST 0x010a,0x0006
0362 0113 0007 | | .CONST 0x0113,0x0007
0364 0116 0008 | | .CONST 0x0116,0x0008
0366 0119 0009 | | .CONST 0x0119,0x0009
0368 0120 000a | | .CONST 0x0120,0x000a
036a 0126 000b | & | .CONST 0x0126,0x000b
036c 012a 000c | * | .CONST 0x012a,0x000c
036e 012d 000d | - | .CONST 0x012d,0x000d
0370 0130 000e | 0 | .CONST 0x0130,0x000e
0372 0136 000f | 6 | .CONST 0x0136,0x000f
0374 013c 0010 | < | .CONST 0x013c,0x0010
0376 0144 0011 | D | .CONST 0x0144,0x0011
0378 014a 0012 | J | .CONST 0x014a,0x0012
037a 014e 0013 | N | .CONST 0x014e,0x0013
037c 0156 0014 | V | .CONST 0x0156,0x0014
037e 015f 0015 | _ | .CONST 0x015f,0x0015
0380 0165 0016 | e | .CONST 0x0165,0x0016
0382 016c 0017 | l | .CONST 0x016c,0x0017
0384 0172 0018 | r | .CONST 0x0172,0x0018
0386 ; --------------------------------------------------------------------------------------
0386 ; Debug3 Subtable 0x4
0386 ; --------------------------------------------------------------------------------------
0386 0000 0018 | | .DBG3TAB 0x0000,0x0018
0388 0183 0001 | | .CONST 0x0183,0x0001
038a 0187 0002 | | .CONST 0x0187,0x0002
038c 018b 0003 | | .CONST 0x018b,0x0003
038e 0190 0004 | | .CONST 0x0190,0x0004
0390 01a4 0005 | | .CONST 0x01a4,0x0005
0392 01ad 0006 | | .CONST 0x01ad,0x0006
0394 01be 0007 | | .CONST 0x01be,0x0007
0396 01c7 0008 | | .CONST 0x01c7,0x0008
0398 01ca 0009 | | .CONST 0x01ca,0x0009
039a 01cd 000a | | .CONST 0x01cd,0x000a
039c 01d9 000b | | .CONST 0x01d9,0x000b
039e 01e1 000c | | .CONST 0x01e1,0x000c
03a0 01e5 000d | | .CONST 0x01e5,0x000d
03a2 01e8 000e | | .CONST 0x01e8,0x000e
03a4 01f4 000f | | .CONST 0x01f4,0x000f
03a6 01fa 0010 | | .CONST 0x01fa,0x0010
03a8 0200 0011 | | .CONST 0x0200,0x0011
03aa 0209 0012 | | .CONST 0x0209,0x0012
03ac 020d 0013 | | .CONST 0x020d,0x0013
03ae 0215 0014 | | .CONST 0x0215,0x0014
03b0 021e 0015 | | .CONST 0x021e,0x0015
03b2 0224 0016 | $ | .CONST 0x0224,0x0016
03b4 022b 0017 | + | .CONST 0x022b,0x0017
03b6 0231 0018 | 1 | .CONST 0x0231,0x0018
03b8 0000 0000 | | .BLANK 0000[0x48]