mirror of https://github.com/gungwald/online.git
576 lines
69 KiB
Plaintext
576 lines
69 KiB
Plaintext
------+--------------------+-------------+----+---------+------+-----------------------+-------------------------------------------------------------------
|
|
Line | # File Line | Line Type | MX | Reloc | Size | Address Object Code | Source Code
|
|
------+--------------------+-------------+----+---------+------+-----------------------+-------------------------------------------------------------------
|
|
1 | 1 online.s 1 | Comment | 11 | | 0 | 00/8000 | ****************************************************************************
|
|
2 | 1 online.s 2 | Comment | 11 | | 0 | 00/8000 | * *
|
|
3 | 1 online.s 3 | Comment | 11 | | 0 | 00/8000 | * ONLINE - Lists all disk volumes connected to the computer *
|
|
4 | 1 online.s 4 | Comment | 11 | | 0 | 00/8000 | * Copyright (C) 2017,2018 William L. Chatfield <bill_chatfield@yahoo.com> *
|
|
5 | 1 online.s 5 | Comment | 11 | | 0 | 00/8000 | * *
|
|
6 | 1 online.s 6 | Comment | 11 | | 0 | 00/8000 | * This program is free software; you can redistribute it and/or modify *
|
|
7 | 1 online.s 7 | Comment | 11 | | 0 | 00/8000 | * it under the terms of the GNU General Public License as published by *
|
|
8 | 1 online.s 8 | Comment | 11 | | 0 | 00/8000 | * the Free Software Foundation; either version 2 of the License, or *
|
|
9 | 1 online.s 9 | Comment | 11 | | 0 | 00/8000 | * (at your option) any later version. ** *
|
|
10 | 1 online.s 10 | Comment | 11 | | 0 | 00/8000 | * This program is distributed in the hope that it will be useful, *
|
|
11 | 1 online.s 11 | Comment | 11 | | 0 | 00/8000 | * but WITHOUT ANY WARRANTY; without even the implied warranty of *
|
|
12 | 1 online.s 12 | Comment | 11 | | 0 | 00/8000 | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
|
|
13 | 1 online.s 13 | Comment | 11 | | 0 | 00/8000 | * GNU General Public License for more details. *
|
|
14 | 1 online.s 14 | Comment | 11 | | 0 | 00/8000 | * *
|
|
15 | 1 online.s 15 | Comment | 11 | | 0 | 00/8000 | * You should have received a copy of the GNU General Public License along *
|
|
16 | 1 online.s 16 | Comment | 11 | | 0 | 00/8000 | * with this program; if not, write to the Free Software Foundation, Inc., *
|
|
17 | 1 online.s 17 | Comment | 11 | | 0 | 00/8000 | * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. *
|
|
18 | 1 online.s 18 | Comment | 11 | | 0 | 00/8000 | * *
|
|
19 | 1 online.s 19 | Comment | 11 | | 0 | 00/8000 | ****************************************************************************
|
|
20 | 1 online.s 20 | Empty | 11 | | 0 | 00/8000 |
|
|
21 | 1 online.s 21 | Directive | 11 | | 0 | 00/8000 | ORG $2000
|
|
22 | 1 online.s 22 | Directive | 11 | | 0 | 00/2000 | DSK online
|
|
23 | 1 online.s 23 | Directive | 11 | | 0 | 00/2000 | TYP $FF ;SYSTEM TYPE
|
|
24 | 1 online.s 24 | Empty | 11 | | 0 | 00/2000 |
|
|
25 | 1 online.s 25 | Comment | 11 | | 0 | 00/2000 | ********************************
|
|
26 | 1 online.s 26 | Comment | 11 | | 0 | 00/2000 | * *
|
|
27 | 1 online.s 27 | Comment | 11 | | 0 | 00/2000 | * CONSTANTS *
|
|
28 | 1 online.s 28 | Comment | 11 | | 0 | 00/2000 | * *
|
|
29 | 1 online.s 29 | Comment | 11 | | 0 | 00/2000 | ********************************
|
|
30 | 1 online.s 30 | Empty | 11 | | 0 | 00/2000 |
|
|
31 | 1 online.s 31 | Equivalence | 11 | | 0 | 00/2000 | DEBUG EQU 0
|
|
32 | 1 online.s 32 | Equivalence | 11 | | 0 | 00/2000 | ONLCMD EQU $C5 ;ID FOR ON_LINE MLI SYSTEM CALL
|
|
33 | 1 online.s 33 | Equivalence | 11 | | 0 | 00/2000 | RDKEY EQU $FD0C ;READS 1 CHAR
|
|
34 | 1 online.s 34 | Equivalence | 11 | | 0 | 00/2000 | CROUT EQU $FD8E ;SUB TO OUTPUT CARRIAGE RETURN
|
|
35 | 1 online.s 35 | Equivalence | 11 | | 0 | 00/2000 | COUT EQU $FDED ;SUB TO OUTPUT A CHARACTER
|
|
36 | 1 online.s 36 | Equivalence | 11 | | 0 | 00/2000 | PRBYTE EQU $FDDA ;SUB TO PRINT ERROR MESSAGE
|
|
37 | 1 online.s 37 | Equivalence | 11 | | 0 | 00/2000 | MLI EQU $BF00 ;ADDRESS OF MLI ENTRY POINT
|
|
38 | 1 online.s 38 | Equivalence | 11 | | 0 | 00/2000 | BELL EQU $FF3A ;SUBROUTINE TO BEEP
|
|
39 | 1 online.s 39 | Equivalence | 11 | | 0 | 00/2000 | MAXREC EQU 16 ;MAX RECS RETURNED BY ON_LINE
|
|
40 | 1 online.s 40 | Equivalence | 11 | | 0 | 00/2000 | BUFPTR EQU 6 ;WILL USE ZERO PAGE 6 & 7
|
|
41 | 1 online.s 41 | Equivalence | 11 | | 0 | 00/2000 | MSGADR EQU 8
|
|
42 | 1 online.s 42 | Equivalence | 11 | | 0 | 00/2000 | RECLEN EQU $10 ;THAT'S 16 IN DECIMAL
|
|
43 | 1 online.s 43 | Equivalence | 11 | | 0 | 00/2000 | CLARG EQU 6
|
|
44 | 1 online.s 44 | Empty | 11 | | 0 | 00/2000 |
|
|
45 | 1 online.s 45 | Comment | 11 | | 0 | 00/2000 | ********************************
|
|
46 | 1 online.s 46 | Comment | 11 | | 0 | 00/2000 | * *
|
|
47 | 1 online.s 47 | Comment | 11 | | 0 | 00/2000 | * MACROS *
|
|
48 | 1 online.s 48 | Comment | 11 | | 0 | 00/2000 | * *
|
|
49 | 1 online.s 49 | Comment | 11 | | 0 | 00/2000 | ********************************
|
|
50 | 1 online.s 50 | Empty | 11 | | 0 | 00/2000 |
|
|
51 | 1 online.s 51 | Directive | 11 | | 0 | 00/2000 | DO 0 ;TURN OFF ASSEMBLY FOR MACROS
|
|
52 | 1 online.s 94 | Directive | 11 | | 0 | 00/2000 | FIN ;END OF MACROS
|
|
53 | 1 online.s 95 | Empty | 11 | | 0 | 00/2000 |
|
|
54 | 1 online.s 96 | Comment | 11 | | 0 | 00/2000 | ********************************
|
|
55 | 1 online.s 97 | Comment | 11 | | 0 | 00/2000 | * *
|
|
56 | 1 online.s 98 | Comment | 11 | | 0 | 00/2000 | * MAIN *
|
|
57 | 1 online.s 99 | Comment | 11 | | 0 | 00/2000 | * *
|
|
58 | 1 online.s 100 | Comment | 11 | | 0 | 00/2000 | ********************************
|
|
59 | 1 online.s 101 | Empty | 11 | | 0 | 00/2000 |
|
|
60 | 1 online.s 102 | Empty | 11 | | 0 | 00/2000 | MAIN
|
|
61 | 1 online.s 103 | Code | 11 | | 2 | 00/2000 : A5 06 | LDA {6}
|
|
62 | 1 online.s 104 | Code | 11 | | 2 | 00/2002 : C9 56 | CMP #'V'
|
|
63 | 1 online.s 105 | Code | 11 | | 2 | 00/2004 : F0 07 | BEQ PUTVERSION
|
|
64 | 1 online.s 106 | Code | 11 | | 2 | 00/2006 : C9 4C | CMP #'L'
|
|
65 | 1 online.s 107 | Code | 11 | | 2 | 00/2008 : F0 1B | BEQ PUTLICENSE
|
|
66 | 1 online.s 108 | Code | 11 | | 3 | 00/200A : 4C 82 20 | JMP CALLONLINE
|
|
67 | 1 online.s 109 | Empty | 11 | | 0 | 00/200D |
|
|
68 | 1 online.s 110 | Empty | 11 | | 0 | 00/200D | PUTVERSION
|
|
69 | 1 online.s 111 | Macro | 11 | | 0 | 00/200D | PUTS VERSION
|
|
70 | 1 online.s 111 | Code | 11 | | 1 | 00/200D : 98 | TYA ;PRESERVE Y
|
|
71 | 1 online.s 111 | Code | 11 | | 1 | 00/200E : 48 | PHA
|
|
72 | 1 online.s 111 | Code | 11 | | 2 | 00/200F : A0 00 | LDY #0 ;PREPARE LOOP INDEX
|
|
73 | 1 online.s 111 | Code | 11 | | 3 | 00/2011 : B9 4F 24 | ozunid_2 LDA VERSION,Y ;LOAD A CHARACTER
|
|
74 | 1 online.s 111 | Code | 11 | | 2 | 00/2014 : C9 00 | CMP #0 ;CHECK FOR END OF STRING
|
|
75 | 1 online.s 111 | Code | 11 | | 2 | 00/2016 : F0 07 | BEQ ozunid_3
|
|
76 | 1 online.s 111 | Code | 11 | | 3 | 00/2018 : 20 ED FD | JSR {$FDED}
|
|
77 | 1 online.s 111 | Code | 11 | | 1 | 00/201B : C8 | INY
|
|
78 | 1 online.s 111 | Code | 11 | | 3 | 00/201C : 4C 11 20 | JMP ozunid_2
|
|
79 | 1 online.s 111 | Code | 11 | | 1 | 00/201F : 68 | ozunid_3 PLA ;RESTORE Y
|
|
80 | 1 online.s 111 | Code | 11 | | 1 | 00/2020 : A8 | TAY
|
|
81 | 1 online.s 112 | Code | 11 | | 3 | 00/2021 : 20 8E FD | JSR {$FD8E}
|
|
82 | 1 online.s 113 | Code | 11 | | 1 | 00/2024 : 60 | RTS
|
|
83 | 1 online.s 114 | Empty | 11 | | 0 | 00/2025 |
|
|
84 | 1 online.s 115 | Empty | 11 | | 0 | 00/2025 | PUTLICENSE
|
|
85 | 1 online.s 116 | Macro | 11 | | 0 | 00/2025 | PUTS LICENSE0
|
|
86 | 1 online.s 116 | Code | 11 | | 1 | 00/2025 : 98 | TYA ;PRESERVE Y
|
|
87 | 1 online.s 116 | Code | 11 | | 1 | 00/2026 : 48 | PHA
|
|
88 | 1 online.s 116 | Code | 11 | | 2 | 00/2027 : A0 00 | LDY #0 ;PREPARE LOOP INDEX
|
|
89 | 1 online.s 116 | Code | 11 | | 3 | 00/2029 : B9 E2 23 | ozunid_4 LDA LICENSE0,Y ;LOAD A CHARACTER
|
|
90 | 1 online.s 116 | Code | 11 | | 2 | 00/202C : C9 00 | CMP #0 ;CHECK FOR END OF STRING
|
|
91 | 1 online.s 116 | Code | 11 | | 2 | 00/202E : F0 07 | BEQ ozunid_5
|
|
92 | 1 online.s 116 | Code | 11 | | 3 | 00/2030 : 20 ED FD | JSR {$FDED}
|
|
93 | 1 online.s 116 | Code | 11 | | 1 | 00/2033 : C8 | INY
|
|
94 | 1 online.s 116 | Code | 11 | | 3 | 00/2034 : 4C 29 20 | JMP ozunid_4
|
|
95 | 1 online.s 116 | Code | 11 | | 1 | 00/2037 : 68 | ozunid_5 PLA ;RESTORE Y
|
|
96 | 1 online.s 116 | Code | 11 | | 1 | 00/2038 : A8 | TAY
|
|
97 | 1 online.s 117 | Code | 11 | | 3 | 00/2039 : 20 8E FD | JSR {$FD8E}
|
|
98 | 1 online.s 118 | Macro | 11 | | 0 | 00/203C | PUTS LICENSE1
|
|
99 | 1 online.s 118 | Code | 11 | | 1 | 00/203C : 98 | TYA ;PRESERVE Y
|
|
100 | 1 online.s 118 | Code | 11 | | 1 | 00/203D : 48 | PHA
|
|
101 | 1 online.s 118 | Code | 11 | | 2 | 00/203E : A0 00 | LDY #0 ;PREPARE LOOP INDEX
|
|
102 | 1 online.s 118 | Code | 11 | | 3 | 00/2040 : B9 E9 23 | ozunid_6 LDA LICENSE1,Y ;LOAD A CHARACTER
|
|
103 | 1 online.s 118 | Code | 11 | | 2 | 00/2043 : C9 00 | CMP #0 ;CHECK FOR END OF STRING
|
|
104 | 1 online.s 118 | Code | 11 | | 2 | 00/2045 : F0 07 | BEQ ozunid_7
|
|
105 | 1 online.s 118 | Code | 11 | | 3 | 00/2047 : 20 ED FD | JSR {$FDED}
|
|
106 | 1 online.s 118 | Code | 11 | | 1 | 00/204A : C8 | INY
|
|
107 | 1 online.s 118 | Code | 11 | | 3 | 00/204B : 4C 40 20 | JMP ozunid_6
|
|
108 | 1 online.s 118 | Code | 11 | | 1 | 00/204E : 68 | ozunid_7 PLA ;RESTORE Y
|
|
109 | 1 online.s 118 | Code | 11 | | 1 | 00/204F : A8 | TAY
|
|
110 | 1 online.s 119 | Code | 11 | | 3 | 00/2050 : 20 8E FD | JSR {$FD8E}
|
|
111 | 1 online.s 120 | Macro | 11 | | 0 | 00/2053 | PUTS LICENSE2
|
|
112 | 1 online.s 120 | Code | 11 | | 1 | 00/2053 : 98 | TYA ;PRESERVE Y
|
|
113 | 1 online.s 120 | Code | 11 | | 1 | 00/2054 : 48 | PHA
|
|
114 | 1 online.s 120 | Code | 11 | | 2 | 00/2055 : A0 00 | LDY #0 ;PREPARE LOOP INDEX
|
|
115 | 1 online.s 120 | Code | 11 | | 3 | 00/2057 : B9 10 24 | ozunid_8 LDA LICENSE2,Y ;LOAD A CHARACTER
|
|
116 | 1 online.s 120 | Code | 11 | | 2 | 00/205A : C9 00 | CMP #0 ;CHECK FOR END OF STRING
|
|
117 | 1 online.s 120 | Code | 11 | | 2 | 00/205C : F0 07 | BEQ ozunid_9
|
|
118 | 1 online.s 120 | Code | 11 | | 3 | 00/205E : 20 ED FD | JSR {$FDED}
|
|
119 | 1 online.s 120 | Code | 11 | | 1 | 00/2061 : C8 | INY
|
|
120 | 1 online.s 120 | Code | 11 | | 3 | 00/2062 : 4C 57 20 | JMP ozunid_8
|
|
121 | 1 online.s 120 | Code | 11 | | 1 | 00/2065 : 68 | ozunid_9 PLA ;RESTORE Y
|
|
122 | 1 online.s 120 | Code | 11 | | 1 | 00/2066 : A8 | TAY
|
|
123 | 1 online.s 121 | Code | 11 | | 3 | 00/2067 : 20 8E FD | JSR {$FD8E}
|
|
124 | 1 online.s 122 | Macro | 11 | | 0 | 00/206A | PUTS LICENSE3
|
|
125 | 1 online.s 122 | Code | 11 | | 1 | 00/206A : 98 | TYA ;PRESERVE Y
|
|
126 | 1 online.s 122 | Code | 11 | | 1 | 00/206B : 48 | PHA
|
|
127 | 1 online.s 122 | Code | 11 | | 2 | 00/206C : A0 00 | LDY #0 ;PREPARE LOOP INDEX
|
|
128 | 1 online.s 122 | Code | 11 | | 3 | 00/206E : B9 2C 24 | ozunid_10 LDA LICENSE3,Y ;LOAD A CHARACTER
|
|
129 | 1 online.s 122 | Code | 11 | | 2 | 00/2071 : C9 00 | CMP #0 ;CHECK FOR END OF STRING
|
|
130 | 1 online.s 122 | Code | 11 | | 2 | 00/2073 : F0 07 | BEQ ozunid_11
|
|
131 | 1 online.s 122 | Code | 11 | | 3 | 00/2075 : 20 ED FD | JSR {$FDED}
|
|
132 | 1 online.s 122 | Code | 11 | | 1 | 00/2078 : C8 | INY
|
|
133 | 1 online.s 122 | Code | 11 | | 3 | 00/2079 : 4C 6E 20 | JMP ozunid_10
|
|
134 | 1 online.s 122 | Code | 11 | | 1 | 00/207C : 68 | ozunid_11 PLA ;RESTORE Y
|
|
135 | 1 online.s 122 | Code | 11 | | 1 | 00/207D : A8 | TAY
|
|
136 | 1 online.s 123 | Code | 11 | | 3 | 00/207E : 20 8E FD | JSR {$FD8E}
|
|
137 | 1 online.s 124 | Code | 11 | | 1 | 00/2081 : 60 | RTS
|
|
138 | 1 online.s 125 | Empty | 11 | | 0 | 00/2082 |
|
|
139 | 1 online.s 126 | Empty | 11 | | 0 | 00/2082 | CALLONLINE
|
|
140 | 1 online.s 127 | Code | 11 | | 3 | 00/2082 : 20 00 BF | JSR {$BF00} ;CALL MACHINE LANGUAGE INTERFACE
|
|
141 | 1 online.s 128 | Data | 11 | | 1 | 00/2085 : C5 | DB {$C5} ;SPECIFY THE ON_LINE SYSTEM CALL
|
|
142 | 1 online.s 129 | Data | 11 | | 2 | 00/2086 : A9 22 | DA ONLARGS ;SPECIFY ADDRESS OF ARGUMENTS
|
|
143 | 1 online.s 130 | Code | 11 | | 2 | 00/2088 : F0 03 | BEQ CONTINUE ;ON_LINE RETURNS 0 ON SUCCESS
|
|
144 | 1 online.s 131 | Code | 11 | | 3 | 00/208A : 4C 38 21 | JMP ERROR
|
|
145 | 1 online.s 132 | Comment | 11 | | 0 | 00/208D | *
|
|
146 | 1 online.s 133 | Comment | 11 | | 0 | 00/208D | * COPY THE ADDRESS OF THE OUTPUT BUFFER INTO BUFPTR
|
|
147 | 1 online.s 134 | Comment | 11 | | 0 | 00/208D | *
|
|
148 | 1 online.s 135 | Code | 11 | | 2 | 00/208D : A9 A9 | CONTINUE LDA #<BUFFER ;PUT LOW BYTE INTO ACCUMULATOR
|
|
149 | 1 online.s 136 | Code | 11 | | 2 | 00/208F : 85 06 | STA {6} ;ASSIGN LOW BYTE TO BUFPTR
|
|
150 | 1 online.s 137 | Code | 11 | | 2 | 00/2091 : A9 21 | LDA #>BUFFER ;PUT HIGH BYTE INTO ACCUMULATOR
|
|
151 | 1 online.s 138 | Code | 11 | | 2 | 00/2093 : 85 07 | STA {6}+1 ;ASSIGN HIGH BYTE TO BUFPTR
|
|
152 | 1 online.s 139 | Comment | 11 | | 0 | 00/2095 | *
|
|
153 | 1 online.s 140 | Comment | 11 | | 0 | 00/2095 | * LOOP TO PROCESS 16 RECORDS
|
|
154 | 1 online.s 141 | Comment | 11 | | 0 | 00/2095 | *
|
|
155 | 1 online.s 142 | Code | 11 | | 3 | 00/2095 : AD B0 22 | RECLOOP LDA RECNUM
|
|
156 | 1 online.s 143 | Code | 11 | | 2 | 00/2098 : C9 10 | CMP #{16}
|
|
157 | 1 online.s 144 | Code | 11 | | 2 | 00/209A : D0 03 | BNE _CHKLAST
|
|
158 | 1 online.s 145 | Code | 11 | | 3 | 00/209C : 4C 37 21 | JMP ENDPROG
|
|
159 | 1 online.s 146 | Code | 11 | | 2 | 00/209F : A0 00 | _CHKLAST LDY #0
|
|
160 | 1 online.s 147 | Code | 11 | | 2 | 00/20A1 : B1 06 | LDA ({6}),Y
|
|
161 | 1 online.s 148 | Code | 11 | | 2 | 00/20A3 : C9 00 | CMP #0 ;LAST REC IF FIRST BYTE IS 0
|
|
162 | 1 online.s 149 | Code | 11 | | 2 | 00/20A5 : D0 03 | BNE FINDDRV
|
|
163 | 1 online.s 150 | Code | 11 | | 3 | 00/20A7 : 4C 37 21 | JMP ENDPROG
|
|
164 | 1 online.s 151 | Empty | 11 | | 0 | 00/20AA |
|
|
165 | 1 online.s 152 | Comment | 11 | | 0 | 00/20AA | * FIND DRIVE NUMBER. IT IS SPECIFIED BY THE HIGH BIT OF
|
|
166 | 1 online.s 153 | Comment | 11 | | 0 | 00/20AA | * THE FIRST BYTE IN THE RECORD. A ZERO SPECIFIES DRIVE 1.
|
|
167 | 1 online.s 154 | Comment | 11 | | 0 | 00/20AA | * A ONE SPECIFIES DRIVE 2.
|
|
168 | 1 online.s 155 | Empty | 11 | | 0 | 00/20AA |
|
|
169 | 1 online.s 156 | Code | 11 | | 2 | 00/20AA : A0 00 | FINDDRV LDY #0 ;SETUP FOR LDA INDIRECT INDEXED
|
|
170 | 1 online.s 157 | Code | 11 | | 2 | 00/20AC : B1 06 | LDA ({6}),Y ;LOAD FIRST BYTE INTO ACCUM
|
|
171 | 1 online.s 158 | Code | 11 | | 2 | 00/20AE : 29 80 | AND #%10000000 ;FOCUS ON THE HIGH BIT
|
|
172 | 1 online.s 159 | Code | 11 | | 1 | 00/20B0 : 18 | CLC ;DON'T LET THE CARRY BIT WRAP
|
|
173 | 1 online.s 160 | Code | 11 | | 1 | 00/20B1 : 4A | LSR ;SHIFT BITS TO THE RIGHT
|
|
174 | 1 online.s 161 | Code | 11 | | 1 | 00/20B2 : 4A | LSR ;AGAIN
|
|
175 | 1 online.s 162 | Code | 11 | | 1 | 00/20B3 : 4A | LSR ;AGAIN
|
|
176 | 1 online.s 163 | Code | 11 | | 1 | 00/20B4 : 4A | LSR ;...
|
|
177 | 1 online.s 164 | Code | 11 | | 1 | 00/20B5 : 4A | LSR
|
|
178 | 1 online.s 165 | Code | 11 | | 1 | 00/20B6 : 4A | LSR
|
|
179 | 1 online.s 166 | Code | 11 | | 1 | 00/20B7 : 4A | LSR ;BIT ZERO NOW SPECIFIES DRIVE
|
|
180 | 1 online.s 167 | Code | 11 | | 2 | 00/20B8 : 69 01 | ADC #1 ;CONVERT BIT TO DRIVE NUMBER
|
|
181 | 1 online.s 168 | Code | 11 | | 3 | 00/20BA : 8D AD 22 | STA DRIVENUM ;STORE THE RESULT
|
|
182 | 1 online.s 169 | Comment | 11 | | 0 | 00/20BD | *
|
|
183 | 1 online.s 170 | Comment | 11 | | 0 | 00/20BD | * FIND SLOT NUMBER
|
|
184 | 1 online.s 171 | Comment | 11 | | 0 | 00/20BD | *
|
|
185 | 1 online.s 172 | Code | 11 | | 2 | 00/20BD : A0 00 | LDY #0 ;SETUP FOR NEXT OP
|
|
186 | 1 online.s 173 | Code | 11 | | 2 | 00/20BF : B1 06 | LDA ({6}),Y ;LOAD FIRST BYTE INTO ACCUM
|
|
187 | 1 online.s 174 | Code | 11 | | 2 | 00/20C1 : 29 70 | AND #%01110000 ;FOCUS ON BITS 4,5, AND 6
|
|
188 | 1 online.s 175 | Code | 11 | | 1 | 00/20C3 : 4A | LSR ;SHIFT BITS TO THE RIGHT
|
|
189 | 1 online.s 176 | Code | 11 | | 1 | 00/20C4 : 4A | LSR ;DO IT AGAIN
|
|
190 | 1 online.s 177 | Code | 11 | | 1 | 00/20C5 : 4A | LSR ;DO IT AGAIN
|
|
191 | 1 online.s 178 | Code | 11 | | 1 | 00/20C6 : 4A | LSR ;DO IT AGAIN
|
|
192 | 1 online.s 179 | Code | 11 | | 3 | 00/20C7 : 8D AE 22 | STA SLOTNUM ;BITS 0,1,2 NOW SPECIFY SLOT NUM
|
|
193 | 1 online.s 180 | Comment | 11 | | 0 | 00/20CA | *
|
|
194 | 1 online.s 181 | Comment | 11 | | 0 | 00/20CA | * FIND VOLUME NAME LENGTH
|
|
195 | 1 online.s 182 | Comment | 11 | | 0 | 00/20CA | *
|
|
196 | 1 online.s 183 | Code | 11 | | 2 | 00/20CA : A0 00 | LDY #0 ;SETUP FOR NEXT OP
|
|
197 | 1 online.s 184 | Code | 11 | | 2 | 00/20CC : B1 06 | LDA ({6}),Y ;LOAD FIRST BYTE OF REC INTO A
|
|
198 | 1 online.s 185 | Code | 11 | | 2 | 00/20CE : 29 0F | AND #%00001111 ;FOCUS ON LOWER 4 BITS
|
|
199 | 1 online.s 186 | Code | 11 | | 3 | 00/20D0 : 8D AF 22 | STA NAMELEN ;STORE THE RESULT
|
|
200 | 1 online.s 187 | Empty | 11 | | 0 | 00/20D3 |
|
|
201 | 1 online.s 188 | Directive | 11 | | 0 | 00/20D3 | DO {0}
|
|
202 | 1 online.s 193 | Directive | 11 | | 0 | 00/20D3 | FIN
|
|
203 | 1 online.s 194 | Comment | 11 | | 0 | 00/20D3 | *
|
|
204 | 1 online.s 195 | Comment | 11 | | 0 | 00/20D3 | * PRINT SLOT AND DRIVE
|
|
205 | 1 online.s 196 | Comment | 11 | | 0 | 00/20D3 | *
|
|
206 | 1 online.s 197 | Empty | 11 | | 0 | 00/20D3 | PRTSLOT
|
|
207 | 1 online.s 198 | Code | 11 | | 2 | 00/20D3 : A9 D3 | LDA #"S" ;AN 'S' WITH HIGH BIT SET
|
|
208 | 1 online.s 199 | Code | 11 | | 3 | 00/20D5 : 20 ED FD | JSR {$FDED} ;WRITE 'S'
|
|
209 | 1 online.s 200 | Code | 11 | | 3 | 00/20D8 : AD AE 22 | LDA SLOTNUM ;PUT SLOT NUM IN ACCUMULATOR
|
|
210 | 1 online.s 201 | Code | 11 | | 1 | 00/20DB : 18 | CLC ;CLEAR CARRY FLAG FOR ADDITION
|
|
211 | 1 online.s 202 | Code | 11 | | 2 | 00/20DC : 69 B0 | ADC #$B0 ;CONVERT TO ASCII & SET HI BIT
|
|
212 | 1 online.s 203 | Code | 11 | | 3 | 00/20DE : 20 ED FD | JSR {$FDED} ;PRINT SLOTNUM
|
|
213 | 1 online.s 204 | Code | 11 | | 2 | 00/20E1 : A9 AC | LDA #$AC ;COMMA WITH HIGH BIT SET
|
|
214 | 1 online.s 205 | Code | 11 | | 3 | 00/20E3 : 20 ED FD | JSR {$FDED} ;WRITE COMMA
|
|
215 | 1 online.s 206 | Code | 11 | | 2 | 00/20E6 : A9 C4 | LDA #"D" ;A 'D' WITH HIGH BIT SET
|
|
216 | 1 online.s 207 | Code | 11 | | 3 | 00/20E8 : 20 ED FD | JSR {$FDED} ;WRITE 'D'
|
|
217 | 1 online.s 208 | Code | 11 | | 3 | 00/20EB : AD AD 22 | LDA DRIVENUM ;PUT DRIVE NUM IN ACCUMULATOR
|
|
218 | 1 online.s 209 | Code | 11 | | 1 | 00/20EE : 18 | CLC ;CLEAR CARRY FLAG FOR ADDITION
|
|
219 | 1 online.s 210 | Code | 11 | | 2 | 00/20EF : 69 B0 | ADC #$B0 ;CONVERT TO ASCII & SET HI BIT
|
|
220 | 1 online.s 211 | Code | 11 | | 3 | 00/20F1 : 20 ED FD | JSR {$FDED} ;WRITE DRIVENUM CHARACTER
|
|
221 | 1 online.s 212 | Code | 11 | | 2 | 00/20F4 : A9 A0 | LDA #" " ;SPACE WITH HIGH BIT SET
|
|
222 | 1 online.s 213 | Code | 11 | | 3 | 00/20F6 : 20 ED FD | JSR {$FDED} ;WRITE SPACE CHARACTER
|
|
223 | 1 online.s 214 | Comment | 11 | | 0 | 00/20F9 | *
|
|
224 | 1 online.s 215 | Comment | 11 | | 0 | 00/20F9 | * CHECK FOR EMPTY VOLUME NAME
|
|
225 | 1 online.s 216 | Comment | 11 | | 0 | 00/20F9 | *
|
|
226 | 1 online.s 217 | Code | 11 | | 2 | 00/20F9 : A0 00 | LDY #0
|
|
227 | 1 online.s 218 | Code | 11 | | 3 | 00/20FB : CC AF 22 | CPY NAMELEN ;CHECK FOR EMPTY NAME
|
|
228 | 1 online.s 219 | Code | 11 | | 2 | 00/20FE : D0 0C | BNE WRITEVOL ;CONTINUE IF IT IS NOT EMPTY
|
|
229 | 1 online.s 220 | Code | 11 | | 1 | 00/2100 : C8 | INY ;MOVE INDEX TO LOC OF ERROR CODE
|
|
230 | 1 online.s 221 | Code | 11 | | 2 | 00/2101 : B1 06 | LDA ({6}),Y ;LOAD THE ERROR CODE
|
|
231 | 1 online.s 222 | Code | 11 | | 3 | 00/2103 : 20 42 21 | JSR WRITEERR
|
|
232 | 1 online.s 223 | Code | 11 | | 3 | 00/2106 : 20 8E FD | JSR {$FD8E}
|
|
233 | 1 online.s 224 | Code | 11 | | 3 | 00/2109 : 4C 26 21 | JMP INCREC
|
|
234 | 1 online.s 225 | Comment | 11 | | 0 | 00/210C | *
|
|
235 | 1 online.s 226 | Comment | 11 | | 0 | 00/210C | * PRINT THE VOLUME NAME
|
|
236 | 1 online.s 227 | Comment | 11 | | 0 | 00/210C | *
|
|
237 | 1 online.s 228 | Code | 11 | | 2 | 00/210C : A9 AF | WRITEVOL LDA #"/" ;SLASH WITH HIGH BIT SET
|
|
238 | 1 online.s 229 | Code | 11 | | 3 | 00/210E : 20 ED FD | JSR {$FDED} ;WRITE SLASH CHARACTER
|
|
239 | 1 online.s 230 | Code | 11 | | 2 | 00/2111 : A0 01 | LDY #1 ;SET INDEX TO FIRST CHAR OF NAME
|
|
240 | 1 online.s 231 | Code | 11 | | 2 | 00/2113 : B1 06 | _NEXTCHR LDA ({6}),Y ;LOAD CHAR INTO ACCUMULATOR
|
|
241 | 1 online.s 232 | Code | 11 | | 2 | 00/2115 : 09 80 | ORA #%10000000 ;TURN ON THE HIGH BIT FOR PRINT
|
|
242 | 1 online.s 233 | Code | 11 | | 3 | 00/2117 : 20 ED FD | JSR {$FDED} ;WRITE A CHARACTER OF VOL NAME
|
|
243 | 1 online.s 234 | Code | 11 | | 3 | 00/211A : CC AF 22 | CPY NAMELEN ;CHECK IF LAST CHARACTER
|
|
244 | 1 online.s 235 | Code | 11 | | 2 | 00/211D : F0 04 | BEQ _DONEVOL ;EXIT LOOP IF DONE
|
|
245 | 1 online.s 236 | Code | 11 | | 1 | 00/211F : C8 | INY ;INCREMENT Y REGISTER
|
|
246 | 1 online.s 237 | Code | 11 | | 3 | 00/2120 : 4C 13 21 | JMP _NEXTCHR ;LOOP TO NEXT CHARACTER
|
|
247 | 1 online.s 238 | Code | 11 | | 3 | 00/2123 : 20 8E FD | _DONEVOL JSR {$FD8E} ;WRITE A CARRIAGE RETURN
|
|
248 | 1 online.s 239 | Comment | 11 | | 0 | 00/2126 | *
|
|
249 | 1 online.s 240 | Comment | 11 | | 0 | 00/2126 | * BOTTOM OF RECLOOP
|
|
250 | 1 online.s 241 | Comment | 11 | | 0 | 00/2126 | *
|
|
251 | 1 online.s 242 | Code | 11 | | 3 | 00/2126 : EE B0 22 | INCREC INC RECNUM ;INCREMENT CURRENT RECORD NUM
|
|
252 | 1 online.s 243 | Comment | 11 | | 0 | 00/2129 | *
|
|
253 | 1 online.s 244 | Comment | 11 | | 0 | 00/2129 | * ADD 16 TO THE ADDRESS IN BUFPTR
|
|
254 | 1 online.s 245 | Comment | 11 | | 0 | 00/2129 | *
|
|
255 | 1 online.s 246 | Code | 11 | | 2 | 00/2129 : A5 06 | LDA {6} ;LOAD THE LOW BYTE OF BUFPTR
|
|
256 | 1 online.s 247 | Code | 11 | | 1 | 00/212B : 18 | CLC ;CLEAR CARRY BIT IN PREP FOR ADD
|
|
257 | 1 online.s 248 | Code | 11 | | 2 | 00/212C : 69 10 | ADC #{$10} ;ADD RECLEN TO LOW BYTE
|
|
258 | 1 online.s 249 | Code | 11 | | 2 | 00/212E : 85 06 | STA {6} ;STORE CALCULATED LOW BYTE
|
|
259 | 1 online.s 250 | Code | 11 | | 2 | 00/2130 : 90 02 | BCC _NOCARRY ;IF CARRY NOT SET THEN NEXT REC
|
|
260 | 1 online.s 251 | Code | 11 | | 2 | 00/2132 : E6 07 | INC {6}+1 ;INC HIGH BYTE IF CARRY WAS SET
|
|
261 | 1 online.s 252 | Empty | 11 | | 0 | 00/2134 | _NOCARRY
|
|
262 | 1 online.s 253 | Directive | 11 | | 0 | 00/2134 | DO {0}
|
|
263 | 1 online.s 255 | Directive | 11 | | 0 | 00/2134 | FIN
|
|
264 | 1 online.s 256 | Empty | 11 | | 0 | 00/2134 |
|
|
265 | 1 online.s 257 | Code | 11 | | 3 | 00/2134 : 4C 95 20 | JMP RECLOOP ;LOOP TO NEXT RECORD
|
|
266 | 1 online.s 258 | Empty | 11 | | 0 | 00/2137 | ENDPROG
|
|
267 | 1 online.s 259 | Code | 11 | | 1 | 00/2137 : 60 | RTS ;RETURN TO WHATEVER CALLED PROG
|
|
268 | 1 online.s 260 | Comment | 11 | | 0 | 00/2138 | *
|
|
269 | 1 online.s 261 | Comment | 11 | | 0 | 00/2138 | * ERROR HANDLER
|
|
270 | 1 online.s 262 | Comment | 11 | | 0 | 00/2138 | *
|
|
271 | 1 online.s 263 | Empty | 11 | | 0 | 00/2138 | ERROR
|
|
272 | 1 online.s 264 | Code | 11 | | 3 | 00/2138 : 20 42 21 | JSR WRITEERR
|
|
273 | 1 online.s 265 | Code | 11 | | 3 | 00/213B : 20 3A FF | JSR {$FF3A} ;BEEP
|
|
274 | 1 online.s 266 | Code | 11 | | 3 | 00/213E : 20 8E FD | JSR {$FD8E} ;WRITE CARRIAGE RETURN
|
|
275 | 1 online.s 267 | Code | 11 | | 1 | 00/2141 : 60 | RTS ;RETURN TO WHATEVER CALL PROGRAM
|
|
276 | 1 online.s 268 | Empty | 11 | | 0 | 00/2142 |
|
|
277 | 1 online.s 269 | Comment | 11 | | 0 | 00/2142 | ********************************
|
|
278 | 1 online.s 270 | Comment | 11 | | 0 | 00/2142 | * *
|
|
279 | 1 online.s 271 | Comment | 11 | | 0 | 00/2142 | * SUB WRITEERR *
|
|
280 | 1 online.s 272 | Comment | 11 | | 0 | 00/2142 | * ERROR CODE MUST BE IN ACCUM *
|
|
281 | 1 online.s 273 | Comment | 11 | | 0 | 00/2142 | * *
|
|
282 | 1 online.s 274 | Comment | 11 | | 0 | 00/2142 | ********************************
|
|
283 | 1 online.s 275 | Empty | 11 | | 0 | 00/2142 |
|
|
284 | 1 online.s 276 | Empty | 11 | | 0 | 00/2142 | WRITEERR
|
|
285 | 1 online.s 277 | Code | 11 | | 3 | 00/2142 : 8D B1 22 | STA ERRCODE
|
|
286 | 1 online.s 278 | Code | 11 | | 2 | 00/2145 : A2 00 | LDX #0
|
|
287 | 1 online.s 279 | Code | 11 | | 2 | 00/2147 : A0 00 | LDY #0
|
|
288 | 1 online.s 280 | Empty | 11 | | 0 | 00/2149 |
|
|
289 | 1 online.s 281 | Empty | 11 | | 0 | 00/2149 | _NEXTERR
|
|
290 | 1 online.s 282 | Directive | 11 | | 0 | 00/2149 | DO {0}
|
|
291 | 1 online.s 287 | Directive | 11 | | 0 | 00/2149 | FIN
|
|
292 | 1 online.s 288 | Empty | 11 | | 0 | 00/2149 |
|
|
293 | 1 online.s 289 | Code | 11 | | 3 | 00/2149 : AD B1 22 | LDA ERRCODE
|
|
294 | 1 online.s 290 | Code | 11 | | 3 | 00/214C : DD C7 23 | CMP ERRCODES,X
|
|
295 | 1 online.s 291 | Code | 11 | | 2 | 00/214F : F0 2F | BEQ _FOUND
|
|
296 | 1 online.s 292 | Code | 11 | | 1 | 00/2151 : E8 | INX
|
|
297 | 1 online.s 293 | Code | 11 | | 1 | 00/2152 : C8 | INY
|
|
298 | 1 online.s 294 | Code | 11 | | 1 | 00/2153 : C8 | INY
|
|
299 | 1 online.s 295 | Code | 11 | | 3 | 00/2154 : EC FB 22 | CPX ERRCOUNT
|
|
300 | 1 online.s 296 | Code | 11 | | 2 | 00/2157 : 30 F0 | BMI _NEXTERR
|
|
301 | 1 online.s 297 | Empty | 11 | | 0 | 00/2159 |
|
|
302 | 1 online.s 298 | Comment | 11 | | 0 | 00/2159 | * UNKNOWN ERROR CODE
|
|
303 | 1 online.s 299 | Code | 11 | | 2 | 00/2159 : A9 A8 | LDA #"("
|
|
304 | 1 online.s 300 | Code | 11 | | 3 | 00/215B : 20 ED FD | JSR {$FDED}
|
|
305 | 1 online.s 301 | Macro | 11 | | 0 | 00/215E | PUTS UNKECODE
|
|
306 | 1 online.s 301 | Code | 11 | | 1 | 00/215E : 98 | TYA ;PRESERVE Y
|
|
307 | 1 online.s 301 | Code | 11 | | 1 | 00/215F : 48 | PHA
|
|
308 | 1 online.s 301 | Code | 11 | | 2 | 00/2160 : A0 00 | LDY #0 ;PREPARE LOOP INDEX
|
|
309 | 1 online.s 301 | Code | 11 | | 3 | 00/2162 : B9 E6 22 | ozunid_12 LDA UNKECODE,Y ;LOAD A CHARACTER
|
|
310 | 1 online.s 301 | Code | 11 | | 2 | 00/2165 : C9 00 | CMP #0 ;CHECK FOR END OF STRING
|
|
311 | 1 online.s 301 | Code | 11 | | 2 | 00/2167 : F0 07 | BEQ ozunid_13
|
|
312 | 1 online.s 301 | Code | 11 | | 3 | 00/2169 : 20 ED FD | JSR {$FDED}
|
|
313 | 1 online.s 301 | Code | 11 | | 1 | 00/216C : C8 | INY
|
|
314 | 1 online.s 301 | Code | 11 | | 3 | 00/216D : 4C 62 21 | JMP ozunid_12
|
|
315 | 1 online.s 301 | Code | 11 | | 1 | 00/2170 : 68 | ozunid_13 PLA ;RESTORE Y
|
|
316 | 1 online.s 301 | Code | 11 | | 1 | 00/2171 : A8 | TAY
|
|
317 | 1 online.s 302 | Code | 11 | | 3 | 00/2172 : AD B1 22 | LDA ERRCODE
|
|
318 | 1 online.s 303 | Code | 11 | | 3 | 00/2175 : 20 DA FD | JSR {$FDDA}
|
|
319 | 1 online.s 304 | Code | 11 | | 2 | 00/2178 : A9 A9 | LDA #")"
|
|
320 | 1 online.s 305 | Code | 11 | | 3 | 00/217A : 20 ED FD | JSR {$FDED}
|
|
321 | 1 online.s 306 | Code | 11 | | 3 | 00/217D : 4C A8 21 | JMP _ENDSUB
|
|
322 | 1 online.s 307 | Empty | 11 | | 0 | 00/2180 |
|
|
323 | 1 online.s 308 | Code | 11 | | 3 | 00/2180 : B9 D0 23 | _FOUND LDA ERRMSGS,Y ;LOAD A WITH LOW BYTE OF MSG
|
|
324 | 1 online.s 309 | Code | 11 | | 2 | 00/2183 : 85 08 | STA {8} ;STORE LOW BYTE INTO LOCAL
|
|
325 | 1 online.s 310 | Code | 11 | | 1 | 00/2185 : C8 | INY ;ADVANCE TO HIGH BYTE
|
|
326 | 1 online.s 311 | Code | 11 | | 3 | 00/2186 : B9 D0 23 | LDA ERRMSGS,Y ;LOAD A WITH HIGH BYTE OF MSG
|
|
327 | 1 online.s 312 | Code | 11 | | 2 | 00/2189 : 85 09 | STA {8}+1 ;STORE HIGH BYTE INTO LOCAL
|
|
328 | 1 online.s 313 | Empty | 11 | | 0 | 00/218B |
|
|
329 | 1 online.s 314 | Directive | 11 | | 0 | 00/218B | DO {0}
|
|
330 | 1 online.s 319 | Directive | 11 | | 0 | 00/218B | FIN
|
|
331 | 1 online.s 320 | Empty | 11 | | 0 | 00/218B |
|
|
332 | 1 online.s 321 | Code | 11 | | 2 | 00/218B : A9 A8 | LDA #"("
|
|
333 | 1 online.s 322 | Code | 11 | | 3 | 00/218D : 20 ED FD | JSR {$FDED}
|
|
334 | 1 online.s 323 | Macro | 11 | | 0 | 00/2190 | PUTS ({8}) ;WRITE THE ERROR MESSAGE
|
|
335 | 1 online.s 323 | Code | 11 | | 1 | 00/2190 : 98 | TYA ;PRESERVE Y
|
|
336 | 1 online.s 323 | Code | 11 | | 1 | 00/2191 : 48 | PHA
|
|
337 | 1 online.s 323 | Code | 11 | | 2 | 00/2192 : A0 00 | LDY #0 ;PREPARE LOOP INDEX
|
|
338 | 1 online.s 323 | Code | 11 | | 2 | 00/2194 : B1 08 | ozunid_14 LDA ({8}),Y ;LOAD A CHARACTER
|
|
339 | 1 online.s 323 | Code | 11 | | 2 | 00/2196 : C9 00 | CMP #0 ;CHECK FOR END OF STRING
|
|
340 | 1 online.s 323 | Code | 11 | | 2 | 00/2198 : F0 07 | BEQ ozunid_15
|
|
341 | 1 online.s 323 | Code | 11 | | 3 | 00/219A : 20 ED FD | JSR {$FDED}
|
|
342 | 1 online.s 323 | Code | 11 | | 1 | 00/219D : C8 | INY
|
|
343 | 1 online.s 323 | Code | 11 | | 3 | 00/219E : 4C 94 21 | JMP ozunid_14
|
|
344 | 1 online.s 323 | Code | 11 | | 1 | 00/21A1 : 68 | ozunid_15 PLA ;RESTORE Y
|
|
345 | 1 online.s 323 | Code | 11 | | 1 | 00/21A2 : A8 | TAY
|
|
346 | 1 online.s 324 | Code | 11 | | 2 | 00/21A3 : A9 A9 | LDA #")"
|
|
347 | 1 online.s 325 | Code | 11 | | 3 | 00/21A5 : 20 ED FD | JSR {$FDED}
|
|
348 | 1 online.s 326 | Empty | 11 | | 0 | 00/21A8 |
|
|
349 | 1 online.s 327 | Code | 11 | | 1 | 00/21A8 : 60 | _ENDSUB RTS
|
|
350 | 1 online.s 328 | Empty | 11 | | 0 | 00/21A9 |
|
|
351 | 1 online.s 329 | Comment | 11 | | 0 | 00/21A9 | ********************************
|
|
352 | 1 online.s 330 | Comment | 11 | | 0 | 00/21A9 | * *
|
|
353 | 1 online.s 331 | Comment | 11 | | 0 | 00/21A9 | * VARIABLES *
|
|
354 | 1 online.s 332 | Comment | 11 | | 0 | 00/21A9 | * *
|
|
355 | 1 online.s 333 | Comment | 11 | | 0 | 00/21A9 | ********************************
|
|
356 | 1 online.s 334 | Empty | 11 | | 0 | 00/21A9 |
|
|
357 | 1 online.s 335 | Data | 11 | | 256 | 00/21A9 : 00 00 00 00 | BUFFER DS 256 ;SPACE FOR 16 DISK VOL RECORDS
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
| | | | | | 00 00 00 00 |
|
|
358 | 1 online.s 336 | Data | 11 | | 1 | 00/22A9 : 02 | ONLARGS DB 2 ;PARAMETER COUNT
|
|
359 | 1 online.s 337 | Data | 11 | | 1 | 00/22AA : 00 | DB 0 ;UNIT NUMBER, 0=ALL
|
|
360 | 1 online.s 338 | Data | 11 | | 2 | 00/22AB : A9 21 | DA BUFFER ;ADDRESS OF OUTPUT BUFFER
|
|
361 | 1 online.s 339 | Data | 11 | | 1 | 00/22AD : 00 | DRIVENUM DB 0 ;BYTE TO STORE DRIVENUM
|
|
362 | 1 online.s 340 | Data | 11 | | 1 | 00/22AE : 00 | SLOTNUM DB 0 ;BYTE TO STORE SLOTNUM
|
|
363 | 1 online.s 341 | Data | 11 | | 1 | 00/22AF : 00 | NAMELEN DB 0 ;LENGTH OF A VOLUME NAME
|
|
364 | 1 online.s 342 | Data | 11 | | 1 | 00/22B0 : 00 | RECNUM DB 0 ;CURRENT RECORD NUMBER
|
|
365 | 1 online.s 343 | Data | 11 | | 1 | 00/22B1 : 00 | ERRCODE DB 0
|
|
366 | 1 online.s 344 | Data | 11 | | 9 | 00/22B2 : CE C1 CD C5 | DNAMELEN ASC "NAMELEN=",00
|
|
| | | | | | CC C5 CE BD |
|
|
| | | | | | 00 |
|
|
367 | 1 online.s 345 | Data | 11 | | 9 | 00/22BB : C5 D2 D2 C3 | DERRCODE ASC "ERRCODE=",00
|
|
| | | | | | CF C4 C5 BD |
|
|
| | | | | | 00 |
|
|
368 | 1 online.s 346 | Data | 11 | | 8 | 00/22C4 : CD D3 C7 C1 | DMSGADR ASC "MSGADR=",00
|
|
| | | | | | C4 D2 BD 00 |
|
|
369 | 1 online.s 347 | Data | 11 | | 26 | 00/22CC : D0 D2 C5 D3 | DPAUSE ASC "PRESS ANY KEY TO CONTINUE",00
|
|
| | | | | | D3 A0 C1 CE |
|
|
| | | | | | D9 A0 CB C5 |
|
|
| | | | | | D9 A0 D4 CF |
|
|
| | | | | | A0 C3 CF CE |
|
|
| | | | | | D4 C9 CE D5 |
|
|
| | | | | | C5 00 |
|
|
370 | 1 online.s 348 | Data | 11 | | 21 | 00/22E6 : D5 CE CB CE | UNKECODE ASC "UNKNOWN ERROR CODE: ",00
|
|
| | | | | | CF D7 CE A0 |
|
|
| | | | | | C5 D2 D2 CF |
|
|
| | | | | | D2 A0 C3 CF |
|
|
| | | | | | C4 C5 BA A0 |
|
|
| | | | | | 00 |
|
|
371 | 1 online.s 349 | Comment | 11 | | 0 | 00/22FB | *
|
|
372 | 1 online.s 350 | Comment | 11 | | 0 | 00/22FB | * ERROR MESSAGES
|
|
373 | 1 online.s 351 | Comment | 11 | | 0 | 00/22FB | *
|
|
374 | 1 online.s 352 | Data | 11 | | 1 | 00/22FB : 09 | ERRCOUNT DB 9
|
|
375 | 1 online.s 353 | Data | 11 | | 20 | 00/22FC : CE CF A0 C4 | ERR03 ASC "NO DEVICE CONNECTED",00;Bug in AppleWin < 1.26.3.0
|
|
| | | | | | C5 D6 C9 C3 |
|
|
| | | | | | C5 A0 C3 CF |
|
|
| | | | | | CE CE C5 C3 |
|
|
| | | | | | D4 C5 C4 00 |
|
|
376 | 1 online.s 354 | Data | 11 | | 10 | 00/2310 : C9 AF CF A0 | ERR27 ASC "I/O ERROR",00
|
|
| | | | | | C5 D2 D2 CF |
|
|
| | | | | | D2 00 |
|
|
377 | 1 online.s 355 | Data | 11 | | 21 | 00/231A : C4 C5 D6 C9 | ERR28 ASC "DEVICE NOT CONNECTED",00
|
|
| | | | | | C3 C5 A0 CE |
|
|
| | | | | | CF D4 A0 C3 |
|
|
| | | | | | CF CE CE C5 |
|
|
| | | | | | C3 D4 C5 C4 |
|
|
| | | | | | 00 |
|
|
378 | 1 online.s 356 | Data | 11 | | 45 | 00/232F : C4 C9 D3 CB | ERR2E ASC "DISK SWITCHED: FILE STILL OPEN ON OTHER DISK",00
|
|
| | | | | | A0 D3 D7 C9 |
|
|
| | | | | | D4 C3 C8 C5 |
|
|
| | | | | | C4 BA A0 C6 |
|
|
| | | | | | C9 CC C5 A0 |
|
|
| | | | | | D3 D4 C9 CC |
|
|
| | | | | | CC A0 CF D0 |
|
|
| | | | | | C5 CE A0 CF |
|
|
| | | | | | CE A0 CF D4 |
|
|
| | | | | | C8 C5 D2 A0 |
|
|
| | | | | | C4 C9 D3 CB |
|
|
| | | | | | 00 |
|
|
379 | 1 online.s 357 | Data | 11 | | 27 | 00/235C : D6 CF CC D5 | ERR45 ASC "VOLUME DIRECTORY NOT FOUND",00
|
|
| | | | | | CD C5 A0 C4 |
|
|
| | | | | | C9 D2 C5 C3 |
|
|
| | | | | | D4 CF D2 D9 |
|
|
| | | | | | A0 CE CF D4 |
|
|
| | | | | | A0 C6 CF D5 |
|
|
| | | | | | CE C4 00 |
|
|
380 | 1 online.s 358 | Data | 11 | | 18 | 00/2377 : CE CF D4 A0 | ERR52 ASC "NOT A PRODOS DISK",00
|
|
| | | | | | C1 A0 D0 D2 |
|
|
| | | | | | CF C4 CF D3 |
|
|
| | | | | | A0 C4 C9 D3 |
|
|
| | | | | | CB 00 |
|
|
381 | 1 online.s 359 | Data | 11 | | 26 | 00/2389 : D6 CF CC D5 | ERR55 ASC "VOLUME CONTROL BLOCK FULL",00
|
|
| | | | | | CD C5 A0 C3 |
|
|
| | | | | | CF CE D4 D2 |
|
|
| | | | | | CF CC A0 C2 |
|
|
| | | | | | CC CF C3 CB |
|
|
| | | | | | A0 C6 D5 CC |
|
|
| | | | | | CC 00 |
|
|
382 | 1 online.s 360 | Data | 11 | | 19 | 00/23A3 : C2 C1 C4 A0 | ERR56 ASC "BAD BUFFER ADDRESS",00
|
|
| | | | | | C2 D5 C6 C6 |
|
|
| | | | | | C5 D2 A0 C1 |
|
|
| | | | | | C4 C4 D2 C5 |
|
|
| | | | | | D3 D3 00 |
|
|
383 | 1 online.s 361 | Data | 11 | | 17 | 00/23B6 : C4 D5 D0 CC | ERR57 ASC "DUPLICATE VOLUME",00
|
|
| | | | | | C9 C3 C1 D4 |
|
|
| | | | | | C5 A0 D6 CF |
|
|
| | | | | | CC D5 CD C5 |
|
|
| | | | | | 00 |
|
|
384 | 1 online.s 362 | Comment | 11 | | 0 | 00/23C7 | *
|
|
385 | 1 online.s 363 | Comment | 11 | | 0 | 00/23C7 | * ERROR CODE TO MESSAGE TRANSLATION TABLE
|
|
386 | 1 online.s 364 | Comment | 11 | | 0 | 00/23C7 | *
|
|
387 | 1 online.s 365 | Empty | 11 | | 0 | 00/23C7 | ERRCODES
|
|
388 | 1 online.s 366 | Data | 11 | | 1 | 00/23C7 : 03 | DB $03 ;BASIC code used improperly by AppleWin < 1.26.3
|
|
389 | 1 online.s 367 | Data | 11 | | 1 | 00/23C8 : 27 | DB $27
|
|
390 | 1 online.s 368 | Data | 11 | | 1 | 00/23C9 : 28 | DB $28
|
|
391 | 1 online.s 369 | Data | 11 | | 1 | 00/23CA : 2E | DB $2E
|
|
392 | 1 online.s 370 | Data | 11 | | 1 | 00/23CB : 45 | DB $45
|
|
393 | 1 online.s 371 | Data | 11 | | 1 | 00/23CC : 52 | DB $52
|
|
394 | 1 online.s 372 | Data | 11 | | 1 | 00/23CD : 55 | DB $55
|
|
395 | 1 online.s 373 | Data | 11 | | 1 | 00/23CE : 56 | DB $56
|
|
396 | 1 online.s 374 | Data | 11 | | 1 | 00/23CF : 57 | DB $57
|
|
397 | 1 online.s 375 | Empty | 11 | | 0 | 00/23D0 | ERRMSGS
|
|
398 | 1 online.s 376 | Data | 11 | | 2 | 00/23D0 : FC 22 | DA ERR03 ;Bug in AppleWin < 1.26.3.0
|
|
399 | 1 online.s 377 | Data | 11 | | 2 | 00/23D2 : 10 23 | DA ERR27
|
|
400 | 1 online.s 378 | Data | 11 | | 2 | 00/23D4 : 1A 23 | DA ERR28
|
|
401 | 1 online.s 379 | Data | 11 | | 2 | 00/23D6 : 2F 23 | DA ERR2E
|
|
402 | 1 online.s 380 | Data | 11 | | 2 | 00/23D8 : 5C 23 | DA ERR45
|
|
403 | 1 online.s 381 | Data | 11 | | 2 | 00/23DA : 77 23 | DA ERR52
|
|
404 | 1 online.s 382 | Data | 11 | | 2 | 00/23DC : 89 23 | DA ERR55
|
|
405 | 1 online.s 383 | Data | 11 | | 2 | 00/23DE : A3 23 | DA ERR56
|
|
406 | 1 online.s 384 | Data | 11 | | 2 | 00/23E0 : B6 23 | DA ERR57
|
|
407 | 1 online.s 385 | Comment | 11 | | 0 | 00/23E2 | *
|
|
408 | 1 online.s 386 | Comment | 11 | | 0 | 00/23E2 | * LICENSE
|
|
409 | 1 online.s 387 | Comment | 11 | | 0 | 00/23E2 | *
|
|
410 | 1 online.s 388 | Data | 11 | | 7 | 00/23E2 : CF CE CC C9 | LICENSE0 ASC "ONLINE",00
|
|
| | | | | | CE C5 00 |
|
|
411 | 1 online.s 389 | Data | 11 | | 39 | 00/23E9 : C3 EF F0 F9 | LICENSE1 ASC "Copyright (c) 2017,2018 Bill Chatfield",00
|
|
| | | | | | F2 E9 E7 E8 |
|
|
| | | | | | F4 A0 A8 E3 |
|
|
| | | | | | A9 A0 B2 B0 |
|
|
| | | | | | B1 B7 AC B2 |
|
|
| | | | | | B0 B1 B8 A0 |
|
|
| | | | | | C2 E9 EC EC |
|
|
| | | | | | A0 C3 E8 E1 |
|
|
| | | | | | F4 E6 E9 E5 |
|
|
| | | | | | EC E4 00 |
|
|
412 | 1 online.s 390 | Data | 11 | | 28 | 00/2410 : C4 E9 F3 F4 | LICENSE2 ASC "Distributed under the GPLv2",00
|
|
| | | | | | F2 E9 E2 F5 |
|
|
| | | | | | F4 E5 E4 A0 |
|
|
| | | | | | F5 EE E4 E5 |
|
|
| | | | | | F2 A0 F4 E8 |
|
|
| | | | | | E5 A0 C7 D0 |
|
|
| | | | | | CC F6 B2 00 |
|
|
413 | 1 online.s 391 | Data | 11 | | 35 | 00/242C : E8 F4 F4 F0 | LICENSE3 ASC "https://github.com/gungwald/online",00
|
|
| | | | | | F3 BA AF AF |
|
|
| | | | | | E7 E9 F4 E8 |
|
|
| | | | | | F5 E2 AE E3 |
|
|
| | | | | | EF ED AF E7 |
|
|
| | | | | | F5 EE E7 F7 |
|
|
| | | | | | E1 EC E4 AF |
|
|
| | | | | | EF EE EC E9 |
|
|
| | | | | | EE E5 00 |
|
|
414 | 1 online.s 392 | Comment | 11 | | 0 | 00/244F | *
|
|
415 | 1 online.s 393 | Comment | 11 | | 0 | 00/244F | * VERSION
|
|
416 | 1 online.s 394 | Comment | 11 | | 0 | 00/244F | *
|
|
417 | 1 online.s 395 | Data | 11 | | 14 | 00/244F : CF CE CC C9 | VERSION ASC "ONLINE v1.0.1",00
|
|
| | | | | | CE C5 A0 F6 |
|
|
| | | | | | B1 AE B0 AE |
|
|
| | | | | | B1 00 |
|
|
418 | 1 online.s 396 | Empty | 11 | | 0 | 00/245D |
|
|
419 | 1 online.s 397 | Empty | 11 | | 0 | 00/245D |
|
|
------+--------------------+-------------+----+---------+------+-----------------------+-------------------------------------------------------------------
|