💾 Archived View for spam.works › mirrors › textfiles › apple › ANATOMY › cmd.interpr.s.txt captured on 2023-06-16 at 21:10:55.

View Raw

More Information

-=-=-=-=-=-=-

 AVAILABLE'
 DCI 'RANGE ERROR'
 DCI 'WRITE PROTECTED'
 DCI 'END OF DATA'
 DCI 'FILE NOT FOUND'
 DCI 'VOLUME MISMATCH'
 DCI 'I/O ERROR'
 DCI 'DISK FULL'
 DCI 'FILE LOCKED'
 DCI 'SYNTAX ERROR'
 DCI 'NO BUFFERS AVAILABLE'
 DCI 'FILE TYPE MISMATCH'
 DCI 'PROGRAM TOO LARGE'
 DCI 'NOT DIRECT COMMAND'
 HEX 8D

	


	


	



EMSGOFFS HEX 0003191924333E4C5B646D788498AABB

	


	


	


	
VARIABLES 

	


	



BUFADR DS 2
CURSTAT DS 1
CSWSTATE DS 1
CSWL DS 2
KSWL DS 2
MAXFILES DS 2
SSAVE DS 1
XSAVE DS 1
YSAVE DS 1
ASAVE DS 1
CMDLNIDX DS 1
MONFLGS DS 1
CMDINDX DS 1
LOADLEN DS 2
PENDCMD DS 1
TEMP1 DS 1
KYWRDIDX DS 1
KYWRDFND DS 1
VOLVAL DS 2
DRVAL DS 2
SLOTVAL DS 2
LENVAL DS 2
RECVAL DS 2
BYTVAL DS 2
ADRVAL DS 2
MONVAL DS 1
FNAME DS 30
SFNAME DS 30
MXFLS HEX 03
CTLD HEX 84
EXFLG DS 1
EXCBUF DS 2
WHCBASIC DS 1
RUNINTRC DS 1
LAAB7 ASC "APPLESOFT"

	


	


	
The following are overlapping

	
with the equivalent defs in

	
the FILE.MNGR file.

	



LAAC1 DA $B7E8
LAAC3 DA $B3BB
LAAC5 DA $B4BB
LACC7 DA $C000

RV = $B7EA
IOBSLOT = $B7E9
AJUSTBYT = $BFDC
SETWARM = $BFE6
ROM = $C081
RAM = $C080

	


	


	


	
APPLESOFT EQUATES

	



JMPFPST = $D43C
SETFPPR = $D4F2
NEWSTT = $D7D2
JPFPERR = $D865

	


	


	
INTEGER EQUATES

	



BASWRM = $E003
BASCLD = $E000
INTERR = $E3E3
IRUN = $E836

	


	
MONITOR EQUATES

	



OLDBRK = $FA59
INPRT = $FE8B
OUTPRT = $FE95
RTS = $FF58
MON = $FF65

	



 ORG $9D00

	


	



DBUFP DA DBUF-1
DOSKBD DA KBDINTR
DOSVID DA VIDINTRC
PFNADR DA FNAME
SFNADR DA SFNAME
LDRNGLEN DA LOADLEN
LOADADR DA $9D00
FMPARMS DA FMOP

	


	


	
CSW STATE HANDLER ADDRESSES

	



CSWSTADR DA CSWST-1
 DA CSWST3-1
 DA CSWST4-1
 DA CSWST5-1
 DA CSWST6-1
 DA CSWST7-1
 DA CSWST8-1

	



 ORG $9D1E

	


	
COMMAND ADDRESSES

	



CMDTBL DA DOINIT-1
 DA DOLOAD-1
 DA DOSAVE-1
 DA DORUN-1
 DA DOCHAIN-1
 DA DODELETE-1
 DA DOLOCK-1
 DA DOUNLCK-1
 DA DOCLOSE-1
 DA DOREAD-1
 DA DOEXEC-1
 DA DOWRITE-1
 DA DOPTION-1
 DA DOOPEN-1
 DA DOAPND-1
 DA DORENAME-1
 DA DOCAT-1
 DA DOMON-1
 DA DONOMON-1
 DA DOPRNUM-1
 DA DOINNUM-1
 DA DOMXFLS-1
 DA DOFP-1
 DA DOINT-1
 DA DOBSAVE-1
 DA DOBLOAD-1
 DA DOBRUN-1
 DA DOVERIFY-1

	



 ORG $9D55

	


	
ACTIVE BASIC TABLE

	



CHNADR DA IRUN
RUNADR DA DOSIRUN
BASERR DA INTERR
BASCOLD DA BASCLD
BASWARM DA BASWRM
ASFTREL DA SETFPPR

	


	
INTEGER STUFF

	



INTTBL DA IRUN
 DA DOSIRUN
 DA INTERR
 DA BASCLD
 DA BASWRM

	


	
ROM APPLESOFT STUFF

	



FPTBL DA DOSARUN
 DA DOSARUN
 DA JPFPERR
 DA BASCLD
 DA JMPFPST
 DA SETFPPR

	


	
RAM APPLESOFT STUFF

	



