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

⟦b49446072⟧

    Length: 2048 (0x800)
    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 02b8       |    |		.CONST	0x02b8								; 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 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
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 0045       | E  |		.CONST	0x0045								; Address of begin
0019 004f       | O  |		.CONST	0x004f								; Address of exception handler
001a 0016       |    |		.CONST	0x0016								; Number of locals
001b			INIT_0018:
001b 0092 01c6  |    |		Action	Push_String_Extended,0x1c6					; ".COMMENTS"
001d 0092 01c7  |    |		Action	Push_String_Extended,0x1c7					; ".IOP_DUMP1"
001f 0092 01c8  |    |		Action	Push_String_Extended,0x1c8					; ".IOP_DUMP2"
0021 0092 01c9  |    |		Action	Push_String_Extended,0x1c9					; ".MEMORY"
0023 0092 01ca  |    |		Action	Push_String_Extended,0x1ca					; ".REGISTERS"
0025 0092 01cb  |    |		Action	Push_String_Extended,0x1cb					; ".SAVED_STATE"
0027 0092 01cc  |    |		Action	Push_String_Extended,0x1cc					; ".TAG_STORE"
0029 00e1       |    |		Load_Encached	Boolean_Cache
002a 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
002b 00e1       |    |		Load_Encached	Boolean_Cache
002c 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
002d 00e1       |    |		Load_Encached	Boolean_Cache
002e 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
002f 00e1       |    |		Load_Encached	Boolean_Cache
0030 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0031 00e1       |    |		Load_Encached	Boolean_Cache
0032 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0033 00e1       |    |		Load_Encached	Boolean_Cache
0034 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0035 00e1       |    |		Load_Encached	Boolean_Cache
0036 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0037 029f 0063  |   c|		Declare_Subprogram	INIT_0060,For_Call
0039 029f 0083  |    |		Declare_Subprogram	INIT_0080,For_Call
003b 029f 00a3  |    |		Declare_Subprogram	INIT_00a0,For_Call
003d 029f 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Call
003f 029f 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Call
0041 029f 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Call
0043 029f 0183  |    |		Declare_Subprogram	INIT_0180,For_Call
0045			BODY_0018:
0045 8411       |    |		Call	0x2,0x11
0046 4801       |H   |		Short_Literal	0x1
0047 e002       |    |		Load	0x0,0x2
0048 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
0049 8413       |    |		Call	0x2,0x13
004a 8414       |    |		Call	0x2,0x14
004b 8412       |    |		Call	0x2,0x12
004c 8415       |    |		Call	0x2,0x15
004d 8416       |    |		Call	0x2,0x16
004e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
004f			TRAP_0018:
004f 0007       |    |		Action	Break_Optional
0050 0092 01cd  |    |		Action	Push_String_Extended,0x1cd					; "%%% "
0052 4801       |H   |		Short_Literal	0x1
0053 4801       |H   |		Short_Literal	0x1
0054 e003       |    |		Load	0x0,0x3
0055 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0056 01cc       |    |		Execute	Vector,Catenate
0057 e002       |    |		Load	0x0,0x2
0058 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0059 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
005a 0000 0000  |    |		.BLANK	0000[0x6]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0076       | v  |		.CONST	0x0076								; Address of begin
0061 0004       |    |		.CONST	0x0004								; Address of exception handler
0062 0002       |    |		.CONST	0x0002								; Number of locals
0063			INIT_0060:
0063 00da       |    |		Load_Top	At_Offset_2
0064 01da       |    |		Execute	Vector,Bounds
0065 00e9       |    |		Load_Encached	String_Cache
0066 035b       | [  |		Declare_Type	Array,Constrained
0067 0337       | 7  |		Declare_Variable	Array
0068 00d8       |    |		Load_Top	At_Offset_0
0069 0335       | 5  |		Declare_Variable	Array,Duplicate
006a 00cd       |    |		Action	Spare6_Action
006b 00d9       |    |		Load_Top	At_Offset_1
006c 01d9       |    |		Execute	Vector,Reverse_Bounds
006d 0263       | c  |		Execute	Discrete,Above_Bound
006e 7005       |p   |		Jump_Nonzero	0x74
006f 482d       |H-  |		Short_Literal	0x2d
0070 00d9       |    |		Load_Top	At_Offset_1
0071 e603       |    |		Load	0x3,0x3
0072 01d6       |    |		Execute	Vector,Field_Write
0073 3ffb       |?   |		Loop_Increasing	0x6f
0074 00d9       |    |		Load_Top	At_Offset_1
0075 01d4       |    |		Execute	Vector,Structure_Write
0076			BODY_0060:
0076 00db       |    |		Load_Top	At_Offset_3
0077 e002       |    |		Load	0x0,0x2
0078 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0079 00d8       |    |		Load_Top	At_Offset_0
007a e002       |    |		Load	0x0,0x2
007b 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
007c 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
007d 0000 0000  |    |		.XXX[0x3]
007f 0000       |    |
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0085       |    |		.CONST	0x0085								; Address of begin
0081 0004       |    |		.CONST	0x0004								; Address of exception handler
0082 0002       |    |		.CONST	0x0002								; Number of locals
0083			INIT_0080:
0083 029f 01ab  |    |		Declare_Subprogram	INIT_01a8,For_Call
0085			BODY_0080:
0085 00e1       |    |		Load_Encached	Boolean_Cache
0086 e402       |    |		Load	0x2,0x2
0087 8602       |    |		Call	0x3,0x2
0088 c409       |    |		Store	0x2,0x9
0089 00e1       |    |		Load_Encached	Boolean_Cache
008a e403       |    |		Load	0x2,0x3
008b 8602       |    |		Call	0x3,0x2
008c c40a       |    |		Store	0x2,0xa
008d 00e1       |    |		Load_Encached	Boolean_Cache
008e e404       |    |		Load	0x2,0x4
008f 8602       |    |		Call	0x3,0x2
0090 c40b       |    |		Store	0x2,0xb
0091 00e1       |    |		Load_Encached	Boolean_Cache
0092 e406       |    |		Load	0x2,0x6
0093 8602       |    |		Call	0x3,0x2
0094 c40d       |    |		Store	0x2,0xd
0095 00e1       |    |		Load_Encached	Boolean_Cache
0096 e407       |    |		Load	0x2,0x7
0097 8602       |    |		Call	0x3,0x2
0098 c40e       |    |		Store	0x2,0xe
0099 00e1       |    |		Load_Encached	Boolean_Cache
009a e408       |    |		Load	0x2,0x8
009b 8602       |    |		Call	0x3,0x2
009c c40f       |    |		Store	0x2,0xf
009d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
009e 0000 0000  |    |		.XXX[0x2]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3       |    |		.CONST	0x00a3								; Address of begin
00a1 0004       |    |		.CONST	0x0004								; Address of exception handler
00a2 0001       |    |		.CONST	0x0001								; Number of locals
00a3			BODY_00a0:
00a3			INIT_00a0:
00a3 0092 01ce  |    |		Action	Push_String_Extended,0x1ce					; "UCODE STATE"
00a5 8410       |    |		Call	0x2,0x10
00a6 e40e       |    |		Load	0x2,0xe
00a7 e40d       |    |		Load	0x2,0xd
00a8 0278       | x  |		Execute	Discrete,Or
00a9 6805       |h   |		Jump_Zero	0xaf
00aa 0092 01cf  |    |		Action	Push_String_Extended,0x1cf					; "No ucode info *** Saved_State or Regsiter file is empty"
00ac e002       |    |		Load	0x0,0x2
00ad 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
00ae 7803       |x   |		Jump	0xb2
00af e5fe       |    |		Load	0x2,-0x2
00b0 e5ff       |    |		Load	0x2,-0x1
00b1 8004       |    |		Call	0x0,0x4
00b2 4801       |H   |		Short_Literal	0x1
00b3 e002       |    |		Load	0x0,0x2
00b4 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
00b5 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00b6 0000 0000  |    |		.XXX[0x2]
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 0092 01d0  |    |		Action	Push_String_Extended,0x1d0					; "UCODE TRACE (last 20 entries)"
00bd 8410       |    |		Call	0x2,0x10
00be e40e       |    |		Load	0x2,0xe
00bf 6805       |h   |		Jump_Zero	0xc5
00c0 0092 01d1  |    |		Action	Push_String_Extended,0x1d1					; "No trace info *** Saved_State file is empty"
00c2 e002       |    |		Load	0x0,0x2
00c3 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
00c4 7807       |x   |		Jump	0xcc
00c5 00ea       |    |		Load_Encached	Null_String_Cache
00c6 4800       |H   |		Short_Literal	0x0
00c7 4801       |H   |		Short_Literal	0x1
00c8 4814       |H   |		Short_Literal	0x14
00c9 00ea       |    |		Load_Encached	Null_String_Cache
00ca e5ff       |    |		Load	0x2,-0x1
00cb 8005       |    |		Call	0x0,0x5
00cc 4801       |H   |		Short_Literal	0x1
00cd e002       |    |		Load	0x0,0x2
00ce 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
00cf 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3       |    |		.CONST	0x00d3								; Address of begin
00d1 00e9       |    |		.CONST	0x00e9								; Address of exception handler
00d2 0001       |    |		.CONST	0x0001								; Number of locals
00d3			BODY_00d0:
00d3			INIT_00d0:
00d3 0092 01d2  |    |		Action	Push_String_Extended,0x1d2					; "CRASH REASON (based on last micro-PC)"
00d5 8410       |    |		Call	0x2,0x10
00d6 e40e       |    |		Load	0x2,0xe
00d7 6805       |h   |		Jump_Zero	0xdd
00d8 0092 01d3  |    |		Action	Push_String_Extended,0x1d3					; "*** Saved_State file is empty"
00da e002       |    |		Load	0x0,0x2
00db 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
00dc 7808       |x   |		Jump	0xe5
00dd 0092 01d4  |    |		Action	Push_String_Extended,0x1d4					; "   "
00df e5ff       |    |		Load	0x2,-0x1
00e0 8006       |    |		Call	0x0,0x6
00e1 8007       |    |		Call	0x0,0x7
00e2 01cc       |    |		Execute	Vector,Catenate
00e3 e002       |    |		Load	0x0,0x2
00e4 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
00e5 4801       |H   |		Short_Literal	0x1
00e6 e002       |    |		Load	0x0,0x2
00e7 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
00e8 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00e9			TRAP_00d0:
00e9 0007       |    |		Action	Break_Optional
00ea 0092 01cd  |    |		Action	Push_String_Extended,0x1cd					; "%%% "
00ec 4801       |H   |		Short_Literal	0x1
00ed 4801       |H   |		Short_Literal	0x1
00ee e003       |    |		Load	0x0,0x3
00ef 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
00f0 01cc       |    |		Execute	Vector,Catenate
00f1 e002       |    |		Load	0x0,0x2
00f2 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
00f3 4801       |H   |		Short_Literal	0x1
00f4 e002       |    |		Load	0x0,0x2
00f5 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
00f6 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00f7 0000       |    |		.XXX[0x1]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 010c       |    |		.CONST	0x010c								; Address of begin
00f9 0162       | b  |		.CONST	0x0162								; Address of exception handler
00fa 0006       |    |		.CONST	0x0006								; Number of locals
00fb			INIT_00f8:
00fb e008       |    |		Load	0x0,0x8
00fc e009       |    |		Load	0x0,0x9
00fd 00e8       |    |		Load_Encached	Character_Cache
00fe e00a       |    |		Load	0x0,0xa
00ff 0387       |    |		Declare_Variable	Package
0100 00d8       |    |		Load_Top	At_Offset_0
0101 020f       |    |		Execute	Module,Activate
0102 00d8       |    |		Load_Top	At_Offset_0
0103 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0104 00e8       |    |		Load_Encached	Character_Cache
0105 4801       |H   |		Short_Literal	0x1
0106 4878       |Hx  |		Short_Literal	0x78
0107 00e9       |    |		Load_Encached	String_Cache
0108 035b       | [  |		Declare_Type	Array,Constrained
0109 0337       | 7  |		Declare_Variable	Array
010a 00e3       |    |		Load_Encached	Natural_Cache
010b 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
010c			BODY_00f8:
010c 0092 01d5  |    |		Action	Push_String_Extended,0x1d5					; "CRASH COMMENTS"
010e 8410       |    |		Call	0x2,0x10
010f e409       |    |		Load	0x2,0x9
0110 6805       |h   |		Jump_Zero	0x116
0111 0092 01d6  |    |		Action	Push_String_Extended,0x1d6					; "*** Comments file is empty"
0113 e002       |    |		Load	0x0,0x2
0114 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0115 7848       |xH  |		Jump	0x15e
0116 00db       |    |		Load_Top	At_Offset_3
0117 00ea       |    |		Load_Encached	Null_String_Cache
0118 e5ff       |    |		Load	0x2,-0x1
0119 e402       |    |		Load	0x2,0x2
011a 01cc       |    |		Execute	Vector,Catenate
011b 4800       |H   |		Short_Literal	0x0
011c e602       |    |		Load	0x3,0x2
011d 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
011e c603       |    |		Store	0x3,0x3
011f 00cf       |    |		Action	Mark_Auxiliary
0120 e602       |    |		Load	0x3,0x2
0121 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0122 e603       |    |		Load	0x3,0x3
0123 e602       |    |		Load	0x3,0x2
0124 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0125 c604       |    |		Store	0x3,0x4
0126 00db       |    |		Load_Top	At_Offset_3
0127 6828       |h(  |		Jump_Zero	0x150
0128 00db       |    |		Load_Top	At_Offset_3
0129 0f0a       |    |		Execute_Immediate	Equal,0xa
012a 6811       |h   |		Jump_Zero	0x13c
012b 00d9       |    |		Load_Top	At_Offset_1
012c 00db       |    |		Load_Top	At_Offset_3
012d 01d7       |    |		Execute	Vector,Field_Read
012e 0f0d       |    |		Execute_Immediate	Equal,0xd
012f 6803       |h   |		Jump_Zero	0x133
0130 00d9       |    |		Load_Top	At_Offset_1
0131 0aff       |    |		Execute_Immediate	Plus,-0x1
0132 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0133 4801       |H   |		Short_Literal	0x1
0134 00da       |    |		Load_Top	At_Offset_2
0135 e605       |    |		Load	0x3,0x5
0136 01cf       |    |		Execute	Vector,Slice_Read
0137 e002       |    |		Load	0x0,0x2
0138 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0139 4800       |H   |		Short_Literal	0x0
013a 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
013b 7812       |x   |		Jump	0x14e
013c 00d9       |    |		Load_Top	At_Offset_1
013d 0c78       | x  |		Execute_Immediate	Greater_Equal,0x78
013e 6808       |h   |		Jump_Zero	0x147
013f 4801       |H   |		Short_Literal	0x1
0140 00da       |    |		Load_Top	At_Offset_2
0141 e605       |    |		Load	0x3,0x5
0142 01cf       |    |		Execute	Vector,Slice_Read
0143 e002       |    |		Load	0x0,0x2
0144 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0145 4800       |H   |		Short_Literal	0x0
0146 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
0147 00d9       |    |		Load_Top	At_Offset_1
0148 0a01       |    |		Execute_Immediate	Plus,0x1
0149 005a       | Z  |		Store_Top	Discrete,At_Offset_2
014a 00db       |    |		Load_Top	At_Offset_3
014b 00da       |    |		Load_Top	At_Offset_2
014c e605       |    |		Load	0x3,0x5
014d 01d6       |    |		Execute	Vector,Field_Write
014e 00c9       |    |		Action	Pop_Auxiliary_Loop
014f 7fd0       |    |		Jump	0x120
0150 00ce       |    |		Action	Pop_Auxiliary
0151 00d8       |    |		Load_Top	At_Offset_0
0152 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0153 6806       |h   |		Jump_Zero	0x15a
0154 4801       |H   |		Short_Literal	0x1
0155 00d9       |    |		Load_Top	At_Offset_1
0156 00db       |    |		Load_Top	At_Offset_3
0157 01cf       |    |		Execute	Vector,Slice_Read
0158 e002       |    |		Load	0x0,0x2
0159 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
015a 00db       |    |		Load_Top	At_Offset_3
015b e602       |    |		Load	0x3,0x2
015c 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
015d c603       |    |		Store	0x3,0x3
015e 4801       |H   |		Short_Literal	0x1
015f e002       |    |		Load	0x0,0x2
0160 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
0161 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0162			TRAP_00f8:
0162 00d8       |    |		Load_Top	At_Offset_0
0163 0107       |    |		Execute	Exception,Get_Name
0164 4950       |IP  |		Short_Literal	0x150
0165 495f       |I_  |		Short_Literal	0x15f
0166 0262       | b  |		Execute	Discrete,In_Range
0167 6808       |h   |		Jump_Zero	0x170
0168 0092 01d7  |    |		Action	Push_String_Extended,0x1d7					; "%%% Unexpected EOF"
016a e002       |    |		Load	0x0,0x2
016b 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
016c 4801       |H   |		Short_Literal	0x1
016d e002       |    |		Load	0x0,0x2
016e 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
016f 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0170 0092 01cd  |    |		Action	Push_String_Extended,0x1cd					; "%%% "
0172 4801       |H   |		Short_Literal	0x1
0173 4801       |H   |		Short_Literal	0x1
0174 e003       |    |		Load	0x0,0x3
0175 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0176 01cc       |    |		Execute	Vector,Catenate
0177 e002       |    |		Load	0x0,0x2
0178 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0179 4801       |H   |		Short_Literal	0x1
017a e002       |    |		Load	0x0,0x2
017b 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
017c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
017d 0000 0000  |    |		.XXX[0x3]
017f 0000       |    |
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183       |    |		.CONST	0x0183								; Address of begin
0181 0195       |    |		.CONST	0x0195								; Address of exception handler
0182 0001       |    |		.CONST	0x0001								; Number of locals
0183			BODY_0180:
0183			INIT_0180:
0183 0092 01d8  |    |		Action	Push_String_Extended,0x1d8					; "LAST CONSOLE OUTPUT"
0185 8410       |    |		Call	0x2,0x10
0186 e40a       |    |		Load	0x2,0xa
0187 6805       |h   |		Jump_Zero	0x18d
0188 0092 01d9  |    |		Action	Push_String_Extended,0x1d9					; "*** Iop_Dump1 file is empty"
018a e002       |    |		Load	0x0,0x2
018b 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
018c 7804       |x   |		Jump	0x191
018d e5ff       |    |		Load	0x2,-0x1
018e e403       |    |		Load	0x2,0x3
018f 01cc       |    |		Execute	Vector,Catenate
0190 800b       |    |		Call	0x0,0xb
0191 4801       |H   |		Short_Literal	0x1
0192 e002       |    |		Load	0x0,0x2
0193 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
0194 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0195			TRAP_0180:
0195 0007       |    |		Action	Break_Optional
0196 0092 01cd  |    |		Action	Push_String_Extended,0x1cd					; "%%% "
0198 4801       |H   |		Short_Literal	0x1
0199 4801       |H   |		Short_Literal	0x1
019a e003       |    |		Load	0x0,0x3
019b 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
019c 01cc       |    |		Execute	Vector,Catenate
019d e002       |    |		Load	0x0,0x2
019e 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
019f 0092 01da  |    |		Action	Push_String_Extended,0x1da					; "--- console output available only for model 200"
01a1 e002       |    |		Load	0x0,0x2
01a2 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
01a3 4801       |H   |		Short_Literal	0x1
01a4 e002       |    |		Load	0x0,0x2
01a5 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
01a6 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01a7 0000       |    |		.XXX[0x1]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01b0       |    |		.CONST	0x01b0								; Address of begin
01a9 01c2       |    |		.CONST	0x01c2								; Address of exception handler
01aa 0002       |    |		.CONST	0x0002								; Number of locals
01ab			INIT_01a8:
01ab e002       |    |		Load	0x0,0x2
01ac 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01ad 02c7       |    |		Declare_Variable	Any
01ae 00d8       |    |		Load_Top	At_Offset_0
01af 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01b0			BODY_01a8:
01b0 00d8       |    |		Load_Top	At_Offset_0
01b1 00ea       |    |		Load_Encached	Null_String_Cache
01b2 e5ff       |    |		Load	0x2,-0x1
01b3 e9ff       |    |		Load	0x4,-0x1
01b4 01cc       |    |		Execute	Vector,Catenate
01b5 4800       |H   |		Short_Literal	0x0
01b6 e002       |    |		Load	0x0,0x2
01b7 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
01b8 c802       |    |		Store	0x4,0x2
01b9 00d8       |    |		Load_Top	At_Offset_0
01ba e002       |    |		Load	0x0,0x2
01bb 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
01bc a9fe       |    |		Store_Unchecked	0x4,-0x2
01bd 00d8       |    |		Load_Top	At_Offset_0
01be e002       |    |		Load	0x0,0x2
01bf 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
01c0 c802       |    |		Store	0x4,0x2
01c1 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01c2			TRAP_01a8:
01c2 0007       |    |		Action	Break_Optional
01c3 4801       |H   |		Short_Literal	0x1
01c4 a9fe       |    |		Store_Unchecked	0x4,-0x2
01c5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01c6 ; --------------------------------------------------------------------------------------
01c6 ; STRING TABLE
01c6 ; --------------------------------------------------------------------------------------
01c6 002c       | ,  |		.STRTAB	0x002c->0x01dc							; ".COMMENTS"
01c7 0033       | 3  |		.STRTAB	0x0033->0x01e0							; ".IOP_DUMP1"
01c8 003b       | ;  |		.STRTAB	0x003b->0x01e5							; ".IOP_DUMP2"
01c9 0043       | C  |		.STRTAB	0x0043->0x01ea							; ".MEMORY"
01ca 0048       | H  |		.STRTAB	0x0048->0x01ee							; ".REGISTERS"
01cb 0050       | P  |		.STRTAB	0x0050->0x01f3							; ".SAVED_STATE"
01cc 005a       | Z  |		.STRTAB	0x005a->0x01f9							; ".TAG_STORE"
01cd 0062       | b  |		.STRTAB	0x0062->0x01fe							; "%%% "
01ce 0064       | d  |		.STRTAB	0x0064->0x0200							; "UCODE STATE"
01cf 006d       | m  |		.STRTAB	0x006d->0x0205							; "No ucode info *** Saved_State or Regsiter file is empty"
01d0 00a2       |    |		.STRTAB	0x00a2->0x0221							; "UCODE TRACE (last 20 entries)"
01d1 00bd       |    |		.STRTAB	0x00bd->0x022f							; "No trace info *** Saved_State file is empty"
01d2 00e6       |    |		.STRTAB	0x00e6->0x0245							; "CRASH REASON (based on last micro-PC)"
01d3 0109       |    |		.STRTAB	0x0109->0x0257							; "*** Saved_State file is empty"
01d4 0124       | $  |		.STRTAB	0x0124->0x0266							; "   "
01d5 0125       | %  |		.STRTAB	0x0125->0x0267							; "CRASH COMMENTS"
01d6 0131       | 1  |		.STRTAB	0x0131->0x026e							; "*** Comments file is empty"
01d7 0149       | I  |		.STRTAB	0x0149->0x027b							; "%%% Unexpected EOF"
01d8 0159       | Y  |		.STRTAB	0x0159->0x0284							; "LAST CONSOLE OUTPUT"
01d9 016a       | j  |		.STRTAB	0x016a->0x028e							; "*** Iop_Dump1 file is empty"
01da 0183       |    |		.STRTAB	0x0183->0x029b							; "--- console output available only for model 200"
01db 01b0       |    |		.STREND 0x01b0->0x02b3
01dc 2e43 4f4d  |.COM|		.STRTAB_STRINGS
02b3 0000 0000  |    |		.BLANK	0000[0x5]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; Debug Table
02b8 ; --------------------------------------------------------------------------------------
02b8 0004 0011  |    |		.DEBUG4	0x0004,0x0011,0x34cc,0x0000,0x0001,0x0000
02be 0000 0000  |    |		.BLANK	0000[0xa]
02c8 0100 2800  |  ( |		.XXX[0xc]
02ca 0000 0000  |    |
02cc 0002 0000  |    |
02ce 0011 0000  |    |
02d0 0000 0800  |    |
02d2 0000 5000  |  P |
02d4 0000 0000  |    |		.BLANK	0000[0x2c]
0300 09aa 0c04  |    |		.XXX[0x8]
0302 0000 0d44  |   D|
0304 0016 23f1  |  # |
0306 0000 01c0  |    |
0308 0000 0000  |    |		.BLANK	0000[0x5]
030d 0009 0000  |    |		.XXX[0x17]
030f 3996 09aa  |9   |
0311 0c04 0000  |    |
0313 007f 000b  |    |
0315 c413 0000  |    |
0317 6e22 09aa  |n"  |
0319 0c04 0000  |    |
031b 17bf 0008  |    |
031d 6017 0000  |`   |
031f 062d 09aa  | -  |
0321 0c04 0800  |    |
0323 04b8       |    |
0324 0000 0000  |    |		.BLANK	0000[0x4]
0328 09aa 0004  |    |		.XXX[0x20]
032a 0000 4796  |  G |
032c 0001 bc13  |    |
032e 0000 38b3  |  8 |
0330 09aa 0c04  |    |
0332 0800 04b8  |    |
0334 0016 23f1  |  # |
0336 002a a928  | * (|
0338 09aa 0004  |    |
033a 0000 47ff  |  G |
033c 0001 bc13  |    |
033e 0000 0eb3  |    |
0340 09aa 0c04  |    |
0342 0000 17bf  |    |
0344 0008 f071  |   q|
0346 0000 062d  |   -|
0348 0000 0000  |    |		.BLANK	0000[0x5]
034d 0009 0000  |    |		.XXX[0x17]
034f 3996 09aa  |9   |
0351 0004 0000  |    |
0353 4dff 0001  |M   |
0355 bc13 0000  |    |
0357 2cd3 09aa  |,   |
0359 0c04 0000  |    |
035b 17bf 0009  |    |
035d b086 0000  |    |
035f 068c 09aa  |    |
0361 0c04 0800  |    |
0363 04b8       |    |
0364 0000 0000  |    |		.BLANK	0000[0x4]
0368 09aa 0c04  |    |		.XXX[0x8]
036a 0800 0600  |    |
036c 0016 23f1  |  # |
036e 0015 5fe5  |  _ |
0370 0000 0000  |    |		.BLANK	0000[0x4]
0374 8014 0000  |    |		.XXX[0xb]
0376 0000 0000  |    |
0378 0100 0000  |    |
037a 0880 0000  |    |
037c 0004 0000  |    |
037e 0028       | (  |
037f 0000 0000  |    |		.BLANK	0000[0x2e]
03ad 1002 8000  |    |		.XXX[0xb]
03af 0000 0000  |    |
03b1 0020 0000  |    |
03b3 0110 0000  |    |
03b5 0000 8000  |    |
03b7 0005       |    |
03b8 0000 0000  |    |		.BLANK	0000[0x34]
03ec 0016 23f1  |  # |		.XXX[0x14]
03ee 002a a004  | *  |
03f0 0001 0404  |    |
03f2 0000 0700  |    |
03f4 0016 23f1  |  # |
03f6 002a b270  | * p|
03f8 ff58 0023  | X #|
03fa 5000 0001  |P   |
03fc 0000 0000  |    |
03fe 0000 0003  |    |