home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
CPM
/
ZCPR33
/
A-R
/
EASE20.LBR
/
EASECMD.ZZ0
/
EASECMD.Z80
Wrap
Text File
|
2000-06-30
|
5KB
|
277 lines
;Prog: EASE CMD file creator
;Date: 8/6/87
;Auth: Paul Pomerleau
extrn print
extrn bline
extrn f0$put, fo0$open, fo0$close
extrn f$open, f$read, f$delete
extrn z3log, z3init
extrn zprsfn
extrn crlf
version equ 20
FCB equ 5ch
;=============================================================================
;
; S T A N D A R D P R O G R A M H E A D E R
;
;=============================================================================
ENTRY:
jp START
defb 'Z3ENV'
defb 3 ; Type-3 environment
ENVADDR:
dw 0f300h
dw ENTRY
defb version
;=============================================================================
;
; C O N F I G U R A T I O N A R E A
;
;=============================================================================
NAME: db 'FillFillFIL' ; Padding to help find proper places
WIDTH: dw 80
TOOSHORT:
dw 02
gobeg: db 0
bellflg:
db 0
smartsav:
db 0
ds 4
ds 1
; For EASE.COM's table
TABLE: ds 3
VECTOR:
;=============================================================================
;
; M A I N C O D E S E C T I O N
;
;=============================================================================
START:
ld hl,(ENVADDR) ; Get environment address
call Z3INIT ; Initialize library routines
call HEADER
ld a,(FCB+1)
cp '/'
jp z,HELP
cp ' '
jr nz,GOTNAME
call PRINT
db 'Filename to extract infromation from (ie. EASE): ',0
ld hl,80h
ld (hl),79
ld a,0ffh
call BLINE
call CRLF
ld a,(hl)
or a
ret z
ld de,FCB
call ZPRSFN
GOTNAME:
ld de,FCB
ld hl,FCB+9
ld (hl),'C'
inc hl
ld (hl),'O'
inc hl
ld (hl),'M'
call Z3LOG
call F$OPEN ; We have BLAHBLAH.COM -- Open it.
jp nz,RERR
ld de,BUFFER
ld c,26
call 5 ; Dma to BUFFER
ld de,FCB
call F$READ ; Read first record
ld hl,FCB + 12
ld (hl),0
inc hl
ld b,22
ZEROFCB:
inc hl
ld (hl),0
djnz ZEROFCB
ld hl,FCB+9
ld (hl),'C'
inc hl
ld (hl),'M'
inc hl
ld (hl),'D' ; Gonna write BLAHBLAH.CMD
ld de,FCB
push de
call f$delete
pop de
call FO0$OPEN ; Open it.
jp nz,WERR
ld hl,82h
NAMELOOP:
ld a,(hl)
or a
jr z,OKNAMED
cp ' '
jr z,OKNAMED
push hl
call F0$PUT
pop hl
inc hl
jr NAMELOOP
OKNAMED:
call PUTS
db ' Editing Commands:',13,10,0
ld de,BUFFER + VECTOR - ENTRY
ld hl,TEXT ; all this means write each line
call LINE ; or composite line to the file.
call LINE2 ; <>
call LINE2 ; ^v
call LINE2 ; < >
call LINE2 ; <--- --->
call FCRLF
call LINE ; d >
call LINE2 ; d <<
call LINE2 ; d < >
call LINE2 ; d -->; d --->
call LINE2 ; du <--->
call FCRLF
call LINE2 ; c <> (h)
call LINE ; Search
call FCRLF
call LINE2 ; Toggle + Tab insert
call LINE ; Special insert
call LINE2 ; Replot, Warm Boot
call FCRLF
call WCHARS ; Done
call PUTS
db 9,0
call WCHARS ; Quit
; No ending CR LF
call FO0$CLOSE ; Close the file.
jp nz,WERR
call print
db ' File Completed.',0 ; Tah Dah!
ret
WCHARS: ld a,(de)
inc de
inc de
inc de
bit 7,a ; High bit == Meta command.
jr z,NOMETA
call PUTS
db '<Meta> ',0
jr METADONE
NOMETA: call PUTS ; Or skip over that space for TAB
db ' ',0
METADONE:
and 7fh ; get rid of META bit
cp 7fh
jr nz,NOTDEL ; If it's <del>, we write that else...
call PUTS
db '<DEL>',0
jr NODEL
NOTDEL: push af
ld a,' '
call F0$PUT ; We write the Control-Code.
ld a,'^'
call F0$PUT
pop af
call F0$PUT
ld a,' '
call F0$PUT ; Sinch up the spacing.
ld a,' '
call F0$PUT
NODEL: call PUTS
db '-- ',0 ; And a dash of this and that.
PUTSTR: ld a,(hl)
inc hl
or a
ret z
call F0$PUT
jr PUTSTR ; And write the description string.
PUTS: ex (sp),hl ; Routine to write strings to file
push af
call PUTSTR
pop af
ex (sp),hl
ret
TEXT: db 'Meta key',0
db 'Right Char',9,0
db 'Left Char',9,0
db 'Up line',9,9,0
db 'Down line',9,0
db 'word Back',9,0
db 'word Forward',9,0
db 'Go to start of line',0
db 'Go to end of line',0
db 'Delete char right',0
db 'Delete char left',9,0
db 'Delete left char',0
db 'Delete word right',0
db 'Delete word left',0
db 'Delete command right',0
db 'Delete to end of line',0
db 'Delete line',9,0
db 'Undelete line/cmd',0
db 'Back command line',0
db 'Forward command line',0
db 'Search backwards for command by first char',0
db 'Toggle insert',9,0
db 'Complete filename',0
db 'Insert next char',0
db 'Reprint line',9,0
db 'Force Warm Boot',0
db 'Done editing',9,0
db 'Quit shell',0
LINE: call WCHARS
FCRLF: call PUTS
db 13,10,0
ret
LINE2: call WCHARS ; Two lines of text on one.
call PUTS
db 9,0
jr LINE
HEADER: call PRINT
db 'EASE CMD File Creator -- Version ',(version / 10) + '0'
db '.',(version mod 10) + '0',13,10
db ' To create help files for EASE --'
db ' Help files get the extension .CMD',13,10,0
ret
HELP: call PRINT
db 'Usage: EASECMD [filname]',13,10,0
ret
WERR: call PRINT
db ' Error: Disk Full.',13,10,0
ret
RERR: call PRINT
db ' Error: Cannot Open File.',13,10,0
ret
BUFFER equ 1000h ; Past SYSLIB, Z3LIB, etc.
end
t
RERR: call PRINT
db