|
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: 3072 (0xc00)
Notes: 00_class, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0500e0
└─⟦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 5813 |X | .CONST 0x5813 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0360 | ` | .CONST 0x0360 ; 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 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0014 | | .CONST 0x0014 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 000e | | .CONST 0x000e ; Number of locals
000b INIT_0008:
000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x03ba,0x8000,0x0000,0x0058,0x7915,0x0000,0x0007
; Debug Table 0x0.0x0 = 0xb,0xffff
000d 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xd,0xfffe
000f 00bf | | Action Accept_Activation
0010 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1 = .DEBUG 0x0010,0x03c0,0x8000,0x0000,0x0058,0x7c45,0x0000,0x0013
; Debug Table 0x1.0x0 = 0x10,0xffff
0011 00c7 | | Action Elaborate_Subprogram
0012 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x1 = 0x12,0xfffe
0013 00c7 | | Action Elaborate_Subprogram
0014 BODY_0008:
0014 00bc | | Action Signal_Activated
0015 00bb | | Action Signal_Completion
0016 0000 0000 | | .XXX[0x2]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 004c | L | .CONST 0x004c ; Address of begin
0019 0075 | u | .CONST 0x0075 ; Address of exception handler
001a 0013 | | .CONST 0x0013 ; Number of locals
001b INIT_0018:
001b e001 | | Load 0x0,0x1 ; Debug Table 0x2 = .DEBUG 0x001b,0x03c6,0x0001,0x0000,0x0058,0x7915,0x0000,0x0008
; Debug Table 0x2.0x0 = 0x1b,0xffff
; Debug Table 0x2.0x1 = 0x1b,0xfffe
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 e001 | | Load 0x0,0x1 ; Debug Table 0x2.0x2 = 0x20,0xfffd
0021 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0022 02c7 | | Declare_Variable Any
0023 00d8 | | Load_Top At_Offset_0
0024 1c00 | | Execute_Immediate Run_Utility,0x0
0025 4800 |H | Short_Literal 0x0 ; Debug Table 0x2.0x3 = 0x25,0xfffc
0026 4802 |H | Short_Literal 0x2
0027 029f 00bb | | Declare_Subprogram INIT_00b8,For_Call
0029 03fd | | Declare_Type Discrete,Defined
002a 00e2 | | Load_Encached Integer_Cache ; Debug Table 0x2.0x4 = 0x2a,0xfffb
002b 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
002c 00e2 | | Load_Encached Integer_Cache ; Debug Table 0x2.0x5 = 0x2c,0xfffa
002d 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
002e 00da | | Load_Top At_Offset_2 ; Debug Table 0x2.0x6 = 0x2e,0xfff9
002f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0030 48ff |H | Short_Literal 0xff ; Debug Table 0x2.0x7 = 0x30,0xfff8
0031 e002 | | Load 0x0,0x2
0032 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0033 1c08 | | Execute_Immediate Run_Utility,0x8
0034 00d8 | | Load_Top At_Offset_0
0035 1c00 | | Execute_Immediate Run_Utility,0x0
0036 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x2.0x8 = 0x36,0xfff7
0037 067f | | Execute_Immediate Set_Value_Unchecked,0x7f
0038 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x2.0x9 = 0x38,0xfff6
0039 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
003a 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x2.0xa = 0x3a,0xfff5
003b 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
003c 00e5 | | Load_Encached Long_Integer_Cache ; Debug Table 0x2.0xb = 0x3c,0xfff4
003d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
003e 00e5 | | Load_Encached Long_Integer_Cache ; Debug Table 0x2.0xc = 0x3e,0xfff3
003f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0040 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call ; Debug Table 0x2.0xd = 0x40,0xfff2
0042 029f 00eb | | Declare_Subprogram INIT_00e8,For_Call ; Debug Table 0x2.0xe = 0x42,0xfff1
0044 029f 0123 | #| Declare_Subprogram INIT_0120,For_Call ; Debug Table 0x2.0xf = 0x44,0xfff0
0046 029f 016b | k| Declare_Subprogram INIT_0168,For_Call ; Debug Table 0x2.0x10 = 0x46,0xffef
0048 029f 01ab | | Declare_Subprogram INIT_01a8,For_Call ; Debug Table 0x2.0x11 = 0x48,0xffee
004a 029f 02a3 | | Declare_Subprogram INIT_02a0,For_Call ; Debug Table 0x2.0x12 = 0x4a,0xffed
004c BODY_0018:
004c e408 | | Load 0x2,0x8 ; Debug Table 0x2.0x13 = 0x4c,0x1
004d 4820 |H | Short_Literal 0x20
004e 4800 |H | Short_Literal 0x0
004f e002 | | Load 0x0,0x2
0050 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0051 00d1 | | Pop_Control Pop_Count_1
0052 e402 | | Load 0x2,0x2 ; Debug Table 0x2.0x14 = 0x52,0x2
0053 00ea | | Load_Encached Null_String_Cache
0054 e5ff | | Load 0x2,-0x1
0055 4800 |H | Short_Literal 0x0
0056 e001 | | Load 0x0,0x1
0057 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0058 c402 | | Store 0x2,0x2
0059 e403 | | Load 0x2,0x3 ; Debug Table 0x2.0x15 = 0x59,0x3
005a 00ea | | Load_Encached Null_String_Cache
005b e5fe | | Load 0x2,-0x2
005c 4801 |H | Short_Literal 0x1
005d e001 | | Load 0x0,0x1
005e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
005f c403 | | Store 0x2,0x3
0060 00cf | | Action Mark_Auxiliary
0061 7804 |x | Jump 0x66
0062 e003 | | Load 0x0,0x3 ; Debug Table 0x2.0x16 = 0x62,0x5
0063 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0064 8413 | | Call 0x2,0x13
0065 00c9 | | Action Pop_Auxiliary_Loop
0066 e402 | | Load 0x2,0x2 ; Debug Table 0x2.0x17 = 0x66,0x4
0067 e001 | | Load 0x0,0x1
0068 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0069 6ff8 |o | Jump_Zero 0x62
006a 00ce | | Action Pop_Auxiliary
006b 8410 | | Call 0x2,0x10 ; Debug Table 0x2.0x18 = 0x6b,0x6
006c e402 | | Load 0x2,0x2 ; Debug Table 0x2.0x19 = 0x6c,0x7
006d e001 | | Load 0x0,0x1
006e 1815 | | Execute Package,Field_Execute,Field_Number 0x15
006f c402 | | Store 0x2,0x2
0070 e403 | | Load 0x2,0x3 ; Debug Table 0x2.0x1a = 0x70,0x8
0071 e001 | | Load 0x0,0x1
0072 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0073 c403 | | Store 0x2,0x3
0074 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0075 TRAP_0018:
0075 0007 | | Action Break_Optional
0076 e402 | | Load 0x2,0x2 ; Debug Table 0x2.0x1b = 0x76,0x9
0077 e001 | | Load 0x0,0x1
0078 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0079 c402 | | Store 0x2,0x2
007a e403 | | Load 0x2,0x3 ; Debug Table 0x2.0x1c = 0x7a,0xa
007b e001 | | Load 0x0,0x1
007c 1815 | | Execute Package,Field_Execute,Field_Number 0x15
007d c403 | | Store 0x2,0x3
007e 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x1d = 0x7e,0xb
007f 0101 | | Execute Exception,Reraise
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 008c | | .CONST 0x008c ; Address of begin
0081 00aa | | .CONST 0x00aa ; Address of exception handler
0082 0003 | | .CONST 0x0003 ; Number of locals
0083 INIT_0080:
0083 e001 | | Load 0x0,0x1 ; Debug Table 0x3 = .DEBUG 0x0083,0x0404,0x0001,0x0000,0x0058,0x7915,0x0000,0x001a
; Debug Table 0x3.0x0 = 0x83,0xffff
; Debug Table 0x3.0x1 = 0x83,0xfffe
0084 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0085 02c7 | | Declare_Variable Any
0086 00d8 | | Load_Top At_Offset_0
0087 1c00 | | Execute_Immediate Run_Utility,0x0
0088 e5fd | | Load 0x2,-0x3 ; Debug Table 0x3.0x2 = 0x88,0xfffd
0089 2403 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x3
008a 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7
008b 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
008c BODY_0080:
008c 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x3 = 0x8c,0x1
008d 00ea | | Load_Encached Null_String_Cache
008e e5fe | | Load 0x2,-0x2
008f 4801 |H | Short_Literal 0x1
0090 e001 | | Load 0x0,0x1
0091 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0092 c402 | | Store 0x2,0x2
0093 00cf | | Action Mark_Auxiliary
0094 e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0x4 = 0x94,0x2
0095 01d9 | | Execute Vector,Reverse_Bounds
0096 0263 | c | Execute Discrete,Above_Bound
0097 700c |p | Jump_Nonzero 0xa4
0098 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x5 = 0x98,0x3
0099 e5ff | | Load 0x2,-0x1
009a 01d7 | | Execute Vector,Field_Read
009b e403 | | Load 0x2,0x3
009c e003 | | Load 0x0,0x3
009d 1b19 | | Execute Package,Field_Read,Field_Number 0x19
009e 180f | | Execute Package,Field_Execute,Field_Number 0xf
009f e402 | | Load 0x2,0x2
00a0 e001 | | Load 0x0,0x1
00a1 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
00a2 00c8 | | Action Pop_Auxiliary_Range
00a3 3ff4 |? | Loop_Increasing 0x98
00a4 00ce | | Action Pop_Auxiliary
00a5 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x6 = 0xa5,0x4
00a6 e001 | | Load 0x0,0x1
00a7 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00a8 c402 | | Store 0x2,0x2
00a9 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00aa TRAP_0080:
00aa 0007 | | Action Break_Optional
00ab 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0x7 = 0xab,0x5
00ac e001 | | Load 0x0,0x1
00ad 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00ae c402 | | Store 0x2,0x2
00af 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x8 = 0xaf,0x6
00b0 0101 | | Execute Exception,Reraise
00b1 0000 0000 | | .BLANK 0000[0x7]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb | | .CONST 0x00bb ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0001 | | .CONST 0x0001 ; Number of locals
00bb BODY_00b8:
00bb INIT_00b8:
00bb 4603 |F | Jump_Case 0x4 ; Debug Table 0x4 = .DEBUG 0x00bb,0x0418,0x0005,0x0000,0x0058,0x7c45,0x0000,0x0037
00bc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00bd 7802 |x | Jump 0xc0 ; case 0x1
00be 7805 |x | Jump 0xc4 ; case 0x2
00bf 7809 |x | Jump 0xc9 ; case 0x3
00c0 00da | | Load_Top At_Offset_2
00c1 0091 02f0 | | Action Push_String_Extended_Indexed,0x2f0 ; "NO_ARGUMENT"
00c3 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00c4 00db | | Load_Top At_Offset_3
00c5 00db | | Load_Top At_Offset_3
00c6 00e0 | | Load_Encached Standard_Cache
00c7 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00c8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00c9 00da | | Load_Top At_Offset_2
00ca 00e0 | | Load_Encached Standard_Cache
00cb 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00cc 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00cd 0000 0000 | | .XXX[0x3]
00cf 0000 | |
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 0092 02f3 | | Action Push_String_Extended,0x2f3 ; "-- delay"
; Debug Table 0x5 = .DEBUG 0x00d3,0x041a,0x0002,0x0000,0x0058,0x7c45,0x0000,0x0077
; Debug Table 0x5.0x0 = 0xd3,0x1
00d5 e40c | | Load 0x2,0xc
00d6 00e0 | | Load_Encached Standard_Cache
00d7 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00d8 01cc | | Execute Vector,Catenate
00d9 0092 02f4 | | Action Push_String_Extended,0x2f4 ; ", line"
00db 01cc | | Execute Vector,Catenate
00dc e40b | | Load 0x2,0xb
00dd 00e0 | | Load_Encached Standard_Cache
00de 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00df 01cc | | Execute Vector,Catenate
00e0 00ca | | Action Exit_Nullary_Function
00e1 0000 0000 | | .BLANK 0000[0x7]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb | | .CONST 0x00eb ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0001 | | .CONST 0x0001 ; Number of locals
00eb BODY_00e8:
00eb INIT_00e8:
00eb 00da | | Load_Top At_Offset_2 ; Debug Table 0x6 = .DEBUG 0x00eb,0x041e,0x0001,0x0000,0x0058,0x7c45,0x0000,0x0097
; Debug Table 0x6.0x0 = 0xeb,0xffff
; Debug Table 0x6.0x1 = 0xeb,0x1
00ec 01db | | Execute Vector,Length
00ed 0d37 | 7 | Execute_Immediate Less,0x37
00ee 6818 |h | Jump_Zero 0x107
00ef 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0x2 = 0xef,0x2
00f0 00db | | Load_Top At_Offset_3
00f1 01db | | Execute Vector,Length
00f2 4837 |H7 | Short_Literal 0x37
00f3 00e9 | | Load_Encached String_Cache
00f4 035b | [ | Declare_Type Array,Constrained
00f5 0337 | 7 | Declare_Variable Array
00f6 4837 |H7 | Short_Literal 0x37
00f7 00d9 | | Load_Top At_Offset_1
00f8 01dd | | Execute Vector,First
00f9 0263 | c | Execute Discrete,Above_Bound
00fa 7005 |p | Jump_Nonzero 0x100
00fb 4820 |H | Short_Literal 0x20
00fc 00d9 | | Load_Top At_Offset_1
00fd e603 | | Load 0x3,0x3
00fe 01d6 | | Execute Vector,Field_Write
00ff 3ffb |? | Loop_Increasing 0xfb
0100 01cc | | Execute Vector,Catenate
0101 840e | | Call 0x2,0xe
0102 01cc | | Execute Vector,Catenate
0103 e403 | | Load 0x2,0x3
0104 e001 | | Load 0x0,0x1
0105 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0106 7808 |x | Jump 0x10f
0107 4820 |H | Short_Literal 0x20 ; Debug Table 0x6.0x3 = 0x107,0x3
0108 00db | | Load_Top At_Offset_3
0109 01cb | | Execute Vector,Append
010a 840e | | Call 0x2,0xe
010b 01cc | | Execute Vector,Catenate
010c e403 | | Load 0x2,0x3
010d e001 | | Load 0x0,0x1
010e 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
010f 00db | | Load_Top At_Offset_3 ; Debug Table 0x6.0x4 = 0x10f,0x4
0110 6806 |h | Jump_Zero 0x117
0111 e40a | | Load 0x2,0xa ; Debug Table 0x6.0x5 = 0x111,0x5
0112 0a02 | | Execute_Immediate Plus,0x2
0113 c40b | | Store 0x2,0xb
0114 4800 |H | Short_Literal 0x0 ; Debug Table 0x6.0x6 = 0x114,0x6
0115 a40c | | Store_Unchecked 0x2,0xc
0116 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0117 e40a | | Load 0x2,0xa ; Debug Table 0x6.0x7 = 0x117,0x7
0118 a40b | | Store_Unchecked 0x2,0xb
0119 e40d | | Load 0x2,0xd ; Debug Table 0x6.0x8 = 0x119,0x8
011a a40c | | Store_Unchecked 0x2,0xc
011b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
011c 0000 0000 | | .BLANK 0000[0x4]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 012a | * | .CONST 0x012a ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0003 | | .CONST 0x0003 ; Number of locals
0123 INIT_0120:
0123 e408 | | Load 0x2,0x8 ; Debug Table 0x7 = .DEBUG 0x0123,0x0432,0x0001,0x0000,0x0058,0x7c45,0x0000,0x00f5
; Debug Table 0x7.0x0 = 0x123,0xffff
0124 e002 | | Load 0x0,0x2
0125 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0126 00e3 | | Load_Encached Natural_Cache
0127 03f1 | | Declare_Variable Discrete,With_Value
0128 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x7.0x1 = 0x128,0xfffe
0129 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
012a BODY_0120:
012a 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x7.0x2 = 0x12a,0x1
012b 0c01 | | Execute_Immediate Greater_Equal,0x1
012c 6834 |h4 | Jump_Zero 0x161
012d 00cf | | Action Mark_Auxiliary
012e 781b |x | Jump 0x14a
012f 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x7.0x3 = 0x12f,0x3
0130 00e4 | | Load_Encached Positive_Cache
0131 025b | [ | Execute Discrete,Check_In_Type
0132 e408 | | Load 0x2,0x8
0133 e002 | | Load 0x0,0x2
0134 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0135 0f22 | " | Execute_Immediate Equal,0x22
0136 680f |h | Jump_Zero 0x146
0137 e408 | | Load 0x2,0x8 ; Debug Table 0x7.0x4 = 0x137,0x4
0138 4822 |H" | Short_Literal 0x22
0139 00db | | Load_Top At_Offset_3
013a 00e4 | | Load_Encached Positive_Cache
013b 025b | [ | Execute Discrete,Check_In_Type
013c e002 | | Load 0x0,0x2
013d 181d | | Execute Package,Field_Execute,Field_Number 0x1d
013e 00d1 | | Pop_Control Pop_Count_1
013f 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x7.0x5 = 0x13f,0x5
0140 0a02 | | Execute_Immediate Plus,0x2
0141 005a | Z | Store_Top Discrete,At_Offset_2
0142 00da | | Load_Top At_Offset_2 ; Debug Table 0x7.0x6 = 0x142,0x6
0143 0a01 | | Execute_Immediate Plus,0x1
0144 005b | [ | Store_Top Discrete,At_Offset_3
0145 7803 |x | Jump 0x149
0146 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x7.0x7 = 0x146,0x7
0147 0a01 | | Execute_Immediate Plus,0x1
0148 005a | Z | Store_Top Discrete,At_Offset_2
0149 00c9 | | Action Pop_Auxiliary_Loop
014a 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x7.0x8 = 0x14a,0x2
014b 00db | | Load_Top At_Offset_3
014c 027a | z | Execute Discrete,Less_Equal
014d 77e1 |w | Jump_Nonzero 0x12f
014e 00ce | | Action Pop_Auxiliary
014f 4800 |H | Short_Literal 0x0 ; Debug Table 0x7.0x9 = 0x14f,0x8
0150 0092 02f5 | | Action Push_String_Extended,0x2f5 ; "EDITOR.CHAR.INSERT_STRING (\x22"
0152 e408 | | Load 0x2,0x8
0153 e002 | | Load 0x0,0x2
0154 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0155 01cc | | Execute Vector,Catenate
0156 0092 02f6 | | Action Push_String_Extended,0x2f6 ; "\x22);"
0158 01cc | | Execute Vector,Catenate
0159 840f | | Call 0x2,0xf
015a e408 | | Load 0x2,0x8 ; Debug Table 0x7.0xa = 0x15a,0x9
015b 4820 |H | Short_Literal 0x20
015c 4800 |H | Short_Literal 0x0
015d e002 | | Load 0x0,0x2
015e 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
015f 00d1 | | Pop_Control Pop_Count_1
0160 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0161 e40c | | Load 0x2,0xc ; Debug Table 0x7.0xb = 0x161,0xa
0162 e40d | | Load 0x2,0xd
0163 0273 | s | Execute Discrete,Plus
0164 a40c | | Store_Unchecked 0x2,0xc
0165 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0166 0000 0000 | | .XXX[0x2]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b | k | .CONST 0x016b ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0001 | | .CONST 0x0001 ; Number of locals
016b BODY_0168:
016b INIT_0168:
016b e407 | | Load 0x2,0x7 ; Debug Table 0x8 = .DEBUG 0x016b,0x044c,0x0001,0x0000,0x0058,0x7c45,0x0000,0x016d
; Debug Table 0x8.0x0 = 0x16b,0x1
016c 6813 |h | Jump_Zero 0x180
016d 4801 |H | Short_Literal 0x1 ; Debug Table 0x8.0x1 = 0x16d,0x2
016e 00db | | Load_Top At_Offset_3
016f e004 | | Load 0x0,0x4
0170 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0171 0092 02f7 | | Action Push_String_Extended,0x2f7 ; "("
0173 01cc | | Execute Vector,Catenate
0174 e406 | | Load 0x2,0x6
0175 e405 | | Load 0x2,0x5
0176 0271 | q | Execute Discrete,Times
0177 0248 | H | Execute Discrete,Check_In_Integer
0178 00e0 | | Load_Encached Standard_Cache
0179 1818 | | Execute Package,Field_Execute,Field_Number 0x18
017a 01cc | | Execute Vector,Catenate
017b 0092 02f8 | | Action Push_String_Extended,0x2f8 ; ");"
017d 01cc | | Execute Vector,Catenate
017e 840f | | Call 0x2,0xf
017f 781d |x | Jump 0x19d
0180 00da | | Load_Top At_Offset_2 ; Debug Table 0x8.0x2 = 0x180,0x3
0181 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0182 0e01 | | Execute_Immediate Not_Equal,0x1
0183 6811 |h | Jump_Zero 0x195
0184 4801 |H | Short_Literal 0x1 ; Debug Table 0x8.0x3 = 0x184,0x4
0185 00db | | Load_Top At_Offset_3
0186 e004 | | Load 0x0,0x4
0187 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0188 0092 02f7 | | Action Push_String_Extended,0x2f7 ; "("
018a 01cc | | Execute Vector,Catenate
018b e7ff | | Load 0x3,-0x1
018c 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
018d 00e0 | | Load_Encached Standard_Cache
018e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
018f 01cc | | Execute Vector,Catenate
0190 0092 02f8 | | Action Push_String_Extended,0x2f8 ; ");"
0192 01cc | | Execute Vector,Catenate
0193 840f | | Call 0x2,0xf
0194 7808 |x | Jump 0x19d
0195 4801 |H | Short_Literal 0x1 ; Debug Table 0x8.0x4 = 0x195,0x5
0196 00db | | Load_Top At_Offset_3
0197 e004 | | Load 0x0,0x4
0198 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0199 0092 02f9 | | Action Push_String_Extended,0x2f9 ; ";"
019b 01cc | | Execute Vector,Catenate
019c 840f | | Call 0x2,0xf
019d 4801 |H | Short_Literal 0x1 ; Debug Table 0x8.0x5 = 0x19d,0x6
019e a406 | | Store_Unchecked 0x2,0x6
019f 4801 |H | Short_Literal 0x1 ; Debug Table 0x8.0x6 = 0x19f,0x7
01a0 a405 | | Store_Unchecked 0x2,0x5
01a1 4800 |H | Short_Literal 0x0 ; Debug Table 0x8.0x7 = 0x1a1,0x8
01a2 a407 | | Store_Unchecked 0x2,0x7
01a3 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01a4 0000 0000 | | .BLANK 0000[0x4]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ad | | .CONST 0x01ad ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0002 | | .CONST 0x0002 ; Number of locals
01ab INIT_01a8:
01ab e005 | | Load 0x0,0x5 ; Debug Table 0x9 = .DEBUG 0x01ab,0x045e,0x0001,0x0000,0x0058,0x7c45,0x0000,0x01e2
; Debug Table 0x9.0x0 = 0x1ab,0xffff
01ac 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01ad BODY_01a8:
01ad 00db | | Load_Top At_Offset_3 ; Debug Table 0x9.0x1 = 0x1ad,0x1
01ae 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01af 68dc |h | Jump_Zero 0x28c
01b0 00db | | Load_Top At_Offset_3 ; Debug Table 0x9.0x2 = 0x1b0,0x2
01b1 e005 | | Load 0x0,0x5
01b2 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01b3 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01b4 683a |h: | Jump_Zero 0x1ef
01b5 e407 | | Load 0x2,0x7 ; Debug Table 0x9.0x3 = 0x1b5,0x3
01b6 6824 |h$ | Jump_Zero 0x1db
01b7 e408 | | Load 0x2,0x8 ; Debug Table 0x9.0x4 = 0x1b7,0x4
01b8 e002 | | Load 0x0,0x2
01b9 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
01ba e406 | | Load 0x2,0x6
01bb e405 | | Load 0x2,0x5
01bc 0271 | q | Execute Discrete,Times
01bd 0248 | H | Execute Discrete,Check_In_Integer
01be 0273 | s | Execute Discrete,Plus
01bf e409 | | Load 0x2,0x9
01c0 027d | } | Execute Discrete,Greater
01c1 6801 |h | Jump_Zero 0x1c3
01c2 8410 | | Call 0x2,0x10 ; Debug Table 0x9.0x5 = 0x1c2,0x5
01c3 00cf | | Action Mark_Auxiliary
01c4 e406 | | Load 0x2,0x6 ; Debug Table 0x9.0x6 = 0x1c4,0x6
01c5 e405 | | Load 0x2,0x5
01c6 0271 | q | Execute Discrete,Times
01c7 0248 | H | Execute Discrete,Check_In_Integer
01c8 4801 |H | Short_Literal 0x1
01c9 0263 | c | Execute Discrete,Above_Bound
01ca 700a |p | Jump_Nonzero 0x1d5
01cb e408 | | Load 0x2,0x8 ; Debug Table 0x9.0x7 = 0x1cb,0x7
01cc e7ff | | Load 0x3,-0x1
01cd e005 | | Load 0x0,0x5
01ce 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01cf 1817 | | Execute Package,Field_Execute,Field_Number 0x17
01d0 e002 | | Load 0x0,0x2
01d1 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01d2 00d1 | | Pop_Control Pop_Count_1
01d3 00c8 | | Action Pop_Auxiliary_Range
01d4 3ff6 |? | Loop_Increasing 0x1cb
01d5 00ce | | Action Pop_Auxiliary
01d6 4800 |H | Short_Literal 0x0 ; Debug Table 0x9.0x8 = 0x1d6,0x8
01d7 a407 | | Store_Unchecked 0x2,0x7
01d8 4801 |H | Short_Literal 0x1 ; Debug Table 0x9.0x9 = 0x1d8,0x9
01d9 a405 | | Store_Unchecked 0x2,0x5
01da 780f |x | Jump 0x1ea
01db e408 | | Load 0x2,0x8 ; Debug Table 0x9.0xa = 0x1db,0xa
01dc e002 | | Load 0x0,0x2
01dd 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
01de e409 | | Load 0x2,0x9
01df 027d | } | Execute Discrete,Greater
01e0 6801 |h | Jump_Zero 0x1e2
01e1 8410 | | Call 0x2,0x10 ; Debug Table 0x9.0xb = 0x1e1,0xb
01e2 e408 | | Load 0x2,0x8 ; Debug Table 0x9.0xc = 0x1e2,0xc
01e3 e7ff | | Load 0x3,-0x1
01e4 e005 | | Load 0x0,0x5
01e5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01e6 1817 | | Execute Package,Field_Execute,Field_Number 0x17
01e7 e002 | | Load 0x0,0x2
01e8 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01e9 00d1 | | Pop_Control Pop_Count_1
01ea e40c | | Load 0x2,0xc ; Debug Table 0x9.0xd = 0x1ea,0xd
01eb e40d | | Load 0x2,0xd
01ec 0273 | s | Execute Discrete,Plus
01ed a40c | | Store_Unchecked 0x2,0xc
01ee 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01ef 00db | | Load_Top At_Offset_3 ; Debug Table 0x9.0xe = 0x1ef,0xe
01f0 e005 | | Load 0x0,0x5
01f1 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01f2 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01f3 682f |h/ | Jump_Zero 0x223
01f4 8410 | | Call 0x2,0x10 ; Debug Table 0x9.0xf = 0x1f4,0xf
01f5 e407 | | Load 0x2,0x7 ; Debug Table 0x9.0x10 = 0x1f5,0x10
01f6 681e |h | Jump_Zero 0x215
01f7 4801 |H | Short_Literal 0x1 ; Debug Table 0x9.0x11 = 0x1f7,0x11
01f8 0092 02fa | | Action Push_String_Extended,0x2fa ; "EDITOR.MACRO.EXECUTE ("
01fa e406 | | Load 0x2,0x6
01fb e405 | | Load 0x2,0x5
01fc 0271 | q | Execute Discrete,Times
01fd 0248 | H | Execute Discrete,Check_In_Integer
01fe 00e0 | | Load_Encached Standard_Cache
01ff 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0200 01cc | | Execute Vector,Catenate
0201 0092 02fb | | Action Push_String_Extended,0x2fb ; ","
0203 01cc | | Execute Vector,Catenate
0204 e7ff | | Load 0x3,-0x1
0205 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0206 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0207 00e0 | | Load_Encached Standard_Cache
0208 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0209 01cc | | Execute Vector,Catenate
020a 0092 02f8 | | Action Push_String_Extended,0x2f8 ; ");"
020c 01cc | | Execute Vector,Catenate
020d 840f | | Call 0x2,0xf
020e 4800 |H | Short_Literal 0x0 ; Debug Table 0x9.0x12 = 0x20e,0x12
020f a407 | | Store_Unchecked 0x2,0x7
0210 4801 |H | Short_Literal 0x1 ; Debug Table 0x9.0x13 = 0x210,0x13
0211 a405 | | Store_Unchecked 0x2,0x5
0212 4801 |H | Short_Literal 0x1 ; Debug Table 0x9.0x14 = 0x212,0x14
0213 a406 | | Store_Unchecked 0x2,0x6
0214 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0215 4801 |H | Short_Literal 0x1 ; Debug Table 0x9.0x15 = 0x215,0x15
0216 0092 02fc | | Action Push_String_Extended,0x2fc ; "EDITOR.MACRO.EXECUTE ( 1,"
0218 e7ff | | Load 0x3,-0x1
0219 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
021a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
021b 00e0 | | Load_Encached Standard_Cache
021c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
021d 01cc | | Execute Vector,Catenate
021e 0092 02f8 | | Action Push_String_Extended,0x2f8 ; ");"
0220 01cc | | Execute Vector,Catenate
0221 840f | | Call 0x2,0xf
0222 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0223 00db | | Load_Top At_Offset_3 ; Debug Table 0x9.0x16 = 0x223,0x16
0224 e005 | | Load 0x0,0x5
0225 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0226 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0227 6860 |h` | Jump_Zero 0x288
0228 8410 | | Call 0x2,0x10 ; Debug Table 0x9.0x17 = 0x228,0x17
0229 00db | | Load_Top At_Offset_3 ; Debug Table 0x9.0x18 = 0x229,0x18
022a e005 | | Load 0x0,0x5
022b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
022c 1817 | | Execute Package,Field_Execute,Field_Number 0x17
022d 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
022e 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x19 = 0x22e,0x19
022f 0b01 | | Execute_Immediate Case_Compare,0x1
0230 701b |p | Jump_Nonzero 0x24c
0231 0b02 | | Execute_Immediate Case_Compare,0x2
0232 702d |p- | Jump_Nonzero 0x260
0233 0b03 | | Execute_Immediate Case_Compare,0x3
0234 702b |p+ | Jump_Nonzero 0x260
0235 0b04 | | Execute_Immediate Case_Compare,0x4
0236 7029 |p) | Jump_Nonzero 0x260
0237 0b05 | | Execute_Immediate Case_Compare,0x5
0238 7027 |p' | Jump_Nonzero 0x260
0239 0b06 | | Execute_Immediate Case_Compare,0x6
023a 7025 |p% | Jump_Nonzero 0x260
023b 0b07 | | Execute_Immediate Case_Compare,0x7
023c 7023 |p# | Jump_Nonzero 0x260
023d 0b08 | | Execute_Immediate Case_Compare,0x8
023e 7021 |p! | Jump_Nonzero 0x260
023f 0b09 | | Execute_Immediate Case_Compare,0x9
0240 701f |p | Jump_Nonzero 0x260
0241 0b0a | | Execute_Immediate Case_Compare,0xa
0242 701d |p | Jump_Nonzero 0x260
0243 0b0b | | Execute_Immediate Case_Compare,0xb
0244 701b |p | Jump_Nonzero 0x260
0245 0b0c | | Execute_Immediate Case_Compare,0xc
0246 702e |p. | Jump_Nonzero 0x275
0247 0b0d | | Execute_Immediate Case_Compare,0xd
0248 7037 |p7 | Jump_Nonzero 0x280
0249 e7ff | | Load 0x3,-0x1 ; Debug Table 0x9.0x1a = 0x249,0x28
024a 8411 | | Call 0x2,0x11
024b 783a |x: | Jump 0x286
024c e407 | | Load 0x2,0x7 ; Debug Table 0x9.0x1b = 0x24c,0x1a
024d 6803 |h | Jump_Zero 0x251
024e e407 | | Load 0x2,0x7
024f 0f02 | | Execute_Immediate Equal,0x2
0250 6804 |h | Jump_Zero 0x255
0251 e7ff | | Load 0x3,-0x1 ; Debug Table 0x9.0x1c = 0x251,0x1b
0252 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0253 a406 | | Store_Unchecked 0x2,0x6
0254 7808 |x | Jump 0x25d
0255 e406 | | Load 0x2,0x6 ; Debug Table 0x9.0x1d = 0x255,0x1c
0256 480a |H | Short_Literal 0xa
0257 0271 | q | Execute Discrete,Times
0258 e7ff | | Load 0x3,-0x1
0259 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
025a 0273 | s | Execute Discrete,Plus
025b 0248 | H | Execute Discrete,Check_In_Integer
025c a406 | | Store_Unchecked 0x2,0x6
025d 4801 |H | Short_Literal 0x1 ; Debug Table 0x9.0x1e = 0x25d,0x1d
025e a407 | | Store_Unchecked 0x2,0x7
025f 7826 |x& | Jump 0x286
0260 e407 | | Load 0x2,0x7 ; Debug Table 0x9.0x1f = 0x260,0x1e
0261 6803 |h | Jump_Zero 0x265
0262 e407 | | Load 0x2,0x7
0263 0f02 | | Execute_Immediate Equal,0x2
0264 6807 |h | Jump_Zero 0x26c
0265 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x9.0x20 = 0x265,0x1f
0266 0afe | | Execute_Immediate Plus,-0x2
0267 0248 | H | Execute Discrete,Check_In_Integer
0268 a406 | | Store_Unchecked 0x2,0x6
0269 4801 |H | Short_Literal 0x1 ; Debug Table 0x9.0x21 = 0x269,0x20
026a a407 | | Store_Unchecked 0x2,0x7
026b 781a |x | Jump 0x286
026c e406 | | Load 0x2,0x6 ; Debug Table 0x9.0x22 = 0x26c,0x21
026d 480a |H | Short_Literal 0xa
026e 0271 | q | Execute Discrete,Times
026f 00da | | Load_Top At_Offset_2
0270 0afe | | Execute_Immediate Plus,-0x2
0271 0273 | s | Execute Discrete,Plus
0272 0248 | H | Execute Discrete,Check_In_Integer
0273 a406 | | Store_Unchecked 0x2,0x6
0274 7811 |x | Jump 0x286
0275 e405 | | Load 0x2,0x5 ; Debug Table 0x9.0x23 = 0x275,0x22
0276 0275 | u | Execute Discrete,Unary_Minus
0277 a405 | | Store_Unchecked 0x2,0x5
0278 e407 | | Load 0x2,0x7 ; Debug Table 0x9.0x24 = 0x278,0x23
0279 0e01 | | Execute_Immediate Not_Equal,0x1
027a 680b |h | Jump_Zero 0x286
027b 4801 |H | Short_Literal 0x1 ; Debug Table 0x9.0x25 = 0x27b,0x24
027c a406 | | Store_Unchecked 0x2,0x6
027d 4802 |H | Short_Literal 0x2 ; Debug Table 0x9.0x26 = 0x27d,0x25
027e a407 | | Store_Unchecked 0x2,0x7
027f 7806 |x | Jump 0x286
0280 e406 | | Load 0x2,0x6 ; Debug Table 0x9.0x27 = 0x280,0x26
0281 0902 | | Execute_Immediate Binary_Scale,0x2
0282 0248 | H | Execute Discrete,Check_In_Integer
0283 a406 | | Store_Unchecked 0x2,0x6
0284 4802 |H | Short_Literal 0x2 ; Debug Table 0x9.0x28 = 0x284,0x27
0285 a407 | | Store_Unchecked 0x2,0x7
0286 00d1 | | Pop_Control Pop_Count_1
0287 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0288 8410 | | Call 0x2,0x10 ; Debug Table 0x9.0x29 = 0x288,0x29
0289 00db | | Load_Top At_Offset_3 ; Debug Table 0x9.0x2a = 0x289,0x2a
028a 8411 | | Call 0x2,0x11
028b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
028c 4801 |H | Short_Literal 0x1 ; Debug Table 0x9.0x2b = 0x28c,0x2b
028d a406 | | Store_Unchecked 0x2,0x6
028e 4801 |H | Short_Literal 0x1 ; Debug Table 0x9.0x2c = 0x28e,0x2c
028f a405 | | Store_Unchecked 0x2,0x5
0290 4800 |H | Short_Literal 0x0 ; Debug Table 0x9.0x2d = 0x290,0x2d
0291 a407 | | Store_Unchecked 0x2,0x7
0292 8410 | | Call 0x2,0x10 ; Debug Table 0x9.0x2e = 0x292,0x2e
0293 4801 |H | Short_Literal 0x1 ; Debug Table 0x9.0x2f = 0x293,0x2f
0294 e7ff | | Load 0x3,-0x1
0295 e004 | | Load 0x0,0x4
0296 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0297 840f | | Call 0x2,0xf
0298 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0299 0000 0000 | | .BLANK 0000[0x7]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02bc | | .CONST 0x02bc ; Address of begin
02a1 0004 | | .CONST 0x0004 ; Address of exception handler
02a2 0006 | | .CONST 0x0006 ; Number of locals
02a3 INIT_02a0:
02a3 e006 | | Load 0x0,0x6 ; Debug Table 0xa = .DEBUG 0x02a3,0x04c0,0x0001,0x0000,0x0058,0x7c45,0x0000,0x03a4
; Debug Table 0xa.0x0 = 0x2a3,0xffff
02a4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02a5 e5fd | | Load 0x2,-0x3 ; Debug Table 0xa.0x1 = 0x2a5,0xfffe
02a6 2403 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x3
02a7 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7
02a8 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02a9 e402 | | Load 0x2,0x2 ; Debug Table 0xa.0x2 = 0x2a9,0xfffd
02aa e001 | | Load 0x0,0x1
02ab 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
02ac e402 | | Load 0x2,0x2 ; Debug Table 0xa.0x3 = 0x2ac,0xfffc
02ad e001 | | Load 0x0,0x1
02ae 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
02af e003 | | Load 0x0,0x3
02b0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02b1 0122 | " | Execute Any,Make_Root_Type
02b2 00e0 | | Load_Encached Standard_Cache
02b3 1819 | | Execute Package,Field_Execute,Field_Number 0x19
02b4 e003 | | Load 0x0,0x3
02b5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02b6 03f1 | | Declare_Variable Discrete,With_Value
02b7 e004 | | Load 0x0,0x4 ; Debug Table 0xa.0x4 = 0x2b7,0xfffb
02b8 1b14 | | Execute Package,Field_Read,Field_Number 0x14
02b9 0322 | " | Declare_Variable Record
02ba 00d8 | | Load_Top At_Offset_0
02bb 1c00 | | Execute_Immediate Run_Utility,0x0
02bc BODY_02a0:
02bc 00da | | Load_Top At_Offset_2 ; Debug Table 0xa.0x5 = 0x2bc,0x1
02bd 00e5 | | Load_Encached Long_Integer_Cache
02be 00e0 | | Load_Encached Standard_Cache
02bf 1819 | | Execute Package,Field_Execute,Field_Number 0x19
02c0 a40d | | Store_Unchecked 0x2,0xd
02c1 e006 | | Load 0x0,0x6 ; Debug Table 0xa.0x6 = 0x2c1,0x2
02c2 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02c3 00d9 | | Load_Top At_Offset_1
02c4 00db | | Load_Top At_Offset_3
02c5 e7ff | | Load 0x3,-0x1
02c6 01cb | | Execute Vector,Append
02c7 e603 | | Load 0x3,0x3
02c8 e006 | | Load 0x0,0x6
02c9 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02ca 00d1 | | Pop_Control Pop_Count_1
02cb c602 | | Store 0x3,0x2
02cc e602 | | Load 0x3,0x2 ; Debug Table 0xa.0x7 = 0x2cc,0x3
02cd 4602 |F | Jump_Case 0x3
02ce 780e |x | Jump 0x2dd ; case 0x0
02cf 7801 |x | Jump 0x2d1 ; case 0x1
02d0 7812 |x | Jump 0x2e3 ; case 0x2
02d1 e40c | | Load 0x2,0xc ; Debug Table 0xa.0x8 = 0x2d1,0x4
02d2 e40d | | Load 0x2,0xd
02d3 0273 | s | Execute Discrete,Plus
02d4 a40c | | Store_Unchecked 0x2,0xc
02d5 e40a | | Load 0x2,0xa ; Debug Table 0xa.0x9 = 0x2d5,0x5
02d6 0a02 | | Execute_Immediate Plus,0x2
02d7 c40a | | Store 0x2,0xa
02d8 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xa.0xa = 0x2d8,0x6
02d9 e7ff | | Load 0x3,-0x1
02da 01cb | | Execute Vector,Append
02db 8413 | | Call 0x2,0x13
02dc 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02dd 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xa.0xb = 0x2dd,0x7
02de 8412 | | Call 0x2,0x12
02df e40a | | Load 0x2,0xa ; Debug Table 0xa.0xc = 0x2df,0x8
02e0 0a02 | | Execute_Immediate Plus,0x2
02e1 c40a | | Store 0x2,0xa
02e2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02e3 e40a | | Load 0x2,0xa ; Debug Table 0xa.0xd = 0x2e3,0x9
02e4 0a02 | | Execute_Immediate Plus,0x2
02e5 c40a | | Store 0x2,0xa
02e6 4800 |H | Short_Literal 0x0 ; Debug Table 0xa.0xe = 0x2e6,0xa
02e7 a40c | | Store_Unchecked 0x2,0xc
02e8 e40a | | Load 0x2,0xa ; Debug Table 0xa.0xf = 0x2e8,0xb
02e9 a40b | | Store_Unchecked 0x2,0xb
02ea 0092 02fd | | Action Push_String_Extended,0x2fd ; "-- keys were lost here. no longer defined"
; Debug Table 0xa.0x10 = 0x2ea,0xc
02ec e403 | | Load 0x2,0x3
02ed e001 | | Load 0x0,0x1
02ee 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
02ef 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02f0 ; --------------------------------------------------------------------------------------
02f0 ; STRING TABLE
02f0 ; --------------------------------------------------------------------------------------
02f0 001e | | .STRTAB 0x001e->0x02ff ; "NO_ARGUMENT"
02f1 0027 | ' | .STRTAB 0x0027->0x0304 ; "EXPLICIT_ARGUMENT"
02f2 0036 | 6 | .STRTAB 0x0036->0x030d ; "IMPLICIT_ARGUMENT"
02f3 0045 | E | .STRTAB 0x0045->0x0315 ; "-- delay"
02f4 004b | K | .STRTAB 0x004b->0x0319 ; ", line"
02f5 004f | O | .STRTAB 0x004f->0x031c ; "EDITOR.CHAR.INSERT_STRING (\x22"
02f6 0069 | i | .STRTAB 0x0069->0x032a ; "\x22);"
02f7 006a | j | .STRTAB 0x006a->0x032c ; "("
02f8 0069 | i | .STRTAB 0x0069->0x032c ; ");"
02f9 0069 | i | .STRTAB 0x0069->0x032d ; ";"
02fa 0068 | h | .STRTAB 0x0068->0x032e ; "EDITOR.MACRO.EXECUTE ("
02fb 007c | | | .STRTAB 0x007c->0x0339 ; ","
02fc 007b | { | .STRTAB 0x007b->0x0339 ; "EDITOR.MACRO.EXECUTE ( 1,"
02fd 0092 | | .STRTAB 0x0092->0x0346 ; "-- keys were lost here. no longer defined"
02fe 00b9 | | .STREND 0x00b9->0x035a
02ff 4e4f 5f41 |NO_A| .STRTAB_STRINGS
035b 0000 0000 | | .BLANK 0000[0x5]
0360 ; --------------------------------------------------------------------------------------
0360 ; Debug Table
0360 ; --------------------------------------------------------------------------------------
0360 0003 000b | | .CONST 0x0003,0x000b
0362 000b 03ba | | .DEBUG 0x000b,0x03ba,0x8000,0x0000,0x0058,0x7915,0x0000,0x0007
036a 0010 03c0 | | .DEBUG 0x0010,0x03c0,0x8000,0x0000,0x0058,0x7c45,0x0000,0x0013
0372 001b 03c6 | | .DEBUG 0x001b,0x03c6,0x0001,0x0000,0x0058,0x7915,0x0000,0x0008
037a 0083 0404 | | .DEBUG 0x0083,0x0404,0x0001,0x0000,0x0058,0x7915,0x0000,0x001a
0382 00bb 0418 | | .DEBUG 0x00bb,0x0418,0x0005,0x0000,0x0058,0x7c45,0x0000,0x0037
038a 00d3 041a | | .DEBUG 0x00d3,0x041a,0x0002,0x0000,0x0058,0x7c45,0x0000,0x0077
0392 00eb 041e | | .DEBUG 0x00eb,0x041e,0x0001,0x0000,0x0058,0x7c45,0x0000,0x0097
039a 0123 0432 | # 2| .DEBUG 0x0123,0x0432,0x0001,0x0000,0x0058,0x7c45,0x0000,0x00f5
03a2 016b 044c | k L| .DEBUG 0x016b,0x044c,0x0001,0x0000,0x0058,0x7c45,0x0000,0x016d
03aa 01ab 045e | ^| .DEBUG 0x01ab,0x045e,0x0001,0x0000,0x0058,0x7c45,0x0000,0x01e2
03b2 02a3 04c0 | | .DEBUG 0x02a3,0x04c0,0x0001,0x0000,0x0058,0x7c45,0x0000,0x03a4
03ba ; --------------------------------------------------------------------------------------
03ba ; Debug3 Subtable 0x0
03ba ; --------------------------------------------------------------------------------------
03ba 0002 0000 | | .DBG3TAB 0x0002,0x0000
03bc 000b ffff | | .CONST 0x000b,0xffff
03be 000d fffe | | .CONST 0x000d,0xfffe
03c0 ; --------------------------------------------------------------------------------------
03c0 ; Debug3 Subtable 0x1
03c0 ; --------------------------------------------------------------------------------------
03c0 0002 0000 | | .DBG3TAB 0x0002,0x0000
03c2 0010 ffff | | .CONST 0x0010,0xffff
03c4 0012 fffe | | .CONST 0x0012,0xfffe
03c6 ; --------------------------------------------------------------------------------------
03c6 ; Debug3 Subtable 0x2
03c6 ; --------------------------------------------------------------------------------------
03c6 0013 000b | | .DBG3TAB 0x0013,0x000b
03c8 001b ffff | | .CONST 0x001b,0xffff
03ca 001b fffe | | .CONST 0x001b,0xfffe
03cc 0020 fffd | | .CONST 0x0020,0xfffd
03ce 0025 fffc | % | .CONST 0x0025,0xfffc
03d0 002a fffb | * | .CONST 0x002a,0xfffb
03d2 002c fffa | , | .CONST 0x002c,0xfffa
03d4 002e fff9 | . | .CONST 0x002e,0xfff9
03d6 0030 fff8 | 0 | .CONST 0x0030,0xfff8
03d8 0036 fff7 | 6 | .CONST 0x0036,0xfff7
03da 0038 fff6 | 8 | .CONST 0x0038,0xfff6
03dc 003a fff5 | : | .CONST 0x003a,0xfff5
03de 003c fff4 | < | .CONST 0x003c,0xfff4
03e0 003e fff3 | > | .CONST 0x003e,0xfff3
03e2 0040 fff2 | @ | .CONST 0x0040,0xfff2
03e4 0042 fff1 | B | .CONST 0x0042,0xfff1
03e6 0044 fff0 | D | .CONST 0x0044,0xfff0
03e8 0046 ffef | F | .CONST 0x0046,0xffef
03ea 0048 ffee | H | .CONST 0x0048,0xffee
03ec 004a ffed | J | .CONST 0x004a,0xffed
03ee 004c 0001 | L | .CONST 0x004c,0x0001
03f0 0052 0002 | R | .CONST 0x0052,0x0002
03f2 0059 0003 | Y | .CONST 0x0059,0x0003
03f4 0062 0005 | b | .CONST 0x0062,0x0005
03f6 0066 0004 | f | .CONST 0x0066,0x0004
03f8 006b 0006 | k | .CONST 0x006b,0x0006
03fa 006c 0007 | l | .CONST 0x006c,0x0007
03fc 0070 0008 | p | .CONST 0x0070,0x0008
03fe 0076 0009 | v | .CONST 0x0076,0x0009
0400 007a 000a | z | .CONST 0x007a,0x000a
0402 007e 000b | ~ | .CONST 0x007e,0x000b
0404 ; --------------------------------------------------------------------------------------
0404 ; Debug3 Subtable 0x3
0404 ; --------------------------------------------------------------------------------------
0404 0003 0006 | | .DBG3TAB 0x0003,0x0006
0406 0083 ffff | | .CONST 0x0083,0xffff
0408 0083 fffe | | .CONST 0x0083,0xfffe
040a 0088 fffd | | .CONST 0x0088,0xfffd
040c 008c 0001 | | .CONST 0x008c,0x0001
040e 0094 0002 | | .CONST 0x0094,0x0002
0410 0098 0003 | | .CONST 0x0098,0x0003
0412 00a5 0004 | | .CONST 0x00a5,0x0004
0414 00ab 0005 | | .CONST 0x00ab,0x0005
0416 00af 0006 | | .CONST 0x00af,0x0006
0418 ; --------------------------------------------------------------------------------------
0418 ; Debug3 Subtable 0x4
0418 ; --------------------------------------------------------------------------------------
0418 0000 0000 | | .DBG3TAB 0x0000,0x0000
041a ; --------------------------------------------------------------------------------------
041a ; Debug3 Subtable 0x5
041a ; --------------------------------------------------------------------------------------
041a 0000 0001 | | .DBG3TAB 0x0000,0x0001
041c 00d3 0001 | | .CONST 0x00d3,0x0001
041e ; --------------------------------------------------------------------------------------
041e ; Debug3 Subtable 0x6
041e ; --------------------------------------------------------------------------------------
041e 0001 0008 | | .DBG3TAB 0x0001,0x0008
0420 00eb ffff | | .CONST 0x00eb,0xffff
0422 00eb 0001 | | .CONST 0x00eb,0x0001
0424 00ef 0002 | | .CONST 0x00ef,0x0002
0426 0107 0003 | | .CONST 0x0107,0x0003
0428 010f 0004 | | .CONST 0x010f,0x0004
042a 0111 0005 | | .CONST 0x0111,0x0005
042c 0114 0006 | | .CONST 0x0114,0x0006
042e 0117 0007 | | .CONST 0x0117,0x0007
0430 0119 0008 | | .CONST 0x0119,0x0008
0432 ; --------------------------------------------------------------------------------------
0432 ; Debug3 Subtable 0x7
0432 ; --------------------------------------------------------------------------------------
0432 0002 000a | | .DBG3TAB 0x0002,0x000a
0434 0123 ffff | # | .CONST 0x0123,0xffff
0436 0128 fffe | ( | .CONST 0x0128,0xfffe
0438 012a 0001 | * | .CONST 0x012a,0x0001
043a 012f 0003 | / | .CONST 0x012f,0x0003
043c 0137 0004 | 7 | .CONST 0x0137,0x0004
043e 013f 0005 | ? | .CONST 0x013f,0x0005
0440 0142 0006 | B | .CONST 0x0142,0x0006
0442 0146 0007 | F | .CONST 0x0146,0x0007
0444 014a 0002 | J | .CONST 0x014a,0x0002
0446 014f 0008 | O | .CONST 0x014f,0x0008
0448 015a 0009 | Z | .CONST 0x015a,0x0009
044a 0161 000a | a | .CONST 0x0161,0x000a
044c ; --------------------------------------------------------------------------------------
044c ; Debug3 Subtable 0x8
044c ; --------------------------------------------------------------------------------------
044c 0000 0008 | | .DBG3TAB 0x0000,0x0008
044e 016b 0001 | k | .CONST 0x016b,0x0001
0450 016d 0002 | m | .CONST 0x016d,0x0002
0452 0180 0003 | | .CONST 0x0180,0x0003
0454 0184 0004 | | .CONST 0x0184,0x0004
0456 0195 0005 | | .CONST 0x0195,0x0005
0458 019d 0006 | | .CONST 0x019d,0x0006
045a 019f 0007 | | .CONST 0x019f,0x0007
045c 01a1 0008 | | .CONST 0x01a1,0x0008
045e ; --------------------------------------------------------------------------------------
045e ; Debug3 Subtable 0x9
045e ; --------------------------------------------------------------------------------------
045e 0001 002f | /| .DBG3TAB 0x0001,0x002f
0460 01ab ffff | | .CONST 0x01ab,0xffff
0462 01ad 0001 | | .CONST 0x01ad,0x0001
0464 01b0 0002 | | .CONST 0x01b0,0x0002
0466 01b5 0003 | | .CONST 0x01b5,0x0003
0468 01b7 0004 | | .CONST 0x01b7,0x0004
046a 01c2 0005 | | .CONST 0x01c2,0x0005
046c 01c4 0006 | | .CONST 0x01c4,0x0006
046e 01cb 0007 | | .CONST 0x01cb,0x0007
0470 01d6 0008 | | .CONST 0x01d6,0x0008
0472 01d8 0009 | | .CONST 0x01d8,0x0009
0474 01db 000a | | .CONST 0x01db,0x000a
0476 01e1 000b | | .CONST 0x01e1,0x000b
0478 01e2 000c | | .CONST 0x01e2,0x000c
047a 01ea 000d | | .CONST 0x01ea,0x000d
047c 01ef 000e | | .CONST 0x01ef,0x000e
047e 01f4 000f | | .CONST 0x01f4,0x000f
0480 01f5 0010 | | .CONST 0x01f5,0x0010
0482 01f7 0011 | | .CONST 0x01f7,0x0011
0484 020e 0012 | | .CONST 0x020e,0x0012
0486 0210 0013 | | .CONST 0x0210,0x0013
0488 0212 0014 | | .CONST 0x0212,0x0014
048a 0215 0015 | | .CONST 0x0215,0x0015
048c 0223 0016 | # | .CONST 0x0223,0x0016
048e 0228 0017 | ( | .CONST 0x0228,0x0017
0490 0229 0018 | ) | .CONST 0x0229,0x0018
0492 022e 0019 | . | .CONST 0x022e,0x0019
0494 0249 0028 | I (| .CONST 0x0249,0x0028
0496 024c 001a | L | .CONST 0x024c,0x001a
0498 0251 001b | Q | .CONST 0x0251,0x001b
049a 0255 001c | U | .CONST 0x0255,0x001c
049c 025d 001d | ] | .CONST 0x025d,0x001d
049e 0260 001e | ` | .CONST 0x0260,0x001e
04a0 0265 001f | e | .CONST 0x0265,0x001f
04a2 0269 0020 | i | .CONST 0x0269,0x0020
04a4 026c 0021 | l !| .CONST 0x026c,0x0021
04a6 0275 0022 | u "| .CONST 0x0275,0x0022
04a8 0278 0023 | x #| .CONST 0x0278,0x0023
04aa 027b 0024 | { $| .CONST 0x027b,0x0024
04ac 027d 0025 | } %| .CONST 0x027d,0x0025
04ae 0280 0026 | &| .CONST 0x0280,0x0026
04b0 0284 0027 | '| .CONST 0x0284,0x0027
04b2 0288 0029 | )| .CONST 0x0288,0x0029
04b4 0289 002a | *| .CONST 0x0289,0x002a
04b6 028c 002b | +| .CONST 0x028c,0x002b
04b8 028e 002c | ,| .CONST 0x028e,0x002c
04ba 0290 002d | -| .CONST 0x0290,0x002d
04bc 0292 002e | .| .CONST 0x0292,0x002e
04be 0293 002f | /| .CONST 0x0293,0x002f
04c0 ; --------------------------------------------------------------------------------------
04c0 ; Debug3 Subtable 0xa
04c0 ; --------------------------------------------------------------------------------------
04c0 0005 000c | | .DBG3TAB 0x0005,0x000c
04c2 02a3 ffff | | .CONST 0x02a3,0xffff
04c4 02a5 fffe | | .CONST 0x02a5,0xfffe
04c6 02a9 fffd | | .CONST 0x02a9,0xfffd
04c8 02ac fffc | | .CONST 0x02ac,0xfffc
04ca 02b7 fffb | | .CONST 0x02b7,0xfffb
04cc 02bc 0001 | | .CONST 0x02bc,0x0001
04ce 02c1 0002 | | .CONST 0x02c1,0x0002
04d0 02cc 0003 | | .CONST 0x02cc,0x0003
04d2 02d1 0004 | | .CONST 0x02d1,0x0004
04d4 02d5 0005 | | .CONST 0x02d5,0x0005
04d6 02d8 0006 | | .CONST 0x02d8,0x0006
04d8 02dd 0007 | | .CONST 0x02dd,0x0007
04da 02df 0008 | | .CONST 0x02df,0x0008
04dc 02e3 0009 | | .CONST 0x02e3,0x0009
04de 02e6 000a | | .CONST 0x02e6,0x000a
04e0 02e8 000b | | .CONST 0x02e8,0x000b
04e2 02ea 000c | | .CONST 0x02ea,0x000c
04e4 0000 0000 | | .BLANK 0000[0x11c]