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

Remove unnecessary parameter validation

This commit is contained in:
Joshua Bell 2021-04-14 19:13:16 -07:00
parent 86bafa4b76
commit e037edebcf
2 changed files with 10 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
chtime.cmd.s
View File

@ -34,38 +34,20 @@
;; Set accepted parameter flags ;; Set accepted parameter flags
lda #PBitsFlags::FN1 ; Filename ;; Filename
lda #PBitsFlags::FN1
sta PBITS sta PBITS
;; Address, Byte, Slot & Drive handling ;; Address (A=Date word), Byte (B=Time word), Slot & Drive handling
lda #PBitsFlags::AD | PBitsFlags::B | PBitsFlags::SD lda #PBitsFlags::AD | PBitsFlags::B | PBitsFlags::SD
sta PBITS+1 sta PBITS+1
clc ; Success (so far) clc ; Success (so far)
rts ; Return to BASIC.SYSTEM rts1: rts ; Return to BASIC.SYSTEM
;;; ============================================================
not_ours:
sec ; Signal failure...
next_command := *+1
jmp $ffff ; Execute next command in chain
;;; ============================================================ ;;; ============================================================
execute: execute:
;; Verify required arguments
lda FBITS
and #PBitsFlags::FN1 ; Filename?
bne :+
lda #$10 ; SYNTAX ERROR
sec
rts1: rts
:
;;; --------------------------------------------------
;; Get the existing file info ;; Get the existing file info
lda #$A lda #$A
sta SSGINFO sta SSGINFO

22
chtype.cmd.s
View File

@ -33,32 +33,22 @@
lda #0 lda #0
sta XCNUM sta XCNUM
;; Set accepted parameter flags (Name, Type, Address) ;; Set accepted parameter flags
lda #PBitsFlags::T | PBitsFlags::FN1 ; Filename and Type ;; Filename and Type
lda #PBitsFlags::T | PBitsFlags::FN1
sta PBITS sta PBITS
lda #PBitsFlags::AD | PBitsFlags::SD ; Address, Slot & Drive handling ;; Address (used as AuxType), Slot & Drive handling
lda #PBitsFlags::AD | PBitsFlags::SD
sta PBITS+1 sta PBITS+1
clc ; Success (so far) clc ; Success (so far)
rts ; Return to BASIC.SYSTEM rts1: rts ; Return to BASIC.SYSTEM
;;; ============================================================ ;;; ============================================================
execute: execute:
;; Verify required arguments
lda FBITS
and #PBitsFlags::FN1 ; Filename?
bne :+
lda #$10 ; SYNTAX ERROR
sec
rts1: rts
:
;;; --------------------------------------------------
;; Get the existing file info ;; Get the existing file info
lda #$A lda #$A
sta SSGINFO sta SSGINFO