home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
archives
/
krt11.tar.gz
/
krt11.tar
/
krtcdf.min
< prev
next >
Wrap
Text File
|
1997-10-17
|
739b
|
54 lines
.sbttl KRTCDF.MIN Define command macro
.ident "V03.62"
; /62/ 31-May-93 Billy Youdelman
KRTCDF = 1
$LISTL == 4
$$TRIP = 0
.macro command list ,name ,min ,addres ,arg
.list me
.save
.nlist me
.if b <name>
.list me
.psect cmddsp ,ro,d,lcl,rel,con
.nlist me
.word 0
$$trip = 0
.iff
.iif ne $cmglob, .globl addres
.list me
.psect cmdtxt ,ro,d,lcl,rel,con
.nlist me
$$name = .
.asciz #name#
$arg = .
.if b <arg>
.byte 0
.iff
.asciz #arg#
.endc
.list me
.even
.psect cmddsp ,ro,d,lcl,rel,con
.nlist me
.if eq $$trip
.if ne $cmglob
'list::
.iff
'list:
.endc
$$trip = 1
.endc
.word $$name
.word min
.word addres
.word $arg
.endc
.list me
.restore
.nlist me
.endm