Apple-2-SW/online
1
0
Fork 0
mirror of https://github.com/gungwald/online.git synced 2025-08-13 09:24:58 +00:00
Code Issues Projects Releases Wiki Activity

Display version, license and handle error code 3

Browse Source
This commit is contained in:
Bill Chatfield
2018-10-10 16:34:47 -04:00
parent d741373808
commit 3669912b63
1 changed files with 38 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

45
online.s
View File

@@ -40,6 +40,7 @@ MAXREC EQU 16 ;MAX RECS RETURNED BY ON_LINE
BUFPTR EQU 6 ;WILL USE ZERO PAGE 6 & 7 BUFPTR EQU 6 ;WILL USE ZERO PAGE 6 & 7
MSGADR EQU 8 MSGADR EQU 8
RECLEN EQU $10 ;THAT'S 16 IN DECIMAL RECLEN EQU $10 ;THAT'S 16 IN DECIMAL
CLARG EQU 6
******************************** ********************************
* * * *
@@ -99,9 +100,30 @@ DONE EOM
******************************** ********************************
MAIN MAIN
PUTS LICENSE LDA CLARG
JSR CROUT CMP #'V'
BEQ PUTVERSION
CMP #'L'
BEQ PUTLICENSE
JMP CALLONLINE
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 JSR MLI ;CALL MACHINE LANGUAGE INTERFACE
DB ONLCMD ;SPECIFY THE ON_LINE SYSTEM CALL DB ONLCMD ;SPECIFY THE ON_LINE SYSTEM CALL
DA ONLARGS ;SPECIFY ADDRESS OF ARGUMENTS DA ONLARGS ;SPECIFY ADDRESS OF ARGUMENTS
@@ -327,7 +349,8 @@ UNKECODE ASC "UNKNOWN ERROR CODE: ",00
* *
* ERROR MESSAGES * 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 ERR27 ASC "I/O ERROR",00
ERR28 ASC "DEVICE NOT CONNECTED",00 ERR28 ASC "DEVICE NOT CONNECTED",00
ERR2E ASC "DISK SWITCHED: FILE STILL OPEN ON OTHER DISK",00 ERR2E ASC "DISK SWITCHED: FILE STILL OPEN ON OTHER DISK",00
@@ -339,7 +362,9 @@ ERR57 ASC "DUPLICATE VOLUME",00
* *
* ERROR CODE TO MESSAGE TRANSLATION TABLE * 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 $28
DB $2E DB $2E
DB $45 DB $45
@@ -347,7 +372,9 @@ ERRCODES DB $27
DB $55 DB $55
DB $56 DB $56
DB $57 DB $57
ERRMSGS DA ERR27 ERRMSGS
DA ERR03 ;Bug in AppleWin < 1.26.3.0
DA ERR27
DA ERR28 DA ERR28
DA ERR2E DA ERR2E
DA ERR45 DA ERR45
@@ -358,8 +385,12 @@ ERRMSGS DA ERR27
* *
* LICENSE * LICENSE
* *
LICENSE ASC "Github.com/gungwald/online v1.0.1 GPL2",00 LICENSE0 ASC "ONLINE",00
LICENSE0 ASC "ONLINE v1.0.1",00
LICENSE1 ASC "Copyright (c) 2017,2018 Bill Chatfield",00 LICENSE1 ASC "Copyright (c) 2017,2018 Bill Chatfield",00
LICENSE2 ASC "Distributed under the GPLv2",00 LICENSE2 ASC "Distributed under the GPLv2",00
LICENSE3 ASC "https://github.com/gungwald/online",00 LICENSE3 ASC "https://github.com/gungwald/online",00
*
* VERSION
*
VERSION ASC "ONLINE v1.0.1",00