|
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_5e40f2
└─⟦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 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 000e | | .DEBUG4 0x0004,0x000e,0x8a0f,0x0000,0x0001,0x0000
028e 0000 6801 | h | .XXX[0x1f]
0290 4000 0000 |@ |
0292 4000 0010 |@ |
0294 0000 0088 | |
0296 0000 0000 | |
0298 4000 0002 |@ |
029a 9000 0040 | @|
029c 4d3f 1000 |M? |
029e 0040 4d3f | @M?|
02a0 5000 0040 |P @|
02a2 4d3f 9000 |M? |
02a4 0040 4d3f | @M?|
02a6 d000 0040 | @|
02a8 4d40 1000 |M@ |
02aa 0040 4d40 | @M@|
02ac 4000 |@ |
02ad 0000 0000 | | .BLANK 0000[0xc]
02b9 01ed 3e01 | > | .XXX[0x1e]
02bb 4002 92f0 |@ |
02bd 0000 0036 | 6|
02bf 8750 1000 | P |
02c1 8000 5100 | Q |
02c3 0000 089a | |
02c5 c000 0200 | |
02c7 0000 1d00 | |
02c9 2800 0005 |( |
02cb 1000 0002 | |
02cd 0000 0011 | |
02cf 0000 0000 | |
02d1 0800 0000 | |
02d3 5200 0008 |R |
02d5 09a5 7800 | x |
02d7 0000 0000 | | .BLANK 0000[0x1b]
02f2 003d a7c0 | = | .XXX[0x2]
02f4 0000 0000 | | .BLANK 0000[0xd]
0301 0020 0500 | | .XXX[0xc]
0303 0000 0000 | |
0305 0000 4000 | @ |
0307 0002 2000 | |
0309 0000 0100 | |
030b 0000 0a00 | |
030d 0000 0000 | | .BLANK 0000[0x2d]
033a 0004 00a0 | | .XXX[0xc]
033c 0000 0000 | |
033e 0000 0800 | |
0340 0000 4400 | D |
0342 0000 0020 | |
0344 0000 0140 | @|
0346 0000 0000 | | .BLANK 0000[0x2e]
0374 8014 0000 | | .XXX[0xb]
0376 0000 0000 | |
0378 0100 0000 | |
037a 0880 0000 | |
037c 0004 0000 | |
037e 0028 | ( |
037f 0000 0000 | | .BLANK 0000[0x2e]
03ad 1002 8000 | | .XXX[0xb]
03af 0000 0000 | |
03b1 0020 0000 | |
03b3 0110 0000 | |
03b5 0000 8000 | |
03b7 0005 | |
03b8 0000 0000 | | .BLANK 0000[0x48]