RAMASTBL DA DOSA2RUN
 DA DOSA2RUN
 DA L1067
 DA DOSSTRT
 DA LC3C
 DA LCF2

	



 ORG $9D84

	


	


	


	
DOS COLDSTART ADDRESS

	


	


	


	
INIT DEFAULT SLOT & DRIVE

	



DOSSTRT LDA IOBSLOT
 LSR 
 LSR 
 LSR 
 LSR 
 STA SLOTVAL
 LDA IOBDRV
 STA DRVAL

	


	


	
See which BASIC is active

	



 LDA BASCLD
 EOR #$20
 BNE LDFPBAS

	


	


	
Integer BASIC is active,

	
move all required addresses

	
down there.

	



 STA WHCBASIC
 LDX #$A
LDINT LDA INTTBL-1,X
 STA CHNADR-1,X
 DEX 
 BNE LDINT
 JMP CHSBASIC

	


	


	
Applesoft BASIC is active,

	
move A/S addresses to the

	
active BASIC addresses area.

	



LDFPBAS LDA #$40
 STA WHCBASIC
 LDX #$C
LDFPTBL LDA FPTBL-1,X
 STA CHNADR-1,X
 DEX 
 BNE LDFPTBL
CHSBASIC SEC 
 BCS INITDOS

	



 ORG $9DBF

	


	
DOS Warmstart

	



DOSWARM LDA WHCBASIC
 BNE DOSWARM1

	


	
Cause integer BASIC to be

	
selected.

	



 LDA #$20
 BNE DOSWARM2
DOSWARM1 ASL
 BPL DOSWARM3

	


	


	
Select Applesoft BASIC.

	



 LDA #$4C
DOSWARM2 JSR SETBASIC
DOSWARM3 CLC

	



 ORG $9DD1

	


	


	
Initialize DOS.

	



INITDOS PHP 
 JSR INITPTR
 LDA #$0 ;set NOMON O,I,C
 STA MONFLGS
 STA CSWSTATE ;init to state 0
 PLP 
 ROR 
 STA CURSTAT
 BMI INITDOS1
 JMP (BASWARM)
INITDOS1 JMP (BASCOLD)

	


	


	


	
FRSTIME is call after a DOS coldstart

	
it checks for RAM A/S and takes

	
care of other coldstart stuff

	
that must be done after BASIC

	
is initialized.

	



FRSTIME ASL ;check for RAM or ROM A/S
 BPL MVRAMAS2

	


	


	
If RAM A/S, move required pointers

	
into the active BASIC area.

	



 STA WHCBASIC
 LDX #$C
MVRAMAS LDA RAMASTBL-1,X
 STA CHNADR-1,X
 DEX 
 BNE MVRAMAS
 LDX #$1D
MVRAMAS1 LDA SFNAME,X
 STA FNAME,X
 DEX 
 BPL MVRAMAS1

	



 ORG $9E06

	


	
Init MAXFILES to the default

	
value (usually 3)

	



MVRANAS2 LDA MXFLS
 STA MAXFILES

	


	
set up the DOS buffers chain

	



 JSR INITBUFS

	


	


	
if EXEC is active, cause it to

	
become inactive on the next

	
character input

	



 LDA EXFLG
 BEQ MVRAMAS3
 PHA 
 JSR PNTEXEC
 PLA 
 LDY #0
 STA (FILEBUF),Y

	


	


	
reset the CSW state to 0, set

	
warmstart status.

	



MVRAMAS3 JSR RSET0

	


	


	
check to see if we are in the

	
middle of a command.

	



 LDA CMDINDX
 BNE TSTPEND

	


	


	
If not, copy the page 3 stuff

	
down to $3D0

	



 LDX #$2F
MOV3D0 LDA PAG3,X
 STA DOSRST,X
 DEX 
 BPL MOV3D0
 LDA PAG3+2
 STA SOFTEV+1
 EOR #$A5
 STA PWREDUP
 LDA PAG3+1
 STA SOFTEV
 LDA #$6
 BNE TSTPEND1

	


	


	
If there is a command pending

	
(because RAM A/S was loaded?)

	
then execute it, otherwise

	
return to BASIC.

	



TSTPEND LDA PENDCMD
 BEQ TSTPEND2
TSTPEND1 STA CMDINDX
 JMP DOCMD
TSTPEND2 RTS

	



 ORG $9E51

	


	
Stuff that gets moved down to

	
$3D0

	



PAG3 JMP DOSWARM
 JMP DOSSTRT
 JMP FMGR2
 JMP CALLRWTS
 LDA FMPARMS+1
 LDY FMPARMS
 RTS 
 LDA LAAC1+1
 LDY LAAC1
 RTS 
 JMP INITPTR
 NOP 
 NOP 
 JMP OLDBRK
 JMP MON
 JMP RTS
 JMP MON
 JMP MON
 DA $FF65

	



 ORG $9E81

	


	
Keyboard intercept routine.

	
Called each time a character

	
is requested.

	
"HOOKS" at $38 and $39 point

	
at this routine.

	



KBDINTR JSR SAVREG
 LDA CURSTAT ;reading from a file?
 BEQ KBDINTR2

	


	
