Apple-2-SW
/
chtype
mirror of https://github.com/a2stuff/chtype.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

recased

This commit is contained in:
Joshua Bell 2018-12-31 12:27:07 -08:00
parent f42539a517
commit 26857a74d1
1 changed files with 63 additions and 53 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

116
chtype.s
View File

@ -2,72 +2,82 @@
;;;
.org $2000
INBUF := $200 ;GETLN input buffer.
WAIT := $FCA8 ;Monitor wait routine.
BELL := $FF3A ;Monitor bell routine
EXTRNCMD := $BE06 ;External cmd JMP vector.
XTRNADDR := $BE50 ;Ext cmd implementation addr.
XLEN := $BE52 ;Length of command string-1.
XCNUM := $BE53 ;CI cmd no. (ext cmd = 0).
PBITS := $BE54 ;Command parameter bits.
VSLOT := $BE61 ;Verified slot parameter.
INBUF := $200 ;GETLN input buffer.
WAIT := $FCA8 ;Monitor wait routine.
BELL := $FF3A ;Monitor bell routine
;;; BASIC.SYSTEM global page
EXTRNCMD := $BE06 ;External cmd JMP vector.
XTRNADDR := $BE50 ;Ext cmd implementation addr.
XLEN := $BE52 ;Length of command string-1.
XCNUM := $BE53 ;CI cmd no. (ext cmd = 0).
PBITS := $BE54 ;Command parameter bits.
VSLOT := $BE61 ;Verified slot parameter.
;;; TODO: Relocate into ProDOS-allocated buffer
;;;
;;; REMEMBER TO SAVE THE PREVIOUS COMMAND ADDRESS.
;;; Remember to save the previous command address.
;;;
LDA EXTRNCMD+1
STA NXTCMD
LDA EXTRNCMD+2
STA NXTCMD+1
lda EXTRNCMD+1
sta nxtcmd
lda EXTRNCMD+2
sta nxtcmd+1
;;;
LDA #>BEEPSLOT ;Install the address of our
STA EXTRNCMD+1 ; command handler in the
LDA #<BEEPSLOT ; external command JMP
STA EXTRNCMD+2 ; vector.
lda #>beepslot ;Install the address of our
sta EXTRNCMD+1 ; command handler in the
lda #<beepslot ; external command JMP
sta EXTRNCMD+2 ; vector.
RTS
;;;
BEEPSLOT: LDX #0 ;Check for our command.
NXTCHR: LDA INBUF,X ;Get first character.
CMP CMD,X ;Does it match?
BNE NOTOURS ;NO, SO CONTINUE WITH NEXT CMD.
INX ;Next character
CPX #CMDLEN ;All characters yet?
BNE NXTCHR ;No, read next one.
beepslot:
ldx #0 ;Check for our command.
nxtchr: lda INBUF,X ;Get first character.
cmp cmd,X ;Does it match?
bne notours ;NO, SO CONTINUE WITH NEXT CMD.
inx ;Next character
cpx #cmdlen ;All characters yet?
bne nxtchr ;No, read next one.
;;;
LDA #CMDLEN-1 ;Our cmd! Put cmd length-1
STA XLEN ; in CI global XLEN.
LDA #>EXECUTE ;Point XTRNADDR to our
STA XTRNADDR ; command execution
LDA #<EXECUTE ; routine
STA XTRNADDR+1
LDA #0 ;Mark the cmd number as
STA XCNUM ; zero (external).
lda #cmdlen-1 ;Our cmd! Put cmd length-1
sta XLEN ; in CI global XLEN.
lda #>execute ;Point XTRNADDR to our
sta XTRNADDR ; command execution
lda #<execute ; routine
sta XTRNADDR+1
lda #0 ;Mark the cmd number as
sta XCNUM ; zero (external).
;;;
LDA #%00010000 ;Set at least one bit
STA PBITS ; in PBITS low byte!
lda #%00010000 ;Set at least one bit
sta PBITS ; in PBITS low byte!
;;;
LDA #%00000100 ;And mark PBITS high byte
STA PBITS+1 ; that slot & drive are legal.
CLC ;Everything is OK.
RTS ;Return to BASIC.SYSTEM
lda #%00000100 ;And mark PBITS high byte
sta PBITS+1 ; that slot & drive are legal.
clc ;Everything is OK.
rts ;Return to BASIC.SYSTEM
;;;
EXECUTE: LDA VSLOT ;Get slot parameter.
TAX ;Transfer to index reg.
NXTBEEP: JSR BELL ;Else, beep once.
LDA #$80 ;Set up the delay
JSR WAIT ; and wait.
DEX ;decrement index and
BNE NXTBEEP ; repeat until x = 0.
CLC ;All done successfully.
RTS ;Back to BASIC.SYSTEM.
execute:
lda VSLOT ;Get slot parameter.
tax ;Transfer to index reg.
nxtbeep:
jsr BELL ;Else, beep once.
lda #$80 ;Set up the delay
jsr WAIT ; and wait.
dex ;decrement index and
bne nxtbeep ; repeat until x = 0.
clc ;All done successfully.
rts ;Back to BASIC.SYSTEM.
;;;
;;; IT'S NOT OUR COMMAND SO MAKE SURE YOU LET BASIC
;;; CHECK WHETER OR NOT IT'S THE NEXT COMMAND.
;;;
NOTOURS: SEC ;SET CARRY AND LET
JMP (NXTCMD) ; NEXT EXT CMD GO FOR IT.
notours: sec ;SET CARRY AND LET
jmp (nxtcmd) ; NEXT EXT CMD GO FOR IT.
;;;
CMD: .byte "BEEPSLOT" ;Our command
CMDLEN = *-CMD ;Our command length
NXTCMD: .word 0 ; STORE THE NEXT COMMAND'S
cmd: .byte "BEEPSLOT" ;Our command
cmdlen = *-cmd ;Our command length
nxtcmd: .word 0 ; STORE THE NEXT COMMAND'S
; ADDRESS HERE.