mirror of
https://github.com/gungwald/online.git
synced 2024-06-10 15:29:32 +00:00
Compare commits
18 Commits
Author | SHA1 | Date | |
---|---|---|---|
|
26a9342fab | ||
|
d2b0e22737 | ||
|
2b9dc6a3f3 | ||
|
48506edbbc | ||
|
060ee9a967 | ||
|
f171ad982d | ||
|
f3fa2137a6 | ||
|
72dc4cfdef | ||
|
ea6dabddc8 | ||
|
33ce28a56b | ||
|
db9bac9de0 | ||
|
fa767b5dd6 | ||
|
44e1d76a69 | ||
|
cc8af1f439 | ||
|
5c17a3ee01 | ||
|
052518bfd0 | ||
|
1064e9ee5b | ||
|
3669912b63 |
2
.github/FUNDING.yml
vendored
Normal file
2
.github/FUNDING.yml
vendored
Normal file
|
@ -0,0 +1,2 @@
|
|||
github: [gungwald]
|
||||
custom: ["https://www.paypal.me/gungwald", "https://cash.app/$BillChatfield", "https://www.venmo.com/u/Bill-Chatfield"]
|
7
.gitignore
vendored
7
.gitignore
vendored
|
@ -1,3 +1,7 @@
|
|||
# Binary outputs of build
|
||||
online
|
||||
online.dsk
|
||||
|
||||
# Vim swap files
|
||||
.*.swp
|
||||
|
||||
|
@ -11,7 +15,6 @@
|
|||
.mtj.tmp/
|
||||
|
||||
# Packaged Java components
|
||||
*.jar
|
||||
*.war
|
||||
*.ear
|
||||
|
||||
|
@ -26,3 +29,5 @@ Release/
|
|||
|
||||
# Mac
|
||||
.DS_Store
|
||||
|
||||
_FileInformation.txt
|
||||
|
|
BIN
AppleCommander-1.3.5-ac.jar
Normal file
BIN
AppleCommander-1.3.5-ac.jar
Normal file
Binary file not shown.
BIN
AppleCommander-ac-1.4.0.jar
Normal file
BIN
AppleCommander-ac-1.4.0.jar
Normal file
Binary file not shown.
59
Makefile
59
Makefile
|
@ -1,30 +1,57 @@
|
|||
# Compiles with https://www.brutaldeluxe.fr/products/crossdevtools/merlin/
|
||||
# Require-mints:
|
||||
#
|
||||
# GNU make
|
||||
# - To execute this make file
|
||||
#
|
||||
# merlin32
|
||||
# - to assemble the source code
|
||||
# https://www.brutaldeluxe.fr/products/crossdevtools/merlin/
|
||||
#
|
||||
# AppleCommander (included)
|
||||
# - To create the Apple II disk image
|
||||
#
|
||||
# AppleWin
|
||||
# - To load the disk and test the program
|
||||
#
|
||||
ifeq ($(OS),Windows_NT)
|
||||
MERLIN_DIR=C:/opt/Merlin32_v1.0
|
||||
MERLIN_LIB=$(MERLIN_DIR)/Library
|
||||
MERLIN=$(MERLIN_DIR)/Windows/Merlin32
|
||||
RM=del /s
|
||||
COPY=copy
|
||||
APPLEWIN="c:\opt\AppleWin1.26.2.3\applewin.exe"
|
||||
else
|
||||
MERLIN_DIR=/opt/Merlin32_v1.0
|
||||
MERLIN_LIB=$(MERLIN_DIR)/Library
|
||||
MERLIN=$(MERLIN_DIR)/Windows/Merlin32
|
||||
RM=rm -f
|
||||
COPY=cp
|
||||
APPLEWIN=applewin
|
||||
endif
|
||||
|
||||
AC=java -jar AppleCommander-1.3.5.14.jar
|
||||
# It is necessary to use this older version of AppleCommander to support
|
||||
# the PowerBook G4 and iBook G3. This version only requires Java 1.3.
|
||||
MERLIN=merlin32
|
||||
AC=java -jar AppleCommander-1.3.5-ac.jar
|
||||
SRC=online.s
|
||||
PGM=ONLINE
|
||||
PGM=online
|
||||
BASE_DSK=prodos-2.0.3-boot.dsk
|
||||
VOL=$(PGM)
|
||||
DSK=$(PGM).dsk
|
||||
|
||||
$(DSK): $(PGM)
|
||||
$(AC) -pro140 $(DSK) $(VOL)
|
||||
$(AC) -p $(DSK) $(PGM) SYS < $(PGM)
|
||||
# There is some kind of problem with turning this into a boot disk
|
||||
# after it is created by AppleCommander. So, copy an existing boot
|
||||
# disk instead.
|
||||
#$(AC) -pro140 $(DSK) $(VOL)
|
||||
|
||||
$(DSK): $(PGM) $(PGM).ver.bas $(PGM).gui.bas
|
||||
$(COPY) $(BASE_DSK) $(DSK)
|
||||
# Does not work on older AC
|
||||
#$(AC) -n $(DSK) $(VOL)
|
||||
#$(AC) -p $(DSK) $(PGM) SYS < $(PGM)
|
||||
$(AC) -p $(DSK) $(PGM) BIN 0x2000 < $(PGM)
|
||||
$(AC) -p $(DSK) $(PGM).VER BAS < $(PGM).ver.bas
|
||||
$(AC) -p $(DSK) $(PGM).GUI BAS < $(PGM).gui.bas
|
||||
#cat $(PGM).ver.bas | tr '\n' '\r' | $(AC) -p $(DSK) $(PGM).VER TXT
|
||||
|
||||
$(PGM): $(SRC)
|
||||
$(MERLIN) $(MERLIN_LIB) $(SRC)
|
||||
$(MERLIN) $(SRC)
|
||||
|
||||
clean:
|
||||
$(RM) $(DSK) $(PGM)
|
||||
$(RM) $(DSK) $(PGM) *.zip _FileInformation.txt
|
||||
|
||||
test: $(DSK)
|
||||
$(APPLEWIN) -d1 $(DSK)
|
||||
|
||||
|
|
21
README.md
21
README.md
|
@ -1,5 +1,5 @@
|
|||
# online
|
||||
This is a program for the Apple II series of computers running ProDOS. It displays all the "online volumes" which means that it displays all the disks that are currently connected to the system, along with their slot and drive numbers. ProDOS provides no built-in way to determine this information from inside the BASIC.SYSTEM command line. Here is an example of the output:
|
||||
# Description
|
||||
"Online" is a program for the Apple II series of computers running ProDOS. It displays all the "online volumes" which means that it displays all the disks that are currently connected to the system, along with their slot and drive numbers. ProDOS provides no built-in way to determine this information from inside the BASIC.SYSTEM command line. Here is an example of the output:
|
||||
|
||||
]-ONLINE
|
||||
S3,D2 /RAM
|
||||
|
@ -7,3 +7,20 @@ This is a program for the Apple II series of computers running ProDOS. It displa
|
|||
S7,D2 /VISICALC
|
||||
S6,D1 (NOT A PRODOS DISK)
|
||||
S6,D2 /ONLINE
|
||||
|
||||
![Example](online-example-run.png)
|
||||
|
||||
# Etymology (which is different from [Entomology](https://en.wikipedia.org/wiki/Entomology))
|
||||
It is named after the ProDOS [ON_LINE](http://www.easy68k.com/paulrsm/6502/PDOS8TRM.HTM#4.4.6) system call that is used to retrieve volume information.
|
||||
|
||||
# Download Binary Executable
|
||||
See the [releases](https://github.com/gungwald/online/releases) page for a disk image with a binary version that's ready to run.
|
||||
|
||||
# Build from Source
|
||||
#### Requirements
|
||||
* Windows, Mac, or [Linux](http://getfedora.org) - all the build tools are supported on all 3 platforms
|
||||
* GNU make - to interpret the Makefile and run the build
|
||||
* [Merlin32](https://www.brutaldeluxe.fr/products/crossdevtools/merlin/) - to assemble the source code
|
||||
* [Javer](http://www.java.com) - to run AppleCommander which builds a disk image
|
||||
#### Process
|
||||
Type "make".
|
||||
|
|
|
@ -1 +0,0 @@
|
|||
ONLINE=Type(00),AuxType(0000),VersionCreate(70),MinVersion(BE),Access(E3),FolderInfo1(000000000000000000000000000000000000),FolderInfo2(000000000000000000000000000000000000)
|
BIN
online-example-run.png
Normal file
BIN
online-example-run.png
Normal file
Binary file not shown.
After Width: | Height: | Size: 34 KiB |
BIN
online.gui.bas
Normal file
BIN
online.gui.bas
Normal file
Binary file not shown.
67
online.s
67
online.s
|
@ -6,7 +6,8 @@
|
|||
* This program is free software; you can redistribute it and/or modify *
|
||||
* it under the terms of the GNU General Public License as published by *
|
||||
* the Free Software Foundation; either version 2 of the License, or *
|
||||
* (at your option) any later version. ** *
|
||||
* (at your option) any later version. *
|
||||
* *
|
||||
* This program is distributed in the hope that it will be useful, *
|
||||
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
|
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
|
||||
|
@ -18,9 +19,21 @@
|
|||
* *
|
||||
****************************************************************************
|
||||
|
||||
ORG $2000
|
||||
DSK ONLINE
|
||||
TYP $FF ;SYSTEM TYPE
|
||||
****************************************************************************
|
||||
* You might want to load stuff to $803 instead. Applesoft sort of acts up *
|
||||
* when there is anything else than a zero at location $800; plus, LIST *
|
||||
* displays junk and may crash the system if there is machine code at $801 *
|
||||
* and $802. If you load to $803, then $800 - $802 can stay at zero, which *
|
||||
* makes BASIC happy. *
|
||||
* *
|
||||
* This does not apply to Integer BASIC. *
|
||||
* *
|
||||
* -- *
|
||||
* Linards Ticmanis *
|
||||
****************************************************************************
|
||||
ORG $2000 ;This address is also in the Makefile
|
||||
DSK online
|
||||
TYP $06 ;$FF=SYSTEM $06=BINARY
|
||||
|
||||
********************************
|
||||
* *
|
||||
|
@ -40,6 +53,7 @@ MAXREC EQU 16 ;MAX RECS RETURNED BY ON_LINE
|
|||
BUFPTR EQU 6 ;WILL USE ZERO PAGE 6 & 7
|
||||
MSGADR EQU 8
|
||||
RECLEN EQU $10 ;THAT'S 16 IN DECIMAL
|
||||
CLARG EQU 6
|
||||
|
||||
********************************
|
||||
* *
|
||||
|
@ -99,10 +113,30 @@ DONE EOM
|
|||
********************************
|
||||
|
||||
MAIN
|
||||
PUTS LICENSE
|
||||
JSR CROUT
|
||||
LDA CLARG
|
||||
CMP #'V'
|
||||
BEQ PUTVERSION
|
||||
CMP #'L'
|
||||
BEQ PUTLICENSE
|
||||
JMP CALLONLINE
|
||||
|
||||
JSR MLI ;CALL MACHINE LANGUAGE INTERFACE
|
||||
PUTVERSION
|
||||
PUTS VERSION
|
||||
JSR CROUT
|
||||
RTS
|
||||
|
||||
PUTLICENSE
|
||||
PUTS LICENSE0
|
||||
JSR CROUT
|
||||
PUTS LICENSE1
|
||||
JSR CROUT
|
||||
PUTS LICENSE2
|
||||
JSR CROUT
|
||||
PUTS LICENSE3
|
||||
JSR CROUT
|
||||
RTS
|
||||
|
||||
CALLONLINE JSR MLI ;CALL MACHINE LANGUAGE INTERFACE
|
||||
DB ONLCMD ;SPECIFY THE ON_LINE SYSTEM CALL
|
||||
DA ONLARGS ;SPECIFY ADDRESS OF ARGUMENTS
|
||||
BEQ CONTINUE ;ON_LINE RETURNS 0 ON SUCCESS
|
||||
|
@ -327,7 +361,8 @@ UNKECODE ASC "UNKNOWN ERROR CODE: ",00
|
|||
*
|
||||
* ERROR MESSAGES
|
||||
*
|
||||
ERRCOUNT DB 8
|
||||
ERRCOUNT DB 9
|
||||
ERR03 ASC "NO DEVICE CONNECTED",00 ;Bug in AppleWin < 1.26.3.0
|
||||
ERR27 ASC "I/O ERROR",00
|
||||
ERR28 ASC "DEVICE NOT CONNECTED",00
|
||||
ERR2E ASC "DISK SWITCHED: FILE STILL OPEN ON OTHER DISK",00
|
||||
|
@ -339,7 +374,9 @@ ERR57 ASC "DUPLICATE VOLUME",00
|
|||
*
|
||||
* ERROR CODE TO MESSAGE TRANSLATION TABLE
|
||||
*
|
||||
ERRCODES DB $27
|
||||
ERRCODES
|
||||
DB $03 ;BASIC code used improperly by AppleWin < 1.26.3
|
||||
DB $27
|
||||
DB $28
|
||||
DB $2E
|
||||
DB $45
|
||||
|
@ -347,7 +384,9 @@ ERRCODES DB $27
|
|||
DB $55
|
||||
DB $56
|
||||
DB $57
|
||||
ERRMSGS DA ERR27
|
||||
ERRMSGS
|
||||
DA ERR03 ;Bug in AppleWin < 1.26.3.0
|
||||
DA ERR27
|
||||
DA ERR28
|
||||
DA ERR2E
|
||||
DA ERR45
|
||||
|
@ -358,8 +397,12 @@ ERRMSGS DA ERR27
|
|||
*
|
||||
* LICENSE
|
||||
*
|
||||
LICENSE ASC "Github.com/gungwald/online v1.0.1 GPL2",00
|
||||
LICENSE0 ASC "ONLINE v1.0.1",00
|
||||
LICENSE0 ASC "ONLINE",00
|
||||
LICENSE1 ASC "Copyright (c) 2017,2018 Bill Chatfield",00
|
||||
LICENSE2 ASC "Distributed under the GPLv2",00
|
||||
LICENSE3 ASC "https://github.com/gungwald/online",00
|
||||
*
|
||||
* VERSION
|
||||
*
|
||||
VERSION ASC "ONLINE v1.0.1",00
|
||||
|
||||
|
|
BIN
online.ver.bas
Normal file
BIN
online.ver.bas
Normal file
Binary file not shown.
17
online.ver.bas.txt
Normal file
17
online.ver.bas.txt
Normal file
|
@ -0,0 +1,17 @@
|
|||
10 REM PRINT ONLINE VERSION
|
||||
20 REM
|
||||
23 REM SAVE LOCATION 6
|
||||
25 LET M6=PEEK(6)
|
||||
27 REM
|
||||
30 REM PUT "V" FLAG FOR "VERSION"
|
||||
40 REM INTO MEMORY LOCATION 6
|
||||
50 REM WHERE THE ONLINE PROGRAM
|
||||
60 REM WILL LOOK FOR IT.
|
||||
70 POKE 6, ASC("V")
|
||||
80 REM
|
||||
90 REM RUN THE PROGRAM
|
||||
100 PRINT CHR$(4);"-ONLINE"
|
||||
110 REM
|
||||
120 REM RESTORE THE MEMORY LOCATION
|
||||
130 POKE 6,M6
|
||||
140 END
|
575
online_Output.txt
Normal file
575
online_Output.txt
Normal file
|
@ -0,0 +1,575 @@
|
|||
------+--------------------+-------------+----+---------+------+-----------------------+-------------------------------------------------------------------
|
||||
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 |
|
||||
------+--------------------+-------------+----+---------+------+-----------------------+-------------------------------------------------------------------
|
BIN
prodos-2.0.3-boot.dsk
Normal file
BIN
prodos-2.0.3-boot.dsk
Normal file
Binary file not shown.
Loading…
Reference in New Issue
Block a user