Public Pastes
daily pastebin goal
86%
SHARE
TWEET

Untitled

a guest Mar 30th, 2017 55 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  
  2. ;*******************************************
  3. ;*** Procedure pour reglage d'une valeur ***
  4. ;*** contenue dans 'A'                   ***
  5. ;*** si T+: A+1 (si A>255 --> A=0)       ***
  6. ;*** si T-: A-1 (si A<0   --> A=255)     ***
  7. ;*** si TSELECT: (31h) passe a 1         ***
  8. ;*******************************************
  9. rval:   neiw    4ah,00d     ;tempo pour quitter parametrage terminee?
  10.         mviw    31h,01d     ;oui: on force enregistrement en EEPROM
  11.         eqiw    35h,00d     ;tempo touches terminee?
  12.         ret
  13.         bit     1,46h       ;TSELECT?
  14.         jr      rval0
  15.         jr      rval3
  16. rval0:  bit     0,46h       ;T+?
  17.         jr      rval1
  18.         mviw    31h,02d     ;pour memo t+ appuy‚e
  19.         inr     a
  20.         nop
  21.         eqiw    36h,0ffh
  22.         inrw    36h
  23.         jr      rvalf
  24. rval1:  bit     2,46h       ;T-?
  25.         jr      rval2
  26.         dcr     a
  27.         nop
  28.         eqiw    36h,0ffh
  29.         inrw    36h
  30.         jr      rvalf
  31. rval2:  mviw    36h,00h
  32.         jr      rval4
  33. rval3:  eqiw    14h,00d
  34.         ret
  35.         mviw    36h,00h
  36.         mviw    31h,01d     ;pour memo tselect appuy‚e
  37. rvalf:  mviw    14h,01d
  38.         mviw    35h,4d
  39.         gtiw    36h,10d
  40.         mviw    35h,20d
  41. rval4:  ret
  42. ;****************************
RAW Paste Data
Top