home *** CD-ROM | disk | FTP | other *** search
/ BMUG Revelations / BMUG Revelations.toast / Programming / Programming Languages / PC Basic / PCBASIC MPW version / BIncludes / PCBASICMacros.a < prev    next >
Encoding:
Text File  |  1988-11-11  |  684 b   |  55 lines  |  [TEXT/MPS ]
  1. ;
  2. ;     PCBASICmacros   11/11/88
  3. ;
  4. ;   PCBASIC Code Generation Macros
  5. ;
  6. ;    by Pterodactyl Software, Copyright © 1985-1988
  7. ;
  8.  macro
  9.  n$p &1
  10.  jsr new$pro
  11.  DC.w &1-seg$tab
  12.  endm
  13. ;
  14.  macro
  15.  r$p &1,&2
  16.  jsr ret$pro
  17.  DC.w &1-seg$tab
  18.  DC.w $&2
  19.  endm
  20. ;
  21.  macro
  22.  n$l &1,&2,&3
  23. &1 jsr new$lin
  24.  DC.w &2-seg$tab
  25.  DC.w seg$code
  26.  DC.w $&3
  27.  endm
  28. ;
  29.  macro
  30.  l$ea    &1,&2
  31.  lea &1,A0
  32.  jsr l$$ea
  33.  move.l D0,&2
  34.  endm
  35. ;
  36.     macro
  37.     go$sub &1
  38. ; @93 move.l #seg$code*65536+10+@93-seg$tab,-(A7)
  39.   DC.W    $2F3C,seg$code
  40.   DC.W    *-seg$tab+6
  41.   jmp    &1
  42.      endm
  43. ;
  44.      macro
  45.      r$ead
  46. ; @93 move.l #seg$code*65536+14+@93-seg$tab,-(A7)
  47.   DC.W    $2F3C,seg$code
  48.   DC.W    *-seg$tab+10
  49.   move.l Data$Ptr(A5),-(A7)
  50.   jmp r$eturn
  51.  endm
  52. ;
  53. ; 
  54. ;
  55.