If so, remove cursor from screen

	



 PHA 
 LDA ASAVE
 STA (BASE),Y
 PLA 
 BMI KBDINTR1 ;doing coldstart?
 JMP READBYTE

	



 ORG $9E95

	


	
special case for coldstart

	



KBDINTR1 JSR FRSTIME
 LDY CH
 LDA #$60
 STA (BASE),Y
KBDINTR2 LDA EXFLG
 BEQ KBDINTR3
 JSR EXECRD
KBDINTR3 LDA #3
 STA CSWSTATE
 JSR REGRST
 JSR RDCHAR
 STA ASAVE
 STX XSAVE
 JMP DOSXIT
RDCHAR JMP (KSW)

	



 ORG $9EBD

	


	
Video input state handler.

	
Transfers control to the

	
proper output handler.

	



VIDINTRC JSR SAVREG
 LDA CSWSTATE
 ASL 
 TAX 
 LDA CSWSTADR+1,X
 PHA 
 LDA CSWSTADR,X
 PHA 
 LDA ASAVE
 RTS ;Funny JMP (--)

	



 ORG $9ED1

	


	
Register save routine

	



SAVREG STA ASAVE
 STX XSAVE
 STY YSAVE
 TSX 
 INX 
 INX 
 STX SSAVE
 LDX #3
SAVREG1 LDA CSWL,X
 STA CSW,X
 DEX 
 BPL SAVREG1
 RTS 

	



 ORG $9EEB

	


	
CSW STATE 0: Start of line.

	
Check for control-D at

	
beginning of line.

	


	
If RUN command was delayed while

	
loading A/S, continue RUN cmd.

	



CSWST LDX RUNINTRC
 BEQ CSWST1
 JMP RUNDONE

	


	
Check to see if a file is

	
being read.

	



CSWST1 LDX CURSTAT
 BEQ CSWST2

	


	
If a file is being read, check

	
to see if "?" prompt was output

	



 CMP #"?" ;A/S PROMPT
 BEQ CSWST8

	


	


	
See if at beginning of line

	



 CMP PROMPT
 BEQ CSWST4A

	


	
If not control-D at beginning

	
of line, goto state 2,

	


	
otherwise go to state one and

	
collect possible DOS command.

	



CSWST2 LDX #2
 STX CSWSTATE
 CMP CTLD
 BNE CSWST4
 DEX 
 STX CSWSTATE
 DEX 
 STX CMDLNIDX

	


	
Collect DOS command from

	
input line and parse

	



CSWST3 LDX CMDLNIDX
C1LP STA IN,X
 INX 
 STX CMDLNIDX
 CMP #$8D
 BNE ECHOC
 JMP PARSE

	



 ORG $9F23

	


	


	
CSW STATE 2 handler, Non-DOS

	
command.

	


	
If current input character isn't

	
a return, exit DOS through ECHO,

	
otherwise reset command state

	
to zero.

	



CSWST4 CMP #$8D
 BNE ECHO
CSWST4A LDX #0
 STX CSWSTATE
 JMP ECHO

	



 ORG $9F2F

	


	
STATE 3 handler- INPUT statement

	
handler.

	


	


	
set the command state to zero

	
as a default (in case input

	
ends).

	



CSWST5 LDX #0
 STX CSWSTATE
 CMP #$8D
 BEQ CSWST5A

	


	
If not at end of input, check

	
the exec flag.

	
If set, echo character only if

	
MON I is set or exec is active

	
In either case the state will be

	
reset to three.

	


	



C3CHKEXC LDA EXFLG
 BEQ ECHO
 BNE ECHOI

	


	


	
Come here if EOLN encountered.

	
If BASIC is not running, or

	
EXECing a file goto state one

	
and check for a possible DOS

	
command. Otherwise exit DOS

	
echoing character as appropriate

	
after switching to state 1

	


	


	



CSWST5A PHA
 SEC 
 LDA EXFLG
 BNE CSWST5B
 JSR ISBASRUN
CSWST5B PLA
 BCC C3CHKEXC
 LDX XSAVE
 JMP C1LP

	



 ORG $9F52

	


	
STATE 4 handler.

	
Write data to a file.

	


	
check for EOLN, switch to

	
state 5 if <cr> encountered.

	



CSWST6 CMP #$8D
 BNE CSWST6A
 LDA #5
 STA CSWSTATE
CSWST6A JSR WRTBYTE
 JMP ECHOO

	



 ORG $9F61

	


	
STATE 5 handler, start of

	
write data line; check for CTL-D

	



CSWST7 CMP CTLD
 BEQ CSWST

	


	
treat any linefeeds as a

	
continuation of the previous

	
line.

	



 CMP #$8A
 BEQ CSWST6A

	


	
Otherwise revert to state 4

	



 LDX #4
 STX CSWSTATE
 BNE CSWST6

	



 ORG $9F71

	


	
STATE 6 handler, skip output of

	
prompt character.

	



CSWST8 LDA #0
 STA CSWSTATE
 BEQ ECHOI

	



 ORG $9F78

	


	


	
Finish RUN command interrupted

	
by RAM A/S load.

	



RUNDONE LDA #0
 STA RUNINTRC
 JSR INITPTR
 JMP DORUN2

	


	


	
End of DOS cmd scan.

	
Remove DOS command and pretend

	
the user only pressed return

	



