DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 DFS Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 DFS Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦4eba5a637⟧ SEG

    Length: 2048 (0x800)
    Types: SEG
    Notes: 5811_R1K_CODE
    Names: »461843.SEG«

Derivation

└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
    └─ ⟦this⟧ »461843.SEG« 
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
    └─ ⟦this⟧ »461843.SEG« 
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
    └─ ⟦this⟧ »461843.SEG« 
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
    └─ ⟦this⟧ »461843.SEG« 
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
    └─ ⟦this⟧ »461843.SEG« 

Disassembly

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 01f0       |    |		.CONST	0x01f0								; 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 0010       |    |		.CONST	0x0010								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0001       |    |		.CONST	0x0001								; Number of locals
000b			INIT_0008:
000b 029a 001b  |    |		Declare_Subprogram	INIT_0018,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0 = .DEBUG	0x000b,0x023a,0x8000,0x0000,0x0036,0x5684,0x0000,0x0007
000d 00bf       |    |		Action	Accept_Activation
000e 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
000f 00c7       |    |		Action	Elaborate_Subprogram
0010			BODY_0008:
0010 00bc       |    |		Action	Signal_Activated
0011 00bb       |    |		Action	Signal_Completion
0012 0000 0000  |    |		.BLANK	0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 0043       | C  |		.CONST	0x0043								; Address of begin
0019 00a3       |    |		.CONST	0x00a3								; Address of exception handler
001a 0010       |    |		.CONST	0x0010								; Number of locals
001b			INIT_0018:
001b e001       |    |		Load	0x0,0x1								; Debug Table 0x1 = .DEBUG	0x001b,0x023c,0xa801,0x0002,0x0036,0x5684,0x0000,0x0007
													; Debug Table 0x1.0x0 = 0x1b,0xffff
													; Debug Table 0x1.0x1 = 0x1b,0xfffe
													; Debug Table 0x1.0x2 = 0x1b,0xfffd
													; Debug Table 0x1.0x3 = 0x1b,0xfffc
													; Debug Table 0x1.0x4 = 0x1b,0xfffb
