|
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_0bf8df
└─⟦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 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 e002 | | Load 0x0,0x2
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 e003 | | Load 0x0,0x3
0032 e004 | | Load 0x0,0x4
0033 e005 | | Load 0x0,0x5
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 e005 | | Load 0x0,0x5
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 e006 | | Load 0x0,0x6
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 e002 | | Load 0x0,0x2
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 e002 | | Load 0x0,0x2
005d 181b | | Execute Package,Field_Execute,Field_Number 0x1b
005e c402 | | Store 0x2,0x2
005f e007 | | Load 0x0,0x7
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 e008 | | Load 0x0,0x8
006e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
006f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0070 e007 | | Load 0x0,0x7
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 e008 | | Load 0x0,0x8
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 e009 | | Load 0x0,0x9
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 e00a | | Load 0x0,0xa
00e5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00e6 e00b | | Load 0x0,0xb
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 e005 | | Load 0x0,0x5
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 e007 | | Load 0x0,0x7
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 e008 | | Load 0x0,0x8
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 e005 | | Load 0x0,0x5
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 e007 | | Load 0x0,0x7
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 e008 | | Load 0x0,0x8
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 e007 | | Load 0x0,0x7
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 e008 | | Load 0x0,0x8
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 e007 | | Load 0x0,0x7
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 e008 | | Load 0x0,0x8
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 e007 | | Load 0x0,0x7
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 e008 | | Load 0x0,0x8
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 e007 | | Load 0x0,0x7
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 e008 | | Load 0x0,0x8
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 e007 | | Load 0x0,0x7
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 e008 | | Load 0x0,0x8
0208 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0209 4502 |E | Exit_Suprogram New_Top_Offset 0x2
020a e007 | | Load 0x0,0x7
020b 180e | | Execute Package,Field_Execute,Field_Number 0xe
020c 4802 |H | Short_Literal 0x2
020d e7ff | | Load 0x3,-0x1
020e e008 | | Load 0x0,0x8
020f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0210 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0211 e007 | | Load 0x0,0x7
0212 180e | | Execute Package,Field_Execute,Field_Number 0xe
0213 4802 |H | Short_Literal 0x2
0214 e7ff | | Load 0x3,-0x1
0215 e008 | | Load 0x0,0x8
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 e002 | | Load 0x0,0x2
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 e009 | | Load 0x0,0x9
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 0002 | | .DEBUG4 0x0004,0x0002,0x0b98,0x0000,0x0001,0x0000
028e 5125 154c |Q% L| .XXX[0x172]
0290 2931 3d05 |)1= |
0292 1080 80d4 | |
0294 c0d8 e4e0 | |
0296 cce0 b94d | M|
0298 151c 810d | |
029a 3d11 1480 |= |
029c d110 d50c | |
029e c114 8080 | |
02a0 8080 8080 | |
02a2 b4b4 8131 | 1|
02a4 3d39 1d15 |=9 |
02a6 4d51 7d0d |MQ} |
02a8 3d35 353d |=55=|
02aa 397d 4d51 |9}MQ|
02ac 4925 391d |I%9 |
02ae 7d4d 5509 |}MU |
02b0 4d15 4555 |M EU|
02b2 1539 0d14 | 9 |
02b4 2931 3d05 |)1= |
02b6 1080 80cc | |
02b8 d4e4 ccc8 | |
02ba ccc0 b94d | M|
02bc 151c 810d | |
02be 3d11 1480 |= |
02c0 ccd9 10d0 | |
02c2 c114 8080 | |
02c4 8080 8080 | |
02c6 b4b4 8135 | 5|
02c8 0541 7d1d | A} |
02ca 1539 1549 | 9 I|
02cc 250c 2931 |% )1|
02ce 3d05 1080 |= |
02d0 80d4 c0e4 | |
02d2 e0d4 c4c0 | |
02d4 b94d 151c | M |
02d6 810d 3d11 | = |
02d8 1480 d111 | |
02da 0d0c c114 | |
02dc 8080 8080 | |
02de 8080 b4b4 | |
02e0 8149 0539 | I 9|
02e2 113d 3429 | =4)|
02e4 313d 0510 |1= |
02e6 8080 d4c0 | |
02e8 e4dc d0e0 | |
02ea d8b9 4d15 | M |
02ec 1c81 0d3d | =|
02ee 1114 80d1 | |
02f0 110c e0c1 | |
02f2 1480 8080 | |
02f4 8080 80b4 | |
02f6 b481 093d | =|
02f8 5539 1115 |U9 |
02fa 117d 4d51 | }MQ|
02fc 4925 391c |I%9 |
02fe 2931 3d05 |)1= |
0300 1080 80d4 | |
0302 c4c0 c4d4 | |
0304 e0c8 b94d | M|
0306 151c 810d | |
0308 3d11 1480 |= |
030a d111 10e0 | |
030c c114 8080 | |
030e 8080 8080 | |
0310 b4b4 8119 | |
0312 5141 7d41 |QA}A|
0314 493d 1155 |I= U|
0316 0d50 2931 | P)1|
0318 3d05 1080 |= |
031a 80d4 c4c0 | |
031c c0d4 d4e0 | |
031e b94d 151c | M |
0320 810d 3d11 | = |
0322 1480 d111 | |
0324 10d0 c114 | |
0326 8080 8080 | |
0328 8080 b4b4 | |
032a 8149 410d | IA |
032c 7d41 493d |}AI=|
032e 1155 0d50 | U P|
0330 2931 3d05 |)1= |
0332 1080 80d4 | |
0334 c0e4 e4d4 | |
0336 ccd0 b94d | M|
0338 151c 810d | |
033a 3d11 1480 |= |
033c d111 10c0 | |
033e c114 8080 | |
0340 8080 8080 | |
0342 b4b4 8151 | Q|
0344 1531 3915 | 19 |
0346 517d 4149 |Q}AI|
0348 3d11 550d |= U |
034a 5029 313d |P)1=|
034c 0510 8080 | |
034e d4c4 c0c8 | |
0350 d8c0 d8b9 | |
0352 4d15 1c81 |M |
0354 0d3d 1114 | = |
0356 80d1 1111 | |
0358 0cc1 1480 | |
035a 8080 8080 | |
035c 80b4 b481 | |
035e 3915 515d |9 Q]|
0360 3d49 2d7d |=I-}|
0362 4149 3d11 |AI= |
0364 550d 5029 |U P)|
0366 5d25 5120 |]%Q |
0368 8135 254d | 5%M|
036a 0d15 3131 | 11|
036c 0539 153d | 9 =|
036e 554c 295d |UL)]|
0370 2551 2081 |%Q |
0372 0509 4d51 | MQ|
0374 4905 0d51 |I Q|
0376 7d51 6541 |}QeA|
0378 154c 295d | L)]|
037a 2551 2081 |%Q |
037c 1125 4915 | %I |
037e 0d51 3d49 | Q=I|
0380 6429 5d25 |d)]%|
0382 5120 812d |Q -|
0384 1549 3915 | I9 |
0386 3029 5d25 |0)]%|
0388 5120 8115 |Q |
038a 3959 2549 |9Y%I|
038c 3d39 3515 |=95 |
038e 3951 7d11 |9Q} |
0390 1509 551d | U |
0392 1d15 4829 | H)|
0394 5d25 5120 |]%Q |
0396 810d 3d49 | =I|
0398 157d 1511 | } |
039a 2551 3d48 |%Q=H|
039c 295d 2551 |)]%Q|
039e 2081 2539 | %9|
03a0 4155 517d |AUQ}|
03a2 3d55 5141 |=UQA|
03a4 5550 295d |UP)]|
03a6 2551 2081 |%Q |
03a8 0905 4d25 | M%|
03aa 0d7d 3505 | }5 |
03ac 3905 1d15 |9 |
03ae 494c 295d |IL)]|
03b0 2551 2081 |%Q |
03b2 3d35 7d35 |=5}5|
03b4 150d 2105 | ! |
03b6 3925 4d35 |9%M5|
03b8 4c29 5d25 |L)]%|
03ba 5120 8125 |Q %|
03bc 3505 1d14 |5 |
03be 295d 2551 |)]%Q|
03c0 2081 4105 | A |
03c2 494d 1548 |IM H|
03c4 295d 2551 |)]%Q|
03c6 2081 4149 | AI|
03c8 1551 5165 | QQe|
03ca 7d41 4925 |}AI%|
03cc 3951 1548 |9Q H|
03ce 295d 2551 |)]%Q|
03d0 2081 0d3d | =|
03d2 3541 2531 |5A%1|
03d4 1549 7d55 | I}U|
03d6 5125 3125 |Q%1%|
03d8 5125 154c |Q% L|
03da 295d 2551 |)]%Q|
03dc 2081 0511 | |
03de 057d 3505 | }5 |
03e0 3905 1d15 |9 |
03e2 3515 3950 |5 9P|
03e4 295d 2551 |)]%Q|
03e6 2081 3505 | 5 |
03e8 0d21 2539 | !%9|
03ea 157d 2539 | }%9|
03ec 5115 4919 |Q I |
03ee 050d 1429 | )|
03f0 5d25 5120 |]%Q |
03f2 8105 1105 | |
03f4 7d09 054d |} M|
03f6 1429 5d25 | )]%|
03f8 5120 812d |Q -|
03fa 1549 3915 | I9 |
03fc 317d 1115 |1} |
03fe 0955 1d1d | U |