SCNXIT LDA IN
 CMP CTLD
 BEQ ECHOC
 LDA #$8D
 STA IN
 LDX #0
 STX XSAVE

	



 ORG $9F95

	


	
Echo character conditionally to

	
the screen:

	


	
ECHOC - IF MON C

	
ECHOO - IF MON O

	
ECHOI - IF MON I

	


	
ECHO - UNCONDITIONALLY

	



ECHOC LDA #$40
 BNE ECHOI1
ECHOO LDA #$10
 BNE ECHOI1
ECHOI LDA #$20
ECHOI1 AND MONFLGS
 BEQ DOSXIT
ECHO JSR REGRST
 JSR COUT
 STA ASAVE
 STY YSAVE
 STX XSAVE

	



 ORG $9FB3

	


	
Restore registers and exit DOS

	



DOSXIT JSR INITPTR
 LDX SSAVE
 TXS 
REGRST LDA ASAVE
 LDY YSAVE
 LDX XSAVE
 SEC 
 RTS 

	



 ORG $9FC5

	


	
COUT and CRLF routines

	



COUT JMP (CSW)
CRLF LDA #$8D
 JMP COUT

	



 ORG $9FCD

	


	
Parse DOS command and check

	
syntax

	



PARSE LDY #$FF
 STY CMDINDX ;set to 0 (see ADDCHR)
 INY 
 STY PENDCMD

	


	
get successive characters from

	
input buffer and compare against

	
current command in table

	



ADDCHR INC CMDINDX
 LDX #0
 PHP ;assume "="
 LDA IN,X ;skip any control-D's
 CMP CTLD
 BNE ADDCHR1
 INX 
ADDCHR1 STX CMDLNIDX
ADDCHR2 JSR FLSHCMDL ;skip blanks
 AND #$7F
 EOR DOSCMDS,Y ;compare to char in table
 INY 

	


	
the following code is a tricky

	
way of determining if the entire

	
string is equal to one of the

	
DOS commands

	



 ASL 
 BEQ ADDCHR3
 PLA 
 PHP 
ADDCHR3 BCC ADDCHR2
 PLP 
 BEQ COMPIDX
 LDA DOSCMDS,Y
 BNE ADDCHR ;at last command?

	


	
If command was not found, see if

	
first character on the line was

	
control-D, if so SYNTAX ERROR!!!

	



GETFRST LDA IN
 CMP CTLD
 BEQ GETFRST1
 JMP ECHO
GETFRST1 LDA IN+1
 CMP #$8D
 BNE GETFRST2
 JSR RSET0
 JMP ECHOC
GETFRST2 JMP CSYNERR

	



 ORG $A01B

	


	
Valid DOS command, get its

	
address and execute it.

	



COMPIDX ASL CMDINDX
 LDY CMDINDX
 JSR ISBASRUN
 BCC COMPIDX1

	


	
Certain commands (such as OPEN,

	
etc.) can only be executed if

	
BASIC is running. If such a

	
command is executed and BASIC

	
is not running, fall through

	
to here.

	



 LDA #2
 AND KWRDPRMS,Y
 BEQ COMPIDX1

	


	
NOT A DIRECT COMMAND

	



 LDA #$F
 JMP DOERROR

	


	



COMPIDX1 CPY #6
 BNE COMPIDX2
 STY PROMPT

	


	


	
See if a filename is required

	



COMPIDX2 LDA #$20
 AND KWRDPRMS,Y
 BEQ FNDNNAM

	


	
If a filename is needed, blank

	
out the filename arrays and

	
collect a filename (if found)

	



 JSR BLKNAME
 PHP 

	


	
skip any leading blanks

	



CMDINP JSR FLSHCMDL
 BEQ CLRNAME3
 ASL 
 BCC CMDINP1
 BMI CMDINP1
 JMP GETFRST
CMPINP1 ROR
 JMP CLRNAME1
CLRNAME JSR GNXTCHR
 BEQ CLRNAME3
CLRNAME1 STA FNAME,Y
 INY 
 CPY #$3C
 BCC CLRNAME
CLRNAME2 JSR GNXTCHR
 BNE CLRNAME2
CLRNAME3 PLP
 BNE CLRNAME4
 LDY CMDINDX
 LDA #$10
 AND KWRDPRMS,Y
 BEQ CLRNAME5
 LDY #$1E
 PHP 
 BNE CMDINP
CLRNAME4 LDA SFNAME
 CMP #$A0
 BEQ CHKFRST
CLRNAME5 LDA FNAME
 CMP #$A0
 BNE SETDFLTS
 LDY CMDINDX
 LDA #$C0
 AND KWRDPRMS,Y
 BEQ CHKFRST
 BPL SETDFLTS
CHKFRST JMP GETFRST

	



 ORG $A095

	


	
subroutine to blank out the

	
filenames.

	



BLKNAME LDY #$3C
 LDA #$A0
BLKNAME1 STA MONVAL,Y
 DEY 
 BNE BLKNAME1
 RTS 

	



 ORG $A0A0

	


	
Branch here if no filename

	
is required.

	



