|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1024 (0x400)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03c0fe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 01e8 | | .CONST 0x01e8 ; 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 003d | = | .CONST 0x003d ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0017 | | .CONST 0x0017 ; Number of locals
000b INIT_0008:
000b e002 | | Load 0x0,0x2
000c 1b20 | | Execute Package,Field_Read,Field_Number 0x20
000d e003 | | Load 0x0,0x3
000e 1b15 | | Execute Package,Field_Read,Field_Number 0x15
000f 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
0010 029f 01bb | | Declare_Subprogram INIT_01b8,For_Call
0012 4802 |H | Short_Literal 0x2
0013 032e | . | Declare_Type Record,Defined,Visible
0014 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated
0016 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
0018 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated
001a 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated
001c 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated
001e 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated
0020 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated
0022 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated
0024 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated
0026 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated
0028 00bf | | Action Accept_Activation
0029 1d0e | | Execute_Immediate Reference_Lex_1,0xe
002a 00c7 | | Action Elaborate_Subprogram
002b 1d0f | | Execute_Immediate Reference_Lex_1,0xf
002c 00c7 | | Action Elaborate_Subprogram
002d 1d10 | | Execute_Immediate Reference_Lex_1,0x10
002e 00c7 | | Action Elaborate_Subprogram
002f 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0030 00c7 | | Action Elaborate_Subprogram
0031 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0032 00c7 | | Action Elaborate_Subprogram
0033 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0034 00c7 | | Action Elaborate_Subprogram
0035 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0036 00c7 | | Action Elaborate_Subprogram
0037 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0038 00c7 | | Action Elaborate_Subprogram
0039 1d16 | | Execute_Immediate Reference_Lex_1,0x16
003a 00c7 | | Action Elaborate_Subprogram
003b 1d17 | | Execute_Immediate Reference_Lex_1,0x17
003c 00c7 | | Action Elaborate_Subprogram
003d BODY_0008:
003d 00bc | | Action Signal_Activated
003e 00bb | | Action Signal_Completion
003f 0000 | | .XXX[0x1]
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0049 | I | .CONST 0x0049 ; Address of begin
0041 0004 | | .CONST 0x0004 ; Address of exception handler
0042 0004 | | .CONST 0x0004 ; Number of locals
0043 INIT_0040:
0043 e004 | | Load 0x0,0x4
0044 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0045 e005 | | Load 0x0,0x5
0046 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0047 e006 | | Load 0x0,0x6
0048 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0049 BODY_0040:
0049 e5fe | | Load 0x2,-0x2
004a 4602 |F | Jump_Case 0x3
004b 7819 |x | Jump 0x65 ; case 0x0
004c 782f |x/ | Jump 0x7c ; case 0x1
004d 7800 |x | Jump 0x4e ; case 0x2
004e e003 | | Load 0x0,0x3
004f 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0050 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
0051 484c |HL | Short_Literal 0x4c
0052 0092 01c5 | | Action Push_String_Extended,0x1c5 ; "UPDATE_MT"
0054 e007 | | Load 0x0,0x7
0055 180d | | Execute Package,Field_Execute,Field_Number 0xd
0056 e005 | | Load 0x0,0x5
0057 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0058 01c7 | | Execute Vector,Convert
0059 4800 |H | Short_Literal 0x0
005a e5fe | | Load 0x2,-0x2
005b e008 | | Load 0x0,0x8
005c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
005d e009 | | Load 0x0,0x9
005e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
005f e003 | | Load 0x0,0x3
0060 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0061 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0062 e5fd | | Load 0x2,-0x3
0063 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0064 782d |x- | Jump 0x92
0065 e003 | | Load 0x0,0x3
0066 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0067 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
0068 484c |HL | Short_Literal 0x4c
0069 0092 01c6 | | Action Push_String_Extended,0x1c6 ; "READ_MT"
006b e007 | | Load 0x0,0x7
006c 180d | | Execute Package,Field_Execute,Field_Number 0xd
006d e005 | | Load 0x0,0x5
006e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
006f 01c7 | | Execute Vector,Convert
0070 4800 |H | Short_Literal 0x0
0071 e5fe | | Load 0x2,-0x2
0072 e008 | | Load 0x0,0x8
0073 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0074 e009 | | Load 0x0,0x9
0075 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0076 e003 | | Load 0x0,0x3
0077 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0078 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0079 e5fd | | Load 0x2,-0x3
007a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
007b 7816 |x | Jump 0x92
007c e003 | | Load 0x0,0x3
007d 1b15 | | Execute Package,Field_Read,Field_Number 0x15
007e 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
007f 484c |HL | Short_Literal 0x4c
0080 0092 01c7 | | Action Push_String_Extended,0x1c7 ; "WRITE_MT"
0082 e007 | | Load 0x0,0x7
0083 180d | | Execute Package,Field_Execute,Field_Number 0xd
0084 e005 | | Load 0x0,0x5
0085 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0086 01c7 | | Execute Vector,Convert
0087 4800 |H | Short_Literal 0x0
0088 e5fe | | Load 0x2,-0x2
0089 e008 | | Load 0x0,0x8
008a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
008b e009 | | Load 0x0,0x9
008c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
008d e003 | | Load 0x0,0x3
008e 1b15 | | Execute Package,Field_Read,Field_Number 0x15
008f 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0090 e5fd | | Load 0x2,-0x3
0091 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0092 00cf | | Action Mark_Auxiliary
0093 e005 | | Load 0x0,0x5
0094 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0095 e006 | | Load 0x0,0x6
0096 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0097 0092 01c8 | | Action Push_String_Extended,0x1c8 ; "Use Drive"
0099 e5ff | | Load 0x2,-0x1
009a e002 | | Load 0x0,0x2
009b 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
009c 00e0 | | Load_Encached Standard_Cache
009d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
009e 01cc | | Execute Vector,Catenate
009f e007 | | Load 0x0,0x7
00a0 180f | | Execute Package,Field_Execute,Field_Number 0xf
00a1 e5fd | | Load 0x2,-0x3
00a2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00a3 e003 | | Load 0x0,0x3
00a4 1b15 | | Execute Package,Field_Read,Field_Number 0x15
00a5 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
00a6 005b | [ | Store_Top Discrete,At_Offset_3
00a7 005b | [ | Store_Top Discrete,At_Offset_3
00a8 00da | | Load_Top At_Offset_2
00a9 6803 |h | Jump_Zero 0xad
00aa 4802 |H | Short_Literal 0x2
00ab a5fc | | Store_Unchecked 0x2,-0x4
00ac 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00ad 00d9 | | Load_Top At_Offset_1
00ae e5ff | | Load 0x2,-0x1
00af e002 | | Load 0x0,0x2
00b0 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
00b1 027f | | Execute Discrete,Equal
00b2 684d |hM | Jump_Zero 0x100
00b3 e004 | | Load 0x0,0x4
00b4 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00b5 e002 | | Load 0x0,0x2
00b6 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00b7 e5fd | | Load 0x2,-0x3
00b8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00b9 0120 | | Execute Any,Is_Value
00ba 6803 |h | Jump_Zero 0xbe
00bb e002 | | Load 0x0,0x2
00bc 1b20 | | Execute Package,Field_Read,Field_Number 0x20
00bd 7802 |x | Jump 0xc0
00be e5fd | | Load 0x2,-0x3
00bf 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00c0 e00a | | Load 0x0,0xa
00c1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00c2 4800 |H | Short_Literal 0x0
00c3 e5ff | | Load 0x2,-0x1
00c4 e002 | | Load 0x0,0x2
00c5 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
00c6 e5fd | | Load 0x2,-0x3
00c7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00c8 c5fc | | Store 0x2,-0x4
00c9 c402 | | Store 0x2,0x2
00ca 00db | | Load_Top At_Offset_3
00cb 4607 |F | Jump_Case 0x8
00cc 781d |x | Jump 0xea ; case 0x0
00cd 782b |x+ | Jump 0xf9 ; case 0x1
00ce 7805 |x | Jump 0xd4 ; case 0x2
00cf 7804 |x | Jump 0xd4 ; case 0x3
00d0 7803 |x | Jump 0xd4 ; case 0x4
00d1 7802 |x | Jump 0xd4 ; case 0x5
00d2 7801 |x | Jump 0xd4 ; case 0x6
00d3 7800 |x | Jump 0xd4 ; case 0x7
00d4 e5fc | | Load 0x2,-0x4
00d5 4604 |F | Jump_Case 0x5
00d6 7812 |x | Jump 0xe9 ; case 0x0
00d7 7811 |x | Jump 0xe9 ; case 0x1
00d8 7809 |x | Jump 0xe2 ; case 0x2
00d9 780f |x | Jump 0xe9 ; case 0x3
00da 7800 |x | Jump 0xdb ; case 0x4
00db 4800 |H | Short_Literal 0x0
00dc e5fd | | Load 0x2,-0x3
00dd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00de e003 | | Load 0x0,0x3
00df 1b15 | | Execute Package,Field_Read,Field_Number 0x15
00e0 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
00e1 7824 |x$ | Jump 0x106
00e2 4801 |H | Short_Literal 0x1
00e3 e5fd | | Load 0x2,-0x3
00e4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00e5 e003 | | Load 0x0,0x3
00e6 1b15 | | Execute Package,Field_Read,Field_Number 0x15
00e7 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
00e8 781d |x | Jump 0x106
00e9 0887 | | Execute_Immediate Raise,0x87
00ea e5fe | | Load 0x2,-0x2
00eb 0e01 | | Execute_Immediate Not_Equal,0x1
00ec 701b |p | Jump_Nonzero 0x108
00ed e5fd | | Load 0x2,-0x3
00ee 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00ef e002 | | Load 0x0,0x2
00f0 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
00f1 7016 |p | Jump_Nonzero 0x108
00f2 4802 |H | Short_Literal 0x2
00f3 e5fd | | Load 0x2,-0x3
00f4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00f5 e003 | | Load 0x0,0x3
00f6 1b15 | | Execute Package,Field_Read,Field_Number 0x15
00f7 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
00f8 780d |x | Jump 0x106
00f9 4805 |H | Short_Literal 0x5
00fa e5fd | | Load 0x2,-0x3
00fb 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00fc e003 | | Load 0x0,0x3
00fd 1b15 | | Execute Package,Field_Read,Field_Number 0x15
00fe 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
00ff 7806 |x | Jump 0x106
0100 4808 |H | Short_Literal 0x8
0101 e5fd | | Load 0x2,-0x3
0102 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0103 e003 | | Load 0x0,0x3
0104 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0105 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0106 00c9 | | Action Pop_Auxiliary_Loop
0107 7f8b | | Jump 0x93
0108 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0109 0000 0000 | | .BLANK 0000[0x7]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0115 | | .CONST 0x0115 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0002 | | .CONST 0x0002 ; Number of locals
0113 INIT_0110:
0113 e004 | | Load 0x0,0x4
0114 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0115 BODY_0110:
0115 e004 | | Load 0x0,0x4
0116 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0117 e002 | | Load 0x0,0x2
0118 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0119 e5ff | | Load 0x2,-0x1
011a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
011b e002 | | Load 0x0,0x2
011c 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
011d e5ff | | Load 0x2,-0x1
011e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
011f c5fe | | Store 0x2,-0x2
0120 0059 | Y | Store_Top Discrete,At_Offset_1
0121 00d8 | | Load_Top At_Offset_0
0122 680d |h | Jump_Zero 0x130
0123 e00b | | Load 0x0,0xb
0124 180e | | Execute Package,Field_Execute,Field_Number 0xe
0125 4807 |H | Short_Literal 0x7
0126 0092 01c9 | | Action Push_String_Extended,0x1c9 ; "Tape close error: "
0128 00db | | Load_Top At_Offset_3
0129 e004 | | Load 0x0,0x4
012a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
012b 011c | | Execute Any,Convert_Unchecked
012c 1c01 | | Execute_Immediate Run_Utility,0x1
012d 01cc | | Execute Vector,Catenate
012e e00c | | Load 0x0,0xc
012f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0130 4800 |H | Short_Literal 0x0
0131 e5ff | | Load 0x2,-0x1
0132 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0133 e003 | | Load 0x0,0x3
0134 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0135 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0136 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0137 0000 | | .XXX[0x1]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b | ; | .CONST 0x013b ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0001 | | .CONST 0x0001 ; Number of locals
013b BODY_0138:
013b INIT_0138:
013b e5fd | | Load 0x2,-0x3
013c e5fe | | Load 0x2,-0x2
013d e5ff | | Load 0x2,-0x1
013e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
013f e002 | | Load 0x0,0x2
0140 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0141 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0142 0000 0000 | | .BLANK 0000[0x6]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b | K | .CONST 0x014b ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0001 | | .CONST 0x0001 ; Number of locals
014b BODY_0148:
014b INIT_0148:
014b e5fd | | Load 0x2,-0x3
014c e5fe | | Load 0x2,-0x2
014d e5ff | | Load 0x2,-0x1
014e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
014f e002 | | Load 0x0,0x2
0150 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0151 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0152 0000 0000 | | .BLANK 0000[0x6]
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 e5fd | | Load 0x2,-0x3
015c e5fe | | Load 0x2,-0x2
015d e5ff | | Load 0x2,-0x1
015e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
015f e002 | | Load 0x0,0x2
0160 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0161 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0162 0000 0000 | | .BLANK 0000[0x6]
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 00db | | Load_Top At_Offset_3
016c 00db | | Load_Top At_Offset_3
016d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
016e e002 | | Load 0x0,0x2
016f 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
0170 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0171 0000 0000 | | .BLANK 0000[0x7]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b | { | .CONST 0x017b ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0001 | | .CONST 0x0001 ; Number of locals
017b BODY_0178:
017b INIT_0178:
017b e5fc | | Load 0x2,-0x4
017c e5fd | | Load 0x2,-0x3
017d e5fe | | Load 0x2,-0x2
017e e5ff | | Load 0x2,-0x1
017f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0180 e002 | | Load 0x0,0x2
0181 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0182 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0183 0000 0000 | | .BLANK 0000[0x5]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b | | .CONST 0x018b ; Address of begin
0189 0004 | | .CONST 0x0004 ; Address of exception handler
018a 0001 | | .CONST 0x0001 ; Number of locals
018b BODY_0188:
018b INIT_0188:
018b 00db | | Load_Top At_Offset_3
018c 00db | | Load_Top At_Offset_3
018d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
018e e002 | | Load 0x0,0x2
018f 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0190 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0191 0000 0000 | | .BLANK 0000[0x7]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b | | .CONST 0x019b ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0001 | | .CONST 0x0001 ; Number of locals
019b BODY_0198:
019b INIT_0198:
019b e5fc | | Load 0x2,-0x4
019c e5fd | | Load 0x2,-0x3
019d e5fe | | Load 0x2,-0x2
019e e5ff | | Load 0x2,-0x1
019f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01a0 e002 | | Load 0x0,0x2
01a1 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
01a2 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01a3 0000 0000 | | .BLANK 0000[0x5]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab | | .CONST 0x01ab ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0001 | | .CONST 0x0001 ; Number of locals
01ab BODY_01a8:
01ab INIT_01a8:
01ab 00db | | Load_Top At_Offset_3
01ac 00db | | Load_Top At_Offset_3
01ad 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01ae e002 | | Load 0x0,0x2
01af 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
01b0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01b1 0000 0000 | | .BLANK 0000[0x7]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb | | .CONST 0x01bb ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0001 | | .CONST 0x0001 ; Number of locals
01bb BODY_01b8:
01bb INIT_01b8:
01bb 4601 |F | Jump_Case 0x2
01bc 7801 |x | Jump 0x1be ; case 0x0
01bd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
01be 00da | | Load_Top At_Offset_2
01bf 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01c0 0125 | % | Execute Any,Set_Constraint
01c1 00da | | Load_Top At_Offset_2
01c2 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01c3 1c00 | | Execute_Immediate Run_Utility,0x0
01c4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01c5 ; --------------------------------------------------------------------------------------
01c5 ; STRING TABLE
01c5 ; --------------------------------------------------------------------------------------
01c5 000c | | .STRTAB 0x000c->0x01cb ; "UPDATE_MT"
01c6 0013 | | .STRTAB 0x0013->0x01cf ; "READ_MT"
01c7 0018 | | .STRTAB 0x0018->0x01d3 ; "WRITE_MT"
01c8 001e | | .STRTAB 0x001e->0x01d7 ; "Use Drive"
01c9 0025 | % | .STRTAB 0x0025->0x01db ; "Tape close error: "
01ca 0035 | 5 | .STREND 0x0035->0x01e4
01cb 5550 4441 |UPDA| .STRTAB_STRINGS
01e5 0000 0000 | | .XXX[0x3]
01e7 0000 | |
01e8 ; --------------------------------------------------------------------------------------
01e8 ; Debug Table
01e8 ; --------------------------------------------------------------------------------------
01e8 0004 0011 | | .DEBUG4 0x0004,0x0011,0xf23a,0x0000,0x0001,0x0000
01ee 0000 0000 | | .BLANK 0000[0x12]