A2osX/BIN/MORE.S.txt

329 lines
5.8 KiB
Plaintext
Raw Normal View History

2018-11-05 16:28:40 +00:00
NEW
2018-11-17 17:17:13 +00:00
PREFIX
2018-11-05 16:28:40 +00:00
AUTO 4,1
.LIST OFF
.OP 65C02
.OR $2000
.TF BIN/MORE
*--------------------------------------
.INB INC/MACROS.I
.INB INC/A2OSX.I
2019-03-12 14:41:55 +00:00
.INB INC/KERNEL.I
2018-11-05 16:28:40 +00:00
.INB INC/MLI.I
.INB INC/MLI.E.I
*--------------------------------------
2019-01-16 14:37:21 +00:00
PG.SIZE .EQ 23
2018-11-21 16:01:38 +00:00
*--------------------------------------
2018-12-20 20:59:48 +00:00
.DUMMY
.OR ZPBIN
ZS.START
ZPPTR1 .BS 2
ZPBufPtr .BS 2
2019-05-12 20:45:11 +00:00
ArgCount .BS 1
hFile .BS 1
LineCount .BS 1
LineNum .BS 2
bHelp .BS 1
bLineNum .BS 1
bPage .BS 1
bEscCodes .BS 1
ArgIndex .BS 1
hBuf .BS 1
2018-12-20 20:59:48 +00:00
ZS.END
.ED
2018-11-05 16:28:40 +00:00
*--------------------------------------
* File Header (16 Bytes)
*--------------------------------------
CS.START cld
jmp (.1,x)
.DA #$61 6502,Level 1 (65c02)
.DA #1 BIN Layout Version 1
2018-12-20 20:59:48 +00:00
.DA #0 S.PS.F.EVENT
2018-11-05 16:28:40 +00:00
.DA #0
2018-12-20 20:59:48 +00:00
.DA CS.END-CS.START Code Size (without Constants)
.DA DS.END-DS.START Data SegmentSize
2019-05-12 20:45:11 +00:00
.DA #64 Stack Size
2018-12-20 20:59:48 +00:00
.DA #ZS.END-ZS.START Zero Page Size
2018-11-05 16:28:40 +00:00
.DA 0
*--------------------------------------
* Relocation Table
*--------------------------------------
.1 .DA CS.INIT
.DA CS.RUN
.DA CS.DOEVENT
.DA CS.QUIT
L.MSG.USAGE .DA MSG.USAGE
2019-02-14 16:38:36 +00:00
L.MSG.Init .DA MSG.Init
2018-11-28 11:39:33 +00:00
L.MSG.NUMLINE .DA MSG.NUMLINE
L.MSG.CRLF .DA MSG.CRLF
2018-11-06 16:31:13 +00:00
L.MSG.Pause .DA MSG.Pause
2018-11-21 16:01:38 +00:00
L.MSG.PauseErase .DA MSG.PauseErase
2018-11-05 16:28:40 +00:00
.DA 0
*--------------------------------------
CS.INIT clc
rts
*--------------------------------------
CS.RUN
2019-05-12 20:45:11 +00:00
.1 inc ArgCount
lda ArgCount
2018-11-05 16:28:40 +00:00
>SYSCALL ArgV
bcs .7
>STYA ZPPtr1
lda (ZPPtr1)
cmp #'-'
bne .4
ldy #1
lda (ZPPtr1),y
ldx OptionList
.2 cmp OptionList,x
beq .3
dex
bne .2
.99 >PUSHBI 0
>LDYA L.MSG.USAGE
>SYSCALL printf
lda #E.SYN
sec
.9 rts
.3 ldy OptionVars-1,x
lda #$80
sta (pData),y
bra .1
2019-05-12 20:45:11 +00:00
.4 lda hFile
2018-11-05 16:28:40 +00:00
bne .99
2018-11-06 16:31:13 +00:00
>LDYA ZPPtr1
2018-11-05 16:28:40 +00:00
jsr CS.RUN.OPEN
bcs .9
bra .1 scan for any other args
2019-05-12 20:45:11 +00:00
.7 lda bHelp
2018-11-05 16:28:40 +00:00
beq .8
2019-05-12 20:45:11 +00:00
2019-03-12 14:41:55 +00:00
.71 jsr .99
2018-11-05 16:28:40 +00:00
lda #0
rts
2019-05-12 20:45:11 +00:00
.8 lda hFile
2019-03-12 14:41:55 +00:00
bne .80
ldy #S.PS.hStdIn
lda (pPS),y
tax
lda OF.Table.hFD-1,x
>SYSCALL GetMemPtr
>STYA ZPPtr1
lda (ZPPtr1)
cmp #S.FD.T.PIPE
bne .71
.80 >LDYAI 256
2018-11-05 16:28:40 +00:00
>SYSCALL GetMem
bcs .9
>STYA ZPBufPtr
2019-05-12 20:45:11 +00:00
stx hBuf
2018-11-05 16:28:40 +00:00
2019-02-14 16:38:36 +00:00
>PUSHBI 0
>LDYA L.MSG.Init
>SYSCALL printf
2019-02-25 07:39:19 +00:00
CS.RUN.LOOP jsr CS.RUN.GETLINE
2019-02-25 16:36:09 +00:00
bcs .9
2019-02-18 12:52:10 +00:00
2019-05-12 20:45:11 +00:00
.1 inc LineNum
bne .11
inc LineNum+1
2019-05-12 20:45:11 +00:00
.11 lda LineCount
2019-02-25 16:36:09 +00:00
bne .2
2019-05-12 20:45:11 +00:00
lda bPage
2019-02-25 16:36:09 +00:00
beq .2
2018-11-06 16:31:13 +00:00
lda #C.FF
>SYSCALL putchar
2019-02-25 16:36:09 +00:00
.2 jsr CS.RUN.PRINT
2019-05-12 20:45:11 +00:00
inc LineCount
lda LineCount
2018-11-21 16:01:38 +00:00
cmp #PG.SIZE
2019-02-25 16:36:09 +00:00
bne CS.RUN.LOOP
2019-05-12 20:45:11 +00:00
stz LineCount
2018-11-05 16:28:40 +00:00
2018-11-21 16:01:38 +00:00
jsr CS.RUN.PAUSE
2019-02-25 16:36:09 +00:00
bcc CS.RUN.LOOP
2018-11-05 16:28:40 +00:00
2019-02-25 16:36:09 +00:00
.9 cmp #MLI.E.EOF
bne .99
2018-11-05 16:28:40 +00:00
lda #0 Exit with no Error
2019-02-25 16:36:09 +00:00
.99 sec
rts
2018-11-05 16:28:40 +00:00
*--------------------------------------
2018-11-07 16:11:02 +00:00
CS.RUN.OPEN pha
2018-11-05 16:28:40 +00:00
>PUSHWI 0 Aux type
>PUSHBI S.FI.T.TXT
>PUSHBI O.RDONLY+O.TEXT
pla
>SYSCALL FOpen
2018-11-06 16:31:13 +00:00
bcs .9
2019-05-12 20:45:11 +00:00
sta hFile
2018-11-05 16:28:40 +00:00
.9 rts
*--------------------------------------
2018-11-21 16:01:38 +00:00
CS.RUN.PAUSE >PUSHBI 0
>PUSHW L.MSG.Pause
ldy #S.PS.hStdErr
lda (pPS),y
>SYSCALL fprintf
2019-02-25 14:47:31 +00:00
.10 jsr CS.RUN.GETC
bcs .99
2018-11-21 16:01:38 +00:00
cmp #'Q'
beq .9
2018-11-28 11:39:33 +00:00
cmp #'q'
beq .9
2018-11-21 16:01:38 +00:00
.3 cmp #C.SPACE
bne .4
jmp CS.RUN.ERASE
.4 cmp #C.CR
bne .10
jsr CS.RUN.ERASE
2019-02-18 12:52:10 +00:00
2019-02-25 14:47:31 +00:00
.40 jsr CS.RUN.GETLINE
2019-01-16 14:37:21 +00:00
bcc .5
2019-02-18 12:52:10 +00:00
2019-01-16 14:37:21 +00:00
cmp #MLI.E.EOF
2019-05-16 15:51:19 +00:00
beq .90
rts
2019-01-16 14:37:21 +00:00
2019-05-12 20:45:11 +00:00
.5 inc LineNum
bne .6
inc LineNum+1
.6 jsr CS.RUN.PRINT
2018-11-21 16:01:38 +00:00
bra CS.RUN.PAUSE
.9 jsr CS.RUN.ERASE
2019-02-25 14:47:31 +00:00
2019-01-16 14:37:21 +00:00
.90 lda #0
2018-11-21 16:01:38 +00:00
.99 sec
rts
*--------------------------------------
CS.RUN.ERASE >PUSHBI 0
>PUSHW L.MSG.PauseErase
ldy #S.PS.hStdErr
lda (pPS),y
>SYSCALL fprintf
rts
*--------------------------------------
2019-05-12 20:45:11 +00:00
CS.RUN.GETC lda hFILE
2018-11-21 16:01:38 +00:00
bne .1
ldy #S.PS.hStdErr
lda (pPS),y
>SYSCALL GetC
2019-02-19 14:51:33 +00:00
rts
2018-11-21 16:01:38 +00:00
.1 >SYSCALL GetChar
2019-02-20 16:07:43 +00:00
rts
2018-11-21 16:01:38 +00:00
*--------------------------------------
2018-12-20 20:59:48 +00:00
CS.RUN.GETLINE >PUSHWI 256
>PUSHW ZPBufPtr
2019-05-12 20:45:11 +00:00
lda hFile
2018-11-21 16:01:38 +00:00
bne .1
ldy #S.PS.hStdIn
lda (pPS),y
2019-02-26 21:54:31 +00:00
2019-02-18 12:52:10 +00:00
.1 >SYSCALL fgets
2019-05-17 05:51:01 +00:00
rts
2018-11-21 16:01:38 +00:00
*--------------------------------------
2019-05-12 20:45:11 +00:00
CS.RUN.PRINT lda bLineNum
bpl .1
2018-11-05 16:28:40 +00:00
2019-05-12 20:45:11 +00:00
>PUSHW LineNum
2018-11-21 16:01:38 +00:00
>PUSHBI 2
2018-11-28 11:39:33 +00:00
>LDYA L.MSG.NUMLINE
>SYSCALL printf
bcs .9
2019-05-12 20:45:11 +00:00
.1 lda bEscCodes
2019-01-16 14:37:21 +00:00
bmi .2
2019-02-25 14:47:31 +00:00
2019-01-16 14:37:21 +00:00
>LDYA ZPBufPtr
>SYSCALL puts
rts
.2 >PUSHBI 0
2018-11-28 11:39:33 +00:00
>LDYA ZPBufPtr
>SYSCALL printf
bcs .9
>PUSHBI 0
>LDYA L.MSG.CRLF
>SYSCALL printf
.9 rts
2018-11-05 16:28:40 +00:00
*--------------------------------------
2019-05-12 20:45:11 +00:00
CS.QUIT lda hBuf
2018-11-05 16:28:40 +00:00
beq .1
>SYSCALL FreeMem
2019-05-12 20:45:11 +00:00
.1 lda hFILE
2018-11-06 16:31:13 +00:00
beq .2
2018-11-05 16:28:40 +00:00
>SYSCALL FClose
2018-11-07 16:11:02 +00:00
.2
2018-11-05 16:28:40 +00:00
.8 clc
rts
*--------------------------------------
CS.DOEVENT sec
rts
*--------------------------------------
CS.END
*--------------------------------------
2019-01-16 14:37:21 +00:00
OptionList >PSTR "NnHhPpSs"
2019-01-25 04:29:46 +00:00
OptionVars .DA #bLineNum,#bLineNum,#bHelp,#bHelp,#bPage,#bPage,#bEscCodes,#bEscCodes
2018-11-05 16:28:40 +00:00
*--------------------------------------
MSG.USAGE .AS "Usage : MORE <File>\r\n"
2018-11-06 16:31:13 +00:00
.AS " -H : This help screen\r\n"
.AS " -N : Number all output lines\r\n"
2019-01-25 04:29:46 +00:00
.AS " -P : Page mode, no scroll\r\n"
2019-03-12 14:41:55 +00:00
.AS " -S : Process ESC codes"
MSG.CRLF .AZ "\r\n"
2019-02-14 16:38:36 +00:00
MSG.Init .AZ "\e[7l"
2018-11-28 11:39:33 +00:00
MSG.NUMLINE .AZ "%5D:"
MSG.Pause .AZ "\r\e[7m --- 'SPACE' for more, 'CR' one line, 'Q/q' to quit --- \e[0m"
2018-11-21 16:01:38 +00:00
MSG.PauseErase .AZ "\r\e[2K"
2018-11-05 16:28:40 +00:00
*--------------------------------------
.DUMMY
.OR 0
DS.START
DS.END
.ED
*--------------------------------------
MAN
2018-11-21 16:01:38 +00:00
SAVE USR/SRC/BIN/MORE.S
2018-11-05 16:28:40 +00:00
ASM