DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

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

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦5a0ab1549⟧

    Length: 1024 (0x400)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03bcfe

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0168       | h  |		.CONST	0x0168								; 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 8001       |    |		.CONST	0x8001								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 006b       | k  |		.CONST	0x006b								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0024       | $  |		.CONST	0x0024								; Number of locals
000b			INIT_0008:
000b 00e3       |    |		Load_Encached	Natural_Cache
000c 0266       | f  |		Execute	Discrete,Bounds
000d 00e5       |    |		Load_Encached	Long_Integer_Cache
000e 02a0       |    |		Declare_Subprogram	Null_Subprogram
000f 4801       |H   |		Short_Literal	0x1
0010 0351       | Q  |		Declare_Type	Array,Defined,Visible,Bounds_With_Object
0011 029a 0073  |   s|		Declare_Subprogram	INIT_0070,For_Outer_Call,Visible,Unelaborated
0013 029a 007b  |   {|		Declare_Subprogram	INIT_0078,For_Outer_Call,Visible,Unelaborated
0015 029a 0083  |    |		Declare_Subprogram	INIT_0080,For_Outer_Call,Visible,Unelaborated
0017 029a 0093  |    |		Declare_Subprogram	INIT_0090,For_Outer_Call,Visible,Unelaborated
0019 00e5       |    |		Load_Encached	Long_Integer_Cache
001a 0129       | )  |		Execute	Any,Make_Visible
001b 029a 00ab  |    |		Declare_Subprogram	INIT_00a8,For_Outer_Call,Visible,Unelaborated
001d 029a 00b3  |    |		Declare_Subprogram	INIT_00b0,For_Outer_Call,Visible,Unelaborated
001f 029a 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Outer_Call,Visible,Unelaborated
0021 029a 00c3  |    |		Declare_Subprogram	INIT_00c0,For_Outer_Call,Visible,Unelaborated
0023 029a 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Outer_Call,Visible,Unelaborated
0025 029a 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Outer_Call,Visible,Unelaborated
0027 029a 00db  |    |		Declare_Subprogram	INIT_00d8,For_Outer_Call,Visible,Unelaborated
0029 e002       |    |		Load	0x0,0x2
002a 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
002b 0129       | )  |		Execute	Any,Make_Visible
002c 029a 0103  |    |		Declare_Subprogram	INIT_0100,For_Outer_Call,Visible,Unelaborated
002e 029a 010b  |    |		Declare_Subprogram	INIT_0108,For_Outer_Call,Visible,Unelaborated
0030 029a 0113  |    |		Declare_Subprogram	INIT_0110,For_Outer_Call,Visible,Unelaborated
0032 029a 011b  |    |		Declare_Subprogram	INIT_0118,For_Outer_Call,Visible,Unelaborated
0034 029a 0123  |   #|		Declare_Subprogram	INIT_0120,For_Outer_Call,Visible,Unelaborated
0036 029a 012b  |   +|		Declare_Subprogram	INIT_0128,For_Outer_Call,Visible,Unelaborated
0038 029a 013b  |   ;|		Declare_Subprogram	INIT_0138,For_Outer_Call,Visible,Unelaborated
003a 029a 0153  |   S|		Declare_Subprogram	INIT_0150,For_Outer_Call,Visible,Unelaborated
003c 029a 015b  |   [|		Declare_Subprogram	INIT_0158,For_Outer_Call,Visible,Unelaborated
003e 029a 0163  |   c|		Declare_Subprogram	INIT_0160,For_Outer_Call,Visible,Unelaborated
0040 00bf       |    |		Action	Accept_Activation
0041 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe
0042 00c7       |    |		Action	Elaborate_Subprogram
0043 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0044 00c7       |    |		Action	Elaborate_Subprogram
0045 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0046 00c7       |    |		Action	Elaborate_Subprogram
0047 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0048 00c7       |    |		Action	Elaborate_Subprogram
0049 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
004a 00c7       |    |		Action	Elaborate_Subprogram
004b 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
004c 00c7       |    |		Action	Elaborate_Subprogram
004d 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
004e 00c7       |    |		Action	Elaborate_Subprogram
004f 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0050 00c7       |    |		Action	Elaborate_Subprogram
0051 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0052 00c7       |    |		Action	Elaborate_Subprogram
0053 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0054 00c7       |    |		Action	Elaborate_Subprogram
0055 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0056 00c7       |    |		Action	Elaborate_Subprogram
0057 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
0058 00c7       |    |		Action	Elaborate_Subprogram
0059 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
005a 00c7       |    |		Action	Elaborate_Subprogram
005b 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
005c 00c7       |    |		Action	Elaborate_Subprogram
005d 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
005e 00c7       |    |		Action	Elaborate_Subprogram
005f 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
0060 00c7       |    |		Action	Elaborate_Subprogram
0061 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
0062 00c7       |    |		Action	Elaborate_Subprogram
0063 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
0064 00c7       |    |		Action	Elaborate_Subprogram
0065 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
0066 00c7       |    |		Action	Elaborate_Subprogram
0067 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
0068 00c7       |    |		Action	Elaborate_Subprogram
0069 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
006a 00c7       |    |		Action	Elaborate_Subprogram
006b			BODY_0008:
006b 00bc       |    |		Action	Signal_Activated
006c 00bb       |    |		Action	Signal_Completion
006d 0000 0000  |    |		.XXX[0x3]
006f 0000       |    |
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0073       | s  |		.CONST	0x0073								; Address of begin
0071 0004       |    |		.CONST	0x0004								; Address of exception handler
0072 0001       |    |		.CONST	0x0001								; Number of locals
0073			BODY_0070:
0073			INIT_0070:
0073 4800       |H   |		Short_Literal	0x0
0074 00ca       |    |		Action	Exit_Nullary_Function
0075 0000 0000  |    |		.XXX[0x3]
0077 0000       |    |
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b       | {  |		.CONST	0x007b								; Address of begin
0079 0004       |    |		.CONST	0x0004								; Address of exception handler
007a 0001       |    |		.CONST	0x0001								; Number of locals
007b			BODY_0078:
007b			INIT_0078:
007b 00da       |    |		Load_Top	At_Offset_2
007c 0f00       |    |		Execute_Immediate	Equal,0x0
007d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
007e 0000 0000  |    |		.XXX[0x2]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083       |    |		.CONST	0x0083								; Address of begin
0081 0004       |    |		.CONST	0x0004								; Address of exception handler
0082 0001       |    |		.CONST	0x0001								; Number of locals
0083			BODY_0080:
0083			INIT_0080:
0083 4820       |H   |		Short_Literal	0x20
0084 4800       |H   |		Short_Literal	0x0
0085 4810       |H   |		Short_Literal	0x10
0086 e5ff       |    |		Load	0x2,-0x1
0087 e003       |    |		Load	0x0,0x3
0088 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0089 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
008a 0000 0000  |    |		.BLANK	0000[0x6]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0095       |    |		.CONST	0x0095								; Address of begin
0091 0004       |    |		.CONST	0x0004								; Address of exception handler
0092 0003       |    |		.CONST	0x0003								; Number of locals
0093			INIT_0090:
0093 00e5       |    |		Load_Encached	Long_Integer_Cache
0094 00e1       |    |		Load_Encached	Boolean_Cache
0095			BODY_0090:
0095 00e1       |    |		Load_Encached	Boolean_Cache
0096 00e5       |    |		Load_Encached	Long_Integer_Cache
0097 4810       |H   |		Short_Literal	0x10
0098 e5ff       |    |		Load	0x2,-0x1
0099 e003       |    |		Load	0x0,0x3
009a 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
009b 005b       | [  |		Store_Top	Discrete,At_Offset_3
009c 0059       | Y  |		Store_Top	Discrete,At_Offset_1
009d 00d8       |    |		Load_Top	At_Offset_0
009e 6802       |h   |		Jump_Zero	0xa1
009f 00d9       |    |		Load_Top	At_Offset_1
00a0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00a1 e004       |    |		Load	0x0,0x4
00a2 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
00a3 0257       | W  |		Execute	Discrete,Raise
00a4 0000 0000  |    |		.BLANK	0000[0x4]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab       |    |		.CONST	0x00ab								; Address of begin
00a9 0004       |    |		.CONST	0x0004								; Address of exception handler
00aa 0001       |    |		.CONST	0x0001								; Number of locals
00ab			BODY_00a8:
00ab			INIT_00a8:
00ab 8005       |    |		Call	0x0,0x5
00ac 00ca       |    |		Action	Exit_Nullary_Function
00ad 0000 0000  |    |		.XXX[0x3]
00af 0000       |    |
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3       |    |		.CONST	0x00b3								; Address of begin
00b1 0004       |    |		.CONST	0x0004								; Address of exception handler
00b2 0001       |    |		.CONST	0x0001								; Number of locals
00b3			BODY_00b0:
00b3			INIT_00b0:
00b3 00da       |    |		Load_Top	At_Offset_2
00b4 8213       |    |		Call	0x1,0x13
00b5 027f       |    |		Execute	Discrete,Equal
00b6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00b7 0000       |    |		.XXX[0x1]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb       |    |		.CONST	0x00bb								; Address of begin
00b9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ba 0001       |    |		.CONST	0x0001								; Number of locals
00bb			BODY_00b8:
00bb			INIT_00b8:
00bb 00da       |    |		Load_Top	At_Offset_2
00bc 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00bd 0000 0000  |    |		.XXX[0x3]
00bf 0000       |    |
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3       |    |		.CONST	0x00c3								; Address of begin
00c1 0004       |    |		.CONST	0x0004								; Address of exception handler
00c2 0001       |    |		.CONST	0x0001								; Number of locals
00c3			BODY_00c0:
00c3			INIT_00c0:
00c3 00da       |    |		Load_Top	At_Offset_2
00c4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00c5 0000 0000  |    |		.XXX[0x3]
00c7 0000       |    |
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb       |    |		.CONST	0x00cb								; Address of begin
00c9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ca 0001       |    |		.CONST	0x0001								; Number of locals
00cb			BODY_00c8:
00cb			INIT_00c8:
00cb 00da       |    |		Load_Top	At_Offset_2
00cc 8006       |    |		Call	0x0,0x6
00cd 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00ce 0000 0000  |    |		.XXX[0x2]
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 00da       |    |		Load_Top	At_Offset_2
00d4 8007       |    |		Call	0x0,0x7
00d5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00d6 0000 0000  |    |		.XXX[0x2]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00eb       |    |		.CONST	0x00eb								; Address of begin
00d9 00f4       |    |		.CONST	0x00f4								; Address of exception handler
00da 0004       |    |		.CONST	0x0004								; Number of locals
00db			INIT_00d8:
00db 00da       |    |		Load_Top	At_Offset_2
00dc e008       |    |		Load	0x0,0x8
00dd 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00de 03f1       |    |		Declare_Variable	Discrete,With_Value
00df 00d8       |    |		Load_Top	At_Offset_0
00e0 e008       |    |		Load	0x0,0x8
00e1 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00e2 e008       |    |		Load	0x0,0x8
00e3 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00e4 03f1       |    |		Declare_Variable	Discrete,With_Value
00e5 00d9       |    |		Load_Top	At_Offset_1
00e6 e008       |    |		Load	0x0,0x8
00e7 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
00e8 e008       |    |		Load	0x0,0x8
00e9 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
00ea 03f1       |    |		Declare_Variable	Discrete,With_Value
00eb			BODY_00d8:
00eb 00e2       |    |		Load_Encached	Integer_Cache
00ec 00d9       |    |		Load_Top	At_Offset_1
00ed 0268       | h  |		Execute	Discrete,Successor
00ee 0059       | Y  |		Store_Top	Discrete,At_Offset_1
00ef 00d8       |    |		Load_Top	At_Offset_0
00f0 00da       |    |		Load_Top	At_Offset_2
00f1 e008       |    |		Load	0x0,0x8
00f2 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00f3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00f4			TRAP_00d8:
00f4 0007       |    |		Action	Break_Optional
00f5 4800       |H   |		Short_Literal	0x0
00f6 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
00f7 00d9       |    |		Load_Top	At_Offset_1
00f8 00db       |    |		Load_Top	At_Offset_3
00f9 e008       |    |		Load	0x0,0x8
00fa 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00fb 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00fc 0000 0000  |    |		.BLANK	0000[0x4]
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 8009       |    |		Call	0x0,0x9
0104 00ca       |    |		Action	Exit_Nullary_Function
0105 0000 0000  |    |		.XXX[0x3]
0107 0000       |    |
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b       |    |		.CONST	0x010b								; Address of begin
0109 0004       |    |		.CONST	0x0004								; Address of exception handler
010a 0001       |    |		.CONST	0x0001								; Number of locals
010b			BODY_0108:
010b			INIT_0108:
010b 00da       |    |		Load_Top	At_Offset_2
010c 821b       |    |		Call	0x1,0x1b
010d 027f       |    |		Execute	Discrete,Equal
010e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
010f 0000       |    |		.XXX[0x1]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113       |    |		.CONST	0x0113								; Address of begin
0111 0004       |    |		.CONST	0x0004								; Address of exception handler
0112 0001       |    |		.CONST	0x0001								; Number of locals
0113			BODY_0110:
0113			INIT_0110:
0113 00da       |    |		Load_Top	At_Offset_2
0114 4401       |D   |		Exit_Subprogram	With_Value,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 00da       |    |		Load_Top	At_Offset_2
011c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
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 00da       |    |		Load_Top	At_Offset_2
0124 800a       |    |		Call	0x0,0xa
0125 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0126 0000 0000  |    |		.XXX[0x2]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b       | +  |		.CONST	0x012b								; Address of begin
0129 0004       |    |		.CONST	0x0004								; Address of exception handler
012a 0001       |    |		.CONST	0x0001								; Number of locals
012b			BODY_0128:
012b			INIT_0128:
012b 0092 0165  |   e|		Action	Push_String_Extended,0x165					; "#"
012d 4820       |H   |		Short_Literal	0x20
012e 4800       |H   |		Short_Literal	0x0
012f 4810       |H   |		Short_Literal	0x10
0130 e5ff       |    |		Load	0x2,-0x1
0131 e003       |    |		Load	0x0,0x3
0132 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0133 01cc       |    |		Execute	Vector,Catenate
0134 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0135 0000 0000  |    |		.XXX[0x3]
0137 0000       |    |
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013e       | >  |		.CONST	0x013e								; Address of begin
0139 0004       |    |		.CONST	0x0004								; Address of exception handler
013a 0003       |    |		.CONST	0x0003								; Number of locals
013b			INIT_0138:
013b 00e5       |    |		Load_Encached	Long_Integer_Cache
013c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
013d 00e1       |    |		Load_Encached	Boolean_Cache
013e			BODY_0138:
013e 00e1       |    |		Load_Encached	Boolean_Cache
013f 00e5       |    |		Load_Encached	Long_Integer_Cache
0140 4810       |H   |		Short_Literal	0x10
0141 e5ff       |    |		Load	0x2,-0x1
0142 800b       |    |		Call	0x0,0xb
0143 e003       |    |		Load	0x0,0x3
0144 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0145 005b       | [  |		Store_Top	Discrete,At_Offset_3
0146 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0147 00d9       |    |		Load_Top	At_Offset_1
0148 00d8       |    |		Load_Top	At_Offset_0
0149 e21a       |    |		Load	0x1,0x1a
014a 0260       | `  |		Execute	Discrete,In_Type
014b 7001       |p   |		Jump_Nonzero	0x14d
014c 0801       |    |		Execute_Immediate	Raise,0x1
014d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
014e 0000 0000  |    |		.XXX[0x2]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153       | S  |		.CONST	0x0153								; Address of begin
0151 0004       |    |		.CONST	0x0004								; Address of exception handler
0152 0001       |    |		.CONST	0x0001								; Number of locals
0153			BODY_0150:
0153			INIT_0150:
0153 4840       |H@  |		Short_Literal	0x40
0154 00ca       |    |		Action	Exit_Nullary_Function
0155 0000 0000  |    |		.XXX[0x3]
0157 0000       |    |
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b       | [  |		.CONST	0x015b								; Address of begin
0159 0004       |    |		.CONST	0x0004								; Address of exception handler
015a 0001       |    |		.CONST	0x0001								; Number of locals
015b			BODY_0158:
015b			INIT_0158:
015b 4880       |H   |		Short_Literal	0x80
015c 00ca       |    |		Action	Exit_Nullary_Function
015d 0000 0000  |    |		.XXX[0x3]
015f 0000       |    |
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 4801       |H   |		Short_Literal	0x1
0164 00ca       |    |		Action	Exit_Nullary_Function
0165 ; --------------------------------------------------------------------------------------
0165 ; STRING TABLE
0165 ; --------------------------------------------------------------------------------------
0165 0004       |    |		.STRTAB	0x0004->0x0167							; "#"
0166 0003       |    |		.STREND 0x0003->0x0167
0167 2300       |#   |		.STRTAB_STRINGS
0168 ; --------------------------------------------------------------------------------------
0168 ; Debug Table
0168 ; --------------------------------------------------------------------------------------
0168 0004 0006  |    |		.DEBUG4	0x0004,0x0006,0x9a3b,0x0000,0x0001,0x0000
016e b2bc af99  |    |		.XXX[0x1e]
0170 1010 1d10  |    |
0172 29ba 3934  |) 94|
0174 b733 901d  | 3  |
0176 1e90 1111  |    |
0178 1d80 0000  |    |
017a 2d80 0000  |-   |
017c 0ba5 b2bc  |    |
017e af99 9010  |    |
0180 1d10 29ba  |  ) |
0182 3934 b733  |94 3|
0184 901d 1e90  |    |
0186 1111 149d  |    |
0188 8000 0025  |   %|
018a 0000 0014  |    |
018c 1010 1010  |    |		.BLANK	1010[0x8]
0194 1025 b2bc  | %  |		.XXX[0x10]
0196 af99 9010  |    |
0198 1d10 29ba  |  ) |
019a 3934 b733  |94 3|
019c 901d 1e90  |    |
019e 1111 149d  |    |
01a0 8000 0025  |   %|
01a2 0000 0014  |    |
01a4 1010 1010  |    |		.BLANK	1010[0x8]
01ac 1025 b2bc  | %  |		.XXX[0xf]
01ae af99 9010  |    |
01b0 1d10 29ba  |  ) |
01b2 3934 b733  |94 3|
01b4 901d 1e90  |    |
01b6 1111 149d  |    |
01b8 8000 0000  |    |
01ba 8000       |    |
01bb 0000 0000  |    |		.BLANK	0000[0x4]
01bf 0039 8000  | 9  |		.XXX[0x25]
01c1 0000 0000  |    |
01c3 0039 0000  | 9  |
01c5 003a 8000  | :  |
01c7 0005 a222  |   "|
01c9 a9a1 a924  |   $|
01cb a82a 24a7  | *$ |
01cd a700 0000  |    |
01cf 3a00 0000  |:   |
01d1 0610 2222  |  ""|
01d3 a9a1 a924  |   $|
01d5 a82a 24a7  | *$ |
01d7 a700 0000  |    |
01d9 3a00 0000  |:   |
01db 0610 2222  |  ""|
01dd a9a1 a924  |   $|
01df a82a 24a7  | *$ |
01e1 a700 0000  |    |
01e3 0080       |    |
01e4 0000 0000  |    |		.BLANK	0000[0x5]
01e9 0080       |    |		.XXX[0x1]
01ea 0000 0000  |    |		.BLANK	0000[0x5]
01ef 0180 0000  |    |		.XXX[0x11]
01f1 24a9 b7b9  |$   |
01f3 3a39 903a  |:9 :|
01f5 3432 9036  |42 6|
01f7 34b7 32b9  |4 2 |
01f9 9037 b310  | 7  |
01fb 3a32 bc3a  |:2 :|
01fd 1034 b710  | 4  |
01ff 3a34       |:4  |