mirror of
https://github.com/A2osX/A2osX.git
synced 2024-10-25 00:23:52 +00:00
132 lines
2.1 KiB
Plaintext
132 lines
2.1 KiB
Plaintext
|
PR#3
|
|||
|
PREFIX /A2OSX.BUILD
|
|||
|
NEW
|
|||
|
INC 1
|
|||
|
AUTO 6
|
|||
|
.LIST OFF
|
|||
|
*--------------------------------------
|
|||
|
*--------------------------------------
|
|||
|
CmdLine.CLR ldy #0
|
|||
|
|
|||
|
.1 lda (ZPCMDBuf),y
|
|||
|
beq .9
|
|||
|
|
|||
|
.2 lda #$7F
|
|||
|
|
|||
|
sta (ZPCMDBuf),y
|
|||
|
iny
|
|||
|
lda (ZPCMDBuf),y
|
|||
|
bne .2
|
|||
|
|
|||
|
jsr CmdLine.PRINT
|
|||
|
|
|||
|
jmp CmdLine.RESET
|
|||
|
|
|||
|
.9 rts
|
|||
|
*--------------------------------------
|
|||
|
CmdLine.BS >LDA.G CmdBufPtr
|
|||
|
beq .9
|
|||
|
|
|||
|
dec
|
|||
|
sta (pData),y
|
|||
|
|
|||
|
lda #8
|
|||
|
>SYSCALL PutChar.A
|
|||
|
.9 rts
|
|||
|
*--------------------------------------
|
|||
|
CmdLine.NAK >LDA.G CmdBufPtr
|
|||
|
>CMP.G CmdBuflen
|
|||
|
beq .9
|
|||
|
|
|||
|
inc
|
|||
|
>STA.G CmdBufPtr
|
|||
|
|
|||
|
lda #21
|
|||
|
>SYSCALL PutChar.A
|
|||
|
.9 rts
|
|||
|
*--------------------------------------
|
|||
|
CmdLine.DEL >LDA.G CmdBuflen
|
|||
|
beq .8
|
|||
|
sec
|
|||
|
>SBC.G CmdBufPtr
|
|||
|
tax Keep in x char count to \0
|
|||
|
bne .1
|
|||
|
|
|||
|
>DEC.G CmdBuflen
|
|||
|
>STA.G CmdBufPtr
|
|||
|
|
|||
|
tay
|
|||
|
lda #0
|
|||
|
sta (ZPCMDBuf),y
|
|||
|
|
|||
|
lda #$7f
|
|||
|
>SYSCALL PutChar.A
|
|||
|
rts
|
|||
|
|
|||
|
.8 clc
|
|||
|
rts
|
|||
|
|
|||
|
.1 >LDA.G CmdBufPtr
|
|||
|
tay
|
|||
|
|
|||
|
.2 iny
|
|||
|
lda (ZPCMDBuf),y
|
|||
|
dey
|
|||
|
sta (ZPCMDBuf),y
|
|||
|
iny
|
|||
|
dex
|
|||
|
bne .2
|
|||
|
|
|||
|
>DEC.G CmdBuflen
|
|||
|
*--------------------------------------
|
|||
|
CmdLine.PRINTPTR
|
|||
|
>LDA.G CmdBufPtr
|
|||
|
tay
|
|||
|
|
|||
|
.1 lda (ZPCMDBuf),y
|
|||
|
beq .2
|
|||
|
|
|||
|
phy
|
|||
|
>SYSCALL PutChar.A
|
|||
|
ply
|
|||
|
iny
|
|||
|
bra .1
|
|||
|
|
|||
|
.2 lda #' '
|
|||
|
>SYSCALL PutChar.A
|
|||
|
lda #8
|
|||
|
>SYSCALL PutChar.A
|
|||
|
|
|||
|
>LDA.G CmdBufPtr
|
|||
|
tay
|
|||
|
|
|||
|
.3 lda (ZPCMDBuf),y
|
|||
|
beq .8
|
|||
|
|
|||
|
phy
|
|||
|
lda #8
|
|||
|
>SYSCALL PutChar.A
|
|||
|
ply
|
|||
|
iny
|
|||
|
bra .3
|
|||
|
|
|||
|
.8 clc
|
|||
|
rts
|
|||
|
*--------------------------------------
|
|||
|
CmdLine.PRINT >LDYA ZPCMDBuf
|
|||
|
>SYSCALL PrintF.YA
|
|||
|
rts
|
|||
|
*--------------------------------------
|
|||
|
CmdLine.RESET lda #0
|
|||
|
sta (ZPCMDBuf)
|
|||
|
>STA.G bCmdBufexec
|
|||
|
>STA.G CmdBufPtr
|
|||
|
>STA.G CmdBuflen
|
|||
|
>STA.G bSecureRead Clear password mode
|
|||
|
rts
|
|||
|
*--------------------------------------
|
|||
|
MAN
|
|||
|
SAVE /A2OSX.SRC/SBIN/SHELL.S.CL
|
|||
|
LOAD /A2OSX.SRC/SBIN/SHELL.S
|
|||
|
ASM
|