FNDNNAM STA FNAME

	


	
check parameter table to see

	
if a positional parameter is

	
required.

	



 LDA #$C
 AND KWRDPRMS,Y
 BEQ SETDFLTS

	


	
If so, read in the number

	



 JSR GETNUM

	


	
was number ommitted?

	



 BCS FNDNNAM3
 TAY 
 BNE FNDNNAM2

	


	
check the range of the number

	



 CPX #$11
 BCS FNDNNAM2
 LDY CMDINDX
 LDA #8
 AND KWRDPRMS,Y
 BEQ FNDNNAM1
 CPX #8
 BCS CHKFRST

	


	
if # within range, set defaults

	



 BCC SETDFLTS
FNDNNAM1 TXA
 BNE SETDFLTS
FNDNNAM2 LDA #2
 JMP DOERROR
FNDNNAM3 JMP CSYNERR

	



 ORG $A0D1

	


	
Set up defaults for the

	
positional values

	



SETDFLTS LDA #0
 STA KYWRDFND
 STA MONVAL
 STA VOLVAL
 STA LENVAL
 STA LENVAL+1
 JSR AJUSTBYT
 LDA CMDLNIDX

	


	
Come here if positionals are

	
required.

	


	


	
First, skip any leading blanks

	



GETNXT JSR FLSHCMDL
 BNE GETNXT1
 CMP #$8D
 BNE GETNXT

	


	
If at EOLN, make sure we

	
have all the arguements

	
we need.

	



 LDX CMDINDX
 LDA KYWRDFND
 ORA KWRDPRMS+1,X
 EOR KWRDPRMS+1,X
 BNE CHKFRST
 LDX TEMP1
 BEQ PROCMD
 STA TEMP1
 STX CMDLNIDX
 BNE GETNXT
GETNXT1 LDX #$A
GETNXT2 CMP PPARMS-1,X
 BEQ ISLE1
 DEX
 BNE GETNXT2
ISLE BEQ FNDNNAM3

	


	
As each positional arguement

	
is encountered, make it as

	
present in KYWRDFND

	



ISLE1 LDA PARMBITS-1,X
 BMI UPDATMON
 ORA KYWRDFND
 STA KYWRDFND
 DEX 
 STX KYWRDIDX

	


	
get numeric value associated

	
with the keyword.

	



 JSR GETNUM
 BCS FNDNNAM3

	


	
check the range of the value

	
following the keyword.

	



 LDA KYWRDIDX
 ASL 
 ASL 
 TAY 
 LDA OPRND+1
 BNE ISLE2
 LDA OPRND
 CMP KWRANGE,Y
 BCC FNDNNAM2
 LDA OPRND+1
ISLE2 CMP KWRANGE+3,Y
 BCC ISLE4
ISLE3 BNE FNDNNAM2
 LDA OPRND
 CMP KWRANGE+2,Y
 BCC ISLE4
 BNE ISLE3
ISLE4 LDA TEMP1
 BNE GETNXT

	


	
save value parsed in the keyword

	
parameters table.

	



 TYA 
 LSR 
 TAY 
 LDA OPRND+1
 STA VOLVAL+1,Y
 LDA OPRND
 STA VOLVAL,Y
GNISLE JMP GETNXT

	



 ORG $A164

	


	
If O,I, or C was encountered in

	
MON or NOMON, set appropriate 

	
bits.

	



UPDATMON PHA 
 LDA #$80
 ORA KYWRDFND
 STA KYWRDFND
 PLA 
 AND #$7F
 ORA MONVAL
 STA MONVAL
 BNE GNISLE
 BEQ ISLE

	



 ORG $A17A

	


	


	
Process valid DOS command

	



PROCMD JSR DOCMD
 JMP SCNXIT
DOCMD JSR RSET0
 JSR CLRFMP
 LDA CMDINDX
 TAX 
 LDA CMDTBL+1,X
 PHA 
 LDA CMDTBL,X
 PHA 
 RTS 

	



 ORG $A193

	


	
Get next character from command

	
line and check for a <cr> or

	
a comma.

	



GNXTCHR LDX CMDLNIDX
 LDA IN,X
 CMP #$8D
 BEQ GNXTCHR1
 INX 
 STX CMDLNIDX
 CMP #","
GNXTCHR1 RTS

	



 ORG $A1A4

	


	
FLSHCMDL- deletes leading blanks

	
from command line. Z-flag is

	
returned set if "," or <cr> is

	
first non-blank encountered.

	


	



FLSHCMDL JSR GNXTCHR
 BEQ GNXTCHR1
 CMP #$A0
 BEQ FLSHCMDL
 RTS 

	



 ORG $A1AE

	


	
CLRFMP- clears file manager's

	
parameter area.

	



CLRFMP LDA #0
 LDY #$16
CLRFMP1 STA FMOP-1,Y
 DEY
 BNE CLRFMP1
 RTS 

	



 ORG $A1B9

	


	
GETNUM- converts numeric (in

	
ASCII) arguement to binary.

	


	
DECIMAL and HEX are supported.

	



GETNUM LDA #0
 STA OPRND
 STA OPRND+1
 JSR FLSHCMDL
 PHP 
 CMP #"$"
 BEQ HEXCONV
 PLP 
 JMP GETNUM2

	


	
