A2osX/SCMASM.31/SCMASM.S.ELINES.txt

322 lines
8.8 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

NEW
AUTO 3,1
*--------------------------------------
* EDIT ONE LINE
* TEXT OF LINE ALREADY IN WBUF
* (A1L,A1H) POINT AT LINE IN SOURCE AREA
*--------------------------------
EDIT.ONE.LINE
LDA BOTTOM.OF.SCREEN
STA ED.BEGLIN
JSR IO.VTAB
JSR E.BEG Start edit 2 columns after line #
.1 STX ED.PNTR
JSR E.DISPLAY.LINE Put line on screen
LDX ED.PNTR Restore PNTR in X
JSR E.PROCESS.CHAR
BCC .1 Not control-L, -M, or -Q
JSR E.DISPLAY.LINE ...One last time
JSR CRLF
JMP NML Submit line and return
*--------------------------------
* DISPLAY LINE FROM WBUF
*--------------------------------
E.DISPLAY.LINE
LDA ED.BEGLIN
JSR IO.VTAB
LDA #0
JSR IO.HTAB
JSR SPC One space
LDX #0
.1 LDA WBUF,X
BEQ .4 End of line
ORA #$80
CMP #$A0 Control char?
BCS .2 No
AND #$3F ...YES, MAKE IT INVERSE
.2 PHA
JSR GET.HORIZ.POSN
TAY
PLA
INY
CPY SCREEN.WIDTH
BCC .3 No
LDY CV Last line on screen?
CPY BOTTOM.OF.SCREEN
BCC .3 No
DEC ED.BEGLIN Yes, it will scroll
.3 JSR IO.COUT
INX
BNE .1 ...Always
.4 JMP IO.CLREOP
*--------------------------------
* PROCESS EDITING CHARACTER
*--------------------------------
E.PROCESS.CHAR
EPC.1 JSR E.INPUT Get char from keyboard
EPC.2 CMP #$A0 Control char?
BCC E.PROCESS.CNTRL
*--------------------------------
* PUT CHARACTER INTO LINE
*--------------------------------
E.PUT.CHARACTER
LDA WBUF,X At end of line?
BNE .1 No
CPX #WBUF.MAX Line too long?
BCS .2 Yes
STA WBUF+1,X Put new <EOL>
.1 LDA CURRENT.CHAR
STA WBUF,X
INX
.2 CLC
RTS
*--------------------------------
* PROCESS CONTROL CHAR
*--------------------------------
E.PROCESS.CNTRL
LDY #CHARS.FOR.EDIT
JMP SEARCH.CHAR.TABLES
*--------------------------------
E.ILLCHAR
JSR MON.BELL
LDX ED.PNTR Restore X-reg
JMP EPC.1
*--------------------------------
* CONTROL-R: RESTORE ORIGINAL LINE
*--------------------------------
E.RESTORE
LDA A1L Set line pointer back
STA SRCP
LDA A1H
STA SRCP+1
JSR GET.LINE.TO.WBUF
*--------------------------------
* CONTROL-B: BEGINNING OF LINE
*--------------------------------
FIND.START.OF.LINE.IN.WBUF
E.BEG LDY #0 Find 1st column after line number
.1 JSR GNC2
BCS .2 End of line
JSR CHECK.DIGIT
BCS .1 Yes
INY
.2 TYA Get column # into X
TAX
DEX
CLC
RTS
*--------------------------------
* CONTROL-D: DELETE CHARACTER
*--------------------------------
E.DEL LDX ED.PNTR
.1 LDA WBUF,X Are we at the end?
BEQ .3 Yes
.2 INX ADVANCE PNTR
LDA WBUF,X SLIDE REST OF LINE LEFT
STA WBUF-1,X ...to delete char
BNE .2 ...UNTIL END OF LINE
.3 LDX ED.PNTR
CLC
RTS Return with Carry clear
*--------------------------------
* CONTROL-N: END OF LINE
*--------------------------------
E.END LDX ED.PNTR
DEX
.1 INX
LDA WBUF,X End of buffer?
BNE .1 ...KEEP LOOKING
CLC
RTS Carry clear
*--------------------------------
* CONTROL-F: FIND NEXT OCCURRENCE
*--------------------------------
E.FIND LDX ED.PNTR
LDA WBUF,X End of buffer?
BEQ .3 Yes
JSR E.INPUT Get 1 char
STX ED.FCOL Save beg col
STA ED.FKEY Save key to locate
.1 INX
LDA WBUF,X Text buffer
BEQ .2 End of buffer
ORA #$80
CMP ED.FKEY No, see if key
BNE .1 No, go forward
STX ED.FCOL Save this col
JSR E.INPUT Try another key
CMP ED.FKEY Same char
BEQ .1 Yes, search again
STX ED.PNTR No, exit pointing here
JMP EPC.2
.2 LDX ED.FCOL Restore col
.3 JSR MON.BELL Beep
CLC
RTS
*--------------------------------
* CONTROL-H: BACKSPACE
*--------------------------------
E.BKSP LDX ED.PNTR
TXA At beginning already?
BEQ .1 Yes, stay there
DEX Backup
.1 CLC
RTS
*--------------------------------
* CONTROL-O: ALLOW INSERTION OF CONTROL CHAR
*--------------------------------
E.OVR LDX ED.PNTR
JSR E.INPUT Read char
JMP E.INS1 Skip control check
*--------------------------------
* CONTROL-I: INSERT CHARACTERS
*--------------------------------
E.INS LDX ED.PNTR
JSR E.INPUT Read char
CMP #$A0 Control char pops user out
BCS E.INS1
JMP E.PROCESS.CNTRL
E.INS1 CPX #WBUF.MAX End of block
BEQ .1 Yes, stay there
INC ED.PNTR
.1 PHA Char to insert
LDA WBUF,X Save char to move
TAY
PLA
STA WBUF,X Put over saved char
INX
TYA Insert saved char
BNE .1 If not buffer end
CPX #WBUF.MAX At end?
BCC .2 Not yet
LDX #WBUF.MAX Yes
.2 STA WBUF,X Store end char
JSR E.DISPLAY.LINE
LDX ED.PNTR
BNE E.INS ...Always
*--------------------------------
* CONTROL-Q: QUIT, DROPPING REST OF LINE
*--------------------------------
E.RETQ JSR E.ZAP Clear rest of line
*--------------------------------
* CONTROL-M: QUIT, SUBMITTING WHOLE LINE
*--------------------------------
E.RET SEC
RTS
*--------------------------------
* CONTROL-L: SUBMIT THIS LINE, EDIT NEXT LINE
*--------------------------------
E.DOWN LDA ENDP See if at HI.MEM already
CMP HI.MEM
LDA ENDP+1
SBC HI.MEM+1
BCS .1 Yes, no need to move ENDP
JSR CMP.SRCP.ENDP End of range yet?
BCC .1 ...NO
CLC Move ENDP one line
LDY #0
LDA (SRCP),Y Line length of next line
ADC ENDP
STA ENDP
BCC .1
INC ENDP+1
.1 SEC Signal submit line
RTS
*--------------------------------
* CONTROL-T: SKIP TO NEXT TAB STOP
*--------------------------------
E.TAB LDX ED.PNTR
.1 JSR E.CHECK.TAB
BCS E.RIT1 MOVE ONE MORE COLUMN
JSR E.RIT1 Move one column right
BCC .1 ...ALWAYS
*--------------------------------
* CONTROL-U: RIGHT ARROW
*--------------------------------
E.RIT LDX ED.PNTR
E.RIT1 LDA WBUF,X End of buffer?
BNE .1 No
CPX #WBUF.MAX
BCS .2
STA WBUF+1,X
LDA #$A0 Put a blank
STA WBUF,X To extend line
.1 INX Move ahead
.2 CLC Return
RTS
*--------------------------------
* CONTROL-X: ABORT EDIT COMMAND
*--------------------------------
E.ABORT
JSR E.DISPLAY.LINE
LDA #$DC Backslash
JSR MY.COUT
JMP GNL Get next command
*--------------------------------
* CONTROL-@: CLEAR TO EOL
*--------------------------------
E.ZAP LDA #0 EOL mark
LDX ED.PNTR
STA WBUF,X
CLC
RTS Carry clear
*--------------------------------
* INPUT CHAR WHERE CURSOR SHOULD BE
*--------------------------------
E.INPUT
LDY ED.BEGLIN
INX
TXA
DEX
DEY
SEC
.1 INY
SBC SCREEN.WIDTH
BCS .1
ADC SCREEN.WIDTH
JSR IO.HTAB HTAB (A)
TYA
JSR IO.VTAB
JSR READ.KEY.WITH.CASE
STA CURRENT.CHAR
RTS
*--------------------------------
* DETERMINE IF AT TAB STOP YET
* RETURN .EQ. IF AT A TAB STOP
* .CS. IF PAST LAST TAB STOP
* .CC. IF BEFORE A TAB STOP
*--------------------------------
E.CHECK.TAB
TXA Column position
CLC
ADC #3
LDY #0
.1 CMP TAB.SETTINGS,Y
BCC .2
BEQ .2
INY
CPY #5
BCC .1
.2 RTS
*--------------------------------
* CONTROL-I -- CLEAR TO TAB STOP
*--------------------------------
E.TABI LDX ED.PNTR
LDA #" "
STA CURRENT.CHAR
.1 JSR E.CHECK.TAB
BCS .2 ...REACHED TAB STOP
JSR E.PUT.CHARACTER
BCC .1 ...ALWAYS
.2 JMP E.PUT.CHARACTER One more space
*--------------------------------
E.TOGGLE
JSR IO.CASE.TOGGLE
CLC
RTS
*--------------------------------------
MAN
SAVE usr/src/scmasm.31/scmasm.s.elines
LOAD usr/src/scmasm.31/scmasm.s
ASM