6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-01-07 00:29:34 +00:00
Code Issues Projects Releases Wiki Activity

Make TAB key (or CTRL-I) tab

Browse Source
This commit is contained in:
David Schmenk 2018-01-05 07:28:24 -08:00
parent e335b22445
commit bae48854f4
1 changed files with 13 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
src/toolsrc/ed.pla
View File

@ -96,23 +96,6 @@ predef cmdmode#0
asm equates
!SOURCE "vmsrc/plvmzp.inc"
end
asm clrhibit(strptr)#0
LDA ESTKL,X
STA SRCL
LDA ESTKH,X
STA SRCH
INX
LDY #$00
LDA (SRC),Y
BEQ +
TAY
CLHILP LDA (SRC),Y
AND #$7F
STA (SRC),Y
DEY
BNE CLHILP
+ RTS
end
asm sethibit(strptr)#0
LDA ESTKL,X
STA SRCL
@ -640,6 +623,9 @@ def keyin2
fin
return key
end
def tabkeyin
return cursx < MAXLNLEN and cursx & $01 ?? keyspace :: 0
end
//
// Printer routines
//
@ -889,6 +875,11 @@ def editmode#0
is keyctrlt
joinline; break
is keyctrli
keyin = @tabkeyin
editline(keyspace)
keyin = !(MACHID & $80) ?? @keyin2 :: @keyin2e
break
is keyctrlb
if flags & insmode
flags = flags & ~insmode
curschr = ' '
@ -929,7 +920,7 @@ def prfiles(optpath)
if ^optpath
strcpy(@path, optpath)
else
getpfx(@path)
fileio:getpfx(@path)
puts(@path)
putln
fin
@ -943,9 +934,9 @@ def prfiles(optpath)
if fileio:read(refnum, databuff, 512) == 512
entry = databuff + 4
if firstblk
entrylen = databuff.$23
entriesblk = databuff.$24
filecnt = databuff:$25
entrylen = databuff->$23
entriesblk = databuff->$24
filecnt = databuff=>$25
entry = entry + entrylen
fin
for i = firstblk to entriesblk
@ -1042,7 +1033,7 @@ def cmdmode#0
is 'C'
prfiles(cmdptr); break
is 'P'
setpfx(cmdptr); break
fileio:setpfx(cmdptr); break
is 'H'
if ^cmdptr
slot = cmdptr.1 - '0'