Decimal input routine here

	



GETNUM1 JSR FLSHCMDL
GETNUM2 BNE GETNUM3
 LDX OPRND
 LDA OPRND+1
 CLC 
 RTS 

	


	
get current character, multiply

	
OPRND by 10, and add in numeric

	
value for current digit

	



GETNUM3 SEC
 SBC #"0"
 BMI BADNUM
 CMP #$A
 BCS BADNUM

	


	
multiply OPRND by 10

	
(OPRND*2 + OPRND*8)

	


	
and add in digit value

	


	



 JSR MUL2
 ADC OPRND
 TAX 
 LDA #0
 ADC OPRND+1
 TAY 
 JSR MUL2
 JSR MUL2
 TXA 
 ADC OPRND
 STA OPRND
 TYA 
 ADC OPRND+1
 STA OPRND+1
 BCC GETNUM1
BADNUM SEC 
 RTS 

	


	
multiply OPRND by 2.

	



MUL2 ASL OPRND
 ROL OPRND+1
 RTS 

	



 ORG $A203

	


	
HEX number here.

	



HEXCONV PLP 
HEXLOOP JSR FLSHCMDL
 BEQ GETNUM2
 SEC 
 SBC #$B0
 BMI BADNUM
 CMP #$A
 BCC HEXLOOP1
 SBC #7
 BMI BADNUM
 CMP #$10
 BCS BADNUM
HEXLOOP1 LDX #4
HEXLOOP2 JSR MUL2
 DEX
 BNE HEXLOOP2
 ORA OPRND
 STA OPRND
 JMP HEXLOOP

	



 ORG $A229

	


	
Do PR#n command

	



DOPRNUM LDA OPRND
 JMP OUTPRT

	



 ORG $A22E

	


	
Do IN# command

	



DOINNUM LDA OPRND
 JMP INPRT

	



 ORG $A233

	


	
Do MON and NOMON commands

	



DOMON LDA MONFLGS
 ORA MONVAL
 STA MONFLGS
 RTS 

	



DONOMON BIT MONVAL
 BVC DONOMON1
 JSR CRLF
DONOMON1 LDA #$70
 EOR MONVAL
 AND MONFLGS
 STA MONFLGS
 RTS 

	



 ORG $A251

	


	
Handle MAXFILES commmand

	



DOMXFLS LDA #0
 STA EXFLG
 LDA OPRND
 PHA 
 JSR CLOSALL
 PLA 
 STA MAXFILES
 JMP INITBUFS

	



 ORG $A263

	


	
Handle DOS DELETE command

	



DODELETE LDA #5
 JSR CMDHNDL1 ;perform the delete.

	


	
Free up the buffer used by

	
the delete command.

	



 JSR LOCBUF
 LDY #0
 TYA 
 STA (FILEBUF),Y
 RTS 

	



 ORG $A271

	


	
Handle LOCK and UNLOCK

	



DOLOCK LDA #7
 BNE DOUNLCK1
DOUNLCK LDA #8
DOUNLCK1 JSR CMDHNDL1
 JMP DOCLOSE

	



 ORG $A27D

	


	
Handle DOS verify command

	



DOVERIFY LDA #$C
 BNE DOUNLCK1

	



 ORG $A281

	


	
Handle DOS RENAME command

	



DORENAME LDA SFNADR
 STA NEWNAME
 LDA SFNADR+1
 STA NEWNAME+1
 LDA #9
 STA TEMP1
 JSR CLOSOPN
 JMP DOCLOSE

	



 ORG $A298

	


	
APPEND command is handled here.

	
Just do an open and then read

	
the file until a $00 is

	
encountered.

	



DOAPND JSR DOOPEN
DOAPND1 JSR RDTEXT
 BNE DOAPND1
 JMP APTCH2

	



 ORG $A2A3

	


	
OPEN a text file here

	



DOOPEN LDA #0
 JMP OPENTST

	



 ORG $A2A8

	


	
File manager setup used by the

	
various DOS commands

	



CMDHNDLR LDA #1
CMDHNDL1 STA TEMP1
 LDA LENVAL
 BNE CMDHNDL2
 LDA LENVAL+1
 BNE CMDHNDL2
 LDA #1
 STA LENVAL
CMDHNDL2 LDA LENVAL
 STA RECNUM
 LDA LENVAL+1
 STA RECNUM+1

	


	
Close a file if already open.

	



CLOSOPN JSR DOCLOSE
 LDA OPRND+1
 BNE CLOSOPN1
 JMP NOBUF
CLOSOPN1 STA FILEBUF+1
 LDA OPRND
 STA FILEBUF
 JSR COPFNAM
 JSR COPPTRS
 JSR COPYPARM
 LDA TEMP1
 STA FMOP
 JMP FMDRVR

	



 ORG $A2EA

	


	
DOS CLOSE command

	



DOCLOSE LDA FNAME
 CMP #$A0
 BEQ CLOSALL
 JSR LOCBUF
 BCS RTS0
 JSR CLOSFRE
 JMP DOCLOSE

	



 ORG $A2FC

	


	
FREE any buffers used by file

	
being closed.

	



