|
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 - metrics - download
Length: 2048 (0x800)
Notes: 00_class, 5811_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 5811 |X | .CONST 0x5811 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 01e0 | | .CONST 0x01e0 ; 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 006a | j | .CONST 0x006a ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001a | | .CONST 0x001a ; Number of locals
000b INIT_0008:
000b 0007 | | Action Break_Optional ; Debug Table 0x0 = .DEBUG 0x000b,0x024a,0x8000,0x0000,0x0036,0xe794,0x0000,0x0003
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 0007 | | Action Break_Optional ; Debug Table 0x0.0x1 = 0xc,0xfffe
000d 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x2 = 0xd,0xfffd
000e 4807 |H | Short_Literal 0x7
000f 00e2 | | Load_Encached Integer_Cache
0010 03f9 | | Declare_Type Discrete,Constrained,Visible
0011 4801 |H | Short_Literal 0x1 ; Debug Table 0x0.0x3 = 0x11,0xfffc
0012 4900 |I | Short_Literal 0x100
0013 00e9 | | Load_Encached String_Cache
0014 035c | \ | Declare_Type Array,Constrained,Visible
0015 00e3 | | Load_Encached Natural_Cache
0016 00e3 | | Load_Encached Natural_Cache
0017 029f 0073 | s| Declare_Subprogram For_Call,INIT_0070
0019 4803 |H | Short_Literal 0x3
001a 032e | . | Declare_Type Record,Defined,Visible
001b 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x4 = 0x1b,0xfffb
001c 0322 | " | Declare_Variable Record
001d 4801 |H | Short_Literal 0x1
001e 4900 |I | Short_Literal 0x100
001f 00e9 | | Load_Encached String_Cache
0020 0334 | 4 | Declare_Variable Array,With_Constraint
0021 4900 |I | Short_Literal 0x100
0022 4801 |H | Short_Literal 0x1
0023 4820 |H | Short_Literal 0x20
0024 00d9 | | Load_Top At_Offset_1
0025 e210 | | Load 0x1,0x10
0026 01d6 | | Execute Vector,Field_Write
0027 3ffb |? | Loop_Increasing 0x23
0028 00da | | Load_Top At_Offset_2
0029 3000 |0 | Execute Record,Field_Type,Field_Number 0x0
002a 0119 | | Execute Any,Check_In_Formal_Type
002b 00d9 | | Load_Top At_Offset_1
002c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
002d 4800 |H | Short_Literal 0x0
002e 00d9 | | Load_Top At_Offset_1
002f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0030 4801 |H | Short_Literal 0x1
0031 00d9 | | Load_Top At_Offset_1
0032 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0033 0129 | ) | Execute Any,Make_Visible
0034 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x5 = 0x34,0xfffa
0035 4807 |H | Short_Literal 0x7
0036 00db | | Load_Top At_Offset_3
0037 029f 008b | | Declare_Subprogram For_Call,INIT_0088
0039 4801 |H | Short_Literal 0x1
003a 035e | ^ | Declare_Type Array,Defined,Visible
003b 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x0.0x6 = 0x3b,0xfff9
003c 00e1 | | Load_Encached Boolean_Cache
003d 00e3 | | Load_Encached Natural_Cache
003e 00e3 | | Load_Encached Natural_Cache
003f 00e3 | | Load_Encached Natural_Cache
0040 e210 | | Load 0x1,0x10
0041 029f 00a3 | | Declare_Subprogram For_Call,INIT_00a0
0043 4806 |H | Short_Literal 0x6
0044 032e | . | Declare_Type Record,Defined,Visible
0045 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x7 = 0x45,0xfff8
0046 02a0 | | Declare_Subprogram Null_Subprogram
0047 4818 |H | Short_Literal 0x18
0048 03d6 | | Declare_Type Access,Defined,Visible
0049 029a 00c3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00c0 ; Debug Table 0x0.0x8 = 0x49,0xfff7
004b 029a 00cb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00c8 ; Debug Table 0x0.0x9 = 0x4b,0xfff6
004d 029a 00db | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00d8 ; Debug Table 0x0.0xa = 0x4d,0xfff5
004f 029a 0123 | #| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0120 ; Debug Table 0x0.0xb = 0x4f,0xfff4
0051 029a 013b | ;| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0138 ; Debug Table 0x0.0xc = 0x51,0xfff3
0053 029a 0143 | C| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0140 ; Debug Table 0x0.0xd = 0x53,0xfff2
0055 029a 01b3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01b0 ; Debug Table 0x0.0xe = 0x55,0xfff1
0057 029a 01cb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01c8 ; Debug Table 0x0.0xf = 0x57,0xfff0
0059 00bf | | Action Accept_Activation
005a 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1 = .DEBUG 0x005a,0x026c,0x8000,0x0000,0x0037,0x01a4,0x0000,0x0003
; Debug Table 0x1.0x0 = 0x5a,0xffff
005b 00c7 | | Action Elaborate_Subprogram
005c 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0x1 = 0x5c,0xfffe
005d 00c7 | | Action Elaborate_Subprogram
005e 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0x2 = 0x5e,0xfffd
005f 00c7 | | Action Elaborate_Subprogram
0060 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x1.0x3 = 0x60,0xfffc
0061 00c7 | | Action Elaborate_Subprogram
0062 1d17 | | Execute_Immediate Reference_Lex_1,0x17 ; Debug Table 0x1.0x4 = 0x62,0xfffb
0063 00c7 | | Action Elaborate_Subprogram
0064 1d18 | | Execute_Immediate Reference_Lex_1,0x18 ; Debug Table 0x1.0x5 = 0x64,0xfffa
0065 00c7 | | Action Elaborate_Subprogram
0066 1d19 | | Execute_Immediate Reference_Lex_1,0x19 ; Debug Table 0x1.0x6 = 0x66,0xfff9
0067 00c7 | | Action Elaborate_Subprogram
0068 1d1a | | Execute_Immediate Reference_Lex_1,0x1a ; Debug Table 0x1.0x7 = 0x68,0xfff8
0069 00c7 | | Action Elaborate_Subprogram
006a BODY_0008:
006a 00bc | | Action Signal_Activated
006b 00bb | | Action Signal_Completion
006c 0000 0000 | | .BLANK 0000[0x4]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0073 | s | .CONST 0x0073 ; Address of begin
0071 0004 | | .CONST 0x0004 ; Address of exception handler
0072 0001 | | .CONST 0x0001 ; Number of locals
0073 BODY_0070:
0073 INIT_0070:
0073 4608 |F | Jump_Case 0x8 ; Debug Table 0x2 = .DEBUG 0x0073,0x027e,0x0005,0x0000,0x0036,0xe794,0x0000,0x001b
0074 7808 |x | Jump 0x7d ; case 0x0
0075 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x1
0076 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x2
0077 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x3
0078 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x4
0079 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x5
007a 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x6
007b 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x7
007c 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x8
007d 4800 |H | Short_Literal 0x0
007e 00db | | Load_Top At_Offset_3
007f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0080 4801 |H | Short_Literal 0x1
0081 00db | | Load_Top At_Offset_3
0082 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0083 4302 |C | Exit_Subprogram From_Utility,0x2
0084 0000 0000 | | .BLANK 0000[0x4]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b | | .CONST 0x008b ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0001 | | .CONST 0x0001 ; Number of locals
008b BODY_0088:
008b INIT_0088:
008b 00d1 | | Pop_Control Pop_Count_1 ; Debug Table 0x3 = .DEBUG 0x008b,0x0280,0x0005,0x0000,0x0036,0xe794,0x0000,0x004c
008c 00da | | Load_Top At_Offset_2
008d 01d8 | | Execute Vector,Element_Type
008e 0322 | " | Declare_Variable Record
008f 00d8 | | Load_Top At_Offset_0
0090 1c00 | | Execute_Immediate Run_Utility,0x0
0091 00db | | Load_Top At_Offset_3
0092 01dc | | Execute Vector,Last
0093 e5ff | | Load 0x2,-0x1
0094 01dd | | Execute Vector,First
0095 0263 | c | Execute Discrete,Above_Bound
0096 7006 |p | Jump_Nonzero 0x9d
0097 00da | | Load_Top At_Offset_2
0098 00d9 | | Load_Top At_Offset_1
0099 e5ff | | Load 0x2,-0x1
009a 01d6 | | Execute Vector,Field_Write
009b 0a01 | | Execute_Immediate Plus,0x1
009c 7ff8 | | Jump 0x95
009d 4302 |C | Exit_Subprogram From_Utility,0x2
009e 0000 0000 | | .XXX[0x2]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3 | | .CONST 0x00a3 ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0001 | | .CONST 0x0001 ; Number of locals
00a3 BODY_00a0:
00a3 INIT_00a0:
00a3 4608 |F | Jump_Case 0x8 ; Debug Table 0x4 = .DEBUG 0x00a3,0x0282,0x0005,0x0000,0x0036,0xe794,0x0000,0x005a
00a4 7808 |x | Jump 0xad ; case 0x0
00a5 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x1
00a6 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x2
00a7 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x3
00a8 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x4
00a9 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x5
00aa 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x6
00ab 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x7
00ac 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x8
00ad 4801 |H | Short_Literal 0x1
00ae 00db | | Load_Top At_Offset_3
00af 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00b0 4801 |H | Short_Literal 0x1
00b1 00db | | Load_Top At_Offset_3
00b2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00b3 4800 |H | Short_Literal 0x0
00b4 00db | | Load_Top At_Offset_3
00b5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00b6 4800 |H | Short_Literal 0x0
00b7 00db | | Load_Top At_Offset_3
00b8 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
00b9 4800 |H | Short_Literal 0x0
00ba 00db | | Load_Top At_Offset_3
00bb 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
00bc 00da | | Load_Top At_Offset_2
00bd 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
00be 1c00 | | Execute_Immediate Run_Utility,0x0
00bf 4302 |C | Exit_Subprogram From_Utility,0x2
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3 | | .CONST 0x00c3 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0001 | | .CONST 0x0001 ; Number of locals
00c3 BODY_00c0:
00c3 INIT_00c0:
00c3 00da | | Load_Top At_Offset_2 ; Debug Table 0x5 = .DEBUG 0x00c3,0x0284,0x0002,0x0000,0x0036,0xe794,0x0000,0x0087
; Debug Table 0x5.0x0 = 0xc3,0x1
00c4 0227 | ' | Execute Access,All_Reference
00c5 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
00c6 0d08 | | Execute_Immediate Less,0x8
00c7 4401 |D | Exit_Subprogram With_Result,0x1
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb | | .CONST 0x00cb ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0001 | | .CONST 0x0001 ; Number of locals
00cb BODY_00c8:
00cb INIT_00c8:
00cb 00da | | Load_Top At_Offset_2 ; Debug Table 0x6 = .DEBUG 0x00cb,0x0288,0x0002,0x0000,0x0036,0xe794,0x0000,0x0090
; Debug Table 0x6.0x0 = 0xcb,0x1
00cc 0227 | ' | Execute Access,All_Reference
00cd 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
00ce 0c01 | | Execute_Immediate Greater_Equal,0x1
00cf 00db | | Load_Top At_Offset_3
00d0 0227 | ' | Execute Access,All_Reference
00d1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00d2 0278 | x | Execute Discrete,Or
00d3 4401 |D | Exit_Subprogram With_Result,0x1
00d4 0000 0000 | | .BLANK 0000[0x4]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00e3 | | .CONST 0x00e3 ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0002 | | .CONST 0x0002 ; Number of locals
00db INIT_00d8:
00db 00da | | Load_Top At_Offset_2 ; Debug Table 0x7 = .DEBUG 0x00db,0x028c,0x0001,0x0000,0x0036,0xe794,0x0000,0x0099
; Debug Table 0x7.0x0 = 0xdb,0xffff
00dc 0227 | ' | Execute Access,All_Reference
00dd 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
00de 00db | | Load_Top At_Offset_3
00df 0227 | ' | Execute Access,All_Reference
00e0 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
00e1 01d5 | | Execute Vector,Field_Reference
00e2 0007 | | Action Break_Optional
00e3 BODY_00d8:
00e3 4800 |H | Short_Literal 0x0 ; Debug Table 0x7.0x1 = 0xe3,0x1
00e4 e5ff | | Load 0x2,-0x1
00e5 0227 | ' | Execute Access,All_Reference
00e6 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00e7 e5fe | | Load 0x2,-0x2 ; Debug Table 0x7.0x2 = 0xe7,0x2
00e8 01db | | Execute Vector,Length
00e9 4900 |I | Short_Literal 0x100
00ea 027d | } | Execute Discrete,Greater
00eb 680d |h | Jump_Zero 0xf9
00ec 4801 |H | Short_Literal 0x1 ; Debug Table 0x7.0x3 = 0xec,0x3
00ed 4900 |I | Short_Literal 0x100
00ee e5fe | | Load 0x2,-0x2
00ef 01cf | | Execute Vector,Slice_Read
00f0 00d9 | | Load_Top At_Offset_1
00f1 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00f2 4801 |H | Short_Literal 0x1 ; Debug Table 0x7.0x4 = 0xf2,0x4
00f3 00d9 | | Load_Top At_Offset_1
00f4 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00f5 4900 |I | Short_Literal 0x100 ; Debug Table 0x7.0x5 = 0xf5,0x5
00f6 00d9 | | Load_Top At_Offset_1
00f7 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00f8 780e |x | Jump 0x107
00f9 e5fe | | Load 0x2,-0x2 ; Debug Table 0x7.0x6 = 0xf9,0x6
00fa 4801 |H | Short_Literal 0x1
00fb e5fe | | Load 0x2,-0x2
00fc 01db | | Execute Vector,Length
00fd 00db | | Load_Top At_Offset_3
00fe 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00ff 01ce | | Execute Vector,Slice_Write
0100 4801 |H | Short_Literal 0x1 ; Debug Table 0x7.0x7 = 0x100,0x7
0101 00d9 | | Load_Top At_Offset_1
0102 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0103 e5fe | | Load 0x2,-0x2 ; Debug Table 0x7.0x8 = 0x103,0x8
0104 01db | | Execute Vector,Length
0105 00d9 | | Load_Top At_Offset_1
0106 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0107 00db | | Load_Top At_Offset_3 ; Debug Table 0x7.0x9 = 0x107,0x9
0108 0227 | ' | Execute Access,All_Reference
0109 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
010a 0a01 | | Execute_Immediate Plus,0x1
010b 0248 | H | Execute Discrete,Check_In_Integer
010c 4807 |H | Short_Literal 0x7
010d 0279 | y | Execute Discrete,And
010e e5ff | | Load 0x2,-0x1
010f 0227 | ' | Execute Access,All_Reference
0110 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0111 00db | | Load_Top At_Offset_3 ; Debug Table 0x7.0xa = 0x111,0xa
0112 0227 | ' | Execute Access,All_Reference
0113 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0114 0a01 | | Execute_Immediate Plus,0x1
0115 e5ff | | Load 0x2,-0x1
0116 0227 | ' | Execute Access,All_Reference
0117 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0118 4503 |E | Exit_Subprogram 0x3
0119 0000 0000 | | .BLANK 0000[0x7]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123 | # | .CONST 0x0123 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0001 | | .CONST 0x0001 ; Number of locals
0123 BODY_0120:
0123 INIT_0120:
0123 4800 |H | Short_Literal 0x0 ; Debug Table 0x8 = .DEBUG 0x0123,0x02a4,0x0001,0x0000,0x0036,0xe794,0x0000,0x00a5
; Debug Table 0x8.0x0 = 0x123,0x1
0124 00db | | Load_Top At_Offset_3
0125 0227 | ' | Execute Access,All_Reference
0126 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0127 4800 |H | Short_Literal 0x0 ; Debug Table 0x8.0x1 = 0x127,0x2
0128 00db | | Load_Top At_Offset_3
0129 0227 | ' | Execute Access,All_Reference
012a 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
012b 4800 |H | Short_Literal 0x0 ; Debug Table 0x8.0x2 = 0x12b,0x3
012c 00db | | Load_Top At_Offset_3
012d 0227 | ' | Execute Access,All_Reference
012e 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
012f 4800 |H | Short_Literal 0x0 ; Debug Table 0x8.0x3 = 0x12f,0x4
0130 00db | | Load_Top At_Offset_3
0131 0227 | ' | Execute Access,All_Reference
0132 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0133 4502 |E | Exit_Subprogram 0x2
0134 0000 0000 | | .BLANK 0000[0x4]
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 4801 |H | Short_Literal 0x1 ; Debug Table 0x9 = .DEBUG 0x013b,0x02ae,0x0001,0x0000,0x0036,0xe794,0x0000,0x00ad
; Debug Table 0x9.0x0 = 0x13b,0x1
013c 00db | | Load_Top At_Offset_3
013d 0227 | ' | Execute Access,All_Reference
013e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
013f 4502 |E | Exit_Subprogram 0x2
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 014b | K | .CONST 0x014b ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0002 | | .CONST 0x0002 ; Number of locals
0143 INIT_0140:
0143 00da | | Load_Top At_Offset_2 ; Debug Table 0xa = .DEBUG 0x0143,0x02b2,0x0001,0x0000,0x0036,0xe794,0x0000,0x00b5
; Debug Table 0xa.0x0 = 0x143,0xffff
0144 0227 | ' | Execute Access,All_Reference
0145 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0146 00db | | Load_Top At_Offset_3
0147 0227 | ' | Execute Access,All_Reference
0148 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
0149 01d5 | | Execute Vector,Field_Reference
014a 0007 | | Action Break_Optional
014b BODY_0140:
014b 00db | | Load_Top At_Offset_3 ; Debug Table 0xa.0x1 = 0x14b,0x1
014c 0227 | ' | Execute Access,All_Reference
014d 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
014e 0c01 | | Execute_Immediate Greater_Equal,0x1
014f 6854 |hT | Jump_Zero 0x1a4
0150 e5fe | | Load 0x2,-0x2 ; Debug Table 0xa.0x2 = 0x150,0x2
0151 01db | | Execute Vector,Length
0152 00d9 | | Load_Top At_Offset_1
0153 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0154 027b | { | Execute Discrete,Greater_Equal
0155 682a |h* | Jump_Zero 0x180
0156 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xa.0x3 = 0x156,0x3
0157 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0158 00d9 | | Load_Top At_Offset_1
0159 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
015a 00da | | Load_Top At_Offset_2
015b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
015c 0273 | s | Execute Discrete,Plus
015d 0aff | | Execute_Immediate Plus,-0x1
015e 0248 | H | Execute Discrete,Check_In_Integer
015f 00da | | Load_Top At_Offset_2
0160 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0161 01cf | | Execute Vector,Slice_Read
0162 4801 |H | Short_Literal 0x1
0163 00da | | Load_Top At_Offset_2
0164 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0165 e5fe | | Load 0x2,-0x2
0166 01ce | | Execute Vector,Slice_Write
0167 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xa.0x4 = 0x167,0x4
0168 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0169 a5fd | | Store_Unchecked 0x2,-0x3
016a 4801 |H | Short_Literal 0x1 ; Debug Table 0xa.0x5 = 0x16a,0x5
016b e5ff | | Load 0x2,-0x1
016c 0227 | ' | Execute Access,All_Reference
016d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
016e 00db | | Load_Top At_Offset_3 ; Debug Table 0xa.0x6 = 0x16e,0x6
016f 0227 | ' | Execute Access,All_Reference
0170 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0171 0a01 | | Execute_Immediate Plus,0x1
0172 0248 | H | Execute Discrete,Check_In_Integer
0173 4807 |H | Short_Literal 0x7
0174 0279 | y | Execute Discrete,And
0175 e5ff | | Load 0x2,-0x1
0176 0227 | ' | Execute Access,All_Reference
0177 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0178 00db | | Load_Top At_Offset_3 ; Debug Table 0xa.0x7 = 0x178,0x7
0179 0227 | ' | Execute Access,All_Reference
017a 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
017b 0aff | | Execute_Immediate Plus,-0x1
017c e5ff | | Load 0x2,-0x1
017d 0227 | ' | Execute Access,All_Reference
017e 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
017f 4502 |E | Exit_Subprogram 0x2
0180 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xa.0x8 = 0x180,0x8
0181 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0182 00d9 | | Load_Top At_Offset_1
0183 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0184 e5fe | | Load 0x2,-0x2
0185 01db | | Execute Vector,Length
0186 0273 | s | Execute Discrete,Plus
0187 0aff | | Execute_Immediate Plus,-0x1
0188 0248 | H | Execute Discrete,Check_In_Integer
0189 00da | | Load_Top At_Offset_2
018a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
018b 01cf | | Execute Vector,Slice_Read
018c e5fe | | Load 0x2,-0x2
018d 01d4 | | Execute Vector,Structure_Write
018e e5fe | | Load 0x2,-0x2 ; Debug Table 0xa.0x9 = 0x18e,0x9
018f 01db | | Execute Vector,Length
0190 c5fd | | Store 0x2,-0x3
0191 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xa.0xa = 0x191,0xa
0192 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0193 e5fe | | Load 0x2,-0x2
0194 01db | | Execute Vector,Length
0195 0273 | s | Execute Discrete,Plus
0196 00d9 | | Load_Top At_Offset_1
0197 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0198 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xa.0xb = 0x198,0xb
0199 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
019a e5fe | | Load 0x2,-0x2
019b 01db | | Execute Vector,Length
019c 0272 | r | Execute Discrete,Minus
019d 00d9 | | Load_Top At_Offset_1
019e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
019f 4800 |H | Short_Literal 0x0 ; Debug Table 0xa.0xc = 0x19f,0xc
01a0 e5ff | | Load 0x2,-0x1
01a1 0227 | ' | Execute Access,All_Reference
01a2 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01a3 4502 |E | Exit_Subprogram 0x2
01a4 4800 |H | Short_Literal 0x0 ; Debug Table 0xa.0xd = 0x1a4,0xd
01a5 a5fd | | Store_Unchecked 0x2,-0x3
01a6 4801 |H | Short_Literal 0x1 ; Debug Table 0xa.0xe = 0x1a6,0xe
01a7 e5ff | | Load 0x2,-0x1
01a8 0227 | ' | Execute Access,All_Reference
01a9 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01aa 4502 |E | Exit_Subprogram 0x2
01ab 0000 0000 | | .BLANK 0000[0x5]
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 0xb = .DEBUG 0x01b3,0x02d2,0x0001,0x0000,0x0036,0xe794,0x0000,0x00c5
; Debug Table 0xb.0x0 = 0x1b3,0x1
01b4 0227 | ' | Execute Access,All_Reference
01b5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01b6 a5fe | | Store_Unchecked 0x2,-0x2
01b7 00da | | Load_Top At_Offset_2 ; Debug Table 0xb.0x1 = 0x1b7,0x2
01b8 0227 | ' | Execute Access,All_Reference
01b9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01ba 00db | | Load_Top At_Offset_3
01bb 0227 | ' | Execute Access,All_Reference
01bc 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
01bd 0f00 | | Execute_Immediate Equal,0x0
01be 0279 | y | Execute Discrete,And
01bf a5fd | | Store_Unchecked 0x2,-0x3
01c0 4502 |E | Exit_Subprogram 0x2
01c1 0000 0000 | | .BLANK 0000[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 4801 |H | Short_Literal 0x1 ; Debug Table 0xc = .DEBUG 0x01cb,0x02d8,0x0001,0x0000,0x0036,0xe794,0x0000,0x00d5
; Debug Table 0xc.0x0 = 0x1cb,0x1
01cc 00db | | Load_Top At_Offset_3
01cd 0227 | ' | Execute Access,All_Reference
01ce 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01cf 4801 |H | Short_Literal 0x1 ; Debug Table 0xc.0x1 = 0x1cf,0x2
01d0 00db | | Load_Top At_Offset_3
01d1 0227 | ' | Execute Access,All_Reference
01d2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01d3 4800 |H | Short_Literal 0x0 ; Debug Table 0xc.0x2 = 0x1d3,0x3
01d4 00db | | Load_Top At_Offset_3
01d5 0227 | ' | Execute Access,All_Reference
01d6 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
01d7 4800 |H | Short_Literal 0x0 ; Debug Table 0xc.0x3 = 0x1d7,0x4
01d8 00db | | Load_Top At_Offset_3
01d9 0227 | ' | Execute Access,All_Reference
01da 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01db 4800 |H | Short_Literal 0x0 ; Debug Table 0xc.0x4 = 0x1db,0x5
01dc 00db | | Load_Top At_Offset_3
01dd 0227 | ' | Execute Access,All_Reference
01de 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
01df 4502 |E | Exit_Subprogram 0x2
01e0 ; --------------------------------------------------------------------------------------
01e0 ; Debug Table
01e0 ; --------------------------------------------------------------------------------------
01e0 0003 000d | | .CONST 0x0003,0x000d
01e2 000b 024a | J| .DEBUG 0x000b,0x024a,0x8000,0x0000,0x0036,0xe794,0x0000,0x0003
01ea 005a 026c | Z l| .DEBUG 0x005a,0x026c,0x8000,0x0000,0x0037,0x01a4,0x0000,0x0003
01f2 0073 027e | s ~| .DEBUG 0x0073,0x027e,0x0005,0x0000,0x0036,0xe794,0x0000,0x001b
01fa 008b 0280 | | .DEBUG 0x008b,0x0280,0x0005,0x0000,0x0036,0xe794,0x0000,0x004c
0202 00a3 0282 | | .DEBUG 0x00a3,0x0282,0x0005,0x0000,0x0036,0xe794,0x0000,0x005a
020a 00c3 0284 | | .DEBUG 0x00c3,0x0284,0x0002,0x0000,0x0036,0xe794,0x0000,0x0087
0212 00cb 0288 | | .DEBUG 0x00cb,0x0288,0x0002,0x0000,0x0036,0xe794,0x0000,0x0090
021a 00db 028c | | .DEBUG 0x00db,0x028c,0x0001,0x0000,0x0036,0xe794,0x0000,0x0099
0222 0123 02a4 | # | .DEBUG 0x0123,0x02a4,0x0001,0x0000,0x0036,0xe794,0x0000,0x00a5
022a 013b 02ae | ; | .DEBUG 0x013b,0x02ae,0x0001,0x0000,0x0036,0xe794,0x0000,0x00ad
0232 0143 02b2 | C | .DEBUG 0x0143,0x02b2,0x0001,0x0000,0x0036,0xe794,0x0000,0x00b5
023a 01b3 02d2 | | .DEBUG 0x01b3,0x02d2,0x0001,0x0000,0x0036,0xe794,0x0000,0x00c5
0242 01cb 02d8 | | .DEBUG 0x01cb,0x02d8,0x0001,0x0000,0x0036,0xe794,0x0000,0x00d5
024a ; --------------------------------------------------------------------------------------
024a ; Debug3 Subtable 0x0
024a ; --------------------------------------------------------------------------------------
024a 0010 0000 | | .DBG3TAB 0x0010,0x0000
024c 000b ffff | | .CONST 0x000b,0xffff
024e 000c fffe | | .CONST 0x000c,0xfffe
0250 000d fffd | | .CONST 0x000d,0xfffd
0252 0011 fffc | | .CONST 0x0011,0xfffc
0254 001b fffb | | .CONST 0x001b,0xfffb
0256 0034 fffa | 4 | .CONST 0x0034,0xfffa
0258 003b fff9 | ; | .CONST 0x003b,0xfff9
025a 0045 fff8 | E | .CONST 0x0045,0xfff8
025c 0049 fff7 | I | .CONST 0x0049,0xfff7
025e 004b fff6 | K | .CONST 0x004b,0xfff6
0260 004d fff5 | M | .CONST 0x004d,0xfff5
0262 004f fff4 | O | .CONST 0x004f,0xfff4
0264 0051 fff3 | Q | .CONST 0x0051,0xfff3
0266 0053 fff2 | S | .CONST 0x0053,0xfff2
0268 0055 fff1 | U | .CONST 0x0055,0xfff1
026a 0057 fff0 | W | .CONST 0x0057,0xfff0
026c ; --------------------------------------------------------------------------------------
026c ; Debug3 Subtable 0x1
026c ; --------------------------------------------------------------------------------------
026c 0008 0000 | | .DBG3TAB 0x0008,0x0000
026e 005a ffff | Z | .CONST 0x005a,0xffff
0270 005c fffe | \ | .CONST 0x005c,0xfffe
0272 005e fffd | ^ | .CONST 0x005e,0xfffd
0274 0060 fffc | ` | .CONST 0x0060,0xfffc
0276 0062 fffb | b | .CONST 0x0062,0xfffb
0278 0064 fffa | d | .CONST 0x0064,0xfffa
027a 0066 fff9 | f | .CONST 0x0066,0xfff9
027c 0068 fff8 | h | .CONST 0x0068,0xfff8
027e ; --------------------------------------------------------------------------------------
027e ; Debug3 Subtable 0x2
027e ; --------------------------------------------------------------------------------------
027e 0000 0000 | | .DBG3TAB 0x0000,0x0000
0280 ; --------------------------------------------------------------------------------------
0280 ; Debug3 Subtable 0x3
0280 ; --------------------------------------------------------------------------------------
0280 0000 0000 | | .DBG3TAB 0x0000,0x0000
0282 ; --------------------------------------------------------------------------------------
0282 ; Debug3 Subtable 0x4
0282 ; --------------------------------------------------------------------------------------
0282 0000 0000 | | .DBG3TAB 0x0000,0x0000
0284 ; --------------------------------------------------------------------------------------
0284 ; Debug3 Subtable 0x5
0284 ; --------------------------------------------------------------------------------------
0284 0000 0001 | | .DBG3TAB 0x0000,0x0001
0286 00c3 0001 | | .CONST 0x00c3,0x0001
0288 ; --------------------------------------------------------------------------------------
0288 ; Debug3 Subtable 0x6
0288 ; --------------------------------------------------------------------------------------
0288 0000 0001 | | .DBG3TAB 0x0000,0x0001
028a 00cb 0001 | | .CONST 0x00cb,0x0001
028c ; --------------------------------------------------------------------------------------
028c ; Debug3 Subtable 0x7
028c ; --------------------------------------------------------------------------------------
028c 0001 000a | | .DBG3TAB 0x0001,0x000a
028e 00db ffff | | .CONST 0x00db,0xffff
0290 00e3 0001 | | .CONST 0x00e3,0x0001
0292 00e7 0002 | | .CONST 0x00e7,0x0002
0294 00ec 0003 | | .CONST 0x00ec,0x0003
0296 00f2 0004 | | .CONST 0x00f2,0x0004
0298 00f5 0005 | | .CONST 0x00f5,0x0005
029a 00f9 0006 | | .CONST 0x00f9,0x0006
029c 0100 0007 | | .CONST 0x0100,0x0007
029e 0103 0008 | | .CONST 0x0103,0x0008
02a0 0107 0009 | | .CONST 0x0107,0x0009
02a2 0111 000a | | .CONST 0x0111,0x000a
02a4 ; --------------------------------------------------------------------------------------
02a4 ; Debug3 Subtable 0x8
02a4 ; --------------------------------------------------------------------------------------
02a4 0000 0004 | | .DBG3TAB 0x0000,0x0004
02a6 0123 0001 | # | .CONST 0x0123,0x0001
02a8 0127 0002 | ' | .CONST 0x0127,0x0002
02aa 012b 0003 | + | .CONST 0x012b,0x0003
02ac 012f 0004 | / | .CONST 0x012f,0x0004
02ae ; --------------------------------------------------------------------------------------
02ae ; Debug3 Subtable 0x9
02ae ; --------------------------------------------------------------------------------------
02ae 0000 0001 | | .DBG3TAB 0x0000,0x0001
02b0 013b 0001 | ; | .CONST 0x013b,0x0001
02b2 ; --------------------------------------------------------------------------------------
02b2 ; Debug3 Subtable 0xa
02b2 ; --------------------------------------------------------------------------------------
02b2 0001 000e | | .DBG3TAB 0x0001,0x000e
02b4 0143 ffff | C | .CONST 0x0143,0xffff
02b6 014b 0001 | K | .CONST 0x014b,0x0001
02b8 0150 0002 | P | .CONST 0x0150,0x0002
02ba 0156 0003 | V | .CONST 0x0156,0x0003
02bc 0167 0004 | g | .CONST 0x0167,0x0004
02be 016a 0005 | j | .CONST 0x016a,0x0005
02c0 016e 0006 | n | .CONST 0x016e,0x0006
02c2 0178 0007 | x | .CONST 0x0178,0x0007
02c4 0180 0008 | | .CONST 0x0180,0x0008
02c6 018e 0009 | | .CONST 0x018e,0x0009
02c8 0191 000a | | .CONST 0x0191,0x000a
02ca 0198 000b | | .CONST 0x0198,0x000b
02cc 019f 000c | | .CONST 0x019f,0x000c
02ce 01a4 000d | | .CONST 0x01a4,0x000d
02d0 01a6 000e | | .CONST 0x01a6,0x000e
02d2 ; --------------------------------------------------------------------------------------
02d2 ; Debug3 Subtable 0xb
02d2 ; --------------------------------------------------------------------------------------
02d2 0000 0002 | | .DBG3TAB 0x0000,0x0002
02d4 01b3 0001 | | .CONST 0x01b3,0x0001
02d6 01b7 0002 | | .CONST 0x01b7,0x0002
02d8 ; --------------------------------------------------------------------------------------
02d8 ; Debug3 Subtable 0xc
02d8 ; --------------------------------------------------------------------------------------
02d8 0000 0005 | | .DBG3TAB 0x0000,0x0005
02da 01cb 0001 | | .CONST 0x01cb,0x0001
02dc 01cf 0002 | | .CONST 0x01cf,0x0002
02de 01d3 0003 | | .CONST 0x01d3,0x0003
02e0 01d7 0004 | | .CONST 0x01d7,0x0004
02e2 01db 0005 | | .CONST 0x01db,0x0005
02e4 0000 0000 | | .BLANK 0000[0x11c]