1 files changed, 531 insertions, 0 deletions
diff --git a/v2.0/source/EDLPROC.ASM b/v2.0/source/EDLPROC.ASM
new file mode 100644
index 0000000..0128b1d
--- /dev/null
+++ b/v2.0/source/EDLPROC.ASM
@@ -0,0 +1,531 @@
+FALSE   EQU     0
+TRUE    EQU     NOT FALSE
+KANJI   EQU     FALSE
+roprot  equ     FALSE           ;set to TRUE if protection to r/o files
+                                ; desired.
+FCB     EQU     5CH
+Comand_Line_Length equ 128
+quote_char equ  16h             ;quote character = ^V
+PAGE
+        .xlist
+        INCLUDE DOSSYM.ASM
+        .list
+SUBTTL  Contants and Data areas
+PAGE
+PROMPT  EQU     "*"
+STKSIZ  EQU     80H
+CODE    SEGMENT PUBLIC
+CODE    ENDS
+CONST   SEGMENT PUBLIC WORD
+        EXTRN   TXT1:BYTE,TXT2:BYTE,FUDGE:BYTE,HARDCH:DWORD,USERDIR:BYTE
+CONST   ENDS
+DATA    SEGMENT PUBLIC WORD
+        EXTRN   OLDLEN:WORD,OLDDAT:BYTE,SRCHFLG:BYTE,COMLINE:WORD
+        EXTRN   PARAM1:WORD,PARAM2:WORD,NEWLEN:WORD,SRCHMOD:BYTE
+        EXTRN   CURRENT:WORD,POINTER:WORD,START:BYTE,ENDTXT:WORD
+        EXTRN   USER_DRIVE:BYTE,LSTNUM:WORD,NUMPOS:WORD,LSTFND:WORD
+        EXTRN   SRCHCNT:WORD
+DATA    ENDS
+DG      GROUP   CODE,CONST,DATA
+CODE SEGMENT PUBLIC
+ASSUME  CS:DG,DS:DG,SS:DG,ES:DG
+        PUBLIC  REST_DIR,KILL_BL,INT_24,SCANLN,FINDLIN,SHOWNUM
+        PUBLIC  FNDFIRST,FNDNEXT,CRLF,LF,OUT,UNQUOTE
+        if  kanji
+        PUBLIC  TESTKANJ
+        endif
+        EXTRN   CHKRANGE:NEAR
+EDLPROC:
+RET1:   RET
+FNDFIRST:
+        MOV     DI,1+OFFSET DG:TXT1
+        mov     byte ptr[olddat],1     ;replace with old value if none new
+        CALL    GETTEXT
+        OR      AL,AL           ;Reset zero flag in case CX is zero
+        JCXZ    RET1
+        cmp     al,1ah          ;terminated with a ^Z ?
+        jne     sj8
+        mov     byte ptr[olddat],0     ;do not replace with old value
+sj8:
+        MOV     [OLDLEN],CX
+        XOR     CX,CX
+        CMP     AL,0DH
+        JZ      SETBUF
+        CMP     BYTE PTR [SRCHFLG],0
+        JZ      NXTBUF
+SETBUF:
+        DEC     SI
+NXTBUF:
+        MOV     [COMLINE],SI
+        MOV     DI,1+OFFSET DG:TXT2
+        CALL    GETTEXT
+        CMP     BYTE PTR [SRCHFLG],0
+        JNZ     NOTREPL
+        CMP     AL,0DH
+        JNZ     HAVCHR
+        DEC     SI
+HAVCHR:
+        MOV     [COMLINE],SI
+NOTREPL:
+        MOV     [NEWLEN],CX
+        MOV     BX,[PARAM1]
+        OR      BX,BX
+        JNZ     CALLER
+        cmp     byte ptr[srchmod],0
+        jne     sj9
+        mov     bx,1     ;start from line number 1
+        jmp     short sj9a
+sj9:
+        MOV     BX,[CURRENT]
+        INC     BX      ;Default search and replace to current+1
+sj9a:
+        CALL    CHKRANGE
+CALLER:
+        CALL    FINDLIN
+        MOV     [LSTFND],DI
+        MOV     [NUMPOS],DI
+        MOV     [LSTNUM],DX
+        MOV     BX,[PARAM2]
+        CMP     BX,1
+        SBB     BX,-1   ;Decrement everything except zero
+        CALL    FINDLIN
+        MOV     CX,DI
+        SUB     CX,[LSTFND]
+        OR      AL,-1
+        JCXZ    aret
+        CMP     CX,[OLDLEN]
+        jae     sj10
+aret:   ret
+sj10:
+        MOV     [SRCHCNT],CX
+FNDNEXT:
+; Inputs:
+;       [TXT1+1] has string to search for
+;       [OLDLEN] has length of the string
+;       [LSTFND] has starting position of search in text buffer
+;       [LSTNUM] has line number which has [LSTFND]
+;       [SRCHCNT] has length to be searched
+;       [NUMPOS] has beginning of line which has [LSTFND]
+; Outputs:
+;       Zero flag set if match found
+;       [LSTFND],[LSTNUM],[SRCHCNT] updated for continuing the search
+;       [NUMPOS] has beginning of line in which match was made
+        MOV     AL,[TXT1+1]
+        MOV     CX,[SRCHCNT]
+        MOV     DI,[LSTFND]
+SCAN:
+        OR      DI,DI           ;Clear zero flag in case CX=0
+        REPNE   SCASB
+        JNZ     RET11
+        MOV     DX,CX
+        MOV     BX,DI           ;Save search position
+        MOV     CX,[OLDLEN]
+        DEC     CX
+        MOV     SI,2 + OFFSET DG:TXT1
+        CMP     AL,AL           ;Set zero flag in case CX=0
+if kanji
+        dec     si              ;Want to look at the first character again
+        dec     di
+kanjchar:
+        lodsb
+        call    testkanj
+        jz      nxt_kj_char
+        xchg    ah,al
+        lodsb
+        mov     bx,[di]
+        add     di,2
+        cmp     ax,bx
+        jnz     not_kj_match
+        dec     cx
+        loop    kanjchar
+nxt_kj_char:
+        cmp     al,byte ptr[di]
+        jnz     not_kj_match
+        inc     di
+        loop    kanjchar
+not_kj_match:
+else
+        REPE    CMPSB
+endif
+        MOV     CX,DX
+        MOV     DI,BX
+        JNZ     SCAN
+        MOV     [SRCHCNT],CX
+        MOV     CX,DI
+        MOV     [LSTFND],DI
+        MOV     DI,[NUMPOS]
+        SUB     CX,DI
+        MOV     AL,10
+        MOV     DX,[LSTNUM]
+;Determine line number of match
+GETLIN:
+        INC     DX
+        MOV     BX,DI
+        REPNE   SCASB
+        JZ      GETLIN
+        DEC     DX
+        MOV     [LSTNUM],DX
+        MOV     [NUMPOS],BX
+        XOR     AL,AL
+RET11:  RET
+GETTEXT:
+; Inputs:
+;       SI points into command line buffer
+;       DI points to result buffer
+; Function:
+;       Moves [SI] to [DI] until ctrl-Z (1AH) or
+;       RETURN (0DH) is found. Termination char not moved.
+; Outputs:
+;       AL = Termination character
+;       CX = No of characters moved.
+;       SI points one past termination character
+;       DI points to next free location
+        XOR     CX,CX
+GETIT:
+        LODSB
+;-----------------------------------------------------------------------
+        cmp     al,quote_char   ;a quote character?
+        jne     sj101           ;no, skip....
+        lodsb                   ;yes, get quoted character
+        call    make_cntrl
+        jmp     short sj102
+;-----------------------------------------------------------------------
+sj101:
+        CMP     AL,1AH
+        JZ      DEFCHK
+sj102:
+        CMP     AL,0DH
+        JZ      DEFCHK
+        STOSB
+        INC     CX
+        JMP     SHORT GETIT
+DEFCHK:
+        OR      CX,CX
+        JZ      OLDTXT
+        PUSH    DI
+        SUB     DI,CX
+        MOV     BYTE PTR [DI-1],cl
+        POP     DI
+        RET
+OLDTXT:
+        cmp     byte ptr[olddat],1      ;replace with old text?
+        je      sj11                    ;yes...
+        mov     byte ptr[di-1],cl       ;zero text buffer char count
+        ret
+sj11:
+        MOV     CL,BYTE PTR [DI-1]
+        ADD     DI,CX
+        RET
+FINDLIN:
+; Inputs
+;       BX = Line number to be located in buffer (0 means last line)
+; Outputs:
+;       DX = Actual line found
+;       DI = Pointer to start of line DX
+;       Zero set if BX = DX
+; AL,CX destroyed. No other registers affected.
+        MOV     DX,[CURRENT]
+        MOV     DI,[POINTER]
+        CMP     BX,DX
+        JZ      RET4
+        JA      FINDIT
+        OR      BX,BX
+        JZ      FINDIT
+        MOV     DX,1
+        MOV     DI,OFFSET DG:START
+        CMP     BX,DX
+        JZ      RET4
+FINDIT:
+        MOV     CX,[ENDTXT]
+        SUB     CX,DI
+SCANLN:
+        MOV     AL,10
+        OR      AL,AL           ;Clear zero flag
+FINLIN:
+        JCXZ    RET4
+        REPNE   SCASB
+        INC     DX
+        CMP     BX,DX
+        JNZ     FINLIN
+RET4:   RET
+SHOWNUM:
+; Inputs:
+;       BX = Line number to be displayed
+; Function:
+;       Displays line number on terminal in 8-character
+;       format, suppressing leading zeros.
+; AX, CX, DX destroyed. No other registers affected.
+        PUSH    BX
+        MOV     AL," "
+        CALL    OUT
+        CALL    CONV10
+        MOV     AL,":"
+        CALL    OUT
+        MOV     AL,"*"
+        POP     BX
+        CMP     BX,[CURRENT]
+        JZ      STARLIN
+        MOV     AL," "
+STARLIN:
+        JMP     OUT
+CONV10:
+;Inputs:
+;       BX = Binary number to be displayed
+; Function:
+;       Ouputs binary number. Five digits with leading
+;       zero suppression. Zero prints 5 blanks.
+        XOR     AX,AX
+        MOV     DL,AL
+        MOV     CX,16
+CONV:
+        SHL     BX,1
+        ADC     AL,AL
+        DAA
+        XCHG    AL,AH
+        ADC     AL,AL
+        DAA
+        XCHG    AL,AH
+        ADC     DL,DL
+        LOOP    CONV
+        MOV     BL,"0"-" "
+        XCHG    AX,DX
+        CALL    LDIG
+        MOV     AL,DH
+        CALL    DIGITS
+        MOV     AL,DL
+DIGITS:
+        MOV     DH,AL
+        SHR     AL,1
+        SHR     AL,1
+        SHR     AL,1
+        SHR     AL,1
+        CALL    LDIG
+        MOV     AL,DH
+LDIG:
+        AND     AL,0FH
+        JZ      ZERDIG
+        MOV     BL,0
+ZERDIG:
+        ADD     AL,"0"
+        SUB     AL,BL
+        JMP     OUT
+RET5:   RET
+CRLF:
+        MOV     AL,13
+        CALL    OUT
+LF:
+        MOV     AL,10
+OUT:
+        PUSH    DX
+        XCHG    AX,DX
+        MOV     AH,STD_CON_OUTPUT
+        INT     21H
+        XCHG    AX,DX
+        POP     DX
+        RET
+;-----------------------------------------------------------------------;
+; Will scan buffer given pointed to by SI and get rid of quote
+;characters, compressing the line and adjusting the length at the
+;begining of the line.
+; Preserves al registers except flags and AX .
+unquote:
+        push    cx
+        push    di
+        push    si
+        mov     di,si
+        mov     cl,[si-1]       ;length of buffer
+        xor     ch,ch
+        mov     al,quote_char
+        cld
+unq_loop:
+        jcxz    unq_done        ;no more chars in the buffer, exit
+        repnz   scasb           ;search for quote character
+        jnz     unq_done        ;none found, exit
+        push    cx              ;save chars left in buffer
+        push    di              ;save pointer to quoted character
+        push    ax              ;save quote character
+        mov     al,byte ptr[di] ;get quoted character
+        call    make_cntrl
+        mov     byte ptr[di],al
+        pop     ax              ;restore quote character
+        mov     si,di
+        dec     di              ;points to the quote character
+        inc     cx              ;include the carriage return also
+        rep     movsb           ;compact line
+        pop     di              ;now points to after quoted character
+        pop     cx
+        jcxz    sj13            ;if quote char was last of line do not adjust
+        dec     cx              ;one less char left in the buffer
+sj13:   pop     si
+        dec     byte ptr[si-1]  ;one less character in total buffer count also
+        push    si
+        jmp     short unq_loop
+unq_done:
+        pop     si
+        pop     di
+        pop     cx
+        ret
+;-----------------------------------------------------------------------;
+;       Convert the character in AL to the corresponding control
+; character. AL has to be between @ and _ to be converted. That is,
+; it has to be a capital letter. All other letters are left unchanged.
+make_cntrl:
+        push    ax
+        and     ax,11100000b
+        cmp     ax,01000000b
+        pop     ax
+        jne     sj14
+        and     ax,00011111b
+sj14:
+        ret
+;---- Kill spaces in buffer --------------------------------------------;
+kill_bl:
+        lodsb                           ;get rid of blanks
+        cmp     al,' '
+        je      kill_bl
+        ret
+;----- Restore INT 24 vector and old current directory -----------------;
+rest_dir:
+        cmp     [fudge],0
+        je      no_fudge
+        mov     ax,(set_interrupt_vector shl 8) or 24h
+        lds     dx,[hardch]
+        int     21h
+        push    cs
+        pop     ds
+        mov     dx,offset dg:userdir            ;restore directory
+        mov     ah,chdir
+        int     21h
+        mov     dl,[user_drive]                 ;restore old current drive
+        mov     ah,set_default_drive
+        int     21h
+no_fudge:
+        ret
+;----- INT 24 Processing -----------------------------------------------;
+int_24_retaddr dw       offset dg:int_24_back
+int_24  proc    far
+assume  ds:nothing,es:nothing,ss:nothing
+        pushf
+        push    cs
+        push    [int_24_retaddr]
+        push    word ptr [hardch+2]
+        push    word ptr [hardch]
+        ret
+int_24  endp
+int_24_back:
+        cmp     al,2            ;abort?
+        jnz     ireti
+        push    cs
+        pop     ds
+assume  ds:dg
+        call    rest_dir
+        int     20h
+ireti:
+        iret
+        IF      KANJI
+TESTKANJ:
+        CMP     AL,81H
+        JB      NOTLEAD
+        CMP     AL,9FH
+        JBE     ISLEAD
+        CMP     AL,0E0H
+        JB      NOTLEAD
+        CMP     AL,0FCH
+        JBE     ISLEAD
+NOTLEAD:
+        PUSH    AX
+        XOR     AX,AX           ;Set zero
+        POP     AX
+        RET
+ISLEAD:
+        PUSH    AX
+        XOR     AX,AX           ;Set zero
+        INC     AX              ;Reset zero
+        POP     AX
+        RET
+        ENDIF
+;-----------------------------------------------------------------------;
+CODE    ENDS
+        END     EDLPROC
+\ No newline at end of file

