|
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_779ce4
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0340 | @ | .CONST 0x0340 ; 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 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 003e | > | .CONST 0x003e ; Address of begin
0009 0067 | g | .CONST 0x0067 ; Address of exception handler
000a 0014 | | .CONST 0x0014 ; Number of locals
000b INIT_0008:
000b e00b | | Load 0x0,0xb
000c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
000d 02c7 | | Declare_Variable Any
000e 00d8 | | Load_Top At_Offset_0
000f 1c00 | | Execute_Immediate Run_Utility,0x0
0010 e00b | | Load 0x0,0xb
0011 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0012 02c7 | | Declare_Variable Any
0013 00d8 | | Load_Top At_Offset_0
0014 1c00 | | Execute_Immediate Run_Utility,0x0
0015 4800 |H | Short_Literal 0x0
0016 4802 |H | Short_Literal 0x2
0017 029f 007b | {| Declare_Subprogram INIT_0078,For_Call
0019 03fd | | Declare_Type Discrete,Defined
001a 00e2 | | Load_Encached Integer_Cache
001b 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
001c 00e2 | | Load_Encached Integer_Cache
001d 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
001e 00da | | Load_Top At_Offset_2
001f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0020 48ff |H | Short_Literal 0xff
0021 e00c | | Load 0x0,0xc
0022 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0023 1c08 | | Execute_Immediate Run_Utility,0x8
0024 00d8 | | Load_Top At_Offset_0
0025 1c00 | | Execute_Immediate Run_Utility,0x0
0026 00e3 | | Load_Encached Natural_Cache
0027 067f | | Execute_Immediate Set_Value_Unchecked,0x7f
0028 00e3 | | Load_Encached Natural_Cache
0029 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
002a 00e3 | | Load_Encached Natural_Cache
002b 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
002c 00e5 | | Load_Encached Long_Integer_Cache
002d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
002e 00e5 | | Load_Encached Long_Integer_Cache
002f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0030 029f 00a3 | | Declare_Subprogram INIT_00a0,For_Call
0032 029f 00b3 | | Declare_Subprogram INIT_00b0,For_Call
0034 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call
0036 029f 0113 | | Declare_Subprogram INIT_0110,For_Call
0038 029f 0163 | c| Declare_Subprogram INIT_0160,For_Call
003a 029f 01a3 | | Declare_Subprogram INIT_01a0,For_Call
003c 029f 028b | | Declare_Subprogram INIT_0288,For_Call
003e BODY_0008:
003e e408 | | Load 0x2,0x8
003f 4820 |H | Short_Literal 0x20
0040 4800 |H | Short_Literal 0x0
0041 e00c | | Load 0x0,0xc
0042 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0043 00d1 | | Pop_Control Pop_Count_1
0044 e402 | | Load 0x2,0x2
0045 00ea | | Load_Encached Null_String_Cache
0046 e5ff | | Load 0x2,-0x1
0047 4800 |H | Short_Literal 0x0
0048 e00b | | Load 0x0,0xb
0049 1814 | | Execute Package,Field_Execute,Field_Number 0x14
004a c402 | | Store 0x2,0x2
004b e403 | | Load 0x2,0x3
004c 00ea | | Load_Encached Null_String_Cache
004d e5fe | | Load 0x2,-0x2
004e 4801 |H | Short_Literal 0x1
004f e00b | | Load 0x0,0xb
0050 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0051 c403 | | Store 0x2,0x3
0052 00cf | | Action Mark_Auxiliary
0053 7804 |x | Jump 0x58
0054 e00d | | Load 0x0,0xd
0055 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0056 8414 | | Call 0x2,0x14
0057 00c9 | | Action Pop_Auxiliary_Loop
0058 e402 | | Load 0x2,0x2
0059 e00b | | Load 0x0,0xb
005a 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
005b 6ff8 |o | Jump_Zero 0x54
005c 00ce | | Action Pop_Auxiliary
005d 8411 | | Call 0x2,0x11
005e e402 | | Load 0x2,0x2
005f e00b | | Load 0x0,0xb
0060 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0061 c402 | | Store 0x2,0x2
0062 e403 | | Load 0x2,0x3
0063 e00b | | Load 0x0,0xb
0064 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0065 c403 | | Store 0x2,0x3
0066 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0067 TRAP_0008:
0067 0007 | | Action Break_Optional
0068 e402 | | Load 0x2,0x2
0069 e00b | | Load 0x0,0xb
006a 1815 | | Execute Package,Field_Execute,Field_Number 0x15
006b c402 | | Store 0x2,0x2
006c e403 | | Load 0x2,0x3
006d e00b | | Load 0x0,0xb
006e 1815 | | Execute Package,Field_Execute,Field_Number 0x15
006f c403 | | Store 0x2,0x3
0070 00d8 | | Load_Top At_Offset_0
0071 0101 | | Execute Exception,Reraise
0072 0000 0000 | | .BLANK 0000[0x6]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b | { | .CONST 0x007b ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0001 | | .CONST 0x0001 ; Number of locals
007b BODY_0078:
007b INIT_0078:
007b 4607 |F | Jump_Case 0x8
007c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
007d 7807 |x | Jump 0x85 ; case 0x1
007e 780a |x | Jump 0x89 ; case 0x2
007f 780e |x | Jump 0x8e ; case 0x3
0080 7811 |x | Jump 0x92 ; case 0x4
0081 7812 |x | Jump 0x94 ; case 0x5
0082 7813 |x | Jump 0x96 ; case 0x6
0083 7816 |x | Jump 0x9a ; case 0x7
0084 4302 |C | .XXX[0x1]
0085 00da | | Load_Top At_Offset_2
0086 0091 02d5 | | Action Push_String_Extended_Indexed,0x2d5 ; "NO_ARGUMENT"
0088 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0089 00db | | Load_Top At_Offset_3
008a 00db | | Load_Top At_Offset_3
008b 00e0 | | Load_Encached Standard_Cache
008c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
008d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
008e 00da | | Load_Top At_Offset_2
008f 00e0 | | Load_Encached Standard_Cache
0090 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0091 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0092 00db | | Load_Top At_Offset_3
0093 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0094 00db | | Load_Top At_Offset_3
0095 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0096 e404 | | Load 0x2,0x4
0097 00dc | | Load_Top At_Offset_4
0098 0267 | g | Execute Discrete,Predecessor
0099 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
009a e404 | | Load 0x2,0x4
009b 00dc | | Load_Top At_Offset_4
009c 0268 | h | Execute Discrete,Successor
009d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
009e 0000 0000 | | .XXX[0x2]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3 | | .CONST 0x00a3 ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0001 | | .CONST 0x0001 ; Number of locals
00a3 BODY_00a0:
00a3 INIT_00a0:
00a3 0092 02d8 | | Action Push_String_Extended,0x2d8 ; "-- line"
00a5 e40b | | Load 0x2,0xb
00a6 00e0 | | Load_Encached Standard_Cache
00a7 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00a8 01cc | | Execute Vector,Catenate
00a9 00ca | | Action Exit_Nullary_Function
00aa 0000 0000 | | .BLANK 0000[0x6]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00c9 | | .CONST 0x00c9 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0002 | | .CONST 0x0002 ; Number of locals
00b3 INIT_00b0:
00b3 483b |H; | Short_Literal 0x3b
00b4 482e |H. | Short_Literal 0x2e
00b5 0092 02d9 | | Action Push_String_Extended,0x2d9 ; "DELAY"
00b7 e40c | | Load 0x2,0xc
00b8 4be8 |K | Short_Literal 0x3e8
00b9 0270 | p | Execute Discrete,Divide
00ba 00e0 | | Load_Encached Standard_Cache
00bb 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00bc 01cc | | Execute Vector,Catenate
00bd 01cb | | Execute Vector,Append
00be 4820 |H | Short_Literal 0x20
00bf 4800 |H | Short_Literal 0x0
00c0 480a |H | Short_Literal 0xa
00c1 e40c | | Load 0x2,0xc
00c2 4be8 |K | Short_Literal 0x3e8
00c3 026f | o | Execute Discrete,Remainder
00c4 e00e | | Load 0x0,0xe
00c5 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00c6 01cc | | Execute Vector,Catenate
00c7 01cb | | Execute Vector,Append
00c8 0007 | | Action Break_Optional
00c9 BODY_00b0:
00c9 00d8 | | Load_Top At_Offset_0
00ca 00ca | | Action Exit_Nullary_Function
00cb 0000 0000 | | .BLANK 0000[0x5]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3 | | .CONST 0x00d3 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0001 | | .CONST 0x0001 ; Number of locals
00d3 BODY_00d0:
00d3 INIT_00d0:
00d3 e5fd | | Load 0x2,-0x3
00d4 6804 |h | Jump_Zero 0xd9
00d5 840f | | Call 0x2,0xf
00d6 e403 | | Load 0x2,0x3
00d7 e00b | | Load 0x0,0xb
00d8 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
00d9 00da | | Load_Top At_Offset_2
00da 01db | | Execute Vector,Length
00db 0d37 | 7 | Execute_Immediate Less,0x37
00dc 6818 |h | Jump_Zero 0xf5
00dd 00da | | Load_Top At_Offset_2
00de 00db | | Load_Top At_Offset_3
00df 01db | | Execute Vector,Length
00e0 4837 |H7 | Short_Literal 0x37
00e1 00e9 | | Load_Encached String_Cache
00e2 035b | [ | Declare_Type Array,Constrained
00e3 0337 | 7 | Declare_Variable Array
00e4 4837 |H7 | Short_Literal 0x37
00e5 00d9 | | Load_Top At_Offset_1
00e6 01dd | | Execute Vector,First
00e7 0263 | c | Execute Discrete,Above_Bound
00e8 7005 |p | Jump_Nonzero 0xee
00e9 4820 |H | Short_Literal 0x20
00ea 00d9 | | Load_Top At_Offset_1
00eb e603 | | Load 0x3,0x3
00ec 01d6 | | Execute Vector,Field_Write
00ed 3ffb |? | Loop_Increasing 0xe9
00ee 01cc | | Execute Vector,Catenate
00ef 840e | | Call 0x2,0xe
00f0 01cc | | Execute Vector,Catenate
00f1 e403 | | Load 0x2,0x3
00f2 e00b | | Load 0x0,0xb
00f3 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
00f4 7808 |x | Jump 0xfd
00f5 4820 |H | Short_Literal 0x20
00f6 00db | | Load_Top At_Offset_3
00f7 01cb | | Execute Vector,Append
00f8 840e | | Call 0x2,0xe
00f9 01cc | | Execute Vector,Catenate
00fa e403 | | Load 0x2,0x3
00fb e00b | | Load 0x0,0xb
00fc 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
00fd 00db | | Load_Top At_Offset_3
00fe 6806 |h | Jump_Zero 0x105
00ff e40a | | Load 0x2,0xa
0100 0a02 | | Execute_Immediate Plus,0x2
0101 c40b | | Store 0x2,0xb
0102 4800 |H | Short_Literal 0x0
0103 a40c | | Store_Unchecked 0x2,0xc
0104 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0105 e40a | | Load 0x2,0xa
0106 a40b | | Store_Unchecked 0x2,0xb
0107 e40d | | Load 0x2,0xd
0108 a40c | | Store_Unchecked 0x2,0xc
0109 4503 |E | Exit_Suprogram New_Top_Offset 0x3
010a 0000 0000 | | .BLANK 0000[0x6]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 011a | | .CONST 0x011a ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0003 | | .CONST 0x0003 ; Number of locals
0113 INIT_0110:
0113 e408 | | Load 0x2,0x8
0114 e00c | | Load 0x0,0xc
0115 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0116 00e3 | | Load_Encached Natural_Cache
0117 03f1 | | Declare_Variable Discrete,With_Value
0118 00e3 | | Load_Encached Natural_Cache
0119 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
011a BODY_0110:
011a 00d9 | | Load_Top At_Offset_1
011b 0c01 | | Execute_Immediate Greater_Equal,0x1
011c 683a |h: | Jump_Zero 0x157
011d 00cf | | Action Mark_Auxiliary
011e 7821 |x! | Jump 0x140
011f 00d9 | | Load_Top At_Offset_1
0120 00d8 | | Load_Top At_Offset_0
0121 00e4 | | Load_Encached Positive_Cache
0122 0260 | ` | Execute Discrete,In_Type
0123 7001 |p | Jump_Nonzero 0x125
0124 0801 | | Execute_Immediate Raise,0x1
0125 e408 | | Load 0x2,0x8
0126 e00c | | Load 0x0,0xc
0127 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0128 0f22 | " | Execute_Immediate Equal,0x22
0129 6812 |h | Jump_Zero 0x13c
012a e408 | | Load 0x2,0x8
012b 4822 |H" | Short_Literal 0x22
012c 00db | | Load_Top At_Offset_3
012d 00d8 | | Load_Top At_Offset_0
012e 00e4 | | Load_Encached Positive_Cache
012f 0260 | ` | Execute Discrete,In_Type
0130 7001 |p | Jump_Nonzero 0x132
0131 0801 | | Execute_Immediate Raise,0x1
0132 e00c | | Load 0x0,0xc
0133 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0134 00d1 | | Pop_Control Pop_Count_1
0135 00d9 | | Load_Top At_Offset_1
0136 0a02 | | Execute_Immediate Plus,0x2
0137 005a | Z | Store_Top Discrete,At_Offset_2
0138 00da | | Load_Top At_Offset_2
0139 0a01 | | Execute_Immediate Plus,0x1
013a 005b | [ | Store_Top Discrete,At_Offset_3
013b 7803 |x | Jump 0x13f
013c 00d9 | | Load_Top At_Offset_1
013d 0a01 | | Execute_Immediate Plus,0x1
013e 005a | Z | Store_Top Discrete,At_Offset_2
013f 00c9 | | Action Pop_Auxiliary_Loop
0140 00d9 | | Load_Top At_Offset_1
0141 00db | | Load_Top At_Offset_3
0142 027a | z | Execute Discrete,Less_Equal
0143 77db |w | Jump_Nonzero 0x11f
0144 00ce | | Action Pop_Auxiliary
0145 4800 |H | Short_Literal 0x0
0146 0092 02da | | Action Push_String_Extended,0x2da ; "EDITOR.CHAR.INSERT_STRING (\x22"
0148 e408 | | Load 0x2,0x8
0149 e00c | | Load 0x0,0xc
014a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
014b 01cc | | Execute Vector,Catenate
014c 0092 02db | | Action Push_String_Extended,0x2db ; "\x22);"
014e 01cc | | Execute Vector,Catenate
014f 8410 | | Call 0x2,0x10
0150 e408 | | Load 0x2,0x8
0151 4820 |H | Short_Literal 0x20
0152 4800 |H | Short_Literal 0x0
0153 e00c | | Load 0x0,0xc
0154 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0155 00d1 | | Pop_Control Pop_Count_1
0156 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0157 e40c | | Load 0x2,0xc
0158 e40d | | Load 0x2,0xd
0159 0273 | s | Execute Discrete,Plus
015a a40c | | Store_Unchecked 0x2,0xc
015b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
015c 0000 0000 | | .BLANK 0000[0x4]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163 | c | .CONST 0x0163 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0001 | | .CONST 0x0001 ; Number of locals
0163 BODY_0160:
0163 INIT_0160:
0163 e407 | | Load 0x2,0x7
0164 6817 |h | Jump_Zero 0x17c
0165 4801 |H | Short_Literal 0x1
0166 00db | | Load_Top At_Offset_3
0167 e00f | | Load 0x0,0xf
0168 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0169 0092 02dc | | Action Push_String_Extended,0x2dc ; "("
016b 01cc | | Execute Vector,Catenate
016c e406 | | Load 0x2,0x6
016d e405 | | Load 0x2,0x5
016e 0271 | q | Execute Discrete,Times
016f 00d8 | | Load_Top At_Offset_0
0170 00e2 | | Load_Encached Integer_Cache
0171 0260 | ` | Execute Discrete,In_Type
0172 7001 |p | Jump_Nonzero 0x174
0173 0801 | | Execute_Immediate Raise,0x1
0174 00e0 | | Load_Encached Standard_Cache
0175 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0176 01cc | | Execute Vector,Catenate
0177 0092 02dd | | Action Push_String_Extended,0x2dd ; ");"
0179 01cc | | Execute Vector,Catenate
017a 8410 | | Call 0x2,0x10
017b 781d |x | Jump 0x199
017c 00da | | Load_Top At_Offset_2
017d 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
017e 0c02 | | Execute_Immediate Greater_Equal,0x2
017f 6811 |h | Jump_Zero 0x191
0180 4801 |H | Short_Literal 0x1
0181 00db | | Load_Top At_Offset_3
0182 e00f | | Load 0x0,0xf
0183 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0184 0092 02dc | | Action Push_String_Extended,0x2dc ; "("
0186 01cc | | Execute Vector,Catenate
0187 e7ff | | Load 0x3,-0x1
0188 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0189 00e0 | | Load_Encached Standard_Cache
018a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
018b 01cc | | Execute Vector,Catenate
018c 0092 02dd | | Action Push_String_Extended,0x2dd ; ");"
018e 01cc | | Execute Vector,Catenate
018f 8410 | | Call 0x2,0x10
0190 7808 |x | Jump 0x199
0191 4801 |H | Short_Literal 0x1
0192 00db | | Load_Top At_Offset_3
0193 e00f | | Load 0x0,0xf
0194 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0195 0092 02de | | Action Push_String_Extended,0x2de ; ";"
0197 01cc | | Execute Vector,Catenate
0198 8410 | | Call 0x2,0x10
0199 4801 |H | Short_Literal 0x1
019a a406 | | Store_Unchecked 0x2,0x6
019b 4801 |H | Short_Literal 0x1
019c a405 | | Store_Unchecked 0x2,0x5
019d 4800 |H | Short_Literal 0x0
019e a407 | | Store_Unchecked 0x2,0x7
019f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a5 | | .CONST 0x01a5 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0002 | | .CONST 0x0002 ; Number of locals
01a3 INIT_01a0:
01a3 e010 | | Load 0x0,0x10
01a4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01a5 BODY_01a0:
01a5 00db | | Load_Top At_Offset_3
01a6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01a7 68d2 |h | Jump_Zero 0x27a
01a8 00db | | Load_Top At_Offset_3
01a9 e010 | | Load 0x0,0x10
01aa 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01ab 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01ac 683d |h= | Jump_Zero 0x1ea
01ad e407 | | Load 0x2,0x7
01ae 6827 |h' | Jump_Zero 0x1d6
01af e408 | | Load 0x2,0x8
01b0 e00c | | Load 0x0,0xc
01b1 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
01b2 e406 | | Load 0x2,0x6
01b3 e405 | | Load 0x2,0x5
01b4 0271 | q | Execute Discrete,Times
01b5 0273 | s | Execute Discrete,Plus
01b6 e409 | | Load 0x2,0x9
01b7 027d | } | Execute Discrete,Greater
01b8 6801 |h | Jump_Zero 0x1ba
01b9 8411 | | Call 0x2,0x11
01ba 00cf | | Action Mark_Auxiliary
01bb e406 | | Load 0x2,0x6
01bc e405 | | Load 0x2,0x5
01bd 0271 | q | Execute Discrete,Times
01be 00d8 | | Load_Top At_Offset_0
01bf 00e2 | | Load_Encached Integer_Cache
01c0 0260 | ` | Execute Discrete,In_Type
01c1 7001 |p | Jump_Nonzero 0x1c3
01c2 0801 | | Execute_Immediate Raise,0x1
01c3 4801 |H | Short_Literal 0x1
01c4 0263 | c | Execute Discrete,Above_Bound
01c5 700a |p | Jump_Nonzero 0x1d0
01c6 e408 | | Load 0x2,0x8
01c7 e7ff | | Load 0x3,-0x1
01c8 e010 | | Load 0x0,0x10
01c9 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01ca 1817 | | Execute Package,Field_Execute,Field_Number 0x17
01cb e00c | | Load 0x0,0xc
01cc 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01cd 00d1 | | Pop_Control Pop_Count_1
01ce 00c8 | | Action Pop_Auxiliary_Range
01cf 3ff6 |? | Loop_Increasing 0x1c6
01d0 00ce | | Action Pop_Auxiliary
01d1 4800 |H | Short_Literal 0x0
01d2 a407 | | Store_Unchecked 0x2,0x7
01d3 4801 |H | Short_Literal 0x1
01d4 a405 | | Store_Unchecked 0x2,0x5
01d5 780f |x | Jump 0x1e5
01d6 e408 | | Load 0x2,0x8
01d7 e00c | | Load 0x0,0xc
01d8 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
01d9 e409 | | Load 0x2,0x9
01da 027d | } | Execute Discrete,Greater
01db 6801 |h | Jump_Zero 0x1dd
01dc 8411 | | Call 0x2,0x11
01dd e408 | | Load 0x2,0x8
01de e7ff | | Load 0x3,-0x1
01df e010 | | Load 0x0,0x10
01e0 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01e1 1817 | | Execute Package,Field_Execute,Field_Number 0x17
01e2 e00c | | Load 0x0,0xc
01e3 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01e4 00d1 | | Pop_Control Pop_Count_1
01e5 e40c | | Load 0x2,0xc
01e6 e40d | | Load 0x2,0xd
01e7 0273 | s | Execute Discrete,Plus
01e8 a40c | | Store_Unchecked 0x2,0xc
01e9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01ea 00db | | Load_Top At_Offset_3
01eb e010 | | Load 0x0,0x10
01ec 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01ed 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01ee 6833 |h3 | Jump_Zero 0x222
01ef 8411 | | Call 0x2,0x11
01f0 e407 | | Load 0x2,0x7
01f1 6822 |h" | Jump_Zero 0x214
01f2 4801 |H | Short_Literal 0x1
01f3 0092 02df | | Action Push_String_Extended,0x2df ; "EDITOR.MACRO.EXECUTE ("
01f5 e406 | | Load 0x2,0x6
01f6 e405 | | Load 0x2,0x5
01f7 0271 | q | Execute Discrete,Times
01f8 00d8 | | Load_Top At_Offset_0
01f9 00e2 | | Load_Encached Integer_Cache
01fa 0260 | ` | Execute Discrete,In_Type
01fb 7001 |p | Jump_Nonzero 0x1fd
01fc 0801 | | Execute_Immediate Raise,0x1
01fd 00e0 | | Load_Encached Standard_Cache
01fe 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01ff 01cc | | Execute Vector,Catenate
0200 0092 02e0 | | Action Push_String_Extended,0x2e0 ; ","
0202 01cc | | Execute Vector,Catenate
0203 e7ff | | Load 0x3,-0x1
0204 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0205 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0206 00e0 | | Load_Encached Standard_Cache
0207 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0208 01cc | | Execute Vector,Catenate
0209 0092 02dd | | Action Push_String_Extended,0x2dd ; ");"
020b 01cc | | Execute Vector,Catenate
020c 8410 | | Call 0x2,0x10
020d 4800 |H | Short_Literal 0x0
020e a407 | | Store_Unchecked 0x2,0x7
020f 4801 |H | Short_Literal 0x1
0210 a405 | | Store_Unchecked 0x2,0x5
0211 4801 |H | Short_Literal 0x1
0212 a406 | | Store_Unchecked 0x2,0x6
0213 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0214 4801 |H | Short_Literal 0x1
0215 0092 02e1 | | Action Push_String_Extended,0x2e1 ; "EDITOR.MACRO.EXECUTE ( 1,"
0217 e7ff | | Load 0x3,-0x1
0218 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0219 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
021a 00e0 | | Load_Encached Standard_Cache
021b 1818 | | Execute Package,Field_Execute,Field_Number 0x18
021c 01cc | | Execute Vector,Catenate
021d 0092 02dd | | Action Push_String_Extended,0x2dd ; ");"
021f 01cc | | Execute Vector,Catenate
0220 8410 | | Call 0x2,0x10
0221 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0222 00db | | Load_Top At_Offset_3
0223 e010 | | Load 0x0,0x10
0224 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0225 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0226 684f |hO | Jump_Zero 0x276
0227 8411 | | Call 0x2,0x11
0228 00db | | Load_Top At_Offset_3
0229 e010 | | Load 0x0,0x10
022a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
022b 1817 | | Execute Package,Field_Execute,Field_Number 0x17
022c 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
022d 00d8 | | Load_Top At_Offset_0
022e 0b01 | | Execute_Immediate Case_Compare,0x1
022f 700c |p | Jump_Nonzero 0x23c
0230 00d8 | | Load_Top At_Offset_0
0231 4802 |H | Short_Literal 0x2
0232 480b |H | Short_Literal 0xb
0233 0262 | b | Execute Discrete,In_Range
0234 701b |p | Jump_Nonzero 0x250
0235 0b0c | | Execute_Immediate Case_Compare,0xc
0236 702d |p- | Jump_Nonzero 0x264
0237 0f0d | | Execute_Immediate Equal,0xd
0238 7037 |p7 | Jump_Nonzero 0x270
0239 00db | | Load_Top At_Offset_3
023a 8412 | | Call 0x2,0x12
023b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
023c 00d1 | | Pop_Control Pop_Count_1
023d e407 | | Load 0x2,0x7
023e 6803 |h | Jump_Zero 0x242
023f e407 | | Load 0x2,0x7
0240 0f02 | | Execute_Immediate Equal,0x2
0241 6804 |h | Jump_Zero 0x246
0242 00db | | Load_Top At_Offset_3
0243 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0244 a406 | | Store_Unchecked 0x2,0x6
0245 7807 |x | Jump 0x24d
0246 e406 | | Load 0x2,0x6
0247 480a |H | Short_Literal 0xa
0248 0271 | q | Execute Discrete,Times
0249 e7ff | | Load 0x3,-0x1
024a 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
024b 0273 | s | Execute Discrete,Plus
024c c406 | | Store 0x2,0x6
024d 4801 |H | Short_Literal 0x1
024e a407 | | Store_Unchecked 0x2,0x7
024f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0250 00d1 | | Pop_Control Pop_Count_1
0251 e407 | | Load 0x2,0x7
0252 6803 |h | Jump_Zero 0x256
0253 e407 | | Load 0x2,0x7
0254 0f02 | | Execute_Immediate Equal,0x2
0255 6806 |h | Jump_Zero 0x25c
0256 00d8 | | Load_Top At_Offset_0
0257 0afe | | Execute_Immediate Plus,-0x2
0258 c406 | | Store 0x2,0x6
0259 4801 |H | Short_Literal 0x1
025a a407 | | Store_Unchecked 0x2,0x7
025b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
025c e406 | | Load 0x2,0x6
025d 480a |H | Short_Literal 0xa
025e 0271 | q | Execute Discrete,Times
025f 00d9 | | Load_Top At_Offset_1
0260 0afe | | Execute_Immediate Plus,-0x2
0261 0273 | s | Execute Discrete,Plus
0262 c406 | | Store 0x2,0x6
0263 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0264 00d1 | | Pop_Control Pop_Count_1
0265 e405 | | Load 0x2,0x5
0266 0275 | u | Execute Discrete,Unary_Minus
0267 a405 | | Store_Unchecked 0x2,0x5
0268 e407 | | Load 0x2,0x7
0269 0e01 | | Execute_Immediate Not_Equal,0x1
026a 680a |h | Jump_Zero 0x275
026b 4801 |H | Short_Literal 0x1
026c a406 | | Store_Unchecked 0x2,0x6
026d 4802 |H | Short_Literal 0x2
026e a407 | | Store_Unchecked 0x2,0x7
026f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0270 e406 | | Load 0x2,0x6
0271 0902 | | Execute_Immediate Binary_Scale,0x2
0272 c406 | | Store 0x2,0x6
0273 4802 |H | Short_Literal 0x2
0274 a407 | | Store_Unchecked 0x2,0x7
0275 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0276 8411 | | Call 0x2,0x11
0277 00db | | Load_Top At_Offset_3
0278 8412 | | Call 0x2,0x12
0279 4502 |E | Exit_Suprogram New_Top_Offset 0x2
027a 4801 |H | Short_Literal 0x1
027b a406 | | Store_Unchecked 0x2,0x6
027c 4801 |H | Short_Literal 0x1
027d a405 | | Store_Unchecked 0x2,0x5
027e 4800 |H | Short_Literal 0x0
027f a407 | | Store_Unchecked 0x2,0x7
0280 8411 | | Call 0x2,0x11
0281 4801 |H | Short_Literal 0x1
0282 e7ff | | Load 0x3,-0x1
0283 e00f | | Load 0x0,0xf
0284 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0285 8410 | | Call 0x2,0x10
0286 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0287 0000 | | .XXX[0x1]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 029f | | .CONST 0x029f ; Address of begin
0289 0004 | | .CONST 0x0004 ; Address of exception handler
028a 0005 | | .CONST 0x0005 ; Number of locals
028b INIT_0288:
028b e011 | | Load 0x0,0x11
028c 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
028d 1b12 | | Execute Package,Field_Read,Field_Number 0x12
028e e402 | | Load 0x2,0x2
028f e00b | | Load 0x0,0xb
0290 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0291 e402 | | Load 0x2,0x2
0292 e00b | | Load 0x0,0xb
0293 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0294 00e2 | | Load_Encached Integer_Cache
0295 00e0 | | Load_Encached Standard_Cache
0296 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0297 e00d | | Load 0x0,0xd
0298 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0299 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
029a e00f | | Load 0x0,0xf
029b 1b14 | | Execute Package,Field_Read,Field_Number 0x14
029c 0322 | " | Declare_Variable Record
029d 00d8 | | Load_Top At_Offset_0
029e 1c00 | | Execute_Immediate Run_Utility,0x0
029f BODY_0288:
029f 00da | | Load_Top At_Offset_2
02a0 00e5 | | Load_Encached Long_Integer_Cache
02a1 00e0 | | Load_Encached Standard_Cache
02a2 1819 | | Execute Package,Field_Execute,Field_Number 0x19
02a3 a40d | | Store_Unchecked 0x2,0xd
02a4 e011 | | Load 0x0,0x11
02a5 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
02a6 1b12 | | Execute Package,Field_Read,Field_Number 0x12
02a7 00d9 | | Load_Top At_Offset_1
02a8 00db | | Load_Top At_Offset_3
02a9 e7ff | | Load 0x3,-0x1
02aa 01cb | | Execute Vector,Append
02ab e5fc | | Load 0x2,-0x4
02ac e011 | | Load 0x0,0x11
02ad 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
02ae 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02af 00d1 | | Pop_Control Pop_Count_1
02b0 c602 | | Store 0x3,0x2
02b1 00db | | Load_Top At_Offset_3
02b2 4602 |F | Jump_Case 0x3
02b3 781b |x | Jump 0x2cf ; case 0x0
02b4 780e |x | Jump 0x2c3 ; case 0x1
02b5 7800 |x | Jump 0x2b6 ; case 0x2
02b6 e40a | | Load 0x2,0xa
02b7 0a02 | | Execute_Immediate Plus,0x2
02b8 c40a | | Store 0x2,0xa
02b9 4800 |H | Short_Literal 0x0
02ba a40c | | Store_Unchecked 0x2,0xc
02bb e40a | | Load 0x2,0xa
02bc a40b | | Store_Unchecked 0x2,0xb
02bd 0092 02e2 | | Action Push_String_Extended,0x2e2 ; "-- keys were lost here. no longer defined"
02bf e403 | | Load 0x2,0x3
02c0 e00b | | Load 0x0,0xb
02c1 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
02c2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02c3 e40c | | Load 0x2,0xc
02c4 e40d | | Load 0x2,0xd
02c5 0273 | s | Execute Discrete,Plus
02c6 a40c | | Store_Unchecked 0x2,0xc
02c7 e40a | | Load 0x2,0xa
02c8 0a02 | | Execute_Immediate Plus,0x2
02c9 c40a | | Store 0x2,0xa
02ca 00d9 | | Load_Top At_Offset_1
02cb e7ff | | Load 0x3,-0x1
02cc 01cb | | Execute Vector,Append
02cd 8414 | | Call 0x2,0x14
02ce 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02cf 00d8 | | Load_Top At_Offset_0
02d0 8413 | | Call 0x2,0x13
02d1 e40a | | Load 0x2,0xa
02d2 0a02 | | Execute_Immediate Plus,0x2
02d3 c40a | | Store 0x2,0xa
02d4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02d5 ; --------------------------------------------------------------------------------------
02d5 ; STRING TABLE
02d5 ; --------------------------------------------------------------------------------------
02d5 001e | | .STRTAB 0x001e->0x02e4 ; "NO_ARGUMENT"
02d6 0027 | ' | .STRTAB 0x0027->0x02e9 ; "EXPLICIT_ARGUMENT"
02d7 0036 | 6 | .STRTAB 0x0036->0x02f2 ; "IMPLICIT_ARGUMENT"
02d8 0045 | E | .STRTAB 0x0045->0x02fa ; "-- line"
02d9 004a | J | .STRTAB 0x004a->0x02fe ; "DELAY"
02da 004d | M | .STRTAB 0x004d->0x0300 ; "EDITOR.CHAR.INSERT_STRING (\x22"
02db 0067 | g | .STRTAB 0x0067->0x030e ; "\x22);"
02dc 0068 | h | .STRTAB 0x0068->0x0310 ; "("
02dd 0067 | g | .STRTAB 0x0067->0x0310 ; ");"
02de 0067 | g | .STRTAB 0x0067->0x0311 ; ";"
02df 0066 | f | .STRTAB 0x0066->0x0312 ; "EDITOR.MACRO.EXECUTE ("
02e0 007a | z | .STRTAB 0x007a->0x031d ; ","
02e1 0079 | y | .STRTAB 0x0079->0x031d ; "EDITOR.MACRO.EXECUTE ( 1,"
02e2 0090 | | .STRTAB 0x0090->0x032a ; "-- keys were lost here. no longer defined"
02e3 00b7 | | .STREND 0x00b7->0x033e
02e4 4e4f 5f41 |NO_A| .STRTAB_STRINGS
033f 0000 | | .XXX[0x1]
0340 ; --------------------------------------------------------------------------------------
0340 ; Debug Table
0340 ; --------------------------------------------------------------------------------------
0340 0004 0009 | | .DEBUG4 0x0004,0x0009,0x862a,0x0000,0x0001,0x0000
0346 0000 0000 | | .BLANK 0000[0xba]