|
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 0398 | | .CONST 0x0398 ; 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 0040 | @ | .CONST 0x0040 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0013 | | .CONST 0x0013 ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0 ; Debug Table 0x0 = .DEBUG 0x000b,0x043a,0x8000,0x0000,0x0057,0xb4d5,0x0000,0x0009
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 4802 |H | Short_Literal 0x2
000d 029f 004b | K| Declare_Subprogram INIT_0048,For_Call
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x1 = 0x10,0xfffe
0011 029f 0063 | c| Declare_Subprogram INIT_0060,For_Call
0013 4801 |H | Short_Literal 0x1
0014 032e | . | Declare_Type Record,Defined,Visible
0015 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x2 = 0x15,0xfffd
0016 4802 |H | Short_Literal 0x2
0017 029f 007b | {| Declare_Subprogram INIT_0078,For_Call
0019 03fe | | Declare_Type Discrete,Defined,Visible
001a 4804 |H | Short_Literal 0x4 ; Debug Table 0x0.0x3 = 0x1a,0xfffc
001b 6078 |`x | Indirect_Literal Discrete,0x94,{0x00503c0e, 0x000020b0}
001c 02a0 | | Declare_Subprogram Null_Subprogram
001d 038d | | Declare_Type Package,Defined,Visible,Not_Elaborated
001e 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x4 = 0x1e,0xfffb
001f 6070 |`p | Indirect_Literal Discrete,0x90,{0x00503c0e, 0x000009b0}
0020 02a0 | | Declare_Subprogram Null_Subprogram
0021 038f | | Declare_Type Package,Defined,Visible
0022 0386 | | Declare_Variable Package,Visible
0023 00bf | | Action Accept_Activation
0024 0092 0334 | 4| Action Push_String_Extended,0x334 ; "Mod Num Words Corr. Name"
; Debug Table 0x1 = .DEBUG 0x0024,0x0446,0x8000,0x0000,0x0057,0xb4e5,0x0000,0x0009
; Debug Table 0x1.0x0 = 0x24,0xffff
0026 0092 0335 | 5| Action Push_String_Extended,0x335 ; "=== === ===== ===== ========================================"
; Debug Table 0x1.0x1 = 0x26,0xfffe
0028 0007 | | Action Break_Optional ; Debug Table 0x1.0x2 = 0x28,0xfffd
0029 0007 | | Action Break_Optional ; Debug Table 0x1.0x3 = 0x29,0xfffc
002a 0007 | | Action Break_Optional ; Debug Table 0x1.0x4 = 0x2a,0xfffb
002b 00b6 | | Action Make_Scope ; Debug Table 0x1.0x5 = 0x2b,0xfffa
002c e001 | | Load 0x0,0x1
002d e002 | | Load 0x0,0x2
002e e212 | | Load 0x1,0x12
002f e213 | | Load 0x1,0x13
0030 e003 | | Load 0x0,0x3
0031 e004 | | Load 0x0,0x4
0032 4807 |H | Short_Literal 0x7
0033 e210 | | Load 0x1,0x10
0034 020e | | Execute Module,Augment_Imports
0035 00db | | Load_Top At_Offset_3
0036 020d | | Execute Module,Elaborate
0037 0007 | | Action Break_Optional
0038 e004 | | Load 0x0,0x4 ; Debug Table 0x1.0x6 = 0x38,0xfff9
0039 e005 | | Load 0x0,0x5
003a e001 | | Load 0x0,0x1
003b 4803 |H | Short_Literal 0x3
003c e211 | | Load 0x1,0x11
003d 020e | | Execute Module,Augment_Imports
003e 00da | | Load_Top At_Offset_2
003f 020f | | Execute Module,Activate
0040 BODY_0008:
0040 00bc | | Action Signal_Activated
0041 00bb | | Action Signal_Completion
0042 0000 0000 | | .BLANK 0000[0x6]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 004b | K | .CONST 0x004b ; Address of begin
0049 0004 | | .CONST 0x0004 ; Address of exception handler
004a 0001 | | .CONST 0x0001 ; Number of locals
004b BODY_0048:
004b INIT_0048:
004b 4603 |F | Jump_Case 0x4 ; Debug Table 0x2 = .DEBUG 0x004b,0x0456,0x0005,0x0000,0x0057,0xb4d5,0x0000,0x000a
004c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
004d 7802 |x | Jump 0x50 ; case 0x1
004e 7805 |x | Jump 0x54 ; case 0x2
004f 7809 |x | Jump 0x59 ; case 0x3
0050 00da | | Load_Top At_Offset_2
0051 0091 032e | .| Action Push_String_Extended_Indexed,0x32e ; "UPPERCASE"
0053 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0054 00db | | Load_Top At_Offset_3
0055 00db | | Load_Top At_Offset_3
0056 00e0 | | Load_Encached Standard_Cache
0057 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0058 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0059 00da | | Load_Top At_Offset_2
005a 00e0 | | Load_Encached Standard_Cache
005b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
005c 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
005d 0000 0000 | | .XXX[0x3]
005f 0000 | |
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0063 | c | .CONST 0x0063 ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 0001 | | .CONST 0x0001 ; Number of locals
0063 BODY_0060:
0063 INIT_0060:
0063 4608 |F | Jump_Case 0x9 ; Debug Table 0x3 = .DEBUG 0x0063,0x0458,0x0005,0x0000,0x0057,0xb4d5,0x0000,0x0011
0064 7808 |x | Jump 0x6d ; case 0x0
0065 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0066 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
0067 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0068 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0069 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
006a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6
006b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7
006c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8
006d 4801 |H | Short_Literal 0x1
006e 00db | | Load_Top At_Offset_3
006f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0070 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0071 0000 0000 | | .BLANK 0000[0x7]
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 4603 |F | Jump_Case 0x4 ; Debug Table 0x4 = .DEBUG 0x007b,0x045a,0x0005,0x0000,0x0057,0xb4d5,0x0000,0x001b
007c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
007d 7802 |x | Jump 0x80 ; case 0x1
007e 7805 |x | Jump 0x84 ; case 0x2
007f 7809 |x | Jump 0x89 ; case 0x3
0080 00da | | Load_Top At_Offset_2
0081 0091 0331 | 1| Action Push_String_Extended_Indexed,0x331 ; "CURRENT_IMAGE"
0083 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0084 00db | | Load_Top At_Offset_3
0085 00db | | Load_Top At_Offset_3
0086 00e0 | | Load_Encached Standard_Cache
0087 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0088 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0089 00da | | Load_Top At_Offset_2
008a 00e0 | | Load_Encached Standard_Cache
008b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
008c 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
008d 0000 0000 | | .XXX[0x3]
008f 0000 | |
0090 0050 3c0e | P< | .LITERAL {0x00503c0e, 0x000009b0}
0094 0050 3c0e | P< | .LITERAL {0x00503c0e, 0x000020b0}
0098 00dc 0004 | | .XXX[0x3]
009a 0016 | |
009b 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x5 = .DEBUG 0x009b,0x045c,0x0000,0x0000,0x0057,0xb4d5,0x0000,0x00aa
; Debug Table 0x5.0x0 = 0x9b,0xffff
009d 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x5.0x1 = 0x9d,0xfffe
009f 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x5.0x2 = 0x9f,0xfffd
00a1 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x5.0x3 = 0xa1,0xfffc
00a3 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x5.0x4 = 0xa3,0xfffb
00a5 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x5.0x5 = 0xa5,0xfffa
00a7 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x5.0x6 = 0xa7,0xfff9
00a9 00bf | | Action Accept_Activation
00aa 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x6 = .DEBUG 0x00aa,0x046c,0x0000,0x0000,0x0057,0xb4f5,0x0000,0x0008
; Debug Table 0x6.0x0 = 0xaa,0xffff
00ab 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00ac 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x6.0x1 = 0xac,0xfffe
00ad 0266 | f | Execute Discrete,Bounds
00ae 00e1 | | Load_Encached Boolean_Cache
00af 0266 | f | Execute Discrete,Bounds
00b0 00e8 | | Load_Encached Character_Cache
00b1 02a0 | | Declare_Subprogram Null_Subprogram
00b2 4802 |H | Short_Literal 0x2
00b3 035d | ] | Declare_Type Array,Defined
00b4 00d8 | | Load_Top At_Offset_0
00b5 0337 | 7 | Declare_Variable Array
00b6 00d8 | | Load_Top At_Offset_0
00b7 0337 | 7 | Declare_Variable Array
00b8 483d |H= | Short_Literal 0x3d
00b9 4800 |H | Short_Literal 0x0
00ba 4800 |H | Short_Literal 0x0
00bb 00db | | Load_Top At_Offset_3
00bc 01a6 | | Execute Matrix,Field_Write
00bd 483f |H? | Short_Literal 0x3f
00be 4801 |H | Short_Literal 0x1
00bf 4800 |H | Short_Literal 0x0
00c0 00db | | Load_Top At_Offset_3
00c1 01a6 | | Execute Matrix,Field_Write
00c2 4820 |H | Short_Literal 0x20
00c3 4800 |H | Short_Literal 0x0
00c4 4801 |H | Short_Literal 0x1
00c5 00db | | Load_Top At_Offset_3
00c6 01a6 | | Execute Matrix,Field_Write
00c7 4823 |H# | Short_Literal 0x23
00c8 4801 |H | Short_Literal 0x1
00c9 4801 |H | Short_Literal 0x1
00ca 00db | | Load_Top At_Offset_3
00cb 01a6 | | Execute Matrix,Field_Write
00cc 00d9 | | Load_Top At_Offset_1
00cd 01a4 | | Execute Matrix,Structure_Write
00ce 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x6.0x2 = 0xce,0xfffd
00cf 00c7 | | Action Elaborate_Subprogram
00d0 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x6.0x3 = 0xd0,0xfffc
00d1 00c7 | | Action Elaborate_Subprogram
00d2 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x6.0x4 = 0xd2,0xfffb
00d3 00c7 | | Action Elaborate_Subprogram
00d4 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x6.0x5 = 0xd4,0xfffa
00d5 00c7 | | Action Elaborate_Subprogram
00d6 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x6.0x6 = 0xd6,0xfff9
00d7 00c7 | | Action Elaborate_Subprogram
00d8 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x6.0x7 = 0xd8,0xfff8
00d9 00c7 | | Action Elaborate_Subprogram
00da 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x6.0x8 = 0xda,0xfff7
00db 00c7 | | Action Elaborate_Subprogram
00dc 00cf | | Action Mark_Auxiliary
00dd e001 | | Load 0x0,0x1 ; Debug Table 0x6.0x9 = 0xdd,0x1
00de 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00df 0265 | e | Execute Discrete,Reverse_Bounds
00e0 0007 | | Action Break_Optional
00e1 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0xa = 0xe1,0x2
00e2 e001 | | Load 0x0,0x1
00e3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00e4 025e | ^ | Execute Discrete,Convert
00e5 1c01 | | Execute_Immediate Run_Utility,0x1
00e6 01db | | Execute Vector,Length
00e7 e214 | | Load 0x1,0x14
00e8 027d | } | Execute Discrete,Greater
00e9 6807 |h | Jump_Zero 0xf1
00ea 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0xb = 0xea,0x3
00eb e001 | | Load 0x0,0x1
00ec 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ed 025e | ^ | Execute Discrete,Convert
00ee 1c01 | | Execute_Immediate Run_Utility,0x1
00ef 01db | | Execute Vector,Length
00f0 c214 | | Store 0x1,0x14
00f1 00c8 | | Action Pop_Auxiliary_Range
00f2 3fee |? | Loop_Increasing 0xe1
00f3 00ce | | Action Pop_Auxiliary
00f4 00bc | | Action Signal_Activated
00f5 00bb | | Action Signal_Completion
00f6 0000 0000 | | .XXX[0x2]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 0108 | | .CONST 0x0108 ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0004 | | .CONST 0x0004 ; Number of locals
00fb INIT_00f8:
00fb 00da | | Load_Top At_Offset_2 ; Debug Table 0x7 = .DEBUG 0x00fb,0x0486,0x0002,0x0000,0x0057,0xb4d5,0x0000,0x00ab
; Debug Table 0x7.0x0 = 0xfb,0xffff
00fc 01dd | | Execute Vector,First
00fd 00e3 | | Load_Encached Natural_Cache
00fe 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
00ff 4800 |H | Short_Literal 0x0 ; Debug Table 0x7.0x1 = 0xff,0xfffe
0100 e5ff | | Load 0x2,-0x1
0101 4827 |H' | Short_Literal 0x27
0102 e002 | | Load 0x0,0x2
0103 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0104 00e3 | | Load_Encached Natural_Cache
0105 03f1 | | Declare_Variable Discrete,With_Value
0106 0092 0336 | 6| Action Push_String_Extended,0x336 ; "_DICT"
; Debug Table 0x7.0x2 = 0x106,0xfffd
0108 BODY_00f8:
0108 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x7.0x3 = 0x108,0x1
0109 7004 |p | Jump_Nonzero 0x10e
010a e5ff | | Load 0x2,-0x1 ; Debug Table 0x7.0x4 = 0x10a,0x2
010b 01dc | | Execute Vector,Last
010c 005a | Z | Store_Top Discrete,At_Offset_2
010d 7803 |x | Jump 0x111
010e 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x7.0x5 = 0x10e,0x3
010f 0aff | | Execute_Immediate Plus,-0x1
0110 005a | Z | Store_Top Discrete,At_Offset_2
0111 e5ff | | Load 0x2,-0x1 ; Debug Table 0x7.0x6 = 0x111,0x4
0112 01db | | Execute Vector,Length
0113 6816 |h | Jump_Zero 0x12a
0114 00da | | Load_Top At_Offset_2
0115 e5ff | | Load 0x2,-0x1
0116 01d7 | | Execute Vector,Field_Read
0117 0f21 | ! | Execute_Immediate Equal,0x21
0118 6811 |h | Jump_Zero 0x12a
0119 00da | | Load_Top At_Offset_2
011a 00da | | Load_Top At_Offset_2
011b e5ff | | Load 0x2,-0x1
011c 01cf | | Execute Vector,Slice_Read
011d 00d9 | | Load_Top At_Offset_1
011e 01cc | | Execute Vector,Catenate
011f e003 | | Load 0x0,0x3
0120 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0121 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0122 6807 |h | Jump_Zero 0x12a
0123 00da | | Load_Top At_Offset_2 ; Debug Table 0x7.0x7 = 0x123,0x5
0124 00da | | Load_Top At_Offset_2
0125 e5ff | | Load 0x2,-0x1
0126 01cf | | Execute Vector,Slice_Read
0127 00d9 | | Load_Top At_Offset_1
0128 01cc | | Execute Vector,Catenate
0129 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
012a 482e |H. | Short_Literal 0x2e ; Debug Table 0x7.0x8 = 0x12a,0x6
012b e5fd | | Load 0x2,-0x3
012c 01cb | | Execute Vector,Append
012d e5fe | | Load 0x2,-0x2
012e 01cc | | Execute Vector,Catenate
012f 00d9 | | Load_Top At_Offset_1
0130 01cc | | Execute Vector,Catenate
0131 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0132 0000 0000 | | .BLANK 0000[0x6]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b | ; | .CONST 0x013b ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0001 | | .CONST 0x0001 ; Number of locals
013b BODY_0138:
013b INIT_0138:
013b 00db | | Load_Top At_Offset_3 ; Debug Table 0x8 = .DEBUG 0x013b,0x049a,0x0002,0x0000,0x0057,0xb4d5,0x0000,0x00bc
; Debug Table 0x8.0x0 = 0x13b,0x1
013c 4602 |F | Jump_Case 0x3
013d 7802 |x | Jump 0x140 ; case 0x0
013e 7805 |x | Jump 0x144 ; case 0x1
013f 780d |x | Jump 0x14d ; case 0x2
0140 00da | | Load_Top At_Offset_2 ; Debug Table 0x8.0x1 = 0x140,0x2
0141 e002 | | Load 0x0,0x2
0142 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0143 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0144 e5fd | | Load 0x2,-0x3 ; Debug Table 0x8.0x2 = 0x144,0x3
0145 6803 |h | Jump_Zero 0x149
0146 00da | | Load_Top At_Offset_2 ; Debug Table 0x8.0x3 = 0x146,0x4
0147 0335 | 5 | Declare_Variable Array,Duplicate
0148 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0149 00da | | Load_Top At_Offset_2 ; Debug Table 0x8.0x4 = 0x149,0x5
014a e002 | | Load 0x0,0x2
014b 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
014c 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
014d 00da | | Load_Top At_Offset_2 ; Debug Table 0x8.0x5 = 0x14d,0x6
014e e002 | | Load 0x0,0x2
014f 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0150 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0151 0000 0000 | | .BLANK 0000[0x7]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 0161 | a | .CONST 0x0161 ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0002 | | .CONST 0x0002 ; Number of locals
015b INIT_0158:
015b 4801 |H | Short_Literal 0x1 ; Debug Table 0x9 = .DEBUG 0x015b,0x04a8,0x0002,0x0000,0x0057,0xb4d5,0x0000,0x00ce
; Debug Table 0x9.0x0 = 0x15b,0xffff
015c 00db | | Load_Top At_Offset_3
015d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
015e 0092 0337 | 7| Action Push_String_Extended,0x337 ; "Image: "
0160 820e | | Call 0x1,0xe
0161 BODY_0158:
0161 e5fe | | Load 0x2,-0x2 ; Debug Table 0x9.0x1 = 0x161,0x1
0162 01db | | Execute Vector,Length
0163 7002 |p | Jump_Nonzero 0x166
0164 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x2 = 0x164,0x2
0165 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0166 4822 |H" | Short_Literal 0x22 ; Debug Table 0x9.0x3 = 0x166,0x3
0167 4822 |H" | Short_Literal 0x22
0168 00da | | Load_Top At_Offset_2
0169 01cb | | Execute Vector,Append
016a e5fe | | Load 0x2,-0x2
016b 01cc | | Execute Vector,Catenate
016c 01cb | | Execute Vector,Append
016d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
016e 0000 0000 | | .XXX[0x2]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173 | s | .CONST 0x0173 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0001 | | .CONST 0x0001 ; Number of locals
0173 BODY_0170:
0173 INIT_0170:
0173 0092 0338 | 8| Action Push_String_Extended,0x338 ; " "
; Debug Table 0xa = .DEBUG 0x0173,0x04b2,0x0002,0x0000,0x0057,0xb4d5,0x0000,0x00db
; Debug Table 0xa.0x0 = 0x173,0x1
0175 4820 |H | Short_Literal 0x20
0176 4806 |H | Short_Literal 0x6
0177 480a |H | Short_Literal 0xa
0178 e5fe | | Load 0x2,-0x2
0179 e002 | | Load 0x0,0x2
017a 1816 | | Execute Package,Field_Execute,Field_Number 0x16
017b 01cc | | Execute Vector,Catenate
017c 4801 |H | Short_Literal 0x1
017d 4810 |H | Short_Literal 0x10
017e 00e9 | | Load_Encached String_Cache
017f 0334 | 4 | Declare_Variable Array,With_Constraint
0180 4810 |H | Short_Literal 0x10
0181 4801 |H | Short_Literal 0x1
0182 4820 |H | Short_Literal 0x20
0183 00d9 | | Load_Top At_Offset_1
0184 e403 | | Load 0x2,0x3
0185 01d6 | | Execute Vector,Field_Write
0186 3ffb |? | Loop_Increasing 0x182
0187 01cc | | Execute Vector,Catenate
0188 4800 |H | Short_Literal 0x0
0189 e5ff | | Load 0x2,-0x1
018a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
018b e5fd | | Load 0x2,-0x3
018c 820e | | Call 0x1,0xe
018d 01cc | | Execute Vector,Catenate
018e 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
018f 0000 | | .XXX[0x1]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 01b7 | | .CONST 0x01b7 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0005 | | .CONST 0x0005 ; Number of locals
0193 INIT_0190:
0193 e5fd | | Load 0x2,-0x3 ; Debug Table 0xb = .DEBUG 0x0193,0x04b6,0x0002,0x0000,0x0057,0xb4d5,0x0000,0x00ec
; Debug Table 0xb.0x0 = 0x193,0xffff
0194 e5fc | | Load 0x2,-0x4
0195 e216 | | Load 0x1,0x16
0196 01a7 | | Execute Matrix,Field_Read
0197 4801 |H | Short_Literal 0x1
0198 4802 |H | Short_Literal 0x2
0199 00e9 | | Load_Encached String_Cache
019a 0334 | 4 | Declare_Variable Array,With_Constraint
019b 4820 |H | Short_Literal 0x20
019c 4801 |H | Short_Literal 0x1
019d 00da | | Load_Top At_Offset_2
019e 01d6 | | Execute Vector,Field_Write
019f 00d9 | | Load_Top At_Offset_1
01a0 4802 |H | Short_Literal 0x2
01a1 00da | | Load_Top At_Offset_2
01a2 01d6 | | Execute Vector,Field_Write
01a3 00d0 | | Action Swap_Control
01a4 00d1 | | Pop_Control Pop_Count_1
01a5 4820 |H | Short_Literal 0x20 ; Debug Table 0xb.0x1 = 0x1a5,0xfffe
01a6 4806 |H | Short_Literal 0x6
01a7 480a |H | Short_Literal 0xa
01a8 e5fe | | Load 0x2,-0x2
01a9 e002 | | Load 0x0,0x2
01aa 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01ab 4820 |H | Short_Literal 0x20 ; Debug Table 0xb.0x2 = 0x1ab,0xfffd
01ac 4807 |H | Short_Literal 0x7
01ad 480a |H | Short_Literal 0xa
01ae e5fb | | Load 0x2,-0x5
01af e002 | | Load 0x0,0x2
01b0 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01b1 4820 |H | Short_Literal 0x20 ; Debug Table 0xb.0x3 = 0x1b1,0xfffc
01b2 4807 |H | Short_Literal 0x7
01b3 480a |H | Short_Literal 0xa
01b4 e5fa | | Load 0x2,-0x6
01b5 e002 | | Load 0x0,0x2
01b6 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01b7 BODY_0190:
01b7 00db | | Load_Top At_Offset_3 ; Debug Table 0xb.0x4 = 0x1b7,0x1
01b8 00db | | Load_Top At_Offset_3
01b9 01cc | | Execute Vector,Catenate
01ba 00da | | Load_Top At_Offset_2
01bb 01cc | | Execute Vector,Catenate
01bc 00d9 | | Load_Top At_Offset_1
01bd 01cc | | Execute Vector,Catenate
01be 0092 0338 | 8| Action Push_String_Extended,0x338 ; " "
01c0 01cc | | Execute Vector,Catenate
01c1 4800 |H | Short_Literal 0x0
01c2 e5ff | | Load 0x2,-0x1
01c3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01c4 e5f9 | | Load 0x2,-0x7
01c5 820e | | Call 0x1,0xe
01c6 01cc | | Execute Vector,Catenate
01c7 4407 |D | Exit_Subprogram With_Value,New_Top_Offset 0x7
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb | | .CONST 0x01cb ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0001 | | .CONST 0x0001 ; Number of locals
01cb BODY_01c8:
01cb INIT_01c8:
01cb 4800 |H | Short_Literal 0x0 ; Debug Table 0xc = .DEBUG 0x01cb,0x04c2,0x0002,0x0000,0x0057,0xb4d5,0x0000,0x010d
; Debug Table 0xc.0x0 = 0x1cb,0x1
01cc 00db | | Load_Top At_Offset_3
01cd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01ce e5fe | | Load 0x2,-0x2
01cf 00e1 | | Load_Encached Boolean_Cache
01d0 025e | ^ | Execute Discrete,Convert
01d1 1c01 | | Execute_Immediate Run_Utility,0x1
01d2 820e | | Call 0x1,0xe
01d3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01d4 0000 0000 | | .BLANK 0000[0x4]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01e4 | | .CONST 0x01e4 ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0002 | | .CONST 0x0002 ; Number of locals
01db INIT_01d8:
01db 4800 |H | Short_Literal 0x0 ; Debug Table 0xd = .DEBUG 0x01db,0x04c6,0x0002,0x0000,0x0057,0xb4d5,0x0000,0x011a
; Debug Table 0xd.0x0 = 0x1db,0xffff
01dc 00db | | Load_Top At_Offset_3
01dd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01de e5fe | | Load 0x2,-0x2
01df e001 | | Load 0x0,0x1
01e0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01e1 025e | ^ | Execute Discrete,Convert
01e2 1c01 | | Execute_Immediate Run_Utility,0x1
01e3 820e | | Call 0x1,0xe
01e4 BODY_01d8:
01e4 0092 0338 | 8| Action Push_String_Extended,0x338 ; " "
; Debug Table 0xd.0x1 = 0x1e4,0x1
01e6 00d9 | | Load_Top At_Offset_1
01e7 01cc | | Execute Vector,Catenate
01e8 4801 |H | Short_Literal 0x1
01e9 e214 | | Load 0x1,0x14
01ea 00db | | Load_Top At_Offset_3
01eb 01db | | Execute Vector,Length
01ec 0272 | r | Execute Discrete,Minus
01ed 0248 | H | Execute Discrete,Check_In_Integer
01ee 00e9 | | Load_Encached String_Cache
01ef 0334 | 4 | Declare_Variable Array,With_Constraint
01f0 00d8 | | Load_Top At_Offset_0
01f1 01dc | | Execute Vector,Last
01f2 4801 |H | Short_Literal 0x1
01f3 0263 | c | Execute Discrete,Above_Bound
01f4 7005 |p | Jump_Nonzero 0x1fa
01f5 4820 |H | Short_Literal 0x20
01f6 00d9 | | Load_Top At_Offset_1
01f7 e404 | | Load 0x2,0x4
01f8 01d6 | | Execute Vector,Field_Write
01f9 3ffb |? | Loop_Increasing 0x1f5
01fa 01cc | | Execute Vector,Catenate
01fb 0092 0339 | 9| Action Push_String_Extended,0x339 ; " => "
01fd 01cc | | Execute Vector,Catenate
01fe e5fd | | Load 0x2,-0x3
01ff 01cc | | Execute Vector,Catenate
0200 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0201 0000 0000 | | .BLANK 0000[0x7]
0208 021c 0004 | | .XXX[0x3]
020a 0014 | |
020b 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated ; Debug Table 0xe = .DEBUG 0x020b,0x04cc,0x4000,0x0000,0x0057,0xb4d5,0x0000,0x0022
; Debug Table 0xe.0x0 = 0x20b,0xffff
020d 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated ; Debug Table 0xe.0x1 = 0x20d,0xfffe
020f 029a 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0xe.0x2 = 0x20f,0xfffd
0211 029a 0303 | | Declare_Subprogram INIT_0300,For_Outer_Call,Visible,Unelaborated ; Debug Table 0xe.0x3 = 0x211,0xfffc
0213 00bf | | Action Accept_Activation
0214 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0xf = .DEBUG 0x0214,0x04d6,0x4000,0x0000,0x0057,0xb7c5,0x0000,0x0006
; Debug Table 0xf.0x0 = 0x214,0xffff
0215 00c7 | | Action Elaborate_Subprogram
0216 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0xf.0x1 = 0x216,0xfffe
0217 00c7 | | Action Elaborate_Subprogram
0218 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0xf.0x2 = 0x218,0xfffd
0219 00c7 | | Action Elaborate_Subprogram
021a 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0xf.0x3 = 0x21a,0xfffc
021b 00c7 | | Action Elaborate_Subprogram
021c 00bc | | Action Signal_Activated
021d 00bb | | Action Signal_Completion
021e 0000 0000 | | .XXX[0x2]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223 | # | .CONST 0x0223 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0001 | | .CONST 0x0001 ; Number of locals
0223 BODY_0220:
0223 INIT_0220:
0223 487e |H~ | Short_Literal 0x7e ; Debug Table 0x10 = .DEBUG 0x0223,0x04e0,0x1001,0x0000,0x0057,0xb4d5,0x0000,0x0043
; Debug Table 0x10.0x0 = 0x223,0x1
0224 a5fd | | Store_Unchecked 0x2,-0x3
0225 e5fc | | Load 0x2,-0x4 ; Debug Table 0x10.0x1 = 0x225,0x2
0226 4800 |H | Short_Literal 0x0
0227 4800 |H | Short_Literal 0x0
0228 4800 |H | Short_Literal 0x0
0229 e5ff | | Load 0x2,-0x1
022a e5fe | | Load 0x2,-0x2
022b e001 | | Load 0x0,0x1
022c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
022d 180f | | Execute Package,Field_Execute,Field_Number 0xf
022e 8210 | | Call 0x1,0x10
022f c5fc | | Store 0x2,-0x4
0230 e5fc | | Load 0x2,-0x4 ; Debug Table 0x10.0x2 = 0x230,0x3
0231 4800 |H | Short_Literal 0x0
0232 4800 |H | Short_Literal 0x0
0233 4800 |H | Short_Literal 0x0
0234 00ea | | Load_Encached Null_String_Cache
0235 8210 | | Call 0x1,0x10
0236 c5fc | | Store 0x2,-0x4
0237 4800 |H | Short_Literal 0x0 ; Debug Table 0x10.0x3 = 0x237,0x4
0238 a5fd | | Store_Unchecked 0x2,-0x3
0239 4503 |E | Exit_Suprogram New_Top_Offset 0x3
023a 0000 0000 | | .BLANK 0000[0x6]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 024e | N | .CONST 0x024e ; Address of begin
0241 0004 | | .CONST 0x0004 ; Address of exception handler
0242 0007 | | .CONST 0x0007 ; Number of locals
0243 INIT_0240:
0243 e002 | | Load 0x0,0x2 ; Debug Table 0x11 = .DEBUG 0x0243,0x04ea,0x1001,0x0000,0x0057,0xb4d5,0x0000,0x0059
; Debug Table 0x11.0x0 = 0x243,0xffff
0244 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0245 02c7 | | Declare_Variable Any
0246 00d8 | | Load_Top At_Offset_0
0247 1c00 | | Execute_Immediate Run_Utility,0x0
0248 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x11.0x1 = 0x248,0xfffe
0249 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x11.0x2 = 0x249,0xfffd
024a 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x11.0x3 = 0x24a,0xfffc
024b 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x11.0x4 = 0x24b,0xfffb
024c e003 | | Load 0x0,0x3 ; Debug Table 0x11.0x5 = 0x24c,0xfffa
024d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
024e BODY_0240:
024e 487e |H~ | Short_Literal 0x7e ; Debug Table 0x11.0x6 = 0x24e,0x1
024f a5fd | | Store_Unchecked 0x2,-0x3
0250 e5fc | | Load 0x2,-0x4 ; Debug Table 0x11.0x7 = 0x250,0x2
0251 4800 |H | Short_Literal 0x0
0252 4800 |H | Short_Literal 0x0
0253 4801 |H | Short_Literal 0x1
0254 4801 |H | Short_Literal 0x1
0255 e5fe | | Load 0x2,-0x2
0256 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0257 e004 | | Load 0x0,0x4
0258 e001 | | Load 0x0,0x1
0259 1b11 | | Execute Package,Field_Read,Field_Number 0x11
025a 180e | | Execute Package,Field_Execute,Field_Number 0xe
025b 8210 | | Call 0x1,0x10
025c c5fc | | Store 0x2,-0x4
025d e5fc | | Load 0x2,-0x4 ; Debug Table 0x11.0x8 = 0x25d,0x3
025e 4800 |H | Short_Literal 0x0
025f 4800 |H | Short_Literal 0x0
0260 4801 |H | Short_Literal 0x1
0261 e005 | | Load 0x0,0x5
0262 8210 | | Call 0x1,0x10
0263 c5fc | | Store 0x2,-0x4
0264 00cf | | Action Mark_Auxiliary
0265 481f |H | Short_Literal 0x1f ; Debug Table 0x11.0x9 = 0x265,0x4
0266 4800 |H | Short_Literal 0x0
0267 0007 | | Action Break_Optional
0268 e003 | | Load 0x0,0x3 ; Debug Table 0x11.0xa = 0x268,0x5
0269 1b0d | | Execute Package,Field_Read,Field_Number 0xd
026a 00e3 | | Load_Encached Natural_Cache
026b 00e3 | | Load_Encached Natural_Cache
026c 00e1 | | Load_Encached Boolean_Cache
026d 00e1 | | Load_Encached Boolean_Cache
026e e402 | | Load 0x2,0x2
026f 0120 | | Execute Any,Is_Value
0270 6803 |h | Jump_Zero 0x274
0271 e002 | | Load 0x0,0x2
0272 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0273 7801 |x | Jump 0x275
0274 e402 | | Load 0x2,0x2
0275 e5ff | | Load 0x2,-0x1
0276 e40a | | Load 0x2,0xa
0277 e006 | | Load 0x0,0x6
0278 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0279 1814 | | Execute Package,Field_Execute,Field_Number 0x14
027a c402 | | Store 0x2,0x2
027b c403 | | Store 0x2,0x3
027c c404 | | Store 0x2,0x4
027d c405 | | Store 0x2,0x5
027e c406 | | Store 0x2,0x6
027f c407 | | Store 0x2,0x7
0280 00db | | Load_Top At_Offset_3 ; Debug Table 0x11.0xb = 0x280,0x6
0281 e003 | | Load 0x0,0x3
0282 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0283 681a |h | Jump_Zero 0x29e
0284 e5fc | | Load 0x2,-0x4 ; Debug Table 0x11.0xc = 0x284,0x7
0285 00d9 | | Load_Top At_Offset_1
0286 4801 |H | Short_Literal 0x1
0287 4801 |H | Short_Literal 0x1
0288 4800 |H | Short_Literal 0x0
0289 e5fe | | Load 0x2,-0x2
028a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
028b e402 | | Load 0x2,0x2
028c e002 | | Load 0x0,0x2
028d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
028e 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
028f e001 | | Load 0x0,0x1
0290 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0291 180e | | Execute Package,Field_Execute,Field_Number 0xe
0292 e406 | | Load 0x2,0x6
0293 e405 | | Load 0x2,0x5
0294 e403 | | Load 0x2,0x3
0295 e404 | | Load 0x2,0x4
0296 e40a | | Load 0x2,0xa
0297 e5fe | | Load 0x2,-0x2
0298 e001 | | Load 0x0,0x1
0299 1b11 | | Execute Package,Field_Read,Field_Number 0x11
029a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
029b 8210 | | Call 0x1,0x10
029c c5fc | | Store 0x2,-0x4
029d 7806 |x | Jump 0x2a4
029e 00db | | Load_Top At_Offset_3 ; Debug Table 0x11.0xd = 0x29e,0x8
029f 0e06 | | Execute_Immediate Not_Equal,0x6
02a0 6803 |h | Jump_Zero 0x2a4
02a1 00db | | Load_Top At_Offset_3 ; Debug Table 0x11.0xe = 0x2a1,0x9
02a2 a5fd | | Store_Unchecked 0x2,-0x3
02a3 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; Debug Table 0x11.0xf = 0x2a3,0xa
02a4 00c8 | | Action Pop_Auxiliary_Range
02a5 3fc2 |? | Loop_Increasing 0x268
02a6 00ce | | Action Pop_Auxiliary
02a7 e5fc | | Load 0x2,-0x4 ; Debug Table 0x11.0x10 = 0x2a7,0xb
02a8 4800 |H | Short_Literal 0x0
02a9 4800 |H | Short_Literal 0x0
02aa 4801 |H | Short_Literal 0x1
02ab 00ea | | Load_Encached Null_String_Cache
02ac 8210 | | Call 0x1,0x10
02ad c5fc | | Store 0x2,-0x4
02ae 4800 |H | Short_Literal 0x0 ; Debug Table 0x11.0x11 = 0x2ae,0xc
02af a5fd | | Store_Unchecked 0x2,-0x3
02b0 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02b1 0000 0000 | | .BLANK 0000[0x7]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02c2 | | .CONST 0x02c2 ; Address of begin
02b9 0004 | | .CONST 0x0004 ; Address of exception handler
02ba 0004 | | .CONST 0x0004 ; Number of locals
02bb INIT_02b8:
02bb 0092 033a | :| Action Push_String_Extended,0x33a ; "Switches:"
; Debug Table 0x12 = .DEBUG 0x02bb,0x0510,0x1001,0x0000,0x0057,0xb4d5,0x0000,0x0071
; Debug Table 0x12.0x0 = 0x2bb,0xffff
02bd e007 | | Load 0x0,0x7 ; Debug Table 0x12.0x1 = 0x2bd,0xfffe
02be 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02bf 0337 | 7 | Declare_Variable Array
02c0 e003 | | Load 0x0,0x3 ; Debug Table 0x12.0x2 = 0x2c0,0xfffd
02c1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02c2 BODY_02b8:
02c2 487e |H~ | Short_Literal 0x7e ; Debug Table 0x12.0x3 = 0x2c2,0x1
02c3 a5fd | | Store_Unchecked 0x2,-0x3
02c4 e5fc | | Load 0x2,-0x4 ; Debug Table 0x12.0x4 = 0x2c4,0x2
02c5 4800 |H | Short_Literal 0x0
02c6 4800 |H | Short_Literal 0x0
02c7 4802 |H | Short_Literal 0x2
02c8 4800 |H | Short_Literal 0x0
02c9 e5fe | | Load 0x2,-0x2
02ca 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02cb e402 | | Load 0x2,0x2
02cc e001 | | Load 0x0,0x1
02cd 1b11 | | Execute Package,Field_Read,Field_Number 0x11
02ce 180e | | Execute Package,Field_Execute,Field_Number 0xe
02cf 8210 | | Call 0x1,0x10
02d0 c5fc | | Store 0x2,-0x4
02d1 e003 | | Load 0x0,0x3 ; Debug Table 0x12.0x5 = 0x2d1,0x3
02d2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02d3 00da | | Load_Top At_Offset_2
02d4 e5ff | | Load 0x2,-0x1
02d5 e006 | | Load 0x0,0x6
02d6 1b10 | | Execute Package,Field_Read,Field_Number 0x10
02d7 180d | | Execute Package,Field_Execute,Field_Number 0xd
02d8 00d1 | | Pop_Control Pop_Count_1
02d9 0059 | Y | Store_Top Discrete,At_Offset_1
02da 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x12.0x6 = 0x2da,0x4
02db a5fd | | Store_Unchecked 0x2,-0x3
02dc 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x12.0x7 = 0x2dc,0x5
02dd e003 | | Load 0x0,0x3
02de 1814 | | Execute Package,Field_Execute,Field_Number 0x14
02df 681b |h | Jump_Zero 0x2fb
02e0 00cf | | Action Mark_Auxiliary
02e1 00da | | Load_Top At_Offset_2 ; Debug Table 0x12.0x8 = 0x2e1,0x6
02e2 01d9 | | Execute Vector,Reverse_Bounds
02e3 0007 | | Action Break_Optional
02e4 e5fc | | Load 0x2,-0x4 ; Debug Table 0x12.0x9 = 0x2e4,0x7
02e5 00d9 | | Load_Top At_Offset_1
02e6 00e3 | | Load_Encached Natural_Cache
02e7 025b | [ | Execute Discrete,Check_In_Type
02e8 4801 |H | Short_Literal 0x1
02e9 4802 |H | Short_Literal 0x2
02ea e407 | | Load 0x2,0x7
02eb e403 | | Load 0x2,0x3
02ec 01d7 | | Execute Vector,Field_Read
02ed e5fe | | Load 0x2,-0x2
02ee e001 | | Load 0x0,0x1
02ef 1b11 | | Execute Package,Field_Read,Field_Number 0x11
02f0 1812 | | Execute Package,Field_Execute,Field_Number 0x12
02f1 e407 | | Load 0x2,0x7
02f2 e5fe | | Load 0x2,-0x2
02f3 e001 | | Load 0x0,0x1
02f4 1b11 | | Execute Package,Field_Read,Field_Number 0x11
02f5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02f6 8210 | | Call 0x1,0x10
02f7 c5fc | | Store 0x2,-0x4
02f8 00c8 | | Action Pop_Auxiliary_Range
02f9 3fea |? | Loop_Increasing 0x2e4
02fa 00ce | | Action Pop_Auxiliary
02fb 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02fc 0000 0000 | | .BLANK 0000[0x4]
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0305 | | .CONST 0x0305 ; Address of begin
0301 0004 | | .CONST 0x0004 ; Address of exception handler
0302 0002 | | .CONST 0x0002 ; Number of locals
0303 INIT_0300:
0303 e003 | | Load 0x0,0x3 ; Debug Table 0x13 = .DEBUG 0x0303,0x0526,0x1001,0x0000,0x0057,0xb4d5,0x0000,0x0089
; Debug Table 0x13.0x0 = 0x303,0xffff
0304 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0305 BODY_0300:
0305 487e |H~ | Short_Literal 0x7e ; Debug Table 0x13.0x1 = 0x305,0x1
0306 a5fc | | Store_Unchecked 0x2,-0x4
0307 e5fb | | Load 0x2,-0x5 ; Debug Table 0x13.0x2 = 0x307,0x2
0308 e003 | | Load 0x0,0x3
0309 1b0d | | Execute Package,Field_Read,Field_Number 0xd
030a e5fd | | Load 0x2,-0x3
030b e5fe | | Load 0x2,-0x2
030c 8211 | | Call 0x1,0x11
030d 005a | Z | Store_Top Discrete,At_Offset_2
030e c5fb | | Store 0x2,-0x5
030f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x13.0x3 = 0x30f,0x3
0310 a5fc | | Store_Unchecked 0x2,-0x4
0311 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x13.0x4 = 0x311,0x4
0312 e003 | | Load 0x0,0x3
0313 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0314 680a |h | Jump_Zero 0x31f
0315 e5fb | | Load 0x2,-0x5 ; Debug Table 0x13.0x5 = 0x315,0x5
0316 e003 | | Load 0x0,0x3
0317 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0318 e5fd | | Load 0x2,-0x3
0319 e5ff | | Load 0x2,-0x1
031a 8212 | | Call 0x1,0x12
031b 005a | Z | Store_Top Discrete,At_Offset_2
031c c5fb | | Store 0x2,-0x5
031d 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x13.0x6 = 0x31d,0x6
031e a5fc | | Store_Unchecked 0x2,-0x4
031f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x13.0x7 = 0x31f,0x7
0320 e003 | | Load 0x0,0x3
0321 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0322 680a |h | Jump_Zero 0x32d
0323 e5fb | | Load 0x2,-0x5 ; Debug Table 0x13.0x8 = 0x323,0x8
0324 e003 | | Load 0x0,0x3
0325 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0326 e5fd | | Load 0x2,-0x3
0327 e5ff | | Load 0x2,-0x1
0328 8213 | | Call 0x1,0x13
0329 005a | Z | Store_Top Discrete,At_Offset_2
032a c5fb | | Store 0x2,-0x5
032b 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x13.0x9 = 0x32b,0x9
032c a5fc | | Store_Unchecked 0x2,-0x4
032d 4504 |E | Exit_Suprogram New_Top_Offset 0x4
032e ; --------------------------------------------------------------------------------------
032e ; STRING TABLE
032e ; --------------------------------------------------------------------------------------
032e 001c | | .STRTAB 0x001c->0x033c ; "UPPERCASE"
032f 0023 | # | .STRTAB 0x0023->0x0340 ; "CAPITALIZE"
0330 002b | + | .STRTAB 0x002b->0x0345 ; "LOWERCASE"
0331 0032 | 2 | .STRTAB 0x0032->0x034a ; "CURRENT_IMAGE"
0332 003d | = | .STRTAB 0x003d->0x0350 ; "DICTIONARIES"
0333 0047 | G | .STRTAB 0x0047->0x0356 ; "SWITCHES"
0334 004d | M | .STRTAB 0x004d->0x035a ; "Mod Num Words Corr. Name"
0335 0067 | g | .STRTAB 0x0067->0x0368 ; "=== === ===== ===== ========================================"
0336 00a5 | | .STRTAB 0x00a5->0x0388 ; "_DICT"
0337 00a8 | | .STRTAB 0x00a8->0x038b ; "Image: "
0338 00ad | | .STRTAB 0x00ad->0x038e ; " "
0339 00ad | | .STRTAB 0x00ad->0x038f ; " => "
033a 00af | | .STRTAB 0x00af->0x0391 ; "Switches:"
033b 00b6 | | .STREND 0x00b6->0x0396
033c 5550 5045 |UPPE| .STRTAB_STRINGS
0396 0000 0000 | | .XXX[0x2]
0398 ; --------------------------------------------------------------------------------------
0398 ; Debug Table
0398 ; --------------------------------------------------------------------------------------
0398 0003 0014 | | .CONST 0x0003,0x0014
039a 000b 043a | :| .DEBUG 0x000b,0x043a,0x8000,0x0000,0x0057,0xb4d5,0x0000,0x0009
03a2 0024 0446 | $ F| .DEBUG 0x0024,0x0446,0x8000,0x0000,0x0057,0xb4e5,0x0000,0x0009
03aa 004b 0456 | K V| .DEBUG 0x004b,0x0456,0x0005,0x0000,0x0057,0xb4d5,0x0000,0x000a
03b2 0063 0458 | c X| .DEBUG 0x0063,0x0458,0x0005,0x0000,0x0057,0xb4d5,0x0000,0x0011
03ba 007b 045a | { Z| .DEBUG 0x007b,0x045a,0x0005,0x0000,0x0057,0xb4d5,0x0000,0x001b
03c2 009b 045c | \| .DEBUG 0x009b,0x045c,0x0000,0x0000,0x0057,0xb4d5,0x0000,0x00aa
03ca 00aa 046c | l| .DEBUG 0x00aa,0x046c,0x0000,0x0000,0x0057,0xb4f5,0x0000,0x0008
03d2 00fb 0486 | | .DEBUG 0x00fb,0x0486,0x0002,0x0000,0x0057,0xb4d5,0x0000,0x00ab
03da 013b 049a | ; | .DEBUG 0x013b,0x049a,0x0002,0x0000,0x0057,0xb4d5,0x0000,0x00bc
03e2 015b 04a8 | [ | .DEBUG 0x015b,0x04a8,0x0002,0x0000,0x0057,0xb4d5,0x0000,0x00ce
03ea 0173 04b2 | s | .DEBUG 0x0173,0x04b2,0x0002,0x0000,0x0057,0xb4d5,0x0000,0x00db
03f2 0193 04b6 | | .DEBUG 0x0193,0x04b6,0x0002,0x0000,0x0057,0xb4d5,0x0000,0x00ec
03fa 01cb 04c2 | | .DEBUG 0x01cb,0x04c2,0x0002,0x0000,0x0057,0xb4d5,0x0000,0x010d
0402 01db 04c6 | | .DEBUG 0x01db,0x04c6,0x0002,0x0000,0x0057,0xb4d5,0x0000,0x011a
040a 020b 04cc | | .DEBUG 0x020b,0x04cc,0x4000,0x0000,0x0057,0xb4d5,0x0000,0x0022
0412 0214 04d6 | | .DEBUG 0x0214,0x04d6,0x4000,0x0000,0x0057,0xb7c5,0x0000,0x0006
041a 0223 04e0 | # | .DEBUG 0x0223,0x04e0,0x1001,0x0000,0x0057,0xb4d5,0x0000,0x0043
0422 0243 04ea | C | .DEBUG 0x0243,0x04ea,0x1001,0x0000,0x0057,0xb4d5,0x0000,0x0059
042a 02bb 0510 | | .DEBUG 0x02bb,0x0510,0x1001,0x0000,0x0057,0xb4d5,0x0000,0x0071
0432 0303 0526 | &| .DEBUG 0x0303,0x0526,0x1001,0x0000,0x0057,0xb4d5,0x0000,0x0089
043a ; --------------------------------------------------------------------------------------
043a ; Debug3 Subtable 0x0
043a ; --------------------------------------------------------------------------------------
043a 0005 0000 | | .DBG3TAB 0x0005,0x0000
043c 000b ffff | | .CONST 0x000b,0xffff
043e 0010 fffe | | .CONST 0x0010,0xfffe
0440 0015 fffd | | .CONST 0x0015,0xfffd
0442 001a fffc | | .CONST 0x001a,0xfffc
0444 001e fffb | | .CONST 0x001e,0xfffb
0446 ; --------------------------------------------------------------------------------------
0446 ; Debug3 Subtable 0x1
0446 ; --------------------------------------------------------------------------------------
0446 0007 0000 | | .DBG3TAB 0x0007,0x0000
0448 0024 ffff | $ | .CONST 0x0024,0xffff
044a 0026 fffe | & | .CONST 0x0026,0xfffe
044c 0028 fffd | ( | .CONST 0x0028,0xfffd
044e 0029 fffc | ) | .CONST 0x0029,0xfffc
0450 002a fffb | * | .CONST 0x002a,0xfffb
0452 002b fffa | + | .CONST 0x002b,0xfffa
0454 0038 fff9 | 8 | .CONST 0x0038,0xfff9
0456 ; --------------------------------------------------------------------------------------
0456 ; Debug3 Subtable 0x2
0456 ; --------------------------------------------------------------------------------------
0456 0000 0000 | | .DBG3TAB 0x0000,0x0000
0458 ; --------------------------------------------------------------------------------------
0458 ; Debug3 Subtable 0x3
0458 ; --------------------------------------------------------------------------------------
0458 0000 0000 | | .DBG3TAB 0x0000,0x0000
045a ; --------------------------------------------------------------------------------------
045a ; Debug3 Subtable 0x4
045a ; --------------------------------------------------------------------------------------
045a 0000 0000 | | .DBG3TAB 0x0000,0x0000
045c ; --------------------------------------------------------------------------------------
045c ; Debug3 Subtable 0x5
045c ; --------------------------------------------------------------------------------------
045c 0007 0000 | | .DBG3TAB 0x0007,0x0000
045e 009b ffff | | .CONST 0x009b,0xffff
0460 009d fffe | | .CONST 0x009d,0xfffe
0462 009f fffd | | .CONST 0x009f,0xfffd
0464 00a1 fffc | | .CONST 0x00a1,0xfffc
0466 00a3 fffb | | .CONST 0x00a3,0xfffb
0468 00a5 fffa | | .CONST 0x00a5,0xfffa
046a 00a7 fff9 | | .CONST 0x00a7,0xfff9
046c ; --------------------------------------------------------------------------------------
046c ; Debug3 Subtable 0x6
046c ; --------------------------------------------------------------------------------------
046c 0009 0003 | | .DBG3TAB 0x0009,0x0003
046e 00aa ffff | | .CONST 0x00aa,0xffff
0470 00ac fffe | | .CONST 0x00ac,0xfffe
0472 00ce fffd | | .CONST 0x00ce,0xfffd
0474 00d0 fffc | | .CONST 0x00d0,0xfffc
0476 00d2 fffb | | .CONST 0x00d2,0xfffb
0478 00d4 fffa | | .CONST 0x00d4,0xfffa
047a 00d6 fff9 | | .CONST 0x00d6,0xfff9
047c 00d8 fff8 | | .CONST 0x00d8,0xfff8
047e 00da fff7 | | .CONST 0x00da,0xfff7
0480 00dd 0001 | | .CONST 0x00dd,0x0001
0482 00e1 0002 | | .CONST 0x00e1,0x0002
0484 00ea 0003 | | .CONST 0x00ea,0x0003
0486 ; --------------------------------------------------------------------------------------
0486 ; Debug3 Subtable 0x7
0486 ; --------------------------------------------------------------------------------------
0486 0003 0006 | | .DBG3TAB 0x0003,0x0006
0488 00fb ffff | | .CONST 0x00fb,0xffff
048a 00ff fffe | | .CONST 0x00ff,0xfffe
048c 0106 fffd | | .CONST 0x0106,0xfffd
048e 0108 0001 | | .CONST 0x0108,0x0001
0490 010a 0002 | | .CONST 0x010a,0x0002
0492 010e 0003 | | .CONST 0x010e,0x0003
0494 0111 0004 | | .CONST 0x0111,0x0004
0496 0123 0005 | # | .CONST 0x0123,0x0005
0498 012a 0006 | * | .CONST 0x012a,0x0006
049a ; --------------------------------------------------------------------------------------
049a ; Debug3 Subtable 0x8
049a ; --------------------------------------------------------------------------------------
049a 0000 0006 | | .DBG3TAB 0x0000,0x0006
049c 013b 0001 | ; | .CONST 0x013b,0x0001
049e 0140 0002 | @ | .CONST 0x0140,0x0002
04a0 0144 0003 | D | .CONST 0x0144,0x0003
04a2 0146 0004 | F | .CONST 0x0146,0x0004
04a4 0149 0005 | I | .CONST 0x0149,0x0005
04a6 014d 0006 | M | .CONST 0x014d,0x0006
04a8 ; --------------------------------------------------------------------------------------
04a8 ; Debug3 Subtable 0x9
04a8 ; --------------------------------------------------------------------------------------
04a8 0001 0003 | | .DBG3TAB 0x0001,0x0003
04aa 015b ffff | [ | .CONST 0x015b,0xffff
04ac 0161 0001 | a | .CONST 0x0161,0x0001
04ae 0164 0002 | d | .CONST 0x0164,0x0002
04b0 0166 0003 | f | .CONST 0x0166,0x0003
04b2 ; --------------------------------------------------------------------------------------
04b2 ; Debug3 Subtable 0xa
04b2 ; --------------------------------------------------------------------------------------
04b2 0000 0001 | | .DBG3TAB 0x0000,0x0001
04b4 0173 0001 | s | .CONST 0x0173,0x0001
04b6 ; --------------------------------------------------------------------------------------
04b6 ; Debug3 Subtable 0xb
04b6 ; --------------------------------------------------------------------------------------
04b6 0004 0001 | | .DBG3TAB 0x0004,0x0001
04b8 0193 ffff | | .CONST 0x0193,0xffff
04ba 01a5 fffe | | .CONST 0x01a5,0xfffe
04bc 01ab fffd | | .CONST 0x01ab,0xfffd
04be 01b1 fffc | | .CONST 0x01b1,0xfffc
04c0 01b7 0001 | | .CONST 0x01b7,0x0001
04c2 ; --------------------------------------------------------------------------------------
04c2 ; Debug3 Subtable 0xc
04c2 ; --------------------------------------------------------------------------------------
04c2 0000 0001 | | .DBG3TAB 0x0000,0x0001
04c4 01cb 0001 | | .CONST 0x01cb,0x0001
04c6 ; --------------------------------------------------------------------------------------
04c6 ; Debug3 Subtable 0xd
04c6 ; --------------------------------------------------------------------------------------
04c6 0001 0001 | | .DBG3TAB 0x0001,0x0001
04c8 01db ffff | | .CONST 0x01db,0xffff
04ca 01e4 0001 | | .CONST 0x01e4,0x0001
04cc ; --------------------------------------------------------------------------------------
04cc ; Debug3 Subtable 0xe
04cc ; --------------------------------------------------------------------------------------
04cc 0004 0000 | | .DBG3TAB 0x0004,0x0000
04ce 020b ffff | | .CONST 0x020b,0xffff
04d0 020d fffe | | .CONST 0x020d,0xfffe
04d2 020f fffd | | .CONST 0x020f,0xfffd
04d4 0211 fffc | | .CONST 0x0211,0xfffc
04d6 ; --------------------------------------------------------------------------------------
04d6 ; Debug3 Subtable 0xf
04d6 ; --------------------------------------------------------------------------------------
04d6 0004 0000 | | .DBG3TAB 0x0004,0x0000
04d8 0214 ffff | | .CONST 0x0214,0xffff
04da 0216 fffe | | .CONST 0x0216,0xfffe
04dc 0218 fffd | | .CONST 0x0218,0xfffd
04de 021a fffc | | .CONST 0x021a,0xfffc
04e0 ; --------------------------------------------------------------------------------------
04e0 ; Debug3 Subtable 0x10
04e0 ; --------------------------------------------------------------------------------------
04e0 0000 0004 | | .DBG3TAB 0x0000,0x0004
04e2 0223 0001 | # | .CONST 0x0223,0x0001
04e4 0225 0002 | % | .CONST 0x0225,0x0002
04e6 0230 0003 | 0 | .CONST 0x0230,0x0003
04e8 0237 0004 | 7 | .CONST 0x0237,0x0004
04ea ; --------------------------------------------------------------------------------------
04ea ; Debug3 Subtable 0x11
04ea ; --------------------------------------------------------------------------------------
04ea 0006 000c | | .DBG3TAB 0x0006,0x000c
04ec 0243 ffff | C | .CONST 0x0243,0xffff
04ee 0248 fffe | H | .CONST 0x0248,0xfffe
04f0 0249 fffd | I | .CONST 0x0249,0xfffd
04f2 024a fffc | J | .CONST 0x024a,0xfffc
04f4 024b fffb | K | .CONST 0x024b,0xfffb
04f6 024c fffa | L | .CONST 0x024c,0xfffa
04f8 024e 0001 | N | .CONST 0x024e,0x0001
04fa 0250 0002 | P | .CONST 0x0250,0x0002
04fc 025d 0003 | ] | .CONST 0x025d,0x0003
04fe 0265 0004 | e | .CONST 0x0265,0x0004
0500 0268 0005 | h | .CONST 0x0268,0x0005
0502 0280 0006 | | .CONST 0x0280,0x0006
0504 0284 0007 | | .CONST 0x0284,0x0007
0506 029e 0008 | | .CONST 0x029e,0x0008
0508 02a1 0009 | | .CONST 0x02a1,0x0009
050a 02a3 000a | | .CONST 0x02a3,0x000a
050c 02a7 000b | | .CONST 0x02a7,0x000b
050e 02ae 000c | | .CONST 0x02ae,0x000c
0510 ; --------------------------------------------------------------------------------------
0510 ; Debug3 Subtable 0x12
0510 ; --------------------------------------------------------------------------------------
0510 0003 0007 | | .DBG3TAB 0x0003,0x0007
0512 02bb ffff | | .CONST 0x02bb,0xffff
0514 02bd fffe | | .CONST 0x02bd,0xfffe
0516 02c0 fffd | | .CONST 0x02c0,0xfffd
0518 02c2 0001 | | .CONST 0x02c2,0x0001
051a 02c4 0002 | | .CONST 0x02c4,0x0002
051c 02d1 0003 | | .CONST 0x02d1,0x0003
051e 02da 0004 | | .CONST 0x02da,0x0004
0520 02dc 0005 | | .CONST 0x02dc,0x0005
0522 02e1 0006 | | .CONST 0x02e1,0x0006
0524 02e4 0007 | | .CONST 0x02e4,0x0007
0526 ; --------------------------------------------------------------------------------------
0526 ; Debug3 Subtable 0x13
0526 ; --------------------------------------------------------------------------------------
0526 0001 0009 | | .DBG3TAB 0x0001,0x0009
0528 0303 ffff | | .CONST 0x0303,0xffff
052a 0305 0001 | | .CONST 0x0305,0x0001
052c 0307 0002 | | .CONST 0x0307,0x0002
052e 030f 0003 | | .CONST 0x030f,0x0003
0530 0311 0004 | | .CONST 0x0311,0x0004
0532 0315 0005 | | .CONST 0x0315,0x0005
0534 031d 0006 | | .CONST 0x031d,0x0006
0536 031f 0007 | | .CONST 0x031f,0x0007
0538 0323 0008 | # | .CONST 0x0323,0x0008
053a 032b 0009 | + | .CONST 0x032b,0x0009
053c 0000 0000 | | .BLANK 0000[0xc4]