|
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_0d2ce3
└─⟦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 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 8001 | | .CONST 0x8001 ; 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
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 004a | J | .CONST 0x004a ; Address of begin
0019 0055 | U | .CONST 0x0055 ; Address of exception handler
001a 000c | | .CONST 0x000c ; Number of locals
001b INIT_0018:
001b e001 | | Load 0x0,0x1
001c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
001d 02c7 | | Declare_Variable Any
001e 00d8 | | Load_Top At_Offset_0
001f 1c00 | | Execute_Immediate Run_Utility,0x0
0020 00e3 | | Load_Encached Natural_Cache
0021 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0022 e5fe | | Load 0x2,-0x2
0023 00e1 | | Load_Encached Boolean_Cache
0024 03f1 | | Declare_Variable Discrete,With_Value
0025 029f 0083 | | Declare_Subprogram INIT_0080,For_Call
0027 029f 00bb | | Declare_Subprogram INIT_00b8,For_Call
0029 029f 00e3 | | Declare_Subprogram INIT_00e0,For_Call
002b 029f 0103 | | Declare_Subprogram INIT_0100,For_Call
002d 029f 011b | | Declare_Subprogram INIT_0118,For_Call
002f 029f 0123 | #| Declare_Subprogram INIT_0120,For_Call
0031 e002 | | Load 0x0,0x2
0032 e003 | | Load 0x0,0x3
0033 e004 | | Load 0x0,0x4
0034 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0035 4807 |H | Short_Literal 0x7
0036 4802 |H | Short_Literal 0x2
0037 0099 | | Action Reference_Dynamic
0038 e004 | | Load 0x0,0x4
0039 1919 | | Execute Package,Field_Reference,Field_Number 0x19
003a 4808 |H | Short_Literal 0x8
003b 4802 |H | Short_Literal 0x2
003c 0099 | | Action Reference_Dynamic
003d 4809 |H | Short_Literal 0x9
003e 4802 |H | Short_Literal 0x2
003f 0099 | | Action Reference_Dynamic
0040 480a |H | Short_Literal 0xa
0041 4802 |H | Short_Literal 0x2
0042 0099 | | Action Reference_Dynamic
0043 6038 |`8 | Indirect_Literal Discrete,0x7c,{0x00000000, 0x00000400}
0044 e005 | | Load 0x0,0x5
0045 0387 | | Declare_Variable Package
0046 00d8 | | Load_Top At_Offset_0
0047 020f | | Execute Module,Activate
0048 029f 021b | | Declare_Subprogram INIT_0218,For_Call
004a BODY_0018:
004a e402 | | Load 0x2,0x2
004b 00ea | | Load_Encached Null_String_Cache
004c e5ff | | Load 0x2,-0x1
004d 4800 |H | Short_Literal 0x0
004e e001 | | Load 0x0,0x1
004f 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0050 c402 | | Store 0x2,0x2
0051 00cf | | Action Mark_Auxiliary
0052 840c | | Call 0x2,0xc
0053 00c9 | | Action Pop_Auxiliary_Loop
0054 7ffd | | Jump 0x52
0055 TRAP_0018:
0055 00d8 | | Load_Top At_Offset_0
0056 0107 | | Execute Exception,Get_Name
0057 4950 |IP | Short_Literal 0x150
0058 495f |I_ | Short_Literal 0x15f
0059 0262 | b | Execute Discrete,In_Range
005a 6815 |h | Jump_Zero 0x70
005b e402 | | Load 0x2,0x2
005c e001 | | Load 0x0,0x1
005d 181b | | Execute Package,Field_Execute,Field_Number 0x1b
005e c402 | | Store 0x2,0x2
005f e006 | | Load 0x0,0x6
0060 180e | | Execute Package,Field_Execute,Field_Number 0xe
0061 4803 |H | Short_Literal 0x3
0062 0092 0256 | V| Action Push_String_Extended,0x256 ; "Put"
0064 e403 | | Load 0x2,0x3
0065 00e0 | | Load_Encached Standard_Cache
0066 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0067 01cc | | Execute Vector,Catenate
0068 0092 0257 | W| Action Push_String_Extended,0x257 ; " files via "
006a 01cc | | Execute Vector,Catenate
006b e5ff | | Load 0x2,-0x1
006c 01cc | | Execute Vector,Catenate
006d e007 | | Load 0x0,0x7
006e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
006f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0070 e006 | | Load 0x0,0x6
0071 180e | | Execute Package,Field_Execute,Field_Number 0xe
0072 4808 |H | Short_Literal 0x8
0073 0092 0258 | X| Action Push_String_Extended,0x258 ; "Put_to_EEDB failed"
0075 e007 | | Load 0x0,0x7
0076 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0077 00d8 | | Load_Top At_Offset_0
0078 0101 | | Execute Exception,Reraise
0079 0000 0000 | | .XXX[0x3]
007b 0000 | |
007c 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 008d | | .CONST 0x008d ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0003 | | .CONST 0x0003 ; Number of locals
0083 INIT_0080:
0083 00da | | Load_Top At_Offset_2
0084 01da | | Execute Vector,Bounds
0085 00e9 | | Load_Encached String_Cache
0086 035b | [ | Declare_Type Array,Constrained
0087 0337 | 7 | Declare_Variable Array
0088 00d8 | | Load_Top At_Offset_0
0089 01dd | | Execute Vector,First
008a 0aff | | Execute_Immediate Plus,-0x1
008b 00e3 | | Load_Encached Natural_Cache
008c 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
008d BODY_0080:
008d 00cf | | Action Mark_Auxiliary
008e e7ff | | Load 0x3,-0x1
008f 01d9 | | Execute Vector,Reverse_Bounds
0090 0263 | c | Execute Discrete,Above_Bound
0091 7018 |p | Jump_Nonzero 0xaa
0092 00db | | Load_Top At_Offset_3
0093 0a01 | | Execute_Immediate Plus,0x1
0094 c603 | | Store 0x3,0x3
0095 00d8 | | Load_Top At_Offset_0
0096 e7ff | | Load 0x3,-0x1
0097 01d7 | | Execute Vector,Field_Read
0098 0b3a | : | Execute_Immediate Case_Compare,0x3a
0099 7009 |p | Jump_Nonzero 0xa3
009a 0f2e | . | Execute_Immediate Equal,0x2e
009b 7008 |p | Jump_Nonzero 0xa4
009c 00d8 | | Load_Top At_Offset_0
009d e7ff | | Load 0x3,-0x1
009e 01d7 | | Execute Vector,Field_Read
009f e603 | | Load 0x3,0x3
00a0 e602 | | Load 0x3,0x2
00a1 01d6 | | Execute Vector,Field_Write
00a2 7805 |x | Jump 0xa8
00a3 00d1 | | Pop_Control Pop_Count_1
00a4 485f |H_ | Short_Literal 0x5f
00a5 e603 | | Load 0x3,0x3
00a6 e602 | | Load 0x3,0x2
00a7 01d6 | | Execute Vector,Field_Write
00a8 00c8 | | Action Pop_Auxiliary_Range
00a9 3fe8 |? | Loop_Increasing 0x92
00aa 00ce | | Action Pop_Auxiliary
00ab 00d9 | | Load_Top At_Offset_1
00ac 01dd | | Execute Vector,First
00ad 00d9 | | Load_Top At_Offset_1
00ae 00db | | Load_Top At_Offset_3
00af 01cf | | Execute Vector,Slice_Read
00b0 00e9 | | Load_Encached String_Cache
00b1 01c6 | | Execute Vector,Convert_To_Formal
00b2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00b3 0000 0000 | | .BLANK 0000[0x5]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00c9 | | .CONST 0x00c9 ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0004 | | .CONST 0x0004 ; Number of locals
00bb INIT_00b8:
00bb 4800 |H | Short_Literal 0x0
00bc 00db | | Load_Top At_Offset_3
00bd 483a |H: | Short_Literal 0x3a
00be e008 | | Load 0x0,0x8
00bf 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00c0 0a01 | | Execute_Immediate Plus,0x1
00c1 00e4 | | Load_Encached Positive_Cache
00c2 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
00c3 00db | | Load_Top At_Offset_3
00c4 01dc | | Execute Vector,Last
00c5 00e3 | | Load_Encached Natural_Cache
00c6 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
00c7 029f 023b | ;| Declare_Subprogram INIT_0238,For_Call
00c9 BODY_00b8:
00c9 00da | | Load_Top At_Offset_2
00ca 0f01 | | Execute_Immediate Equal,0x1
00cb 6803 |h | Jump_Zero 0xcf
00cc e7ff | | Load 0x3,-0x1
00cd 01dd | | Execute Vector,First
00ce 005b | [ | Store_Top Discrete,At_Offset_3
00cf 00d9 | | Load_Top At_Offset_1
00d0 00db | | Load_Top At_Offset_3
00d1 027d | } | Execute Discrete,Greater
00d2 6809 |h | Jump_Zero 0xdc
00d3 00d9 | | Load_Top At_Offset_1
00d4 0aff | | Execute_Immediate Plus,-0x1
00d5 e7ff | | Load 0x3,-0x1
00d6 01d7 | | Execute Vector,Field_Read
00d7 0f2f | / | Execute_Immediate Equal,0x2f
00d8 6803 |h | Jump_Zero 0xdc
00d9 00d9 | | Load_Top At_Offset_1
00da 0afe | | Execute_Immediate Plus,-0x2
00db 005a | Z | Store_Top Discrete,At_Offset_2
00dc 8604 | | Call 0x3,0x4
00dd 0831 | 1 | Execute_Immediate Raise,0x31
00de 0000 0000 | | .XXX[0x2]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3 | | .CONST 0x00e3 ; Address of begin
00e1 00f4 | | .CONST 0x00f4 ; Address of exception handler
00e2 0001 | | .CONST 0x0001 ; Number of locals
00e3 BODY_00e0:
00e3 INIT_00e0:
00e3 00db | | Load_Top At_Offset_3
00e4 e009 | | Load 0x0,0x9
00e5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00e6 e00a | | Load 0x0,0xa
00e7 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00e8 00ea | | Load_Encached Null_String_Cache
00e9 4824 |H$ | Short_Literal 0x24
00ea e5ff | | Load 0x2,-0x1
00eb 01cb | | Execute Vector,Append
00ec e7ff | | Load 0x3,-0x1
00ed 8406 | | Call 0x2,0x6
00ee 01cc | | Execute Vector,Catenate
00ef 4800 |H | Short_Literal 0x0
00f0 e004 | | Load 0x0,0x4
00f1 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00f2 c7fe | | Store 0x3,-0x2
00f3 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00f4 TRAP_00e0:
00f4 0007 | | Action Break_Optional
00f5 e006 | | Load 0x0,0x6
00f6 180e | | Execute Package,Field_Execute,Field_Number 0xe
00f7 4807 |H | Short_Literal 0x7
00f8 0092 0259 | Y| Action Push_String_Extended,0x259 ; "cannot open "
00fa e7ff | | Load 0x3,-0x1
00fb 01cc | | Execute Vector,Catenate
00fc e007 | | Load 0x0,0x7
00fd 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00fe 00d8 | | Load_Top At_Offset_0
00ff 0101 | | Execute Exception,Reraise
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 010b | | .CONST 0x010b ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 00e3 | | Load_Encached Natural_Cache
0104 e7fe | | Load 0x3,-0x2
0105 e7ff | | Load 0x3,-0x1
0106 e004 | | Load 0x0,0x4
0107 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0108 00d1 | | Pop_Control Pop_Count_1
0109 c7fd | | Store 0x3,-0x3
010a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
010b TRAP_0100:
010b 00d8 | | Load_Top At_Offset_0
010c 0107 | | Execute Exception,Get_Name
010d 4950 |IP | Short_Literal 0x150
010e 495f |I_ | Short_Literal 0x15f
010f 0262 | b | Execute Discrete,In_Range
0110 6803 |h | Jump_Zero 0x114
0111 4800 |H | Short_Literal 0x0
0112 a7fd | | Store_Unchecked 0x3,-0x3
0113 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0114 0100 | | Execute Exception,Raise
0115 0000 0000 | | .XXX[0x3]
0117 0000 | |
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b | | .CONST 0x011b ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0001 | | .CONST 0x0001 ; Number of locals
011b BODY_0118:
011b INIT_0118:
011b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
011c 0000 0000 | | .BLANK 0000[0x4]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123 | # | .CONST 0x0123 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0001 | | .CONST 0x0001 ; Number of locals
0123 BODY_0120:
0123 INIT_0120:
0123 00da | | Load_Top At_Offset_2
0124 01db | | Execute Vector,Length
0125 0c04 | | Execute_Immediate Greater_Equal,0x4
0126 68ea |h | Jump_Zero 0x211
0127 00da | | Load_Top At_Offset_2
0128 01dd | | Execute Vector,First
0129 0a03 | | Execute_Immediate Plus,0x3
012a 00db | | Load_Top At_Offset_3
012b 01d7 | | Execute Vector,Field_Read
012c 0f20 | | Execute_Immediate Equal,0x20
012d 68e3 |h | Jump_Zero 0x211
012e 00da | | Load_Top At_Offset_2
012f 01dd | | Execute Vector,First
0130 00db | | Load_Top At_Offset_3
0131 01dd | | Execute Vector,First
0132 0a02 | | Execute_Immediate Plus,0x2
0133 00d8 | | Load_Top At_Offset_0
0134 00e2 | | Load_Encached Integer_Cache
0135 0260 | ` | Execute Discrete,In_Type
0136 7001 |p | Jump_Nonzero 0x138
0137 0801 | | Execute_Immediate Raise,0x1
0138 e7ff | | Load 0x3,-0x1
0139 01cf | | Execute Vector,Slice_Read
013a 0092 025a | Z| Action Push_String_Extended,0x25a ; "+++"
013c 01df | | Execute Vector,Equal
013d 6812 |h | Jump_Zero 0x150
013e e006 | | Load 0x0,0x6
013f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0140 4803 |H | Short_Literal 0x3
0141 e7ff | | Load 0x3,-0x1
0142 01dd | | Execute Vector,First
0143 0a04 | | Execute_Immediate Plus,0x4
0144 00d8 | | Load_Top At_Offset_0
0145 00e2 | | Load_Encached Integer_Cache
0146 0260 | ` | Execute Discrete,In_Type
0147 7001 |p | Jump_Nonzero 0x149
0148 0801 | | Execute_Immediate Raise,0x1
0149 e7ff | | Load 0x3,-0x1
014a 01dc | | Execute Vector,Last
014b e7ff | | Load 0x3,-0x1
014c 01cf | | Execute Vector,Slice_Read
014d e007 | | Load 0x0,0x7
014e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
014f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0150 00da | | Load_Top At_Offset_2
0151 01dd | | Execute Vector,First
0152 00db | | Load_Top At_Offset_3
0153 01dd | | Execute Vector,First
0154 0a02 | | Execute_Immediate Plus,0x2
0155 00d8 | | Load_Top At_Offset_0
0156 00e2 | | Load_Encached Integer_Cache
0157 0260 | ` | Execute Discrete,In_Type
0158 7001 |p | Jump_Nonzero 0x15a
0159 0801 | | Execute_Immediate Raise,0x1
015a e7ff | | Load 0x3,-0x1
015b 01cf | | Execute Vector,Slice_Read
015c 0092 025b | [| Action Push_String_Extended,0x25b ; "++*"
015e 01df | | Execute Vector,Equal
015f 6812 |h | Jump_Zero 0x172
0160 e006 | | Load 0x0,0x6
0161 180e | | Execute Package,Field_Execute,Field_Number 0xe
0162 4805 |H | Short_Literal 0x5
0163 e7ff | | Load 0x3,-0x1
0164 01dd | | Execute Vector,First
0165 0a04 | | Execute_Immediate Plus,0x4
0166 00d8 | | Load_Top At_Offset_0
0167 00e2 | | Load_Encached Integer_Cache
0168 0260 | ` | Execute Discrete,In_Type
0169 7001 |p | Jump_Nonzero 0x16b
016a 0801 | | Execute_Immediate Raise,0x1
016b e7ff | | Load 0x3,-0x1
016c 01dc | | Execute Vector,Last
016d e7ff | | Load 0x3,-0x1
016e 01cf | | Execute Vector,Slice_Read
016f e007 | | Load 0x0,0x7
0170 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0171 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0172 00da | | Load_Top At_Offset_2
0173 01dd | | Execute Vector,First
0174 00db | | Load_Top At_Offset_3
0175 01dd | | Execute Vector,First
0176 0a02 | | Execute_Immediate Plus,0x2
0177 00d8 | | Load_Top At_Offset_0
0178 00e2 | | Load_Encached Integer_Cache
0179 0260 | ` | Execute Discrete,In_Type
017a 7001 |p | Jump_Nonzero 0x17c
017b 0801 | | Execute_Immediate Raise,0x1
017c e7ff | | Load 0x3,-0x1
017d 01cf | | Execute Vector,Slice_Read
017e 0092 025c | \| Action Push_String_Extended,0x25c ; "***"
0180 01df | | Execute Vector,Equal
0181 6812 |h | Jump_Zero 0x194
0182 e006 | | Load 0x0,0x6
0183 180e | | Execute Package,Field_Execute,Field_Number 0xe
0184 4807 |H | Short_Literal 0x7
0185 e7ff | | Load 0x3,-0x1
0186 01dd | | Execute Vector,First
0187 0a04 | | Execute_Immediate Plus,0x4
0188 00d8 | | Load_Top At_Offset_0
0189 00e2 | | Load_Encached Integer_Cache
018a 0260 | ` | Execute Discrete,In_Type
018b 7001 |p | Jump_Nonzero 0x18d
018c 0801 | | Execute_Immediate Raise,0x1
018d e7ff | | Load 0x3,-0x1
018e 01dc | | Execute Vector,Last
018f e7ff | | Load 0x3,-0x1
0190 01cf | | Execute Vector,Slice_Read
0191 e007 | | Load 0x0,0x7
0192 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0193 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0194 00da | | Load_Top At_Offset_2
0195 01dd | | Execute Vector,First
0196 00db | | Load_Top At_Offset_3
0197 01dd | | Execute Vector,First
0198 0a02 | | Execute_Immediate Plus,0x2
0199 00d8 | | Load_Top At_Offset_0
019a 00e2 | | Load_Encached Integer_Cache
019b 0260 | ` | Execute Discrete,In_Type
019c 7001 |p | Jump_Nonzero 0x19e
019d 0801 | | Execute_Immediate Raise,0x1
019e e7ff | | Load 0x3,-0x1
019f 01cf | | Execute Vector,Slice_Read
01a0 0092 025d | ]| Action Push_String_Extended,0x25d ; "%%%"
01a2 01df | | Execute Vector,Equal
01a3 6812 |h | Jump_Zero 0x1b6
01a4 e006 | | Load 0x0,0x6
01a5 180e | | Execute Package,Field_Execute,Field_Number 0xe
01a6 4808 |H | Short_Literal 0x8
01a7 e7ff | | Load 0x3,-0x1
01a8 01dd | | Execute Vector,First
01a9 0a04 | | Execute_Immediate Plus,0x4
01aa 00d8 | | Load_Top At_Offset_0
01ab 00e2 | | Load_Encached Integer_Cache
01ac 0260 | ` | Execute Discrete,In_Type
01ad 7001 |p | Jump_Nonzero 0x1af
01ae 0801 | | Execute_Immediate Raise,0x1
01af e7ff | | Load 0x3,-0x1
01b0 01dc | | Execute Vector,Last
01b1 e7ff | | Load 0x3,-0x1
01b2 01cf | | Execute Vector,Slice_Read
01b3 e007 | | Load 0x0,0x7
01b4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01b5 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01b6 00da | | Load_Top At_Offset_2
01b7 01dd | | Execute Vector,First
01b8 00db | | Load_Top At_Offset_3
01b9 01dd | | Execute Vector,First
01ba 0a02 | | Execute_Immediate Plus,0x2
01bb 00d8 | | Load_Top At_Offset_0
01bc 00e2 | | Load_Encached Integer_Cache
01bd 0260 | ` | Execute Discrete,In_Type
01be 7001 |p | Jump_Nonzero 0x1c0
01bf 0801 | | Execute_Immediate Raise,0x1
01c0 e7ff | | Load 0x3,-0x1
01c1 01cf | | Execute Vector,Slice_Read
01c2 0092 025e | ^| Action Push_String_Extended,0x25e ; ":::"
01c4 01df | | Execute Vector,Equal
01c5 6812 |h | Jump_Zero 0x1d8
01c6 e006 | | Load 0x0,0x6
01c7 180e | | Execute Package,Field_Execute,Field_Number 0xe
01c8 4800 |H | Short_Literal 0x0
01c9 e7ff | | Load 0x3,-0x1
01ca 01dd | | Execute Vector,First
01cb 0a04 | | Execute_Immediate Plus,0x4
01cc 00d8 | | Load_Top At_Offset_0
01cd 00e2 | | Load_Encached Integer_Cache
01ce 0260 | ` | Execute Discrete,In_Type
01cf 7001 |p | Jump_Nonzero 0x1d1
01d0 0801 | | Execute_Immediate Raise,0x1
01d1 e7ff | | Load 0x3,-0x1
01d2 01dc | | Execute Vector,Last
01d3 e7ff | | Load 0x3,-0x1
01d4 01cf | | Execute Vector,Slice_Read
01d5 e007 | | Load 0x0,0x7
01d6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01d7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01d8 00da | | Load_Top At_Offset_2
01d9 01dd | | Execute Vector,First
01da 00db | | Load_Top At_Offset_3
01db 01dd | | Execute Vector,First
01dc 0a02 | | Execute_Immediate Plus,0x2
01dd 00d8 | | Load_Top At_Offset_0
01de 00e2 | | Load_Encached Integer_Cache
01df 0260 | ` | Execute Discrete,In_Type
01e0 7001 |p | Jump_Nonzero 0x1e2
01e1 0801 | | Execute_Immediate Raise,0x1
01e2 e7ff | | Load 0x3,-0x1
01e3 01cf | | Execute Vector,Slice_Read
01e4 0092 025f | _| Action Push_String_Extended,0x25f ; "---"
01e6 01df | | Execute Vector,Equal
01e7 7010 |p | Jump_Nonzero 0x1f8
01e8 00da | | Load_Top At_Offset_2
01e9 01dd | | Execute Vector,First
01ea 00db | | Load_Top At_Offset_3
01eb 01dd | | Execute Vector,First
01ec 0a02 | | Execute_Immediate Plus,0x2
01ed 00d8 | | Load_Top At_Offset_0
01ee 00e2 | | Load_Encached Integer_Cache
01ef 0260 | ` | Execute Discrete,In_Type
01f0 7001 |p | Jump_Nonzero 0x1f2
01f1 0801 | | Execute_Immediate Raise,0x1
01f2 e7ff | | Load 0x3,-0x1
01f3 01cf | | Execute Vector,Slice_Read
01f4 0092 0260 | `| Action Push_String_Extended,0x260 ; " "
01f6 01df | | Execute Vector,Equal
01f7 6812 |h | Jump_Zero 0x20a
01f8 e006 | | Load 0x0,0x6
01f9 180e | | Execute Package,Field_Execute,Field_Number 0xe
01fa 4802 |H | Short_Literal 0x2
01fb e7ff | | Load 0x3,-0x1
01fc 01dd | | Execute Vector,First
01fd 0a04 | | Execute_Immediate Plus,0x4
01fe 00d8 | | Load_Top At_Offset_0
01ff 00e2 | | Load_Encached Integer_Cache
0200 0260 | ` | Execute Discrete,In_Type
0201 7001 |p | Jump_Nonzero 0x203
0202 0801 | | Execute_Immediate Raise,0x1
0203 e7ff | | Load 0x3,-0x1
0204 01dc | | Execute Vector,Last
0205 e7ff | | Load 0x3,-0x1
0206 01cf | | Execute Vector,Slice_Read
0207 e007 | | Load 0x0,0x7
0208 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0209 4502 |E | Exit_Suprogram New_Top_Offset 0x2
020a e006 | | Load 0x0,0x6
020b 180e | | Execute Package,Field_Execute,Field_Number 0xe
020c 4802 |H | Short_Literal 0x2
020d e7ff | | Load 0x3,-0x1
020e e007 | | Load 0x0,0x7
020f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0210 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0211 e006 | | Load 0x0,0x6
0212 180e | | Execute Package,Field_Execute,Field_Number 0xe
0213 4802 |H | Short_Literal 0x2
0214 e7ff | | Load 0x3,-0x1
0215 e007 | | Load 0x0,0x7
0216 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0217 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021f | | .CONST 0x021f ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0003 | | .CONST 0x0003 ; Number of locals
021b INIT_0218:
021b e402 | | Load 0x2,0x2
021c e001 | | Load 0x0,0x1
021d 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
021e 00e1 | | Load_Encached Boolean_Cache
021f BODY_0218:
021f e404 | | Load 0x2,0x4
0220 00e1 | | Load_Encached Boolean_Cache
0221 600e |` | Indirect_Literal Discrete,0x230,{0x00000000, 0x00000400}
0222 4801 |H | Short_Literal 0x1
0223 e602 | | Load 0x3,0x2
0224 e40b | | Load 0x2,0xb
0225 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0226 005a | Z | Store_Top Discrete,At_Offset_2
0227 c404 | | Store 0x2,0x4
0228 00d8 | | Load_Top At_Offset_0
0229 6803 |h | Jump_Zero 0x22d
022a e403 | | Load 0x2,0x3
022b 0a01 | | Execute_Immediate Plus,0x1
022c c403 | | Store 0x2,0x3
022d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
022e 0000 0000 | | .XXX[0x2]
0230 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
0234 0000 0000 | | .BLANK 0000[0x4]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 0240 | @ | .CONST 0x0240 ; Address of begin
0239 0004 | | .CONST 0x0004 ; Address of exception handler
023a 0002 | | .CONST 0x0002 ; Number of locals
023b INIT_0238:
023b e602 | | Load 0x3,0x2
023c e603 | | Load 0x3,0x3
023d e7ff | | Load 0x3,-0x1
023e 01cf | | Execute Vector,Slice_Read
023f 8405 | | Call 0x2,0x5
0240 BODY_0238:
0240 00d8 | | Load_Top At_Offset_0
0241 01db | | Execute Vector,Length
0242 0c01 | | Execute_Immediate Greater_Equal,0x1
0243 680f |h | Jump_Zero 0x253
0244 00d8 | | Load_Top At_Offset_0
0245 01dd | | Execute Vector,First
0246 00d9 | | Load_Top At_Offset_1
0247 01d7 | | Execute Vector,Field_Read
0248 e008 | | Load 0x0,0x8
0249 1810 | | Execute Package,Field_Execute,Field_Number 0x10
024a 4841 |HA | Short_Literal 0x41
024b 485a |HZ | Short_Literal 0x5a
024c 0261 | a | Execute Discrete,Not_In_Range
024d 6805 |h | Jump_Zero 0x253
024e 4841 |HA | Short_Literal 0x41
024f 00d9 | | Load_Top At_Offset_1
0250 01ca | | Execute Vector,Prepend
0251 00cb | | Action Pop_Block_With_Result
0252 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0253 00d8 | | Load_Top At_Offset_0
0254 00cb | | Action Pop_Block_With_Result
0255 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0256 ; --------------------------------------------------------------------------------------
0256 ; STRING TABLE
0256 ; --------------------------------------------------------------------------------------
0256 0018 | | .STRTAB 0x0018->0x0262 ; "Put"
0257 0019 | | .STRTAB 0x0019->0x0263 ; " files via "
0258 0022 | " | .STRTAB 0x0022->0x0269 ; "Put_to_EEDB failed"
0259 0032 | 2 | .STRTAB 0x0032->0x0272 ; "cannot open "
025a 003c | < | .STRTAB 0x003c->0x0278 ; "+++"
025b 003d | = | .STRTAB 0x003d->0x0279 ; "++*"
025c 003e | > | .STRTAB 0x003e->0x027b ; "***"
025d 003f | ? | .STRTAB 0x003f->0x027c ; "%%%"
025e 0040 | @ | .STRTAB 0x0040->0x027e ; ":::"
025f 0041 | A | .STRTAB 0x0041->0x027f ; "---"
0260 0042 | B | .STRTAB 0x0042->0x0281 ; " "
0261 0043 | C | .STREND 0x0043->0x0282
0262 5075 7420 |Put | .STRTAB_STRINGS
0283 0000 0000 | | .BLANK 0000[0x5]
0288 ; --------------------------------------------------------------------------------------
0288 ; Debug Table
0288 ; --------------------------------------------------------------------------------------
0288 0004 0000 | | .DEBUG4 0x0004,0x0000,0x7885,0x0000,0x0001,0x0000
028e 07aa 24a7 | $ | .XXX[0x14]
0290 2caa 20a6 |, |
0292 25af 989b |% |
0294 9819 1c98 | |
0296 800c 15cd | |
0298 8000 387e | 8~|
029a 0000 0000 | |
029c 001b 09e1 | |
029e 800c 1e88 | |
02a0 8000 387f | 8 |
02a2 0000 0000 | | .BLANK 0000[0x4]
02a6 4040 0000 |@@ | .XXX[0x7]
02a8 0100 0000 | |
02aa 0003 4600 | F |
02ac 9800 | |
02ad 0000 0000 | | .BLANK 0000[0x4]
02b1 d780 3a00 | : | .XXX[0x14]
02b3 0000 0000 | |
02b5 0000 0007 | |
02b7 ffff fff8 | |
02b9 006c 303c | l0<|
02bb 0000 0000 | |
02bd 0000 0008 | |
02bf 0000 0000 | |
02c1 0000 0004 | |
02c3 0002 d170 | p|
02c5 0000 0000 | | .BLANK 0000[0x4]
02c9 006c 423c | lB<| .XXX[0xc]
02cb 0000 0000 | |
02cd 0000 0078 | x|
02cf 0000 0000 | |
02d1 0012 22ba | " |
02d3 0000 e084 | |
02d5 0000 0000 | | .BLANK 0000[0x4]
02d9 0033 7036 | 3p6| .XXX[0xc]
02db 0000 e1e8 | |
02dd 006c 343c | l4<|
02df 006c 383c | l8<|
02e1 0033 72c6 | 3r |
02e3 0000 e1ec | |
02e5 0000 0000 | | .BLANK 0000[0x4]
02e9 0036 0482 | 6 | .XXX[0xc]
02eb 0001 59e8 | Y |
02ed 006c 363c | l6<|
02ef 006c 3e3c | l><|
02f1 0036 0702 | 6 |
02f3 0000 e824 | $|
02f5 0000 0000 | | .BLANK 0000[0x4]
02f9 0030 ae1e | 0 | .XXX[0xc]
02fb 0000 e6cc | |
02fd 006c 3c3c | l<<|
02ff 006c 403c | l@<|
0301 0030 b08e | 0 |
0303 0000 e1f4 | |
0305 0000 0000 | | .BLANK 0000[0x4]
0309 0030 b38e | 0 | .XXX[0xc]
030b 0001 0da0 | |
030d 006c 3a3c | l:<|
030f 006c 4a3c | lJ<|
0311 0006 5658 | VX|
0313 0000 e6d8 | |
0315 0000 0000 | | .BLANK 0000[0x4]
0319 0034 cc2c | 4 ,| .XXX[0xc]
031b 0000 e6d4 | |
031d 006c 443c | lD<|
031f 006c 483c | lH<|
0321 0036 0e92 | 6 |
0323 0001 0bcc | |
0325 0000 0000 | | .BLANK 0000[0x4]
0329 0036 26de | 6& | .XXX[0x1e]
032b 0001 87b8 | |
032d 006c 463c | lF<|
032f 006c 529c | lR |
0331 0000 0000 | |
0333 0036 26de | 6& |
0335 0000 0000 | |
0337 0000 0002 | |
0339 0000 001e | |
033b a892 9cb2 | |
033d a882 9896 | |
033f be60 6660 | `f`|
0341 6472 6200 |drb |
0343 3611 5200 |6 R |
0345 01d3 ac00 | |
0347 0000 0000 | | .BLANK 0000[0x4]
034b 3057 3600 |0W6 | .XXX[0xc]
034d 00e1 f800 | |
034f 6c50 9c00 |lP |
0351 6c54 9c00 |lT |
0353 307a 2200 |0z" |
0355 00e1 fc00 | |
0357 0000 0000 | | .BLANK 0000[0x5]
035c 1200 0070 | p| .XXX[0x19]
035e 3a00 35f4 |: 5 |
0360 1400 0000 | |
0362 0000 3636 | 66|
0364 e300 1b16 | |
0366 8b00 023d | =|
0368 a940 0362 | @ b|
036a d960 0363 | ` c|
036c 03c0 0021 | !|
036e 92c0 06a9 | |
0370 2f40 0000 |/@ |
0372 0000 06c6 | |
0374 5c40 |\@ |
0375 0000 0000 | | .BLANK 0000[0x4]
0379 00c8 0300 | | .XXX[0x11]
037b 4000 2190 |@ ! |
037d 4108 10a0 |A |
037f 0008 0004 | |
0381 31e8 0004 |1 |
0383 3258 00d5 |2X |
0385 25e8 0000 |% |
0387 0000 00d8 | |
0389 d388 | |
038a 0000 0000 | | .BLANK 0000[0x4]
038e 0019 0060 | `| .XXX[0xf]
0390 0800 0432 | 2|
0392 0821 0214 | ! |
0394 0001 0000 | |
0396 863d 000d | = |
0398 8cf9 0000 | |
039a 0000 0000 | |
039c 0001 | |
039d 0000 0000 | | .BLANK 0000[0x4]
03a1 8001 9006 | | .XXX[0x2]
03a3 0000 0000 | | .BLANK 0000[0x4]
03a7 000d 8d79 | y| .XXX[0x6]
03a9 0000 0000 | |
03ab 0000 0001 | |
03ad 0000 0000 | | .BLANK 0000[0x4]
03b1 8001 9006 | | .XXX[0x2]
03b3 0000 0000 | | .BLANK 0000[0x5]
03b8 0004 8000 | | .XXX[0x5]
03ba 4325 800d |C% |
03bc 8b24 | $ |
03bd 0000 0000 | | .BLANK 0000[0x4]
03c1 0006 c715 | | .XXX[0x11]
03c3 4000 009d |@ |
03c5 6000 d8e4 |` |
03c7 a800 d8ef | |
03c9 4000 0110 |@ |
03cb 7001 b1f9 |p |
03cd b000 0000 | |
03cf 0001 b214 | |
03d1 8000 | |
03d2 0000 0000 | | .BLANK 0000[0x4]
03d6 038d 0028 | (| .XXX[0x2a]
03d8 0000 0010 | |
03da 4024 0000 |@$ |
03dc 0700 1b20 | |
03de 1b00 0022 | "|
03e0 0e00 363f | 6?|
03e2 3600 0000 |6 |
03e4 0000 3646 | 6F|
03e6 ea00 0000 | |
03e8 0000 3648 | 6H|
03ea ea00 0071 | q|
03ec a005 0000 | |
03ee 0002 0804 | |
03f0 8000 00e0 | |
03f2 0364 4900 | dI |
03f4 0000 0000 | |
03f6 0363 f360 | c `|
03f8 0000 0000 | |
03fa 0000 0020 | |
03fc 0000 010a | |
03fe 8a48 2929 | H))|