|
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: 1024 (0x400) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03b8fe, seg_06e8fd
└─⟦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 01e0 | | .CONST 0x01e0 ; 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 006e | n | .CONST 0x006e ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0025 | % | .CONST 0x0025 ; 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 e002 | | Load 0x0,0x2 0021 1918 | | Execute Package,Field_Reference,Field_Number 0x18 0022 00c6 | | Action Check_Subprogram_Elaborated 0023 e001 | | Load 0x0,0x1 0024 1964 | d | Execute Package,Field_Reference,Field_Number 0x64 0025 e003 | | Load 0x0,0x3 0026 e004 | | Load 0x0,0x4 0027 4806 |H | Short_Literal 0x6 0028 0007 | | Action Break_Optional 0029 e002 | | Load 0x0,0x2 002a 1912 | | Execute Package,Field_Reference,Field_Number 0x12 002b 00c6 | | Action Check_Subprogram_Elaborated 002c e001 | | Load 0x0,0x1 002d 1964 | d | Execute Package,Field_Reference,Field_Number 0x64 002e e005 | | Load 0x0,0x5 002f e006 | | Load 0x0,0x6 0030 480a |H | Short_Literal 0xa 0031 0007 | | Action Break_Optional 0032 e002 | | Load 0x0,0x2 0033 1915 | | Execute Package,Field_Reference,Field_Number 0x15 0034 00c6 | | Action Check_Subprogram_Elaborated 0035 e001 | | Load 0x0,0x1 0036 1964 | d | Execute Package,Field_Reference,Field_Number 0x64 0037 e007 | | Load 0x0,0x7 0038 e008 | | Load 0x0,0x8 0039 480e |H | Short_Literal 0xe 003a 0007 | | Action Break_Optional 003b e002 | | Load 0x0,0x2 003c 1914 | | Execute Package,Field_Reference,Field_Number 0x14 003d 00c6 | | Action Check_Subprogram_Elaborated 003e e001 | | Load 0x0,0x1 003f 1964 | d | Execute Package,Field_Reference,Field_Number 0x64 0040 e009 | | Load 0x0,0x9 0041 e00a | | Load 0x0,0xa 0042 4812 |H | Short_Literal 0x12 0043 0007 | | Action Break_Optional 0044 e002 | | Load 0x0,0x2 0045 1911 | | Execute Package,Field_Reference,Field_Number 0x11 0046 00c6 | | Action Check_Subprogram_Elaborated 0047 e001 | | Load 0x0,0x1 0048 1964 | d | Execute Package,Field_Reference,Field_Number 0x64 0049 e00b | | Load 0x0,0xb 004a e00c | | Load 0x0,0xc 004b 4816 |H | Short_Literal 0x16 004c 0007 | | Action Break_Optional 004d e002 | | Load 0x0,0x2 004e 1917 | | Execute Package,Field_Reference,Field_Number 0x17 004f 00c6 | | Action Check_Subprogram_Elaborated 0050 e001 | | Load 0x0,0x1 0051 1964 | d | Execute Package,Field_Reference,Field_Number 0x64 0052 e00d | | Load 0x0,0xd 0053 e00e | | Load 0x0,0xe 0054 481a |H | Short_Literal 0x1a 0055 0007 | | Action Break_Optional 0056 e002 | | Load 0x0,0x2 0057 1913 | | Execute Package,Field_Reference,Field_Number 0x13 0058 00c6 | | Action Check_Subprogram_Elaborated 0059 e001 | | Load 0x0,0x1 005a 1964 | d | Execute Package,Field_Reference,Field_Number 0x64 005b e00f | | Load 0x0,0xf 005c e010 | | Load 0x0,0x10 005d 481e |H | Short_Literal 0x1e 005e 0007 | | Action Break_Optional 005f e002 | | Load 0x0,0x2 0060 1938 | 8 | Execute Package,Field_Reference,Field_Number 0x38 0061 00c6 | | Action Check_Subprogram_Elaborated 0062 e001 | | Load 0x0,0x1 0063 1964 | d | Execute Package,Field_Reference,Field_Number 0x64 0064 e011 | | Load 0x0,0x11 0065 e012 | | Load 0x0,0x12 0066 4822 |H" | Short_Literal 0x22 0067 0007 | | Action Break_Optional 0068 029f 00e3 | | Declare_Subprogram INIT_00e0,For_Call 006a 029f 013b | ;| Declare_Subprogram INIT_0138,For_Call 006c 029f 0163 | c| Declare_Subprogram INIT_0160,For_Call 006e BODY_0018: 006e 8424 | $ | Call 0x2,0x24 006f e402 | | Load 0x2,0x2 0070 e001 | | Load 0x0,0x1 0071 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0072 4801 |H | Short_Literal 0x1 0073 4850 |HP | Short_Literal 0x50 0074 00e9 | | Load_Encached String_Cache 0075 0334 | 4 | Declare_Variable Array,With_Constraint 0076 4850 |HP | Short_Literal 0x50 0077 4801 |H | Short_Literal 0x1 0078 483d |H= | Short_Literal 0x3d 0079 e428 | ( | Load 0x2,0x28 007a e426 | & | Load 0x2,0x26 007b 01d6 | | Execute Vector,Field_Write 007c 3ffb |? | Loop_Increasing 0x78 007d e001 | | Load 0x0,0x1 007e 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 007f 4800 |H | Short_Literal 0x0 0080 4800 |H | Short_Literal 0x0 0081 4800 |H | Short_Literal 0x0 0082 e013 | | Load 0x0,0x13 0083 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0084 e013 | | Load 0x0,0x13 0085 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0086 e001 | | Load 0x0,0x1 0087 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0088 4801 |H | Short_Literal 0x1 0089 e001 | | Load 0x0,0x1 008a 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 008b e5ff | | Load 0x2,-0x1 008c 01db | | Execute Vector,Length 008d 6805 |h | Jump_Zero 0x93 008e e5ff | | Load 0x2,-0x1 008f 8423 | # | Call 0x2,0x23 0090 4801 |H | Short_Literal 0x1 0091 e001 | | Load 0x0,0x1 0092 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0093 4807 |H | Short_Literal 0x7 0094 4802 |H | Short_Literal 0x2 0095 0099 | | Action Reference_Dynamic 0096 4808 |H | Short_Literal 0x8 0097 4802 |H | Short_Literal 0x2 0098 0099 | | Action Reference_Dynamic 0099 e002 | | Load 0x0,0x2 009a 1812 | | Execute Package,Field_Execute,Field_Number 0x12 009b 4801 |H | Short_Literal 0x1 009c e001 | | Load 0x0,0x1 009d 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 009e 481b |H | Short_Literal 0x1b 009f 4802 |H | Short_Literal 0x2 00a0 0099 | | Action Reference_Dynamic 00a1 481c |H | Short_Literal 0x1c 00a2 4802 |H | Short_Literal 0x2 00a3 0099 | | Action Reference_Dynamic 00a4 e002 | | Load 0x0,0x2 00a5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00a6 4801 |H | Short_Literal 0x1 00a7 e001 | | Load 0x0,0x1 00a8 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 00a9 00cf | | Action Mark_Auxiliary 00aa e5fd | | Load 0x2,-0x3 00ab 4801 |H | Short_Literal 0x1 00ac 0263 | c | Execute Discrete,Above_Bound 00ad 7005 |p | Jump_Nonzero 0xb3 00ae 8425 | % | Call 0x2,0x25 00af e5fc | | Load 0x2,-0x4 00b0 00ba | | Action Initiate_Delay 00b1 00c8 | | Action Pop_Auxiliary_Range 00b2 3ffb |? | Loop_Increasing 0xae 00b3 00ce | | Action Pop_Auxiliary 00b4 e001 | | Load 0x0,0x1 00b5 1846 | F | Execute Package,Field_Execute,Field_Number 0x46 00b6 481b |H | Short_Literal 0x1b 00b7 4802 |H | Short_Literal 0x2 00b8 0099 | | Action Reference_Dynamic 00b9 481c |H | Short_Literal 0x1c 00ba 4802 |H | Short_Literal 0x2 00bb 0099 | | Action Reference_Dynamic 00bc e002 | | Load 0x0,0x2 00bd 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00be 4801 |H | Short_Literal 0x1 00bf e001 | | Load 0x0,0x1 00c0 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 00c1 48ff |H | Short_Literal 0xff 00c2 4800 |H | Short_Literal 0x0 00c3 480b |H | Short_Literal 0xb 00c4 4802 |H | Short_Literal 0x2 00c5 0099 | | Action Reference_Dynamic 00c6 480c |H | Short_Literal 0xc 00c7 4802 |H | Short_Literal 0x2 00c8 0099 | | Action Reference_Dynamic 00c9 e002 | | Load 0x0,0x2 00ca 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00cb 4801 |H | Short_Literal 0x1 00cc e001 | | Load 0x0,0x1 00cd 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 00ce 4817 |H | Short_Literal 0x17 00cf 4802 |H | Short_Literal 0x2 00d0 0099 | | Action Reference_Dynamic 00d1 4818 |H | Short_Literal 0x18 00d2 4802 |H | Short_Literal 0x2 00d3 0099 | | Action Reference_Dynamic 00d4 e002 | | Load 0x0,0x2 00d5 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00d6 4801 |H | Short_Literal 0x1 00d7 e001 | | Load 0x0,0x1 00d8 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 00d9 e001 | | Load 0x0,0x1 00da 1846 | F | Execute Package,Field_Execute,Field_Number 0x46 00db e402 | | Load 0x2,0x2 00dc e001 | | Load 0x0,0x1 00dd 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00de c402 | | Store 0x2,0x2 00df 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e8 | | .CONST 0x00e8 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0003 | | .CONST 0x0003 ; Number of locals 00e3 INIT_00e0: 00e3 e7ff | | Load 0x3,-0x1 00e4 01dd | | Execute Vector,First 00e5 00e4 | | Load_Encached Positive_Cache 00e6 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 00e7 00e4 | | Load_Encached Positive_Cache 00e8 BODY_00e0: 00e8 00cf | | Action Mark_Auxiliary 00e9 7834 |x4 | Jump 0x11e 00ea e602 | | Load 0x3,0x2 00eb 0a48 | H | Execute_Immediate Plus,0x48 00ec c603 | | Store 0x3,0x3 00ed 00cf | | Action Mark_Auxiliary 00ee 7818 |x | Jump 0x107 00ef e603 | | Load 0x3,0x3 00f0 e7ff | | Load 0x3,-0x1 00f1 01d7 | | Execute Vector,Field_Read 00f2 0f20 | | Execute_Immediate Equal,0x20 00f3 7017 |p | Jump_Nonzero 0x10b 00f4 e603 | | Load 0x3,0x3 00f5 e7ff | | Load 0x3,-0x1 00f6 01d7 | | Execute Vector,Field_Read 00f7 0f2c | , | Execute_Immediate Equal,0x2c 00f8 7012 |p | Jump_Nonzero 0x10b 00f9 e603 | | Load 0x3,0x3 00fa e7ff | | Load 0x3,-0x1 00fb 01d7 | | Execute Vector,Field_Read 00fc 0f2e | . | Execute_Immediate Equal,0x2e 00fd 700d |p | Jump_Nonzero 0x10b 00fe e603 | | Load 0x3,0x3 00ff e7ff | | Load 0x3,-0x1 0100 01d7 | | Execute Vector,Field_Read 0101 0f0a | | Execute_Immediate Equal,0xa 0102 7008 |p | Jump_Nonzero 0x10b 0103 e603 | | Load 0x3,0x3 0104 0aff | | Execute_Immediate Plus,-0x1 0105 c603 | | Store 0x3,0x3 0106 00c9 | | Action Pop_Auxiliary_Loop 0107 e603 | | Load 0x3,0x3 0108 e602 | | Load 0x3,0x2 0109 027d | } | Execute Discrete,Greater 010a 77e4 |w | Jump_Nonzero 0xef 010b 00ce | | Action Pop_Auxiliary 010c e603 | | Load 0x3,0x3 010d e602 | | Load 0x3,0x2 010e 027a | z | Execute Discrete,Less_Equal 010f 6804 |h | Jump_Zero 0x114 0110 e602 | | Load 0x3,0x2 0111 0a48 | H | Execute_Immediate Plus,0x48 0112 0aff | | Execute_Immediate Plus,-0x1 0113 c603 | | Store 0x3,0x3 0114 e602 | | Load 0x3,0x2 0115 e603 | | Load 0x3,0x3 0116 e7ff | | Load 0x3,-0x1 0117 01cf | | Execute Vector,Slice_Read 0118 e001 | | Load 0x0,0x1 0119 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 011a e603 | | Load 0x3,0x3 011b 0a01 | | Execute_Immediate Plus,0x1 011c c602 | | Store 0x3,0x2 011d 00c9 | | Action Pop_Auxiliary_Loop 011e e7ff | | Load 0x3,-0x1 011f 01dc | | Execute Vector,Last 0120 e602 | | Load 0x3,0x2 0121 0272 | r | Execute Discrete,Minus 0122 0c49 | I | Execute_Immediate Greater_Equal,0x49 0123 77c6 |w | Jump_Nonzero 0xea 0124 00ce | | Action Pop_Auxiliary 0125 e602 | | Load 0x3,0x2 0126 e7ff | | Load 0x3,-0x1 0127 01dc | | Execute Vector,Last 0128 027a | z | Execute Discrete,Less_Equal 0129 6807 |h | Jump_Zero 0x131 012a e602 | | Load 0x3,0x2 012b e7ff | | Load 0x3,-0x1 012c 01dc | | Execute Vector,Last 012d e7ff | | Load 0x3,-0x1 012e 01cf | | Execute Vector,Slice_Read 012f e001 | | Load 0x0,0x1 0130 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0131 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0132 0000 0000 | | .BLANK 0000[0x6] 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 013b | ; | .CONST 0x013b ; Address of begin 0139 0142 | B | .CONST 0x0142 ; Address of exception handler 013a 0001 | | .CONST 0x0001 ; Number of locals 013b BODY_0138: 013b INIT_0138: 013b e402 | | Load 0x2,0x2 013c 00ea | | Load_Encached Null_String_Cache 013d e5fe | | Load 0x2,-0x2 013e e001 | | Load 0x0,0x1 013f 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0140 c402 | | Store 0x2,0x2 0141 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0142 TRAP_0138: 0142 0007 | | Action Break_Optional 0143 e014 | | Load 0x0,0x14 0144 180e | | Execute Package,Field_Execute,Field_Number 0xe 0145 4807 |H | Short_Literal 0x7 0146 4800 |H | Short_Literal 0x0 0147 4801 |H | Short_Literal 0x1 0148 e015 | | Load 0x0,0x15 0149 1815 | | Execute Package,Field_Execute,Field_Number 0x15 014a e016 | | Load 0x0,0x16 014b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 014c e014 | | Load 0x0,0x14 014d 180e | | Execute Package,Field_Execute,Field_Number 0xe 014e 4805 |H | Short_Literal 0x5 014f 0092 01c2 | | Action Push_String_Extended,0x1c2 ; "Cannot open \x22" 0151 e5fe | | Load 0x2,-0x2 0152 01cc | | Execute Vector,Catenate 0153 0092 01c3 | | Action Push_String_Extended,0x1c3 ; "\x22 for append." 0155 01cc | | Execute Vector,Catenate 0156 e016 | | Load 0x0,0x16 0157 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0158 00cc | | Action Pop_Block 0159 4505 |E | Exit_Suprogram New_Top_Offset 0x5 015a 0000 0000 | | .BLANK 0000[0x6] 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 0178 | x | .CONST 0x0178 ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0002 | | .CONST 0x0002 ; Number of locals 0163 INIT_0160: 0163 0092 01c4 | | Action Push_String_Extended,0x1c4 ; "--- Sample" 0165 e428 | ( | Load 0x2,0x28 0166 00e0 | | Load_Encached Standard_Cache 0167 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0168 01cc | | Execute Vector,Catenate 0169 0092 01c5 | | Action Push_String_Extended,0x1c5 ; " " 016b 01cc | | Execute Vector,Catenate 016c 4800 |H | Short_Literal 0x0 016d 4800 |H | Short_Literal 0x0 016e 4800 |H | Short_Literal 0x0 016f e013 | | Load 0x0,0x13 0170 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0171 e013 | | Load 0x0,0x13 0172 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0173 01cc | | Execute Vector,Catenate 0174 0092 01c5 | | Action Push_String_Extended,0x1c5 ; " " 0176 01cc | | Execute Vector,Catenate 0177 0007 | | Action Break_Optional 0178 BODY_0160: 0178 e001 | | Load 0x0,0x1 0179 1846 | F | Execute Package,Field_Execute,Field_Number 0x46 017a 00d8 | | Load_Top At_Offset_0 017b 4801 |H | Short_Literal 0x1 017c 4850 |HP | Short_Literal 0x50 017d e602 | | Load 0x3,0x2 017e 01db | | Execute Vector,Length 017f 0272 | r | Execute Discrete,Minus 0180 00e9 | | Load_Encached String_Cache 0181 0334 | 4 | Declare_Variable Array,With_Constraint 0182 00d8 | | Load_Top At_Offset_0 0183 01dc | | Execute Vector,Last 0184 4801 |H | Short_Literal 0x1 0185 0263 | c | Execute Discrete,Above_Bound 0186 7005 |p | Jump_Nonzero 0x18c 0187 482d |H- | Short_Literal 0x2d 0188 e606 | | Load 0x3,0x6 0189 e604 | | Load 0x3,0x4 018a 01d6 | | Execute Vector,Field_Write 018b 3ffb |? | Loop_Increasing 0x187 018c 01cc | | Execute Vector,Catenate 018d e001 | | Load 0x0,0x1 018e 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 018f 4801 |H | Short_Literal 0x1 0190 e001 | | Load 0x0,0x1 0191 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0192 4801 |H | Short_Literal 0x1 0193 4800 |H | Short_Literal 0x0 0194 e017 | | Load 0x0,0x17 0195 180e | | Execute Package,Field_Execute,Field_Number 0xe 0196 e001 | | Load 0x0,0x1 0197 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0198 4801 |H | Short_Literal 0x1 0199 4801 |H | Short_Literal 0x1 019a e017 | | Load 0x0,0x17 019b 180e | | Execute Package,Field_Execute,Field_Number 0xe 019c e001 | | Load 0x0,0x1 019d 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 019e 48ff |H | Short_Literal 0xff 019f 4800 |H | Short_Literal 0x0 01a0 4813 |H | Short_Literal 0x13 01a1 4802 |H | Short_Literal 0x2 01a2 0099 | | Action Reference_Dynamic 01a3 4814 |H | Short_Literal 0x14 01a4 4802 |H | Short_Literal 0x2 01a5 0099 | | Action Reference_Dynamic 01a6 e002 | | Load 0x0,0x2 01a7 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01a8 4801 |H | Short_Literal 0x1 01a9 e001 | | Load 0x0,0x1 01aa 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 01ab 4803 |H | Short_Literal 0x3 01ac 4802 |H | Short_Literal 0x2 01ad 0099 | | Action Reference_Dynamic 01ae 4804 |H | Short_Literal 0x4 01af 4802 |H | Short_Literal 0x2 01b0 0099 | | Action Reference_Dynamic 01b1 e002 | | Load 0x0,0x2 01b2 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01b3 4801 |H | Short_Literal 0x1 01b4 e001 | | Load 0x0,0x1 01b5 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 01b6 480f |H | Short_Literal 0xf 01b7 4802 |H | Short_Literal 0x2 01b8 0099 | | Action Reference_Dynamic 01b9 4810 |H | Short_Literal 0x10 01ba 4802 |H | Short_Literal 0x2 01bb 0099 | | Action Reference_Dynamic 01bc e002 | | Load 0x0,0x2 01bd 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01be 4801 |H | Short_Literal 0x1 01bf e001 | | Load 0x0,0x1 01c0 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 01c1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01c2 ; -------------------------------------------------------------------------------------- 01c2 ; STRING TABLE 01c2 ; -------------------------------------------------------------------------------------- 01c2 000a | | .STRTAB 0x000a->0x01c7 ; "Cannot open \x22" 01c3 0015 | | .STRTAB 0x0015->0x01cd ; "\x22 for append." 01c4 0020 | | .STRTAB 0x0020->0x01d4 ; "--- Sample" 01c5 0028 | ( | .STRTAB 0x0028->0x01d9 ; " " 01c6 0027 | ' | .STREND 0x0027->0x01d9 01c7 4361 6e6e |Cann| .STRTAB_STRINGS 01da 0000 0000 | | .BLANK 0000[0x6] 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; Debug Table 01e0 ; -------------------------------------------------------------------------------------- 01e0 0004 000b | | .DEBUG4 0x0004,0x000b,0xbb4e,0x0000,0x0001,0x0000 01e6 0000 0000 | | .BLANK 0000[0x1a]