home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-386-Vol-2of3.iso
/
b
/
biteit.zip
/
SYSDV2.TST
< prev
next >
Wrap
Text File
|
1993-01-21
|
2KB
|
55 lines
00010H SYSDV1
00020F* THIS PROGRAM WILL WRITE OUT THE SELECTED BYTES
00030FINFILE1 IP F 512 DISK
00040FDVPARM IC F 12 DISK
00050FFFPARM UC F 12 DISK
00060FOUTFIL1 O F 512 DISK
00070IINFILE1 AA 01
00080I 1 256 REC1
00090I 257 512 REC2
00100IDVPARM CC 03
00110I 1 8 FFNMSC
00120I 9 11 FXNMSC
00130I 12 120TYPESC
00140IFFPARM DD 04
00150I 1 12 OUTNSC
00160I 6 8 FILNSC
00170C*****************************
00180C* ADD 1 TO NUMBER OF BYTES READ IN
00190C*****************************
00200C ADD 512 BYTSIN 90
00210C*****************************
00220C* DO ONE CHAIN TO THE PARAMETERS FILE
00230C*****************************
00240C START IFLT '1'
00250C 1 CHAINDVPARM 50
00260C 1 CHAINFFPARM 50
00270C* Z-ADD1106944 COUNT 90
00280C* Z-ADD553472 COUNT 90
00290C Z-ADD2048 COUNT 90
00300C ADD 1 FILNSC 30
00310C MOVE '1' START 1
00320C END
00330C*
00340C*****************************
00350C* IF THE BYTES READ IN IS EQUAL TO OR GREATER THAN
00360C* THE STARTING BYTE PARAMETER -- AND
00370C* LESS THAN OR EQUAL TO THE ENDING BYTE
00380C* PARAMETER, THEN WRITE THAT BYTE TO THE
00390C* OUTPUT FILE
00400C*****************************
00410C BYTSIN IFLE COUNT
00420C EXCPTOUT1
00430C BYTSIN IFGT COUNT
00440C EXCPTOUT1
00450C 1 CHAINFFPARM 50
00460C* ADD 1106944 COUNT
00470C* ADD 553472 COUNT
00480C ADD 2048 COUNT
00490C ADD 1 FILNSC 30
00500C END
00510C END
00520OOUTFIL1 E OUT1
00530O REC1 256
00540O REC2 512