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