|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00)
Notes: 00_class, 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 0358 | X | .CONST 0x0358 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0047 | G | .CONST 0x0047 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0029 | ) | .CONST 0x0029 ; Number of locals
000b INIT_0008:
000b 0007 | | Action Break_Optional ; Debug Table 0x0 = .DEBUG 0x000b,0x0412,0xc000,0x0000,0x0037,0x5764,0x0000,0x0007
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 0007 | | Action Break_Optional ; Debug Table 0x0.0x1 = 0xc,0xfffe
000d 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0xd,0xfffd
000f 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0xf,0xfffc
0011 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x11,0xfffb
0013 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x13,0xfffa
0015 00bf | | Action Accept_Activation
0016 0092 02d9 | | Action Push_String_Extended,0x2d9 ; ".XFER"
; Debug Table 0x1 = .DEBUG 0x0016,0x0420,0xc000,0x0000,0x0037,0x5c94,0x0000,0x0009
; Debug Table 0x1.0x0 = 0x16,0xffff
0018 0007 | | Action Break_Optional ; Debug Table 0x1.0x1 = 0x18,0xfffe
0019 029d 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call ; Debug Table 0x1.0x2 = 0x19,0xfffd
001b 029d 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call ; Debug Table 0x1.0x3 = 0x1b,0xfffc
001d 029d 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call ; Debug Table 0x1.0x4 = 0x1d,0xfffb
001f 029d 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call ; Debug Table 0x1.0x5 = 0x1f,0xfffa
0021 029d 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call ; Debug Table 0x1.0x6 = 0x21,0xfff9
0023 029d 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call ; Debug Table 0x1.0x7 = 0x23,0xfff8
0025 629a |b | Indirect_Literal Discrete,0x2c0,{0x00000000, 0x00375c94} ; Debug Table 0x1.0x8 = 0x25,0xfff7
0026 4890 |H | Short_Literal 0x90
0027 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0028 e001 | | Load 0x0,0x1
0029 0387 | | Declare_Variable Package
002a 00d8 | | Load_Top At_Offset_0
002b 020f | | Execute Module,Activate
002c e002 | | Load 0x0,0x2 ; Debug Table 0x1.0x9 = 0x2c,0xfff6
002d 191c | | Execute Package,Field_Reference,Field_Number 0x1c
002e 0007 | | Action Break_Optional
002f e002 | | Load 0x0,0x2 ; Debug Table 0x1.0xa = 0x2f,0xfff5
0030 1914 | | Execute Package,Field_Reference,Field_Number 0x14
0031 0007 | | Action Break_Optional
0032 029d 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call ; Debug Table 0x1.0xb = 0x32,0xfff4
0034 1d17 | | Execute_Immediate Reference_Lex_1,0x17 ; Debug Table 0x1.0xc = 0x34,0xfff3
0035 00c7 | | Action Elaborate_Subprogram
0036 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x1.0xd = 0x36,0xfff2
0037 00c7 | | Action Elaborate_Subprogram
0038 00db | | Load_Top At_Offset_3 ; Debug Table 0x1.0xe = 0x38,0xfff1
0039 1910 | | Execute Package,Field_Reference,Field_Number 0x10
003a 0007 | | Action Break_Optional
003b 029d 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call ; Debug Table 0x1.0xf = 0x3b,0xfff0
003d 029d 019b | | Declare_Subprogram INIT_0198,For_Outer_Call ; Debug Table 0x1.0x10 = 0x3d,0xffef
003f 029d 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call ; Debug Table 0x1.0x11 = 0x3f,0xffee
0041 029d 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call ; Debug Table 0x1.0x12 = 0x41,0xffed
0043 1d18 | | Execute_Immediate Reference_Lex_1,0x18 ; Debug Table 0x1.0x13 = 0x43,0xffec
0044 00c7 | | Action Elaborate_Subprogram
0045 1d19 | | Execute_Immediate Reference_Lex_1,0x19 ; Debug Table 0x1.0x14 = 0x45,0xffeb
0046 00c7 | | Action Elaborate_Subprogram
0047 BODY_0008:
0047 00bc | | Action Signal_Activated
0048 00bb | | Action Signal_Completion
0049 0000 0000 | | .BLANK 0000[0x7]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0053 | S | .CONST 0x0053 ; Address of begin
0051 0004 | | .CONST 0x0004 ; Address of exception handler
0052 0001 | | .CONST 0x0001 ; Number of locals
0053 BODY_0050:
0053 INIT_0050:
0053 00da | | Load_Top At_Offset_2 ; Debug Table 0x2 = .DEBUG 0x0053,0x044c,0x1002,0x0000,0x0037,0x5764,0x0000,0x005f
; Debug Table 0x2.0x0 = 0x53,0x1
0054 01da | | Execute Vector,Bounds
0055 0264 | d | Execute Discrete,Below_Bound
0056 700d |p | Jump_Nonzero 0x64
0057 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x1 = 0x57,0x2
0058 e5ff | | Load 0x2,-0x1
0059 01d7 | | Execute Vector,Field_Read
005a 0f2e | . | Execute_Immediate Equal,0x2e
005b 6807 |h | Jump_Zero 0x63
005c 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x2 = 0x5c,0x3
005d e5ff | | Load 0x2,-0x1
005e 01dc | | Execute Vector,Last
005f e5ff | | Load 0x2,-0x1
0060 01cf | | Execute Vector,Slice_Read
0061 8223 | # | Call 0x1,0x23
0062 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0063 37f3 |7 | Loop_Decreasing 0x57
0064 00ea | | Load_Encached Null_String_Cache ; Debug Table 0x2.0x3 = 0x64,0x4
0065 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0066 0000 0000 | | .XXX[0x2]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b | k | .CONST 0x006b ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0001 | | .CONST 0x0001 ; Number of locals
006b BODY_0068:
006b INIT_0068:
006b 00da | | Load_Top At_Offset_2 ; Debug Table 0x3 = .DEBUG 0x006b,0x0456,0x1002,0x0000,0x0037,0x5764,0x0000,0x0068
; Debug Table 0x3.0x0 = 0x6b,0x1
006c 01da | | Execute Vector,Bounds
006d 0264 | d | Execute Discrete,Below_Bound
006e 700f |p | Jump_Nonzero 0x7e
006f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x1 = 0x6f,0x2
0070 e5ff | | Load 0x2,-0x1
0071 01d7 | | Execute Vector,Field_Read
0072 0f3a | : | Execute_Immediate Equal,0x3a
0073 6809 |h | Jump_Zero 0x7d
0074 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x2 = 0x74,0x3
0075 0a01 | | Execute_Immediate Plus,0x1
0076 0248 | H | Execute Discrete,Check_In_Integer
0077 e5ff | | Load 0x2,-0x1
0078 01dc | | Execute Vector,Last
0079 e5ff | | Load 0x2,-0x1
007a 01cf | | Execute Vector,Slice_Read
007b 0335 | 5 | Declare_Variable Array,Duplicate
007c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
007d 37f1 |7 | Loop_Decreasing 0x6f
007e 00da | | Load_Top At_Offset_2 ; Debug Table 0x3.0x3 = 0x7e,0x4
007f 0335 | 5 | Declare_Variable Array,Duplicate
0080 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0081 0000 0000 | | .BLANK 0000[0x7]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 0093 | | .CONST 0x0093 ; Address of begin
0089 00dc | | .CONST 0x00dc ; Address of exception handler
008a 0005 | | .CONST 0x0005 ; Number of locals
008b INIT_0088:
008b 4820 |H | Short_Literal 0x20 ; Debug Table 0x4 = .DEBUG 0x008b,0x0460,0x1001,0x0000,0x0037,0x5764,0x0000,0x0071
; Debug Table 0x4.0x0 = 0x8b,0xffff
008c 00db | | Load_Top At_Offset_3
008d 8222 | " | Call 0x1,0x22
008e 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x1 = 0x8e,0xfffe
008f 8217 | | Call 0x1,0x17
0090 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x4.0x2 = 0x90,0xfffd
0091 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x4.0x3 = 0x91,0xfffc
0092 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0093 BODY_0088:
0093 00db | | Load_Top At_Offset_3 ; Debug Table 0x4.0x4 = 0x93,0x1
0094 01db | | Execute Vector,Length
0095 0d01 | | Execute_Immediate Less,0x1
0096 6801 |h | Jump_Zero 0x98
0097 783d |x= | Jump 0xd5 ; Debug Table 0x4.0x5 = 0x97,0x2
0098 00db | | Load_Top At_Offset_3 ; Debug Table 0x4.0x6 = 0x98,0x3
0099 8226 | & | Call 0x1,0x26
009a 6807 |h | Jump_Zero 0xa2
009b e5fd | | Load 0x2,-0x3 ; Debug Table 0x4.0x7 = 0x9b,0x4
009c e5fe | | Load 0x2,-0x2
009d e402 | | Load 0x2,0x2
009e 8219 | | Call 0x1,0x19
009f 4801 |H | Short_Literal 0x1 ; Debug Table 0x4.0x8 = 0x9f,0x5
00a0 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
00a1 7833 |x3 | Jump 0xd5
00a2 00da | | Load_Top At_Offset_2 ; Debug Table 0x4.0x9 = 0xa2,0x6
00a3 8225 | % | Call 0x1,0x25
00a4 6816 |h | Jump_Zero 0xbb
00a5 e5fb | | Load 0x2,-0x5 ; Debug Table 0x4.0xa = 0xa5,0x7
00a6 702e |p. | Jump_Nonzero 0xd5
00a7 00da | | Load_Top At_Offset_2 ; Debug Table 0x4.0xb = 0xa7,0x8
00a8 e221 | ! | Load 0x1,0x21
00a9 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00aa 6809 |h | Jump_Zero 0xb4
00ab 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x4.0xc = 0xab,0x9
00ac e5fd | | Load 0x2,-0x3
00ad e403 | | Load 0x2,0x3
00ae e402 | | Load 0x2,0x2
00af 8228 | ( | Call 0x1,0x28
00b0 005a | Z | Store_Top Discrete,At_Offset_2
00b1 4801 |H | Short_Literal 0x1 ; Debug Table 0x4.0xd = 0xb1,0xa
00b2 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
00b3 7821 |x! | Jump 0xd5
00b4 e5fe | | Load 0x2,-0x2 ; Debug Table 0x4.0xe = 0xb4,0xb
00b5 00db | | Load_Top At_Offset_3
00b6 0092 02da | | Action Push_String_Extended,0x2da ; " already exists."
00b8 01cc | | Execute Vector,Catenate
00b9 8229 | ) | Call 0x1,0x29
00ba 781a |x | Jump 0xd5
00bb 00da | | Load_Top At_Offset_2 ; Debug Table 0x4.0xf = 0xbb,0xc
00bc e221 | ! | Load 0x1,0x21
00bd 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00be 6811 |h | Jump_Zero 0xd0
00bf 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x4.0x10 = 0xbf,0xd
00c0 e5fd | | Load 0x2,-0x3
00c1 e403 | | Load 0x2,0x3
00c2 e402 | | Load 0x2,0x2
00c3 8228 | ( | Call 0x1,0x28
00c4 c5fb | | Store 0x2,-0x5
00c5 4801 |H | Short_Literal 0x1 ; Debug Table 0x4.0x11 = 0xc5,0xe
00c6 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
00c7 e5fb | | Load 0x2,-0x5 ; Debug Table 0x4.0x12 = 0xc7,0xf
00c8 680c |h | Jump_Zero 0xd5
00c9 e5fe | | Load 0x2,-0x2 ; Debug Table 0x4.0x13 = 0xc9,0x10
00ca 00db | | Load_Top At_Offset_3
00cb 0092 02db | | Action Push_String_Extended,0x2db ; " is a preloaded subystem."
00cd 01cc | | Execute Vector,Catenate
00ce 8229 | ) | Call 0x1,0x29
00cf 7805 |x | Jump 0xd5
00d0 00da | | Load_Top At_Offset_2 ; Debug Table 0x4.0x14 = 0xd0,0x11
00d1 0092 02dc | | Action Push_String_Extended,0x2dc ; " cannot be written to EEDB."
00d3 01cc | | Execute Vector,Catenate
00d4 821e | | Call 0x1,0x1e
00d5 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x15 = 0xd5,0x12
00d6 7002 |p | Jump_Nonzero 0xd9
00d7 00db | | Load_Top At_Offset_3 ; Debug Table 0x4.0x16 = 0xd7,0x13
00d8 8213 | | Call 0x1,0x13
00d9 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x17 = 0xd9,0x14
00da a5fc | | Store_Unchecked 0x2,-0x4
00db 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00dc TRAP_0088:
00dc 0007 | | Action Break_Optional
00dd 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x4.0x18 = 0xdd,0x15
00de a5fc | | Store_Unchecked 0x2,-0x4
00df 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00f8 | | .CONST 0x00f8 ; Address of begin
00e1 0112 | | .CONST 0x0112 ; Address of exception handler
00e2 000a | | .CONST 0x000a ; Number of locals
00e3 INIT_00e0:
00e3 e20f | | Load 0x1,0xf ; Debug Table 0x5 = .DEBUG 0x00e3,0x0494,0x1001,0x0000,0x0037,0x5764,0x0000,0x008b
; Debug Table 0x5.0x0 = 0xe3,0xffff
00e4 02c7 | | Declare_Variable Any
00e5 00d8 | | Load_Top At_Offset_0
00e6 1c00 | | Execute_Immediate Run_Utility,0x0
00e7 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x5.0x1 = 0xe7,0xfffe
00e8 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00e9 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x5.0x2 = 0xe9,0xfffd
00ea 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x5.0x3 = 0xea,0xfffc
00eb 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00ec 4801 |H | Short_Literal 0x1 ; Debug Table 0x5.0x4 = 0xec,0xfffb
00ed e5fd | | Load 0x2,-0x3
00ee 00e9 | | Load_Encached String_Cache
00ef 0334 | 4 | Declare_Variable Array,With_Constraint
00f0 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x5.0x5 = 0xf0,0xfffa
00f1 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00f2 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x5.0x6 = 0xf2,0xfff9
00f3 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00f4 029f 021b | | Declare_Subprogram INIT_0218,For_Call ; Debug Table 0x5.0x7 = 0xf4,0xfff8
00f6 029f 0243 | C| Declare_Subprogram INIT_0240,For_Call ; Debug Table 0x5.0x8 = 0xf6,0xfff7
00f8 BODY_00e0:
00f8 00be | | Action Activate_Tasks
00f9 e402 | | Load 0x2,0x2 ; Debug Table 0x5.0x9 = 0xf9,0x1
00fa e5ff | | Load 0x2,-0x1
00fb 8210 | | Call 0x1,0x10
00fc c402 | | Store 0x2,0x2
00fd 780d |x | Jump 0x10b
00fe e403 | | Load 0x2,0x3 ; Debug Table 0x5.0xa = 0xfe,0x3
00ff 00e1 | | Load_Encached Boolean_Cache
0100 e5fd | | Load 0x2,-0x3
0101 e5fe | | Load 0x2,-0x2
0102 8409 | | Call 0x2,0x9
0103 8218 | | Call 0x1,0x18
0104 c404 | | Store 0x2,0x4
0105 c403 | | Store 0x2,0x3
0106 e404 | | Load 0x2,0x4 ; Debug Table 0x5.0xb = 0x106,0x4
0107 6803 |h | Jump_Zero 0x10b
0108 e405 | | Load 0x2,0x5 ; Debug Table 0x5.0xc = 0x108,0x5
0109 0a01 | | Execute_Immediate Plus,0x1
010a c405 | | Store 0x2,0x5
010b 00da | | Load_Top At_Offset_2 ; Debug Table 0x5.0xd = 0x10b,0x2
010c 6ff1 |o | Jump_Zero 0xfe
010d e402 | | Load 0x2,0x2 ; Debug Table 0x5.0xe = 0x10d,0x6
010e 8211 | | Call 0x1,0x11
010f c402 | | Store 0x2,0x2
0110 840a | | Call 0x2,0xa ; Debug Table 0x5.0xf = 0x110,0x7
0111 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0112 TRAP_00e0:
0112 0007 | | Action Break_Optional
0113 e402 | | Load 0x2,0x2 ; Debug Table 0x5.0x10 = 0x113,0x8
0114 8211 | | Call 0x1,0x11
0115 c402 | | Store 0x2,0x2
0116 0092 02dd | | Action Push_String_Extended,0x2dd ; "while reading "
; Debug Table 0x5.0x11 = 0x116,0x9
0118 e5ff | | Load 0x2,-0x1
0119 01cc | | Execute Vector,Catenate
011a 821f | | Call 0x1,0x1f
011b 840a | | Call 0x2,0xa ; Debug Table 0x5.0x12 = 0x11b,0xa
011c 4504 |E | Exit_Suprogram New_Top_Offset 0x4
011d 0000 0000 | | .XXX[0x3]
011f 0000 | |
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 0092 02de | | Action Push_String_Extended,0x2de ; " "
; Debug Table 0x6 = .DEBUG 0x0123,0x04bc,0x1001,0x0000,0x0037,0x5c94,0x0000,0x0018
; Debug Table 0x6.0x0 = 0x123,0x1
0125 00db | | Load_Top At_Offset_3
0126 01cc | | Execute Vector,Catenate
0127 8214 | | Call 0x1,0x14
0128 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0129 0000 0000 | | .BLANK 0000[0x7]
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 0092 02df | | Action Push_String_Extended,0x2df ; "*** "
; Debug Table 0x7 = .DEBUG 0x0133,0x04c0,0x1001,0x0000,0x0037,0x5c94,0x0000,0x002c
; Debug Table 0x7.0x0 = 0x133,0x1
0135 00db | | Load_Top At_Offset_3
0136 01cc | | Execute Vector,Catenate
0137 8214 | | Call 0x1,0x14
0138 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0139 0000 0000 | | .BLANK 0000[0x7]
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 0092 02e0 | | Action Push_String_Extended,0x2e0 ; "+++ "
; Debug Table 0x8 = .DEBUG 0x0143,0x04c4,0x1001,0x0000,0x0037,0x5c94,0x0000,0x0040
; Debug Table 0x8.0x0 = 0x143,0x1
0145 00db | | Load_Top At_Offset_3
0146 01cc | | Execute Vector,Catenate
0147 8214 | | Call 0x1,0x14
0148 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0149 0000 0000 | | .BLANK 0000[0x7]
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 0092 02e1 | | Action Push_String_Extended,0x2e1 ; "++* "
; Debug Table 0x9 = .DEBUG 0x0153,0x04c8,0x1001,0x0000,0x0037,0x5c94,0x0000,0x0054
; Debug Table 0x9.0x0 = 0x153,0x1
0155 00db | | Load_Top At_Offset_3
0156 01cc | | Execute Vector,Catenate
0157 8214 | | Call 0x1,0x14
0158 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0159 0000 0000 | | .BLANK 0000[0x7]
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 0092 02e2 | | Action Push_String_Extended,0x2e2 ; "%%% An exception was raised "
; Debug Table 0xa = .DEBUG 0x0163,0x04cc,0x1001,0x0000,0x0037,0x5c94,0x0000,0x0068
; Debug Table 0xa.0x0 = 0x163,0x1
0165 00db | | Load_Top At_Offset_3
0166 01cc | | Execute Vector,Catenate
0167 8214 | | Call 0x1,0x14
0168 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0169 0000 0000 | | .BLANK 0000[0x7]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173 | s | .CONST 0x0173 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0001 | | .CONST 0x0001 ; Number of locals
0173 BODY_0170:
0173 INIT_0170:
0173 0092 02e3 | | Action Push_String_Extended,0x2e3 ; "::: "
; Debug Table 0xb = .DEBUG 0x0173,0x04d0,0x1001,0x0000,0x0037,0x5c94,0x0000,0x007c
; Debug Table 0xb.0x0 = 0x173,0x1
0175 00db | | Load_Top At_Offset_3
0176 01cc | | Execute Vector,Catenate
0177 8214 | | Call 0x1,0x14
0178 4502 |E | Exit_Suprogram New_Top_Offset 0x2
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 4820 |H | Short_Literal 0x20 ; Debug Table 0xc = .DEBUG 0x0183,0x04d4,0x1002,0x0000,0x0037,0x5c94,0x0000,0x00b7
; Debug Table 0xc.0x0 = 0x183,0x1
0184 00db | | Load_Top At_Offset_3
0185 00e0 | | Load_Encached Standard_Cache
0186 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0187 8222 | " | Call 0x1,0x22
0188 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0189 0000 0000 | | .BLANK 0000[0x7]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193 | | .CONST 0x0193 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0001 | | .CONST 0x0001 ; Number of locals
0193 BODY_0190:
0193 INIT_0190:
0193 00da | | Load_Top At_Offset_2 ; Debug Table 0xd = .DEBUG 0x0193,0x04d8,0x1002,0x0000,0x0037,0x5c94,0x0000,0x0133
; Debug Table 0xd.0x0 = 0x193,0x1
0194 8216 | | Call 0x1,0x16
0195 e21a | | Load 0x1,0x1a
0196 01df | | Execute Vector,Equal
0197 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 01a4 | | .CONST 0x01a4 ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0003 | | .CONST 0x0003 ; Number of locals
019b INIT_0198:
019b 4800 |H | Short_Literal 0x0 ; Debug Table 0xe = .DEBUG 0x019b,0x04dc,0x1001,0x0000,0x0037,0x5c94,0x0000,0x0149
; Debug Table 0xe.0x0 = 0x19b,0xffff
019c e5fe | | Load 0x2,-0x2
019d 01db | | Execute Vector,Length
019e 0aff | | Execute_Immediate Plus,-0x1
019f 0248 | H | Execute Discrete,Check_In_Integer
01a0 e003 | | Load 0x0,0x3
01a1 1b12 | | Execute Package,Field_Read,Field_Number 0x12
01a2 0334 | 4 | Declare_Variable Array,With_Constraint
01a3 00e3 | | Load_Encached Natural_Cache ; Debug Table 0xe.0x1 = 0x1a3,0xfffe
01a4 BODY_0198:
01a4 00e3 | | Load_Encached Natural_Cache ; Debug Table 0xe.0x2 = 0x1a4,0x1
01a5 00da | | Load_Top At_Offset_2
01a6 e5ff | | Load 0x2,-0x1
01a7 8212 | | Call 0x1,0x12
01a8 c5ff | | Store 0x2,-0x1
01a9 00d1 | | Pop_Control Pop_Count_1
01aa 0059 | Y | Store_Top Discrete,At_Offset_1
01ab 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xe.0x3 = 0x1ab,0x2
01ac 0aff | | Execute_Immediate Plus,-0x1
01ad 0248 | H | Execute Discrete,Check_In_Integer
01ae 4800 |H | Short_Literal 0x0
01af 0263 | c | Execute Discrete,Above_Bound
01b0 7011 |p | Jump_Nonzero 0x1c2
01b1 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xe.0x4 = 0x1b1,0x3
01b2 e402 | | Load 0x2,0x2
01b3 01d7 | | Execute Vector,Field_Read
01b4 00d8 | | Load_Top At_Offset_0
01b5 00e8 | | Load_Encached Character_Cache
01b6 0260 | ` | Execute Discrete,In_Type
01b7 7002 |p | Jump_Nonzero 0x1ba
01b8 48e0 |H | Short_Literal 0xe0
01b9 0257 | W | Execute Discrete,Raise
01ba e5fe | | Load 0x2,-0x2
01bb 01dd | | Execute Vector,First
01bc 00da | | Load_Top At_Offset_2
01bd 0273 | s | Execute Discrete,Plus
01be 0248 | H | Execute Discrete,Check_In_Integer
01bf e5fe | | Load 0x2,-0x2
01c0 01d6 | | Execute Vector,Field_Write
01c1 3fef |? | Loop_Increasing 0x1b1
01c2 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xe.0x5 = 0x1c2,0x4
01c3 a5fd | | Store_Unchecked 0x2,-0x3
01c4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01c5 0000 0000 | | .XXX[0x3]
01c7 0000 | |
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01e0 | | .CONST 0x01e0 ; Address of begin
01c9 01f2 | | .CONST 0x01f2 ; Address of exception handler
01ca 0008 | | .CONST 0x0008 ; Number of locals
01cb INIT_01c8:
01cb e20f | | Load 0x1,0xf ; Debug Table 0xf = .DEBUG 0x01cb,0x04ea,0x1001,0x0000,0x0037,0x5c94,0x0000,0x019a
; Debug Table 0xf.0x0 = 0x1cb,0xffff
01cc 02c7 | | Declare_Variable Any
01cd 00d8 | | Load_Top At_Offset_0
01ce 1c00 | | Execute_Immediate Run_Utility,0x0
01cf e221 | ! | Load 0x1,0x21 ; Debug Table 0xf.0x1 = 0x1cf,0xfffe
01d0 1b12 | | Execute Package,Field_Read,Field_Number 0x12
01d1 0322 | " | Declare_Variable Record
01d2 00d8 | | Load_Top At_Offset_0
01d3 1c00 | | Execute_Immediate Run_Utility,0x0
01d4 4801 |H | Short_Literal 0x1 ; Debug Table 0xf.0x2 = 0x1d4,0xfffd
01d5 e5fd | | Load 0x2,-0x3
01d6 e003 | | Load 0x0,0x3
01d7 1b12 | | Execute Package,Field_Read,Field_Number 0x12
01d8 0334 | 4 | Declare_Variable Array,With_Constraint
01d9 00e3 | | Load_Encached Natural_Cache ; Debug Table 0xf.0x3 = 0x1d9,0xfffc
01da 00e3 | | Load_Encached Natural_Cache ; Debug Table 0xf.0x4 = 0x1da,0xfffb
01db 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
01dc 029f 025b | [| Declare_Subprogram INIT_0258,For_Call
01de 029f 026b | k| Declare_Subprogram INIT_0268,For_Call
01e0 BODY_01c8:
01e0 00be | | Action Activate_Tasks
01e1 8407 | | Call 0x2,0x7 ; Debug Table 0xf.0x5 = 0x1e1,0x1
01e2 8408 | | Call 0x2,0x8 ; Debug Table 0xf.0x6 = 0x1e2,0x2
01e3 e402 | | Load 0x2,0x2 ; Debug Table 0xf.0x7 = 0x1e3,0x3
01e4 8211 | | Call 0x1,0x11
01e5 c402 | | Store 0x2,0x2
01e6 e5ff | | Load 0x2,-0x1 ; Debug Table 0xf.0x8 = 0x1e6,0x4
01e7 0092 02e4 | | Action Push_String_Extended,0x2e4 ; " ("
01e9 01cc | | Execute Vector,Catenate
01ea 00db | | Load_Top At_Offset_3
01eb 8224 | $ | Call 0x1,0x24
01ec 01cc | | Execute Vector,Catenate
01ed 0092 02e5 | | Action Push_String_Extended,0x2e5 ; " bytes)"
01ef 01cc | | Execute Vector,Catenate
01f0 821d | | Call 0x1,0x1d
01f1 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01f2 TRAP_01c8:
01f2 0007 | | Action Break_Optional
01f3 e402 | | Load 0x2,0x2 ; Debug Table 0xf.0x9 = 0x1f3,0x5
01f4 8211 | | Call 0x1,0x11
01f5 c402 | | Store 0x2,0x2
01f6 e5ff | | Load 0x2,-0x1 ; Debug Table 0xf.0xa = 0x1f6,0x6
01f7 0092 02e4 | | Action Push_String_Extended,0x2e4 ; " ("
01f9 01cc | | Execute Vector,Catenate
01fa e406 | | Load 0x2,0x6
01fb 8224 | $ | Call 0x1,0x24
01fc 01cc | | Execute Vector,Catenate
01fd 0092 02e6 | | Action Push_String_Extended,0x2e6 ; " bytes) (exception: "
01ff 01cc | | Execute Vector,Catenate
0200 e004 | | Load 0x0,0x4
0201 180d | | Execute Package,Field_Execute,Field_Number 0xd
0202 01cc | | Execute Vector,Catenate
0203 0092 02e7 | | Action Push_String_Extended,0x2e7 ; ")"
0205 01cc | | Execute Vector,Catenate
0206 821e | | Call 0x1,0x1e
0207 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xf.0xb = 0x207,0x7
0208 0101 | | Execute Exception,Reraise
0209 0000 0000 | | .BLANK 0000[0x7]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213 | | .CONST 0x0213 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0001 | | .CONST 0x0001 ; Number of locals
0213 BODY_0210:
0213 INIT_0210:
0213 00db | | Load_Top At_Offset_3 ; Debug Table 0x10 = .DEBUG 0x0213,0x0504,0x1001,0x0000,0x0037,0x5c94,0x0000,0x026d
; Debug Table 0x10.0x0 = 0x213,0x1
0214 6802 |h | Jump_Zero 0x217
0215 00da | | Load_Top At_Offset_2 ; Debug Table 0x10.0x1 = 0x215,0x2
0216 821b | | Call 0x1,0x1b
0217 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021f | | .CONST 0x021f ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0003 | | .CONST 0x0003 ; Number of locals
021b INIT_0218:
021b 029f 02a3 | | Declare_Subprogram INIT_02a0,For_Call ; Debug Table 0x11 = .DEBUG 0x021b,0x050a,0x1002,0x0000,0x0037,0x5c94,0x0000,0x0382
021d 029f 02cb | | Declare_Subprogram INIT_02c8,For_Call
021f BODY_0218:
021f e407 | | Load 0x2,0x7 ; Debug Table 0x11.0x0 = 0x21f,0x1
0220 700d |p | Jump_Nonzero 0x22e
0221 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x11.0x1 = 0x221,0x2
0222 e406 | | Load 0x2,0x6
0223 e402 | | Load 0x2,0x2
0224 8227 | ' | Call 0x1,0x27
0225 c402 | | Store 0x2,0x2
0226 00d1 | | Pop_Control Pop_Count_1
0227 c407 | | Store 0x2,0x7
0228 e407 | | Load 0x2,0x7 ; Debug Table 0x11.0x2 = 0x228,0x3
0229 7004 |p | Jump_Nonzero 0x22e
022a 4801 |H | Short_Literal 0x1 ; Debug Table 0x11.0x3 = 0x22a,0x4
022b a408 | | Store_Unchecked 0x2,0x8
022c 00ea | | Load_Encached Null_String_Cache ; Debug Table 0x11.0x4 = 0x22c,0x5
022d 00ca | | Action Exit_Nullary_Function
022e e407 | | Load 0x2,0x7 ; Debug Table 0x11.0x5 = 0x22e,0x6
022f 4801 |H | Short_Literal 0x1
0230 0263 | c | Execute Discrete,Above_Bound
0231 7007 |p | Jump_Nonzero 0x239
0232 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x11.0x6 = 0x232,0x7
0233 e406 | | Load 0x2,0x6
0234 01d7 | | Execute Vector,Field_Read
0235 0f0a | | Execute_Immediate Equal,0xa
0236 6801 |h | Jump_Zero 0x238
0237 8602 | | Call 0x3,0x2 ; Debug Table 0x11.0x7 = 0x237,0x8
0238 3ff9 |? | Loop_Increasing 0x232
0239 8603 | | Call 0x3,0x3 ; Debug Table 0x11.0x8 = 0x239,0x9
023a 4831 |H1 | Short_Literal 0x31
023b 0257 | W | Execute Discrete,Raise
023c 0000 0000 | | .BLANK 0000[0x4]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243 | C | .CONST 0x0243 ; Address of begin
0241 0004 | | .CONST 0x0004 ; Address of exception handler
0242 0001 | | .CONST 0x0001 ; Number of locals
0243 BODY_0240:
0243 INIT_0240:
0243 e405 | | Load 0x2,0x5 ; Debug Table 0x12 = .DEBUG 0x0243,0x051e,0x1001,0x0000,0x0037,0x5c94,0x0000,0x03fd
; Debug Table 0x12.0x0 = 0x243,0x1
0244 0f01 | | Execute_Immediate Equal,0x1
0245 6806 |h | Jump_Zero 0x24c
0246 0092 02e8 | | Action Push_String_Extended,0x2e8 ; "1 file read via "
; Debug Table 0x12.0x1 = 0x246,0x2
0248 e5ff | | Load 0x2,-0x1
0249 01cc | | Execute Vector,Catenate
024a 8220 | | Call 0x1,0x20
024b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
024c e405 | | Load 0x2,0x5 ; Debug Table 0x12.0x2 = 0x24c,0x3
024d 8224 | $ | Call 0x1,0x24
024e 0092 02e9 | | Action Push_String_Extended,0x2e9 ; " files read via "
0250 01cc | | Execute Vector,Catenate
0251 e5ff | | Load 0x2,-0x1
0252 01cc | | Execute Vector,Catenate
0253 8220 | | Call 0x1,0x20
0254 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0255 0000 0000 | | .XXX[0x3]
0257 0000 | |
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b | [ | .CONST 0x025b ; Address of begin
0259 0260 | ` | .CONST 0x0260 ; Address of exception handler
025a 0001 | | .CONST 0x0001 ; Number of locals
025b BODY_0258:
025b INIT_0258:
025b e402 | | Load 0x2,0x2 ; Debug Table 0x13 = .DEBUG 0x025b,0x0526,0x1004,0x0000,0x0037,0x5c94,0x0000,0x01e5
; Debug Table 0x13.0x0 = 0x25b,0x1
025c e5ff | | Load 0x2,-0x1
025d 8210 | | Call 0x1,0x10
025e c402 | | Store 0x2,0x2
025f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0260 TRAP_0258:
0260 0007 | | Action Break_Optional
0261 0092 02ea | | Action Push_String_Extended,0x2ea ; "while opening "
; Debug Table 0x13.0x1 = 0x261,0x2
0263 e5ff | | Load 0x2,-0x1
0264 01cc | | Execute Vector,Catenate
0265 821f | | Call 0x1,0x1f
0266 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x13.0x2 = 0x266,0x3
0267 0101 | | Execute Exception,Reraise
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026b | k | .CONST 0x026b ; Address of begin
0269 028e | | .CONST 0x028e ; Address of exception handler
026a 0001 | | .CONST 0x0001 ; Number of locals
026b BODY_0268:
026b INIT_0268:
026b e403 | | Load 0x2,0x3 ; Debug Table 0x14 = .DEBUG 0x026b,0x052e,0x1004,0x0000,0x0037,0x5c94,0x0000,0x022b
; Debug Table 0x14.0x0 = 0x26b,0x1
026c e5fe | | Load 0x2,-0x2
026d e221 | ! | Load 0x1,0x21
026e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
026f 00d1 | | Pop_Control Pop_Count_1
0270 0007 | | Action Break_Optional ; Debug Table 0x14.0x1 = 0x270,0x2
0271 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x14.0x2 = 0x271,0x3
0272 e404 | | Load 0x2,0x4
0273 e402 | | Load 0x2,0x2
0274 8212 | | Call 0x1,0x12
0275 c402 | | Store 0x2,0x2
0276 00d1 | | Pop_Control Pop_Count_1
0277 c405 | | Store 0x2,0x5
0278 e405 | | Load 0x2,0x5 ; Debug Table 0x14.0x3 = 0x278,0x4
0279 680d |h | Jump_Zero 0x287
027a e403 | | Load 0x2,0x3 ; Debug Table 0x14.0x4 = 0x27a,0x5
027b 4801 |H | Short_Literal 0x1
027c e405 | | Load 0x2,0x5
027d e404 | | Load 0x2,0x4
027e 01cf | | Execute Vector,Slice_Read
027f e221 | ! | Load 0x1,0x21
0280 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0281 00d1 | | Pop_Control Pop_Count_1
0282 e406 | | Load 0x2,0x6 ; Debug Table 0x14.0x5 = 0x282,0x6
0283 e405 | | Load 0x2,0x5
0284 0273 | s | Execute Discrete,Plus
0285 c406 | | Store 0x2,0x6
0286 7fea | | Jump 0x271
0287 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x14.0x6 = 0x287,0x7
0288 e403 | | Load 0x2,0x3
0289 e221 | ! | Load 0x1,0x21
028a 1814 | | Execute Package,Field_Execute,Field_Number 0x14
028b 00d1 | | Pop_Control Pop_Count_1
028c c5fc | | Store 0x2,-0x4
028d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
028e TRAP_0268:
028e 0007 | | Action Break_Optional
028f 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x14.0x7 = 0x28f,0x8
0290 e403 | | Load 0x2,0x3
0291 e221 | ! | Load 0x1,0x21
0292 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0293 00d1 | | Pop_Control Pop_Count_1
0294 c5fc | | Store 0x2,-0x4
0295 0092 02dd | | Action Push_String_Extended,0x2dd ; "while reading "
; Debug Table 0x14.0x8 = 0x295,0x9
0297 e5ff | | Load 0x2,-0x1
0298 01cc | | Execute Vector,Catenate
0299 821f | | Call 0x1,0x1f
029a 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x14.0x9 = 0x29a,0xa
029b 0101 | | Execute Exception,Reraise
029c 0000 0000 | | .BLANK 0000[0x4]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02ac | | .CONST 0x02ac ; Address of begin
02a1 0004 | | .CONST 0x0004 ; Address of exception handler
02a2 0002 | | .CONST 0x0002 ; Number of locals
02a3 INIT_02a0:
02a3 4801 |H | Short_Literal 0x1 ; Debug Table 0x15 = .DEBUG 0x02a3,0x0544,0x1004,0x0000,0x0037,0x5c94,0x0000,0x03dc
; Debug Table 0x15.0x0 = 0x2a3,0xffff
02a4 e605 | | Load 0x3,0x5
02a5 0aff | | Execute_Immediate Plus,-0x1
02a6 0248 | H | Execute Discrete,Check_In_Integer
02a7 e406 | | Load 0x2,0x6
02a8 01cf | | Execute Vector,Slice_Read
02a9 0335 | 5 | Declare_Variable Array,Duplicate
02aa 00d0 | | Action Swap_Control
02ab 00d1 | | Pop_Control Pop_Count_1
02ac BODY_02a0:
02ac e605 | | Load 0x3,0x5 ; Debug Table 0x15.0x1 = 0x2ac,0x1
02ad 0a01 | | Execute_Immediate Plus,0x1
02ae 0248 | H | Execute Discrete,Check_In_Integer
02af e407 | | Load 0x2,0x7
02b0 e406 | | Load 0x2,0x6
02b1 01cf | | Execute Vector,Slice_Read
02b2 4801 |H | Short_Literal 0x1
02b3 e407 | | Load 0x2,0x7
02b4 e605 | | Load 0x3,0x5
02b5 0272 | r | Execute Discrete,Minus
02b6 0248 | H | Execute Discrete,Check_In_Integer
02b7 e406 | | Load 0x2,0x6
02b8 01ce | | Execute Vector,Slice_Write
02b9 e407 | | Load 0x2,0x7 ; Debug Table 0x15.0x2 = 0x2b9,0x2
02ba e605 | | Load 0x3,0x5
02bb 0272 | r | Execute Discrete,Minus
02bc c407 | | Store 0x2,0x7
02bd 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x15.0x3 = 0x2bd,0x3
02be 00cb | | Action Pop_Block_With_Result
02bf 00ca | | Action Exit_Nullary_Function
02c0 0000 0000 | | .LITERAL {0x00000000, 0x00375c94}
02c4 0000 0000 | | .BLANK 0000[0x4]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02d2 | | .CONST 0x02d2 ; Address of begin
02c9 0004 | | .CONST 0x0004 ; Address of exception handler
02ca 0002 | | .CONST 0x0002 ; Number of locals
02cb INIT_02c8:
02cb 4801 |H | Short_Literal 0x1 ; Debug Table 0x16 = .DEBUG 0x02cb,0x054e,0x1004,0x0000,0x0037,0x5c94,0x0000,0x03f8
; Debug Table 0x16.0x0 = 0x2cb,0xffff
02cc e407 | | Load 0x2,0x7
02cd e406 | | Load 0x2,0x6
02ce 01cf | | Execute Vector,Slice_Read
02cf 0335 | 5 | Declare_Variable Array,Duplicate
02d0 00d0 | | Action Swap_Control
02d1 00d1 | | Pop_Control Pop_Count_1
02d2 BODY_02c8:
02d2 4800 |H | Short_Literal 0x0 ; Debug Table 0x16.0x1 = 0x2d2,0x1
02d3 a407 | | Store_Unchecked 0x2,0x7
02d4 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x16.0x2 = 0x2d4,0x2
02d5 8409 | | Call 0x2,0x9
02d6 01cc | | Execute Vector,Catenate
02d7 00cb | | Action Pop_Block_With_Result
02d8 00ca | | Action Exit_Nullary_Function
02d9 ; --------------------------------------------------------------------------------------
02d9 ; STRING TABLE
02d9 ; --------------------------------------------------------------------------------------
02d9 0026 | & | .STRTAB 0x0026->0x02ec ; ".XFER"
02da 0029 | ) | .STRTAB 0x0029->0x02ee ; " already exists."
02db 0037 | 7 | .STRTAB 0x0037->0x02f6 ; " is a preloaded subystem."
02dc 004e | N | .STRTAB 0x004e->0x0303 ; " cannot be written to EEDB."
02dd 0067 | g | .STRTAB 0x0067->0x0310 ; "while reading "
02de 0073 | s | .STRTAB 0x0073->0x0317 ; " "
02df 0075 | u | .STRTAB 0x0075->0x0319 ; "*** "
02e0 0077 | w | .STRTAB 0x0077->0x031b ; "+++ "
02e1 0079 | y | .STRTAB 0x0079->0x031d ; "++* "
02e2 007b | { | .STRTAB 0x007b->0x031f ; "%%% An exception was raised "
02e3 0095 | | .STRTAB 0x0095->0x032d ; "::: "
02e4 0097 | | .STRTAB 0x0097->0x032f ; " ("
02e5 0097 | | .STRTAB 0x0097->0x0330 ; " bytes)"
02e6 009c | | .STRTAB 0x009c->0x0334 ; " bytes) (exception: "
02e7 00ae | | .STRTAB 0x00ae->0x033e ; ")"
02e8 00ad | | .STRTAB 0x00ad->0x033e ; "1 file read via "
02e9 00bb | | .STRTAB 0x00bb->0x0346 ; " files read via "
02ea 00c9 | | .STRTAB 0x00c9->0x034e ; "while opening "
02eb 00d5 | | .STREND 0x00d5->0x0355
02ec 2e58 4645 |.XFE| .STRTAB_STRINGS
0356 0000 0000 | | .XXX[0x2]
0358 ; --------------------------------------------------------------------------------------
0358 ; Debug Table
0358 ; --------------------------------------------------------------------------------------
0358 0003 0017 | | .CONST 0x0003,0x0017
035a 000b 0412 | | .DEBUG 0x000b,0x0412,0xc000,0x0000,0x0037,0x5764,0x0000,0x0007
0362 0016 0420 | | .DEBUG 0x0016,0x0420,0xc000,0x0000,0x0037,0x5c94,0x0000,0x0009
036a 0053 044c | S L| .DEBUG 0x0053,0x044c,0x1002,0x0000,0x0037,0x5764,0x0000,0x005f
0372 006b 0456 | k V| .DEBUG 0x006b,0x0456,0x1002,0x0000,0x0037,0x5764,0x0000,0x0068
037a 008b 0460 | `| .DEBUG 0x008b,0x0460,0x1001,0x0000,0x0037,0x5764,0x0000,0x0071
0382 00e3 0494 | | .DEBUG 0x00e3,0x0494,0x1001,0x0000,0x0037,0x5764,0x0000,0x008b
038a 0123 04bc | # | .DEBUG 0x0123,0x04bc,0x1001,0x0000,0x0037,0x5c94,0x0000,0x0018
0392 0133 04c0 | 3 | .DEBUG 0x0133,0x04c0,0x1001,0x0000,0x0037,0x5c94,0x0000,0x002c
039a 0143 04c4 | C | .DEBUG 0x0143,0x04c4,0x1001,0x0000,0x0037,0x5c94,0x0000,0x0040
03a2 0153 04c8 | S | .DEBUG 0x0153,0x04c8,0x1001,0x0000,0x0037,0x5c94,0x0000,0x0054
03aa 0163 04cc | c | .DEBUG 0x0163,0x04cc,0x1001,0x0000,0x0037,0x5c94,0x0000,0x0068
03b2 0173 04d0 | s | .DEBUG 0x0173,0x04d0,0x1001,0x0000,0x0037,0x5c94,0x0000,0x007c
03ba 0183 04d4 | | .DEBUG 0x0183,0x04d4,0x1002,0x0000,0x0037,0x5c94,0x0000,0x00b7
03c2 0193 04d8 | | .DEBUG 0x0193,0x04d8,0x1002,0x0000,0x0037,0x5c94,0x0000,0x0133
03ca 019b 04dc | | .DEBUG 0x019b,0x04dc,0x1001,0x0000,0x0037,0x5c94,0x0000,0x0149
03d2 01cb 04ea | | .DEBUG 0x01cb,0x04ea,0x1001,0x0000,0x0037,0x5c94,0x0000,0x019a
03da 0213 0504 | | .DEBUG 0x0213,0x0504,0x1001,0x0000,0x0037,0x5c94,0x0000,0x026d
03e2 021b 050a | | .DEBUG 0x021b,0x050a,0x1002,0x0000,0x0037,0x5c94,0x0000,0x0382
03ea 0243 051e | C | .DEBUG 0x0243,0x051e,0x1001,0x0000,0x0037,0x5c94,0x0000,0x03fd
03f2 025b 0526 | [ &| .DEBUG 0x025b,0x0526,0x1004,0x0000,0x0037,0x5c94,0x0000,0x01e5
03fa 026b 052e | k .| .DEBUG 0x026b,0x052e,0x1004,0x0000,0x0037,0x5c94,0x0000,0x022b
0402 02a3 0544 | D| .DEBUG 0x02a3,0x0544,0x1004,0x0000,0x0037,0x5c94,0x0000,0x03dc
040a 02cb 054e | N| .DEBUG 0x02cb,0x054e,0x1004,0x0000,0x0037,0x5c94,0x0000,0x03f8
0412 ; --------------------------------------------------------------------------------------
0412 ; Debug3 Subtable 0x0
0412 ; --------------------------------------------------------------------------------------
0412 0006 0000 | | .DBG3TAB 0x0006,0x0000
0414 000b ffff | | .CONST 0x000b,0xffff
0416 000c fffe | | .CONST 0x000c,0xfffe
0418 000d fffd | | .CONST 0x000d,0xfffd
041a 000f fffc | | .CONST 0x000f,0xfffc
041c 0011 fffb | | .CONST 0x0011,0xfffb
041e 0013 fffa | | .CONST 0x0013,0xfffa
0420 ; --------------------------------------------------------------------------------------
0420 ; Debug3 Subtable 0x1
0420 ; --------------------------------------------------------------------------------------
0420 0015 0000 | | .DBG3TAB 0x0015,0x0000
0422 0016 ffff | | .CONST 0x0016,0xffff
0424 0018 fffe | | .CONST 0x0018,0xfffe
0426 0019 fffd | | .CONST 0x0019,0xfffd
0428 001b fffc | | .CONST 0x001b,0xfffc
042a 001d fffb | | .CONST 0x001d,0xfffb
042c 001f fffa | | .CONST 0x001f,0xfffa
042e 0021 fff9 | ! | .CONST 0x0021,0xfff9
0430 0023 fff8 | # | .CONST 0x0023,0xfff8
0432 0025 fff7 | % | .CONST 0x0025,0xfff7
0434 002c fff6 | , | .CONST 0x002c,0xfff6
0436 002f fff5 | / | .CONST 0x002f,0xfff5
0438 0032 fff4 | 2 | .CONST 0x0032,0xfff4
043a 0034 fff3 | 4 | .CONST 0x0034,0xfff3
043c 0036 fff2 | 6 | .CONST 0x0036,0xfff2
043e 0038 fff1 | 8 | .CONST 0x0038,0xfff1
0440 003b fff0 | ; | .CONST 0x003b,0xfff0
0442 003d ffef | = | .CONST 0x003d,0xffef
0444 003f ffee | ? | .CONST 0x003f,0xffee
0446 0041 ffed | A | .CONST 0x0041,0xffed
0448 0043 ffec | C | .CONST 0x0043,0xffec
044a 0045 ffeb | E | .CONST 0x0045,0xffeb
044c ; --------------------------------------------------------------------------------------
044c ; Debug3 Subtable 0x2
044c ; --------------------------------------------------------------------------------------
044c 0000 0004 | | .DBG3TAB 0x0000,0x0004
044e 0053 0001 | S | .CONST 0x0053,0x0001
0450 0057 0002 | W | .CONST 0x0057,0x0002
0452 005c 0003 | \ | .CONST 0x005c,0x0003
0454 0064 0004 | d | .CONST 0x0064,0x0004
0456 ; --------------------------------------------------------------------------------------
0456 ; Debug3 Subtable 0x3
0456 ; --------------------------------------------------------------------------------------
0456 0000 0004 | | .DBG3TAB 0x0000,0x0004
0458 006b 0001 | k | .CONST 0x006b,0x0001
045a 006f 0002 | o | .CONST 0x006f,0x0002
045c 0074 0003 | t | .CONST 0x0074,0x0003
045e 007e 0004 | ~ | .CONST 0x007e,0x0004
0460 ; --------------------------------------------------------------------------------------
0460 ; Debug3 Subtable 0x4
0460 ; --------------------------------------------------------------------------------------
0460 0004 0015 | | .DBG3TAB 0x0004,0x0015
0462 008b ffff | | .CONST 0x008b,0xffff
0464 008e fffe | | .CONST 0x008e,0xfffe
0466 0090 fffd | | .CONST 0x0090,0xfffd
0468 0091 fffc | | .CONST 0x0091,0xfffc
046a 0093 0001 | | .CONST 0x0093,0x0001
046c 0097 0002 | | .CONST 0x0097,0x0002
046e 0098 0003 | | .CONST 0x0098,0x0003
0470 009b 0004 | | .CONST 0x009b,0x0004
0472 009f 0005 | | .CONST 0x009f,0x0005
0474 00a2 0006 | | .CONST 0x00a2,0x0006
0476 00a5 0007 | | .CONST 0x00a5,0x0007
0478 00a7 0008 | | .CONST 0x00a7,0x0008
047a 00ab 0009 | | .CONST 0x00ab,0x0009
047c 00b1 000a | | .CONST 0x00b1,0x000a
047e 00b4 000b | | .CONST 0x00b4,0x000b
0480 00bb 000c | | .CONST 0x00bb,0x000c
0482 00bf 000d | | .CONST 0x00bf,0x000d
0484 00c5 000e | | .CONST 0x00c5,0x000e
0486 00c7 000f | | .CONST 0x00c7,0x000f
0488 00c9 0010 | | .CONST 0x00c9,0x0010
048a 00d0 0011 | | .CONST 0x00d0,0x0011
048c 00d5 0012 | | .CONST 0x00d5,0x0012
048e 00d7 0013 | | .CONST 0x00d7,0x0013
0490 00d9 0014 | | .CONST 0x00d9,0x0014
0492 00dd 0015 | | .CONST 0x00dd,0x0015
0494 ; --------------------------------------------------------------------------------------
0494 ; Debug3 Subtable 0x5
0494 ; --------------------------------------------------------------------------------------
0494 0009 000a | | .DBG3TAB 0x0009,0x000a
0496 00e3 ffff | | .CONST 0x00e3,0xffff
0498 00e7 fffe | | .CONST 0x00e7,0xfffe
049a 00e9 fffd | | .CONST 0x00e9,0xfffd
049c 00ea fffc | | .CONST 0x00ea,0xfffc
049e 00ec fffb | | .CONST 0x00ec,0xfffb
04a0 00f0 fffa | | .CONST 0x00f0,0xfffa
04a2 00f2 fff9 | | .CONST 0x00f2,0xfff9
04a4 00f4 fff8 | | .CONST 0x00f4,0xfff8
04a6 00f6 fff7 | | .CONST 0x00f6,0xfff7
04a8 00f9 0001 | | .CONST 0x00f9,0x0001
04aa 00fe 0003 | | .CONST 0x00fe,0x0003
04ac 0106 0004 | | .CONST 0x0106,0x0004
04ae 0108 0005 | | .CONST 0x0108,0x0005
04b0 010b 0002 | | .CONST 0x010b,0x0002
04b2 010d 0006 | | .CONST 0x010d,0x0006
04b4 0110 0007 | | .CONST 0x0110,0x0007
04b6 0113 0008 | | .CONST 0x0113,0x0008
04b8 0116 0009 | | .CONST 0x0116,0x0009
04ba 011b 000a | | .CONST 0x011b,0x000a
04bc ; --------------------------------------------------------------------------------------
04bc ; Debug3 Subtable 0x6
04bc ; --------------------------------------------------------------------------------------
04bc 0000 0001 | | .DBG3TAB 0x0000,0x0001
04be 0123 0001 | # | .CONST 0x0123,0x0001
04c0 ; --------------------------------------------------------------------------------------
04c0 ; Debug3 Subtable 0x7
04c0 ; --------------------------------------------------------------------------------------
04c0 0000 0001 | | .DBG3TAB 0x0000,0x0001
04c2 0133 0001 | 3 | .CONST 0x0133,0x0001
04c4 ; --------------------------------------------------------------------------------------
04c4 ; Debug3 Subtable 0x8
04c4 ; --------------------------------------------------------------------------------------
04c4 0000 0001 | | .DBG3TAB 0x0000,0x0001
04c6 0143 0001 | C | .CONST 0x0143,0x0001
04c8 ; --------------------------------------------------------------------------------------
04c8 ; Debug3 Subtable 0x9
04c8 ; --------------------------------------------------------------------------------------
04c8 0000 0001 | | .DBG3TAB 0x0000,0x0001
04ca 0153 0001 | S | .CONST 0x0153,0x0001
04cc ; --------------------------------------------------------------------------------------
04cc ; Debug3 Subtable 0xa
04cc ; --------------------------------------------------------------------------------------
04cc 0000 0001 | | .DBG3TAB 0x0000,0x0001
04ce 0163 0001 | c | .CONST 0x0163,0x0001
04d0 ; --------------------------------------------------------------------------------------
04d0 ; Debug3 Subtable 0xb
04d0 ; --------------------------------------------------------------------------------------
04d0 0000 0001 | | .DBG3TAB 0x0000,0x0001
04d2 0173 0001 | s | .CONST 0x0173,0x0001
04d4 ; --------------------------------------------------------------------------------------
04d4 ; Debug3 Subtable 0xc
04d4 ; --------------------------------------------------------------------------------------
04d4 0000 0001 | | .DBG3TAB 0x0000,0x0001
04d6 0183 0001 | | .CONST 0x0183,0x0001
04d8 ; --------------------------------------------------------------------------------------
04d8 ; Debug3 Subtable 0xd
04d8 ; --------------------------------------------------------------------------------------
04d8 0000 0001 | | .DBG3TAB 0x0000,0x0001
04da 0193 0001 | | .CONST 0x0193,0x0001
04dc ; --------------------------------------------------------------------------------------
04dc ; Debug3 Subtable 0xe
04dc ; --------------------------------------------------------------------------------------
04dc 0002 0004 | | .DBG3TAB 0x0002,0x0004
04de 019b ffff | | .CONST 0x019b,0xffff
04e0 01a3 fffe | | .CONST 0x01a3,0xfffe
04e2 01a4 0001 | | .CONST 0x01a4,0x0001
04e4 01ab 0002 | | .CONST 0x01ab,0x0002
04e6 01b1 0003 | | .CONST 0x01b1,0x0003
04e8 01c2 0004 | | .CONST 0x01c2,0x0004
04ea ; --------------------------------------------------------------------------------------
04ea ; Debug3 Subtable 0xf
04ea ; --------------------------------------------------------------------------------------
04ea 0005 0007 | | .DBG3TAB 0x0005,0x0007
04ec 01cb ffff | | .CONST 0x01cb,0xffff
04ee 01cf fffe | | .CONST 0x01cf,0xfffe
04f0 01d4 fffd | | .CONST 0x01d4,0xfffd
04f2 01d9 fffc | | .CONST 0x01d9,0xfffc
04f4 01da fffb | | .CONST 0x01da,0xfffb
04f6 01e1 0001 | | .CONST 0x01e1,0x0001
04f8 01e2 0002 | | .CONST 0x01e2,0x0002
04fa 01e3 0003 | | .CONST 0x01e3,0x0003
04fc 01e6 0004 | | .CONST 0x01e6,0x0004
04fe 01f3 0005 | | .CONST 0x01f3,0x0005
0500 01f6 0006 | | .CONST 0x01f6,0x0006
0502 0207 0007 | | .CONST 0x0207,0x0007
0504 ; --------------------------------------------------------------------------------------
0504 ; Debug3 Subtable 0x10
0504 ; --------------------------------------------------------------------------------------
0504 0000 0002 | | .DBG3TAB 0x0000,0x0002
0506 0213 0001 | | .CONST 0x0213,0x0001
0508 0215 0002 | | .CONST 0x0215,0x0002
050a ; --------------------------------------------------------------------------------------
050a ; Debug3 Subtable 0x11
050a ; --------------------------------------------------------------------------------------
050a 0000 0009 | | .DBG3TAB 0x0000,0x0009
050c 021f 0001 | | .CONST 0x021f,0x0001
050e 0221 0002 | ! | .CONST 0x0221,0x0002
0510 0228 0003 | ( | .CONST 0x0228,0x0003
0512 022a 0004 | * | .CONST 0x022a,0x0004
0514 022c 0005 | , | .CONST 0x022c,0x0005
0516 022e 0006 | . | .CONST 0x022e,0x0006
0518 0232 0007 | 2 | .CONST 0x0232,0x0007
051a 0237 0008 | 7 | .CONST 0x0237,0x0008
051c 0239 0009 | 9 | .CONST 0x0239,0x0009
051e ; --------------------------------------------------------------------------------------
051e ; Debug3 Subtable 0x12
051e ; --------------------------------------------------------------------------------------
051e 0000 0003 | | .DBG3TAB 0x0000,0x0003
0520 0243 0001 | C | .CONST 0x0243,0x0001
0522 0246 0002 | F | .CONST 0x0246,0x0002
0524 024c 0003 | L | .CONST 0x024c,0x0003
0526 ; --------------------------------------------------------------------------------------
0526 ; Debug3 Subtable 0x13
0526 ; --------------------------------------------------------------------------------------
0526 0000 0003 | | .DBG3TAB 0x0000,0x0003
0528 025b 0001 | [ | .CONST 0x025b,0x0001
052a 0261 0002 | a | .CONST 0x0261,0x0002
052c 0266 0003 | f | .CONST 0x0266,0x0003
052e ; --------------------------------------------------------------------------------------
052e ; Debug3 Subtable 0x14
052e ; --------------------------------------------------------------------------------------
052e 0000 000a | | .DBG3TAB 0x0000,0x000a
0530 026b 0001 | k | .CONST 0x026b,0x0001
0532 0270 0002 | p | .CONST 0x0270,0x0002
0534 0271 0003 | q | .CONST 0x0271,0x0003
0536 0278 0004 | x | .CONST 0x0278,0x0004
0538 027a 0005 | z | .CONST 0x027a,0x0005
053a 0282 0006 | | .CONST 0x0282,0x0006
053c 0287 0007 | | .CONST 0x0287,0x0007
053e 028f 0008 | | .CONST 0x028f,0x0008
0540 0295 0009 | | .CONST 0x0295,0x0009
0542 029a 000a | | .CONST 0x029a,0x000a
0544 ; --------------------------------------------------------------------------------------
0544 ; Debug3 Subtable 0x15
0544 ; --------------------------------------------------------------------------------------
0544 0001 0003 | | .DBG3TAB 0x0001,0x0003
0546 02a3 ffff | | .CONST 0x02a3,0xffff
0548 02ac 0001 | | .CONST 0x02ac,0x0001
054a 02b9 0002 | | .CONST 0x02b9,0x0002
054c 02bd 0003 | | .CONST 0x02bd,0x0003
054e ; --------------------------------------------------------------------------------------
054e ; Debug3 Subtable 0x16
054e ; --------------------------------------------------------------------------------------
054e 0001 0002 | | .DBG3TAB 0x0001,0x0002
0550 02cb ffff | | .CONST 0x02cb,0xffff
0552 02d2 0001 | | .CONST 0x02d2,0x0001
0554 02d4 0002 | | .CONST 0x02d4,0x0002
0556 0000 0000 | | .BLANK 0000[0xaa]