CLOSFRE JSR ISEXBUF
 BNE CLOSFRE1
 LDA #0
 STA EXFLG
CLOSFRE1 LDY #0
 TYA 
 STA (FILEBUF),Y
 JSR COPPTRS
 LDA #2
 STA FMOP
 JMP FMDRVR

	



 ORG $A316

	


	
Close all open files

	



CLOSALL JSR FRSTBUF
 BNE CLOSALL2
CLOSALL1 JSR PTNXTBF
 BEQ RTS0
CLOSALL2 JSR ISEXBUF
 BEQ CLOSALL1
 JSR GFBFNAM
 BEQ CLOSALL1
 JSR CLOSFRE
 JMP CLOSALL
RTS0 RTS 

	



 ORG $A331

	


	
DOS BSAVE COMMAND

	



DOBSAVE LDA #9 ;check parameters
 AND KYWRDFND
 CMP #9
 BEQ DOBSAVE1
 JMP GETFRST

	


	
Open file and make sure it's

	
Binary.

	



DOBSAVE1 LDA #4
 JSR OPENTST

	


	
Init address parameters

	



 LDA ADRVAL+1
 LDY ADRVAL
 JSR WRT2
 LDA LENVAL+1
 LDY LENVAL
 JSR WRT2
 LDA ADRVAL+1
 LDY ADRVAL
 JMP RWRANGE

	



 ORG $A35D

	


	
DOS BLOAD COMMAND

	



DOBLOAD JSR CMDHNDLR

	


	
Make sure it is a binary file

	



 LDA #$7F
 AND FILETYPE
 CMP #4
 BEQ DOBLOAD1
 JMP FMISMTCH
DOBLOAD1 LDA #4
 JSR OPENTST

	


	
Read in length and address

	
values.

	



 JSR READDBYT
 TAX 
 LDA KYWRDFND
 AND #1
 BNE DOBLOAD2
 STX ADRVAL
 STY ADRVAL+1
DOBLOAD2 JSR READDBYT
 LDX ADRVAL
 LDY ADRVAL+1
 JMP RWSETUP

	



 ORG $A38E

	


	
Handle BRUN command

	



DOBRUN JSR DOBLOAD
 JSR INITPTR
 JMP (ADRVAL)

	



 ORG $A397

	


	
Handle DOS SAVE command 

	



DOSAVE LDA WHCBASIC
 BEQ ISINT

	


	
Applesoft BASIC at this point

	


	


	
Is source protected?

	



 LDA PROTECT
 BPL DOSAVE1
 JMP PTOOBIG
DOSAVE1 LDA #2
 JSR OPENTST
 SEC 
 LDA ASPEND
 SBC ASPGMST
 TAY 
 LDA ASPEND+1
 SBC ASPGMST+1
 JSR WRT2
 LDA ASPGMST+1
 LDY ASPGMST
 JMP RWRANGE

	


	
Saving integer BASIC

	



ISINT LDA #1
 JSR OPENTST
 SEC 
 LDA INTHIMEM
 SBC INTSTRT
 TAY 
 LDA INTHIMEM+1
 SBC INTSTRT+1
 JSR WRT2
 LDA INTSTRT+1
 LDY INTSTRT
 JMP RWRANGE

	



 ORG $A3BC

	


	
Open a file and check its type

	



OPENTST STA FILETYPE
 PHA 
 JSR CMDHNDLR
 PLA 
 JMP CHKTYPE

	


	
Write two bytes out to a file

	



WRT2 STY RANGELEN
 STY DATARANG
 STA RANGELEN+1
 LDA #4
 STA FMOP
 LDA #1
 STA FMSUBOP
 JSR FMDRVR
 LDA RANGELEN+1
 STA DATARANG
 JMP FMDRVR

	


	


	
Read or Write a range of bytes

	



RWRANGE STY DATARANG
 STA DATARANG+1
 LDA #2
 JMP VFYPTCH
RWRANGE1 JSR FMDRVR
 JMP DOCLOSE
FTMIS JMP FMISMTCH

	



 ORG $A413

	


	
Do BASIC LOAD

	



DOLOAD JSR CLOSALL
 JSR CMDHNDLR
 LDA #$23 ;is type INT, RAM A/S or ROM A/S?
 AND FILETYPE
 BEQ FTMIS
 STA FILETYPE
 LDA WHCBASIC
 BEQ DOLOAD2

	


	
select Applesoft

	



 LDA #2
 JSR SLBASIC

	


	


	
Read in length of A/S program

	



 JSR READDBYT

	


	


	
compute A/S pointer values

	



 CLC 
 ADC ASPGMST
 TAX 
 TYA 
 ADC ASPGMST+1
 CMP ASHIMEM+1
 BCS PTOOLRG
 STA ASPEND+1
 STA ASVARS+1
 STX ASPEND
 STX ASVARS
 LDX ASPGMST
 LDY ASPGMST+1
 JSR RWSETUP
 JSR INITPTR
 JMP (ASFTREL)

	


	
select integer BASIC and load

	
integer program

	



