Apple-2-SW/prodos-path
1
0
Fork 0
mirror of https://github.com/a2stuff/prodos-path.git synced 2025-04-28 17:38:37 +00:00
Code Issues Projects Releases Wiki Activity

Shave 2 bytes from PATH

Browse Source
This commit is contained in:
Joshua Bell 2024-01-01 21:43:55 -08:00
parent 3360d44dd7
commit af1c8f1865
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
path.s
View File

@ -171,16 +171,15 @@ nxtchr: jsr ToUpperASCII
lda #>execute lda #>execute
sta XTRNADDR+1 sta XTRNADDR+1
;; Mark command as external (zero).
lda #0
sta XCNUM
;; Set accepted parameter flags (optional name) ;; Set accepted parameter flags (optional name)
lda #PBitsFlags::FNOPT | PBitsFlags::FN1 lda #PBitsFlags::FNOPT | PBitsFlags::FN1
sta PBITS sta PBITS
lda #0 lda #0
sta PBITS+1 sta PBITS+1
;; Mark command as external (zero).
sta XCNUM ; A=0 from above
clc ; Success (so far) clc ; Success (so far)
rts ; Return to BASIC.SYSTEM rts ; Return to BASIC.SYSTEM