|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 DFS Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 DFS Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2048 (0x800)
Types: SEG
Notes: 5805_R1K_CODE
Names: »1016850.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »1016850.SEG«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »1016850.SEG«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »1016850.SEG«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »1016850.SEG«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »1016850.SEG«
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5805 |X | .CONST 0x5805 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0230 | 0 | .CONST 0x0230 ; 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 00cd | | .CONST 0x00cd ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0046 | F | .CONST 0x0046 ; Number of locals
000b INIT_0008:
000b 0007 | | Action Break_Optional ; Debug Table 0x0 = .DEBUG 0x000b,0x025a,0x8000,0x0000,0x000d,0xf2f4,0x0000,0x0009
; 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 4803 |H | Short_Literal 0x3
000f 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call
0011 03fe | | Declare_Type Discrete,Defined,Visible
0012 4801 |H | Short_Literal 0x1 ; Debug Table 0x0.0x3 = 0x12,0xfffc
0013 4809 |H | Short_Literal 0x9
0014 00e3 | | Load_Encached Natural_Cache
0015 03f9 | | Declare_Type Discrete,Constrained,Visible
0016 4803 |H | Short_Literal 0x3 ; Debug Table 0x0.0x4 = 0x16,0xfffb
0017 4809 |H | Short_Literal 0x9
0018 00e3 | | Load_Encached Natural_Cache
0019 03f9 | | Declare_Type Discrete,Constrained,Visible
001a 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x5 = 0x1a,0xfffa
001b 48ff |H | Short_Literal 0xff
001c 00e3 | | Load_Encached Natural_Cache
001d 03f9 | | Declare_Type Discrete,Constrained,Visible
001e 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x6 = 0x1e,0xfff9
001f 484b |HK | Short_Literal 0x4b
0020 e001 | | Load 0x0,0x1
0021 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0022 035c | \ | Declare_Type Array,Constrained,Visible
0023 00db | | Load_Top At_Offset_3 ; Debug Table 0x0.0x7 = 0x23,0xfff8
0024 0266 | f | Execute Discrete,Bounds
0025 00da | | Load_Top At_Offset_2
0026 02a0 | | Declare_Subprogram Null_Subprogram
0027 4801 |H | Short_Literal 0x1
0028 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
0029 00db | | Load_Top At_Offset_3 ; Debug Table 0x0.0x8 = 0x29,0xfff7
002a 0266 | f | Execute Discrete,Bounds
002b 00db | | Load_Top At_Offset_3
002c 02a0 | | Declare_Subprogram Null_Subprogram
002d 4801 |H | Short_Literal 0x1
002e 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
002f e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x9 = 0x2f,0xfff6
0030 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0031 00db | | Load_Top At_Offset_3
0032 02a0 | | Declare_Subprogram Null_Subprogram
0033 4802 |H | Short_Literal 0x2
0034 032e | . | Declare_Type Record,Defined,Visible
0035 e210 | | Load 0x1,0x10 ; Debug Table 0x0.0xa = 0x35,0xfff5
0036 0266 | f | Execute Discrete,Bounds
0037 00da | | Load_Top At_Offset_2
0038 02a0 | | Declare_Subprogram Null_Subprogram
0039 4801 |H | Short_Literal 0x1
003a 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
003b 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0xb = 0x3b,0xfff4
003c 480d |H | Short_Literal 0xd
003d e001 | | Load 0x0,0x1
003e 1b12 | | Execute Package,Field_Read,Field_Number 0x12
003f 035c | \ | Declare_Type Array,Constrained,Visible
0040 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0xc = 0x40,0xfff3
0041 4810 |H | Short_Literal 0x10
0042 e001 | | Load 0x0,0x1
0043 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0044 035c | \ | Declare_Type Array,Constrained,Visible
0045 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0xd = 0x45,0xfff2
0046 4805 |H | Short_Literal 0x5
0047 e001 | | Load 0x0,0x1
0048 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0049 035c | \ | Declare_Type Array,Constrained,Visible
004a 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0xe = 0x4a,0xfff1
004b 480c |H | Short_Literal 0xc
004c e001 | | Load 0x0,0x1
004d 1b12 | | Execute Package,Field_Read,Field_Number 0x12
004e 035c | \ | Declare_Type Array,Constrained,Visible
004f 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0xf = 0x4f,0xfff0
0050 4822 |H" | Short_Literal 0x22
0051 e001 | | Load 0x0,0x1
0052 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0053 035c | \ | Declare_Type Array,Constrained,Visible
0054 e002 | | Load 0x0,0x2 ; Debug Table 0x0.0x10 = 0x54,0xffef
0055 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0056 0129 | ) | Execute Any,Make_Visible
0057 e002 | | Load 0x0,0x2 ; Debug Table 0x0.0x11 = 0x57,0xffee
0058 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0059 0129 | ) | Execute Any,Make_Visible
005a e002 | | Load 0x0,0x2 ; Debug Table 0x0.0x12 = 0x5a,0xffed
005b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
005c 0129 | ) | Execute Any,Make_Visible
005d 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x13 = 0x5d,0xffec
005e 6151 |aQ | Indirect_Literal Discrete,0x1b0,{0x00000000, 0x0001869f}
005f 00e3 | | Load_Encached Natural_Cache
0060 03f9 | | Declare_Type Discrete,Constrained,Visible
0061 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x14 = 0x61,0xffeb
0062 6149 |aI | Indirect_Literal Discrete,0x1ac,{0x00000000, 0x0000270f}
0063 00e3 | | Load_Encached Natural_Cache
0064 03f9 | | Declare_Type Discrete,Constrained,Visible
0065 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x15 = 0x65,0xffea
0066 4863 |Hc | Short_Literal 0x63
0067 00e3 | | Load_Encached Natural_Cache
0068 03f9 | | Declare_Type Discrete,Constrained,Visible
0069 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x16 = 0x69,0xffe9
006a 4803 |H | Short_Literal 0x3
006b 029f 00eb | | Declare_Subprogram INIT_00e8,For_Call
006d 03fe | | Declare_Type Discrete,Defined,Visible
006e 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x17 = 0x6e,0xffe8
006f 4802 |H | Short_Literal 0x2
0070 029f 0103 | | Declare_Subprogram INIT_0100,For_Call
0072 03fe | | Declare_Type Discrete,Defined,Visible
0073 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x18 = 0x73,0xffe7
0074 4802 |H | Short_Literal 0x2
0075 029f 011b | | Declare_Subprogram INIT_0118,For_Call
0077 03fe | | Declare_Type Discrete,Defined,Visible
0078 4809 |H | Short_Literal 0x9 ; Debug Table 0x0.0x19 = 0x78,0xffe6
0079 4801 |H | Short_Literal 0x1
007a e212 | | Load 0x1,0x12
007b 035b | [ | Declare_Type Array,Constrained
007c 0337 | 7 | Declare_Variable Array
007d 0129 | ) | Execute Any,Make_Visible
007e 4809 |H | Short_Literal 0x9 ; Debug Table 0x0.0x1a = 0x7e,0xffe5
007f 4803 |H | Short_Literal 0x3
0080 e213 | | Load 0x1,0x13
0081 035b | [ | Declare_Type Array,Constrained
0082 0337 | 7 | Declare_Variable Array
0083 0129 | ) | Execute Any,Make_Visible
0084 48ff |H | Short_Literal 0xff ; Debug Table 0x0.0x1b = 0x84,0xffe4
0085 4800 |H | Short_Literal 0x0
0086 e215 | | Load 0x1,0x15
0087 035b | [ | Declare_Type Array,Constrained
0088 0337 | 7 | Declare_Variable Array
0089 0129 | ) | Execute Any,Make_Visible
008a e002 | | Load 0x0,0x2 ; Debug Table 0x0.0x1c = 0x8a,0xffe3
008b 1b16 | | Execute Package,Field_Read,Field_Number 0x16
008c 0129 | ) | Execute Any,Make_Visible
008d 0007 | | Action Break_Optional ; Debug Table 0x0.0x1d = 0x8d,0xffe2
008e 6119 |a | Indirect_Literal Discrete,0x1a8,{0x00000000, 0x0df2f401} ; Debug Table 0x0.0x1e = 0x8e,0xffe1
008f 0129 | ) | Execute Any,Make_Visible
0090 6113 |a | Indirect_Literal Discrete,0x1a4,{0x00000000, 0x0df2f402} ; Debug Table 0x0.0x1f = 0x90,0xffe0
0091 0129 | ) | Execute Any,Make_Visible
0092 610d |a | Indirect_Literal Discrete,0x1a0,{0x00000000, 0x0df2f403} ; Debug Table 0x0.0x20 = 0x92,0xffdf
0093 0129 | ) | Execute Any,Make_Visible
0094 6107 |a | Indirect_Literal Discrete,0x19c,{0x00000000, 0x0df2f404} ; Debug Table 0x0.0x21 = 0x94,0xffde
0095 0129 | ) | Execute Any,Make_Visible
0096 6101 |a | Indirect_Literal Discrete,0x198,{0x00000000, 0x0df2f405} ; Debug Table 0x0.0x22 = 0x96,0xffdd
0097 0129 | ) | Execute Any,Make_Visible
0098 60fb |` | Indirect_Literal Discrete,0x194,{0x00000000, 0x0df2f406} ; Debug Table 0x0.0x23 = 0x98,0xffdc
0099 0129 | ) | Execute Any,Make_Visible
009a 60f5 |` | Indirect_Literal Discrete,0x190,{0x00000000, 0x0df2f407} ; Debug Table 0x0.0x24 = 0x9a,0xffdb
009b 0129 | ) | Execute Any,Make_Visible
009c 60ef |` | Indirect_Literal Discrete,0x18c,{0x00000000, 0x0df2f408} ; Debug Table 0x0.0x25 = 0x9c,0xffda
009d 0129 | ) | Execute Any,Make_Visible
009e 60e9 |` | Indirect_Literal Discrete,0x188,{0x00000000, 0x0df2f409} ; Debug Table 0x0.0x26 = 0x9e,0xffd9
009f 0129 | ) | Execute Any,Make_Visible
00a0 60e3 |` | Indirect_Literal Discrete,0x184,{0x00000000, 0x0df2f40a} ; Debug Table 0x0.0x27 = 0xa0,0xffd8
00a1 0129 | ) | Execute Any,Make_Visible
00a2 60dd |` | Indirect_Literal Discrete,0x180,{0x00000000, 0x0df2f40b} ; Debug Table 0x0.0x28 = 0xa2,0xffd7
00a3 0129 | ) | Execute Any,Make_Visible
00a4 60d7 |` | Indirect_Literal Discrete,0x17c,{0x00000000, 0x0df2f40c} ; Debug Table 0x0.0x29 = 0xa4,0xffd6
00a5 0129 | ) | Execute Any,Make_Visible
00a6 60d1 |` | Indirect_Literal Discrete,0x178,{0x00000000, 0x0df2f40d} ; Debug Table 0x0.0x2a = 0xa6,0xffd5
00a7 0129 | ) | Execute Any,Make_Visible
00a8 60cb |` | Indirect_Literal Discrete,0x174,{0x00000000, 0x0df2f40e} ; Debug Table 0x0.0x2b = 0xa8,0xffd4
00a9 0129 | ) | Execute Any,Make_Visible
00aa 60c5 |` | Indirect_Literal Discrete,0x170,{0x00000000, 0x0df2f40f} ; Debug Table 0x0.0x2c = 0xaa,0xffd3
00ab 0129 | ) | Execute Any,Make_Visible
00ac 60bf |` | Indirect_Literal Discrete,0x16c,{0x00000000, 0x0df2f410} ; Debug Table 0x0.0x2d = 0xac,0xffd2
00ad 0129 | ) | Execute Any,Make_Visible
00ae 60b9 |` | Indirect_Literal Discrete,0x168,{0x00000000, 0x0df2f411} ; Debug Table 0x0.0x2e = 0xae,0xffd1
00af 0129 | ) | Execute Any,Make_Visible
00b0 60b3 |` | Indirect_Literal Discrete,0x164,{0x00000000, 0x0df2f412} ; Debug Table 0x0.0x2f = 0xb0,0xffd0
00b1 0129 | ) | Execute Any,Make_Visible
00b2 60ad |` | Indirect_Literal Discrete,0x160,{0x00000000, 0x0df2f413} ; Debug Table 0x0.0x30 = 0xb2,0xffcf
00b3 0129 | ) | Execute Any,Make_Visible
00b4 60a7 |` | Indirect_Literal Discrete,0x15c,{0x00000000, 0x0df2f414} ; Debug Table 0x0.0x31 = 0xb4,0xffce
00b5 0129 | ) | Execute Any,Make_Visible
00b6 60a1 |` | Indirect_Literal Discrete,0x158,{0x00000000, 0x0df2f415} ; Debug Table 0x0.0x32 = 0xb6,0xffcd
00b7 0129 | ) | Execute Any,Make_Visible
00b8 609b |` | Indirect_Literal Discrete,0x154,{0x00000000, 0x0df2f416} ; Debug Table 0x0.0x33 = 0xb8,0xffcc
00b9 0129 | ) | Execute Any,Make_Visible
00ba 6095 |` | Indirect_Literal Discrete,0x150,{0x00000000, 0x0df2f417} ; Debug Table 0x0.0x34 = 0xba,0xffcb
00bb 0129 | ) | Execute Any,Make_Visible
00bc 608f |` | Indirect_Literal Discrete,0x14c,{0x00000000, 0x0df2f418} ; Debug Table 0x0.0x35 = 0xbc,0xffca
00bd 0129 | ) | Execute Any,Make_Visible
00be 6089 |` | Indirect_Literal Discrete,0x148,{0x00000000, 0x0df2f419} ; Debug Table 0x0.0x36 = 0xbe,0xffc9
00bf 0129 | ) | Execute Any,Make_Visible
00c0 6083 |` | Indirect_Literal Discrete,0x144,{0x00000000, 0x0df2f41a} ; Debug Table 0x0.0x37 = 0xc0,0xffc8
00c1 0129 | ) | Execute Any,Make_Visible
00c2 607d |`} | Indirect_Literal Discrete,0x140,{0x00000000, 0x0df2f41b} ; Debug Table 0x0.0x38 = 0xc2,0xffc7
00c3 0129 | ) | Execute Any,Make_Visible
00c4 6077 |`w | Indirect_Literal Discrete,0x13c,{0x00000000, 0x0df2f41c} ; Debug Table 0x0.0x39 = 0xc4,0xffc6
00c5 0129 | ) | Execute Any,Make_Visible
00c6 6071 |`q | Indirect_Literal Discrete,0x138,{0x00000000, 0x0df2f41d} ; Debug Table 0x0.0x3a = 0xc6,0xffc5
00c7 0129 | ) | Execute Any,Make_Visible
00c8 606b |`k | Indirect_Literal Discrete,0x134,{0x00000000, 0x0df2f41e} ; Debug Table 0x0.0x3b = 0xc8,0xffc4
00c9 0129 | ) | Execute Any,Make_Visible
00ca 6065 |`e | Indirect_Literal Discrete,0x130,{0x00000000, 0x0df2f41f} ; Debug Table 0x0.0x3c = 0xca,0xffc3
00cb 0129 | ) | Execute Any,Make_Visible
00cc 00bf | | Action Accept_Activation
00cd BODY_0008:
00cd 00bc | | Action Signal_Activated
00ce 00bb | | Action Signal_Completion
00cf 0000 | | .XXX[0x1]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3 | | .CONST 0x00d3 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0001 | | .CONST 0x0001 ; Number of locals
00d3 BODY_00d0:
00d3 INIT_00d0:
00d3 4603 |F | Jump_Case 0x4 ; Debug Table 0x1 = .DEBUG 0x00d3,0x02d6,0x0005,0x0000,0x000d,0xf2f4,0x0000,0x0017
00d4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00d5 7802 |x | Jump 0xd8 ; case 0x1
00d6 7805 |x | Jump 0xdc ; case 0x2
00d7 7809 |x | Jump 0xe1 ; case 0x3
00d8 00da | | Load_Top At_Offset_2
00d9 0091 01b4 | | Action Push_String_Extended_Indexed,0x1b4 ; "FIXED_LENGTH"
00db 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00dc 00db | | Load_Top At_Offset_3
00dd 00db | | Load_Top At_Offset_3
00de 00e0 | | Load_Encached Standard_Cache
00df 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00e0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00e1 00da | | Load_Top At_Offset_2
00e2 00e0 | | Load_Encached Standard_Cache
00e3 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00e4 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00e5 0000 0000 | | .XXX[0x3]
00e7 0000 | |
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb | | .CONST 0x00eb ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0001 | | .CONST 0x0001 ; Number of locals
00eb BODY_00e8:
00eb INIT_00e8:
00eb 4603 |F | Jump_Case 0x4 ; Debug Table 0x2 = .DEBUG 0x00eb,0x02d8,0x0005,0x0000,0x000d,0xf2f4,0x0000,0x00c2
00ec 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00ed 7802 |x | Jump 0xf0 ; case 0x1
00ee 7805 |x | Jump 0xf4 ; case 0x2
00ef 7809 |x | Jump 0xf9 ; case 0x3
00f0 00da | | Load_Top At_Offset_2
00f1 0091 01b8 | | Action Push_String_Extended_Indexed,0x1b8 ; "SUCCESSFUL"
00f3 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00f4 00db | | Load_Top At_Offset_3
00f5 00db | | Load_Top At_Offset_3
00f6 00e0 | | Load_Encached Standard_Cache
00f7 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00f8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00f9 00da | | Load_Top At_Offset_2
00fa 00e0 | | Load_Encached Standard_Cache
00fb 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00fc 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 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 4603 |F | Jump_Case 0x4 ; Debug Table 0x3 = .DEBUG 0x0103,0x02da,0x0005,0x0000,0x000d,0xf2f4,0x0000,0x00ca
0104 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0105 7802 |x | Jump 0x108 ; case 0x1
0106 7805 |x | Jump 0x10c ; case 0x2
0107 7809 |x | Jump 0x111 ; case 0x3
0108 00da | | Load_Top At_Offset_2
0109 0091 01bc | | Action Push_String_Extended_Indexed,0x1bc ; "SUCCESSFUL"
010b 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
010c 00db | | Load_Top At_Offset_3
010d 00db | | Load_Top At_Offset_3
010e 00e0 | | Load_Encached Standard_Cache
010f 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0110 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0111 00da | | Load_Top At_Offset_2
0112 00e0 | | Load_Encached Standard_Cache
0113 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0114 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0115 0000 0000 | | .XXX[0x3]
0117 0000 | |
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 4603 |F | Jump_Case 0x4 ; Debug Table 0x4 = .DEBUG 0x011b,0x02dc,0x0005,0x0000,0x000d,0xf2f4,0x0000,0x00d1
011c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
011d 7802 |x | Jump 0x120 ; case 0x1
011e 7805 |x | Jump 0x124 ; case 0x2
011f 7809 |x | Jump 0x129 ; case 0x3
0120 00da | | Load_Top At_Offset_2
0121 0091 01bf | | Action Push_String_Extended_Indexed,0x1bf ; "SUCCESSFUL"
0123 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0124 00db | | Load_Top At_Offset_3
0125 00db | | Load_Top At_Offset_3
0126 00e0 | | Load_Encached Standard_Cache
0127 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0128 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0129 00da | | Load_Top At_Offset_2
012a 00e0 | | Load_Encached Standard_Cache
012b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
012c 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
012d 0000 0000 | | .XXX[0x3]
012f 0000 | |
0130 0000 0000 | | .LITERAL {0x00000000, 0x0df2f41f}
0134 0000 0000 | | .LITERAL {0x00000000, 0x0df2f41e}
0138 0000 0000 | | .LITERAL {0x00000000, 0x0df2f41d}
013c 0000 0000 | | .LITERAL {0x00000000, 0x0df2f41c}
0140 0000 0000 | | .LITERAL {0x00000000, 0x0df2f41b}
0144 0000 0000 | | .LITERAL {0x00000000, 0x0df2f41a}
0148 0000 0000 | | .LITERAL {0x00000000, 0x0df2f419}
014c 0000 0000 | | .LITERAL {0x00000000, 0x0df2f418}
0150 0000 0000 | | .LITERAL {0x00000000, 0x0df2f417}
0154 0000 0000 | | .LITERAL {0x00000000, 0x0df2f416}
0158 0000 0000 | | .LITERAL {0x00000000, 0x0df2f415}
015c 0000 0000 | | .LITERAL {0x00000000, 0x0df2f414}
0160 0000 0000 | | .LITERAL {0x00000000, 0x0df2f413}
0164 0000 0000 | | .LITERAL {0x00000000, 0x0df2f412}
0168 0000 0000 | | .LITERAL {0x00000000, 0x0df2f411}
016c 0000 0000 | | .LITERAL {0x00000000, 0x0df2f410}
0170 0000 0000 | | .LITERAL {0x00000000, 0x0df2f40f}
0174 0000 0000 | | .LITERAL {0x00000000, 0x0df2f40e}
0178 0000 0000 | | .LITERAL {0x00000000, 0x0df2f40d}
017c 0000 0000 | | .LITERAL {0x00000000, 0x0df2f40c}
0180 0000 0000 | | .LITERAL {0x00000000, 0x0df2f40b}
0184 0000 0000 | | .LITERAL {0x00000000, 0x0df2f40a}
0188 0000 0000 | | .LITERAL {0x00000000, 0x0df2f409}
018c 0000 0000 | | .LITERAL {0x00000000, 0x0df2f408}
0190 0000 0000 | | .LITERAL {0x00000000, 0x0df2f407}
0194 0000 0000 | | .LITERAL {0x00000000, 0x0df2f406}
0198 0000 0000 | | .LITERAL {0x00000000, 0x0df2f405}
019c 0000 0000 | | .LITERAL {0x00000000, 0x0df2f404}
01a0 0000 0000 | | .LITERAL {0x00000000, 0x0df2f403}
01a4 0000 0000 | | .LITERAL {0x00000000, 0x0df2f402}
01a8 0000 0000 | | .LITERAL {0x00000000, 0x0df2f401}
01ac 0000 0000 | | .LITERAL {0x00000000, 0x0000270f}
01b0 0000 0000 | | .LITERAL {0x00000000, 0x0001869f}
01b4 ; --------------------------------------------------------------------------------------
01b4 ; STRING TABLE
01b4 ; --------------------------------------------------------------------------------------
01b4 001e | | .STRTAB 0x001e->0x01c3 ; "FIXED_LENGTH"
01b5 0028 | ( | .STRTAB 0x0028->0x01c9 ; "VARIABLE_LENGTH"
01b6 0035 | 5 | .STRTAB 0x0035->0x01d0 ; "SPANNED"
01b7 003a | : | .STRTAB 0x003a->0x01d4 ; "UNDEFINED"
01b8 0041 | A | .STRTAB 0x0041->0x01d8 ; "SUCCESSFUL"
01b9 0049 | I | .STRTAB 0x0049->0x01dd ; "FILE_NOT_IN_VOL_SET"
01ba 005a | Z | .STRTAB 0x005a->0x01e7 ; "FILE_IN_SUCC_VOL"
01bb 0068 | h | .STRTAB 0x0068->0x01ef ; "FILE_IN_PRED_VOL"
01bc 0076 | v | .STRTAB 0x0076->0x01f7 ; "SUCCESSFUL"
01bd 007e | ~ | .STRTAB 0x007e->0x01fc ; "RECORD_NOT_IN_FILE"
01be 008e | | .STRTAB 0x008e->0x0205 ; "RECORD_IN_SUCC_VOL"
01bf 009e | | .STRTAB 0x009e->0x020e ; "SUCCESSFUL"
01c0 00a6 | | .STRTAB 0x00a6->0x0213 ; "END_OF_FILE_ENCOUNTERED"
01c1 00bb | | .STRTAB 0x00bb->0x021e ; "END_OF_VOLUME_ENCOUNTERED"
01c2 00d2 | | .STREND 0x00d2->0x022b
01c3 4649 5845 |FIXE| .STRTAB_STRINGS
022b 0000 0000 | | .BLANK 0000[0x5]
0230 ; --------------------------------------------------------------------------------------
0230 ; Debug Table
0230 ; --------------------------------------------------------------------------------------
0230 0003 0005 | | .CONST 0x0003,0x0005
0232 000b 025a | Z| .DEBUG 0x000b,0x025a,0x8000,0x0000,0x000d,0xf2f4,0x0000,0x0009
023a 00d3 02d6 | | .DEBUG 0x00d3,0x02d6,0x0005,0x0000,0x000d,0xf2f4,0x0000,0x0017
0242 00eb 02d8 | | .DEBUG 0x00eb,0x02d8,0x0005,0x0000,0x000d,0xf2f4,0x0000,0x00c2
024a 0103 02da | | .DEBUG 0x0103,0x02da,0x0005,0x0000,0x000d,0xf2f4,0x0000,0x00ca
0252 011b 02dc | | .DEBUG 0x011b,0x02dc,0x0005,0x0000,0x000d,0xf2f4,0x0000,0x00d1
025a ; --------------------------------------------------------------------------------------
025a ; Debug3 Subtable 0x0
025a ; --------------------------------------------------------------------------------------
025a 003d 0000 | = | .DBG3TAB 0x003d,0x0000
025c 000b ffff | | .CONST 0x000b,0xffff
025e 000c fffe | | .CONST 0x000c,0xfffe
0260 000d fffd | | .CONST 0x000d,0xfffd
0262 0012 fffc | | .CONST 0x0012,0xfffc
0264 0016 fffb | | .CONST 0x0016,0xfffb
0266 001a fffa | | .CONST 0x001a,0xfffa
0268 001e fff9 | | .CONST 0x001e,0xfff9
026a 0023 fff8 | # | .CONST 0x0023,0xfff8
026c 0029 fff7 | ) | .CONST 0x0029,0xfff7
026e 002f fff6 | / | .CONST 0x002f,0xfff6
0270 0035 fff5 | 5 | .CONST 0x0035,0xfff5
0272 003b fff4 | ; | .CONST 0x003b,0xfff4
0274 0040 fff3 | @ | .CONST 0x0040,0xfff3
0276 0045 fff2 | E | .CONST 0x0045,0xfff2
0278 004a fff1 | J | .CONST 0x004a,0xfff1
027a 004f fff0 | O | .CONST 0x004f,0xfff0
027c 0054 ffef | T | .CONST 0x0054,0xffef
027e 0057 ffee | W | .CONST 0x0057,0xffee
0280 005a ffed | Z | .CONST 0x005a,0xffed
0282 005d ffec | ] | .CONST 0x005d,0xffec
0284 0061 ffeb | a | .CONST 0x0061,0xffeb
0286 0065 ffea | e | .CONST 0x0065,0xffea
0288 0069 ffe9 | i | .CONST 0x0069,0xffe9
028a 006e ffe8 | n | .CONST 0x006e,0xffe8
028c 0073 ffe7 | s | .CONST 0x0073,0xffe7
028e 0078 ffe6 | x | .CONST 0x0078,0xffe6
0290 007e ffe5 | ~ | .CONST 0x007e,0xffe5
0292 0084 ffe4 | | .CONST 0x0084,0xffe4
0294 008a ffe3 | | .CONST 0x008a,0xffe3
0296 008d ffe2 | | .CONST 0x008d,0xffe2
0298 008e ffe1 | | .CONST 0x008e,0xffe1
029a 0090 ffe0 | | .CONST 0x0090,0xffe0
029c 0092 ffdf | | .CONST 0x0092,0xffdf
029e 0094 ffde | | .CONST 0x0094,0xffde
02a0 0096 ffdd | | .CONST 0x0096,0xffdd
02a2 0098 ffdc | | .CONST 0x0098,0xffdc
02a4 009a ffdb | | .CONST 0x009a,0xffdb
02a6 009c ffda | | .CONST 0x009c,0xffda
02a8 009e ffd9 | | .CONST 0x009e,0xffd9
02aa 00a0 ffd8 | | .CONST 0x00a0,0xffd8
02ac 00a2 ffd7 | | .CONST 0x00a2,0xffd7
02ae 00a4 ffd6 | | .CONST 0x00a4,0xffd6
02b0 00a6 ffd5 | | .CONST 0x00a6,0xffd5
02b2 00a8 ffd4 | | .CONST 0x00a8,0xffd4
02b4 00aa ffd3 | | .CONST 0x00aa,0xffd3
02b6 00ac ffd2 | | .CONST 0x00ac,0xffd2
02b8 00ae ffd1 | | .CONST 0x00ae,0xffd1
02ba 00b0 ffd0 | | .CONST 0x00b0,0xffd0
02bc 00b2 ffcf | | .CONST 0x00b2,0xffcf
02be 00b4 ffce | | .CONST 0x00b4,0xffce
02c0 00b6 ffcd | | .CONST 0x00b6,0xffcd
02c2 00b8 ffcc | | .CONST 0x00b8,0xffcc
02c4 00ba ffcb | | .CONST 0x00ba,0xffcb
02c6 00bc ffca | | .CONST 0x00bc,0xffca
02c8 00be ffc9 | | .CONST 0x00be,0xffc9
02ca 00c0 ffc8 | | .CONST 0x00c0,0xffc8
02cc 00c2 ffc7 | | .CONST 0x00c2,0xffc7
02ce 00c4 ffc6 | | .CONST 0x00c4,0xffc6
02d0 00c6 ffc5 | | .CONST 0x00c6,0xffc5
02d2 00c8 ffc4 | | .CONST 0x00c8,0xffc4
02d4 00ca ffc3 | | .CONST 0x00ca,0xffc3
02d6 ; --------------------------------------------------------------------------------------
02d6 ; Debug3 Subtable 0x1
02d6 ; --------------------------------------------------------------------------------------
02d6 0000 0000 | | .DBG3TAB 0x0000,0x0000
02d8 ; --------------------------------------------------------------------------------------
02d8 ; Debug3 Subtable 0x2
02d8 ; --------------------------------------------------------------------------------------
02d8 0000 0000 | | .DBG3TAB 0x0000,0x0000
02da ; --------------------------------------------------------------------------------------
02da ; Debug3 Subtable 0x3
02da ; --------------------------------------------------------------------------------------
02da 0000 0000 | | .DBG3TAB 0x0000,0x0000
02dc ; --------------------------------------------------------------------------------------
02dc ; Debug3 Subtable 0x4
02dc ; --------------------------------------------------------------------------------------
02dc 0000 0000 | | .DBG3TAB 0x0000,0x0000
02de 0000 0000 | | .BLANK 0000[0x122]