home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cpm / texts / ws-c128.azm / WS-C128.ASM
Assembly Source File  |  1994-08-05  |  6KB  |  177 lines
  1. ;
  2.  
  3. ; ws.mac  --  oVERLAY FOR wORDsTAR rELEASE 4 ON THE cOMMODORE 128
  4.  
  5. ;
  6.  
  7. ; tHIS IS AN OVERLAY FOR ws.com THAT WILL ALLOW YOU TO USE ALL THE
  8.  
  9. ; VIDEO ATTRIBUTES TO SHOW PRINTER CODES ON THE SCREEN OF A COLOR
  10.  
  11. ; MONITOR.  tHE OVERLAY PROVIDES FOR THE FOLLOWING ATTRIBUTES:
  12.  
  13. ;nORMAL TEXTBRIGHT VIDEO
  14.  
  15. ;sTRIKE-OUT (^px)ALTERNATE COLOR
  16.  
  17. ;eRROR MESSAGESBLINK
  18.  
  19. ;mARKED BLOCK (^kb, ^kk)REVERSE VIDEO
  20.  
  21. ;uNDERLINED TEXT (^ps)UNDERLINED
  22.  
  23. ;sUBSCRIPTS (^pv)ALTERNATE COLOR
  24.  
  25. ;sUPERSCRIPTS (^pt)ALTERNATE COLOR
  26.  
  27. ;bOLDFACE TEXT (^pb AND ^pd)DIM VIDEO
  28.  
  29. ;iTALIC TEXT (^py)ALTERNATE COLOR
  30.  
  31. ;
  32.  
  33. ; tHIS PARTICULAR SELECTION WILL ALLOW FOR ALL THE VARIOUS PRINTER
  34.  
  35. ; CODES TO APPEAR DIFFERENTLY AND IT COMBINATION (E.G, BOLDFACED
  36.  
  37. ; ITALIC TEXT WILL BE IN DIM ALTERNATE COLOR).  iTALIC, sTRIKE-OUT,
  38.  
  39. ; sUPERSCRIPTS, AND sUBSCRIPTS ALL APPEAR IN THE SAME ALTERNATE 
  40.  
  41. ; COLOR BECAUSE TWO COLORS CANNOT BE DISPLAYED SIMULTANEOUSLY AND
  42.  
  43. ; THESE CODES ARE LESS COMMONLY USED.
  44.  
  45. ;
  46.  
  47. ; a FEW OTHER CHANGES ARE MADE TO ws.com BY THIS OVERLAY:
  48.  
  49. ;tHE DELETE CHARACTER WILL BE DISPLAY BY THE STANDARD cOMMODORE
  50.  
  51. ;cp/m DELETE CHARACTER, INSTEAD OF del.
  52.  
  53. ;tHE brite LABEL IS SET SO wORDsTAR DISPLAYS NORMAL TEXT IN 
  54.  
  55. ;BRITE VIDEO, INSTEAD OF DIM (WHICH DOESN'T LOOK TOO
  56.  
  57. ;GOOD ON A COLOR MONITOR).
  58.  
  59. ;vARIOUS DELAYS HAVE BEEN CHANGED TO mICROpRO'S RECOMMENDATIONS
  60.  
  61. ;FOR A 2-MEGAHERTZ cpu.
  62.  
  63. ;
  64.  
  65. ; bEFORE USING THIS OVERLAY, YOU must CHANGE THE COLORS AT THE LABELS
  66.  
  67. ; cOLoN AND cOLoFF TO SUIT THE COLORS YOU WILL BE USING.  yOU SHOULD
  68.  
  69. ; JUST USE THE NAME OF THE COLORS AS LISTED IN THE EQUATES BELOW.
  70.  
  71. ; cOLOR NAMES BEGINNING WITH 'D' INDICATE A DARK COLOR, E.G., 'DRED' MEANS
  72.  
  73. ; DARK RED.  cOLoN IS FOR THE COLOR YOU WILL USE TO HIGHLIGHT THE 
  74.  
  75. ; ALTERNATE COLOR MODES LISTED ABOVE.  cOLoFF IS THE COLOR YOU USE FOR
  76.  
  77. ; NORMAL TEXT.  iF YOU DON'T CHANGE THEM, YOUR ALTERNATE COLOR WILL BE
  78.  
  79. ; CYAN AND YOUR NORMAL TEXT WILL BE IN YELLOW.
  80.  
  81. ;
  82.  
  83. ; aFTER YOU'VE SELECTED THE COLORS, ASSEMBLE THE OVERLAY WITH mac:
  84.  
  85. ;a>mac ws-c128
  86.  
  87. ; tHEN USE mload OR sid TO OVERLAY YOUR ws.com:
  88.  
  89. ;a>mload newws.com=oldws.com,ws-c128.hex
  90.  
  91. ; aFTER YOU'VE TESTED IT, RENAME newws.com TO ws.com AND PUT IT ON YOUR
  92.  
  93. ; wORDsTAR DISK.  eNJOY!
  94.  
  95. ;
  96.  
  97. ;gENE pIZZETTA
  98.  
  99. ;481 rEVERE sTREET
  100.  
  101. ;rEVERE, ma  02151
  102.  
  103. ;vOICE (617) 284-0891
  104.  
  105. ;cOMPUSERVE 72060,505
  106.  
  107. ;qUANTUMlINK gENEp
  108.  
  109. ;
  110.  
  111. ;
  112.  
  113. sTRINGEQU0283H; ws STRING OUT ROUTINE
  114.  
  115. ESCEQU1bH
  116.  
  117. CREQU0dH
  118.  
  119. LFEQU0aH
  120.  
  121. ;
  122.  
  123. BLACKEQU20H; THESE EQUATES USE PHYSICAL COLOR NUMBERS
  124.  
  125. WHITEEQU21H; ..RATHER THAN LOGICAL COLOR NUMBERS.
  126.  
  127. DREDEQU22H; ..oRDINARILY IT'S BEST TO USE LOGICAL
  128.  
  129. CYANEQU23H; ..COLOR NUMBERS, BUT THEY AREN'T AFFECTED
  130.  
  131. PURPLEEQU24H; ..BY THE 'DIM' ESCAPE SEQUENCE.  sO, IN
  132.  
  133. DGREENEQU25H; ..THIS CASE, PHYSICAL COLORS ARE BEST.
  134.  
  135. DBLUEEQU26H
  136.  
  137. YELLOWEQU27H
  138.  
  139. DPURPLEEQU28H
  140.  
  141. DYELLOWEQU29H
  142.  
  143. REDEQU2aH
  144.  
  145. DCYANEQU2bH
  146.  
  147. MGRAYEQU2cH
  148.  
  149. GREENEQU2dH
  150.  
  151. BLUEEQU2eH
  152.  
  153. GRAYEQU2fH
  154.  
  155. ;
  156.  
  157. ;
  158.  
  159. ; dELETE dISPLAY sTRING
  160.  
  161. ;
  162.  
  163. ; tHE FOLLOWING STRING INDICATES TO wORDsTAR HOW TO DISPLAY A DELETE
  164.  
  165. ; CHARACTER (HEX 7f) ON THE SCREEN WHILE EDITING.  oN TERMINALS THAT
  166.  
  167. ; INTERPRET THE DELETE CHARACTER CODE INTO A DISPLAYABLE CHARACTER, IT
  168.  
  169. ; IS RECOMMENDED THAT delstr BE TRANSLATED INTO THE DELETE CODE ITSELF
  170.  
  171. ; (LENGTH OF 1, THEN 7fH).  aLL CHARACTERS IN THE STRING MUST DISPLAY.
  172.  
  173. ;
  174.  
  175. ORG0326H
  176.  
  177. ;
  178.  
  179. delstr:DB1,7fH; cOMMODORE DISPLAYS IT ...
  180.  
  181. ;
  182.  
  183. ;
  184.  
  185. ; tHE FOLLOWING STRING IS USED AT SIGN-ON TO DESCRIBE THE TYPE
  186.  
  187. ; OF TERMINAL BEING USED BY wORDsTAR.  uP TO 40 BYTES ARE AVAILABLE
  188.  
  189. ; FOR THE STRING, INCLUDING ITS NULL TERMINATOR.
  190.  
  191. ;
  192.  
  193. ORG0342H
  194.  
  195. ;
  196.  
  197. crtid:DB'cOMMODORE 128  --  cp/m pLUS',CR,LF,0
  198.  
  199. ;
  200.  
  201. ;
  202.  
  203. ; vIDEO ATTRIBUTES ARE USED IN VARIOUS PLACES ON THE wORDsTAR DISPLAY.
  204.  
  205. ; (FOR COMPLETE INFORMATION SEE patch.lst ON YOUR wORDsTAR DISK.)
  206.  
  207. ; tHE vidatt SUBROUTINE IS USED TO CHANGE VIDEO ATTRIBUTES ON THE SCREEN.
  208.  
  209. ; tHIS SUBROUTINE IS CALLED ONLY WHEN A VIDEO ATTRIBUTE CHANGES.
  210.  
  211. ;
  212.  
  213. ORG03c1H; ORG AT vidatt
  214.  
  215. ;
  216.  
  217. vidatt:MOVA,C
  218.  
  219. XRAB
  220.  
  221. ANI00001111B; ANY CHANGE IN THE 'g' CODES?
  222.  
  223. JZvida0; (NO)
  224.  
  225. LXIH,aTToFF; YES, TURN THEM ALL OFF
  226.  
  227. CALLsTRING
  228.  
  229. LXIH,rEVoN; IS IT A MARKED BLOCK?
  230.  
  231. MOVA,C
  232.  
  233. ANI00000100B
  234.  
  235. CNZsTRING
  236.  
  237. LXIH,bLIoN; IS IT AN ERROR MESSAGE?
  238.  
  239. MOVA,C
  240.  
  241. ANI00000010B
  242.  
  243. CNZsTRING
  244.  
  245. LXIH,uNDoN; IS IT UNDERLINED TEXT?
  246.  
  247. MOVA,C
  248.  
  249. ANI00001000B
  250.  
  251. CNZsTRING
  252.  
  253. vida0:MOVA,C; STRIKE-OUT, ITALIC, SUPER-, SUBSCRIPT?
  254.  
  255. ANI10110001B
  256.  
  257. JZvida1
  258.  
  259. LXIH,cOLoN; CHANGE TO THE ALTERNATE COLOR
  260.  
  261. CALLsTRING
  262.  
  263. JMPvida2
  264.  
  265. vida1:LXIH,cOLoFF; CHANGE TO NORMAL COLOR
  266.  
  267. CALLsTRING
  268.  
  269. vida2:LXIH,dIMoN; DO WE HAVE BOLD OR DOUBLESTRIKE?
  270.  
  271. MOVA,C; (DIM MUST BE LAST ATTRIBUTE SELECTED)
  272.  
  273. ANI01000000B
  274.  
  275. JZsTRING; YES, GO DIM
  276.  
  277. LXIH,dIMoFF
  278.  
  279. JMPsTRING; NO, GO BRIGHT
  280.  
  281. ;
  282.  
  283. aTToFF:DB3,ESC,'g0'
  284.  
  285. rEVoN:DB3,ESC,'g4'
  286.  
  287. bLIoN:DB3,ESC,'g2'
  288.  
  289. uNDoN:DB3,ESC,'g3'
  290.  
  291. dIMoFF:DB2,ESC,'('
  292.  
  293. dIMoN:DB2,ESC,')'
  294.  
  295. cOLoFF:DB4,ESC,ESC,ESC,YELLOW; THIS SETS NORMAL TEXT COLOR
  296.  
  297. cOLoN:DB4,ESC,ESC,ESC,CYAN; THIS SETS ALTERNATE COLOR
  298.  
  299. ;
  300.  
  301. ;
  302.  
  303. ; nORMALLY THE STATUS LINE, TEXT AND DIRECTORIES ARE DISPLAYED IN
  304.  
  305. ; DIM INTENSITY SO THAT BOLD AND DOUBLESTRUCK TEXT CAN BE SHOWN IN
  306.  
  307. ; HIGH INTENSITY.  sETTING brite TO offH REVERSES THE USAGE OF
  308.  
  309. ; BRIGHT AND DIM FOR THE STATUS LINE, TEXT, AND DIRECTORIES; NORMALLY
  310.  
  311. ; ZERO.
  312.  
  313. ;
  314.  
  315. ORG0441H
  316.  
  317. ;
  318.  
  319. brite:DB0ffH; 0 = TEXT DIM, 0ffH = TEXT BRIGHT
  320.  
  321. ;
  322.  
  323. ;
  324.  
  325. ; dELAYS -- eACH DELAY IS APPROXIMATELY THE NUMBER OF MILLISECONDS
  326.  
  327. ; ON A 4-mHZ z80 PROCESSOR, ABOUT TWICE AS LONG ON A 2-mHZ 8080.
  328.  
  329. ;
  330.  
  331. ORG0444H
  332.  
  333. ;
  334.  
  335. dxoff:DW1000; TIME-OUT FOR TERMINAL (WAS 2000)
  336.  
  337. dlong:DW1000; LONG DELAYS (WAS 2000)
  338.  
  339. dmed:DW500; MEDIUM DELAYS (WAS 1000)
  340.  
  341. dshort:DW100; SHORT DELAYS (WAS 200)
  342.  
  343. updly:DW100; UPDATE DELAY (WAS 200)
  344.  
  345. ddisk:DW500; DISK ACCESS DELAY (NO CHANGE)
  346.  
  347. dfast:DW25; DELAY WHEN FAST TYPING (WAS 50)
  348.  
  349. ;
  350.  
  351. END
  352.  
  353.