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.SAV < prev    next >
Text File  |  1993-01-21  |  3KB  |  114 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. 00050FFILSEC1 O   F    512           DISK
  6. 00060FFILSEC2 O   F    512           DISK
  7. 00070FFILSEC3 O   F    512           DISK
  8. 00080FFILSEC4 O   F    512           DISK
  9. 00090FFILSEC5 O   F    512           DISK
  10. 00100FFILSEC6 O   F    512           DISK
  11. 00110F*ILSEC7 O   F    512           DISK
  12. 00120F*ILSEC8 O   F    512           DISK
  13. 00130F*ILSEC9 O   F    512           DISK
  14. 00140F*ILSECA O   F    512           DISK
  15. 00150IINFILE1 AA  01
  16. 00160I                          1 256 REC1
  17. 00170I                        257 512 REC2
  18. 00180IDVPARM  CC  03
  19. 00190I                          1   8 FFNMSC
  20. 00200I                          9  11 FXNMSC
  21. 00210I                         12  120TYPESC
  22. 00220C*****************************
  23. 00230C* ADD 1 TO NUMBER OF BYTES READ IN
  24. 00240C*****************************
  25. 00250C               ADD    512      BYTSIN  90
  26. 00260C*****************************
  27. 00270C* DO ONE CHAIN TO THE PARAMETERS FILE
  28. 00280C*****************************
  29. 00290C         START       IFLT '1'
  30. 00300C         1       CHAINDVPARM             50
  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    IFGT 0
  42. 00420C         BYTSIN    IFLE 1106944
  43. 00430C               EXCPTOUT1
  44. 00440C               END
  45. 00450C               END
  46. 00460C         BYTSIN    IFGT 1106944
  47. 00470C         BYTSIN    IFLE 2213888
  48. 00480C               EXCPTOUT2
  49. 00490C               END
  50. 00500C               END
  51. 00510C         BYTSIN    IFGT 2213888
  52. 00520C         BYTSIN    IFLE 3320832
  53. 00530C               EXCPTOUT3
  54. 00540C               END
  55. 00550C               END
  56. 00560C         BYTSIN    IFGT 3320832
  57. 00570C         BYTSIN    IFLE 4427776
  58. 00580C               EXCPTOUT4
  59. 00590C               END
  60. 00600C               END
  61. 00610C         BYTSIN    IFGT 4427776
  62. 00620C         BYTSIN    IFLE 5534720
  63. 00630C               EXCPTOUT5
  64. 00640C               END
  65. 00650C               END
  66. 00660C         BYTSIN    IFGT 5534720
  67. 00670C         BYTSIN    IFLE 9999999
  68. 00680C               EXCPTOUT6
  69. 00690C               END
  70. 00700C               END
  71. 00710C*      BYTSIN    IFLE 9999999
  72. 00720C*            EXCPTOUT7
  73. 00730C*            END
  74. 00740C*      BYTSIN    IFLE 9999999
  75. 00750C*            EXCPTOUT8
  76. 00760C*            END
  77. 00770C*      BYTSIN    IFLE 9999999
  78. 00780C*            EXCPTOUT9
  79. 00790C*            END
  80. 00800C*      BYTSIN    IFLE 9999999
  81. 00810C*            EXCPTOUTA
  82. 00820C               MOVE '1'      ONCE      1
  83. 00830C*            END
  84. 00840OFILSEC1 E            OUT1
  85. 00850O                   REC1    256
  86. 00860O                   REC2    512
  87. 00870OFILSEC2 E            OUT2
  88. 00880O                   REC1    256
  89. 00890O                   REC2    512
  90. 00900OFILSEC3 E            OUT3
  91. 00910O                   REC1    256
  92. 00920O                   REC2    512
  93. 00930OFILSEC4 E            OUT4
  94. 00940O                   REC1    256
  95. 00950O                   REC2    512
  96. 00960OFILSEC5 E            OUT5
  97. 00970O                   REC1    256
  98. 00980O                   REC2    512
  99. 00990OFILSEC6 E            OUT6
  100. 01000O                   REC1    256
  101. 01010O                   REC2    512
  102. 01020O*ILSEC7 E            OUT7
  103. 01030O*                REC1    256
  104. 01040O*                REC2    512
  105. 01050O*ILSEC8 E            OUT8
  106. 01060O*                REC1    256
  107. 01070O*                REC2    512
  108. 01080O*ILSEC9 E            OUT9
  109. 01090O*                REC1    256
  110. 01100O*                REC2    512
  111. 01110O*ILSECA E            OUTA
  112. 01120O*                REC1    256
  113. 01130O*                REC2    512
  114.