CP/M

home *** CD-ROM | disk | FTP | other *** search

/ CP/M / CPM_CDROM.iso / cpm / epson / fxprint.ark / FXPRINT.ASM next >

Wrap

Assembly Source File | 1983-03-25 | 11.5 KB | 420 lines

; Epson FX-80 Printer Setup Program ; A Peace Product ; Copyright 1983 by George F Peace ; VERSION EQU 1$2 ; ;revision history: (lifo) ; ; 3/25/83 1.2 Corrected signon message to say FX instead of MX ; Add RIGHT0 command ; Expand the 12lpi command to my liking (subscript, ; 132lpp,137col,right0,condensed,skip6) ; ; 3/23/83 1.1 Add CELITE NOSKIP RIGHT8 SUB SUPER ; 64COL 80COL 96COL 132COL 137COL ; 12LPI SKIP3 SKIP6 ; Change help operation to display a configurable ; number of commands on each line. ; ; 3/12/83 1.0 Upgrade of the MXPRNT program version 2.0 to ; add FX-80 specific comand sequences. ; ;-------------------- CONFIGURATION -------------------- ; FALSE EQU 0 TRUE EQU NOT FALSE ; ;The value HELPCHR should be set to the single character ;prompt for HELP output. ; HELPCHR EQU '?' ;use question mark ; ;Set CMDHLP true if an invalid command entry is to cause ;display of the full help text. Set it false to limit ;help to explicit requests. ; CMDHLP EQU FALSE ;full help needed ; ;The HELPLIN parameter determines the number of commands that will ;be displayed on each help output line. The value can be any positive ;integer (0...). ; HELPLIN EQU 5 ;number of commands listed per line ; ;CASEUP controls conversion of console input to upper case. ;Set true to convert all lower case characters to upper case. ;A false value will leave all input as it was received. ; CASEUP EQU TRUE ;convert to upper case ; ;-------------------- CP/M DEFINITION -------------------- ; BDOS EQU 05H ;BDOS entry CONOUT EQU 02H ;console output byte LIST EQU 05H ;list output byte PSTRING EQU 09H ;console output string CINPUT EQU 0AH ;console input line CR EQU 0DH ;carriage return LF EQU 0AH ;line feed VT EQU 0BH ;vertical tab ESC EQU 1BH ;escape ; ;-------------------- MAIN PROGRAM -------------------- ; START ORG 100H JMP FXPRNT ;jump around signon message ; ; Following is the triple-purpose buffer ; ; 1. TYPEable text when in COMmand file format ; 2. The SIGNON message displayed on the console ; each time the program is run ; 3. After signon, the first 128 bytes are used ; for the console command input buffer ; SIGNON: DB CR DB LF,LF,LF,LF,LF,LF,LF,LF,LF,LF,LF,LF,LF,LF,LF,LF DB LF,LF,LF,LF,LF,LF,LF,LF,LF,LF,LF,LF,LF,LF,LF,LF DB VT,VT,VT,VT,VT,VT,VT,VT,VT,VT,VT,VT DB VT,VT,VT,VT,VT,VT,VT,VT,VT,VT,VT ; DB 'Epson FX Printer Setup (level ' DB (VERSION/10)+'0','.',(VERSION MOD 10)+'0',')' DB CR,LF,'Copyright 1983 by George F Peace' DB CR,LF,CR,LF,'Enter commands one per line as required.' DB CR,LF DB CR,LF,'Enter ',HELPCHR,' for help.' DB CR,LF,'$',CR,' ','Z'-40H IF NOT ($-SIGNON) / 128 DS 128-($-SIGNON) ;complete the command buffer ENDIF ; ;-------------------- MAIN PROGRAM -------------------- ; FXPRNT: LXI H,NOTHOME ;get nobody-home exit address SHLD START+1 ;so we won't allow restart in memory LXI D,SIGNON ;load signon message address CALL PRINT ;display it on the console MVI A,128-1 ;get maximum input character count STA SIGNON ;put it in the input buffer CMDGET: XRA A ;get a zero value STA COMMAND ;obliterate last command LXI D,INPUTM ;get input prompt CALL PRINT ;display it on the console LXI D,CMDBUF ;command input buffer MVI C,CINPUT ;set to get input line CALL BDOS ;now get the input line LDA COMMAND ;get first character of command CPI HELPCHR ;request for help? JZ HELP ;yes - go provide some help LXI D,CHRCNT ;get address of char count byte LDAX D ;load number of characters CPI 0 ;was character count zero? JZ DONE ;yes, assume we are all done DECODE: LXI H,CMDTAB ;list of commands/actions AGAIN: XRA A ;zero the accumulator CMP M ;compare to memory JZ CMDERR ;no match found MOV C,M ;load the character count INX H ;increment to first letter LXI D,COMMAND ;point to command input buffer LDA CHRCNT ;load input character count MOV B,A ;now move it to B NXTCHR: LDAX D ;get command character IF CASEUP CPI 'A'+20H ;is character less than 'a'? JC UPPER ;yes - no conversion needed CPI 'Z'+20H ;is character greater than 'z'? JNC UPPER ;yes - no conversion needed SUI 20H ;convert lower case to upper UPPER: ENDIF CMP M ;compare with input character JNZ NXTCMD ;no match, try next command INX H ;match, increment command table address INX D ; and input buffer address DCR C ;decrement command table character count JZ NOMORE ;all done if no more characters DCR B ;decrement input character count JNZ NXTCHR ;go process more if nonzero count NOLOOP: INX H ;increment command table pointer DCR C ;decrement character count JNZ NOLOOP ;keep going until past command NOMORE: MOV E,M ;get low string address into E INX H ;bump command table pointer MOV D,M ;get high string address into D XCHG ;put address into HL CALL PROUT ;call list output routine JMP CMDGET ;get next command NXTCMD: INR C ;increment char count past address INR C ;second byte NOTYET: INX H ;increment list address DCR C ;decrement command character count JNZ NOTYET ;keep going until past the command JMP AGAIN ;at next command, process it ; NOTHOME: LXI D,GETOUT ;get the no trespassing message CALL PRINT ;and display it before exiting ; DONE: LXI D,CRLF ;finish up with a CR/LF CALL PRINT ;print it on the console RET ;and return to CP/M ; ;-------------------- SUBROUTINES -------------------- ; CMDERR: LXI D,ERRMSG ;load error message address CALL PRINT ;print error message on console IF NOT CMDHLP LXI D,HELPM0 ;get help reminder CALL PRINT ;and display it on the console JMP CMDGET ;now go get next command line ENDIF HELP: LXI D,HELPM1 ;load up help message address CALL PRINT ;print it on the console XRA A ;zero the accumulator STA HELCNT ;and zero the help command tally LXI H,CMDTAB ;get command table address HELCMD: XRA A ;zero the accumulator CMP M ;end of table? JZ HELEND ;yes - so get out MOV C,M ;get command length INX H ;increment to first byte of command HELOOP: MOV E,M ;load next character of command PUSH B ;save character count PUSH H ;save command table pointer MVI C,CONOUT ;set console output CALL BDOS ;and output byte to console POP H ;restore command table pointer POP B ;restore character count INX H ;increment to next byte DCR C ;decrement character count JNZ HELOOP ;go back if more characters INX H ;increment past INX H ; string address LDA HELCNT ;get count of commands displayed INR A ;increment to show latest entry STA HELCNT ;replace help count CPI HELPLIN ;have configured number yet? JZ HELOOP2 ;finish off the line with a CR/LF LXI D,COMMA ;get comma definition address PUSH B ;save character count PUSH H ;save command table pointer CALL PRINT ;display the string on the console POP H ;restore command table pointer POP B ;restore character count JMP HELCMD ;go get next command HELOOP2: LXI D,CRLF ;load CR/LF address PUSH B ;save character count PUSH H ;save command table pointer CALL PRINT ;send CR/LF to console POP H ;restore command table pointer POP B ;restore character count XRA A ;clear accumulator to zeros STA HELCNT ;zero help count for next line JMP HELCMD ;go process next command HELEND: LXI D,HELPM2 ;get help message address CALL PRINT ;display on console JMP CMDGET ;go get the next command line ; HELCNT DB 0 ;local storage for print count ; PROUT: MOV E,M ;byte to E for list output MOV A,M ;and to A for test MVI C,LIST ;get list output code CPI '$' ;is this the string terminator? RZ ;yes - so return to caller PUSH H ;save string pointer CALL BDOS ;now fire off the request POP H ;restore string pointer INX H ;increment to next string byte JMP PROUT ;and go back for more PRINT: MVI C,PSTRING ;print string function CALL BDOS ;send the string to the console RET ;return to caller ; ;-------------------- COMMAND INPUT BUFFER -------------------- ; CMDBUF EQU SIGNON ;command buffer CHRCNT EQU CMDBUF+1 ;input character count COMMAND EQU CMDBUF+2 ;actual command address ; ;-------------------- COMMAND LOOKUP TABLE -------------------- ; CMDTAB: DB 6,'CELITE' ;centered elite mode DW CELITE DB 9,'CONDENSED' ;condensed print mode DW COND DB 6,'DOUBLE' ;double srike mode DW DOUBLE DB 5,'ELITE' ;ELITE print mode DW ELITE DB 10,'EMPHASIZED' ;emphasized print mode DW EMPHA DB 7,'ITALICS' ;italics character set DW ITALIC DB 6,'NORMAL' ;turn off funny modes DW NORMAL DB 6,'NOSKIP' ;cancel perforation skip DW NOSKIP DB 4,'PICA' ;PICA print mode DW NORMAL DB 12,'PROPORTIONAL' ;set/clear proportional spacing DW PROPOR DB 5,'QUIET' ;set/clear half speed mode DW QUIET DB 5,'RESET' ;Reset printer DW RESET DB 6,'RIGHT0' ;reset left margin to 0 columns DW RIGHT0 DB 6,'RIGHT8' ;move page right 8 characters DW RIGHT8 DB 5,'SKIP3' ;set to skip 3 lines at perf DW SKIP3 DB 5,'SKIP6' ;set to skip 6 lines at perf DW SKIP6 DB 8,'STANDARD' ;standard character set DW NORMAL DB 3,'SUB' ;set subscript mode DW SUBS DB 5,'SUPER' ;set superscript mode DW SUPERS DB 4,'TAB8' ;set horizontal tabs DW TAB8 DB 8,'VIEWMODE' ;sets incremental or view mode DW VIEW DB 4,'6LPI' ;six lines per inch DW LPI6 DB 4,'8LPI' ;eight lines per inch DW LPI8 DB 4,'9LPI' ;nine lines per inch DW LPI9 DB 5,'12LPI' ;special 12lpi condensed print DW LPI12 DB 5,'64COL' ;64 characters per line DW COL64 DB 5,'80COL' ;80 characters per line DW COL80 DB 5,'96COL' ;96 characters per line DW COL96 DB 6,'132COL' ;132 characters per line DW COL132 DB 6,'137COL' ;137 characters per line DW COL137 DB 0 ;command table terminator ; ;-------------------- PRINTER OUTPUT STRINGS -------------------- ; CELITE DB ESC,'!',1,ESC,'l',8,'$' COL64 DB ESC,'Q',64,'$' COL80 DB ESC,'Q',80,'$' COL96 DB ESC,'Q',96,'$' COL132 DB ESC,'Q',132,'$' COL137 DB ESC,'Q',137,'$' COND DB ESC,'!',4,'$' DOUBLE DB ESC,'!',16,'$' ELITE DB ESC,'!',1,'$' EMPHA DB ESC,'!',8,'$' ITALIC DB ESC,'4',ESC,'$' LPI6 DB ESC,'2',ESC,'C',66,'$' LPI8 DB ESC,'0',ESC,'C',88,'$' LPI9 DB ESC,'3',24,ESC,'C',99,'$' LPI12 DB ESC,'3',18,ESC,'C',0,11,ESC,'S',1,ESC,'!',4 DB ESC,'Q',137,ESC,'l',0,ESC,'N',6,'$' NORMAL DB ESC,'!',0,'$' NOSKIP DB ESC,'O','$' PROPOR DB ESC,'p',1,'$' QUIET DB ESC,'s',1,'$' RESET DB ESC,'@','$' RIGHT0 DB ESC,'l',0,'$' RIGHT8 DB ESC,'l',8,'$' SKIP3 DB ESC,'N',3,'$' SKIP6 DB ESC,'N',6,'$' SUBS DB ESC,'S',1,'$' SUPERS DB ESC,'S',0,'$' TAB8 DB ESC,'D',9,17,25,33,41,49,57,65,73,81,89,97,115,123,131,0,'$' VIEW DB ESC,'i','$' ; ;-------------------- CONSOLE OUTPUT STRINGS -------------------- ; INPUTM DB CR,LF,'Enter command (or CR): ','$' ERRMSG DB CR,LF,'Unrecognized command','$' HELPM0 DB CR,LF,'Enter ',HELPCHR,' for help.' DB CR,LF,'$' HELPM1 DB CR,LF DB CR,LF,'The following commands are recognized:' DB CR,LF,CR,LF,'$' HELPM2 DB CR,LF DB CR,LF,'Control-C (^C) or carriage return will terminate' DB CR,LF,'the program.' DB CR,LF DB CR,LF,'Each command entered may be abbreviated to the' DB CR,LF,'minimum number of characters needed to uniquely' DB CR,LF,'identify it.' DB CR,LF,'$' GETOUT DB CR,LF,CR,LF,'No program in memory.',CR,LF,'$' CRLF DB CR,LF,'$' COMMA DB ', ','$' END START