home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / ASMUTL / ASM002.ZIP / UPPATCH.ASM < prev   
Encoding:
Assembly Source File  |  1984-04-18  |  6.4 KB  |  204 lines
  1. ;up.com patch file    02/20/84
  2. ;    The up program is distributed with the Gemini printer equate
  3. ;    set to true. This should work with the Epson also.
  4. ;
  5. ;    For a list of the commands just type UP with nothing else
  6. ;    on the command line.
  7. ;
  8. ;    example of a valid command:
  9. ;
  10. ;    up uppatch.asm [dl8h]
  11. ;
  12. ;    The above line will cause the printer to print 8 lines per inch
  13. ;    in the compressed print mode with two pages of the file on one
  14. ;    page of the paper and cause a big block header page to be printed.
  15. ;
  16. ;    Set the equate for your printer and assemble this program.
  17. ;    If your printer is not listed here enter the values in the same format
  18. ;    as shown below.
  19. ;
  20. ;    Do the following steps to patch in the printer codes:
  21. ;
  22. ;    ASM UPPATCH;
  23. ;    LINK UPPATCH;
  24. ;    EXE2BIN UPPATCH UPPACTH.COM
  25. ;    DEBUG UP.COM
  26. ;    -NUPPATCH.COM
  27. ;    -L
  28. ;    -RCX
  29. ;    cx 009b
  30. ;    :3131
  31. ;    -NUPGEMINI.COM
  32. ;    -W
  33. ;    -Q
  34. ;
  35. ;
  36. TRUE    EQU    0FFFFH
  37. FALSE    EQU    NOT TRUE
  38.  
  39. OKIDATA EQU    FALSE        ;okidata 84 step 2
  40. GEMINI    EQU    TRUE        ;10x and also Epson
  41. TI810    EQU    FALSE
  42. ;
  43. ;
  44. codeseg segment public 'code'
  45.  
  46. assume cs:codeseg,ds:codeseg,es:codeseg,ss:codeseg
  47.  
  48.     org    100h
  49. ;
  50. begg:
  51.     db    0e9h                ;jump intruction
  52.     dw    1fd1h                ;start of program
  53. ;
  54.     IF    OKIDATA
  55. COMPRESS DB    29,0FFH,0,0,0,0,0,0        ;COMPRESS PRINTING 17 CPI
  56. NORMALW  DB    30,0FFH,0,0,0,0,0,0        ;NORMAL PRINTING 10 CPI
  57. LINESP8  DB    27,56,0FFH,0,0,0,0,0        ;8 LINES PER INCH
  58. LINEPAG8 DB    27,70,56,56,0FFH,0,0,0        ;88 LINES PER PAGE
  59. LINESP6  DB    27,54,0FFH,0,0,0,0,0        ;6 LINES PER INCH
  60. LINEPAG6 DB    27,70,54,54,0FFH,0,0,0        ;66 LINES PER PAGE
  61. SETTOF     DB    27,53,0FFH,0,0,0,0,0        ;SETS TOF
  62. DOUBLEW  DB    31,0FFH,0,0,0,0,0,0        ;DOUBLE WIDTH CHARACTER
  63. EGRAPHIC DB    14,0FFH,0,0,0,0,0,0        ;ENTER GRAPHIC MODE
  64. XGRAPHIC DB    15,0FFH,0,0,0,0,0,0        ;EXIT GRAPHIC MODE
  65. TAB72     DB    27,9,'072',0DH,0FFH,0           ;SETS TAB AT COLUMN 72
  66. TAB116     DB    27,9,'116',0DH,0FFH,0           ;SETS TAB AT COLUMN 116
  67. EMPHAS     DB    27,'H',0FFH,0,0,0,0,0           ;EMPHASIZED PRINTING
  68. OFFEMPH  DB    27,'I',0FFH,0,0,0,0,0           ;TURN OFF EMPHASIZE PRINTING
  69. ;
  70. ;
  71. ;
  72. RESTORE DB    1BH,30H,27,70,54,54,30,27    ;RESTORE PRINTER TO NORMAL
  73.     DB    54,27,53,0FFH,0,0,0,0
  74.     DB    0,0,0,0,0,0,0,0
  75. ;
  76. LPAGE6    DB    60            ;DATA LINES PER PAGE FOR 6
  77. LPAGE8    DB    82            ;DATA LINES PER PAGE FOR 8
  78. GRAPHIC DB    78            ;GRAPHIC CHARACTER FOR HEADING
  79. GRAPHSP DB    63            ;GRAPHIC SPACE FOR HEADING
  80. DOUBCOL DB    70            ;NUMBER OF DATA COLUMNS DOUBLE PAGE
  81. DOUBCOLW DB    116            ;NUMBER OF DATA COLUMNS DOUBLE WIDE
  82. ;
  83.     ENDIF
  84. ;
  85.     IF    GEMINI
  86. COMPRESS DB    27,66,3,0FFH,0,0,0,0        ;COMPRESS PRINTING 17 CPI
  87. NORMALW  DB    27,66,1,0FFH,0,0,0,0        ;NORMAL PRINTING 10 CPI
  88. LINESP8  DB    27,48,0FFH,0,0,0,0,0        ;8 LINES PER INCH
  89. LINEPAG8 DB    27,67,88,0FFH,0,0,0,0        ;88 LINES PER PAGE
  90. LINESP6  DB    27,50,0FFH,0,0,0,0,0        ;6 LINES PER INCH
  91. LINEPAG6 DB    27,67,66,0FFH,0,0,0,0        ;66 LINES PER PAGE
  92. SETTOF     DB    0FFH,0,0,0,0,0,0,0        ;SETS TOF
  93. DOUBLEW  DB    14,0FFH,0,0,0,0,0,0        ;DOUBLE WIDTH CHARACTER
  94. EGRAPHIC DB    27,62,0FFH,0,0,0,0,0        ;ENTER GRAPHIC MODE
  95. XGRAPHIC DB    27,35,0FFH,0,0,0,0,0        ;EXIT GRAPHIC MODE
  96. TAB72     DB    27,68,66,0,0FFH,0,0,0        ;SETS TAB AT COLUMN 66
  97. TAB116     DB    27,68,66,0,0FFH,0,0,0        ;SETS TAB AT COLUMN 66
  98. EMPHAS     DB    27,'G',0FFH,0,0,0,0,0           ;EMPHASIZED PRINTING
  99. OFFEMPH  DB    27,'H',0FFH,0,0,0,0,0           ;TURN OFF EMPHASIZE PRINTING
  100. ;
  101. ;
  102. ;
  103. RESTORE  DB    1BH,64,0FFH,0,0,0,0,0        ;RESTORE PRINTER TO NORMAL
  104.      DB    0,0,0,0,0,0,0,0
  105.      DB    0,0,0,0,0,0,0,0
  106. ;
  107. LPAGE6     DB    60            ;DATA LINES PER PAGE FOR 6
  108. LPAGE8     DB    82            ;DATA LINES PER PAGE FOR 8
  109. GRAPHIC  DB    239            ;GRAPHIC CHARACTER FOR HEADING
  110. GRAPHSP  DB    224            ;GRAPHIC SPACE FOR HEADING
  111. DOUBCOL  DB    64            ;NUMBER OF DATA COLUMNS DOUBLE PAGE
  112. DOUBCOLW DB    64            ;NUMBER OF DATA COLUMNS DOUBLE WIDE
  113. ;
  114.     ENDIF
  115. ;
  116.     IF    TI810
  117. COMPRESS DB    27,'7',0DH,0FFH,0,0,0,0         ;COMPRESS PRINTING 17 CPI
  118. NORMALW  DB    27,'6',0DH,0FFH,0,0,0,0         ;NORMAL PRINTING 10 CPI
  119. LINESP8  DB    27,'5',0DH,0FFH,0,0,0,0         ;8 LINES PER INCH
  120. LINEPAG8 DB    27,'2',88,0DH,0FFH,0,0,0        ;88 LINES PER PAGE
  121. LINESP6  DB    27,'4',0DH,0FFH,0,0,0,0         ;6 LINES PER INCH
  122. LINEPAG6 DB    27,'2',66,0DH,0FFH,0,0,0        ;66 LINES PER PAGE
  123. SETTOF     DB    0FFH,0,0,0,0,0,0,0        ;SETS TOF
  124. DOUBLEW  DB    14,0FFH,0,0,0,0,0,0        ;DOUBLE WIDTH CHARACTER
  125. EGRAPHIC DB    0FFH,0,0,0,0,0,0,0        ;ENTER GRAPHIC MODE
  126. XGRAPHIC DB    0FFH,0,0,0,0,0,0,0        ;EXIT GRAPHIC MODE
  127. TAB72     DB    27,'3',66,0,0DH,0FFH,0,0        ;SETS TAB AT COLUMN 66
  128. TAB116     DB    27,'3',66,0,0DH,0FFH,0,0        ;SETS TAB AT COLUMN 116
  129. EMPHAS     DB    0FFH,0,0,0,0,0,0,0        ;EMPHASIZED PRINTING
  130. OFFEMPH  DB    0FFH,0,0,0,0,0,0,0        ;TURN OFF EMPHASIZE PRINTING
  131. ;
  132. ;
  133. ;
  134. RESTORE DB    1BH,64,0FFH,0,0,0,0,0        ;RESTORE PRINTER TO NORMAL
  135.     DB    0,0,0,0,0,0,0,0
  136.     DB    0,0,0,0,0,0,0,0
  137. ;
  138. LPAGE6    DB    60            ;DATA LINES PER PAGE FOR 6
  139. LPAGE8    DB    82            ;DATA LINES PER PAGE FOR 8
  140. GRAPHIC DB    '#'                     ;GRAPHIC CHARACTER FOR HEADING
  141. GRAPHSP DB    ' '                     ;GRAPHIC SPACE FOR HEADING
  142. DOUBCOL DB    64            ;NUMBER OF DATA COLUMNS DOUBLE PAGE
  143. DOUBCOLW    DB    64        ;NUMBER OF DATA COLUMNS DOUBLE WIDE
  144. ;
  145.     ENDIF
  146. ;
  147. ;    IF THE '[' IS NOT ENTERED IN THE COMMAND LINE THE PROGRAM WILL
  148. ;    SEARCH THIS LOCATION FOR A LIST OF OPTIONS. ENTER THE ASCII VALUES
  149. ;    OF THE COMMANDS YOU WISH TO DEFAULT TO.
  150. ;
  151. ;NOTE:
  152. ;    IF THE `[` IS ENTERED BUT NO OPTIONS ARE ENTERED THE PROGRAM
  153. ;    WILL DEFAULT TO THE FOLLOWING:
  154. ;            6 LINES PER INCH
  155. ;            10 CPI
  156. ;            66 LINES PER PAGE
  157. ;            PAGE NUMBERING
  158. ;            FILTERING OF FORM FEEDS
  159. ;            NORMAL TABS
  160. ;            NO INDENT
  161. ;            AUTO TIME AND DATE
  162. ;
  163. ;
  164. ;    DEFAULT COMMANDS (UP TO TEN CHARACTERS ALLOWED)
  165. ;
  166. ;
  167. DEFAULT:
  168.     DB    0,0,0,0,0,0,0,0,0,0    ;DEFAULT COMMANDS LOOKED AT
  169.                     ;IF NO [ ENTERED
  170. ;
  171. codeseg ends
  172.     end    begg
  173. ;
  174. ;
  175. ;    For those who do not have the assembler the following
  176. ;    locations must be patched. End each escape seq. with a 0ffh
  177. ;
  178. ;
  179. ;memory location    description
  180. ;---------------    -----------
  181. ;0103            COMPRESS PRINTING 17 CPI
  182. ;010B            NORMAL PRINTING 10 CPI
  183. ;0113            8 LINES PER INCH
  184. ;011B            88 LINES PER PAGE
  185. ;0123            6 LINES PER INCH
  186. ;012B            66 LINES PER PAGE
  187. ╗013│            SETS TOF
  188. ;013B            DOUBLE WIDTH CHARACTER
  189. ;0143            ENTER GRAPHIC MODE
  190. ;014B            EXIT GRAPHIC MODE
  191. ;0153            SETS TAB AT COLUMN 66
  192. ;015B            SETS TAB AT COLUMN 66
  193. ;0163            EMPHASIZED PRINTING
  194. ;016B            TURN OFF EMPHASIZE PRINTING
  195. ;0173            RESTORE PRINTER TO NORMAL
  196. ;018B            DATA LINES PER PAGE FOR 6
  197. ;018C            DATA LINES PER PAGE FOR 8
  198. ;018D            GRAPHIC CHARACTER FOR HEADING
  199. ;018E            GRAPHIC SPACE FOR HEADING
  200. ;018F            NUMBER OF DATA COLUMNS DOUBLE PAGE
  201. ;0190            NUMBER OF DATA COLUMNS DOUBLE WIDE
  202. ;0191            DEFAULT COMMANDS LOOKED AT
  203. ;019B            start of the program
  204.