home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 13 / Tiger_Disk_013_19xx_Tiger-Crew-Disk_de_Side_A.d64 / decbin.seq < prev    next >
Text File  |  2023-02-26  |  702b  |  38 lines
  1.          *= $1000
  2.  
  3. ;***************************************
  4. ;*  decbin-routine  (w) 1994 by madrom *
  5. ;***************************************
  6. ;* routine wird mit - jsr decbin -     *
  7. ;* aufgerufen. in x-reg muss die 8bit  *
  8. ;* zahl stehen. der bin wert wird      *
  9. ;* auf dem bildschirm ausgegeben ...   *
  10. ;***************************************
  11.  
  12.  
  13. decbin
  14.          stx 2
  15.          ldx #8
  16.          stx 251
  17.  
  18. bin1
  19.          ldx 251
  20.          lda 2
  21.          and dbtab,x
  22.          bne bin2
  23.          lda #"-"
  24.          jsr $ffd2
  25.          dec 251
  26.          bne bin1
  27.          rts
  28. bin2
  29.          lda #"*"
  30.          jsr $ffd2
  31.          dec 251
  32.          bne bin1
  33.          rts
  34.  
  35. dbtab
  36.          .byte 0,1,2,4,8,16,32,64,128
  37.  
  38.