home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine 1995 / ARCHIVE95.iso / discs / shareware / share_46 / sasm / Examples / Hello_A next >
Text File  |  1993-03-20  |  825b  |  26 lines
  1. ;--> Hello_A
  2.  
  3. ; First file of demo program for SAsm
  4. ; ⌐ D.J.Holden 1991
  5.  
  6. # org   &8000                ; Assemble code to run at &8000
  7.  
  8. # type  "Absolute"           ; 'Absolute' application to be loaded at &8000
  9.  
  10. # size  &400                 ; Allocate 1K for assembled code
  11.  
  12. ; Check if the SHIFT key is held down, if it is set
  13. ; make variable shift% TRUE, if not make shift% FALSE
  14.  
  15. # IF INKEY(-1) shift%=TRUE ELSE shift%=FALSE
  16.  
  17.         ;----------------------------
  18.         ; Now start writing the code
  19.         ;----------------------------
  20.  
  21.         adrl r1,welcome         ; Make r1 point to welcome message
  22.                                 ; Uses the 'built in' macro ADRL
  23.  
  24.         FNmessage (r1)          ; Display the message pointed to by r1
  25.                                 ; Uses the Macro Function defined in 'Hello_C'
  26.