|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2048 (0x800)
Notes: 00_class, 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 0210 | | .CONST 0x0210 ; 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 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0073 | s | .CONST 0x0073 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0016 | | .CONST 0x0016 ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0 ; Debug Table 0x0 = .DEBUG 0x000b,0x024a,0x8000,0x0000,0x0056,0xf105,0x0000,0x0005
; Debug Table 0x0.0x0 = 0xb,0xffff
; Debug Table 0x0.0x1 = 0xb,0xfffe
; Debug Table 0x0.0x2 = 0xb,0xfffd
000c 61f7 |a | Indirect_Literal Discrete,0x204,{0x00000000, 0x7fffffff}
000d 00e5 | | Load_Encached Long_Integer_Cache
000e 03f9 | | Declare_Type Discrete,Constrained,Visible
000f 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0xf,0xfffc
0011 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x11,0xfffb
0013 00bf | | Action Accept_Activation
0014 4800 |H | Short_Literal 0x0 ; Debug Table 0x1 = .DEBUG 0x0014,0x0256,0x8000,0x0000,0x0056,0xf115,0x0000,0x000b
; Debug Table 0x1.0x0 = 0x14,0xffff
0015 480f |H | Short_Literal 0xf
0016 e20d | | Load 0x1,0xd
0017 03f8 | | Declare_Type Discrete,Constrained
0018 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0x1 = 0x18,0xfffe
0019 480f |H | Short_Literal 0xf
001a 00e8 | | Load_Encached Character_Cache
001b 02a0 | | Declare_Subprogram Null_Subprogram
001c 4801 |H | Short_Literal 0x1
001d 035d | ] | Declare_Type Array,Defined
001e 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x2 = 0x1e,0xfffd
001f 0337 | 7 | Declare_Variable Array
0020 00d9 | | Load_Top At_Offset_1
0021 0337 | 7 | Declare_Variable Array
0022 4830 |H0 | Short_Literal 0x30
0023 4800 |H | Short_Literal 0x0
0024 00da | | Load_Top At_Offset_2
0025 01d6 | | Execute Vector,Field_Write
0026 4831 |H1 | Short_Literal 0x31
0027 4801 |H | Short_Literal 0x1
0028 00da | | Load_Top At_Offset_2
0029 01d6 | | Execute Vector,Field_Write
002a 4832 |H2 | Short_Literal 0x32
002b 4802 |H | Short_Literal 0x2
002c 00da | | Load_Top At_Offset_2
002d 01d6 | | Execute Vector,Field_Write
002e 4833 |H3 | Short_Literal 0x33
002f 4803 |H | Short_Literal 0x3
0030 00da | | Load_Top At_Offset_2
0031 01d6 | | Execute Vector,Field_Write
0032 4834 |H4 | Short_Literal 0x34
0033 4804 |H | Short_Literal 0x4
0034 00da | | Load_Top At_Offset_2
0035 01d6 | | Execute Vector,Field_Write
0036 4835 |H5 | Short_Literal 0x35
0037 4805 |H | Short_Literal 0x5
0038 00da | | Load_Top At_Offset_2
0039 01d6 | | Execute Vector,Field_Write
003a 4836 |H6 | Short_Literal 0x36
003b 4806 |H | Short_Literal 0x6
003c 00da | | Load_Top At_Offset_2
003d 01d6 | | Execute Vector,Field_Write
003e 4837 |H7 | Short_Literal 0x37
003f 4807 |H | Short_Literal 0x7
0040 00da | | Load_Top At_Offset_2
0041 01d6 | | Execute Vector,Field_Write
0042 4838 |H8 | Short_Literal 0x38
0043 4808 |H | Short_Literal 0x8
0044 00da | | Load_Top At_Offset_2
0045 01d6 | | Execute Vector,Field_Write
0046 4839 |H9 | Short_Literal 0x39
0047 4809 |H | Short_Literal 0x9
0048 00da | | Load_Top At_Offset_2
0049 01d6 | | Execute Vector,Field_Write
004a 4841 |HA | Short_Literal 0x41
004b 480a |H | Short_Literal 0xa
004c 00da | | Load_Top At_Offset_2
004d 01d6 | | Execute Vector,Field_Write
004e 4842 |HB | Short_Literal 0x42
004f 480b |H | Short_Literal 0xb
0050 00da | | Load_Top At_Offset_2
0051 01d6 | | Execute Vector,Field_Write
0052 4843 |HC | Short_Literal 0x43
0053 480c |H | Short_Literal 0xc
0054 00da | | Load_Top At_Offset_2
0055 01d6 | | Execute Vector,Field_Write
0056 4844 |HD | Short_Literal 0x44
0057 480d |H | Short_Literal 0xd
0058 00da | | Load_Top At_Offset_2
0059 01d6 | | Execute Vector,Field_Write
005a 4845 |HE | Short_Literal 0x45
005b 480e |H | Short_Literal 0xe
005c 00da | | Load_Top At_Offset_2
005d 01d6 | | Execute Vector,Field_Write
005e 4846 |HF | Short_Literal 0x46
005f 480f |H | Short_Literal 0xf
0060 00da | | Load_Top At_Offset_2
0061 01d6 | | Execute Vector,Field_Write
0062 00d9 | | Load_Top At_Offset_1
0063 01d4 | | Execute Vector,Structure_Write
0064 029d 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call ; Debug Table 0x1.0x3 = 0x64,0xfffc
0066 029d 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call ; Debug Table 0x1.0x4 = 0x66,0xfffb
0068 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x5 = 0x68,0xfffa
0069 00c7 | | Action Elaborate_Subprogram
006a 4820 |H | Short_Literal 0x20 ; Debug Table 0x1.0x6 = 0x6a,0xfff9
006b 487e |H~ | Short_Literal 0x7e
006c e001 | | Load 0x0,0x1
006d 1b11 | | Execute Package,Field_Read,Field_Number 0x11
006e 03f8 | | Declare_Type Discrete,Constrained
006f 029d 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call ; Debug Table 0x1.0x7 = 0x6f,0xfff8
0071 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x8 = 0x71,0xfff7
0072 00c7 | | Action Elaborate_Subprogram
0073 BODY_0008:
0073 00bc | | Action Signal_Activated
0074 00bb | | Action Signal_Completion
0075 0000 0000 | | .XXX[0x3]
0077 0000 | |
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 e5fd | | Load 0x2,-0x3 ; Debug Table 0x2 = .DEBUG 0x007b,0x026a,0x0002,0x0000,0x0056,0xf105,0x0000,0x0018
; Debug Table 0x2.0x0 = 0x7b,0x1
007c e5fe | | Load 0x2,-0x2
007d e5ff | | Load 0x2,-0x1
007e 8213 | | Call 0x1,0x13
007f 8214 | | Call 0x1,0x14
0080 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0081 0000 0000 | | .BLANK 0000[0x7]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 00b8 | | .CONST 0x00b8 ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 000a | | .CONST 0x000a ; Number of locals
008b INIT_0088:
008b 4801 |H | Short_Literal 0x1 ; Debug Table 0x3 = .DEBUG 0x008b,0x026e,0x2801,0x0002,0x0056,0xf105,0x0000,0x002b
; Debug Table 0x3.0x0 = 0x8b,0xffff
008c 4801 |H | Short_Literal 0x1
008d 00e9 | | Load_Encached String_Cache
008e 035b | [ | Declare_Type Array,Constrained
008f 4801 |H | Short_Literal 0x1 ; Debug Table 0x3.0x1 = 0x8f,0xfffe
0090 4802 |H | Short_Literal 0x2
0091 00e9 | | Load_Encached String_Cache
0092 035b | [ | Declare_Type Array,Constrained
0093 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x2 = 0x93,0xfffd
0094 00d9 | | Load_Top At_Offset_1
0095 02a0 | | Declare_Subprogram Null_Subprogram
0096 4802 |H | Short_Literal 0x2
0097 032d | - | Declare_Type Record,Defined
0098 4801 |H | Short_Literal 0x1 ; Debug Table 0x3.0x3 = 0x98,0xfffc
0099 e5fd | | Load 0x2,-0x3
009a 01db | | Execute Vector,Length
009b 00da | | Load_Top At_Offset_2
009c 02a0 | | Declare_Subprogram Null_Subprogram
009d 4801 |H | Short_Literal 0x1
009e 035d | ] | Declare_Type Array,Defined
009f e5fd | | Load 0x2,-0x3 ; Debug Table 0x3.0x4 = 0x9f,0xfffb
00a0 01db | | Execute Vector,Length
00a1 e5fc | | Load 0x2,-0x4
00a2 026e | n | Execute Discrete,Modulo
00a3 00e2 | | Load_Encached Integer_Cache
00a4 03f1 | | Declare_Variable Discrete,With_Value
00a5 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x5 = 0xa5,0xfffa
00a6 0337 | 7 | Declare_Variable Array
00a7 e5fc | | Load 0x2,-0x4 ; Debug Table 0x3.0x6 = 0xa7,0xfff9
00a8 e002 | | Load 0x0,0x2
00a9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00aa 1c08 | | Execute_Immediate Run_Utility,0x8
00ab 00d8 | | Load_Top At_Offset_0
00ac 1c00 | | Execute_Immediate Run_Utility,0x0
00ad e5fc | | Load 0x2,-0x4 ; Debug Table 0x3.0x7 = 0xad,0xfff8
00ae 4803 |H | Short_Literal 0x3
00af 0271 | q | Execute Discrete,Times
00b0 0248 | H | Execute Discrete,Check_In_Integer
00b1 e002 | | Load 0x0,0x2
00b2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00b3 1c08 | | Execute_Immediate Run_Utility,0x8
00b4 00d8 | | Load_Top At_Offset_0
00b5 1c00 | | Execute_Immediate Run_Utility,0x0
00b6 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x3.0x8 = 0xb6,0xfff7
00b7 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
00b8 BODY_0088:
00b8 00cf | | Action Mark_Auxiliary
00b9 e5fd | | Load 0x2,-0x3 ; Debug Table 0x3.0x9 = 0xb9,0x1
00ba 01d9 | | Execute Vector,Reverse_Bounds
00bb 0263 | c | Execute Discrete,Above_Bound
00bc 701e |p | Jump_Nonzero 0xdb
00bd 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0xa = 0xbd,0x2
00be e5fd | | Load 0x2,-0x3
00bf 01d7 | | Execute Vector,Field_Read
00c0 8216 | | Call 0x1,0x16
00c1 00d9 | | Load_Top At_Offset_1
00c2 e5fd | | Load 0x2,-0x3
00c3 01dd | | Execute Vector,First
00c4 0272 | r | Execute Discrete,Minus
00c5 0a01 | | Execute_Immediate Plus,0x1
00c6 0248 | H | Execute Discrete,Check_In_Integer
00c7 e407 | | Load 0x2,0x7
00c8 01d5 | | Execute Vector,Field_Reference
00c9 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00ca 4830 |H0 | Short_Literal 0x30 ; Debug Table 0x3.0xb = 0xca,0x3
00cb 4802 |H | Short_Literal 0x2
00cc 00da | | Load_Top At_Offset_2
00cd e5fd | | Load 0x2,-0x3
00ce 01d7 | | Execute Vector,Field_Read
00cf 820e | | Call 0x1,0xe
00d0 00d9 | | Load_Top At_Offset_1
00d1 e5fd | | Load 0x2,-0x3
00d2 01dd | | Execute Vector,First
00d3 0272 | r | Execute Discrete,Minus
00d4 0a01 | | Execute_Immediate Plus,0x1
00d5 0248 | H | Execute Discrete,Check_In_Integer
00d6 e407 | | Load 0x2,0x7
00d7 01d5 | | Execute Vector,Field_Reference
00d8 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00d9 00c8 | | Action Pop_Auxiliary_Range
00da 3fe2 |? | Loop_Increasing 0xbd
00db 00c9 | | Action Pop_Auxiliary_Loop
00dc e5fd | | Load 0x2,-0x3 ; Debug Table 0x3.0xc = 0xdc,0x4
00dd 01db | | Execute Vector,Length
00de e5fc | | Load 0x2,-0x4
00df 0270 | p | Execute Discrete,Divide
00e0 4801 |H | Short_Literal 0x1
00e1 0263 | c | Execute Discrete,Above_Bound
00e2 7051 |pQ | Jump_Nonzero 0x134
00e3 e408 | | Load 0x2,0x8 ; Debug Table 0x3.0xd = 0xe3,0x5
00e4 e002 | | Load 0x0,0x2
00e5 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00e6 00d1 | | Pop_Control Pop_Count_1
00e7 e409 | | Load 0x2,0x9 ; Debug Table 0x3.0xe = 0xe7,0x6
00e8 e002 | | Load 0x0,0x2
00e9 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00ea 00d1 | | Pop_Control Pop_Count_1
00eb 00cf | | Action Mark_Auxiliary
00ec e5fc | | Load 0x2,-0x4 ; Debug Table 0x3.0xf = 0xec,0x7
00ed 4801 |H | Short_Literal 0x1
00ee 0263 | c | Execute Discrete,Above_Bound
00ef 7022 |p" | Jump_Nonzero 0x112
00f0 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x10 = 0xf0,0x8
00f1 0e01 | | Execute_Immediate Not_Equal,0x1
00f2 00d9 | | Load_Top At_Offset_1
00f3 4801 |H | Short_Literal 0x1
00f4 0279 | y | Execute Discrete,And
00f5 0f01 | | Execute_Immediate Equal,0x1
00f6 0279 | y | Execute Discrete,And
00f7 6805 |h | Jump_Zero 0xfd
00f8 e409 | | Load 0x2,0x9 ; Debug Table 0x3.0x11 = 0xf8,0x9
00f9 4820 |H | Short_Literal 0x20
00fa e002 | | Load 0x0,0x2
00fb 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00fc 00d1 | | Pop_Control Pop_Count_1
00fd e408 | | Load 0x2,0x8 ; Debug Table 0x3.0x12 = 0xfd,0xa
00fe e40a | | Load 0x2,0xa
00ff e407 | | Load 0x2,0x7
0100 01d5 | | Execute Vector,Field_Reference
0101 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0102 e002 | | Load 0x0,0x2
0103 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0104 00d1 | | Pop_Control Pop_Count_1
0105 e409 | | Load 0x2,0x9 ; Debug Table 0x3.0x13 = 0x105,0xb
0106 e40a | | Load 0x2,0xa
0107 e407 | | Load 0x2,0x7
0108 01d5 | | Execute Vector,Field_Reference
0109 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
010a e002 | | Load 0x0,0x2
010b 1818 | | Execute Package,Field_Execute,Field_Number 0x18
010c 00d1 | | Pop_Control Pop_Count_1
010d e40a | | Load 0x2,0xa ; Debug Table 0x3.0x14 = 0x10d,0xc
010e 0a01 | | Execute_Immediate Plus,0x1
010f c40a | | Store 0x2,0xa
0110 00c8 | | Action Pop_Auxiliary_Range
0111 3fde |? | Loop_Increasing 0xf0
0112 00ce | | Action Pop_Auxiliary
0113 e5fb | | Load 0x2,-0x5 ; Debug Table 0x3.0x15 = 0x113,0xd
0114 680f |h | Jump_Zero 0x124
0115 0092 0208 | | Action Push_String_Extended,0x208 ; " "
; Debug Table 0x3.0x16 = 0x115,0xe
0117 e409 | | Load 0x2,0x9
0118 e002 | | Load 0x0,0x2
0119 1813 | | Execute Package,Field_Execute,Field_Number 0x13
011a 01cc | | Execute Vector,Catenate
011b 0092 0208 | | Action Push_String_Extended,0x208 ; " "
011d 01cc | | Execute Vector,Catenate
011e e408 | | Load 0x2,0x8
011f e002 | | Load 0x0,0x2
0120 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0121 01cc | | Execute Vector,Catenate
0122 85fe | | Call 0x2,-0x2
0123 780e |x | Jump 0x132
0124 0092 0208 | | Action Push_String_Extended,0x208 ; " "
; Debug Table 0x3.0x17 = 0x124,0xf
0126 e408 | | Load 0x2,0x8
0127 e002 | | Load 0x0,0x2
0128 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0129 01cc | | Execute Vector,Catenate
012a 0092 0208 | | Action Push_String_Extended,0x208 ; " "
012c 01cc | | Execute Vector,Catenate
012d e409 | | Load 0x2,0x9
012e e002 | | Load 0x0,0x2
012f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0130 01cc | | Execute Vector,Catenate
0131 85fe | | Call 0x2,-0x2
0132 00c8 | | Action Pop_Auxiliary_Range
0133 3faf |? | Loop_Increasing 0xe3
0134 00ce | | Action Pop_Auxiliary
0135 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x18 = 0x135,0x10
0136 e407 | | Load 0x2,0x7
0137 01dc | | Execute Vector,Last
0138 027a | z | Execute Discrete,Less_Equal
0139 686e |hn | Jump_Zero 0x1a8
013a 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0x19 = 0x13a,0x11
013b e002 | | Load 0x0,0x2
013c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
013d 00d1 | | Pop_Control Pop_Count_1
013e 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x1a = 0x13e,0x12
013f e002 | | Load 0x0,0x2
0140 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0141 00d1 | | Pop_Control Pop_Count_1
0142 00cf | | Action Mark_Auxiliary
0143 e406 | | Load 0x2,0x6 ; Debug Table 0x3.0x1b = 0x143,0x13
0144 4801 |H | Short_Literal 0x1
0145 0263 | c | Execute Discrete,Above_Bound
0146 7022 |p" | Jump_Nonzero 0x169
0147 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x1c = 0x147,0x14
0148 0e01 | | Execute_Immediate Not_Equal,0x1
0149 00d9 | | Load_Top At_Offset_1
014a 4801 |H | Short_Literal 0x1
014b 0279 | y | Execute Discrete,And
014c 0f01 | | Execute_Immediate Equal,0x1
014d 0279 | y | Execute Discrete,And
014e 6805 |h | Jump_Zero 0x154
014f e409 | | Load 0x2,0x9 ; Debug Table 0x3.0x1d = 0x14f,0x15
0150 4820 |H | Short_Literal 0x20
0151 e002 | | Load 0x0,0x2
0152 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0153 00d1 | | Pop_Control Pop_Count_1
0154 e408 | | Load 0x2,0x8 ; Debug Table 0x3.0x1e = 0x154,0x16
0155 e40a | | Load 0x2,0xa
0156 e407 | | Load 0x2,0x7
0157 01d5 | | Execute Vector,Field_Reference
0158 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0159 e002 | | Load 0x0,0x2
015a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
015b 00d1 | | Pop_Control Pop_Count_1
015c e409 | | Load 0x2,0x9 ; Debug Table 0x3.0x1f = 0x15c,0x17
015d e40a | | Load 0x2,0xa
015e e407 | | Load 0x2,0x7
015f 01d5 | | Execute Vector,Field_Reference
0160 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0161 e002 | | Load 0x0,0x2
0162 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0163 00d1 | | Pop_Control Pop_Count_1
0164 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0x20 = 0x164,0x18
0165 0a01 | | Execute_Immediate Plus,0x1
0166 c40a | | Store 0x2,0xa
0167 00c8 | | Action Pop_Auxiliary_Range
0168 3fde |? | Loop_Increasing 0x147
0169 00ce | | Action Pop_Auxiliary
016a e5fa | | Load 0x2,-0x6 ; Debug Table 0x3.0x21 = 0x16a,0x19
016b 681d |h | Jump_Zero 0x189
016c 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0x22 = 0x16c,0x1a
016d e5fc | | Load 0x2,-0x4
016e e408 | | Load 0x2,0x8
016f e002 | | Load 0x0,0x2
0170 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0171 0272 | r | Execute Discrete,Minus
0172 00e3 | | Load_Encached Natural_Cache
0173 025b | [ | Execute Discrete,Check_In_Type
0174 4820 |H | Short_Literal 0x20
0175 e002 | | Load 0x0,0x2
0176 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0177 00d1 | | Pop_Control Pop_Count_1
0178 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x23 = 0x178,0x1b
0179 e5fc | | Load 0x2,-0x4
017a 4805 |H | Short_Literal 0x5
017b 0271 | q | Execute Discrete,Times
017c 0aff | | Execute_Immediate Plus,-0x1
017d 0248 | H | Execute Discrete,Check_In_Integer
017e 09ff | | Execute_Immediate Binary_Scale,-0x1
017f 00db | | Load_Top At_Offset_3
0180 e002 | | Load 0x0,0x2
0181 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0182 0272 | r | Execute Discrete,Minus
0183 00e3 | | Load_Encached Natural_Cache
0184 025b | [ | Execute Discrete,Check_In_Type
0185 4820 |H | Short_Literal 0x20
0186 e002 | | Load 0x0,0x2
0187 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0188 00d1 | | Pop_Control Pop_Count_1
0189 e5fb | | Load 0x2,-0x5 ; Debug Table 0x3.0x24 = 0x189,0x1c
018a 680f |h | Jump_Zero 0x19a
018b 0092 0208 | | Action Push_String_Extended,0x208 ; " "
; Debug Table 0x3.0x25 = 0x18b,0x1d
018d 00da | | Load_Top At_Offset_2
018e e002 | | Load 0x0,0x2
018f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0190 01cc | | Execute Vector,Catenate
0191 0092 0208 | | Action Push_String_Extended,0x208 ; " "
0193 01cc | | Execute Vector,Catenate
0194 00db | | Load_Top At_Offset_3
0195 e002 | | Load 0x0,0x2
0196 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0197 01cc | | Execute Vector,Catenate
0198 85fe | | Call 0x2,-0x2
0199 4507 |E | Exit_Suprogram New_Top_Offset 0x7
019a 0092 0208 | | Action Push_String_Extended,0x208 ; " "
; Debug Table 0x3.0x26 = 0x19a,0x1e
019c 00db | | Load_Top At_Offset_3
019d e002 | | Load 0x0,0x2
019e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
019f 01cc | | Execute Vector,Catenate
01a0 0092 0208 | | Action Push_String_Extended,0x208 ; " "
01a2 01cc | | Execute Vector,Catenate
01a3 00da | | Load_Top At_Offset_2
01a4 e002 | | Load 0x0,0x2
01a5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01a6 01cc | | Execute Vector,Catenate
01a7 85fe | | Call 0x2,-0x2
01a8 4507 |E | Exit_Suprogram New_Top_Offset 0x7
01a9 0000 0000 | | .BLANK 0000[0x7]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3 | | .CONST 0x01b3 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0001 | | .CONST 0x0001 ; Number of locals
01b3 BODY_01b0:
01b3 INIT_01b0:
01b3 00da | | Load_Top At_Offset_2 ; Debug Table 0x4 = .DEBUG 0x01b3,0x02be,0x0002,0x0000,0x0056,0xf115,0x0000,0x0032
; Debug Table 0x4.0x0 = 0x1b3,0x1
01b4 0d10 | | Execute_Immediate Less,0x10
01b5 680e |h | Jump_Zero 0x1c4
01b6 4801 |H | Short_Literal 0x1 ; Debug Table 0x4.0x1 = 0x1b6,0x2
01b7 4801 |H | Short_Literal 0x1
01b8 00e9 | | Load_Encached String_Cache
01b9 0334 | 4 | Declare_Variable Array,With_Constraint
01ba 4801 |H | Short_Literal 0x1
01bb 4801 |H | Short_Literal 0x1
01bc e5ff | | Load 0x2,-0x1
01bd e212 | | Load 0x1,0x12
01be 01d7 | | Execute Vector,Field_Read
01bf 00d9 | | Load_Top At_Offset_1
01c0 e402 | | Load 0x2,0x2
01c1 01d6 | | Execute Vector,Field_Write
01c2 3ff9 |? | Loop_Increasing 0x1bc
01c3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01c4 00da | | Load_Top At_Offset_2 ; Debug Table 0x4.0x2 = 0x1c4,0x3
01c5 480f |H | Short_Literal 0xf
01c6 0279 | y | Execute Discrete,And
01c7 e212 | | Load 0x1,0x12
01c8 01d7 | | Execute Vector,Field_Read
01c9 00db | | Load_Top At_Offset_3
01ca 09fc | | Execute_Immediate Binary_Scale,-0x4
01cb e20d | | Load 0x1,0xd
01cc 025b | [ | Execute Discrete,Check_In_Type
01cd 8213 | | Call 0x1,0x13
01ce 01cb | | Execute Vector,Append
01cf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3 | | .CONST 0x01d3 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0001 | | .CONST 0x0001 ; Number of locals
01d3 BODY_01d0:
01d3 INIT_01d0:
01d3 4801 |H | Short_Literal 0x1 ; Debug Table 0x5 = .DEBUG 0x01d3,0x02c6,0x0002,0x0000,0x0056,0xf115,0x0000,0x006a
; Debug Table 0x5.0x0 = 0x1d3,0x1
01d4 e5fe | | Load 0x2,-0x2
01d5 e5ff | | Load 0x2,-0x1
01d6 01db | | Execute Vector,Length
01d7 0272 | r | Execute Discrete,Minus
01d8 0248 | H | Execute Discrete,Check_In_Integer
01d9 00e9 | | Load_Encached String_Cache
01da 0334 | 4 | Declare_Variable Array,With_Constraint
01db 00d8 | | Load_Top At_Offset_0
01dc 01dc | | Execute Vector,Last
01dd 4801 |H | Short_Literal 0x1
01de 0263 | c | Execute Discrete,Above_Bound
01df 7005 |p | Jump_Nonzero 0x1e5
01e0 e5fd | | Load 0x2,-0x3
01e1 00d9 | | Load_Top At_Offset_1
01e2 e402 | | Load 0x2,0x2
01e3 01d6 | | Execute Vector,Field_Write
01e4 3ffb |? | Loop_Increasing 0x1e0
01e5 00db | | Load_Top At_Offset_3
01e6 01cc | | Execute Vector,Catenate
01e7 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb | | .CONST 0x01eb ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0001 | | .CONST 0x0001 ; Number of locals
01eb BODY_01e8:
01eb INIT_01e8:
01eb 00da | | Load_Top At_Offset_2 ; Debug Table 0x6 = .DEBUG 0x01eb,0x02ca,0x0002,0x0000,0x0056,0xf115,0x0000,0x00c9
; Debug Table 0x6.0x0 = 0x1eb,0x1
01ec e215 | | Load 0x1,0x15
01ed 0260 | ` | Execute Discrete,In_Type
01ee 6812 |h | Jump_Zero 0x201
01ef 4801 |H | Short_Literal 0x1 ; Debug Table 0x6.0x1 = 0x1ef,0x2
01f0 4801 |H | Short_Literal 0x1
01f1 00e9 | | Load_Encached String_Cache
01f2 0334 | 4 | Declare_Variable Array,With_Constraint
01f3 4801 |H | Short_Literal 0x1
01f4 4801 |H | Short_Literal 0x1
01f5 e5ff | | Load 0x2,-0x1
01f6 00d8 | | Load_Top At_Offset_0
01f7 00e8 | | Load_Encached Character_Cache
01f8 0260 | ` | Execute Discrete,In_Type
01f9 7002 |p | Jump_Nonzero 0x1fc
01fa 48e0 |H | Short_Literal 0xe0
01fb 0257 | W | Execute Discrete,Raise
01fc 00d9 | | Load_Top At_Offset_1
01fd e402 | | Load 0x2,0x2
01fe 01d6 | | Execute Vector,Field_Write
01ff 3ff5 |? | Loop_Increasing 0x1f5
0200 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0201 0092 0209 | | Action Push_String_Extended,0x209 ; "|"
; Debug Table 0x6.0x2 = 0x201,0x3
0203 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0204 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
0208 ; --------------------------------------------------------------------------------------
0208 ; STRING TABLE
0208 ; --------------------------------------------------------------------------------------
0208 0006 | | .STRTAB 0x0006->0x020b ; " "
0209 0006 | | .STRTAB 0x0006->0x020c ; "|"
020a 0005 | | .STREND 0x0005->0x020c
020b 2020 7c00 | | | .STRTAB_STRINGS
020d 0000 0000 | | .XXX[0x3]
020f 0000 | |
0210 ; --------------------------------------------------------------------------------------
0210 ; Debug Table
0210 ; --------------------------------------------------------------------------------------
0210 0003 0007 | | .CONST 0x0003,0x0007
0212 000b 024a | J| .DEBUG 0x000b,0x024a,0x8000,0x0000,0x0056,0xf105,0x0000,0x0005
021a 0014 0256 | V| .DEBUG 0x0014,0x0256,0x8000,0x0000,0x0056,0xf115,0x0000,0x000b
0222 007b 026a | { j| .DEBUG 0x007b,0x026a,0x0002,0x0000,0x0056,0xf105,0x0000,0x0018
022a 008b 026e | n| .DEBUG 0x008b,0x026e,0x2801,0x0002,0x0056,0xf105,0x0000,0x002b
0232 01b3 02be | | .DEBUG 0x01b3,0x02be,0x0002,0x0000,0x0056,0xf115,0x0000,0x0032
023a 01d3 02c6 | | .DEBUG 0x01d3,0x02c6,0x0002,0x0000,0x0056,0xf115,0x0000,0x006a
0242 01eb 02ca | | .DEBUG 0x01eb,0x02ca,0x0002,0x0000,0x0056,0xf115,0x0000,0x00c9
024a ; --------------------------------------------------------------------------------------
024a ; Debug3 Subtable 0x0
024a ; --------------------------------------------------------------------------------------
024a 0005 0000 | | .DBG3TAB 0x0005,0x0000
024c 000b ffff | | .CONST 0x000b,0xffff
024e 000b fffe | | .CONST 0x000b,0xfffe
0250 000b fffd | | .CONST 0x000b,0xfffd
0252 000f fffc | | .CONST 0x000f,0xfffc
0254 0011 fffb | | .CONST 0x0011,0xfffb
0256 ; --------------------------------------------------------------------------------------
0256 ; Debug3 Subtable 0x1
0256 ; --------------------------------------------------------------------------------------
0256 0009 0000 | | .DBG3TAB 0x0009,0x0000
0258 0014 ffff | | .CONST 0x0014,0xffff
025a 0018 fffe | | .CONST 0x0018,0xfffe
025c 001e fffd | | .CONST 0x001e,0xfffd
025e 0064 fffc | d | .CONST 0x0064,0xfffc
0260 0066 fffb | f | .CONST 0x0066,0xfffb
0262 0068 fffa | h | .CONST 0x0068,0xfffa
0264 006a fff9 | j | .CONST 0x006a,0xfff9
0266 006f fff8 | o | .CONST 0x006f,0xfff8
0268 0071 fff7 | q | .CONST 0x0071,0xfff7
026a ; --------------------------------------------------------------------------------------
026a ; Debug3 Subtable 0x2
026a ; --------------------------------------------------------------------------------------
026a 0000 0001 | | .DBG3TAB 0x0000,0x0001
026c 007b 0001 | { | .CONST 0x007b,0x0001
026e ; --------------------------------------------------------------------------------------
026e ; Debug3 Subtable 0x3
026e ; --------------------------------------------------------------------------------------
026e 0009 001e | | .DBG3TAB 0x0009,0x001e
0270 008b ffff | | .CONST 0x008b,0xffff
0272 008f fffe | | .CONST 0x008f,0xfffe
0274 0093 fffd | | .CONST 0x0093,0xfffd
0276 0098 fffc | | .CONST 0x0098,0xfffc
0278 009f fffb | | .CONST 0x009f,0xfffb
027a 00a5 fffa | | .CONST 0x00a5,0xfffa
027c 00a7 fff9 | | .CONST 0x00a7,0xfff9
027e 00ad fff8 | | .CONST 0x00ad,0xfff8
0280 00b6 fff7 | | .CONST 0x00b6,0xfff7
0282 00b9 0001 | | .CONST 0x00b9,0x0001
0284 00bd 0002 | | .CONST 0x00bd,0x0002
0286 00ca 0003 | | .CONST 0x00ca,0x0003
0288 00dc 0004 | | .CONST 0x00dc,0x0004
028a 00e3 0005 | | .CONST 0x00e3,0x0005
028c 00e7 0006 | | .CONST 0x00e7,0x0006
028e 00ec 0007 | | .CONST 0x00ec,0x0007
0290 00f0 0008 | | .CONST 0x00f0,0x0008
0292 00f8 0009 | | .CONST 0x00f8,0x0009
0294 00fd 000a | | .CONST 0x00fd,0x000a
0296 0105 000b | | .CONST 0x0105,0x000b
0298 010d 000c | | .CONST 0x010d,0x000c
029a 0113 000d | | .CONST 0x0113,0x000d
029c 0115 000e | | .CONST 0x0115,0x000e
029e 0124 000f | $ | .CONST 0x0124,0x000f
02a0 0135 0010 | 5 | .CONST 0x0135,0x0010
02a2 013a 0011 | : | .CONST 0x013a,0x0011
02a4 013e 0012 | > | .CONST 0x013e,0x0012
02a6 0143 0013 | C | .CONST 0x0143,0x0013
02a8 0147 0014 | G | .CONST 0x0147,0x0014
02aa 014f 0015 | O | .CONST 0x014f,0x0015
02ac 0154 0016 | T | .CONST 0x0154,0x0016
02ae 015c 0017 | \ | .CONST 0x015c,0x0017
02b0 0164 0018 | d | .CONST 0x0164,0x0018
02b2 016a 0019 | j | .CONST 0x016a,0x0019
02b4 016c 001a | l | .CONST 0x016c,0x001a
02b6 0178 001b | x | .CONST 0x0178,0x001b
02b8 0189 001c | | .CONST 0x0189,0x001c
02ba 018b 001d | | .CONST 0x018b,0x001d
02bc 019a 001e | | .CONST 0x019a,0x001e
02be ; --------------------------------------------------------------------------------------
02be ; Debug3 Subtable 0x4
02be ; --------------------------------------------------------------------------------------
02be 0000 0003 | | .DBG3TAB 0x0000,0x0003
02c0 01b3 0001 | | .CONST 0x01b3,0x0001
02c2 01b6 0002 | | .CONST 0x01b6,0x0002
02c4 01c4 0003 | | .CONST 0x01c4,0x0003
02c6 ; --------------------------------------------------------------------------------------
02c6 ; Debug3 Subtable 0x5
02c6 ; --------------------------------------------------------------------------------------
02c6 0000 0001 | | .DBG3TAB 0x0000,0x0001
02c8 01d3 0001 | | .CONST 0x01d3,0x0001
02ca ; --------------------------------------------------------------------------------------
02ca ; Debug3 Subtable 0x6
02ca ; --------------------------------------------------------------------------------------
02ca 0000 0003 | | .DBG3TAB 0x0000,0x0003
02cc 01eb 0001 | | .CONST 0x01eb,0x0001
02ce 01ef 0002 | | .CONST 0x01ef,0x0002
02d0 0201 0003 | | .CONST 0x0201,0x0003
02d2 0000 0000 | | .BLANK 0000[0x12e]