home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / b / krtcdf.min < prev    next >
Text File  |  2020-01-01  |  739b  |  54 lines
  1.     .sbttl    KRTCDF.MIN  Define command macro
  2.     .ident    "V03.62"
  3.  
  4. ; /62/    31-May-93  Billy Youdelman
  5.  
  6.     KRTCDF    =  1
  7.     $LISTL    == 4
  8.     $$TRIP    =  0
  9.  
  10.     .macro    command    list ,name ,min ,addres ,arg
  11.     .list me
  12.     .save
  13.     .nlist me
  14.     .if b <name>
  15.     .list me
  16.     .psect    cmddsp    ,ro,d,lcl,rel,con
  17.     .nlist me
  18.     .word    0
  19.     $$trip    = 0
  20.     .iff
  21.     .iif ne    $cmglob, .globl addres
  22.     .list me
  23.     .psect    cmdtxt    ,ro,d,lcl,rel,con
  24.     .nlist me
  25.     $$name    = .
  26.     .asciz    #name#
  27.       $arg    = .
  28.       .if b <arg>
  29.       .byte    0
  30.       .iff
  31.       .asciz #arg#
  32.       .endc
  33.     .list me
  34.     .even
  35.     .psect    cmddsp    ,ro,d,lcl,rel,con
  36.     .nlist me
  37.       .if eq $$trip
  38.         .if ne $cmglob
  39. 'list::
  40.         .iff
  41. 'list:
  42.         .endc
  43.       $$trip = 1
  44.       .endc
  45.     .word    $$name
  46.     .word    min
  47.     .word    addres
  48.     .word    $arg
  49.     .endc
  50.     .list me
  51.     .restore
  52.     .nlist me
  53.     .endm
  54.