IMD 1.17: 24/12/2010 11:59:20 vsysgen x3.098 vsysgen.asm vsysgen.dif 4/8/83 مممممممممممممممVSYSGEN ASMw VSYSGEN DIFممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممم;.Date : 4/8/83 ;.Author : DEB & YMK & WSJ ;.Title : ENCORE SYSGEN : Rev X3.098 ;.Comments: ALPHA TEST ; +---------------+ ; | | ; | ENCORE SYSGEN | ; | | ; +---------------+ ;X.0 Changed menu's : deb ;X.1 Change neme vixen to express : ykm ; Add write protected on destination diskette message : ykm ; Put write proteced error detect routine : ykm ; Change message (get from drive a to get system from drive a) : ymk ; Display error message in line 20 : ymk ; Delete ^c function key to return to CP/M. : ymk ; Eliminate screen flashing when change menu : ymk ; Add file name in the error message when CP/M load from file. : ymk ; Add file size is too big error message when file size is too big : ymk ; Change error message from Premature end of file encountered to file size is too small. : ymk ;X.2 Cleaned code : deb ;X.3 Changed interface to rom : deb ; Remove selection message when display writing(reading) system : ymk ; Display copywrite message : ymk ; Change ESC sequence for reverse video ; ESC ) -> ESC j, ESC ( -> ESC k : ymk ; (1)Change message "Press ESC to exit..." to "Press ESC to exit to CP/M..." : ymk ; (2)Change message "...Return to exit." to "... Return for Previous menu" : ymk ; (3)Beep on error message : ymk ; (4)Reverse video for error message ( read, write) : ymk ; (5)Change message "try again." to "retry" : ymk ; (6)Change message "No system on this file" to " No SYSTEM in the file" : ymk ; Chnaged name to ENCORE : deb ; Final before ALPHA : deb ;X3.094 Changed rev : deb ;X3.098 Changed WRTSYS message : deb : bug number 3 ; Changed WRER1 message : deb : bug number 40 ; Changed BSYSD message : deb : bug number 40 ; Changed BSYSF message : deb : bug number 40 ; Changed IBMERR message : deb : bug number 40 ; Changed OPNERR message : deb : bug number 40 ; Changed EOFERR message : deb : bug number 40 ; Changed EOFER1 message : deb : bug number 40 DSK_STS = 00H ;Floppy disk status register IBMTYP = 8 ;IBM SAVTYP SINGTYP = 5 ;SINGLE DENSITY OSBORNE SAVTYP DOUBTYP = 0CH ;DOUBLE DENSITY OSBORNE SAVTYP IBMSEC = 8 ;# OF SECTORS/TRACK FOR IBM SINGSEC = 10 ;# OF SECTORS/TRACK FOR OSBORNE SINGLE DENSITY DOUBSEC = 5 ;# OF SECTORS/TRACK FOR OSBORNE DOUBLE DENSITY CCP = 0BF00H ;CCP START ADDRESS N128BS = 60 ;NUMBER OF 128 BYTE BLOCK IN THE SYSTEM WBSEC = 44 ;NUMBER OF 128 BYTE SECTORS IN WARM BOOT SECSIZ = 128 ;SIZE OF CP/M LOGICAL SECTOR LDBUF = 980h ;Disk xfer buffer CONO = 2 ;CONSOLE OUTPUT FUNCTION BEL = 07H ;BELL CR = 0DH ESC = 01BH FCB = 05CH ORGP = 0100H SYS = 05 SYSR = 0 BUFF = 04000H ;BUFFER FOR DRIVE TRANSFERS ;TRANSFER RAM MEMORY LOCATIONS DMADR: = 0EFF7H ;(2) DISK DMA ADDRESS SAVTYP = 0EFF9H ;(1) DISK TYPE SDISK: = 0EFFAH ;(1) DISK IN USE SAVTRK: = 0EFFBH ;(2) TRACK SAVSEC: = 0EFFDH ;(1) SECTOR ;ROM JUMP VECTORS RSEC: = 0F10FH ;READ A SECTOR WSEC: = 0F112H ;WRITE A SECTOR SENDEN: = 0F115H ;SENCE DENSITY ROUTINE PAGE ORG ORGP  PROC LDK SP,STK ;set local stk LDK HL,IMSG CALL PRINT ;initial sign on ;CHECK IF A DEFAULT FILE NAME IS PROVIDED LD A,FCB+1 CMP ' ' JZ GETSYS ;NO FILE SO GET SYSTEM LDK HL,RDSYS CALL PRINT ;READING SYSTEM MESSAGE ;OPEN FILE LDK DE,FCB CALL OPENF INC A JNZ :1 ;IF FILE COULD BE OPENED ;OUPUT ERROR MSG AND RETURN TO SYSTEM LDK HL,OPNERR JMP :6 ;ERROR ;READ SYSTEM FROM THE FILE (SKIP SECTORS FROM FILE EQUAL TO LDBUF-ORGP) :1: LDK HL,BUFF CALL SETDMA ;SET DMA ADDRESS LDK B,(LDBUF-ORGP)/SECSIZ ;NUMBER OF SECTORS TO THROW AWAY :2: PUSH BC LDK DE,FCB CALL READSK POP BC OR A JZ :3 ;IF NO ERRORS ;IF ERROR IN READ LDK HL,EOFERR JMP :6 ;ERROR :3: DJNZ :2 ;READ THE REMAINING FILE INTO LDBUF LDK HL,LDBUF :4: PUSH HL CALL SETDMA ;SET DMA LDK DE,FCB CALL READSK ;READ SECTOR POP HL ;CHECK FOR EOF OR A JNZ :5 ;jump WHEN EOF ENCOUNTERED ;INC DMA LDK DE,SECSIZ ;ADVANCE DMA ADRS TO NEXT SECTOR ADD HL,DE PUSH HL ;SAVE LDK DE,-CCP ;IS PASSED CCP AREA ? ADD HL,DE POP HL JC :7 ;YES-OH! PROBLEM. JMP :4 ;LOOP :7: LDK HL,EOFER1 ;FILE SIZE IS TOO BIG JMP :6 ;CHECK CPM :5: LD A,LDBUF ;GET FIRST BYTE CMP 0C3H JZ PUTSYS ;IF GOOD ;PRINT ERROR AND QUIT OR TRY AGAIN LDK HL,BSYSF :6: CALL PRINT CALL DISPFN CALL CKQUI1 JZ RESYSR CALL GETSYS ;ERROR RET PAGE DISPFN: ;DISPLAY FILE NAME ;ENTRY ;NONE ;EXIT ;NONE PROC LDK HL,FLNAM1 CALL PRINT ;OUTPUT ESC LDK HL,FCB+1 ;FROM, MOVE FILE NAME LDK B,8 :1: LD A,[HL] CPI ' ' ;IS END OF FILE NAME ? JZ :2 ;YES- CALL OCHR INC HL DJNZ :1 :2: LDK HL,FCB+9 ;CHECK EXTENTION LD A,[HL] CPI ' ' JZ :3 LDK A,'.' CALL OCHR LD A,[HL] CALL OCHR INC HL LD A,[HL] ;CHECK NEXT FILE EXTENTION CPI ' ' JZ :3 CALL OCHR INC HL LD A,[HL] CPI ' ' JZ :3 CALL OCHR :3: LDK HL,FLNAM2 ;OUTPUT ESC CALL PRINT RET PAGE CIN: ;GET A CHARACTER ;ENTRY ;NONE ;EXIT ;A = CHARACTER PROC LDK E,0FFH LDK C,6 CALL SYS ORA A JZ CIN ;loop till character RET OCHR: ;Output character to console ;ENTRY ;A = char ;EXIT ;NONE PROC PUSH HL PUSH BC MOV E,A LDK C,CONO CALL SYS POP BC POP HL RET PRINT: ;Output string LD A,[hl] OR A RZ ;if end PUSH HL CALL OCHR POP HL INC HL JMP PRINT ;LOOP PAGE READSK: ;BDOS FUNCTIONS TO READ FILE LDK C,14H CALL SYS RET OPENF: ;BDOS FUNCTION TO OPEN FILE LDK C,0FH CALL SYS RET SETDMA: ;BDOS FUNCTION TO SET THE DMA ADDRESS ;ENTRY ;HL = DMA ADDRESS EX DE,HL LDK C,1AH CALL SYS RET PAGE GETSYS: ;GET SYSTEM FROM DISK DRIVE PROC LDK HL,ASKGET ;PRINT MESSAGE CALL PRINT ;GET RESPONCE :1: CALL CIN CMP CR JZ RESYSR ;if request to quit ANI 5FH CMP 'A' JZ :2 ;IF A CMP 'B' JZ :2 ;IF B CMP 'M' JNZ :1 ;LOOP IF NOT 'M' ;CHECK CPM IN MEMORY LD A,LDBUF ;GET FIRST BYTE CMP 0C3H JZ PUTSYS ;IF GOOD ;PRINT ERROR AND QUIT OR TRY AGAIN LDK HL,BSYSM CALL CKQUIT JZ RESYSR ;QUIT JMP GTRYAG ;GET SYSTEM ;SELECT DISK GIVEN BY REGISTER A :2: STO A,GDISK ;PUT IN MESSAGE SUI 'A' STO A,SDISK ;SET DRIVE ;OUTPUT MESSAGE LDK HL,GETMSG CALL PRINT ;GET RESPONCE :3: CALL CIN CMP CR JNZ :3 ;LOOP IF NOT CR ;OUTPUT MESSAGE LDK HL,RDSYS CALL PRINT ;READING SYSTEM MESSAGE ;SET RW TO READ AND GET THE SYSTEM XRA A STO A,RW ;set flag for READ CALL GETPUT ;Get system into memory JZ :4 ;IF NO ERRORS ;PRINT ERROR AND QUIT OR TRY AGAIN LDK HL,READERR CALL CKQUIT JZ RESYSR ;QUIT GTRYAG: LDK HL,CLEP20 CALL PRINT LDK HL,ASKGE1 CALL PRINT JMP :1 ;Try again ;CHECK SYSTEM :4: LD A,BUFF CMP 0C3h JZ :5 ;if 1st byte is JMP ;PRINT ERROR AND QUIT OR TRY AGAIN LDK HL,BSYSD CALL CKQUIT JZ RESYSR ;QUIT JMP GTRYAG  ;Try again ;MOVE BUFFER FROM 4000 TO LDBUF :5: LDK HL,BUFF ;where CP/M is left after movcpm LDK DE,LDBUF ;DESTINATION LDK BC,128*N128BS ;NUMBER OF BYTES IN THE SYSTEM LDIR ;MOVE SYSTEM ABOVE 04000H CALL PUTSYS ;FALLS THROUGH TO PUTSYS RET PAGE PUTSYS: ;Now put the system on user requested disk PROC ;OUTPUT MESSAGE LDK HL,ASKPUT CALL PRINT ;GET RESPONCE :1: CALL CIN CMP CR JZ RESYSR ;if request to quit ANI 5FH CMP 'A' JZ :2 ;IF A CMP 'B' JNZ :1 ;LOOP IF NOT B ;SELECT DISK GIVEN BY REGISTER A :2: STO A,PDISK ;PUT IN MESSAGE SUI 'A' STO A,SDISK ;SET DRIVE ;OUTPUT MESSAGE LDK HL,PUTMSG CALL PRINT ;GET RESPONCE :3: CALL CIN CMP CR JNZ :3 ;LOOP IF NOT CR ;OUTPUT MESSAGE LDK HL,WRTSYS CALL PRINT ;WRITTING SYSTEM MESSAGE ;MOVE BUFFER FROM LDBUF TO BUFF LDK HL,LDBUF ;where CP/M is left after movcpm LDK DE,BUFF ;DESTINATION LDK BC,128*N128BS ;NUMBER OF BYTES IN THE SYSTEM LDIR  ;MOVE SYSTEM ABOVE 04000H ;SET RW TO WRITE LDK HL,RW STO 1,[HL] CALL GETPUT ;TO PUT SYSTEM BACK ON DISKETTE JZ PTRYAG ;IF NO ERRORS ;PRINT ERROR AND QUIT OR TRY AGAIN IN DSK_STS ;READ FDC STATUS ANI 40H ;IS WRITE PROTECTED ? LDK HL,WRERR JZ :4 ;NO- HARD ERROR LDK HL,WRER1 ;WRITE PROTECTED ERROR :4: CALL CKQUIT JZ RESYSR ;QUIT PTRYAG: LDK HL,CLEP20 CALL PRINT LDK HL,ASKPU1 CALL PRINT JMP :1 ;Try again PAGE RESYSR: ;RETURN TO SYSTEM LDK A,'Z'-40H CALL OCHR XRA A STO A,SDISK ;SET DRIVE CALL SYSR RET PAGE GETPUT: ;Get or PUT cpm onto disk requested ;ENTRY ;RW = 0 if read, 1 if WRITE ;EXIT ;ZBIT = RESET IF ERROR PROC LDK HL,BUFF STO HL,DMADR ;SET DMA ADDR ;Main loop for reading or writing next Track LDK A,1 STO A,SAVSEC ;set sector *SET "SAVTYP" AND GET NUMBER OF SECTORS PER TRACK CALL SENDEN ;SENCE DENSITY AND SET SAVTYP RNZ ;RETURN IF ERROR PUSH BC ;SAVE NUMBER OF SECTORS IN ONE TRACK ;CHECK FOR VALID FORMAT AND SET D=NUMBER OF 128 BYTE SECTORS TO READ CALL CHKTYP RNZ ;RETURN IF ERROR *SET NUMBER OF SECTORS TO READ LD A,SAVTYP SRL A SRL A ANI 0000_0011B ;A=NUMBER OF BYTES IN ONE SECTOR(0-3) JZ :2 ;IF 128 BYTES SECTORS ;GET NUMBER TO DIVIDE BY MOV B,A ;B=NUMBER OF BYTES IN ONE SECTOR(1-3) LDK A,1 :1LOOP: SLA A ;TIMES TWO DJNZ :1LOOP MOV B,A ;NUMBER TO DIVIDE BY MOV A,D ;A=NUMBER OF 128 BYTE BLOCKS LDK D,0 :2LOOP: SUB B ;SUBTRACK WITH DIVISOR EX AF ;SAVE FLAGS INC D ;COUNT EX AF ;RESTORE FLAGS JZ :2 ;IF REZULT IS ZERO (NO PARTIAL SECTORS) JNC :2LOOP ;LOOP :2: POP BC ;B=NUMBER OF SECTORS IN ONE TRACK MOV C,D ;C=NUMBER OF SECTORS TO READ *READ SYSTEM XRA A ;A=0 :TLOOP: STO A,SAVTRK ;SET TRACK ;CHECK FOR ALL SECTORS READ MOV A,C ;SECTORS TO READ ORA A RZ ;RETURN IF DONE ;UPDATE NUMBER OF SECTORS LEFT TO READ SUB B ;SUBTRACK SECTORS IN ONE TRACK JNC :3 ;A>B MORE THAN ONE TRACK LEFT TO READ ;IF THIS IS LAST TRACK ZERO NUMBER OF SECTORS LEFT TO READ MOV B,C ;READ ALL THE REMAINING SECTORS XRA A ;STOP AFTER THIS READ ;R/W ONE TRACK :3: MOV C,A ;SAVE REMAINING SECTORS TO READ LD A,RW ORA A JZ :4 ;IF READ CALL WSEC ;WRITE RNZ ;RETURN IF ERROR JMP :5 ;SKIP READ IF WRITE :4: CALL RSEC ;READ RNZ ;RETURN IF ERROR ;UPDATE DMA :5: STO HL,DMADR ;SET DMA ;UPDATE TRACK LD A,SAVTRK INC A JMP :TLOOP ;TRACK LOOP PAGE CHKTYP: ;CHECK FOR VALID FORMAT FOR SYSGEN ;ENTRY ;SAVTYP SET ;B = NUMBER OF SECTORS ;EXIT ;ZBIT = RESET IF NOT VALID ;D = NUMBER OF 128 BYTE BLOCKS IN SYSTEM PROC LDK HL,SAVTYP LD A,[HL] ;GET TYPE ;CHECK FOR OSBORNE SINGLE DENSITY CPI SINGTYP JNZ :C10 ;IF NOT OSBORNE SINGLE MOV A,B CPI SINGSEC JNZ :C30 ;IF NOT OSBORNE LDK D,N128BS RET ;RETURN NUMBER OF SECTORS FOR OSBORNE ;CHECK FOR OSBORNE DOUBLE DENSITY :C10: CPI DOUBTYP JNZ :C20 ;IF NOT OSBORNE DOUBLE MOV A,B CPI DOUBSEC JNZ :C30 ;IF NOT OSBORNE LDK D,N128BS RET ;RETURN NUMBER OF SECTORS FOR OSBORNE :C20: LD A,RW ;CHECK FOR READ OR WRITE ORA A JNZ :C30 ;CAN WRITE TO NON-OSBORNE LDK HL,NONOSB CALL PRINT CALL BEEP ORI 0FFH RET ;IF NOT OSBORNE ON READ ;CHECK FOR IBM FORMAT :C30: CPI IBMTYP JNZ :C40 ;IF NOT IBM MOV A,B CPI IBMSEC JNZ :C40 ;IF NOT IBM LDK HL,IBMERR CALL PRINT ;ERROR IF IBM CALL BEEP ORI 0FFH RET ;RETURN ERROR ;OTHER FORMAT :C40: LDK HL,WBMES CALL PRINT ;ASK IF WANTS TO PUT WARM BOOT ON DISK CALL BEEP CALL CIN ANI 5FH ;UPPER CASE CPI 'Y' RNZ ;RETURN IF NOT 'Y' LDK D,WBSEC ;NUMBER OF SECTORS FOR WARM BOOT XRA A RET ;RETURN NO ERROR PAGE CKQUIT: ;FIND OUT IF USER WANTS TO QUIT ;ENTRY ;HL = MESSAGE ADDRESS ;EXIT ;Z = SET IF QUIT REQUESTED PROC CALL PRINT ;PRINT MESSAGE CKQUI1: CALL BEEP  LDK HL,QUITMES CALL PRINT ;ASK CONTINUE OR QUIT CALL CIN CMP ESC RET ;RETURN PAGE BEEP: ;BEEP ;ENTRY ;NONE ;EXIT ;NONE PROC LDK A,BEL CALL OCHR RET ;RETURN PAGE IMSG: DB 'Z'-40H DB ESC,'=',0+32,22+32,ESC,'j ENCORE System Generation Program ',ESC,'k' DB ESC,'=',1+32,16+32,'Rev X3.098 ' DB ESC,'g' ;ON GRAPHIC MODE DB 'S'-40H ;COPYWRITE SYMBOL DB ESC,'G' ;OFF GRAPHIC MODE DB ' 1983 OSBORNE SOFTWARE TEST ONLY' DB 0 CLEP20: DB ESC,'=',20+32,01+32,ESC,'Y',0 FLNAM1: DB ' ',ESC,'j ',0 FLNAM2: Dآ ' ',ESC,'k',0 RDSYS: DB ESC,'=',20+32,4+32,'READING SYSTEM.',ESC,'Y',0 WRTSYS: DB ESC,'=',20+32,4+32,'WRITING SYSTEM.',ESC,'Y',0 ASKGET: DB ESC,'=',8+32,4+32,ESC,'Y' DB 'A ',ESC,'j GET SYSTEM FROM DRIVE A ',ESC,'k' DB ESC,'=',10+32,4+32,'B ',ESC,'j GET SYSTEM FROM DRIVE B ',ESC,'k' DB ESC,'=',12+32,4+32,'M ',ESC,'j GET SYSTEM FROM MEMORY ',ESC,'k' ASKGE1: DB ESC,'=',23+32,4+32,'Press A, B, M, or RETURN to exit to CP/M.',0  ASKPUT: DB ESC,'=',8+32,4+32,ESC,'Y' DB 'A ',ESC,'j SAVE SYSTEM ON DRIVE A ',ESC,'k' DB ESC,'=',10+32,4+32,'B ',ESC,'j SAVE SYSTEM ON DRIVE B ',ESC,'k' ASKPU1: DB ESC,'=',23+32,4+32,'Press A, B, or RETURN to exit to CP/M.',0 GETMSG: DB ESC,'=',23+32,4+32,'Put SOURCE diskette in drive ' DB ESC,'j ' GDISK: DB ' ' DB ESC,'k' DB ' then press RETURN.',0 PUTMSG: DB ESC,'=',23+32,4+32,'Put DESTINATION diskette in drive ' DB ESC,'j ' PDISK: DB ' ' DB ESC,'k' DB ' then press RETURN.',0 NONOSB: DB ESC,'=',20+32,4+32,'Can only read the system off of an OSBORNE diskette.' DB ESC,'=',23+32,4+32,'Insert an Osborne disk and retry.',0 READERR: DB ESC,'=',20+32,4+32,ESC,'j READ ERROR ',ESC,'k on source diskette.',0 WRERR: DB ESC,'=',20+32,4+32,ESC,'j WRITE ERROR ',ESC,'k on destination diskette.',0 WRER1: DB ESC,'=',20+32,4+32,ESC,'j WRITE PROTECTED ',ESC,'k destination diskette.',0 BSYSD: DB ESC,'=',20+32,4+32,'No SYSTEM on the diskette.',0 BSYSM: DB ESC,'=',20+32,4+32,'No SYSTEM in memory.',0 BSYSF: DB ESC,'=',20+32,4+32,'No SYSTEM in the file.',0 IBMERR: DB ESC,'=',20+32,4+32,'Can''t sysgen IBM diskettes.',0 WBMES: DB ESC,'=',20+32,4+32,'Osborne warm boot capability can be placed on this diskette, but this will' DB ESC,'=',21+32,4+32,'destroy any other booting capabilities already on this diskette.' DB ESC,'=',23+32,4+32,'Do you wish to do this (Y/N)?',0 OPNERR: DB ESC,'=',20+32,4+32,'ERROR Cannot open source file.',0 EOFERR: DB ESC,'=',20+32,4+32,'ERROR File size is too small.',0 EOFER1: DB ESC,'=',20+32,4+32,'ERROR File size is too big.',0 QUITMES: DB ESC,'=',23+32,4+32,ESC,'Y','Press ESC to exit to CP/M or any other key to retry.',0 RW: DS 1 ;READ IF 0, WRITE IF 1 DS 30*2 STK: DS 0 IF * > LDBUF .err MSG 'ERROR SYSGEN too large ', * ENDIF k destination diskette.',0 BSYSD: DB ESC,'=',20+32,4+32,'No SYSTEM on the diskette.',0 BSYSM: DB ESC,'=',20+32,4+32,'No SY-------- Line 1 of 'VSYSGEN.ASM' ---- ---;.Date : 4/8/83 ---;.Author : DEB & YMK & WSJ ---;.Title : ENCORE SYSGEN : Rev X3.098 ++++++++ Line 1 of 'I:VSYSGEN.ASM' ++++ +;.Date : 4/4/83 +;.Author : DEB & YMK & WSJ +;.Title : ENCORE SYSGEN : Rev X3.094 -------- Line 43 of 'VSYSGEN.ASM' ---- ---;X3.098 Changed WRTSYS message : deb : bug number 3 ---; Changed WRER1 message : deb : bug number 40 ---; Changed BSYSD message : deb : bug number 40 ---; Changed BSYSF message : deb : bug number 40 ---; Changed IBMERR message : deb : bug number 40 ---; Changed OPNERR message : deb : bug number 40 ---; Changed EOFERR message : deb : bug number 40 ---; Changed EOFER1 message : deb : bug number 40 --- ++++++++ Line 43 of 'I:VSYSGEN.ASM' ++++ -------- Line 776 of 'VSYSGEN.ASM' ---- --- DB ESC,'=',1+32,16+32,'Rev X3.098 ' ++++++++ Line 767 of 'I:VSYSGEN.ASM' ++++ + DB ESC,'=',1+32,16+32,'Rev X3.094 ' -------- Line 788 of 'VSYSGEN.ASM' ---- ---RDSYS: DB ESC,'=',20+32,4+32,'READING SYSTEM.',ESC,'Y',0 --- ---WRTSYS: DB ESC,'=',20+32,4+32,'WRITING SYSTEM.',ESC,'Y',0 ++++++++ Line 779 of 'I:VSYSGEN.ASM' ++++ +RDSYS: DB ESC,'=',20+32,4+32,'READING SYSTEM',ESC,'Y',0 + +WRTSYS: DB ESC,'=',20+32,4+32,'WRITTING SYSTEM',ESC,'Y',0 -------- Line 823 of 'VSYSGEN.ASM' ---- ---WRER1: DB ESC,'=',20+32,4+32,ESC,'j WRITE PROTECTED ',ESC,'k destination diskette.',0 --- ---BSYSD: DB ESC,'=',20+32,4+32,'No SYSTEM on the diskette.',0 ++++++++ Line 814 of 'I:VSYSGEN.ASM' ++++ +WRER1: DB ESC,'=',20+32,4+32,ESC,'j WRITE PROTECTED ',ESC,'k on destination diskette.',0 + +BSYSD: DB ESC,'=',20+32,4+32,'No SYSTEM in the diskette.',0 -------- Line 829 of 'VSYSGEN.ASM' ---- ---BSYSF: DB ESC,'=',20+32,4+32,'No SYSTEM in the file.',0 --- ---IBMERR: DB ESC,'=',20+32,4+32,'Can''t sysgen IBM diskettes.',0 ++++++++ Line 820 of 'I:VSYSGEN.ASM' ++++ +BSYSF: DB ESC,'=',20+32,4+32,'No SYSTEM in the file',0 + +IBMERR: DB ESC,'=',20+32,4+32,'Can''t sysgen IBM diskettes',0 -------- Line 837 of 'VSYSGEN.ASM' ---- ---OPNERR: DB ESC,'=',20+32,4+32,'ERROR Cannot open source file.',0 --- ---EOFERR: DB ESC,'=',20+32,4+32,'ERROR File size is too small.',0 --- ---EOFER1: DB ESC,'=',20+32,4+32,'ERROR File size is too big.',0 ++++++++ Line 828 of 'I:VSYSGEN.ASM' ++++ +OPNERR: DB ESC,'=',20+32,4+32,'ERROR cannot open source file',0 + +EOFERR: DB ESC,'=',20+32,4+32,'ERROR File size is too small',0 + +EOFER1: DB ESC,'=',20+32,4+32,'ERROR File size is too big',0  of 'I:VSYSGEN.ASM' ++++ +WRER1: DB ESC,'=',20+32,4+32,ESC,'j WRITE PROTECTED ',ESC,'k on destination diskette.',0 + +BSYSD: DB ESC,'=',20+32,4+32,'No SYSTEM in the diskette.',0 -------- Line 829 of 'VSYSGEN.ASM' ---- ---BSYSF: DB ESC,'=',20+32,4+32,'No SYSTEM in the file.',0 --- ---IBMERR: DB ESC,'=',20+32,4+32,'Can''t sysgen IBM diskettes.',0 ++++++++ Line 820 of 'I:VSYSGEN.ASM' ++++ +BSYSF: DB ESC,'=',20+32,4+32,'No SYSTEM in the file',0 + +IBMERR: DB ESC,'=',20+32,4+32,'Can''t sysgen IBM diskettes',0 -------- Line 837 of 'مممممممممم ممممم ممممم ممممم ممممم ممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممممم ممممم!ممممم"ممممم#ممممم$ممممم%ممممم&ممممم'ممممم