home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / math / classdoc / class.mac < prev    next >
Encoding:
Text File  |  1993-07-28  |  1.5 KB  |  105 lines
  1.  
  2. rpl    macro    ?val
  3.     dcr.5    ?val
  4.     endmac
  5.  
  6. absadr    macro    ?lbl,?reg
  7.     push
  8.     exg.a    ?reg,a
  9.     move.a    pc,a
  10. .absadr?cnt?    
  11.     move.a    #?lbl-.absadr?cnt?,c
  12.     add.a    c,a
  13.     exg.a    a,?reg
  14.     pop
  15.     endmac
  16.  
  17. Real    macro    ?val,?exp
  18.     dcr.5    $02933
  19.     dcr.4    $?exp-1
  20.     dcr.12    $?val*16
  21.     endmac
  22.  
  23. Short    macro    ?val
  24.     dcr.5    $02911,?val
  25.     endmac
  26.  
  27. Tag    macro    ?str
  28.     dcr.5    $02afc
  29.     dcr.2    (tag?cnt?end-tag?cnt?beg)/2
  30. tag?cnt?beg    textr    "?str"
  31. tag?cnt?end    
  32.     endmac
  33.  
  34. binint    macro    ?siz,?val
  35.     dcr.5    $02a4e
  36.     dcr.5    ?siz+5
  37.     dcr.?siz    ?val
  38.     endmac
  39.  
  40. string    macro    ?val
  41.     dcr.5    $02a2c
  42. string?cnt?beg    dcr.5    string?cnt?end-string?cnt?beg
  43.     textr    ?val
  44. string?cnt?end    
  45.     endmac
  46.  
  47. gname    macro    ?name
  48.     dcr.5    $02e48
  49.     dcr.b    (gn?cnt?end-gn?cnt?beg)/2
  50. gn?cnt?beg    textr    ?name
  51. gn?cnt?end    
  52.     endmac
  53.  
  54. str_alloc    macro
  55.     exg.a    c,r0
  56.     jsr    restore_regs
  57.     exg.a    c,r0
  58.     jsr    string_alloc
  59.     endmac
  60.  
  61. str_put    macro
  62.     exg.w    c,r0
  63.     jsr    restore_regs
  64.     exg.w    c,r0
  65.     jsr    string_alloc
  66.     dec.a    d
  67.     sub.a    #5,d1
  68.     sub.a    #10,d0
  69.     exg.a    d0,a
  70.     move.a    a,(d1)
  71.     move.a    #regd,d0
  72.     move.a    d,c
  73.     move.a    c,(d0)
  74.     move.a    #regd1,d0
  75.     exg.a    c,d1
  76.     move.a    c,d1
  77.     move.a    c,(d0)
  78.     exg.a    a,d0
  79.     add.a    #10,d0
  80.     endmac
  81.  
  82. lea    macro    ?lbl,?reg
  83.     move.a    #?lbl,c
  84.     exg.w    a,r3
  85.     add.a    a,c
  86.     exg.w    a,r3
  87.     move.a    c,?reg
  88.     endmac
  89.  
  90. leac    macro    ?lbl
  91.     move.a    #?lbl,c
  92.     exg.w    a,r3
  93.     add.a    a,c
  94.     exg.w    a,r3
  95.     endmac
  96.  
  97. xor    macro    ?siz,?reg1,?reg2,?reg3
  98.     move.?siz    ?reg2,?reg3
  99.     and.?siz    ?reg1,?reg3
  100.     or.?siz    ?reg1,?reg2
  101.     not.?siz    ?reg2
  102.     or.?siz    ?reg2,?reg3
  103.     not.?siz    ?reg3
  104.     endmac
  105.