home *** CD-ROM | disk | FTP | other *** search
/ FreeWare Collection 2 / FreeSoftwareCollection2pd199x-jp.img / ms_dos / casl / test.csl < prev   
Text File  |  1990-06-14  |  970b  |  48 lines
  1. ;
  2. ;   SAMPLE PROGRAM FOR COMET & CASL
  3. ;
  4. TEST    START   BIGIN
  5. C1      DC      -30000
  6. BIGIN   LEA     GR2,1
  7.         LD      GR1,C1
  8.         CALL    CNVBIN
  9.         SLA     GR1,1,GR2
  10.         CALL    CNVBIN
  11.         EXIT
  12.         END
  13.  
  14. ;=====================
  15. ;       CNVBIN
  16. ;=====================
  17. CNVBIN  START
  18.         PUSH    0,GR1
  19.         PUSH    0,GR2
  20.         LEA     GR2,15
  21.         LEA     GR0,#30
  22. CBIN10  ST      GR0,BINWRK,GR2
  23.         LEA     GR2,-1,GR2
  24.         JPZ     CBIN10
  25.         LEA     GR0,#31
  26.         LEA     GR2,15
  27.         ST      GR1,CBSVE
  28. CBIN20  AND     GR1,MASK1
  29.         JZE     CBIN30
  30.         ST      GR0,BINWRK,GR2
  31. CBIN30  LD      GR1,CBSVE
  32.         SRL     GR1,1
  33.         ST      GR1,CBSVE
  34.         LEA     GR2,-1,GR2
  35.         JPZ     CBIN20
  36.         OUT     BINWRK,LEN16
  37.         POP     GR2
  38.         POP     GR1
  39.         RET
  40. ;
  41. BINWRK  DS      16
  42. MASK1   DC      1
  43. LEN16   DC      16
  44. CBSVE   DS      1
  45.         END
  46.  
  47.  
  48.