DOLOAD2 LDA #1
 JSR SLBASIC
 JSR READDBYT
 SEC 
 LDA INTHIMEM
 SBC LOADLEN
 TAX 
 LDA INTHIMEM+1
 SBC LOADLEN+1
 BCC PTOOLRG
 TAY 
 CPY INTLOMEM+1
 BCC PTOOLRG
 BEQ PTOOLRG
 STY INTSTRT+1
 STX INTSTRT

	


	


	
Read or Write the range of bytes

	
required.

	



RWSETUP STX DATARANG
 STY DATARANG+1
 JMP RWRANGE1

	


	


	
Read two bytes from the

	
specified file.

	



READDBYT LDA LDRNGLEN
 STA DATARANG
 LDA LDRNGLEN+1
 STA DATARANG+1
 LDA #0
 STA RANGELEN+1
 LDA #2
 STA RANGELEN
 LDA #3
 STA FMOP
 LDA #2
 STA FMSUBOP
 JSR FMDRVR
 LDA LOADLEN+1
 STA RANGELEN+1
 TAY 
 LDA LOADLEN
 STA RANGELEN
 RTS 

	



 ORG $A4AB

	


	
Print "PROGRAM TOO LARGE"

	



PTOOLRG JSR DOCLOSE
 JMP PTOOBIG

	


	
Select a BASIC.

	
If BASIC matches filetype, quit.

	
If not, select alternate BASIC.

	


	


	
See if the proper BASIC is

	
already selected.

	



SLBASIC CMP FILETYPE
 BEQ RTS1

	


	
If not, save CMDINDX and

	
change BASICs

	



 LDX CMDINDX
 STX PENDCMD
 LSR 
 BEQ SLBASIC1
 JMP DOINT

	


	
If changing to Applesoft,

	
save filename in case RAM

	
A/S is loading (remember,

	
RAM A/S is an integer program

	
called "APPLESOFT", during

	
its load it will wipe out

	
FNAME).

	



SLBASIC1 LDX #$1D
SLBASIC2 LDA FNAME,X
 STA SFNAME,X
 DEX
 BPL SLBASIC2
 JMP DOFP
RTS1 RTS 


	



 ORG $A4D1

	


	
Handle DOS RUN command

	



DORUN LDA WHCBASIC
 BEQ DORUN1
 STA RUNINTRC
DORUN1 JSR DOLOAD
DORUN2 JSR CRLF
 JSR INITPTR
 JMP (RUNADR)

	



 ORG $A4E5

	


	
If integer BASIC, handle RUN

	
command here.

	



DOSIRUN LDA INTLOMEM
 STA INTVEND
 LDA INTLOMEM+1
 STA INTVEND+1
 JMP (CHNADR)

	



 ORG $A4F0

	


	
Handle CHAIN command

	



DOCHAIN JSR DOLD2
 JSR CRLF
 JSR INITPTR
 JMP (CHNADR)

	


	


	


	


	
Applesoft CHAIN is simply a RUN

	



DOSARUN JSR LD665
 STA PROMPT
 STA ASONERR
 JMP NEWSTT
DOSA2RUN JSR LE65
 STA PROMPT
 STA ASONERR
 JMP LFD4

	



 ORG $A510

	


	
Handle the DOS write command

	



DOWRITE JSR RWCOMON
 LDA #5
 STA CSWSTATE
 JMP SCNXIT

	



 ORG $A51B

	


	
DOS READ command

	



DOREAD JSR RWCOMON
 LDA #1
 STA CURSTAT
 JMP SCNXIT

	


	
Code common to both read and

	
write.

	


	


	
First, see if a buffer is

	
already allocated to the

	
file.

	



RWCOMON JSR LOCBUF
 BCC RWCOMON1

	


	
If not, open a file

	



 JSR DOOPEN
 JMP RWCOMON2

	


	
If so, copy file buffer workspc

	
to the file manager workspace

	



RWCOMON1 JSR COPPTRS

	


	
check to see if "R" or "B"

	
parameters were specified.

	



RWCOMON2 LDA KYWRDFND
 AND #6
 BEQ RTS2

	


	
If so, copy numeric operands

	
to the parameter list.

	



 LDX #3
RWCOMON3 LDA RECVAL,X
 STA RECNUM,X
 DEX 
 BPL RWCOMON3

	


	
Because R or B parameter was

	
specified, a POSITION command

	
must be issued before the

	
read or write command.

	



 LDA #$A
 STA FMOP
 JSR FMDRVR
RTS2 RTS 

	



 ORG $A54F

	


	
INIT command

	


	


	
If "V" parameter not specified,

	
or it was specified as 0,

	
default to 254

	



DOINIT LDA #$40
 AND KYWRDFND
 BEQ DOINIT1
 LDA VOLVAL
 BNE DOINIT2
DOINIT1 LDA #254
 STA VOLVAL

	


	
Get page # of DOS ($9D for

	
48K) and store in subcode

	
field.

	



DOINIT2 LDA LOADADR+1
 STA FMSUBOP

	


	
Do the INIT.

	



 LDA #$B
 JSR CMDHNDL2
 JMP DOSAVE

	



 ORG $A56E

	


	
Catalog function handler

	



DOCAT LDA #6
 JSR CMDHNDL2

	


	
Set default volume to the

	
volume number of the disk

	
just cataloged.



-end of file-