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 >
Text File  |  1993-01-21  |  2KB  |  55 lines
  1. 00010H                                      SYSDV1
  2. 00020F* THIS PROGRAM WILL WRITE OUT THE SELECTED BYTES
  3. 00030FINFILE1 IP  F    512           DISK
  4. 00040FDVPARM  IC  F     12           DISK
  5. 00050FFFPARM  UC  F     12           DISK
  6. 00060FOUTFIL1 O   F    512           DISK
  7. 00070IINFILE1 AA  01
  8. 00080I                          1 256 REC1
  9. 00090I                        257 512 REC2
  10. 00100IDVPARM  CC  03
  11. 00110I                          1   8 FFNMSC
  12. 00120I                          9  11 FXNMSC
  13. 00130I                         12  120TYPESC
  14. 00140IFFPARM  DD  04
  15. 00150I                          1  12 OUTNSC
  16. 00160I                          6   8 FILNSC
  17. 00170C*****************************
  18. 00180C* ADD 1 TO NUMBER OF BYTES READ IN
  19. 00190C*****************************
  20. 00200C               ADD    512      BYTSIN  90
  21. 00210C*****************************
  22. 00220C* DO ONE CHAIN TO THE PARAMETERS FILE
  23. 00230C*****************************
  24. 00240C         START       IFLT '1'
  25. 00250C         1       CHAINDVPARM             50
  26. 00260C         1       CHAINFFPARM             50
  27. 00270C*            Z-ADD1106944   COUNT   90
  28. 00280C*            Z-ADD553472      COUNT   90
  29. 00290C               Z-ADD2048      COUNT   90
  30. 00300C               ADD    1      FILNSC  30
  31. 00310C               MOVE '1'      START   1
  32. 00320C               END
  33. 00330C*
  34. 00340C*****************************
  35. 00350C* IF THE BYTES READ IN IS EQUAL TO OR GREATER THAN
  36. 00360C*    THE STARTING BYTE PARAMETER -- AND
  37. 00370C*      LESS THAN OR EQUAL TO THE ENDING BYTE
  38. 00380C*      PARAMETER, THEN WRITE THAT BYTE TO THE
  39. 00390C*      OUTPUT FILE
  40. 00400C*****************************
  41. 00410C         BYTSIN    IFLE COUNT
  42. 00420C               EXCPTOUT1
  43. 00430C         BYTSIN    IFGT COUNT
  44. 00440C               EXCPTOUT1
  45. 00450C         1       CHAINFFPARM             50
  46. 00460C*            ADD    1106944   COUNT
  47. 00470C*            ADD    553472      COUNT
  48. 00480C               ADD    2048      COUNT
  49. 00490C               ADD    1      FILNSC  30
  50. 00500C               END
  51. 00510C               END
  52. 00520OOUTFIL1 E            OUT1
  53. 00530O                   REC1    256
  54. 00540O                   REC2    512
  55.