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

⟦ec969959e⟧

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

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 01f8       |    |		.CONST	0x01f8								; 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 002d       | -  |		.CONST	0x002d								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0009       |    |		.CONST	0x0009								; Number of locals
000b			INIT_0008:
000b e411       |    |		Load	0x2,0x11
000c 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
000d e403       |    |		Load	0x2,0x3
000e 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
000f 00e3       |    |		Load_Encached	Natural_Cache
0010 03f1       |    |		Declare_Variable	Discrete,With_Value
0011 00e3       |    |		Load_Encached	Natural_Cache
0012 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
0013 00e8       |    |		Load_Encached	Character_Cache
0014 4802       |H   |		Short_Literal	0x2
0015 4801       |H   |		Short_Literal	0x1
0016 4803       |H   |		Short_Literal	0x3
0017 e411       |    |		Load	0x2,0x11
0018 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0019 e008       |    |		Load	0x0,0x8
001a 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
001b 00d8       |    |		Load_Top	At_Offset_0
001c 01da       |    |		Execute	Vector,Bounds
001d 00e9       |    |		Load_Encached	String_Cache
001e 0334       | 4  |		Declare_Variable	Array,With_Constraint
001f e805       |    |		Load	0x4,0x5
0020 e806       |    |		Load	0x4,0x6
0021 01d4       |    |		Execute	Vector,Structure_Write
0022 4801       |H   |		Short_Literal	0x1
0023 4802       |H   |		Short_Literal	0x2
0024 4802       |H   |		Short_Literal	0x2
0025 e411       |    |		Load	0x2,0x11
0026 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0027 e008       |    |		Load	0x0,0x8
0028 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0029 029f 016b  |   k|		Declare_Subprogram	INIT_0168,For_Call
002b 029f 0183  |    |		Declare_Subprogram	INIT_0180,For_Call
002d			BODY_0008:
002d 8809       |    |		Call	0x4,0x9
002e 0092 019b  |    |		Action	Push_String_Extended,0x19b					; "=SIMS-V02-D02"
0030 e602       |    |		Load	0x3,0x2
0031 e01a       |    |		Load	0x0,0x1a
0032 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
0033 0092 019c  |    |		Action	Push_String_Extended,0x19c					; "> 1."
0035 e602       |    |		Load	0x3,0x2
0036 e01a       |    |		Load	0x0,0x1a
0037 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
0038 482d       |H-  |		Short_Literal	0x2d
0039 e806       |    |		Load	0x4,0x6
003a 01dd       |    |		Execute	Vector,First
003b 0a02       |    |		Execute_Immediate	Plus,0x2
003c 0248       | H  |		Execute	Discrete,Check_In_Integer
003d e806       |    |		Load	0x4,0x6
003e 01d6       |    |		Execute	Vector,Field_Write
003f 482d       |H-  |		Short_Literal	0x2d
0040 e806       |    |		Load	0x4,0x6
0041 01dd       |    |		Execute	Vector,First
0042 0a05       |    |		Execute_Immediate	Plus,0x5
0043 0248       | H  |		Execute	Discrete,Check_In_Integer
0044 e806       |    |		Load	0x4,0x6
0045 01d6       |    |		Execute	Vector,Field_Write
0046 0092 019d  |    |		Action	Push_String_Extended,0x19d					; "> 2."
0048 4808       |H   |		Short_Literal	0x8
0049 e806       |    |		Load	0x4,0x6
004a 8808       |    |		Call	0x4,0x8
004b 01cc       |    |		Execute	Vector,Catenate
004c e602       |    |		Load	0x3,0x2
004d e01a       |    |		Load	0x0,0x1a
004e 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
004f 0092 019e  |    |		Action	Push_String_Extended,0x19e					; "> 3."
0051 4805       |H   |		Short_Literal	0x5
0052 e807       |    |		Load	0x4,0x7
0053 8808       |    |		Call	0x4,0x8
0054 01cc       |    |		Execute	Vector,Catenate
0055 e602       |    |		Load	0x3,0x2
0056 e01a       |    |		Load	0x0,0x1a
0057 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
0058 0092 019f  |    |		Action	Push_String_Extended,0x19f					; "> 4.Open"
005a e602       |    |		Load	0x3,0x2
005b e01a       |    |		Load	0x0,0x1a
005c 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
005d 0092 01a0  |    |		Action	Push_String_Extended,0x1a0					; "> 5."
005f 4814       |H   |		Short_Literal	0x14
0060 4801       |H   |		Short_Literal	0x1
0061 e411       |    |		Load	0x2,0x11
0062 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
0063 01d7       |    |		Execute	Vector,Field_Read
0064 e402       |    |		Load	0x2,0x2
0065 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0066 8808       |    |		Call	0x4,0x8
0067 01cc       |    |		Execute	Vector,Catenate
0068 e602       |    |		Load	0x3,0x2
0069 e01a       |    |		Load	0x0,0x1a
006a 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
006b 0092 01a1  |    |		Action	Push_String_Extended,0x1a1					; "> 6."
006d 4814       |H   |		Short_Literal	0x14
006e 4800       |H   |		Short_Literal	0x0
006f e411       |    |		Load	0x2,0x11
0070 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
0071 01d7       |    |		Execute	Vector,Field_Read
0072 e402       |    |		Load	0x2,0x2
0073 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0074 8808       |    |		Call	0x4,0x8
0075 01cc       |    |		Execute	Vector,Catenate
0076 e602       |    |		Load	0x3,0x2
0077 e01a       |    |		Load	0x0,0x1a
0078 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
0079 0092 01a2  |    |		Action	Push_String_Extended,0x1a2					; "> 7.____________________"
007b e602       |    |		Load	0x3,0x2
007c e01a       |    |		Load	0x0,0x1a
007d 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
007e 0092 01a3  |    |		Action	Push_String_Extended,0x1a3					; "> 8."
0080 480a       |H   |		Short_Literal	0xa
0081 4820       |H   |		Short_Literal	0x20
0082 e411       |    |		Load	0x2,0x11
0083 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
0084 00e0       |    |		Load_Encached	Standard_Cache
0085 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0086 e01f       |    |		Load	0x0,0x1f
0087 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0088 8808       |    |		Call	0x4,0x8
0089 01cc       |    |		Execute	Vector,Catenate
008a e602       |    |		Load	0x3,0x2
008b e01a       |    |		Load	0x0,0x1a
008c 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
008d 0092 01a4  |    |		Action	Push_String_Extended,0x1a4					; "> 9."
008f 480a       |H   |		Short_Literal	0xa
0090 4820       |H   |		Short_Literal	0x20
0091 e411       |    |		Load	0x2,0x11
0092 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0093 00e0       |    |		Load_Encached	Standard_Cache
0094 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0095 e01f       |    |		Load	0x0,0x1f
0096 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0097 8808       |    |		Call	0x4,0x8
0098 01cc       |    |		Execute	Vector,Catenate
0099 e602       |    |		Load	0x3,0x2
009a e01a       |    |		Load	0x0,0x1a
009b 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
009c 0092 01a5  |    |		Action	Push_String_Extended,0x1a5					; ">10."
009e 4810       |H   |		Short_Literal	0x10
009f 4806       |H   |		Short_Literal	0x6
00a0 e411       |    |		Load	0x2,0x11
00a1 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
00a2 01d7       |    |		Execute	Vector,Field_Read
00a3 e402       |    |		Load	0x2,0x2
00a4 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00a5 8808       |    |		Call	0x4,0x8
00a6 01cc       |    |		Execute	Vector,Catenate
00a7 e602       |    |		Load	0x3,0x2
00a8 e01a       |    |		Load	0x0,0x1a
00a9 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
00aa 0092 01a6  |    |		Action	Push_String_Extended,0x1a6					; ">11."
00ac 4810       |H   |		Short_Literal	0x10
00ad 4805       |H   |		Short_Literal	0x5
00ae e411       |    |		Load	0x2,0x11
00af 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
00b0 01d7       |    |		Execute	Vector,Field_Read
00b1 e402       |    |		Load	0x2,0x2
00b2 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00b3 8808       |    |		Call	0x4,0x8
00b4 01cc       |    |		Execute	Vector,Catenate
00b5 e602       |    |		Load	0x3,0x2
00b6 e01a       |    |		Load	0x0,0x1a
00b7 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
00b8 0092 01a7  |    |		Action	Push_String_Extended,0x1a7					; ">12."
00ba 480f       |H   |		Short_Literal	0xf
00bb 4804       |H   |		Short_Literal	0x4
00bc e411       |    |		Load	0x2,0x11
00bd 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
00be 01d7       |    |		Execute	Vector,Field_Read
00bf e402       |    |		Load	0x2,0x2
00c0 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00c1 8808       |    |		Call	0x4,0x8
00c2 01cc       |    |		Execute	Vector,Catenate
00c3 e602       |    |		Load	0x3,0x2
00c4 e01a       |    |		Load	0x0,0x1a
00c5 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
00c6 0092 01a8  |    |		Action	Push_String_Extended,0x1a8					; ">13."
00c8 e411       |    |		Load	0x2,0x11
00c9 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
00ca e40f       |    |		Load	0x2,0xf
00cb 025e       | ^  |		Execute	Discrete,Convert
00cc 1c01       |    |		Execute_Immediate	Run_Utility,0x1
00cd 01cc       |    |		Execute	Vector,Catenate
00ce e602       |    |		Load	0x3,0x2
00cf e01a       |    |		Load	0x0,0x1a
00d0 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
00d1 0092 01a9  |    |		Action	Push_String_Extended,0x1a9					; ">14.software"
00d3 e602       |    |		Load	0x3,0x2
00d4 e01a       |    |		Load	0x0,0x1a
00d5 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
00d6 0092 01aa  |    |		Action	Push_String_Extended,0x1aa					; ">15."
00d8 4814       |H   |		Short_Literal	0x14
00d9 4803       |H   |		Short_Literal	0x3
00da e411       |    |		Load	0x2,0x11
00db 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
00dc 01d7       |    |		Execute	Vector,Field_Read
00dd e402       |    |		Load	0x2,0x2
00de 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00df 8808       |    |		Call	0x4,0x8
00e0 01cc       |    |		Execute	Vector,Catenate
00e1 e602       |    |		Load	0x3,0x2
00e2 e01a       |    |		Load	0x0,0x1a
00e3 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
00e4 0092 01ab  |    |		Action	Push_String_Extended,0x1ab					; ">16."
00e6 e411       |    |		Load	0x2,0x11
00e7 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00e8 e40d       |    |		Load	0x2,0xd
00e9 025e       | ^  |		Execute	Discrete,Convert
00ea 1c01       |    |		Execute_Immediate	Run_Utility,0x1
00eb 01cc       |    |		Execute	Vector,Catenate
00ec e602       |    |		Load	0x3,0x2
00ed e01a       |    |		Load	0x0,0x1a
00ee 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
00ef 0092 01ac  |    |		Action	Push_String_Extended,0x1ac					; ">17."
00f1 480f       |H   |		Short_Literal	0xf
00f2 4802       |H   |		Short_Literal	0x2
00f3 e411       |    |		Load	0x2,0x11
00f4 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
00f5 01d7       |    |		Execute	Vector,Field_Read
00f6 e402       |    |		Load	0x2,0x2
00f7 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00f8 8808       |    |		Call	0x4,0x8
00f9 01cc       |    |		Execute	Vector,Catenate
00fa e602       |    |		Load	0x3,0x2
00fb e01a       |    |		Load	0x0,0x1a
00fc 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
00fd 0092 01ad  |    |		Action	Push_String_Extended,0x1ad					; ">18."
00ff 4850       |HP  |		Short_Literal	0x50
0100 4807       |H   |		Short_Literal	0x7
0101 e411       |    |		Load	0x2,0x11
0102 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
0103 01d7       |    |		Execute	Vector,Field_Read
0104 e402       |    |		Load	0x2,0x2
0105 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0106 8808       |    |		Call	0x4,0x8
0107 01cc       |    |		Execute	Vector,Catenate
0108 e602       |    |		Load	0x3,0x2
0109 e01a       |    |		Load	0x0,0x1a
010a 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
010b 0092 01ae  |    |		Action	Push_String_Extended,0x1ae					; ">19._____"
010d e602       |    |		Load	0x3,0x2
010e e01a       |    |		Load	0x0,0x1a
010f 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
0110 0092 01af  |    |		Action	Push_String_Extended,0x1af					; "=DET"
0112 e602       |    |		Load	0x3,0x2
0113 e01a       |    |		Load	0x0,0x1a
0114 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
0115 00cf       |    |		Action	Mark_Auxiliary
0116 e802       |    |		Load	0x4,0x2
0117 4801       |H   |		Short_Literal	0x1
0118 0263       | c  |		Execute	Discrete,Above_Bound
0119 703c       |p<  |		Jump_Nonzero	0x156
011a 00d8       |    |		Load_Top	At_Offset_0
011b e411       |    |		Load	0x2,0x11
011c 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
011d e403       |    |		Load	0x2,0x3
011e 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
011f a804       |    |		Store_Unchecked	0x4,0x4
0120 e804       |    |		Load	0x4,0x4
0121 0f0a       |    |		Execute_Immediate	Equal,0xa
0122 7006       |p   |		Jump_Nonzero	0x129
0123 e804       |    |		Load	0x4,0x4
0124 0f0d       |    |		Execute_Immediate	Equal,0xd
0125 7003       |p   |		Jump_Nonzero	0x129
0126 e804       |    |		Load	0x4,0x4
0127 0f0c       |    |		Execute_Immediate	Equal,0xc
0128 6814       |h   |		Jump_Zero	0x13d
0129 482a       |H*  |		Short_Literal	0x2a
012a e80c       |    |		Load	0x4,0xc
012b 0aff       |    |		Execute_Immediate	Plus,-0x1
012c 00e3       |    |		Load_Encached	Natural_Cache
012d 025b       | [  |		Execute	Discrete,Check_In_Type
012e e803       |    |		Load	0x4,0x3
012f 00e4       |    |		Load_Encached	Positive_Cache
0130 025b       | [  |		Execute	Discrete,Check_In_Type
0131 e411       |    |		Load	0x2,0x11
0132 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
0133 e403       |    |		Load	0x2,0x3
0134 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0135 01ca       |    |		Execute	Vector,Prepend
0136 e602       |    |		Load	0x3,0x2
0137 e01a       |    |		Load	0x0,0x1a
0138 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
0139 00d8       |    |		Load_Top	At_Offset_0
013a 0a01       |    |		Execute_Immediate	Plus,0x1
013b c803       |    |		Store	0x4,0x3
013c 7817       |x   |		Jump	0x154
013d 00d8       |    |		Load_Top	At_Offset_0
013e e803       |    |		Load	0x4,0x3
013f 0272       | r  |		Execute	Discrete,Minus
0140 0248       | H  |		Execute	Discrete,Check_In_Integer
0141 0a01       |    |		Execute_Immediate	Plus,0x1
0142 0c50       | P  |		Execute_Immediate	Greater_Equal,0x50
0143 6810       |h   |		Jump_Zero	0x154
0144 482a       |H*  |		Short_Literal	0x2a
0145 e80c       |    |		Load	0x4,0xc
0146 e803       |    |		Load	0x4,0x3
0147 00e4       |    |		Load_Encached	Positive_Cache
0148 025b       | [  |		Execute	Discrete,Check_In_Type
0149 e411       |    |		Load	0x2,0x11
014a 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
014b e403       |    |		Load	0x2,0x3
014c 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
014d 01ca       |    |		Execute	Vector,Prepend
014e e602       |    |		Load	0x3,0x2
014f e01a       |    |		Load	0x0,0x1a
0150 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
0151 00d8       |    |		Load_Top	At_Offset_0
0152 0a01       |    |		Execute_Immediate	Plus,0x1
0153 c803       |    |		Store	0x4,0x3
0154 00c8       |    |		Action	Pop_Auxiliary_Range
0155 3fc4       |?   |		Loop_Increasing	0x11a
0156 00ce       |    |		Action	Pop_Auxiliary
0157 0092 01b0  |    |		Action	Push_String_Extended,0x1b0					; "=END"
0159 e602       |    |		Load	0x3,0x2
015a e01a       |    |		Load	0x0,0x1a
015b 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
015c e602       |    |		Load	0x3,0x2
015d e01a       |    |		Load	0x0,0x1a
015e 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
015f c602       |    |		Store	0x3,0x2
0160 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0161 0000 0000  |    |		.BLANK	0000[0x7]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b       | k  |		.CONST	0x016b								; Address of begin
0169 0004       |    |		.CONST	0x0004								; Address of exception handler
016a 0001       |    |		.CONST	0x0001								; Number of locals
016b			BODY_0168:
016b			INIT_0168:
016b ebff       |    |		Load	0x5,-0x1
016c 01db       |    |		Execute	Vector,Length
016d ebfe       |    |		Load	0x5,-0x2
016e 027d       | }  |		Execute	Discrete,Greater
016f 680b       |h   |		Jump_Zero	0x17b
0170 ebff       |    |		Load	0x5,-0x1
0171 01dd       |    |		Execute	Vector,First
0172 ebff       |    |		Load	0x5,-0x1
0173 01dd       |    |		Execute	Vector,First
0174 ebfe       |    |		Load	0x5,-0x2
0175 0273       | s  |		Execute	Discrete,Plus
0176 0aff       |    |		Execute_Immediate	Plus,-0x1
0177 0248       | H  |		Execute	Discrete,Check_In_Integer
0178 ebff       |    |		Load	0x5,-0x1
0179 01cf       |    |		Execute	Vector,Slice_Read
017a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
017b ebff       |    |		Load	0x5,-0x1
017c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
017d 0000 0000  |    |		.XXX[0x3]
017f 0000       |    |
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183       |    |		.CONST	0x0183								; Address of begin
0181 018b       |    |		.CONST	0x018b								; Address of exception handler
0182 0001       |    |		.CONST	0x0001								; Number of locals
0183			BODY_0180:
0183			INIT_0180:
0183 e602       |    |		Load	0x3,0x2
0184 00ea       |    |		Load_Encached	Null_String_Cache
0185 e609       |    |		Load	0x3,0x9
0186 4801       |H   |		Short_Literal	0x1
0187 e01a       |    |		Load	0x0,0x1a
0188 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0189 c602       |    |		Store	0x3,0x2
018a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
018b			TRAP_0180:
018b 00d8       |    |		Load_Top	At_Offset_0
018c 0107       |    |		Execute	Exception,Get_Name
018d 4920       |I   |		Short_Literal	0x120
018e 492f       |I/  |		Short_Literal	0x12f
018f 0262       | b  |		Execute	Discrete,In_Range
0190 6809       |h   |		Jump_Zero	0x19a
0191 860e       |    |		Call	0x3,0xe
0192 e602       |    |		Load	0x3,0x2
0193 00ea       |    |		Load_Encached	Null_String_Cache
0194 e609       |    |		Load	0x3,0x9
0195 4801       |H   |		Short_Literal	0x1
0196 e01a       |    |		Load	0x0,0x1a
0197 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0198 c602       |    |		Store	0x3,0x2
0199 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
019a 0100       |    |		Execute	Exception,Raise
019b ; --------------------------------------------------------------------------------------
019b ; STRING TABLE
019b ; --------------------------------------------------------------------------------------
019b 002e       | .  |		.STRTAB	0x002e->0x01b2							; "=SIMS-V02-D02"
019c 0039       | 9  |		.STRTAB	0x0039->0x01b8							; "> 1."
019d 003b       | ;  |		.STRTAB	0x003b->0x01ba							; "> 2."
019e 003d       | =  |		.STRTAB	0x003d->0x01bc							; "> 3."
019f 003f       | ?  |		.STRTAB	0x003f->0x01be							; "> 4.Open"
01a0 0045       | E  |		.STRTAB	0x0045->0x01c2							; "> 5."
01a1 0047       | G  |		.STRTAB	0x0047->0x01c4							; "> 6."
01a2 0049       | I  |		.STRTAB	0x0049->0x01c6							; "> 7.____________________"
01a3 005f       | _  |		.STRTAB	0x005f->0x01d2							; "> 8."
01a4 0061       | a  |		.STRTAB	0x0061->0x01d4							; "> 9."
01a5 0063       | c  |		.STRTAB	0x0063->0x01d6							; ">10."
01a6 0065       | e  |		.STRTAB	0x0065->0x01d8							; ">11."
01a7 0067       | g  |		.STRTAB	0x0067->0x01da							; ">12."
01a8 0069       | i  |		.STRTAB	0x0069->0x01dc							; ">13."
01a9 006b       | k  |		.STRTAB	0x006b->0x01de							; ">14.software"
01aa 0075       | u  |		.STRTAB	0x0075->0x01e4							; ">15."
01ab 0077       | w  |		.STRTAB	0x0077->0x01e6							; ">16."
01ac 0079       | y  |		.STRTAB	0x0079->0x01e8							; ">17."
01ad 007b       | {  |		.STRTAB	0x007b->0x01ea							; ">18."
01ae 007d       | }  |		.STRTAB	0x007d->0x01ec							; ">19._____"
01af 0084       |    |		.STRTAB	0x0084->0x01f1							; "=DET"
01b0 0086       |    |		.STRTAB	0x0086->0x01f3							; "=END"
01b1 0088       |    |		.STREND 0x0088->0x01f5
01b2 3d53 494d  |=SIM|		.STRTAB_STRINGS
01f5 0000 0000  |    |		.XXX[0x3]
01f7 0000       |    |
01f8 ; --------------------------------------------------------------------------------------
01f8 ; Debug Table
01f8 ; --------------------------------------------------------------------------------------
01f8 0004 0000  |    |		.DEBUG4	0x0004,0x0000,0x11ea,0x0000,0x0001,0x0000
01fe 0007 e405  |    |		.XXX[0x2]