home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / z / zap / !Zap / 3rdParty / Freeman / DemoText next >
Text File  |  1995-05-21  |  2KB  |  46 lines
  1. \ >DemoText
  2. \ ——————————————————————————————————————————————————————————————————————————
  3. \   ZapSAsm                                     Version 1.04 (21 May 1995)
  4. \ ——————————————————————————————————————————————————————————————————————————
  5.  
  6.  
  7. \ Colour demonstration... no, it's not supposed to be run...
  8.  
  9. \ Colours are personal things.. I mean, how do I know whether the blue
  10. \ that you see and the blue that I see look the same..?
  11. \ However, if you prefer less of the philosophy, you might just want to
  12. \ change the colours so they look less garish.  In my defence, I have
  13. \ to point out that I set the defaults to be similar in character to the
  14. \ colour modes already written.. I use different colours myself (well,
  15. \ for a start, I use a white background, so cream's definitely out..)
  16.  
  17. #verbose
  18. #NOENHANCE
  19. \#xref
  20. #include &.Source*
  21.  
  22. #PRINT"This semicolon will not be treated as a comment";A%
  23. #PRINT"But this one will" ; heh, heh, colours conform to SAsm's syntax
  24.                           \ (well, most of its syntax anyway...)
  25.  
  26. .Label    stmfd (sp)!,{r10-r12,lr}
  27.     mov r0,#5
  28.     mov r1,#"A"+3
  29.     MOV R2,R3,LSR #8
  30. .00    str r0,[location],#4
  31.     @macro helloworld "string parameter",variable%
  32. .01    subs r0,r0,#1
  33.     BNE 00
  34.     ldmfd (sp)!,{r10-r12,pc}^
  35.  
  36.     db &FFFF1111,"text",0
  37.     align
  38. .macro    FNdata("howdy",-1)
  39.     dd 42                \ is this meaningful?
  40.     equs "..probably not"
  41.     align
  42.  
  43. \ if you're a less exciting soul (or alternatively, more tasteful) then
  44. \ you could set all the logical mode colours to the same physical colour
  45. \ (grey, say) .. see if I care if you shun all my hard work.. :-)
  46.