diff --git a/v2.0/source/EDLPROC.ASM b/v2.0/source/EDLPROC.ASM new file mode 100644 index 0000000..0128b1d --- /dev/null +++ b/v2.0/source/EDLPROC.ASM
@@ -0,0 +1,531 @@
	1
	2
	3	FALSE EQU 0
	4	TRUE EQU NOT FALSE
	5
	6	KANJI EQU FALSE
	7
	8	roprot equ FALSE ;set to TRUE if protection to r/o files
	9	; desired.
	10	FCB EQU 5CH
	11
	12	Comand_Line_Length equ 128
	13	quote_char equ 16h ;quote character = ^V
	14
	15
	16	PAGE
	17
	18	.xlist
	19	INCLUDE DOSSYM.ASM
	20	.list
	21
	22
	23	SUBTTL Contants and Data areas
	24	PAGE
	25
	26	PROMPT EQU "*"
	27	STKSIZ EQU 80H
	28
	29	CODE SEGMENT PUBLIC
	30	CODE ENDS
	31
	32	CONST SEGMENT PUBLIC WORD
	33
	34	EXTRN TXT1:BYTE,TXT2:BYTE,FUDGE:BYTE,HARDCH:DWORD,USERDIR:BYTE
	35
	36	CONST ENDS
	37
	38	DATA SEGMENT PUBLIC WORD
	39
	40	EXTRN OLDLEN:WORD,OLDDAT:BYTE,SRCHFLG:BYTE,COMLINE:WORD
	41	EXTRN PARAM1:WORD,PARAM2:WORD,NEWLEN:WORD,SRCHMOD:BYTE
	42	EXTRN CURRENT:WORD,POINTER:WORD,START:BYTE,ENDTXT:WORD
	43	EXTRN USER_DRIVE:BYTE,LSTNUM:WORD,NUMPOS:WORD,LSTFND:WORD
	44	EXTRN SRCHCNT:WORD
	45
	46	DATA ENDS
	47
	48	DG GROUP CODE,CONST,DATA
	49
	50	CODE SEGMENT PUBLIC
	51
	52	ASSUME CS:DG,DS:DG,SS:DG,ES:DG
	53
	54	PUBLIC REST_DIR,KILL_BL,INT_24,SCANLN,FINDLIN,SHOWNUM
	55	PUBLIC FNDFIRST,FNDNEXT,CRLF,LF,OUT,UNQUOTE
	56
	57	if kanji
	58	PUBLIC TESTKANJ
	59	endif
	60
	61	EXTRN CHKRANGE:NEAR
	62
	63	EDLPROC:
	64
	65	RET1: RET
	66
	67	FNDFIRST:
	68	MOV DI,1+OFFSET DG:TXT1
	69	mov byte ptr[olddat],1 ;replace with old value if none new
	70	CALL GETTEXT
	71	OR AL,AL ;Reset zero flag in case CX is zero
	72	JCXZ RET1
	73	cmp al,1ah ;terminated with a ^Z ?
	74	jne sj8
	75	mov byte ptr[olddat],0 ;do not replace with old value
	76	sj8:
	77	MOV [OLDLEN],CX
	78	XOR CX,CX
	79	CMP AL,0DH
	80	JZ SETBUF
	81	CMP BYTE PTR [SRCHFLG],0
	82	JZ NXTBUF
	83	SETBUF:
	84	DEC SI
	85	NXTBUF:
	86	MOV [COMLINE],SI
	87	MOV DI,1+OFFSET DG:TXT2
	88	CALL GETTEXT
	89	CMP BYTE PTR [SRCHFLG],0
	90	JNZ NOTREPL
	91	CMP AL,0DH
	92	JNZ HAVCHR
	93	DEC SI
	94	HAVCHR:
	95	MOV [COMLINE],SI
	96	NOTREPL:
	97	MOV [NEWLEN],CX
	98	MOV BX,[PARAM1]
	99	OR BX,BX
	100	JNZ CALLER
	101	cmp byte ptr[srchmod],0
	102	jne sj9
	103	mov bx,1 ;start from line number 1
	104	jmp short sj9a
	105	sj9:
	106	MOV BX,[CURRENT]
	107	INC BX ;Default search and replace to current+1
	108	sj9a:
	109	CALL CHKRANGE
	110	CALLER:
	111	CALL FINDLIN
	112	MOV [LSTFND],DI
	113	MOV [NUMPOS],DI
	114	MOV [LSTNUM],DX
	115	MOV BX,[PARAM2]
	116	CMP BX,1
	117	SBB BX,-1 ;Decrement everything except zero
	118	CALL FINDLIN
	119	MOV CX,DI
	120	SUB CX,[LSTFND]
	121	OR AL,-1
	122	JCXZ aret
	123	CMP CX,[OLDLEN]
	124	jae sj10
	125	aret: ret
	126	sj10:
	127	MOV [SRCHCNT],CX
	128
	129	FNDNEXT:
	130
	131	; Inputs:
	132	; [TXT1+1] has string to search for
	133	; [OLDLEN] has length of the string
	134	; [LSTFND] has starting position of search in text buffer
	135	; [LSTNUM] has line number which has [LSTFND]
	136	; [SRCHCNT] has length to be searched
	137	; [NUMPOS] has beginning of line which has [LSTFND]
	138	; Outputs:
	139	; Zero flag set if match found
	140	; [LSTFND],[LSTNUM],[SRCHCNT] updated for continuing the search
	141	; [NUMPOS] has beginning of line in which match was made
	142
	143	MOV AL,[TXT1+1]
	144	MOV CX,[SRCHCNT]
	145	MOV DI,[LSTFND]
	146	SCAN:
	147	OR DI,DI ;Clear zero flag in case CX=0
	148	REPNE SCASB
	149	JNZ RET11
	150	MOV DX,CX
	151	MOV BX,DI ;Save search position
	152	MOV CX,[OLDLEN]
	153	DEC CX
	154	MOV SI,2 + OFFSET DG:TXT1
	155	CMP AL,AL ;Set zero flag in case CX=0
	156	if kanji
	157	dec si ;Want to look at the first character again
	158	dec di
	159	kanjchar:
	160	lodsb
	161	call testkanj
	162	jz nxt_kj_char
	163	xchg ah,al
	164	lodsb
	165	mov bx,[di]
	166	add di,2
	167	cmp ax,bx
	168	jnz not_kj_match
	169	dec cx
	170	loop kanjchar
	171	nxt_kj_char:
	172	cmp al,byte ptr[di]
	173	jnz not_kj_match
	174	inc di
	175	loop kanjchar
	176
	177	not_kj_match:
	178	else
	179	REPE CMPSB
	180	endif
	181	MOV CX,DX
	182	MOV DI,BX
	183	JNZ SCAN
	184	MOV [SRCHCNT],CX
	185	MOV CX,DI
	186	MOV [LSTFND],DI
	187	MOV DI,[NUMPOS]
	188	SUB CX,DI
	189	MOV AL,10
	190	MOV DX,[LSTNUM]
	191	;Determine line number of match
	192	GETLIN:
	193	INC DX
	194	MOV BX,DI
	195	REPNE SCASB
	196	JZ GETLIN
	197	DEC DX
	198	MOV [LSTNUM],DX
	199	MOV [NUMPOS],BX
	200	XOR AL,AL
	201	RET11: RET
	202
	203
	204	GETTEXT:
	205
	206	; Inputs:
	207	; SI points into command line buffer
	208	; DI points to result buffer
	209	; Function:
	210	; Moves [SI] to [DI] until ctrl-Z (1AH) or
	211	; RETURN (0DH) is found. Termination char not moved.
	212	; Outputs:
	213	; AL = Termination character
	214	; CX = No of characters moved.
	215	; SI points one past termination character
	216	; DI points to next free location
	217
	218	XOR CX,CX
	219
	220	GETIT:
	221	LODSB
	222	;-----------------------------------------------------------------------
	223	cmp al,quote_char ;a quote character?
	224	jne sj101 ;no, skip....
	225	lodsb ;yes, get quoted character
	226	call make_cntrl
	227	jmp short sj102
	228	;-----------------------------------------------------------------------
	229	sj101:
	230	CMP AL,1AH
	231	JZ DEFCHK
	232	sj102:
	233	CMP AL,0DH
	234	JZ DEFCHK
	235	STOSB
	236	INC CX
	237	JMP SHORT GETIT
	238
	239	DEFCHK:
	240	OR CX,CX
	241	JZ OLDTXT
	242	PUSH DI
	243	SUB DI,CX
	244	MOV BYTE PTR [DI-1],cl
	245	POP DI
	246	RET
	247
	248	OLDTXT:
	249	cmp byte ptr[olddat],1 ;replace with old text?
	250	je sj11 ;yes...
	251	mov byte ptr[di-1],cl ;zero text buffer char count
	252	ret
	253
	254	sj11:
	255	MOV CL,BYTE PTR [DI-1]
	256	ADD DI,CX
	257	RET
	258
	259
	260	FINDLIN:
	261
	262	; Inputs
	263	; BX = Line number to be located in buffer (0 means last line)
	264	; Outputs:
	265	; DX = Actual line found
	266	; DI = Pointer to start of line DX
	267	; Zero set if BX = DX
	268	; AL,CX destroyed. No other registers affected.
	269
	270	MOV DX,[CURRENT]
	271	MOV DI,[POINTER]
	272	CMP BX,DX
	273	JZ RET4
	274	JA FINDIT
	275	OR BX,BX
	276	JZ FINDIT
	277	MOV DX,1
	278	MOV DI,OFFSET DG:START
	279	CMP BX,DX
	280	JZ RET4
	281	FINDIT:
	282	MOV CX,[ENDTXT]
	283	SUB CX,DI
	284	SCANLN:
	285	MOV AL,10
	286	OR AL,AL ;Clear zero flag
	287	FINLIN:
	288	JCXZ RET4
	289	REPNE SCASB
	290	INC DX
	291	CMP BX,DX
	292	JNZ FINLIN
	293	RET4: RET
	294
	295
	296	SHOWNUM:
	297
	298	; Inputs:
	299	; BX = Line number to be displayed
	300	; Function:
	301	; Displays line number on terminal in 8-character
	302	; format, suppressing leading zeros.
	303	; AX, CX, DX destroyed. No other registers affected.
	304
	305	PUSH BX
	306	MOV AL," "
	307	CALL OUT
	308	CALL CONV10
	309	MOV AL,":"
	310	CALL OUT
	311	MOV AL,"*"
	312	POP BX
	313	CMP BX,[CURRENT]
	314	JZ STARLIN
	315	MOV AL," "
	316	STARLIN:
	317	JMP OUT
	318
	319
	320	CONV10:
	321
	322	;Inputs:
	323	; BX = Binary number to be displayed
	324	; Function:
	325	; Ouputs binary number. Five digits with leading
	326	; zero suppression. Zero prints 5 blanks.
	327
	328	XOR AX,AX
	329	MOV DL,AL
	330	MOV CX,16
	331	CONV:
	332	SHL BX,1
	333	ADC AL,AL
	334	DAA
	335	XCHG AL,AH
	336	ADC AL,AL
	337	DAA
	338	XCHG AL,AH
	339	ADC DL,DL
	340	LOOP CONV
	341	MOV BL,"0"-" "
	342	XCHG AX,DX
	343	CALL LDIG
	344	MOV AL,DH
	345	CALL DIGITS
	346	MOV AL,DL
	347	DIGITS:
	348	MOV DH,AL
	349	SHR AL,1
	350	SHR AL,1
	351	SHR AL,1
	352	SHR AL,1
	353	CALL LDIG
	354	MOV AL,DH
	355	LDIG:
	356	AND AL,0FH
	357	JZ ZERDIG
	358	MOV BL,0
	359	ZERDIG:
	360	ADD AL,"0"
	361	SUB AL,BL
	362	JMP OUT
	363
	364	RET5: RET
	365
	366
	367	CRLF:
	368	MOV AL,13
	369	CALL OUT
	370	LF:
	371	MOV AL,10
	372	OUT:
	373	PUSH DX
	374	XCHG AX,DX
	375	MOV AH,STD_CON_OUTPUT
	376	INT 21H
	377	XCHG AX,DX
	378	POP DX
	379	RET
	380
	381
	382	;-----------------------------------------------------------------------;
	383	; Will scan buffer given pointed to by SI and get rid of quote
	384	;characters, compressing the line and adjusting the length at the
	385	;begining of the line.
	386	; Preserves al registers except flags and AX .
	387
	388	unquote:
	389	push cx
	390	push di
	391	push si
	392	mov di,si
	393	mov cl,[si-1] ;length of buffer
	394	xor ch,ch
	395	mov al,quote_char
	396	cld
	397	unq_loop:
	398	jcxz unq_done ;no more chars in the buffer, exit
	399	repnz scasb ;search for quote character
	400	jnz unq_done ;none found, exit
	401	push cx ;save chars left in buffer
	402	push di ;save pointer to quoted character
	403	push ax ;save quote character
	404	mov al,byte ptr[di] ;get quoted character
	405	call make_cntrl
	406	mov byte ptr[di],al
	407	pop ax ;restore quote character
	408	mov si,di
	409	dec di ;points to the quote character
	410	inc cx ;include the carriage return also
	411	rep movsb ;compact line
	412	pop di ;now points to after quoted character
	413	pop cx
	414	jcxz sj13 ;if quote char was last of line do not adjust
	415	dec cx ;one less char left in the buffer
	416	sj13: pop si
	417	dec byte ptr[si-1] ;one less character in total buffer count also
	418	push si
	419	jmp short unq_loop
	420
	421	unq_done:
	422	pop si
	423	pop di
	424	pop cx
	425	ret
	426
	427
	428	;-----------------------------------------------------------------------;
	429	; Convert the character in AL to the corresponding control
	430	; character. AL has to be between @ and _ to be converted. That is,
	431	; it has to be a capital letter. All other letters are left unchanged.
	432
	433	make_cntrl:
	434	push ax
	435	and ax,11100000b
	436	cmp ax,01000000b
	437	pop ax
	438	jne sj14
	439	and ax,00011111b
	440	sj14:
	441	ret
	442
	443
	444	;---- Kill spaces in buffer --------------------------------------------;
	445	kill_bl:
	446	lodsb ;get rid of blanks
	447	cmp al,' '
	448	je kill_bl
	449	ret
	450
	451
	452	;----- Restore INT 24 vector and old current directory -----------------;
	453	rest_dir:
	454	cmp [fudge],0
	455	je no_fudge
	456
	457	mov ax,(set_interrupt_vector shl 8) or 24h
	458	lds dx,[hardch]
	459	int 21h
	460	push cs
	461	pop ds
	462
	463	mov dx,offset dg:userdir ;restore directory
	464	mov ah,chdir
	465	int 21h
	466	mov dl,[user_drive] ;restore old current drive
	467	mov ah,set_default_drive
	468	int 21h
	469
	470	no_fudge:
	471	ret
	472
	473	;----- INT 24 Processing -----------------------------------------------;
	474
	475	int_24_retaddr dw offset dg:int_24_back
	476
	477	int_24 proc far
	478	assume ds:nothing,es:nothing,ss:nothing
	479
	480	pushf
	481	push cs
	482	push [int_24_retaddr]
	483	push word ptr [hardch+2]
	484	push word ptr [hardch]
	485	ret
	486	int_24 endp
	487
	488	int_24_back:
	489	cmp al,2 ;abort?
	490	jnz ireti
	491	push cs
	492	pop ds
	493
	494	assume ds:dg
	495
	496	call rest_dir
	497	int 20h
	498	ireti:
	499	iret
	500
	501	IF KANJI
	502	TESTKANJ:
	503	CMP AL,81H
	504	JB NOTLEAD
	505	CMP AL,9FH
	506	JBE ISLEAD
	507	CMP AL,0E0H
	508	JB NOTLEAD
	509	CMP AL,0FCH
	510	JBE ISLEAD
	511	NOTLEAD:
	512	PUSH AX
	513	XOR AX,AX ;Set zero
	514	POP AX
	515	RET
	516
	517	ISLEAD:
	518	PUSH AX
	519	XOR AX,AX ;Set zero
	520	INC AX ;Reset zero
	521	POP AX
	522	RET
	523	ENDIF
	524
	525	;-----------------------------------------------------------------------;
	526
	527	CODE ENDS
	528	END EDLPROC
	529
	530
	531	\ No newline at end of file