home *** CD-ROM | disk | FTP | other *** search
/ Digital News 2 / Digital_News_2_1988_-_de_Side_B.d64 / ................ < prev    next >
Encoding:
Text File  |  1988-01-01  |  1.2 KB  |  89 lines
  1.  $0400+16
  2.          sty $0400+17
  3.          jsr $ffa5
  4.          sta shi
  5.          jsr hex
  6.          stx $0400+14
  7.          sty $0400+15
  8.  
  9. ok
  10.          jsr $ffe1
  11.          bne trt
  12.          jmp ende
  13.  
  14.  
  15. trt      lda $af
  16.          jsr hex
  17.          stx $0400+23
  18.          sty $0400+24
  19.          lda $ae
  20.          jsr hex
  21.          stx $0400+25
  22.          sty $0400+26
  23.  
  24.  
  25.  
  26.          jsr $ffa5
  27.  
  28.          bit $90
  29.          bne ende
  30.  
  31.  
  32.          ldy #$00
  33.          sei
  34.          sty $01
  35.          sta (slo),y
  36.          dey
  37.          sty $01
  38.          cli
  39.  
  40.  
  41.  
  42.          inc slo
  43.          bne ok
  44.  
  45.          inc shi
  46.  
  47. kkb      bne ok
  48.  
  49. ende     jsr $ffc3
  50.          jsr $ffe7
  51.          jmp $f642
  52.  
  53.  
  54. nam      .text "a"
  55.  
  56.  ;routine zur ausgabe eines bytes
  57.  ;hexzahl wird als decimalzahl
  58.  ;ausgegeben. wert muss im akku stehen
  59.  ;                (w) by mws
  60.  
  61.  
  62.  
  63. hex      pha
  64.          lsr a
  65.          lsr a
  66.          lsr a
  67.          lsr a
  68.          jsr loop
  69.          tax
  70.          pla
  71.          jsr loop
  72.          tay
  73.          rts
  74.  
  75. loop     and #$0f
  76.          cmp #$0a
  77.          clc
  78.          bmi minus
  79.          adc #$07
  80. minus    adc #$30
  81.          and #$3f
  82.          rts
  83.  
  84.  
  85. print    .text "loading from $...."
  86.          .text " to $...."
  87.          .byte 0
  88.  
  89.