|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_ccb0b3
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0258 | X | .CONST 0x0258 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 004a | J | .CONST 0x004a ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0023 | # | .CONST 0x0023 ; Number of locals
000b INIT_0008:
000b e001 | | Load 0x0,0x1
000c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
000d 0129 | ) | Execute Any,Make_Visible
000e e001 | | Load 0x0,0x1
000f 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0010 0129 | ) | Execute Any,Make_Visible
0011 4800 |H | Short_Literal 0x0
0012 4802 |H | Short_Literal 0x2
0013 029f 0053 | S| Declare_Subprogram INIT_0050,For_Call
0015 03fe | | Declare_Type Discrete,Defined,Visible
0016 e002 | | Load 0x0,0x2
0017 0129 | ) | Execute Any,Make_Visible
0018 e003 | | Load 0x0,0x3
0019 0129 | ) | Execute Any,Make_Visible
001a e004 | | Load 0x0,0x4
001b 0129 | ) | Execute Any,Make_Visible
001c 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated
001e 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated
0020 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated
0022 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated
0024 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated
0026 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated
0028 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated
002a 00bf | | Action Accept_Activation
002b e005 | | Load 0x0,0x5
002c e006 | | Load 0x0,0x6
002d e20f | | Load 0x1,0xf
002e e001 | | Load 0x0,0x1
002f 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d
0030 0387 | | Declare_Variable Package
0031 00d8 | | Load_Top At_Offset_0
0032 020f | | Execute Module,Activate
0033 e001 | | Load 0x0,0x1
0034 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0035 e001 | | Load 0x0,0x1
0036 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0037 011e | | Execute Any,Convert
0038 029d 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call
003a 1d19 | | Execute_Immediate Reference_Lex_1,0x19
003b 00c7 | | Action Elaborate_Subprogram
003c 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
003d 00c7 | | Action Elaborate_Subprogram
003e 029d 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call
0040 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0041 00c7 | | Action Elaborate_Subprogram
0042 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0043 00c7 | | Action Elaborate_Subprogram
0044 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0045 00c7 | | Action Elaborate_Subprogram
0046 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0047 00c7 | | Action Elaborate_Subprogram
0048 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0049 00c7 | | Action Elaborate_Subprogram
004a BODY_0008:
004a 00bc | | Action Signal_Activated
004b 00bb | | Action Signal_Completion
004c 0000 0000 | | .BLANK 0000[0x4]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0053 | S | .CONST 0x0053 ; Address of begin
0051 0004 | | .CONST 0x0004 ; Address of exception handler
0052 0001 | | .CONST 0x0001 ; Number of locals
0053 BODY_0050:
0053 INIT_0050:
0053 4607 |F | Jump_Case 0x8
0054 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0055 7806 |x | Jump 0x5c ; case 0x1
0056 7809 |x | Jump 0x60 ; case 0x2
0057 780d |x | Jump 0x65 ; case 0x3
0058 7810 |x | Jump 0x69 ; case 0x4
0059 7811 |x | Jump 0x6b ; case 0x5
005a 7812 |x | Jump 0x6d ; case 0x6
005b 7815 |x | Jump 0x71 ; case 0x7
005c 00da | | Load_Top At_Offset_2
005d 0091 01e5 | | Action Push_String_Extended_Indexed,0x1e5 ; "READ"
005f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0060 00db | | Load_Top At_Offset_3
0061 00db | | Load_Top At_Offset_3
0062 00e0 | | Load_Encached Standard_Cache
0063 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0064 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0065 00da | | Load_Top At_Offset_2
0066 00e0 | | Load_Encached Standard_Cache
0067 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0068 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0069 00db | | Load_Top At_Offset_3
006a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
006b 00db | | Load_Top At_Offset_3
006c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
006d e215 | | Load 0x1,0x15
006e 00dc | | Load_Top At_Offset_4
006f 0267 | g | Execute Discrete,Predecessor
0070 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0071 e215 | | Load 0x1,0x15
0072 00dc | | Load_Top At_Offset_4
0073 0268 | h | Execute Discrete,Successor
0074 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0075 0000 0000 | | .XXX[0x3]
0077 0000 | |
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 0084 | | .CONST 0x0084 ; Address of begin
0079 00d1 | | .CONST 0x00d1 ; Address of exception handler
007a 0004 | | .CONST 0x0004 ; Number of locals
007b INIT_0078:
007b e001 | | Load 0x0,0x1
007c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
007d e007 | | Load 0x0,0x7
007e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
007f 02c7 | | Declare_Variable Any
0080 00d8 | | Load_Top At_Offset_0
0081 1c00 | | Execute_Immediate Run_Utility,0x0
0082 e001 | | Load 0x0,0x1
0083 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0084 BODY_0078:
0084 e5fe | | Load 0x2,-0x2
0085 8222 | " | Call 0x1,0x22
0086 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0087 e001 | | Load 0x0,0x1
0088 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0089 e5fd | | Load 0x2,-0x3
008a e001 | | Load 0x0,0x1
008b 1b11 | | Execute Package,Field_Read,Field_Number 0x11
008c 011e | | Execute Any,Convert
008d 4800 |H | Short_Literal 0x0
008e 6045 |`E | Indirect_Literal Discrete,0xd4,{0x00000000, 0x00004000}
008f e008 | | Load 0x0,0x8
0090 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0091 e009 | | Load 0x0,0x9
0092 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0093 e001 | | Load 0x0,0x1
0094 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0095 4800 |H | Short_Literal 0x0
0096 e5ff | | Load 0x2,-0x1
0097 e404 | | Load 0x2,0x4
0098 e001 | | Load 0x0,0x1
0099 1820 | | Execute Package,Field_Execute,Field_Number 0x20
009a c5fd | | Store 0x2,-0x3
009b 005b | [ | Store_Top Discrete,At_Offset_3
009c 00da | | Load_Top At_Offset_2
009d 0f09 | | Execute_Immediate Equal,0x9
009e 6820 |h | Jump_Zero 0xbf
009f 00d9 | | Load_Top At_Offset_1
00a0 00ea | | Load_Encached Null_String_Cache
00a1 e5ff | | Load 0x2,-0x1
00a2 4801 |H | Short_Literal 0x1
00a3 e007 | | Load 0x0,0x7
00a4 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00a5 c403 | | Store 0x2,0x3
00a6 00d9 | | Load_Top At_Offset_1
00a7 e007 | | Load 0x0,0x7
00a8 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00a9 c403 | | Store 0x2,0x3
00aa e001 | | Load 0x0,0x1
00ab 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00ac e5fd | | Load 0x2,-0x3
00ad e001 | | Load 0x0,0x1
00ae 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00af 011e | | Execute Any,Convert
00b0 4800 |H | Short_Literal 0x0
00b1 6022 |`" | Indirect_Literal Discrete,0xd4,{0x00000000, 0x00004000}
00b2 e008 | | Load 0x0,0x8
00b3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00b4 e009 | | Load 0x0,0x9
00b5 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00b6 e001 | | Load 0x0,0x1
00b7 181f | | Execute Package,Field_Execute,Field_Number 0x1f
00b8 4800 |H | Short_Literal 0x0
00b9 e5ff | | Load 0x2,-0x1
00ba 4802 |H | Short_Literal 0x2
00bb e001 | | Load 0x0,0x1
00bc 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00bd c5fd | | Store 0x2,-0x3
00be 005b | [ | Store_Top Discrete,At_Offset_3
00bf 00da | | Load_Top At_Offset_2
00c0 680f |h | Jump_Zero 0xd0
00c1 e00a | | Load 0x0,0xa
00c2 180e | | Execute Package,Field_Execute,Field_Number 0xe
00c3 4806 |H | Short_Literal 0x6
00c4 0092 01e8 | | Action Push_String_Extended,0x1e8 ; "Open failed due to "
00c6 e402 | | Load 0x2,0x2
00c7 e00b | | Load 0x0,0xb
00c8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00c9 011c | | Execute Any,Convert_Unchecked
00ca 1c01 | | Execute_Immediate Run_Utility,0x1
00cb 01cc | | Execute Vector,Catenate
00cc e00c | | Load 0x0,0xc
00cd 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00ce e216 | | Load 0x1,0x16
00cf 0257 | W | Execute Discrete,Raise
00d0 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00d1 TRAP_0078:
00d1 0007 | | Action Break_Optional
00d2 e216 | | Load 0x1,0x16
00d3 0257 | W | Execute Discrete,Raise
00d4 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db | | .CONST 0x00db ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0001 | | .CONST 0x0001 ; Number of locals
00db BODY_00d8:
00db INIT_00d8:
00db e001 | | Load 0x0,0x1
00dc 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00dd 00ca | | Action Exit_Nullary_Function
00de 0000 0000 | | .XXX[0x2]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00f2 | | .CONST 0x00f2 ; Address of begin
00e1 0125 | % | .CONST 0x0125 ; Address of exception handler
00e2 0004 | | .CONST 0x0004 ; Number of locals
00e3 INIT_00e0:
00e3 e001 | | Load 0x0,0x1
00e4 1b15 | | Execute Package,Field_Read,Field_Number 0x15
00e5 02c7 | | Declare_Variable Any
00e6 e001 | | Load 0x0,0x1
00e7 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00e8 a402 | | Store_Unchecked 0x2,0x2
00e9 e001 | | Load 0x0,0x1
00ea 1b15 | | Execute Package,Field_Read,Field_Number 0x15
00eb 02c7 | | Declare_Variable Any
00ec e221 | ! | Load 0x1,0x21
00ed a403 | | Store_Unchecked 0x2,0x3
00ee e20f | | Load 0x1,0xf
00ef 02c7 | | Declare_Variable Any
00f0 00d8 | | Load_Top At_Offset_0
00f1 1c00 | | Execute_Immediate Run_Utility,0x0
00f2 BODY_00e0:
00f2 00cf | | Action Mark_Auxiliary
00f3 7824 |x$ | Jump 0x118
00f4 00db | | Load_Top At_Offset_3
00f5 e5ff | | Load 0x2,-0x1
00f6 e220 | | Load 0x1,0x20
00f7 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00f8 c404 | | Store 0x2,0x4
00f9 00d9 | | Load_Top At_Offset_1
00fa e20f | | Load 0x1,0xf
00fb 0119 | | Execute Any,Check_In_Formal_Type
00fc 8211 | | Call 0x1,0x11
00fd 6803 |h | Jump_Zero 0x101
00fe 00db | | Load_Top At_Offset_3
00ff c403 | | Store 0x2,0x3
0100 7811 |x | Jump 0x112
0101 e5fe | | Load 0x2,-0x2
0102 e20f | | Load 0x1,0xf
0103 0119 | | Execute Any,Check_In_Formal_Type
0104 00da | | Load_Top At_Offset_2
0105 e20f | | Load 0x1,0xf
0106 0119 | | Execute Any,Check_In_Formal_Type
0107 8210 | | Call 0x1,0x10
0108 6809 |h | Jump_Zero 0x112
0109 00db | | Load_Top At_Offset_3
010a c5fc | | Store 0x2,-0x4
010b e5ff | | Load 0x2,-0x1
010c 00db | | Load_Top At_Offset_3
010d 8223 | # | Call 0x1,0x23
010e c5fb | | Store 0x2,-0x5
010f 00d9 | | Load_Top At_Offset_1
0110 c5fd | | Store 0x2,-0x3
0111 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0112 00db | | Load_Top At_Offset_3
0113 e5ff | | Load 0x2,-0x1
0114 e220 | | Load 0x1,0x20
0115 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0116 c402 | | Store 0x2,0x2
0117 00c9 | | Action Pop_Auxiliary_Loop
0118 00db | | Load_Top At_Offset_3
0119 e5ff | | Load 0x2,-0x1
011a e001 | | Load 0x0,0x1
011b 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
011c 6fd7 |o | Jump_Zero 0xf4
011d 00ce | | Action Pop_Auxiliary
011e e221 | ! | Load 0x1,0x21
011f c5fc | | Store 0x2,-0x4
0120 e5ff | | Load 0x2,-0x1
0121 00da | | Load_Top At_Offset_2
0122 8223 | # | Call 0x1,0x23
0123 c5fb | | Store 0x2,-0x5
0124 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0125 TRAP_00e0:
0125 00d8 | | Load_Top At_Offset_0
0126 0107 | | Execute Exception,Get_Name
0127 4950 |IP | Short_Literal 0x150
0128 495f |I_ | Short_Literal 0x15f
0129 0262 | b | Execute Discrete,In_Range
012a 680a |h | Jump_Zero 0x135
012b e00a | | Load 0x0,0xa
012c 180e | | Execute Package,Field_Execute,Field_Number 0xe
012d 4806 |H | Short_Literal 0x6
012e 0092 01e9 | | Action Push_String_Extended,0x1e9 ; "Unexpected end of file : lookup"
0130 e00c | | Load 0x0,0xc
0131 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0132 e221 | ! | Load 0x1,0x21
0133 c5fc | | Store 0x2,-0x4
0134 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0135 e00a | | Load 0x0,0xa
0136 180e | | Execute Package,Field_Execute,Field_Number 0xe
0137 4806 |H | Short_Literal 0x6
0138 0092 01ea | | Action Push_String_Extended,0x1ea ; "Unexpected exception : lookup"
013a e00c | | Load 0x0,0xc
013b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
013c e221 | ! | Load 0x1,0x21
013d c5fc | | Store 0x2,-0x4
013e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
013f 0000 | | .XXX[0x1]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143 | C | .CONST 0x0143 ; Address of begin
0141 014b | K | .CONST 0x014b ; Address of exception handler
0142 0001 | | .CONST 0x0001 ; Number of locals
0143 BODY_0140:
0143 INIT_0140:
0143 00db | | Load_Top At_Offset_3
0144 e20f | | Load 0x1,0xf
0145 0119 | | Execute Any,Check_In_Formal_Type
0146 e5fd | | Load 0x2,-0x3
0147 e5ff | | Load 0x2,-0x1
0148 e220 | | Load 0x1,0x20
0149 1812 | | Execute Package,Field_Execute,Field_Number 0x12
014a 4504 |E | Exit_Suprogram New_Top_Offset 0x4
014b TRAP_0140:
014b 0007 | | Action Break_Optional
014c e00a | | Load 0x0,0xa
014d 180e | | Execute Package,Field_Execute,Field_Number 0xe
014e 4806 |H | Short_Literal 0x6
014f 0092 01eb | | Action Push_String_Extended,0x1eb ; "Unexpected exception : update"
0151 e00c | | Load 0x0,0xc
0152 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0153 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0154 0000 0000 | | .BLANK 0000[0x4]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b | [ | .CONST 0x015b ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0001 | | .CONST 0x0001 ; Number of locals
015b BODY_0158:
015b INIT_0158:
015b 00da | | Load_Top At_Offset_2
015c e001 | | Load 0x0,0x1
015d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
015e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
015f 0000 | | .XXX[0x1]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0165 | e | .CONST 0x0165 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0002 | | .CONST 0x0002 ; Number of locals
0163 INIT_0160:
0163 e001 | | Load 0x0,0x1
0164 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0165 BODY_0160:
0165 e001 | | Load 0x0,0x1
0166 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0167 e5ff | | Load 0x2,-0x1
0168 e001 | | Load 0x0,0x1
0169 1b11 | | Execute Package,Field_Read,Field_Number 0x11
016a 011e | | Execute Any,Convert
016b e001 | | Load 0x0,0x1
016c 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
016d c5ff | | Store 0x2,-0x1
016e 0059 | Y | Store_Top Discrete,At_Offset_1
016f 00d8 | | Load_Top At_Offset_0
0170 680f |h | Jump_Zero 0x180
0171 e00a | | Load 0x0,0xa
0172 180e | | Execute Package,Field_Execute,Field_Number 0xe
0173 4806 |H | Short_Literal 0x6
0174 0092 01ec | | Action Push_String_Extended,0x1ec ; "Close failed due to "
0176 00db | | Load_Top At_Offset_3
0177 e00b | | Load 0x0,0xb
0178 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0179 011c | | Execute Any,Convert_Unchecked
017a 1c01 | | Execute_Immediate Run_Utility,0x1
017b 01cc | | Execute Vector,Catenate
017c e00c | | Load 0x0,0xc
017d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
017e e217 | | Load 0x1,0x17
017f 0257 | W | Execute Discrete,Raise
0180 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0181 0000 0000 | | .BLANK 0000[0x7]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 019a | | .CONST 0x019a ; Address of begin
0189 01b1 | | .CONST 0x01b1 ; Address of exception handler
018a 0004 | | .CONST 0x0004 ; Number of locals
018b INIT_0188:
018b e001 | | Load 0x0,0x1
018c 1b15 | | Execute Package,Field_Read,Field_Number 0x15
018d 02c7 | | Declare_Variable Any
018e e001 | | Load 0x0,0x1
018f 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0190 a402 | | Store_Unchecked 0x2,0x2
0191 e20f | | Load 0x1,0xf
0192 02c7 | | Declare_Variable Any
0193 00d8 | | Load_Top At_Offset_0
0194 1c00 | | Execute_Immediate Run_Utility,0x0
0195 e001 | | Load 0x0,0x1
0196 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0197 e001 | | Load 0x0,0x1
0198 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0199 011e | | Execute Any,Convert
019a BODY_0188:
019a 00cf | | Action Mark_Auxiliary
019b 780f |x | Jump 0x1ab
019c 00db | | Load_Top At_Offset_3
019d e5ff | | Load 0x2,-0x1
019e e220 | | Load 0x1,0x20
019f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01a0 c403 | | Store 0x2,0x3
01a1 00da | | Load_Top At_Offset_2
01a2 e20f | | Load 0x1,0xf
01a3 0119 | | Execute Any,Check_In_Formal_Type
01a4 8212 | | Call 0x1,0x12
01a5 00db | | Load_Top At_Offset_3
01a6 e5ff | | Load 0x2,-0x1
01a7 e220 | | Load 0x1,0x20
01a8 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01a9 c402 | | Store 0x2,0x2
01aa 00c9 | | Action Pop_Auxiliary_Loop
01ab 00db | | Load_Top At_Offset_3
01ac e5ff | | Load 0x2,-0x1
01ad e001 | | Load 0x0,0x1
01ae 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
01af 6fec |o | Jump_Zero 0x19c
01b0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01b1 TRAP_0188:
01b1 00d8 | | Load_Top At_Offset_0
01b2 0107 | | Execute Exception,Get_Name
01b3 4950 |IP | Short_Literal 0x150
01b4 495f |I_ | Short_Literal 0x15f
01b5 0262 | b | Execute Discrete,In_Range
01b6 6808 |h | Jump_Zero 0x1bf
01b7 e00a | | Load 0x0,0xa
01b8 180e | | Execute Package,Field_Execute,Field_Number 0xe
01b9 4806 |H | Short_Literal 0x6
01ba 0092 01ed | | Action Push_String_Extended,0x1ed ; "Unexpected end of file : dump"
01bc e00c | | Load 0x0,0xc
01bd 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01be 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01bf e00a | | Load 0x0,0xa
01c0 180e | | Execute Package,Field_Execute,Field_Number 0xe
01c1 4806 |H | Short_Literal 0x6
01c2 0092 01ee | | Action Push_String_Extended,0x1ee ; "Unexpected exception : dump"
01c4 e00c | | Load 0x0,0xc
01c5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01c6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01c7 0000 | | .XXX[0x1]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb | | .CONST 0x01cb ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0001 | | .CONST 0x0001 ; Number of locals
01cb BODY_01c8:
01cb INIT_01c8:
01cb 00da | | Load_Top At_Offset_2
01cc 4602 |F | Jump_Case 0x3
01cd 7804 |x | Jump 0x1d2 ; case 0x0
01ce 7805 |x | Jump 0x1d4 ; case 0x1
01cf 7800 |x | Jump 0x1d0 ; case 0x2
01d0 4802 |H | Short_Literal 0x2
01d1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01d2 4800 |H | Short_Literal 0x0
01d3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01d4 4801 |H | Short_Literal 0x1
01d5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01d6 0000 0000 | | .XXX[0x2]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db | | .CONST 0x01db ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0001 | | .CONST 0x0001 ; Number of locals
01db BODY_01d8:
01db INIT_01d8:
01db 00da | | Load_Top At_Offset_2
01dc e221 | ! | Load 0x1,0x21
01dd 012f | / | Execute Any,Equal
01de 6804 |h | Jump_Zero 0x1e3
01df 00db | | Load_Top At_Offset_3
01e0 e001 | | Load 0x0,0x1
01e1 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
01e2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01e3 00da | | Load_Top At_Offset_2
01e4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01e5 ; --------------------------------------------------------------------------------------
01e5 ; STRING TABLE
01e5 ; --------------------------------------------------------------------------------------
01e5 0016 | | .STRTAB 0x0016->0x01f0 ; "READ"
01e6 0018 | | .STRTAB 0x0018->0x01f2 ; "WRITE"
01e7 001b | | .STRTAB 0x001b->0x01f4 ; "READ_WRITE"
01e8 0023 | # | .STRTAB 0x0023->0x01f9 ; "Open failed due to "
01e9 0034 | 4 | .STRTAB 0x0034->0x0203 ; "Unexpected end of file : lookup"
01ea 0051 | Q | .STRTAB 0x0051->0x0212 ; "Unexpected exception : lookup"
01eb 006c | l | .STRTAB 0x006c->0x0221 ; "Unexpected exception : update"
01ec 0087 | | .STRTAB 0x0087->0x022f ; "Close failed due to "
01ed 0099 | | .STRTAB 0x0099->0x0239 ; "Unexpected end of file : dump"
01ee 00b4 | | .STRTAB 0x00b4->0x0248 ; "Unexpected exception : dump"
01ef 00cd | | .STREND 0x00cd->0x0255
01f0 5245 4144 |READ| .STRTAB_STRINGS
0256 0000 0000 | | .XXX[0x2]
0258 ; --------------------------------------------------------------------------------------
0258 ; Debug Table
0258 ; --------------------------------------------------------------------------------------
0258 0004 000e | | .DEBUG4 0x0004,0x000e,0x933d,0x0000,0x0001,0x0000
025e 1010 1010 | | .XXX[0x20]
0260 1025 b4b7 | % |
0262 3210 1e9f |2 |
0264 1028 3937 | (97|
0266 b334 b632 | 4 2|
0268 9722 b939 | " 9|
026a 37b9 2fa6 |7 / |
026c b9b3 949d | |
026e 9880 0e32 | 2|
0270 b732 1029 | 2 )|
0272 32b3 b4b9 |2 |
0274 ba32 b92f | 2 /|
0276 a0b6 362f | 6/|
0278 a2bc 3a32 | :2|
027a b739 b4b7 | 9 |
027c b739 9d8e | 9 |
027e 0000 0000 | | .BLANK 0000[0x182]