|
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_0ea8df
└─⟦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 01b8 | | .CONST 0x01b8 ; 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 0079 | y | .CONST 0x0079 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0021 | ! | .CONST 0x0021 ; Number of locals
000b INIT_0008:
000b 4804 |H | Short_Literal 0x4 ; Debug Table 0x0 = .DEBUG 0x000b,0x0242,0xc000,0x0000,0x002c,0xbb94,0x0000,0x0009
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 032b | + | Declare_Type Record,Incomplete,Visible
000d 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x1 = 0xd,0xfffe
000e 4801 |H | Short_Literal 0x1
000f 029f 0083 | | Declare_Subprogram For_Call,INIT_0080
0011 03fe | | Declare_Type Discrete,Defined,Visible
0012 029a 009b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0098 ; Debug Table 0x0.0x2 = 0x12,0xfffd
0014 029a 00bb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00b8 ; Debug Table 0x0.0x3 = 0x14,0xfffc
0016 029a 00db | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00d8 ; Debug Table 0x0.0x4 = 0x16,0xfffb
0018 029a 00f3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00f0 ; Debug Table 0x0.0x5 = 0x18,0xfffa
001a 029a 0103 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0100 ; Debug Table 0x0.0x6 = 0x1a,0xfff9
001c 029a 011b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0118 ; Debug Table 0x0.0x7 = 0x1c,0xfff8
001e 029a 0133 | 3| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0130 ; Debug Table 0x0.0x8 = 0x1e,0xfff7
0020 029a 013b | ;| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0138 ; Debug Table 0x0.0x9 = 0x20,0xfff6
0022 029a 0143 | C| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0140 ; Debug Table 0x0.0xa = 0x22,0xfff5
0024 029a 014b | K| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0148 ; Debug Table 0x0.0xb = 0x24,0xfff4
0026 029a 0153 | S| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0150 ; Debug Table 0x0.0xc = 0x26,0xfff3
0028 029a 0163 | c| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0160 ; Debug Table 0x0.0xd = 0x28,0xfff2
002a 029a 0173 | s| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0170 ; Debug Table 0x0.0xe = 0x2a,0xfff1
002c 0007 | | Action Break_Optional ; Debug Table 0x0.0xf = 0x2c,0xfff0
002d 0007 | | Action Break_Optional ; Debug Table 0x0.0x10 = 0x2d,0xffef
002e 0007 | | Action Break_Optional ; Debug Table 0x0.0x11 = 0x2e,0xffee
002f 0007 | | Action Break_Optional ; Debug Table 0x0.0x12 = 0x2f,0xffed
0030 0007 | | Action Break_Optional ; Debug Table 0x0.0x13 = 0x30,0xffec
0031 0007 | | Action Break_Optional ; Debug Table 0x0.0x14 = 0x31,0xffeb
0032 0007 | | Action Break_Optional ; Debug Table 0x0.0x15 = 0x32,0xffea
0033 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x16 = 0x33,0xffe9
0034 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0035 e211 | | Load 0x1,0x11
0036 4840 |H@ | Short_Literal 0x40
0037 e002 | | Load 0x0,0x2
0038 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0039 1c07 | | Execute_Immediate Run_Utility,0x7
003a 00e1 | | Load_Encached Boolean_Cache
003b 029f 0183 | | Declare_Subprogram For_Call,INIT_0180
003d e210 | | Load 0x1,0x10
003e 0326 | & | Complete_Type Record,By_Defining
003f 00bf | | Action Accept_Activation
0040 e211 | | Load 0x1,0x11 ; Debug Table 0x1 = .DEBUG 0x0040,0x0272,0xc000,0x0000,0x002c,0xbbd4,0x0000,0x0003
; Debug Table 0x1.0x0 = 0x40,0xffff
0041 0266 | f | Execute Discrete,Bounds
0042 e001 | | Load 0x0,0x1
0043 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0044 02a0 | | Declare_Subprogram Null_Subprogram
0045 4801 |H | Short_Literal 0x1
0046 035d | ] | Declare_Type Array,Defined
0047 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x1 = 0x47,0xfffe
0048 0337 | 7 | Declare_Variable Array
0049 00d9 | | Load_Top At_Offset_1
004a 0337 | 7 | Declare_Variable Array
004b 4800 |H | Short_Literal 0x0
004c 4800 |H | Short_Literal 0x0
004d 00da | | Load_Top At_Offset_2
004e 01d6 | | Execute Vector,Field_Write
004f 4801 |H | Short_Literal 0x1
0050 4801 |H | Short_Literal 0x1
0051 00da | | Load_Top At_Offset_2
0052 01d6 | | Execute Vector,Field_Write
0053 00da | | Load_Top At_Offset_2
0054 01c3 | | Execute Vector,Check_In_Type
0055 00d9 | | Load_Top At_Offset_1
0056 01d4 | | Execute Vector,Structure_Write
0057 614c |aL | Indirect_Literal Discrete,0x1a4,{0x00000000, 0x002cbbd4} ; Debug Table 0x1.0x2 = 0x57,0xfffd
0058 4823 |H# | Short_Literal 0x23
0059 e20f | | Load 0x1,0xf
005a e001 | | Load 0x0,0x1
005b 1b14 | | Execute Package,Field_Read,Field_Number 0x14
005c 0387 | | Declare_Variable Package
005d 00d8 | | Load_Top At_Offset_0
005e 020f | | Execute Module,Activate
005f 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x3 = 0x5f,0xfffc
0060 00c7 | | Action Elaborate_Subprogram
0061 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0x4 = 0x61,0xfffb
0062 00c7 | | Action Elaborate_Subprogram
0063 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0x5 = 0x63,0xfffa
0064 00c7 | | Action Elaborate_Subprogram
0065 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0x6 = 0x65,0xfff9
0066 00c7 | | Action Elaborate_Subprogram
0067 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x1.0x7 = 0x67,0xfff8
0068 00c7 | | Action Elaborate_Subprogram
0069 1d17 | | Execute_Immediate Reference_Lex_1,0x17 ; Debug Table 0x1.0x8 = 0x69,0xfff7
006a 00c7 | | Action Elaborate_Subprogram
006b 1d18 | | Execute_Immediate Reference_Lex_1,0x18 ; Debug Table 0x1.0x9 = 0x6b,0xfff6
006c 00c7 | | Action Elaborate_Subprogram
006d 1d19 | | Execute_Immediate Reference_Lex_1,0x19 ; Debug Table 0x1.0xa = 0x6d,0xfff5
006e 00c7 | | Action Elaborate_Subprogram
006f 1d1a | | Execute_Immediate Reference_Lex_1,0x1a ; Debug Table 0x1.0xb = 0x6f,0xfff4
0070 00c7 | | Action Elaborate_Subprogram
0071 1d1b | | Execute_Immediate Reference_Lex_1,0x1b ; Debug Table 0x1.0xc = 0x71,0xfff3
0072 00c7 | | Action Elaborate_Subprogram
0073 1d1c | | Execute_Immediate Reference_Lex_1,0x1c ; Debug Table 0x1.0xd = 0x73,0xfff2
0074 00c7 | | Action Elaborate_Subprogram
0075 1d1d | | Execute_Immediate Reference_Lex_1,0x1d ; Debug Table 0x1.0xe = 0x75,0xfff1
0076 00c7 | | Action Elaborate_Subprogram
0077 1d1e | | Execute_Immediate Reference_Lex_1,0x1e ; Debug Table 0x1.0xf = 0x77,0xfff0
0078 00c7 | | Action Elaborate_Subprogram
0079 BODY_0008:
0079 00bc | | Action Signal_Activated
007a 00bb | | Action Signal_Completion
007b 0000 0000 | | .BLANK 0000[0x5]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083 | | .CONST 0x0083 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0001 | | .CONST 0x0001 ; Number of locals
0083 BODY_0080:
0083 INIT_0080:
0083 4603 |F | Jump_Case 0x3 ; Debug Table 0x2 = .DEBUG 0x0083,0x0294,0x1005,0x0000,0x002c,0xbb94,0x0000,0x0013
0084 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
0085 7802 |x | Jump 0x88 ; case 0x1
0086 7805 |x | Jump 0x8c ; case 0x2
0087 7809 |x | Jump 0x91 ; case 0x3
0088 00da | | Load_Top At_Offset_2
0089 0091 01a8 | | Action Push_String_Extended_Indexed,0x1a8 ; "IN_FILE"
008b 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
008c 00db | | Load_Top At_Offset_3
008d 00db | | Load_Top At_Offset_3
008e 00e0 | | Load_Encached Standard_Cache
008f 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0090 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0091 00da | | Load_Top At_Offset_2
0092 00e0 | | Load_Encached Standard_Cache
0093 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0094 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0095 0000 0000 | | .XXX[0x3]
0097 0000 | |
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b | | .CONST 0x009b ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0001 | | .CONST 0x0001 ; Number of locals
009b BODY_0098:
009b INIT_0098:
009b e5fc | | Load 0x2,-0x4 ; Debug Table 0x3 = .DEBUG 0x009b,0x0296,0x1001,0x0000,0x002c,0xbb94,0x0000,0x0019
; Debug Table 0x3.0x0 = 0x9b,0x1
009c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
009d 4865 |He | Short_Literal 0x65
009e e5fe | | Load 0x2,-0x2
009f e5ff | | Load 0x2,-0x1
00a0 e220 | | Load 0x1,0x20
00a1 01d7 | | Execute Vector,Field_Read
00a2 e001 | | Load 0x0,0x1
00a3 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00a4 e5fc | | Load 0x2,-0x4
00a5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00a6 e5fc | | Load 0x2,-0x4 ; Debug Table 0x3.0x1 = 0xa6,0x2
00a7 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00a8 e5fe | | Load 0x2,-0x2
00a9 e002 | | Load 0x0,0x2
00aa 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00ab 00d1 | | Pop_Control Pop_Count_1
00ac 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0x2 = 0xac,0x3
00ad e5fc | | Load 0x2,-0x4
00ae 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00af 4801 |H | Short_Literal 0x1 ; Debug Table 0x3.0x3 = 0xaf,0x4
00b0 e5fc | | Load 0x2,-0x4
00b1 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
00b2 4504 |E | Exit_Subprogram 0x4
00b3 0000 0000 | | .BLANK 0000[0x5]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb | | .CONST 0x00bb ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0001 | | .CONST 0x0001 ; Number of locals
00bb BODY_00b8:
00bb INIT_00b8:
00bb e5fc | | Load 0x2,-0x4 ; Debug Table 0x4 = .DEBUG 0x00bb,0x02a0,0x1001,0x0000,0x002c,0xbb94,0x0000,0x0030
; Debug Table 0x4.0x0 = 0xbb,0x1
00bc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00bd 4865 |He | Short_Literal 0x65
00be e5fe | | Load 0x2,-0x2
00bf e5ff | | Load 0x2,-0x1
00c0 e220 | | Load 0x1,0x20
00c1 01d7 | | Execute Vector,Field_Read
00c2 e001 | | Load 0x0,0x1
00c3 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00c4 e5fc | | Load 0x2,-0x4
00c5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00c6 e5fc | | Load 0x2,-0x4 ; Debug Table 0x4.0x1 = 0xc6,0x2
00c7 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00c8 e5fe | | Load 0x2,-0x2
00c9 e002 | | Load 0x0,0x2
00ca 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00cb 00d1 | | Pop_Control Pop_Count_1
00cc 00da | | Load_Top At_Offset_2 ; Debug Table 0x4.0x2 = 0xcc,0x3
00cd e5fc | | Load 0x2,-0x4
00ce 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00cf 4801 |H | Short_Literal 0x1 ; Debug Table 0x4.0x3 = 0xcf,0x4
00d0 e5fc | | Load 0x2,-0x4
00d1 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
00d2 4504 |E | Exit_Subprogram 0x4
00d3 0000 0000 | | .BLANK 0000[0x5]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db | | .CONST 0x00db ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0001 | | .CONST 0x0001 ; Number of locals
00db BODY_00d8:
00db INIT_00d8:
00db 00da | | Load_Top At_Offset_2 ; Debug Table 0x5 = .DEBUG 0x00db,0x02aa,0x1001,0x0000,0x002c,0xbb94,0x0000,0x0045
; Debug Table 0x5.0x0 = 0xdb,0x1
00dc 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
00dd 6807 |h | Jump_Zero 0xe5
00de 00da | | Load_Top At_Offset_2 ; Debug Table 0x5.0x1 = 0xde,0x2
00df 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00e0 4801 |H | Short_Literal 0x1
00e1 e001 | | Load 0x0,0x1
00e2 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00e3 00db | | Load_Top At_Offset_3
00e4 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00e5 4800 |H | Short_Literal 0x0 ; Debug Table 0x5.0x2 = 0xe5,0x3
00e6 00db | | Load_Top At_Offset_3
00e7 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
00e8 4501 |E | Exit_Subprogram 0x1
00e9 0000 0000 | | .BLANK 0000[0x7]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3 | | .CONST 0x00f3 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0001 | | .CONST 0x0001 ; Number of locals
00f3 BODY_00f0:
00f3 INIT_00f0:
00f3 00da | | Load_Top At_Offset_2 ; Debug Table 0x6 = .DEBUG 0x00f3,0x02b2,0x1001,0x0000,0x002c,0xbb94,0x0000,0x004d
; Debug Table 0x6.0x0 = 0xf3,0x1
00f4 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
00f5 e002 | | Load 0x0,0x2
00f6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00f7 e001 | | Load 0x0,0x1
00f8 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00f9 4800 |H | Short_Literal 0x0 ; Debug Table 0x6.0x1 = 0xf9,0x2
00fa 00db | | Load_Top At_Offset_3
00fb 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
00fc 4501 |E | Exit_Subprogram 0x1
00fd 0000 0000 | | .XXX[0x3]
00ff 0000 | |
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 00db | | Load_Top At_Offset_3 ; Debug Table 0x7 = .DEBUG 0x0103,0x02b8,0x1001,0x0000,0x002c,0xbb94,0x0000,0x0055
; Debug Table 0x7.0x0 = 0x103,0x1
0104 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0105 6807 |h | Jump_Zero 0x10d
0106 00db | | Load_Top At_Offset_3 ; Debug Table 0x7.0x1 = 0x106,0x2
0107 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0108 4801 |H | Short_Literal 0x1
0109 e001 | | Load 0x0,0x1
010a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
010b e5fe | | Load 0x2,-0x2
010c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
010d 00db | | Load_Top At_Offset_3 ; Debug Table 0x7.0x2 = 0x10d,0x3
010e 00ea | | Load_Encached Null_String_Cache
010f e5fe | | Load 0x2,-0x2
0110 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0111 e002 | | Load 0x0,0x2
0112 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0113 e5ff | | Load 0x2,-0x1
0114 8213 | | Call 0x1,0x13
0115 4502 |E | Exit_Subprogram 0x2
0116 0000 0000 | | .XXX[0x2]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b | | .CONST 0x011b ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0001 | | .CONST 0x0001 ; Number of locals
011b BODY_0118:
011b INIT_0118:
011b 00da | | Load_Top At_Offset_2 ; Debug Table 0x8 = .DEBUG 0x011b,0x02c0,0x1001,0x0000,0x002c,0xbb94,0x0000,0x0061
; Debug Table 0x8.0x0 = 0x11b,0x1
011c 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
011d 6807 |h | Jump_Zero 0x125
011e 00da | | Load_Top At_Offset_2 ; Debug Table 0x8.0x1 = 0x11e,0x2
011f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0120 4801 |H | Short_Literal 0x1
0121 e001 | | Load 0x0,0x1
0122 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0123 00db | | Load_Top At_Offset_3
0124 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0125 00da | | Load_Top At_Offset_2 ; Debug Table 0x8.0x2 = 0x125,0x3
0126 00ea | | Load_Encached Null_String_Cache
0127 e5ff | | Load 0x2,-0x1
0128 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0129 e002 | | Load 0x0,0x2
012a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
012b e5ff | | Load 0x2,-0x1
012c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
012d 8213 | | Call 0x1,0x13
012e 4501 |E | Exit_Subprogram 0x1
012f 0000 | | .XXX[0x1]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133 | 3 | .CONST 0x0133 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0001 | | .CONST 0x0001 ; Number of locals
0133 BODY_0130:
0133 INIT_0130:
0133 00da | | Load_Top At_Offset_2 ; Debug Table 0x9 = .DEBUG 0x0133,0x02c8,0x1002,0x0000,0x002c,0xbb94,0x0000,0x0069
; Debug Table 0x9.0x0 = 0x133,0x1
0134 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0135 4401 |D | Exit_Subprogram With_Result,0x1
0136 0000 0000 | | .XXX[0x2]
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 00da | | Load_Top At_Offset_2 ; Debug Table 0xa = .DEBUG 0x013b,0x02cc,0x1002,0x0000,0x002c,0xbb94,0x0000,0x0072
; Debug Table 0xa.0x0 = 0x13b,0x1
013c 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
013d e002 | | Load 0x0,0x2
013e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
013f 4401 |D | Exit_Subprogram With_Result,0x1
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143 | C | .CONST 0x0143 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0001 | | .CONST 0x0001 ; Number of locals
0143 BODY_0140:
0143 INIT_0140:
0143 00ea | | Load_Encached Null_String_Cache ; Debug Table 0xb = .DEBUG 0x0143,0x02d0,0x1002,0x0000,0x002c,0xbb94,0x0000,0x007b
; Debug Table 0xb.0x0 = 0x143,0x1
0144 4401 |D | Exit_Subprogram With_Result,0x1
0145 0000 0000 | | .XXX[0x3]
0147 0000 | |
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b | K | .CONST 0x014b ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0001 | | .CONST 0x0001 ; Number of locals
014b BODY_0148:
014b INIT_0148:
014b 00da | | Load_Top At_Offset_2 ; Debug Table 0xc = .DEBUG 0x014b,0x02d4,0x1002,0x0000,0x002c,0xbb94,0x0000,0x0084
; Debug Table 0xc.0x0 = 0x14b,0x1
014c 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
014d 4401 |D | Exit_Subprogram With_Result,0x1
014e 0000 0000 | | .XXX[0x2]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153 | S | .CONST 0x0153 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0001 | | .CONST 0x0001 ; Number of locals
0153 BODY_0150:
0153 INIT_0150:
0153 4800 |H | Short_Literal 0x0 ; Debug Table 0xd = .DEBUG 0x0153,0x02d8,0x1001,0x0000,0x002c,0xbb94,0x0000,0x008d
; Debug Table 0xd.0x0 = 0x153,0x1
0154 00db | | Load_Top At_Offset_3
0155 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0156 e221 | ! | Load 0x1,0x21
0157 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0158 c5fe | | Store 0x2,-0x2
0159 4502 |E | Exit_Subprogram 0x2
015a 0000 0000 | | .BLANK 0000[0x6]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163 | c | .CONST 0x0163 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0001 | | .CONST 0x0001 ; Number of locals
0163 BODY_0160:
0163 INIT_0160:
0163 00db | | Load_Top At_Offset_3 ; Debug Table 0xe = .DEBUG 0x0163,0x02dc,0x1001,0x0000,0x002c,0xbb94,0x0000,0x0099
; Debug Table 0xe.0x0 = 0x163,0x1
0164 e20f | | Load 0x1,0xf
0165 0119 | | Execute Any,Check_In_Formal_Type
0166 00db | | Load_Top At_Offset_3
0167 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0168 e221 | ! | Load 0x1,0x21
0169 1811 | | Execute Package,Field_Execute,Field_Number 0x11
016a 4503 |E | Exit_Subprogram 0x3
016b 0000 0000 | | .BLANK 0000[0x5]
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 4800 |H | Short_Literal 0x0 ; Debug Table 0xf = .DEBUG 0x0173,0x02e0,0x1002,0x0000,0x002c,0xbb94,0x0000,0x00a5
; Debug Table 0xf.0x0 = 0x173,0x1
0174 00db | | Load_Top At_Offset_3
0175 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0176 e001 | | Load 0x0,0x1
0177 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0178 4401 |D | Exit_Subprogram With_Result,0x1
0179 0000 0000 | | .BLANK 0000[0x7]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183 | | .CONST 0x0183 ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0001 | | .CONST 0x0001 ; Number of locals
0183 BODY_0180:
0183 INIT_0180:
0183 4608 |F | Jump_Case 0x8 ; Debug Table 0x10 = .DEBUG 0x0183,0x02e4,0x1005,0x0000,0x002c,0xbb94,0x0000,0x00e0
0184 7808 |x | Jump 0x18d ; case 0x0
0185 7817 |x | Jump 0x19d ; case 0x1
0186 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x2
0187 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x3
0188 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x4
0189 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x5
018a 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x6
018b 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x7
018c 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x8
018d 00da | | Load_Top At_Offset_2
018e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
018f 0125 | % | Execute Any,Set_Constraint
0190 00da | | Load_Top At_Offset_2
0191 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0192 1c00 | | Execute_Immediate Run_Utility,0x0
0193 00da | | Load_Top At_Offset_2
0194 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0195 0125 | % | Execute Any,Set_Constraint
0196 00da | | Load_Top At_Offset_2
0197 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0198 1c00 | | Execute_Immediate Run_Utility,0x0
0199 4800 |H | Short_Literal 0x0
019a 00db | | Load_Top At_Offset_3
019b 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
019c 4302 |C | Exit_Subprogram From_Utility,0x2
019d 00da | | Load_Top At_Offset_2
019e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
019f 0125 | % | Execute Any,Set_Constraint
01a0 00da | | Load_Top At_Offset_2
01a1 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
01a2 0125 | % | Execute Any,Set_Constraint
01a3 4302 |C | Exit_Subprogram From_Utility,0x2
01a4 0000 0000 | | .LITERAL {0x00000000, 0x002cbbd4}
01a8 ; --------------------------------------------------------------------------------------
01a8 ; STRING TABLE
01a8 ; --------------------------------------------------------------------------------------
01a8 0006 | | .STRTAB 0x0006->0x01ab ; "IN_FILE"
01a9 000b | | .STRTAB 0x000b->0x01ae ; "OUT_FILE"
01aa 0011 | | .STREND 0x0011->0x01b2
01ab 494e 5f46 |IN_F| .STRTAB_STRINGS
01b3 0000 0000 | | .BLANK 0000[0x5]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; Debug Table
01b8 ; --------------------------------------------------------------------------------------
01b8 0003 0011 | | .CONST 0x0003,0x0011
01ba 000b 0242 | B| .DEBUG 0x000b,0x0242,0xc000,0x0000,0x002c,0xbb94,0x0000,0x0009
01c2 0040 0272 | @ r| .DEBUG 0x0040,0x0272,0xc000,0x0000,0x002c,0xbbd4,0x0000,0x0003
01ca 0083 0294 | | .DEBUG 0x0083,0x0294,0x1005,0x0000,0x002c,0xbb94,0x0000,0x0013
01d2 009b 0296 | | .DEBUG 0x009b,0x0296,0x1001,0x0000,0x002c,0xbb94,0x0000,0x0019
01da 00bb 02a0 | | .DEBUG 0x00bb,0x02a0,0x1001,0x0000,0x002c,0xbb94,0x0000,0x0030
01e2 00db 02aa | | .DEBUG 0x00db,0x02aa,0x1001,0x0000,0x002c,0xbb94,0x0000,0x0045
01ea 00f3 02b2 | | .DEBUG 0x00f3,0x02b2,0x1001,0x0000,0x002c,0xbb94,0x0000,0x004d
01f2 0103 02b8 | | .DEBUG 0x0103,0x02b8,0x1001,0x0000,0x002c,0xbb94,0x0000,0x0055
01fa 011b 02c0 | | .DEBUG 0x011b,0x02c0,0x1001,0x0000,0x002c,0xbb94,0x0000,0x0061
0202 0133 02c8 | 3 | .DEBUG 0x0133,0x02c8,0x1002,0x0000,0x002c,0xbb94,0x0000,0x0069
020a 013b 02cc | ; | .DEBUG 0x013b,0x02cc,0x1002,0x0000,0x002c,0xbb94,0x0000,0x0072
0212 0143 02d0 | C | .DEBUG 0x0143,0x02d0,0x1002,0x0000,0x002c,0xbb94,0x0000,0x007b
021a 014b 02d4 | K | .DEBUG 0x014b,0x02d4,0x1002,0x0000,0x002c,0xbb94,0x0000,0x0084
0222 0153 02d8 | S | .DEBUG 0x0153,0x02d8,0x1001,0x0000,0x002c,0xbb94,0x0000,0x008d
022a 0163 02dc | c | .DEBUG 0x0163,0x02dc,0x1001,0x0000,0x002c,0xbb94,0x0000,0x0099
0232 0173 02e0 | s | .DEBUG 0x0173,0x02e0,0x1002,0x0000,0x002c,0xbb94,0x0000,0x00a5
023a 0183 02e4 | | .DEBUG 0x0183,0x02e4,0x1005,0x0000,0x002c,0xbb94,0x0000,0x00e0
0242 ; --------------------------------------------------------------------------------------
0242 ; Debug3 Subtable 0x0
0242 ; --------------------------------------------------------------------------------------
0242 0017 0000 | | .DBG3TAB 0x0017,0x0000
0244 000b ffff | | .CONST 0x000b,0xffff
0246 000d fffe | | .CONST 0x000d,0xfffe
0248 0012 fffd | | .CONST 0x0012,0xfffd
024a 0014 fffc | | .CONST 0x0014,0xfffc
024c 0016 fffb | | .CONST 0x0016,0xfffb
024e 0018 fffa | | .CONST 0x0018,0xfffa
0250 001a fff9 | | .CONST 0x001a,0xfff9
0252 001c fff8 | | .CONST 0x001c,0xfff8
0254 001e fff7 | | .CONST 0x001e,0xfff7
0256 0020 fff6 | | .CONST 0x0020,0xfff6
0258 0022 fff5 | " | .CONST 0x0022,0xfff5
025a 0024 fff4 | $ | .CONST 0x0024,0xfff4
025c 0026 fff3 | & | .CONST 0x0026,0xfff3
025e 0028 fff2 | ( | .CONST 0x0028,0xfff2
0260 002a fff1 | * | .CONST 0x002a,0xfff1
0262 002c fff0 | , | .CONST 0x002c,0xfff0
0264 002d ffef | - | .CONST 0x002d,0xffef
0266 002e ffee | . | .CONST 0x002e,0xffee
0268 002f ffed | / | .CONST 0x002f,0xffed
026a 0030 ffec | 0 | .CONST 0x0030,0xffec
026c 0031 ffeb | 1 | .CONST 0x0031,0xffeb
026e 0032 ffea | 2 | .CONST 0x0032,0xffea
0270 0033 ffe9 | 3 | .CONST 0x0033,0xffe9
0272 ; --------------------------------------------------------------------------------------
0272 ; Debug3 Subtable 0x1
0272 ; --------------------------------------------------------------------------------------
0272 0010 0000 | | .DBG3TAB 0x0010,0x0000
0274 0040 ffff | @ | .CONST 0x0040,0xffff
0276 0047 fffe | G | .CONST 0x0047,0xfffe
0278 0057 fffd | W | .CONST 0x0057,0xfffd
027a 005f fffc | _ | .CONST 0x005f,0xfffc
027c 0061 fffb | a | .CONST 0x0061,0xfffb
027e 0063 fffa | c | .CONST 0x0063,0xfffa
0280 0065 fff9 | e | .CONST 0x0065,0xfff9
0282 0067 fff8 | g | .CONST 0x0067,0xfff8
0284 0069 fff7 | i | .CONST 0x0069,0xfff7
0286 006b fff6 | k | .CONST 0x006b,0xfff6
0288 006d fff5 | m | .CONST 0x006d,0xfff5
028a 006f fff4 | o | .CONST 0x006f,0xfff4
028c 0071 fff3 | q | .CONST 0x0071,0xfff3
028e 0073 fff2 | s | .CONST 0x0073,0xfff2
0290 0075 fff1 | u | .CONST 0x0075,0xfff1
0292 0077 fff0 | w | .CONST 0x0077,0xfff0
0294 ; --------------------------------------------------------------------------------------
0294 ; Debug3 Subtable 0x2
0294 ; --------------------------------------------------------------------------------------
0294 0000 0000 | | .DBG3TAB 0x0000,0x0000
0296 ; --------------------------------------------------------------------------------------
0296 ; Debug3 Subtable 0x3
0296 ; --------------------------------------------------------------------------------------
0296 0000 0004 | | .DBG3TAB 0x0000,0x0004
0298 009b 0001 | | .CONST 0x009b,0x0001
029a 00a6 0002 | | .CONST 0x00a6,0x0002
029c 00ac 0003 | | .CONST 0x00ac,0x0003
029e 00af 0004 | | .CONST 0x00af,0x0004
02a0 ; --------------------------------------------------------------------------------------
02a0 ; Debug3 Subtable 0x4
02a0 ; --------------------------------------------------------------------------------------
02a0 0000 0004 | | .DBG3TAB 0x0000,0x0004
02a2 00bb 0001 | | .CONST 0x00bb,0x0001
02a4 00c6 0002 | | .CONST 0x00c6,0x0002
02a6 00cc 0003 | | .CONST 0x00cc,0x0003
02a8 00cf 0004 | | .CONST 0x00cf,0x0004
02aa ; --------------------------------------------------------------------------------------
02aa ; Debug3 Subtable 0x5
02aa ; --------------------------------------------------------------------------------------
02aa 0000 0003 | | .DBG3TAB 0x0000,0x0003
02ac 00db 0001 | | .CONST 0x00db,0x0001
02ae 00de 0002 | | .CONST 0x00de,0x0002
02b0 00e5 0003 | | .CONST 0x00e5,0x0003
02b2 ; --------------------------------------------------------------------------------------
02b2 ; Debug3 Subtable 0x6
02b2 ; --------------------------------------------------------------------------------------
02b2 0000 0002 | | .DBG3TAB 0x0000,0x0002
02b4 00f3 0001 | | .CONST 0x00f3,0x0001
02b6 00f9 0002 | | .CONST 0x00f9,0x0002
02b8 ; --------------------------------------------------------------------------------------
02b8 ; Debug3 Subtable 0x7
02b8 ; --------------------------------------------------------------------------------------
02b8 0000 0003 | | .DBG3TAB 0x0000,0x0003
02ba 0103 0001 | | .CONST 0x0103,0x0001
02bc 0106 0002 | | .CONST 0x0106,0x0002
02be 010d 0003 | | .CONST 0x010d,0x0003
02c0 ; --------------------------------------------------------------------------------------
02c0 ; Debug3 Subtable 0x8
02c0 ; --------------------------------------------------------------------------------------
02c0 0000 0003 | | .DBG3TAB 0x0000,0x0003
02c2 011b 0001 | | .CONST 0x011b,0x0001
02c4 011e 0002 | | .CONST 0x011e,0x0002
02c6 0125 0003 | % | .CONST 0x0125,0x0003
02c8 ; --------------------------------------------------------------------------------------
02c8 ; Debug3 Subtable 0x9
02c8 ; --------------------------------------------------------------------------------------
02c8 0000 0001 | | .DBG3TAB 0x0000,0x0001
02ca 0133 0001 | 3 | .CONST 0x0133,0x0001
02cc ; --------------------------------------------------------------------------------------
02cc ; Debug3 Subtable 0xa
02cc ; --------------------------------------------------------------------------------------
02cc 0000 0001 | | .DBG3TAB 0x0000,0x0001
02ce 013b 0001 | ; | .CONST 0x013b,0x0001
02d0 ; --------------------------------------------------------------------------------------
02d0 ; Debug3 Subtable 0xb
02d0 ; --------------------------------------------------------------------------------------
02d0 0000 0001 | | .DBG3TAB 0x0000,0x0001
02d2 0143 0001 | C | .CONST 0x0143,0x0001
02d4 ; --------------------------------------------------------------------------------------
02d4 ; Debug3 Subtable 0xc
02d4 ; --------------------------------------------------------------------------------------
02d4 0000 0001 | | .DBG3TAB 0x0000,0x0001
02d6 014b 0001 | K | .CONST 0x014b,0x0001
02d8 ; --------------------------------------------------------------------------------------
02d8 ; Debug3 Subtable 0xd
02d8 ; --------------------------------------------------------------------------------------
02d8 0000 0001 | | .DBG3TAB 0x0000,0x0001
02da 0153 0001 | S | .CONST 0x0153,0x0001
02dc ; --------------------------------------------------------------------------------------
02dc ; Debug3 Subtable 0xe
02dc ; --------------------------------------------------------------------------------------
02dc 0000 0001 | | .DBG3TAB 0x0000,0x0001
02de 0163 0001 | c | .CONST 0x0163,0x0001
02e0 ; --------------------------------------------------------------------------------------
02e0 ; Debug3 Subtable 0xf
02e0 ; --------------------------------------------------------------------------------------
02e0 0000 0001 | | .DBG3TAB 0x0000,0x0001
02e2 0173 0001 | s | .CONST 0x0173,0x0001
02e4 ; --------------------------------------------------------------------------------------
02e4 ; Debug3 Subtable 0x10
02e4 ; --------------------------------------------------------------------------------------
02e4 0000 0000 | | .DBG3TAB 0x0000,0x0000
02e6 0000 0000 | | .BLANK 0000[0x11a]