|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0a7cf5
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 01d8 | | .CONST 0x01d8 ; 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 0039 | 9 | .CONST 0x0039 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0017 | | .CONST 0x0017 ; Number of locals
000b INIT_0008:
000b 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated
000d 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated
000f 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated
0011 00c4 | | Action Make_Default
0012 00c4 | | Action Make_Default
0013 00c4 | | Action Make_Default
0014 00c4 | | Action Make_Default
0015 00c4 | | Action Make_Default
0016 00c4 | | Action Make_Default
0017 00c4 | | Action Make_Default
0018 00c4 | | Action Make_Default
0019 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated
001b c211 | | Store 0x1,0x11
001c 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated
001e c212 | | Store 0x1,0x12
001f 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated
0021 c213 | | Store 0x1,0x13
0022 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated
0024 c217 | | Store 0x1,0x17
0025 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated
0027 c215 | | Store 0x1,0x15
0028 00bf | | Action Accept_Activation
0029 1d0d | | Execute_Immediate Reference_Lex_1,0xd
002a 00c7 | | Action Elaborate_Subprogram
002b 1d0e | | Execute_Immediate Reference_Lex_1,0xe
002c 00c7 | | Action Elaborate_Subprogram
002d 1d0f | | Execute_Immediate Reference_Lex_1,0xf
002e 00c7 | | Action Elaborate_Subprogram
002f 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0030 00c7 | | Action Elaborate_Subprogram
0031 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0032 00c7 | | Action Elaborate_Subprogram
0033 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0034 00c7 | | Action Elaborate_Subprogram
0035 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0036 00c7 | | Action Elaborate_Subprogram
0037 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0038 00c7 | | Action Elaborate_Subprogram
0039 BODY_0008:
0039 00bc | | Action Signal_Activated
003a 00bb | | Action Signal_Completion
003b 0000 0000 | | .BLANK 0000[0x5]
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0043 | C | .CONST 0x0043 ; Address of begin
0041 0004 | | .CONST 0x0004 ; Address of exception handler
0042 0001 | | .CONST 0x0001 ; Number of locals
0043 BODY_0040:
0043 INIT_0040:
0043 00ea | | Load_Encached Null_String_Cache
0044 00ea | | Load_Encached Null_String_Cache
0045 0092 01a3 | | Action Push_String_Extended,0x1a3 ; "File to insert:"
0047 e001 | | Load 0x0,0x1
0048 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0049 0092 01a4 | | Action Push_String_Extended,0x1a4 ; "Insert File"
004b 4af8 |J | Short_Literal 0x2f8
004c e002 | | Load 0x0,0x2
004d 1819 | | Execute Package,Field_Execute,Field_Number 0x19
004e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
004f 0000 | | .XXX[0x1]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0053 | S | .CONST 0x0053 ; Address of begin
0051 0004 | | .CONST 0x0004 ; Address of exception handler
0052 0001 | | .CONST 0x0001 ; Number of locals
0053 BODY_0050:
0053 INIT_0050:
0053 00da | | Load_Top At_Offset_2
0054 e003 | | Load 0x0,0x3
0055 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0056 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0057 0000 | | .XXX[0x1]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 007c | | | .CONST 0x007c ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0006 | | .CONST 0x0006 ; Number of locals
005b INIT_0058:
005b e004 | | Load 0x0,0x4
005c 1b19 | | Execute Package,Field_Read,Field_Number 0x19
005d 0322 | " | Declare_Variable Record
005e e005 | | Load 0x0,0x5
005f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0060 e004 | | Load 0x0,0x4
0061 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0062 00d9 | | Load_Top At_Offset_1
0063 017d | } | Execute Record,Structure_Write
0064 4803 |H | Short_Literal 0x3
0065 00d9 | | Load_Top At_Offset_1
0066 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0067 e004 | | Load 0x0,0x4
0068 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
0069 0092 01a5 | | Action Push_String_Extended,0x1a5 ; "OVERWRITE"
006b 01df | | Execute Vector,Equal
006c 00e1 | | Load_Encached Boolean_Cache
006d 03f1 | | Declare_Variable Discrete,With_Value
006e 4804 |H | Short_Literal 0x4
006f 00da | | Load_Top At_Offset_2
0070 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0071 e004 | | Load 0x0,0x4
0072 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
0073 01db | | Execute Vector,Length
0074 0f00 | | Execute_Immediate Equal,0x0
0075 0f00 | | Execute_Immediate Equal,0x0
0076 00e1 | | Load_Encached Boolean_Cache
0077 03f1 | | Declare_Variable Discrete,With_Value
0078 029f 017b | {| Declare_Subprogram INIT_0178,For_Call
007a 029f 019b | | Declare_Subprogram INIT_0198,For_Call
007c BODY_0058:
007c 00ea | | Load_Encached Null_String_Cache
007d 00ea | | Load_Encached Null_String_Cache
007e 00ea | | Load_Encached Null_String_Cache
007f 00ea | | Load_Encached Null_String_Cache
0080 00ea | | Load_Encached Null_String_Cache
0081 8405 | | Call 0x2,0x5
0082 e404 | | Load 0x2,0x4
0083 8406 | | Call 0x2,0x6
0084 e403 | | Load 0x2,0x3
0085 8406 | | Call 0x2,0x6
0086 4b01 |K | Short_Literal 0x301
0087 4845 |HE | Short_Literal 0x45
0088 e002 | | Load 0x0,0x2
0089 1818 | | Execute Package,Field_Execute,Field_Number 0x18
008a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
008b 0000 0000 | | .BLANK 0000[0x5]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093 | | .CONST 0x0093 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0001 | | .CONST 0x0001 ; Number of locals
0093 BODY_0090:
0093 INIT_0090:
0093 00da | | Load_Top At_Offset_2
0094 e006 | | Load 0x0,0x6
0095 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0096 180d | | Execute Package,Field_Execute,Field_Number 0xd
0097 00db | | Load_Top At_Offset_3
0098 e006 | | Load 0x0,0x6
0099 1b19 | | Execute Package,Field_Read,Field_Number 0x19
009a 180e | | Execute Package,Field_Execute,Field_Number 0xe
009b 00db | | Load_Top At_Offset_3
009c 6809 |h | Jump_Zero 0xa6
009d e5fd | | Load 0x2,-0x3
009e 00d8 | | Load_Top At_Offset_0
009f 00e4 | | Load_Encached Positive_Cache
00a0 0260 | ` | Execute Discrete,In_Type
00a1 7001 |p | Jump_Nonzero 0xa3
00a2 0801 | | Execute_Immediate Raise,0x1
00a3 e006 | | Load 0x0,0x6
00a4 1b19 | | Execute Package,Field_Read,Field_Number 0x19
00a5 180f | | Execute Package,Field_Execute,Field_Number 0xf
00a6 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00a7 0000 | | .XXX[0x1]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab | | .CONST 0x00ab ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0001 | | .CONST 0x0001 ; Number of locals
00ab BODY_00a8:
00ab INIT_00a8:
00ab e001 | | Load 0x0,0x1
00ac 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00ad 4610 |F | Jump_Case 0x11
00ae 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x0
00af 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x1
00b0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x2
00b1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x3
00b2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x4
00b3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x5
00b4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x6
00b5 7809 |x | Jump 0xbf ; case 0x7
00b6 7808 |x | Jump 0xbf ; case 0x8
00b7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x9
00b8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0xa
00b9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0xb
00ba 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0xc
00bb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0xd
00bc 7802 |x | Jump 0xbf ; case 0xe
00bd 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0xf
00be 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; case 0x10
00bf 4801 |H | Short_Literal 0x1
00c0 4800 |H | Short_Literal 0x0
00c1 0092 01a6 | | Action Push_String_Extended,0x1a6 ; "<IMAGE>"
00c3 e003 | | Load 0x0,0x3
00c4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00c5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00c6 0000 0000 | | .XXX[0x2]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb | | .CONST 0x00cb ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0001 | | .CONST 0x0001 ; Number of locals
00cb BODY_00c8:
00cb INIT_00c8:
00cb 00ea | | Load_Encached Null_String_Cache
00cc 00ea | | Load_Encached Null_String_Cache
00cd 00ea | | Load_Encached Null_String_Cache
00ce 00ea | | Load_Encached Null_String_Cache
00cf 00ea | | Load_Encached Null_String_Cache
00d0 00ea | | Load_Encached Null_String_Cache
00d1 00ea | | Load_Encached Null_String_Cache
00d2 00ea | | Load_Encached Null_String_Cache
00d3 4af4 |J | Short_Literal 0x2f4
00d4 4846 |HF | Short_Literal 0x46
00d5 e002 | | Load 0x0,0x2
00d6 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00d7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00e7 | | .CONST 0x00e7 ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0003 | | .CONST 0x0003 ; Number of locals
00db INIT_00d8:
00db 4801 |H | Short_Literal 0x1
00dc e5fe | | Load 0x2,-0x2
00dd e5ff | | Load 0x2,-0x1
00de 01cf | | Execute Vector,Slice_Read
00df 0335 | 5 | Declare_Variable Array,Duplicate
00e0 00cd | | Action Spare6_Action
00e1 4801 |H | Short_Literal 0x1
00e2 e5fc | | Load 0x2,-0x4
00e3 e5fd | | Load 0x2,-0x3
00e4 01cf | | Execute Vector,Slice_Read
00e5 0335 | 5 | Declare_Variable Array,Duplicate
00e6 00cd | | Action Spare6_Action
00e7 BODY_00d8:
00e7 e5f5 | | Load 0x2,-0xb
00e8 0b01 | | Execute_Immediate Case_Compare,0x1
00e9 703f |p? | Jump_Nonzero 0x129
00ea 0b02 | | Execute_Immediate Case_Compare,0x2
00eb 7005 |p | Jump_Nonzero 0xf1
00ec 0b03 | | Execute_Immediate Case_Compare,0x3
00ed 7016 |p | Jump_Nonzero 0x104
00ee 0f04 | | Execute_Immediate Equal,0x4
00ef 7027 |p' | Jump_Nonzero 0x117
00f0 450c |E | Exit_Suprogram New_Top_Offset 0xc
00f1 00d1 | | Pop_Control Pop_Count_1
00f2 e5f6 | | Load 0x2,-0xa
00f3 6808 |h | Jump_Zero 0xfc
00f4 e5f9 | | Load 0x2,-0x7
00f5 4800 |H | Short_Literal 0x0
00f6 00da | | Load_Top At_Offset_2
00f7 e402 | | Load 0x2,0x2
00f8 e006 | | Load 0x0,0x6
00f9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00fa 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00fb 450c |E | Exit_Suprogram New_Top_Offset 0xc
00fc e5f9 | | Load 0x2,-0x7
00fd 4800 |H | Short_Literal 0x0
00fe 00da | | Load_Top At_Offset_2
00ff e402 | | Load 0x2,0x2
0100 e006 | | Load 0x0,0x6
0101 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0102 180f | | Execute Package,Field_Execute,Field_Number 0xf
0103 450c |E | Exit_Suprogram New_Top_Offset 0xc
0104 00d1 | | Pop_Control Pop_Count_1
0105 e5f6 | | Load 0x2,-0xa
0106 6808 |h | Jump_Zero 0x10f
0107 e5f9 | | Load 0x2,-0x7
0108 4801 |H | Short_Literal 0x1
0109 00da | | Load_Top At_Offset_2
010a e402 | | Load 0x2,0x2
010b e006 | | Load 0x0,0x6
010c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
010d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
010e 450c |E | Exit_Suprogram New_Top_Offset 0xc
010f e5f9 | | Load 0x2,-0x7
0110 4801 |H | Short_Literal 0x1
0111 00da | | Load_Top At_Offset_2
0112 e402 | | Load 0x2,0x2
0113 e006 | | Load 0x0,0x6
0114 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0115 180f | | Execute Package,Field_Execute,Field_Number 0xf
0116 450c |E | Exit_Suprogram New_Top_Offset 0xc
0117 e5f6 | | Load 0x2,-0xa
0118 6808 |h | Jump_Zero 0x121
0119 e5f9 | | Load 0x2,-0x7
011a 4fff |O | Short_Literal -0x1
011b 00da | | Load_Top At_Offset_2
011c e402 | | Load 0x2,0x2
011d e006 | | Load 0x0,0x6
011e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
011f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0120 450c |E | Exit_Suprogram New_Top_Offset 0xc
0121 e5f9 | | Load 0x2,-0x7
0122 4fff |O | Short_Literal -0x1
0123 00da | | Load_Top At_Offset_2
0124 e402 | | Load 0x2,0x2
0125 e006 | | Load 0x0,0x6
0126 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0127 180f | | Execute Package,Field_Execute,Field_Number 0xf
0128 450c |E | Exit_Suprogram New_Top_Offset 0xc
0129 00d1 | | Pop_Control Pop_Count_1
012a e5f6 | | Load 0x2,-0xa
012b 6806 |h | Jump_Zero 0x132
012c e5f9 | | Load 0x2,-0x7
012d 00da | | Load_Top At_Offset_2
012e e006 | | Load 0x0,0x6
012f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0130 180e | | Execute Package,Field_Execute,Field_Number 0xe
0131 450c |E | Exit_Suprogram New_Top_Offset 0xc
0132 e5f9 | | Load 0x2,-0x7
0133 00da | | Load_Top At_Offset_2
0134 e006 | | Load 0x0,0x6
0135 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0136 180d | | Execute Package,Field_Execute,Field_Number 0xd
0137 450c |E | Exit_Suprogram New_Top_Offset 0xc
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 0145 | E | .CONST 0x0145 ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0004 | | .CONST 0x0004 ; Number of locals
013b INIT_0138:
013b e007 | | Load 0x0,0x7
013c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
013d 02c7 | | Declare_Variable Any
013e 00d8 | | Load_Top At_Offset_0
013f 1c00 | | Execute_Immediate Run_Utility,0x0
0140 e007 | | Load 0x0,0x7
0141 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0142 0322 | " | Declare_Variable Record
0143 00d8 | | Load_Top At_Offset_0
0144 0322 | " | Declare_Variable Record
0145 BODY_0138:
0145 e007 | | Load 0x0,0x7
0146 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0147 180d | | Execute Package,Field_Execute,Field_Number 0xd
0148 c402 | | Store 0x2,0x2
0149 00da | | Load_Top At_Offset_2
014a e007 | | Load 0x0,0x7
014b 1b18 | | Execute Package,Field_Read,Field_Number 0x18
014c 1812 | | Execute Package,Field_Execute,Field_Number 0x12
014d 00da | | Load_Top At_Offset_2
014e 017d | } | Execute Record,Structure_Write
014f 00da | | Load_Top At_Offset_2
0150 e007 | | Load 0x0,0x7
0151 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0152 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0153 00d9 | | Load_Top At_Offset_1
0154 017d | } | Execute Record,Structure_Write
0155 0092 01a7 | | Action Push_String_Extended,0x1a7 ; "Line"
0157 00d9 | | Load_Top At_Offset_1
0158 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0159 00e0 | | Load_Encached Standard_Cache
015a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
015b 01cc | | Execute Vector,Catenate
015c 0092 01a8 | | Action Push_String_Extended,0x1a8 ; ", Column"
015e 01cc | | Execute Vector,Catenate
015f 00d9 | | Load_Top At_Offset_1
0160 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0161 00e0 | | Load_Encached Standard_Cache
0162 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0163 01cc | | Execute Vector,Catenate
0164 0092 01a9 | | Action Push_String_Extended,0x1a9 ; " of "
0166 01cc | | Execute Vector,Catenate
0167 00da | | Load_Top At_Offset_2
0168 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0169 00e0 | | Load_Encached Standard_Cache
016a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
016b 01cc | | Execute Vector,Catenate
016c 0092 01aa | | Action Push_String_Extended,0x1aa ; " lines."
016e 01cc | | Execute Vector,Catenate
016f e008 | | Load 0x0,0x8
0170 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
0171 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0172 0000 0000 | | .BLANK 0000[0x6]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 0180 | | .CONST 0x0180 ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0002 | | .CONST 0x0002 ; Number of locals
017b INIT_0178:
017b 4804 |H | Short_Literal 0x4
017c e402 | | Load 0x2,0x2
017d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
017e e004 | | Load 0x0,0x4
017f 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
0180 BODY_0178:
0180 00d8 | | Load_Top At_Offset_0
0181 01db | | Execute Vector,Length
0182 7003 |p | Jump_Nonzero 0x186
0183 0092 01ab | | Action Push_String_Extended,0x1ab ; "72"
0185 00ca | | Action Exit_Nullary_Function
0186 4807 |H | Short_Literal 0x7
0187 4800 |H | Short_Literal 0x0
0188 00da | | Load_Top At_Offset_2
0189 0092 01ac | | Action Push_String_Extended,0x1ac ; ")"
018b e009 | | Load 0x0,0x9
018c 181d | | Execute Package,Field_Execute,Field_Number 0x1d
018d 0aff | | Execute_Immediate Plus,-0x1
018e 00da | | Load_Top At_Offset_2
018f 01cf | | Execute Vector,Slice_Read
0190 00ca | | Action Exit_Nullary_Function
0191 0000 0000 | | .BLANK 0000[0x7]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b | | .CONST 0x019b ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0001 | | .CONST 0x0001 ; Number of locals
019b BODY_0198:
019b INIT_0198:
019b 00da | | Load_Top At_Offset_2
019c 6803 |h | Jump_Zero 0x1a0
019d 0092 01ad | | Action Push_String_Extended,0x1ad ; "T"
019f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01a0 0092 01ae | | Action Push_String_Extended,0x1ae ; "F"
01a2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01a3 ; --------------------------------------------------------------------------------------
01a3 ; STRING TABLE
01a3 ; --------------------------------------------------------------------------------------
01a3 001a | | .STRTAB 0x001a->0x01b0 ; "File to insert:"
01a4 0027 | ' | .STRTAB 0x0027->0x01b7 ; "Insert File"
01a5 0030 | 0 | .STRTAB 0x0030->0x01bd ; "OVERWRITE"
01a6 0037 | 7 | .STRTAB 0x0037->0x01c1 ; "<IMAGE>"
01a7 003c | < | .STRTAB 0x003c->0x01c5 ; "Line"
01a8 003e | > | .STRTAB 0x003e->0x01c7 ; ", Column"
01a9 0044 | D | .STRTAB 0x0044->0x01cb ; " of "
01aa 0046 | F | .STRTAB 0x0046->0x01cd ; " lines."
01ab 004b | K | .STRTAB 0x004b->0x01d0 ; "72"
01ac 004b | K | .STRTAB 0x004b->0x01d1 ; ")"
01ad 004a | J | .STRTAB 0x004a->0x01d2 ; "T"
01ae 0049 | I | .STRTAB 0x0049->0x01d2 ; "F"
01af 0048 | H | .STREND 0x0048->0x01d3
01b0 4669 6c65 |File| .STRTAB_STRINGS
01d3 0000 0000 | | .BLANK 0000[0x5]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; Debug Table
01d8 ; --------------------------------------------------------------------------------------
01d8 0004 0012 | | .DEBUG4 0x0004,0x0012,0x26a2,0x0000,0x0001,0x0000
01de d80e 2a50 | *P| .XXX[0x22]
01e0 7843 5653 |xCVS|
01e2 fe37 5598 | 7U |
01e4 d1e0 0993 | |
01e6 c252 05f8 | R |
01e8 dc1f 6216 | b |
01ea 3a3a 1401 |:: |
01ec e538 3822 | 88"|
01ee f145 f538 | E 8|
01f0 1256 1402 | V |
01f2 053a 2957 | :)W|
01f4 fcbb c250 | P|
01f6 6a38 dc1c |j8 |
01f8 9cde fc1f | |
01fa 8402 1c07 | |
01fc c250 9a1b | P |
01fe 8d53 5411 | ST |