001c 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
001d 0322       | "  |		Declare_Variable	Record
001e e402       |    |		Load	0x2,0x2
001f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0020 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x1.0x5 = 0x20,0xfffa
0021 e002       |    |		Load	0x0,0x2
0022 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0023 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0024 e403       |    |		Load	0x2,0x3
0025 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0026 e001       |    |		Load	0x0,0x1								; Debug Table 0x1.0x6 = 0x26,0xfff9
0027 1b33       | 3  |		Execute	Package,Field_Read,Field_Number 0x33
0028 0322       | "  |		Declare_Variable	Record
0029 e404       |    |		Load	0x2,0x4
002a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
002b 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x1.0x7 = 0x2b,0xfff8
002c 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
002d e002       |    |		Load	0x0,0x2								; Debug Table 0x1.0x8 = 0x2d,0xfff7
002e 1925       | %  |		Execute	Package,Field_Reference,Field_Number 0x25
002f e002       |    |		Load	0x0,0x2								; Debug Table 0x1.0x9 = 0x2f,0xfff6
0030 1924       | $  |		Execute	Package,Field_Reference,Field_Number 0x24
0031 e002       |    |		Load	0x0,0x2								; Debug Table 0x1.0xa = 0x31,0xfff5
0032 1918       |    |		Execute	Package,Field_Reference,Field_Number 0x18
0033 e003       |    |		Load	0x0,0x3								; Debug Table 0x1.0xb = 0x33,0xfff4
0034 1912       |    |		Execute	Package,Field_Reference,Field_Number 0x12
0035 029f 00ab  |    |		Declare_Subprogram	INIT_00a8,For_Call				; Debug Table 0x1.0xc = 0x35,0xfff3
0037 029f 00c3  |    |		Declare_Subprogram	INIT_00c0,For_Call				; Debug Table 0x1.0xd = 0x37,0xfff2
0039 029f 00f3  |    |		Declare_Subprogram	INIT_00f0,For_Call				; Debug Table 0x1.0xe = 0x39,0xfff1
003b 029f 0133  |   3|		Declare_Subprogram	INIT_0130,For_Call				; Debug Table 0x1.0xf = 0x3b,0xfff0
003d 029f 017b  |   {|		Declare_Subprogram	INIT_0178,For_Call				; Debug Table 0x1.0x10 = 0x3d,0xffef
003f 029f 019b  |    |		Declare_Subprogram	INIT_0198,For_Call				; Debug Table 0x1.0x11 = 0x3f,0xffee
0041 029f 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Call
0043			BODY_0018:
0043 e402       |    |		Load	0x2,0x2								; Debug Table 0x1.0x12 = 0x43,0x1
0044 e5fc       |    |		Load	0x2,-0x4
0045 e001       |    |		Load	0x0,0x1
0046 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
0047 00d1       |    |		Pop_Control	Pop_Count_1
0048 8410       |    |		Call	0x2,0x10							; Debug Table 0x1.0x13 = 0x48,0x2
0049 7854       |xT  |		Jump	0x9e
004a e403       |    |		Load	0x2,0x3								; Debug Table 0x1.0x14 = 0x4a,0x4
004b 4820       |H   |		Short_Literal	0x20
004c 4809       |H   |		Short_Literal	0x9
004d 8407       |    |		Call	0x2,0x7
004e 00d1       |    |		Pop_Control	Pop_Count_1
004f e402       |    |		Load	0x2,0x2								; Debug Table 0x1.0x15 = 0x4f,0x5
0050 e001       |    |		Load	0x0,0x1
0051 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
0052 4603       |F   |		Jump_Case	0x4
0053 7803       |x   |		Jump	0x57								; case 0x0
0054 7808       |x   |		Jump	0x5d								; case 0x1
0055 780d       |x   |		Jump	0x63								; case 0x2
0056 7812       |x   |		Jump	0x69								; case 0x3
0057 e403       |    |		Load	0x2,0x3								; Debug Table 0x1.0x16 = 0x57,0x6
0058 0092 01d5  |    |		Action	Push_String_Extended,0x1d5					; "--- "
005a 8408       |    |		Call	0x2,0x8
005b 00d1       |    |		Pop_Control	Pop_Count_1
005c 7811       |x   |		Jump	0x6e
005d e403       |    |		Load	0x2,0x3								; Debug Table 0x1.0x17 = 0x5d,0x7
005e 0092 01d6  |    |		Action	Push_String_Extended,0x1d6					; "+++ "
0060 8408       |    |		Call	0x2,0x8
0061 00d1       |    |		Pop_Control	Pop_Count_1
0062 780b       |x   |		Jump	0x6e
0063 e403       |    |		Load	0x2,0x3								; Debug Table 0x1.0x18 = 0x63,0x8
0064 0092 01d7  |    |		Action	Push_String_Extended,0x1d7					; "!!! "
0066 8408       |    |		Call	0x2,0x8
0067 00d1       |    |		Pop_Control	Pop_Count_1
0068 7805       |x   |		Jump	0x6e
0069 e403       |    |		Load	0x2,0x3								; Debug Table 0x1.0x19 = 0x69,0x9
006a 0092 01d8  |    |		Action	Push_String_Extended,0x1d8					; "*** "
006c 8408       |    |		Call	0x2,0x8
006d 00d1       |    |		Pop_Control	Pop_Count_1
006e e402       |    |		Load	0x2,0x2								; Debug Table 0x1.0x1a = 0x6e,0xa
006f e001       |    |		Load	0x0,0x1
0070 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0071 840f       |    |		Call	0x2,0xf
0072 e402       |    |		Load	0x2,0x2								; Debug Table 0x1.0x1b = 0x72,0xb
0073 e001       |    |		Load	0x0,0x1
0074 182c       | ,  |		Execute	Package,Field_Execute,Field_Number 0x2c
0075 840f       |    |		Call	0x2,0xf
0076 e402       |    |		Load	0x2,0x2								; Debug Table 0x1.0x1c = 0x76,0xc
0077 e001       |    |		Load	0x0,0x1
0078 1830       | 0  |		Execute	Package,Field_Execute,Field_Number 0x30
0079 840e       |    |		Call	0x2,0xe
007a 840a       |    |		Call	0x2,0xa								; Debug Table 0x1.0x1d = 0x7a,0xd
007b e404       |    |		Load	0x2,0x4								; Debug Table 0x1.0x1e = 0x7b,0xe
007c e402       |    |		Load	0x2,0x2
007d e001       |    |		Load	0x0,0x1
007e 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
007f 00d1       |    |		Pop_Control	Pop_Count_1
0080 7815       |x   |		Jump	0x96
0081 e403       |    |		Load	0x2,0x3								; Debug Table 0x1.0x1f = 0x81,0x10
0082 4820       |H   |		Short_Literal	0x20
0083 480d       |H   |		Short_Literal	0xd
0084 8407       |    |		Call	0x2,0x7
0085 00d1       |    |		Pop_Control	Pop_Count_1
0086 e404       |    |		Load	0x2,0x4								; Debug Table 0x1.0x20 = 0x86,0x11
0087 e001       |    |		Load	0x0,0x1
0088 1837       | 7  |		Execute	Package,Field_Execute,Field_Number 0x37
0089 840e       |    |		Call	0x2,0xe
008a 0092 01d9  |    |		Action	Push_String_Extended,0x1d9					; " => "
													; Debug Table 0x1.0x21 = 0x8a,0x12
008c 840e       |    |		Call	0x2,0xe
008d e404       |    |		Load	0x2,0x4								; Debug Table 0x1.0x22 = 0x8d,0x13
008e e001       |    |		Load	0x0,0x1
008f 1838       | 8  |		Execute	Package,Field_Execute,Field_Number 0x38
0090 840e       |    |		Call	0x2,0xe
0091 840a       |    |		Call	0x2,0xa								; Debug Table 0x1.0x23 = 0x91,0x14
0092 e404       |    |		Load	0x2,0x4								; Debug Table 0x1.0x24 = 0x92,0x15
0093 e001       |    |		Load	0x0,0x1
0094 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
0095 00d1       |    |		Pop_Control	Pop_Count_1
0096 e404       |    |		Load	0x2,0x4								; Debug Table 0x1.0x25 = 0x96,0xf
0097 e001       |    |		Load	0x0,0x1
0098 1836       | 6  |		Execute	Package,Field_Execute,Field_Number 0x36
0099 6fe7       |o   |		Jump_Zero	0x81
009a e402       |    |		Load	0x2,0x2								; Debug Table 0x1.0x26 = 0x9a,0x16
009b e001       |    |		Load	0x0,0x1
009c 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
009d 00d1       |    |		Pop_Control	Pop_Count_1
009e e402       |    |		Load	0x2,0x2								; Debug Table 0x1.0x27 = 0x9e,0x3
009f e001       |    |		Load	0x0,0x1
00a0 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
00a1 6fa8       |o   |		Jump_Zero	0x4a
00a2 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
00a3			TRAP_0018:
00a3 0007       |    |		Action	Break_Optional
00a4 840a       |    |		Call	0x2,0xa								; Debug Table 0x1.0x28 = 0xa4,0x17
00a5 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
00a6 0000 0000  |    |		.XXX[0x2]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab       |    |		.CONST	0x00ab								; Address of begin
00a9 00b8       |    |		.CONST	0x00b8								; Address of exception handler
00aa 0001       |    |		.CONST	0x0001								; Number of locals
00ab			BODY_00a8:
00ab			INIT_00a8:
00ab e403       |    |		Load	0x2,0x3								; Debug Table 0x2 = .DEBUG	0x00ab,0x0290,0x0801,0x0002,0x0036,0x58f4,0x0000,0x0099
													; Debug Table 0x2.0x0 = 0xab,0x1
00ac 8406       |    |		Call	0x2,0x6
00ad 0c0e       |    |		Execute_Immediate	Greater_Equal,0xe
00ae 6808       |h   |		Jump_Zero	0xb7
00af e403       |    |		Load	0x2,0x3								; Debug Table 0x2.0x1 = 0xaf,0x2
00b0 e002       |    |		Load	0x0,0x2
00b1 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
00b2 85fd       |    |		Call	0x2,-0x3
00b3 e403       |    |		Load	0x2,0x3								; Debug Table 0x2.0x2 = 0xb3,0x3
00b4 e002       |    |		Load	0x0,0x2
00b5 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00b6 00d1       |    |		Pop_Control	Pop_Count_1
00b7 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00b8			TRAP_00a8:
00b8 0007       |    |		Action	Break_Optional
00b9 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1					; Debug Table 0x2.0x3 = 0xb9,0x4
00ba 0000 0000  |    |		.BLANK	0000[0x6]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00cb       |    |		.CONST	0x00cb								; Address of begin
00c1 0004       |    |		.CONST	0x0004								; Address of exception handler
00c2 0002       |    |		.CONST	0x0002								; Number of locals
00c3			INIT_00c0:
00c3 e7ff       |    |		Load	0x3,-0x1							; Debug Table 0x3 = .DEBUG	0x00c3,0x029a,0x0802,0x0002,0x0036,0x58f4,0x0000,0x00c0
													; Debug Table 0x3.0x0 = 0xc3,0xffff
00c4 01dd       |    |		Execute	Vector,First
00c5 e7fe       |    |		Load	0x3,-0x2
00c6 0273       | s  |		Execute	Discrete,Plus
00c7 0248       | H  |		Execute	Discrete,Check_In_Integer
00c8 0aff       |    |		Execute_Immediate	Plus,-0x1
00c9 00e3       |    |		Load_Encached	Natural_Cache
00ca 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
00cb			BODY_00c0:
00cb e7ff       |    |		Load	0x3,-0x1							; Debug Table 0x3.0x1 = 0xcb,0x1
00cc 01dd       |    |		Execute	Vector,First
00cd e602       |    |		Load	0x3,0x2
00ce 0264       | d  |		Execute	Discrete,Below_Bound
00cf 700e       |p   |		Jump_Nonzero	0xde
00d0 e004       |    |		Load	0x0,0x4								; Debug Table 0x3.0x2 = 0xd0,0x2
00d1 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
00d2 e604       |    |		Load	0x3,0x4
00d3 e7ff       |    |		Load	0x3,-0x1
00d4 01d7       |    |		Execute	Vector,Field_Read
00d5 8409       |    |		Call	0x2,0x9
00d6 0b01       |    |		Execute_Immediate	Case_Compare,0x1
00d7 7004       |p   |		Jump_Nonzero	0xdc
00d8 e604       |    |		Load	0x3,0x4								; Debug Table 0x3.0x3 = 0xd8,0x4
00d9 00e3       |    |		Load_Encached	Natural_Cache
00da 025b       | [  |		Execute	Discrete,Check_In_Type
00db 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00dc 00d1       |    |		Pop_Control	Pop_Count_1
00dd 37f2       |7   |		Loop_Decreasing	0xd0
00de e7fe       |    |		Load	0x3,-0x2							; Debug Table 0x3.0x4 = 0xde,0x5
00df e5fe       |    |		Load	0x2,-0x2
00e0 0af3       |    |		Execute_Immediate	Plus,-0xd
00e1 027b       | {  |		Execute	Discrete,Greater_Equal
00e2 6802       |h   |		Jump_Zero	0xe5
00e3 e602       |    |		Load	0x3,0x2								; Debug Table 0x3.0x5 = 0xe3,0x6
00e4 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00e5 e7ff       |    |		Load	0x3,-0x1							; Debug Table 0x3.0x6 = 0xe5,0x7
00e6 01dd       |    |		Execute	Vector,First
00e7 0aff       |    |		Execute_Immediate	Plus,-0x1
00e8 00e3       |    |		Load_Encached	Natural_Cache
00e9 025b       | [  |		Execute	Discrete,Check_In_Type
00ea 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00eb 0000 0000  |    |		.BLANK	0000[0x5]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 0101       |    |		.CONST	0x0101								; Address of begin
00f1 0004       |    |		.CONST	0x0004								; Address of exception handler
00f2 0003       |    |		.CONST	0x0003								; Number of locals
00f3			INIT_00f0:
00f3 e7ff       |    |		Load	0x3,-0x1							; Debug Table 0x4 = .DEBUG	0x00f3,0x02aa,0x0802,0x0002,0x0036,0x58f4,0x0000,0x0119
													; Debug Table 0x4.0x0 = 0xf3,0xffff
00f4 01dd       |    |		Execute	Vector,First
00f5 00e3       |    |		Load_Encached	Natural_Cache
00f6 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
00f7 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x4.0x1 = 0xf7,0xfffe
00f8 e403       |    |		Load	0x2,0x3
00f9 8406       |    |		Call	0x2,0x6
00fa 0272       | r  |		Execute	Discrete,Minus
00fb 00e3       |    |		Load_Encached	Natural_Cache
00fc 025b       | [  |		Execute	Discrete,Check_In_Type
00fd e7ff       |    |		Load	0x3,-0x1
00fe 840b       |    |		Call	0x2,0xb
00ff 00e3       |    |		Load_Encached	Natural_Cache
0100 03f1       |    |		Declare_Variable	Discrete,With_Value
0101			BODY_00f0:
0101 e403       |    |		Load	0x2,0x3								; Debug Table 0x4.0x2 = 0x101,0x1
0102 e002       |    |		Load	0x0,0x2
0103 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0104 e602       |    |		Load	0x3,0x2
0105 e603       |    |		Load	0x3,0x3
0106 e7ff       |    |		Load	0x3,-0x1
0107 01cf       |    |		Execute	Vector,Slice_Read
0108 01cc       |    |		Execute	Vector,Catenate
0109 85fd       |    |		Call	0x2,-0x3
010a e403       |    |		Load	0x2,0x3								; Debug Table 0x4.0x3 = 0x10a,0x2
010b e002       |    |		Load	0x0,0x2
010c 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
010d 00d1       |    |		Pop_Control	Pop_Count_1
010e e403       |    |		Load	0x2,0x3								; Debug Table 0x4.0x4 = 0x10e,0x3
010f 4820       |H   |		Short_Literal	0x20
0110 480d       |H   |		Short_Literal	0xd
0111 8407       |    |		Call	0x2,0x7
0112 00d1       |    |		Pop_Control	Pop_Count_1
0113 e403       |    |		Load	0x2,0x3								; Debug Table 0x4.0x5 = 0x113,0x4
0114 8406       |    |		Call	0x2,0x6
0115 e7ff       |    |		Load	0x3,-0x1
0116 01dc       |    |		Execute	Vector,Last
0117 0273       | s  |		Execute	Discrete,Plus
0118 0248       | H  |		Execute	Discrete,Check_In_Integer
0119 e603       |    |		Load	0x3,0x3
011a 0272       | r  |		Execute	Discrete,Minus
011b e5fe       |    |		Load	0x2,-0x2
011c 027b       | {  |		Execute	Discrete,Greater_Equal
011d 6809       |h   |		Jump_Zero	0x127
011e e603       |    |		Load	0x3,0x3								; Debug Table 0x4.0x6 = 0x11e,0x5
011f 0a01       |    |		Execute_Immediate	Plus,0x1
0120 0248       | H  |		Execute	Discrete,Check_In_Integer
0121 e7ff       |    |		Load	0x3,-0x1
0122 01dc       |    |		Execute	Vector,Last
0123 e7ff       |    |		Load	0x3,-0x1
0124 01cf       |    |		Execute	Vector,Slice_Read
0125 840c       |    |		Call	0x2,0xc
0126 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0127 e603       |    |		Load	0x3,0x3								; Debug Table 0x4.0x7 = 0x127,0x6
0128 0a01       |    |		Execute_Immediate	Plus,0x1
0129 0248       | H  |		Execute	Discrete,Check_In_Integer
012a e7ff       |    |		Load	0x3,-0x1
012b 01dc       |    |		Execute	Vector,Last
012c e7ff       |    |		Load	0x3,-0x1
012d 01cf       |    |		Execute	Vector,Slice_Read
012e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 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 e7ff       |    |		Load	0x3,-0x1							; Debug Table 0x5 = .DEBUG	0x0133,0x02bc,0x0802,0x0002,0x0036,0x58f4,0x0000,0x018d
													; Debug Table 0x5.0x0 = 0x133,0x1
0134 01d9       |    |		Execute	Vector,Reverse_Bounds
0135 0263       | c  |		Execute	Discrete,Above_Bound
0136 703f       |p?  |		Jump_Nonzero	0x176
0137 e603       |    |		Load	0x3,0x3								; Debug Table 0x5.0x1 = 0x137,0x2
0138 e7ff       |    |		Load	0x3,-0x1
0139 01d7       |    |		Execute	Vector,Field_Read
013a 00d8       |    |		Load_Top	At_Offset_0
013b 4800       |H   |		Short_Literal	0x0
013c 481f       |H   |		Short_Literal	0x1f
013d 0262       | b  |		Execute	Discrete,In_Range
013e 7003       |p   |		Jump_Nonzero	0x142
013f 0b7f       |    |		Execute_Immediate	Case_Compare,0x7f
0140 701f       |p   |		Jump_Nonzero	0x160
0141 7832       |x2  |		Jump	0x174								; Debug Table 0x5.0x2 = 0x141,0x5
0142 e603       |    |		Load	0x3,0x3								; Debug Table 0x5.0x3 = 0x142,0x3
0143 e7ff       |    |		Load	0x3,-0x1
0144 01d7       |    |		Execute	Vector,Field_Read
0145 0a40       | @  |		Execute_Immediate	Plus,0x40
0146 00d8       |    |		Load_Top	At_Offset_0
0147 00e8       |    |		Load_Encached	Character_Cache
0148 0260       | `  |		Execute	Discrete,In_Type
0149 7002       |p   |		Jump_Nonzero	0x14c
014a 48e0       |H   |		Short_Literal	0xe0
014b 0257       | W  |		Execute	Discrete,Raise
014c 485e       |H^  |		Short_Literal	0x5e
014d e7ff       |    |		Load	0x3,-0x1
014e 01dd       |    |		Execute	Vector,First
014f e603       |    |		Load	0x3,0x3
0150 0aff       |    |		Execute_Immediate	Plus,-0x1
0151 0248       | H  |		Execute	Discrete,Check_In_Integer
0152 e7ff       |    |		Load	0x3,-0x1
0153 01cf       |    |		Execute	Vector,Slice_Read
0154 01cb       |    |		Execute	Vector,Append
0155 01cb       |    |		Execute	Vector,Append
0156 e603       |    |		Load	0x3,0x3
0157 0a01       |    |		Execute_Immediate	Plus,0x1
0158 0248       | H  |		Execute	Discrete,Check_In_Integer
0159 e7ff       |    |		Load	0x3,-0x1
015a 01dc       |    |		Execute	Vector,Last
015b e7ff       |    |		Load	0x3,-0x1
015c 01cf       |    |		Execute	Vector,Slice_Read
015d 840d       |    |		Call	0x2,0xd
015e 01cc       |    |		Execute	Vector,Catenate
015f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0160 e7ff       |    |		Load	0x3,-0x1							; Debug Table 0x5.0x4 = 0x160,0x4
0161 01dd       |    |		Execute	Vector,First
0162 e603       |    |		Load	0x3,0x3
0163 0aff       |    |		Execute_Immediate	Plus,-0x1
0164 0248       | H  |		Execute	Discrete,Check_In_Integer
0165 e7ff       |    |		Load	0x3,-0x1
0166 01cf       |    |		Execute	Vector,Slice_Read
0167 0092 01da  |    |		Action	Push_String_Extended,0x1da					; "^?"
0169 01cc       |    |		Execute	Vector,Catenate
016a e603       |    |		Load	0x3,0x3
016b 0a01       |    |		Execute_Immediate	Plus,0x1
016c 0248       | H  |		Execute	Discrete,Check_In_Integer
016d e7ff       |    |		Load	0x3,-0x1
016e 01dc       |    |		Execute	Vector,Last
016f e7ff       |    |		Load	0x3,-0x1
0170 01cf       |    |		Execute	Vector,Slice_Read
0171 840d       |    |		Call	0x2,0xd
0172 01cc       |    |		Execute	Vector,Catenate
0173 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0174 00d1       |    |		Pop_Control	Pop_Count_1
0175 3fc1       |?   |		Loop_Increasing	0x137
0176 e7ff       |    |		Load	0x3,-0x1							; Debug Table 0x5.0x5 = 0x176,0x6
0177 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017d       | }  |		.CONST	0x017d								; Address of begin
0179 0194       |    |		.CONST	0x0194								; Address of exception handler
017a 0002       |    |		.CONST	0x0002								; Number of locals
017b			INIT_0178:
017b e7ff       |    |		Load	0x3,-0x1							; Debug Table 0x6 = .DEBUG	0x017b,0x02ca,0x0801,0x0002,0x0036,0x58f4,0x0000,0x0219
													; Debug Table 0x6.0x0 = 0x17b,0xffff
017c 840d       |    |		Call	0x2,0xd
017d			BODY_0178:
017d e602       |    |		Load	0x3,0x2								; Debug Table 0x6.0x1 = 0x17d,0x1
017e 01db       |    |		Execute	Vector,Length
017f e403       |    |		Load	0x2,0x3
0180 8406       |    |		Call	0x2,0x6
0181 0273       | s  |		Execute	Discrete,Plus
0182 e5fe       |    |		Load	0x2,-0x2
0183 027b       | {  |		Execute	Discrete,Greater_Equal
0184 6806       |h   |		Jump_Zero	0x18b
0185 e403       |    |		Load	0x2,0x3								; Debug Table 0x6.0x2 = 0x185,0x2
0186 e602       |    |		Load	0x3,0x2
0187 840c       |    |		Call	0x2,0xc
0188 8408       |    |		Call	0x2,0x8
0189 00d1       |    |		Pop_Control	Pop_Count_1
018a 7804       |x   |		Jump	0x18f
018b e403       |    |		Load	0x2,0x3								; Debug Table 0x6.0x3 = 0x18b,0x3
018c e602       |    |		Load	0x3,0x2
018d 8408       |    |		Call	0x2,0x8
018e 00d1       |    |		Pop_Control	Pop_Count_1
018f e403       |    |		Load	0x2,0x3								; Debug Table 0x6.0x4 = 0x18f,0x4
0190 4820       |H   |		Short_Literal	0x20
0191 e002       |    |		Load	0x0,0x2
0192 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0193 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0194			TRAP_0178:
0194 0007       |    |		Action	Break_Optional
0195 840a       |    |		Call	0x2,0xa								; Debug Table 0x6.0x5 = 0x195,0x5
0196 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0197 0000       |    |		.XXX[0x1]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 01a3       |    |		.CONST	0x01a3								; Address of begin
0199 0004       |    |		.CONST	0x0004								; Address of exception handler
019a 0002       |    |		.CONST	0x0002								; Number of locals
019b			INIT_0198:
019b e7ff       |    |		Load	0x3,-0x1							; Debug Table 0x7 = .DEBUG	0x019b,0x02d8,0x0801,0x0002,0x0036,0x58f4,0x0000,0x025c
													; Debug Table 0x7.0x0 = 0x19b,0xffff
019c 01da       |    |		Execute	Vector,Bounds
019d 00e9       |    |		Load_Encached	String_Cache
019e 035b       | [  |		Declare_Type	Array,Constrained
019f 0337       | 7  |		Declare_Variable	Array
01a0 e7ff       |    |		Load	0x3,-0x1
01a1 e602       |    |		Load	0x3,0x2
01a2 01d4       |    |		Execute	Vector,Structure_Write
01a3			BODY_0198:
01a3 e602       |    |		Load	0x3,0x2								; Debug Table 0x7.0x1 = 0x1a3,0x1
01a4 01d9       |    |		Execute	Vector,Reverse_Bounds
01a5 0263       | c  |		Execute	Discrete,Above_Bound
01a6 700c       |p   |		Jump_Nonzero	0x1b3
01a7 e604       |    |		Load	0x3,0x4								; Debug Table 0x7.0x2 = 0x1a7,0x2
01a8 e602       |    |		Load	0x3,0x2
01a9 01d7       |    |		Execute	Vector,Field_Read
01aa 4821       |H!  |		Short_Literal	0x21
01ab 487e       |H~  |		Short_Literal	0x7e
01ac 0261       | a  |		Execute	Discrete,Not_In_Range
01ad 6804       |h   |		Jump_Zero	0x1b2
01ae 485f       |H_  |		Short_Literal	0x5f							; Debug Table 0x7.0x3 = 0x1ae,0x3
01af e604       |    |		Load	0x3,0x4
01b0 e602       |    |		Load	0x3,0x2
01b1 01d6       |    |		Execute	Vector,Field_Write
01b2 3ff4       |?   |		Loop_Increasing	0x1a7
01b3 485f       |H_  |		Short_Literal	0x5f							; Debug Table 0x7.0x4 = 0x1b3,0x4
01b4 e602       |    |		Load	0x3,0x2
01b5 e005       |    |		Load	0x0,0x5
01b6 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
01b7 840e       |    |		Call	0x2,0xe
01b8 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01b9 0000 0000  |    |		.BLANK	0000[0x7]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3       |    |		.CONST	0x01c3								; Address of begin
01c1 01ce       |    |		.CONST	0x01ce								; Address of exception handler
01c2 0001       |    |		.CONST	0x0001								; Number of locals
01c3			BODY_01c0:
01c3			INIT_01c0:
01c3 e403       |    |		Load	0x2,0x3								; Debug Table 0x8 = .DEBUG	0x01c3,0x02e4,0x0804,0x0002,0x0036,0x58f4,0x0000,0x02c8
													; Debug Table 0x8.0x0 = 0x1c3,0x1
01c4 4801       |H   |		Short_Literal	0x1
01c5 4801       |H   |		Short_Literal	0x1
01c6 4803       |H   |		Short_Literal	0x3
01c7 e006       |    |		Load	0x0,0x6
01c8 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
01c9 e006       |    |		Load	0x0,0x6
01ca 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
01cb e002       |    |		Load	0x0,0x2
01cc 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01cd 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01ce			TRAP_01c0:
01ce 0007       |    |		Action	Break_Optional
01cf e403       |    |		Load	0x2,0x3								; Debug Table 0x8.0x1 = 0x1cf,0x2
01d0 0092 01db  |    |		Action	Push_String_Extended,0x1db					; "??:??:??"
01d2 e002       |    |		Load	0x0,0x2
01d3 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01d4 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01d5 ; --------------------------------------------------------------------------------------
01d5 ; STRING TABLE
01d5 ; --------------------------------------------------------------------------------------
01d5 0010       |    |		.STRTAB	0x0010->0x01dd							; "--- "
01d6 0012       |    |		.STRTAB	0x0012->0x01df							; "+++ "
01d7 0014       |    |		.STRTAB	0x0014->0x01e1							; "!!! "
01d8 0016       |    |		.STRTAB	0x0016->0x01e3							; "*** "
01d9 0018       |    |		.STRTAB	0x0018->0x01e5							; " => "
01da 001a       |    |		.STRTAB	0x001a->0x01e7							; "^?"
01db 001a       |    |		.STRTAB	0x001a->0x01e8							; "??:??:??"
01dc 0020       |    |		.STREND 0x0020->0x01ec
01dd 2d2d 2d20  |--- |		.STRTAB_STRINGS
01ec 0000 0000  |    |		.BLANK	0000[0x4]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; Debug Table
01f0 ; --------------------------------------------------------------------------------------
01f0 0003 0009  |    |		.CONST	0x0003,0x0009
01f2 000b 023a  |   :|		.DEBUG	0x000b,0x023a,0x8000,0x0000,0x0036,0x5684,0x0000,0x0007
01fa 001b 023c  |   <|		.DEBUG	0x001b,0x023c,0xa801,0x0002,0x0036,0x5684,0x0000,0x0007
0202 00ab 0290  |    |		.DEBUG	0x00ab,0x0290,0x0801,0x0002,0x0036,0x58f4,0x0000,0x0099
020a 00c3 029a  |    |		.DEBUG	0x00c3,0x029a,0x0802,0x0002,0x0036,0x58f4,0x0000,0x00c0
0212 00f3 02aa  |    |		.DEBUG	0x00f3,0x02aa,0x0802,0x0002,0x0036,0x58f4,0x0000,0x0119
021a 0133 02bc  | 3  |		.DEBUG	0x0133,0x02bc,0x0802,0x0002,0x0036,0x58f4,0x0000,0x018d
0222 017b 02ca  | {  |		.DEBUG	0x017b,0x02ca,0x0801,0x0002,0x0036,0x58f4,0x0000,0x0219
022a 019b 02d8  |    |		.DEBUG	0x019b,0x02d8,0x0801,0x0002,0x0036,0x58f4,0x0000,0x025c
0232 01c3 02e4  |    |		.DEBUG	0x01c3,0x02e4,0x0804,0x0002,0x0036,0x58f4,0x0000,0x02c8
023a ; --------------------------------------------------------------------------------------
023a ; Debug3 Subtable 0x0
023a ; --------------------------------------------------------------------------------------
023a 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
023c ; --------------------------------------------------------------------------------------
023c ; Debug3 Subtable 0x1
023c ; --------------------------------------------------------------------------------------
023c 0012 0017  |    |		.DBG3TAB	0x0012,0x0017
023e 001b ffff  |    |		.CONST	0x001b,0xffff
0240 001b fffe  |    |		.CONST	0x001b,0xfffe
0242 001b fffd  |    |		.CONST	0x001b,0xfffd
0244 001b fffc  |    |		.CONST	0x001b,0xfffc
0246 001b fffb  |    |		.CONST	0x001b,0xfffb
0248 0020 fffa  |    |		.CONST	0x0020,0xfffa
024a 0026 fff9  | &  |		.CONST	0x0026,0xfff9
024c 002b fff8  | +  |		.CONST	0x002b,0xfff8
024e 002d fff7  | -  |		.CONST	0x002d,0xfff7
0250 002f fff6  | /  |		.CONST	0x002f,0xfff6
0252 0031 fff5  | 1  |		.CONST	0x0031,0xfff5
0254 0033 fff4  | 3  |		.CONST	0x0033,0xfff4
0256 0035 fff3  | 5  |		.CONST	0x0035,0xfff3
0258 0037 fff2  | 7  |		.CONST	0x0037,0xfff2
025a 0039 fff1  | 9  |		.CONST	0x0039,0xfff1
025c 003b fff0  | ;  |		.CONST	0x003b,0xfff0
025e 003d ffef  | =  |		.CONST	0x003d,0xffef
0260 003f ffee  | ?  |		.CONST	0x003f,0xffee
0262 0043 0001  | C  |		.CONST	0x0043,0x0001
0264 0048 0002  | H  |		.CONST	0x0048,0x0002
0266 004a 0004  | J  |		.CONST	0x004a,0x0004
0268 004f 0005  | O  |		.CONST	0x004f,0x0005
026a 0057 0006  | W  |		.CONST	0x0057,0x0006
026c 005d 0007  | ]  |		.CONST	0x005d,0x0007
026e 0063 0008  | c  |		.CONST	0x0063,0x0008
0270 0069 0009  | i  |		.CONST	0x0069,0x0009
0272 006e 000a  | n  |		.CONST	0x006e,0x000a
0274 0072 000b  | r  |		.CONST	0x0072,0x000b
0276 0076 000c  | v  |		.CONST	0x0076,0x000c
0278 007a 000d  | z  |		.CONST	0x007a,0x000d
027a 007b 000e  | {  |		.CONST	0x007b,0x000e
027c 0081 0010  |    |		.CONST	0x0081,0x0010
027e 0086 0011  |    |		.CONST	0x0086,0x0011
0280 008a 0012  |    |		.CONST	0x008a,0x0012
0282 008d 0013  |    |		.CONST	0x008d,0x0013
0284 0091 0014  |    |		.CONST	0x0091,0x0014
0286 0092 0015  |    |		.CONST	0x0092,0x0015
0288 0096 000f  |    |		.CONST	0x0096,0x000f
028a 009a 0016  |    |		.CONST	0x009a,0x0016
028c 009e 0003  |    |		.CONST	0x009e,0x0003
028e 00a4 0017  |    |		.CONST	0x00a4,0x0017
0290 ; --------------------------------------------------------------------------------------
0290 ; Debug3 Subtable 0x2
0290 ; --------------------------------------------------------------------------------------
0290 0000 0004  |    |		.DBG3TAB	0x0000,0x0004
0292 00ab 0001  |    |		.CONST	0x00ab,0x0001
0294 00af 0002  |    |		.CONST	0x00af,0x0002
0296 00b3 0003  |    |		.CONST	0x00b3,0x0003
0298 00b9 0004  |    |		.CONST	0x00b9,0x0004
029a ; --------------------------------------------------------------------------------------
029a ; Debug3 Subtable 0x3
029a ; --------------------------------------------------------------------------------------
029a 0001 0006  |    |		.DBG3TAB	0x0001,0x0006
029c 00c3 ffff  |    |		.CONST	0x00c3,0xffff
029e 00cb 0001  |    |		.CONST	0x00cb,0x0001
02a0 00d0 0002  |    |		.CONST	0x00d0,0x0002
02a2 00d8 0004  |    |		.CONST	0x00d8,0x0004
02a4 00de 0005  |    |		.CONST	0x00de,0x0005
02a6 00e3 0006  |    |		.CONST	0x00e3,0x0006
02a8 00e5 0007  |    |		.CONST	0x00e5,0x0007
02aa ; --------------------------------------------------------------------------------------
02aa ; Debug3 Subtable 0x4
02aa ; --------------------------------------------------------------------------------------
02aa 0002 0006  |    |		.DBG3TAB	0x0002,0x0006
02ac 00f3 ffff  |    |		.CONST	0x00f3,0xffff
02ae 00f7 fffe  |    |		.CONST	0x00f7,0xfffe
02b0 0101 0001  |    |		.CONST	0x0101,0x0001
02b2 010a 0002  |    |		.CONST	0x010a,0x0002
02b4 010e 0003  |    |		.CONST	0x010e,0x0003
02b6 0113 0004  |    |		.CONST	0x0113,0x0004
02b8 011e 0005  |    |		.CONST	0x011e,0x0005
02ba 0127 0006  | '  |		.CONST	0x0127,0x0006
02bc ; --------------------------------------------------------------------------------------
02bc ; Debug3 Subtable 0x5
02bc ; --------------------------------------------------------------------------------------
02bc 0000 0006  |    |		.DBG3TAB	0x0000,0x0006
02be 0133 0001  | 3  |		.CONST	0x0133,0x0001
02c0 0137 0002  | 7  |		.CONST	0x0137,0x0002
02c2 0141 0005  | A  |		.CONST	0x0141,0x0005
02c4 0142 0003  | B  |		.CONST	0x0142,0x0003
02c6 0160 0004  | `  |		.CONST	0x0160,0x0004
02c8 0176 0006  | v  |		.CONST	0x0176,0x0006
02ca ; --------------------------------------------------------------------------------------
02ca ; Debug3 Subtable 0x6
02ca ; --------------------------------------------------------------------------------------
02ca 0001 0005  |    |		.DBG3TAB	0x0001,0x0005
02cc 017b ffff  | {  |		.CONST	0x017b,0xffff
02ce 017d 0001  | }  |		.CONST	0x017d,0x0001
02d0 0185 0002  |    |		.CONST	0x0185,0x0002
02d2 018b 0003  |    |		.CONST	0x018b,0x0003
02d4 018f 0004  |    |		.CONST	0x018f,0x0004
02d6 0195 0005  |    |		.CONST	0x0195,0x0005
02d8 ; --------------------------------------------------------------------------------------
02d8 ; Debug3 Subtable 0x7
02d8 ; --------------------------------------------------------------------------------------
02d8 0001 0004  |    |		.DBG3TAB	0x0001,0x0004
02da 019b ffff  |    |		.CONST	0x019b,0xffff
02dc 01a3 0001  |    |		.CONST	0x01a3,0x0001
02de 01a7 0002  |    |		.CONST	0x01a7,0x0002
02e0 01ae 0003  |    |		.CONST	0x01ae,0x0003
02e2 01b3 0004  |    |		.CONST	0x01b3,0x0004
02e4 ; --------------------------------------------------------------------------------------
02e4 ; Debug3 Subtable 0x8
02e4 ; --------------------------------------------------------------------------------------
02e4 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
02e6 01c3 0001  |    |		.CONST	0x01c3,0x0001
02e8 01cf 0002  |    |		.CONST	0x01cf,0x0002
02ea 0000 0000  |    |		.BLANK	0000[0x116]