home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / c128 / util / mer128.arc / PI.MACROS < prev    next >
Encoding:
Text File  |  1993-04-15  |  1.3 KB  |  76 lines
  1. *===============================
  2. *áááááááááápi.macros
  3. *===============================
  4.  
  5. *áeQUATESáANDáMACROSáFORápiáMODULESáEXCEPTámain
  6.  
  7. numdec = $fb ;#áDIGITSáINáDECIMAL
  8. numhex = $16 ;#áOFáBYTESáNEEDEDáTOáHOLDáIT
  9. pl = 6 ;gENERALáPURPOSEáPOINTER
  10. ql = 8 ;á"
  11. odd = $a ;hOLDSá"ODD"áDIVISORS
  12. pwrstend = $c
  13. curdiv = $e ;cURRENTáDIVISOR
  14. sign = $10 ;sIGNáOFáSERIESáTERM
  15. whichser = $11 ;fLAGSáWHICHáSERIESáBEINGáDONE
  16. divr = $12 ;hOLDSáDIVISORáINáDIVáROUTINE
  17. remr = $14 ;rEMAINDER
  18. count = $18 ;sCRATCHáCOUNTDOWNáOFáDIGITS
  19. zlen = $1a ;lENGTHáOFáLEADINGáZEROS
  20. quo = $1c ;pARTIALáQUOTIENT
  21. lincnt = $12 ;lINEáCOUNTáOFáBLOCKSáOFá10
  22. blockcnt = $13 ;cOUNTáOFáBLOCKSáONáAáPAGE
  23. page = $14 ;pAGEáNUMBERáONáPRINTOUT
  24. crcount = $1a
  25. spcount = $1b
  26. just = $1c ;jUSTIFICATIONáFLAGáFORáprdec
  27. digitpnt = $1d ;pOINTERáINáDIGITáCOUNTS
  28. decflag = $1e
  29. columns = $fd ;#áOFá11áCHARáCOLUMNS/LINE
  30. nl = 2 ;prdecáUSAGE
  31. nh = 3
  32. nfl = 4
  33. save = $220 ;zpáSAVEáAREA
  34. chrout = $ffd2
  35.  
  36. ram0 = $ff01
  37.  
  38. strlen = $4000
  39. sumstr = $2f00
  40. tempstr = sumstr+strlen
  41. pwrstr = tempstr+strlen
  42.  
  43.  err sumstr*$100
  44.  err strlen*$100
  45.  err pwrstr+strlen+$ff/$ff00
  46.  
  47. ********************************
  48.  
  49. mov mac
  50.  lda ]1
  51.  sta ]2
  52.  <<<
  53.  
  54. movd mac
  55.  mov ]1;]2
  56.  mov ]1+1;]2+1
  57.  <<<
  58.  
  59. incd mac
  60.  inc ]1
  61.  bne nc
  62.  inc ]1+1
  63. nc <<<
  64.  
  65. stadr mac
  66.  mov #]1;]2
  67.  mov #>]1;]2+1
  68.  <<<
  69.  
  70. next mac
  71.  inc ]1
  72.  bne ]2
  73.  inc ]1+1
  74.  bne ]2
  75.  <<<
  76.