Apple-2-SW/prodos-path
1
0
Fork 0
mirror of https://github.com/a2stuff/prodos-path.git synced 2025-01-06 18:30:00 +00:00
Code Issues Projects Releases Wiki Activity

Remove unnecessary parameter validation

Browse Source
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
lda #PBitsFlags::FN1 ; Filename
;; Filename
lda #PBitsFlags::FN1
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
sta PBITS+1
clc ; Success (so far)
rts ; Return to BASIC.SYSTEM
;;; ============================================================
not_ours:
sec ; Signal failure...
next_command := *+1
jmp $ffff ; Execute next command in chain
rts1: rts ; Return to BASIC.SYSTEM
;;; ============================================================
execute:
;; Verify required arguments
lda FBITS
and #PBitsFlags::FN1 ; Filename?
bne :+
lda #$10 ; SYNTAX ERROR
sec
rts1: rts
:
;;; --------------------------------------------------
;; Get the existing file info
lda #$A
sta SSGINFO

22
chtype.cmd.s
View File

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